open (fff,file='xxx')nline=0do while(.ture.)read(fff,*,iostat=ierr)flineif(ierr/=0)exitnline=nline+1enddoprint *,'nline=',nlineclose(fff)
