1 #include <petsc-private/fortranimpl.h> 2 #include <petscksp.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define pcfieldsplitgetsubksp_ PCFIELDSPLITGETSUBKSP 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define pcfieldsplitgetsubksp_ pcfieldsplitgetsubksp 8 #endif 9 10 EXTERN_C_BEGIN 11 void PETSC_STDCALL pcfieldsplitgetsubksp_(PC *pc,PetscInt *n_local,KSP *ksp,PetscErrorCode *ierr) 12 { 13 KSP *tksp; 14 PetscInt i,nloc; 15 CHKFORTRANNULLINTEGER(n_local); 16 *ierr = PCFieldSplitGetSubKSP(*pc,&nloc,&tksp); if (*ierr) return; 17 if (n_local) *n_local = nloc; 18 CHKFORTRANNULLOBJECT(ksp); 19 if (ksp) { 20 for (i=0; i<nloc; i++) { 21 ksp[i] = tksp[i]; 22 } 23 } 24 } 25 26 EXTERN_C_END 27