Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- describeseis

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
describeseis
Synopsis
/infobank/programs/kml/seis4kml/describeseis.for
Description
  Subroutine to create <description> information for s

       
AUTHOR
  Clint Steele      7/15/2007

  Sumy Tom          6/5/2008
  Carolyn Degnan    9/23/2008  commented out (cc) diagnostic prints
  Set disk "imag1" for activities A-M and "imag2" for N-Z and
  added variables IDA2M and ImageDisk. CDegnan, 9/9/2013
 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

    
Reads
Writes
      write (KmlFile, '(2x,a)') '<descriptio
      write (KmlFile, '(4x,a)') '<![CDAT
      write (KmlFile, '(8x,a)') '<u
      write (KmlFile, '(10x,a)')
     *    '<li>Activity ID: <a href="http://walrus.wr.us
     *    '/infobank/'//ID(1:1)//'/'//ID(1:IDLength)//
     *    '/html/'//LongID(1:IDLength+3)//'.meta.html'//
     *    '">'//AkaID(1:AkaIDLength)//'&l
      write (KmlFile, '(10x,a)') 
     *    '<li>Line ID: '//SampleID(1:SampleL
      write (KmlFile, '(10x,a)') '<li>Lat/Long: '//ALine(
      write (KmlFile, '(10x,a)') '<li>Tim
     *    ALine(1:4)//'/'//ALine(5:7)//'/'//ALine(8:11)
          write (KmlFile, '(10x,a)') '<li>Details: <a
     *    '"http://walrus.wr.usgs.gov/infobank/'//ID(1:1)//'/'//
     *    ID(1:IDLength)//'/samp/'//
     *    SampleID(6:SampleLength)//
     *    '.pdf">view .pdf&l
          write (KmlFile, '(10x,a)')
     *        '<li>Photo: <img borde
     *        'src="http://walrus.wr.usgs.gov'//
     *        '/'//ImageDisk//'/'//
     *        ID(1:1)//'/'//ID(1:IDLength)//'/imag/'//
     *        CapID(1:IDLength)//'_'//SampleID(6:SampleLength)//
     *        '.jpg" alt="Bottom photo" width="500"&g
      write (KmlFile, '(10x,a)') '<li><a
     *    '"http://www.google.com/custom?q='//
     *    'usgs+'//ID(1:IDLength)//
     *    '+'//AkaID(1:AkaIDLength)//
     *    '&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, '(4x,a)') 
     *    '<!-- Source: http://walrus.wr.usgs.gov/infobank/ --
      write (KmlFile, '(4x,a)') ']]&g
      write (KmlFile, '(2x,a)') '</descriptio
Opens
Calls
       call stringlen (SampleID, SampleLength)
      call changecase('CAPITAL', CapID(1:IDLength))

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