| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_traj.F |
62 |
FLT_TRAJ |
integer iG,jG,IL |
|
./pkg/flt/flt_traj.F |
76 |
FLT_TRAJ |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_traj.F |
80 |
FLT_TRAJ |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_init.F |
112 |
FLT_INIT |
IL = MAX(ILNBLNK(RECORD),1) |
|
./pkg/flt/flt_init.F |
114 |
FLT_INIT |
& WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./pkg/flt/flt_init.F |
115 |
FLT_INIT |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./pkg/flt/flt_init.F |
136 |
FLT_INIT |
IL = MAX(ILNBLNK(RECORD),1) |
|
./pkg/flt/flt_init.F |
137 |
FLT_INIT |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./pkg/flt/flt_init.F |
58 |
FLT_INIT |
INTEGER K, I, J, IL, iUnit |
|
./pkg/flt/flt_up.F |
63 |
FLT_UP |
integer iG,jG,IL |
|
./pkg/flt/flt_up.F |
77 |
FLT_UP |
IL=ILNBLNK( fn ) |
|
./pkg/flt/flt_up.F |
81 |
FLT_UP |
& fn(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
106 |
MDSREADVECTOR_FLT |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
131 |
MDSREADVECTOR_FLT |
write(dataFname(1:80),'(2a)') fName(1:IL),'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
159 |
MDSREADVECTOR_FLT |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
71 |
MDSREADVECTOR_FLT |
integer iG,jG,irec,dUnit,IL |
|
./pkg/flt/flt_mdsreadvector.F |
96 |
MDSREADVECTOR_FLT |
IL=ILNBLNK( fName ) |
|
./pkg/profiles/profiles_init_fixed.F |
290 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
292 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.nc' |
|
./pkg/profiles/profiles_init_fixed.F |
312 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.bin' |
|
./pkg/profiles/profiles_init_fixed.F |
314 |
PROFILES_INIT_FIXED |
& profilesfile(1:IL),'.',iG,'.',jG,'.equi.bin' |
|
./pkg/profiles/profiles_init_fixed.F |
40 |
PROFILES_INIT_FIXED |
integer IL, err |
|
./pkg/profiles/profiles_init_fixed.F |
67 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/profiles/profiles_init_fixed.F |
68 |
PROFILES_INIT_FIXED |
if (IL.NE.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
70 |
PROFILES_INIT_FIXED |
& profilesfiles(num_file)(1:IL) |
|
./pkg/profiles/profiles_init_fixed.F |
75 |
PROFILES_INIT_FIXED |
IL = ILNBLNK( profilesfile ) |
|
./pkg/profiles/profiles_init_fixed.F |
76 |
PROFILES_INIT_FIXED |
if (IL.NE.0) then |
|
./pkg/profiles/profiles_init_fixed.F |
82 |
PROFILES_INIT_FIXED |
write(fnamedatanc(1:80),'(2a)') profilesfile(1:IL),'.nc' |
|
./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' |
|
./verification/flt_example/extra/cvfloat.F |
120 |
NO PROCEDURE |
IL=ILNBLNK( fName ) |
|
./verification/flt_example/extra/cvfloat.F |
127 |
NO PROCEDURE |
& fName(1:IL),'.',iGmax,'.',1,'.data' |
|
./verification/flt_example/extra/cvfloat.F |
135 |
NO PROCEDURE |
& fName(1:IL),'.',1,'.',jGmax,'.data' |
|
./verification/flt_example/extra/cvfloat.F |
150 |
NO PROCEDURE |
& fName(1:IL),'.001.001.data' |
|
./verification/flt_example/extra/cvfloat.F |
221 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvfloat.F |
281 |
NO PROCEDURE |
IL=ILNBLNK( fname ) |
|
./verification/flt_example/extra/cvfloat.F |
282 |
NO PROCEDURE |
outname2=fname(1:IL)//'.cdf' |
|
./verification/flt_example/extra/cvfloat.F |
284 |
NO PROCEDURE |
& ' ==> Writing a trajectories to file ',outname2(1:IL+4) |
|
./verification/flt_example/extra/cvfloat.F |
285 |
NO PROCEDURE |
ncid = nccre(outname2(1:IL+4), NCCLOB, iret) |
|
./model/src/ini_parms.F |
309 |
INI_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/ini_parms.F |
312 |
INI_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./model/src/ini_parms.F |
314 |
INI_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./model/src/ini_parms.F |
335 |
INI_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/ini_parms.F |
336 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./model/src/ini_parms.F |
51 |
INI_PARMS |
INTEGER K, i, j, IL, iUnit |
|
./model/src/open_copy_data_file.F |
111 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/open_copy_data_file.F |
112 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./model/src/open_copy_data_file.F |
42 |
OPEN_COPY_DATA_FILE |
INTEGER errIO,IL |
|
./model/src/open_copy_data_file.F |
85 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/open_copy_data_file.F |
88 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./model/src/open_copy_data_file.F |
90 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(: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 |
|
./pkg/monitor/mon_out.F |
121 |
MON_OUT_ALL |
INTEGER i, I0,I1, IL |
|
./pkg/monitor/mon_out.F |
145 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
146 |
MON_OUT_ALL |
IF ( IL .GT. 0 .AND. lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_out.F |
147 |
MON_OUT_ALL |
msgBuf(1:IL) = mon_head |
|
./pkg/monitor/mon_out.F |
148 |
MON_OUT_ALL |
lBuf = IL+1 |
|
./pkg/monitor/mon_out.F |
165 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
166 |
MON_OUT_ALL |
IF ( IL .GT. 0 ) THEN |
|
./pkg/monitor/mon_out.F |
168 |
MON_OUT_ALL |
& lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_out.F |
170 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
171 |
MON_OUT_ALL |
lBuf = lBuf+IL-1 |
|
./pkg/monitor/mon_out.F |
172 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = pref(I0:I1) |
|
./pkg/monitor/mon_out.F |
173 |
MON_OUT_ALL |
nvname = nvname + IL |
|
./pkg/monitor/mon_out.F |
179 |
MON_OUT_ALL |
IL = I1-I0+1 |
|
./pkg/monitor/mon_out.F |
180 |
MON_OUT_ALL |
IF ( IL .GT. 0 ) THEN |
|
./pkg/monitor/mon_out.F |
182 |
MON_OUT_ALL |
& lBuf+IL+1 .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_out.F |
184 |
MON_OUT_ALL |
msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
185 |
MON_OUT_ALL |
lBuf = lBuf+IL-1 |
|
./pkg/monitor/mon_out.F |
186 |
MON_OUT_ALL |
mon_vname((nvname+1):(nvname+IL)) = foot(I0:I1) |
|
./pkg/monitor/mon_out.F |
187 |
MON_OUT_ALL |
nvname = nvname + IL |
|
./pkg/monitor/mon_set_pref.F |
35 |
MON_SET_PREF |
INTEGER IL |
|
./pkg/monitor/mon_set_pref.F |
43 |
MON_SET_PREF |
IL = I1-I0+1 |
|
./pkg/monitor/mon_set_pref.F |
44 |
MON_SET_PREF |
IF ( IL .LE. MAX_LEN_MBUF ) THEN |
|
./pkg/monitor/mon_set_pref.F |
46 |
MON_SET_PREF |
mon_prefL = IL |
|
./pkg/monitor/mon_set_pref.F |
47 |
MON_SET_PREF |
mon_pref(1:IL) = prefString(I0:I1) |
|
./pkg/sbo/sbo_writevector.F |
101 |
SBO_WRITEVECTOR |
write(dataFname(1:80),'(2a)') fName(1:IL),'.data' |
|
./pkg/sbo/sbo_writevector.F |
137 |
SBO_WRITEVECTOR |
write(metaFName(1:80),'(2a)') fName(1:IL),'.meta' |
|
./pkg/sbo/sbo_writevector.F |
69 |
SBO_WRITEVECTOR |
integer dUnit,IL |
|
./pkg/sbo/sbo_writevector.F |
95 |
SBO_WRITEVECTOR |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevector.F |
110 |
MDSWRITEVECTOR |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevector.F |
116 |
MDSWRITEVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevector.F |
134 |
MDSWRITEVECTOR |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
201 |
MDSWRITEVECTOR |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
226 |
MDSWRITEVECTOR |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
324 |
MDSWRITEVECTOR |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
66 |
MDSWRITEVECTOR |
integer iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
106 |
MDSREADFIELDXZ |
& ' MDSREADFIELDXZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_slice.F |
115 |
MDSREADFIELDXZ |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice.F |
120 |
MDSREADFIELDXZ |
& ' MDSREADFIELDXZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_slice.F |
162 |
MDSREADFIELDXZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_slice.F |
297 |
MDSREADFIELDYZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
324 |
MDSREADFIELDYZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice.F |
331 |
MDSREADFIELDYZ |
write(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_slice.F |
344 |
MDSREADFIELDYZ |
& ' MDSREADFIELDYZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_slice.F |
353 |
MDSREADFIELDYZ |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice.F |
358 |
MDSREADFIELDYZ |
& ' MDSREADFIELDYZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_slice.F |
400 |
MDSREADFIELDYZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_slice.F |
541 |
MDSWRITEFIELDXZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
566 |
MDSWRITEFIELDXZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice.F |
573 |
MDSWRITEFIELDXZ |
write(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_slice.F |
582 |
MDSWRITEFIELDXZ |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice.F |
59 |
MDSREADFIELDXZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
759 |
MDSWRITEFIELDYZ |
integer iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_slice.F |
784 |
MDSWRITEFIELDYZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice.F |
791 |
MDSWRITEFIELDYZ |
write(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_slice.F |
800 |
MDSWRITEFIELDYZ |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice.F |
86 |
MDSREADFIELDXZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice.F |
93 |
MDSREADFIELDXZ |
write(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
108 |
MDSREADFIELD_LOC |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readfield_loc.F |
113 |
MDSREADFIELD_LOC |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
137 |
MDSREADFIELD_LOC |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_readfield_loc.F |
144 |
MDSREADFIELD_LOC |
& ' MDSREADFIELD: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
155 |
MDSREADFIELD_LOC |
& ' MDSREADFIELD: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
61 |
MDSREADFIELD_LOC |
integer iG,jG,irec,bi,bj,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_readfield_loc.F |
88 |
MDSREADFIELD_LOC |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_readfield_loc.F |
99 |
MDSREADFIELD_LOC |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_writetile.F |
103 |
MDS_WRITETILE |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writetile.F |
110 |
MDS_WRITETILE |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writetile.F |
132 |
MDS_WRITETILE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writetile.F |
214 |
MDS_WRITETILE |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writetile.F |
266 |
MDS_WRITETILE |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writetile.F |
77 |
MDS_WRITETILE |
integer iG,jG,irec,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_readtile.F |
100 |
MDS_READTILE |
& ' MDS_READTILE: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readtile.F |
108 |
MDS_READTILE |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readtile.F |
112 |
MDS_READTILE |
& ' MDS_READTILE: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readtile.F |
136 |
MDS_READTILE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_readtile.F |
142 |
MDS_READTILE |
& ' MDS_READTILE: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_readtile.F |
152 |
MDS_READTILE |
& ' MDS_READTILE: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_readtile.F |
63 |
MDS_READTILE |
integer iG,jG,irec,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_readtile.F |
90 |
MDS_READTILE |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
105 |
MDSREADFIELDXZ_LOC |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
110 |
MDSREADFIELDXZ_LOC |
& ' MDSREADFIELDXZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_slice_loc.F |
134 |
MDSREADFIELDXZ_LOC |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
141 |
MDSREADFIELDXZ_LOC |
& ' MDSREADFIELDXZ: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_slice_loc.F |
152 |
MDSREADFIELDXZ_LOC |
& ' MDSREADFIELDXZ: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_slice_loc.F |
287 |
MDSREADFIELDYZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
314 |
MDSREADFIELDYZ_LOC |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
325 |
MDSREADFIELDYZ_LOC |
& ' MDSREADFIELDYZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_slice_loc.F |
334 |
MDSREADFIELDYZ_LOC |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
339 |
MDSREADFIELDYZ_LOC |
& ' MDSREADFIELDYZ: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_slice_loc.F |
363 |
MDSREADFIELDYZ_LOC |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
370 |
MDSREADFIELDYZ_LOC |
& ' MDSREADFIELDYZ: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_slice_loc.F |
381 |
MDSREADFIELDYZ_LOC |
& ' MDSREADFIELDYZ: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_slice_loc.F |
522 |
MDSWRITEFIELDXZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
547 |
MDSWRITEFIELDXZ_LOC |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
554 |
MDSWRITEFIELDXZ_LOC |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
576 |
MDSWRITEFIELDXZ_LOC |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
58 |
MDSREADFIELDXZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
731 |
MDSWRITEFIELDYZ_LOC |
integer iG,jG,irec,bi,bj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_slice_loc.F |
756 |
MDSWRITEFIELDYZ_LOC |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
763 |
MDSWRITEFIELDYZ_LOC |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
785 |
MDSWRITEFIELDYZ_LOC |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_slice_loc.F |
85 |
MDSREADFIELDXZ_LOC |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_slice_loc.F |
96 |
MDSREADFIELDXZ_LOC |
& ' MDSREADFIELDXZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readfield.F |
117 |
MDSREADFIELD |
write(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readfield.F |
132 |
MDSREADFIELD |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readfield.F |
141 |
MDSREADFIELD |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readfield.F |
146 |
MDSREADFIELD |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readfield.F |
280 |
MDSREADFIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_readfield.F |
387 |
MDSREADFIELD |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readfield.F |
398 |
MDSREADFIELD |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readfield.F |
403 |
MDSREADFIELD |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readfield.F |
421 |
MDSREADFIELD |
& ' MDSREADFIELD: filename: ', dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readfield.F |
70 |
MDSREADFIELD |
integer iG,jG,irec,bi,bj,i,j,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_readfield.F |
95 |
MDSREADFIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_readvector.F |
105 |
MDSREADVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readvector.F |
122 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readvector.F |
131 |
MDSREADVECTOR |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
136 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_readvector.F |
178 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening file: ',fName(1:IL), |
|
./pkg/mdsio/mdsio_readvector.F |
250 |
MDSREADVECTOR |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
263 |
MDSREADVECTOR |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
integer iG,jG,irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_readvector.F |
99 |
MDSREADVECTOR |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1191 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1231 |
MDSWRITEFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1247 |
MDSWRITEFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
127 |
MDSREADFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1314 |
MDSWRITEFIELD_2D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
1348 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1424 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
147 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
160 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
183 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
190 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
194 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
227 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
234 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
245 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
476 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
516 |
MDSWRITEFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
531 |
MDSWRITEFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
598 |
MDSWRITEFIELD_3D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
632 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
708 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
801 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
841 |
MDSREADFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
862 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
875 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: filename: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
87 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
897 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
904 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
908 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl.F |
941 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
948 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl.F |
959 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_writelocal.F |
118 |
MDS_WRITELOCAL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writelocal.F |
125 |
MDS_WRITELOCAL |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
147 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
229 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writelocal.F |
293 |
MDS_WRITELOCAL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writelocal.F |
81 |
MDS_WRITELOCAL |
integer iG,jG,irec,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
114 |
MDSREADFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
124 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
131 |
MDSREADFIELD_XZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
135 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
153 |
MDSREADFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
160 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
171 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_XZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
309 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
337 |
MDSREADFIELD_YZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
347 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ: opening global file: ',dataFName(1:IL) |
|
./pkg/mdsio/mdsio_gl_slice.F |
354 |
MDSREADFIELD_YZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
358 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: opening global file: ',dataFName(1:IL+5) |
|
./pkg/mdsio/mdsio_gl_slice.F |
375 |
MDSREADFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
382 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: opening file: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
393 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: filename: ',dataFName(1:IL+13) |
|
./pkg/mdsio/mdsio_gl_slice.F |
545 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
572 |
MDSWRITEFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
588 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
661 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl_slice.F |
760 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
787 |
MDSWRITEFIELD_YZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
803 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
86 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
876 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
107 |
MDSWRITEVEC_LOC_RS |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
172 |
MDSWRITEVEC_LOC_RS |
WRITE(metaFname,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
58 |
MDSWRITEVEC_LOC_RS |
INTEGER iG,jG,irec,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
88 |
MDSWRITEVEC_LOC_RS |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
94 |
MDSWRITEVEC_LOC_RS |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
95 |
MDSWRITEVEC_LOC_RS |
pIL = IL + pIL |
|
./pkg/mdsio/mdsio_writevec_loc.F |
97 |
MDSWRITEVEC_LOC_RS |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
98 |
MDSWRITEVEC_LOC_RS |
pIL = IL |
|
./pkg/mdsio/mdsio_writefield_new.F |
122 |
MDSWRITEFIELD_NEW |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writefield_new.F |
150 |
MDSWRITEFIELD_NEW |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writefield_new.F |
165 |
MDSWRITEFIELD_NEW |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writefield_new.F |
279 |
MDSWRITEFIELD_NEW |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writefield_new.F |
302 |
MDSWRITEFIELD_NEW |
write(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writefield_new.F |
547 |
MDSWRITEFIELD_NEW |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writefield_new.F |
96 |
MDSWRITEFIELD_NEW |
integer iG,jG,irec,bi,bj,i,j,k,dUnit,IL,pIL |
|
./eesupp/src/eeset_parms.F |
132 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
135 |
EESET_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
137 |
EESET_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
157 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
158 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
42 |
EESET_PARMS |
INTEGER IL |
|
./pkg/ecco/ecco_cost_final.F |
106 |
ECCO_COST_FINAL |
INTEGER IL |
|
./pkg/ecco/ecco_cost_final.F |
921 |
ECCO_COST_FINAL |
IL = ILNBLNK( profilesfiles(num_file) ) |
|
./pkg/ecco/ecco_cost_final.F |
922 |
ECCO_COST_FINAL |
write(ifc,*) profilesfiles(num_file)(1:IL), |