set dirdid=%value2%
if \goto read_new :de_end
if not \ goto vf_end set vid=%value% set dirvid=%value2%
if \goto read_new :vf_end
if not \ set user=%value% set userdir=%value2% goto read_new :u_end
if not \ set prgsav=%value% goto read_new :sa_end
if not \ set nprocd=%value% goto read_new :np_end
if not \ set nthread=%value% goto read_new :nt_end
if not \ set iam=%value% goto read_new :iam_end
if not \ set itree=%value% goto read_new :it_end
if not \ goto u_end goto sa_end goto np_end goto nt_end goto iam_end goto it_end goto b_end
set qid=%value%
rem qid is checked and reset below goto read_new :b_end
if not \ goto ho_end set host=%value% set userhost=%value% goto read_new :ho_end
if not \ set nauto=%value% goto read_new :au_end
if not \set ndcoup=%value% goto read_new :dcoup_end
if not \ set mesh=%value% goto read_new :me_end
if not \ set maxsize=%value% goto read_new :ma_end
if not \ set cpinput=%value% goto read_new :ci_end
if not \ set cpresults=%value% goto read_new :cr_end
if not \ set dirjob=%1
goto au_end goto dcoup_end goto me_end goto ma_end goto ci_end goto cr_end goto di_end if \goto read_new :di_end
if not \ goto sd_end set dirscr=%1 set dirscrset=yes goto read_new :sd_end
if not \ goto pc_end set mach=%1 set qid=n
goto read_new :pc_end
if not \ goto dytran_end set ndytran=%value% goto read_new :dytran_end
REM -server option only set by the marcsvr.exe program if not \ goto se_end set dcomserver=%1 set qid=%value% goto read_new :se_end
if \ goto read_new if \ goto read_new if \ goto read_new if \ goto read_new
set error=no such option: %arg% or input value: %value% goto read_arg_error
:read_new shift
set arg=%1
set cmdline=%cmdline% %1 goto read_arg_beg
:read_arg_end
if \set nthreadmax=%nthread%
if not \set nthreadmax=1
if not \ :nthreadmax_end
REM ########################################################################## REM check parameter validity # REM ########################################################################## REM
REM check for input file existence REM
if not \
rem if \if \ goto host_end
if not exist \ goto host_not_exist
REM Count the number of cpus. If only one, then REM this is the DCOM server host to connect with.
set /A MCOUNT=0
for /f \set mach=%%i
set /A MCOUNT+=%%j )
if not %MCOUNT% == 1 goto host_end goto run_dcom
rem if exist \ goto host_end :host_not_exist
set error=file %host% does not exist goto read_arg_error :host_end
set testfile=%dirjid%\\%jid%%dotdat%
if not \if exist \
set error=file \goto read_arg_error :dat_end
REM
REM assume that \REM
set MDSRCLIB=mdsrc.lib set bd=%BINDIR%\\
if not \ set program=marc.exe set prefix=
if not \ if not \
rem check if single processor executable exists if exist ?%\\marcs.exe set program=marcs.exe if exist ?%\\marcs.exe set MDSRCLIB=mdsrcs.lib :parallel
if \
if exist \ if exist \
set error=file %dirpid%\\%pid%.t16/t19 does not exist goto read_arg_error :mt16_end
if \
if exist \ set error=file %dirrid%\\%rid%.t08 does not exist goto read_arg_error :mt08_end
if \
if exist \ set error=file %dirdid%\\%prefix%%did%%dotdat% does not exist goto read_arg_error :mt49_end
if \
if exist \ set error=file %dirvid%\\%prefix%%vid%.vfs does not exist goto read_arg_error :mt50_end
if \
if exist \