source: XIOS/dev/branch_openmp/extern/src_ep_dev/ep_type.cpp @ 1520

Last change on this file since 1520 was 1520, checked in by yushan, 6 years ago

save dev. TO DO : test with xios

File size: 1.2 KB
Line 
1#include "ep_lib.hpp"
2#include <mpi.h>
3#include "ep_declaration.hpp"
4#include <iostream>
5#include <fstream>
6#include "ep_mpi.hpp"
7
8using namespace std;
9
10
11namespace ep_lib
12{ 
13  ep_comm::ep_comm(void* comm)
14  {
15    is_ep = false;
16    is_intercomm = false;
17    mpi_comm = static_cast< ::MPI_Comm*>(comm);
18  }
19
20  ep_info::ep_info(void* info)
21  {
22    mpi_info = static_cast< ::MPI_Info*>(info);
23  }
24
25  ep_request::ep_request(void* request)
26  {
27    mpi_request = static_cast< ::MPI_Request*>(request);
28  }
29 
30  ep_status::ep_status(void* status)
31  {
32    mpi_status = static_cast< ::MPI_Status*>(status);
33  }
34
35  /*
36 
37  MPI_Aint::MPI_Aint(void* aint)
38  {
39    mpi_aint = new ::MPI_Aint;
40    *(static_cast< ::MPI_Aint*>(mpi_aint)) = *(static_cast< ::MPI_Aint*>(aint));
41  }
42
43  MPI_Aint::MPI_Aint(int aint)
44  {
45    mpi_aint = new ::MPI_Aint;
46    *(static_cast< ::MPI_Aint*>(mpi_aint)) = aint;
47  }
48
49  MPI_Aint MPI_Aint::operator=(int a)
50  {
51    mpi_aint = new ::MPI_Aint;
52    *(static_cast< int*>(mpi_aint)) = a;
53  }
54 
55  MPI_Fint::MPI_Fint(void* fint)
56  {
57    mpi_fint = new ::MPI_Fint;
58    *(static_cast< ::MPI_Fint*>(mpi_fint)) = *(static_cast< ::MPI_Fint*>(fint));
59  }
60
61 
62*/
63 
64
65
66}
67
68
69
70
71
72
73
74
75
Note: See TracBrowser for help on using the repository browser.