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