From 4b2596a54fe6a9a6c64a76b36841727c38e783c6 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 15 Aug 2017 13:06:30 +0100 Subject: [PATCH] Modified printout in pargen test programs. --- test/pargen/psb_d_pde2d.f90 | 1 + test/pargen/psb_d_pde3d.f90 | 1 + test/pargen/psb_s_pde2d.f90 | 1 + test/pargen/psb_s_pde3d.f90 | 1 + 4 files changed, 4 insertions(+) diff --git a/test/pargen/psb_d_pde2d.f90 b/test/pargen/psb_d_pde2d.f90 index c1477c66..f8fe4d8a 100644 --- 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 diff --git a/test/pargen/psb_d_pde3d.f90 b/test/pargen/psb_d_pde3d.f90 index b3700f38..7c74d9f7 100644 --- 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 diff --git a/test/pargen/psb_s_pde2d.f90 b/test/pargen/psb_s_pde2d.f90 index 5b81f114..56a2ffa7 100644 --- 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 diff --git a/test/pargen/psb_s_pde3d.f90 b/test/pargen/psb_s_pde3d.f90 index f769fa73..f1d8e390 100644 --- 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