24   PetscReal   dp = 0.0;  in KSPSolve_PIPECG()  local
59     PetscCall(VecNormBegin(U, NORM_2, &dp)); /*     dp <- u'*u = e'*A'*B'*B*A'*e'     */  in KSPSolve_PIPECG()
62     PetscCall(VecNormEnd(U, NORM_2, &dp));  in KSPSolve_PIPECG()
65     PetscCall(VecNormBegin(R, NORM_2, &dp)); /*     dp <- r'*r = e'*A'*A*e            */  in KSPSolve_PIPECG()
68     PetscCall(VecNormEnd(R, NORM_2, &dp));  in KSPSolve_PIPECG()
76     dp = PetscSqrtReal(PetscAbsScalar(gamma)); /*     dp <- r'*u = r'*B*r = e'*A'*B*A*e */  in KSPSolve_PIPECG()
80     dp = 0.0;  in KSPSolve_PIPECG()
85   PetscCall(KSPLogResidualHistory(ksp, dp));  in KSPSolve_PIPECG()
86   PetscCall(KSPMonitor(ksp, 0, dp));  in KSPSolve_PIPECG()
87   ksp->rnorm = dp;  in KSPSolve_PIPECG()
88   PetscCall((*ksp->converged)(ksp, 0, dp, &ksp->reason, ksp->cnvP)); /* test for convergence */  in KSPSolve_PIPECG()
94       PetscCall(VecNormBegin(R, NORM_2, &dp));  in KSPSolve_PIPECG()
96       PetscCall(VecNormBegin(U, NORM_2, &dp));  in KSPSolve_PIPECG()
106       PetscCall(VecNormEnd(R, NORM_2, &dp));  in KSPSolve_PIPECG()
108       PetscCall(VecNormEnd(U, NORM_2, &dp));  in KSPSolve_PIPECG()
114       if (ksp->normtype == KSP_NORM_NATURAL) dp = PetscSqrtReal(PetscAbsScalar(gamma));  in KSPSolve_PIPECG()
115       else if (ksp->normtype == KSP_NORM_NONE) dp = 0.0;  in KSPSolve_PIPECG()
117       ksp->rnorm = dp;  in KSPSolve_PIPECG()
118       PetscCall(KSPLogResidualHistory(ksp, dp));  in KSPSolve_PIPECG()
119       PetscCall(KSPMonitor(ksp, i, dp));  in KSPSolve_PIPECG()
120       PetscCall((*ksp->converged)(ksp, i, dp, &ksp->reason, ksp->cnvP));  in KSPSolve_PIPECG()