Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- order

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
order
Synopsis
/infobank/programs/html/makefmeta/order.for
Description
  Subroutine to construct ORDERING INFORMATION for formal metadata.


       
Reads
              read (TempUnit, '(a)') DataFile
          read (TempUnit, '(t17,i8)') Size
Writes
              write (DataFile, '(512x)')
          write (OutUnit, 624) Size/1000000.0
          write (OutUnit, '(1x)')
          write (OutUnit, 630) HtmlPath(1:HtmlLength)
Opens
              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')
Calls
      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:')

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/makefmeta/order.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:46 PST 2013  (chd)