Changeset 1642 for XIOS/dev/branch_openmp/extern/src_ep_dev/ep_exscan.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_exscan.cpp (modified) (21 diffs)

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

@@ -78 +78 @@
     MPI_Barrier_local(comm);
 
-    if(op == MPI_SUM)
-    {
-      if(datatype == MPI_INT )
+    if(op == EP_SUM)
+    {
+      if(datatype == EP_INT )
       {
         assert(datasize == sizeof(int));
@@ -87 +87 @@
       }
      
-      else if(datatype == MPI_FLOAT )
+      else if(datatype == EP_FLOAT )
       {
         assert(datasize == sizeof(float));
@@ -95 +95 @@
       
 
-      else if(datatype == MPI_DOUBLE )
+      else if(datatype == EP_DOUBLE )
       {
         assert(datasize == sizeof(double));
@@ -102 +102 @@
       }
 
-      else if(datatype == MPI_CHAR )
+      else if(datatype == EP_CHAR )
       {
         assert(datasize == sizeof(char));
@@ -109 +109 @@
       }
 
-      else if(datatype == MPI_LONG )
+      else if(datatype == EP_LONG )
       {
         assert(datasize == sizeof(long));
@@ -116 +116 @@
       }
 
-      else if(datatype == MPI_UNSIGNED_LONG )
+      else if(datatype == EP_UNSIGNED_LONG )
       {
         assert(datasize == sizeof(unsigned long));
@@ -123 +123 @@
       }
       
-      else if(datatype == MPI_LONG_LONG_INT )
+      else if(datatype == EP_LONG_LONG_INT )
       {
         assert(datasize == sizeof(long long int));
@@ -139 +139 @@
     }
 
-    else if(op == MPI_MAX)
-    {
-      if(datatype == MPI_INT )
+    else if(op == EP_MAX)
+    {
+      if(datatype == EP_INT )
       {
         assert(datasize == sizeof(int));
@@ -148 +148 @@
       }
 
-      else if(datatype == MPI_FLOAT )
+      else if(datatype == EP_FLOAT )
       {
         assert(datasize == sizeof(float));
@@ -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 int));
@@ -197 +197 @@
     }
 
-    else if(op == MPI_MIN)
-    {
-      if(datatype == MPI_INT )
+    else if(op == EP_MIN)
+    {
+      if(datatype == EP_INT )
       {
         assert(datasize == sizeof(int));
@@ -206 +206 @@
       }
 
-      else if(datatype == MPI_FLOAT )
+      else if(datatype == EP_FLOAT )
       {
         assert(datasize == sizeof(float));
@@ -213 +213 @@
       }
 
-      else if(datatype == MPI_DOUBLE )
+      else if(datatype == EP_DOUBLE )
       {
         assert(datasize == sizeof(double));
@@ -220 +220 @@
       }
 
-      else if(datatype == MPI_CHAR )
+      else if(datatype == EP_CHAR )
       {
         assert(datasize == sizeof(char));
@@ -227 +227 @@
       }
 
-      else if(datatype == MPI_LONG )
+      else if(datatype == EP_LONG )
       {
         assert(datasize == sizeof(long));
@@ -234 +234 @@
       }
 
-      else if(datatype == MPI_UNSIGNED_LONG )
+      else if(datatype == EP_UNSIGNED_LONG )
       {
         assert(datasize == sizeof(unsigned long));
@@ -241 +241 @@
       }
 
-      else if(datatype == MPI_LONG_LONG_INT )
+      else if(datatype == EP_LONG_LONG_INT )
       {
         assert(datasize == sizeof(long long int));