C*********************************************************                     
C*  FORTRAN PROGRAM TO READ AND PRINT THE HISTORICAL     *                     
C*  CLIMATOLOGY NETWORK (HCN) QUALITY ASSESSMENT FILE    *                     
C*  FOR MEAN TEMPERATURES AND TOTAL PRECIPITATION.       *                     
C*********************************************************                     
         INTEGER STATENUM, STANUM, ELEV, R1,                                   
     1     R2, R3, R4, R5, PDBPOR, PDR1,                                       
     1     APDBPOR, PDR2, PDASCD, PDR3, APDSCD,                                
     1     PDR4, R6, CONS40, R7, CONSF, R8                                     
         REAL PERORIG, PERASCD, CONF                                           
         CHARACTER*2 STATE, STADIV                                             
         CHARACTER*28 STANAME                                                  
         CHARACTER*6 LAT, LONG                                                 
         CHARACTER*7 BPORDATE, USCDATE, ASCDATE                                
C*********************************************************                     
C*  OPEN FILES FOR INPUT/OUTPUT                          *                     
C*********************************************************                     
        OPEN(UNIT=5,FILE='qa94mean.asc')                                                                                                                       
        OPEN(UNIT=6,FORM='PRINT')                                              
C*********************************************************                     
C*  READ AND PRINT THE QUALITY ASSESSMENT FILE FOR THE   *                     
C*  HCN MEAN TEMPERATURE AND TOTAL PRECIPITATION FILES   *                     
C*********************************************************                                                                                                     
  10    READ (5,100,END=999) STATE, STANAME, STATENUM,                         
     1    STANUM, STADIV, LAT, LONG, ELEV, BPORDATE, R1,                       
     1    PERORIG, R2, USCDATE, R3, ASCDATE, R4, PERASCD,                      
     1    R5, PDBPOR, PDR1, APDBPOR, PDR2, PDASCD,                             
     1    PDR3, APDSCD, PDR4, CONF, R6, CONS40,                                
     1    R7, CONSF, R8                                                        
        WRITE(6,100) STATE, STANAME, STATENUM,                                 
     1    STANUM, STADIV, LAT, LONG, ELEV, BPORDATE, R1,                       
     1    PERORIG, R2, USCDATE, R3, ASCDATE, R4, PERASCD,                      
     1    R5, PDBPOR, PDR1, APDBPOR, PDR2, PDASCD,                             
     1    PDR3, APDSCD, PDR4, CONF, R6, CONS40,                                
     1    R7, CONSF, R8                                                        
        GOTO 10                                                                
C                                                                              
 100    FORMAT(1X,A2,1X,A28,1X,I2,1X,I4,1X,A2,1X,                              
     1    A6,1X,A7,2X,I6,1X,A7,1X,I1,1X,                                       
     1    F5.1,2(1X,I1,1X,A7),1X,I1,1X,                                        
     1    F6.1,1X,I1,2X,I2,2X,I1,4X,I2,3X,I1,3X,                               
     1    I3,3X,I1,3X,I3,3X,I1,1X,F5.2,1X,I1,                                  
     1    2X,I2,2X,I1,2X,I2,2X,I1)                                             
C*********************************************************                     
C*          CLOSE FILES AND EXIT GRACEFULLY              *                     
C*********************************************************                     
 999    CLOSE(UNIT=5)                                                          
        CLOSE(UNIT=6)                                                          
        STOP                                                                   
        END