source: flex_extract.git/source/pythontest/TestInstallTar/flex_extract_v7.1_ecgate/source/fortran/posnam.f @ 25b14be

ctbtodev
Last change on this file since 25b14be was 25b14be, checked in by Anne Philipp <anne.philipp@…>, 6 years ago

changed whole tree structure of flex_extract to have better overview

  • Property mode set to 100644
File size: 673 bytes
Line 
1      SUBROUTINE POSNAM(KULNAM,CDNAML)
2!-------------------------------------
3
4!--- position in namelist file.
5!    author:  Mats Hamrud, ECMWF
6
7      INTEGER, INTENT(IN)       :: KULNAM
8      CHARACTER*(*), INTENT(IN) :: CDNAML
9      CHARACTER*120 CLINE
10      CHARACTER*1 CLTEST
11      REWIND(KULNAM)
12      ILEN=LEN(CDNAML)
13 102  CONTINUE
14      CLINE=' '
15      READ(KULNAM,'(A)') CLINE
16      IND1=INDEX(CLINE,'&'//CDNAML)
17      IF(IND1.EQ.0) GO TO 102
18      CLTEST=CLINE(IND1+ILEN+1:IND1+ILEN+1)
19      IF((LGE(CLTEST,'0').AND.LLE(CLTEST,'9')).OR.
20     &   (LGE(CLTEST,'A').AND.LLE(CLTEST,'Z'))) GO TO 102
21      BACKSPACE(KULNAM)
22
23      RETURN
24      END SUBROUTINE POSNAM
25
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG