EpetraExt Package Browser (Single Doxygen Collection)
Development
test
SymmRCM
test/SymmRCM/cxx_main.cpp
Go to the documentation of this file.
1
//@HEADER
2
// ***********************************************************************
3
//
4
// EpetraExt: Epetra Extended - Linear Algebra Services Package
5
// Copyright (2011) Sandia Corporation
6
//
7
// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
8
// the U.S. Government retains certain rights in this software.
9
//
10
// Redistribution and use in source and binary forms, with or without
11
// modification, are permitted provided that the following conditions are
12
// met:
13
//
14
// 1. Redistributions of source code must retain the above copyright
15
// notice, this list of conditions and the following disclaimer.
16
//
17
// 2. Redistributions in binary form must reproduce the above copyright
18
// notice, this list of conditions and the following disclaimer in the
19
// documentation and/or other materials provided with the distribution.
20
//
21
// 3. Neither the name of the Corporation nor the names of the
22
// contributors may be used to endorse or promote products derived from
23
// this software without specific prior written permission.
24
//
25
// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
26
// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
29
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
30
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
31
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
32
// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
33
// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
34
// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
35
// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
36
//
37
// Questions? Contact Michael A. Heroux (maherou@sandia.gov)
38
//
39
// ***********************************************************************
40
//@HEADER
41
42
// SymmRCM Test routine
43
#include <
Epetra_ConfigDefs.h
>
44
#include "
EpetraExt_Version.h
"
45
46
#ifdef EPETRA_MPI
47
#include "
Epetra_MpiComm.h
"
48
#include <mpi.h>
49
#endif
50
#include "
Epetra_SerialComm.h
"
51
#include "
Epetra_Time.h
"
52
#include "
Epetra_BlockMap.h
"
53
#include "
Epetra_CrsGraph.h
"
54
#include "
Epetra_CrsMatrix.h
"
55
#include "
Epetra_Vector.h
"
56
57
#include "
EpetraExt_SymmRCM_CrsGraph.h
"
58
#include "
EpetraExt_LPTrans_From_GraphTrans.h
"
59
60
#include "../epetra_test_err.h"
61
62
int
main
(
int
argc,
char
*argv[]) {
63
64
int
i, ierr=0, returnierr=0;
65
66
#ifdef EPETRA_MPI
67
68
// Initialize MPI
69
70
MPI_Init(&argc,&argv);
71
int
size, rank;
// Number of MPI processes, My process ID
72
73
MPI_Comm_size(MPI_COMM_WORLD, &size);
74
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
75
76
#else
77
78
int
size = 1;
// Serial case (not using MPI)
79
int
rank = 0;
80
81
#endif
82
83
bool
verbose =
false
;
84
85
// Check if we should print results to standard out
86
if
(argc>1)
if
(argv[1][0]==
'-'
&& argv[1][1]==
'v'
) verbose =
true
;
87
88
89
#ifdef EPETRA_MPI
90
Epetra_MpiComm
Comm(MPI_COMM_WORLD);
91
#else
92
Epetra_SerialComm
Comm;
93
#endif
94
if
(!verbose) Comm.
SetTracebackMode
(0);
// This should shut down any error traceback reporting
95
96
int
MyPID = Comm.
MyPID
();
97
int
NumProc = Comm.
NumProc
();
98
99
bool
verbose1 = verbose;
100
101
if
(verbose) verbose = (MyPID==0);
102
103
if
(verbose)
104
cout <<
EpetraExt::EpetraExt_Version
() << endl << endl;
105
106
Comm.
Barrier
();
107
108
if
(verbose1) cout << Comm << endl << flush;
109
110
Comm.
Barrier
();
111
112
int
NumMyElements = 10000;
113
int
NumGlobalElements = NumMyElements*NumProc+
EPETRA_MIN
(NumProc,3);
114
if
(MyPID < 3) NumMyElements++;
115
int
IndexBase = 0;
116
int
ElementSize = 7;
117
bool
DistributedGlobal = (NumGlobalElements>NumMyElements);
118
119
Epetra_BlockMap
* Map;
120
121
cout <<
"NOT IMPLEMENTED YET!!!\n"
;
122
123
#ifdef EPETRA_MPI
124
MPI_Finalize();
125
#endif
126
127
return
returnierr;
128
}
129
Epetra_SerialComm::Barrier
void Barrier() const
main
int main(int argc, char *argv[])
Definition:
test/SymmRCM/cxx_main.cpp:62
Epetra_BlockMap.h
Epetra_Object::SetTracebackMode
static void SetTracebackMode(int TracebackModeValue)
Epetra_CrsGraph.h
EpetraExt::EpetraExt_Version
std::string EpetraExt_Version()
Definition:
EpetraExt_Version.h:50
EPETRA_MIN
#define EPETRA_MIN(x, y)
Epetra_MpiComm
Epetra_SerialComm.h
Epetra_SerialComm::NumProc
int NumProc() const
EpetraExt_SymmRCM_CrsGraph.h
Epetra_BlockMap
EpetraExt_LPTrans_From_GraphTrans.h
Epetra_SerialComm
Epetra_Time.h
Epetra_MpiComm.h
Epetra_SerialComm::MyPID
int MyPID() const
Epetra_Vector.h
Epetra_CrsMatrix.h
Epetra_ConfigDefs.h
EpetraExt_Version.h
Generated by
1.8.14