fortran十进制转二进制

kathy-

好吧我知道这个问题被提过很多次了，相关帖子我也都有看过，寒假里有系统的学习fortran。
但是我的问题出的很奇怪，跳出来的报错是内存泄漏？？？

编译没有问题，执行就会报错.........
请问到底出了什么问题？谢谢~

kathy-

这是详细代码：

program turn
implicit none
integer nx,ny,nz,nt
parameter(nx=37,ny=17,nz=2,nt=48)
integer it,iz,i,j
integer u(nx,ny,nz,nt),v(nx,ny,nz,nt)
open(1,file='d:/grads/u.dat',form='formatted',status='old')
open(2,file='d:/grads/v.dat',form='formatted',status='old')

open(13,file='d:/gards/turn.grd',form='binary')

do it=1,nt
do  iz=1,nz
read(1,*)((u(i,j,iz,it),i=1,nx),j=1,ny)
read(2,*)((v(i,j,iz,it),i=1,nx),j=1,ny)
end do
end do
close(1)
close(2)

do  it=1,nt
do  iz=1,nz
write(13)((u(i,j,iz,it),i=1,nx),j=1,ny)
write(13)((v(i,j,iz,it),i=1,nx),j=1,ny)
end do
end do
close(13)
stop
end

男紫汗

路径错了？

kathy-

啥意思？ 我是macbook air，然后分盘装的win8，只有一个C盘。forrtan是安在C盘,上面的程序是在u盘里写的。

lqouc

2楼说的没错
报错说你的文件在指定路径找不到，意思就是这个路径有问题d:/grads/u.dat
要么路径写错了，要么文件不在里面
自己检查一下吧

kathy-

检查过了， 路径和文件都没有错，再次运行后还是同样的报错

wuxing3838

{:eb348:}{:eb348:}