From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Wed, 7 Mar 2012 11:15:16 +0000 (+0100)
Subject: extended scope of search in GetNBest function
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=919af82a125fde1ac0b9ed759937e9a7c9ef8bfe;p=unres.git

extended scope of search in GetNBest function
---

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)