Actual source code: zpchpddmf.c
1: #include <petsc/private/fortranimpl.h>
3: #include <petscpc.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define pchpddmsetauxiliarymat_ PCHPDDMSETAUXILIARYMAT
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
7: #define pchpddmsetauxiliarymat_ pchpddmsetauxiliarymat
8: #endif
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 ((PetscVoidFn *)setup != (PetscVoidFn *)PETSC_NULL_FUNCTION_Fortran) {
13: *ierr = PETSC_ERR_ARG_WRONG;
14: return;
15: }
16: *ierr = PCHPDDMSetAuxiliaryMat(*pc, *is, *A, NULL, NULL);
17: }