From 64e22305934af24abae005c4f24a3a20561be2b8 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 24 Mar 2006 10:54:38 +0000
Subject: [PATCH] Fix: blck was no longer used.

---
 test/Fileread/mat_dist.f90 | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/test/Fileread/mat_dist.f90 b/test/Fileread/mat_dist.f90
index 56c4bff1..91ab62d4 100644
--- a/test/Fileread/mat_dist.f90
+++ b/test/Fileread/mat_dist.f90
@@ -802,14 +802,7 @@ contains
       call psb_errpush(info,name,a_err=ch_err)
       goto 9999
     end if
-    call psb_sp_free(blck,info)
-    if(info/=0)then
-      info=4010
-      ch_err='sp_free'
-      call psb_errpush(info,name,a_err=ch_err)
-      goto 9999
-    end if
-
+2
     deallocate(iwork)   
 
     call psb_erractionrestore(err_act)