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

Timestamp:

12/21/17 14:50:18 (6 years ago)

Author:

yushan

Message:

dev EP-RMA : MPI_Win_allocate

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;
+    num_threads = 2+mpi_rank;
   }
   else
@@ -730 +730 @@
                          1, MPI_INT, MPI_SUM, ep_win);
     }
-
-    
+    
+    MPI_Win_fence(0, ep_win);
+
+    MPI_Win ep_win_allocated;
+    int* baseptr = new int[10];
+    MPI_Aint base_size = 4;
+
+    MPI_Win_allocate (base_size, sizeof(int), info, comm, baseptr, &ep_win_allocated);
+
+    MPI_Win_fence(0, ep_win_allocated);
+
+    MPI_Win_free(&ep_win_allocated);
+    delete[] baseptr;
+
     MPI_Win_free(&ep_win);
     printf("rank = %d, buf = %d, local_buf = %d, result_buf = %d\n", rank, buf, local_buf, result_buf);