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
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/12 12:13:33
![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](/uploads/image/z/9622788-60-8.jpg?t=Fortran+end+of+file+during+read%E9%87%8C%E9%9D%A2filename%E9%83%BD%E6%98%AF%E5%9C%A8%E5%89%8D%E9%9D%A2%E5%AE%9A%E4%B9%89%E5%A5%BD%E7%9A%84+%E6%80%BB%E6%98%AF%E5%87%BA%E7%8E%B0end-of-file+during+read+open%283%2Cfile%3Dfilename11%29open%284%2Cfile%3Dfilename2%29read%284%2C%2A%29%28e%28k%29%2Ck%3D1%2C12%29read%284%2C%2A%29%28%28%28s%28i%2Cj%2Ck%29%2Ci%3D1%2Cnx%29%2Cj%3D1%2Cny%29%2Ck%3D1%2Cnz%29do+k%3Dl%2Cldo+j%3D272%2C277do+i%3D43%2C50)
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)
就可以了