From a9123fe03a9667e91a845fc1e6726f23a6d20f71 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Fri, 4 Nov 2005 14:51:53 +0000 Subject: [PATCH] *** empty log message *** --- src/prec/psb_dprec.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/prec/psb_dprec.f90 b/src/prec/psb_dprec.f90 index ddf9c81e..6d58ce93 100644 --- a/src/prec/psb_dprec.f90 +++ b/src/prec/psb_dprec.f90 @@ -992,7 +992,6 @@ subroutine psb_dmlprcaply(baseprecv,x,beta,y,desc_data,trans,work,info) call psb_axpby(one,ty,one,tty,desc_data,info) if(info /=0) goto 9999 - deallocate(tz) else do i=1, desc_data%matrix_data(psb_n_row_) @@ -1011,6 +1010,7 @@ subroutine psb_dmlprcaply(baseprecv,x,beta,y,desc_data,trans,work,info) call psb_axpby(one,tty,beta,y,desc_data,info) + deallocate(t2l,w2l,tx,ty,tty) case default