mld1x1.for (File 4)

This file contains a FORTRAN 77 data-retrieval routine to read and print mld1x1.dat (File 9). 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 mld1x1.dat.

     c********************************************************************
     c* FORTRAN 77 data retrieval routine to read and print the file     
     c* named "mld1x1.dat" (File 9)                              
     c********************************************************************
     
     c*Defines variables*
     
            REAL lon, lat, max, jan, feb, mar, apr, may, jun, jul
            REAL aug, sep, oct, nov, dec
            OPEN (unit=1, file='mld1x1.dat')
            OPEN (unit=2, file='mld1x1.txt')
            write (2, 5)
            
     c*Writes out column labels*
           
      5     format (4X,'LONG',5X,'LAT',2X,'MLD_MAX',2X,'MLD_JAN',
          1 2X,'MLD_FEB',2X,'MLD_MAR',2X,'MLD_APR',2X,'MLD_MAY',
          2 2X,'MLD_JUN',2X,'MLD_JUL',2X,'MLD_AUG',2X,'MLD_SEP',
          3 2X,'MLD_OCT',2X,'MLD_NOV',2X,'MLD_DEC',/,
          4 5X,'DEG',5X,'DEG',8X,13('M',8X))
          
     c*Sets up a loop to read and format all the data in the file*
     
            read (1, 6)
      6     format (//////////)
          
      7     CONTINUE    
            read (1, 10, end=999) lon, lat, max, jan, feb, mar,
          1 apr, may, jun, jul, aug, sep, oct, nov, dec
          
      10    format (F8.2, 1X, F7.2, 1X, F8.4, 1X, F8.4, 1X, F8.4,
          1 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, 
          2 F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4)
          
            write (2, 20) lon, lat, max, jan, feb, mar,
          1 apr, may, jun, jul, aug, sep, oct, nov, dec
          
      20    format (F8.2, 1X, F7.2, 1X, F8.4, 1X, F8.4, 1X, F8.4,
          1 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, 
          2 F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4, 1X, F8.4)
     
            GOTO 7
      999   close(unit=1)    
            close(unit=2)
            stop
            end