Searched refs:tis (Results 1 – 4 of 4) sorted by relevance
| /petsc/src/dm/interface/ftn-custom/ |
| H A D | zdmf.c | 38 IS *tis; in dmcreatefielddecompositiongetisdm_() local
42 *ierr = DMCreateFieldDecomposition(*dm, &n, NULL, &tis, &tdm); in dmcreatefielddecompositiongetisdm_()
44 *ierr = DMCreateFieldDecomposition(*dm, &n, NULL, &tis, NULL); in dmcreatefielddecompositiongetisdm_()
49 if (iss) *ierr = F90Array1dCreate(tis, MPIU_FORTRANADDR, 1, n, iss PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositiongetisdm_()
61 IS *tis; in dmcreatefielddecompositionrestoreisdm_() local
62 *ierr = F90Array1dAccess(iss, MPIU_FORTRANADDR, (void **)&tis PETSC_F90_2PTR_PARAM(ptrd1)); in dmcreatefielddecompositionrestoreisdm_()
66 for (PetscInt i = 0; i < n; i++) *ierr = ISDestroy(&tis[i]); in dmcreatefielddecompositionrestoreisdm_()
67 *ierr = PetscFree(tis); in dmcreatefielddecompositionrestoreisdm_()
|
| /petsc/src/ksp/pc/impls/asm/ftn-custom/ |
| H A D | zasmf.c | 47 IS *tis, *tis_local; in pcasmgetlocalsubdomains_() local
52 *ierr = PCASMGetLocalSubdomains(*pc, &nloc, &tis, &tis_local); in pcasmgetlocalsubdomains_()
55 if (is) *ierr = F90Array1dCreate(tis, MPIU_FORTRANADDR, 1, nloc, is PETSC_F90_2PTR_PARAM(ptrd1)); in pcasmgetlocalsubdomains_()
|
| /petsc/src/ksp/ksp/impls/fetidp/ |
| H A D | fetidp.c | 647 IS *tis; in KSPFETIDPSetUpOperators() local
649 PetscCall(PetscMalloc1(nfp, &tis)); in KSPFETIDPSetUpOperators()
656 … PetscCall(ISOnComm(pcbddc->ISForDofsLocal[fid], PETSC_COMM_SELF, PETSC_COPY_VALUES, &tis[i])); in KSPFETIDPSetUpOperators()
658 PetscCall(ISConcatenate(PETSC_COMM_SELF, nfp, tis, &lPall)); in KSPFETIDPSetUpOperators()
666 tis[i] = pcbddc->ISForDofs[fid]; in KSPFETIDPSetUpOperators()
668 PetscCall(ISConcatenate(PetscObjectComm((PetscObject)ksp), nfp, tis, &Pall)); in KSPFETIDPSetUpOperators()
671 for (PetscInt i = 0; i < nfp; i++) PetscCall(ISDestroy(&tis[i])); in KSPFETIDPSetUpOperators()
672 PetscCall(PetscFree(tis)); in KSPFETIDPSetUpOperators()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 2953 IS tis; in PCBDDCBenignDetectSaddlePoint() local
2956 PetscCall(ISCreateStride(PETSC_COMM_SELF, nl, 0, 1, &tis)); in PCBDDCBenignDetectSaddlePoint()
2957 PetscCall(ISLocalToGlobalMappingCreateIS(tis, &l2g)); in PCBDDCBenignDetectSaddlePoint()
2958 PetscCall(ISDestroy(&tis)); in PCBDDCBenignDetectSaddlePoint()
4670 IS tis; in PCBDDCSetUpCorrection() local
4672 PetscCall(ISDuplicate(pcbddc->is_R_local, &tis)); in PCBDDCSetUpCorrection()
4673 PetscCall(ISSort(tis)); in PCBDDCSetUpCorrection()
4674 PetscCall(ISComplement(tis, 0, pcis->n, &is_aux)); in PCBDDCSetUpCorrection()
4675 PetscCall(ISDestroy(&tis)); in PCBDDCSetUpCorrection()
5853 IS tis; in PCBDDCSetUpLocalScatters() local
[all …]
|