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