C                                                                               
C ****************************************************************              
C * FORTRAN PROGRAM TO READ AND PRINT THE MONTHLY MEAN TEMPERA-                 
C * TURE RECORDS FOR INDIVIDUAL STATIONS                                        
C ****************************************************************              
C                                                                               
      INTEGER ID, LAT, LONG, ELEV, TYPE, STYEAR, ENDYEAR,                        
     1    QCCODE, FRYEAR, J                                                     
      CHARACTER STATION*19, NATION*12, YEAR*4, TEMP(12)*4,                      
     1   TMEAN*4                                                                
   10 READ (5,500,END=100) ID, LAT, LONG, ELEV, STATION, NATION,                 
     1    TYPE, STYEAR, ENDYEAR, QCCODE, FRYEAR                                 
      WRITE (6,500) ID, LAT, LONG, ELEV, STATION, NATION, TYPE,                  
     1    STYEAR, ENDYEAR, QCCODE, FRYEAR                                       
      YEAR='INIT'                                                               
   20 IF (YEAR.EQ.'    ') THEN                                                  
          GOTO 10                                                               
      ELSE                                                                      
          READ (5,600) YEAR, (TEMP(J),J=1,12), TMEAN                            
          WRITE (6,600) YEAR, (TEMP(J),J=1,12), TMEAN                           
          GOTO 20                                                               
      END IF                                                                    
  500 FORMAT (1X,I6,1X,I4,1X,I5,1X,I5,1X,A19,1X,A12,1X,I1,1X,I4,1X,             
     1    I4,1X,I2,1X,I4)                                                       
  600 FORMAT (1X,A4,12(1X,A4),2X,A4)                                            
  100 STOP                                                                      
      END