USGS InfoBank program -- section23

section23

  Subroutine to create COMPLETNESS REPORT of formal metadata.


       

      write (OutUnit, 1)

      call getevents ('Navigation Data', 'nav', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))
      call getevents ('Gravity Data', 'grav', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))
      call getevents ('Magnetics Data', 'mag', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))
      call getevents ('Bathymetry Data', 'bath', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))
      call getevents ('Seismic Shots Data', 'seis', 
     *             TempUnit, OutUnit,
     *             '/infobank/'//
     *             ShortID(1:1)//'/'//
     *             ShortID(1:IDLength),
     *             LongID(1:IDLength+3))