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