From 35318812a177f9f582adb1a776b78ef120f3ce98 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 15 May 2007 16:31:43 +0000
Subject: [PATCH] Fixed bug: add nullify into sp_all.

---
 base/modules/psb_spmat_type.f90 | 9 ++++++++-
 base/tools/psb_dcdovr.F90       | 1 -
 base/tools/psb_zcdovr.F90       | 1 -
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/base/modules/psb_spmat_type.f90 b/base/modules/psb_spmat_type.f90
index 7250be62..d7133252 100644
--- a/base/modules/psb_spmat_type.f90
+++ b/base/modules/psb_spmat_type.f90
@@ -370,6 +370,7 @@ contains
       return
     Endif
     if (debug) write(0,*) 'SPALL : NNZ ',nnz,a%m,a%k
+    call psb_nullify_sp(a)
     call psb_sp_reall(a,nnz,info)
 
     a%pl(1)=0
@@ -398,6 +399,7 @@ contains
     integer  :: nnz
 
     INFO  = 0
+    call psb_nullify_sp(a)
     nnz = 2*max(1,m,k)
     if (debug) write(0,*) 'SPALL : NNZ ',nnz,a%m,a%k
     a%m=max(0,m)
@@ -431,6 +433,7 @@ contains
       info=45
       return
     endif
+    call psb_nullify_sp(a)
     if (debug) write(0,*) 'spall : nnz ',nnz,a%m,a%k
     a%m=max(0,m)
     a%k=max(0,k)
@@ -459,7 +462,7 @@ contains
     logical, parameter  :: debug=.false.
 
     info  = 0
-
+    call psb_nullify_sp(a)
     call psb_sp_reall(a, ni1,ni2,nd,info)
 
     a%pl(1)=0
@@ -923,6 +926,7 @@ contains
       info=45
       return
     Endif
+    call psb_nullify_sp(a)
     if (debug) write(0,*) 'SPALL : NNZ ',nnz,a%m,a%k
     call psb_sp_reall(a,nnz,info)
 
@@ -953,6 +957,7 @@ contains
 
     INFO  = 0
     nnz = 2*max(1,m,k)
+    call psb_nullify_sp(a)
     if (debug) write(0,*) 'SPALL : NNZ ',nnz,a%m,a%k
     a%m=max(0,m)
     a%k=max(0,k)
@@ -985,6 +990,7 @@ contains
       info=45
       return
     endif
+    call psb_nullify_sp(a)
     if (debug) write(0,*) 'spall : nnz ',nnz,a%m,a%k
     a%m=max(0,m)
     a%k=max(0,k)
@@ -1014,6 +1020,7 @@ contains
 
     info  = 0
 
+    call psb_nullify_sp(a)
     call psb_sp_reall(a, ni1,ni2,nd,info)
 
     a%pl(1)=0
diff --git a/base/tools/psb_dcdovr.F90 b/base/tools/psb_dcdovr.F90
index 1da9f060..c056e0c4 100644
--- a/base/tools/psb_dcdovr.F90
+++ b/base/tools/psb_dcdovr.F90
@@ -196,7 +196,6 @@ 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 9ef180f2..d49f6e0c 100644
--- a/base/tools/psb_zcdovr.F90
+++ b/base/tools/psb_zcdovr.F90
@@ -194,7 +194,6 @@ 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