fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
Fixed message in solution dump on file.
This commit is contained in:
Salvatore Filippone
2009-10-30 13:05:26 +00:00
parent 84ce5afbc0
commit 4e4e779833
5 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/zf_sample.f90
+2 -1
View File
@@ -282,7 +282,8 @@ program zf_sample
write(20,*) 'iterations to convergence: ',iter
write(20,*) 'error estimate (infinity norm) on exit:', &
& ' ||r||/(||a||||x||+||b||) = ',err
write(20,*) 'max residual = ',resmx, resmxp
write(20,'("Residual norm 2 : ",es12.5)')resmx
write(20,'("Residual norm inf : ",es12.5)')resmxp
write(20,'(a8,4(2x,a20))') 'I','X(I)','R(I)','B(I)'
do i=1,m_problem
write(20,998) i,x_col_glob(i),r_col_glob(i),b_col_glob(i)