102 void palRefco (
double hm,
double tdk,
double pmb,
double rh,
103 double wl,
double phi,
double tlr,
double eps,
104 double *refa,
double *refb ) {
109 const double ATN1 = 0.7853981633974483;
110 const double ATN4 = 1.325817663668033;
113 palRefro(ATN1,hm,tdk,pmb,rh,wl,phi,tlr,eps,&r1);
114 palRefro(ATN4,hm,tdk,pmb,rh,wl,phi,tlr,eps,&r2);
117 *refa = (64.0*r1-r2)/60.0;
118 *refb = (r2-4.0*r1)/60.0;
void palRefro(double zobs, double hm, double tdk, double pmb, double rh, double wl, double phi, double tlr, double eps, double *ref)
void palRefco(double hm, double tdk, double pmb, double rh, double wl, double phi, double tlr, double eps, double *refa, double *refb)