1 #include <petsc-private/fortranimpl.h> 2 #include <petscpc.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define pcmgsetlevels_ PCMGSETLEVELS 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define pcmgsetlevels_ pcmgsetlevels 8 #endif 9 10 EXTERN_C_BEGIN 11 void PETSC_STDCALL pcmgsetlevels_(PC *pc,PetscInt *levels,MPI_Comm *comms, PetscErrorCode *ierr) 12 { 13 CHKFORTRANNULLOBJECT(comms); 14 *ierr = PCMGSetLevels(*pc,*levels,comms); 15 } 16 17 EXTERN_C_END 18