Lines Matching refs:xabs
1083 double agiant, s1, s2, s3, xabs, x1max, x3max; in lm_enorm() local
1094 xabs = fabs(x[i]); in lm_enorm()
1095 if (xabs > LM_SQRT_DWARF) { in lm_enorm()
1096 if (xabs < agiant) { in lm_enorm()
1097 s2 += SQR(xabs); in lm_enorm()
1098 } else if (xabs > x1max) { in lm_enorm()
1099 s1 = 1 + s1 * SQR(x1max / xabs); in lm_enorm()
1100 x1max = xabs; in lm_enorm()
1102 s1 += SQR(xabs / x1max); in lm_enorm()
1104 } else if (xabs > x3max) { in lm_enorm()
1105 s3 = 1 + s3 * SQR(x3max / xabs); in lm_enorm()
1106 x3max = xabs; in lm_enorm()
1107 } else if (xabs != 0) { in lm_enorm()
1108 s3 += SQR(xabs / x3max); in lm_enorm()