Fortran90-marc必备(3)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Fortran90-marc必备(3)在线全文阅读。