C*********************************************************                     
C* FORTRAN RETRIEVAL CODE TO READ AND PRINT THE HCN      *                     
C* TEMPERATURE AND PRECIPITATION HCN DATA FILES THAT HAVE*                     
C* BEEN ADJUSTED FOR STATION MOVES, INSTRUMENT CHANGES,  *                     
C* AND OBSERVATION DIFFERENCES.                          *                     
C*********************************************************                     
        INTEGER STACOD, YEAR, ELEM, HCNDAT(13)                                 
        CHARACTER TYPE                                                         
        CHARACTER FLAG(13), FLAG2(13), FLAG3(13),                              
     1            FLAG4(13)                                                    
C*********************************************************                     
C*  OPEN FILES FOR INPUT/OUTPUT                          *                     
C*********************************************************                     
        OPEN(UNIT=5,FILE='hcn94max.asc')                                       
        OPEN(UNIT=6,FORM='PRINT')                                              
C*********************************************************                     
C*  READ AND PRINT STATE NUMBER, STATION NUMBER, YEAR,   *                     
C*  RECORD TYPE (1=MAX TEMP, 2=MIN TEMP, 3=MEAN TEMP,    *                     
C*  4=PRECIPITATION), HCNDAT TYPE (" ", +, A, C), TWELVE *                     
C*  MONTHLY AND ONE ANNUAL HCNDAT VALUE AND FOUR FLAGS   *                     
C*  FOR EACH HCNDAT VALUE.                               *                     
C*********************************************************                     
  10    READ (5,100,END=999) STACOD, YEAR, ELEM,                               
     1    TYPE, (HCNDAT(I),FLAG(I),FLAG2(I),FLAG3(I),                          
     1    FLAG4(I),I=1,13)                                                     
        WRITE(6,105) STACOD, YEAR, ELEM,                                       
     1    TYPE, (HCNDAT(I),FLAG(I),FLAG2(I),FLAG3(I),                          
     1    FLAG4(I),I=1,13)                                                     
        GOTO 10                                                                
C                                                                              
100     FORMAT(I6,1X,I4,1X,I1,A1,13(I5,4A1))                                   
105     FORMAT(1X,I6,1X,I4,1X,I1,A1,13(I5,4A1))                                
C*********************************************************                     
C*          CLOSE FILES AND EXIT GRACEFULLY              *                     
C*********************************************************                     
 999    CLOSE(UNIT=5)                                                          
        CLOSE(UNIT=6)                                                          
        STOP                                                                   
        END