From a566ae52e434c6ee5992e02728e9db9e7a89e724 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 10 May 2017 12:50:53 +0000
Subject: [PATCH] psblas3-mcbind:  cbind/base/psb_cpenv_mod.f90 
 cbind/test/pargen/ppdec.c

Fix psb_c_set_index_base; use it in test program.
---
 cbind/base/psb_cpenv_mod.f90 | 2 +-
 cbind/test/pargen/ppdec.c    | 6 +-----
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/cbind/base/psb_cpenv_mod.f90 b/cbind/base/psb_cpenv_mod.f90
index cda907ee..cf5fc7b0 100644
--- a/cbind/base/psb_cpenv_mod.f90
+++ b/cbind/base/psb_cpenv_mod.f90
@@ -16,7 +16,7 @@ contains
   
   subroutine psb_c_set_index_base(base) bind(c) 
     implicit none     
-    integer(psb_c_int)  :: base
+    integer(psb_c_int), value  :: base
     
     psb_c_index_base = base
   end subroutine psb_c_set_index_base  
diff --git a/cbind/test/pargen/ppdec.c b/cbind/test/pargen/ppdec.c
index fc972231..8932b03f 100644
--- a/cbind/test/pargen/ppdec.c
+++ b/cbind/test/pargen/ppdec.c
@@ -123,7 +123,7 @@ int matgen(int ictxt, int ng,int idim,int vg[],psb_c_dspmat *ah,psb_c_descriptor
   info = 0;
   psb_c_info(ictxt,&iam,&np);
   deltah = (double) 1.0/(idim-1);
-
+  psb_c_set_index_base(1);
   for (glob_row=1; glob_row<=ng; glob_row++) {
 
     /* Check if I have to do something about this entry */
@@ -214,10 +214,6 @@ int matgen(int ictxt, int ng,int idim,int vg[],psb_c_dspmat *ah,psb_c_descriptor
 	icol[el]=(x)*idim*idim+(y-1)*idim+(z);
 	el=el+1;
       }
-      for (i=0; i<el; i++) {
-	irow[i]=glob_row-1;
-	icol[i]--;
-      }
       if ((ret=psb_c_dspins(el,irow,icol,val,ah,cdh))!=0) 
 	fprintf(stderr,"From psb_c_dspins: %d\n",ret); 
       psb_c_dgeins(1,irow,zt,bh,cdh);