PROGRAM CACDLY
      CHARACTER ICALL*4,NAME*23,NCTRY*20
      write(6,*)' This code reads a basic CAC daily file (new format)'
      write(6,*)' and outputs a partial record thru the 4th SLP value'
      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
C
c99999  4124   7006   15 156 21 0KACK NANTUCKET_MEMORIAL     UNITED STATES
c99999  4125   7007    5 141  3 0 ACK NANTUCKET              UNITED STATES
c99999  4125   7007    5 154  3 0 ACK NANTUCKET              UNITED STATES

      READ(*,10,ERR=50,END=100) ISTA,LAT,LON,IELV,NUMCOU,NUMREG,IQUL,
     *ICALL,NAME,NCTRY
   10 FORMAT(I5,I6,I7,I5,I4,I3,I2,A4,1X,A23,A20)
C
C       MAKE SELECTIONS HERE, LON IS IN DEGREES WEST
C       IF(LAT.LT.1000.OR.LAT.GT.5000) GO TO 1
C       IF(LON.LT.22000.OR.LON.GT.27000) GO TO 1
C
      WRITE(*,10) ISTA,LAT,LON,IELV,NUMCOU,NUMREG,IQUL,
     *ICALL,NAME,NCTRY
   11 FORMAT(I5,I6,I7,I5,2a4,a1,1x,A3,1x,5A4,A3,5a4,A1)
      GO TO 1
   50 CONTINUE
      PRINT 51,NREC
   51 FORMAT(' ERROR, REC',I10)
      GO TO 1
  100 CONTINUE
      NREC=NREC-1
      PRINT 101,NREC
  101 FORMAT('0RECORDS READ',I10)
      END