10   PetscReal   r1, r2, rnorm, tol = PETSC_SQRT_MACHINE_EPSILON;  in main()  local
168   PetscCall(MatNorm(A, NORM_FROBENIUS, &r1));  in main()
170   rnorm = PetscAbsReal(r1 - r2) / r2;  in main()
171 …m_FROBENIUS(), Anorm=%16.14e, sAnorm=%16.14e bs=%" PetscInt_FMT "\n", (double)r1, (double)r2, bs));  in main()
172   PetscCall(MatNorm(A, NORM_INFINITY, &r1));  in main()
174   rnorm = PetscAbsReal(r1 - r2) / r2;  in main()
175 …rm_INFINITY(), Anorm=%16.14e, sAnorm=%16.14e bs=%" PetscInt_FMT "\n", (double)r1, (double)r2, bs));  in main()
176   PetscCall(MatNorm(A, NORM_1, &r1));  in main()
178   rnorm = PetscAbsReal(r1 - r2) / r2;  in main()
179 …: MatNorm_1(), Anorm=%16.14e, sAnorm=%16.14e bs=%" PetscInt_FMT "\n", (double)r1, (double)r2, bs));  in main()
200   PetscCall(VecNorm(s1, NORM_1, &r1));  in main()
202   r1 -= r2;  in main()
203   if (r1 < -tol || r1 > tol) {  in main()
204 …SC_COMM_WORLD, "[%d], Error: MatDiagonalScale() or MatGetDiagonal(), r1=%g \n", rank, (double)r1));  in main()
215   PetscCall(VecNorm(s1, NORM_1, &r1));  in main()
217   r1 -= r2;  in main()
218   if (r1 < -tol || r1 > tol) PetscCall(PetscPrintf(PETSC_COMM_SELF, "Error: MatGetRowMaxAbs() \n"));  in main()
238     PetscCall(VecNorm(s1, NORM_1, &r1));  in main()
240     r1 -= r2;  in main()
241     if (r1 < -tol || r1 > tol) {  in main()
242 …nizedPrintf(PETSC_COMM_WORLD, "[%d], Error: MatMult() or MatScale(), err=%g\n", rank, (double)r1));  in main()
251     PetscCall(VecNorm(s1, NORM_1, &r1));  in main()
253     r1 -= r2;  in main()
254     if (r1 < -tol || r1 > tol) {  in main()
255 …tscSynchronizedPrintf(PETSC_COMM_WORLD, "[%d], Error: MatMultAdd(), err=%g \n", rank, (double)r1));  in main()