-/**************************************************************************
- * fg_geodesy.c -- routines to convert between geodetic and geocentric
- * coordinate systems.
- *
- * Copied and adapted directly from LaRCsim/ls_geodesy.c
- *
- * See below for the complete original LaRCsim comments.
- *
- * $Id$
- * (Log is kept at end of this file)
- **************************************************************************/
+// fg_geodesy.cxx -- routines to convert between geodetic and geocentric
+// coordinate systems.
+//
+// Copied and adapted directly from LaRCsim/ls_geodesy.c
+//
+// See below for the complete original LaRCsim comments.
+//
+// $Id$
+// (Log is kept at end of this file)
#include <math.h>
-#include <Math/fg_geodesy.h>
#include <Include/fg_constants.h>
+#include <Math/fg_geodesy.hxx>
+#include <Math/point3d.hxx>
-/* ONE_SECOND is pi/180/60/60, or about 100 feet at earths' equator */
+// ONE_SECOND is pi/180/60/60, or about 100 feet at earths' equator
#define ONE_SECOND 4.848136811E-6
-/* fgGeocToGeod(lat_geoc, radius, *lat_geod, *alt, *sea_level_r)
- * INPUTS:
- * lat_geoc Geocentric latitude, radians, + = North
- * radius C.G. radius to earth center (meters)
- *
- * OUTPUTS:
- * lat_geod Geodetic latitude, radians, + = North
- * alt C.G. altitude above mean sea level (meters)
- * sea_level_r radius from earth center to sea level at
- * local vertical (surface normal) of C.G. (meters)
- */
+// fgGeocToGeod(lat_geoc, radius, *lat_geod, *alt, *sea_level_r)
+// INPUTS:
+// lat_geoc Geocentric latitude, radians, + = North
+// radius C.G. radius to earth center (meters)
+//
+// OUTPUTS:
+// lat_geod Geodetic latitude, radians, + = North
+// alt C.G. altitude above mean sea level (meters)
+// sea_level_r radius from earth center to sea level at
+// local vertical (surface normal) of C.G. (meters)
+
void fgGeocToGeod( double lat_geoc, double radius, double
*lat_geod, double *alt, double *sea_level_r )
double t_lat, x_alpha, mu_alpha, delt_mu, r_alpha, l_point, rho_alpha;
double sin_mu_a, denom,delt_lambda, lambda_sl, sin_lambda_sl;
- if( ( (FG_PI_2 - lat_geoc) < ONE_SECOND ) /* near North pole */
- || ( (FG_PI_2 + lat_geoc) < ONE_SECOND ) ) /* near South pole */
+ if( ( (FG_PI_2 - lat_geoc) < ONE_SECOND ) // near North pole
+ || ( (FG_PI_2 + lat_geoc) < ONE_SECOND ) ) // near South pole
{
*lat_geod = lat_geoc;
*sea_level_r = EQUATORIAL_RADIUS_M*E;
(denom*denom*denom);
delt_mu = atan2(l_point*sin(delt_lambda),rho_alpha + *alt);
*lat_geod = mu_alpha - delt_mu;
- lambda_sl = atan( E*E * tan(*lat_geod) ); /* SL geoc. latitude */
+ lambda_sl = atan( E*E * tan(*lat_geod) ); // SL geoc. latitude
sin_lambda_sl = sin( lambda_sl );
*sea_level_r =
sqrt(RESQ_M / (1 + ((1/(E*E))-1)*sin_lambda_sl*sin_lambda_sl));
}
-/* fgGeodToGeoc( lat_geod, alt, *sl_radius, *lat_geoc )
- * INPUTS:
- * lat_geod Geodetic latitude, radians, + = North
- * alt C.G. altitude above mean sea level (meters)
- *
- * OUTPUTS:
- * sl_radius SEA LEVEL radius to earth center (meters)
- * (add Altitude to get true distance from earth center.
- * lat_geoc Geocentric latitude, radians, + = North
- *
- */
+// fgGeodToGeoc( lat_geod, alt, *sl_radius, *lat_geoc )
+// INPUTS:
+// lat_geod Geodetic latitude, radians, + = North
+// alt C.G. altitude above mean sea level (meters)
+//
+// OUTPUTS:
+// sl_radius SEA LEVEL radius to earth center (meters)
+// (add Altitude to get true distance from earth center.
+// lat_geoc Geocentric latitude, radians, + = North
+//
+
void fgGeodToGeoc( double lat_geod, double alt, double *sl_radius,
double *lat_geoc )
{
double lambda_sl, sin_lambda_sl, cos_lambda_sl, sin_mu, cos_mu, px, py;
- lambda_sl = atan( E*E * tan(lat_geod) ); /* sea level geocentric latitude */
+ lambda_sl = atan( E*E * tan(lat_geod) ); // sea level geocentric latitude
sin_lambda_sl = sin( lambda_sl );
cos_lambda_sl = cos( lambda_sl );
- sin_mu = sin(lat_geod); /* Geodetic (map makers') latitude */
+ sin_mu = sin(lat_geod); // Geodetic (map makers') latitude
cos_mu = cos(lat_geod);
*sl_radius =
sqrt(RESQ_M / (1 + ((1/(E*E))-1)*sin_lambda_sl*sin_lambda_sl));
$Header$
$Log$
+Revision 1.2 1998/10/16 23:36:36 curt
+c++-ifying.
+
Revision 1.1 1998/10/16 19:30:40 curt
Renamed .c -> .h so we can start adding c++ supporting routines.
--------------------------------------------------------------------------*/
-/* $Log$
-/* Revision 1.1 1998/10/16 19:30:40 curt
-/* Renamed .c -> .h so we can start adding c++ supporting routines.
-/*
- * Revision 1.6 1998/07/08 14:40:07 curt
- * polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
- * Updated fg_geodesy comments to reflect that routines expect and produce
- * meters.
- *
- * Revision 1.5 1998/04/25 22:06:23 curt
- * Edited cvs log messages in source files ... bad bad bad!
- *
- * Revision 1.4 1998/01/27 00:47:59 curt
- * Incorporated Paul Bleisch's <pbleisch@acm.org> new debug message
- * system and commandline/config file processing code.
- *
- * Revision 1.3 1998/01/19 19:27:12 curt
- * Merged in make system changes from Bob Kuehne <rpk@sgi.com>
- * This should simplify things tremendously.
- *
- * Revision 1.2 1997/12/15 23:54:54 curt
- * Add xgl wrappers for debugging.
- * Generate terrain normals on the fly.
- *
- * Revision 1.1 1997/07/31 23:13:14 curt
- * Initial revision.
- *
- */
+// $Log$
+// Revision 1.2 1998/10/16 23:36:36 curt
+// c++-ifying.
+//
+// Revision 1.1 1998/10/16 19:30:40 curt
+// Renamed .c -> .h so we can start adding c++ supporting routines.
+//
+// Revision 1.6 1998/07/08 14:40:07 curt
+// polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
+// Updated fg_geodesy comments to reflect that routines expect and produce
+// meters.
+//
+// Revision 1.5 1998/04/25 22:06:23 curt
+// Edited cvs log messages in source files ... bad bad bad!
+//
+// Revision 1.4 1998/01/27 00:47:59 curt
+// Incorporated Paul Bleisch's <pbleisch@acm.org> new debug message
+// system and commandline/config file processing code.
+//
+// Revision 1.3 1998/01/19 19:27:12 curt
+// Merged in make system changes from Bob Kuehne <rpk@sgi.com>
+// This should simplify things tremendously.
+//
+// Revision 1.2 1997/12/15 23:54:54 curt
+// Add xgl wrappers for debugging.
+// Generate terrain normals on the fly.
+//
+// Revision 1.1 1997/07/31 23:13:14 curt
+// Initial revision.
+//
+
-/**************************************************************************
- * fg_geodesy.h -- routines to convert between geodetic and geocentric
- * coordinate systems.
- *
- * Copied and adapted directly from LaRCsim/ls_geodesy.c
- *
- * See below for the complete original LaRCsim comments.
- *
- * $Id$
- * (Log is kept at end of this file)
- **************************************************************************/
+// fg_geodesy.hxx -- routines to convert between geodetic and geocentric
+// coordinate systems.
+//
+// Copied and adapted directly from LaRCsim/ls_geodesy.c
+//
+// See below for the complete original LaRCsim comments.
+//
+// $Id$
+// (Log is kept at end of this file)
-#ifndef _FG_GEODESY_H
-#define _FG_GEODESY_H
+#ifndef _FG_GEODESY_HXX
+#define _FG_GEODESY_HXX
-#ifdef __cplusplus
-extern "C" {
+#ifndef __cplusplus
+# error This library requires C++
#endif
-/* fgGeocToGeod(lat_geoc, radius, *lat_geod, *alt, *sea_level_r)
- * INPUTS:
- * lat_geoc Geocentric latitude, radians, + = North
- * radius C.G. radius to earth center (meters)
- *
- * OUTPUTS:
- * lat_geod Geodetic latitude, radians, + = North
- * alt C.G. altitude above mean sea level (meters)
- * sea_level_r radius from earth center to sea level at
- * local vertical (surface normal) of C.G. (meters)
- */
+#include <Math/point3d.hxx>
+#include <Math/polar3d.hxx>
+
+
+// fgGeocToGeod(lat_geoc, radius, *lat_geod, *alt, *sea_level_r)
+// INPUTS:
+// lat_geoc Geocentric latitude, radians, + = North
+// radius C.G. radius to earth center (meters)
+//
+// OUTPUTS:
+// lat_geod Geodetic latitude, radians, + = North
+// alt C.G. altitude above mean sea level (meters)
+// sea_level_r radius from earth center to sea level at
+// local vertical (surface normal) of C.G. (meters)
void fgGeocToGeod( double lat_geoc, double radius, double
*lat_geod, double *alt, double *sea_level_r );
-/* fgGeodToGeoc( lat_geod, alt, *sl_radius, *lat_geoc )
- * INPUTS:
- * lat_geod Geodetic latitude, radians, + = North
- * alt C.G. altitude above mean sea level (meters)
- *
- * OUTPUTS:
- * sl_radius SEA LEVEL radius to earth center (meters)
- * (add Altitude to get true distance from earth center.
- * lat_geoc Geocentric latitude, radians, + = North
- *
- */
+
+// fgGeodToGeoc( lat_geod, alt, *sl_radius, *lat_geoc )
+// INPUTS:
+// lat_geod Geodetic latitude, radians, + = North
+// alt C.G. altitude above mean sea level (meters)
+//
+// OUTPUTS:
+// sl_radius SEA LEVEL radius to earth center (meters)
+// (add Altitude to get true distance from earth center.
+// lat_geoc Geocentric latitude, radians, + = North
+//
void fgGeodToGeoc( double lat_geod, double alt, double *sl_radius,
double *lat_geoc );
+// convert a geodetic point lon(radians), lat(radians), elev(meter) to
+// a cartesian point
+
+inline Point3D fgGeodToCart(const Point3D& geod) {
+ Point3D cp;
+ Point3D pp;
+ double gc_lon, gc_lat, sl_radius;
+
+ // printf("A geodetic point is (%.2f, %.2f, %.2f)\n",
+ // geod[0], geod[1], geod[2]);
+
+ gc_lon = geod.lon();
+ fgGeodToGeoc(geod.lat(), geod.radius(), &sl_radius, &gc_lat);
+
+ // printf("A geocentric point is (%.2f, %.2f, %.2f)\n", gc_lon,
+ // gc_lat, sl_radius+geod[2]);
+
+ pp.setvals(gc_lon, gc_lat, sl_radius + geod.radius());
+ cp = fgPolarToCart3d(pp);
+
+ // printf("A cart point is (%.8f, %.8f, %.8f)\n", cp.x, cp.y, cp.z);
+
+ return(cp);
+}
+
/***************************************************************************
$Header$
$Log$
+Revision 1.2 1998/10/16 23:36:37 curt
+c++-ifying.
+
Revision 1.1 1998/10/16 19:30:42 curt
Renamed .c -> .h so we can start adding c++ supporting routines.
--------------------------------------------------------------------------*/
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* _FG_GEODESY_H */
-
+#endif // _FG_GEODESY_HXX
+
+
+// $Log$
+// Revision 1.2 1998/10/16 23:36:37 curt
+// c++-ifying.
+//
+// Revision 1.1 1998/10/16 19:30:42 curt
+// Renamed .c -> .h so we can start adding c++ supporting routines.
+//
+// Revision 1.4 1998/07/08 14:40:08 curt
+// polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
+// Updated fg_geodesy comments to reflect that routines expect and produce
+// meters.
+//
+// Revision 1.3 1998/04/21 17:03:48 curt
+// Prepairing for C++ integration.
+//
+// Revision 1.2 1998/01/22 02:59:38 curt
+// Changed #ifdef FILE_H to #ifdef _FILE_H
+//
+// Revision 1.1 1997/07/31 23:13:14 curt
+// Initial revision.
+//
-/* $Log$
-/* Revision 1.1 1998/10/16 19:30:42 curt
-/* Renamed .c -> .h so we can start adding c++ supporting routines.
-/*
- * Revision 1.4 1998/07/08 14:40:08 curt
- * polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
- * Updated fg_geodesy comments to reflect that routines expect and produce
- * meters.
- *
- * Revision 1.3 1998/04/21 17:03:48 curt
- * Prepairing for C++ integration.
- *
- * Revision 1.2 1998/01/22 02:59:38 curt
- * Changed #ifdef FILE_H to #ifdef _FILE_H
- *
- * Revision 1.1 1997/07/31 23:13:14 curt
- * Initial revision.
- *
- */
-/**************************************************************************
- * vector.c -- additional vector routines
- *
- * Written by Curtis Olson, started December 1997.
- *
- * Copyright (C) 1997 Curtis L. Olson - curt@infoplane.com
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License as
- * published by the Free Software Foundation; either version 2 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * $Id$
- * (Log is kept at end of this file)
- **************************************************************************/
+// vector.cxx -- additional vector routines
+//
+// Written by Curtis Olson, started December 1997.
+//
+// Copyright (C) 1997 Curtis L. Olson - curt@infoplane.com
+//
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License as
+// published by the Free Software Foundation; either version 2 of the
+// License, or (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful, but
+// WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+// General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program; if not, write to the Free Software
+// Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+//
+// $Id$
+// (Log is kept at end of this file)
#include <math.h>
#if !defined( USE_XTRA_MAT3_INLINES )
-/* Map a vector onto the plane specified by normal */
+// Map a vector onto the plane specified by normal
void map_vec_onto_cur_surface_plane(MAT3vec normal, MAT3vec v0, MAT3vec vec,
MAT3vec result)
{
MAT3vec u1, v, tmp;
- /* calculate a vector "u1" representing the shortest distance from
- * the plane specified by normal and v0 to a point specified by
- * "vec". "u1" represents both the direction and magnitude of
- * this desired distance. */
+ // calculate a vector "u1" representing the shortest distance from
+ // the plane specified by normal and v0 to a point specified by
+ // "vec". "u1" represents both the direction and magnitude of
+ // this desired distance.
- /* u1 = ( (normal <dot> vec) / (normal <dot> normal) ) * normal */
+ // u1 = ( (normal <dot> vec) / (normal <dot> normal) ) * normal
MAT3_SCALE_VEC( u1,
normal,
)
);
- /*
- printf(" vec = %.2f, %.2f, %.2f\n", vec[0], vec[1], vec[2]);
- printf(" v0 = %.2f, %.2f, %.2f\n", v0[0], v0[1], v0[2]);
- printf(" u1 = %.2f, %.2f, %.2f\n", u1[0], u1[1], u1[2]);
- */
+ // printf(" vec = %.2f, %.2f, %.2f\n", vec[0], vec[1], vec[2]);
+ // printf(" v0 = %.2f, %.2f, %.2f\n", v0[0], v0[1], v0[2]);
+ // printf(" u1 = %.2f, %.2f, %.2f\n", u1[0], u1[1], u1[2]);
+
+ // calculate the vector "v" which is the vector "vec" mapped onto
+ // the plane specified by "normal" and "v0".
- /* calculate the vector "v" which is the vector "vec" mapped onto
- the plane specified by "normal" and "v0". */
-
- /* v = v0 + vec - u1 */
+ // v = v0 + vec - u1
MAT3_ADD_VEC(tmp, v0, vec);
MAT3_SUB_VEC(v, tmp, u1);
- /* printf(" v = %.2f, %.2f, %.2f\n", v[0], v[1], v[2]); */
+ // printf(" v = %.2f, %.2f, %.2f\n", v[0], v[1], v[2]);
- /* Calculate the vector "result" which is "v" - "v0" which is a
- * directional vector pointing from v0 towards v */
+ // Calculate the vector "result" which is "v" - "v0" which is a
+ // directional vector pointing from v0 towards v
- /* result = v - v0 */
+ // result = v - v0
MAT3_SUB_VEC(result, v, v0);
- /* printf(" result = %.2f, %.2f, %.2f\n",
- result[0], result[1], result[2]); */
+ // printf(" result = %.2f, %.2f, %.2f\n",
+ // result[0], result[1], result[2]);
}
#endif // !defined( USE_XTRA_MAT3_INLINES )
}
-/* $Log$
-/* Revision 1.4 1998/10/16 00:50:31 curt
-/* Added point3d.hxx to replace cheezy fgPoint3d struct.
-/*
- * Revision 1.3 1998/08/24 20:04:12 curt
- * Various "inline" code optimizations contributed by Norman Vine.
- *
- * Revision 1.2 1998/07/24 21:34:38 curt
- * fgPointLine() rewritten into fgPointLineSquared() ... this ultimately saves
- * us from doing a sqrt().
- *
- * Revision 1.1 1998/07/08 14:40:10 curt
- * polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
- * Updated fg_geodesy comments to reflect that routines expect and produce
- * meters.
- *
- * Revision 1.3 1998/05/07 23:04:28 curt
- * Added a blank formating line!
- *
- * Revision 1.2 1998/01/19 19:27:13 curt
- * Merged in make system changes from Bob Kuehne <rpk@sgi.com>
- * This should simplify things tremendously.
- *
- * Revision 1.1 1997/12/22 04:13:17 curt
- * Initial revision.
- * */
-
-
-
-
-
+// $Log$
+// Revision 1.5 1998/10/16 23:36:38 curt
+// c++-ifying.
+//
+// Revision 1.4 1998/10/16 00:50:31 curt
+// Added point3d.hxx to replace cheezy fgPoint3d struct.
+//
+// Revision 1.3 1998/08/24 20:04:12 curt
+// Various "inline" code optimizations contributed by Norman Vine.
+//
+// Revision 1.2 1998/07/24 21:34:38 curt
+// fgPointLine() rewritten into fgPointLineSquared() ... this ultimately saves
+// us from doing a sqrt().
+//
+// Revision 1.1 1998/07/08 14:40:10 curt
+// polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
+// Updated fg_geodesy comments to reflect that routines expect and produce
+// meters.
+//
+// Revision 1.3 1998/05/07 23:04:28 curt
+// Added a blank formating line!
+//
+// Revision 1.2 1998/01/19 19:27:13 curt
+// Merged in make system changes from Bob Kuehne <rpk@sgi.com>
+// This should simplify things tremendously.
+//
+// Revision 1.1 1997/12/22 04:13:17 curt
+// Initial revision.
+//
-/**************************************************************************
- * vector.hxx -- additional vector routines
- *
- * Written by Curtis Olson, started December 1997.
- *
- * Copyright (C) 1997 Curtis L. Olson - curt@infoplane.com
- *
- * This program is free software; you can redistribute it and/or
- * modify it under the terms of the GNU General Public License as
- * published by the Free Software Foundation; either version 2 of the
- * License, or (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * $Id$
- * (Log is kept at end of this file)
- **************************************************************************/
+// vector.hxx -- additional vector routines
+//
+// Written by Curtis Olson, started December 1997.
+//
+// Copyright (C) 1997 Curtis L. Olson - curt@infoplane.com
+//
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License as
+// published by the Free Software Foundation; either version 2 of the
+// License, or (at your option) any later version.
+//
+// This program is distributed in the hope that it will be useful, but
+// WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+// General Public License for more details.
+//
+// You should have received a copy of the GNU General Public License
+// along with this program; if not, write to the Free Software
+// Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+//
+// $Id$
+// (Log is kept at end of this file)
#ifndef _VECTOR_HXX
#include "mat3.h"
-/* Map a vector onto the plane specified by normal */
+// Map a vector onto the plane specified by normal
#if defined( USE_XTRA_MAT3_INLINES )
# define map_vec_onto_cur_surface_plane(normal, v0, vec, result) { \
double scale = ((normal[0]*vec[0]+normal[1]*vec[1]+normal[2]*vec[2]) / \
double fgPointLineSquared(MAT3vec p, MAT3vec p0, MAT3vec d);
-#endif /* _VECTOR_HXX */
-
-
-/* $Log$
-/* Revision 1.3 1998/08/24 20:04:13 curt
-/* Various "inline" code optimizations contributed by Norman Vine.
-/*
- * Revision 1.2 1998/07/24 21:34:38 curt
- * fgPointLine() rewritten into fgPointLineSquared() ... this ultimately saves
- * us from doing a sqrt().
- *
- * Revision 1.1 1998/07/08 14:40:10 curt
- * polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
- * Updated fg_geodesy comments to reflect that routines expect and produce
- * meters.
- *
- * Revision 1.4 1998/04/21 17:03:51 curt
- * Prepairing for C++ integration.
- *
- * Revision 1.3 1998/01/22 02:59:39 curt
- * Changed #ifdef FILE_H to #ifdef _FILE_H
- *
- * Revision 1.2 1998/01/19 19:27:14 curt
- * Merged in make system changes from Bob Kuehne <rpk@sgi.com>
- * This should simplify things tremendously.
- *
- * Revision 1.1 1997/12/22 04:13:18 curt
- * Initial revision.
- *
- */
+#endif // _VECTOR_HXX
+
+
+// $Log$
+// Revision 1.4 1998/10/16 23:36:39 curt
+// c++-ifying.
+//
+// Revision 1.3 1998/08/24 20:04:13 curt
+// Various "inline" code optimizations contributed by Norman Vine.
+//
+// Revision 1.2 1998/07/24 21:34:38 curt
+// fgPointLine() rewritten into fgPointLineSquared() ... this ultimately saves
+// us from doing a sqrt().
+//
+// Revision 1.1 1998/07/08 14:40:10 curt
+// polar3d.[ch] renamed to polar3d.[ch]xx, vector.[ch] renamed to vector.[ch]xx
+// Updated fg_geodesy comments to reflect that routines expect and produce
+// meters.
+//
+// Revision 1.4 1998/04/21 17:03:51 curt
+// Prepairing for C++ integration.
+//
+// Revision 1.3 1998/01/22 02:59:39 curt
+// Changed #ifdef FILE_H to #ifdef _FILE_H
+//
+// Revision 1.2 1998/01/19 19:27:14 curt
+// Merged in make system changes from Bob Kuehne <rpk@sgi.com>
+// This should simplify things tremendously.
+//
+// Revision 1.1 1997/12/22 04:13:18 curt
+// Initial revision.
+//
+