| /petsc/src/mat/impls/nest/ftn-custom/ |
| H A D | zmatnestf.c | 14 PETSC_EXTERN void matcreatenest_(MPI_Fint *comm, PetscInt *nr, IS is_row[], PetscInt *nc, IS is_col… in matcreatenest_() argument
20 CHKFORTRANNULLOBJECT(is_col); in matcreatenest_()
34 *ierr = MatCreateNest(MPI_Comm_f2c(*comm), *nr, is_row, *nc, is_col, m, B); in matcreatenest_()
39 PETSC_EXTERN void matnestsetsubmats_(Mat *B, PetscInt *nr, IS is_row[], PetscInt *nc, IS is_col[], … in matnestsetsubmats_() argument
46 CHKFORTRANNULLOBJECT(is_col); in matnestsetsubmats_()
62 *ierr = MatNestSetSubMats(*B, *nr, is_row, *nc, is_col, m); in matnestsetsubmats_()
|
| /petsc/src/mat/impls/nest/ |
| H A D | matnest.c | 350 IS *is_row, *is_col; in MatTranspose_Nest() local
353 PetscCall(PetscMalloc2(nr, &is_row, nc, &is_col)); in MatTranspose_Nest()
354 PetscCall(MatNestGetISs(A, is_row, is_col)); in MatTranspose_Nest()
361 PetscCall(MatCreateNest(PetscObjectComm((PetscObject)A), nc, is_col, nr, is_row, subs, &C)); in MatTranspose_Nest()
363 PetscCall(PetscFree2(is_row, is_col)); in MatTranspose_Nest()
1362 …tSubMats_Nest(Mat A, PetscInt nr, const IS is_row[], PetscInt nc, const IS is_col[], const Mat a[]) in MatNestSetSubMats_Nest() argument
1408 PetscCall(MatSetUp_NestIS_Private(A, nr, is_row, nc, is_col)); in MatNestSetSubMats_Nest()
1479 …tSetSubMats(Mat A, PetscInt nr, const IS is_row[], PetscInt nc, const IS is_col[], const Mat a[]) … in MatNestSetSubMats() argument
1491 if (nc && is_col) { in MatNestSetSubMats()
1492 PetscAssertPointer(is_col, 5); in MatNestSetSubMats()
[all …]
|
| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 27 IS is, is_col; member
619 ilink->is_col = ilink->is; in PCSetUp_FieldSplit()
639 …eneral(PetscObjectComm((PetscObject)pc), nslots * nfields, jj, PETSC_OWN_POINTER, &ilink->is_col)); in PCSetUp_FieldSplit()
642 ilink->is_col = ilink->is; in PCSetUp_FieldSplit()
645 PetscCall(ISSetBlockSize(ilink->is_col, nfields)); in PCSetUp_FieldSplit()
648 …ride(PetscObjectComm((PetscObject)pc), nslots, rstart + ilink->fields_col[0], bs, &ilink->is_col)); in PCSetUp_FieldSplit()
651 ilink->is_col = ilink->is; in PCSetUp_FieldSplit()
670 ilink->is_col = ilink->is; in PCSetUp_FieldSplit()
679 ilink->is_col = ilink->is; in PCSetUp_FieldSplit()
709 …PetscCall(MatCreateSubMatrix(pc->pmat, ilink->is, ilink->is_col, MAT_INITIAL_MATRIX, &jac->pmat[i]… in PCSetUp_FieldSplit()
[all …]
|
| /petsc/src/dm/dt/dualspace/impls/sum/ |
| H A D | dualspacesum.c | 415 IS is_row, is_col; in PetscDualSpaceSumCreateMappings() local
460 PetscCall(ISCreateStride(PETSC_COMM_SELF, sNcols, coffset, 1, &is_col)); in PetscDualSpaceSumCreateMappings()
464 PetscCall(ISCreateStride(PETSC_COMM_SELF, sNcols, coffset, Ns, &is_col)); in PetscDualSpaceSumCreateMappings()
474 PetscCall(ISCreateGeneral(PETSC_COMM_SELF, sNcols, cols, PETSC_OWN_POINTER, &is_col)); in PetscDualSpaceSumCreateMappings()
478 PetscCall(ISLocalToGlobalMappingCreateIS(is_col, &map_col[s])); in PetscDualSpaceSumCreateMappings()
480 PetscCall(ISDestroy(&is_col)); in PetscDualSpaceSumCreateMappings()
|