24小时热门版块排行榜

返回列表

神一样的少年

金虫 (小有名气)

应助: 1 (幼儿园)
金币: 651.8
红花: 2
帖子: 211
在线: 86.5小时
虫号: 2540700
注册: 2013-07-10
性别: GG
专业: 固体力学

[求助] Abaqus中 UEXTERNALDB 子程序

Abaqus中  UEXTERNALDB 子程序怎么读取外部文件数据
   SUBROUTINE UEXTERNALDB(LOP,LRESTART,TIME,DTIME,KSTEP,KINC)
C
   INCLUDE 'ABA_PARAM.INC'
C
   DIMENSION TIME(2)
   COMMON A,B,C,D
C
   LOP=0
   OPEN(16,FILE='D:\temp\DFLUX\Parameter1.txt')
   OPEN(17,FILE='D:\temp\DFLUX\A.TXT')
   READ(16,*)A,B,C,D
   WRITE(17,1)A,B,C,D
1    FORMAT(4F5.2)

   RETURN
   END
这是我的子程序，就是想从Parameter1.txt读取四个数据出来，然后传入其他子程序中使用
这个子程序就过不了，请求大神帮助

回复此楼