（20190326）Fortran之获取文件的行数

版权声明：如需转载，请联系本文作者。 https://blog.csdn.net/sinat_32602421/article/details/88822150

利用fortran获取文件的行数：

      program getlon
	 implicit none
         integer::n
         integer,external::GetFileN  !声明GetFileN是一个外部函数

         open(10,file="0326.txt")
         n=GetFileN(10)
         write(*,*) n
         close(10)
         
       end program getlon
    
    
    Integer Function GetFileN( iFileUnit)
    Implicit None 
    Integer,Intent(IN)::iFileUnit 
    Integer::ios 
    Character(Len=1)::cDummy 
    GetFileN=0
    Rewind(iFileUnit)
    Do 
        Read(iFileUnit,*,ioStat=ioS)cDummy 
        if(ioS/=0)Exit 
        GetFileN=GetFileN+1
    End Do
end function