ctbtodev
|
Last change
on this file since 2fb99de was
2fb99de,
checked in by Anne Philipp <anne.philipp@…>, 6 years ago
|
|
introduced config with path definitions and changed py files accordingly; Installation works; some tests were added for tarball making; Problems in submission to ecgate
|
-
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.
