*** empty log message ***

15 years ago · 8e95904292
parent 97a6047c7e
commit 8e95904292
1 changed files with 1 additions and 0 deletions
--- a/mlprec/mld_move_alloc_mod.F90
+++ b/mlprec/mld_move_alloc_mod.F90
@ -197,6 +197,7 @@ contains
    integer, intent(out) :: info 
    
    call mld_precfree(b,info)
+    call move_alloc(a%sm,b%sm)
    if (info == 0) call mld_move_alloc(a%prec,b%prec,info) 
    if (info == 0) call psb_move_alloc(a%iprcparm,b%iprcparm,info) 
    if (info == 0) call psb_move_alloc(a%rprcparm,b%rprcparm,info)