Fix VL(:) initialization when CHECK_=.false.

2 years ago · b17a8ab750
parent 61d054850d
commit b17a8ab750
1 changed files with 2 additions and 0 deletions
--- a/base/tools/psb_cd_inloc.f90
+++ b/base/tools/psb_cd_inloc.f90
@ -275,6 +275,8 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash)

    if (debug_size) &
         & write(debug_unit,*) me,' ',trim(name),': After sort ',nlu
+  else
+    nlu = loc_row
  end if
  call psb_nullify_desc(desc)
  if (do_timings) then