Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- describesamples

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

       
AUTHOR
  Clint Steele    4/21/2006

  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
         read (LinksFileUnit, '(q,a)', end=199) 
     *             LinksLineLength, LinksLine
Writes
      write (KmlFile, '(4x,a)') '<descriptio
      write (KmlFile, '(6x,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)//'</a&
      write (KmlFile, '(10x,a)')
     *    '<li>Equipment type: <a href="http://walrus.wr.us
     *    OnOffFilename(1:OnOffFilenameLength)//
     *    '">'//OnOffFilename(LastDot+1:OnOffFilenameLength
     *    '</a>
          write (KmlFile, '(10x,a)')
     *       '<li>Sample ID:'// SampleID(1:SampleLength)//'
            write (KmlFile, '(10x,a)')
     *       '<li>'//LinksLine(Tab(2)+1:LinksLineLength)//'
         write (KmlFile, '(10x,a)') '<li>Lat/Lon
     *                      ALine(16:36)//'</l
         write (KmlFile, '(10x,a)') '<li>Dept
     *                     ALine(70:78)//'</l
         write (KmlFile, '(10x,a)') '<li>Lat/Lon
     *                      ALine(17:39)//'</l
         write (KmlFile, '(10x,a)') '<li>Dept
     *                     ALine(73:81)//'</li>'
      write (KmlFile, '(10x,a)') '<li>Tim
     *    ALine(1:4)//'/'//ALine(5:7)//'/'//ALine(8:11)//'</l
          write (KmlFile, '(10x,a)') '<li>Details: <a
     *    '"http://walrus.wr.usgs.gov/infobank/'//ID(1:1)//'/'//
     *    ID(1:IDLength)//'/samp/'//
     *    SampleID(1:SampleLength)//
     *    '.pdf">view .pdf</a>'
          write (KmlFile, '(10x,a)')
     *        '<li>Photo: <img borde
     *        'src="http://walrus.wr.usgs.gov/infobank/'//
     *        '/'//ImageDisk//'/'//
     *        ID(1:1)//'/'//ID(1:IDLength)//'/imag/hi/'//
     *        CapID(1:IDLength)//'_'//SampleID(6:SampleLength)//
     *        '.jpg" alt="Bottom photo" width="500" />'//'<
          write (KmlFile, '(10x,a)') '<li>Comme
     *          //ALine(90:ALineLength)//'</l
      write (KmlFile, '(10x,a)') '<li><a
     *    '"http://www.google.com/custom?q='//
     *    'usgs+'//ID(1:IDLength)//'+'//SampleID(1:SampleLength)//
     *    '+'//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</a>'
      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 = LinksFileUnit,
     *         access = 'sequential',
     *         form = 'formatted',
     *         status = 'old',
     *         name = LinksFileName(1:LinksFileLength))
Calls
       call calculatesampleid(ALine, ALineLength,
     *                        SampleID, SampleLength)
      call changecase("CAPITAL", CapID)
      call changecase ('SMALLS', SmallSampleID)
      call stringlen (LinksFileName, LinksFileLength)

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