src/smpi/mpi/smpi_status.cpp

   1 /* Copyright (c) 2007-2019. The SimGrid Team. All rights reserved.          */
   2
   3 /* This program is free software; you can redistribute it and/or modify it
   4  * under the terms of the license (GNU LGPL) which comes with this package. */
   5
   6 #include "smpi_status.hpp"
   7 #include "private.hpp"
   8 #include "smpi_datatype.hpp"
   9 #include "src/simix/smx_private.hpp"
  10
  11 namespace simgrid{
  12 namespace smpi{
  13
  14 void Status::empty(MPI_Status * status)
  15 {
  16   if(status != MPI_STATUS_IGNORE) {
  17     status->MPI_SOURCE = MPI_ANY_SOURCE;
  18     status->MPI_TAG = MPI_ANY_TAG;
  19     status->MPI_ERROR = MPI_SUCCESS;
  20     status->count=0;
  21     status->cancelled=0;
  22   }
  23 }
  24
  25 int Status::cancelled(MPI_Status * status)
  26 {
  27   return status->cancelled!=0;
  28 }
  29
  30 void Status::set_cancelled(MPI_Status * status, int flag)
  31 {
  32   status->cancelled=flag;
  33 }
  34
  35 void Status::set_elements (MPI_Status * status, MPI_Datatype , int count){
  36   status->count=count;
  37 }
  38
  39 int Status::get_count(MPI_Status * status, MPI_Datatype datatype)
  40 {
  41   return status->count / datatype->size();
  42 }
  43
  44 }
  45 }