Ignore:
Timestamp:
01/23/19 10:31:44 (5 years ago)
Author:
yushan
Message:

dev on ADA. add flag switch _usingEP/_usingMPI

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1540 r1642  
    6060    if(ep_rank_loc == 0 && mpi_rank != 0) 
    6161    { 
    62       if(op == MPI_SUM) 
    63       { 
    64         if(datatype == MPI_INT) 
     62      if(op == EP_SUM) 
     63      { 
     64        if(datatype == EP_INT) 
    6565        { 
    6666          assert(datasize == sizeof(int)); 
    … …  
    6868        } 
    6969           
    70         else if(datatype == MPI_FLOAT) 
     70        else if(datatype == EP_FLOAT) 
    7171        { 
    7272          assert( datasize == sizeof(float)); 
    … …  
    7474        }  
    7575              
    76         else if(datatype == MPI_DOUBLE ) 
     76        else if(datatype == EP_DOUBLE ) 
    7777        { 
    7878          assert( datasize == sizeof(double)); 
    … …  
    8080        } 
    8181       
    82         else if(datatype == MPI_CHAR) 
     82        else if(datatype == EP_CHAR) 
    8383        { 
    8484          assert( datasize == sizeof(char)); 
    … …  
    8686        }  
    8787           
    88         else if(datatype == MPI_LONG) 
     88        else if(datatype == EP_LONG) 
    8989        { 
    9090          assert( datasize == sizeof(long)); 
    … …  
    9393           
    9494             
    95         else if(datatype == MPI_UNSIGNED_LONG) 
     95        else if(datatype == EP_UNSIGNED_LONG) 
    9696        { 
    9797          assert(datasize == sizeof(unsigned long)); 
    … …  
    9999        } 
    100100         
    101         else if(datatype == MPI_LONG_LONG_INT) 
     101        else if(datatype == EP_LONG_LONG_INT) 
    102102        { 
    103103          assert(datasize == sizeof(long long int)); 
    … …  
    112112      } 
    113113 
    114       else if(op == MPI_MAX) 
    115       { 
    116         if(datatype == MPI_INT) 
     114      else if(op == EP_MAX) 
     115      { 
     116        if(datatype == EP_INT) 
    117117        { 
    118118          assert( datasize == sizeof(int)); 
    … …  
    120120        }  
    121121           
    122         else if(datatype == MPI_FLOAT ) 
     122        else if(datatype == EP_FLOAT ) 
    123123        { 
    124124          assert( datasize == sizeof(float)); 
    … …  
    126126        } 
    127127 
    128         else if(datatype == MPI_DOUBLE ) 
     128        else if(datatype == EP_DOUBLE ) 
    129129        { 
    130130          assert( datasize == sizeof(double)); 
    … …  
    132132        } 
    133133       
    134         else if(datatype == MPI_CHAR ) 
     134        else if(datatype == EP_CHAR ) 
    135135        { 
    136136          assert(datasize == sizeof(char)); 
    … …  
    138138        } 
    139139       
    140         else if(datatype == MPI_LONG) 
     140        else if(datatype == EP_LONG) 
    141141        { 
    142142          assert( datasize == sizeof(long)); 
    … …  
    144144        }  
    145145             
    146         else if(datatype == MPI_UNSIGNED_LONG) 
     146        else if(datatype == EP_UNSIGNED_LONG) 
    147147        { 
    148148          assert( datasize == sizeof(unsigned long)); 
    … …  
    150150        }  
    151151             
    152         else if(datatype == MPI_LONG_LONG_INT) 
     152        else if(datatype == EP_LONG_LONG_INT) 
    153153        { 
    154154          assert(datasize == sizeof(long long int)); 
    … …  
    163163      } 
    164164 
    165       else if(op == MPI_MIN) 
    166       { 
    167         if(datatype == MPI_INT ) 
     165      else if(op == EP_MIN) 
     166      { 
     167        if(datatype == EP_INT ) 
    168168        { 
    169169          assert (datasize == sizeof(int)); 
    … …  
    171171        } 
    172172           
    173         else if(datatype == MPI_FLOAT ) 
     173        else if(datatype == EP_FLOAT ) 
    174174        { 
    175175          assert( datasize == sizeof(float)); 
    … …  
    177177        } 
    178178              
    179         else if(datatype == MPI_DOUBLE ) 
     179        else if(datatype == EP_DOUBLE ) 
    180180        { 
    181181          assert( datasize == sizeof(double)); 
    … …  
    183183        } 
    184184       
    185         else if(datatype == MPI_CHAR ) 
     185        else if(datatype == EP_CHAR ) 
    186186        { 
    187187          assert( datasize == sizeof(char)); 
    … …  
    189189        } 
    190190       
    191         else if(datatype == MPI_LONG ) 
     191        else if(datatype == EP_LONG ) 
    192192        {  
    193193          assert( datasize == sizeof(long)); 
    … …  
    195195        } 
    196196             
    197         else if(datatype == MPI_UNSIGNED_LONG ) 
     197        else if(datatype == EP_UNSIGNED_LONG ) 
    198198        { 
    199199          assert( datasize == sizeof(unsigned long)); 
    … …  
    201201        } 
    202202             
    203         else if(datatype == MPI_LONG_LONG_INT) 
     203        else if(datatype == EP_LONG_LONG_INT) 
    204204        { 
    205205          assert(datasize == sizeof(long long int)); 
    … …  
    235235 
    236236 
    237     if(op == MPI_SUM) 
    238     { 
    239       if(datatype == MPI_INT ) 
     237    if(op == EP_SUM) 
     238    { 
     239      if(datatype == EP_INT ) 
    240240      { 
    241241        assert (datasize == sizeof(int)); 
    … …  
    244244      } 
    245245      
    246       else if(datatype == MPI_FLOAT ) 
     246      else if(datatype == EP_FLOAT ) 
    247247      { 
    248248        assert(datasize == sizeof(float)); 
    … …  
    252252       
    253253 
    254       else if(datatype == MPI_DOUBLE ) 
     254      else if(datatype == EP_DOUBLE ) 
    255255      { 
    256256        assert(datasize == sizeof(double)); 
    … …  
    259259      } 
    260260 
    261       else if(datatype == MPI_CHAR ) 
     261      else if(datatype == EP_CHAR ) 
    262262      { 
    263263        assert(datasize == sizeof(char)); 
    … …  
    266266      } 
    267267 
    268       else if(datatype == MPI_LONG ) 
     268      else if(datatype == EP_LONG ) 
    269269      { 
    270270        assert(datasize == sizeof(long)); 
    … …  
    273273      } 
    274274 
    275       else if(datatype == MPI_UNSIGNED_LONG ) 
     275      else if(datatype == EP_UNSIGNED_LONG ) 
    276276      { 
    277277        assert(datasize == sizeof(unsigned long)); 
    … …  
    280280      } 
    281281       
    282       else if(datatype == MPI_LONG_LONG_INT ) 
     282      else if(datatype == EP_LONG_LONG_INT ) 
    283283      { 
    284284        assert(datasize == sizeof(long long int)); 
    … …  
    296296    } 
    297297 
    298     else if(op == MPI_MAX) 
    299     { 
    300       if(datatype == MPI_INT) 
     298    else if(op == EP_MAX) 
     299    { 
     300      if(datatype == EP_INT) 
    301301      { 
    302302        assert(datasize == sizeof(int)); 
    … …  
    305305      } 
    306306 
    307       else if(datatype == MPI_FLOAT ) 
     307      else if(datatype == EP_FLOAT ) 
    308308      { 
    309309        assert(datasize == sizeof(float)); 
    … …  
    312312      } 
    313313 
    314       else if(datatype == MPI_DOUBLE ) 
     314      else if(datatype == EP_DOUBLE ) 
    315315      { 
    316316        assert(datasize == sizeof(double)); 
    … …  
    319319      } 
    320320 
    321       else if(datatype == MPI_CHAR ) 
     321      else if(datatype == EP_CHAR ) 
    322322      { 
    323323        assert(datasize == sizeof(char)); 
    … …  
    326326      } 
    327327 
    328       else if(datatype == MPI_LONG ) 
     328      else if(datatype == EP_LONG ) 
    329329      { 
    330330        assert(datasize == sizeof(long)); 
    … …  
    333333      } 
    334334 
    335       else if(datatype == MPI_UNSIGNED_LONG ) 
     335      else if(datatype == EP_UNSIGNED_LONG ) 
    336336      { 
    337337        assert(datasize == sizeof(unsigned long)); 
    … …  
    340340      } 
    341341      
    342       else if(datatype == MPI_LONG_LONG_INT ) 
     342      else if(datatype == EP_LONG_LONG_INT ) 
    343343      { 
    344344        assert(datasize == sizeof(long long int)); 
    … …  
    355355    } 
    356356 
    357     else if(op == MPI_MIN) 
    358     { 
    359       if(datatype == MPI_INT ) 
     357    else if(op == EP_MIN) 
     358    { 
     359      if(datatype == EP_INT ) 
    360360      { 
    361361        assert(datasize == sizeof(int)); 
    … …  
    364364      } 
    365365 
    366       else if(datatype == MPI_FLOAT ) 
     366      else if(datatype == EP_FLOAT ) 
    367367      { 
    368368        assert(datasize == sizeof(float)); 
    … …  
    371371      } 
    372372 
    373       else if(datatype == MPI_DOUBLE ) 
     373      else if(datatype == EP_DOUBLE ) 
    374374      { 
    375375        assert(datasize == sizeof(double)); 
    … …  
    378378      } 
    379379 
    380       else if(datatype == MPI_CHAR ) 
     380      else if(datatype == EP_CHAR ) 
    381381      { 
    382382        assert(datasize == sizeof(char)); 
    … …  
    385385      } 
    386386 
    387       else if(datatype == MPI_LONG ) 
     387      else if(datatype == EP_LONG ) 
    388388      { 
    389389        assert(datasize == sizeof(long)); 
    … …  
    392392      } 
    393393 
    394       else if(datatype == MPI_UNSIGNED_LONG ) 
     394      else if(datatype == EP_UNSIGNED_LONG ) 
    395395      { 
    396396        assert(datasize == sizeof(unsigned long)); 
    … …  
    399399      } 
    400400 
    401       else if(datatype == MPI_LONG_LONG_INT ) 
     401      else if(datatype == EP_LONG_LONG_INT ) 
    402402      { 
    403403        assert(datasize == sizeof(long long int)); 
Note: See TracChangeset for help on using the changeset viewer.