]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
make PETSc tests use MPI_InitFinalize
authorheister <heister@0785d39b-7218-0410-832d-ea1e28bc413d>
Wed, 27 Mar 2013 03:33:29 +0000 (03:33 +0000)
committerheister <heister@0785d39b-7218-0410-832d-ea1e28bc413d>
Wed, 27 Mar 2013 03:33:29 +0000 (03:33 +0000)
git-svn-id: https://svn.dealii.org/trunk@29053 0785d39b-7218-0410-832d-ea1e28bc413d

133 files changed:
tests/petsc/01.cc
tests/petsc/02.cc
tests/petsc/04.cc
tests/petsc/05.cc
tests/petsc/06.cc
tests/petsc/07.cc
tests/petsc/08.cc
tests/petsc/09.cc
tests/petsc/10.cc
tests/petsc/11.cc
tests/petsc/12.cc
tests/petsc/13.cc
tests/petsc/17.cc
tests/petsc/18.cc
tests/petsc/19.cc
tests/petsc/20.cc
tests/petsc/21.cc
tests/petsc/22.cc
tests/petsc/23.cc
tests/petsc/24.cc
tests/petsc/25.cc
tests/petsc/26.cc
tests/petsc/27.cc
tests/petsc/28.cc
tests/petsc/29.cc
tests/petsc/30.cc
tests/petsc/31.cc
tests/petsc/32.cc
tests/petsc/33.cc
tests/petsc/34.cc
tests/petsc/35.cc
tests/petsc/36.cc
tests/petsc/37.cc
tests/petsc/38.cc
tests/petsc/39.cc
tests/petsc/40.cc
tests/petsc/41.cc
tests/petsc/42.cc
tests/petsc/43.cc
tests/petsc/44.cc
tests/petsc/45.cc
tests/petsc/46.cc
tests/petsc/47.cc
tests/petsc/48.cc
tests/petsc/49.cc
tests/petsc/50.cc
tests/petsc/51.cc
tests/petsc/52.cc
tests/petsc/55.cc
tests/petsc/56.cc
tests/petsc/57.cc
tests/petsc/58.cc
tests/petsc/59.cc
tests/petsc/60.cc
tests/petsc/61.cc
tests/petsc/62.cc
tests/petsc/63.cc
tests/petsc/64.cc
tests/petsc/65.cc
tests/petsc/66.cc
tests/petsc/67.cc
tests/petsc/68.cc
tests/petsc/69.cc
tests/petsc/block_vector_iterator_01.cc
tests/petsc/block_vector_iterator_02.cc
tests/petsc/block_vector_iterator_03.cc
tests/petsc/deal_solver_01.cc
tests/petsc/deal_solver_02.cc
tests/petsc/deal_solver_03.cc
tests/petsc/deal_solver_04.cc
tests/petsc/deal_solver_05.cc
tests/petsc/full_matrix_01.cc
tests/petsc/full_matrix_02.cc
tests/petsc/full_matrix_04.cc
tests/petsc/full_matrix_05.cc
tests/petsc/full_matrix_06.cc
tests/petsc/full_matrix_07.cc
tests/petsc/full_matrix_08.cc
tests/petsc/full_matrix_09.cc
tests/petsc/full_matrix_10.cc
tests/petsc/full_matrix_iterator_01.cc
tests/petsc/full_matrix_vector_01.cc
tests/petsc/full_matrix_vector_02.cc
tests/petsc/full_matrix_vector_03.cc
tests/petsc/full_matrix_vector_04.cc
tests/petsc/full_matrix_vector_05.cc
tests/petsc/full_matrix_vector_06.cc
tests/petsc/full_matrix_vector_07.cc
tests/petsc/parallel_sparse_matrix_01.cc
tests/petsc/slowness_01.cc
tests/petsc/slowness_02.cc
tests/petsc/slowness_03.cc
tests/petsc/slowness_04.cc
tests/petsc/solver_01.cc
tests/petsc/solver_02.cc
tests/petsc/solver_03.cc
tests/petsc/solver_03_mf.cc
tests/petsc/solver_03_precondition_boomeramg.cc
tests/petsc/solver_03_precondition_boomeramg_symmetric.cc
tests/petsc/solver_03_precondition_eisenstat.cc
tests/petsc/solver_03_precondition_icc.cc
tests/petsc/solver_03_precondition_ilu.cc
tests/petsc/solver_03_precondition_lu.cc
tests/petsc/solver_03_precondition_parasails.cc
tests/petsc/solver_03_precondition_sor.cc
tests/petsc/solver_03_precondition_ssor.cc
tests/petsc/solver_04.cc
tests/petsc/solver_05.cc
tests/petsc/solver_06.cc
tests/petsc/solver_07.cc
tests/petsc/solver_08.cc
tests/petsc/solver_09.cc
tests/petsc/solver_10.cc
tests/petsc/solver_11.cc
tests/petsc/solver_12.cc
tests/petsc/solver_13.cc
tests/petsc/sparse_direct_mumps.cc
tests/petsc/sparse_matrix_01.cc
tests/petsc/sparse_matrix_iterator_01.cc
tests/petsc/sparse_matrix_vector_01.cc
tests/petsc/sparse_matrix_vector_02.cc
tests/petsc/sparse_matrix_vector_03.cc
tests/petsc/sparse_matrix_vector_04.cc
tests/petsc/sparse_matrix_vector_05.cc
tests/petsc/sparse_matrix_vector_06.cc
tests/petsc/sparse_matrix_vector_07.cc
tests/petsc/vector_assign_01.cc
tests/petsc/vector_assign_02.cc
tests/petsc/vector_equality_1.cc
tests/petsc/vector_equality_2.cc
tests/petsc/vector_equality_3.cc
tests/petsc/vector_equality_4.cc
tests/petsc/vector_wrap_01.cc

