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

*** empty log message ***

Browse Source
This commit is contained in:
Salvatore Filippone
2005-12-07 15:00:57 +00:00
parent e8d026353c
commit b0e42a0133
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/modules/psb_realloc_mod.f90
+1 -1
View File
@@ -306,7 +306,7 @@ Contains
call psb_errpush(err,name)
goto 9999
end if
call psb_dreallocate1i(len,y,info)
call psb_dreallocate1i(len,y,info)
if (info /= 0) then
err=4000
call psb_errpush(err,name)