Help with a FORTRAN program

  • Thread starter mandel
  • Start date
1
0
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
 

Want to reply to this thread?

"Help with a FORTRAN program" You must log in or register to reply here.

Related Threads for: Help with a FORTRAN program

  • Posted
Replies
0
Views
3K
  • Posted
Replies
0
Views
1K
Replies
0
Views
4K
  • Posted
Replies
0
Views
1K
Replies
0
Views
3K
  • Posted
Replies
0
Views
2K

Physics Forums Values

We Value Quality
• Topics based on mainstream science
• Proper English grammar and spelling
We Value Civility
• Positive and compassionate attitudes
• Patience while debating
We Value Productivity
• Disciplined to remain on-topic
• Recognition of own weaknesses
• Solo and co-op problem solving
Top