Fix: blck was no longer used.

2026-10-20 04:42:08 +00:00 · 2006-03-24 10:54:38 +00:00
parent 5307017c9d
commit 64e2230593
1 changed files with 1 additions and 8 deletions
@@ -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)