Changeset 1365 for XIOS/dev/branch_openmp/extern/src_ep_dev/ep_lib.cpp

Timestamp:

12/07/17 16:56:23 (6 years ago)

Author:

yushan

Message:

unify type : MPI_Datatype MPI_Aint

File:

• XIOS/dev/branch_openmp/extern/src_ep_dev/ep_lib.cpp (modified) (4 diffs)

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

@@ -76 +76 @@
 
     ::MPI_Status *mpi_status = static_cast< ::MPI_Status* >(status->mpi_status);
-    ::MPI_Datatype mpi_datatype = static_cast< ::MPI_Datatype >(datatype);
-
-    ::MPI_Get_count(mpi_status, mpi_datatype, count);
+    ::MPI_Datatype *mpi_datatype = static_cast< ::MPI_Datatype*>(datatype);
+
+    ::MPI_Get_count(mpi_status, *mpi_datatype, count);
   }
 
@@ -93 +93 @@
     ::MPI_Aint datasize, intsize, charsize, lb;
     
-    ::MPI_Type_get_extent(static_cast< ::MPI_Datatype>(datatype), &lb, &datasize);
-    ::MPI_Type_get_extent(static_cast< ::MPI_Datatype> (MPI_CHAR), &lb, &intsize);
+    ::MPI_Type_get_extent(*(static_cast< ::MPI_Datatype*>(datatype)), &lb, &datasize);
+    ::MPI_Type_get_extent(*(static_cast< ::MPI_Datatype*>(MPI_CHAR)), &lb, &intsize);
 
     int_count = count * datasize / intsize ;
@@ -125 +125 @@
     ::MPI_Aint datasize, intsize, charsize, lb;
     
-    ::MPI_Type_get_extent(static_cast< ::MPI_Datatype>(datatype), &lb, &datasize);
-    ::MPI_Type_get_extent(static_cast< ::MPI_Datatype> (MPI_CHAR), &lb, &intsize);
+    ::MPI_Type_get_extent(*(static_cast< ::MPI_Datatype*>(datatype)), &lb, &datasize);
+    ::MPI_Type_get_extent(*(static_cast< ::MPI_Datatype*>(MPI_CHAR)), &lb, &intsize);
 
     int_count = count * datasize / intsize ;
@@ -238 +238 @@
 MPI_Datatype to_mpi_type(ep_lib::MPI_Datatype type)
 {
-  return static_cast< MPI_Datatype >(type);
+  return *static_cast< MPI_Datatype* >(type);
 }