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
|
type(gbsa_parameter),parameter :: gfn_cosmo = gbsa_parameter ( &
76.36000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.00000000_wp, &
1.30000000_wp, &
0.00000000_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.08499967_wp, 0.46780225_wp, -2.87013596_wp, -3.95935069_wp, -0.29783987_wp, &
-0.48323273_wp, 0.00133622_wp, 0.20448945_wp, 0.20150600_wp, 0.36379863_wp, &
-3.47082133_wp, -0.93451053_wp, -1.46342018_wp, -0.32774697_wp, -0.38015204_wp, &
-0.35311116_wp, -0.19972593_wp, -0.12891363_wp, -1.19450558_wp, -1.61289300_wp, &
-4.68022533_wp, 3.22705056_wp, -1.76349679_wp, -1.78246886_wp, -1.41389733_wp, &
-2.03424961_wp, -13.15585203_wp, -0.60232543_wp, -0.51255518_wp, -1.05389890_wp, &
-0.80992362_wp, -0.04534252_wp, -0.48402589_wp, -0.34738945_wp, -0.31467674_wp, &
-0.13545936_wp, -1.19984632_wp, -1.57439157_wp, -7.77905850_wp, -0.25386776_wp, &
-1.36181862_wp, -1.89986750_wp, -1.66264106_wp, 0.63693473_wp, -0.42449931_wp, &
-0.73041159_wp, -0.48383194_wp, -0.60860050_wp, -1.34579404_wp, -0.28314431_wp, &
-0.58997478_wp, -0.50506060_wp, -0.36680822_wp, -0.28828614_wp, -1.50384745_wp, &
-1.72772005_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, -0.95945946_wp, -0.97138135_wp, -2.83432331_wp, -2.01934203_wp, &
-1.19296724_wp, -0.73245256_wp, -0.58420150_wp, -0.43386368_wp, -0.70607621_wp, &
-0.73268812_wp, -1.00876694_wp, -0.52518304_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.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.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.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.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.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.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.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp /), &
(/ 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /) )
|