Changeset 1638 for XIOS/trunk/src/interface/c/oasis_cinterface.cpp
- Timestamp:
- 01/22/19 16:15:03 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/c/oasis_cinterface.cpp
r501 r1638 21 21 } 22 22 23 void oasis_get_localcomm( MPI_Comm& comm)23 void oasis_get_localcomm(ep_lib::MPI_Comm& comm) 24 24 { 25 MPI_Fint f_comm ;25 ep_lib::MPI_Fint f_comm ; 26 26 27 27 fxios_oasis_get_localcomm(&f_comm) ; 28 comm=MPI_Comm_f2c(f_comm) ;28 //comm=MPI_Comm_f2c(f_comm) ; 29 29 } 30 30 31 void oasis_get_intracomm( MPI_Comm& comm_client_server,const std::string& server_id)31 void oasis_get_intracomm(ep_lib::MPI_Comm& comm_client_server,const std::string& server_id) 32 32 { 33 MPI_Fint f_comm ;33 ep_lib::MPI_Fint f_comm ; 34 34 35 35 fxios_oasis_get_intracomm(&f_comm,server_id.data(),server_id.size()) ; 36 comm_client_server=MPI_Comm_f2c(f_comm) ;36 //comm_client_server=MPI_Comm_f2c(f_comm) ; 37 37 } 38 38 39 void oasis_get_intercomm( MPI_Comm& comm_client_server,const std::string& server_id)39 void oasis_get_intercomm(ep_lib::MPI_Comm& comm_client_server,const std::string& server_id) 40 40 { 41 MPI_Fint f_comm ;41 ep_lib::MPI_Fint f_comm ; 42 42 43 43 fxios_oasis_get_intercomm(&f_comm,server_id.data(),server_id.size()) ; 44 comm_client_server=MPI_Comm_f2c(f_comm) ;44 //comm_client_server=MPI_Comm_f2c(f_comm) ; 45 45 } 46 46 }
Note: See TracChangeset
for help on using the changeset viewer.