| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_readparms.F |
53 |
ECCO_READPARMS |
INTEGER IL, kk, gencost_k3d, gencost_msk_k3d, ioUnit |
|
./pkg/exf/exf_interp_read.F |
111 |
EXF_INTERP_READ |
IL = ILNBLNK( infile ) |
|
./pkg/exf/exf_interp_read.F |
116 |
EXF_INTERP_READ |
& ' EXF_INTERP_READ: opening file: ',infile(1:IL) |
|
./pkg/exf/exf_interp_read.F |
122 |
EXF_INTERP_READ |
& ' EXF_INTERP_READ: filename: ', infile(1:IL) |
|
./pkg/exf/exf_interp_read.F |
52 |
EXF_INTERP_READ |
INTEGER ioUnit, length_of_rec, IL |
|
./pkg/mdsio/mdsio_gl.F |
1021 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1028 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
1039 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
125 |
MDSREADFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1280 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./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 |
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 |
167 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
190 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
197 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
201 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
234 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
241 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
252 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
492 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./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 |
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 |
73 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
758 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./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 |
942 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
955 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
977 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
984 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
988 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
109 |
MDSREADFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
119 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
126 |
MDSREADFIELD_XZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./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 |
148 |
MDSREADFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./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 |
166 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
350 |
MDSREADFIELD_YZ_GL |
IL=ILNBLNK( 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 |
367 |
MDSREADFIELD_YZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./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 |
388 |
MDSREADFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./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 |
406 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
567 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./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 |
72 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
808 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./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 |
112 |
MDS_READ_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_field.F |
137 |
MDS_READ_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_field.F |
147 |
MDS_READ_FIELD |
IF ( useCurrentDir .AND. (90+IL).GT.MAX_LEN_MBUF ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
149 |
MDS_READ_FIELD |
& 'Too long (IL=',IL,') file name:' |
|
./pkg/mdsio/mdsio_read_field.F |
151 |
MDS_READ_FIELD |
WRITE(errorMessageUnit,'(3A)')'file: >',fName(1:IL),'<' |
|
./pkg/mdsio/mdsio_read_field.F |
154 |
MDS_READ_FIELD |
ELSEIF ( (90+IL+pIL).GT.MAX_LEN_MBUF ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
156 |
MDS_READ_FIELD |
& 'Too long (pIL=',pIL,', IL=',IL,') pfix + file name:' |
|
./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 |
225 |
MDS_READ_FIELD |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./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 |
252 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
277 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: filename: ', dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
474 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
114 |
MDS_READ_SEC_XZ |
IL = ILNBLNK( 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 |
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 |
148 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
190 |
MDS_READ_SEC_XZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
361 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
392 |
MDS_READ_SEC_YZ |
IL = ILNBLNK( 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 |
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 |
426 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
468 |
MDS_READ_SEC_YZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
84 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./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 |
121 |
MDS_READ_TAPE |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./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 |
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 |
192 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_tape.F |
225 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: missing file: ',fName(1:IL), |
|
./pkg/mdsio/mdsio_read_tape.F |
63 |
MDS_READ_TAPE |
INTEGER iG, jG, jRec, dUnit, IL, pIL |
|
./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 |
85 |
MDS_READ_WHALOS |
integer IL |
|
./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 |
133 |
MDS_READVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
134 |
MDS_READVEC_LOC |
pIL = IL + pIL |
|
./pkg/mdsio/mdsio_readvec_loc.F |
136 |
MDS_READVEC_LOC |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
137 |
MDS_READVEC_LOC |
pIL = IL |
|
./pkg/mdsio/mdsio_readvec_loc.F |
146 |
MDS_READVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
147 |
MDS_READVEC_LOC |
iLfn = IL |
|
./pkg/mdsio/mdsio_readvec_loc.F |
154 |
MDS_READVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvec_loc.F |
155 |
MDS_READVEC_LOC |
iLfn = IL+5 |
|
./pkg/mdsio/mdsio_readvec_loc.F |
82 |
MDS_READVEC_LOC |
INTEGER iG,jG,dUnit,IL,pIL,iLfn |
|
./pkg/mdsio/mdsio_readvec_loc.F |
92 |
MDS_READVEC_LOC |
IL = ILNBLNK( 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 |
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 |
97 |
MDS_WR_METAFILES |
INTEGER iG,jG, bi,bj, IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
129 |
MDS_WRITE_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
163 |
MDS_WRITE_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_field.F |
175 |
MDS_WRITE_FIELD |
IF ( useCurrentDir .AND. (90+IL).GT.MAX_LEN_MBUF ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
177 |
MDS_WRITE_FIELD |
& 'Too long (IL=',IL,') file name:' |
|
./pkg/mdsio/mdsio_write_field.F |
179 |
MDS_WRITE_FIELD |
WRITE(errorMessageUnit,'(3A)')'file: >',fName(1:IL),'<' |
|
./pkg/mdsio/mdsio_write_field.F |
182 |
MDS_WRITE_FIELD |
ELSEIF ( (90+IL+pIL).GT.MAX_LEN_MBUF ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
184 |
MDS_WRITE_FIELD |
& 'Too long (pIL=',pIL,', IL=',IL,') pfix + file name:' |
|
./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 |
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_section.F |
120 |
MDS_WRITE_SEC_XZ |
IL = ILNBLNK( 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 |
345 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
373 |
MDS_WRITE_SEC_YZ |
IL = ILNBLNK( 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 |
91 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_tape.F |
140 |
MDS_WRITE_TAPE |
IL = ILNBLNK( 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 |
70 |
MDS_WRITE_TAPE |
INTEGER iG, jG, jRec, dUnit, IL, pIL |
|
./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 |
87 |
MDS_WRITE_WHALOS |
integer IL |
|
./pkg/mdsio/mdsio_writelocal.F |
116 |
MDS_WRITELOCAL |
INTEGER irec,dUnit,IL |
|
./pkg/mdsio/mdsio_writelocal.F |
148 |
MDS_WRITELOCAL |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writelocal.F |
165 |
MDS_WRITELOCAL |
IF ( debugLevel.GE.debLevA .AND. IL.GT.0 ) THEN |
|
./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_writevec_loc.F |
103 |
MDS_WRITEVEC_LOC |
IL = ILNBLNK( 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 |
139 |
MDS_WRITEVEC_LOC |
pIL = IL + pIL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
141 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
142 |
MDS_WRITEVEC_LOC |
pIL = 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 |
83 |
MDS_WRITEVEC_LOC |
INTEGER iG,jG,iRec,dUnit,IL,pIL |
|
./pkg/monitor/mon_out.F |
124 |
MON_OUT_ALL |
INTEGER i, I0,I1, IL |
|
./pkg/monitor/mon_out.F |
144 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
145 |
MON_OUT_ALL |
IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_out.F |
146 |
MON_OUT_ALL |
msgBuf(1:IL) = mon_head |
|
./pkg/monitor/mon_out.F |
147 |
MON_OUT_ALL |
lBuf = IL+1 |
|
./pkg/monitor/mon_out.F |
164 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
165 |
MON_OUT_ALL |
IF ( IL .GT. 0 ) THEN |
|
./pkg/monitor/mon_out.F |
167 |
MON_OUT_ALL |
& lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_out.F |
169 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
170 |
MON_OUT_ALL |
lBuf = lBuf+IL-1 |
|
./pkg/monitor/mon_out.F |
171 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
172 |
MON_OUT_ALL |
nvname = nvname + IL |
|
./pkg/monitor/mon_out.F |
178 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
179 |
MON_OUT_ALL |
IF ( IL .GT. 0 ) THEN |
|
./pkg/monitor/mon_out.F |
181 |
MON_OUT_ALL |
& lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_out.F |
183 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
184 |
MON_OUT_ALL |
lBuf = lBuf+IL-1 |
|
./pkg/monitor/mon_out.F |
185 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
186 |
MON_OUT_ALL |
nvname = nvname + IL |
|
./pkg/monitor/mon_set_pref.F |
35 |
MON_SET_PREF |
INTEGER IL |
|
./pkg/monitor/mon_set_pref.F |
44 |
MON_SET_PREF |
IL = I1-I0+1 |
|
./pkg/monitor/mon_set_pref.F |
45 |
MON_SET_PREF |
IF ( IL .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_set_pref.F |
47 |
MON_SET_PREF |
mon_prefL = IL |
|
./pkg/monitor/mon_set_pref.F |
48 |
MON_SET_PREF |
mon_pref(1:IL) = prefString(I0:I1) |
|
./pkg/profiles/cost_profiles.F |
142 |
COST_PROFILES |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/cost_profiles.F |
144 |
COST_PROFILES |
& profilesfiles(num_file)(1:IL) |
|
./pkg/profiles/cost_profiles.F |
145 |
COST_PROFILES |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/cost_profiles.F |
148 |
COST_PROFILES |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/cost_profiles.F |
421 |
COST_PROFILES |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/cost_profiles.F |
423 |
COST_PROFILES |
& profilesfiles(num_file)(1:IL) |
|
./pkg/profiles/cost_profiles.F |
424 |
COST_PROFILES |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/cost_profiles.F |
427 |
COST_PROFILES |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/cost_profiles.F |
54 |
COST_PROFILES |
integer IL, JL, err |
|
./pkg/profiles/profiles_init_fixed.F |
167 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/profiles_init_fixed.F |
168 |
PROFILES_INIT_FIXED |
if (IL.NE.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
170 |
PROFILES_INIT_FIXED |
& profilesfiles(num_file)(1:IL) |
|
./pkg/profiles/profiles_init_fixed.F |
175 |
PROFILES_INIT_FIXED |
& 'profiles file #',num_file,' is ', profilesfile(1:IL) |
|
./pkg/profiles/profiles_init_fixed.F |
180 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/profiles_init_fixed.F |
181 |
PROFILES_INIT_FIXED |
if (IL.NE.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
187 |
PROFILES_INIT_FIXED |
write(fnamedatanc(1:80),'(2a)') profilesfile(1:IL),'.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
230 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/profiles_init_fixed.F |
232 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
252 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/profiles_init_fixed.F |
254 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
270 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/profiles_init_fixed.F |
272 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
318 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/profiles_init_fixed.F |
320 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
341 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
544 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
557 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
568 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
579 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
58 |
PROFILES_INIT_FIXED |
integer IL, JL, KL, err |
|
./pkg/profiles/profiles_init_fixed.F |
597 |
PROFILES_INIT_FIXED |
& 'PROFILES_INIT_FIXED: file ', profilesfile(1:IL), |
|
./pkg/profiles/profiles_init_fixed.F |
676 |
PROFILES_INIT_FIXED |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
679 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
705 |
PROFILES_INIT_FIXED |
& profilesDir(1:JL),profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_init_fixed.F |
708 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_readparms.F |
175 |
PROFILES_READPARMS |
IL = ILNBLNK( prof_names(num_file,num_var) ) |
|
./pkg/profiles/profiles_readparms.F |
177 |
PROFILES_READPARMS |
& prof_names(num_file,num_var)(1:IL),'mask' |
|
./pkg/profiles/profiles_readparms.F |
179 |
PROFILES_READPARMS |
& prof_names(num_file,num_var)(1:IL),'weight' |
|
./pkg/profiles/profiles_readparms.F |
182 |
PROFILES_READPARMS |
& prof_names(num_file,num_var)(1:IL),'clim' |
|
./pkg/profiles/profiles_readparms.F |
187 |
PROFILES_READPARMS |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/profiles_readparms.F |
188 |
PROFILES_READPARMS |
fname = profilesfiles(num_file)(1:IL)//'.nc' |
|
./pkg/profiles/profiles_readparms.F |
194 |
PROFILES_READPARMS |
& profilesfiles(num_file)(1:IL),' gets switched off' |
|
./pkg/profiles/profiles_readparms.F |
39 |
PROFILES_READPARMS |
INTEGER iUnit, num_file, num_var, IL |
|
./pkg/rbcs/rbcs_fields_load.F |
131 |
RBCS_FIELDS_LOAD |
IL=ILNBLNK( relaxUFile ) |
|
./pkg/rbcs/rbcs_fields_load.F |
132 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxUFile(1:IL),'.',initer0 |
|
./pkg/rbcs/rbcs_fields_load.F |
134 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxUFile(1:IL),'.',initer1 |
|
./pkg/rbcs/rbcs_fields_load.F |
143 |
RBCS_FIELDS_LOAD |
IL=ILNBLNK( relaxVFile ) |
|
./pkg/rbcs/rbcs_fields_load.F |
144 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxVFile(1:IL),'.',initer0 |
|
./pkg/rbcs/rbcs_fields_load.F |
146 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2A,I10.10)') relaxVFile(1:IL),'.',initer1 |
|
./pkg/rbcs/rbcs_fields_load.F |
161 |
RBCS_FIELDS_LOAD |
IL=ILNBLNK( relaxTFile ) |
|
./pkg/rbcs/rbcs_fields_load.F |
162 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxTFile(1:IL),'.',initer0 |
|
./pkg/rbcs/rbcs_fields_load.F |
164 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxTFile(1:IL),'.',initer1 |
|
./pkg/rbcs/rbcs_fields_load.F |
175 |
RBCS_FIELDS_LOAD |
IL=ILNBLNK( relaxSFile ) |
|
./pkg/rbcs/rbcs_fields_load.F |
176 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxSFile(1:IL),'.',initer0 |
|
./pkg/rbcs/rbcs_fields_load.F |
178 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxSFile(1:IL),'.',initer1 |
|
./pkg/rbcs/rbcs_fields_load.F |
194 |
RBCS_FIELDS_LOAD |
IL=ILNBLNK( relaxPtracerFile(iTracer) ) |
|
./pkg/rbcs/rbcs_fields_load.F |
195 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxPtracerFile(iTracer)(1:IL) |
|
./pkg/rbcs/rbcs_fields_load.F |
200 |
RBCS_FIELDS_LOAD |
WRITE(fullName,'(2a,i10.10)') relaxPtracerFile(iTracer)(1:IL) |
|
./pkg/rbcs/rbcs_fields_load.F |
62 |
RBCS_FIELDS_LOAD |
INTEGER IL, initer0, initer1 |
|
./model/src/ini_model_io.F |
142 |
INI_MODEL_IO |
IF ( 2*IL.GT.MAX_LEN_FNAM ) THEN |
|
./model/src/ini_model_io.F |
144 |
INI_MODEL_IO |
& 'Too long (IL=',IL,') mdsioLocalDir:' |
|
./model/src/ini_model_io.F |
147 |
INI_MODEL_IO |
& 'localDir: >',mdsioLocalDir(1:IL),'<' |
|
./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 |
324 |
NO PROCEDURE |
IL=ILNBLNK( fname ) |
|
./verification/flt_example/extra/cvprofiles.F |
325 |
NO PROCEDURE |
outname2=fname(1:IL)//'.cdf' |
|
./verification/flt_example/extra/cvprofiles.F |
327 |
NO PROCEDURE |
& ' ==> Writing a profiles to file ',outname2(1:IL+4) |
|
./verification/flt_example/extra/cvprofiles.F |
328 |
NO PROCEDURE |
ncid = nccre(outname2(1:IL+4), NCCLOB, iret) |
|
./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' |
|
./eesupp/src/eeset_parms.F |
188 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
191 |
EESET_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
193 |
EESET_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
214 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
215 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
52 |
EESET_PARMS |
INTEGER IL |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
38 |
AUTODIFF_WHTAPEIO_SYNC |
integer filePrec, IL, length_of_rec |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
86 |
AUTODIFF_WHTAPEIO_SYNC |
IL = ilnblnk( adTapeDir ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
89 |
AUTODIFF_WHTAPEIO_SYNC |
& adTapeDir(1:IL),'tapes',myLev,'.',myProcId,'.data' |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
93 |
AUTODIFF_WHTAPEIO_SYNC |
& adTapeDir(1:IL),'tapes',myLev,'.data' |
|
./eesupp/src/open_copy_data_file.F |
120 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
124 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
126 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
147 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
148 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
54 |
OPEN_COPY_DATA_FILE |
INTEGER errIO,IL |
|
./pkg/ecco/ecco_cost_final.F |
1531 |
ECCO_COST_FINAL |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/ecco/ecco_cost_final.F |
1532 |
ECCO_COST_FINAL |
IL = max (IL,30) |
|
./pkg/ecco/ecco_cost_final.F |
1534 |
ECCO_COST_FINAL |
& profilesfiles(num_file)(1:IL),' ', |
|
./pkg/ecco/ecco_cost_final.F |
1555 |
ECCO_COST_FINAL |
IL = ILNBLNK( gencost_name(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1556 |
ECCO_COST_FINAL |
IL = max (IL,15) |
|
./pkg/ecco/ecco_cost_final.F |
1558 |
ECCO_COST_FINAL |
& gencost_name(num_var)(1:IL),' (gencost ', num_var, ') = ', |
|
./pkg/ecco/ecco_cost_final.F |
1568 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_gentim2d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1569 |
ECCO_COST_FINAL |
IL = max (IL,15) |
|
./pkg/ecco/ecco_cost_final.F |
1571 |
ECCO_COST_FINAL |
& xx_gentim2d_file(num_var)(1:IL), |
|
./pkg/ecco/ecco_cost_final.F |
1582 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_genarr2d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1583 |
ECCO_COST_FINAL |
IL = max (IL,15) |
|
./pkg/ecco/ecco_cost_final.F |
1585 |
ECCO_COST_FINAL |
& xx_genarr2d_file(num_var)(1:IL), |
|
./pkg/ecco/ecco_cost_final.F |
1596 |
ECCO_COST_FINAL |
IL = ILNBLNK( xx_genarr3d_file(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1597 |
ECCO_COST_FINAL |
IL = max (IL,15) |
|
./pkg/ecco/ecco_cost_final.F |
1599 |
ECCO_COST_FINAL |
& xx_genarr3d_file(num_var)(1:IL), |
|
./pkg/ecco/ecco_cost_final.F |
174 |
ECCO_COST_FINAL |
INTEGER IL |