Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- mainmakefmeta

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
mainmakefmeta
Synopsis
/infobank/programs/html/makefmeta/mainmakefmeta.for
Description
  Program to make formal metadata for DAPS data.

       
AUTHOR
  Clint Steele    1/16/98

  Set disk "imag1" for activities A-M and "imag2" for N-Z and
  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 (ControlUnit, '(a)', end = 98) ShortID
Writes
      write (Blank, '(80x)')
      write (ErrorFlag, '(10x)')
          write (ErrorUnit, '(a,2x,a)') ShortID(1:IDLength), ErrorFlag
          write (ErrorUnit, '(a)') ShortID(1:IDLength)
Opens
      open (unit   = ErrorUnit,
     *      status = 'unknown',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      file   = '/infobank/tmp/makefmeta_errorlog.temp')
      open (unit   = ControlUnit,
     *      file   = '/infobank/tmp/makefmeta.control.temp',
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old') 
Calls
      call stringlen (ShortID, IDLength)
      call changecase ('CAPITALS', CapID(1:IDLength))
      call setup (ImageDisk, LongID, CapLongID, ShortID,
     *            IDLength, MetaExists, AreaExists, DatesExists, 
     *            OverviewExists, HtmlExists, PlaceExists,
     *            PubsExists, NavExists, GravExists, MagExists,
     *            BathExists, SampExists, SeisExists,
     *            AnalogExists, CamerasExists, MetersExists, 
     *            BioExists, GeoExists, ImagExists, SubExists,
     *            DataExists, Aka, AkaExists, TempUnit, OutUnit, 
     *            ErrorFlag)
      call section1 (LongID, CapLongID, ShortID, IDLength,
     *               TempUnit, OutUnit,
     *               OverviewExists, HtmlExists, DatesExists,
     *               AreaExists, PlaceExists, PubsExists,
     *               NavExists, GravExists, MagExists, 
     *               BathExists, SampExists, SeisExists,
     *               CamerasExists, MetersExists, 
     *               BioExists, GeoExists, ImagExists, SubExists,
     *               DataExists,
     *               LongYear, Aka, AkaExists, Currency)
          call section2 (LongID, CapLongID, ShortID, IDLength,
     *                   DataExists, TempUnit, OutUnit)
          call section3 (LongID, CapLongID, ShortID, IDLength,
     *                   DataExists, TempUnit, OutUnit)
          call section4 (LongID, CapLongID, ShortID, IDLength,
     *                   DataExists, LongYear, TempUnit, OutUnit)
          call section5 (ImageDisk, LongID, CapLongID, ShortID,
     *                   IDLength, TempUnit, OutUnit, NavExists,
     *                   GravExists, MagExists, BathExists,
     *                   SampExists, SeisExists, AnalogExists,
     *                   CamerasExists, MetersExists, BioExists,
     *                   GeoExists, ImagExists, SubExists,
     *                   DataExists)
          call section6 (LongID, CapLongID, ShortID, IDLength,
     *                   DataExists, TempUnit, OutUnit, Aka,
     *                   AkaExists, Currency)
      call section7 (LongID, CapLongID, ShortID, IDLength,
     *               DataExists, TempUnit, OutUnit)
      call system ('/bin/cat /infobank/tmp/makefmeta_errorlog.temp '//
     *    '| grep " "')
      call system ('/bin/rm /infobank/tmp/makefmeta_*.temp')
      call system ('/bin/rm /infobank/tmp/theme_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/mainmakefmeta.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:44 PST 2013  (chd)