| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
106 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) adTapeDir |
|
./model/inc/PARAMS.h |
85 |
NO PROCEDURE |
& pickupSuff, mdsioLocalDir, adTapeDir, |
|
./model/src/ini_parms.F |
1398 |
INI_PARMS |
IF (mdsioLocalDir .NE. ' ' .AND. adTapeDir .NE. ' ') THEN |
|
./model/src/ini_parms.F |
298 |
INI_PARMS |
& mdsioLocalDir, adTapeDir, |
|
./model/src/set_defaults.F |
394 |
SET_DEFAULTS |
adTapeDir = ' ' |
|
./pkg/autodiff/adread_adwrite.F |
164 |
ADREAD |
jl = ILNBLNK( adTapeDir ) |
|
./pkg/autodiff/adread_adwrite.F |
167 |
ADREAD |
WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il) |
|
./pkg/autodiff/adread_adwrite.F |
171 |
ADREAD |
& adTapeDir(1:jl),name(1:il),'.it',optimcycle |
|
./pkg/autodiff/adread_adwrite.F |
363 |
ADWRITE |
jl = ILNBLNK( adTapeDir ) |
|
./pkg/autodiff/adread_adwrite.F |
366 |
ADWRITE |
WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il) |
|
./pkg/autodiff/adread_adwrite.F |
370 |
ADWRITE |
& adTapeDir(1:jl),name(1:il),'.it',optimcycle |
|
./pkg/autodiff/autodiff_ini_model_io.F |
65 |
AUTODIFF_INI_MODEL_IO |
IF ( adTapeDir .NE. ' ' ) THEN |
|
./pkg/autodiff/autodiff_ini_model_io.F |
66 |
AUTODIFF_INI_MODEL_IO |
iL = ILNBLNK( adTapeDir ) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
68 |
AUTODIFF_INI_MODEL_IO |
IF ( iL.LT.MAX_LEN_FNAM .AND. adTapeDir(iL:iL).NE.'/' ) THEN |
|
./pkg/autodiff/autodiff_ini_model_io.F |
69 |
AUTODIFF_INI_MODEL_IO |
namBuf(1:iL) = adTapeDir(1:iL) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
70 |
AUTODIFF_INI_MODEL_IO |
WRITE(adTapeDir(1:iL+1),'(2A)') namBuf(1:iL),'/' |
|
./pkg/autodiff/autodiff_ini_model_io.F |
74 |
AUTODIFF_INI_MODEL_IO |
iL = ILNBLNK( adTapeDir ) -1 |
|
./pkg/autodiff/autodiff_ini_model_io.F |
75 |
AUTODIFF_INI_MODEL_IO |
WRITE(namBuf,'(2A)') ' mkdir -p ', adTapeDir(1:iL) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
86 |
AUTODIFF_WHTAPEIO_SYNC |
IL = ilnblnk( adTapeDir ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
89 |
AUTODIFF_WHTAPEIO_SYNC |
& adTapeDir(1:IL),'tapes',myLev,'.',myProcId,'.data' |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
93 |
AUTODIFF_WHTAPEIO_SYNC |
& adTapeDir(1:IL),'tapes',myLev,'.data' |