C*********************************************************                     
C*  FORTRAN RETRIEVAL CODE TO READ AND PRINT THE THREE   *                     
C*  TEMPERATURE FILES THAT HAVE BEEN ADJUSTED FOR        *                     
C*  URBANIZATION EFFECTS.                                *                     
C*********************************************************                     
        INTEGER STACOD, YEAR                                                   
        REAL MONTH(12), WIN, SPR, SUM, FAL, ANN                                
C*********************************************************                     
C*  OPEN FILES FOR INPUT/OUTPUT                          *                     
C*********************************************************                     
        OPEN(UNIT=5,FILE='ur94max.asc')                                        
        OPEN(UNIT=6,FORM='PRINT')                                              
C*********************************************************                     
C*  READ AND PRINT UNIQUE STATION CODE FOR EACH STATION, *                     
C*  YEAR OF RECORD, 12 MONTHLY AVERAGES, 4 SEASONAL      *                     
C*  AVERAGES, AND THE ANNUAL AVERAGE.                    *                     
C*********************************************************                                                                                                     
  10    READ (5,100,END=999) STACOD, YEAR, (MONTH(I),                          
     1    I=1,12),WIN, SPR, SUM, FAL, ANN                                      
        WRITE(6,105) STACOD, YEAR, (MONTH(I),                                  
     1    I=1,12),WIN, SPR, SUM, FAL, ANN                                      
        GOTO 10                                                                
C                                                                              
100     FORMAT(I6,1X,I4,17(1X,F6.2))                                           
105     FORMAT(1X,I6,1X,I4,17(1X,F6.2))                                        
C*********************************************************                     
C*          CLOSE FILES AND EXIT GRACEFULLY              *                     
C*********************************************************                     
 999    CLOSE(UNIT=5)                                                          
        CLOSE(UNIT=6)                                                          
        STOP                                                                   
        END