*** empty log message ***

13 years ago · a9f8803dcc
parent 50eb8ab2d6
commit a9f8803dcc
1 changed files with 1 additions and 1 deletions
--- a/mlprec/mld_dmlprec_bld.f90
+++ b/mlprec/mld_dmlprec_bld.f90
@ -249,7 +249,7 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info,amold,vmold)
        end do
        call mld_move_alloc(p%precv(iszv),t_prec%precv(newsz),info)
        do i=newsz+1, iszv
-          call mld_precfree(p%precv(i),info)
+          call p%precv(i)%free(info)
        end do
        call mld_move_alloc(t_prec,p,info) 
        ! Ignore errors from transfer