28   PetscReal   err;  in HermitianTransposeTest()  local
44   err   = PetscAbsScalar(dot_a - dot_b);  in HermitianTransposeTest()
46 …ject)B, "Hermitian transpose error %g, relative error %g \n", (double)err, (double)(err / scale)));  in HermitianTransposeTest()
47 …PetscCheck(err <= PETSC_SMALL * scale, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Hermitian…  in HermitianTransposeTest()
58   PetscReal x_norm, Bx_norm, err;  in InverseTest()  local
70   PetscCall(VecNorm(BinvBx, NORM_2, &err));  in InverseTest()
72 …Info((PetscObject)B, "Inverse error %g, relative error %g\n", (double)err, (double)(err / scale)));  in InverseTest()
73 …PetscCheck(err <= 100.0 * PETSC_SMALL * scale, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "I…  in InverseTest()
85   PetscReal   err;  in IsHermitianTest()  local
102   err   = PetscAbsScalar(dot_a - dot_b);  in IsHermitianTest()
104 …(PetscObject)B, "Is Hermitian error %g, relative error %g\n", (double)err, (double)(err / scale)));  in IsHermitianTest()
105 …PetscCheck(err <= PETSC_SMALL * scale, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Is Hermit…  in IsHermitianTest()
116   PetscReal err, scale;  in SecantTest()  local
123     PetscCall(VecNorm(B_x, NORM_2, &err));  in SecantTest()
125 …cInfo((PetscObject)B, "Secant error %g, relative error %g\n", (double)err, (double)(err / scale)));  in SecantTest()
126 …PetscCheck(err <= 10.0 * PETSC_SMALL * scale, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Se…  in SecantTest()
131       PetscCall(VecNorm(B_x, NORM_2, &err));  in SecantTest()
132 …etscObject)B, "Adjoint secant error %g, relative error %g\n", (double)err, (double)(err / scale)));  in SecantTest()
133 …PetscCheck(err <= 10.0 * PETSC_SMALL * scale, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Ad…  in SecantTest()
140     PetscCall(VecNorm(B_x, NORM_2, &err));  in SecantTest()
142 …etscObject)B, "Inverse secant error %g, relative error %g\n", (double)err, (double)(err / scale)));  in SecantTest()
143 …PetscCheck(err <= PETSC_SMALL * scale, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Inverse s…  in SecantTest()
148       PetscCall(VecNorm(B_x, NORM_2, &err));  in SecantTest()
149 …ct)B, "Adjoint inverse secant error %g, relative error %g\n", (double)err, (double)(err / scale)));  in SecantTest()
150 …PetscCheck(err <= PETSC_SMALL * scale, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Adjoint i…  in SecantTest()
373     PetscReal norm, err;  in TestUpdate()  local
383     PetscCall(VecNorm(Hf, NORM_2, &err));  in TestUpdate()
384 …PetscCheck(err <= PETSC_SMALL * norm, PetscObjectComm((PetscObject)B), PETSC_ERR_PLIB, "Gradient s…  in TestUpdate()
397     PetscReal norm, err;  in TestUpdate()  local
408     PetscCall(MatNorm(B_k_exp, NORM_FROBENIUS, &err));  in TestUpdate()
409 …tscObject)B_k, "Forward update error %g, relative error %g\n", (double)err, (double)(err / norm)));  in TestUpdate()
410 …PetscCheck(err <= PETSC_SMALL * norm, PetscObjectComm((PetscObject)B_k), PETSC_ERR_PLIB, "Forward …  in TestUpdate()
419     PetscReal norm, err;  in TestUpdate()  local
429     PetscCall(MatNorm(H_k_exp, NORM_FROBENIUS, &err));  in TestUpdate()
430 …tscObject)H_k, "Forward update error %g, relative error %g\n", (double)err, (double)(err / norm)));  in TestUpdate()
431 …PetscCheck(err <= PETSC_SMALL * norm, PetscObjectComm((PetscObject)H_k), PETSC_ERR_PLIB, "Inverse …  in TestUpdate()