Fixed bug: add nullify for BLK matrix.

18 years ago · dd5a8bb7fd
parent a11d5f671a
commit dd5a8bb7fd
2 changed files with 2 additions and 2 deletions
--- 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
--- 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