*** empty log message ***

13 years ago · dcd48aad7e
parent 08f013aac9
commit dcd48aad7e
1 changed files with 1 additions and 1 deletions
--- 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)