| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
126 |
FIZHI_WRITE_VEGTILES |
open( iUnit, file=dataFName, status='unknown', |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
319 |
FIZHI_READ_VEGTILES |
character*(80) dataFName |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
381 |
FIZHI_READ_VEGTILES |
print *,' Opening ',dataFName |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
382 |
FIZHI_READ_VEGTILES |
open( iUnit, file=dataFName, status='old', |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
46 |
FIZHI_WRITE_VEGTILES |
character*(80) dataFName |
|
./pkg/mdsio/mdsio_gl.F |
1005 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
1028 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
1033 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
1039 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
1279 |
MDSWRITEFIELD_2D_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl.F |
1365 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1368 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1444 |
MDSWRITEFIELD_2D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
1470 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1475 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
148 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
1562 |
MDSWRITEFIELD_2D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
163 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
167 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
186 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
190 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
201 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
218 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
241 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
246 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
252 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
491 |
MDSWRITEFIELD_3D_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl.F |
576 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
579 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
655 |
MDSWRITEFIELD_3D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
681 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
686 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
72 |
MDSREADFIELD_3D_GL |
character*(MAX_LEN_FNAM) dataFName |
|
./pkg/mdsio/mdsio_gl.F |
773 |
MDSWRITEFIELD_3D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
859 |
MDSREADFIELD_2D_GL |
character*(MAX_LEN_FNAM) dataFName |
|
./pkg/mdsio/mdsio_gl.F |
936 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
951 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
955 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
973 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
977 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
988 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
115 |
MDSREADFIELD_XZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
119 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
130 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
155 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
160 |
MDSREADFIELD_XZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
166 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
312 |
MDSREADFIELD_YZ_GL |
character*(MAX_LEN_FNAM) dataFName |
|
./pkg/mdsio/mdsio_gl_slice.F |
356 |
MDSREADFIELD_YZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
360 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
371 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
395 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
400 |
MDSREADFIELD_YZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
406 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
566 |
MDSWRITEFIELD_XZ_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl_slice.F |
627 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
632 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
716 |
MDSWRITEFIELD_XZ_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl_slice.F |
71 |
MDSREADFIELD_XZ_GL |
character*(MAX_LEN_FNAM) dataFName |
|
./pkg/mdsio/mdsio_gl_slice.F |
807 |
MDSWRITEFIELD_YZ_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl_slice.F |
868 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
873 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
957 |
MDSWRITEFIELD_YZ_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_read_field.F |
103 |
MDS_READ_FIELD |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_read_field.F |
233 |
MDS_READ_FIELD |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_field.F |
234 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
238 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_field.F |
247 |
MDS_READ_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
248 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
252 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
273 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
277 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: filename: ', dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
385 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
455 |
MDS_READ_FIELD |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
457 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
463 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
468 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
474 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
129 |
MDS_READ_SEC_XZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
130 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
134 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
143 |
MDS_READ_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
144 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
148 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
159 |
MDS_READ_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
171 |
MDS_READ_SEC_XZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
173 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
179 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
184 |
MDS_READ_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
190 |
MDS_READ_SEC_XZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
360 |
MDS_READ_SEC_YZ |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_read_section.F |
407 |
MDS_READ_SEC_YZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
408 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
412 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
421 |
MDS_READ_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
422 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
426 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
437 |
MDS_READ_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
449 |
MDS_READ_SEC_YZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
451 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
457 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
462 |
MDS_READ_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
468 |
MDS_READ_SEC_YZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
83 |
MDS_READ_SEC_XZ |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_read_tape.F |
121 |
MDS_READ_TAPE |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_tape.F |
122 |
MDS_READ_TAPE |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_tape.F |
129 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_tape.F |
134 |
MDS_READ_TAPE |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_tape.F |
139 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_tape.F |
187 |
MDS_READ_TAPE |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_tape.F |
188 |
MDS_READ_TAPE |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_tape.F |
192 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_tape.F |
199 |
MDS_READ_TAPE |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_tape.F |
208 |
MDS_READ_TAPE |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_tape.F |
210 |
MDS_READ_TAPE |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_tape.F |
214 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_tape.F |
219 |
MDS_READ_TAPE |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_tape.F |
226 |
MDS_READ_TAPE |
& ' , ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_tape.F |
62 |
MDS_READ_TAPE |
CHARACTER*(MAX_LEN_FNAM) dataFName, pfName |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
124 |
MDS_WR_METAFILES |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
140 |
MDS_WR_METAFILES |
I metaFName, dataFName, the_run_name, titleLine, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
162 |
MDS_WR_METAFILES |
WRITE(dataFName,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
209 |
MDS_WR_METAFILES |
I metaFName, dataFName, the_run_name, titleLine, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
96 |
MDS_WR_METAFILES |
CHARACTER*(MAX_LEN_FNAM) dataFName, metaFName, pfName |
|
./pkg/mdsio/mdsio_write_field.F |
118 |
MDS_WRITE_FIELD |
CHARACTER*(MAX_LEN_FNAM) dataFName,metaFName,pfName |
|
./pkg/mdsio/mdsio_write_field.F |
276 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
279 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
282 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
428 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
431 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
434 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
499 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_field.F |
503 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
506 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
552 |
MDS_WRITE_FIELD |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_write_field.F |
598 |
MDS_WRITE_FIELD |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_write_section.F |
136 |
MDS_WRITE_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
139 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
144 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
157 |
MDS_WRITE_SEC_XZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_section.F |
161 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
166 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
344 |
MDS_WRITE_SEC_YZ |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_write_section.F |
389 |
MDS_WRITE_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
392 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
397 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
410 |
MDS_WRITE_SEC_YZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_section.F |
414 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
419 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
90 |
MDS_WRITE_SEC_XZ |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_write_tape.F |
180 |
MDS_WRITE_TAPE |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
183 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
186 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
211 |
MDS_WRITE_TAPE |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_write_tape.F |
224 |
MDS_WRITE_TAPE |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
227 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
230 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
238 |
MDS_WRITE_TAPE |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_tape.F |
242 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
245 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
308 |
MDS_WRITE_TAPE |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_write_tape.F |
69 |
MDS_WRITE_TAPE |
CHARACTER*(MAX_LEN_FNAM) dataFName, metaFName, pfName |
|
./pkg/mdsio/mdsio_writelocal.F |
108 |
MDS_WRITELOCAL |
CHARACTER*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_writelocal.F |
273 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
276 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status='unknown', |
|
./pkg/mdsio/mdsio_writelocal.F |
279 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
353 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
357 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
360 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
403 |
MDS_WRITELOCAL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writelocal.F |
434 |
MDS_WRITELOCAL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writevec_loc.F |
170 |
MDS_WRITEVEC_LOC |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
174 |
MDS_WRITEVEC_LOC |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
244 |
MDS_WRITEVEC_LOC |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writevec_loc.F |
80 |
MDS_WRITEVEC_LOC |
CHARACTER*(MAX_LEN_FNAM) dataFName, metaFName, pfName |
|
./verification/flt_example/extra/cvprofiles.F |
27 |
NO PROCEDURE |
character*(80) dataFName |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
294 |
DIAGNOSTICS_CALC_PHIVEL |
WRITE(dataFName,'(2A,I10.10,A)') |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
296 |
DIAGNOSTICS_CALC_PHIVEL |
OPEN( diagLoc_ioUnit, FILE=dataFName, STATUS='unknown' ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
297 |
DIAGNOSTICS_CALC_PHIVEL |
iL = ILNBLNK(dataFName) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
299 |
DIAGNOSTICS_CALC_PHIVEL |
& 'open unit=',diagLoc_ioUnit, ', file: ',dataFName(1:iL) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
84 |
DIAGNOSTICS_CALC_PHIVEL |
CHARACTER*(MAX_LEN_FNAM) dataFName |
|
./pkg/diagnostics/diagstats_close_io.F |
39 |
DIAGSTATS_CLOSE_IO |
CHARACTER*(MAX_LEN_FNAM) dataFName |
|
./pkg/diagnostics/diagstats_close_io.F |
61 |
DIAGSTATS_CLOSE_IO |
WRITE(dataFName,'(4A)') |
|
./pkg/diagnostics/diagstats_close_io.F |
64 |
DIAGSTATS_CLOSE_IO |
& 'close file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
39 |
DIAGSTATS_INI_IO |
CHARACTER*(MAX_LEN_FNAM) dataFName |
|
./pkg/diagnostics/diagstats_ini_io.F |
60 |
DIAGSTATS_INI_IO |
WRITE(dataFName,'(4A)') |
|
./pkg/diagnostics/diagstats_ini_io.F |
64 |
DIAGSTATS_INI_IO |
OPEN( nUnit, FILE=dataFName, STATUS='unknown' ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
67 |
DIAGSTATS_INI_IO |
& 'open file: ',dataFName(1:iL+15), ' , unit=', nUnit |