fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed "negative amount of memory allocation" error

Browse Source
This commit is contained in:
Alfredo Buttari
2005-12-09 15:38:23 +00:00
parent 5538ceba32
commit 8c82169764
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/comm/psb_ihalo.f90
+2 -2
View File
@@ -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