From d30d3553ac215e0fea7b62c58744bff191490908 Mon Sep 17 00:00:00 2001 From: heister Date: Mon, 27 May 2013 12:35:42 +0000 Subject: [PATCH] step-50: parellel dataout, use IndexSet for ConstraintMatrix git-svn-id: https://svn.dealii.org/trunk@29641 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/examples/step-50/step-50.cc | 80 ++++++++++++++++++++--------- 1 file changed, 56 insertions(+), 24 deletions(-) diff --git a/deal.II/examples/step-50/step-50.cc b/deal.II/examples/step-50/step-50.cc index e87ffec218..8279cf6e41 100644 --- a/deal.II/examples/step-50/step-50.cc +++ b/deal.II/examples/step-50/step-50.cc @@ -137,6 +137,8 @@ namespace Step50 matrix_t system_matrix; + IndexSet locally_relevant_set; + // We need an additional object for the // hanging nodes constraints. They are // handed to the transfer object in the @@ -332,6 +334,9 @@ namespace Step50 << mg_dof_handler.n_dofs(l); deallog << std::endl; + DoFTools::extract_locally_relevant_dofs (mg_dof_handler, + locally_relevant_set); + //solution.reinit (mg_dof_handler.n_dofs()); //system_rhs.reinit (mg_dof_handler.n_dofs()); @@ -358,15 +363,15 @@ namespace Step50 // correctly into the global linear system // right away, without the need for a later // clean-up stage: - constraints.clear (); - hanging_node_constraints.clear (); + constraints.reinit (locally_relevant_set); + hanging_node_constraints.reinit (locally_relevant_set); DoFTools::make_hanging_node_constraints (mg_dof_handler, hanging_node_constraints); DoFTools::make_hanging_node_constraints (mg_dof_handler, constraints); typename FunctionMap::type dirichlet_boundary; ZeroFunction homogeneous_dirichlet_bc (1); dirichlet_boundary[0] = &homogeneous_dirichlet_bc; - VectorTools::interpolate_boundary_values (static_cast&>(mg_dof_handler), + VectorTools::interpolate_boundary_values (mg_dof_handler, dirichlet_boundary, constraints); constraints.close (); @@ -951,10 +956,7 @@ namespace Step50 Vector estimated_error_per_cell (triangulation.n_active_cells()); TrilinosWrappers::MPI::Vector temp_solution; - IndexSet idx; - DoFTools::extract_locally_relevant_dofs (mg_dof_handler, - idx); - temp_solution.reinit(idx, MPI_COMM_WORLD); + temp_solution.reinit(locally_relevant_set, MPI_COMM_WORLD); temp_solution = solution; KellyErrorEstimator::estimate (static_cast&>(mg_dof_handler), @@ -976,23 +978,57 @@ namespace Step50 DataOut data_out; TrilinosWrappers::MPI::Vector temp_solution; - IndexSet idx; - DoFTools::extract_locally_relevant_dofs (mg_dof_handler, - idx); - temp_solution.reinit(idx, MPI_COMM_WORLD); + temp_solution.reinit(locally_relevant_set, MPI_COMM_WORLD); temp_solution = solution; - data_out.attach_dof_handler (mg_dof_handler); - data_out.add_data_vector (temp_solution, "solution"); - data_out.build_patches (); - std::ostringstream filename; - filename << "solution-" - << cycle - << ".vtk"; + TrilinosWrappers::MPI::Vector temp = solution; + system_matrix.residual(temp,solution,system_rhs); + TrilinosWrappers::MPI::Vector res_ghosted = temp_solution; + res_ghosted = temp; - std::ofstream output (filename.str().c_str()); - data_out.write_vtk (output); + data_out.attach_dof_handler (mg_dof_handler); + data_out.add_data_vector (temp_solution, "solution"); + data_out.add_data_vector (res_ghosted, "res"); + Vector subdomain (triangulation.n_active_cells()); + for (unsigned int i=0; i filenames; + for (unsigned int i=0; i boundary; // triangulation.set_boundary (0, boundary); - triangulation.refine_global (1); } else - triangulation.refine_global (1); - //refine_grid (); deallog << " Number of active cells: " @@ -1065,7 +1098,6 @@ int main (int argc, char *argv[]) using namespace dealii; using namespace Step50; - LaplaceProblem<2> laplace_problem(1); laplace_problem.run (); } catch (std::exception &exc) -- 2.39.5