1 /* Copyright (c) 2009-2023. The SimGrid Team.
2 * All rights reserved. */
4 /* This program is free software; you can redistribute it and/or modify it
5 * under the terms of the license (GNU LGPL) which comes with this package. */
10 #include "smpi_info.hpp"
12 namespace simgrid::smpi {
14 class Op : public F2C{
15 MPI_User_function* func_;
17 bool is_fortran_op_ = false;
20 int types_; //bitmask of the allowed datatypes flags
24 Op(MPI_User_function* function, bool commutative, bool predefined = false, int types = 0, std::string name = "MPI_Op")
25 : func_(function), is_commutative_(commutative), is_predefined_(predefined), types_(types), name_(std::move(name))
30 bool is_commutative() const { return is_commutative_; }
31 bool is_predefined() const { return is_predefined_; }
32 bool is_fortran_op() const { return is_fortran_op_; }
33 int allowed_types() const { return types_; }
34 std::string name() const override {return name_;}
35 // tell that we were created from fortran, so we need to translate the type to fortran when called
36 void set_fortran_op() { is_fortran_op_ = true; }
37 void apply(const void* invec, void* inoutvec, const int* len, MPI_Datatype datatype) const;
38 static Op* f2c(int id);
40 static void unref(MPI_Op* op);
43 } // namespace simgrid::smpi