1 #include <petsc/private/ftnimpl.h> 2 3 #include <petscpc.h> 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define pchpddmsetauxiliarymat_ PCHPDDMSETAUXILIARYMAT 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define pchpddmsetauxiliarymat_ pchpddmsetauxiliarymat 8 #endif 9 10 PETSC_EXTERN void pchpddmsetauxiliarymat_(PC *pc, IS *is, Mat *A, PetscErrorCode (*setup)(Mat, PetscReal, Vec, Vec, PetscReal, IS, void *), PETSC_UNUSED void *setup_ctx, PetscErrorCode *ierr) 11 { 12 if ((PetscFortranCallbackFn *)setup != (PetscFortranCallbackFn *)PETSC_NULL_FUNCTION_Fortran) { 13 *ierr = PETSC_ERR_ARG_WRONG; 14 return; 15 } 16 *ierr = PCHPDDMSetAuxiliaryMat(*pc, *is, *A, NULL, NULL); 17 } 18