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