Disambiguated C interfaces for idx2ijk for type of the index

cbind/util/psb_util_cbind.h

@@ -7,5 +7,7 @@
 #include "psb_c_zutil.h"
 
 psb_i_t psb_c_idx2ijk(psb_i_t *i, psb_i_t *j, psb_i_t idx, psb_i_t nx, psb_i_t ny, psb_i_t base );
+psb_i_t psb_c_lidx2ijk(psb_i_t *i, psb_i_t *j, psb_l_t idx, psb_i_t nx, psb_i_t ny, psb_i_t base );
+
 
 #endif

cbind/util/psb_util_cbind_mod.f90

@@ -27,4 +27,21 @@ contains
 
   end function psb_c_idx2ijk
 
+  function psb_c_lidx2ijk(i,j,idx,nx,ny,base) bind(c) result(res)
+    use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
+    implicit none
+
+    integer(psb_c_ipk_)         :: res
+    integer(psb_c_lpk_), value  :: idx 
+    integer(psb_c_ipk_), value  :: nx,ny,base
+    integer(psb_c_ipk_)         :: i,j
+
+    res = -1
+
+    call idx2ijk(i,j,idx,nx,ny,base=base)
+
+    res = 0
+
+  end function psb_c_lidx2ijk
+
 end module psb_base_util_cbind_mod