在DOS窗口通过命令下递交MSC.Dytran作业的方法

mao_king

编写 dytran_submit.bat

举例如下：(You can run Dytran in a dos window by:
dytran_submit     输入文件名如impulse_a )
对于不同系统作相应修改粗斜体字:
----
rem @echo off
REM Usage = dytran_submit <input_deck_name_without_extension>

SET MSC_LICENSE_FILE=1700@server

SET SOLVER="C:\Program Files\MSC.Software\dytran2004\dytranexe\dytran.exe"
SET MSC_E_ORG="C:\Program Files\MSC.Software\dytran2004\dytranexe\orig_ermesg"
SET MSC_E_TRA="C:\Program Files\MSC.Software\dytran2004\dytranexe\trans_ermesg"

SET INPUT_DECK=%1

SET OMP_NUM_THREADS=1
SET DPL_MAXCPUS=1
SET DPL_NCPUS=1

SET DPL_MEMORY_INT=3000000
SET DPL_MEMORY_FLT=3000000
SET DPL_FLEXLM=YES
SET MP_SPIN=10000000
SET TMPDIR=.\

%SOLVER% JID=%INPUT_DECK%,OUT=%INPUT_DECK% > %INPUT_DECK%.OUT

rem %SOLVER% JID=%INPUT_DECK%,OUT=%INPUT_DECK%

chenyn

楼主是这方面的专家，大家有问题抓紧问啊！
希望楼主多多指教！呵呵……

uniboy

帅呆了，
太有用了，
谢谢了

lxym0205

楼主,我按你要求做了,但只能启动DYTRAN,不能提交作业啊,如下:
rem @echo off
REM Usage = dytran_submit <E:\FILE\DYTRAN\airbag1\airbag.dat>

SET MSC_LICENSE_FILE=1700@lx

SET SOLVER="D:\develop tools\MSC.Software\dytran2005\dytranexe\dytranexe\dytran.exe"
SET MSC_E_ORG="D:\develop tools\MSC.Software\dytran2005\dytranexe\dytranexe\orig_ermesg"
SET MSC_E_TRA="D:\develop tools\MSC.Software\dytran2005\dytranexe\dytranexe\trans_ermesg"

SET INPUT_DECK=%1

SET OMP_NUM_THREADS=1
SET DPL_MAXCPUS=1
SET DPL_NCPUS=1

SET DPL_MEMORY_INT=3000000
SET DPL_MEMORY_FLT=3000000
SET DPL_FLEXLM=YES
SET MP_SPIN=10000000
SET TMPDIR=.\

msc.dytran.exe JID=airbag.dat,OUT=AIRBAG_AIBAG_0.ARC > airbag.dat.OUT

rem msc.dytran.exe JID=airbag.dat,OUT=AIRBAG_AIBAG_0.ARC

lxym0205

还有个问题,我要怎么样才能使FORTRAN调用DYTRAN,让DYTRAN自动计算文件了?

uniboy

REM Usage = dytran_submit <input_deck_name_without_extension>

%SOLVER% JID=%INPUT_DECK%,OUT=%INPUT_DECK% > %INPUT_DECK%.OUT 不用改

mao_king

只用改粗黑体字的地方就可以了，其他地方不用该

mao_king

原帖由 lxym0205 于 2006-10-11 19:50 发表
楼主,我按你要求做了,但只能启动DYTRAN,不能提交作业啊,如下:
rem @echo off
REM Usage = dytran_submit <E:\FILE\DYTRAN\airbag1\airbag.dat>

SET MSC_LICENSE_FILE=1700@lx

SET SOLVER="D:\ ...

在fortran里面调用dytran_submit.bat就可以了

lxym0205

楼主,按你的意思我又修改了,如下:
rem @echo off
REM Usage = dytran_submit <input_deck_name_without_extension>

SET MSC_LICENSE_FILE=1700@lx

SET SOLVER="D:\develop tools\MSC.Software\dytran2005\dytranexe\dytranexe\dytran.exe"
SET MSC_E_ORG="D:\develop tools\MSC.Software\dytran2005\dytranexe\dytranexe\orig_ermesg"
SET MSC_E_TRA="D:\develop tools\MSC.Software\dytran2005\dytranexe\dytranexe\trans_ermesg"

SET INPUT_DECK=%1

SET OMP_NUM_THREADS=1
SET DPL_MAXCPUS=1
SET DPL_NCPUS=1

SET DPL_MEMORY_INT=3000000
SET DPL_MEMORY_FLT=3000000
SET DPL_FLEXLM=YES
SET MP_SPIN=10000000
SET TMPDIR=.\

%SOLVER% JID=%INPUT_DECK%,OUT=%INPUT_DECK% > %INPUT_DECK%.OUT

rem %SOLVER% JID=%INPUT_DECK%,OUT=%INPUT_DECK%

只改了黑色部分,但在WINDOWS窗口的DOS下显示是这样的:

E:\1

还是不能运算,怎么办了??

lxym0205

在DOS下运行界面如下:急盼楼主解决问题

mao_king

请确认你的dytran.exe路径是否正确

lxym0205

我的路径是正确的,还想问下楼主,怎么才能一次性获得THS文件的十进制文件(而不是二进制,也不要从DYTRAN里去转换!)

mao_king

程序不是提示“找不到指定路径”吗？是路径有问题

xyzjulian

楼主帮忙解释一下一下语句的含义好吗？尤其是“dytran jid=tapered_beam”
Simulation on UNIX-platforms
The Dytran input deck will be named tapered_beam.dat which will be in your directory.
To run the job on Unix Platform, type in the following command in your working directory:
dytran jid=tapered_beam

我是在windows环境下运行的，会有什么问题吗？