Changeset 1650 for XIOS/dev/dev_trunk_omp/src/interface/c

Timestamp:

02/12/19 10:16:40 (5 years ago)

Author:

yushan

Message:

branch tested with openmpi thread_multiple

Location:

XIOS/dev/dev_trunk_omp/src/interface/c

Files:

• oasis_cinterface.cpp (modified) (3 diffs)
• oasis_cinterface.hpp (modified) (1 diff)

XIOS/dev/dev_trunk_omp/src/interface/c/oasis_cinterface.cpp

@@ -25 +25 @@
   void oasis_get_localcomm(MPI_Comm& comm)
   {
-    MPI_Fint f_comm ;
+    EP_Fint f_comm ;
     
     fxios_oasis_get_localcomm(&f_comm) ;
@@ -33 +33 @@
   void oasis_get_intracomm(MPI_Comm& comm_client_server,const std::string& server_id)
   {
-    MPI_Fint f_comm ;
+    EP_Fint f_comm ;
     
     fxios_oasis_get_intracomm(&f_comm,server_id.data(),server_id.size()) ;
@@ -41 +41 @@
   void oasis_get_intercomm(MPI_Comm& comm_client_server,const std::string& server_id)
   {
-    MPI_Fint f_comm ;
+    EP_Fint f_comm ;
     
     fxios_oasis_get_intercomm(&f_comm,server_id.data(),server_id.size()) ;

XIOS/dev/dev_trunk_omp/src/interface/c/oasis_cinterface.hpp

@@ -10 +10 @@
   void fxios_oasis_enddef(void) ;
   void fxios_oasis_finalize(void) ;
-  void fxios_oasis_get_localcomm(ep_lib::MPI_Fint* f_comm) ;
-  void fxios_oasis_get_intracomm(ep_lib::MPI_Fint* f_comm_client_server,const char* client_id,int str_len) ;
-  void fxios_oasis_get_intercomm(ep_lib::MPI_Fint* f_comm_client_server,const char* client_id,int str_len) ;
+  void fxios_oasis_get_localcomm(ep_lib::EP_Fint* f_comm) ;
+  void fxios_oasis_get_intracomm(ep_lib::EP_Fint* f_comm_client_server,const char* client_id,int str_len) ;
+  void fxios_oasis_get_intercomm(ep_lib::EP_Fint* f_comm_client_server,const char* client_id,int str_len) ;
 }