if exist \ goto param_val_end set error=user routine %userdir%\\%user% does not exist goto read_arg_error :marc_end
set program=%prog%.exe set bd= set prefix=
if not \
if \
if exist \ set error=file %dirrid%\\%rid%.t08 does not exist goto read_arg_error :prt08_end
if \
if exist \ if exist \
set error=file %dirpid%\\%prefix%%pid%.t16/t19 does not exist goto read_arg_error :prt16_end
if \
if exist \ set error=file %dirdid%\\%prefix%%did%%dotdat% does not exist goto read_arg_error :prt49_end
if \
if exist \ set error=file %dirvid%\\%prefix%%vid%.vfs does not exist goto read_arg_error :prt50_end
if exist \
set error=user program ?%%prog%.exe does not exist goto read_arg_error
:param_val_end
REM #########################################################################
REM check argument integrity # REM #########################################################################
if exist \echo.
echo error, run directory \echo does not exist goto end_of_file :dirjob_exists
if exist \echo.
echo error, scratch directory \echo does not exist goto end_of_file :dirscr_exists
if not \set error=job id required goto read_arg_error :jid_end
if not \set qid=foreground goto qid_end :qid_yes
if not \set qid=background goto qid_end :qid_none
set error=bad value for background option; valid options are \goto read_arg_error :qid_end
if not \set prgsav=no goto prgsave_end :prgsave_yes
if not \set prgsav=yes goto prgsave_end :prgsave_none
set error=bad value for save option; valid options are \goto read_arg_error :prgsave_end
if not \set dist=yes goto dist_end :dist_no
if not \set dist=
goto dist_end :dist_none
set error=bad value for distributed option; valid options are \goto read_arg_error :dist_end
rem check that jobname and restart job name are not the same if \
if not \set error=job id is the same as restart job id goto read_arg_error :rid_end
goto print_beg
:read_arg_error
echo read error: %error% goto run_marc_exit
REM ######################################################################### REM print information REM #########################################################################
:print_beg
set jidlog=%jid%.log
if \if exist \ \
if \
echo MSC.Marc %REVISION% %MACHINE% version echo --------------------------------
echo :
echo Program name : %prog%
echo Job ID : %jid% echo User subroutine name : %user% echo Restart file job ID : %rid% echo Substructure file ID : %sid% echo Post file job ID : %pid% echo Defaults file ID : %did% echo View factor file ID : %vid% echo Save generated module: %prgsav% echo Auto restart : %nauto% echo Contact decoupling : %ndcoup%
REM echo Marc-Dytran Switch : %ndytran% echo Number of tasks : %nprocd% echo Host file : %host% echo Distributed i/o : %dist% echo Run directory : %dirjob% echo Scratch directory : %dirscr% echo Default bin directory: %BINDIR%
echo Material database : ˉmatdat% echo : goto printend :printback
echo MSC.Marc %REVISION% %MACHINE% version >> %jidlog% echo -------------------------------- >> %jidlog%
echo : >> %jidlog% echo Program name : %prog% >> %jidlog% echo Job ID : %jid% >> %jidlog% echo User subroutine name : %user% >> %jidlog% echo Restart file job ID : %rid% >> %jidlog% echo Substructure file ID : %sid% >> %jidlog% echo Post file job ID : %pid% >> %jidlog% echo Defaults file ID : %did% >> %jidlog% echo View factor file ID : %vid% >> %jidlog% echo Save generated module: %prgsav% >> %jidlog% echo Auto restart : %nauto% >> %jidlog% echo Contact decoupling : %ndcoup% >> %jidlog%
REM echo Marc-Dytran Switch : %ndytran% >> %jidlog% echo Number of tasks : %nprocd% >> %jidlog% echo Host file : %host% >> %jidlog% echo Distributed i/o : %dist% >> %jidlog% echo Run directory : %dirjob% >> %jidlog% echo Scratch directory : %dirscr% >> %jidlog% echo Default bin directory: %BINDIR% >> %jidlog%
echo Material database : ˉmatdat% >> %jidlog% echo : >> %jidlog%
:printend REM
REM user subroutine used REM
if \set program=%user%.exe set bd=
set marclink=yes :user_program_end
if \set bd=
:program_end
REM
REM set executable name REM
set execnm=?%%program%
if \
REM
REM make reasonable attempt to create UNC information REM if tools\\marc.net file does not exist. if UNC names REM cannot be created, create network drive information. REM put UNC and drive information into marc.drive file. REM
if \ set run_marc_path=
if exist \ if exist \ if exist \ net share > \
if exist \ if exist \
rem echo error: check that marc installation directory is shared rem echo error: check that tools\\marc.net file is current rem goto run_marc_exit :netinfo_end
REM