| /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
18 CHKFORTRANNULLINTEGER(first_local); in pcbjacobigetsubksp_()
21 if (first_local) *first_local = flocal; 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
48 CHKFORTRANNULLINTEGER(first_local); in pcgasmgetsubksp_()
51 if (first_local) *first_local = flocal; 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
95 CHKFORTRANNULLINTEGER(first_local); in pcasmgetsubksp_()
98 if (first_local) *first_local = flocal; in pcasmgetsubksp_()
102 PETSC_EXTERN void pcasmrestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d … in pcasmrestoresubksp_() argument
|
| /petsc/src/ksp/pc/impls/bjacobi/ |
| H A D | bjacobi.h | 13 PetscInt first_local; /* number of first block on processor */ member
|
| H A D | bjacobi.c | 225 …Int_FMT ", first local block number = %" PetscInt_FMT "\n", rank, jac->n_local, jac->first_local)); in PCView_BJacobi()
258 static PetscErrorCode PCBJacobiGetSubKSP_BJacobi(PC pc, PetscInt *n_local, PetscInt *first_local, K… in PCBJacobiGetSubKSP_BJacobi() argument
266 if (first_local) *first_local = jac->first_local; in PCBJacobiGetSubKSP_BJacobi()
351 PetscErrorCode PCBJacobiGetSubKSP(PC pc, PetscInt *n_local, PetscInt *first_local, KSP *ksp[]) in PCBJacobiGetSubKSP() argument
355 …pc, "PCBJacobiGetSubKSP_C", (PC, PetscInt *, PetscInt *, KSP **), (pc, n_local, first_local, ksp)); in PCBJacobiGetSubKSP()
528 jac->first_local = rank; in PCCreate_BJacobi()
|
| /petsc/src/ksp/pc/impls/asm/ |
| H A D | asm.c | 890 static PetscErrorCode PCASMGetSubKSP_ASM(PC pc, PetscInt *n_local, PetscInt *first_local, KSP **ksp) in PCASMGetSubKSP_ASM() argument
898 if (first_local) { in PCASMGetSubKSP_ASM()
899 …PetscCallMPI(MPI_Scan(&osm->n_local_true, first_local, 1, MPIU_INT, MPI_SUM, PetscObjectComm((Pets… in PCASMGetSubKSP_ASM()
900 *first_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 …hod(pc, "PCASMGetSubKSP_C", (PC, PetscInt *, PetscInt *, KSP **), (pc, n_local, first_local, ksp)); in PCASMGetSubKSP()
|
| /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 …od(pc, "PCGASMGetSubKSP_C", (PC, PetscInt *, PetscInt *, KSP **), (pc, n_local, first_local, ksp)); 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);
934 `first_local` indicates the global number of the first block on the
|