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

Removed redundancy in binary search

Browse source
This commit is contained in:
Colin Josey 2015-10-01 14:01:52 -04:00
parent 68b654b403
commit 42ca8df692
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/search.F90
View file

@ -41,10 +41,9 @@ contains
do while (R - L > 1)
! Find values at midpoint
array_index = L + (R - L)/2
testval = array(array_index)
if (val >= testval) then
if (val >= array(array_index)) then
L = array_index
elseif (val < testval) then
else
R = array_index
end if
@ -83,10 +82,9 @@ contains
do while (R - L > 1)
! Find values at midpoint
array_index = L + (R - L)/2
testval = array(array_index)
if (val >= testval) then
if (val >= array(array_index)) then
L = array_index
elseif (val < testval) then
else
R = array_index
end if
@ -125,10 +123,9 @@ contains
do while (R - L > 1)
! Find values at midpoint
array_index = L + (R - L)/2
testval = array(array_index)
if (val >= testval) then
if (val >= array(array_index)) then
L = array_index
elseif (val < testval) then
else
R = array_index
end if