Actual source code: zpchpddmf.c

      1: #include <petsc/private/ftnimpl.h>

      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

     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: }