diff --git a/Changelog b/Changelog index 8cc5b689..5bd5c7ac 100644 --- a/Changelog +++ b/Changelog @@ -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. diff --git a/base/tools/psb_ccdbldext.F90 b/base/tools/psb_ccdbldext.F90 index 58048b90..fa4d9934 100644 --- a/base/tools/psb_ccdbldext.F90 +++ b/base/tools/psb_ccdbldext.F90 @@ -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),& diff --git a/base/tools/psb_dcdbldext.F90 b/base/tools/psb_dcdbldext.F90 index d8b27847..6e162417 100644 --- a/base/tools/psb_dcdbldext.F90 +++ b/base/tools/psb_dcdbldext.F90 @@ -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),& diff --git a/base/tools/psb_scdbldext.F90 b/base/tools/psb_scdbldext.F90 index 176869c4..be2cf8ed 100644 --- a/base/tools/psb_scdbldext.F90 +++ b/base/tools/psb_scdbldext.F90 @@ -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),& diff --git a/base/tools/psb_zcdbldext.F90 b/base/tools/psb_zcdbldext.F90 index c04cf0a9..3428089f 100644 --- a/base/tools/psb_zcdbldext.F90 +++ b/base/tools/psb_zcdbldext.F90 @@ -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),&