fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 04:12:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2013-10-01 15:53:24 +00:00
parent d96e32ecde
commit e81dacc0d6
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cdins.f90
+1 -1
View File
@@ -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)