source: issm/trunk-jpl/src/m/geometry/planetradius.m@ 24776

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