Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- place_keywords

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
place_keywords
Synopsis
/infobank/programs/html/makefmeta/place_keywords.for
Description
  Subroutine to generate formal metadata place_keyword entries

  based on Activity ID place names.
       
AUTHOR
  Clint Steele     12/4/97


    
Reads
          read (InUnit, '(q,a)', end = 99)
     *          BLineLength, BLine(1:BLineLength)
              read (BLine(1:BLineLength), '(a2,t7,q,a)') 
     *          Region, ALineLength, ALine(1:ALineLength)
          read (InUnit, '(q,a)', end = 99)
     *        BLineLength, BLine(1:BLineLength)
          read (BLine(1:BLineLength), '(a2,t7,q,a)') 
     *          Region, ALineLength, ALine(1:ALineLength)
          read (KeyUnit, '(a)', end = 97) ALine
          read (KeyUnit, '(t52,q,a)', end = 975) 
     *        ALineLength, ALine(1:ALineLength)
          read (KeyUnit, '(t10,q,a)', end = 976) 
     *        ALineLength, ALine(1:ALineLength)
          read (KeyUnit, '(t52,q,a)', end = 977) 
     *        ALineLength, ALine(1:ALineLength)
Writes
          write (OutUnit, 2) ALine(1:ALineLength)
              write (OutUnit, '(a)') ALine(1:ALineLength)
          write (OutUnit, 2) ALine(1:ALineLength)
          write (OutUnit, 2) ALine(1:ALineLength)
          write (OutUnit, 2) ALine(1:ALineLength)
Opens
      open (unit   = OutUnit,
     *      file   = '/infobank/tmp/place_keywords.temp',
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown')
      open (unit   = InUnit,
     *      file   = '/infobank/programs/keep/'//
     *               'regions.fmeta.keep',
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'old')
      open (unit   = KeyUnit,
     *      file   = '/infobank/'//
     *               ID(1:1)//'/'//
     *               ID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.place_keywords',
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown')
      open (unit   = KeyUnit,
     *      file   = '/infobank/'//
     *               ID(1:1)//'/'//
     *               ID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.atlasarea',
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown')
        open (unit   = KeyUnit,
     *      file   = '/infobank/'//
     *               ID(1:1)//'/'//
     *               ID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.operationarea',
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown')
      open (unit   = KeyUnit,
     *      file   = '/infobank/'//
     *               ID(1:1)//'/'//
     *               ID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.regionarea',
     *      form   = 'formatted',
     *      access = 'sequential',
     *      status = 'unknown')
Calls
      call stringlen (ID, IDLength)
          call stringlen (ALine, ALineLength)
      call system ('/bin/sort '//
     *             '-u /infobank/tmp/place_keywords.temp  > 
     *               '/infobank/'//
     *               ID(1:1)//'/'//
     *               ID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.place_keywords')
      call system ('/bin/rm /infobank/tmp/place_keywords.temp')

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/html/makefmeta/place_keywords.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:45 PST 2013  (chd)