| 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 |
1004 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
1240 |
MDSWRITEFIELD_2D_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl.F |
1317 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1320 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1396 |
MDSWRITEFIELD_2D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
139 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
1422 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1427 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1510 |
MDSWRITEFIELD_2D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
154 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
158 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
177 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
181 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
192 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
209 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
232 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
237 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
243 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
478 |
MDSWRITEFIELD_3D_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl.F |
554 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
557 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
633 |
MDSWRITEFIELD_3D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
659 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
664 |
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 |
747 |
MDSWRITEFIELD_3D_GL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_gl.F |
833 |
MDSREADFIELD_2D_GL |
character*(MAX_LEN_FNAM) dataFName |
|
./pkg/mdsio/mdsio_gl.F |
901 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
916 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
920 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
938 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
942 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
953 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
970 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
993 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
998 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
106 |
MDSREADFIELD_XZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
110 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
121 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
146 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
151 |
MDSREADFIELD_XZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
157 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
299 |
MDSREADFIELD_YZ_GL |
character*(MAX_LEN_FNAM) dataFName |
|
./pkg/mdsio/mdsio_gl_slice.F |
334 |
MDSREADFIELD_YZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
338 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
349 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
373 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
378 |
MDSREADFIELD_YZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
384 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
540 |
MDSWRITEFIELD_XZ_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl_slice.F |
592 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
597 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
677 |
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 |
768 |
MDSWRITEFIELD_YZ_GL |
character*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_gl_slice.F |
820 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
825 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
905 |
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 |
214 |
MDS_READ_FIELD |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_field.F |
215 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
219 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_field.F |
230 |
MDS_READ_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
231 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
235 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
258 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
262 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: filename: ', dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
370 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
440 |
MDS_READ_FIELD |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
442 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
448 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
453 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
459 |
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_readvector.F |
114 |
MDSREADVECTOR |
dataFName = fName |
|
./pkg/mdsio/mdsio_readvector.F |
115 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
119 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readvector.F |
128 |
MDSREADVECTOR |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
129 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
133 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readvector.F |
144 |
MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readvector.F |
156 |
MDSREADVECTOR |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_readvector.F |
158 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
164 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_readvector.F |
169 |
MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readvector.F |
176 |
MDSREADVECTOR |
& ' , ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_readvector.F |
242 |
MDSREADVECTOR |
dataFName = fName |
|
./pkg/mdsio/mdsio_readvector.F |
243 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
248 |
MDSREADVECTOR |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
249 |
MDSREADVECTOR |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_readvector.F |
257 |
MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readvector.F |
261 |
MDSREADVECTOR |
& ' MDSREADVECTOR: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readvector.F |
58 |
MDSREADVECTOR |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
121 |
MDS_WR_METAFILES |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
137 |
MDS_WR_METAFILES |
I metaFName, dataFName, the_run_name, titleLine, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
159 |
MDS_WR_METAFILES |
WRITE(dataFName,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
206 |
MDS_WR_METAFILES |
I metaFName, dataFName, the_run_name, titleLine, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
93 |
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 |
250 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
253 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
256 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
402 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
405 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
408 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
473 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_field.F |
477 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
480 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
526 |
MDS_WRITE_FIELD |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_write_field.F |
572 |
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_writelocal.F |
108 |
MDS_WRITELOCAL |
CHARACTER*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_writelocal.F |
269 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
272 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status='unknown', |
|
./pkg/mdsio/mdsio_writelocal.F |
275 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
349 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
353 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
356 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
399 |
MDS_WRITELOCAL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writelocal.F |
430 |
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 |
|
./pkg/mdsio/mdsio_writevector.F |
140 |
MDSWRITEVECTOR |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
143 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
146 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
227 |
MDSWRITEVECTOR |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writevector.F |
241 |
MDSWRITEVECTOR |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
244 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
249 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
262 |
MDSWRITEVECTOR |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_writevector.F |
266 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
271 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
327 |
MDSWRITEVECTOR |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writevector.F |
355 |
MDSWRITEVECTOR |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writevector.F |
68 |
MDSWRITEVECTOR |
CHARACTER*(MAX_LEN_FNAM) dataFName,metaFName,pfName |
|
./verification/flt_example/extra/cvprofiles.F |
27 |
NO PROCEDURE |
character*(80) dataFName |
|
./pkg/diagnostics/diagstats_close_io.F |
37 |
DIAGSTATS_CLOSE_IO |
CHARACTER*(MAX_LEN_FNAM) dataFName |
|
./pkg/diagnostics/diagstats_close_io.F |
55 |
DIAGSTATS_CLOSE_IO |
WRITE(dataFName,'(2A,I10.10,A)') |
|
./pkg/diagnostics/diagstats_close_io.F |
58 |
DIAGSTATS_CLOSE_IO |
& 'close file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
38 |
DIAGSTATS_INI_IO |
CHARACTER*(MAX_LEN_FNAM) dataFName |
|
./pkg/diagnostics/diagstats_ini_io.F |
58 |
DIAGSTATS_INI_IO |
WRITE(dataFName,'(2A,I10.10,A)') |
|
./pkg/diagnostics/diagstats_ini_io.F |
60 |
DIAGSTATS_INI_IO |
OPEN( nUnit, FILE=dataFName, STATUS='unknown' ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
63 |
DIAGSTATS_INI_IO |
& 'open file: ',dataFName(1:iL+15), ' , unit=', nUnit |