index e3ca8d8fbaa1cc43166f8d348c3cf6b14165eac5..8bcc7d3ed1b7d891e88f648b8201faeefb64e4c9 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 23a9b7d99c1cbd169f729cd595324a1536efb65d..67c711d98f645b9f4061b8be8e445c1d93fce385 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index aa24557a283b304cb24d573440e2d2edc16f3b07..0826d676a180676b15225269208c3c5bf5ccdeba 100644 (file)
@@ -39,12 +39,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 70c898bdc91d07e7e9defd5ba24e58f181ab9057..6db0650dad09478bf2c28d5413043c648b0d7d5a 100644 (file)
@@ -54,12 +54,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 039baa3670f7ad39524e3a7bfe0d48e078185d7a..826e6a0c7debdb58cebe716301f55b918fcd7a35 100644 (file)
@@ -50,12 +50,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 0eeaa30bb299d449a64b5eb78597d2728eb18900..2d7204b0ffed81e9d2cd37d82224d2db95a56ac4 100644 (file)
@@ -50,12 +50,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index bd20907674f2d72763d4e1ed2c031b5e33b6c331..946ae832c9b4ff976fe2affd6e417bcbd647eac6 100644 (file)
@@ -55,12 +55,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index bbf46e3d9676c301c3297ae2e367e811dcab4641..5fb39456a5b06846f9760b4b9c818ecf67c9e706 100644 (file)
@@ -62,12 +62,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 82404cf50ea0fd9e694073f622d89197cad0a2c9..279bf1c00c1caa85babdf3b380ba7409d66db64f 100644 (file)
@@ -62,12 +62,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix m (5,5,3);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 85b84549f847e7d06e863966390c524178b7e9db..3883fe97665262bb54bbe0a8ac89b731f6751b0e 100644 (file)
@@ -44,12 +44,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index d9409f4418e88a08bfe12ebb1ee0ac8d4207f8fa..dfb40077946221ff4224097002a43ad15b313c06 100644 (file)
@@ -57,12 +57,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 567062c650bf205f83d882b2f1370d426cfbfb2b..fccaca59d0d05e20a96b5fa63d5458b1bfcd8d60 100644 (file)
@@ -57,12 +57,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index bd634aaf791d7967ff0cc44b5e0f973035fb5432..990a12af9c9eb5afdcd7b050914f2f6d14c1be9e 100644 (file)
@@ -49,12 +49,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 42bdc8f55cce4f6ecddabf8f9ecc2f44ec59e665..008258de6bef089c43f482e33d89c1c84961bf64 100644 (file)
@@ -50,12 +50,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 2dea1d9ceed5d91f9eeb11f125a0390d5a47c018..f8c82b79645ca1536408f9f61baf7e9eb58eb9ec 100644 (file)
@@ -49,12 +49,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index ae8de2390d3b145c21ccc4341e9609ae4eb045c8..6b1604ecd35b23a0eaa864ef310fd4ac60c920aa 100644 (file)
@@ -58,12 +58,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 5c67ebeffe0f31067c6e22d93e7cba79f1e771f9..bd6a27d0db6d42d95b84e4180ae9d0e7db96c436 100644 (file)
@@ -58,12 +58,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 5bff9b283d557d51cd2fd817d6b581c109aad677..4737abeeda81f82020f5202e036f2433b6a07df6 100644 (file)
@@ -52,13 +52,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 87bae12583b5f9fc581aeff1249525784ec0e0ee..6c680fb3af79f1d7aeb8cf6830c123cd6656b06f 100644 (file)
@@ -59,13 +59,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index c017c7c0964d530f99947b9dae26cbd1c64287a5..468f5cfc00f3ccf495c318c56fed6a3bc027bd9e 100644 (file)
@@ -52,12 +52,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 4137826365c90dfe6706a176142c774df6316064..c226bfea63196b69215c75ca68a037502bccb0c2 100644 (file)
@@ -50,12 +50,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index b15d177562f4bef0102f42979595c037f6caa6b3..7b70ce9358e8ad960ccf31253fda0fc9e66abd55 100644 (file)
@@ -49,12 +49,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 18a1966f3c487f59ea9741d61b40dec35f3760a1..2191e7510e4971d1357819fd114305e5e3bb24e6 100644 (file)
@@ -54,12 +54,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 49b1754aa072222ca0d031516831034b9ef77569..8abcb97b020d573399a46f888b97425c0462f0c4 100644 (file)
@@ -56,12 +56,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 49f41722bcd24a76ab798ab18600401028015077..cbcdf299b6078f8003d12e349b871f83fce387f6 100644 (file)
@@ -41,12 +41,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 717d0170cd6cfeeb0d93edfa57a36b69338dd909..b5bc3c12b34afe4b1d82ac586e34c46346d89e92 100644 (file)
@@ -49,12 +49,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 5f01e1b24bc1603975c406b023d2f21e0860d755..fd93b21ea9a7703a3899fd0dec8a03a97146fb1d 100644 (file)
@@ -51,12 +51,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 3c2cf9feb6307e597def487377642b7a1a81dd7e..a1c67821235e1d17882fe37ceb190229cf1228c9 100644 (file)
@@ -51,12 +51,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 4399844d977f473c42b62929a88d8257d2d56258..43872a11667375c8fc613bac15502e7cf7c40ea9 100644 (file)
@@ -52,12 +52,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 19a882f33336020741002693ebdbb3457960721d..fa2467636cce3682dfce3459c199c0a469bbd0c7 100644 (file)
@@ -52,12 +52,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 8ee90dd268a2a81b0e89a191b4343b946403ed0b..1d06bc7be3a4d407771f9fa7bc40f35555004278 100644 (file)
@@ -68,13 +68,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 42be9144f0edf25c4768b4c3b9f09e8f5a120cbe..8cd28ed8cd4b3e09908756e8a41037dad1f2a013 100644 (file)
@@ -68,13 +68,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 5d704a49da1bf6569f756d3408009f179a67259a..d87a5be431460cd968e9eab8ef2fe200b5f8e547 100644 (file)
@@ -48,12 +48,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 21b697ab941916dd7a2262fd4d0b0dfda1d7e514..17859a3848873908769bc08312392e2b9767f2eb 100644 (file)
@@ -56,13 +56,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 802b5e5e7f0c3b0a6990cf1df272f47ec86e9ac3..edfc23649e6905b3775773fa20c6a4d10a9b8d55 100644 (file)
@@ -56,13 +56,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index d5d6b05ec3bd4711f1e4ff1ae360a4aa89d2a7f6..dccea778f45c68be6dc19539bc1836cdefc9d830 100644 (file)
@@ -60,14 +60,14 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         PETScWrappers::Vector x (100);
         test (v,w,x);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 359b98163ab59381140a0d2c994f13362776d4af..b3e0ff93fb8da4126ce661bdcf4d58e0ab5b9dfa 100644 (file)
