用fortran转换txt为dat，为什么我的程序没有生成一个dat文件？

orzding123

program GrADS_AscToB
integer,parameter::nlon=1,nlat=1,nz=1,nt=365
real,dimension(:,:,:,:)::pr(nlat,nlon,nz,nt)
integer::ilon,ilat,iz,it
open(2,file='d:\ding\1981.txt')
do it=1,nt
do iz=1,nz
do ilat=nlat,1,-1
read(2,*) (pr(ilat,ilon,iz,it),ilon=1,1)
end do
end do
end do
close(2)
print*,'data loaded successfully'
open(3,file='d:\ding\1981.dat',form='unformatted', &
& access='direct',recl=nlat*nlon)
irec=0
do it=1,nt
do iz=1,nz
irec=irec+1
write(3,rec=irec) ((pr(ilat,ilon,iz,it),ilon=1,nlon),ilat=1,nlat)
end do
end do
end program GrADS_AscToB不知道这个代码有什么问题呢，大家一般都是怎么转的？

zhouling

难道fortran没显示错误吗？

orzding123

zhouling 发表于 2014-12-9 14:59
难道fortran没显示错误吗？

是啊，感觉大概是输入文件的问题，文件内容可能不对。