Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- typenav

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
typenav
Synopsis
/infobank/programs/share/typenav.for
Description
  Subroutine to determine the type of navigation data 

  (lat/long, UTM, unknown) and assure hemispherical consistancy
  between two pairs of positions.
       
USAGE
  "a" = argument, "r" = referenced, "s" = set

  
  call typenav                          (with the following arguments)
         Input1x                     [variable r*8 r]
         Input1y                     [variable r*8 r]
         Input2x                     [variable r*8 r]
         Input2y                     [variable r*8 r]
         Output1x                    [variable r*8 sr]
         Output1y                    [variable r*8 sr]
         Output2x                    [variable r*8 sr]
         Output2y                    [variable r*8 sr]
         DataType                    [variable char*8 s]
    
FUNCTIONS
  abs                 (FORTRAN intrinsic function)  

    
FILES_USED
  unit=*(write)

    
LIMITATIONS
  Positions can be either UTMx/UTMy pairs or Lat/Long pairs.

  One position CAN NOT be UTMs with the other being Lat/Long.
  Both UTM pairs are assumed to be based on the same UTM zone.
  UTM positions within 360 meters of 0d lat and 0d long will be
      interpreted as lat/longs not UTMs.
  Lat/Longs may be on opposite sides of the International Date Line.
  Longitudes must be between +/- 180.0
  Identical input pairs results in a distance value of 0.0
    
AUTHOR
  Clint Steele       3/16/93

  Carolyn Degnan     9/23/04    added implicit none.

    
Reads
Writes
Opens
Calls

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/share/typenav.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:36:49 PDT 2013  (chd)