ctbtodev
Last change
on this file since b38d750 was
e18f4b5,
checked in by skomo <p.skomorowski@…>, 6 years ago
|
initial git repo of version 7.0.3
|
-
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.