Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- areas4gaz

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
areas4gaz
Synopsis
/infobank/programs/gaz/gazboothill/areas4gaz/areas4gaz.for
Description
  Program to divide regions/gl.metadata into 

  regions/<region>.met
       
NOTES
  Expects results of INSIDES4GAZ to exist

  Typical execution time = 18 minutes
    
AUTHOR
  Clint Steele      7/25/2000


    
Reads
              read (91, '(q,a)', end = 98) 
     *            GazLineLength, GazLine(1:GazLineLength)
              read (GazLine(Tab(4)+1:Tab(5)-1), '(f)') North
              read (GazLine(Tab(5)+1:Tab(6)-1), '(f)') South
              read (GazLine(Tab(6)+1:Tab(7)-1), '(f)') East
              read (GazLine(Tab(7)+1:GazLineLength), '(f)') West
                  read (92, '(q,a)', end = 97) 
     *                ALineLength, ALine(1:ALineLength)
                  read (ALine(1:ALineLength), '(t16,f9.5,t26,f10.5)')
     *                Latitude, Longitude
Writes
                       write (94, '(a)') ALine(1:ALineLength)
Opens
          open (unit = 91,
     *          name = '/infobank/programs/keep/insides4gaz.keep',
     *          access = 'sequential',
     *          status = 'old',
     *          form   = 'formatted')
              open (unit = 92,
     *              name = '/infobank/gazette/metadata/regions/'//
     *                     InArea(1:InAreaLength)//'.metadata', 
     *              access = 'sequential',
     *              status = 'unknown',
     *              form   = 'formatted')
              open (unit = 94,
     *              name = '/infobank/gazette/metadata/regions/'//
     *                  OutArea(1:OutAreaLength)//'.metadata',
     *              access = 'sequential',
     *              status = 'unknown',
     *              form   = 'formatted')
Calls
              call changecase ('SMALLS', GazLine(1:GazLineLength))
              call stringlen (InArea, InAreaLength)
              call stringlen (OutArea, OutAreaLength)
                  call inside (Latitude, Longitude, 
     *                         North, South, West, East,
     *                         Relationship)

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