USGS InfoBank program -- dothumbinfo

dothumbinfo

  Subroutine to output thumbnail file information
    

  Clint Steele    3/24/2008


    

 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>'