USGS InfoBank program -- section25

section25

  Subroutine to create LINEAGE of formal metadata.


       

      call head (2, OutUnit,
     *            'Lineage:')
      call processing ('Navigation Data', 'nav', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))
      call processing ('Gravity Data', 'grav', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))
      call processing ('Magnetics Data', 'mag', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))
      call processing ('Bathymetry Data', 'bath', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))