Index: /issm/trunk-jpl/src/m/geometry/planetradius.m
===================================================================
--- /issm/trunk-jpl/src/m/geometry/planetradius.m	(revision 24776)
+++ /issm/trunk-jpl/src/m/geometry/planetradius.m	(revision 24776)
@@ -0,0 +1,14 @@
+function radius=planetradius(planet)
+%PLANETRADIUS - return planet radius according to planetary body name.
+%
+%   Usage:
+%      radius=planetradius(planet);
+%
+%   Examples:
+%      earthradius  =planetradius('earth');
+
+if strcmpi(planet,'earth'),
+	radius=6.371012*10^6;
+else 
+	error(['planet type ' planet ' not supported yet!']);
+end