Source position: odeimportdyn.pas line 1364
type TdMassSetSphereTotal = procedure(
var m: TdMass;
total_mass: TdReal;
radius: TdReal
);