psblas3:

base/tools/psb_ccdbldext.F90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_scdbldext.F90
 base/tools/psb_zcdbldext.F90

Revert: in tight loops on small sizes it's better to call directly
into %indxmap%

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_)
     !

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_)
     !

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_)
     !

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_)
     !