c ======================================================================
c  Genetic Algorythm Constants
c ======================================================================
      real*8, parameter :: MUTRATIO = 0.05
      real*8, parameter :: CUTOFF = 7.00000
      integer, parameter :: BANK_MULTIPLIER = 2
      integer, parameter :: IGNORE_WEIGHT(19) = (/1,0,0,1,0,0,0,0,0,1,1,&
     &1,0,0,0,1,0,1,0/)

c  -- UNRES weight-ranges values --
      real*8, parameter :: WLONG_HI   = 1.00000	! 1
      real*8, parameter :: WLONG_LOW  = 1.00000 
      real*8, parameter :: WSCP_HI    = 1.80000	! 2
      real*8, parameter :: WSCP_LOW   = 1.00000
      real*8, parameter :: WELEC_HI   = 1.20000	! 3
      real*8, parameter :: WELEC_LOW  = 0.60000
      real*8, parameter :: WBOND_HI   = 1.00000	! 4
      real*8, parameter :: WBOND_LOW  = 1.00000
      real*8, parameter :: WANG_HI    = 2.00000	! 5
      real*8, parameter :: WANG_LOW   = 0.60000
      real*8, parameter :: WSCLOC_HI  = 2.00000	! 6
      real*8, parameter :: WSCLOC_LOW = 0.10000
      real*8, parameter :: WTOR_HI    = 2.00000	! 7
      real*8, parameter :: WTOR_LOW   = 1.00000
      real*8, parameter :: WTORD_HI   = 1.80000	! 8
      real*8, parameter :: WTORD_LOW  = 1.00000
      real*8, parameter :: WCORRH_HI  = 0.30000	! 9
      real*8, parameter :: WCORRH_LOW = 0.00000
      real*8, parameter :: WCORR4_HI  = 0.00000	! 10
      real*8, parameter :: WCORR4_LOW = 0.00000
      real*8, parameter :: WCORR5_HI  = 0.00000	! 11
      real*8, parameter :: WCORR5_LOW = 0.00000
      real*8, parameter :: WCORR6_HI  = 0.00000	! 12
      real*8, parameter :: WCORR6_LOW = 0.00000
      real*8, parameter :: WEL_LOC_HI = 0.40000	! 13
      real*8, parameter :: WEL_LOC_LOW= 0.10000
      real*8, parameter :: WTURN3_HI  = 2.00000	! 14
      real*8, parameter :: WTURN3_LOW = 1.00000
      real*8, parameter :: WTURN4_HI  = 1.40000	! 15
      real*8, parameter :: WTURN4_LOW = 0.40000
      real*8, parameter :: WTURN6_HI  = 0.00000	! 16
      real*8, parameter :: WTURN6_LOW = 0.00000
      real*8, parameter :: WVDWPP_HI  = 1.20000	! 17
      real*8, parameter :: WVDWPP_LOW = 0.60000
      real*8, parameter :: WHPB_HI    = 0.00000	! 18
      real*8, parameter :: WHPB_LOW   = 0.00000
      real*8, parameter :: WSCCOR_HI  = 1.00000	! 19
      real*8, parameter :: WSCCOR_LOW = 0.00000

C -- UNRES weight values names --
      character*7, parameter :: WNAME(19) = (/ 'WLONG  ','WSCP   ',     &
     &'WELEC  ','WBOND  ','WANG   ','WSCLOC ','WTOR   ','WTORD  ',      &
     &'WCORRH ','WCORR4 ','WCORR5 ','WCORR6 ','WEL_LOC','WTURN3 ',      &
     &'WTURN4 ','WTURN6 ','WVDWPP ','WHPB   ','WSCCOR ' /)