C*********************************************************                     
C*  FORTRAN PROGRAM TO READ AND PRINT THE HISTORICAL     *                     
C*  CLIMATOLOGY NETWORK (HCN) STATION INVENTORY FILE.    *                     
C*********************************************************                     
         INTEGER STACOD, ELEV, BYRSHF, EYRSHF, HCNMN                           
         INTEGER HCNAVG, HCNAV2, HCNMX, HCNPCP, URMN                           
         INTEGER URAVG, URAV2, URMX                                            
         REAL LAT, LONG                                                        
         CHARACTER*30 STANAME                                                  
         CHARACTER*2 STATE                                                     
C*********************************************************                     
C*  OPEN FILES FOR INPUT/OUTPUT                          *                     
C*********************************************************                     
        OPEN(UNIT=5,FILE='invent94.asc')                                                                                                                       
        OPEN(UNIT=6,FORM='PRINT')                                              
C*********************************************************                     
C*  READ AND PRINT UNIQUE STATION CODE FOR EACH STATION, *                     
C*  STATION LOCATION, STATION ELEVATION, STATION NAME,   *                     
C*  STATION STATE, STATION HISTORY FILE (SHF) BEGINNING  *                     
C*  YEAR OF RECORD, SHF ENDING YEAR OF RECORD, AND THE   *                     
C*  BEGINNING YEAR OF RECORD IN EACH OF THE HCN AND      *                     
C*  URBAN DATA FILES.                                    *                     
C*********************************************************                                                                                                     
  10    READ (5,100,END=999) STACOD, LAT, LONG, ELEV,                          
     1    STANAME, STATE, BYRSHF, EYRSHF, HCNMN, HCNAVG,                       
     1    HCNAV2, HCNMX, HCNPCP, URMN, URAVG, URAV2, URMX                      
        WRITE(6,105) STACOD, LAT, LONG, ELEV,                                  
     1    STANAME, STATE, BYRSHF, EYRSHF, HCNMN, HCNAVG,                       
     1    HCNAV2, HCNMX, HCNPCP, URMN, URAVG, URAV2, URMX                      
        GOTO 10                                                                
C                                                                              
 100    FORMAT(1I6,2F8.2,1I6,1X,1A30,1A2,11(1X,1I4))                           
 105    FORMAT(1X,1I6,2F8.2,1I6,1X,1A30,1A2,11(1X,1I4))                        
C*********************************************************                     
C*          CLOSE FILES AND EXIT GRACEFULLY              *                     
C*********************************************************                     
 999    CLOSE(UNIT=5)                                                          
        CLOSE(UNIT=6)                                                          
        STOP                                                                   
        END