fortran读取文件的行书

integer::i,N,stat

!get data from file

stat=0 !这个判断读取是否成功，

N=1 ！这个是用来计数行数的。

open (99,file=\'myfile.dat\') !打开你想要的文件，

do while(stat==0) ！当读取成功的话，继续读取

read(99,*,iostat=stat)g ！这里我假定你一行数据只有一个实数

N=N+1 ！增加行数

end do

rewind(99) ！回到这个文件的开头