| 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 |
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 |
203 |
MDS_READ_FIELD |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
206 |
MDS_READ_FIELD |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_field.F |
208 |
MDS_READ_FIELD |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_field.F |
441 |
MDS_READ_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
448 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: opening file: ',dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
459 |
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_whalos.F |
112 |
MDS_READ_WHALOS |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
113 |
MDS_READ_WHALOS |
IF ( pIL.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
116 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_whalos.F |
118 |
MDS_READ_WHALOS |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
120 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') pfName(1:pIL),'.',myProcId,'.data' |
|
./pkg/mdsio/mdsio_read_whalos.F |
123 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A)') pfName(1:pIL),'.data' |
|
./pkg/mdsio/mdsio_read_whalos.F |
82 |
MDS_READ_WHALOS |
integer 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_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 |
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 |
231 |
MDS_WRITE_FIELD |
IF ( useCurrentDir .OR. pIL.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
234 |
MDS_WRITE_FIELD |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_field.F |
236 |
MDS_WRITE_FIELD |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_field.F |
474 |
MDS_WRITE_FIELD |
& pfName(1:pIL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
508 |
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_whalos.F |
114 |
MDS_WRITE_WHALOS |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
115 |
MDS_WRITE_WHALOS |
IF ( pIL.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
118 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_whalos.F |
120 |
MDS_WRITE_WHALOS |
pIL=ILNBLNK( pfName ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
122 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A,I3.3,A)') pfName(1:pIL),'.',myProcId,'.data' |
|
./pkg/mdsio/mdsio_write_whalos.F |
125 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A)') pfName(1:pIL),'.data' |
|
./pkg/mdsio/mdsio_write_whalos.F |
84 |
MDS_WRITE_WHALOS |
integer 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/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 |
146 |
INI_MODEL_IO |
pIL = 1 + ILNBLNK( namBuf ) |
|
./model/src/ini_model_io.F |
148 |
INI_MODEL_IO |
& '==> SYSTEM CALL (from INI_MODEL_IO): >',namBuf(1:pIL),'<' |
|
./model/src/ini_model_io.F |
149 |
INI_MODEL_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
|
./model/src/ini_model_io.F |
46 |
INI_MODEL_IO |
INTEGER i, iL, pIL |