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