Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- sasw4kml

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
sasw4kml
Synopsis
/infobank/programs/kml/sasw4kml/sasw4kml.for
Description
  Program to convert a DAPS camera file to KML.

       
AUTHOR
  Clint Steele    9/13/2006


    
Reads
          read (SaswFile, '(q,a)', end = 99) 
     *        ALineLength, ALine(1:ALineLength)
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>sasw&l
      write (KmlFile, '(2x,a)') '<visibility>1</vis
      write (KmlFile, '(2x,a)') '<Placemar
      write (KmlFile, '(4x,a)') 
     *    '<name>'//ALine(1:FirstTab-1)//'&l
      write (KmlFile, '(4x,a)') '<styleUrl>#Circle</s
      write (KmlFile, '(4x,a)') '<visibility>1</vis
      write (KmlFile, '(4x,a)') '<open>0&l
      write (KmlFile, '(4x,a)') 
     *    '<name>'//ALine(1:FirstTab-1)//'&l
      write (KmlFile, '(4x,a)') '<Poin
      write (KmlFile, '(6x,a)') '<coordinate
      write (KmlFile, '(8x,a)') ALine(Tab(7)+1:Tab(8)-1)//','//
     *    ALine(Tab(6)+1:Tab(7)-1)//',0'
      write (KmlFile, '(6x,a)') '</coordinate
      write (KmlFile, '(4x,a)') '</Poin
      write (KmlFile, '(2x,a)') '</Placemar
      write (KmlFile, '(a)') '</Documen
      write (KmlFile, '(a)') '</km
      write (KmlFile, '(4x,a)') '<descriptio
      write (KmlFile, '(6x,a)') '<![CDAT
      write (KmlFile, '(8x,a)') '<u
      write (KmlFile, '(2x,a)') '<li><b>Site
     *    ALine(1:Tab(1)-1)
      write (KmlFile, '(2x,a)') '<li><b>N
     *    ALine(Tab(1)+1:Tab(2)-1)
      write (KmlFile, '(2x,a)') '<li><b>City/A
     *    ALine(Tab(2)+1:Tab(3)-1)
      write (KmlFile, '(2x,a)') '<li><b>St
     *    ALine(Tab(3)+1:Tab(4)-1)
      write (KmlFile, '(2x,a)') '<li><b>Earthqu
     *    ALine(Tab(4)+1:Tab(5)-1)
      write (KmlFile, '(2x,a)') '<li><b>D
     *    ALine(Tab(5)+1:Tab(6)-1)
      write (KmlFile, '(2x,a)') '<li><b>Latit
     *    ALine(Tab(6)+1:Tab(7)-1)
      write (KmlFile, '(2x,a)') '<li><b>Longit
     *    ALine(Tab(7)+1:Tab(8)-1)
          write (KmlFile, '(2x,a)') '<
          write (KmlFile, '(2x,a)') 
     *        '<img src="http://walrus.wr.usgs.gov/infobank/programs
     *        '/kml/sasw4kml/jpgs/'//ALine(1:3)//
     *        'p.jpg" alt="photos"&g
          write (KmlFile, '(2x,a)') '<
          write (KmlFile, '(2x,a)')
     *        '<img src="http://walrus.wr.usgs.gov/infobank/programs
     *        '/kml/sasw4kml/jpgs/'//ALine(1:3)//
     *        '.jpg" alt="chart"&g
          write (KmlFile, '(2x,a)') '<
          write (KmlFile, '(2x,a)')
     *        '<a href="http://walrus.wr.usgs.gov/infobank/programs
     *        '/kml/sasw4kml/pdfs/'//ALine(1:Tab(1)-1)//
     *        '_VS30.pdf">
     *        'Download this chart as a .pdf file</
          write (KmlFile, '(2x,a)') '<
          write (KmlFile, '(2x,a)') 
     *        '<img src="http://walrus.wr.usgs.gov/infobank/programs
     *        '/kml/sasw4kml/jpgs/'//ALine(1:3)//
     *        'd.jpg" alt="data"&g
          write (KmlFile, '(2x,a)') '<
          write (KmlFile, '(2x,a)')
     *        '<a href="http://walrus.wr.usgs.gov/infobank/programs
     *        '/kml/sasw4kml/pdfs/'//ALine(1:Tab(1)-1)//
     *        '_VS30data.pdf">
     *        'Download this data as a .pdf file</
      write (KmlFile, '(2x,a)') '<
      write (KmlFile, '(10x,a)') '<li><a
     *    '"http://www.google.com/custom?q='//
     *    'usgs+'//ALine(1:Tab(1)-1)//
     *    '&sa=Google+Search&cof=LW%3A600%3BL%3Ahttp%3A%2F%2F'//
     *    'walrus.wr.usgs.gov'//
     *    '%2Finfobank%2Fprograms%2Fhtml%2Ftools%2FBanr600x72SF.jpg'//
     *    '%3BLH%3A72%3BAH%3Aleft%3BS%3Ahttp%3A%2F%2F'//
     *    'walrus.wr.usgs.gov'//
     *    '%2Finfobank%3BAWFID%3A6c82345480ae9708%3B'//
     *    '&domains=walrus.wr.usgs.gov'//
     *    '&sitesearch=walrus.wr.usgs.gov'//
     *    '">Search InfoBank&l
      write (KmlFile, '(8x,a)') '</u
      write (KmlFile, '(8x,a)')
     *    '<!-- Source: http://walrus.wr.usgs.gov/infobank/ --
      write (KmlFile, '(6x,a)') ']]&g
      write (KmlFile, '(4x,a)') '</descriptio
Opens
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/kml/sasw4kml/'//
     *             'sasw_sites.keep')
      open (unit = 91,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/programs/kml/sasw4kml/sasw.kml')
Calls
      call includeit (KmlFile,
     *    '/infobank/programs/keep/infobank_style.keep')
      call describesasws
     *     (ALine, ALineLength, Tab, TabCount)

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