fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas:test/pargen/ppde90:

Browse Source 
changed end messages.
This commit is contained in:
Salvatore Filippone
2008-01-31 14:30:55 +00:00
parent 3e80688ff6
commit 65c6e28ae8
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde.f90
+5 -5
View File
@@ -190,11 +190,11 @@ program ppde
if (iam == psb_root_) then
write(*,'(" ")')
write(*,'("Time to solve matrix : ",es10.4)')t2
write(*,'("Time per iteration : ",es10.4)')t2/iter
write(*,'("Number of iterations : ",i0)')iter
write(*,'("Convergence indicator on exit : ",es10.4)')err
write(*,'("Info on exit : ",i0)')info
write(*,'("Time to solve matrix : ",es10.4)')t2
write(*,'("Time per iteration : ",es10.4)')t2/iter
write(*,'("Number of iterations : ",i0)')iter
write(*,'("Error estimate on exit : ",es10.4)')err
write(*,'("Info on exit : ",i0)')info
end if
!