USGS InfoBank program -- domapdiv

domapdiv

  Subroutine to add image map capability for GAZ2HTML.


       

          read (93, '(q,a)', end = 799)
     *        MapLineLength, MapLine(1:MapLineLength)

      write (92, '(2x,a)')
     *    '<div id="mapDiv" style="position:absolute;left:0;top:0
      write (92, '(4x,a)')
     *    '<map name="basemap
          write (LinkArea, '(4x)')
          write (92, '(/,6x,a)') 
     *        '<area shape="rec
          write (92, '(8x,a)')
     *        'alt="'//
     *        GazName(GazLoop)(1:GazNameLength(GazLoop))//'"'
          write (92, '(8x,a)') 
     *        'coords="'//MapLine(Blank+1:MapLineLength)//'"'
          write (92, '(8x,a)')
     *        'href="http://walrus.wr.usgs.gov/'//
     *        'infobank/gazette/html/'//
     *        'regions/'//
     *        MapLine(6:Blank-1)//'.html" '
              write (92, '(8x,a,i1,a,i1,a)')
     *        'onmouseover="displayDivision(',OutCount,
     *        ')" onmouseout="hideDivision(',OutCount,
     *        ')"&g
              write (92, '(8x,a,i2,a,i2,a)')
     *        'onmouseover="displayDivision(',OutCount,
     *        ')" onmouseout="hideDivision(',OutCount,
     *        ')"&g
      write (92, '(/,4x,a)') '</ma
      write (92, '(2x,a)') '</di

      open (unit   = 93,
     *      name   = '/infobank/gazette/imagemap/'//
     *               Area(1:AreaLength)//'.gif.map',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown')

          call stringlen (MapLine(1:MapLineLength), MapLineLength)