Ignore:
Timestamp:
01/10/18 15:23:37 (5 years ago)
Author:
yushan
Message:

dev EP-RMA : MPI_Tetch_and_op

File:
1 edited

Legend:

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

    r1388 r1393  
    637637  { 
    638638    printf("Proc %d is client\n", mpi_rank); 
    639     num_threads = 2+mpi_rank; 
     639    num_threads = 2;//+mpi_rank; 
    640640  } 
    641641  else 
     
    732732     
    733733    MPI_Win_fence(0, ep_win); 
     734     
     735    if(rank == 6) 
     736    { 
     737      MPI_Aint displs = 0; 
     738      MPI_Fetch_and_op(&local_buf, &result_buf, MPI_INT, size-1, displs, 
     739                       MPI_SUM, ep_win); 
     740    } 
     741 
     742    MPI_Win_fence(0, ep_win); 
    734743 
    735744    MPI_Win ep_win_allocated; 
Note: See TracChangeset for help on using the changeset viewer.