Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- setup

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
setup
Synopsis
/infobank/programs/html/makefmeta/setup.for
Description
  Subroutine to set up variables for formal metadata routines.

  Added variable ImageDisk to call setup, to call section52,
  and to call section5. CDegnan, 8/23/2012
 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

       
Reads
      read (TempUnit, '(a)') ALine
          read (TempUnit, '(a)') ALine
          read (TempUnit, '(a)') ALine
Writes
      write (LongID,    '(10x)')
      write (CapLongID, '(10x)')
          write (Aka, '(30x)')
          write (Aka, '(30x)')
Opens
      open (unit   = TempUnit,
     *      name   = '/infobank/'//
     *               ShortID(1:1)//'/'//
     *               ShortID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.ids',
     *      status = 'old',
     *      access = 'sequential',
     *      form   = 'formatted')
          open (unit   = TempUnit,
     *          name   = '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength)//'/meta/'//
     *                   LongID(1:IDLength+3)//'.navarea',
     *          status = 'old',
     *          access = 'sequential',
     *          form   = 'formatted')
          open (unit   = TempUnit,
     *          name   = '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength)//'/meta/'//
     *                   LongID(1:IDLength+3)//'.dates',
     *          status = 'old',
     *          access = 'sequential',
     *          form   = 'formatted')
      open (unit   = OutUnit,
     *      name   = '/infobank/'//
     *               ShortID(1:1)//'/'//
     *               ShortID(1:IDLength)//'/meta/'//
     *               LongID(1:IDLength+3)//'.fmeta',
     *      status = 'unknown',
     *      access = 'sequential',
     *      form   = 'formatted')
Calls
      call changecase ('SMALL', ShortID(1:IDLength))
      call changecase ('CAPITAL', CapLongID(1:IDLength+3))
      call stringlen (ALine, ALineLength)
          call stringlen (ALine(1:29), AkaLength)
      call stringlen (Aka, AkaLength)
          call stringlen (ALine, ALineLength)
          call stringlen (ALine, ALineLength)
      call themekeywords (ShortID(1:IDLength))
      call place_keywords (ShortID(1:IDLength))
      call system ('chmod 664 '//
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength)//'/meta/'//
     *             LongID(1:IDLength+3)//'.fmeta')

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