From 10961f823fe3f06db288b75b407305538635bc13 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 4 Nov 2011 17:26:16 +0000 Subject: [PATCH] *** empty log message *** --- mlprec/mld_daggrmat_minnrg_asb.F90 | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/mlprec/mld_daggrmat_minnrg_asb.F90 b/mlprec/mld_daggrmat_minnrg_asb.F90 index 2d1d6d35..be5094e2 100644 --- a/mlprec/mld_daggrmat_minnrg_asb.F90 +++ b/mlprec/mld_daggrmat_minnrg_asb.F90 @@ -221,10 +221,16 @@ subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info) end do call acoo%set_nzeros(ncol) call acoo%set_dupl(psb_dupl_add_) + call acoo%set_asb() call ptilde%mv_from(acoo) call ptilde%cscnv(info,type='csr') - if (info == psb_success_) call a%cscnv(am3,info,type='csr',dupl=psb_dupl_add_) - if (info == psb_success_) call a%cscnv(da,info,type='csr',dupl=psb_dupl_add_) + call a%clone(am3,info) + call am3%cscnv(info,type='csr') + call a%clone(da,info) + call da%cscnv(info,type='csr') + +!!$ if (info == psb_success_) call a%cscnv(am3,info,type='csr',dupl=psb_dupl_add_) +!!$ if (info == psb_success_) call a%cscnv(da,info,type='csr',dupl=psb_dupl_add_) if (info /= psb_success_) then call psb_errpush(psb_err_from_subroutine_,name,a_err='spcnv') goto 9999