Searched refs:fcomms (Results 1 – 1 of 1) sorted by relevance
10 PETSC_EXTERN void pcmgsetlevels_(PC *pc, PetscInt *levels, MPI_Fint fcomms[], PetscErrorCode *ierr) in pcmgsetlevels_() argument13 CHKFORTRANNULLMPICOMM(fcomms); in pcmgsetlevels_()14 if (fcomms) { in pcmgsetlevels_()17 for (PetscInt i = 0; i < *levels; i++) ccomms[i] = MPI_Comm_f2c(fcomms[i]); in pcmgsetlevels_()21 if (fcomms) *ierr = PetscFree(ccomms); in pcmgsetlevels_()