Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- section64

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
section64
Synopsis
/infobank/programs/html/makefmeta/section64.for
Description
  Subroutine to create STANDARD ORDER PROCESS of formal metadata.


       
Reads
Writes
Opens
Calls
      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')

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/section64.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:44 PST 2013  (chd)