USGS InfoBank program -- zerotimes

zerotimes

  Program to mark records that have a zero time jump.

  Such records have a "#" appended.
       

  Clint Steele    11/1/2002


    

          read (90, '(q,a)',end=99)
     *        alinelength, aline(1:alinelength)

              write (91, '(a)') aline(1:alinelength)
              write (91, '(a)') aline(1:alinelength)//'#'
              write (91, '(a)') aline(1:alinelength)

      call openem (1,1)