@@ -56,13 +56,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 7afa81c372b976a23ae4cfa9e05e0b7a854e62ee..fd5e3251dde5226b309b19e7bde85bee48072e39 100644 (file)
@@ -56,13 +56,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index c82b31e916787d1d59e4b2d7a0842f293a21c200..8a63a66d9707d310cce0a2c7dd046ea0dfce47ce 100644 (file)
@@ -60,14 +60,14 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         PETScWrappers::Vector x (100);
         test (v,w,x);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 3a988dc125294288209561ac6cb76c79207fee1f..09c65d368bcd0503790e53e460594fe0d5822bb6 100644 (file)
@@ -64,7 +64,7 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
@@ -72,7 +72,7 @@ int main (int argc,char **argv)
         PETScWrappers::Vector y (100);
         test (v,w,x,y);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index a3a7847c9e020ce6b485f235b664f20994082d14..a4cbba9ac85e56b52c373e8886d3576f2ee78fae 100644 (file)
@@ -56,13 +56,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 1344204d70087dd84952a94d8d52daadb1ffd456..c0eea39bb01d98175144be9d24d0fad01fc30385 100644 (file)
@@ -56,13 +56,13 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 49ccd8164ca389b7652f7a334e236efefc77f827..288f22206f7677a4563ba5d78fb29a2bde9d018f 100644 (file)
@@ -60,14 +60,14 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         PETScWrappers::Vector x (100);
         test (v,w,x);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 3f503b4b8bbb494c2b7a3393b8db477d3efb6bfb..364f0c3864a02e521906b264dcbf71a8d1d57c9a 100644 (file)
