C*********************************************************                     
C*  FORTRAN PROGRAM TO READ AND PRINT THE HISTORICAL     *                     
C*  CLIMATOLOGY NETWORK (HCN) QUALITY ASSESSMENT FILE    *                     
C*  FOR MAXIMUM AND MINIMUM TEMPERATURES.                *                     
C*********************************************************                     
         INTEGER STATENUM, STANUM, ELEV, R1, R2,                               
     1     R3, R4, R5, PDBPOR, PDR1, APDMX,                                    
     1     PDR2, APDMN, PDR3, PDASCD, PDR4, APDASCMX,                          
     1     PDR5, APDASCMN, PDR6, R6, R7,                                       
     1     CONS40MX, R8, CONS40MN, R9, CONSFMX, R10,                           
     1     CONSFMN, R11                                                        
         REAL PERORIG, PERASCD, CONFMX, CONFMN                                 
         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='qa94mxmn.asc')                                                                                                                       
        OPEN(UNIT=6,FORM='PRINT')                                              
C*********************************************************                     
C*  READ AND PRINT THE QUALITY ASSESSMENT FILE FOR       *                     
C*  THE HCN MAXIMUM AND MINIMUM TEMPERATURE 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, APDMX, PDR2, APDMN, PDR3,                          
     1    PDASCD, PDR4, APDASCMX, PDR5, APDASCMN, PDR6,                        
     1    CONFMX, R6, CONFMN, R7, CONS40MX, R8, CONS40MN,                      
     1    R9, CONSFMX, R10, CONSFMN, R11                                       
        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, APDMX, PDR2, APDMN, PDR3,                          
     1    PDASCD, PDR4, APDASCMX, PDR5, APDASCMN, PDR6,                        
     1    CONFMX, R6, CONFMN, R7, CONS40MX, R8, CONS40MN,                      
     1    R9, CONSFMX, R10, CONSFMN, R11                                       
        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,                                     
     1    I1,3X,I3,3X,I1,1X,I3,1X,2(I1,3X,                                     
     1    I3,3X),I1,1X,F5.2,1X,                                                
     1    I1,1X,F5.2,1X,2(I1,3X,I2,3X),                                        
     1    I1,2(4X,I2,4X,I1))                                                   
C*********************************************************                     
C*          CLOSE FILES AND EXIT GRACEFULLY              *                     
C*********************************************************                     
 999    CLOSE(UNIT=5)                                                          
        CLOSE(UNIT=6)                                                          
        STOP                                                                   
        END