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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
type(gbsa_parameter),parameter :: gfn1_alpb_furane = gbsa_parameter ( &
2.94000000_wp, &
68.07000000_wp, &
0.93600000_wp, &
1.34358884_wp, &
0.62641489_wp, &
1.81646541_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.21673171_wp, -0.12772038_wp, -6.26049718_wp, -13.17758891_wp, -2.82447487_wp, &
-2.73374451_wp, -0.38515211_wp, 1.25855411_wp, 0.56169347_wp, -0.16450823_wp, &
-3.30285605_wp, -2.64178832_wp, -2.41075021_wp, 0.53703682_wp, -2.70652912_wp, &
-2.53361460_wp, -1.71849857_wp, -1.04531616_wp, -3.25052582_wp, -5.96743843_wp, &
-4.53958647_wp, -2.37519332_wp, -2.38337681_wp, 0.12379897_wp, -2.69779433_wp, &
-4.92996221_wp, -2.47431927_wp, -3.00097634_wp, -2.57096459_wp, -2.59337509_wp, &
-2.31764490_wp, -2.57395139_wp, -2.58378740_wp, -1.91219467_wp, -2.45870492_wp, &
-1.10813253_wp, -2.70007846_wp, -7.25156713_wp, -8.65094836_wp, 2.55526922_wp, &
1.00186796_wp, 6.25662804_wp, -1.95705030_wp, -1.70605585_wp, -2.60576061_wp, &
-2.75948980_wp, -2.15939752_wp, -1.08318022_wp, -3.50041748_wp, -1.82326491_wp, &
-2.18890948_wp, -2.22894539_wp, -2.93900015_wp, -0.81694535_wp, -3.30826309_wp, &
-4.37851918_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.50417690_wp, -0.05363621_wp, 3.16518237_wp, 3.23666109_wp, &
-1.61715327_wp, -2.46477762_wp, -0.93687501_wp, -1.37002909_wp, -0.96685982_wp, &
-1.61594901_wp, -0.72603933_wp, -0.43128967_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.83912220_wp, 1.78812603_wp, 1.06178050_wp, 0.64676283_wp, 0.87616339_wp, &
0.67051441_wp, 0.30000000_wp, 0.73614811_wp, 0.77969607_wp, 1.56539817_wp, &
0.30000000_wp, 0.30000000_wp, 0.98841079_wp, 0.95474113_wp, 0.72354412_wp, &
0.30000000_wp, 0.83314536_wp, 1.30171809_wp, 0.71339713_wp, 0.30000000_wp, &
1.07129882_wp, 1.07814047_wp, 1.19333247_wp, 1.14261167_wp, 1.21614897_wp, &
1.17070921_wp, 1.06281194_wp, 1.04352581_wp, 1.18389606_wp, 0.01181660_wp, &
1.13831559_wp, 1.00150746_wp, 1.16635189_wp, 0.96129143_wp, 1.09615358_wp, &
1.20740935_wp, 0.10699399_wp, 0.30000000_wp, 0.84196403_wp, 1.10537158_wp, &
1.07646357_wp, 0.93411678_wp, 1.27261642_wp, 1.15997444_wp, 1.05183004_wp, &
1.16070823_wp, 0.99217042_wp, 0.97390431_wp, 0.94329675_wp, 0.83553489_wp, &
1.04228732_wp, 0.90913027_wp, 1.25169803_wp, 1.04258291_wp, 1.01497207_wp, &
0.52650081_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.05033867_wp, 1.01464730_wp, 0.89499196_wp, 0.88873376_wp, &
1.12005901_wp, 1.04773453_wp, 0.74172261_wp, 1.11001251_wp, 0.98037858_wp, &
0.76392768_wp, 1.00384002_wp, 0.79800402_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.04115102_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_alpb_furane = gbsa_parameter ( &
2.94000000_wp, &
68.07000000_wp, &
0.93600000_wp, &
1.28872589_wp, &
0.48900006_wp, &
1.24661341_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.34331419_wp, -0.10528890_wp, -5.44529786_wp, -15.64566091_wp, -2.89065815_wp, &
-2.76752119_wp, -2.95774936_wp, -0.18194139_wp, 0.38260590_wp, -0.13731173_wp, &
-4.40895349_wp, -2.96664573_wp, -1.81939300_wp, 0.53703682_wp, -2.46510797_wp, &
-2.34661217_wp, -1.68263052_wp, -0.94180070_wp, -2.67597579_wp, -5.96743843_wp, &
-4.53958647_wp, -2.37519332_wp, -6.48695622_wp, -0.95637608_wp, -2.33324934_wp, &
-2.11005655_wp, -2.47431927_wp, -0.70122124_wp, -2.32818118_wp, -3.63711001_wp, &
-3.18443664_wp, -1.82164033_wp, -2.55821661_wp, -1.49033789_wp, -2.04893421_wp, &
-1.01036070_wp, -3.03695448_wp, -7.25156713_wp, -8.65094836_wp, 0.90539857_wp, &
-6.82658746_wp, -1.04614201_wp, -2.12328069_wp, -3.12626442_wp, -3.89828505_wp, &
-1.83026210_wp, -2.52136489_wp, -2.35134609_wp, -3.50011757_wp, -1.57550664_wp, &
-2.38268715_wp, -2.34460162_wp, -2.47225415_wp, -0.73527495_wp, -3.02936007_wp, &
-5.70415926_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.41590025_wp, -4.60920960_wp, 1.37287726_wp, -3.03161593_wp, &
-2.77466931_wp, -3.98630896_wp, -1.12315108_wp, -1.14369672_wp, -2.43237503_wp, &
-1.70071275_wp, -1.00202900_wp, -0.58455271_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.58301411_wp, 1.81350872_wp, 0.75206698_wp, 0.61619223_wp, 0.86799156_wp, &
0.23981977_wp, 0.30000000_wp, 0.86919153_wp, 0.87791119_wp, 1.26285484_wp, &
1.42990107_wp, 1.00546613_wp, 0.92998604_wp, 0.95474113_wp, 0.30000000_wp, &
0.66201697_wp, 1.13833490_wp, 1.05845403_wp, 0.30000000_wp, 0.30000000_wp, &
1.07129882_wp, 1.07814047_wp, 1.24208512_wp, 1.01436759_wp, 1.20260572_wp, &
1.56541659_wp, 1.06281194_wp, 0.76863040_wp, 1.06281844_wp, 0.63675905_wp, &
1.15958898_wp, 0.75122278_wp, 1.11516041_wp, 0.81956508_wp, 0.84910390_wp, &
1.19791276_wp, 0.30000000_wp, 0.30000000_wp, 0.84196403_wp, 0.30000000_wp, &
1.23531583_wp, 0.46887795_wp, 1.14991646_wp, 1.47823465_wp, 1.30663546_wp, &
1.24692545_wp, 1.03605678_wp, 0.81294699_wp, 0.89306108_wp, 0.30000000_wp, &
1.03252233_wp, 0.86195584_wp, 0.73022054_wp, 0.91170779_wp, 0.99759987_wp, &
0.87098751_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.49296628_wp, 1.07474522_wp, 0.51977584_wp, 1.27241266_wp, &
1.41683942_wp, 1.19581174_wp, 1.14400185_wp, 1.02974405_wp, 0.81932870_wp, &
0.61068641_wp, 1.01652783_wp, 0.73329767_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.33594644_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 :: gfnff_alpb_furane = gbsa_parameter ( &
2.94000000_wp, &
68.07000000_wp, &
0.93600000_wp, &
1.34735419_wp, &
0.51354050_wp, &
1.21982591_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -1.26063739_wp, -0.10320590_wp, -6.38342156_wp, -16.73395773_wp, -2.91566274_wp, &
-2.68150853_wp, -2.89777580_wp, -0.29783243_wp, 0.59642444_wp, -0.14011410_wp, &
-4.92020183_wp, -3.29465855_wp, -2.53109006_wp, -0.11151128_wp, -2.13956351_wp, &
-2.59540679_wp, -1.65835402_wp, -1.23227409_wp, -4.19617978_wp, -6.43377711_wp, &
-3.15405656_wp, -6.41736239_wp, -6.73124903_wp, -2.67229247_wp, 0.63376165_wp, &
-5.55481847_wp, 0.00000000_wp, -3.16307765_wp, -2.69850817_wp, -4.10803898_wp, &
-3.21494774_wp, -2.08049393_wp, -2.52729300_wp, -1.79391657_wp, -2.55789952_wp, &
-1.11350172_wp, -3.69988813_wp, -8.56201561_wp, -0.22509709_wp, -2.29317126_wp, &
-5.92948652_wp, 4.09346887_wp, -0.41513403_wp, -1.17288980_wp, 0.54737277_wp, &
-3.24175045_wp, -2.34923971_wp, -3.55716111_wp, -3.64773220_wp, -1.52038574_wp, &
-2.36106554_wp, -2.13285150_wp, -2.85925287_wp, -0.74869318_wp, -3.64499373_wp, &
-6.39042595_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, -4.92901440_wp, -5.33301777_wp, 6.04499197_wp, -0.42966448_wp, &
0.27907887_wp, -1.94560000_wp, -1.15092201_wp, -1.16264711_wp, -1.89970584_wp, &
-2.23137838_wp, -1.20443090_wp, -2.19321781_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.56216082_wp, 1.76243032_wp, 0.88097757_wp, 0.30000000_wp, 0.93828429_wp, &
0.58725888_wp, 0.30000000_wp, 0.41926480_wp, 0.60121827_wp, 1.08489750_wp, &
0.30000000_wp, 0.30000000_wp, 0.95898822_wp, 0.98840942_wp, 0.30000000_wp, &
0.85168197_wp, 1.40319358_wp, 0.30000000_wp, 0.30000000_wp, 0.30000000_wp, &
0.86252142_wp, 1.18407012_wp, 1.30676869_wp, 1.66099763_wp, 1.79210427_wp, &
1.83373538_wp, 1.00000000_wp, 1.40737878_wp, 1.26003470_wp, 0.30000000_wp, &
0.82373651_wp, 0.76189868_wp, 0.96508052_wp, 0.78182130_wp, 1.73664211_wp, &
0.98391376_wp, 0.30000000_wp, 0.30000000_wp, 0.83715964_wp, 0.61793018_wp, &
1.43577602_wp, 1.81084476_wp, 1.74820405_wp, 1.96258411_wp, 1.19155652_wp, &
0.55985473_wp, 1.38062656_wp, 0.30000000_wp, 0.85497241_wp, 0.06841002_wp, &
1.03405140_wp, 0.71189895_wp, 1.09429280_wp, 1.08712485_wp, 0.30000000_wp, &
0.30000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 0.80000000_wp, 1.36499942_wp, 1.78289478_wp, 1.37731095_wp, &
1.60958026_wp, 1.36195535_wp, 0.51720566_wp, 1.06401092_wp, 0.69449941_wp, &
0.12827764_wp, 1.18902187_wp, 0.09446756_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.21596273_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 /) )
|
