1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
/////////////////////////////////////////////////////////////
// //
// Copyright (c) 2003-2014 by The University of Queensland //
// Centre for Geoscience Computing //
// http://earth.uq.edu.au/centre-geoscience-computing //
// //
// Primary Business: Brisbane, Queensland, Australia //
// Licensed under the Open Software License version 3.0 //
// http://www.apache.org/licenses/LICENSE-2.0 //
// //
/////////////////////////////////////////////////////////////
#include "Parallel/MpiInfo.h"
#include "Parallel/mpibuf.h"
MpiInfo::MpiInfo(MPI_Comm comm) : m_comm(comm)
{
}
MpiInfo::~MpiInfo()
{
}
int MpiInfo::rank() const
{
int rank;
MPI_Comm_rank(m_comm, &rank);
return rank;
}
int MpiInfo::size() const
{
int size;
MPI_Comm_size(m_comm, &size);
return size;
}
|
