extended scope of search in GetNBest function

diff --git a/source/ga/GA.f b/source/ga/GA.f
index 47922c9..59eee18 100644 (file)
--- 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)