- Timestamp:
- 05/16/18 15:56:55 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_openmp/extern/ep_dev/ep_intercomm_kernel.cpp
r1381 r1499 116 116 117 117 } 118 119 118 120 119 121 send_buf[0] = size_info[1]; … … 366 368 #pragma omp critical (write_to_tag_list) 367 369 tag_list.push_back(make_pair( make_pair(tag, min(leader_info[0], leader_info[1])) , ep_intercomm)); 370 //printf("tag_list size = %lu\n", tag_list.size()); 368 371 } 369 372 } … … 568 571 // (*newintercomm).rank_map->at(i).first, (*newintercomm).rank_map->at(i).second); 569 572 573 // MPI_Comm *test_comm = newintercomm->ep_comm_ptr->intercomm->local_comm; 574 // int test_rank; 575 // MPI_Comm_rank(*test_comm, &test_rank); 576 // printf("=================test_rank = %d\n", test_rank); 577 578 570 579 571 580 return MPI_SUCCESS; … … 620 629 MPI_Status status; 621 630 631 632 622 633 MPI_Comm_rank(peer_comm, &leader_rank_in_peer[0]); 623 634 … … 714 725 *newintercomm = iter->second[my_position]; 715 726 found = true; 727 // tag_list.erase(iter); 716 728 break; 717 729 }
Note: See TracChangeset
for help on using the changeset viewer.