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

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent d0c3fdfa67
commit f25c92b8bd

@ -254,15 +254,6 @@ subroutine psb_dscall(m, n, parts, icontxt, desc_a, info)
goto 9999 goto 9999
end if 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 ! set LOC_TO_GLOB array to all "-1" values
desc_a%lprm(1) = 0 desc_a%lprm(1) = 0
desc_a%loc_to_glob(:) = -1 desc_a%loc_to_glob(:) = -1

Loading…
Cancel
Save