Ignore:
Timestamp:
12/13/17 15:12:08 (7 years ago)
Author:
yushan
Message:

unify type : MPI_Request

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_openmp/extern/src_ep_dev/ep_message.cpp

    r1362 r1374  
    3737      Debug("Message probing for intracomm\n"); 
    3838       
    39  
    40       //#ifdef _openmpi 
    4139      #pragma omp critical (_mpi_call) 
    4240      { 
    … …  
    5149        } 
    5250      } 
    53       //#elif _intelmpi 
    54       //#pragma omp critical (_mpi_call) 
    55       //{ 
    56       //  ::MPI_Iprobe(MPI_ANY_SOURCE, MPI_ANY_TAG, to_mpi_comm(comm.mpi_comm), &flag, &status); 
    57       //  if(flag) 
    58       //  { 
    59       //    Debug("find message in mpi comm \n"); 
    60       //    mpi_source = status.MPI_SOURCE; 
    61       //    int tag = status.MPI_TAG; 
    62       //    ::MPI_Mprobe(mpi_source, tag, to_mpi_comm(comm.mpi_comm), &message, &status); 
    63       //  } 
    64       //} 
    65       //#endif 
     51 
    6652       
    6753      if(flag) 
    … …  
    9076        } 
    9177         
    92         delete msg_block;         
     78        delete msg_block; 
    9379      } 
    9480 
    … …  
    117103      Debug("Message probing for intracomm\n"); 
    118104 
    119       //#ifdef _openmpi 
    120105      #pragma omp critical (_mpi_call) 
    121106      { 
    … …  
    170155      Debug("Message probing for intracomm\n"); 
    171156      
    172       //#ifdef _openmpi 
    173157      #pragma omp critical (_mpi_call) 
    174158      { 
Note: See TracChangeset for help on using the changeset viewer.