Fixed GEINS.

19 years ago · 97af703116
parent f8d3550d90
commit 97af703116
1 changed files with 1 additions and 1 deletions
--- a/test/Fileread/mat_dist.f90
+++ b/test/Fileread/mat_dist.f90
@ -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