ctbtodev
|
Last change
on this file was
36dbabb,
checked in by pesei <petra.seibert [at ) univie.ac.at>, 4 years ago
|
|
Update FORD documentation, change some comment lines in Fortran, smal change in run_reftest.sh
|
-
Property mode set to
100644
|
|
File size:
625 bytes
|
| Line | |
|---|
| 1 | SUBROUTINE POSNAM(KULNAM,CDNAML) |
|---|
| 2 | |
|---|
| 3 | !! Position in namelist file. |
|---|
| 4 | !! Author: Mats Hamrud, ECMWF |
|---|
| 5 | |
|---|
| 6 | INTEGER, INTENT(IN) :: KULNAM |
|---|
| 7 | CHARACTER*(*), INTENT(IN) :: CDNAML |
|---|
| 8 | CHARACTER*120 CLINE |
|---|
| 9 | CHARACTER*1 CLTEST |
|---|
| 10 | |
|---|
| 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')) GOTO 102 |
|---|
| 21 | BACKSPACE(KULNAM) |
|---|
| 22 | |
|---|
| 23 | RETURN |
|---|
| 24 | |
|---|
| 25 | END SUBROUTINE POSNAM |
|---|
Note: See
TracBrowser
for help on using the repository browser.
