From 8c82169764bd789bd34cea4d7343a5b247ab7a5e Mon Sep 17 00:00:00 2001 From: Alfredo Buttari Date: Fri, 9 Dec 2005 15:38:23 +0000 Subject: [PATCH] Fixed "negative amount of memory allocation" error --- src/comm/psb_ihalo.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/comm/psb_ihalo.f90 b/src/comm/psb_ihalo.f90 index 3c4935a5..bcbbb40e 100644 --- a/src/comm/psb_ihalo.f90 +++ b/src/comm/psb_ihalo.f90 @@ -121,7 +121,7 @@ subroutine psb_ihalom(x,desc_a,info,alpha,jx,ik,work,tran,mode) !!$ end if !!$ end if - liwork=ncol + liwork=nrow if (present(work)) then if(size(work).ge.liwork) then iwork => work @@ -279,7 +279,7 @@ subroutine psb_ihalov(x,desc_a,info,alpha,work,tran,mode) !!$ end if !!$ end if - liwork=ncol + liwork=nrow if (present(work)) then if(size(work).ge.liwork) then iwork => work