| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_gl.F |
118 |
MDSREADFIELD_3D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
122 |
MDSREADFIELD_3D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
123 |
MDSREADFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1264 |
MDSWRITEFIELD_2D_GL |
integer pIL |
|
./pkg/mdsio/mdsio_gl.F |
1291 |
MDSWRITEFIELD_2D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
1295 |
MDSWRITEFIELD_2D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
1296 |
MDSWRITEFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
502 |
MDSWRITEFIELD_3D_GL |
integer pIL |
|
./pkg/mdsio/mdsio_gl.F |
529 |
MDSWRITEFIELD_3D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
533 |
MDSWRITEFIELD_3D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
534 |
MDSWRITEFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
854 |
MDSREADFIELD_2D_GL |
integer pIL |
|
./pkg/mdsio/mdsio_gl.F |
879 |
MDSREADFIELD_2D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
883 |
MDSREADFIELD_2D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
884 |
MDSREADFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
93 |
MDSREADFIELD_3D_GL |
integer pIL |
|
./pkg/mdsio/mdsio_read_field.F |
103 |
MDS_READ_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_field.F |
129 |
MDS_READ_FIELD |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_field.F |
194 |
MDS_READ_FIELD |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
199 |
MDS_READ_FIELD |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_field.F |
432 |
MDS_READ_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
439 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
450 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
107 |
MDS_READ_SEC_XZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_section.F |
110 |
MDS_READ_SEC_XZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
115 |
MDS_READ_SEC_XZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_section.F |
164 |
MDS_READ_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
171 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
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 |
363 |
MDS_READ_SEC_YZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_section.F |
366 |
MDS_READ_SEC_YZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
371 |
MDS_READ_SEC_YZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_section.F |
420 |
MDS_READ_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
427 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
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 |
106 |
MDSREADVECTOR |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_readvector.F |
157 |
MDSREADVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
164 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_readvector.F |
176 |
MDSREADVECTOR |
& ' , ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_readvector.F |
97 |
MDSREADVECTOR |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
144 |
MDS_WR_METAFILES |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
145 |
MDS_WR_METAFILES |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
151 |
MDS_WR_METAFILES |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
160 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
163 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./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 |
154 |
MDS_WRITE_FIELD |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_field.F |
221 |
MDS_WRITE_FIELD |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
226 |
MDS_WRITE_FIELD |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_field.F |
461 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
495 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_write_section.F |
112 |
MDS_WRITE_SEC_XZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_section.F |
115 |
MDS_WRITE_SEC_XZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
120 |
MDS_WRITE_SEC_XZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_section.F |
149 |
MDS_WRITE_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.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 |
344 |
MDS_WRITE_SEC_YZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_section.F |
347 |
MDS_WRITE_SEC_YZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
352 |
MDS_WRITE_SEC_YZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_section.F |
381 |
MDS_WRITE_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.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_writevec_loc.F |
132 |
MDS_WRITEVEC_LOC |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./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 |
137 |
MDS_WRITEVEC_LOC |
pIL = IL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
159 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
175 |
MDS_WRITEVEC_LOC |
& ' MDS_WRITEVEC_LOC: open file: ',dataFname(1:pIL+13) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
225 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
79 |
MDS_WRITEVEC_LOC |
INTEGER iG,jG,iRec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_writevector.F |
117 |
MDSWRITEVECTOR |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_writevector.F |
122 |
MDSWRITEVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevector.F |
126 |
MDSWRITEVECTOR |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_writevector.F |
263 |
MDSWRITEVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
315 |
MDSWRITEVECTOR |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
69 |
MDSWRITEVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./model/src/ini_model_io.F |
145 |
INI_MODEL_IO |
pIL = 1 + ILNBLNK( namBuf ) |
|
./model/src/ini_model_io.F |
147 |
INI_MODEL_IO |
& '==> SYSTEM CALL (from INI_MODEL_IO): >',namBuf(1:pIL),'<' |
|
./model/src/ini_model_io.F |
148 |
INI_MODEL_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
|
./model/src/ini_model_io.F |
46 |
INI_MODEL_IO |
INTEGER i, iL, pIL |