USGS InfoBank program -- section2

section2

  Subroutine to create DATA QUALITY INFORMATION of formal metadata.


       

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

      call head (1, OutUnit,
     *            'Data_Quality_Information:')
      call head (2, OutUnit,
     *            'Attribute_Accuracy:')
      call section21 (OutUnit)
      call section22 (OutUnit)
      call section23 (LongID, ShortID, IDLength,
     *                TempUnit, OutUnit)
      call section24 (OutUnit)
      call section25 (LongID, ShortID, IDLength,
     *                TempUnit, OutUnit)