odvrd</a>( body, 'RADII', 3 );

      %
      %
      % Calculate the flatness coefficient. Set a bodyfixed
      % position vector, 'x'.
      %
      re   = radii(1);
      rp   = radii(3);
      flat = ( re - rp ) / re;
      x    = [ 0.0,
              -2620.678914818178,
               2592.408908856967 ];

      %
      % Do the conversion.
      %
      [lon, lat, alt] = <b>cspice_recpgr</b>( body, x, re, flat );

      %
      % Output.
      %
      disp( 'Scalar:' )
      disp(' ')

      disp( 'R