| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_meta.F |
144 |
MDS_READ_META |
mFileName = fileName(1:iL) |
|
./pkg/mdsio/mdsio_read_meta.F |
149 |
MDS_READ_META |
WRITE(mFileName,'(2A)') fileName(1:iL), '.meta' |
|
./pkg/mdsio/mdsio_read_meta.F |
151 |
MDS_READ_META |
INQUIRE( FILE=mFileName, EXIST=fileExist ) |
|
./pkg/mdsio/mdsio_read_meta.F |
159 |
MDS_READ_META |
WRITE(mFileName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
162 |
MDS_READ_META |
INQUIRE( FILE=mFileName, EXIST=fileExist ) |
|
./pkg/mdsio/mdsio_read_meta.F |
166 |
MDS_READ_META |
WRITE(mFileName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
169 |
MDS_READ_META |
INQUIRE( FILE=mFileName, EXIST=fileExist ) |
|
./pkg/mdsio/mdsio_read_meta.F |
173 |
MDS_READ_META |
& fileName(1:iL), '.meta , ', mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
187 |
MDS_READ_META |
& mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
196 |
MDS_READ_META |
OPEN( mUnit, FILE=mFileName, STATUS='old', |
|
./pkg/mdsio/mdsio_read_meta.F |
201 |
MDS_READ_META |
& mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
96 |
MDS_READ_META |
CHARACTER*(MAX_LEN_FNAM) mFileName, pfName |
|
./pkg/mdsio/mdsio_write_meta.F |
10 |
MDS_WRITE_META |
I mFileName, |
|
./pkg/mdsio/mdsio_write_meta.F |
54 |
MDS_WRITE_META |
CHARACTER*(*) mFileName |
|
./pkg/mdsio/mdsio_write_meta.F |
97 |
MDS_WRITE_META |
OPEN( mUnit, file=mFileName, status='unknown', |