Fix deallocation of internal D parm.

19 years ago · 41260094dc
parent a26ea197e3
commit 41260094dc
1 changed files with 2 additions and 0 deletions
--- 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