From dd5a8bb7fd69ec552394b08840e03b52b6215728 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 15 May 2007 16:21:39 +0000 Subject: [PATCH] Fixed bug: add nullify for BLK matrix. --- base/tools/psb_dcdovr.F90 | 2 +- base/tools/psb_zcdovr.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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