Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- loadarea

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
loadarea
Synopsis
/infobank/programs/gaz/gazboothill/qgaz2html/loadarea.for
Description
  Subroutine to gazette area names and IDS for GAZ2HTML.


       
Reads
          read (91, '(q,a)', end = 409) 
     *        GazLineLength, GazLine(1:GazLineLength)
          read (GazLine(Tab(4)+1:Tab(5)-1), '(a)') GazArea(GazCount)
          read (GazLine(Tab(8)+1:Tab(9)-1), '(a)') GazName(GazCount)
Writes
          write (GazArea(GazCount), '(4x)')
          write (GazName(GazCount), '(255x)')
Opens
      open (unit = 91,
     *      name = '/infobank/programs/keep/gazette.keep',
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'old')
Calls
          call stringlen (GazName(GazCount), 
     *        GazNameLength(GazCount))
          call changecase ('SMALLS', GazArea(GazLoop))

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