USGS InfoBank program -- section64

section64

  Subroutine to create STANDARD ORDER PROCESS of formal metadata.


       

      call head (2, OutUnit,
     *            'Standard_Order_Process:')
      call order (OutUnit, TempUnit, 
     *            '.best_nav_file',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/nav/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.nav.html')
      call order (OutUnit, TempUnit, 
     *            '.best_grav_file',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/grav/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.grav.html')
      call order (OutUnit, TempUnit, 
     *            '.best_mag_file',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/mag/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.mag.html')
      call order (OutUnit, TempUnit, 
     *            '.best_bath_file',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/bath/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.bath.html')
      call order (OutUnit, TempUnit, 
     *            '.best_seis_file',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/seis/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.seis.html')
      call order (OutUnit, TempUnit, 
     *            '.samples',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/samp/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.samp.html')
      call order (OutUnit, TempUnit, 
     *            '.meters',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/meter/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.meter.html')
      call order (OutUnit, TempUnit, 
     *            '.cameras',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/cam/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.cam.html')
      call order (OutUnit, TempUnit, 
     *            '.geo',
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/geo/'//
     *            LongID(1:IDLength+3),
     *            '/infobank/'//
     *            ShortID(1:1)//'/'//
     *            ShortID(1:IDLength)//'/html/'//
     *            LongID(1:IDLength+3)//'.geo.html')
      call value (3, OutUnit,  
     *            'Fees:    ', 
     *            'None')