@@ -62,14 +62,14 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         PETScWrappers::Vector x (100);
         test (v,w,x);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 371417e81bd444606c24b52ef06f5f44a78af998..333c79cf9a4c533ebc6d27aa7785ec0bc9ce106d 100644 (file)
@@ -53,12 +53,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 64be5a00aa4af147c39f8764afb0c5019b095c2f..5989517f1314de361a3105b99729425654e838e4 100644 (file)
@@ -69,12 +69,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index b1b782edc40322d4b1c2363f4bca0036d79faabb..cddd93fcb94f9d9eb1a1a08d24a1b0f033ef73f3 100644 (file)
@@ -54,12 +54,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index dd3e5235ab5bb703e67e0740f5f1a8e919d58bfe..d307922191088b929bc0346bf0a0b5d7d5e655a4 100644 (file)
@@ -60,14 +60,14 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         std::vector<unsigned int> row_lengths (5, 3U);
         row_lengths.back() = 2;
         PETScWrappers::SparseMatrix m (5,5,row_lengths);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index c56c6691310a99b3d2464afadcd072622fae3446..68e016fcfaa29aa261fca57d96c457d6c6151c82 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 637d924fe343c5b6e4c8a078bb2402438e782f8b..ea85ee43d8ee951da7474a93c431e450e5731262 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 7abaed544e933c7bd492e2caa33399062e316543..1d51de2c9d3224c1882fd3f1f4292fb1893393c0 100644 (file)
@@ -57,12 +57,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 02368c9a32e56ca14c230f6dd1c910b7015e7856..051c5557a416ef318e5c66899bc83892335dee45 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 488d20c2e4d6b7f628ba8ee9304e55a0462fb8b0..795ee80be58d7d76bdf74741164e9d216dc08560 100644 (file)
@@ -62,12 +62,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 517cad9b95b091406af57c091a6cfc7535822002..1207af20933567ec2d1116fd8a6881fbe908836a 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 1a3d2a603c4e8a63947b268d5cbd928228dec6dc..aff76844a7fcc06be00ce197464db663766156f9 100644 (file)
@@ -62,12 +62,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index fc233e2432a8ffe9d8ddf15126183f195e1ee065..f7e55ef07ca74a988b559ee4059ba99f01410f27 100644 (file)
@@ -47,12 +47,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix v (100,100,5);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 7b7ce937bd5d00aa58ebc4a7fdb6f9dd3ab9522a..6e03baee9fdf6242da5a0a40e4b3d2b52af5edd5 100644 (file)
@@ -45,12 +45,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix v (100,100,5);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 47b906f9e85e8dacbf0ba16949cc2783028909c2..46d6ad8c38504e55f856a846e08a8fce9f3848b6 100644 (file)
@@ -50,7 +50,7 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
        const unsigned int n_dofs=420;
                                         // check
@@ -71,7 +71,7 @@ int main (int argc,char **argv)
          v2 (mpi_communicator, n_dofs, n_dofs, n_local_dofs, n_local_dofs, 5);
         test (v2);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index a3545c0d973d0d168605dca979f29b2bb036d173..58265ebbc63e3564c01d1ca5291c65758e0f74d1 100644 (file)
