| /petsc/src/ksp/pc/impls/fieldsplit/ftn-custom/ |
| H A D | zfieldsplitf.c | 16 PETSC_EXTERN void pcfieldsplitschurgetsubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, PetscErro… in pcfieldsplitschurgetsubksp_() argument
20 CHKFORTRANNULLINTEGER(n_local); in pcfieldsplitschurgetsubksp_()
23 if (n_local) *n_local = nloc; in pcfieldsplitschurgetsubksp_()
27 PETSC_EXTERN void pcfieldsplitgetsubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, PetscErrorCode… in pcfieldsplitgetsubksp_() argument
31 CHKFORTRANNULLINTEGER(n_local); in pcfieldsplitgetsubksp_()
34 if (n_local) *n_local = nloc; in pcfieldsplitgetsubksp_()
38 PETSC_EXTERN void pcfieldsplitrestoresubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, PetscError… in pcfieldsplitrestoresubksp_() argument
48 PETSC_EXTERN void pcfieldsplitschurerestoresubksp_(PC *pc, PetscInt *n_local, F90Array1d *ksp, Pets… in pcfieldsplitschurerestoresubksp_() argument
|
| /petsc/src/ksp/pc/impls/bjacobi/ |
| H A D | bjacobi.c | 33 if (jac->n_local > 0 && jac->n < 0) { in PCSetUp_BJacobi()
34 …PetscCallMPI(MPIU_Allreduce(&jac->n_local, &jac->n, 1, MPIU_INT, MPI_SUM, PetscObjectComm((PetscOb… in PCSetUp_BJacobi()
37 for (i = 0; i < jac->n_local; i++) { in PCSetUp_BJacobi()
43 PetscCall(PetscMalloc1(jac->n_local, &jac->l_lens)); in PCSetUp_BJacobi()
44 …for (i = 0; i < jac->n_local; i++) jac->l_lens[i] = bs * ((M / bs) / jac->n_local + (((M / bs) % j… in PCSetUp_BJacobi()
46 } else if (jac->n > 0 && jac->n_local < 0) { /* global block count given */ in PCSetUp_BJacobi()
55 jac->n_local = jac->n; in PCSetUp_BJacobi()
56 PetscCall(PetscMalloc1(jac->n_local, &jac->l_lens)); in PCSetUp_BJacobi()
57 PetscCall(PetscArraycpy(jac->l_lens, jac->g_lens, jac->n_local)); in PCSetUp_BJacobi()
60 for (i = 0; i < jac->n_local; i++) sum += jac->l_lens[i]; in PCSetUp_BJacobi()
[all …]
|
| H A D | bjacobi.h | 12 PetscInt n_local; /* number of blocks in this subcommunicator or in this process */ member
|
| /petsc/src/ksp/pc/impls/bjacobi/ftn-custom/ |
| H A D | zbjacobif.c | 12 PETSC_EXTERN void pcbjacobigetsubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d … in pcbjacobigetsubksp_() argument
17 CHKFORTRANNULLINTEGER(n_local); in pcbjacobigetsubksp_()
20 if (n_local) *n_local = nloc; in pcbjacobigetsubksp_()
25 PETSC_EXTERN void pcbjacobirestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Arra… in pcbjacobirestoresubksp_() argument
|
| /petsc/src/ksp/ftn-mod/ |
| H A D | petscksp.h90 | 11 subroutine PCBJacobiRestoreSubKSP(pc, n_local, first_local, ksp, ierr)
15 PetscInt :: n_local, first_local
20 subroutine PCASMRestoreSubKSP(pc, n_local, first_local, ksp, ierr)
24 PetscInt :: n_local, first_local
29 subroutine PCGASMRestoreSubKSP(pc, n_local, first_local, ksp, ierr)
33 PetscInt :: n_local, first_local
|
| /petsc/src/ksp/pc/impls/gasm/ftn-custom/ |
| H A D | zgasmf.c | 42 PETSC_EXTERN void pcgasmgetsubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d *ks… in pcgasmgetsubksp_() argument
47 CHKFORTRANNULLINTEGER(n_local); in pcgasmgetsubksp_()
50 if (n_local) *n_local = nloc; in pcgasmgetsubksp_()
55 PETSC_EXTERN void pcgasmrestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d… in pcgasmrestoresubksp_() argument
|
| /petsc/src/ksp/pc/impls/asm/ftn-custom/ |
| H A D | zasmf.c | 89 PETSC_EXTERN void pcasmgetsubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d *ksp… in pcasmgetsubksp_() argument
94 CHKFORTRANNULLINTEGER(n_local); in pcasmgetsubksp_()
97 if (n_local) *n_local = nloc; in pcasmgetsubksp_()
102 PETSC_EXTERN void pcasmrestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d … in pcasmrestoresubksp_() argument
|
| /petsc/include/petsc/private/ |
| H A D | pcasmimpl.h | 6 PetscInt n, n_local, n_local_true; member
|
| /petsc/src/vec/is/ao/impls/memscalable/ |
| H A D | aomemscalable.c | 270 PetscInt n_local = map->n, i, j; in AOCreateMemoryScalable_private() local
285 PetscCall(PetscArrayzero(aomap_loc, n_local)); in AOCreateMemoryScalable_private()
389 PetscInt napp, n_local, N, i, start, *petsc, *lens, *disp; in AOCreate_MemoryScalable() local
442 n_local = map->n; in AOCreate_MemoryScalable()
443 PetscCall(PetscCalloc2(n_local, &aomems->app_loc, n_local, &aomems->petsc_loc)); in AOCreate_MemoryScalable()
|
| /petsc/src/ksp/pc/impls/asm/ |
| H A D | asm.c | 97 for (i = 0; i < osm->n_local; i++) { in PCASMPrintSubdomains()
208 osm->n_local = outwork.max; in PCSetUp_ASM()
890 static PetscErrorCode PCASMGetSubKSP_ASM(PC pc, PetscInt *n_local, PetscInt *first_local, KSP **ksp) in PCASMGetSubKSP_ASM() argument
897 if (n_local) *n_local = osm->n_local_true; in PCASMGetSubKSP_ASM()
1242 PetscErrorCode PCASMGetSubKSP(PC pc, PetscInt *n_local, PetscInt *first_local, KSP *ksp[]) in PCASMGetSubKSP() argument
1246 …PetscUseMethod(pc, "PCASMGetSubKSP_C", (PC, PetscInt *, PetscInt *, KSP **), (pc, n_local, first_l… in PCASMGetSubKSP()
1292 osm->n_local = 0; in PCCreate_ASM()
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | rosenbrock4.h | 25 PetscInt n_local; member
157 user->n_local = i_end - i_start; in CreateHessian()
279 …PetscCall(PetscSFSetGraph(user->off_process_scatter, user->n_local, n_recv, NULL, PETSC_USE_POINTE… in CreateVectors()
|
| /petsc/src/ksp/pc/impls/gasm/ |
| H A D | gasm.c | 1230 PetscErrorCode PCGASMGetSubKSP(PC pc, PetscInt *n_local, PetscInt *first_local, KSP *ksp[]) in PCGASMGetSubKSP() argument
1234 …PetscUseMethod(pc, "PCGASMGetSubKSP_C", (PC, PetscInt *, PetscInt *, KSP **), (pc, n_local, first_… in PCGASMGetSubKSP()
|
| /petsc/doc/manual/ |
| H A D | ksp.md | 928 PCBJacobiGetSubKSP(PC pc,PetscInt *n_local,PetscInt *first_local,KSP **subksp);
929 PCASMGetSubKSP(PC pc,PetscInt *n_local,PetscInt *first_local,KSP **subksp);
933 `n_local` is the number of blocks on the calling process, and
|