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_size.cpp

    r1515 r1525  
    3636  } 
    3737 
     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; 
     48    } 
     49    return MPI_Comm_remote_size_mpi(comm, size); 
     50  } 
     51 
    3852 
    3953  int MPI_Comm_size_mpi(MPI_Comm comm, int* size) 
     
    4963  } 
    5064 
    51  
    5265} 
    5366 
Note: See TracChangeset for help on using the changeset viewer.