crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed binary_search when list value was same as search value.

Browse source
This commit is contained in:
Paul Romano 2011-12-09 16:09:52 -05:00
parent 0205125d7b
commit 02a727748f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/search.F90
View file

@ -48,7 +48,7 @@ contains
! Find values at midpoint
array_index = L + (R - L)/2
testval = array(array_index)
if (val > testval) then
if (val >= testval) then
L = array_index
elseif (val < testval) then
R = array_index