C*********************************************************
C*  FORTRAN PROGRAM TO READ THE HISTORICAL               *
C*  CLIMATOLOGY NETWORK (HCN) STATION HISTORY            *                     
C   FILE (history.txt).                                  *                     
C*********************************************************                     
        CHARACTER*2 STATE                                      
        CHARACTER*30 CURRNAME                                          
        CHARACTER*16 COUNTY                                             
        CHARACTER*25 XREF                                              
        CHARACTER*150 BLANK                                          
        CHARACTER*1 STATUS, DISTUNIT, POUNIT                 
        CHARACTER*6 LATNORTH
        CHARACTER*7 LONGWEST
        CHARACTER*3 DIRECT, DIRECTPO
        CHARACTER*28 NAME                                          
        CHARACTER*10 QUALIF                                         
        CHARACTER*4 TIMEOBS                                         
        CHARACTER*2 PCPHT, PCTHT                                    
        CHARACTER*46 OBSNAME                                          
C
        INTEGER STANUM, STANUM2, DIVISION, MOBEG, DAYBEG, YRBEG
        INTEGER MOEND, DAYEND, YREND, SUSP(15), DISTANCE, ELEV   
        INTEGER DISTPO, INSTRU(36), PUB(16), NUMOBS               
C
C*********************************************************                   
        OPEN(UNIT=5,FILE='history.txt')                          
C*********************************************************                     
C*  READ THE STATION HISTORIES FOR EACH                  *                     
C*  STATION. FIRST RECORD HAS STATION NUMBER, STATE      *                     
C*  ABBREV., STATUS, DIVISION NUMBER, AND STATION AND    *                     
C*  COUNTY NAME. FOLLOWING RECORDS CONTAIN OBSERVER,     *                     
C*  EQUIPMENT, AND PUBLICATION DATA FOR EACH STATION.    *                     
C*********************************************************                     
  10    READ (5,100) STANUM, STATE, STATUS, DIVISION, CURRNAME,        
     1    COUNTY, XREF, BLANK                                           
  20    READ (5,110,END=999) STANUM2                               
        BACKSPACE 5                                             
        IF (STANUM .NE. STANUM2) GOTO 10                         
        READ (5,115) STANUM2, MOBEG, DAYBEG, YRBEG,              
     1    MOEND, DAYEND, YREND, (SUSP(I),I=1,15), LATNORTH,             
     1    LONGWEST, DISTANCE, DISTUNIT, DIRECT,                         
     1    ELEV, DISTPO, POUNIT, DIRECTPO, NAME, QUALIF,              
     1    (INSTRU(I),I=1,36), TIMEOBS, PCPHT, PCTHT,               
     1    (PUB(I),I=1,16), OBSNAME, NUMOBS                           
        GOTO 20                                                   
C                                                                             
  100   FORMAT(I6,1X,A2,A1,I2,1X,A30,1X,A16,1X,A25,A150)               
  110   FORMAT(I6)                                                     
  115   FORMAT(I6,2(2(1X,I2),1X,I4),1X,15A1,1X,A6,1X,A7,1X,         
     1    I3,A1,A3,1X,I5,1X,I4,A1,A3,1X,A28,1X,A10,1X,36A1,             
     1    1X,A4,1X,2A2,1X,16A1,1X,A46,1X,I2)                    
C*********************************************************                     
 999    CLOSE(UNIT=5)                                               
        STOP                                                       
        END