USGS InfoBank program -- section52

section52

  Subroutine to output OVERVIEW DESCRIPTION for formal metadata.

  Added variable ImageDisk to call setup, to call section52,
  and to call section5. CDegnan, 8/23/2012
 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

       

              call entities ('Bathymetry with Time Stamp', 'bath',
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Biology Events with Time Stamp', 'bio',
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Camera Events with Time Stamp', 'cam', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Geodetic Events with Time Stamp', 'geo', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Gravity with Time Stamp', 'grav', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Imagery with Time Stamp', 'imag', 
     *                   TempUnit, OutUnit,
     *                   '/'//ImageDisk//'/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Magnetics with Time Stamp', 'mag', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
             call entities ('Metering Events with Time Stamp', 'meter', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Navigation with Time Stamp', 'nav',
     *               TempUnit, OutUnit,
     *               '/infobank/'//
     *               ShortID(1:1)//'/'//
     *               ShortID(1:IDLength),
     *               LongID(1:IDLength+3))
              call entities ('Samples with Time Stamp', 'samp', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
              call entities ('Seismic Shots with Time Stamp', 'seis', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))
            call entities ('Submersible Events with Time Stamp', 'sub', 
     *                   TempUnit, OutUnit,
     *                   '/infobank/'//
     *                   ShortID(1:1)//'/'//
     *                   ShortID(1:IDLength),
     *                   LongID(1:IDLength+3))