fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Modified printout in pargen test programs.

Browse Source
pull/1/head
Salvatore Filippone 7 years ago
parent 8dabf63cb1
commit 4b2596a54f
4 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File

1
test/pargen/psb_d_pde2d.f90
Unescape Escape View File

@ -236,6 +236,7 @@ program psb_d_pde2d
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'(" ")') 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 to solve system : ",es12.5)')t2
write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter
write(psb_out_unit,'("Number of iterations : ",i0)')iter write(psb_out_unit,'("Number of iterations : ",i0)')iter

1
test/pargen/psb_d_pde3d.f90
Unescape Escape View File

@ -249,6 +249,7 @@ program psb_d_pde3d
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'(" ")') 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 to solve system : ",es12.5)')t2
write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter
write(psb_out_unit,'("Number of iterations : ",i0)')iter write(psb_out_unit,'("Number of iterations : ",i0)')iter

1
test/pargen/psb_s_pde2d.f90
Unescape Escape View File

@ -235,6 +235,7 @@ program psb_s_pde2d
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'(" ")') 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 to solve system : ",es12.5)')t2
write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter
write(psb_out_unit,'("Number of iterations : ",i0)')iter write(psb_out_unit,'("Number of iterations : ",i0)')iter

1
test/pargen/psb_s_pde3d.f90
Unescape Escape View File

@ -249,6 +249,7 @@ program psb_s_pde3d
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,'(" ")') 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 to solve system : ",es12.5)')t2
write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter write(psb_out_unit,'("Time per iteration : ",es12.5)')t2/iter
write(psb_out_unit,'("Number of iterations : ",i0)')iter write(psb_out_unit,'("Number of iterations : ",i0)')iter

Write Preview
Loading…
Cancel
Save