@@ -44,11 +44,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 4094dbec7bb74c318124e8a6bcd30052236f7cf7..660d22bde00c185a1b2b34966f4002a805986724 100644 (file)
@@ -101,12 +101,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix v (14,14,3);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 988b5448d075d226e95314739a773d9310242c49..fc30adc9def734b4433e43ef17a1bacbd776fdb9 100644 (file)
@@ -107,12 +107,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix v (14,14,3);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index a86620384e47e2df4a487baae7fe434bb3aac196..17547b9d060b9e85afeedfd096c362c0fb2e1b30 100644 (file)
@@ -105,12 +105,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix v (14,14,3);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 8d34de162cd9819fe35e03e6049fec6998d9f9ff..9012db91b340dd017905ebc7a36ba672c8c50d78 100644 (file)
@@ -111,12 +111,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::SparseMatrix v (14,14,3);
         test (v);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index ac75cced63d99153d2bbd9dc1c997804624f0555..c36c4a43058c8029ff148b2fa7776eeef1d113d9 100644 (file)
@@ -84,11 +84,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 3a5ae35b05d2b630e586a9f7ad6c5d58a46bc41c..30ac77d0ebd3d06c784a179ed8668ad83d3ef3df 100644 (file)
@@ -78,11 +78,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 8778f7f1a2c06e9ee79b882e42983f8fc393cc77..f52a184e2938f4849be8af77e3a0a6d2af91efe4 100644 (file)
@@ -329,11 +329,11 @@ int main (int argc,char **argv)
   
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &e)
     {
index 2a54980520ca071312fc947da6a1d2f13a60b814..f3fcf6af250bac7ee678a41932c47c9113b51b2d 100644 (file)
@@ -65,7 +65,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -92,6 +92,6 @@ int main(int argc, char **argv)
     check_solve (solver, A,u,f, preconditioner);
   }
   GrowingVectorMemory<PETScWrappers::Vector>::release_unused_memory ();
-  PetscFinalize ();
+  
 }
 
index fbcf723fb7e32110015152508ffae7c9a27c669d..664815a62ee96d7796687c0675ea9a5ab2d61e67 100644 (file)
@@ -67,7 +67,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -94,6 +94,6 @@ int main(int argc, char **argv)
     check_solve (solver, A,u,f, preconditioner);
   }
   GrowingVectorMemory<PETScWrappers::Vector>::release_unused_memory ();
-  PetscFinalize ();
+  
 }
 
index 8b671a48dcf33d77f6df83ac54ab8f9f36392353..c9eba8f35bd044609f3836441f7b7fef9cdb097c 100644 (file)
@@ -67,7 +67,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -94,6 +94,6 @@ int main(int argc, char **argv)
     check_solve (solver, A,u,f, preconditioner);
   }
   GrowingVectorMemory<PETScWrappers::Vector>::release_unused_memory ();
-  PetscFinalize ();
+  
 }
 
index 43dd942f21b0fdf10a6a0cbcf17e628e5d0c15d8..1c8bd61130209df0cc602aa3a647a8ade73ed3fb 100644 (file)
@@ -66,7 +66,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -93,6 +93,6 @@ int main(int argc, char **argv)
     check_solve (solver, A,u,f, preconditioner);
   }
   GrowingVectorMemory<PETScWrappers::Vector>::release_unused_memory ();
-  PetscFinalize ();
+  
 }
 
index ff8e66ca325d72de4d6a7edc028aa8b74fa90557..b4a4fc0cb22eca5ceb3778e3f0594ba0e87531ce 100644 (file)
@@ -65,7 +65,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -92,6 +92,6 @@ int main(int argc, char **argv)
     check_solve (solver, A,u,f, preconditioner);
   }
   GrowingVectorMemory<PETScWrappers::Vector>::release_unused_memory ();
-  PetscFinalize ();
+  
 }
 
