Changeset 1642 for XIOS/dev/branch_openmp/extern/src_ep_dev/ep_reduce.cpp

Timestamp:

01/23/19 10:31:44 (5 years ago)

Author:

yushan

Message:

dev on ADA. add flag switch _usingEP/_usingMPI

File:

• XIOS/dev/branch_openmp/extern/src_ep_dev/ep_reduce.cpp (modified) (19 diffs)

XIOS/dev/branch_openmp/extern/src_ep_dev/ep_reduce.cpp

@@ -80 +80 @@
       memcpy(recvbuf, comm->my_buffer->void_buffer[0], datasize * count);
 
-      if(op == MPI_MAX)
-      {
-        if(datatype == MPI_INT)
+      if(op == EP_MAX)
+      {
+        if(datatype == EP_INT)
         {
           assert(datasize == sizeof(int));
@@ -96 +96 @@
         }
 
-        else if(datatype == MPI_DOUBLE)
+        else if(datatype == EP_DOUBLE)
         {
           assert(datasize == sizeof(double));
@@ -103 +103 @@
         }
 
-        else if(datatype == MPI_CHAR)
+        else if(datatype == EP_CHAR)
         {
           assert(datasize == sizeof(char));
@@ -110 +110 @@
         }
 
-        else if(datatype == MPI_LONG)
+        else if(datatype == EP_LONG)
         {
           assert(datasize == sizeof(long));
@@ -117 +117 @@
         }
 
-        else if(datatype == MPI_UNSIGNED_LONG)
+        else if(datatype == EP_UNSIGNED_LONG)
         {
           assert(datasize == sizeof(unsigned long));
@@ -124 +124 @@
         }
 
-        else if(datatype == MPI_LONG_LONG_INT)
+        else if(datatype == EP_LONG_LONG_INT)
         {
           assert(datasize == sizeof(long long));
@@ -139 +139 @@
       }
 
-      else if(op == MPI_MIN)
-      {
-        if(datatype ==MPI_INT)
+      else if(op == EP_MIN)
+      {
+        if(datatype ==EP_INT)
         {
           assert(datasize == sizeof(int));
@@ -155 +155 @@
         }
 
-        else if(datatype == MPI_DOUBLE)
+        else if(datatype == EP_DOUBLE)
         {
           assert(datasize == sizeof(double));
@@ -162 +162 @@
         }
 
-        else if(datatype == MPI_CHAR)
+        else if(datatype == EP_CHAR)
         {
           assert(datasize == sizeof(char));
@@ -169 +169 @@
         }
 
-        else if(datatype == MPI_LONG)
+        else if(datatype == EP_LONG)
         {
           assert(datasize == sizeof(long));
@@ -176 +176 @@
         }
 
-        else if(datatype == MPI_UNSIGNED_LONG)
+        else if(datatype == EP_UNSIGNED_LONG)
         {
           assert(datasize == sizeof(unsigned long));
@@ -183 +183 @@
         }
 
-        else if(datatype == MPI_LONG_LONG_INT)
+        else if(datatype == EP_LONG_LONG_INT)
         {
           assert(datasize == sizeof(long long));
@@ -199 +199 @@
 
 
-      else if(op == MPI_SUM)
-      {
-        if(datatype==MPI_INT)
+      else if(op == EP_SUM)
+      {
+        if(datatype==EP_INT)
         {
           assert(datasize == sizeof(int));
@@ -215 +215 @@
         }
 
-        else if(datatype == MPI_DOUBLE)
+        else if(datatype == EP_DOUBLE)
         {
           assert(datasize == sizeof(double));
@@ -222 +222 @@
         }
 
-        else if(datatype == MPI_CHAR)
+        else if(datatype == EP_CHAR)
         {
           assert(datasize == sizeof(char));
@@ -229 +229 @@
         }
 
-        else if(datatype == MPI_LONG)
+        else if(datatype == EP_LONG)
         {
           assert(datasize == sizeof(long));
@@ -236 +236 @@
         }
 
-        else if(datatype ==MPI_UNSIGNED_LONG)
+        else if(datatype ==EP_UNSIGNED_LONG)
         {
           assert(datasize == sizeof(unsigned long));
@@ -243 +243 @@
         }
         
-        else if(datatype ==MPI_LONG_LONG_INT)
+        else if(datatype ==EP_LONG_LONG_INT)
         {
           assert(datasize == sizeof(long long));
@@ -258 +258 @@
       }
 
-      else if(op == MPI_LOR)
-      {
-        if(datatype != MPI_INT)
+      else if(op == EP_LOR)
+      {
+        if(datatype != EP_INT)
           printf("datatype Error, must be MPI_INT\n");
         else