| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_readparms.F |
108 |
MNC_READPARMS |
data_file(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
110 |
MNC_READPARMS |
WRITE(data_file,'(a)') 'data.mnc' |
|
./pkg/mnc/mnc_readparms.F |
111 |
MNC_READPARMS |
nl = ILNBLNK(data_file) |
|
./pkg/mnc/mnc_readparms.F |
114 |
MNC_READPARMS |
& data_file(1:nl), '''' |
|
./pkg/mnc/mnc_readparms.F |
118 |
MNC_READPARMS |
CALL OPEN_COPY_DATA_FILE(data_file(1:nl),'MNC_READPARMS', |
|
./pkg/mnc/mnc_readparms.F |
38 |
MNC_READPARMS |
character*(MAX_LEN_MBUF) data_file |
|
./eesupp/src/open_copy_data_file.F |
107 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A,A)') '// Parameter file "',data_file,'"' |
|
./eesupp/src/open_copy_data_file.F |
10 |
OPEN_COPY_DATA_FILE |
I data_file, caller_sub, |
|
./eesupp/src/open_copy_data_file.F |
30 |
OPEN_COPY_DATA_FILE |
CHARACTER*(*) data_file |
|
./eesupp/src/open_copy_data_file.F |
55 |
OPEN_COPY_DATA_FILE |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./eesupp/src/open_copy_data_file.F |
58 |
OPEN_COPY_DATA_FILE |
& ' OPEN_COPY_DATA_FILE: opening file ',data_file |
|
./eesupp/src/open_copy_data_file.F |
63 |
OPEN_COPY_DATA_FILE |
& 'File ',data_file,' does not exist!' |
|
./eesupp/src/open_copy_data_file.F |
79 |
OPEN_COPY_DATA_FILE |
OPEN(UNIT=modelDataUnit,FILE=data_file,STATUS='OLD', |
|
./eesupp/src/open_copy_data_file.F |
83 |
OPEN_COPY_DATA_FILE |
& 'Unable to open data file: ',data_file |