
Fortran runtime errors locally are usually one of two types and occur during execution of either OPEN or READ statements. OPEN errors result from missing input files, and READ errors occur while reading improperly formatted file contents. The vast majority of errors are of the OPEN type. An example error message:

The value of the STATUS specifier in an OPEN statement does not match the file status (unit= 4).
Error occurs at or near line 246 of _MAIN__

where the unit number integer variable refers to the file in question, and the line number integer variable refers to the line in code where the OPEN statement occurs. To avoid errors of this type, verify that the required files are present in the same directory as the program:


Geocal-XPT
      GAS.STO
      SOLTHERM.XPT

Solveq-XPT
      SOLRUN.DAT
      SOLTHERM.XPT

Chim-XPT
      CHIMRUN.DAT
      SOLTHERM.XPT
      MINOX.DAT

Solprint-XPT
      SOLTHERM.XPT



Volcal
      gascal.sto
      gastherm.dat

Solvgas
      gasrun.dat
      gastherm.dat

Gasworks
      workrun.dat
      gastherm.dat
      workox.dat

Gasprint
      gastherm.dat

_______________________________________________________
_______________________________________________________
Geocal-XPT
      DATA IOUT1, IOUT2, IOUT3 /10, 11, 3/
      DATA IOUT4, IOUT5, IOUT6 /6, 14, 15/
      DATA INP1, INP2, INP3, INP4 /5, 8, 9, 7/
      (keyboard = INP1 = 5, screen = IOUT4 = 6, using READ, WRITE statements)
      OPEN (INP2 , FILE = 'GAS.STO', STATUS = 'OLD')
      OPEN (INP4 , FILE = 'SOLTHERM.XPT', STATUS = 'OLD')
      OPEN (IOUT3, FILE = 'GEOUT.DAT', STATUS = 'UNKNOWN')

Solveq-XPT
      IN1   = 4
      IN2   = 1
      IN3   = 5
      IOUT1 = 10
      IOUT2 = 12
      IOUT4 = 7
      (keyboard = screen = *, using READ, WRITE statements)
      OPEN (  IN1, FILE = 'SOLRUN.DAT',   STATUS = 'OLD')
      OPEN (  IN2, FILE = 'SOLTHERM.XPT', STATUS = 'OLD')
      OPEN (IOUT1, FILE = 'SOLOUT.DAT',   STATUS = 'UNKNOWN')
      OPEN (IOUT4, FILE = 'SOLPLOT.DAT',  STATUS = 'UNKNOWN')
      OPEN (IOUT2, FILE = 'Skip_Species.txt',  STATUS = 'UNKNOWN')

Chim-XPT
      INP1  = 4
      INP2  = 1
      INP3  = 7
      INP4  = 3
      IPUN  = 2
      IOUT1 = 10
      IOUT2 = 12
      IOUT3 = 8
      IOUT4 = 9
      (no user interaction at execution, screen = PRINT)
      OPEN (INP1 , FILE = 'CHIMRUN.DAT', STATUS = 'OLD')
      OPEN (INP2 , FILE = 'SOLTHERM.XPT', STATUS = 'OLD')
      OPEN (INP4 , FILE = 'MINOX.DAT',    STATUS = 'OLD')
      OPEN (IPUN , FILE = 'CHIMPLOT.DAT', STATUS = 'UNKNOWN')
      OPEN (IOUT1, FILE = 'CHIMOUT.DAT', STATUS = 'UNKNOWN')
      OPEN (IOUT2, FILE = 'Skip_Species.txt', STATUS = 'UNKNOWN')
      OPEN (IOUT3, FILE = 'CHIMRUN.SAV', STATUS = 'UNKNOWN')
      OPEN (IOUT4, FILE = 'CHIMRUN.SA2', STATUS = 'UNKNOWN')

Solprint-XPT
      PARAMETER (INP1 = 1, IOUT1 = 10)
      (no user interaction at execution, screen = PRINT)
      OPEN (INP1, FILE = 'SOLTHERM.XPT', STATUS = 'OLD')
      OPEN (IOUT1, FILE = 'solprint-xpt.txt')

_______________________________________________________
_______________________________________________________
Volcal
      Data IOUT1, IOUT2, IOUT3 /8, 9, 10/
      Data INP2, INP3, INP4 /1, 2, 3/
      (keyboard = screen = *, using READ, WRITE statements)
      Open (IOUT3, File = 'volout.dat')
      Open (INP4 , File = 'gastherm.dat', STATUS = 'old')
      Open (INP2 , File = 'gascal.sto', STATUS = 'old')

Solvgas
      IN1=4
      IN2=1
      IN3=5
      IOUT1=9
      IOUT2=6
      IOUT3=2
      IOUT4=7
      (keyboard = INP3 = 5, screen = IOUT2 = 6, using READ, WRITE statements)
      Open (unit = 1, file = 'gastherm.dat', status = 'OLD')
      Open (unit = 2, file = 'gasplot.dat',  status = 'UNKNOWN')
      Open (unit = 4, file = 'gasrun.dat',   status = 'OLD')
      Open (unit = 9, file = 'gasout.dat',   status = 'UNKNOWN')
      Open (unit = 7, file = 'subplot.dat',  status = 'UNKNOWN')

Gasworks
      INP1 = 4
      INP2 = 1
**    INP3 = 7
      INP4 = 3
      IOUT1 = 9
      IOUT2 = 6
      IOUT3 = 8
      IPUN = 2
      (no user interaction at execution, screen = IOUT2 = 6, using WRITE statements)
      OPEN(UNIT=1,FILE='gastherm.dat',STATUS='OLD')
      OPEN(UNIT=2,FILE='workplot.dat',STATUS='UNKNOWN')
      OPEN(UNIT=3,FILE='workox.dat',STATUS='OLD')
      OPEN(UNIT=4,FILE='workrun.dat',STATUS='OLD')
      OPEN(UNIT=9,FILE='workout.dat',STATUS='UNKNOWN')
*****    OPEN(UNIT=7,FILE='curve.dat',STATUS='OLD')
      OPEN(UNIT=8,FILE='workrun.sav',STATUS='UNKNOWN')

Gasprint
      inp1    =  1
      iout1   = 10
      (no user interaction at execution, screen = * using WRITE statements)
      open (inp1,  file = 'gastherm.dat', status = 'old')
      open (iout1, file = 'GasthermReactions.txt', status = 'unknown')
