1 #include <petsc/private/ftnimpl.h>
2 #include <petscksp.h>
3
4 #if defined(PETSC_HAVE_FORTRAN_CAPS)
5 #define pcbjacobigetsubksp_ PCBJACOBIGETSUBKSP
6 #define pcbjacobirestoresubksp_ PCBJACOBIRESTORESUBKSP
7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8 #define pcbjacobigetsubksp_ pcbjacobigetsubksp
9 #define pcbjacobirestoresubksp_ pcbjacobirestoresubksp
10 #endif
11
pcbjacobigetsubksp_(PC * pc,PetscInt * n_local,PetscInt * first_local,F90Array1d * ksp,PetscErrorCode * ierr PETSC_F90_2PTR_PROTO (ptrd))12 PETSC_EXTERN void pcbjacobigetsubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d *ksp, PetscErrorCode *ierr PETSC_F90_2PTR_PROTO(ptrd))
13 {
14 KSP *tksp;
15 PetscInt nloc, flocal;
16
17 CHKFORTRANNULLINTEGER(n_local);
18 CHKFORTRANNULLINTEGER(first_local);
19 *ierr = PCBJacobiGetSubKSP(*pc, &nloc, &flocal, &tksp);
20 if (n_local) *n_local = nloc;
21 if (first_local) *first_local = flocal;
22 *ierr = F90Array1dCreate(tksp, MPIU_FORTRANADDR, 1, nloc, ksp PETSC_F90_2PTR_PARAM(ptrd));
23 }
24
pcbjacobirestoresubksp_(PC * pc,PetscInt * n_local,PetscInt * first_local,F90Array1d * ksp,PetscErrorCode * ierr PETSC_F90_2PTR_PROTO (ptrd))25 PETSC_EXTERN void pcbjacobirestoresubksp_(PC *pc, PetscInt *n_local, PetscInt *first_local, F90Array1d *ksp, PetscErrorCode *ierr PETSC_F90_2PTR_PROTO(ptrd))
26 {
27 *ierr = F90Array1dDestroy(ksp, MPIU_FORTRANADDR PETSC_F90_2PTR_PARAM(ptrd));
28 }
29