| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_mdsreadvector.F |
103 |
FLT_MDSREADVECTOR |
IL=ILNBLNK( fName ) |
|
./pkg/flt/flt_mdsreadvector.F |
112 |
FLT_MDSREADVECTOR |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
123 |
FLT_MDSREADVECTOR |
WRITE(dataFname,'(2A)') fName(1:IL) |
|
./pkg/flt/flt_mdsreadvector.F |
124 |
FLT_MDSREADVECTOR |
iLfn = IL |
|
./pkg/flt/flt_mdsreadvector.F |
130 |
FLT_MDSREADVECTOR |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
131 |
FLT_MDSREADVECTOR |
iLfn = IL+5 |
|
./pkg/flt/flt_mdsreadvector.F |
161 |
FLT_MDSREADVECTOR |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
162 |
FLT_MDSREADVECTOR |
iLfn= IL+8+5 |
|
./pkg/flt/flt_mdsreadvector.F |
72 |
FLT_MDSREADVECTOR |
INTEGER i,iG,jG,irec,dUnit,IL,iLfn |
|
./pkg/flt/flt_traj.F |
51 |
FLT_TRAJ |
INTEGER iG,jG,IL |
|
./pkg/flt/flt_traj.F |
63 |
FLT_TRAJ |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_traj.F |
67 |
FLT_TRAJ |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_up.F |
51 |
FLT_UP |
INTEGER iG,jG,IL |
|
./pkg/flt/flt_up.F |
63 |
FLT_UP |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_up.F |
67 |
FLT_UP |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1004 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
116 |
MDSREADFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
123 |
MDSREADFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1241 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1289 |
MDSWRITEFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1296 |
MDSWRITEFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1314 |
MDSWRITEFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1381 |
MDSWRITEFIELD_2D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
1419 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
145 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1495 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
158 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
181 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
188 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
192 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
225 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
232 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
243 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
479 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
527 |
MDSWRITEFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
534 |
MDSWRITEFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
551 |
MDSWRITEFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
618 |
MDSWRITEFIELD_3D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
656 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
732 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./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 |
834 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
877 |
MDSREADFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
884 |
MDSREADFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
907 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
920 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
942 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
949 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
953 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
986 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
993 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
100 |
MDSREADFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
110 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
117 |
MDSREADFIELD_XZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./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 |
139 |
MDSREADFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./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 |
157 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
328 |
MDSREADFIELD_YZ_GL |
IL=ILNBLNK( 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 |
345 |
MDSREADFIELD_YZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./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 |
366 |
MDSREADFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./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 |
384 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
541 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
573 |
MDSWRITEFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
589 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
662 |
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 |
769 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
801 |
MDSWRITEFIELD_YZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
817 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
890 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_read_field.F |
103 |
MDS_READ_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_field.F |
128 |
MDS_READ_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_field.F |
138 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
154 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
171 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
197 |
MDS_READ_FIELD |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./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 |
226 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
253 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: filename: ', dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_field.F |
450 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
106 |
MDS_READ_SEC_XZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_section.F |
113 |
MDS_READ_SEC_XZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./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 |
140 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
182 |
MDS_READ_SEC_XZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
335 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
362 |
MDS_READ_SEC_YZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_section.F |
369 |
MDS_READ_SEC_YZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./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 |
396 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_read_section.F |
438 |
MDS_READ_SEC_YZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
79 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_readvector.F |
102 |
MDSREADVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
|
./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 |
133 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readvector.F |
175 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening file: ',fName(1:IL), |
|
./pkg/mdsio/mdsio_readvector.F |
248 |
MDSREADVECTOR |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
261 |
MDSREADVECTOR |
& ' MDSREADVECTOR: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_readvector.F |
96 |
MDSREADVECTOR |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
120 |
MDS_WR_METAFILES |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
121 |
MDS_WR_METAFILES |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
122 |
MDS_WR_METAFILES |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
148 |
MDS_WR_METAFILES |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
149 |
MDS_WR_METAFILES |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
94 |
MDS_WR_METAFILES |
INTEGER iG,jG, bi,bj, IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
119 |
MDS_WRITE_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
153 |
MDS_WRITE_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_field.F |
165 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
181 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
198 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
224 |
MDS_WRITE_FIELD |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_field.F |
240 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
389 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
541 |
MDS_WRITE_FIELD |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_write_section.F |
111 |
MDS_WRITE_SEC_XZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_section.F |
118 |
MDS_WRITE_SEC_XZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
127 |
MDS_WRITE_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
318 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
343 |
MDS_WRITE_SEC_YZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_section.F |
350 |
MDS_WRITE_SEC_YZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
359 |
MDS_WRITE_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
86 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_writelocal.F |
115 |
MDS_WRITELOCAL |
INTEGER irec,dUnit,IL |
|
./pkg/mdsio/mdsio_writelocal.F |
147 |
MDS_WRITELOCAL |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writelocal.F |
164 |
MDS_WRITELOCAL |
IF ( debugLevel.GE.debLevA .AND. IL.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
171 |
MDS_WRITELOCAL |
& 'MDS_WRITELOCAL: => write tiled file: ', fName(1:IL) |
|
./pkg/mdsio/mdsio_writelocal.F |
180 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
195 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
264 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
345 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
379 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writelocal.F |
410 |
MDS_WRITELOCAL |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
102 |
MDS_WRITEVEC_LOC |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
119 |
MDS_WRITEVEC_LOC |
& ' MDS_WRITEVEC_LOC: writing to file "', fName(1:IL), '":' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
133 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
134 |
MDS_WRITEVEC_LOC |
pIL = IL + pIL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
136 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
137 |
MDS_WRITEVEC_LOC |
pIL = IL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
153 |
MDS_WRITEVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
213 |
MDS_WRITEVEC_LOC |
WRITE(metaFname,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
79 |
MDS_WRITEVEC_LOC |
INTEGER iG,jG,iRec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_writevector.F |
116 |
MDSWRITEVECTOR |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevector.F |
122 |
MDSWRITEVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevector.F |
140 |
MDSWRITEVECTOR |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
215 |
MDSWRITEVECTOR |
WRITE(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
241 |
MDSWRITEVECTOR |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
343 |
MDSWRITEVECTOR |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
69 |
MDSWRITEVECTOR |
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/profiles_init_fixed.F |
105 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/profiles_init_fixed.F |
106 |
PROFILES_INIT_FIXED |
if (IL.NE.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
112 |
PROFILES_INIT_FIXED |
write(fnamedatanc(1:80),'(2a)') profilesfile(1:IL),'.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
42 |
PROFILES_INIT_FIXED |
integer IL, err |
|
./pkg/profiles/profiles_init_fixed.F |
495 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
497 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
517 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_init_fixed.F |
519 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.data' |
|
./pkg/profiles/profiles_init_fixed.F |
89 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/profiles_init_fixed.F |
90 |
PROFILES_INIT_FIXED |
if (IL.NE.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
92 |
PROFILES_INIT_FIXED |
& profilesfiles(num_file)(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' |
|
./model/src/ini_parms.F |
342 |
INI_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/ini_parms.F |
345 |
INI_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./model/src/ini_parms.F |
347 |
INI_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./model/src/ini_parms.F |
368 |
INI_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/ini_parms.F |
369 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./model/src/ini_parms.F |
62 |
INI_PARMS |
INTEGER k, i, j, IL, iUnit |
|
./eesupp/src/eeset_parms.F |
151 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
154 |
EESET_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
156 |
EESET_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
176 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
177 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
42 |
EESET_PARMS |
INTEGER IL |
|
./eesupp/src/nml_set_terminator.F |
46 |
NML_SET_TERMINATOR |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/nml_set_terminator.F |
47 |
NML_SET_TERMINATOR |
IF ( IL .EQ. 2 ) THEN |
|
./eesupp/src/open_copy_data_file.F |
118 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
119 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
48 |
OPEN_COPY_DATA_FILE |
INTEGER errIO,IL |
|
./eesupp/src/open_copy_data_file.F |
92 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
95 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
97 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./pkg/ecco/ecco_cost_final.F |
1189 |
ECCO_COST_FINAL |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/ecco/ecco_cost_final.F |
118 |
ECCO_COST_FINAL |
INTEGER IL |
|
./pkg/ecco/ecco_cost_final.F |
1191 |
ECCO_COST_FINAL |
& profilesfiles(num_file)(1:IL), prof_names(num_var), ' = ', |
|
./pkg/exf/exf_interp_read.F |
113 |
EXF_INTERP_READ |
IL = ILNBLNK( infile ) |
|
./pkg/exf/exf_interp_read.F |
118 |
EXF_INTERP_READ |
& ' EXF_INTERP_READ: opening file: ',infile(1:IL) |
|
./pkg/exf/exf_interp_read.F |
124 |
EXF_INTERP_READ |
& ' EXF_INTERP_READ: filename: ', infile(1:IL) |
|
./pkg/exf/exf_interp_read.F |
53 |
EXF_INTERP_READ |
INTEGER ioUnit, length_of_rec, IL |