1 #include "private/fortranimpl.h" 2 #include "petscpc.h" 3 #include "petscmg.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