Lines Matching refs:temp
375 double temp; // fabs(double); in ZyklTriDiagGS() local
387 temp = 1.0 / diag[0]; /* betragsmaessig kleiner */ in ZyklTriDiagGS()
388 upper[0] *= temp; /* MACH_EPS, so ex. keine */ in ZyklTriDiagGS()
389 ricol[0] *= temp; /* Zerlegung. */ in ZyklTriDiagGS()
394 temp = 1.0 / diag[i]; in ZyklTriDiagGS()
395 upper[i] *= temp; in ZyklTriDiagGS()
396 ricol[i] = -lower[i] * ricol[i-1] * temp; in ZyklTriDiagGS()
408 for (temp = 0.0, i = 0; i < n-2; i++) in ZyklTriDiagGS()
409 temp -= lowrow[i] * ricol[i]; in ZyklTriDiagGS()
410 diag[n-1] += temp - lower[n-1] * upper[n-2]; in ZyklTriDiagGS()
419 for (temp = 0.0, i = 0; i < n-2; i++) in ZyklTriDiagGS()
420 temp -= lowrow[i] * b[i]; in ZyklTriDiagGS()
422 b[n-1] = ( b[n-1] + temp - lower[n-1] * b[n-2] ) / diag[n-1]; in ZyklTriDiagGS()