; return basic data for a solar-sytem body (in this case Pluto).

function rt_datatitan


;       ---------------------------------------------------------
;                           Data for Titan
;       ---------------------------------------------------------

    bodydat $
      = {  rmn2 :28.d0, $
           rdn2 : 3.681d0 , $
           gm : 8.95d18 , $
           GMm : 4.16d-4 , $
           rplnt : 2575.d5 , $
           rh : 9.5d0 , $
           nu :3, $
           nlortz:300, $
           wlortz: [5.2d-2,1.d-1,1.d-1,1.d-1], $
           wdel:10.d0, $
           pmin : 1.d-5 , $
           pmax : 1.d+2 , $
           rtmax : 0.1d0 , $
           ifund: [1,5,7,8] - 1 }

    return, bodydat

end