USGS InfoBank program -- dostyle

dostyle

  Subroutine to add style sheet info for GAZ2HTML.


       

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

          write (LinkArea, '(4x)')
              write (92, '(6x,a,i1.1,a)')
     *        '<div id="
     *        OutCount,
     *        '" style="position:absolute;'//
     *        'background-color:white;'//
     *        'width:00%;'//
     *        'height:00%;'//
     *        'border:1px solid red;'//
     *        'visibility:hidden"&g
              write (92, '(6x,a,i2.2,a)')
     *        '<div id="
     *        OutCount,
     *        '" style="position:absolute;'//
     *        'background-color:white;'//
     *        'width:00%;'//
     *        'height:00%;'//
     *        'border:1px solid red;'//
     *        'visibility:hidden"&g
          write (CapArea, '(4x)')
          write (NoSpaceName, '(512x)')
          write (92, '(14x,a)') 
          write (92, '(6x,a)') '</di
      write (92, '(4x,a,/)') '</t

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

          call stringlen (MapLine(1:MapLineLength), MapLineLength)
          call changecase ('CAPITALS', CapArea)
          call stringlen (CapArea, GazAreaTempLength)
              call stringlen (NoSpaceName, NoSpaceLength)