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