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
pchpddmsetauxiliarymat_(PC * pc,IS * is,Mat * A,PetscErrorCode (* setup)(Mat,PetscReal,Vec,Vec,PetscReal,IS,void *),PETSC_UNUSED void * setup_ctx,PetscErrorCode * ierr)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