diff --git a/base/tools/psb_dcdovr.F90 b/base/tools/psb_dcdovr.F90 index 41ccad06..1da9f060 100644 --- a/base/tools/psb_dcdovr.F90 +++ b/base/tools/psb_dcdovr.F90 @@ -196,7 +196,7 @@ Subroutine psb_dcdovr(a,desc_a,novr,desc_ov,info, extype) goto 9999 end if - + call psb_nullify_sp(blk) call psb_sp_all(blk,max(lworks,lworkr),info) if (info /= 0) then info=4010 diff --git a/base/tools/psb_zcdovr.F90 b/base/tools/psb_zcdovr.F90 index 36580bb1..9ef180f2 100644 --- a/base/tools/psb_zcdovr.F90 +++ b/base/tools/psb_zcdovr.F90 @@ -194,7 +194,7 @@ Subroutine psb_zcdovr(a,desc_a,novr,desc_ov,info, extype) goto 9999 end if - + call psb_nullify_sp(blk) call psb_sp_all(blk,max(lworks,lworkr),info) if (info /= 0) then info=4010