From 3c3470b50e4f059a86f6789830a385d0d9d148f4 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 4 May 2020 13:36:00 +0200 Subject: [PATCH] Disambiguated C interfaces for idx2ijk for type of the index --- cbind/util/psb_util_cbind.h | 2 ++ cbind/util/psb_util_cbind_mod.f90 | 17 +++++++++++++++++ 2 files changed, 19 insertions(+) diff --git a/cbind/util/psb_util_cbind.h b/cbind/util/psb_util_cbind.h index deb58c91..347d53b4 100644 --- a/cbind/util/psb_util_cbind.h +++ b/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 diff --git a/cbind/util/psb_util_cbind_mod.f90 b/cbind/util/psb_util_cbind_mod.f90 index 4417eb81..ec2c9678 100644 --- a/cbind/util/psb_util_cbind_mod.f90 +++ b/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