Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- section41

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
section41
Synopsis
/infobank/programs/html/makefmeta/section41.for
Description
  Subroutine to create HORIZONTAL COORDINATE SYSTEM DEFINITION of formal metadata.


       
Reads
Writes
          write (OutUnit, '(1x)')
Opens
Calls
      call head (2, OutUnit,
     *            'Horizontal_Coordinate_System_Definition:')
      call head (3, OutUnit,
     *            'Geographic:')
      call value (4, OutUnit,
     *            'Latitude_Resolution:            ', 
     *            '0.00001')
      call value (4, OutUnit,
     *            'Longitude_Resolution:           ', 
     *            '0.00001')
      call value (4, OutUnit,
     *            'Geographic_Coordinate_Units:    ', 
     *            'Decimal degrees')
          call head (3, OutUnit,
     *            'Geodetic_Model:')
              call value (4, OutUnit,
     *            'Horizontal_Datum_Name:              ', 
     *            'North American Datum of 1927')
              call value (4, OutUnit,
     *            'Ellipsoid_Name:                     ', 
     *            'Clarke 1866')
              call value (4, OutUnit,
     *            'Semi-major_Axis:                    ', 
     *            '6378206.4')
              call value (4, OutUnit,
     *            'Denominator_of_Flattening_Ratio:    ', 
     *            '294.98')
              call value (4, OutUnit,
     *            'Horizontal_Datum_Name:              ', 
     *            'North American Datum of 1983')
              call value (4, OutUnit,
     *            'Ellipsoid_Name:                     ', 
     *            'Geodetic Reference System 80')
              call value (4, OutUnit,
     *            'Semi-major_Axis:                    ', 
     *            '6378137')
              call value (4, OutUnit,
     *            'Denominator_of_Flattening_Ratio:    ', 
     *            '298.257')

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