1e54e4138SSatish Balay #include "zpetsc.h" 2e54e4138SSatish Balay #include "petscpc.h" 3e54e4138SSatish Balay #include "petscmg.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 { 14*ed7e4eddSMatthew Knepley CHKFORTRANNULLOBJECT(comms); 15e54e4138SSatish Balay *ierr = PCMGSetLevels(*pc,*levels,comms); 16e54e4138SSatish Balay } 17e54e4138SSatish Balay 18e54e4138SSatish Balay EXTERN_C_END 19