USGS InfoBank program -- section1

section1

  Subroutine to create IDENTIFICATION INFORMATION of formal metadata.


       

      write (FMetaPath, '(255x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')
      write (OutUnit, '(1x)')

      call stringlen (FMetaPath, FMetaLength)
      call head (1, OutUnit,
     *            'Identification_Information:')
      call section11 (LongID, CapLongID, ShortID, IDLength,
     *                TempUnit, OutUnit,
     *                OverviewExists, HtmlExists,
     *                NavExists, GravExists, MagExists, 
     *                BathExists, SampExists, SeisExists,
     *                CamerasExists, MetersExists,
     *                BioExists, GeoExists, ImagExists, SubExists,
     *                Aka, AkaExists,
     *                TodaysDate, StartingDate, EndingDate, Currency)
      call section12 (LongID, CapLongID, ShortID, IDLength,
     *                TempUnit, OutUnit,
     *                OverviewExists, Aka, AkaExists,
     *                TodaysDate, StartingDate, EndingDate, Currency)
      call section13 (LongID, ShortID, IDLength,
     *                TempUnit, OutUnit,
     *                DatesExists, LongYear)
      call section14 (OutUnit,
     *    TodaysDate, StartingDate, EndingDate)
      call section15 (LongID, CapLongID, ShortID, IDLength,
     *                TempUnit, OutUnit,
     *                AreaExists)
      call section16 (LongID, ShortID, IDLength,
     *                TempUnit, OutUnit,
     *                PlaceExists)
      call section17 (OutUnit)
      call section18 (OutUnit)
      call section19 (OutUnit)
      call section110 (LongID, CapLongID, ShortID, IDLength,
     *                 TempUnit, OutUnit)
      call section111 (LongID, ShortID, IDLength,
     *                 TempUnit, OutUnit)
      call section113 (OutUnit)
      call section114 (LongID, ShortID, IDLength,
     *                 TempUnit, OutUnit,
     *                 PubsExists, AkaExists)