Modified printout in pargen test programs.

7 years ago · 4b2596a54f
parent 8dabf63cb1
commit 4b2596a54f
4 changed files with 4 additions and 0 deletions
--- a/test/pargen/psb_d_pde2d.f90
+++ b/test/pargen/psb_d_pde2d.f90
@ -236,6 +236,7 @@ program psb_d_pde2d

  if (iam == psb_root_) then
    write(psb_out_unit,'(" ")')
+    write(psb_out_unit,'("Number of processes           : ",i0)')np
    write(psb_out_unit,'("Time to solve system          : ",es12.5)')t2
    write(psb_out_unit,'("Time per iteration            : ",es12.5)')t2/iter
    write(psb_out_unit,'("Number of iterations          : ",i0)')iter
--- a/test/pargen/psb_d_pde3d.f90
+++ b/test/pargen/psb_d_pde3d.f90
@ -249,6 +249,7 @@ program psb_d_pde3d

  if (iam == psb_root_) then
    write(psb_out_unit,'(" ")')
+    write(psb_out_unit,'("Number of processes           : ",i0)')np
    write(psb_out_unit,'("Time to solve system          : ",es12.5)')t2
    write(psb_out_unit,'("Time per iteration            : ",es12.5)')t2/iter
    write(psb_out_unit,'("Number of iterations          : ",i0)')iter
--- a/test/pargen/psb_s_pde2d.f90
+++ b/test/pargen/psb_s_pde2d.f90
@ -235,6 +235,7 @@ program psb_s_pde2d

  if (iam == psb_root_) then
    write(psb_out_unit,'(" ")')
+    write(psb_out_unit,'("Number of processes           : ",i0)')np
    write(psb_out_unit,'("Time to solve system          : ",es12.5)')t2
    write(psb_out_unit,'("Time per iteration            : ",es12.5)')t2/iter
    write(psb_out_unit,'("Number of iterations          : ",i0)')iter
--- a/test/pargen/psb_s_pde3d.f90
+++ b/test/pargen/psb_s_pde3d.f90
@ -249,6 +249,7 @@ program psb_s_pde3d

  if (iam == psb_root_) then
    write(psb_out_unit,'(" ")')
+    write(psb_out_unit,'("Number of processes           : ",i0)')np
    write(psb_out_unit,'("Time to solve system          : ",es12.5)')t2
    write(psb_out_unit,'("Time per iteration            : ",es12.5)')t2/iter
    write(psb_out_unit,'("Number of iterations          : ",i0)')iter