| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_eeboot.F |
37 |
W2_EEBOOT |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/exch2/w2_eeboot.F |
87 |
W2_EEBOOT |
WRITE(fName,'(A,I4.4,A)') |
|
./pkg/exch2/w2_eeboot.F |
89 |
W2_EEBOOT |
iLen = ILNBLNK(fName) |
|
./pkg/exch2/w2_eeboot.F |
91 |
W2_EEBOOT |
OPEN( W2_oUnit, file=fName(1:iLen), |
|
./pkg/exch2/w2_eeboot.F |
93 |
W2_EEBOOT |
WRITE(msgBuf,'(2A)') ' write to log-file: ', fName(1:iLen) |
|
./pkg/mdsio/mdsio_facef_read.F |
119 |
MDS_FACEF_READ_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./pkg/mdsio/mdsio_facef_read.F |
17 |
MDS_FACEF_READ_RS |
I fName, fPrec, irec, |
|
./pkg/mdsio/mdsio_facef_read.F |
41 |
MDS_FACEF_READ_RS |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_facef_read.F |
68 |
MDS_FACEF_READ_RS |
iLen = ILNBLNK(fName) |
|
./pkg/mdsio/mdsio_facef_read.F |
81 |
MDS_FACEF_READ_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./pkg/mdsio/mdsio_gl.F |
1021 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1208 |
MDSWRITEFIELD_2D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
125 |
MDSREADFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1260 |
MDSWRITEFIELD_2D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
132 |
MDSREADFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1337 |
MDSWRITEFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1344 |
MDSWRITEFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1362 |
MDSWRITEFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1429 |
MDSWRITEFIELD_2D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
1467 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
148 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
1547 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
154 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
16 |
MDSREADFIELD_3D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
186 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
197 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
234 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
421 |
MDSWRITEFIELD_3D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
473 |
MDSWRITEFIELD_3D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
549 |
MDSWRITEFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
556 |
MDSWRITEFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
573 |
MDSWRITEFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
58 |
MDSREADFIELD_3D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
640 |
MDSWRITEFIELD_3D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
678 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
758 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
802 |
MDSREADFIELD_2D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
844 |
MDSREADFIELD_2D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
912 |
MDSREADFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
919 |
MDSREADFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
936 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
942 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
973 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
984 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
109 |
MDSREADFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
115 |
MDSREADFIELD_XZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
126 |
MDSREADFIELD_XZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
148 |
MDSREADFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
16 |
MDSREADFIELD_XZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
257 |
MDSREADFIELD_YZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
299 |
MDSREADFIELD_YZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
350 |
MDSREADFIELD_YZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
356 |
MDSREADFIELD_YZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
367 |
MDSREADFIELD_YZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
388 |
MDSREADFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
497 |
MDSWRITEFIELD_XZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
549 |
MDSWRITEFIELD_XZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
58 |
MDSREADFIELD_XZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
608 |
MDSWRITEFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
624 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
701 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl_slice.F |
738 |
MDSWRITEFIELD_YZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
790 |
MDSWRITEFIELD_YZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
849 |
MDSWRITEFIELD_YZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
865 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
942 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_read_field.F |
10 |
MDS_READ_FIELD |
I fName, |
|
./pkg/mdsio/mdsio_read_field.F |
137 |
MDS_READ_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_field.F |
151 |
MDS_READ_FIELD |
WRITE(errorMessageUnit,'(3A)')'file: >',fName(1:IL),'<' |
|
./pkg/mdsio/mdsio_read_field.F |
159 |
MDS_READ_FIELD |
WRITE(errorMessageUnit,'(3A)')'file: >',fName(1:IL),'<' |
|
./pkg/mdsio/mdsio_read_field.F |
166 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
182 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
199 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
223 |
MDS_READ_FIELD |
pfName= fName |
|
./pkg/mdsio/mdsio_read_field.F |
225 |
MDS_READ_FIELD |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_field.F |
233 |
MDS_READ_FIELD |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_field.F |
247 |
MDS_READ_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
474 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
82 |
MDS_READ_FIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_read_section.F |
114 |
MDS_READ_SEC_XZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_section.F |
119 |
MDS_READ_SEC_XZ |
pfName= fName |
|
./pkg/mdsio/mdsio_read_section.F |
121 |
MDS_READ_SEC_XZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
129 |
MDS_READ_SEC_XZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
143 |
MDS_READ_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
17 |
MDS_READ_SEC_XZ |
I fName, |
|
./pkg/mdsio/mdsio_read_section.F |
190 |
MDS_READ_SEC_XZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
294 |
MDS_READ_SEC_YZ |
I fName, |
|
./pkg/mdsio/mdsio_read_section.F |
343 |
MDS_READ_SEC_YZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_read_section.F |
392 |
MDS_READ_SEC_YZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_section.F |
397 |
MDS_READ_SEC_YZ |
pfName= fName |
|
./pkg/mdsio/mdsio_read_section.F |
399 |
MDS_READ_SEC_YZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
407 |
MDS_READ_SEC_YZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
421 |
MDS_READ_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
468 |
MDS_READ_SEC_YZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
66 |
MDS_READ_SEC_XZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_read_tape.F |
100 |
MDS_READ_TAPE |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_tape.F |
105 |
MDS_READ_TAPE |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_tape.F |
107 |
MDS_READ_TAPE |
pfName = fName |
|
./pkg/mdsio/mdsio_read_tape.F |
10 |
MDS_READ_TAPE |
I fName, |
|
./pkg/mdsio/mdsio_read_tape.F |
121 |
MDS_READ_TAPE |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_tape.F |
187 |
MDS_READ_TAPE |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_tape.F |
225 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: missing file: ',fName(1:IL), |
|
./pkg/mdsio/mdsio_read_tape.F |
43 |
MDS_READ_TAPE |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_read_whalos.F |
10 |
MDS_READ_WHALOS |
I fName, |
|
./pkg/mdsio/mdsio_read_whalos.F |
135 |
MDS_READ_WHALOS |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
137 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') fName(1:IL),'.',myProcId,'.data' |
|
./pkg/mdsio/mdsio_read_whalos.F |
140 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_whalos.F |
56 |
MDS_READ_WHALOS |
character*(*) fName |
|
./pkg/mdsio/mdsio_readvec_loc.F |
109 |
MDS_READVEC_LOC |
& ' MDS_READVEC_LOC: reading from file "', fName(1:IL), '":' |
|
./pkg/mdsio/mdsio_readvec_loc.F |
10 |
MDS_READVEC_LOC |
I fName, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
133 |
MDS_READVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
136 |
MDS_READVEC_LOC |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
146 |
MDS_READVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
154 |
MDS_READVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvec_loc.F |
60 |
MDS_READVEC_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_readvec_loc.F |
92 |
MDS_READVEC_LOC |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_rw_field.F |
115 |
MDSREADFIELD_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
130 |
MDSREADFIELD_LOC |
I fName, filePrec, .TRUE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
135 |
MDSREADFIELD_LOC |
I fName, filePrec, .TRUE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
150 |
MDSWRITEFIELD |
I fName, |
|
./pkg/mdsio/mdsio_rw_field.F |
185 |
MDSWRITEFIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
18 |
MDSREADFIELD |
I fName, |
|
./pkg/mdsio/mdsio_rw_field.F |
202 |
MDSWRITEFIELD |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_field.F |
207 |
MDSWRITEFIELD |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_field.F |
222 |
MDSWRITEFIELD_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_field.F |
257 |
MDSWRITEFIELD_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
274 |
MDSWRITEFIELD_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_field.F |
279 |
MDSWRITEFIELD_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_field.F |
49 |
MDSREADFIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
64 |
MDSREADFIELD |
I fName, filePrec, .FALSE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
69 |
MDSREADFIELD |
I fName, filePrec, .FALSE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
84 |
MDSREADFIELD_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
117 |
MDSREADFIELDYZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
132 |
MDSREADFIELDYZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
137 |
MDSREADFIELDYZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
152 |
MDSREADFIELDXZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
182 |
MDSREADFIELDXZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
197 |
MDSREADFIELDXZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
202 |
MDSREADFIELDXZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
217 |
MDSREADFIELDYZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
22 |
MDSREADFIELDXZ |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
247 |
MDSREADFIELDYZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
262 |
MDSREADFIELDYZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
267 |
MDSREADFIELDYZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
282 |
MDSWRITEFIELDXZ |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
316 |
MDSWRITEFIELDXZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
333 |
MDSWRITEFIELDXZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
338 |
MDSWRITEFIELDXZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
353 |
MDSWRITEFIELDYZ |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
387 |
MDSWRITEFIELDYZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
404 |
MDSWRITEFIELDYZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
409 |
MDSWRITEFIELDYZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
424 |
MDSWRITEFIELDXZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
458 |
MDSWRITEFIELDXZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
475 |
MDSWRITEFIELDXZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
480 |
MDSWRITEFIELDXZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
495 |
MDSWRITEFIELDYZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
529 |
MDSWRITEFIELDYZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
52 |
MDSREADFIELDXZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
546 |
MDSWRITEFIELDYZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
551 |
MDSWRITEFIELDYZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
67 |
MDSREADFIELDXZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
72 |
MDSREADFIELDXZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
87 |
MDSREADFIELDYZ |
I fName, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
11 |
MDS_WR_METAFILES |
I fName, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
123 |
MDS_WR_METAFILES |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
124 |
MDS_WR_METAFILES |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
125 |
MDS_WR_METAFILES |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
149 |
MDS_WR_METAFILES |
pfName = fName |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
151 |
MDS_WR_METAFILES |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
152 |
MDS_WR_METAFILES |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
74 |
MDS_WR_METAFILES |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_field.F |
10 |
MDS_WRITE_FIELD |
I fName, |
|
./pkg/mdsio/mdsio_write_field.F |
163 |
MDS_WRITE_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_field.F |
179 |
MDS_WRITE_FIELD |
WRITE(errorMessageUnit,'(3A)')'file: >',fName(1:IL),'<' |
|
./pkg/mdsio/mdsio_write_field.F |
187 |
MDS_WRITE_FIELD |
WRITE(errorMessageUnit,'(3A)')'file: >',fName(1:IL),'<' |
|
./pkg/mdsio/mdsio_write_field.F |
194 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
210 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
227 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
251 |
MDS_WRITE_FIELD |
pfName = fName |
|
./pkg/mdsio/mdsio_write_field.F |
253 |
MDS_WRITE_FIELD |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_field.F |
276 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
428 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
580 |
MDS_WRITE_FIELD |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_write_field.F |
95 |
MDS_WRITE_FIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_section.F |
120 |
MDS_WRITE_SEC_XZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_section.F |
125 |
MDS_WRITE_SEC_XZ |
pfName= fName |
|
./pkg/mdsio/mdsio_write_section.F |
127 |
MDS_WRITE_SEC_XZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
136 |
MDS_WRITE_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
17 |
MDS_WRITE_SEC_XZ |
I fName, |
|
./pkg/mdsio/mdsio_write_section.F |
271 |
MDS_WRITE_SEC_YZ |
I fName, |
|
./pkg/mdsio/mdsio_write_section.F |
325 |
MDS_WRITE_SEC_YZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_section.F |
373 |
MDS_WRITE_SEC_YZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_section.F |
378 |
MDS_WRITE_SEC_YZ |
pfName= fName |
|
./pkg/mdsio/mdsio_write_section.F |
380 |
MDS_WRITE_SEC_YZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
389 |
MDS_WRITE_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
71 |
MDS_WRITE_SEC_XZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_tape.F |
10 |
MDS_WRITE_TAPE |
I fName, |
|
./pkg/mdsio/mdsio_write_tape.F |
140 |
MDS_WRITE_TAPE |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_tape.F |
145 |
MDS_WRITE_TAPE |
pfName = fName |
|
./pkg/mdsio/mdsio_write_tape.F |
147 |
MDS_WRITE_TAPE |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_tape.F |
180 |
MDS_WRITE_TAPE |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
205 |
MDS_WRITE_TAPE |
WRITE(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_write_tape.F |
224 |
MDS_WRITE_TAPE |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
290 |
MDS_WRITE_TAPE |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_write_tape.F |
48 |
MDS_WRITE_TAPE |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_whalos.F |
10 |
MDS_WRITE_WHALOS |
I fName, |
|
./pkg/mdsio/mdsio_write_whalos.F |
126 |
MDS_WRITE_WHALOS |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
128 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') fName(1:IL),'.',myProcId,'.data' |
|
./pkg/mdsio/mdsio_write_whalos.F |
131 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_whalos.F |
56 |
MDS_WRITE_WHALOS |
character*(*) fName |
|
./pkg/mdsio/mdsio_writelocal.F |
10 |
MDS_WRITELOCAL |
I fName, |
|
./pkg/mdsio/mdsio_writelocal.F |
148 |
MDS_WRITELOCAL |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writelocal.F |
172 |
MDS_WRITELOCAL |
& 'MDS_WRITELOCAL: => write tiled file: ', fName(1:IL) |
|
./pkg/mdsio/mdsio_writelocal.F |
181 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
197 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
273 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
354 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
388 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writelocal.F |
419 |
MDS_WRITELOCAL |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writelocal.F |
88 |
MDS_WRITELOCAL |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_writevec_loc.F |
103 |
MDS_WRITEVEC_LOC |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
10 |
MDS_WRITEVEC_LOC |
I fName, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
121 |
MDS_WRITEVEC_LOC |
& ' MDS_WRITEVEC_LOC: writing to file "', fName(1:IL), '":' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
138 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
141 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
158 |
MDS_WRITEVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
218 |
MDS_WRITEVEC_LOC |
WRITE(metaFname,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
61 |
MDS_WRITEVEC_LOC |
CHARACTER*(*) fName |
|
./pkg/rw/read_mflds.F |
143 |
READ_MFLDS_SET |
mFldsFile = fName |
|
./pkg/rw/read_mflds.F |
155 |
READ_MFLDS_SET |
I fName, |
|
./pkg/rw/read_mflds.F |
288 |
READ_MFLDS_3D_RL |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/read_mflds.F |
347 |
READ_MFLDS_3D_RL |
fName = mFldsFile |
|
./pkg/rw/read_mflds.F |
352 |
READ_MFLDS_3D_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_mflds.F |
417 |
READ_MFLDS_LEV_RL |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/read_mflds.F |
476 |
READ_MFLDS_LEV_RL |
fName = mFldsFile |
|
./pkg/rw/read_mflds.F |
481 |
READ_MFLDS_LEV_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_mflds.F |
546 |
READ_MFLDS_LEV_RS |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/read_mflds.F |
605 |
READ_MFLDS_LEV_RS |
fName = mFldsFile |
|
./pkg/rw/read_mflds.F |
610 |
READ_MFLDS_LEV_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_mflds.F |
63 |
READ_MFLDS_SET |
I fName, |
|
./pkg/rw/read_mflds.F |
90 |
READ_MFLDS_SET |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/read_rec.F |
127 |
READ_REC_XY_RL |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
139 |
READ_REC_XYZ_RS |
SUBROUTINE READ_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
155 |
READ_REC_XYZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
187 |
READ_REC_XYZ_RS |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
199 |
READ_REC_XYZ_RL |
SUBROUTINE READ_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
215 |
READ_REC_XYZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
247 |
READ_REC_XYZ_RL |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
24 |
READ_REC_XY_RS |
SUBROUTINE READ_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
260 |
READ_REC_3D_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
279 |
READ_REC_3D_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
311 |
READ_REC_3D_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
324 |
READ_REC_3D_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
343 |
READ_REC_3D_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
375 |
READ_REC_3D_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
37 |
READ_REC_XY_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
388 |
READ_REC_LEV_RS |
I fName, fPrec, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
408 |
READ_REC_LEV_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
440 |
READ_REC_LEV_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
453 |
READ_REC_LEV_RL |
I fName, fPrec, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
473 |
READ_REC_LEV_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
505 |
READ_REC_LEV_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
518 |
READ_REC_XZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
535 |
READ_REC_XZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
566 |
READ_REC_XZ_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
579 |
READ_REC_XZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
597 |
READ_REC_XZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
628 |
READ_REC_XZ_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
641 |
READ_REC_YZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
659 |
READ_REC_YZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
68 |
READ_REC_XY_RS |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
691 |
READ_REC_YZ_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
704 |
READ_REC_YZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
722 |
READ_REC_YZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
754 |
READ_REC_YZ_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
80 |
READ_REC_XY_RL |
SUBROUTINE READ_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
96 |
READ_REC_XY_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_fld_s3d_rl.F |
102 |
WRITE_FLD_S3D_RL |
I fName, fPrec, kSiz, 1, nNz, locVar, |
|
./pkg/rw/write_fld_s3d_rl.F |
55 |
WRITE_FLD_S3D_RL |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/write_fld_s3d_rl.F |
78 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_s3d_rl.F |
80 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_s3d_rl.F |
84 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_s3d_rs.F |
102 |
WRITE_FLD_S3D_RS |
I fName, fPrec, kSiz, 1, nNz, locVar, |
|
./pkg/rw/write_fld_s3d_rs.F |
55 |
WRITE_FLD_S3D_RS |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/write_fld_s3d_rs.F |
78 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_s3d_rs.F |
80 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_s3d_rs.F |
84 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_rec.F |
100 |
WRITE_REC_XY_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
136 |
WRITE_REC_XY_RS |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
148 |
WRITE_REC_XY_RL |
SUBROUTINE WRITE_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
164 |
WRITE_REC_XY_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
200 |
WRITE_REC_XY_RL |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
212 |
WRITE_REC_XYZ_RS |
SUBROUTINE WRITE_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
228 |
WRITE_REC_XYZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
264 |
WRITE_REC_XYZ_RS |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
276 |
WRITE_REC_XYZ_RL |
SUBROUTINE WRITE_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
292 |
WRITE_REC_XYZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
328 |
WRITE_REC_XYZ_RL |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
341 |
WRITE_REC_3D_RS |
I fName, fPrec, nNz, field, |
|
./pkg/rw/write_rec.F |
359 |
WRITE_REC_3D_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
395 |
WRITE_REC_3D_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
407 |
WRITE_REC_3D_RL |
I fName, fPrec, nNz, field, |
|
./pkg/rw/write_rec.F |
425 |
WRITE_REC_3D_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
461 |
WRITE_REC_3D_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
473 |
WRITE_REC_LEV_RS |
I fName, fPrec, kSiz, kLo, kHi, field, |
|
./pkg/rw/write_rec.F |
492 |
WRITE_REC_LEV_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
528 |
WRITE_REC_LEV_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
540 |
WRITE_REC_LEV_RL |
I fName, fPrec, kSiz, kLo, kHi, field, |
|
./pkg/rw/write_rec.F |
559 |
WRITE_REC_LEV_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
595 |
WRITE_REC_LEV_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
607 |
WRITE_REC_XZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
624 |
WRITE_REC_XZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
659 |
WRITE_REC_XZ_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
672 |
WRITE_REC_XZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
690 |
WRITE_REC_XZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
725 |
WRITE_REC_XZ_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
738 |
WRITE_REC_YZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
756 |
WRITE_REC_YZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
792 |
WRITE_REC_YZ_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
805 |
WRITE_REC_YZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
823 |
WRITE_REC_YZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
84 |
WRITE_REC_XY_RS |
SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
859 |
WRITE_REC_YZ_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/sbo/sbo_output.F |
100 |
SBO_OUTPUT |
I fName, precFloat64, ioUnit, |
|
./pkg/sbo/sbo_output.F |
46 |
SBO_OUTPUT |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/sbo/sbo_output.F |
93 |
SBO_OUTPUT |
WRITE(fName,'(A,I10.10)') 'SBO_global.', nIter0 |
|
./pkg/sbo/sbo_output.F |
96 |
SBO_OUTPUT |
WRITE(fName,'(A,A)') 'SBO_global.', suff |
|
./model/src/ini_cori.F |
160 |
INI_CORI |
WRITE(fName,'(2A,I3.3,A)') 'fCoriG','.face',iG,'.bin' |
|
./model/src/ini_cori.F |
161 |
INI_CORI |
iLen = ILNBLNK(fName) |
|
./model/src/ini_cori.F |
163 |
INI_CORI |
& ' Reading tile:', myTile, ' from file ', fName(1:iLen) |
|
./model/src/ini_cori.F |
167 |
INI_CORI |
CALL MDS_FACEF_READ_RS( fName, readBinaryPrec, 1, |
|
./model/src/ini_cori.F |
50 |
INI_CORI |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./model/src/ini_curvilinear_grid.F |
277 |
INI_CURVILINEAR_GRID |
WRITE(fName,'("tile",I3.3,".mitgrid")') iG |
|
./model/src/ini_curvilinear_grid.F |
279 |
INI_CURVILINEAR_GRID |
WRITE(fName,'(2A,I3.3,A)') horizGridFile(1:iLen), |
|
./model/src/ini_curvilinear_grid.F |
282 |
INI_CURVILINEAR_GRID |
iLen = ILNBLNK(fName) |
|
./model/src/ini_curvilinear_grid.F |
285 |
INI_CURVILINEAR_GRID |
& ' ; Read from file ',fName(1:iLen) |
|
./model/src/ini_curvilinear_grid.F |
291 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
294 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
297 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
300 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
303 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
306 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
309 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
315 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
321 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
330 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
333 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
336 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
59 |
INI_CURVILINEAR_GRID |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./verification/flt_example/extra/cvprofiles.F |
124 |
NO PROCEDURE |
IL=ILNBLNK( fName ) |
|
./verification/flt_example/extra/cvprofiles.F |
131 |
NO PROCEDURE |
& fName(1:IL),'.',iGmax,'.',1,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
139 |
NO PROCEDURE |
& fName(1:IL),'.',1,'.',jGmax,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
156 |
NO PROCEDURE |
& fName(1:IL),'.001.001.data' |
|
./verification/flt_example/extra/cvprofiles.F |
258 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
546 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
576 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
606 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
78 |
NO PROCEDURE |
character*50 fName, outname |
|
./verification/flt_example/extra/cvprofiles.F |
79 |
NO PROCEDURE |
data fName / 'float_profiles' / |
|
./verification/flt_example/extra/cvprofiles.F |
85 |
NO PROCEDURE |
namelist //floats fName |
|
./pkg/autodiff/active_file_gen_ad.F |
100 |
ADACTIVE_READ_GEN_RL |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_ad.F |
106 |
ADACTIVE_READ_GEN_RL |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_ad.F |
107 |
ADACTIVE_READ_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
112 |
ADACTIVE_READ_GEN_RL |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
119 |
ADACTIVE_READ_GEN_RL |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
126 |
ADACTIVE_READ_GEN_RL |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
217 |
ADACTIVE_READ_GEN_RS |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_ad.F |
223 |
ADACTIVE_READ_GEN_RS |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_ad.F |
224 |
ADACTIVE_READ_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
229 |
ADACTIVE_READ_GEN_RS |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
236 |
ADACTIVE_READ_GEN_RS |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
243 |
ADACTIVE_READ_GEN_RS |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
325 |
ADACTIVE_WRITE_GEN_RL |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_ad.F |
332 |
ADACTIVE_WRITE_GEN_RL |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_ad.F |
333 |
ADACTIVE_WRITE_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
339 |
ADACTIVE_WRITE_GEN_RL |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
346 |
ADACTIVE_WRITE_GEN_RL |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
353 |
ADACTIVE_WRITE_GEN_RL |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
435 |
ADACTIVE_WRITE_GEN_RS |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_ad.F |
442 |
ADACTIVE_WRITE_GEN_RS |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_ad.F |
443 |
ADACTIVE_WRITE_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_ad.F |
449 |
ADACTIVE_WRITE_GEN_RS |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
456 |
ADACTIVE_WRITE_GEN_RS |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_ad.F |
463 |
ADACTIVE_WRITE_GEN_RS |
& fName, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
103 |
G_ACTIVE_READ_GEN_RL |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
114 |
G_ACTIVE_READ_GEN_RL |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
125 |
G_ACTIVE_READ_GEN_RL |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
203 |
G_ACTIVE_READ_GEN_RS |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_g.F |
209 |
G_ACTIVE_READ_GEN_RS |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_g.F |
210 |
G_ACTIVE_READ_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_g.F |
219 |
G_ACTIVE_READ_GEN_RS |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
230 |
G_ACTIVE_READ_GEN_RS |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
241 |
G_ACTIVE_READ_GEN_RS |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
313 |
G_ACTIVE_WRITE_GEN_RL |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_g.F |
320 |
G_ACTIVE_WRITE_GEN_RL |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_g.F |
321 |
G_ACTIVE_WRITE_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_g.F |
331 |
G_ACTIVE_WRITE_GEN_RL |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
342 |
G_ACTIVE_WRITE_GEN_RL |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
353 |
G_ACTIVE_WRITE_GEN_RL |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
425 |
G_ACTIVE_WRITE_GEN_RS |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_g.F |
432 |
G_ACTIVE_WRITE_GEN_RS |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_g.F |
433 |
G_ACTIVE_WRITE_GEN_RS |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/active_file_gen_g.F |
443 |
G_ACTIVE_WRITE_GEN_RS |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
454 |
G_ACTIVE_WRITE_GEN_RS |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
465 |
G_ACTIVE_WRITE_GEN_RS |
& fName, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_gen_g.F |
87 |
G_ACTIVE_READ_GEN_RL |
CHARACTER*(80) fName |
|
./pkg/autodiff/active_file_gen_g.F |
93 |
G_ACTIVE_READ_GEN_RL |
WRITE(fName(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_gen_g.F |
94 |
G_ACTIVE_READ_GEN_RL |
WRITE(fName(1:2+il),'(2A)') pref, activeVar_file(1:il) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
106 |
AUTODIFF_WHTAPEIO_SYNC |
inquire( file=fName, exist=exst ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
112 |
AUTODIFF_WHTAPEIO_SYNC |
OPEN( tapeFileUnit, file=fName, status='unknown', |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
37 |
AUTODIFF_WHTAPEIO_SYNC |
character*(MAX_LEN_FNAM) fName |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
88 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(fName,'(2A,I1.1,A,I3.3,A)') |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
92 |
AUTODIFF_WHTAPEIO_SYNC |
WRITE(fName,'(2A,I1.1,A)') |