diff options
-rw-r--r-- | interface.ccl | 3 | ||||
-rw-r--r-- | src/slab.c | 8 |
2 files changed, 6 insertions, 5 deletions
diff --git a/interface.ccl b/interface.ccl index 100ed3a..7110914 100644 --- a/interface.ccl +++ b/interface.ccl @@ -6,5 +6,6 @@ IMPLEMENTS: Slab INCLUDES HEADER: slab.h IN Slab.h INCLUDES HEADER: slab.inc IN Slab.inc -CCTK_INT FUNCTION GetMPICommWorld (CCTK_POINTER_TO_CONST IN cctkGH) +CCTK_POINTER_TO_CONST \ +FUNCTION GetMPICommWorld (CCTK_POINTER_TO_CONST IN cctkGH) USES FUNCTION GetMPICommWorld @@ -302,7 +302,7 @@ get_mpi_comm (const cGH * restrict const cctkGH) { #ifdef CCTK_MPI if (CCTK_IsFunctionAliased ("GetMPICommWorld")) { - return GetMPICommWorld (cctkGH); + return * (MPI_Comm const *) GetMPICommWorld (cctkGH); } # if defined CARPET_CARPET { @@ -800,11 +800,11 @@ int Slab_MultiTransfer (cGH const * const cctkGH, { - CCTK_INT tmp; - int const iret = Util_TableGetInt (options, &tmp, "comm"); + CCTK_POINTER tmp; + int const iret = Util_TableGetPointer (options, &tmp, "comm"); if (iret == 1) { /* There was an entry, use it */ - comm = tmp; + comm = * (MPI_Comm const *) tmp; } else if (iret == UTIL_ERROR_BAD_HANDLE || iret == UTIL_ERROR_TABLE_NO_SUCH_KEY) { /* There was no entry, use a default */ |