136 void palRefz (
double zu,
double refa,
double refb,
double *zr ) {
141 const double D93 = 93.0;
147 const double C1 = +0.55445;
148 const double C2 = -0.01133;
149 const double C3 = +0.00202;
150 const double C4 = +0.28385;
151 const double C5 = +0.02390;
154 const double REF83 = (C1+C2*7.0+C3*49.0)/(1.0+C4*7.0+C5*49.0);
156 double zu1,zl,s,c,
t,tsq,tcu,ref,e,e2;
170 zl = zl-(refa*t+refb*tcu)/(1.0+(refa+3.0*refb*tsq)/(c*c));
179 (zl-zu1+refa*t+refb*tcu)/(1.0+(refa+3.0*refb*tsq)/(c*c));
185 ref = (ref/REF83)*(C1+C2*e+C3*e2)/(1.0+C4*e+C5*e2);
static const double PAL__DD2R
static const double PAL__DR2D
void palRefz(double zu, double refa, double refb, double *zr)