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,&
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
50 C -- UNRES weight values names --
51 character*7, parameter :: WNAME(19) = (/ 'WLONG','WSCP','WELEC', &
52 &'WBOND','WANG','WSCLOC','WTOR','WTORD','WCORRH','WCORR4','WCORR5',&
53 &'WCORR6','WEL_LOC','WTURN3','WTURN4','WTURN6', 'WVDWPP','WHPB', &