From: kanschat <kanschat@0785d39b-7218-0410-832d-ea1e28bc413d>
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];
 }