girarbot.for (File 2)

This file contains a FORTRAN 77 data retrieval routine to read and print m115gir.dat (File 7). The following is a listing of this program. For additional information regarding variable definitions, variable lengths, variable types, units, and codes, please see the description for m115gir.dat.

     c****************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the              
     c* file named "m115gir.dat" (File 4)                            
     c**************************************************************** 
     
            INTEGER  STAT, BOTTLE
            REAL PRES, TEMP, SALTY, TCO2, THETA, SIGMA0
            OPEN (unit=5, file='m115gir.dat')
            OPEN (unit=2, file='m115gira.dat')
            WRITE (2, 5)
     
      5     FORMAT (1X,'STA',3X,'BOT',4X,'PRES',6X,'TEMP',6X,
          2 'SAL',4X,'TCO2',5X,'THETA',4X,'SIGMA0',/)
         
      7     CONTINUE
            READ (5, 10,end=999) STAT, BOTTLE, PRES, TEMP, SALTY, TCO2,
          1 THETA, SIGMA0
      10    FORMAT (1X,I3,1X,I4,1X,F6.1,1X,F8.3,3X,F6.3,1X,F6.1,1X,F8.3,
          1 1X,F8.3)
      
            WRITE (2, 20) STAT, BOTTLE, PRES, TEMP, SALTY, TCO2,
          1 THETA, SIGMA0
      20    FORMAT (1X,I3,2X,I4,2X,F6.1,2X,F8.3,3X,F6.3,2X,F6.1,2X,F8.3,
          1 2X,F8.3)
            GOTO 7
     
     999    CLOSE(unit=5)
            CLOSE(unit=2)
            STOP
            END