c *** Fortran code to read any of the HCN/D data files from
c *** CDIAC's NDP-070                 
c                                                                               
      INTEGER YEAR,MON,DAYS,VALUE(31)
      CHARACTER*1 SF(31),DMF(31),DQF(31)
      CHARACTER*4 DATTYP
      CHARACTER*6 STAID
      CHARACTER*2 UNITS
c                                                                               
      OPEN (UNIT=5, FILE='state07')
      nrec=0
    1 CONTINUE
      READ(5,100,END=99) STAID,DATTYP,UNITS,YEAR,MON,
     + DAYS,(SF(I),VALUE(I),DMF(I),DQF(I),I=1,31)
  100 FORMAT(A6,1X,A4,A2,I4,I2,1X,I2,31(1X,A1,I4,2A1))
      nrec=nrec+1
      if (nrec.le.50) write(6,100)
     + STAID,DATTYP,UNITS,YEAR,MON,
     + DAYS,(SF(I),VALUE(I),DMF(I),DQF(I),I=1,31)
c                                                                               
      go to 1                                                                   
   99 continue                                                                  
      stop                                                                      
      end