Merge pull request #13 from xantares/address

Add MPI_Get_address
ssciwr · Apr 21, 2023 · 32b5bf5 · 32b5bf5
2 parents 48165f7 + c922dd9
commit 32b5bf5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/include/experimental_unimpi.h b/include/experimental_unimpi.h
@@ -14,6 +14,9 @@ extern "C"
 #define MPI_MAX_INFO_KEY 2056
 #define MPI_MAX_INFO_VAL 2056
 
+#define MPI_Get_address(location, address)                                     \
+  (*(address) = (MPI_Aint)((char*)(location)), MPI_SUCCESS)
+
   typedef void MPI_Comm_errhandler_function(MPI_Comm*, int*, ...);
   int MPI_Comm_create_errhandler(
     MPI_Comm_errhandler_function* comm_errhandler_fn,