From 8e95904292b77d38558ecdd3e9024a4b0fdb3ff4 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Thu, 10 Dec 2009 14:58:59 +0000 Subject: [PATCH] *** empty log message *** --- mlprec/mld_move_alloc_mod.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/mlprec/mld_move_alloc_mod.F90 b/mlprec/mld_move_alloc_mod.F90 index 470d442b..83beca28 100644 --- 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)