fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/tools/psb_ccdbldext.F90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_scdbldext.F90
 base/tools/psb_zcdbldext.F90

Revert yesterday's change, it was overkill.
psblas-3.4-maint
Salvatore Filippone 9 years ago
parent 99798dbcff
commit 40b0ed6996
4 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File

7
base/tools/psb_ccdbldext.F90
Unescape Escape View File

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

7
base/tools/psb_dcdbldext.F90
Unescape Escape View File

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

7
base/tools/psb_scdbldext.F90
Unescape Escape View File

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

7
base/tools/psb_zcdbldext.F90
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save