Lines Matching refs:r1
13 PetscReal r1, r2, tol = PETSC_SQRT_MACHINE_EPSILON; in MatMultEqual_Private() local
94 PetscCall(VecNorm(s1, NORM_INFINITY, &r1)); in MatMultEqual_Private()
97 PetscCall(VecNorm(s2, NORM_INFINITY, &r1)); in MatMultEqual_Private()
98 r1 /= r2; in MatMultEqual_Private()
100 if (r1 > tol) { in MatMultEqual_Private()
102 PetscCall(PetscInfo(A, "Error: %" PetscInt_FMT "-th %s() %g\n", k, sop, (double)r1)); in MatMultEqual_Private()
120 PetscReal r1, r2, tol = PETSC_SQRT_MACHINE_EPSILON; in MatMatMultEqual_Private() local
189 PetscCall(VecNorm(s3, NORM_INFINITY, &r1)); in MatMatMultEqual_Private()
192 PetscCall(VecNorm(s2, NORM_INFINITY, &r1)); in MatMatMultEqual_Private()
193 r1 /= r2; in MatMatMultEqual_Private()
195 if (r1 > tol) { in MatMatMultEqual_Private()
197 PetscCall(PetscInfo(A, "Error: %" PetscInt_FMT "-th %s %g\n", k, sop, (double)r1)); in MatMatMultEqual_Private()