| File |
Line number |
Procedure |
Code |
|
./model/src/open_copy_data_file.F |
10 |
OPEN_COPY_DATA_FILE |
I data_file, caller_sub, |
|
./model/src/open_copy_data_file.F |
30 |
OPEN_COPY_DATA_FILE |
CHARACTER*(*) data_file |
|
./model/src/open_copy_data_file.F |
50 |
OPEN_COPY_DATA_FILE |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./model/src/open_copy_data_file.F |
53 |
OPEN_COPY_DATA_FILE |
& ' OPEN_COPY_DATA_FILE: opening file ',data_file |
|
./model/src/open_copy_data_file.F |
58 |
OPEN_COPY_DATA_FILE |
& 'File ',data_file,' does not exist!' |
|
./model/src/open_copy_data_file.F |
67 |
OPEN_COPY_DATA_FILE |
OPEN(UNIT=modelDataUnit,FILE=data_file,STATUS='OLD', |
|
./model/src/open_copy_data_file.F |
71 |
OPEN_COPY_DATA_FILE |
& 'Unable to open data file: ',data_file |
|
./model/src/open_copy_data_file.F |
95 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A,A)') '// Parameter file "',data_file,'"' |
|
./pkg/mnc/mnc_readparms.F |
109 |
MNC_READPARMS |
OPEN(UNIT=mdu, FILE=data_file, STATUS='OLD', IOSTAT=errio) |
|
./pkg/mnc/mnc_readparms.F |
112 |
MNC_READPARMS |
& 'Unable to open data file: ''',data_file(1:nl), |
|
./pkg/mnc/mnc_readparms.F |
136 |
MNC_READPARMS |
WRITE(msgBuf,'(3a)') '// Parameter file "',data_file(1:nl),'"' |
|
./pkg/mnc/mnc_readparms.F |
164 |
MNC_READPARMS |
& 'ERROR: while reading file ''',data_file(1:nl), |
|
./pkg/mnc/mnc_readparms.F |
33 |
MNC_READPARMS |
character*(MAX_LEN_MBUF) data_file |
|
./pkg/mnc/mnc_readparms.F |
73 |
MNC_READPARMS |
data_file(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
75 |
MNC_READPARMS |
WRITE(data_file,'(a)') 'data.mnc' |
|
./pkg/mnc/mnc_readparms.F |
76 |
MNC_READPARMS |
nl = ILNBLNK(data_file) |
|
./pkg/mnc/mnc_readparms.F |
79 |
MNC_READPARMS |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./pkg/mnc/mnc_readparms.F |
83 |
MNC_READPARMS |
& data_file(1:nl), '''' |
|
./pkg/mnc/mnc_readparms.F |
97 |
MNC_READPARMS |
& 'Data file: ''',data_file(1:nl), |