Fixed "negative amount of memory allocation" error

19 years ago · 8c82169764
parent 5538ceba32
commit 8c82169764
1 changed files with 2 additions and 2 deletions
--- 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