多个inp文件如何实现批处理

yejet · 发表于 2006-8-19 10:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

我喜欢用fortran
写成这样：

! nodedeform.f90
!
! FUNCTIONS:
!  nodedeform - Entry point of console application.
!
!  Example of displaying 'Hello World' at execution time.
!

!****************************************************************************
!
! PROGRAM: nodedeform
!
! PURPOSE: Entry point for 'Hello World' sample console application.
!
!****************************************************************************

  program nodedeform
USE DFLIB
!  implicit none
result = SYSTEMQQ ('abaqus job=3d05ctJ interactive')
  result = SYSTEMQQ ('abaqus job=3d05ctJmodel-2 interactive')
!  result = SYSTEMQQ ('abaqus job=test-1 interactive')
! result = SYSTEMQQ ('abaqus job=test-2 interactive')
!  result = SYSTEMQQ ('abaqus job=test-3 interactive')
!  result = SYSTEMQQ ('abaqus job=test-4 interactive')
!  result = SYSTEMQQ ('abaqus job=test-5 interactive')
!  result = SYSTEMQQ ('abaqus job=test-6 interactive')
!  result = SYSTEMQQ ('abaqus job=test-7 interactive')
!  result = SYSTEMQQ ('abaqus job=test-8 interactive')
  end program nodedeform

来自：likuiming收集的资料

账号		自动登录	找回密码
密码			我要加入