projects / unres.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 919af82)
linear csacutoff fix
authorDawid Jagiela <lightnir@chem.univ.gda.pl>
Wed, 7 Mar 2012 12:02:31 +0000 (13:02 +0100)
committerDawid Jagiela <lightnir@chem.univ.gda.pl>
Wed, 7 Mar 2012 12:02:31 +0000 (13:02 +0100)
source/ga/GA.f patch | blob | history

diff --git a/source/ga/GA.f b/source/ga/GA.f
index 59eee18..13af8fe 100644 (file)
--- 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
UNRESPACK 3.x