From 41260094dc14e7a990c5615dc193b02af8c94e61 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 7 Dec 2005 13:14:12 +0000 Subject: [PATCH] Fix deallocation of internal D parm. --- src/psblas/psb_dspsm.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/psblas/psb_dspsm.f90 b/src/psblas/psb_dspsm.f90 index 7adc8dd2..65bec9cb 100644 --- a/src/psblas/psb_dspsm.f90 +++ b/src/psblas/psb_dspsm.f90 @@ -274,6 +274,7 @@ subroutine psb_dspsm(alpha,a,x,beta,y,desc_a,info,& end if if(.not.present(work)) deallocate(iwork) + if(.not.present(d)) deallocate(id) call psb_erractionrestore(err_act) return @@ -534,6 +535,7 @@ subroutine psb_dspsv(alpha,a,x,beta,y,desc_a,info,& end if if(.not.present(work)) deallocate(iwork) + if(.not.present(d)) deallocate(id) call psb_erractionrestore(err_act) return