Fix: blck was no longer used.

19 years ago · 64e2230593
parent 5307017c9d
commit 64e2230593
1 changed files with 1 additions and 8 deletions
--- 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)