fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 11:22:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

Call psb_get_mpicomm ONLY in CDALL; afterwards, always get it from DESC.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-05-24 11:40:55 +00:00
parent b350f41c87
commit 4b16ee0af4
13 changed files with 32 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_realloc_mod.F90
+3 -3
View File
@@ -621,7 +621,7 @@ Contains
else
lb_ = 1
endif
if ((len<0).or.(len>25*1024*1024)) then
if ((len<0)) then
err=2025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/))
goto 9999
@@ -697,7 +697,7 @@ Contains
else
lb_ = 1
endif
if ((len<0).or.(len>25*1024*1024)) then
if ((len<0)) then
err=2025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/))
goto 9999
@@ -770,7 +770,7 @@ Contains
else
lb_ = 1
endif
if ((len<0).or.(len>25*1024*1024)) then
if ((len<0)) then
err=2025
call psb_errpush(err,name,i_err=(/len,0,0,0,0/))
goto 9999