xref: /petsc/src/ksp/pc/impls/mg/ftn-custom/zmgf.c (revision ed7e4edd9bacb65eab04cd70e84cc2c5836af1cd)
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