| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
124 |
FIZHI_WRITE_VEGTILES |
write(dataFname(1:80),'(a,2a,i3.3,a,i3.3,a)') |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
379 |
FIZHI_READ_VEGTILES |
write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./pkg/flt/flt_mdsreadvector.F |
111 |
FLT_MDSREADVECTOR |
WRITE(dataFname,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/flt/flt_mdsreadvector.F |
113 |
FLT_MDSREADVECTOR |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_mdsreadvector.F |
123 |
FLT_MDSREADVECTOR |
WRITE(dataFname,'(2A)') fName(1:IL) |
|
./pkg/flt/flt_mdsreadvector.F |
125 |
FLT_MDSREADVECTOR |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_mdsreadvector.F |
130 |
FLT_MDSREADVECTOR |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/flt/flt_mdsreadvector.F |
132 |
FLT_MDSREADVECTOR |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_mdsreadvector.F |
160 |
FLT_MDSREADVECTOR |
WRITE(dataFname,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/flt/flt_mdsreadvector.F |
163 |
FLT_MDSREADVECTOR |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_traj.F |
66 |
FLT_TRAJ |
WRITE(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./pkg/flt/flt_traj.F |
68 |
FLT_TRAJ |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/flt/flt_up.F |
66 |
FLT_UP |
WRITE(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./pkg/flt/flt_up.F |
68 |
FLT_UP |
INQUIRE( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
1314 |
MDSWRITEFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
140 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
1418 |
MDSWRITEFIELD_2D_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_gl.F |
145 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
146 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
178 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
188 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
189 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
224 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_gl.F |
226 |
MDSREADFIELD_3D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
551 |
MDSWRITEFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
655 |
MDSWRITEFIELD_3D_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_gl.F |
902 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
907 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
908 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
939 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
949 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
950 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl.F |
985 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_gl.F |
987 |
MDSREADFIELD_2D_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
107 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
117 |
MDSREADFIELD_XZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
118 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
138 |
MDSREADFIELD_XZ_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_gl_slice.F |
140 |
MDSREADFIELD_XZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
335 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
345 |
MDSREADFIELD_YZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
346 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
365 |
MDSREADFIELD_YZ_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_gl_slice.F |
367 |
MDSREADFIELD_YZ_GL |
inquire( file=dataFname, exist=exst ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
588 |
MDSWRITEFIELD_XZ_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_gl_slice.F |
816 |
MDSWRITEFIELD_YZ_GL |
write(dataFname,'(2a,i3.3,a,i3.3,a)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
153 |
MDS_WRITEVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
158 |
MDS_WRITEVEC_LOC |
WRITE(dataFname,'(2A,I3.3,A,I3.3,A)') |
|
./pkg/mdsio/mdsio_writevec_loc.F |
175 |
MDS_WRITEVEC_LOC |
& ' MDS_WRITEVEC_LOC: open file: ',dataFname(1:pIL+13) |
|
./verification/flt_example/extra/cvprofiles.F |
130 |
NO PROCEDURE |
write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./verification/flt_example/extra/cvprofiles.F |
132 |
NO PROCEDURE |
inquire( file=dataFname, exist=exst ) |
|
./verification/flt_example/extra/cvprofiles.F |
138 |
NO PROCEDURE |
write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./verification/flt_example/extra/cvprofiles.F |
140 |
NO PROCEDURE |
inquire( file=dataFname, exist=exst ) |
|
./verification/flt_example/extra/cvprofiles.F |
155 |
NO PROCEDURE |
write(dataFname(1:80),'(2a,a)') |
|
./verification/flt_example/extra/cvprofiles.F |
157 |
NO PROCEDURE |
open(1,file=dataFname,status='old',form='unformatted' |
|
./verification/flt_example/extra/cvprofiles.F |
257 |
NO PROCEDURE |
write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./verification/flt_example/extra/cvprofiles.F |
259 |
NO PROCEDURE |
open(1,file=dataFname,status='old',form='unformatted' |
|
./verification/flt_example/extra/cvprofiles.F |
264 |
NO PROCEDURE |
print*,'read ',dataFname,imaxrecord |
|
./verification/flt_example/extra/cvprofiles.F |
545 |
NO PROCEDURE |
write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./verification/flt_example/extra/cvprofiles.F |
547 |
NO PROCEDURE |
open(1,file=dataFname,status='old',form='unformatted' |
|
./verification/flt_example/extra/cvprofiles.F |
552 |
NO PROCEDURE |
print*,'read salt from ',dataFname |
|
./verification/flt_example/extra/cvprofiles.F |
575 |
NO PROCEDURE |
write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./verification/flt_example/extra/cvprofiles.F |
577 |
NO PROCEDURE |
open(1,file=dataFname,status='old',form='unformatted' |
|
./verification/flt_example/extra/cvprofiles.F |
582 |
NO PROCEDURE |
print*,'read uvel from ',dataFname |
|
./verification/flt_example/extra/cvprofiles.F |
605 |
NO PROCEDURE |
write(dataFname(1:80),'(2a,i3.3,a,i3.3,a)') |
|
./verification/flt_example/extra/cvprofiles.F |
607 |
NO PROCEDURE |
open(1,file=dataFname,status='old',form='unformatted' |
|
./verification/flt_example/extra/cvprofiles.F |
612 |
NO PROCEDURE |
print*,'read vvel from ',dataFname |