| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex75f.F90 | 19 character(3) cmat
35 write (cmat, fmt) j
36 write (name, '(a)') trim(dir)//'/A_'//cmat//'.dat'
43 write (name, '(a)') trim(dir)//'/rhs_'//cmat//'.dat'
|
| H A D | ex56.c | 326 Mat P, cmat; in main() local
343 PetscCall(KSPGetOperators(cksp, &cmat, &cmat)); in main()
344 PetscCall(MatViewFromOptions(cmat, NULL, "-rap_mat_view")); in main()
|
| /petsc/src/ksp/pc/impls/mg/ |
| H A D | gdsw.c | 11 Mat *sA_IG, *sGf, cmat, lA; in PCMGGDSWSetUp() local
158 …if (userdefined) PetscCall(PCBDDCComputeFakeChange(pcbddc, PETSC_FALSE, graph, NULL, &cmat, &cref,… in PCMGGDSWSetUp()
160 cmat = NULL; in PCMGGDSWSetUp()
163 …TSC_TRUE, NULL, NULL, -1, NULL, PETSC_TRUE, reuse_solver, PETSC_FALSE, 0, NULL, NULL, cmat, cref)); in PCMGGDSWSetUp()
165 PetscCall(MatDestroy(&cmat)); in PCMGGDSWSetUp()
173 …PetscCall(PCBDDCComputeFakeChange(pcbddc, PETSC_TRUE, graph, sub_schurs, &cmat, &cref, &sGiM[0], N… in PCMGGDSWSetUp()
183 PetscCall(MatSeqAIJGetArrayRead(cmat, &tdata)); in PCMGGDSWSetUp()
184 PetscCall(MatGetRowIJ(cmat, 0, PETSC_FALSE, PETSC_FALSE, &ngct, &ia, &ja, &flg)); in PCMGGDSWSetUp()
196 PetscCall(MatRestoreRowIJ(cmat, 0, PETSC_FALSE, PETSC_FALSE, &i, &ia, &ja, &flg)); in PCMGGDSWSetUp()
197 PetscCall(MatSeqAIJRestoreArrayRead(cmat, &tdata)); in PCMGGDSWSetUp()
[all …]
|
| /petsc/src/mat/impls/dense/seq/cupm/ |
| H A D | matseqdensecupm.hpp | 1072 if (auto &cmat = mimpl->cmat) { in BindToCPU() local
1073 PetscCall(PetscObjectTypeCompare(PetscObjectCast(cmat), MATSEQDENSECUPM(), &iscupm)); in BindToCPU()
1074 if (!iscupm) PetscCall(MatDestroy(&cmat)); in BindToCPU()
1134 if (const auto cmat = mimpl->cmat) PetscCall(MatBindToCPU(cmat, to_host)); in BindToCPU() local
1839 auto &cmat = mimpl->cmat; in GetSubMatrix() local
1850 if (cmat && ((m != cmat->cmap->N) || (n != cmat->rmap->N))) PetscCall(MatDestroy(&cmat)); in GetSubMatrix()
1854 if (cmat) { in GetSubMatrix()
1855 PetscCall(PlaceArray(cmat, device_array)); in GetSubMatrix()
1857 …ll(MatCreateSeqDenseCUPM<T>(PetscObjectComm(PetscObjectCast(A)), n, m, device_array, &cmat, dctx)); in GetSubMatrix()
1860 PetscCall(MatDenseSetLDA(cmat, mimpl->lda)); in GetSubMatrix()
[all …]
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | petscdmshell.pxi | 210 PetscMat *cmat) except PETSC_ERR_PYTHON with gil:
220 cmat[0] = mat.mat
222 CHKERR(MatGetDM(cmat[0], &odm))
224 CHKERR(MatSetDM(cmat[0], dm))
264 PetscMat *cmat,
279 cmat[0] = mat.mat
292 PetscMat *cmat) except PETSC_ERR_PYTHON with gil:
305 cmat[0] = mat.mat
311 PetscMat *cmat) except PETSC_ERR_PYTHON with gil:
324 cmat[0] = mat.mat
|
| /petsc/src/mat/impls/dense/mpi/ |
| H A D | mpidense.c | 709 PetscCall(MatDestroy(&mdn->cmat)); in MatDestroy_MPIDense()
1637 if (!a->cmat) { in MatDenseGetSubMatrix_MPIDense()
1638 PetscCall(MatCreate(comm, &a->cmat)); in MatDenseGetSubMatrix_MPIDense()
1639 PetscCall(MatSetType(a->cmat, ((PetscObject)A)->type_name)); in MatDenseGetSubMatrix_MPIDense()
1640 if (rend - rbegin == A->rmap->N) PetscCall(PetscLayoutReference(A->rmap, &a->cmat->rmap)); in MatDenseGetSubMatrix_MPIDense()
1642 PetscCall(PetscLayoutSetLocalSize(a->cmat->rmap, prend - prbegin)); in MatDenseGetSubMatrix_MPIDense()
1643 PetscCall(PetscLayoutSetSize(a->cmat->rmap, rend - rbegin)); in MatDenseGetSubMatrix_MPIDense()
1644 PetscCall(PetscLayoutSetUp(a->cmat->rmap)); in MatDenseGetSubMatrix_MPIDense()
1646 if (cend - cbegin == A->cmap->N) PetscCall(PetscLayoutReference(A->cmap, &a->cmat->cmap)); in MatDenseGetSubMatrix_MPIDense()
1648 PetscCall(PetscLayoutSetLocalSize(a->cmat->cmap, pcend - pcbegin)); in MatDenseGetSubMatrix_MPIDense()
[all …]
|
| /petsc/src/ksp/pc/tests/ |
| H A D | ex5.c | 34 Mat cmat, mat[20], fmat; in main() local
62 PetscCall(Create1dLaplacian(N[levels - 1], &cmat)); in main()
72 PetscCall(KSPSetOperators(cksp, cmat, cmat)); in main()
167 PetscCall(MatDestroy(&cmat)); in main()
|
| /petsc/src/mat/impls/dense/mpi/cupm/ |
| H A D | matmpidensecupm.hpp | 257 PetscCall(PetscObjectTypeCompare(PetscObjectCast(mimpl->cmat), MATMPIDENSECUPM(), &iscupm)); in BindToCPU()
258 if (!iscupm) PetscCall(MatDestroy(&mimpl->cmat)); in BindToCPU()
270 if (const auto mimpl_cmat = mimpl->cmat) PetscCall(MatBindToCPU(mimpl_cmat, usehost)); in BindToCPU()
|
| /petsc/src/mat/impls/dense/seq/ |
| H A D | dense.h | 29 Mat cmat; /* matrix representation of a given subset of columns */ member
|
| H A D | dense.c | 1723 PetscCall(MatDestroy(&l->cmat)); in MatDestroy_SeqDense()
1816 PetscCall(MatDestroy(&mat->cmat)); in MatTranspose_SeqDense()
3510 …if (a->cmat && (cend - cbegin != a->cmat->cmap->N || rend - rbegin != a->cmat->rmap->N)) PetscCall… in MatDenseGetSubMatrix_SeqDense()
3511 if (!a->cmat) { in MatDenseGetSubMatrix_SeqDense()
3512 …gin, cend - cbegin, PetscSafePointerPlusOffset(a->v, rbegin + (size_t)cbegin * a->lda), &a->cmat)); in MatDenseGetSubMatrix_SeqDense()
3514 …PetscCall(MatDensePlaceArray(a->cmat, PetscSafePointerPlusOffset(a->v, rbegin + (size_t)cbegin * a… in MatDenseGetSubMatrix_SeqDense()
3516 PetscCall(MatDenseSetLDA(a->cmat, a->lda)); in MatDenseGetSubMatrix_SeqDense()
3518 *v = a->cmat; in MatDenseGetSubMatrix_SeqDense()
3531 PetscCheck(a->cmat, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Missing internal column matrix"); in MatDenseRestoreSubMatrix_SeqDense()
3532 …PetscCheck(*v == a->cmat, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONG, "Not the matrix obtained from MatD… in MatDenseRestoreSubMatrix_SeqDense()
[all …]
|
| /petsc/include/petsc/private/ |
| H A D | matimpl.h | 750 Mat cmat; /* matrix representation of a given subset of columns */ member
|