From e81dacc0d68116abef081ee92a03dbd5d12fad45 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 1 Oct 2013 15:53:24 +0000 Subject: [PATCH] *** empty log message *** --- base/tools/psb_cdins.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/base/tools/psb_cdins.f90 b/base/tools/psb_cdins.f90 index 2f66161e..71baa89a 100644 --- a/base/tools/psb_cdins.f90 +++ b/base/tools/psb_cdins.f90 @@ -136,7 +136,7 @@ subroutine psb_cdinsrc(nz,ia,ja,desc_a,info,ila,jla) jla_(1:nz) = ja(1:nz) call desc_a%indxmap%g2lip_ins(jla_(1:nz),info,mask=(ila_(1:nz)>0)) end if - deallocate(ila_) + deallocate(ila_,jla_,stat=info) end if if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act)