Fortran读取文件

具体表达为：

do

read(11,"(A46)",iostat=stat1) filename

if(stat1/=0) exit

end do

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

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

---