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,ldo j=272,277do i=43,50

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,ldo j=272,277do i=43,50
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
\x05write(3,*)s(i,j,k)
\x05
\x05end 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
\x05
\x05write(3,*)s(i,j,k)
\x05
\x05end 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)
\x05
\x05end 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

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,ldo j=272,277do i=43,50
这个楼主基础不牢啊,在open文件之后,需要用rewind将文件指针复位到文件开头
例如open(3,file=filename11)
那么应该写成open(3,file=filename11)
rewind(3)
就可以了