File |
Line number |
Procedure |
Code |
./pkg/profiles/profiles_ini_io.F |
38 |
PROFILES_INI_IO |
CHARACTER*(MAX_LEN_FNAM) namBuf |
./pkg/profiles/profiles_ini_io.F |
48 |
PROFILES_INI_IO |
namBuf(1:iL) = profilesDir(1:iL) |
./pkg/profiles/profiles_ini_io.F |
49 |
PROFILES_INI_IO |
WRITE(profilesDir(1:iL+1),'(2A)') namBuf(1:iL),'/' |
./pkg/profiles/profiles_ini_io.F |
54 |
PROFILES_INI_IO |
WRITE(namBuf,'(2A)') ' mkdir -p ', profilesDir(1:iL) |
./pkg/profiles/profiles_ini_io.F |
55 |
PROFILES_INI_IO |
pIL = 1 + ILNBLNK( namBuf ) |
./pkg/profiles/profiles_ini_io.F |
57 |
PROFILES_INI_IO |
& '==> SYSTEM CALL (from PROFILES_INI_IO): >',namBuf(1:pIL),'<' |
./pkg/profiles/profiles_ini_io.F |
58 |
PROFILES_INI_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
./model/src/ini_model_io.F |
150 |
INI_MODEL_IO |
WRITE(namBuf,'(4A)') |
./model/src/ini_model_io.F |
152 |
INI_MODEL_IO |
pIL = 1 + ILNBLNK( namBuf ) |
./model/src/ini_model_io.F |
155 |
INI_MODEL_IO |
& '==> SYSTEM CALL (from INI_MODEL_IO): >',namBuf(1:pIL),'<' |
./model/src/ini_model_io.F |
156 |
INI_MODEL_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
./model/src/ini_model_io.F |
165 |
INI_MODEL_IO |
& 'Skip command: >',namBuf(1:pIL),'<' |
./model/src/ini_model_io.F |
170 |
INI_MODEL_IO |
namBuf(1:iL) = mdsioLocalDir(1:iL) |
./model/src/ini_model_io.F |
171 |
INI_MODEL_IO |
WRITE(mdsioLocalDir,'(3A)') namBuf(1:iL),myProcessStr(1:4),'/' |
./model/src/ini_model_io.F |
45 |
INI_MODEL_IO |
CHARACTER*(MAX_LEN_FNAM) namBuf |
./pkg/autodiff/autodiff_ini_model_io.F |
54 |
AUTODIFF_INI_MODEL_IO |
CHARACTER*(MAX_LEN_FNAM) namBuf |
./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 |
75 |
AUTODIFF_INI_MODEL_IO |
WRITE(namBuf,'(2A)') ' mkdir -p ', adTapeDir(1:iL) |
./pkg/autodiff/autodiff_ini_model_io.F |
76 |
AUTODIFF_INI_MODEL_IO |
pIL = 1 + ILNBLNK( namBuf ) |
./pkg/autodiff/autodiff_ini_model_io.F |
79 |
AUTODIFF_INI_MODEL_IO |
& namBuf(1:pIL), '<' |
./pkg/autodiff/autodiff_ini_model_io.F |
80 |
AUTODIFF_INI_MODEL_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
./pkg/diagnostics/diagnostics_ini_io.F |
38 |
DIAGNOSTICS_INI_IO |
CHARACTER*(MAX_LEN_FNAM) namBuf |
./pkg/diagnostics/diagnostics_ini_io.F |
49 |
DIAGNOSTICS_INI_IO |
WRITE(namBuf,'(3A)') ' mkdir -p ', diagMdsDir(1:iL), ' ' |
./pkg/diagnostics/diagnostics_ini_io.F |
50 |
DIAGNOSTICS_INI_IO |
pIL = 1 + ILNBLNK( namBuf ) |
./pkg/diagnostics/diagnostics_ini_io.F |
53 |
DIAGNOSTICS_INI_IO |
& '>', namBuf(1:pIL), '<' |
./pkg/diagnostics/diagnostics_ini_io.F |
54 |
DIAGNOSTICS_INI_IO |
CALL SYSTEM( namBuf(1:pIL) ) |
./pkg/diagnostics/diagnostics_readparms.F |
279 |
DIAGNOSTICS_READPARMS |
namBuf = diagMdsDir |
./pkg/diagnostics/diagnostics_readparms.F |
280 |
DIAGNOSTICS_READPARMS |
WRITE(diagMdsDir,'(A)') namBuf(1:iLen-1) |
./pkg/diagnostics/diagnostics_readparms.F |
82 |
DIAGNOSTICS_READPARMS |
CHARACTER*(MAX_LEN_FNAM) namBuf |