Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- wrapkml

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
wrapkml
Synopsis
/infobank/programs/kml/unwrapkml/wrapkml.for
Description
  Program to create a .kml file from an unwrapped collection.

       
AUTHOR
  Clint Steele


    
Reads
      read (5, '(q,a)', end = 99)
     *    InFileLength, InFile(1:InFileLength)
          read (TxtFile, '(q,a)', end = 99)
     *        TxtLineLength, TxtLine(1:TxtLineLength)
              read (IncFile, '(q,a)', end = 9)
     *            IncLineLength, IncLine(1:IncLineLength)
              read (TxtLine(Tab(8)+2:LongComma-1), '(f)') Longitude
              read (TxtLine(Tab(8)+1:LongComma-1), '(f)') Longitude
          read (TxtLine(LongComma+1:LatComma-1), '(f)') Latitude
Writes
      write (KmlFile, '(a)')
     *    '<?xml version="1.0" encoding="UTF-8"
      write (KmlFile, '(a)')
     *    '<kml xmlns="http://earth.google.com/kml/2.0
      write (KmlFile, '(a)') '<Documen
      write (KmlFile, '(2x,a)')
     *    '<name>'//InFile(1:InFileLength-4)//'&l
      write (KmlFile, '(2x,a)') '<LookA
      write (KmlFile, '(4x,a)') 
     *    '<longitude>-122.26082</lo
      write (KmlFile, '(4x,a)') 
     *    '<latitude>+37.56666</l
      write (KmlFile, '(4x,a)')
     *    '<altitudeMode>relativeToGround</altit
      write (KmlFile, '(4x,a)') '<range>10800000.<
      write (KmlFile, '(4x,a)') '<tilt>0&l
      write (KmlFile, '(4x,a)') '<heading>0</
      write (KmlFile, '(2x,a)') '</LookA
      write (KmlFile, '(2x,a)') '<Folde
          write (KmlFile, '(4x,a)') '<Placemar
          write (KmlFile, '(6x,a)') 
     *       '<name>'//TxtLine(1:Tab(1)-1)//'&l
          write (KmlFile, '(6x,a)') '<descriptio
          write (UnderscoreName, '(1024x)')
              write (KmlFile, '(a)') IncLine(1:IncLineLength)
          write (KmlFile, '(6x,a)') '</descriptio
          write (KmlFile, '(6x,a)') '<LookA
          write (KmlFile, '(sp,8x,a,f10.5,a)') 
     *       '<longitude>',Longitude,'</lo
          write (KmlFile, '(sp,8x,a,f9.5,a)')
     *       '<latitude>',Latitude,'</l
          write (KmlFile, '(8x,a)')
     *       '<altitude>'//TxtLine(Tab(3)+1:Tab(4)-1)//'</a
          write (KmlFile, '(8x,a)')
     *       '<range>'//TxtLine(Tab(4)+1:Tab(5)-1)//'<
          write (KmlFile, '(8x,a)')
     *       '<tilt>'//TxtLine(Tab(5)+1:Tab(6)-1)//'&l
          write (KmlFile, '(8x,a)')
     *       '<heading>'//TxtLine(Tab(6)+1:Tab(7)-1)//'</
          write (KmlFile, '(8x,a)')
     *       '<altitudeMode>'//TxtLine(Tab(7)+1:Tab(8
     *       '</altitudeMod
          write (KmlFile, '(6x,a)') '</LookA
          write (KmlFile, '(6x,a)')
     *        '<styleUrl>#MagentaBubble</s
          write (KmlFile, '(6x,a)') '<Poin
          write (KmlFile, '(8x,a,f10.5,a,f9.5,a)')
     *        '<coordinates>',Longitude,',',Lat
     *        ',0</coordinate
          write (KmlFile, '(6x,a)') '</Poin
          write (KmlFile, '(4x,a)') '</Placemar
      write (KmlFile, '(2x,a)') '</Folde
      write (KmlFile, '(a)') '</Documen
      write (KmlFile, '(a)') '</km
Opens
      open (unit = KmlFile,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'new',
     *      name = InFile(1:InFileLength-3)//'kml')
      open (unit = TxtFile,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old',
     *      name = InFile(1:InFileLength))
          open (unit = IncFile,
     *        access = 'sequential',
     *        form = 'formatted',
     *        status = 'old',
     *        name = UnderscoreName(1:UnderscoreNameLength)//'.htmlinc')
Calls
      call includeit (KmlFile,
     *    '/infobank/programs/keep/infobank_style.keep')
          call stringlen (UnderscoreName, UnderscoreNameLength)

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/wrapkml.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:57 PDT 2013  (chd)