ABAQUS如何在用户子程序读取文件? 20

浏览:1205 回答:2

最近在做一个联合仿真的算例要用到vdisp,因为边界条件是从另一个软件输出的,所以就在用户子程序里加了一小段代码,用于读取数据

                  open(unit=12,file='E:\Documents\Code\Fortran

     1             \TestFortra\variable.txt',

     2            status='old')

                  read(12,*)ang

                  close(12)

ang是预先定义的数组,在vs里调试了代码没有问题,但是加在子程序里就会报错,而且看不出时什么错误,有没有哪位大神之前做过类似的算例,能给一点指点,子程序能不能实现数据读取呢

Snipaste_2019-07-18_10-31-13.png

Snipaste_2019-07-18_10-32-18.png


邀请回答 我来回答

全部回答

(1)
默认 最新
静默的无线电

C*************************************************************************************

C     调试

C*************************************************************************************

c      OPEN(UNIT=1000,FILE='E:/OUTPUT.DAT',position='append')

c      WRITE(1000,*) sigmat,stressNew(km,1)

c      CLOSE(1000)

C*************************************************************************************

这是我用来写文件的,没有出现问题。有可能是你文件号跟系统默认的冲突了,你试下把12改成1000呢

2019年7月18日
已采纳 评论 1 点赞 1

没解决?试试专家一对一服务

换一批