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 
opt/psb_d_rsb_mat_mod.F03
 test/newfmt/ppde.f90

Fixed error in output from rsb_getrow. 
Some problems are still there.
This commit is contained in:
Salvatore Filippone
2010-11-29 17:10:46 +00:00
parent a32402db35
commit 744a90981e
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/newfmt/ppde.f90
+1 -1
View File
@@ -146,7 +146,7 @@ program ppde
call psb_barrier(ictxt)
t1 = psb_wtime()
call psb_precbld(a,desc_a,prec,info,mold=aell)
call psb_precbld(a,desc_a,prec,info,mold=arsb)
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_precbld'