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;
*********Class see also m_nmax DOUBLE PRECISION m_MasPhot DOUBLE PRECISION m_phsu DOUBLE PRECISION m_Xenph DOUBLE PRECISION m_r2 DOUBLE PRECISION m_WtMass INTEGER m_nmax INTEGER m_Nevgen INTEGER m_IsFSR INTEGER m_MarTot *COMMON c_KarFin $ !Output file $ !Event serial number $ !alpha QED at Thomson limit $ !minimum energy at CMS for remooval $ !infrared dimensionless $ !dummy photon IR regulator $ !crude photon multiplicity enhancement factor *EVENT $ !MC crude volume of PhhSpace *Sfactors $ !YFS formfactor IR part only $ !YFS formfactor non IR finite part $ !mass weight