From e727c597bd4f9a633ab9d7cb96fc7ef4b3a4a9f3 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 8 Nov 2011 12:14:18 +0000 Subject: [PATCH] *** empty log message *** --- prec/psb_d_bjacprec.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prec/psb_d_bjacprec.f90 b/prec/psb_d_bjacprec.f90 index 916b42b5..bbfa673b 100644 --- a/prec/psb_d_bjacprec.f90 +++ b/prec/psb_d_bjacprec.f90 @@ -156,6 +156,7 @@ contains call psb_halo(y,desc_data,info,data=psb_comm_mov_) + call wv%free(info) if (n_col <= size(work)) then if ((4*n_col+n_col) <= size(work)) then else @@ -298,7 +299,6 @@ contains call psb_halo(y,desc_data,info,data=psb_comm_mov_) - call wv%free(info) if (n_col <= size(work)) then if ((4*n_col+n_col) <= size(work)) then else