From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Wed, 7 Mar 2012 10:52:19 +0000 (+0100)
Subject: 	modified:   GA.f
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=a5b32db161f760dfc0a2b17fdb7328faeeccf4fd;p=unres.git

	modified:   GA.f
---

diff --git a/source/ga/GA.f b/source/ga/GA.f
index 8e2225d..47922c9 100644
--- a/source/ga/GA.f
+++ b/source/ga/GA.f
@@ -462,7 +462,7 @@ c ======================================================================
 c  GetNBest subroutine
 c ======================================================================
 c Fills up the bank population up to banksize with individuals from
-c inputpop heving the best(lowest) score
+c inputpop having the best(lowest) score
 c ----------------------------------------------------------------------
 
       subroutine GetNBest(inputpop,bank,banksize)
@@ -1521,6 +1521,8 @@ c ----------------------------------------------------------------------
          endif
         end do
         if (pop(i,20).eq.0) then
+c Setting FFV to a realy big valiue or otherwise CalcFittness will have problems
+         pop(i,20)=huge(0.0d0)
          call write2log("ERROR while reading FFV from "//filename)
         endif 
         close(izenergy)