Commit c80e1e27 authored by Andreas Marek's avatar Andreas Marek
Browse files

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

parent 141cb6d1
...@@ -2099,7 +2099,7 @@ ...@@ -2099,7 +2099,7 @@
endif endif
a_off = a_off + offset 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 #ifdef WITH_OPENMP
if (useGPU) then if (useGPU) then
print *,"trans_ev_tridi_to_band_real: not yet implemented" 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