1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
type(gbsa_parameter),parameter :: gfn1_cs2 = gbsa_parameter ( &
2.60000000_wp, &
76.13000000_wp, &
1.26600000_wp, &
1.18273365_wp, &
0.71354327_wp, &
3.37941625_wp, &
0.08027956_wp, &
0.00000000_wp, &
(/ -1.59193848_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-3.27628791_wp, 1.66032479_wp, 1.97046715_wp, -1.34661167_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, -3.08190918_wp, &
-2.31551512_wp, -2.66430226_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.97012484_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.88983137_wp, 1.00509586_wp, 1.05601217_wp, 0.80228636_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.75808454_wp, &
0.60852409_wp, 0.92019709_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
type(gbsa_parameter),parameter :: gfn2_cs2 = gbsa_parameter ( &
2.64000000_wp, &
76.14000000_wp, &
1.26000000_wp, &
1.40636177_wp, &
0.74329373_wp, &
2.81072250_wp, &
0.00875111_wp, &
0.00000000_wp, &
(/ -1.44799804_wp, -0.21766562_wp, -4.87939161_wp, -7.58542202_wp, -2.62473530_wp, &
-3.22859995_wp, -2.36362362_wp, -1.08346241_wp, -0.91204188_wp, -0.24699289_wp, &
-6.22674760_wp, -1.49892103_wp, -1.71955875_wp, -0.41453333_wp, -2.45198214_wp, &
-2.49097868_wp, -2.25994690_wp, -1.14425445_wp, -1.27575631_wp, -5.32159355_wp, &
-3.79064287_wp, 0.31469847_wp, -2.14096821_wp, -1.87864558_wp, -1.21850253_wp, &
-0.89855694_wp, 0.83486857_wp, -1.26921775_wp, -2.06139867_wp, -2.35211852_wp, &
-2.54771219_wp, -2.00997722_wp, -2.10628460_wp, -1.60855536_wp, -3.22845209_wp, &
-1.25788796_wp, -1.73800411_wp, -0.82817737_wp, -6.80306720_wp, 0.28878658_wp, &
-2.24178809_wp, -0.35385730_wp, -2.27613506_wp, -2.87458317_wp, -2.06906558_wp, &
-1.64445804_wp, -2.15207055_wp, -2.17928002_wp, -2.00685271_wp, -1.61939605_wp, &
-1.37636403_wp, -2.04001572_wp, -3.27762061_wp, -1.01222929_wp, -0.02314733_wp, &
-0.40769168_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.32297707_wp, -2.27781319_wp, 0.86073858_wp, -1.77952156_wp, &
-1.32570994_wp, -1.06456002_wp, -0.84007379_wp, -1.23720944_wp, -0.91224267_wp, &
-1.00281909_wp, -0.79729718_wp, -0.92942177_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.93699367_wp, 0.38364047_wp, 0.96056410_wp, 1.00789644_wp, 0.80213645_wp, &
0.83307834_wp, 1.02661619_wp, 0.96508008_wp, 0.49013084_wp, 0.30000000_wp, &
1.20470949_wp, 0.30000000_wp, 0.61701017_wp, 0.80259048_wp, 0.57774746_wp, &
0.95748589_wp, 0.78136558_wp, 0.30000000_wp, 0.75516989_wp, 0.78712705_wp, &
0.91492983_wp, 1.02323139_wp, 1.03056314_wp, 1.31268233_wp, 0.74452937_wp, &
1.32357113_wp, 0.81929032_wp, 0.74873442_wp, 1.06645349_wp, 1.00639390_wp, &
0.92065852_wp, 0.77829892_wp, 1.08306687_wp, 1.07338400_wp, 0.30000000_wp, &
1.27090652_wp, 0.30000000_wp, 0.30000000_wp, 1.17343866_wp, 0.81721997_wp, &
1.06406349_wp, 0.44731611_wp, 1.28258212_wp, 1.34855350_wp, 0.96095193_wp, &
1.17503498_wp, 1.07905886_wp, 1.01436978_wp, 0.76340079_wp, 0.64749372_wp, &
0.30000000_wp, 0.37737014_wp, 0.30000000_wp, 0.58202362_wp, 0.68939189_wp, &
0.30000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.86961760_wp, 0.94910939_wp, 0.30000000_wp, 0.93536933_wp, &
1.30109906_wp, 1.03971894_wp, 1.17570267_wp, 1.09549856_wp, 0.30000000_wp, &
0.79885417_wp, 0.99522474_wp, 1.10694939_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp, &
0.80000000_wp, 0.80000000_wp, 0.80000000_wp, 0.80000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
|
