Further development

eschnett · Nov 21, 2023 · 3c7f7be · 3c7f7be
1 parent 2916ab8
commit 3c7f7be
Show file tree

Hide file tree

Showing 4 changed files with 28 additions and 8 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1 +1,3 @@
-build/
+BUILD.sh
+build
+build-*
diff --git a/mpiabi/mpiabi_constants.h b/mpiabi/mpiabi_constants.h
@@ -243,11 +243,13 @@ enum {
 
 // [Extensions]
 
-#define MPIABI_REAL1 ((MPIABI_Datatype)0b001011000010)    // arXiv:2308.11214
-#define MPIABI_LOGICAL1 ((MPIABI_Datatype)0b001011000001) // arXiv:2308.11214
-#define MPIABI_LOGICAL2 ((MPIABI_Datatype)0b001011001001) // arXiv:2308.11214
-#define MPIABI_LOGICAL4 ((MPIABI_Datatype)0b001011010001) // arXiv:2308.11214
-#define MPIABI_LOGICAL8 ((MPIABI_Datatype)0b001011011001) // arXiv:2308.11214
+#define MPIABI_REAL1 ((MPIABI_Datatype)0b001011000010)     // arXiv:2308.11214
+#define MPIABI_COMPLEX2 ((MPIABI_Datatype)0b001011001011)  // arXiv:2308.11214
+#define MPIABI_LOGICAL1 ((MPIABI_Datatype)0b001011000001)  // arXiv:2308.11214
+#define MPIABI_LOGICAL2 ((MPIABI_Datatype)0b001011001001)  // arXiv:2308.11214
+#define MPIABI_LOGICAL4 ((MPIABI_Datatype)0b001011010001)  // arXiv:2308.11214
+#define MPIABI_LOGICAL8 ((MPIABI_Datatype)0b001011011001)  // arXiv:2308.11214
+#define MPIABI_LOGICAL16 ((MPIABI_Datatype)0b001011100001) // arXiv:2308.11214
 
 // [Datatypes for reduction functions (C)]
 

diff --git a/mpitrampoline/mpi_constants.h b/mpitrampoline/mpi_constants.h
@@ -230,10 +230,12 @@ enum {
 // [Extensions]
 
 #define MPI_REAL1 MPIABI_REAL1
+#define MPI_COMPLEX2 MPIABI_COMPLEX2
 #define MPI_LOGICAL1 MPIABI_LOGICAL1
 #define MPI_LOGICAL2 MPIABI_LOGICAL2
 #define MPI_LOGICAL4 MPIABI_LOGICAL4
 #define MPI_LOGICAL8 MPIABI_LOGICAL8
+#define MPI_LOGICAL16 MPIABI_LOGICAL16
 
 // [Datatypes for reduction functions (C)]
 

diff --git a/mpiwrapper/mpiwrapper.c b/mpiwrapper/mpiwrapper.c
@@ -3173,9 +3173,23 @@ int MPIABI_Ibarrier(MPIABI_Comm comm, MPIABI_Request *request) {
 }
 
 int MPIABI_Ibcast(void *buffer, int count, MPIABI_Datatype datatype, int root,
-                  MPIABI_Comm comm, MPIABI_Request *request);
+                  MPIABI_Comm comm, MPIABI_Request *request) {
+  MPI_Request mpi_request;
+  int ierr = MPI_Ibcast(buffer, count, abi2mpi_datatype(datatype), root,
+                        abi2mpi_comm(comm), &mpi_request);
+  *request = mpi2abi_request(mpi_request);
+  return mpi2abi_errorcode(ierr);
+}
+
 int MPIABI_Ibcast_c(void *buffer, MPIABI_Count count, MPIABI_Datatype datatype,
-                    int root, MPIABI_Comm comm, MPIABI_Request *request);
+                    int root, MPIABI_Comm comm, MPIABI_Request *request) {
+  MPI_Request mpi_request;
+  int ierr = MPI_Ibcast_c(buffer, count, abi2mpi_datatype(datatype), root,
+                          abi2mpi_comm(comm), &mpi_request);
+  *request = mpi2abi_request(mpi_request);
+  return mpi2abi_errorcode(ierr);
+}
+
 int MPIABI_Iexscan(const void *sendbuf, void *recvbuf, int count,
                    MPIABI_Datatype datatype, MPIABI_Op op, MPIABI_Comm comm,
                    MPIABI_Request *request);