USGS InfoBank program -- doquick

doquick

  Subroutine to determine quickpicks for GAZ2HTML.


       

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

      write (92, '(2x,a)') '<t
      write (92, '(4x,a)') '<td valign="top
      write (92, '(6x,a)') '<b>Quick picks
      write (92, '(4x,a)') '</t
      write (92, '(4x,a)') '<t
          write (LinkArea, '(4x)')
              write (92, '(18x,a)')
     *            '<a href="http://walrus.wr.usgs.gov/
     *            'infobank/gazette/html/'//
     *            MetaName(28:LastSlash)//
     *            MapLine(6:Blank-1)//'.html"&g
              write (92, '(18x,a)')
     *            '<a href="http://walrus.wr.usgs.gov/
     *            'infobank/gazette/html/'//
     *            'regions/'//
     *            MapLine(6:Blank-1)//'.html"&g
              write (92, '(18x,a)') '<
          write (FilledName, '(255x)')   
          write (92, '(18x,a)') FilledName(1:FilledNameLength)
              write (92, '(18x,a)') '</
          write (92, '(18x,a)') '</a> &
      write (92, '(4x,a)') '</t
      write (92, '(2x,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 (FilledName, FilledNameLength)