mg/ftn-custom/zmgf.c

#include <petsc/private/fortranimpl.h>
#include <petscpc.h>

#if defined(PETSC_HAVE_FORTRAN_CAPS)
#define pcmgsetlevels_             PCMGSETLEVELS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
#define pcmgsetlevels_             pcmgsetlevels
#endif

PETSC_EXTERN void pcmgsetlevels_(PC *pc,PetscInt *levels,MPI_Fint comms[], PetscErrorCode *ierr)
{
  MPI_Comm *ccomms;

  CHKFORTRANNULLOBJECT(comms);
  *ierr = PetscMalloc1(*levels,&ccomms);if (*ierr) return;
  for (PetscInt i=0; i<*levels; i++) {
    ccomms[i] = MPI_Comm_f2c(comms[i]);
  }
  *ierr = PCMGSetLevels(*pc,*levels,ccomms);if (*ierr) return;
  *ierr = PetscFree(ccomms);
}