merging records within a file?

[tlustudent]

I am writing a fortran program at tlu. This program requires to read a file with multiple records. The record has two fields - an amount and account field. I have to find a way for the computer to read a record and determine if the next record is not the same record. If it finds to be the same record, then I need to merge the two records and add the account numbers together. I want to transfer the merged account numbers and amounts together to a temp file. I'm not sure what syntax to use. Can you pleassse assist me in this manner?

 

[dt2demar]

This program requires to read a file with multiple records.

field1=0
field2=0
field1_old=0
field2_old=0

open(12,file='tempfile.dat',status='old')
100 read(12,*,end=101) field1, field2
if(field1 .eq. field1_old) field1_old=field1_old+field1
goto 100
101 continue
close(12)


This is the basic sytax that you will need. Will have to apply logic that your problem asks for.

The record has two fields - an amount and account field. I have to find a way for the computer to read a record and determine if the next record is not the same record. If it finds to be the same record, then I need to merge the two records and add the account numbers together. I want to transfer the merged account numbers and amounts together to a temp file. I'm not sure what syntax to use. Can you pleassse assist me in this manner?