1 integer*4 :: timeArray(4) ! used for random seed
2 integer*4 :: npdb = 0 ! number of pdb files
3 integer*4 :: ntwham = 0 ! number of WHAM template files
4 integer*4 :: ntmremd = 0 ! number of MREMD template files
5 integer*4 :: nscripts = 0 ! number of shell scripts to copy
6 integer*4 :: maxgen = 0 ! maximum number of generations
7 integer*4 :: banksize = 0 ! size of bank
8 integer*4 :: generation = 0 ! current generation
9 integer*4 :: maxminstep = 0 ! max minimalization to be done by zscore
10 integer*4,parameter :: maxnpdb = 10 ! hard limit for maximum number of proteins
11 integer*4,parameter :: maxscripts = 10
12 real*8 :: csacutoff = 0.0 ! CSA cutoff
13 real*8 :: minco = 0.0 ! minimal CSA cutoff factor
14 real*8 :: maxco = 0.0 ! maximal CSA cutoff factor
15 real*8 :: avrd = 0.0 ! average distance between ind in first bank
16 logical :: do_optima = .false.
17 logical :: do_ga = .false.
18 logical :: do_fs = .false.
19 character*32 :: pdbfiles(maxnpdb)
20 character*32 :: scripts(maxscripts)
21 character*32 :: whamtemplate(maxnpdb)
22 character*32 :: mremdtemplate(maxnpdb)
25 common /inputy/ npdb,nscripts,ntwham,ntmremd,maxgen,banksize,csacu&
26 &toff,avrd,minco,maxco,alg,pdbfiles,scripts,whamtemplate,mremdtempl&
27 &ate,generation,maxminstep,do_optima, do_ga
28 character*7 :: version = "1.1.1"
29 character*50 :: info = "= Last modified by Lightnir 09/03/2012"
30 real*8,allocatable :: bank(:,:),populacja(:,:),temppopulacja(:,:)
31 integer*4, allocatable :: pairs(:)