From: kanschat Date: Mon, 10 May 2010 03:17:55 +0000 (+0000) Subject: postprocess iteration steps X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0c5b11fef9ad737e2fe0323293d098b7b56cb1bb;p=dealii-svn.git postprocess iteration steps git-svn-id: https://svn.dealii.org/trunk@21109 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/examples/step-39/postprocess.pl b/deal.II/examples/step-39/postprocess.pl index c830dc6bbb..5d60b44f60 100644 --- a/deal.II/examples/step-39/postprocess.pl +++ b/deal.II/examples/step-39/postprocess.pl @@ -10,16 +10,17 @@ my $step; # The iteration step in the adaptive loop my @dofs; # The number of degrees of freedom in each step my @error; # The error of the solution my @estimate; # The a posteriori error estimate - +my @steps; # The number of multigrid iteration steps while(<>) { $step = $1 if m/DEAL::Step\s*(\d+)/; $dofs[$step] = $1 if m/DEAL::DoFHandler\s*(\d+)/; $error[$step] = $1 if m/DEAL::Error\s*(\S+)/; $estimate[$step] = $1 if m/DEAL::Estimate\s*(\S+)/; + $steps[$step] = $1 if m/DEAL:\w+::Convergence step\s*(\S+)/; } for (my $i=0;$i<=$step;++$i) { - printf "%-3d\t%-7d\t%g\t%g\n", $i, $dofs[$i], $error[$i], $estimate[$i]; + printf "%-3d\t%-7d\t%g\t%g\t%d\n", $i, $dofs[$i], $error[$i], $estimate[$i], $steps[$i]; }