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

No use for realloc when it's not really needed.

Browse Source
This commit is contained in:
Salvatore Filippone
2005-12-20 16:28:23 +00:00
parent d0c3fdfa67
commit f25c92b8bd
1 changed files with 0 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/tools/psb_dscall.f90
-9
View File
@@ -254,15 +254,6 @@ subroutine psb_dscall(m, n, parts, icontxt, desc_a, info)
goto 9999
end if
call psb_realloc(1, desc_a%lprm, info)
call psb_realloc(loc_col, desc_a%loc_to_glob, info)
if (info /= no_err) then
info=2025
char_err='psb_realloc'
call psb_errpush(err,name,a_err=char_err)
Goto 9999
end if
! set LOC_TO_GLOB array to all "-1" values
desc_a%lprm(1) = 0
desc_a%loc_to_glob(:) = -1