Changeset 1369 for XIOS/dev/branch_openmp/src
- Timestamp:
- 12/08/17 14:16:16 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/src/interface/c/icdata.cpp
r1334 r1369 56 56 ep_lib::MPI_Comm return_comm; 57 57 58 //ep_lib::fc_comm_map.clear();59 58 60 59 if (!cstr2string(client_id, len_client_id, str)) return; … … 67 66 #elif _usingEP 68 67 ep_lib::fc_comm_map.clear(); 69 if (initialized) local_comm=ep_lib::EP_Comm_f2c( static_cast<int>(*f_local_comm));68 if (initialized) local_comm=ep_lib::EP_Comm_f2c((f_local_comm)); 70 69 else local_comm=MPI_COMM_NULL; 71 70 #endif … … 77 76 *f_return_comm=MPI_Comm_c2f(return_comm); 78 77 #elif _usingEP 79 *f_return_comm= ep_lib::EP_Comm_c2f(return_comm);78 *f_return_comm=*static_cast<MPI_Fint*>(ep_lib::EP_Comm_c2f(return_comm)); 80 79 #endif 81 80 CTimer::get("XIOS init").suspend(); … … 94 93 comm=MPI_Comm_f2c(*f_comm); 95 94 #elif _usingEP 96 comm = ep_lib::EP_Comm_f2c( static_cast< int >(*f_comm));95 comm = ep_lib::EP_Comm_f2c(f_comm); 97 96 #endif 98 97 CClient::registerContext(str, comm);
Note: See TracChangeset
for help on using the changeset viewer.