IOStatTest

program IOStatTest
Implicit none
integer :: LineCount=0, IOResult=0
character (length=90) ::LineRead
character (length=90) ::Filename="trajectory.txt"

open (10,file=FileName, action 'read')

read (10, "(A)")LineRead
print "(A)", LineRead
read (10, "(A)")LineRead
print "(A)", LineRead

do
read (10, "(A)",IOSTAT=IOResult)LineRead
if (IOResult<0)EXIT
LineCount=LineCount+1
end do

close (10)
print (A,A,A,IO,A) 'Our file <',FileName,'>had', LineCount,'lines'
end program IOStatTest