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 GEINS.

Browse Source
This commit is contained in:
Salvatore Filippone
2006-03-10 10:44:39 +00:00
parent f8d3550d90
commit 97af703116
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Fileread/mat_dist.f90
+1 -1
View File
@@ -766,7 +766,7 @@ contains
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
call psb_ins(nnr,b,i_count,b_glob(i_count:i_count+nnr-1),&
call psb_geins(nnr,b,i_count,b_glob(i_count:i_count+nnr-1),&
&desc_a,info)
if(info/=0) then
info=4010