REM create marc.drive to contain marc.net plus network drive REM information. REM
if \
type \ net use >> \
if exist \ :netuse_end
REM
REM find sharename of executable path based on
if \
if exist run_marc_unc.bat erase run_marc_unc.bat if \ if not \ if not \ set execnm=%dirjob% set execshare=%execnm%
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat :defaultsh_end
REM
REM find sharename of input files if current path is standard path REM or network drive based.
REM if UNC or network drive name not find, use default working directory. REM
if \ if \
if exist run_marc_unc.bat erase run_marc_unc.bat
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat
REM dirjid
if exist run_marc_unc.bat erase run_marc_unc.bat
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat REM dirpid
if \
if exist run_marc_unc.bat erase run_marc_unc.bat
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat :end_unc_pid REM dirrid
if \
if exist run_marc_unc.bat erase run_marc_unc.bat
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat :end_unc_rid REM dirsid
if \
if exist run_marc_unc.bat erase run_marc_unc.bat
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat :end_unc_sid REM dirdid
if \
if exist run_marc_unc.bat erase run_marc_unc.bat
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat :end_unc_did REM dirvid
if \
if exist run_marc_unc.bat erase run_marc_unc.bat
call \\\\\
if exist run_marc_unc.bat call .\\run_marc_unc.bat :end_unc_vid
:dirshare_end rem
rem read user host file to see if working directory specified rem in host file. translate user hostfile. rem
if \
if \if not \ & set usub=1 if not \ set execnm=%execshare%\\%program% & set usub=1
if exist \
if %MPITYPE%==patent call \\\\
if %MPITYPE%==mpich call \\\\
if %MPITYPE%==mpipro call \\\\
if %MPITYPE%==nt-mpich call \\\\if exist \if not exist \:userhost_end
REM
REM write default hostfile or machinefile REM
if not \set /a ntmp1=%nprocd%-1
if %MPITYPE%==patent echo local %ntmp1% > %dirjob%\\%jid%.host if %MPITYPE%==mpipro echo %hostname% > %dirjob%\\%jid%.host if %MPITYPE%==nt-mpich echo %hostname% > %dirjob%\\%jid%.host set jid2=%jid%
for %%i in (%jid2%) do set jid2=%%~nxi set host=%jid2%.host :defaulthost_end
set host=%dirjob%\\%host%
if not \
:hostfile_end
REM ######################################################################### REM construct run stream (Marc only)
REM #########################################################################
if \if \
if %MPITYPE%==mpich set run_job=%run_job1% \-sharemem %sharemem% -jid %jid% -nprocd %nprocd% -maxnum %maxnum% -maxsize %maxsize% -itree %itree% -nthread %nthread% -dirjob \goto mpich_end :host_end
if %MPITYPE%==mpich set run_job=%run_job1% -np %nprocd% \
-sharemem %sharemem% -jid %jid% -nprocd %nprocd% -maxnum %maxnum% -maxsize %maxsize% -itree %itree% -nthread %nthread% -dirjob \:mpich_end
if %MPITYPE%==patent set run_job=%run_job1% \-sharemem %sharemem% -p4pg \-jid %jid% -nprocd %nprocd% -maxnum %maxnum% -maxsize %maxsize% -itree %itree% -nthread %nthread% -prog \
if %MPITYPE%==mpipro set run_job=%run_job1% -wd \\\-jid %jid% -nprocd %nprocd% -maxnum %maxnum% -maxsize %maxsize% -itree %itree% -nthread %nthread% -prog \-dirjob \
if %MPITYPE%==nt-mpich set run_job=%run_job1% -n %nprocd% -machinefile \-- \-jid %jid% -nprocd %nprocd% -maxnum %maxnum% -maxsize %maxsize% -itree %itree% -nthread %nthread% -dirjob \
for %%i in (%userhost%) do set fullpath=%%~fi
if not \
if not \ set run_job=%run_job% -dirjid \goto rid_add_beg
:single_beg
if \if \if \if \
set run_job=%run_job0% \-nthread %nthread% -prog %program% -dirjob \goto auto_end :auto_beg
rem only use the C program exe_auto to start a job if auto restart is used set run_job=\%run_job0% \-jid %jid% -maxnum %maxnum% -maxsize %maxsize% -nthread %nthread% -prog %program% -dirjob \:auto_end
:rid_add_beg
if \set run_job=%run_job% -rid %rid%
if not \ set run_job=%run_job% -dirrid \
:pid_add_beg
if \set run_job=%run_job% -pid %pid%
if not \ set run_job=%run_job% -dirpid \
:sid_add_beg
if \set run_job=%run_job% -sid %sid%
if not \ set run_job=%run_job% -dirsid \:sid_add_end
:did_add_beg
if \set run_job=%run_job% -def %did%
if not \ set run_job=%run_job% -dirdid \:did_add_end
:vid_add_beg
if \set run_job=%run_job% -vf %vid%
if not \ set run_job=%run_job% -dirvid \:vid_add_end
:aut_add_beg
if \set run_job=%run_job% -autorst %nauto% :aut_add_end
:dcoup_add_beg
if \set run_job=%run_job% -dcoup %ndcoup% :dcoup_add_end
:scratch_add_beg
if \set run_job=%run_job% -dirscr \:scratch_add_end
:dytran_add_beg
if \set run_job=%run_job% -dytran \: dytran_add_end
if \set run_job=%run_job% -iam %iam% :iam_add_end