USGS InfoBank program -- section7

section7

  Subroutine to create section 7 of formal metadata.


       

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

      call head (1, OutUnit,
     *            'Metadata_Reference_Information:')
      call section71 (OutUnit)
      call section74 (OutUnit)
      call section75 (OutUnit)
      call section76 (OutUnit)
      call section77 (OutUnit)
      call section78 (OutUnit)
      call section79 (OutUnit)