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