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

yejet

我喜欢用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收集的资料