Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- domap

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
domap
Synopsis
/infobank/programs/gaz/gazboothill/qgaz2html/domap.for
Description
  Subroutine to add .jpg map to .html for GAZ2HTML.


       
Reads
Writes
      write (92, '(2x,a)') '<t
      write (92, '(4x,a)') '<td valign="top
          write (92, '(a)')
     *        '<img alt="Map of Atlas area: 
     *        Area(1:AreaLength)//', '//
     *        Equip(3,EquipLoop)(1:Length3)//'"'
          write (92, '(5x,a)')
     *        'border="0"'
          write (92, '(5x,a)')
     *         'src="http://walrus.wr.usgs.gov'//
     *         '/infobank/gazette/jpg/'//
     *        Equip(1,EquipLoop)(1:Length1)//'/'//
     *        Equip(2,EquipLoop)(1:Length2)//'/'//
     *        Equip(3,EquipLoop)(1:Length3)//'/'//
     *         Area(1:AreaLength)//'.jpg"'//
     *        ' usemap="#basemap"&g
              write (92, '(a)')
     *        '<img alt="Map of Atlas area: 
     *        Area(1:AreaLength)//'"'
              write (92, '(5x,a)')
     *        'border="0"'
              write (92, '(5x,a)')
     *            'src="http://walrus.wr.usgs.gov'//
     *            '/infobank/gazette/jpg/regions/'//
     *            Area(1:AreaLength)//'.jpg"'//
     *        ' usemap="#basemap">
          write (92, '(a)')
     *        '<img alt="Map of Atlas area: 
     *        Area(1:AreaLength)//', '//
     *        Equip(2,EquipLoop)(1:Length2)//'"'
           write (92, '(5x,a)')
     *        'border="0"'
          write (92, '(5x,a)')
     *         'src="http://walrus.wr.usgs.gov'//
     *         '/infobank/gazette/jpg/'//
     *        Equip(1,EquipLoop)(1:Length1)//'/'//
     *        Equip(2,EquipLoop)(1:Length2)//'/'//
     *         Area(1:AreaLength)//'.jpg"'//
     *        ' usemap="#basemap"&g
              write (92, '(a)')
     *        '<img alt="Map of Atlas area: 
     *        Area(1:AreaLength)//'"' 
              write (92, '(5x,a)')
     *        'border="0"'
              write (92, '(5x,a)')
     *            'src="http://walrus.wr.usgs.gov'//
     *            '/infobank/gazette/jpg/regions/'//
     *            Area(1:AreaLength)//'.jpg"'//
     *        ' usemap="#basemap">
          write (92, '(a)')
     *        '<img alt="Map of Atlas area: 
     *        Area(1:AreaLength)//', '//
     *        Equip(1,EquipLoop)(1:Length1)//'"'
          write (92, '(5x,a)')
     *        'border="0"'
          write (92, '(5x,a)')
     *         'src="http://walrus.wr.usgs.gov'//
     *         '/infobank/gazette/jpg/'//
     *         Equip(1,EquipLoop)(1:Length1)//'/'//
     *         Area(1:AreaLength)//'.jpg"'//
     *        ' usemap="#basemap"&g
              write (92, '(a)')
     *        '<img alt="Map of Atlas area: 
     *        Area(1:AreaLength)//'"' 
              write (92, '(5x,a)')
     *        'border="0"'
              write (92, '(5x,a)')
     *            'src="http://walrus.wr.usgs.gov'//
     *            '/infobank/gazette/jpg/regions/'//
     *            Area(1:AreaLength)//'.jpg"'//
     *        ' usemap="#basemap">
Opens
Calls

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/gaz/gazboothill/qgaz2html/domap.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:21 PDT 2013  (chd)