run.bat

来自「利用有限元分析进行线弹性静动力分析的fortran程序源代码」· Batch 代码 · 共 13 行

:DLEARN (STANDARD) RUN PROCEDURE
echo off
if exist input.dat del input.dat
if exist output.dat del output.dat
copy %1.dat input.dat
dlearn 
if exist %1.out del %1.out
if exist input.dat del input.dat
if exist output.dat rename output.dat %1.out
if exist rsinput.dat del rsinput.dat
if exist rsoutput.dat del rsoutput.dat
echo ********* end of dlearn (standard) *************************************