Source position: srastroplanetary.pas line 64
procedure PlanetsPos(
JD: Double;
var PA: TplPlanetsArray
);