PROGRAM CACDLY
      CHARACTER*4 ICALL
      write(6,*)' This code reads a basic CAC monthly file (new format)'
      write(6,*)' and outputs a partial record thru total precip (EPCP)'
      write(6,*)' It expects the input file as a directed input,     '
      write(6,*)'  e.g     a.out < data (uncompressed data file)     '
      write(6,*)'  or      zcat data.Z | a.out (compressed data file)'
      NREC=0
    1 NREC=NREC+1
      READ(5,10,ERR=50,END=100) IDNO,ICALL,IDATE,ITIME,TAIR,SNOD,WE,SNOF
   10 FORMAT(I5,A4,I6,I2,F3.0,3F5.0)
      PRINT 20, IDNO,ICALL,IDATE,ITIME,TAIR,SNOD,WE,SNOF
   20 FORMAT(I5,1x,A4,I7,I3,4F7.0)
      GO TO 1
   50 CONTINUE
      NERROR=NERROR+1
      PRINT 51,NREC
   51 FORMAT(' ERROR, REC',I10)
      GO TO 1
  100 CONTINUE
      NREC=NREC-1
      PRINT 101,NREC,NERROR
  101 FORMAT('0RECORDS READ',I10,/,' RECORDS IN ERROR',I10)
      END