!让MSC.MARC程序批量执行
!by 陆新征,清华大学

subroutine Run_Program(EQNo) ! 进行地震运算
use DFLIB
integer EQNo
character*60 :: RunCommand ! 程序运行命令

RunCommand(1: 29)="run_marc -b no -j in.dat -u THUFIBER"
RunCommand(30:60)=THUFIBER
write(*,*) RunCommand

i= systemqq(RunCommand)

return
end subroutine



个人信息
研究工作
实际工程
论文工作
教学工作
资料下载
专题
其他

我们的实验室

抗倒塌专业委员会