source/ga/GA.inc

   1 c ======================================================================
   2 c  Genetic Algorythm Constants
   3 c ======================================================================
   4       real*8, parameter :: MUTRATIO = 0.05
   5       real*8, parameter :: CUTOFF = 7.00000
   6       integer, parameter :: BANK_MULTIPLIER = 2
   7       integer, parameter :: IGNORE_WEIGHT(19) = (/1,0,0,1,0,0,0,0,0,1,1,&
   8      &1,0,0,0,1,0,1,0/)
   9
  10 c  -- UNRES weight-ranges values --
  11       real*8, parameter :: WLONG_HI   = 1.00000 ! 1
  12       real*8, parameter :: WLONG_LOW  = 1.00000
  13       real*8, parameter :: WSCP_HI    = 1.80000 ! 2
  14       real*8, parameter :: WSCP_LOW   = 1.00000
  15       real*8, parameter :: WELEC_HI   = 1.20000 ! 3
  16       real*8, parameter :: WELEC_LOW  = 0.60000
  17       real*8, parameter :: WBOND_HI   = 1.00000 ! 4
  18       real*8, parameter :: WBOND_LOW  = 1.00000
  19       real*8, parameter :: WANG_HI    = 2.00000 ! 5
  20       real*8, parameter :: WANG_LOW   = 0.60000
  21       real*8, parameter :: WSCLOC_HI  = 2.00000 ! 6
  22       real*8, parameter :: WSCLOC_LOW = 0.10000
  23       real*8, parameter :: WTOR_HI    = 2.00000 ! 7
  24       real*8, parameter :: WTOR_LOW   = 1.00000
  25       real*8, parameter :: WTORD_HI   = 1.80000 ! 8
  26       real*8, parameter :: WTORD_LOW  = 1.00000
  27       real*8, parameter :: WCORRH_HI  = 0.30000 ! 9
  28       real*8, parameter :: WCORRH_LOW = 0.00000
  29       real*8, parameter :: WCORR4_HI  = 0.00000 ! 10
  30       real*8, parameter :: WCORR4_LOW = 0.00000
  31       real*8, parameter :: WCORR5_HI  = 0.00000 ! 11
  32       real*8, parameter :: WCORR5_LOW = 0.00000
  33       real*8, parameter :: WCORR6_HI  = 0.00000 ! 12
  34       real*8, parameter :: WCORR6_LOW = 0.00000
  35       real*8, parameter :: WEL_LOC_HI = 0.40000 ! 13
  36       real*8, parameter :: WEL_LOC_LOW= 0.10000
  37       real*8, parameter :: WTURN3_HI  = 2.00000 ! 14
  38       real*8, parameter :: WTURN3_LOW = 1.00000
  39       real*8, parameter :: WTURN4_HI  = 1.40000 ! 15
  40       real*8, parameter :: WTURN4_LOW = 0.40000
  41       real*8, parameter :: WTURN6_HI  = 0.00000 ! 16
  42       real*8, parameter :: WTURN6_LOW = 0.00000
  43       real*8, parameter :: WVDWPP_HI  = 1.20000 ! 17
  44       real*8, parameter :: WVDWPP_LOW = 0.60000
  45       real*8, parameter :: WHPB_HI    = 0.00000 ! 18
  46       real*8, parameter :: WHPB_LOW   = 0.00000
  47       real*8, parameter :: WSCCOR_HI  = 1.00000 ! 19
  48       real*8, parameter :: WSCCOR_LOW = 0.00000
  49
  50 C -- UNRES weight values names --
  51       character*7, parameter :: WNAME(19) = (/ 'WLONG  ','WSCP   ',     &
  52      &'WELEC  ','WBOND  ','WANG   ','WSCLOC ','WTOR   ','WTORD  ',      &
  53      &'WCORRH ','WCORR4 ','WCORR5 ','WCORR6 ','WEL_LOC','WTURN3 ',      &
  54      &'WTURN4 ','WTURN6 ','WVDWPP ','WHPB   ','WSCCOR ' /)
  55