1 /* Copyright (c) 2010, 2013-2017. 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. */
7 #ifndef SMPI_WIN_HPP_INCLUDED
8 #define SMPI_WIN_HPP_INCLUDED
10 #include "smpi_f2c.hpp"
11 #include "smpi_keyvals.hpp"
12 #include "xbt/synchro.h"
13 #include <simgrid/msg.h>
21 class Win : public F2C, public Keyval {
29 std::vector<MPI_Request> *requests_;
32 MPI_Win* connected_wins_;
36 int count_; //for ordering the accs
37 xbt_mutex_t lock_mut_;
38 xbt_mutex_t atomic_mut_;
39 std::list<int> lockers_;
40 int rank_; // to identify owner for barriers in MPI_COMM_WORLD
41 int mode_; // exclusive or shared lock
46 static std::unordered_map<int, smpi_key_elem> keyvals_;
47 static int keyval_id_;
49 Win(void *base, MPI_Aint size, int disp_unit, MPI_Info info, MPI_Comm comm, int allocated = 0, int dynamic = 0);
50 Win(MPI_Info info, MPI_Comm comm) : Win(MPI_BOTTOM, 0, 1, info, comm, 0, 1) {};
52 int attach (void *base, MPI_Aint size);
53 int detach (void *base);
54 void get_name( char* name, int* length);
55 void get_group( MPI_Group* group);
56 void set_name( char* name);
59 int start(MPI_Group group, int assert);
60 int post(MPI_Group group, int assert);
63 void set_info( MPI_Info info);
68 int fence(int assert);
69 int put( void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank,
70 MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Request* request=nullptr);
71 int get( void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank,
72 MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Request* request=nullptr);
73 int accumulate( void *origin_addr, int origin_count, MPI_Datatype origin_datatype, int target_rank,
74 MPI_Aint target_disp, int target_count, MPI_Datatype target_datatype, MPI_Op op, MPI_Request* request=nullptr);
75 int get_accumulate( void *origin_addr, int origin_count, MPI_Datatype origin_datatype, void *result_addr,
76 int result_count, MPI_Datatype result_datatype, int target_rank, MPI_Aint target_disp, int target_count,
77 MPI_Datatype target_datatype, MPI_Op op, MPI_Request* request=nullptr);
78 int compare_and_swap(void *origin_addr, void *compare_addr,
79 void *result_addr, MPI_Datatype datatype, int target_rank,
80 MPI_Aint target_disp);
81 static Win* f2c(int id);
83 int lock(int lock_type, int rank, int assert);
85 int lock_all(int assert);
88 int flush_local(int rank);
90 int flush_local_all();
92 int finish_comms(int rank);