REM ######################################################################### REM run the requested program
REM ######################################################################### rem
rem create a dummy status file so Mentat can do monitor rem
echo hello > %jid%.sts
REM
REM compile user subroutine if present REM
if not \set prgsav=yes goto marc_run_beg :no_link_end
rem the user subroutine object file is put in directory dirjob. rem if the user sub is in a directory without write permission rem the object file cannot be put there.
if exist \
if not exist \if \rem @echo on
echo %fortran% /object:\ \
%fortran% /object:\ \2>> %jid%.tmp 1>> %jidlog%
type %jid%.tmp >> %jidlog% erase %jid%.tmp rem @echo off
if exist \
echo compile failed for %dirjob%\\%user%.f90 >> %jidlog% goto run_marc_exit :compfor1 @echo on
%fortran% /object:\ \@echo off
if exist \echo compile failed for %dirjob%\\%user%.f90 goto run_marc_exit :user_for_end
if \rem @echo on
echo %fortran% /object:\ \
%fortran% /object:\ \2>> %jid%.tmp 1>> %jidlog%
type %jid%.tmp >> %jidlog% erase %jid%.tmp rem @echo off
if exist \echo compile failed for %dirjob%\\%user%.f >> %jidlog% goto run_marc_exit :compfor @echo on
%fortran% /object:\ \@echo off
if exist \echo compile failed for %dirjob%\\%user%.f goto run_marc_exit
:user_comp_end
if exist \set userobj=%dirjob%\\%user%.obj
if \
echo. >> %jidlog% echo %load% /out:\\\\\\\\\ %solverlibs% \\
%load% /out:\\\\\\\\\ %solverlibs% \\type %jid%.tmp >> %jidlog% erase %jid%.tmp erase \
if exist \
echo link failed for %user%.obj >> %jidlog% goto run_marc_exit
:linkfor
@echo on
%load% /out:\\\\\\\\\ %solverlibs% \\ @echo off
erase \
if exist \echo link failed for %user%.obj goto run_marc_exit :link_end rem
rem copy user subroutine executable if hostfile given rem
if \if \
call %DIR%\\tools\\run_copy -j %dirjid%\\%jid% -np %nprocd% -ho %userhost% -cp 2 -pr \
:copy_exe_end
REM
REM run marc REM
:marc_run_beg
rem first remove all old .log and .out files and _i_*.t08 rem if exist \ \if exist \ \
if exist \if \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \\:clean_log_end
if \if not \:mpi_clean_end
if \if \if not \
call %DIR%\\tools\\run_copy -j %dirjid%\\%jid% -np %nprocd% -ho %userhost% -cp 0 echo.
:cpinput_end
if \echo. >> %jidlog% date /t >> %jidlog% time /t >> %jidlog% echo. >> %jidlog% goto endecho :echofor echo. date /t time /t echo. :endecho
rem echo %run_job%
if \if \
if \if \
if not \
call %DIR%\\tools\\run_copy -j %dirjid%\\%jid% -np %nprocd% -ho %userhost% -cp 1 :cpresults_end
if exist \ \if exist \ \if exist \ \if exist \ \if exist \ \if exist \ \if exist \ \if exist \ \if exist \ \if exist \ \
if exist \ \if exist \ \
if \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \
for %%n in ( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ) do if exist \erase \:clean_t_end
if not \
:run_marc_exit
if exist .\\run_marc_read.bat erase .\\run_marc_read.bat if exist .\\run_marc_unc.bat erase .\\run_marc_unc.bat
if exist \goto end_of_file
:run_dcom
if not exist \%dir%\\bin\\marcclient.exe %cmdline% goto end_of_file :dcom_no_client
echo Error... The Marc DCOM client does not exist
:end_of_file endlocal