Select Code to Download

Please note that I didn't pay a lot of attention to
keeping the "double" notation in the form of higher
...
quick check and found a difference of only 1.4 meters
between my Perl results and the results from a web-based
datum-shift calculator on the 'net.  -- Curt.

  use Coordinate;    

...
  printf("        decimal_degrees: %s\n", $temp->decimal_degrees("-180
+ 30 30.5") );
  printf("        degrees_minutes: %s\n", $temp->degrees_minutes("-180
+ 30 30.5") );
  printf("degrees_minutes_seconds: %s\n\n", $temp->degrees_minutes_sec
+onds("-180 30 30.5") );

Starting position(Lat, Long):  48.125   -122.5
Starting position(Lat, Long):  48 07 30.00000000   -122 30 0.00000000
...
        decimal_degrees: -180.50847222
        degrees_minutes: -180 30.50833333
degrees_minutes_seconds: -180 30 30.5

EllipsoidTable->enumerate();
DatumTable->enumerate();