Fix an out-of-bound error reported by Victor Yu

c80e1e27 · Andreas Marek · 141cb6d1 · c80e1e27
Commit c80e1e27 authored Jun 25, 2019 by Andreas Marek
--- a/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
+++ b/src/elpa2/elpa2_trans_ev_tridi_to_band_template.F90
@@ -2099,7 +2099,7 @@
    endif

    a_off = a_off + offset
-    if (a_off + next_local_n + nbw > a_dim2) then
+    if (a_off + next_local_n + nbw >= a_dim2) then
 #ifdef WITH_OPENMP
      if (useGPU) then
        print *,"trans_ev_tridi_to_band_real: not yet implemented"