Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- typemetas4gaz

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
typemetas4gaz
Synopsis
/infobank/programs/gaz/gazboothill/typemetas4gaz/typemetas4gaz.for
Description
  Program to divide <equiptype>/gl.metadat

  <equiptype>/<region&g
       
NOTES
  Expects results of AREATYPES4GAZ to exist

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


    
Reads
              read (91, '(q,a)', end = 98) 
     *            GazLineLength, GazLine(1:GazLineLength)
              read (GazLine(49:Tab(1)-1), '(f)') North
              read (GazLine(Tab(1)+1:Tab(2)-1), '(f)') South
              read (GazLine(Tab(2)+1:Tab(3)-1), '(f)') East
              read (GazLine(Tab(3)+1:Slash-1), '(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 (InArea, '(4x)')
              write (OutArea, '(4x)')
                       write (94, '(a)') ALine(1:ALineLength)
Opens
          open (unit = 91,
     *          name = '/infobank/programs/keep/areatypes4gaz.keep',
     *          access = 'sequential',
     *          status = 'old',
     *          form   = 'formatted')
              open (unit = 92,
     *              name = GazLine(Slash:GazLineLength)//'/'//
     *                     InArea(1:InAreaLength)//'.metadata',
     *              access = 'sequential',
     *              status = 'unknown',
     *              form   = 'formatted')
              open (unit = 94,
     *              name = GazLine(Slash:GazLineLength)//'/'//
     *                  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/typemetas4gaz/typemetas4gaz.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:22 PDT 2013  (chd)