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

19 years ago · f25c92b8bd
parent d0c3fdfa67
commit f25c92b8bd
1 changed files with 0 additions and 9 deletions
--- a/src/tools/psb_dscall.f90
+++ b/src/tools/psb_dscall.f90
@ -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