ctbtodev
Last change
on this file since cd5b346 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.