From db1705792480e8b298628c62143b121f48acb39a Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@uniroma2.it>
Date: Fri, 5 Jun 2020 11:26:16 +0200
Subject: [PATCH] Cosmetic changes to fnd_owner for BLOCK.

---
 base/modules/desc/psb_gen_block_map_mod.F90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/base/modules/desc/psb_gen_block_map_mod.F90 b/base/modules/desc/psb_gen_block_map_mod.F90
index 4bb29294..6fc8123f 100644
--- a/base/modules/desc/psb_gen_block_map_mod.F90
+++ b/base/modules/desc/psb_gen_block_map_mod.F90
@@ -2192,7 +2192,7 @@ contains
 
     integer(psb_ipk_) :: lb, ub, m
 
-    choice: if (n >5) then 
+    binsrch: if (n > 8) then 
       lb = 1 
       ub = n
       ipos = -1 
@@ -2201,7 +2201,7 @@ contains
         m = (lb+ub)/2
         if (key==v(m))  then
           ipos = m 
-          exit choice
+          exit binsrch
         else if (key < v(m))  then
           ub = m-1
         else 
@@ -2215,7 +2215,7 @@ contains
     else
       ! No binary search, do everything in the final cleanup
       ipos = 0
-    end if choice
+    end if binsrch
 
     ! Final cleanup
     ! This is needed because V may contain repeated entries
@@ -2239,7 +2239,7 @@ contains
 
     integer(psb_ipk_) :: lb, ub, m
     
-    choice: if (n >5) then 
+    binsrch: if (n > 8) then 
       lb = 1 
       ub = n
       ipos = -1 
@@ -2248,7 +2248,7 @@ contains
         m = (lb+ub)/2
         if (key==v(m))  then
           ipos = m 
-          exit choice
+          exit binsrch
         else if (key < v(m))  then
           ub = m-1
         else 
@@ -2262,7 +2262,7 @@ contains
     else
       ! No binary search, do everything in the final cleanup
       ipos = 0
-    end if choice
+    end if binsrch
 
     ! Final cleanup
     ! This is needed because V may contain repeated entries