【求助】read disp0 file
我编了了小程序想读一下disp0等文件来验证前处理数据的正确,怎么就读不出来?怪了 program readdisp
dimension u0(2,700),coor(2,700)
OPEN(1,FILE='disp0',FORM='UNFORMATTED',STATUS='OLD')
READ(1) NUMNOD,NODDOF,((U0(I,J),I=1,NODDOF),J=1,NUMNOD)
CLOSE(1)
open(22,file='initial value',status='unknown')
write(22,*)((U0(I,J),I=1,NODDOF),J=1,NUMNOD)
close(22)
end
谢谢
回复: 【求助】read disp0 file
在run下运行prt
查看Out文件 你的程序是可以用的,我已经试过了,可能是你在编制了程序以后,没有编译。
页:
[1]