27 "The sun", "sun", fsun,
28 "The moon", "moon", moon,
29 "The shadow", "shadow", shad,
30 "Mercury", "mercury", merc,
31 "Venus", "venus", venus,
33 "Jupiter", "jupiter", jup,
34 "Saturn", "saturn", sat,
35 "Uranus", "uranus", uran,
36 "Neptune", "neptune", nept,
37 "Pluto", "pluto", plut,
38 "Comet", "comet", comet,
47 glat = nlat - (692.74*radsec)*sin(2.*nlat)
48 + (1.16*radsec)*sin(4.*nlat);
49 erad = .99832707e0 + .00167644e0*cos(2.*nlat)
50 - 0.352e-5*cos(4.*nlat)
51 + 0.001e-5*cos(6.*nlat)
54 for(i=0; q=objlst[i]; i++) {
55 q->name = idata[i].name;
56 q->name1 = idata[i].name1;
57 q->obj = idata[i].obj;
68 eday = d + deltat/86400.;
69 wlong = awlong + 15.*deltat*radsec;
71 capt = eday/36524.220e0;
78 xm = rad*cos(beta)*cos(lambda);
79 ym = rad*cos(beta)*sin(lambda);
83 xms = rad*cos(beta)*cos(lambda);
84 yms = rad*cos(beta)*sin(lambda);
112 ra = ostar.point[0].ra;
113 decl2 = ostar.point[0].decl2;
114 semi2 = ostar.point[0].semi2;
115 az = ostar.point[0].az;
116 el = ostar.point[0].el;
117 mag = ostar.point[0].mag;
144 alpha = fmod(salph+pi, pipi);
147 semi = 1.0183*mhp/radsec - 969.85/srad;