Write in an existing file without overwriting in Fortran

fortran overwrite
maxhaz picture maxhaz · Oct 25, 2013 · Viewed 13k times · Source

I have an existing file written by a Fortran program (formatted) and I would like to add few lines at the beginning of the file. The idea is to do so without making a copy of the original file.

I could add a line at the end of the file with:

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="append")
write(21,*) "a new line"

but when I tried:

open(21,file=myfile.dat,status='old',action='write',
        form='formatted',position="rewind")
write(21,*) "a new line"

it overwrites the whole file.

It might be impossible. At least, I would be glad to have a confirmation that it is effectively impossible.

Answer

Vladimir F picture Vladimir F · Oct 25, 2013

Yes, it is impossible. With position= you only set the position for writing. Normally you just delete everything past the current record by a write in a sequential file. You may be able to adjust a record at the beginning in a direct access file, but also not just add something at the beginning. You have to make a copy first.

Related questions

Reading a binary file with python

I find particularly difficult reading binary file with Python. Can you give me a hand? I need to read this file, which in Fortran 90 is easily read by int*4 n_particles, n_groups real*4 group_id(n_particles) read (*) n_…

Read More
Is Fortran easier to optimize than C for heavy calculations?

From time to time I read that Fortran is or can be faster then C for heavy calculations. Is that really true? I must admit that I hardly know Fortran, but the Fortran code I have seen so far did …

Read More
Convert integers to strings to create output filenames at run time

I have a program in Fortran that saves the results to a file. At the moment I open the file using OPEN (1, FILE = 'Output.TXT') However, I now want to run a loop, and save the results of each iteration …

Read More