From a5b32db161f760dfc0a2b17fdb7328faeeccf4fd Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Wed, 7 Mar 2012 11:52:19 +0100 Subject: [PATCH] modified: GA.f --- source/ga/GA.f | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 1.7.9.5