| 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/flt/flt_mdsreadvector.F |
143 |
FLT_MDSREADVECTOR |
& ' FLT_MDSREADVECTOR: opening global file: ',dataFName(1:iLfn) |
|
./pkg/flt/flt_mdsreadvector.F |
148 |
FLT_MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/flt/flt_mdsreadvector.F |
169 |
FLT_MDSREADVECTOR |
& ' FLT_MDSREADVECTOR: opening file: ',dataFName(1:iLfn) |
|
./pkg/flt/flt_mdsreadvector.F |
174 |
FLT_MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/flt/flt_mdsreadvector.F |
71 |
FLT_MDSREADVECTOR |
CHARACTER*(MAX_LEN_FNAM) dataFName |
|
./pkg/flt/flt_traj.F |
50 |
FLT_TRAJ |
CHARACTER*(80) dataFName |
|
./pkg/flt/flt_up.F |
50 |
FLT_UP |
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 |
205 |
MDS_READ_FIELD |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_field.F |
206 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
210 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_field.F |
221 |
MDS_READ_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
222 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
226 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
249 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
253 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: filename: ', dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
361 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
431 |
MDS_READ_FIELD |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_field.F |
433 |
MDS_READ_FIELD |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_field.F |
439 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
444 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
450 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
94 |
MDS_READ_FIELD |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_read_section.F |
121 |
MDS_READ_SEC_XZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
122 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
126 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
135 |
MDS_READ_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
136 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
140 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
151 |
MDS_READ_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
163 |
MDS_READ_SEC_XZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
165 |
MDS_READ_SEC_XZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
171 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
176 |
MDS_READ_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
182 |
MDS_READ_SEC_XZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
334 |
MDS_READ_SEC_YZ |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_read_section.F |
377 |
MDS_READ_SEC_YZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
378 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
382 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
391 |
MDS_READ_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
392 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
396 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
407 |
MDS_READ_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
419 |
MDS_READ_SEC_YZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_read_section.F |
421 |
MDS_READ_SEC_YZ |
INQUIRE( file=dataFName, exist=exst ) |
|
./pkg/mdsio/mdsio_read_section.F |
427 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
432 |
MDS_READ_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
438 |
MDS_READ_SEC_YZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
78 |
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 |
108 |
MDS_WRITE_FIELD |
CHARACTER*(MAX_LEN_FNAM) dataFName,metaFName,pfName |
|
./pkg/mdsio/mdsio_write_field.F |
240 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
243 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
246 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
389 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
392 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
395 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
460 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_field.F |
464 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
467 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
513 |
MDS_WRITE_FIELD |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_write_field.F |
559 |
MDS_WRITE_FIELD |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_write_section.F |
127 |
MDS_WRITE_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
130 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
135 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
148 |
MDS_WRITE_SEC_XZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_section.F |
152 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
157 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
317 |
MDS_WRITE_SEC_YZ |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_write_section.F |
359 |
MDS_WRITE_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
362 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
367 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
380 |
MDS_WRITE_SEC_YZ |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_write_section.F |
384 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
389 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
85 |
MDS_WRITE_SEC_XZ |
CHARACTER*(MAX_LEN_FNAM) dataFName,pfName |
|
./pkg/mdsio/mdsio_writelocal.F |
107 |
MDS_WRITELOCAL |
CHARACTER*(MAX_LEN_FNAM) dataFName,metaFName |
|
./pkg/mdsio/mdsio_writelocal.F |
264 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
267 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status='unknown', |
|
./pkg/mdsio/mdsio_writelocal.F |
270 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
344 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_writelocal.F |
348 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
351 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
394 |
MDS_WRITELOCAL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writelocal.F |
425 |
MDS_WRITELOCAL |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writevec_loc.F |
165 |
MDS_WRITEVEC_LOC |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
169 |
MDS_WRITEVEC_LOC |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
239 |
MDS_WRITEVEC_LOC |
I metaFName, dataFName, the_run_name, ' ', |
|
./pkg/mdsio/mdsio_writevec_loc.F |
76 |
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 |