X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fga%2Fcommon.inc;h=b392108b75bebc14b2d0b05f4e2415b7eabad208;hb=b1dc1c357ec855598618da32b528e1605a83f431;hp=c484ece1e50e767571b30fca1e854d159de8ebaf;hpb=e289cdedf2ad5e63b2c0e23133a657c68f58fbc7;p=unres.git

diff --git a/source/ga/common.inc b/source/ga/common.inc
index c484ece..b392108 100644
--- a/source/ga/common.inc
+++ b/source/ga/common.inc
@@ -5,12 +5,14 @@
       integer*4 :: nscripts = 0              ! number of shell scripts to copy
       integer*4 :: maxgen = 0                ! maximum number of generations
       integer*4 :: banksize = 0              ! size of bank 
-      integer*4 :: generation = 1            ! current generation
+      integer*4 :: generation = 0            ! current generation
       integer*4 :: maxminstep = 0            ! max minimalization to be done by zscore
       integer*4,parameter :: maxnpdb = 10    ! hard limit for maximum number of proteins
       integer*4,parameter :: maxscripts = 10 
-      real*8 :: cicutoff = 5.0               ! CSA initial cutoff 
       real*8 :: csacutoff = 0.0              ! CSA cutoff
+      real*8 :: minco = 0.0                  ! minimal CSA cutoff factor
+      real*8 :: maxco = 0.0                  ! maximal CSA cutoff factor
+      real*8 :: avrd = 0.0		     ! average distance between ind in first bank  
       logical :: do_optima = .false.
       logical :: do_ga = .false.
       logical :: do_fs = .false.
@@ -20,9 +22,9 @@
       character*32 :: mremdtemplate(maxnpdb)
       character*16 :: alg
       
-      common /inputy/ npdb,nscripts,ntwham,ntmremd,maxgen,banksize,cicut&
-     &off,csacutoff,alg,pdbfiles,scripts,whamtemplate,mremdtemplate,gene&
-     &ration,maxminstep,do_optima, do_ga
+      common /inputy/ npdb,nscripts,ntwham,ntmremd,maxgen,banksize,csacu&
+     &toff,avrd,minco,maxco,alg,pdbfiles,scripts,whamtemplate,mremdtempl&
+     &ate,generation,maxminstep,do_optima, do_ga
       character*7 :: version = "1.1.1"
       character*50 :: info = "= Last modified by Lightnir 09/03/2012"
       real*8,allocatable :: bank(:,:),populacja(:,:),temppopulacja(:,:)