diff --git a/base/tools/psb_ccdbldext.F90 b/base/tools/psb_ccdbldext.F90
index f6a392f7..0be38764 100644
--- a/base/tools/psb_ccdbldext.F90
+++ b/base/tools/psb_ccdbldext.F90
@@ -254,7 +254,7 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
     Do j=0,n_elem_recv-1
 
       idx = desc_a%ovrlap_index(counter+psb_elem_recv_+j)
-      call desc_ov%l2g(idx,gidx,info) 
+      call desc_ov%indxmap%l2g(idx,gidx,info) 
       If (gidx < 0) then 
         info=-3
         call psb_errpush(info,name)
@@ -611,7 +611,6 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
     End If
   End Do
 
-
   select case(extype_) 
   case(psb_ovt_xhal_)
     !
diff --git a/base/tools/psb_dcdbldext.F90 b/base/tools/psb_dcdbldext.F90
index 63b5334b..35c94221 100644
--- a/base/tools/psb_dcdbldext.F90
+++ b/base/tools/psb_dcdbldext.F90
@@ -254,7 +254,7 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
     Do j=0,n_elem_recv-1
 
       idx = desc_a%ovrlap_index(counter+psb_elem_recv_+j)
-      call desc_ov%l2g(idx,gidx,info) 
+      call desc_ov%indxmap%l2g(idx,gidx,info) 
       If (gidx < 0) then 
         info=-3
         call psb_errpush(info,name)
@@ -611,7 +611,6 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
     End If
   End Do
 
-
   select case(extype_) 
   case(psb_ovt_xhal_)
     !
diff --git a/base/tools/psb_scdbldext.F90 b/base/tools/psb_scdbldext.F90
index 45443e10..853bc103 100644
--- a/base/tools/psb_scdbldext.F90
+++ b/base/tools/psb_scdbldext.F90
@@ -254,7 +254,7 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
     Do j=0,n_elem_recv-1
 
       idx = desc_a%ovrlap_index(counter+psb_elem_recv_+j)
-      call desc_ov%l2g(idx,gidx,info) 
+      call desc_ov%indxmap%l2g(idx,gidx,info) 
       If (gidx < 0) then 
         info=-3
         call psb_errpush(info,name)
@@ -611,7 +611,6 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
     End If
   End Do
 
-
   select case(extype_) 
   case(psb_ovt_xhal_)
     !
diff --git a/base/tools/psb_zcdbldext.F90 b/base/tools/psb_zcdbldext.F90
index 45897fff..7329187f 100644
--- a/base/tools/psb_zcdbldext.F90
+++ b/base/tools/psb_zcdbldext.F90
@@ -254,7 +254,7 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
     Do j=0,n_elem_recv-1
 
       idx = desc_a%ovrlap_index(counter+psb_elem_recv_+j)
-      call desc_ov%l2g(idx,gidx,info) 
+      call desc_ov%indxmap%l2g(idx,gidx,info) 
       If (gidx < 0) then 
         info=-3
         call psb_errpush(info,name)
@@ -611,7 +611,6 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
     End If
   End Do
 
-
   select case(extype_) 
   case(psb_ovt_xhal_)
     !