Changeset 1527 for XIOS/dev/branch_openmp/extern/ep_dev/ep_size.cpp
- Timestamp:
- 06/08/18 15:59:53 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/extern/ep_dev/ep_size.cpp
r1525 r1527 22 22 if(comm->is_ep) 23 23 { 24 if(comm->is_intercomm) 25 { 26 Debug("MPI_Comm_remote_size with EP_intercomm"); 27 return *size = comm->ep_comm_ptr->intercomm->intercomm_rank_map->size(); 28 } 29 else 30 { 31 Debug("MPI_Comm_remote_size with EP_intracomm"); 32 return *size=0; 33 } 34 } 35 return MPI_Comm_remote_size_mpi(comm, size); 36 } 37 38 int MPI_Comm_remote_size2(MPI_Comm comm, int *size) 39 { 40 if(comm->is_ep) 41 { 42 if(comm->is_intercomm) 43 { 44 Debug("MPI_Comm_remote_size with EP_intercomm"); 45 return *size = comm->inter_rank_map->size(); 46 } 47 return *size=0; 24 return *size = comm->is_intercomm? comm->inter_rank_map->size() : 0; 48 25 } 49 26 return MPI_Comm_remote_size_mpi(comm, size);
Note: See TracChangeset
for help on using the changeset viewer.