From 81b9285e853a4a9d75a7be0e084c88d162ecd80c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 2 Oct 2013 11:41:02 +0000
Subject: [PATCH] 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 | 3 +--
 base/tools/psb_dcdbldext.F90 | 3 +--
 base/tools/psb_scdbldext.F90 | 3 +--
 base/tools/psb_zcdbldext.F90 | 3 +--
 4 files changed, 4 insertions(+), 8 deletions(-)

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