merge branch ctbto to master

Documentation/html/Documentation/Api/Fortran/src/posnam.f90

+  SUBROUTINE POSNAM(KULNAM,CDNAML)
+
+ !! Position in namelist file.
+ !! Author:  Mats Hamrud, ECMWF
+
+    INTEGER, INTENT(IN)       :: KULNAM
+    CHARACTER*(*), INTENT(IN) :: CDNAML
+    CHARACTER*120 CLINE
+    CHARACTER*1 CLTEST
+    
+    REWIND(KULNAM)
+    ILEN = LEN(CDNAML)
+102 CONTINUE
+      CLINE = ' '
+      READ(KULNAM,'(A)') CLINE
+      IND1 = INDEX(CLINE,'&'//CDNAML)
+      IF (IND1 .EQ. 0) GO TO 102
+      CLTEST = CLINE(IND1+ILEN+1:IND1+ILEN+1)
+    IF (LGE(CLTEST,'0') .AND. LLE(CLTEST,'9') .OR. &
+        LGE(CLTEST,'A') .AND. LLE(CLTEST,'Z')) GOTO 102
+    BACKSPACE(KULNAM)
+
+    RETURN
+    
+  END SUBROUTINE POSNAM