Searched refs:xi3 (Results 1 – 2 of 2) sorted by relevance
22 PetscScalar xi1, xi2, xi3, xi4; in KSPSolve_FBCGSR() local138 xi1 = xi2 = xi3 = xi4 = 0.0; in KSPSolve_FBCGSR()142 xi3 += t[j] * t[j]; /* xi3 <- (t,t) */ in KSPSolve_FBCGSR()150 insums[2] = xi3; in KSPSolve_FBCGSR()158 xi3 = outsums[2]; in KSPSolve_FBCGSR()162 if ((xi3 == 0.0) || (sigma == 0.0)) { in KSPSolve_FBCGSR()170 omega = xi2 / xi3; in KSPSolve_FBCGSR()
316 PetscReal xi[3], xi2, xi3, mag; in QCompute() local323 xi3 = xi2 * mag; in QCompute()325 for (e = 0; e < dim; ++e) Q[d * dim + e] = -xi[d] * xi[e] / xi3; in QCompute()