EpetraExt Package Browser (Single Doxygen Collection)
Development
test
SingletonFilter
test/SingletonFilter/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
//SingletonFilter 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_CrsSingletonFilter_LinearProblem.h
"
58
#include "../epetra_test_err.h"
59
60
int
main
(
int
argc,
char
*argv[]) {
61
62
#ifdef EPETRA_MPI
63
64
// Initialize MPI
65
66
MPI_Init(&argc,&argv);
67
//int size, rank; // Number of MPI processes, My process ID
68
69
//MPI_Comm_size(MPI_COMM_WORLD, &size);
70
//MPI_Comm_rank(MPI_COMM_WORLD, &rank);
71
72
#else
73
74
//int size = 1; // Serial case (not using MPI)
75
//int rank = 0;
76
77
#endif
78
79
bool
verbose =
false
;
80
81
// Check if we should print results to standard out
82
if
(argc>1)
if
(argv[1][0]==
'-'
&& argv[1][1]==
'v'
) verbose =
true
;
83
84
85
#ifdef EPETRA_MPI
86
Epetra_MpiComm Comm(MPI_COMM_WORLD);
87
#else
88
Epetra_SerialComm Comm;
89
#endif
90
if
(!verbose) Comm.SetTracebackMode(0);
// This should shut down any error traceback reporting
91
92
int
MyPID = Comm.MyPID();
93
//int NumProc = Comm.NumProc();
94
95
bool
verbose1 = verbose;
96
97
if
(verbose) verbose = (MyPID==0);
98
99
if
(verbose)
100
cout <<
EpetraExt::EpetraExt_Version
() << endl << endl;
101
102
Comm.Barrier();
103
104
if
(verbose1) cout << Comm << endl << flush;
105
106
Comm.Barrier();
107
108
//int NumMyElements = 10000;
109
//int NumGlobalElements = NumMyElements*NumProc+EPETRA_MIN(NumProc,3);
110
//if (MyPID < 3) NumMyElements++;
111
//int IndexBase = 0;
112
//int ElementSize = 7;
113
//bool DistributedGlobal = (NumGlobalElements>NumMyElements);
114
115
//Epetra_BlockMap * Map;
116
117
cout <<
"NOT IMPLEMENTED YET!!!\n"
;
118
119
#ifdef EPETRA_MPI
120
MPI_Finalize();
121
#endif
122
123
return
0;
124
}
125
main
int main(int argc, char *argv[])
Definition:
test/SingletonFilter/cxx_main.cpp:60
EpetraExt::EpetraExt_Version
std::string EpetraExt_Version()
Definition:
EpetraExt_Version.h:50
EpetraExt_CrsSingletonFilter_LinearProblem.h
EpetraExt_Version.h
Generated by
1.8.14