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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
/*=========================================================================
Program: Visualization Toolkit
Module: $RCSfile: vtkMPIEventLog.cxx,v $
Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
All rights reserved.
See Copyright.txt or http://www.kitware.com/Copyright.htm for details.
This software is distributed WITHOUT ANY WARRANTY; without even
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
PURPOSE. See the above copyright notice for more information.
=========================================================================*/
#include "vtkMPIEventLog.h"
#include "vtkMPIController.h"
#include "vtkObjectFactory.h"
#include "mpe.h"
int vtkMPIEventLog::LastEventId = 0;
vtkCxxRevisionMacro(vtkMPIEventLog, "$Revision: 1.7 $");
vtkStandardNewMacro(vtkMPIEventLog);
void vtkMPIEventLog::PrintSelf(ostream& os, vtkIndent indent)
{
this->Superclass::PrintSelf(os,indent);
}
vtkMPIEventLog::vtkMPIEventLog()
{
this->Active = 0;
}
void vtkMPIEventLog::InitializeLogging()
{
MPE_Init_log();
}
void vtkMPIEventLog::FinalizeLogging(const char* fname)
{
MPE_Finish_log(const_cast<char*>(fname));
}
int vtkMPIEventLog::SetDescription(const char* name, const char* desc)
{
int err, processId;
if ( (err = MPI_Comm_rank(MPI_COMM_WORLD,&processId))
!= MPI_SUCCESS)
{
char *msg = vtkMPIController::ErrorString(err);
vtkErrorMacro("MPI error occured: " << msg);
delete[] msg;
return 0;
}
this->Active = 1;
if (processId == 0)
{
this->BeginId = MPE_Log_get_event_number();
this->EndId = MPE_Log_get_event_number();
MPE_Describe_state(this->BeginId, this->EndId, const_cast<char*>(name),
const_cast<char*>(desc));
}
MPI_Bcast(&this->BeginId, 1, MPI_INT, 0, MPI_COMM_WORLD);
MPI_Bcast(&this->EndId, 1, MPI_INT, 0, MPI_COMM_WORLD);
return 1;
}
void vtkMPIEventLog::StartLogging()
{
if (!this->Active)
{
vtkWarningMacro("This vtkMPIEventLog has not been initialized. Can not log event.");
return;
}
MPE_Log_event(this->BeginId, 0, "begin");
}
void vtkMPIEventLog::StopLogging()
{
if (!this->Active)
{
vtkWarningMacro("This vtkMPIEventLog has not been initialized. Can not log event.");
return;
}
MPE_Log_event(this->EndId, 0, "end");
}
vtkMPIEventLog::~vtkMPIEventLog()
{
}
|
