Link to USGS home page
USGS Home
Contact USGS
Search USGS
Coastal & Marine Geology InfoBank

USGS InfoBank program -- dothumbinfo

Skip navigational links
Search InfoBank
Home tab Atlas tab Activities tab FACS tab Geology School tab More tab More tab Activities tabs
   
InfoBank Programs: by Name   by Topic  
   
Expanded description
Topic Description
Name
dothumbinfo
Synopsis
/infobank/programs/html/ongoing/dothumbinfo.for
Description
  Subroutine to output thumbnail file information
    
Author
  Clint Steele    3/24/2008


    
Writes
 write (OutUnit, '(4x,a)') '<td>'
     write (OutUnit, '(6x,a)')
*        '<img src="http://walrus.wr.usgs.gov'//
*        '/infobank/'//ShortID(1:1)//'/'//
*        ShortID(1:IDLength)//'/html/'//
*        LongID(1:IDLength+3)//
*        '.nav.150px.jpg" alt="work area thumbnail">'
         write (OutUnit, '(6x,a)')
*        '<img src="http://walrus.wr.usgs.gov'//
*        '/infobank/'//ShortID(1:1)//'/'//
*        ShortID(1:IDLength)//'/html/'//
*        LongID(1:IDLength+3)//
*        '.meta.150px.jpg" alt="work area thumbnail">'
         write (OutUnit, '(6x,a)') '[no map available]'
 write (OutUnit, '(4x,a)') '</td>'
    

Skip footer navigational links


InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  

FirstGov button   Take Pride in America button