USGS InfoBank program -- order

order

  Subroutine to construct ORDERING INFORMATION for formal metadata.


       

              read (TempUnit, '(a)') DataFile
          read (TempUnit, '(t17,i8)') Size

              write (DataFile, '(512x)')
          write (OutUnit, 624) Size/1000000.0
          write (OutUnit, '(1x)')
          write (OutUnit, 630) HtmlPath(1:HtmlLength)

              open (unit = TempUnit,
     *              file = DataPath//DataType,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old')
          open (unit   = TempUnit,
     *          file   = '/infobank/tmp/fmeta.wc.temp',
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'old')

      call stringlen (HtmlPath, HtmlLength)
              call stringlen (DataFile, DataLength)
              call stringlen (DataFile, DataLength)
          call head (3, OutUnit, 
     *            'Digital_Form:')
          call head (4, OutUnit, 
     *            'Digital_Transfer_Information:')
          call value (5, OutUnit,  
     *            'Format_Name:                     ', 
     *            'ASCII')
          call value (5, OutUnit, 
     *            'File_Decompression_Technique:    ', 
     *            'No compression applied')
          call system (
     *       'wc '//DataFile(1:DataLength)//
     *       ' > /infobank/tmp/fmeta.wc.tem
          call head (4, OutUnit, 
     *            'Digital_Transfer_Option:')
          call head (5, OutUnit,
     *            'Online_Option:')
          call head (6, OutUnit,
     *            'Computer_Contact_Information:')
          call head (7, OutUnit,
     *            'Network_Address:')