Question

Fortran end of file during read

里面filename都是在前面定义好的 总是出现end-of-file during read

open(3,file=filename11)
open(4,file=filename2)
read(4,*)(e(k),k=1,12)
read(4,*)(((s(i,j,k),i=1,nx),j=1,ny),k=1,nz)

do k=l,l
do j=272,277
do i=43,50

if (s(i,j,k)>=he1) then
write(3,*)s(i,j,k)

end if
end do
end do
end do

do k=l,l
do j=264,271
do i=37,50

if (s(i,j,k)>=he1) then

write(3,*)s(i,j,k)

end if
end do
end do
end do

do k=l,l
do j=272,277
do i=37,42

write(3,*)s(i,j,k)

end do
end do
end do
close(3)

open(3,file=filename11)
read(3,*)j
allocate(x1(j))
do i=1,j
read(3,*)x1(i)
end do
mean1=sum(x1)/j
write(1,"('200806230534时刻的空间平均为 ',f8.5)") mean1

Answer 1

这个楼主基础不牢啊，在open文件之后，需要用rewind将文件指针复位到文件开头
例如open(3,file=filename11)
那么应该写成open(3,file=filename11)
rewind(3)
就可以了

追问

饿 呵呵 谢谢 不过也可以用end=50
50 continue 吧

追答

你这个用法我不知道，我自己写程序的时候都是用rewind，特别是并行程序，不用rewind，基本上都会报错

追问

谢谢

Answer 2

请教这是什么问题 读数据时读到文件末尾了。说明你要读的数据多于文件中存储的数据，改一下程序中读取数据的个数。

追问

应该没有啊 前面打开的filename4是一个数据文件 我的目的是想从这个数据文件中读初三块数据
并且将这三块数据中符合条件的数据筛选出来 写入另一个文件中 其中filename11是一个动态数组 也就是不定大小的