C   FORTRAN DATA RETRIEVAL PROGRAM TO READ AND PRINT
C   THE SOUTHERN OR NORTHERN SURFACE AIR TEMPERATURE
C   ANOMALY DATA FILES (NDP003R1.SH, NDP003R1.NH, AND
C   NDP003R1.ANT)
C
      DIMENSION IYEAR(134),ANOM(134,12)
       WRITE(6,5)
  5    FORMAT(1HO,'YEAR',4X,'JAN',4X,'FEB',4X,'MAR',4X,'APR',4X,'MAY',
     1 4X,'JUN',4X,'JUL',4X,'AUG',3X,'SEPT',3X,'OCT',4X,'NOV',4X,'DEC',
     2 3X,'ANNUAL',/ 1HO)
       DO 999 J=1,134
       READ(5,10) IYEAR(J),(ANOM(J,I),I=1,12),ANN
 10    FORMAT(I4,1X,12(F5.2),F5.2)
       WRITE(6,15) IYEAR(J),(ANOM(J,I),I=1,12),ANN
 15    FORMAT(1X,I4,2X,12(F5.2,2X),F5.2)
999   CONTINUE
      STOP
      END