| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_readparms.F |
120 |
MNC_READPARMS |
READ(mdu,FMT='(A)',END=1001) RECORD |
|
./pkg/mnc/mnc_readparms.F |
121 |
MNC_READPARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./pkg/mnc/mnc_readparms.F |
122 |
MNC_READPARMS |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./pkg/mnc/mnc_readparms.F |
123 |
MNC_READPARMS |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./pkg/mnc/mnc_readparms.F |
124 |
MNC_READPARMS |
WRITE(UNIT=isu1,FMT='(A)') RECORD(:IL) |
|
./pkg/mnc/mnc_readparms.F |
126 |
MNC_READPARMS |
WRITE(UNIT=isu2,FMT='(A)') RECORD(:IL) |
|
./pkg/mnc/mnc_readparms.F |
146 |
MNC_READPARMS |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./pkg/mnc/mnc_readparms.F |
147 |
MNC_READPARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./pkg/mnc/mnc_readparms.F |
148 |
MNC_READPARMS |
WRITE(msgBuf,'(2a)') '>',RECORD(:IL) |