source: XIOS/dev/branch_openmp/extern/ep_dev/ep_lib.hpp @ 1525

Last change on this file since 1525 was 1525, checked in by yushan, 3 years ago

save dev : intercomm_create via intracomm. To do : modif related intercomm communication routines, barrier, free, rank, size...

File size: 3.2 KB
Line 
1#ifndef EP_LIB_HPP_INCLUDED
2#define EP_LIB_HPP_INCLUDED
3
4#include "ep_type.hpp"
5#include "ep_lib_intercomm.hpp"
6#include "ep_lib_intracomm.hpp"
7#include "ep_lib_local.hpp"
8#include "ep_lib_collective.hpp"
9#include "ep_tag.hpp"
10#include "ep_lib_fortran.hpp"
11#include "ep_lib_win.hpp"
12#include "ep_lib_mpi.hpp"
13//#include "ep_mpi.hpp"
14
15
16namespace ep_lib
17{
18  typedef void* MPI_Datatype;
19  typedef void* MPI_Op;
20
21  int MPI_Init_thread(int* argc, char*** argv, int required, int*provided);
22
23  int MPI_Init(int *argc, char ***argv);
24
25  int MPI_Initialized(int *flag);
26
27  int MPI_Comm_rank(MPI_Comm comm, int* rank);
28
29  int MPI_Comm_size(MPI_Comm comm, int* rank);
30
31  int MPI_Comm_free(MPI_Comm* comm);
32  int MPI_Comm_free2(MPI_Comm* comm);
33
34  int MPI_Finalize();
35 
36  double MPI_Wtime();
37
38  int MPI_Abort(MPI_Comm comm, int errorcode);
39
40  int MPI_Get_count(const MPI_Status *status, MPI_Datatype datatype, int *count);
41 
42  int MPI_Comm_remote_size(MPI_Comm comm, int *size);
43  int MPI_Comm_remote_size2(MPI_Comm comm, int *size);
44
45
46  int MPI_Send(void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm);
47  int MPI_Ssend(void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm);
48  int MPI_Isend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm, MPI_Request *request);
49  int MPI_Issend(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm, MPI_Request *request);
50
51
52  int MPI_Recv  (void *buf, int count, MPI_Datatype datatype, int src, int tag, MPI_Comm comm, MPI_Status *status);
53  int MPI_Irecv (void *buf, int count, MPI_Datatype datatype, int src, int tag, MPI_Comm comm, MPI_Request *request);
54  int MPI_Mrecv (void *buf, int count, MPI_Datatype datatype, MPI_Message *message, MPI_Status *status);
55  int MPI_Imrecv(void *buf, int count, MPI_Datatype datatype, MPI_Message *message, MPI_Request *request);
56
57
58  int MPI_Test(MPI_Request *request, int *flag, MPI_Status *status);
59  int MPI_Testall(int count, MPI_Request *array_of_requests, int *flag, MPI_Status *array_of_statuses);
60
61  int MPI_Wait(MPI_Request *request, MPI_Status *status);
62  int MPI_Waitall(int count, MPI_Request *array_of_requests, MPI_Status *array_of_statuses);
63
64
65  int MPI_Iprobe(int source, int tag, MPI_Comm comm, int *flag, MPI_Status *status);
66  int MPI_Improbe(int source, int tag, MPI_Comm comm, int *flag, MPI_Message *message, MPI_Status *status);
67 
68  int MPI_Alloc_mem(MPI_Aint size, MPI_Info info, void *baseptr);
69 
70  int MPI_Alloc_mem(unsigned long size, MPI_Info info, void *baseptr);
71
72  int MPI_Comm_test_inter(MPI_Comm comm, int *flag);
73
74
75  void check_sum_send(const void *buf, int count, MPI_Datatype datatype, int dest, int tag, MPI_Comm comm, int type);
76  void check_sum_recv(void *buf, int count, MPI_Datatype datatype, int src, int tag, MPI_Comm comm, int type);
77
78  bool valid_type(MPI_Datatype type);
79  bool valid_op(MPI_Op op);
80
81  int tag_combine(int real_tag, int src, int dest);
82  int get_ep_rank(MPI_Comm comm, int ep_rank_loc, int mpi_rank);
83
84  int Message_Check(MPI_Comm comm);
85
86  int Request_Check();
87 
88  void show_EP_PendingRequests(std::list< ep_lib::MPI_Request* > * EP_PendingRequest);
89
90  int test_sendrecv(MPI_Comm comm);
91
92
93}
94
95//MPI_Datatype to_mpi(ep_lib::MPI_Datatype type);
96
97
98#endif // EP_LIB_HPP_INCLUDED
Note: See TracBrowser for help on using the repository browser.