Changeset 1393 for XIOS/dev/branch_openmp/extern/ep_dev/main.cpp

Timestamp:

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

Author:

yushan

Message:

dev EP-RMA : MPI_Tetch_and_op

File:

• XIOS/dev/branch_openmp/extern/ep_dev/main.cpp (modified) (2 diffs)

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;