USGS InfoBank program -- dothumbinfo

dothumbinfo

  Subroutine to output thumbnail file information

       

  Clint Steele    3/24/2008


    

      write (OutUnit, '(4x,a)') '<t
          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"&g
              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"&g
              write (OutUnit, '(6x,a)') '[no map available]'
      write (OutUnit, '(4x,a)') '</t