USGS InfoBank program -- mainmakefmeta

makefmeta

  Program to make formal metadata for DAPS data.
    

  Clint Steele    1/16/98


    

 open (unit   = ErrorUnit,
*      status = 'unknown',
*      access = 'sequential',
*      form   = 'formatted',
*      file   = '/tmp/makefmeta_errorlog.temp')

 open (unit   = ControlUnit,
*      file   = '/tmp/makefmeta.control.temp',
*      access = 'sequential',
*      form   = 'formatted',
*      status = 'old') 

    

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

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

 call stringlen (ShortID, IDLength)
 call setup (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  (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 /tmp/makefmeta_errorlog.temp '//
*    '| grep " "')
 call system ('/bin/rm /tmp/makefmeta_errorlog.temp')