Missing index base adjustment in psb_c_cdins

4 years ago · 69b1678f6b
parent 0cdd36edf3
commit 69b1678f6b
1 changed files with 8 additions and 2 deletions
--- a/cbind/base/psb_base_tools_cbind_mod.F90
+++ b/cbind/base/psb_base_tools_cbind_mod.F90
@ -218,13 +218,19 @@ contains
    integer(psb_c_lpk_)          :: ia(*),ja(*)

    type(psb_desc_type), pointer :: descp
-    integer(psb_c_ipk_)           :: info
+    integer(psb_c_ipk_)           :: ixb,info

    res = -1

    if (c_associated(cdh%item)) then
      call c_f_pointer(cdh%item,descp)
+      ixb = psb_c_get_index_base()
+      if (ixb == 1) then
        call psb_cdins(nz,ia(1:nz),ja(1:nz),descp,info)
+      else
+        call psb_cdins(nz,(ia(1:nz)+(1-ixb)),(ja(1:nz)+(1-ixb)),descp,info)
+      end if
+        
      res = info
    end if
    return