diff --git a/base/comm/psb_dhalo.f90 b/base/comm/psb_dhalo.f90 index a3b23943..05e6dbcf 100644 --- 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