What is the solution for skipping the last line in a FORTRAN program?

[mandel]

Hi,
I am an newbie programmer and I need some help with modifying a code in fortran. This program is supposed to skip the first two lines and the last line of the sample data and then extract only the date from the date column and write it to and output text file. The program I have now manages to skip the first two lines but I cannot seem to figure out how to skip the last line. Any help would be appreciated. As I indicated I have very little programming experience. Thanks.

DATA:

Date Data
mm/dd/yyyy units
01/01/0001 3.08E+02
01/02/0001 9.50E+01
01/03/0001 5.80E+01
01/04/0001 4.60E+01
01/05/0001 3.90E+01
01/06/0001 3.30E+01
01/07/0001 3.00E+01
01/08/0001 2.90E+01
01/09/0001 2.70E+01
01/10/0001 2.50E+01
Total 6.90E+02

CODE:
Program edate
implicit none
character*10 eDate
integer x,y
integer lntop
integer lnend

lnend = 12
lntop = 2

open(unit=5, file="datafllow.txt")
open(unit=6,file="extDate.txt")

do x=1,lntop
read(5,1000)
enddo

do y=1,lnend
read(5,1010) eDate
write(6,1020) eDate
enddo

close(5)
close(6)

1000 format(1x)
1010 format(a10)
1020 format (a10)
stop
end

 

[anorlunda]

do y=1,lnend
read(5,1010) eDate
write(6,1020) eDate
enddo

change to

read(5,1010) eDate
do y=1,lnend
write(6,1020) eDate
read(5,1010) eDate
enddo

That will skip the last line.