Searched refs:ccomms (Results 1 – 2 of 2) sorted by relevance
12 MPI_Comm *ccomms = NULL; in pcmgsetlevels_() local15 *ierr = PetscMalloc1(*levels, &ccomms); in pcmgsetlevels_()17 for (PetscInt i = 0; i < *levels; i++) ccomms[i] = MPI_Comm_f2c(fcomms[i]); in pcmgsetlevels_()19 *ierr = PCMGSetLevels(*pc, *levels, ccomms); in pcmgsetlevels_()21 if (fcomms) *ierr = PetscFree(ccomms); in pcmgsetlevels_()
564 cdef MPI_Comm *ccomms = NULL569 CHKERR(PetscMalloc(sizeof(MPI_Comm)*<size_t>clevels, &ccomms))572 ccomms[i] = def_Comm(comm, MPI_COMM_NULL)573 CHKERR(SNESFASSetLevels(self.snes, clevels, ccomms))575 CHKERR(PetscFree(ccomms))577 CHKERR(SNESFASSetLevels(self.snes, clevels, ccomms))