From dcd48aad7e85697dd0e3d1fac54f17b17e80c9df Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 2 Nov 2011 17:19:24 +0000 Subject: [PATCH] *** empty log message *** --- mlprec/mld_daggrmat_minnrg_asb.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mlprec/mld_daggrmat_minnrg_asb.F90 b/mlprec/mld_daggrmat_minnrg_asb.F90 index 0be39de7..ca1eb877 100644 --- a/mlprec/mld_daggrmat_minnrg_asb.F90 +++ b/mlprec/mld_daggrmat_minnrg_asb.F90 @@ -246,7 +246,7 @@ subroutine mld_daggrmat_minnrg_asb(a,desc_a,ilaggr,nlaggr,p,info) call psb_sphalo(atmp,desc_a,am4,info,& & colcnv=.false.,rowscale=.true.,outfmt='CSR ') if (info == psb_success_) call psb_rwextd(ncol,atmp,info,b=am4) - if (info == psb_success_) call psb_sp_free(am4,info) + if (info == psb_success_) call am4%free() call atmp%mv_to(acsr1)