Ignore:
Timestamp:
06/07/18 19:39:07 (3 years ago)
Author:
yushan
Message:

save dev : intercomm_create via intracomm. To do : modif related intercomm communication routines, barrier, free, rank, size...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/dev/branch_openmp/extern/ep_dev/ep_barrier.cpp

    r1517 r1525  
    2222 
    2323  int MPI_Barrier_intracomm(MPI_Comm comm) 
     24  { 
     25    int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first; 
     26 
     27    MPI_Barrier_local(comm); 
     28 
     29    if(ep_rank_loc == 0) 
     30    { 
     31      ::MPI_Comm mpi_comm = to_mpi_comm(comm->mpi_comm); 
     32 
     33      ::MPI_Barrier(mpi_comm); 
     34    } 
     35 
     36    MPI_Barrier_local(comm); 
     37 
     38    return 0; 
     39  } 
     40 
     41  int MPI_Barrier2(MPI_Comm comm) 
    2442  { 
    2543    int ep_rank_loc = comm->ep_comm_ptr->size_rank_info[1].first; 
Note: See TracChangeset for help on using the changeset viewer.