USGS InfoBank program -- nokml

nokml

  program to generate a list of short cruise ID that has

  no .kml.
  Alex Ma     4/14/2006

       

          read (90, '(q,a)', end = 199)
     *         IDLength, LongID(1:IDLength)

          write (LongID, '(10x)')
              write (92, '(a)') ID(1:IDLength)

      open(unit = 90,
     *     access = 'sequential',
     *     form = 'formatted',
     *     status = 'old',
     *     name = '/we6/clint/gerry/id.list')
      open(unit = 92,
     *     access = 'sequential',
     *     form = 'formatted',
     *     status = 'unknown',
     *     name = 'nokml.list')