12 double s1, sx, sy, sxx, sxy;
17 s1 = sx = sy = sxx = sxy = 0.0;
19 for (ihit = 0; ihit < nUse; ihit++) {
21 if (
sigma[ihit] < 0.0)
continue;
37 denom = s1 * sxx - sx * sx;
38 delinv = (denom == 0.0) ? 1.e20 : 1. / denom;
39 intercept = (sy * sxx - sx * sxy) * delinv;
40 slope = (s1 * sxy - sx * sy) * delinv;
46 for (ihit = 0; ihit < nUse; ihit++) {
47 if (
sigma[ihit] < 0.0)
continue;