SUBROUTINE SET_RUN ( )
Source file:set_run.f
Intrinsic Functions Called
INTEGER            INDEX
External Functions and Subroutines Called
INTEGER            LCOUNT
SUBROUTINE         CHDIR
Local Variables (+ indicates altered content)
CHARACTER*10      +SUBS(12)
CHARACTER*50      +TMP
INTEGER            ERROR_CODE,            +I,         +IDX
INTEGER           +NCH
Referenced Common Block Variables (+ indicates altered content)
CRUN_DIRECTORY     CHARACTER*50      +RUN_DIRECTORY

SUBROUTINE GET_RUN ( )
Source file:set_run.f
External Functions and Subroutines Called
INTEGER            LCOUNT,     LENCHAR
SUBROUTINE         GETCWD
Local Variables (+ indicates altered content)
CHARACTER*50      +TMP
INTEGER           +NCH,       +NCH_RUN
Referenced Common Block Variables (+ indicates altered content)
CRUN_DIRECTORY     CHARACTER*50      +RUN_DIRECTORY