index 25805bc77e3f8405f9ceb956b08f50184115116f..714e1b1d8005b1fd4631960b2a2bb76bcabdc05c 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 16b8737823bc9937cb0a45e029a4293cf8282f16..27f908b711026e2db55266608ea814ff5ea5484c 100644 (file)
@@ -59,12 +59,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index faca957832208c342976c23091575b9aaa94081e..3e9dc4a57cc6a4dcc4f2b42615f2077da90dade0 100644 (file)
@@ -39,12 +39,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 783dd4f6acbb5c24939749b93caa315ba43c2436..93b5485f0c9822af701d267ecb1ba7fbd1d45380 100644 (file)
@@ -55,12 +55,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 743ca06270c664a27f5b8cc17dcff3e0cf4f75ec..bb13f07bc9798363b31c99f7b47838c0fb4a4a9d 100644 (file)
@@ -50,12 +50,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index a2aba52e533d899afb5e9d88535247e62270ab4e..7e12375dcbf70afe007df2f303a89db779765082 100644 (file)
@@ -50,12 +50,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 79496d40a2df34afd686f9a89a0b73bea7323a50..9e164150eb91ececf7bb2bb8a4c66262562a6408 100644 (file)
@@ -55,12 +55,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 9dd58d365118e968d1b236387fa8a81fee112794..fdce56f8186c7dc66e9e0a6d713e342c5aedac92 100644 (file)
@@ -62,12 +62,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 76b444bcb2d5601ca2f3d861b04b6ac46c28c267..c60fa17b8a4989881c7d534d92bb4e17eb0d6874 100644 (file)
@@ -62,12 +62,12 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::FullMatrix m (5,5);
         test (m);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 7d5271db71f21f209a5f869ac80475ddcc32a3ee..7a4fc7784fe951c27438e278b3841047582405c3 100644 (file)
@@ -48,11 +48,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 61e8c9830df0b806ffc20bc63f8f18d09a0918af..0d1c727ad0d60e595722dfdd06f9a254c0caf32a 100644 (file)
@@ -65,13 +65,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index b26242113b0509b045a5b6be18c1f8a7261fa264..c79319435419cad9d51a5afa1fe5fd17f7454551 100644 (file)
@@ -65,13 +65,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index ecef104ac1c09549f21a42bc93a316824e1d69a0..bdeee37095af5525f39775b77cb8a9339c6f9465 100644 (file)
@@ -68,13 +68,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index e05e641bf70542bc47720286bd5575ffcdd14b7e..e3d56facff875974d1e1131c31b0a5572988e456 100644 (file)
@@ -68,13 +68,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index cdb39b3963e9633aae715439cc94af25e97eae3c..27258c05e358f8e76203ca5ad249ba1ca7b64ad1 100644 (file)
@@ -71,13 +71,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 792b61d97da42c34b99a125c600547fd4374e2ab..ec0caee88094087e3888c22094c9b2fb334e9d24 100644 (file)
@@ -63,12 +63,12 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (30);
         test (v);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 28ef15d78ca200807d2781e977549a3f0a87a867..5b0668b6edcc2da6ca833edd356ed31a62059923 100644 (file)
@@ -73,14 +73,14 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         PETScWrappers::Vector x (100);
         test (v,w,x);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 3b571c1dae596a69d2fb2eeb94818af1d6b610c3..bc9a4c91c37426d8777055d7fabb814d8e067c46 100644 (file)
