]> https://gitweb.dealii.org/ - dealii.git/commitdiff
Add a test.
authorWolfgang Bangerth <bangerth@colostate.edu>
Mon, 25 Sep 2017 21:51:47 +0000 (15:51 -0600)
committerWolfgang Bangerth <bangerth@colostate.edu>
Mon, 25 Sep 2017 21:51:47 +0000 (15:51 -0600)
tests/mpi/hp_unify_dof_indices_01.cc [new file with mode: 0644]
tests/mpi/hp_unify_dof_indices_01.mpirun=1.output [new file with mode: 0644]
tests/mpi/hp_unify_dof_indices_01.mpirun=2.output [new file with mode: 0644]

diff --git a/tests/mpi/hp_unify_dof_indices_01.cc b/tests/mpi/hp_unify_dof_indices_01.cc
new file mode 100644 (file)
index 0000000..c1b402d
--- /dev/null
@@ -0,0 +1,111 @@
+// ---------------------------------------------------------------------
+//
+// Copyright (C) 2017 by the deal.II authors
+//
+// This file is part of the deal.II library.
+//
+// The deal.II library is free software; you can use it, redistribute
+// it, and/or modify it under the terms of the GNU Lesser General
+// Public License as published by the Free Software Foundation; either
+// version 2.1 of the License, or (at your option) any later version.
+// The full text of the license can be found in the file LICENSE at
+// the top level of the deal.II distribution.
+//
+// ---------------------------------------------------------------------
+
+
+
+// have a 2x1 coarse mesh (or 2x1x1) and verify DoF indices in the hp
+// case with an FECollection that contains multiple copies of the same
+// FE_Q(2) element. in the sequential case, the hp code will unify DoF
+// indices on boundaries between locally owned subdomains, but in
+// parallel, we don't do that
+
+
+#include "../tests.h"
+#include <deal.II/base/tensor.h>
+#include <deal.II/distributed/tria.h>
+#include <deal.II/grid/tria_accessor.h>
+#include <deal.II/grid/tria_iterator.h>
+#include <deal.II/grid/grid_generator.h>
+#include <deal.II/grid/intergrid_map.h>
+#include <deal.II/base/utilities.h>
+#include <deal.II/hp/dof_handler.h>
+#include <deal.II/hp/fe_collection.h>
+#include <deal.II/fe/fe_q.h>
+
+#include <numeric>
+
+
+template <int dim>
+void test()
+{
+  parallel::distributed::Triangulation<dim>
+  triangulation (MPI_COMM_WORLD,
+                 Triangulation<dim>::limit_level_difference_at_vertices);
+
+  std::vector<unsigned int> reps(dim, 1U);
+  reps[0] = 2;
+  Point<dim> top_right;
+  for (unsigned int d=0; d<dim; ++d)
+    top_right[d] = (d==0 ? 2 : 1);
+  GridGenerator::subdivided_hyper_rectangle(triangulation,
+                                            reps,
+                                            Point<dim>(),
+                                            top_right);
+  Assert (triangulation.n_global_active_cells() == 2,
+          ExcInternalError());
+  Assert (triangulation.n_active_cells() == 2,
+          ExcInternalError());  
+  
+  hp::FECollection<dim> fe;
+  fe.push_back (FE_Q<dim>(2));
+  fe.push_back (FE_Q<dim>(2));
+
+  hp::DoFHandler<dim> dof_handler (triangulation);
+  if (dof_handler.begin_active()->is_locally_owned())
+    dof_handler.begin_active()->set_active_fe_index(0);
+  if ((++dof_handler.begin_active())->is_locally_owned())
+    (++dof_handler.begin_active())->set_active_fe_index(1);
+  dof_handler.distribute_dofs (fe);
+
+  deallog << "Processor: " << Utilities::MPI::this_mpi_process (MPI_COMM_WORLD)
+          << std::endl;
+  for (auto cell : dof_handler.active_cell_iterators())
+    {
+      deallog << "  Cell: " << cell << std::endl;
+
+      std::vector<types::global_dof_index> dof_indices (cell->get_fe().dofs_per_cell);
+      cell->get_dof_indices (dof_indices);
+      deallog << "    ";
+      for (auto i : dof_indices)
+        deallog << i << ' ';
+      deallog << std::endl;
+    }    
+}
+
+
+int main(int argc, char *argv[])
+{
+  Utilities::MPI::MPI_InitFinalize mpi_initialization (argc, argv, 1);
+
+  unsigned int myid = Utilities::MPI::this_mpi_process (MPI_COMM_WORLD);
+  if (myid == 0)
+    {
+      initlog();
+
+      deallog.push("2d");
+      test<2>();
+      deallog.pop();
+
+      deallog.push("3d");
+      test<3>();
+      deallog.pop();
+    }
+  else
+    {
+      test<2>();
+      test<3>();
+    }
+
+}
diff --git a/tests/mpi/hp_unify_dof_indices_01.mpirun=1.output b/tests/mpi/hp_unify_dof_indices_01.mpirun=1.output
new file mode 100644 (file)
index 0000000..8de3c8f
--- /dev/null
@@ -0,0 +1,11 @@
+
+DEAL:2d::Processor: 0
+DEAL:2d::  Cell: 0.0
+DEAL:2d::    0 1 2 3 4 5 6 7 8 
+DEAL:2d::  Cell: 0.1
+DEAL:2d::    1 9 3 10 5 11 12 13 14 
+DEAL:3d::Processor: 0
+DEAL:3d::  Cell: 0.0
+DEAL:3d::    0 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 
+DEAL:3d::  Cell: 0.1
+DEAL:3d::    1 27 3 28 5 29 7 30 9 31 32 33 13 34 35 36 17 37 19 38 21 39 40 41 42 43 44 
diff --git a/tests/mpi/hp_unify_dof_indices_01.mpirun=2.output b/tests/mpi/hp_unify_dof_indices_01.mpirun=2.output
new file mode 100644 (file)
index 0000000..621d745
--- /dev/null
@@ -0,0 +1,11 @@
+
+DEAL:2d::Processor: 0
+DEAL:2d::  Cell: 0.0
+DEAL:2d::    0 1 2 3 4 5 6 7 8 
+DEAL:2d::  Cell: 0.1
+DEAL:2d::    9 10 11 12 13 14 15 16 17 
+DEAL:3d::Processor: 0
+DEAL:3d::  Cell: 0.0
+DEAL:3d::    0 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 
+DEAL:3d::  Cell: 0.1
+DEAL:3d::    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 

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.