USGS InfoBank program -- samplecount

samplecount

  Program to sample a file by number of records.

       

  Carolyn Degnan,  06/25/91

 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

    

          read (InputUnit, '(q,a)', iostat=ErrorFlag, end=99)
     *         iLength, cLine(1:iLength)

                      write (OutputUnit, '(a)') cLine(1:iLength)

      call openem (1, -1)
                  call forerror (ErrorFlag)