File |
Line number |
Procedure |
Code |
./pkg/mdsio/mdsio_writefield_loc.F |
136 |
MDSWRITEFIELD_LOC |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_writefield_loc.F |
139 |
MDSWRITEFIELD_LOC |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_writefield_loc.F |
140 |
MDSWRITEFIELD_LOC |
write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdsio_slice.F |
325 |
MDSREADFIELDYZ |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_slice.F |
328 |
MDSREADFIELDYZ |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_slice.F |
329 |
MDSREADFIELDYZ |
write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdsio_slice.F |
567 |
MDSWRITEFIELDXZ |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_slice.F |
570 |
MDSWRITEFIELDXZ |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_slice.F |
571 |
MDSWRITEFIELDXZ |
write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdsio_slice.F |
785 |
MDSWRITEFIELDYZ |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_slice.F |
788 |
MDSWRITEFIELDYZ |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_slice.F |
789 |
MDSWRITEFIELDYZ |
write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdsio_slice.F |
87 |
MDSREADFIELDXZ |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_slice.F |
90 |
MDSREADFIELDXZ |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_slice.F |
91 |
MDSREADFIELDXZ |
write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdsio_readvector.F |
84 |
MDSREADVECTOR |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_readvector.F |
87 |
MDSREADVECTOR |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_readvector.F |
89 |
MDSREADVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdsio_writevector.F |
90 |
MDSWRITEVECTOR |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_writevector.F |
93 |
MDSWRITEVECTOR |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_writevector.F |
95 |
MDSWRITEVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdsio_readfield.F |
112 |
MDSREADFIELD |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdsio_readfield.F |
115 |
MDSREADFIELD |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdsio_readfield.F |
116 |
MDSREADFIELD |
write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
./pkg/mdsio/mdswritefield_new.F |
137 |
MDSWRITEFIELD_NEW |
pIL = ILNBLNK( mdsioLocalDir ) |
./pkg/mdsio/mdswritefield_new.F |
140 |
MDSWRITEFIELD_NEW |
if ( mdsioLocalDir .NE. ' ' ) then |
./pkg/mdsio/mdswritefield_new.F |
141 |
MDSWRITEFIELD_NEW |
write(pFname(1:80),'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
./model/src/ini_parms.F |
226 |
INI_PARMS |
& mdsioLocalDir, |
./model/inc/PARAMS.h |
120 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
./model/inc/PARAMS.h |
94 |
NO PROCEDURE |
& mdsioLocalDir, |
./model/src/set_defaults.F |
300 |
SET_DEFAULTS |
mdsioLocalDir = ' ' |