| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_meta.F |
142 |
MDS_READ_META |
mFileName = fileName(1:iL) |
|
./pkg/mdsio/mdsio_read_meta.F |
147 |
MDS_READ_META |
WRITE(mFileName,'(2A)') fileName(1:iL), '.meta' |
|
./pkg/mdsio/mdsio_read_meta.F |
149 |
MDS_READ_META |
INQUIRE( FILE=mFileName, EXIST=fileExist ) |
|
./pkg/mdsio/mdsio_read_meta.F |
157 |
MDS_READ_META |
WRITE(mFileName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
160 |
MDS_READ_META |
INQUIRE( FILE=mFileName, EXIST=fileExist ) |
|
./pkg/mdsio/mdsio_read_meta.F |
164 |
MDS_READ_META |
WRITE(mFileName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_meta.F |
167 |
MDS_READ_META |
INQUIRE( FILE=mFileName, EXIST=fileExist ) |
|
./pkg/mdsio/mdsio_read_meta.F |
171 |
MDS_READ_META |
& fileName(1:iL), '.meta , ', mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
185 |
MDS_READ_META |
& mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
194 |
MDS_READ_META |
OPEN( mUnit, FILE=mFileName, STATUS='old', |
|
./pkg/mdsio/mdsio_read_meta.F |
199 |
MDS_READ_META |
& mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
95 |
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 |
53 |
MDS_WRITE_META |
CHARACTER*(*) mFileName |
|
./pkg/mdsio/mdsio_write_meta.F |
95 |
MDS_WRITE_META |
OPEN( mUnit, file=mFileName, status='unknown', |