| /petsc/src/mat/tests/ |
| H A D | ex117.c | 14 IS perm, colp; in main() local
97 PetscCall(MatGetOrdering(mat, MATORDERINGNATURAL, &perm, &colp)); in main()
98 PetscCall(ISDestroy(&colp)); in main()
|
| /petsc/src/mat/impls/normal/ |
| H A D | normmh.c | 40 static PetscErrorCode MatPermute_NormalHermitian(Mat A, IS rowp, IS colp, Mat *B) in MatPermute_NormalHermitian() argument
48 …PetscCheck(rowp == colp, PetscObjectComm((PetscObject)A), PETSC_ERR_ARG_INCOMP, "Row permutation a… in MatPermute_NormalHermitian()
54 PetscCall(MatPermute(Aa, row, colp, &C)); in MatPermute_NormalHermitian()
|
| H A D | normm.c | 57 static PetscErrorCode MatPermute_Normal(Mat A, IS rowp, IS colp, Mat *B) in MatPermute_Normal() argument
65 …PetscCheck(rowp == colp, PetscObjectComm((PetscObject)A), PETSC_ERR_ARG_INCOMP, "Row permutation a… in MatPermute_Normal()
71 PetscCall(MatPermute(Aa, row, colp, &C)); in MatPermute_Normal()
|
| /petsc/src/mat/impls/diagonal/ |
| H A D | diagonal.c | 306 static PetscErrorCode MatPermute_Diagonal(Mat A, IS rowp, IS colp, Mat *B) in MatPermute_Diagonal() argument
312 …PetscCheck(rowp == colp, PetscObjectComm((PetscObject)A), PETSC_ERR_ARG_INCOMP, "Row permutation a… in MatPermute_Diagonal()
|
| /petsc/src/mat/impls/sbaij/seq/ |
| H A D | sbaij.c | 561 static PetscErrorCode MatPermute_SeqSBAIJ(Mat A, IS rowp, IS colp, Mat *B) in MatPermute_SeqSBAIJ() argument
564 PetscBool flg = (PetscBool)(rowp == colp); in MatPermute_SeqSBAIJ()
568 PetscCall(MatPermute(C, rowp, colp, B)); in MatPermute_SeqSBAIJ()
570 if (!flg) PetscCall(ISEqual(rowp, colp, &flg)); in MatPermute_SeqSBAIJ()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | mpibaij.c | 2037 static PetscErrorCode MatPermute_MPIBAIJ(Mat A, IS rowp, IS colp, Mat *B) in MatPermute_MPIBAIJ() argument
2059 PetscCall(PetscObjectGetComm((PetscObject)colp, &pcomm)); in MatPermute_MPIBAIJ()
2062 lcolp = colp; in MatPermute_MPIBAIJ()
2064 PetscCall(ISAllGather(colp, &lcolp)); in MatPermute_MPIBAIJ()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aij.c | 2814 static PetscErrorCode MatPermute_SeqAIJ(Mat A, IS rowp, IS colp, Mat *B) in MatPermute_SeqAIJ() argument
2827 PetscCall(ISInvertPermutation(colp, PETSC_DECIDE, &icolp)); in MatPermute_SeqAIJ()
2860 if (rowp == colp) PetscCall(MatPropagateSymmetryOptions(A, *B)); in MatPermute_SeqAIJ()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 1496 static PetscErrorCode MatPermute_MPIAIJ(Mat A, IS rowp, IS colp, Mat *B) in MatPermute_MPIAIJ() argument
1509 PetscCall(ISGetIndices(colp, &cwant)); in MatPermute_MPIAIJ()
1530 PetscCall(ISRestoreIndices(colp, &cwant)); in MatPermute_MPIAIJ()
1597 if (parcolp) PetscCall(ISDestroy(&colp)); in MatPermute_MPIAIJ()
|