From 919af82a125fde1ac0b9ed759937e9a7c9ef8bfe Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Wed, 7 Mar 2012 12:15:16 +0100 Subject: [PATCH] extended scope of search in GetNBest function --- source/ga/GA.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/ga/GA.f b/source/ga/GA.f index 47922c9..59eee18 100644 --- a/source/ga/GA.f +++ b/source/ga/GA.f @@ -475,7 +475,7 @@ c ---------------------------------------------------------------------- last=0.0 idx=1 do j=1,banksize - best=100000000000000000.0 + best=huge(0.0d0) do i=1,banksize*BANK_MULTIPLIER if ((inputpop(i,20).lt.best).and.(inputpop(i,20).gt.last)) then best=inputpop(i,20) -- 1.7.9.5