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