From 34e5d88b5bee35f368d28998f970d153a689955f Mon Sep 17 00:00:00 2001 From: Dawid Jagiela Date: Wed, 7 Mar 2012 13:02:31 +0100 Subject: [PATCH] linear csacutoff fix --- 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 59eee18..13af8fe 100644 --- a/source/ga/GA.f +++ b/source/ga/GA.f @@ -229,7 +229,7 @@ c --- debug begin --- c --- debug end --- call WriteBank(bank) - csacutoff=csacutoff-(cicutoff/maxgen) + csacutoff=csacutoff-(generation*cicutoff/maxgen) c csacutoff=cicutoff*(0.8**(iter-1)) write(tmptext,'(F7.5)') csacutoff -- 1.7.9.5