47 #include "Epetra_Time.h" 49 #include "Epetra_MpiComm.h" 53 #include "Epetra_SerialComm.h" 54 #include "Epetra_Map.h" 55 #include "Epetra_CrsGraph.h" 57 #include "../epetra_test_err.h" 60 int main(
int argc,
char *argv[]) {
62 int i, ierr=0, returnierr=0;
68 MPI_Init(&argc,&argv);
71 MPI_Comm_size(MPI_COMM_WORLD, &size);
72 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
84 if (argc>1)
if (argv[1][0]==
'-' && argv[1][1]==
'v') verbose =
true;
88 Epetra_MpiComm Comm(MPI_COMM_WORLD);
90 Epetra_SerialComm Comm;
92 if (!verbose) Comm.SetTracebackMode(0);
94 int MyPID = Comm.MyPID();
95 int NumProc = Comm.NumProc();
99 cout << Comm << endl << flush;
103 bool verbose1 = verbose;
105 if (verbose) verbose = (MyPID==0);
107 int NumMyElements = 3;
108 int NumGlobalElements = NumMyElements;
111 cout <<
"MyPID: " << MyPID <<
", NumMyElements: " << NumMyElements << endl;
113 Epetra_Map Map( NumMyElements, 0, Comm );
116 Epetra_CrsGraph Graph(
Copy, Map, 1 );
119 Graph.InsertGlobalIndices( 0, 1, &index );
121 Graph.InsertGlobalIndices( 1, 1, &index );
123 Graph.InsertGlobalIndices( 2, 1, &index );
125 Graph.FillComplete();
126 cout << Graph << endl;
129 Epetra_CrsGraph & NewGraph = BTFTransform( Graph );
131 cout << NewGraph << endl;
std::string EpetraExt_Version()
int main(int argc, char *argv[])
Block Triangular Factorization (Reordering) of Epetra_CrsGraph.