7   Mat             A, F, B, X, C, Aher, G;  in main()  local
125   PetscCall(MatHermitianTranspose(A, MAT_INITIAL_MATRIX, &Aher));  in main()
126   PetscCall(MatAXPY(Aher, 1.0, A, SAME_NONZERO_PATTERN)); /* Aher = A + A^T */  in main()
127 …PetscCall(MatShift(Aher, 100.0));                       /* add 100.0 to diagonals of Aher to make …  in main()
130     PetscCall(MatView(Aher, PETSC_VIEWER_STDOUT_WORLD));  in main()
138   PetscCall(MatDuplicate(Aher, MAT_COPY_VALUES, &G));  in main()
153   PetscCall(MatGetFactor(Aher, MATSOLVERSCALAPACK, MAT_FACTOR_CHOLESKY, &G));  in main()
154   PetscCall(MatCholeskyFactorSymbolic(G, Aher, 0, NULL));  in main()
155   PetscCall(MatCholeskyFactorNumeric(G, Aher, NULL));  in main()
165   PetscCall(MatMult(Aher, x, c));  in main()
171   PetscCall(MatMatMult(Aher, X, MAT_INITIAL_MATRIX, PETSC_DETERMINE, &C));  in main()
222   PetscCall(MatDestroy(&Aher));  in main()