From f3f8ed674efbb86d6a6c665f4d28381799d725f1 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Fri, 15 Apr 2022 12:05:30 +0200
Subject: [PATCH] cbind: g2l

---
 cbind/base/psb_c_serial_cbind_mod.F90 | 33 ---------------------------
 1 file changed, 33 deletions(-)

diff --git a/cbind/base/psb_c_serial_cbind_mod.F90 b/cbind/base/psb_c_serial_cbind_mod.F90
index dba41b67..b298d84a 100644
--- a/cbind/base/psb_c_serial_cbind_mod.F90
+++ b/cbind/base/psb_c_serial_cbind_mod.F90
@@ -204,38 +204,5 @@ contains
 
   end function psb_c_cvect_set_vect
 
-  function psb_c_g2l(cdh,gindex,cowned) bind(c) result(lindex)
-    use psb_base_mod
-    implicit none
-
-    integer(psb_c_lpk_), value :: gindex
-    logical(c_bool), value     :: cowned
-    type(psb_c_descriptor)     :: cdh
-    integer(psb_c_ipk_)        :: lindex
-
-    type(psb_desc_type), pointer :: descp
-    integer(psb_ipk_)            :: info, localindex, ixb, iam, np
-    logical :: owned
-
-    ixb = psb_c_get_index_base()
-    owned = cowned
-    lindex = -1
-    if (c_associated(cdh%item)) then
-      call c_f_pointer(cdh%item,descp)
-    else
-      return
-    end if
-
-    call psb_info(descp%get_context(),iam,np)
-    if (ixb == 1) then
-      call descp%indxmap%g2l(gindex,localindex,info,owned=owned)
-      lindex = localindex
-    else
-      call descp%indxmap%g2l(gindex+(1-ixb),localindex,info,owned=owned)
-      lindex = localindex-(1-ixb)
-    endif
-
-  end function psb_c_g2l
-
 
 end module psb_c_serial_cbind_mod