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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2011-11-08 12:14:18 +00:00
parent f7cbd59695
commit e727c597bd
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_d_bjacprec.f90
+1 -1
View File
@@ -156,6 +156,7 @@ contains
call psb_halo(y,desc_data,info,data=psb_comm_mov_)
call wv%free(info)
if (n_col <= size(work)) then
if ((4*n_col+n_col) <= size(work)) then
else
@@ -298,7 +299,6 @@ contains
call psb_halo(y,desc_data,info,data=psb_comm_mov_)
call wv%free(info)
if (n_col <= size(work)) then
if ((4*n_col+n_col) <= size(work)) then
else