source/ga/common.inc

   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)
  23       character*16 :: alg
  24
  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(:)