USGS InfoBank program -- mainmakefmeta

mainmakefmeta

  Program to make formal metadata for DAPS data.

       

  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

    

      read (ControlUnit, '(a)', end = 98) ShortID

      write (Blank, '(80x)')
      write (ErrorFlag, '(10x)')
          write (ErrorUnit, '(a,2x,a)') ShortID(1:IDLength), ErrorFlag
          write (ErrorUnit, '(a)') ShortID(1:IDLength)

      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') 

      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')