USGS InfoBank program -- nodupnav

nodupnav

  Program to eliminate adjacent records with identical lat/longs.

       

  Clint Steele    10/27/97

  Clint Steele    8/18/2010    added recognition of DAPX format

    

      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)') ALine1(1:Length1)
              write (91, '(a)') ALine2(1:Length2)
              write (91, '(a)') ALine2(1:Length2)

      call openem (1,1)