Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- doequip

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
doequip
Synopsis
/infobank/programs/gaz/gazboothill/qgaz2html/doequip.for
Description
  Subroutine to determine equipment types within a gazette area

  for GAZ2HTML.

       
Reads
          read (96, '(q,a)', end = 7099)
     *        MapLineLength, MapLine(1:MapLineLength)
          read (MapLine(Blank+1:FirstComma-1), '(i)') 
     *           Left(EntityCount)
          read (MapLine(SecondComma+1:MapLineLength), '(i)')
     *           Top(EntityCount)
Writes
              write (MetaName, '(255x)')
              write (HtmlName, '(255x)')
Opens
              open (unit   = 92,
     *              name   = HtmlName(1:HtmlNameLength),
     *              access = 'sequential',
     *              form   = 'formatted',
     *              status = 'unknown')
      open (unit   = 96,
     *      name   = '/infobank/gazette/imagemap/'//
     *               Area(1:AreaLength)//'.gif.map',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'unknown')
Calls
              call stringlen (Equip(1,EquipLoop), Length1)
              call stringlen (Equip(2,EquipLoop), Length2)
              call stringlen (Equip(3,EquipLoop), Length3)
              call stringlen (MetaName, MetaNameLength)
              call changecase ('SMALLS', MetaName(1:MetaNameLength))
              call stringlen (HtmlName, HtmlNameLength)
          call stringlen (MapLine(1:MapLineLength), MapLineLength)

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/doequip.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:20 PDT 2013  (chd)