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_inf = gbsa_parameter ( &
76.36000000_wp, &
18.00000000_wp, &
1.00000000_wp, &
1.00000000_wp, &
2.94903643_wp, &
0.00000000_wp, &
0.00000000_wp, &
0.00000000_wp, &
(/ -0.35147423_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
-0.26053405_wp, -0.85100961_wp, -0.38455056_wp, 0.02328270_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, -0.03236934_wp, &
-0.25944025_wp, 0.01711509_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp, &
0.00000000_wp, 0.00000000_wp, 0.00000000_wp, 0.00000000_wp /), &
(/ 0.93069759_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, &
1.11953986_wp, 1.21082767_wp, 1.06487129_wp, 0.95536183_wp, 1.00000000_wp, &
1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00000000_wp, 1.00338080_wp, &
1.17965821_wp, 1.16340197_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 /) )
|