Sequential File output in Fortran

[ugresearcher]

Hello,
I am currently using a Fortran program to run a simulation which involves an explicit differentiation loop. The program currently plots simulation data at specified time intervals using a subroutine with another program. I'd like to have the program also output data files at these specified times. I'd like to add one set of commands into the loop for the program to output the data files, but I cannot figure out a way for Fortran to name the files in some numerical order. Can anyone help?

Thanks.

 

[mathmate]

Here's an example:

      IMPLICIT INTEGER(I-N), REAL*8(A-H,O-Z)
      N=5
      CHARACTER *12 FN
      DO 5 I=1,N
      WRITE(FN,10)I
      WRITE(6,*)FN
      OPEN(1,FILE=FN)
      CLOSE(1)
    5 CONTINUE
   10 FORMAT('INPUT',I3.3,'.FMT')
      STOP
      END

By modifying the code according to your needs, you should be able to achieve what you want to do.

See also post:
https://www.physicsforums.com/showthread.php?t=307970

 

[quicknote]

I understand your need to efficiently output data files during your simulation. In Fortran, you can use the "OPEN" statement to create sequential files and the "WRITE" statement to write data to these files. To name the files in a numerical order, you can use a counter variable within your loop and concatenate it with the file name using the "TRIM" function. This will create files with names such as "data1.txt", "data2.txt", etc. Alternatively, you can use the "NEWUNIT" specifier in the "OPEN" statement to automatically assign a unique unit number to each file, eliminating the need for a counter variable. I hope this helps.