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

Fixed switch to build state for overlap descriptor.

Browse Source
merge-paraggr
Salvatore Filippone 6 years ago
parent 51e50120bd
commit 4789277b19
4 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File

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

@ -152,7 +152,7 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Calling desccpy'
call psb_cdcpy(desc_a,desc_ov,info) call desc_a%clone(desc_ov,info)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
@ -178,8 +178,10 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
! so far: LIST or HASH. Encapsulate choice ! so far: LIST or HASH. 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info) if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
else
call psb_cd_set_bld(desc_ov,info)
end if
if (info /= 0) goto 9999 if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then If (debug_level >= psb_debug_outer_)then

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

@ -152,7 +152,7 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Calling desccpy'
call psb_cdcpy(desc_a,desc_ov,info) call desc_a%clone(desc_ov,info)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
@ -178,8 +178,10 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
! so far: LIST or HASH. Encapsulate choice ! so far: LIST or HASH. 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info) if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
else
call psb_cd_set_bld(desc_ov,info)
end if
if (info /= 0) goto 9999 if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then If (debug_level >= psb_debug_outer_)then

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

@ -152,7 +152,7 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Calling desccpy'
call psb_cdcpy(desc_a,desc_ov,info) call desc_a%clone(desc_ov,info)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
@ -178,8 +178,10 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
! so far: LIST or HASH. Encapsulate choice ! so far: LIST or HASH. 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info) if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
else
call psb_cd_set_bld(desc_ov,info)
end if
if (info /= 0) goto 9999 if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then If (debug_level >= psb_debug_outer_)then

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

@ -152,7 +152,7 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Calling desccpy'
call psb_cdcpy(desc_a,desc_ov,info) call desc_a%clone(desc_ov,info)
if (psb_errstatus_fatal()) then if (psb_errstatus_fatal()) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
@ -178,8 +178,10 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
! so far: LIST or HASH. Encapsulate choice ! so far: LIST or HASH. 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
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info) if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
else
call psb_cd_set_bld(desc_ov,info)
end if
if (info /= 0) goto 9999 if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then If (debug_level >= psb_debug_outer_)then

Write Preview
Loading…
Cancel
Save