@@ -122,9 +122,9 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       test ();
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 0c69d4331c8959f61479993507ba6ad995d7c364..c454cd0acd7bb037e21aad70a425089b33ee3f2c 100644 (file)
@@ -112,11 +112,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 10a6ca86113228b324bd57a14ae2504461bd78fa..827d0ca60b814cddead40a32e91e7b0bb87b9518 100644 (file)
@@ -83,11 +83,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 34c93c96e9ad5921807b53bf3602d9ee37d93dde..490fc1959288758234263ea1fd0b60297fd3b439 100644 (file)
@@ -86,11 +86,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 238f502df045e7c6faf966e0f12885382053dcaa..7db3ddeecff9e5df4f9fca16c68dc6f42dd1c975 100644 (file)
@@ -117,11 +117,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index d2d04db0b42842352fc01761d2a2134974ad0ce2..bea19c269bbf6636b9fc94b2df892094144e84e1 100644 (file)
@@ -62,7 +62,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -87,6 +87,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 389d8221666a2965c5ad2f600d69683d631a46de..c2a0ef75c1720cdbf26fd21f6cc1784a47cc2098 100644 (file)
@@ -61,7 +61,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {  
     SolverControl control(100, 1.e-3);
 
@@ -86,6 +86,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 81a2427d56059702d6e97cacbe0255f42b7cd478..9b3eda386d7b4b67188aed13457621d8267b2bc3 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {  
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 4037e28989fde59a3e55b847badcf4a9141a728a..e44524c31a008a82bc8216589dc87d67ff715df3 100644 (file)
@@ -61,7 +61,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {  
     SolverControl control(100, 1.e-3);
 
@@ -83,6 +83,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionNone preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 65d9d1f07c366ba5789c2e88810b7b5abeaf12b3..bab069141f3aee8ef419a75fe36574094461e728 100644 (file)
@@ -61,7 +61,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -86,6 +86,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionBoomerAMG preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 9b9441d6dcae59a8982363e80216a08a67335ea5..2d2bb5a68f6b1b04d91e88f651f38a251ccdb9b3 100644 (file)
@@ -62,7 +62,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -87,6 +87,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionBoomerAMG preconditioner(A, true);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 087b43ca2eb702a60542dd5650a73d4927c13b7a..a643bfdccd7f5742f91b7b9bb20f099108076714 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionEisenstat preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 1fe7554a302793bc95f1d45c301522c21a04d18b..1a9a561b7942fd5db5299524d386315f14f0bb48 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionICC preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 8912039cd5a239ecb740a6f73cba488b5c4c88b4..960eeee3c42d62009a9a3189c651ec482e605814 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionILU preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index bbcd02309c5209de8dcb984b2aa5467cb3b22c9d..42e2939601f23d4e92bf73773e00b1947f239619 100644 (file)
@@ -67,7 +67,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -92,6 +92,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionLU preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 27db1117a124bade403db6adcbde82a7e1987760..42ce6c48edb2a770a1a97b0198c3b9f5bb1d0c90 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionParaSails preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 3bdc29fa41eaa3078d9b6688c19e2c4d7a323185..3f5d7aa2e14fe52d62ae32d42382ab3699073f11 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionSOR preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 450f7a6e2deda1c88e0c6522ca8171c75975eccc..1bbaa3a0bdc11398cb5e041678e25f9b0038f762 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionSSOR preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 8a5f80ebd3db25f511f9249d02794be14cc62a98..5940c14ce7609644fc0738a8225bcf8987cb2336 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {  
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 6db5bbfd2ef2bb171e90f961525f3a8634803ae1..3367ea4ec5ad5722dcaf20c18c88b462426c7d1e 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {  
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 67143da3efba306723b33e3e8f2658616da8bb7c..32460c80475d1d375db24fc58373fb4ff4169e29 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index f43db56b05f4418c359ce8fe842604141cce807d..e057f85128572ddf801bafcb314f767f3a8df46b 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 7552cb41ef3cc8f37d636eba0f476567264dda23..96df650e0e28e4bd001ba72ce325d012f5dcb427 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index dc7a33497ccc5bb2daddae2ec9d6106c611063a8..3d111c83704ecdc0d0892017c5b069e7bcaf6c7c 100644 (file)
@@ -64,7 +64,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -89,6 +89,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 91f9b6f95f14e84809641fcff49080dd31e37075..52d79c0fd20e528f2f425a3fe629a7e48313e96e 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -85,6 +85,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 549cc7e655a45b5162e41d81cc128fc3edad7cac..a93f1e3d26c5e9a0f5f97f19b0c34885e7323981 100644 (file)
@@ -61,7 +61,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -86,6 +86,6 @@ int main(int argc, char **argv)
     PETScWrappers::PreconditionJacobi preconditioner(A);
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index 8a265095c25a71af55cda498b662a475eba76d14..55a9e1f0621a6fbb5c5c459b13f656a0d6362608 100644 (file)
@@ -53,7 +53,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -82,6 +82,6 @@ int main(int argc, char **argv)
                                     //run twice because this errored out at some point
     check_solve (solver, A,u,f, preconditioner);
   }
-  PetscFinalize ();
+  
 }
 
index b1c4a5f7f822d1f0fc4e0ec6fcc05dca47d51a32..ce7acda6f8d803a8338b17cbff65ab50d010b875 100644 (file)
@@ -50,7 +50,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
   
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     SolverControl control(100, 1.e-3);
 
@@ -91,6 +91,6 @@ int main(int argc, char **argv)
     preconditioner.vmult(t, u);
     deallog << t.l2_norm() << std::endl;    
   }
-  PetscFinalize ();
+  
 }
 
index c368f0eb959acf8b8f4122443f6ab459bc3da8fa..53abdfa485528fcc528c6f60354a0e9697b64a0e 100644 (file)
@@ -60,7 +60,7 @@ int main(int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   {
     const unsigned int size = 32;
     unsigned int dim = (size-1)*(size-1);
@@ -89,6 +89,6 @@ int main(int argc, char **argv)
     deallog << "residual = " << A.residual (tmp, u, f)
            << std::endl;
   }
-  PetscFinalize ();
+  
 }
 
index d91d62ef80854169b0bbbc0e21bfd4c3a4f1ef60..1220d69fccb6578b330ddceca5b4c97f63043ae2 100644 (file)
@@ -73,7 +73,7 @@ int main (int argc, char **argv)
   deallog.depth_console(0);
   deallog.threshold_double(1.e-10);
 
-  PetscInitialize(&argc,&argv,0,0);
+  Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
   test ();
-  PetscFinalize ();
+  
 }
