ABAQUS如何在用户子程序读取文件? 20
浏览:1245 回答:2
最近在做一个联合仿真的算例要用到vdisp,因为边界条件是从另一个软件输出的,所以就在用户子程序里加了一小段代码,用于读取数据
open(unit=12,file='E:\Documents\Code\Fortran
1 \TestFortra\variable.txt',
2 status='old')
read(12,*)ang
close(12)
ang是预先定义的数组,在vs里调试了代码没有问题,但是加在子程序里就会报错,而且看不出时什么错误,有没有哪位大神之前做过类似的算例,能给一点指点,子程序能不能实现数据读取呢
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呢