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

psblas-3:

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

Fix bug in cdbldext: must call indxmap%reinit.
This commit is contained in:
Salvatore Filippone
2015-07-17 16:03:37 +00:00
parent 88bbc06e06
commit cb5db361e1
5 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Changelog
+2
View File
@@ -1,5 +1,7 @@
Changelog. A lot less detailed than usual, at least for past
history.
2015/07/17: Fix cdbldext.
2015/07/10: Begin integration of multivectors.
2015/04/25: New optional args in V%set.
2015/04/14: New absval method for vectors.
base/tools/psb_ccdbldext.F90
+3 -2
View File
@@ -177,8 +177,9 @@ Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
call psb_cd_set_ovl_bld(desc_ov,info)
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then
Write(debug_unit,*) me,' ',trim(name),&
base/tools/psb_dcdbldext.F90
+3 -2
View File
@@ -177,8 +177,9 @@ Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
call psb_cd_set_ovl_bld(desc_ov,info)
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then
Write(debug_unit,*) me,' ',trim(name),&
base/tools/psb_scdbldext.F90
+3 -2
View File
@@ -177,8 +177,9 @@ Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
call psb_cd_set_ovl_bld(desc_ov,info)
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then
Write(debug_unit,*) me,' ',trim(name),&
base/tools/psb_zcdbldext.F90
+3 -2
View File
@@ -177,8 +177,9 @@ Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info, extype)
! in a separate method.
call psb_cd_switch_ovl_indxmap(desc_ov,info)
end if
call psb_cd_set_ovl_bld(desc_ov,info)
if (info == 0) call desc_ov%indxmap%reinit(info)
if (info == 0) call psb_cd_set_ovl_bld(desc_ov,info)
if (info /= 0) goto 9999
If (debug_level >= psb_debug_outer_)then
Write(debug_unit,*) me,' ',trim(name),&