Fixed idiotic memory leak in dhalov.

18 years ago · a985d0ad05
parent 7cb47779bd
commit a985d0ad05
1 changed files with 1 additions and 0 deletions
--- a/base/comm/psb_dhalo.f90
+++ b/base/comm/psb_dhalo.f90
@ -363,6 +363,7 @@ subroutine  psb_dhalov(x,desc_a,info,alpha,work,tran,mode,data)
      end if
    end if
  else
+    aliw=.true.
    allocate(iwork(liwork),stat=info)
    if(info.ne.0) then
      info=4010