Changeset 1639 for XIOS/trunk/src/interface/c/oasis_cinterface.cpp
- Timestamp:
- 01/22/19 16:43:32 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/c/oasis_cinterface.cpp
r1638 r1639 21 21 } 22 22 23 void oasis_get_localcomm( ep_lib::MPI_Comm& comm)23 void oasis_get_localcomm(MPI_Comm& comm) 24 24 { 25 ep_lib::MPI_Fint f_comm ;25 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( ep_lib::MPI_Comm& comm_client_server,const std::string& server_id)31 void oasis_get_intracomm(MPI_Comm& comm_client_server,const std::string& server_id) 32 32 { 33 ep_lib::MPI_Fint f_comm ;33 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( ep_lib::MPI_Comm& comm_client_server,const std::string& server_id)39 void oasis_get_intercomm(MPI_Comm& comm_client_server,const std::string& server_id) 40 40 { 41 ep_lib::MPI_Fint f_comm ;41 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.