From 744a90981ed9fded93664dc2fb07dff4947550b2 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 29 Nov 2010 17:10:46 +0000 Subject: [PATCH] psblas3: opt/psb_d_rsb_mat_mod.F03 test/newfmt/ppde.f90 Fixed error in output from rsb_getrow. Some problems are still there. --- opt/psb_d_rsb_mat_mod.F03 | 6 ++++-- test/newfmt/ppde.f90 | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/opt/psb_d_rsb_mat_mod.F03 b/opt/psb_d_rsb_mat_mod.F03 index 0c8f4120..f54e7876 100644 --- a/opt/psb_d_rsb_mat_mod.F03 +++ b/opt/psb_d_rsb_mat_mod.F03 @@ -607,9 +607,11 @@ subroutine psb_d_rsb_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info=d_rsb_to_psb_info(rsb_get_block_sparse(a%rsbmptr,& & val(nzin_+1:),imin,imax,jmin_,jmax_,& & ia(nzin_+1:),ja(nzin_+1:),& - & c_null_ptr,c_null_ptr,nzrsb,c_f_index)) + & c_null_ptr,c_null_ptr,nz,c_f_index)) ! FIXME: unfinished; missing error handling .. - + if (nz /= nzrsb) then + write(0,*) 'Mismatch in output from rsb_getblk: ',nz,nzrsb + end if 9999 continue call psb_erractionrestore(err_act) diff --git a/test/newfmt/ppde.f90 b/test/newfmt/ppde.f90 index 6fd6000c..1f6902ea 100644 --- a/test/newfmt/ppde.f90 +++ b/test/newfmt/ppde.f90 @@ -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'