Commit c80e1e27 authored by Andreas Marek's avatar Andreas Marek

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

parent 141cb6d1
......@@ -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"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment