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
RevLine 
[1359]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{ 
[1520]13  ep_comm::ep_comm(void* comm)
[1359]14  {
[1520]15    is_ep = false;
16    is_intercomm = false;
17    mpi_comm = static_cast< ::MPI_Comm*>(comm);
[1359]18  }
19
[1520]20  ep_info::ep_info(void* info)
[1359]21  {
[1520]22    mpi_info = static_cast< ::MPI_Info*>(info);
[1359]23  }
24
[1520]25  ep_request::ep_request(void* request)
[1359]26  {
[1520]27    mpi_request = static_cast< ::MPI_Request*>(request);
[1359]28  }
[1520]29 
30  ep_status::ep_status(void* status)
[1359]31  {
[1520]32    mpi_status = static_cast< ::MPI_Status*>(status);
[1359]33  }
34
[1520]35  /*
[1362]36 
[1365]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  }
[1362]42
[1520]43  MPI_Aint::MPI_Aint(int aint)
[1359]44  {
[1520]45    mpi_aint = new ::MPI_Aint;
46    *(static_cast< ::MPI_Aint*>(mpi_aint)) = aint;
[1359]47  }
48
[1520]49  MPI_Aint MPI_Aint::operator=(int a)
[1359]50  {
[1520]51    mpi_aint = new ::MPI_Aint;
52    *(static_cast< int*>(mpi_aint)) = a;
[1359]53  }
54 
[1520]55  MPI_Fint::MPI_Fint(void* fint)
[1359]56  {
[1520]57    mpi_fint = new ::MPI_Fint;
58    *(static_cast< ::MPI_Fint*>(mpi_fint)) = *(static_cast< ::MPI_Fint*>(fint));
[1359]59  }
60
61 
[1520]62*/
63 
[1359]64
65
66}
67
68
69
70
71
72
73
74
75
Note: See TracBrowser for help on using the repository browser.