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
new-parstruct
Salvatore Filippone 6 years ago
parent 4bb0c7a633
commit 1079260d84
4 changed files with 68 additions and 56 deletions
Show Stats Download Patch File Download Diff File

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

@ -148,9 +148,9 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Cloning input desc'
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_
@ -176,8 +176,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
@ -407,6 +409,7 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
! !
If (i_ovr <= (novr)) Then If (i_ovr <= (novr)) Then
call a%csget(idx,idx,n_elem,irow,icol,info) call a%csget(idx,idx,n_elem,irow,icol,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='csget') call psb_errpush(info,name,a_err='csget')

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

@ -148,9 +148,9 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Cloning input desc'
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_
@ -176,8 +176,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
@ -407,6 +409,7 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
! !
If (i_ovr <= (novr)) Then If (i_ovr <= (novr)) Then
call a%csget(idx,idx,n_elem,irow,icol,info) call a%csget(idx,idx,n_elem,irow,icol,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='csget') call psb_errpush(info,name,a_err='csget')

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

@ -148,9 +148,9 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Cloning input desc'
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_
@ -176,8 +176,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
@ -407,6 +409,7 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
! !
If (i_ovr <= (novr)) Then If (i_ovr <= (novr)) Then
call a%csget(idx,idx,n_elem,irow,icol,info) call a%csget(idx,idx,n_elem,irow,icol,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='csget') call psb_errpush(info,name,a_err='csget')

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

@ -148,9 +148,9 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
if (debug_level >= psb_debug_outer_) & if (debug_level >= psb_debug_outer_) &
& write(debug_unit,*) me,' ',trim(name),& & write(debug_unit,*) me,' ',trim(name),&
& ': Calling desccpy' & ': Cloning input desc'
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_
@ -176,8 +176,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
@ -407,6 +409,7 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
! !
If (i_ovr <= (novr)) Then If (i_ovr <= (novr)) Then
call a%csget(idx,idx,n_elem,irow,icol,info) call a%csget(idx,idx,n_elem,irow,icol,info)
if (info /= psb_success_) then if (info /= psb_success_) then
info=psb_err_from_subroutine_ info=psb_err_from_subroutine_
call psb_errpush(info,name,a_err='csget') call psb_errpush(info,name,a_err='csget')

Write Preview
Loading…
Cancel
Save