index b6c8c2adefa966105ac056b5c4fa82250426809a..43499ebf2b90b2bed95448e6f9dce1bd0c800727 100644 (file)
@@ -48,11 +48,11 @@ int main (int argc,char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         test ();
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 74ea05ffa2e840aa827f9b27f4aca40658b026e2..f5511b530da4d54646a85769e7009ecd8141ff5a 100644 (file)
@@ -65,13 +65,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 5b3fbb87be6694d94b4d7b486c555d82fe31c157..da4c39509a21136921819da0599ca35c315e6e44 100644 (file)
@@ -65,13 +65,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 414256ab76675ba2eaabcc08a88082d332a102b9..ee9690edbbb0c7b6217f286f637d1f386e706199 100644 (file)
@@ -68,13 +68,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index f0ff42478434e65809babe9e12e228c32df34e71..d85a372f04f79384e37be5846979854ce4c185f2 100644 (file)
@@ -68,13 +68,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index a91b332a428d23b1b7a8c33efc5afe719f8b06b0..084367fb5b3689d6728db07adedf8b0641dbf240 100644 (file)
@@ -71,13 +71,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 83a15c7e2a49bc573f8d28dbc91f3b3d9049eb2c..768daa3893f5fc6c29f9aa6265e4847aa89a6660 100644 (file)
@@ -63,12 +63,12 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (30);
         test (v);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 74158129f482f22457dabf458f090438b1d34430..7f759ec6d6bce8b4b3763d016050f9f1e250211b 100644 (file)
@@ -73,14 +73,14 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         PETScWrappers::Vector x (100);
         test (v,w,x);
       }
-      PetscFinalize ();
+      
     }
   catch (std::exception &exc)
     {
index 6155071372d4acd3b56280eb9cef6bf149bcac18..5932051d0cd7f51f1a0aa3f1535d53fab6079a94 100644 (file)
@@ -55,13 +55,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 03778696dc1821a5758db624d42c55995857128b..f03d34e1904380b8e4c14f5105c93fb8ba7b74c4 100644 (file)
@@ -54,13 +54,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index dc4159c9dd8f0c01a0f647dbeb6632b8ac9def22..fb4b6b8198a50f52e4c215537a66c2ac704a472c 100644 (file)
@@ -50,13 +50,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index dd180be9242e72df9da025d5c651e2a912843475..d9549b89d7bc39fbc5aed51ef72af5bd90b04f9e 100644 (file)
@@ -52,13 +52,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 1419c68c641896e017dc2521a962330fc03b8fc5..3289cc2fc34d20a11010591c044c1f8b2219af4d 100644 (file)
@@ -50,13 +50,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index ce9b26c533f290acbd57724fda8afc8220d1526d..180e2f136e94ce45177a4c9165c4f9b7279e4d39 100644 (file)
@@ -52,13 +52,13 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       {
         PETScWrappers::Vector v (100);
         PETScWrappers::Vector w (100);
         test (v,w);
       }
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {
index 245a69d9d8223cb8f76253a41916f304969e43fb..07a54d4347d6f3a01bb5cf5058610c46ad3e9779 100644 (file)
@@ -52,7 +52,7 @@ int main (int argc, char **argv)
 
   try
     {
-      PetscInitialize(&argc,&argv,0,0);
+      Utilities::MPI::MPI_InitFinalize mpi_initialization(argc, argv, 1);
       Vec vpetsc;
       int ierr = VecCreateSeq (PETSC_COMM_SELF, 100, &vpetsc);
       AssertThrow (ierr == 0, ExcPETScError(ierr));
@@ -70,7 +70,7 @@ int main (int argc, char **argv)
 
       AssertThrow (ierr == 0, ExcPETScError(ierr));
 
-      PetscFinalize();
+      
     }
   catch (std::exception &exc)
     {

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.