Searched refs:hnrm (Results 1 – 1 of 1) sorted by relevance
40 PetscReal hnrm, wnrm; in KSPGMRESClassicalGramSchmidtOrthogonalization() local85 hnrm = 0.0; in KSPGMRESClassicalGramSchmidtOrthogonalization()86 for (j = 0; j <= it; j++) hnrm += PetscRealPart(lhh[j] * PetscConj(lhh[j])); in KSPGMRESClassicalGramSchmidtOrthogonalization()88 hnrm = PetscSqrtReal(hnrm); in KSPGMRESClassicalGramSchmidtOrthogonalization()92 if (wnrm < hnrm) { in KSPGMRESClassicalGramSchmidtOrthogonalization()94 …PetscInfo(ksp, "Performing iterative refinement wnorm %g hnorm %g\n", (double)wnrm, (double)hnrm)); in KSPGMRESClassicalGramSchmidtOrthogonalization()