fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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.
This commit is contained in:
Salvatore Filippone
2016-02-23 17:21:54 +00:00
parent 003a1096ce
commit 99798dbcff
5 changed files with 20 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_hash_mod.f90
+4
View File
@@ -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
+4 -4
View File
@@ -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)
base/tools/psb_dcdbldext.F90
+4 -4
View File
@@ -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)
base/tools/psb_scdbldext.F90
+4 -4
View File
@@ -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)
base/tools/psb_zcdbldext.F90
+4 -4
View File
@@ -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)