Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- unwrapkml

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
unwrapkml
Synopsis
/infobank/programs/kml/unwrapkml/unwrapkml.for
Description
  Program to convert Google Earth created .kml placemark file

  to a tab delimited file.
       
AUTHOR
  Clint Steele     4/24/2008


    
Reads
      read (5, '(q,a)', end = 99)
     *    FileNameLength, FileName(1:FileNameLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
                  read (90, '(q,a)', end = 99)
     *                ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (Tilt(1:TiltLength), '(f)') Value
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (Heading(1:HeadingLength), '(f)') Value
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
Writes
          write (91, '(a)')
     *        '!Name'//char(9)//
     *        'Longitude'//char(9)//
     *        'Latitude'//char(9)//
     *        'Altitude'//char(9)//
     *        'Range'//char(9)//
     *        'Tilt'//char(9)//
     *        'Heading'//char(9)//
     *        'AltitudeMode'//char(9)//
     *        'Coordinates'
          write (ALine, '(4096x)') 
          write (Name, '(1024x)')
          write (UnderscoreName, '(1024x)')
              write (92, '(1x)')
                  write (92, '(a)') ALine(Key1:ALineLength)
                      write (92, '(a)') ALine(1:ALineLength)
                          write (92, '(a)') ALine(1:Key2)
          write (Longitude, '(80x)')
          write (Latitude, '(80x)')
          write (Altitude, '(80x)')
          write (Range, '(80x)')
          write (Tilt, '(80x)') 
          write (Heading, '(80x)')
          write (AltitudeMode, '(80x)')
          write (Coordinates, '(80x)')
          write (91, '(a)')
     *        Name(1:NameLength)//char(9)//
     *        Longitude(1:LongitudeLength)//char(9)//
     *        Latitude(1:LatitudeLength)//char(9)//
     *        Altitude(1:AltitudeLength)//char(9)//
     *        Range(1:RangeLength)//char(9)//
     *        Tilt(1:TiltLength)//char(9)//
     *        Heading(1:HeadingLength)//char(9)//
     *        AltitudeMode(1:AltitudeModeLength)//char(9)//
     *        Coordinates(1:CoordinatesLength)
Opens
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = FileName(1:FileNameLength))
      open (unit = 91,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = FileName(1:FileNameLength-3)//'txt')
            open (unit = 92,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'new',
     *          name = UnderscoreName(1:NameLength)//'.htmlinc')
Calls
              call stringlen (AltitudeMode, AltitudeModeLength)

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/kml/unwrapkml/unwrapkml.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:57 PDT 2013  (chd)