diff --git a/src/tools/psb_dspasb.f90 b/src/tools/psb_dspasb.f90 index 9ed05594..9109bfab 100644 --- a/src/tools/psb_dspasb.f90 +++ b/src/tools/psb_dspasb.f90 @@ -211,6 +211,8 @@ subroutine psb_dspasb(a,desc_a, info, afmt, up, dup) close(iout) endif + call psb_spfree(atemp,info) + else if (spstate == psb_spmat_upd_) then !