USGS InfoBank program -- noduptime

noduptime

  Program to eliminate adjacent records with identical times.

       

  Michael Hamer    07/27/98  

    original code from Clint Steele  nodupnav.for

    

      read (90, '(q,a)') Length1, ALine1(1:Length1)
          read (90, '(q,a)', end = 99) Length2, ALine2(1:Length2)

              write (91, '(a)') ALine1(1:Length1)
           write (91, '(a)') ALine2(1:Length2)

      call openem (1,1)