psblas-3.3-maint:

base/modules/psb_hash_mod.f90
 base/tools/psb_ccdbldext.F90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_scdbldext.F90
 base/tools/psb_zcdbldext.F90

Fix missing reinit of HASH map index.

base/modules/psb_hash_mod.f90

@@ -303,6 +303,10 @@ contains
       hd = hsize - hk 
       hd = ior(hd,1)
     end if
+    if (.not.allocated(hash%table)) then
+      info = HashOutOfMemory
+      return
+    end if
 
     hash%nsrch = hash%nsrch + 1
     do 

base/tools/psb_ccdbldext.F90

@@ -170,14 +170,13 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
   endif
 
 
-  if ((extype_ == psb_ovt_asov_).and.&
-       & (.not.desc_ov%indxmap%row_extendable())) then 
+  if (extype_ == psb_ovt_asov_) then 
     ! Need to switch to a format that can support overlap,
-    ! so far: LIST or HASH. Encapsulate choice
-    ! in a separate method. 
+    ! so far: LIST or HASH. This will also reinitialize properly
+    ! the inex map contents. Encapsulate choice
+    ! in a separate method.
     call psb_cd_switch_ovl_indxmap(desc_ov,info) 
   end if
-
   call psb_cd_set_ovl_bld(desc_ov,info)
 
   If (debug_level >= psb_debug_outer_)then 

base/tools/psb_dcdbldext.F90

@@ -170,14 +170,13 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
   endif
 
 
-  if ((extype_ == psb_ovt_asov_).and.&
-       & (.not.desc_ov%indxmap%row_extendable())) then 
+  if (extype_ == psb_ovt_asov_) then 
     ! Need to switch to a format that can support overlap,
-    ! so far: LIST or HASH. Encapsulate choice
-    ! in a separate method. 
+    ! so far: LIST or HASH. This will also reinitialize properly
+    ! the inex map contents. Encapsulate choice
+    ! in a separate method.
     call psb_cd_switch_ovl_indxmap(desc_ov,info) 
   end if
-
   call psb_cd_set_ovl_bld(desc_ov,info)
 
   If (debug_level >= psb_debug_outer_)then 

base/tools/psb_scdbldext.F90

@@ -170,14 +170,13 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
   endif
 
 
-  if ((extype_ == psb_ovt_asov_).and.&
-       & (.not.desc_ov%indxmap%row_extendable())) then 
+  if (extype_ == psb_ovt_asov_) then 
     ! Need to switch to a format that can support overlap,
-    ! so far: LIST or HASH. Encapsulate choice
-    ! in a separate method. 
+    ! so far: LIST or HASH. This will also reinitialize properly
+    ! the inex map contents. Encapsulate choice
+    ! in a separate method.
     call psb_cd_switch_ovl_indxmap(desc_ov,info) 
   end if
-
   call psb_cd_set_ovl_bld(desc_ov,info)
 
   If (debug_level >= psb_debug_outer_)then 

base/tools/psb_zcdbldext.F90

@@ -170,14 +170,13 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
   endif
 
 
-  if ((extype_ == psb_ovt_asov_).and.&
-       & (.not.desc_ov%indxmap%row_extendable())) then 
+  if (extype_ == psb_ovt_asov_) then 
     ! Need to switch to a format that can support overlap,
-    ! so far: LIST or HASH. Encapsulate choice
-    ! in a separate method. 
+    ! so far: LIST or HASH. This will also reinitialize properly
+    ! the inex map contents. Encapsulate choice
+    ! in a separate method.
     call psb_cd_switch_ovl_indxmap(desc_ov,info) 
   end if
-
   call psb_cd_set_ovl_bld(desc_ov,info)
 
   If (debug_level >= psb_debug_outer_)then