88 static PetscErrorCode MatMult_NormalHermitian(Mat N, Vec x, Vec y)  in MatMult_NormalHermitian()  argument
93   PetscCall(MatShellGetContext(N, &Na));  in MatMult_NormalHermitian()
99 static PetscErrorCode MatDestroy_NormalHermitian(Mat N)  in MatDestroy_NormalHermitian()  argument
104   PetscCall(MatShellGetContext(N, &Na));  in MatDestroy_NormalHermitian()
109   PetscCall(PetscObjectComposeFunction((PetscObject)N, "MatNormalHermitianGetMat_C", NULL));  in MatDestroy_NormalHermitian()
111   PetscCall(PetscObjectComposeFunction((PetscObject)N, "MatNormalGetMat_C", NULL));  in MatDestroy_NormalHermitian()
113   PetscCall(PetscObjectComposeFunction((PetscObject)N, "MatConvert_normalh_seqaij_C", NULL));  in MatDestroy_NormalHermitian()
114   PetscCall(PetscObjectComposeFunction((PetscObject)N, "MatConvert_normalh_mpiaij_C", NULL));  in MatDestroy_NormalHermitian()
116   PetscCall(PetscObjectComposeFunction((PetscObject)N, "MatConvert_normalh_hypre_C", NULL));  in MatDestroy_NormalHermitian()
118   PetscCall(PetscObjectComposeFunction((PetscObject)N, "MatShellSetContext_C", NULL));  in MatDestroy_NormalHermitian()
125 static PetscErrorCode MatGetDiagonal_NormalHermitian(Mat N, Vec v)  in MatGetDiagonal_NormalHermitian()  argument
135   PetscCall(MatShellGetContext(N, &Na));  in MatGetDiagonal_NormalHermitian()
137   PetscCall(PetscMalloc1(A->cmap->N, &work));  in MatGetDiagonal_NormalHermitian()
138   PetscCall(PetscArrayzero(work, A->cmap->N));  in MatGetDiagonal_NormalHermitian()
145 …MPI(MPIU_Allreduce(MPI_IN_PLACE, work, A->cmap->N, MPIU_SCALAR, MPIU_SUM, PetscObjectComm((PetscOb…  in MatGetDiagonal_NormalHermitian()
146   rstart = N->cmap->rstart;  in MatGetDiagonal_NormalHermitian()
147   rend   = N->cmap->rend;  in MatGetDiagonal_NormalHermitian()
155 static PetscErrorCode MatGetDiagonalBlock_NormalHermitian(Mat N, Mat *D)  in MatGetDiagonalBlock_NormalHermitian()  argument
161   PetscCall(MatShellGetContext(N, &Na));  in MatGetDiagonalBlock_NormalHermitian()
210   PetscInt             m, n, M, N;  in MatConvert_NormalHermitian_AIJ()  local
215   PetscCall(MatGetSize(A, &M, &N));  in MatConvert_NormalHermitian_AIJ()
291 PetscErrorCode MatCreateNormalHermitian(Mat A, Mat *N)  in MatCreateNormalHermitian()  argument
297   PetscCall(MatCreate(PetscObjectComm((PetscObject)A), N));  in MatCreateNormalHermitian()
298   PetscCall(PetscLayoutReference(A->cmap, &(*N)->rmap));  in MatCreateNormalHermitian()
299   PetscCall(PetscLayoutReference(A->cmap, &(*N)->cmap));  in MatCreateNormalHermitian()
300   PetscCall(MatSetType(*N, MATSHELL));  in MatCreateNormalHermitian()
302   PetscCall(MatShellSetContext(*N, Na));  in MatCreateNormalHermitian()
307   PetscCall(MatSetBlockSize(*N, A->cmap->bs));  in MatCreateNormalHermitian()
308 …PetscCall(MatShellSetOperation(*N, MATOP_DESTROY, (PetscErrorCodeFn *)MatDestroy_NormalHermitian));  in MatCreateNormalHermitian()
309   PetscCall(MatShellSetOperation(*N, MATOP_MULT, (PetscErrorCodeFn *)MatMult_NormalHermitian));  in MatCreateNormalHermitian()
310 …PetscCall(MatShellSetOperation(*N, MATOP_MULT_HERMITIAN_TRANSPOSE, (PetscErrorCodeFn *)MatMult_Nor…  in MatCreateNormalHermitian()
312 …PetscCall(MatShellSetOperation(*N, MATOP_MULT_TRANSPOSE, (PetscErrorCodeFn *)MatMult_NormalHermiti…  in MatCreateNormalHermitian()
314 …PetscCall(MatShellSetOperation(*N, MATOP_DUPLICATE, (PetscErrorCodeFn *)MatDuplicate_NormalHermiti…  in MatCreateNormalHermitian()
315 …PetscCall(MatShellSetOperation(*N, MATOP_GET_DIAGONAL, (PetscErrorCodeFn *)MatGetDiagonal_NormalHe…  in MatCreateNormalHermitian()
316 …PetscCall(MatShellSetOperation(*N, MATOP_GET_DIAGONAL_BLOCK, (PetscErrorCodeFn *)MatGetDiagonalBlo…  in MatCreateNormalHermitian()
317   PetscCall(MatShellSetOperation(*N, MATOP_COPY, (PetscErrorCodeFn *)MatCopy_NormalHermitian));  in MatCreateNormalHermitian()
318   (*N)->ops->createsubmatrices = MatCreateSubMatrices_NormalHermitian;  in MatCreateNormalHermitian()
319   (*N)->ops->permute           = MatPermute_NormalHermitian;  in MatCreateNormalHermitian()
321 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatNormalHermitianGetMat_C", MatNormalHermi…  in MatCreateNormalHermitian()
323 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatNormalGetMat_C", MatNormalHermitianGetMa…  in MatCreateNormalHermitian()
325 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatConvert_normalh_seqaij_C", MatConvert_No…  in MatCreateNormalHermitian()
326 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatConvert_normalh_mpiaij_C", MatConvert_No…  in MatCreateNormalHermitian()
328 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatConvert_normalh_hypre_C", MatConvert_Nor…  in MatCreateNormalHermitian()
330 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatShellSetContext_C", MatShellSetContext_I…  in MatCreateNormalHermitian()
331 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatShellSetContextDestroy_C", MatShellSetCo…  in MatCreateNormalHermitian()
332 …PetscCall(PetscObjectComposeFunction((PetscObject)*N, "MatShellSetManageScalingShifts_C", MatShell…  in MatCreateNormalHermitian()
333   PetscCall(MatSetOption(*N, MAT_HERMITIAN, PETSC_TRUE));  in MatCreateNormalHermitian()
335   PetscCall(MatSetVecType(*N, vtype));  in MatCreateNormalHermitian()
337   PetscCall(MatBindToCPU(*N, A->boundtocpu));  in MatCreateNormalHermitian()
339   PetscCall(MatSetUp(*N));  in MatCreateNormalHermitian()
340   PetscCall(PetscObjectChangeTypeName((PetscObject)*N, MATNORMALHERMITIAN));  in MatCreateNormalHermitian()