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
40
41
42
43
44
45
46
47
48
|
/////////////////////////////////////////////////////////////
// //
// 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 //
// //
/////////////////////////////////////////////////////////////
// -- project includes --
#include "mpibarrier.h"
// -- system includes --
#include <console.h>
CMPIBarrier::CMPIBarrier(MPI_Comm comm)
{
m_comm=comm;
MPI_Comm_rank(m_comm,&m_id);
}
/*!
Wait on the barrier. The message and the time waited are output to console.XDebug()
\param msg the message
*/
void CMPIBarrier::wait(const char* msg)
{
m_time=MPI_Wtime();
if(m_id==0){
console.XDebug()<< "Master waiting on Barrier ( " << msg << " )\n";
} else {
console.XDebug()<< "Worker " << m_id << " waiting on Barrier ( " << msg << " )\n";
}
MPI_Barrier(m_comm);
double p_time=MPI_Wtime();
if(m_id==0){
console.XDebug()<< "Master past Barrier ( " << msg << " ) after " << p_time-m_time << " sec \n";
} else {
console.XDebug()<< "Worker " << m_id << " past Barrier ( " << msg << " ) after " << p_time-m_time << " sec \n";
}
}
|
