ctbtodev
Last change
on this file since ae88f7d 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
|
Rev | Line | |
---|
[2fb99de] | 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.