From: Dawid Jagiela <lightnir@chem.univ.gda.pl>
Date: Wed, 7 Mar 2012 12:02:31 +0000 (+0100)
Subject: linear csacutoff fix
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=34e5d88b5bee35f368d28998f970d153a689955f;p=unres.git

linear csacutoff fix
---

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