5 PetscErrorCode TestMatrix(const char *test, Mat A, PetscInt nrhs, PetscBool inplace, PetscBool chol)  in TestMatrix()  argument
82   PetscCall(MatSetSizes(RHS, PETSC_DECIDE, PETSC_DECIDE, n, nrhs));  in TestMatrix()
85   for (i = 0; i < nrhs; i++) PetscCall(MatSetValue(RHS, i, i, 1.0, INSERT_VALUES));  in TestMatrix()
121   PetscInt    i, n = 8, nrhs = 2;  in main()  local
134   PetscCall(PetscOptionsGetInt(NULL, NULL, "-nrhs", &nrhs, NULL));  in main()
136   PetscCheck(nrhs <= n, PETSC_COMM_WORLD, PETSC_ERR_ARG_SIZ, "Must have nrhs <= n");  in main()
156   PetscCall(TestMatrix("LU T", At, nrhs, inplace, PETSC_FALSE));  in main()
157   PetscCall(TestMatrix("LU HT", Aht, nrhs, inplace, PETSC_FALSE));  in main()
159     PetscCall(TestMatrix("Chol T", At, nrhs, inplace, PETSC_TRUE));  in main()
160     PetscCall(TestMatrix("Chol HT", Aht, nrhs, inplace, PETSC_TRUE));  in main()
173   PetscCall(TestMatrix("LU T nonsym", At, nrhs, inplace, PETSC_FALSE));  in main()
174   PetscCall(TestMatrix("LU HT nonsym", Aht, nrhs, inplace, PETSC_FALSE));  in main()