主题:open 语句不能得到一个file
麻烦各位大神指教哦, 我有如下的程序,即新建一个文件,并往里写入我计算得到的一组变量值,可是程序可以正确编译,链接,执行。最后没有生成 我要的文件。
open(1,file="f_xv.dat")
open(2,file="f_state.dat")
open(3,file="f_other.dat")
write(1,*) ntotal
do i = 1, ntotal
write(1,1001) i, (x(d, i), d=1,dim), (vx(d, i), d = 1, dim)
write(2,1002) i, mass(i), rho(i), p(i), u(i)
write(3,1003) i, itype(i), hsml(i)
enddo
1001 format(1x, I6, 6(2x, e14.8))
1002 format(1x, I6, 7(2x, e14.8))
1003 format(1x, I6, 2x, I4, 2x, e14.8)
close(1)
close(2)
close(3)
end
我怀疑是不是我的这一段没有每一句都执行,就在分别在 OPEN 语句,WRITE语句 旁边再加一句直接显示在屏幕的语句write(*,*) "test a" write(*,*) "test again"结果屏幕可以顺利地显示这两句,所以我就觉得奇怪了啊,为什么有执行文件操作却没有文件出来啊,麻烦大神指教哦,从没出现这样的情况啊,
open(1,file="f_xv.dat")
open(2,file="f_state.dat")
open(3,file="f_other.dat")
write(1,*) ntotal
do i = 1, ntotal
write(1,1001) i, (x(d, i), d=1,dim), (vx(d, i), d = 1, dim)
write(2,1002) i, mass(i), rho(i), p(i), u(i)
write(3,1003) i, itype(i), hsml(i)
enddo
1001 format(1x, I6, 6(2x, e14.8))
1002 format(1x, I6, 7(2x, e14.8))
1003 format(1x, I6, 2x, I4, 2x, e14.8)
close(1)
close(2)
close(3)
end
我怀疑是不是我的这一段没有每一句都执行,就在分别在 OPEN 语句,WRITE语句 旁边再加一句直接显示在屏幕的语句write(*,*) "test a" write(*,*) "test again"结果屏幕可以顺利地显示这两句,所以我就觉得奇怪了啊,为什么有执行文件操作却没有文件出来啊,麻烦大神指教哦,从没出现这样的情况啊,