如何用fortran大量读取文件

open(11,file='**.**') ! 要皮神告读取的文件

open(12,file='**.**') ！存储第一类数据的文件

open(13,file='**.**') ！存储第二类数据的瞎携文件

open(14,file='**.**'燃明) ！存储第三类数据的文件

open(15,file='**.**') ！存储第四类数据的文件

do i=1,300

read(11,*) x

write(12,*) x

end do

close(12)

do i=301,601

read(11,*) x

write(13,*) x

end do

close(13)

do i=602,902

read(11,*) x,y,z

write(14,*) x,y,z

end do

close(14)

do i=903,1202

read(11,*) x,y,z

write(15,*) x,y,z

end do

close(15)

close(11)

stop

end

! read data

implicit none

integer,parameter:: nx=20,ny=40

integer ix,iy,fx(nx,ny)

open(11,file='t.txt') ！ 把 t.txt 改为坦埋你要打让侍蚂开谈谨的txt文件的名称

fx=0

do iy=1,ny

read(11,*) (fx(ix,iy),ix=1,nx)

end do

close(11)

stop

end

具体表达为：

do

read(11,"袜汪桥(A46)",iostat=stat1) filename

if(stat1/=0) exit

end do

通过 if(stat1/告猛=0) exit 就可以判断是否已经读取到文件的结尾，从而完陵歼成循环的 *** 作。

---