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 reinit of hash index_map.
psblas-3.4-maint
Salvatore Filippone 9 years ago
parent 003a1096ce
commit 99798dbcff

@ -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

@ -170,11 +170,11 @@ 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)

@ -170,11 +170,11 @@ 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)

@ -170,11 +170,11 @@ 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)

@ -170,11 +170,11 @@ 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)

Loading…
Cancel
Save