| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_gl.F |
127 |
MDSREADFIELD_3D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
1303 |
MDSWRITEFIELD_2D_GL |
integer pIL |
|
./pkg/mdsio/mdsio_gl.F |
131 |
MDSREADFIELD_3D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
132 |
MDSREADFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1339 |
MDSWRITEFIELD_2D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
1343 |
MDSWRITEFIELD_2D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
1344 |
MDSWRITEFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
515 |
MDSWRITEFIELD_3D_GL |
integer pIL |
|
./pkg/mdsio/mdsio_gl.F |
551 |
MDSWRITEFIELD_3D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
555 |
MDSWRITEFIELD_3D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
556 |
MDSWRITEFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
880 |
MDSREADFIELD_2D_GL |
integer pIL |
|
./pkg/mdsio/mdsio_gl.F |
914 |
MDSREADFIELD_2D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
918 |
MDSREADFIELD_2D_GL |
if ( pIL.NE.0 ) then |
|
./pkg/mdsio/mdsio_gl.F |
919 |
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 |
112 |
MDS_READ_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_field.F |
138 |
MDS_READ_FIELD |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./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 |
158 |
MDS_READ_FIELD |
WRITE(errorMessageUnit,'(3A)')'pfix: >',mdsioLocalDir(1:pIL),'<' |
|
./pkg/mdsio/mdsio_read_field.F |
222 |
MDS_READ_FIELD |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
227 |
MDS_READ_FIELD |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_field.F |
456 |
MDS_READ_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
463 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
474 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
115 |
MDS_READ_SEC_XZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_section.F |
118 |
MDS_READ_SEC_XZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
123 |
MDS_READ_SEC_XZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_section.F |
172 |
MDS_READ_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
179 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: opening file: ',dataFName(1:pIL+13) |
|
./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 |
393 |
MDS_READ_SEC_YZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_section.F |
396 |
MDS_READ_SEC_YZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
401 |
MDS_READ_SEC_YZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_section.F |
450 |
MDS_READ_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
457 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: opening file: ',dataFName(1:pIL+13) |
|
./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 |
101 |
MDS_READ_TAPE |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./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 |
109 |
MDS_READ_TAPE |
pIL = ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_tape.F |
209 |
MDS_READ_TAPE |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_tape.F |
214 |
MDS_READ_TAPE |
& ' MDS_READ_TAPE: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_tape.F |
226 |
MDS_READ_TAPE |
& ' , ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_tape.F |
63 |
MDS_READ_TAPE |
INTEGER iG, jG, jRec, dUnit, IL, pIL |
|
./pkg/mdsio/mdsio_readvec_loc.F |
132 |
MDS_READVEC_LOC |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./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 |
137 |
MDS_READVEC_LOC |
pIL = IL |
|
./pkg/mdsio/mdsio_readvec_loc.F |
166 |
MDS_READVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_readvec_loc.F |
167 |
MDS_READVEC_LOC |
iLfn= pIL+8+5 |
|
./pkg/mdsio/mdsio_readvec_loc.F |
82 |
MDS_READVEC_LOC |
INTEGER iG,jG,dUnit,IL,pIL,iLfn |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
147 |
MDS_WR_METAFILES |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
148 |
MDS_WR_METAFILES |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
154 |
MDS_WR_METAFILES |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
163 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
166 |
MDS_WR_METAFILES |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./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 |
164 |
MDS_WRITE_FIELD |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./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 |
186 |
MDS_WRITE_FIELD |
WRITE(errorMessageUnit,'(3A)')'pfix: >',mdsioLocalDir(1:pIL),'<' |
|
./pkg/mdsio/mdsio_write_field.F |
250 |
MDS_WRITE_FIELD |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
255 |
MDS_WRITE_FIELD |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_field.F |
259 |
MDS_WRITE_FIELD |
& kSize, kLo, kHi, ' file=', pfName(1:pIL) |
|
./pkg/mdsio/mdsio_write_field.F |
500 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
534 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_write_section.F |
121 |
MDS_WRITE_SEC_XZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_section.F |
124 |
MDS_WRITE_SEC_XZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
129 |
MDS_WRITE_SEC_XZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_section.F |
158 |
MDS_WRITE_SEC_XZ |
& pfName(1:pIL),'.',iG,'.',jG,'.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 |
374 |
MDS_WRITE_SEC_YZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_section.F |
377 |
MDS_WRITE_SEC_YZ |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./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 |
382 |
MDS_WRITE_SEC_YZ |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_section.F |
411 |
MDS_WRITE_SEC_YZ |
& pfName(1:pIL),'.',iG,'.',jG,'.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 |
141 |
MDS_WRITE_TAPE |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_tape.F |
144 |
MDS_WRITE_TAPE |
IF ( pIL.EQ.0 ) THEN |
|
./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 |
149 |
MDS_WRITE_TAPE |
pIL = ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_tape.F |
153 |
MDS_WRITE_TAPE |
& ' MDS_WRITE_TAPE: iRec=', iRec, ', file=', pfName(1:pIL) |
|
./pkg/mdsio/mdsio_write_tape.F |
239 |
MDS_WRITE_TAPE |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_tape.F |
300 |
MDS_WRITE_TAPE |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_write_tape.F |
70 |
MDS_WRITE_TAPE |
INTEGER iG, jG, jRec, dUnit, IL, pIL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
137 |
MDS_WRITEVEC_LOC |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./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 |
142 |
MDS_WRITEVEC_LOC |
pIL = IL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
164 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
180 |
MDS_WRITEVEC_LOC |
& ' MDS_WRITEVEC_LOC: open file: ',dataFname(1:pIL+13) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
230 |
MDS_WRITEVEC_LOC |
& pfName(1:pIL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
83 |
MDS_WRITEVEC_LOC |
INTEGER iG,jG,iRec,dUnit,IL,pIL |
|
./pkg/profiles/profiles_ini_io.F |
39 |
PROFILES_INI_IO |
INTEGER iL, pIL |
|
./pkg/profiles/profiles_ini_io.F |
55 |
PROFILES_INI_IO |
pIL = 1 + ILNBLNK( namBuf ) |
|
./pkg/profiles/profiles_ini_io.F |
57 |
PROFILES_INI_IO |
& '==> SYSTEM CALL (from PROFILES_INI_IO): >',namBuf(1:pIL),'<' |
|
./pkg/profiles/profiles_ini_io.F |
58 |
PROFILES_INI_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
|
./model/src/ini_model_io.F |
152 |
INI_MODEL_IO |
pIL = 1 + ILNBLNK( namBuf ) |
|
./model/src/ini_model_io.F |
155 |
INI_MODEL_IO |
& '==> SYSTEM CALL (from INI_MODEL_IO): >',namBuf(1:pIL),'<' |
|
./model/src/ini_model_io.F |
156 |
INI_MODEL_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
|
./model/src/ini_model_io.F |
165 |
INI_MODEL_IO |
& 'Skip command: >',namBuf(1:pIL),'<' |
|
./model/src/ini_model_io.F |
46 |
INI_MODEL_IO |
INTEGER i, iL, pIL |
|
./pkg/autodiff/autodiff_ini_model_io.F |
55 |
AUTODIFF_INI_MODEL_IO |
INTEGER iL, pIL, myLev |
|
./pkg/autodiff/autodiff_ini_model_io.F |
76 |
AUTODIFF_INI_MODEL_IO |
pIL = 1 + ILNBLNK( namBuf ) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
79 |
AUTODIFF_INI_MODEL_IO |
& namBuf(1:pIL), '<' |
|
./pkg/autodiff/autodiff_ini_model_io.F |
80 |
AUTODIFF_INI_MODEL_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
|
./pkg/diagnostics/diagnostics_ini_io.F |
36 |
DIAGNOSTICS_INI_IO |
INTEGER iL, pIL |
|
./pkg/diagnostics/diagnostics_ini_io.F |
50 |
DIAGNOSTICS_INI_IO |
pIL = 1 + ILNBLNK( namBuf ) |
|
./pkg/diagnostics/diagnostics_ini_io.F |
53 |
DIAGNOSTICS_INI_IO |
& '>', namBuf(1:pIL), '<' |
|
./pkg/diagnostics/diagnostics_ini_io.F |
54 |
DIAGNOSTICS_INI_IO |
CALL SYSTEM( namBuf(1:pIL) ) |