From 97af70311697344bd4ab00bdaf810473570ffac7 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 10 Mar 2006 10:44:39 +0000
Subject: [PATCH] Fixed GEINS.

---
 test/Fileread/mat_dist.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/Fileread/mat_dist.f90 b/test/Fileread/mat_dist.f90
index 87b421a9..41e4689b 100644
--- 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