C                                                                               
C ****************************************************************              
C * FORTRAN PROGRAM TO READ AND PRINT THE GRIDDED SURFACE AIR    *              
C * TEMPERATURE ANOMALY FILE FOR THE ANTARCTIC                   *              
C ****************************************************************              
C                                                                               
      INTEGER I, J, K, DATA(5), LONG(36), LAT(5), YEAR, MONTH                   
      LONG(1)=0                                                                 
      DO 20 I=2,19                                                              
        LONG(I)=LONG(I-1)+10                                                    
   20 CONTINUE                                                                  
      LONG(20)=170                                                              
      DO 30 I=21,36                                                             
        LONG(I)=LONG(I-1)-10                                                    
   30 CONTINUE                                                                  
      LAT(1)=65                                                                 
      DO 40 I=2,5                                                               
        LAT(I)=LAT(I-1)+5                                                       
   40 CONTINUE                                                                  
   45 READ (5,400,END=800) YEAR, MONTH                                          
      WRITE (6,450) YEAR, MONTH                                                 
      WRITE (6,500) (LAT(K), K=1,5)                                             
      DO 50 J=1,19                                                              
        READ (5,550) (DATA(K), K=1,5)                                           
        WRITE (6,600) LONG(J), (DATA(K), K=1,5)                                 
   50 CONTINUE                                                                  
      DO 60 J=20,36                                                             
        READ (5,550) (DATA(K), K=1,5)                                           
        WRITE (6,650) LONG(J), (DATA(K), K=1,5)                                 
   60 CONTINUE                                                                  
      WRITE (6,700)                                                             
      GOTO 45                                                                   
  400 FORMAT (20X,I4,4X,I2)                                                     
  450 FORMAT (1X,'TEMPERATURE ANOMALY DATA',4X,'YEAR = ',I4,                    
     1     2X,'MONTH = ',I2/)                                                   
  500 FORMAT (9X,5(3X,I2,'S')/)                                                 
  550 FORMAT (5(1X,I5))                                                         
  600 FORMAT (1X,I3,'E',4X,5(1X,I5))                                            
  650 FORMAT (1X,I3,'W',4X,5(1X,I5))                                            
  700 FORMAT (2(/))                                                             
  800 STOP                                                                      
      END