From 0cdd36edf3bf746d2d84bcb3d9b2224e8079e617 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Fri, 5 Feb 2021 16:42:32 +0100
Subject: [PATCH] Fix get_global_indices to account for index base

---
 cbind/base/psb_base_tools_cbind_mod.F90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cbind/base/psb_base_tools_cbind_mod.F90 b/cbind/base/psb_base_tools_cbind_mod.F90
index f47627d9..2b4f5101 100644
--- a/cbind/base/psb_base_tools_cbind_mod.F90
+++ b/cbind/base/psb_base_tools_cbind_mod.F90
@@ -326,6 +326,7 @@ contains
 
     type(psb_desc_type), pointer   :: descp
     integer(psb_lpk_), allocatable :: myidx(:)
+    integer(psb_c_ipk_)            :: ixb
     logical                        :: fowned
     res = -1
 
@@ -334,8 +335,8 @@ contains
 
       fowned = owned
       myidx = descp%get_global_indices(owned=fowned)
-
-      idx(1:nidx) = myidx(1:nidx)
+      ixb = psb_c_get_index_base()
+      idx(1:nidx) = myidx(1:nidx) - (1-ixb)
       res = 0
 
     end if