Changeset 1393

Timestamp:

01/10/18 15:23:37 (7 years ago)

Author:

yushan

Message:

dev EP-RMA : MPI_Tetch_and_op

Location:

XIOS/dev/branch_openmp/extern/ep_dev

Files:

• ep_lib_win.hpp (modified) (1 diff)
• main.cpp (modified) (2 diffs)

XIOS/dev/branch_openmp/extern/ep_dev/ep_lib_win.hpp

@@ -25 +25 @@
   
   int MPI_Win_allocate (MPI_Aint size, int disp_unit, MPI_Info info, MPI_Comm comm, void *baseptr, MPI_Win *win);
+
+  int MPI_Fetch_and_op(const void *origin_addr, void *result_addr, MPI_Datatype datatype, int target_rank, 
+                      MPI_Aint target_disp, MPI_Op op, MPI_Win win);
 }
 

XIOS/dev/branch_openmp/extern/ep_dev/main.cpp

@@ -637 +637 @@
   {
     printf("Proc %d is client\n", mpi_rank);
-    num_threads = 2+mpi_rank;
+    num_threads = 2;//+mpi_rank;
   }
   else
@@ -732 +732 @@
     
     MPI_Win_fence(0, ep_win);
+    
+    if(rank == 6)
+    {
+      MPI_Aint displs = 0;
+      MPI_Fetch_and_op(&local_buf, &result_buf, MPI_INT, size-1, displs,
+                       MPI_SUM, ep_win);
+    }
+
+    MPI_Win_fence(0, ep_win);
 
     MPI_Win ep_win_allocated;