Source position: moonvsop.pas line 91
procedure earth_coord(
date: TdateTime;
var l: extended;
var b: extended;
var r: extended
);