USGS InfoBank program -- dosummarytabs

dosummarytabs

  Subroutine to add summary links to GAZ2HTML.


       

          write (92, '(4x,a)') '<t
          write (92, '(6x,a)') 
     *        '<table cellspacing="0" cellpadding="0" 
     *        'width="100%" bgcolor="#f3f3f3" border="0"&g
          write (NoSpaceName, '(512x)')
          write (92, '(8x,a)') '<t
          write (92, '(10x,a)') 
     *        '<td valign="top" align="left" width="100%
          write (92, '(12x,a)') '<b>'//NoSpaceName(1:NoSpaceLen
     *        ':</b>
      write (EquipName, '(255x)')
      write (33, '(a,a,a)')
     *    EquipName(1:EquipNameLength),'/',Area(1:AreaLength)
          write (92, '(12x,a)') '<a 
     *        'href="http://walrus.wr.usgs.gov'//
     *        '/infobank/gazette/htmlids/'//
     *        EquipName(1:EquipNameLength)//'/'//
     *        Area(1:AreaLength)//'.ids.html'//'"&g
          write (92, '(14x,a)') 'Field Activities'
          write (92, '(12x,a,/)') '</
              write (92, '(12x,a)') '<a 
     *            'href="http://walrus.wr.usgs.gov'//
     *            '/infobank/gazette/htmlmeta/'//
     *            MetaName(28:MetaNameLength)//'.html"&g
              write (92, '(14x,a)') '<br>Track Metadata</a&
              write (92, '(14x,a,f8.1,a)') 
     *                '<font color="red">',MBytes,'&nb
              write (92, '(14x,a)') 
     *            '<font color="red">No 
          write (92, '(12x,a,/)') '</font
      write (FullMapName, '(255x)')
          write (92, '(12x,a)') '<a 
     *        'href="http://walrus.wr.usgs.gov'//
     *        FullMapName(1:FullMapNameLength)//'"&g
          write (92, '(14x,a)') 
     *       '<br>Full Resolution Map</a&
          write (92, '(f10.1,a)') Scale(ScaleLoop),
     *        ' X)   ('
              write (92, '(14x,a,f8.1,a)')
     *                '<font color="red">',MBytes,'&nb
              write (92, '(14x,a)')
     *            '<font color="red">No 
          write (92, '(12x,a,/)') '</font
      write (ImageMetadataName, '(255x)')
          write (92, '(12x,a)') '<a 
     *        'href="http://walrus.wr.usgs.gov'//
     *        ImageMetadataName(1:ImageMetadataNameLength)//
     *        '"&g
          write (92, '(14x,a)') '<br>Image Met
          write (92, '(12x,a,/)') '</
      write (DownloadName, '(255x)')
          write (92, '(12x,a)') '<a 
     *        'href="http://walrus.wr.usgs.gov'//
     *        DownloadName(1:DownloadNameLength)//'"&g
          write (92, '(14x,a)') 
     *        '<br>Download Background Map</a&
              write (92, '(14x,a,f8.1,a)')
     *                '<font color="red">',MBytes,'&nb
              write (92, '(14x,a)')
     *            '<font color="red">No 
          write (92, '(12x,a,/)') '</font

              call stringlen (NoSpaceName, NoSpaceLength)
      call stringlen (EquipName, EquipNameLength)
          call system ('/bin/wc '//
     *        '/infobank/gazette/htmlmeta/'//
     *        EquipName(1:EquipNameLength)//'/'//
     *        Area(1:AreaLength)//'.metadata.html'//
     *        ' > /tmp/gaz2html.metacount.tem
          call howbig (MBytes)
      call stringlen (FullMapName, FullMapNameLength)
      call changecase ('SMALLS', FullMapName(1:FullMapNameLength))
          call system ('/bin/wc '//
     *        FullMapName(1:FullMapNameLength)//
     *        ' > /tmp/gaz2html.metacount.tem
          call howbig (MBytes)
      call stringlen (ImageMetadataName, ImageMetadataNameLength)
      call changecase 
     *   ('SMALLS', ImageMetadataName(1:ImageMetadataNameLength))
      call stringlen (DownloadName, DownloadNameLength)
      call changecase ('SMALLS', DownloadName(1:DownloadNameLength))
          call system ('/bin/wc '//
     *        DownloadName(1:DownloadNameLength)//
     *        ' > /tmp/gaz2html.metacount.tem
          call howbig (MBytes)