1 subroutine xc_lebedev(l_ang, oprint) 2 implicit none 3c 4C$Id$ 5c 6#include "cdft.fh" 7#include "stdio.fh" 8#include "global.fh" 9#include "tcgmsg.fh" 10c 11c Routine for Lebedev weights, supplied by Mauro Causa` 12c modified by E. Apra based on the following paper 13c B.Delley, J. Comp. Chem. 17, 1152 (1996) 14c All points were provided by DN Laikov and VI lebedev 15c 3/7/200 16c n = 131 from VI Lebedev and DN Laikov, 17c Doklady Mathematics 366, 741 (1999) 18c 19c integer iacc ! [input] 20c 21 integer MAXN, i 22 parameter(MAXN = 1281) 23 logical oprint 24 double precision gjk(2,MAXN), wleb(MAXN), fasf(6), goh(3,3,48) 25 integer njk(6,IAC_MAX), ivj(48,6), nvj(6), 26 & jkv(IAC_MAX+1), itop(3,3,6), isig(3,8) 27cedo double precision nridv(IAC_MAX) 28 double precision fourpi 29C parameter(fourpi = 4.d0*3.1415926535897932385d0) 30c 31 integer nop, n48, iv, k, ks, isi, j, ia, l_ang, iaz, jk, jk1, 32 & nvjj, l 33 double precision wtest, fasfj, x0, y0, z0, gjkt1, gjkt2, gjkt3 34c 35 data itop/1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 36 & 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 37 & 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0/ 38c 39 data isig/ 1, 1, 1, -1, 1, 1, 1, -1, 1, 1, 1, -1, 40 & -1, -1, -1, 1, -1, -1, -1, 1, -1, -1, -1, 1/ 41C 42C n = 9 43C 44 data wleb( 1),(gjk(i, 1),i=1,2)/ 45 & 9.523809523809525D-03, 46 & 1.000000000000000D+00, 0.000000000000000D+00/ 47 data wleb( 2),(gjk(i, 2),i=1,2)/ 48 & 3.214285714285714D-02, 49 & 1.000000000000000D+00, 1.000000000000000D+00/ 50 data wleb( 3),(gjk(i, 3),i=1,2)/ 51 & 2.857142857142857D-02, 52 & 4.597008433809831D-01, 0.000000000000000D+00/ 53C 54C n = 11 55C 56 data wleb( 4),(gjk(i, 4),i=1,2)/ 57 & 1.269841269841270D-02, 58 & 1.000000000000000D+00, 0.000000000000000D+00/ 59 data wleb( 5),(gjk(i, 5),i=1,2)/ 60 & 2.257495590828924D-02, 61 & 1.000000000000000D+00, 1.000000000000000D+00/ 62 data wleb( 6),(gjk(i, 6),i=1,2)/ 63 & 2.109375000000000D-02, 64 & 1.000000000000000D+00, 1.000000000000000D+00/ 65 data wleb( 7),(gjk(i, 7),i=1,2)/ 66 & 2.017333553791887D-02, 67 & 3.015113445777636D-01, 3.015113445777636D-01/ 68C 69C n = 13 70C 71 data wleb( 8),(gjk(i, 8),i=1,2)/ 72 & 5.130671797338464D-04, 73 & 1.000000000000000D+00, 0.000000000000000D+00/ 74 data wleb( 9),(gjk(i, 9),i=1,2)/ 75 & 1.660406956574204D-02, 76 & 1.000000000000000D+00, 1.000000000000000D+00/ 77 data wleb( 10),(gjk(i, 10),i=1,2)/ 78 & -2.958603896103896D-02, 79 & 1.000000000000000D+00, 1.000000000000000D+00/ 80 data wleb( 11),(gjk(i, 11),i=1,2)/ 81 & 2.657620708215946D-02, 82 & 4.803844614152614D-01, 4.803844614152614D-01/ 83 data wleb( 12),(gjk(i, 12),i=1,2)/ 84 & 1.652217099371571D-02, 85 & 3.207726489807764D-01, 0.000000000000000D+00/ 86C 87C n = 15 88C 89 data wleb( 13),(gjk(i, 13),i=1,2)/ 90 & 1.154401154401154D-02, 91 & 1.000000000000000D+00, 0.000000000000000D+00/ 92 data wleb( 14),(gjk(i, 14),i=1,2)/ 93 & 1.194390908585628D-02, 94 & 1.000000000000000D+00, 1.000000000000000D+00/ 95 data wleb( 15),(gjk(i, 15),i=1,2)/ 96 & 1.111055571060340D-02, 97 & 3.696028464541502D-01, 3.696028464541502D-01/ 98 data wleb( 16),(gjk(i, 16),i=1,2)/ 99 & 1.187650129453714D-02, 100 & 6.943540066026664D-01, 6.943540066026664D-01/ 101 data wleb( 17),(gjk(i, 17),i=1,2)/ 102 & 1.181230374690448D-02, 103 & 3.742430390903412D-01, 0.000000000000000D+00/ 104C 105C n = 17 106C 107 data wleb( 18),(gjk(i, 18),i=1,2)/ 108 & 3.828270494937162D-03, 109 & 1.000000000000000D+00, 0.000000000000000D+00/ 110 data wleb( 19),(gjk(i, 19),i=1,2)/ 111 & 9.793737512487513D-03, 112 & 1.000000000000000D+00, 1.000000000000000D+00/ 113 data wleb( 20),(gjk(i, 20),i=1,2)/ 114 & 8.211737283191111D-03, 115 & 1.851156353447362D-01, 1.851156353447362D-01/ 116 data wleb( 21),(gjk(i, 21),i=1,2)/ 117 & 9.942814891178103D-03, 118 & 6.904210483822922D-01, 6.904210483822922D-01/ 119 data wleb( 22),(gjk(i, 22),i=1,2)/ 120 & 9.595471336070962D-03, 121 & 3.956894730559419D-01, 3.956894730559419D-01/ 122 data wleb( 23),(gjk(i, 23),i=1,2)/ 123 & 9.694996361663029D-03, 124 & 4.783690288121502D-01, 0.000000000000000D+00/ 125C 126C n = 19 127C 128 data wleb( 24),(gjk(i, 24),i=1,2)/ 129 & 5.996313688621381D-04, 130 & 1.000000000000000D+00, 0.000000000000000D+00/ 131 data wleb( 25),(gjk(i, 25),i=1,2)/ 132 & 7.372999718620756D-03, 133 & 1.000000000000000D+00, 1.000000000000000D+00/ 134 data wleb( 26),(gjk(i, 26),i=1,2)/ 135 & 7.210515360144488D-03, 136 & 1.000000000000000D+00, 1.000000000000000D+00/ 137 data wleb( 27),(gjk(i, 27),i=1,2)/ 138 & 7.116355493117555D-03, 139 & 6.764410400114264D-01, 6.764410400114264D-01/ 140 data wleb( 28),(gjk(i, 28),i=1,2)/ 141 & 6.753829486314477D-03, 142 & 4.174961227965453D-01, 4.174961227965453D-01/ 143 data wleb( 29),(gjk(i, 29),i=1,2)/ 144 & 7.574394159054034D-03, 145 & 1.574676672039082D-01, 1.574676672039082D-01/ 146 data wleb( 30),(gjk(i, 30),i=1,2)/ 147 & 6.991087353303262D-03, 148 & 1.403553811713183D-01, 4.493328323269557D-01/ 149C 150C n = 21 151C 152 data wleb( 31),(gjk(i, 31),i=1,2)/ 153 & 5.544842902037365D-03, 154 & 1.000000000000000D+00, 0.000000000000000D+00/ 155 data wleb( 32),(gjk(i, 32),i=1,2)/ 156 & 6.071332770670752D-03, 157 & 1.000000000000000D+00, 1.000000000000000D+00/ 158 data wleb( 33),(gjk(i, 33),i=1,2)/ 159 & 6.383674773515093D-03, 160 & 1.000000000000000D+00, 1.000000000000000D+00/ 161 data wleb( 34),(gjk(i, 34),i=1,2)/ 162 & 5.183387587747790D-03, 163 & 2.551252621114134D-01, 2.551252621114134D-01/ 164 data wleb( 35),(gjk(i, 35),i=1,2)/ 165 & 6.317929009813725D-03, 166 & 6.743601460362766D-01, 6.743601460362766D-01/ 167 data wleb( 36),(gjk(i, 36),i=1,2)/ 168 & 6.201670006589077D-03, 169 & 4.318910696719410D-01, 4.318910696719410D-01/ 170 data wleb( 37),(gjk(i, 37),i=1,2)/ 171 & 5.477143385137348D-03, 172 & 2.613931360335988D-01, 0.000000000000000D+00/ 173 data wleb( 38),(gjk(i, 38),i=1,2)/ 174 & 5.968383987681156D-03, 175 & 4.990453161796037D-01, 1.446630744325115D-01/ 176C 177C n = 23 178C 179 data wleb( 39),(gjk(i, 39),i=1,2)/ 180 & 1.782340447244611D-03, 181 & 1.000000000000000D+00, 0.000000000000000D+00/ 182 data wleb( 40),(gjk(i, 40),i=1,2)/ 183 & 5.716905949977102D-03, 184 & 1.000000000000000D+00, 1.000000000000000D+00/ 185 data wleb( 41),(gjk(i, 41),i=1,2)/ 186 & 5.573383178848738D-03, 187 & 1.000000000000000D+00, 1.000000000000000D+00/ 188 data wleb( 42),(gjk(i, 42),i=1,2)/ 189 & 5.608704082587997D-03, 190 & 6.712973442695226D-01, 6.712973442695226D-01/ 191 data wleb( 43),(gjk(i, 43),i=1,2)/ 192 & 5.158237711805383D-03, 193 & 2.892465627575439D-01, 2.892465627575439D-01/ 194 data wleb( 44),(gjk(i, 44),i=1,2)/ 195 & 5.518771467273614D-03, 196 & 4.446933178717437D-01, 4.446933178717437D-01/ 197 data wleb( 45),(gjk(i, 45),i=1,2)/ 198 & 4.106777028169394D-03, 199 & 1.299335447650067D-01, 1.299335447650067D-01/ 200 data wleb( 46),(gjk(i, 46),i=1,2)/ 201 & 5.051846064614808D-03, 202 & 3.457702197611283D-01, 0.000000000000000D+00/ 203 data wleb( 47),(gjk(i, 47),i=1,2)/ 204 & 5.530248916233094D-03, 205 & 1.590417105383530D-01, 8.360360154824589D-01/ 206C 207C n = 25 208C 209 data wleb( 48),(gjk(i, 48),i=1,2)/ 210 & -5.522639919727325D-02, 211 & 1.000000000000000D+00, 0.000000000000000D+00/ 212 data wleb( 49),(gjk(i, 49),i=1,2)/ 213 & 4.450274607445226D-03, 214 & 1.000000000000000D+00, 1.000000000000000D+00/ 215 data wleb( 50),(gjk(i, 50),i=1,2)/ 216 & 4.496841067921404D-03, 217 & 4.492044687397611D-01, 4.492044687397611D-01/ 218 data wleb( 51),(gjk(i, 51),i=1,2)/ 219 & 5.049153450478750D-03, 220 & 2.520419490210201D-01, 2.520419490210201D-01/ 221 data wleb( 52),(gjk(i, 52),i=1,2)/ 222 & 3.976408018051883D-03, 223 & 6.981906658447242D-01, 6.981906658447242D-01/ 224 data wleb( 53),(gjk(i, 53),i=1,2)/ 225 & 4.401400650381014D-03, 226 & 6.587405243460960D-01, 6.587405243460960D-01/ 227 data wleb( 54),(gjk(i, 54),i=1,2)/ 228 & 1.724544350544401D-02, 229 & 4.038544050097660D-02, 4.038544050097660D-02/ 230 data wleb( 55),(gjk(i, 55),i=1,2)/ 231 & 4.231083095357343D-03, 232 & 5.823842309715584D-01, 0.000000000000000D+00/ 233 data wleb( 56),(gjk(i, 56),i=1,2)/ 234 & 5.198069864064399D-03, 235 & 3.545877390518688D-01, 0.000000000000000D+00/ 236 data wleb( 57),(gjk(i, 57),i=1,2)/ 237 & 4.695720972568883D-03, 238 & 2.272181808998187D-01, 4.864661535886647D-01/ 239C 240C n = 27 241C 242 data wleb( 58),(gjk(i, 58),i=1,2)/ 243 & -1.313769127326952D-03, 244 & 1.000000000000000D+00, 0.000000000000000D+00/ 245 data wleb( 59),(gjk(i, 59),i=1,2)/ 246 & -2.522728704859336D-03, 247 & 1.000000000000000D+00, 1.000000000000000D+00/ 248 data wleb( 60),(gjk(i, 60),i=1,2)/ 249 & 4.186853881700583D-03, 250 & 1.000000000000000D+00, 1.000000000000000D+00/ 251 data wleb( 61),(gjk(i, 61),i=1,2)/ 252 & 5.315167977810885D-03, 253 & 7.039373391585475D-01, 7.039373391585475D-01/ 254 data wleb( 62),(gjk(i, 62),i=1,2)/ 255 & 4.047142377086219D-03, 256 & 1.012526248572414D-01, 1.012526248572414D-01/ 257 data wleb( 63),(gjk(i, 63),i=1,2)/ 258 & 4.112482394406990D-03, 259 & 4.647448726420539D-01, 4.647448726420539D-01/ 260 data wleb( 64),(gjk(i, 64),i=1,2)/ 261 & 3.595584899758782D-03, 262 & 3.277420654971629D-01, 3.277420654971629D-01/ 263 data wleb( 65),(gjk(i, 65),i=1,2)/ 264 & 4.256131351428158D-03, 265 & 6.620338663699974D-01, 6.620338663699974D-01/ 266 data wleb( 66),(gjk(i, 66),i=1,2)/ 267 & 4.229582700647240D-03, 268 & 8.506508083520399D-01, 0.000000000000000D+00/ 269 data wleb( 67),(gjk(i, 67),i=1,2)/ 270 & 4.080914225780505D-03, 271 & 3.233484542692899D-01, 1.153112011009701D-01/ 272 data wleb( 68),(gjk(i, 68),i=1,2)/ 273 & 4.071467593830964D-03, 274 & 2.314790158712601D-01, 5.244939240922365D-01/ 275C 276C n = 29 277C 278 data wleb( 69),(gjk(i, 69),i=1,2)/ 279 & 8.545911725128148D-04, 280 & 1.000000000000000D+00, 0.000000000000000D+00/ 281 data wleb( 70),(gjk(i, 70),i=1,2)/ 282 & 3.599119285025571D-03, 283 & 1.000000000000000D+00, 1.000000000000000D+00/ 284 data wleb( 71),(gjk(i, 71),i=1,2)/ 285 & 3.449788424305883D-03, 286 & 3.515640345570105D-01, 3.515640345570105D-01/ 287 data wleb( 72),(gjk(i, 72),i=1,2)/ 288 & 3.604822601419882D-03, 289 & 6.566329410219612D-01, 6.566329410219612D-01/ 290 data wleb( 73),(gjk(i, 73),i=1,2)/ 291 & 3.576729661743367D-03, 292 & 4.729054132581005D-01, 4.729054132581005D-01/ 293 data wleb( 74),(gjk(i, 74),i=1,2)/ 294 & 2.352101413689164D-03, 295 & 9.618308522614784D-02, 9.618308522614784D-02/ 296 data wleb( 75),(gjk(i, 75),i=1,2)/ 297 & 3.108953122413675D-03, 298 & 2.219645236294178D-01, 2.219645236294178D-01/ 299 data wleb( 76),(gjk(i, 76),i=1,2)/ 300 & 3.650045807677255D-03, 301 & 7.011766416089545D-01, 7.011766416089545D-01/ 302 data wleb( 77),(gjk(i, 77),i=1,2)/ 303 & 2.982344963171804D-03, 304 & 2.644152887060663D-01, 0.000000000000000D+00/ 305 data wleb( 78),(gjk(i, 78),i=1,2)/ 306 & 3.600820932216460D-03, 307 & 5.718955891878961D-01, 0.000000000000000D+00/ 308 data wleb( 79),(gjk(i, 79),i=1,2)/ 309 & 3.571540554273387D-03, 310 & 2.510034751770465D-01, 8.000727494073951D-01/ 311 data wleb( 80),(gjk(i, 80),i=1,2)/ 312 & 3.392312205006170D-03, 313 & 1.233548532583327D-01, 4.127724083168531D-01/ 314C 315C n = 31 316C 317 data wleb( 81),(gjk(i, 81),i=1,2)/ 318 & 3.006796749453936D-03, 319 & 1.000000000000000D+00, 0.000000000000000D+00/ 320 data wleb( 82),(gjk(i, 82),i=1,2)/ 321 & 3.050627745650771D-03, 322 & 1.000000000000000D+00, 1.000000000000000D+00/ 323 data wleb( 83),(gjk(i, 83),i=1,2)/ 324 & 1.621104600288991D-03, 325 & 7.068965463912316D-01, 7.068965463912316D-01/ 326 data wleb( 84),(gjk(i, 84),i=1,2)/ 327 & 3.005701484901752D-03, 328 & 4.794682625712025D-01, 4.794682625712025D-01/ 329 data wleb( 85),(gjk(i, 85),i=1,2)/ 330 & 2.990992529653774D-03, 331 & 1.927533154878019D-01, 1.927533154878019D-01/ 332 data wleb( 86),(gjk(i, 86),i=1,2)/ 333 & 2.982170644107595D-03, 334 & 6.930357961327123D-01, 6.930357961327123D-01/ 335 data wleb( 87),(gjk(i, 87),i=1,2)/ 336 & 2.721564237310992D-03, 337 & 3.608302115520091D-01, 3.608302115520091D-01/ 338 data wleb( 88),(gjk(i, 88),i=1,2)/ 339 & 3.033513795811141D-03, 340 & 6.498486161496169D-01, 6.498486161496169D-01/ 341 data wleb( 89),(gjk(i, 89),i=1,2)/ 342 & 3.007949555218533D-03, 343 & 1.932945013230339D-01, 0.000000000000000D+00/ 344 data wleb( 90),(gjk(i, 90),i=1,2)/ 345 & 2.881964603055307D-03, 346 & 3.800494919899303D-01, 0.000000000000000D+00/ 347 data wleb( 91),(gjk(i, 91),i=1,2)/ 348 & 2.958357626535696D-03, 349 & 2.899558825499574D-01, 7.934537856582315D-01/ 350 data wleb( 92),(gjk(i, 92),i=1,2)/ 351 & 3.036020026407088D-03, 352 & 9.684121455103957D-02, 8.280801506686862D-01/ 353 data wleb( 93),(gjk(i, 93),i=1,2)/ 354 & 2.832187403926303D-03, 355 & 1.833434647041659D-01, 9.074658265305127D-01/ 356C 357C n = 35 358C 359 data wleb( 94),(gjk(i, 94),i=1,2)/ 360 & 5.265897968224436D-04, 361 & 1.000000000000000D+00, 0.000000000000000D+00/ 362 data wleb( 95),(gjk(i, 95),i=1,2)/ 363 & 2.548219972002607D-03, 364 & 1.000000000000000D+00, 1.000000000000000D+00/ 365 data wleb( 96),(gjk(i, 96),i=1,2)/ 366 & 2.512317418927307D-03, 367 & 1.000000000000000D+00, 1.000000000000000D+00/ 368 data wleb( 97),(gjk(i, 97),i=1,2)/ 369 & 2.530403801186355D-03, 370 & 6.909346307509111D-01, 6.909346307509111D-01/ 371 data wleb( 98),(gjk(i, 98),i=1,2)/ 372 & 2.014279020918528D-03, 373 & 1.774836054609158D-01, 1.774836054609158D-01/ 374 data wleb( 99),(gjk(i, 99),i=1,2)/ 375 & 2.501725168402936D-03, 376 & 4.914342637784746D-01, 4.914342637784746D-01/ 377 data wleb( 100),(gjk(i, 100),i=1,2)/ 378 & 2.513267174597564D-03, 379 & 6.456664707424256D-01, 6.456664707424256D-01/ 380 data wleb( 101),(gjk(i, 101),i=1,2)/ 381 & 2.302694782227416D-03, 382 & 2.861289010307638D-01, 2.861289010307638D-01/ 383 data wleb( 102),(gjk(i, 102),i=1,2)/ 384 & 1.462495621594614D-03, 385 & 7.568084367178018D-02, 7.568084367178018D-02/ 386 data wleb( 103),(gjk(i, 103),i=1,2)/ 387 & 2.445373437312980D-03, 388 & 3.927259763368002D-01, 3.927259763368002D-01/ 389 data wleb( 104),(gjk(i, 104),i=1,2)/ 390 & 2.417442375638981D-03, 391 & 8.818132877794288D-01, 0.000000000000000D+00/ 392 data wleb( 105),(gjk(i, 105),i=1,2)/ 393 & 1.910951282179532D-03, 394 & 9.776428111182649D-01, 0.000000000000000D+00/ 395 data wleb( 106),(gjk(i, 106),i=1,2)/ 396 & 2.416930044324775D-03, 397 & 2.054823696403044D-01, 8.689460322872412D-01/ 398 data wleb( 107),(gjk(i, 107),i=1,2)/ 399 & 2.512236854563495D-03, 400 & 5.905157048925271D-01, 7.999278543857286D-01/ 401 data wleb( 108),(gjk(i, 108),i=1,2)/ 402 & 2.496644054553086D-03, 403 & 5.550152361076807D-01, 7.717462626915901D-01/ 404 data wleb( 109),(gjk(i, 109),i=1,2)/ 405 & 2.236607760437849D-03, 406 & 9.371809858553722D-01, 3.344363145343455D-01/ 407C 408C n = 41 409C 410 data wleb( 110),(gjk(i, 110),i=1,2)/ 411 & 3.095121295306187D-04, 412 & 1.000000000000000D+00, 0.000000000000000D+00/ 413 data wleb( 111),(gjk(i, 111),i=1,2)/ 414 & 1.852379698597489D-03, 415 & 1.000000000000000D+00, 1.000000000000000D+00/ 416 data wleb( 112),(gjk(i, 112),i=1,2)/ 417 & 1.871790639277744D-03, 418 & 7.040954938227469D-01, 7.040954938227469D-01/ 419 data wleb( 113),(gjk(i, 113),i=1,2)/ 420 & 1.858812585438317D-03, 421 & 6.807744066455244D-01, 6.807744066455244D-01/ 422 data wleb( 114),(gjk(i, 114),i=1,2)/ 423 & 1.852028828296213D-03, 424 & 6.372546939258752D-01, 6.372546939258752D-01/ 425 data wleb( 115),(gjk(i, 115),i=1,2)/ 426 & 1.846715956151242D-03, 427 & 5.044419707800358D-01, 5.044419707800358D-01/ 428 data wleb( 116),(gjk(i, 116),i=1,2)/ 429 & 1.818471778162769D-03, 430 & 4.215761784010967D-01, 4.215761784010967D-01/ 431 data wleb( 117),(gjk(i, 117),i=1,2)/ 432 & 1.749564657281154D-03, 433 & 3.317920736472123D-01, 3.317920736472123D-01/ 434 data wleb( 118),(gjk(i, 118),i=1,2)/ 435 & 1.617210647254411D-03, 436 & 2.384736701421887D-01, 2.384736701421887D-01/ 437 data wleb( 119),(gjk(i, 119),i=1,2)/ 438 & 1.384737234851692D-03, 439 & 1.459036449157763D-01, 1.459036449157763D-01/ 440 data wleb( 120),(gjk(i, 120),i=1,2)/ 441 & 9.764331165051050D-04, 442 & 6.095034115507196D-02, 6.095034115507196D-02/ 443 data wleb( 121),(gjk(i, 121),i=1,2)/ 444 & 1.857161196774078D-03, 445 & 6.116843442009876D-01, 0.000000000000000D+00/ 446 data wleb( 122),(gjk(i, 122),i=1,2)/ 447 & 1.705153996395864D-03, 448 & 3.964755348199858D-01, 0.000000000000000D+00/ 449 data wleb( 123),(gjk(i, 123),i=1,2)/ 450 & 1.300321685886048D-03, 451 & 1.724782009907724D-01, 0.000000000000000D+00/ 452 data wleb( 124),(gjk(i, 124),i=1,2)/ 453 & 1.842866472905286D-03, 454 & 5.610263808622060D-01, 3.518280927733519D-01/ 455 data wleb( 125),(gjk(i, 125),i=1,2)/ 456 & 1.802658934377451D-03, 457 & 4.742392842551980D-01, 2.634716655937950D-01/ 458 data wleb( 126),(gjk(i, 126),i=1,2)/ 459 & 1.849830560443660D-03, 460 & 5.984126497885380D-01, 1.816640840360209D-01/ 461 data wleb( 127),(gjk(i, 127),i=1,2)/ 462 & 1.713904507106709D-03, 463 & 3.791035407695563D-01, 1.720795225656878D-01/ 464 data wleb( 128),(gjk(i, 128),i=1,2)/ 465 & 1.555213603396808D-03, 466 & 2.778673190586244D-01, 8.213021581932511D-02/ 467 data wleb( 129),(gjk(i, 129),i=1,2)/ 468 & 1.802239128008525D-03, 469 & 5.033564271075117D-01, 8.999205842074876D-02/ 470C 471C n = 47 472C 473 data wleb( 130),(gjk(i, 130),i=1,2)/ 474 & 2.192942088181184D-04, 475 & 1.000000000000000D+00, 0.000000000000000D+00/ 476 data wleb( 131),(gjk(i, 131),i=1,2)/ 477 & 1.436433617319080D-03, 478 & 1.000000000000000D+00, 1.000000000000000D+00/ 479 data wleb( 132),(gjk(i, 132),i=1,2)/ 480 & 1.421940344335877D-03, 481 & 1.000000000000000D+00, 1.000000000000000D+00/ 482 data wleb( 133),(gjk(i, 133),i=1,2)/ 483 & 6.798123511050502D-04, 484 & 5.087204410502360D-02, 5.087204410502360D-02/ 485 data wleb( 134),(gjk(i, 134),i=1,2)/ 486 & 9.913184235294911D-04, 487 & 1.228198790178831D-01, 1.228198790178831D-01/ 488 data wleb( 135),(gjk(i, 135),i=1,2)/ 489 & 1.180207833238949D-03, 490 & 2.026890814408786D-01, 2.026890814408786D-01/ 491 data wleb( 136),(gjk(i, 136),i=1,2)/ 492 & 1.296599602080921D-03, 493 & 2.847745156464294D-01, 2.847745156464294D-01/ 494 data wleb( 137),(gjk(i, 137),i=1,2)/ 495 & 1.365871427428316D-03, 496 & 3.656719078978026D-01, 3.656719078978026D-01/ 497 data wleb( 138),(gjk(i, 138),i=1,2)/ 498 & 1.402988604775325D-03, 499 & 4.428264886713469D-01, 4.428264886713469D-01/ 500 data wleb( 139),(gjk(i, 139),i=1,2)/ 501 & 1.418645563595609D-03, 502 & 5.140619627249735D-01, 5.140619627249735D-01/ 503 data wleb( 140),(gjk(i, 140),i=1,2)/ 504 & 1.421376741851662D-03, 505 & 6.306401219166803D-01, 6.306401219166803D-01/ 506 data wleb( 141),(gjk(i, 141),i=1,2)/ 507 & 1.423996475490962D-03, 508 & 6.716883332022612D-01, 6.716883332022612D-01/ 509 data wleb( 142),(gjk(i, 142),i=1,2)/ 510 & 1.431554042178567D-03, 511 & 6.979792685336881D-01, 6.979792685336881D-01/ 512 data wleb( 143),(gjk(i, 143),i=1,2)/ 513 & 9.254401499865368D-04, 514 & 1.446865674195309D-01, 0.000000000000000D+00/ 515 data wleb( 144),(gjk(i, 144),i=1,2)/ 516 & 1.250239995053509D-03, 517 & 3.390263475411216D-01, 0.000000000000000D+00/ 518 data wleb( 145),(gjk(i, 145),i=1,2)/ 519 & 1.394365843329230D-03, 520 & 5.335804651263506D-01, 0.000000000000000D+00/ 521 data wleb( 146),(gjk(i, 146),i=1,2)/ 522 & 1.127089094671749D-03, 523 & 6.944024393349413D-02, 2.355187894242326D-01/ 524 data wleb( 147),(gjk(i, 147),i=1,2)/ 525 & 1.345753760910670D-03, 526 & 2.269004109529460D-01, 4.102182474045730D-01/ 527 data wleb( 148),(gjk(i, 148),i=1,2)/ 528 & 1.424957283316783D-03, 529 & 8.025574607775339D-02, 6.214302417481605D-01/ 530 data wleb( 149),(gjk(i, 149),i=1,2)/ 531 & 1.261523341237750D-03, 532 & 1.467999527896572D-01, 3.245284345717394D-01/ 533 data wleb( 150),(gjk(i, 150),i=1,2)/ 534 & 1.392547106052696D-03, 535 & 1.571507769824727D-01, 5.224482189696630D-01/ 536 data wleb( 151),(gjk(i, 151),i=1,2)/ 537 & 1.418761677877656D-03, 538 & 2.365702993157246D-01, 6.017546634089558D-01/ 539 data wleb( 152),(gjk(i, 152),i=1,2)/ 540 & 1.338366684479554D-03, 541 & 7.714815866765733D-02, 4.346575516141163D-01/ 542 data wleb( 153),(gjk(i, 153),i=1,2)/ 543 & 1.393700862676131D-03, 544 & 3.062936666210730D-01, 4.908826589037616D-01/ 545 data wleb( 154),(gjk(i, 154),i=1,2)/ 546 & 1.415914757466932D-03, 547 & 3.822477379524787D-01, 5.648768149099500D-01/ 548C 549C n = 53 550C 551 data wleb( 155),(gjk(i, 155),i=1,2)/ 552 & 1.438294190527431D-04, 553 & 1.000000000000000D+00, 0.000000000000000D+00/ 554 data wleb( 156),(gjk(i, 156),i=1,2)/ 555 & 1.125772288287004D-03, 556 & 1.000000000000000D+00, 1.000000000000000D+00/ 557 data wleb( 157),(gjk(i, 157),i=1,2)/ 558 & 4.948029341949241D-04, 559 & 4.292963545341347D-02, 4.292963545341347D-02/ 560 data wleb( 158),(gjk(i, 158),i=1,2)/ 561 & 7.357990109125470D-04, 562 & 1.051426854086404D-01, 1.051426854086404D-01/ 563 data wleb( 159),(gjk(i, 159),i=1,2)/ 564 & 8.889132771304384D-04, 565 & 1.750024867623087D-01, 1.750024867623087D-01/ 566 data wleb( 160),(gjk(i, 160),i=1,2)/ 567 & 9.888347838921435D-04, 568 & 2.477653379650257D-01, 2.477653379650257D-01/ 569 data wleb( 161),(gjk(i, 161),i=1,2)/ 570 & 1.053299681709471D-03, 571 & 3.206567123955957D-01, 3.206567123955957D-01/ 572 data wleb( 162),(gjk(i, 162),i=1,2)/ 573 & 1.092778807014578D-03, 574 & 3.916520749849983D-01, 3.916520749849983D-01/ 575 data wleb( 163),(gjk(i, 163),i=1,2)/ 576 & 1.114389394063227D-03, 577 & 4.590825874187624D-01, 4.590825874187624D-01/ 578 data wleb( 164),(gjk(i, 164),i=1,2)/ 579 & 1.123724788051555D-03, 580 & 5.214563888415861D-01, 5.214563888415861D-01/ 581 data wleb( 165),(gjk(i, 165),i=1,2)/ 582 & 1.125239325243814D-03, 583 & 6.253170244654199D-01, 6.253170244654199D-01/ 584 data wleb( 166),(gjk(i, 166),i=1,2)/ 585 & 1.126153271815905D-03, 586 & 6.637926744523170D-01, 6.637926744523170D-01/ 587 data wleb( 167),(gjk(i, 167),i=1,2)/ 588 & 1.130286931123841D-03, 589 & 6.910410398498301D-01, 6.910410398498301D-01/ 590 data wleb( 168),(gjk(i, 168),i=1,2)/ 591 & 1.134986534363955D-03, 592 & 7.052907007457760D-01, 7.052907007457760D-01/ 593 data wleb( 169),(gjk(i, 169),i=1,2)/ 594 & 6.823367927109931D-04, 595 & 1.236686762657990D-01, 0.000000000000000D+00/ 596 data wleb( 170),(gjk(i, 170),i=1,2)/ 597 & 9.454158160447096D-04, 598 & 2.940777114468387D-01, 0.000000000000000D+00/ 599 data wleb( 171),(gjk(i, 171),i=1,2)/ 600 & 1.074429975385679D-03, 601 & 4.697753849207649D-01, 0.000000000000000D+00/ 602 data wleb( 172),(gjk(i, 172),i=1,2)/ 603 & 1.129300086569132D-03, 604 & 6.334563241139567D-01, 0.000000000000000D+00/ 605 data wleb( 173),(gjk(i, 173),i=1,2)/ 606 & 8.436884500901954D-04, 607 & 5.974048614181342D-02, 2.029128752777523D-01/ 608 data wleb( 174),(gjk(i, 174),i=1,2)/ 609 & 1.075255720448885D-03, 610 & 1.375760408473636D-01, 4.602621942484054D-01/ 611 data wleb( 175),(gjk(i, 175),i=1,2)/ 612 & 1.108577236864462D-03, 613 & 3.391016526336286D-01, 5.030673999662036D-01/ 614 data wleb( 176),(gjk(i, 176),i=1,2)/ 615 & 9.566475323783357D-04, 616 & 1.271675191439820D-01, 2.817606422442134D-01/ 617 data wleb( 177),(gjk(i, 177),i=1,2)/ 618 & 1.080663250717391D-03, 619 & 2.693120740413512D-01, 4.331561291720157D-01/ 620 data wleb( 178),(gjk(i, 178),i=1,2)/ 621 & 1.126797131196295D-03, 622 & 1.419786452601918D-01, 6.256167358580814D-01/ 623 data wleb( 179),(gjk(i, 179),i=1,2)/ 624 & 1.022568715358061D-03, 625 & 6.709284600738255D-02, 3.798395216859157D-01/ 626 data wleb( 180),(gjk(i, 180),i=1,2)/ 627 & 1.108960267713108D-03, 628 & 7.057738183256172D-02, 5.517505421423520D-01/ 629 data wleb( 181),(gjk(i, 181),i=1,2)/ 630 & 1.122790653435766D-03, 631 & 2.783888477882155D-01, 6.029619156159187D-01/ 632 data wleb( 182),(gjk(i, 182),i=1,2)/ 633 & 1.032401847117460D-03, 634 & 1.979578938917407D-01, 3.589606329589096D-01/ 635 data wleb( 183),(gjk(i, 183),i=1,2)/ 636 & 1.107249382283854D-03, 637 & 2.087307061103274D-01, 5.348666438135476D-01/ 638 data wleb( 184),(gjk(i, 184),i=1,2)/ 639 & 1.121780048519972D-03, 640 & 4.055122137872836D-01, 5.674997546074373D-01/ 641C 642C n = 59 643C 644 data wleb( 185),(gjk(i, 185),i=1,2)/ 645 & 1.105189233267572D-04, 646 & 1.000000000000000D+00, 0.000000000000000D+00/ 647 data wleb( 186),(gjk(i, 186),i=1,2)/ 648 & 9.205232738090741D-04, 649 & 1.000000000000000D+00, 1.000000000000000D+00/ 650 data wleb( 187),(gjk(i, 187),i=1,2)/ 651 & 9.133159786443561D-04, 652 & 1.000000000000000D+00, 1.000000000000000D+00/ 653 data wleb( 188),(gjk(i, 188),i=1,2)/ 654 & 3.690421898017899D-04, 655 & 3.712636449657089D-02, 3.712636449657089D-02/ 656 data wleb( 189),(gjk(i, 189),i=1,2)/ 657 & 5.603990928680660D-04, 658 & 9.140060412262223D-02, 9.140060412262223D-02/ 659 data wleb( 190),(gjk(i, 190),i=1,2)/ 660 & 6.865297629282609D-04, 661 & 1.531077852469906D-01, 1.531077852469906D-01/ 662 data wleb( 191),(gjk(i, 191),i=1,2)/ 663 & 7.720338551145630D-04, 664 & 2.180928891660612D-01, 2.180928891660612D-01/ 665 data wleb( 192),(gjk(i, 192),i=1,2)/ 666 & 8.301545958894795D-04, 667 & 2.839874532200175D-01, 2.839874532200175D-01/ 668 data wleb( 193),(gjk(i, 193),i=1,2)/ 669 & 8.686692550179628D-04, 670 & 3.491177600963764D-01, 3.491177600963764D-01/ 671 data wleb( 194),(gjk(i, 194),i=1,2)/ 672 & 8.927076285846890D-04, 673 & 4.121431461444309D-01, 4.121431461444309D-01/ 674 data wleb( 195),(gjk(i, 195),i=1,2)/ 675 & 9.060820238568219D-04, 676 & 4.718993627149127D-01, 4.718993627149127D-01/ 677 data wleb( 196),(gjk(i, 196),i=1,2)/ 678 & 9.119777254940867D-04, 679 & 5.273145452842337D-01, 5.273145452842337D-01/ 680 data wleb( 197),(gjk(i, 197),i=1,2)/ 681 & 9.128720138604181D-04, 682 & 6.209475332444019D-01, 6.209475332444019D-01/ 683 data wleb( 198),(gjk(i, 198),i=1,2)/ 684 & 9.130714935691735D-04, 685 & 6.569722711857291D-01, 6.569722711857291D-01/ 686 data wleb( 199),(gjk(i, 199),i=1,2)/ 687 & 9.152873784554116D-04, 688 & 6.841788309070143D-01, 6.841788309070143D-01/ 689 data wleb( 200),(gjk(i, 200),i=1,2)/ 690 & 9.187436274321654D-04, 691 & 7.012604330123631D-01, 7.012604330123631D-01/ 692 data wleb( 201),(gjk(i, 201),i=1,2)/ 693 & 5.176977312965694D-04, 694 & 1.072382215478166D-01, 0.000000000000000D+00/ 695 data wleb( 202),(gjk(i, 202),i=1,2)/ 696 & 7.331143682101417D-04, 697 & 2.582068959496968D-01, 0.000000000000000D+00/ 698 data wleb( 203),(gjk(i, 203),i=1,2)/ 699 & 8.463232836379928D-04, 700 & 4.172752955306717D-01, 0.000000000000000D+00/ 701 data wleb( 204),(gjk(i, 204),i=1,2)/ 702 & 9.031122694253992D-04, 703 & 5.700366911792503D-01, 0.000000000000000D+00/ 704 data wleb( 205),(gjk(i, 205),i=1,2)/ 705 & 6.485778453163257D-04, 706 & 9.827986018263947D-01, 1.771774022615325D-01/ 707 data wleb( 206),(gjk(i, 206),i=1,2)/ 708 & 7.435030910982369D-04, 709 & 9.624249230326228D-01, 2.475716463426288D-01/ 710 data wleb( 207),(gjk(i, 207),i=1,2)/ 711 & 7.998527891839054D-04, 712 & 9.402007994128811D-01, 3.354616289066489D-01/ 713 data wleb( 208),(gjk(i, 208),i=1,2)/ 714 & 8.101731497468018D-04, 715 & 9.320822040143202D-01, 3.173615246611977D-01/ 716 data wleb( 209),(gjk(i, 209),i=1,2)/ 717 & 8.483389574594330D-04, 718 & 9.043674199393299D-01, 4.090268427085357D-01/ 719 data wleb( 210),(gjk(i, 210),i=1,2)/ 720 & 8.556299257311812D-04, 721 & 8.912407560074747D-01, 3.854291150669224D-01/ 722 data wleb( 211),(gjk(i, 211),i=1,2)/ 723 & 8.803208679738260D-04, 724 & 8.676435628462708D-01, 4.932221184851285D-01/ 725 data wleb( 212),(gjk(i, 212),i=1,2)/ 726 & 8.811048182425720D-04, 727 & 8.581979986041619D-01, 4.785320675922435D-01/ 728 data wleb( 213),(gjk(i, 213),i=1,2)/ 729 & 8.850282341265444D-04, 730 & 8.396753624049856D-01, 4.507422593157064D-01/ 731 data wleb( 214),(gjk(i, 214),i=1,2)/ 732 & 9.021342299040653D-04, 733 & 8.165288564022188D-01, 5.632123020762100D-01/ 734 data wleb( 215),(gjk(i, 215),i=1,2)/ 735 & 9.010091677105086D-04, 736 & 8.015469370783529D-01, 5.434303569693900D-01/ 737 data wleb( 216),(gjk(i, 216),i=1,2)/ 738 & 9.022692938426915D-04, 739 & 7.773563069070351D-01, 5.123518486419871D-01/ 740 data wleb( 217),(gjk(i, 217),i=1,2)/ 741 & 9.158016174693465D-04, 742 & 7.661621213900394D-01, 6.394279634749102D-01/ 743 data wleb( 218),(gjk(i, 218),i=1,2)/ 744 & 9.131578003189435D-04, 745 & 7.553584143533510D-01, 6.269805509024392D-01/ 746 data wleb( 219),(gjk(i, 219),i=1,2)/ 747 & 9.107813579482705D-04, 748 & 7.344305757559503D-01, 6.031161693096310D-01/ 749 data wleb( 220),(gjk(i, 220),i=1,2)/ 750 & 9.105760258970126D-04, 751 & 7.043837184021765D-01, 5.693702498468441D-01/ 752C 753C n = 65 754C 755 data wleb( 221),(gjk(i, 221),i=1,2)/ 756 & 7.777160743261247D-05, 757 & 1.000000000000000D+00, 0.000000000000000D+00/ 758 data wleb( 222),(gjk(i, 222),i=1,2)/ 759 & 7.557646413004701D-04, 760 & 1.000000000000000D+00, 1.000000000000000D+00/ 761 data wleb( 223),(gjk(i, 223),i=1,2)/ 762 & 2.841633806090617D-04, 763 & 3.229290663413854D-02, 3.229290663413854D-02/ 764 data wleb( 224),(gjk(i, 224),i=1,2)/ 765 & 4.374419127053555D-04, 766 & 8.036733271462222D-02, 8.036733271462222D-02/ 767 data wleb( 225),(gjk(i, 225),i=1,2)/ 768 & 5.417174740872172D-04, 769 & 1.354289960531653D-01, 1.354289960531653D-01/ 770 data wleb( 226),(gjk(i, 226),i=1,2)/ 771 & 6.148000891358593D-04, 772 & 1.938963861114426D-01, 1.938963861114426D-01/ 773 data wleb( 227),(gjk(i, 227),i=1,2)/ 774 & 6.664394485800704D-04, 775 & 2.537343715011275D-01, 2.537343715011275D-01/ 776 data wleb( 228),(gjk(i, 228),i=1,2)/ 777 & 7.025039356923220D-04, 778 & 3.135251434752570D-01, 3.135251434752570D-01/ 779 data wleb( 229),(gjk(i, 229),i=1,2)/ 780 & 7.268511789249627D-04, 781 & 3.721558339375338D-01, 3.721558339375338D-01/ 782 data wleb( 230),(gjk(i, 230),i=1,2)/ 783 & 7.422637534208629D-04, 784 & 4.286809575195696D-01, 4.286809575195696D-01/ 785 data wleb( 231),(gjk(i, 231),i=1,2)/ 786 & 7.509545035841214D-04, 787 & 4.822510128282994D-01, 4.822510128282994D-01/ 788 data wleb( 232),(gjk(i, 232),i=1,2)/ 789 & 7.548535057718401D-04, 790 & 5.320679333566263D-01, 5.320679333566263D-01/ 791 data wleb( 233),(gjk(i, 233),i=1,2)/ 792 & 7.554088969774001D-04, 793 & 6.172998195394274D-01, 6.172998195394274D-01/ 794 data wleb( 234),(gjk(i, 234),i=1,2)/ 795 & 7.553147174442808D-04, 796 & 6.510679849127481D-01, 6.510679849127481D-01/ 797 data wleb( 235),(gjk(i, 235),i=1,2)/ 798 & 7.564767653292297D-04, 799 & 6.777315251687360D-01, 6.777315251687360D-01/ 800 data wleb( 236),(gjk(i, 236),i=1,2)/ 801 & 7.587991808518730D-04, 802 & 6.963109410648741D-01, 6.963109410648741D-01/ 803 data wleb( 237),(gjk(i, 237),i=1,2)/ 804 & 7.608261832033027D-04, 805 & 7.058935009831749D-01, 7.058935009831749D-01/ 806 data wleb( 238),(gjk(i, 238),i=1,2)/ 807 & 4.021680447874916D-04, 808 & 9.955546194091857D-01, 0.000000000000000D+00/ 809 data wleb( 239),(gjk(i, 239),i=1,2)/ 810 & 5.804871793945964D-04, 811 & 9.734115901794209D-01, 0.000000000000000D+00/ 812 data wleb( 240),(gjk(i, 240),i=1,2)/ 813 & 6.792151955945159D-04, 814 & 9.275693732388626D-01, 0.000000000000000D+00/ 815 data wleb( 241),(gjk(i, 241),i=1,2)/ 816 & 7.336741211286294D-04, 817 & 8.568022422795103D-01, 0.000000000000000D+00/ 818 data wleb( 242),(gjk(i, 242),i=1,2)/ 819 & 7.581866300989608D-04, 820 & 7.623495553719372D-01, 0.000000000000000D+00/ 821 data wleb( 243),(gjk(i, 243),i=1,2)/ 822 & 7.538257859800743D-04, 823 & 5.707522908892223D-01, 4.387028039889501D-01/ 824 data wleb( 244),(gjk(i, 244),i=1,2)/ 825 & 7.483517247053123D-04, 826 & 5.196463388403083D-01, 3.858908414762617D-01/ 827 data wleb( 245),(gjk(i, 245),i=1,2)/ 828 & 7.371763661112059D-04, 829 & 4.646337531215351D-01, 3.301937372343854D-01/ 830 data wleb( 246),(gjk(i, 246),i=1,2)/ 831 & 7.183448895756934D-04, 832 & 4.063901697557691D-01, 2.725423573563777D-01/ 833 data wleb( 247),(gjk(i, 247),i=1,2)/ 834 & 6.895815529822191D-04, 835 & 3.456329466643087D-01, 2.139510237495250D-01/ 836 data wleb( 248),(gjk(i, 248),i=1,2)/ 837 & 6.480105801792886D-04, 838 & 2.831395121050332D-01, 1.555922309786647D-01/ 839 data wleb( 249),(gjk(i, 249),i=1,2)/ 840 & 5.897558896594636D-04, 841 & 2.197682022925330D-01, 9.892878979686097D-02/ 842 data wleb( 250),(gjk(i, 250),i=1,2)/ 843 & 5.095708849247346D-04, 844 & 1.564696098650355D-01, 4.598642910675510D-02/ 845 data wleb( 251),(gjk(i, 251),i=1,2)/ 846 & 7.536906428909755D-04, 847 & 6.027356673721295D-01, 3.376625140173426D-01/ 848 data wleb( 252),(gjk(i, 252),i=1,2)/ 849 & 7.472505965575118D-04, 850 & 5.496032320255096D-01, 2.822301309727988D-01/ 851 data wleb( 253),(gjk(i, 253),i=1,2)/ 852 & 7.343017132279698D-04, 853 & 4.921707755234567D-01, 2.248632342592540D-01/ 854 data wleb( 254),(gjk(i, 254),i=1,2)/ 855 & 7.130871582177445D-04, 856 & 4.309422998598483D-01, 1.666224723456479D-01/ 857 data wleb( 255),(gjk(i, 255),i=1,2)/ 858 & 6.817022032112776D-04, 859 & 3.664108182313672D-01, 1.086964901822169D-01/ 860 data wleb( 256),(gjk(i, 256),i=1,2)/ 861 & 6.380941145604121D-04, 862 & 2.990189057758436D-01, 5.251989784120085D-02/ 863 data wleb( 257),(gjk(i, 257),i=1,2)/ 864 & 7.550381377920310D-04, 865 & 6.268724013144998D-01, 2.297523657550023D-01/ 866 data wleb( 258),(gjk(i, 258),i=1,2)/ 867 & 7.478646640144802D-04, 868 & 5.707324144834607D-01, 1.723080607093800D-01/ 869 data wleb( 259),(gjk(i, 259),i=1,2)/ 870 & 7.335918720601220D-04, 871 & 5.096360901960365D-01, 1.140238465390513D-01/ 872 data wleb( 260),(gjk(i, 260),i=1,2)/ 873 & 7.110120527658118D-04, 874 & 4.438729938312456D-01, 5.611522095882537D-02/ 875 data wleb( 261),(gjk(i, 261),i=1,2)/ 876 & 7.571363978689501D-04, 877 & 6.419978471082389D-01, 1.164174423140873D-01/ 878 data wleb( 262),(gjk(i, 262),i=1,2)/ 879 & 7.489908329079233D-04, 880 & 5.817218061802611D-01, 5.797589531445219D-02/ 881C 882C n = 71 883C 884 data wleb( 263),(gjk(i, 263),i=1,2)/ 885 & 6.309049437420976D-05, 886 & 1.000000000000000D+00, 0.000000000000000D+00/ 887 data wleb( 264),(gjk(i, 264),i=1,2)/ 888 & 6.398287705571748D-04, 889 & 1.000000000000000D+00, 1.000000000000000D+00/ 890 data wleb( 265),(gjk(i, 265),i=1,2)/ 891 & 6.357185073530719D-04, 892 & 1.000000000000000D+00, 1.000000000000000D+00/ 893 data wleb( 266),(gjk(i, 266),i=1,2)/ 894 & 2.221207162188168D-04, 895 & 2.860923126194662D-02, 2.860923126194662D-02/ 896 data wleb( 267),(gjk(i, 267),i=1,2)/ 897 & 3.475784022286848D-04, 898 & 7.142556767711522D-02, 7.142556767711522D-02/ 899 data wleb( 268),(gjk(i, 268),i=1,2)/ 900 & 4.350742443589804D-04, 901 & 1.209199540995559D-01, 1.209199540995559D-01/ 902 data wleb( 269),(gjk(i, 269),i=1,2)/ 903 & 4.978569136522127D-04, 904 & 1.738673106594379D-01, 1.738673106594379D-01/ 905 data wleb( 270),(gjk(i, 270),i=1,2)/ 906 & 5.435036221998053D-04, 907 & 2.284645438467734D-01, 2.284645438467734D-01/ 908 data wleb( 271),(gjk(i, 271),i=1,2)/ 909 & 5.765913388219542D-04, 910 & 2.834807671701512D-01, 2.834807671701512D-01/ 911 data wleb( 272),(gjk(i, 272),i=1,2)/ 912 & 6.001200359226003D-04, 913 & 3.379680145467339D-01, 3.379680145467339D-01/ 914 data wleb( 273),(gjk(i, 273),i=1,2)/ 915 & 6.162178172717512D-04, 916 & 3.911355454819537D-01, 3.911355454819537D-01/ 917 data wleb( 274),(gjk(i, 274),i=1,2)/ 918 & 6.265218152438484D-04, 919 & 4.422860353001403D-01, 4.422860353001403D-01/ 920 data wleb( 275),(gjk(i, 275),i=1,2)/ 921 & 6.323987160974212D-04, 922 & 4.907781568726057D-01, 4.907781568726057D-01/ 923 data wleb( 276),(gjk(i, 276),i=1,2)/ 924 & 6.350767851540569D-04, 925 & 5.360006153211468D-01, 5.360006153211468D-01/ 926 data wleb( 277),(gjk(i, 277),i=1,2)/ 927 & 6.354362775297107D-04, 928 & 6.142105973596603D-01, 6.142105973596603D-01/ 929 data wleb( 278),(gjk(i, 278),i=1,2)/ 930 & 6.352302462706236D-04, 931 & 6.459300387977503D-01, 6.459300387977503D-01/ 932 data wleb( 279),(gjk(i, 279),i=1,2)/ 933 & 6.358117881417972D-04, 934 & 6.718056125089225D-01, 6.718056125089225D-01/ 935 data wleb( 280),(gjk(i, 280),i=1,2)/ 936 & 6.373101590310116D-04, 937 & 6.910888533186254D-01, 6.910888533186254D-01/ 938 data wleb( 281),(gjk(i, 281),i=1,2)/ 939 & 6.390428961368665D-04, 940 & 7.030467416823252D-01, 7.030467416823252D-01/ 941 data wleb( 282),(gjk(i, 282),i=1,2)/ 942 & 3.186913449946576D-04, 943 & 8.354951166354646D-02, 0.000000000000000D+00/ 944 data wleb( 283),(gjk(i, 283),i=1,2)/ 945 & 4.678028558591711D-04, 946 & 2.050143009099486D-01, 0.000000000000000D+00/ 947 data wleb( 284),(gjk(i, 284),i=1,2)/ 948 & 5.538829697598626D-04, 949 & 3.370208290706637D-01, 0.000000000000000D+00/ 950 data wleb( 285),(gjk(i, 285),i=1,2)/ 951 & 6.044475907190476D-04, 952 & 4.689051484233963D-01, 0.000000000000000D+00/ 953 data wleb( 286),(gjk(i, 286),i=1,2)/ 954 & 6.313575103509012D-04, 955 & 5.939400424557334D-01, 0.000000000000000D+00/ 956 data wleb( 287),(gjk(i, 287),i=1,2)/ 957 & 4.078626431855630D-04, 958 & 1.394983311832261D-01, 4.097581162050343D-02/ 959 data wleb( 288),(gjk(i, 288),i=1,2)/ 960 & 4.759933057812725D-04, 961 & 1.967999180485014D-01, 8.851987391293348D-02/ 962 data wleb( 289),(gjk(i, 289),i=1,2)/ 963 & 5.268151186413440D-04, 964 & 2.546183732548967D-01, 1.397680182969819D-01/ 965 data wleb( 290),(gjk(i, 290),i=1,2)/ 966 & 5.643048560507316D-04, 967 & 3.121281074713875D-01, 1.929452542226526D-01/ 968 data wleb( 291),(gjk(i, 291),i=1,2)/ 969 & 5.914501076613073D-04, 970 & 3.685981078502492D-01, 2.467898337061562D-01/ 971 data wleb( 292),(gjk(i, 292),i=1,2)/ 972 & 6.104561257874195D-04, 973 & 4.233760321547856D-01, 3.003104124785409D-01/ 974 data wleb( 293),(gjk(i, 293),i=1,2)/ 975 & 6.230252860707806D-04, 976 & 4.758671236059246D-01, 3.526684328175033D-01/ 977 data wleb( 294),(gjk(i, 294),i=1,2)/ 978 & 6.305618761760796D-04, 979 & 5.255178579796463D-01, 4.031134861145713D-01/ 980 data wleb( 295),(gjk(i, 295),i=1,2)/ 981 & 6.343092767597889D-04, 982 & 5.718025633734589D-01, 4.509426448342351D-01/ 983 data wleb( 296),(gjk(i, 296),i=1,2)/ 984 & 5.176268945737827D-04, 985 & 2.686927772723415D-01, 4.711322502423248D-02/ 986 data wleb( 297),(gjk(i, 297),i=1,2)/ 987 & 5.564840313313692D-04, 988 & 3.306006819904809D-01, 9.784487303942695D-02/ 989 data wleb( 298),(gjk(i, 298),i=1,2)/ 990 & 5.856426671038980D-04, 991 & 3.904906850594983D-01, 1.505395810025273D-01/ 992 data wleb( 299),(gjk(i, 299),i=1,2)/ 993 & 6.066386925777091D-04, 994 & 4.479957951904390D-01, 2.039728156296050D-01/ 995 data wleb( 300),(gjk(i, 300),i=1,2)/ 996 & 6.208824962234458D-04, 997 & 5.027076848919780D-01, 2.571529941121107D-01/ 998 data wleb( 301),(gjk(i, 301),i=1,2)/ 999 & 6.296314297822907D-04, 1000 & 5.542087392260217D-01, 3.092191375815670D-01/ 1001 data wleb( 302),(gjk(i, 302),i=1,2)/ 1002 & 6.340423756791859D-04, 1003 & 6.020850887375186D-01, 3.593807506130276D-01/ 1004 data wleb( 303),(gjk(i, 303),i=1,2)/ 1005 & 5.829627677107342D-04, 1006 & 4.019851409179594D-01, 5.063389934378671D-02/ 1007 data wleb( 304),(gjk(i, 304),i=1,2)/ 1008 & 6.048693376081110D-04, 1009 & 4.635614567449800D-01, 1.032422269160612D-01/ 1010 data wleb( 305),(gjk(i, 305),i=1,2)/ 1011 & 6.202362317732461D-04, 1012 & 5.215860931591575D-01, 1.566322094006254D-01/ 1013 data wleb( 306),(gjk(i, 306),i=1,2)/ 1014 & 6.299005328403779D-04, 1015 & 5.758202499099271D-01, 2.098082827491099D-01/ 1016 data wleb( 307),(gjk(i, 307),i=1,2)/ 1017 & 6.347722390609352D-04, 1018 & 6.259893683876795D-01, 2.618824114553391D-01/ 1019 data wleb( 308),(gjk(i, 308),i=1,2)/ 1020 & 6.203778981238834D-04, 1021 & 5.313795124811891D-01, 5.263245019338556D-02/ 1022 data wleb( 309),(gjk(i, 309),i=1,2)/ 1023 & 6.308414671239979D-04, 1024 & 5.893317955931995D-01, 1.061059730982005D-01/ 1025 data wleb( 310),(gjk(i, 310),i=1,2)/ 1026 & 6.362706466959498D-04, 1027 & 6.426246321215801D-01, 1.594171564034221D-01/ 1028 data wleb( 311),(gjk(i, 311),i=1,2)/ 1029 & 6.375414170333233D-04, 1030 & 6.511904367376113D-01, 5.354789536565540D-02/ 1031C 1032C n = 77 1033C 1034 data wleb( 312),(gjk(i, 312),i=1,2)/ 1035 & 4.656031899197431D-05, 1036 & 1.000000000000000D+00, 0.000000000000000D+00/ 1037 data wleb( 313),(gjk(i, 313),i=1,2)/ 1038 & 5.421549195295507D-04, 1039 & 1.000000000000000D+00, 1.000000000000000D+00/ 1040 data wleb( 314),(gjk(i, 314),i=1,2)/ 1041 & 1.778522133346553D-04, 1042 & 2.540835336814348D-02, 2.540835336814348D-02/ 1043 data wleb( 315),(gjk(i, 315),i=1,2)/ 1044 & 2.811325405682796D-04, 1045 & 6.399322800504915D-02, 6.399322800504915D-02/ 1046 data wleb( 316),(gjk(i, 316),i=1,2)/ 1047 & 3.548896312631459D-04, 1048 & 1.088269469804125D-01, 1.088269469804125D-01/ 1049 data wleb( 317),(gjk(i, 317),i=1,2)/ 1050 & 4.090310897173364D-04, 1051 & 1.570670798818287D-01, 1.570670798818287D-01/ 1052 data wleb( 318),(gjk(i, 318),i=1,2)/ 1053 & 4.493286134169965D-04, 1054 & 2.071163932282514D-01, 2.071163932282514D-01/ 1055 data wleb( 319),(gjk(i, 319),i=1,2)/ 1056 & 4.793728447962723D-04, 1057 & 2.578914044450844D-01, 2.578914044450844D-01/ 1058 data wleb( 320),(gjk(i, 320),i=1,2)/ 1059 & 5.015415319164265D-04, 1060 & 3.085687558169623D-01, 3.085687558169623D-01/ 1061 data wleb( 321),(gjk(i, 321),i=1,2)/ 1062 & 5.175127372677937D-04, 1063 & 3.584719706267024D-01, 3.584719706267024D-01/ 1064 data wleb( 322),(gjk(i, 322),i=1,2)/ 1065 & 5.285522262081019D-04, 1066 & 4.070135594428709D-01, 4.070135594428709D-01/ 1067 data wleb( 323),(gjk(i, 323),i=1,2)/ 1068 & 5.356832703713962D-04, 1069 & 4.536618626222638D-01, 4.536618626222638D-01/ 1070 data wleb( 324),(gjk(i, 324),i=1,2)/ 1071 & 5.397914736175170D-04, 1072 & 4.979195686463577D-01, 4.979195686463577D-01/ 1073 data wleb( 325),(gjk(i, 325),i=1,2)/ 1074 & 5.416899441599930D-04, 1075 & 5.393075111126999D-01, 5.393075111126999D-01/ 1076 data wleb( 326),(gjk(i, 326),i=1,2)/ 1077 & 5.419308476889938D-04, 1078 & 6.115617676843916D-01, 6.115617676843916D-01/ 1079 data wleb( 327),(gjk(i, 327),i=1,2)/ 1080 & 5.416936902030596D-04, 1081 & 6.414308435160159D-01, 6.414308435160159D-01/ 1082 data wleb( 328),(gjk(i, 328),i=1,2)/ 1083 & 5.419544338703164D-04, 1084 & 6.664099412721607D-01, 6.664099412721607D-01/ 1085 data wleb( 329),(gjk(i, 329),i=1,2)/ 1086 & 5.428983656630974D-04, 1087 & 6.859161771214913D-01, 6.859161771214913D-01/ 1088 data wleb( 330),(gjk(i, 330),i=1,2)/ 1089 & 5.442286500098193D-04, 1090 & 6.993625593503890D-01, 6.993625593503890D-01/ 1091 data wleb( 331),(gjk(i, 331),i=1,2)/ 1092 & 5.452250345057301D-04, 1093 & 7.062393387719380D-01, 7.062393387719380D-01/ 1094 data wleb( 332),(gjk(i, 332),i=1,2)/ 1095 & 2.568002497728530D-04, 1096 & 7.479028168349763D-02, 0.000000000000000D+00/ 1097 data wleb( 333),(gjk(i, 333),i=1,2)/ 1098 & 3.827211700292145D-04, 1099 & 1.848951153969366D-01, 0.000000000000000D+00/ 1100 data wleb( 334),(gjk(i, 334),i=1,2)/ 1101 & 4.579491561917824D-04, 1102 & 3.059529066581305D-01, 0.000000000000000D+00/ 1103 data wleb( 335),(gjk(i, 335),i=1,2)/ 1104 & 5.042003969083574D-04, 1105 & 4.285556101021362D-01, 0.000000000000000D+00/ 1106 data wleb( 336),(gjk(i, 336),i=1,2)/ 1107 & 5.312708889976024D-04, 1108 & 5.468758653496526D-01, 0.000000000000000D+00/ 1109 data wleb( 337),(gjk(i, 337),i=1,2)/ 1110 & 5.438401790747117D-04, 1111 & 6.565821978343439D-01, 0.000000000000000D+00/ 1112 data wleb( 338),(gjk(i, 338),i=1,2)/ 1113 & 3.316041873197344D-04, 1114 & 1.253901572367117D-01, 3.681917226439641D-02/ 1115 data wleb( 339),(gjk(i, 339),i=1,2)/ 1116 & 3.899113567153771D-04, 1117 & 1.775721510383941D-01, 7.982487607213301D-02/ 1118 data wleb( 340),(gjk(i, 340),i=1,2)/ 1119 & 4.343343327201309D-04, 1120 & 2.305693358216114D-01, 1.264640966592335D-01/ 1121 data wleb( 341),(gjk(i, 341),i=1,2)/ 1122 & 4.679415262318919D-04, 1123 & 2.836502845992063D-01, 1.751585683418957D-01/ 1124 data wleb( 342),(gjk(i, 342),i=1,2)/ 1125 & 4.930847981631031D-04, 1126 & 3.361794746232590D-01, 2.247995907632670D-01/ 1127 data wleb( 343),(gjk(i, 343),i=1,2)/ 1128 & 5.115031867540091D-04, 1129 & 3.875979172264824D-01, 2.745299257422246D-01/ 1130 data wleb( 344),(gjk(i, 344),i=1,2)/ 1131 & 5.245217148457367D-04, 1132 & 4.374019316999074D-01, 3.236373482441118D-01/ 1133 data wleb( 345),(gjk(i, 345),i=1,2)/ 1134 & 5.332041499895321D-04, 1135 & 4.851275843340022D-01, 3.714967859436741D-01/ 1136 data wleb( 346),(gjk(i, 346),i=1,2)/ 1137 & 5.384583126021542D-04, 1138 & 5.303391803806868D-01, 4.175353646321745D-01/ 1139 data wleb( 347),(gjk(i, 347),i=1,2)/ 1140 & 5.411067210798852D-04, 1141 & 5.726197380596287D-01, 4.612084406355461D-01/ 1142 data wleb( 348),(gjk(i, 348),i=1,2)/ 1143 & 4.259797391468714D-04, 1144 & 2.431520732564863D-01, 4.258040133043952D-02/ 1145 data wleb( 349),(gjk(i, 349),i=1,2)/ 1146 & 4.604931368460021D-04, 1147 & 3.002096800895869D-01, 8.869424306722722D-02/ 1148 data wleb( 350),(gjk(i, 350),i=1,2)/ 1149 & 4.871814878255202D-04, 1150 & 3.558554457457432D-01, 1.368811706510655D-01/ 1151 data wleb( 351),(gjk(i, 351),i=1,2)/ 1152 & 5.072242910074885D-04, 1153 & 4.097782537048887D-01, 1.860739985015033D-01/ 1154 data wleb( 352),(gjk(i, 352),i=1,2)/ 1155 & 5.217069845235350D-04, 1156 & 4.616337666067458D-01, 2.354235077395853D-01/ 1157 data wleb( 353),(gjk(i, 353),i=1,2)/ 1158 & 5.315785966280310D-04, 1159 & 5.110707008417874D-01, 2.842074921347011D-01/ 1160 data wleb( 354),(gjk(i, 354),i=1,2)/ 1161 & 5.376833708758905D-04, 1162 & 5.577415286163795D-01, 3.317784414984102D-01/ 1163 data wleb( 355),(gjk(i, 355),i=1,2)/ 1164 & 5.408032092069521D-04, 1165 & 6.013060431366950D-01, 3.775299002040700D-01/ 1166 data wleb( 356),(gjk(i, 356),i=1,2)/ 1167 & 4.842744917904866D-04, 1168 & 3.661596767261781D-01, 4.599367887164592D-02/ 1169 data wleb( 357),(gjk(i, 357),i=1,2)/ 1170 & 5.048926076188130D-04, 1171 & 4.237633153506581D-01, 9.404893773654421D-02/ 1172 data wleb( 358),(gjk(i, 358),i=1,2)/ 1173 & 5.202607980478373D-04, 1174 & 4.786328454658452D-01, 1.431377109091971D-01/ 1175 data wleb( 359),(gjk(i, 359),i=1,2)/ 1176 & 5.309932388325743D-04, 1177 & 5.305702076789774D-01, 1.924186388843570D-01/ 1178 data wleb( 360),(gjk(i, 360),i=1,2)/ 1179 & 5.377419770895208D-04, 1180 & 5.793436224231788D-01, 2.411590944775190D-01/ 1181 data wleb( 361),(gjk(i, 361),i=1,2)/ 1182 & 5.411696331677717D-04, 1183 & 6.247069017094747D-01, 2.886871491583605D-01/ 1184 data wleb( 362),(gjk(i, 362),i=1,2)/ 1185 & 5.197996293282420D-04, 1186 & 4.874315552535204D-01, 4.804978774953206D-02/ 1187 data wleb( 363),(gjk(i, 363),i=1,2)/ 1188 & 5.311120836622945D-04, 1189 & 5.427337322059053D-01, 9.716857199366664D-02/ 1190 data wleb( 364),(gjk(i, 364),i=1,2)/ 1191 & 5.384309319956951D-04, 1192 & 5.943493747246700D-01, 1.465205839795055D-01/ 1193 data wleb( 365),(gjk(i, 365),i=1,2)/ 1194 & 5.421859504051886D-04, 1195 & 6.421314033564943D-01, 1.953579449803574D-01/ 1196 data wleb( 366),(gjk(i, 366),i=1,2)/ 1197 & 5.390948355046314D-04, 1198 & 6.020628374713980D-01, 4.916375015738108D-02/ 1199 data wleb( 367),(gjk(i, 367),i=1,2)/ 1200 & 5.433312705027845D-04, 1201 & 6.529222529856881D-01, 9.861621540127005D-02/ 1202C 1203C n = 83 1204C 1205 data wleb( 368),(gjk(i, 368),i=1,2)/ 1206 & 3.922616270665292D-05, 1207 & 1.000000000000000D+00, 0.000000000000000D+00/ 1208 data wleb( 369),(gjk(i, 369),i=1,2)/ 1209 & 4.703831750854424D-04, 1210 & 1.000000000000000D+00, 1.000000000000000D+00/ 1211 data wleb( 370),(gjk(i, 370),i=1,2)/ 1212 & 4.678202801282136D-04, 1213 & 1.000000000000000D+00, 1.000000000000000D+00/ 1214 data wleb( 371),(gjk(i, 371),i=1,2)/ 1215 & 1.437832228979900D-04, 1216 & 2.290024646530589D-02, 2.290024646530589D-02/ 1217 data wleb( 372),(gjk(i, 372),i=1,2)/ 1218 & 2.303572493577644D-04, 1219 & 5.779086652271284D-02, 5.779086652271284D-02/ 1220 data wleb( 373),(gjk(i, 373),i=1,2)/ 1221 & 2.933110752447454D-04, 1222 & 9.863103576375984D-02, 9.863103576375984D-02/ 1223 data wleb( 374),(gjk(i, 374),i=1,2)/ 1224 & 3.402905998359838D-04, 1225 & 1.428155792982185D-01, 1.428155792982185D-01/ 1226 data wleb( 375),(gjk(i, 375),i=1,2)/ 1227 & 3.759138466870372D-04, 1228 & 1.888978116601463D-01, 1.888978116601463D-01/ 1229 data wleb( 376),(gjk(i, 376),i=1,2)/ 1230 & 4.030638447899798D-04, 1231 & 2.359091682970210D-01, 2.359091682970210D-01/ 1232 data wleb( 377),(gjk(i, 377),i=1,2)/ 1233 & 4.236591432242211D-04, 1234 & 2.831228833706171D-01, 2.831228833706171D-01/ 1235 data wleb( 378),(gjk(i, 378),i=1,2)/ 1236 & 4.390522656946746D-04, 1237 & 3.299495857966693D-01, 3.299495857966693D-01/ 1238 data wleb( 379),(gjk(i, 379),i=1,2)/ 1239 & 4.502523466626247D-04, 1240 & 3.758840802660796D-01, 3.758840802660796D-01/ 1241 data wleb( 380),(gjk(i, 380),i=1,2)/ 1242 & 4.580577727783541D-04, 1243 & 4.204751831009480D-01, 4.204751831009480D-01/ 1244 data wleb( 381),(gjk(i, 381),i=1,2)/ 1245 & 4.631391616615899D-04, 1246 & 4.633068518751051D-01, 4.633068518751051D-01/ 1247 data wleb( 382),(gjk(i, 382),i=1,2)/ 1248 & 4.660928953698676D-04, 1249 & 5.039849474507313D-01, 5.039849474507313D-01/ 1250 data wleb( 383),(gjk(i, 383),i=1,2)/ 1251 & 4.674751807936953D-04, 1252 & 5.421265793440747D-01, 5.421265793440747D-01/ 1253 data wleb( 384),(gjk(i, 384),i=1,2)/ 1254 & 4.676414903932920D-04, 1255 & 6.092660230557310D-01, 6.092660230557310D-01/ 1256 data wleb( 385),(gjk(i, 385),i=1,2)/ 1257 & 4.674086492347870D-04, 1258 & 6.374654204984869D-01, 6.374654204984869D-01/ 1259 data wleb( 386),(gjk(i, 386),i=1,2)/ 1260 & 4.674928539483207D-04, 1261 & 6.615136472609892D-01, 6.615136472609892D-01/ 1262 data wleb( 387),(gjk(i, 387),i=1,2)/ 1263 & 4.680748979686447D-04, 1264 & 6.809487285958127D-01, 6.809487285958127D-01/ 1265 data wleb( 388),(gjk(i, 388),i=1,2)/ 1266 & 4.690449806389040D-04, 1267 & 6.952980021665196D-01, 6.952980021665196D-01/ 1268 data wleb( 389),(gjk(i, 389),i=1,2)/ 1269 & 4.699877075860818D-04, 1270 & 7.041245497695400D-01, 7.041245497695400D-01/ 1271 data wleb( 390),(gjk(i, 390),i=1,2)/ 1272 & 2.099942281069176D-04, 1273 & 6.744033088306065D-02, 0.000000000000000D+00/ 1274 data wleb( 391),(gjk(i, 391),i=1,2)/ 1275 & 3.172269150712804D-04, 1276 & 1.678684485334166D-01, 0.000000000000000D+00/ 1277 data wleb( 392),(gjk(i, 392),i=1,2)/ 1278 & 3.832051358546523D-04, 1279 & 2.793559049539613D-01, 0.000000000000000D+00/ 1280 data wleb( 393),(gjk(i, 393),i=1,2)/ 1281 & 4.252193818146985D-04, 1282 & 3.935264218057639D-01, 0.000000000000000D+00/ 1283 data wleb( 394),(gjk(i, 394),i=1,2)/ 1284 & 4.513807963755000D-04, 1285 & 5.052629268232558D-01, 0.000000000000000D+00/ 1286 data wleb( 395),(gjk(i, 395),i=1,2)/ 1287 & 4.657797469114178D-04, 1288 & 6.107905315437531D-01, 0.000000000000000D+00/ 1289 data wleb( 396),(gjk(i, 396),i=1,2)/ 1290 & 2.733362800522836D-04, 1291 & 1.135081039843524D-01, 3.331954884662588D-02/ 1292 data wleb( 397),(gjk(i, 397),i=1,2)/ 1293 & 3.235485368463559D-04, 1294 & 1.612866626099378D-01, 7.247167465436538D-02/ 1295 data wleb( 398),(gjk(i, 398),i=1,2)/ 1296 & 3.624908726013453D-04, 1297 & 2.100786550168205D-01, 1.151539110849745D-01/ 1298 data wleb( 399),(gjk(i, 399),i=1,2)/ 1299 & 3.925540070712828D-04, 1300 & 2.592282009459942D-01, 1.599491097143677D-01/ 1301 data wleb( 400),(gjk(i, 400),i=1,2)/ 1302 & 4.156129781116235D-04, 1303 & 3.081740561320203D-01, 2.058699956028027D-01/ 1304 data wleb( 401),(gjk(i, 401),i=1,2)/ 1305 & 4.330644984623263D-04, 1306 & 3.564289781578164D-01, 2.521624953502911D-01/ 1307 data wleb( 402),(gjk(i, 402),i=1,2)/ 1308 & 4.459677725921312D-04, 1309 & 4.035587288240703D-01, 2.982090785797674D-01/ 1310 data wleb( 403),(gjk(i, 403),i=1,2)/ 1311 & 4.551593004456795D-04, 1312 & 4.491671196373903D-01, 3.434762087235733D-01/ 1313 data wleb( 404),(gjk(i, 404),i=1,2)/ 1314 & 4.613341462749918D-04, 1315 & 4.928854782917489D-01, 3.874831357203437D-01/ 1316 data wleb( 405),(gjk(i, 405),i=1,2)/ 1317 & 4.651019618269806D-04, 1318 & 5.343646791958988D-01, 4.297814821746926D-01/ 1319 data wleb( 406),(gjk(i, 406),i=1,2)/ 1320 & 4.670249536100625D-04, 1321 & 5.732683216530990D-01, 4.699402260943537D-01/ 1322 data wleb( 407),(gjk(i, 407),i=1,2)/ 1323 & 3.549555576441708D-04, 1324 & 2.214131583218986D-01, 3.873602040643895D-02/ 1325 data wleb( 408),(gjk(i, 408),i=1,2)/ 1326 & 3.856108245249010D-04, 1327 & 2.741796504750071D-01, 8.089496256902012D-02/ 1328 data wleb( 409),(gjk(i, 409),i=1,2)/ 1329 & 4.098622845756882D-04, 1330 & 3.259797439149485D-01, 1.251732177620872D-01/ 1331 data wleb( 410),(gjk(i, 410),i=1,2)/ 1332 & 4.286328604268950D-04, 1333 & 3.765441148826891D-01, 1.706260286403185D-01/ 1334 data wleb( 411),(gjk(i, 411),i=1,2)/ 1335 & 4.427802198993945D-04, 1336 & 4.255773574530558D-01, 2.165115147300408D-01/ 1337 data wleb( 412),(gjk(i, 412),i=1,2)/ 1338 & 4.530473511488561D-04, 1339 & 4.727795117058430D-01, 2.622089812225259D-01/ 1340 data wleb( 413),(gjk(i, 413),i=1,2)/ 1341 & 4.600805475703138D-04, 1342 & 5.178546895819012D-01, 3.071721431296201D-01/ 1343 data wleb( 414),(gjk(i, 414),i=1,2)/ 1344 & 4.644599059958017D-04, 1345 & 5.605141192097460D-01, 3.508998998801138D-01/ 1346 data wleb( 415),(gjk(i, 415),i=1,2)/ 1347 & 4.667274455712508D-04, 1348 & 6.004763319352512D-01, 3.929160876166931D-01/ 1349 data wleb( 416),(gjk(i, 416),i=1,2)/ 1350 & 4.069360518020356D-04, 1351 & 3.352842634946949D-01, 4.202563457288019D-02/ 1352 data wleb( 417),(gjk(i, 417),i=1,2)/ 1353 & 4.260442819919195D-04, 1354 & 3.891971629814670D-01, 8.614309758870850D-02/ 1355 data wleb( 418),(gjk(i, 418),i=1,2)/ 1356 & 4.408678508029063D-04, 1357 & 4.409875565542281D-01, 1.314500879380001D-01/ 1358 data wleb( 419),(gjk(i, 419),i=1,2)/ 1359 & 4.518748115548597D-04, 1360 & 4.904893058592484D-01, 1.772189657383859D-01/ 1361 data wleb( 420),(gjk(i, 420),i=1,2)/ 1362 & 4.595564875375116D-04, 1363 & 5.375056138769549D-01, 2.228277110050294D-01/ 1364 data wleb( 421),(gjk(i, 421),i=1,2)/ 1365 & 4.643988774315846D-04, 1366 & 5.818255708669969D-01, 2.677179935014386D-01/ 1367 data wleb( 422),(gjk(i, 422),i=1,2)/ 1368 & 4.668827491646946D-04, 1369 & 6.232334858144959D-01, 3.113675035544165D-01/ 1370 data wleb( 423),(gjk(i, 423),i=1,2)/ 1371 & 4.400541823741973D-04, 1372 & 4.489485354492058D-01, 4.409162378368174D-02/ 1373 data wleb( 424),(gjk(i, 424),i=1,2)/ 1374 & 4.514512890193797D-04, 1375 & 5.015136875933150D-01, 8.939009917748489D-02/ 1376 data wleb( 425),(gjk(i, 425),i=1,2)/ 1377 & 4.596198627347549D-04, 1378 & 5.511300550512623D-01, 1.351806029383365D-01/ 1379 data wleb( 426),(gjk(i, 426),i=1,2)/ 1380 & 4.648659016801781D-04, 1381 & 5.976720409858000D-01, 1.808370355053196D-01/ 1382 data wleb( 427),(gjk(i, 427),i=1,2)/ 1383 & 4.675502017157673D-04, 1384 & 6.409956378989354D-01, 2.257852192301602D-01/ 1385 data wleb( 428),(gjk(i, 428),i=1,2)/ 1386 & 4.598494476455523D-04, 1387 & 5.581222330827514D-01, 4.532173421637160D-02/ 1388 data wleb( 429),(gjk(i, 429),i=1,2)/ 1389 & 4.654916955152048D-04, 1390 & 6.074705984161695D-01, 9.117488031840314D-02/ 1391 data wleb( 430),(gjk(i, 430),i=1,2)/ 1392 & 4.684709779505137D-04, 1393 & 6.532272537379032D-01, 1.369294213140155D-01/ 1394 data wleb( 431),(gjk(i, 431),i=1,2)/ 1395 & 4.691445539106986D-04, 1396 & 6.594761494500487D-01, 4.589901487275583D-02/ 1397C 1398C n = 89 1399C 1400 data wleb( 432),(gjk(i, 432),i=1,2)/ 1401 & 2.998675149888161D-05, 1402 & 1.000000000000000D+00, 0.000000000000000D+00/ 1403 data wleb( 433),(gjk(i, 433),i=1,2)/ 1404 & 4.077860529495355D-04, 1405 & 1.000000000000000D+00, 1.000000000000000D+00/ 1406 data wleb( 434),(gjk(i, 434),i=1,2)/ 1407 & 1.185349192520667D-04, 1408 & 2.065562538818703D-02, 2.065562538818703D-02/ 1409 data wleb( 435),(gjk(i, 435),i=1,2)/ 1410 & 1.913408643425751D-04, 1411 & 5.250918173022379D-02, 5.250918173022379D-02/ 1412 data wleb( 436),(gjk(i, 436),i=1,2)/ 1413 & 2.452886577209897D-04, 1414 & 8.993480082038376D-02, 8.993480082038376D-02/ 1415 data wleb( 437),(gjk(i, 437),i=1,2)/ 1416 & 2.862408183288702D-04, 1417 & 1.306023924436019D-01, 1.306023924436019D-01/ 1418 data wleb( 438),(gjk(i, 438),i=1,2)/ 1419 & 3.178032258257357D-04, 1420 & 1.732060388531418D-01, 1.732060388531418D-01/ 1421 data wleb( 439),(gjk(i, 439),i=1,2)/ 1422 & 3.422945667633690D-04, 1423 & 2.168727084820249D-01, 2.168727084820249D-01/ 1424 data wleb( 440),(gjk(i, 440),i=1,2)/ 1425 & 3.612790520235922D-04, 1426 & 2.609528309173586D-01, 2.609528309173586D-01/ 1427 data wleb( 441),(gjk(i, 441),i=1,2)/ 1428 & 3.758638229818521D-04, 1429 & 3.049252927938952D-01, 3.049252927938952D-01/ 1430 data wleb( 442),(gjk(i, 442),i=1,2)/ 1431 & 3.868711798859953D-04, 1432 & 3.483484138084404D-01, 3.483484138084404D-01/ 1433 data wleb( 443),(gjk(i, 443),i=1,2)/ 1434 & 3.949429933189938D-04, 1435 & 3.908321549106406D-01, 3.908321549106406D-01/ 1436 data wleb( 444),(gjk(i, 444),i=1,2)/ 1437 & 4.006068107541156D-04, 1438 & 4.320210071894814D-01, 4.320210071894814D-01/ 1439 data wleb( 445),(gjk(i, 445),i=1,2)/ 1440 & 4.043192149672723D-04, 1441 & 4.715824795890053D-01, 4.715824795890053D-01/ 1442 data wleb( 446),(gjk(i, 446),i=1,2)/ 1443 & 4.064947495808078D-04, 1444 & 5.091984794078454D-01, 5.091984794078454D-01/ 1445 data wleb( 447),(gjk(i, 447),i=1,2)/ 1446 & 4.075245619813152D-04, 1447 & 5.445580145650804D-01, 5.445580145650804D-01/ 1448 data wleb( 448),(gjk(i, 448),i=1,2)/ 1449 & 4.076423540893566D-04, 1450 & 6.072575796841768D-01, 6.072575796841768D-01/ 1451 data wleb( 449),(gjk(i, 449),i=1,2)/ 1452 & 4.074280862251555D-04, 1453 & 6.339484505755802D-01, 6.339484505755802D-01/ 1454 data wleb( 450),(gjk(i, 450),i=1,2)/ 1455 & 4.074163756012244D-04, 1456 & 6.570718257486958D-01, 6.570718257486958D-01/ 1457 data wleb( 451),(gjk(i, 451),i=1,2)/ 1458 & 4.077647795071246D-04, 1459 & 6.762557330090709D-01, 6.762557330090709D-01/ 1460 data wleb( 452),(gjk(i, 452),i=1,2)/ 1461 & 4.084517552782530D-04, 1462 & 6.911161696923790D-01, 6.911161696923790D-01/ 1463 data wleb( 453),(gjk(i, 453),i=1,2)/ 1464 & 4.092468459224052D-04, 1465 & 7.012841911659961D-01, 7.012841911659961D-01/ 1466 data wleb( 454),(gjk(i, 454),i=1,2)/ 1467 & 4.097872687240906D-04, 1468 & 7.064559272410020D-01, 7.064559272410020D-01/ 1469 data wleb( 455),(gjk(i, 455),i=1,2)/ 1470 & 1.738986811745028D-04, 1471 & 6.123554989894765D-02, 0.000000000000000D+00/ 1472 data wleb( 456),(gjk(i, 456),i=1,2)/ 1473 & 2.659616045280191D-04, 1474 & 1.533070348312393D-01, 0.000000000000000D+00/ 1475 data wleb( 457),(gjk(i, 457),i=1,2)/ 1476 & 3.240596008171533D-04, 1477 & 2.563902605244206D-01, 0.000000000000000D+00/ 1478 data wleb( 458),(gjk(i, 458),i=1,2)/ 1479 & 3.621195964432943D-04, 1480 & 3.629346991663361D-01, 0.000000000000000D+00/ 1481 data wleb( 459),(gjk(i, 459),i=1,2)/ 1482 & 3.868838330760539D-04, 1483 & 4.683949968987538D-01, 0.000000000000000D+00/ 1484 data wleb( 460),(gjk(i, 460),i=1,2)/ 1485 & 4.018911532693111D-04, 1486 & 5.694479240657953D-01, 0.000000000000000D+00/ 1487 data wleb( 461),(gjk(i, 461),i=1,2)/ 1488 & 4.089929432983252D-04, 1489 & 6.634465430993955D-01, 0.000000000000000D+00/ 1490 data wleb( 462),(gjk(i, 462),i=1,2)/ 1491 & 2.279907527706409D-04, 1492 & 1.033958573552305D-01, 3.034544009063584D-02/ 1493 data wleb( 463),(gjk(i, 463),i=1,2)/ 1494 & 2.715205490578897D-04, 1495 & 1.473521412414395D-01, 6.618803044247135D-02/ 1496 data wleb( 464),(gjk(i, 464),i=1,2)/ 1497 & 3.057917896703976D-04, 1498 & 1.924552158705967D-01, 1.054431128987715D-01/ 1499 data wleb( 465),(gjk(i, 465),i=1,2)/ 1500 & 3.326913052452555D-04, 1501 & 2.381094362890328D-01, 1.468263551238858D-01/ 1502 data wleb( 466),(gjk(i, 466),i=1,2)/ 1503 & 3.537334711890037D-04, 1504 & 2.838121707936760D-01, 1.894486108187886D-01/ 1505 data wleb( 467),(gjk(i, 467),i=1,2)/ 1506 & 3.700567500783129D-04, 1507 & 3.291323133373415D-01, 2.326374238761579D-01/ 1508 data wleb( 468),(gjk(i, 468),i=1,2)/ 1509 & 3.825245372589122D-04, 1510 & 3.736896978741460D-01, 2.758485808485768D-01/ 1511 data wleb( 469),(gjk(i, 469),i=1,2)/ 1512 & 3.918125171518296D-04, 1513 & 4.171406040760013D-01, 3.186179331996921D-01/ 1514 data wleb( 470),(gjk(i, 470),i=1,2)/ 1515 & 3.984720419937579D-04, 1516 & 4.591677985256915D-01, 3.605329796303794D-01/ 1517 data wleb( 471),(gjk(i, 471),i=1,2)/ 1518 & 4.029746003338211D-04, 1519 & 4.994733831718418D-01, 4.012147253586509D-01/ 1520 data wleb( 472),(gjk(i, 472),i=1,2)/ 1521 & 4.057428632156627D-04, 1522 & 5.377731830445096D-01, 4.403050025570692D-01/ 1523 data wleb( 473),(gjk(i, 473),i=1,2)/ 1524 & 4.071719274114857D-04, 1525 & 5.737917830001331D-01, 4.774565904277483D-01/ 1526 data wleb( 474),(gjk(i, 474),i=1,2)/ 1527 & 2.990236950664119D-04, 1528 & 2.027323586271389D-01, 3.544122504976147D-02/ 1529 data wleb( 475),(gjk(i, 475),i=1,2)/ 1530 & 3.262951734212878D-04, 1531 & 2.516942375187273D-01, 7.418304388646328D-02/ 1532 data wleb( 476),(gjk(i, 476),i=1,2)/ 1533 & 3.482634608242413D-04, 1534 & 3.000227995257181D-01, 1.150502745727186D-01/ 1535 data wleb( 477),(gjk(i, 477),i=1,2)/ 1536 & 3.656596681700892D-04, 1537 & 3.474806691046342D-01, 1.571963371209364D-01/ 1538 data wleb( 478),(gjk(i, 478),i=1,2)/ 1539 & 3.791740467794218D-04, 1540 & 3.938103180359209D-01, 1.999631877247100D-01/ 1541 data wleb( 479),(gjk(i, 479),i=1,2)/ 1542 & 3.894034450156905D-04, 1543 & 4.387519590455703D-01, 2.428073457846535D-01/ 1544 data wleb( 480),(gjk(i, 480),i=1,2)/ 1545 & 3.968600245508371D-04, 1546 & 4.820503960077787D-01, 2.852575132906155D-01/ 1547 data wleb( 481),(gjk(i, 481),i=1,2)/ 1548 & 4.019931351420050D-04, 1549 & 5.234573778475101D-01, 3.268884208674639D-01/ 1550 data wleb( 482),(gjk(i, 482),i=1,2)/ 1551 & 4.052108801278599D-04, 1552 & 5.627318647235282D-01, 3.673033321675939D-01/ 1553 data wleb( 483),(gjk(i, 483),i=1,2)/ 1554 & 4.068978613940934D-04, 1555 & 5.996390607156954D-01, 4.061211551830290D-01/ 1556 data wleb( 484),(gjk(i, 484),i=1,2)/ 1557 & 3.454275351319704D-04, 1558 & 3.084780753791947D-01, 3.860125523100059D-02/ 1559 data wleb( 485),(gjk(i, 485),i=1,2)/ 1560 & 3.629963537007920D-04, 1561 & 3.589988275920223D-01, 7.928938987104867D-02/ 1562 data wleb( 486),(gjk(i, 486),i=1,2)/ 1563 & 3.770187233889873D-04, 1564 & 4.078628415881973D-01, 1.212614643030087D-01/ 1565 data wleb( 487),(gjk(i, 487),i=1,2)/ 1566 & 3.878608613694378D-04, 1567 & 4.549287258889735D-01, 1.638770827382693D-01/ 1568 data wleb( 488),(gjk(i, 488),i=1,2)/ 1569 & 3.959065270221274D-04, 1570 & 5.000278512957279D-01, 2.065965798260176D-01/ 1571 data wleb( 489),(gjk(i, 489),i=1,2)/ 1572 & 4.015286975463570D-04, 1573 & 5.429785044928199D-01, 2.489436378852235D-01/ 1574 data wleb( 490),(gjk(i, 490),i=1,2)/ 1575 & 4.050866785614717D-04, 1576 & 5.835939850491711D-01, 2.904811368946891D-01/ 1577 data wleb( 491),(gjk(i, 491),i=1,2)/ 1578 & 4.069320185051913D-04, 1579 & 6.216870353444856D-01, 3.307941957666609D-01/ 1580 data wleb( 492),(gjk(i, 492),i=1,2)/ 1581 & 3.760120964062763D-04, 1582 & 4.151104662709091D-01, 4.064829146052554D-02/ 1583 data wleb( 493),(gjk(i, 493),i=1,2)/ 1584 & 3.870969564418064D-04, 1585 & 4.649804275009218D-01, 8.258424547294756D-02/ 1586 data wleb( 494),(gjk(i, 494),i=1,2)/ 1587 & 3.955287790534055D-04, 1588 & 5.124695757009662D-01, 1.251841962027289D-01/ 1589 data wleb( 495),(gjk(i, 495),i=1,2)/ 1590 & 4.015361911302668D-04, 1591 & 5.574711100606224D-01, 1.679107505976331D-01/ 1592 data wleb( 496),(gjk(i, 496),i=1,2)/ 1593 & 4.053836986719548D-04, 1594 & 5.998597333287227D-01, 2.102805057358715D-01/ 1595 data wleb( 497),(gjk(i, 497),i=1,2)/ 1596 & 4.073578673299117D-04, 1597 & 6.395007148516600D-01, 2.518418087774107D-01/ 1598 data wleb( 498),(gjk(i, 498),i=1,2)/ 1599 & 3.954628379231406D-04, 1600 & 5.188456224746252D-01, 4.194321676077518D-02/ 1601 data wleb( 499),(gjk(i, 499),i=1,2)/ 1602 & 4.017645508847530D-04, 1603 & 5.664190707942778D-01, 8.457661551921498D-02/ 1604 data wleb( 500),(gjk(i, 500),i=1,2)/ 1605 & 4.059030348651293D-04, 1606 & 6.110464353283153D-01, 1.273652932519396D-01/ 1607 data wleb( 501),(gjk(i, 501),i=1,2)/ 1608 & 4.080565809484880D-04, 1609 & 6.526430302051563D-01, 1.698173239076354D-01/ 1610 data wleb( 502),(gjk(i, 502),i=1,2)/ 1611 & 4.063018753664651D-04, 1612 & 6.167551880377548D-01, 4.266398851548864D-02/ 1613 data wleb( 503),(gjk(i, 503),i=1,2)/ 1614 & 4.087191292799671D-04, 1615 & 6.607195418355383D-01, 8.551925814238349D-02/ 1616C 1617C n = 95 1618C 1619 data wleb( 504),(gjk(i, 504),i=1,2)/ 1620 & 2.599095953754734D-05, 1621 & 1.000000000000000D+00, 0.000000000000000D+00/ 1622 data wleb( 505),(gjk(i, 505),i=1,2)/ 1623 & 3.603134089687541D-04, 1624 & 1.000000000000000D+00, 1.000000000000000D+00/ 1625 data wleb( 506),(gjk(i, 506),i=1,2)/ 1626 & 3.586067974412447D-04, 1627 & 1.000000000000000D+00, 1.000000000000000D+00/ 1628 data wleb( 507),(gjk(i, 507),i=1,2)/ 1629 & 9.831528474385880D-05, 1630 & 1.886108518723392D-02, 1.886108518723392D-02/ 1631 data wleb( 508),(gjk(i, 508),i=1,2)/ 1632 & 1.605023107954450D-04, 1633 & 4.800217244625303D-02, 4.800217244625303D-02/ 1634 data wleb( 509),(gjk(i, 509),i=1,2)/ 1635 & 2.072200131464099D-04, 1636 & 8.244922058397242D-02, 8.244922058397242D-02/ 1637 data wleb( 510),(gjk(i, 510),i=1,2)/ 1638 & 2.431297618814187D-04, 1639 & 1.200408362484023D-01, 1.200408362484023D-01/ 1640 data wleb( 511),(gjk(i, 511),i=1,2)/ 1641 & 2.711819064496707D-04, 1642 & 1.595773530809965D-01, 1.595773530809965D-01/ 1643 data wleb( 512),(gjk(i, 512),i=1,2)/ 1644 & 2.932762038321116D-04, 1645 & 2.002635973434064D-01, 2.002635973434064D-01/ 1646 data wleb( 513),(gjk(i, 513),i=1,2)/ 1647 & 3.107032514197368D-04, 1648 & 2.415127590139982D-01, 2.415127590139982D-01/ 1649 data wleb( 514),(gjk(i, 514),i=1,2)/ 1650 & 3.243808058921213D-04, 1651 & 2.828584158458477D-01, 2.828584158458477D-01/ 1652 data wleb( 515),(gjk(i, 515),i=1,2)/ 1653 & 3.349899091374030D-04, 1654 & 3.239091015338138D-01, 3.239091015338138D-01/ 1655 data wleb( 516),(gjk(i, 516),i=1,2)/ 1656 & 3.430580688505218D-04, 1657 & 3.643225097962194D-01, 3.643225097962194D-01/ 1658 data wleb( 517),(gjk(i, 517),i=1,2)/ 1659 & 3.490124109290343D-04, 1660 & 4.037897083691802D-01, 4.037897083691802D-01/ 1661 data wleb( 518),(gjk(i, 518),i=1,2)/ 1662 & 3.532148948561955D-04, 1663 & 4.420247515194127D-01, 4.420247515194127D-01/ 1664 data wleb( 519),(gjk(i, 519),i=1,2)/ 1665 & 3.559862669062833D-04, 1666 & 4.787572538464938D-01, 4.787572538464938D-01/ 1667 data wleb( 520),(gjk(i, 520),i=1,2)/ 1668 & 3.576224317551411D-04, 1669 & 5.137265251275234D-01, 5.137265251275234D-01/ 1670 data wleb( 521),(gjk(i, 521),i=1,2)/ 1671 & 3.584050533086076D-04, 1672 & 5.466764056654611D-01, 5.466764056654611D-01/ 1673 data wleb( 522),(gjk(i, 522),i=1,2)/ 1674 & 3.584903581373224D-04, 1675 & 6.054859420813535D-01, 6.054859420813535D-01/ 1676 data wleb( 523),(gjk(i, 523),i=1,2)/ 1677 & 3.582991879040586D-04, 1678 & 6.308106701764562D-01, 6.308106701764562D-01/ 1679 data wleb( 524),(gjk(i, 524),i=1,2)/ 1680 & 3.582371187963125D-04, 1681 & 6.530369230179583D-01, 6.530369230179583D-01/ 1682 data wleb( 525),(gjk(i, 525),i=1,2)/ 1683 & 3.584353631122350D-04, 1684 & 6.718609524611158D-01, 6.718609524611158D-01/ 1685 data wleb( 526),(gjk(i, 526),i=1,2)/ 1686 & 3.589120166517785D-04, 1687 & 6.869676499894013D-01, 6.869676499894013D-01/ 1688 data wleb( 527),(gjk(i, 527),i=1,2)/ 1689 & 3.595445704531601D-04, 1690 & 6.980467077240748D-01, 6.980467077240748D-01/ 1691 data wleb( 528),(gjk(i, 528),i=1,2)/ 1692 & 3.600943557111074D-04, 1693 & 7.048241721250522D-01, 7.048241721250522D-01/ 1694 data wleb( 529),(gjk(i, 529),i=1,2)/ 1695 & 1.456447096742039D-04, 1696 & 5.591105222058232D-02, 0.000000000000000D+00/ 1697 data wleb( 530),(gjk(i, 530),i=1,2)/ 1698 & 2.252370188283782D-04, 1699 & 1.407384078513916D-01, 0.000000000000000D+00/ 1700 data wleb( 531),(gjk(i, 531),i=1,2)/ 1701 & 2.766135443474897D-04, 1702 & 2.364035438976309D-01, 0.000000000000000D+00/ 1703 data wleb( 532),(gjk(i, 532),i=1,2)/ 1704 & 3.110729491500851D-04, 1705 & 3.360602737818170D-01, 0.000000000000000D+00/ 1706 data wleb( 533),(gjk(i, 533),i=1,2)/ 1707 & 3.342506712303391D-04, 1708 & 4.356292630054665D-01, 0.000000000000000D+00/ 1709 data wleb( 534),(gjk(i, 534),i=1,2)/ 1710 & 3.491981834026860D-04, 1711 & 5.321569415256174D-01, 0.000000000000000D+00/ 1712 data wleb( 535),(gjk(i, 535),i=1,2)/ 1713 & 3.576003604348932D-04, 1714 & 6.232956305040555D-01, 0.000000000000000D+00/ 1715 data wleb( 536),(gjk(i, 536),i=1,2)/ 1716 & 1.921921305788564D-04, 1717 & 9.469870086838469D-02, 2.778748387309470D-02/ 1718 data wleb( 537),(gjk(i, 537),i=1,2)/ 1719 & 2.301458216495632D-04, 1720 & 1.353170300568141D-01, 6.076569878628364D-02/ 1721 data wleb( 538),(gjk(i, 538),i=1,2)/ 1722 & 2.604248549522893D-04, 1723 & 1.771679481726077D-01, 9.703072762711040D-02/ 1724 data wleb( 539),(gjk(i, 539),i=1,2)/ 1725 & 2.845275425870697D-04, 1726 & 2.197066664231751D-01, 1.354112458524762D-01/ 1727 data wleb( 540),(gjk(i, 540),i=1,2)/ 1728 & 3.036870897974840D-04, 1729 & 2.624783557374927D-01, 1.750996479744100D-01/ 1730 data wleb( 541),(gjk(i, 541),i=1,2)/ 1731 & 3.188414832298066D-04, 1732 & 3.050969521214442D-01, 2.154896907449802D-01/ 1733 data wleb( 542),(gjk(i, 542),i=1,2)/ 1734 & 3.307046414722089D-04, 1735 & 3.472252637196021D-01, 2.560954625740152D-01/ 1736 data wleb( 543),(gjk(i, 543),i=1,2)/ 1737 & 3.398330969031360D-04, 1738 & 3.885610219026360D-01, 2.965070050624096D-01/ 1739 data wleb( 544),(gjk(i, 544),i=1,2)/ 1740 & 3.466757899705373D-04, 1741 & 4.288273776062765D-01, 3.363641488734497D-01/ 1742 data wleb( 545),(gjk(i, 545),i=1,2)/ 1743 & 3.516095923230054D-04, 1744 & 4.677662471302948D-01, 3.753400029836788D-01/ 1745 data wleb( 546),(gjk(i, 546),i=1,2)/ 1746 & 3.549645184048486D-04, 1747 & 5.051333589553360D-01, 4.131297522144286D-01/ 1748 data wleb( 547),(gjk(i, 547),i=1,2)/ 1749 & 3.570415969441392D-04, 1750 & 5.406942145810492D-01, 4.494423776081795D-01/ 1751 data wleb( 548),(gjk(i, 548),i=1,2)/ 1752 & 3.581251798496118D-04, 1753 & 5.742204122576458D-01, 4.839938958841502D-01/ 1754 data wleb( 549),(gjk(i, 549),i=1,2)/ 1755 & 2.543491329913348D-04, 1756 & 1.865407027225188D-01, 3.259144851070796D-02/ 1757 data wleb( 550),(gjk(i, 550),i=1,2)/ 1758 & 2.786711051330776D-04, 1759 & 2.321186453689432D-01, 6.835679505297343D-02/ 1760 data wleb( 551),(gjk(i, 551),i=1,2)/ 1761 & 2.985552361083679D-04, 1762 & 2.773159142523882D-01, 1.062284864451989D-01/ 1763 data wleb( 552),(gjk(i, 552),i=1,2)/ 1764 & 3.145867929154039D-04, 1765 & 3.219200192237254D-01, 1.454404409323047D-01/ 1766 data wleb( 553),(gjk(i, 553),i=1,2)/ 1767 & 3.273290662067609D-04, 1768 & 3.657032593944029D-01, 1.854018282582510D-01/ 1769 data wleb( 554),(gjk(i, 554),i=1,2)/ 1770 & 3.372705511943501D-04, 1771 & 4.084376778363622D-01, 2.256297412014750D-01/ 1772 data wleb( 555),(gjk(i, 555),i=1,2)/ 1773 & 3.448274437851510D-04, 1774 & 4.499004945751427D-01, 2.657104425000896D-01/ 1775 data wleb( 556),(gjk(i, 556),i=1,2)/ 1776 & 3.503592783048583D-04, 1777 & 4.898758141326335D-01, 3.052755487631557D-01/ 1778 data wleb( 557),(gjk(i, 557),i=1,2)/ 1779 & 3.541854792663162D-04, 1780 & 5.281547442266309D-01, 3.439863920645423D-01/ 1781 data wleb( 558),(gjk(i, 558),i=1,2)/ 1782 & 3.565995517909428D-04, 1783 & 5.645346989813992D-01, 3.815229456121914D-01/ 1784 data wleb( 559),(gjk(i, 559),i=1,2)/ 1785 & 3.578802078302898D-04, 1786 & 5.988181252159848D-01, 4.175752420966734D-01/ 1787 data wleb( 560),(gjk(i, 560),i=1,2)/ 1788 & 2.958644592860982D-04, 1789 & 2.850425424471603D-01, 3.562149509862536D-02/ 1790 data wleb( 561),(gjk(i, 561),i=1,2)/ 1791 & 3.119548129116835D-04, 1792 & 3.324619433027876D-01, 7.330318886871096D-02/ 1793 data wleb( 562),(gjk(i, 562),i=1,2)/ 1794 & 3.250745225005984D-04, 1795 & 3.785848333076282D-01, 1.123226296008472D-01/ 1796 data wleb( 563),(gjk(i, 563),i=1,2)/ 1797 & 3.355153415935208D-04, 1798 & 4.232891028562115D-01, 1.521084193337708D-01/ 1799 data wleb( 564),(gjk(i, 564),i=1,2)/ 1800 & 3.435847568549328D-04, 1801 & 4.664287050829722D-01, 1.921844459223610D-01/ 1802 data wleb( 565),(gjk(i, 565),i=1,2)/ 1803 & 3.495786831622488D-04, 1804 & 5.078458493735726D-01, 2.321360989678303D-01/ 1805 data wleb( 566),(gjk(i, 566),i=1,2)/ 1806 & 3.537767805534621D-04, 1807 & 5.473779816204180D-01, 2.715886486360520D-01/ 1808 data wleb( 567),(gjk(i, 567),i=1,2)/ 1809 & 3.564459815421428D-04, 1810 & 5.848617133811376D-01, 3.101924707571355D-01/ 1811 data wleb( 568),(gjk(i, 568),i=1,2)/ 1812 & 3.578464061225468D-04, 1813 & 6.201348281584887D-01, 3.476121052890973D-01/ 1814 data wleb( 569),(gjk(i, 569),i=1,2)/ 1815 & 3.239748762836212D-04, 1816 & 3.852191185387871D-01, 3.763224880035108D-02/ 1817 data wleb( 570),(gjk(i, 570),i=1,2)/ 1818 & 3.345491784174287D-04, 1819 & 4.325025061073423D-01, 7.659581935637134D-02/ 1820 data wleb( 571),(gjk(i, 571),i=1,2)/ 1821 & 3.429126177301782D-04, 1822 & 4.778486229734490D-01, 1.163381306083900D-01/ 1823 data wleb( 572),(gjk(i, 572),i=1,2)/ 1824 & 3.492420343097421D-04, 1825 & 5.211663693009000D-01, 1.563890598752899D-01/ 1826 data wleb( 573),(gjk(i, 573),i=1,2)/ 1827 & 3.537399050235257D-04, 1828 & 5.623469504853703D-01, 1.963320810149200D-01/ 1829 data wleb( 574),(gjk(i, 574),i=1,2)/ 1830 & 3.566209152659172D-04, 1831 & 6.012718188659246D-01, 2.357847407258738D-01/ 1832 data wleb( 575),(gjk(i, 575),i=1,2)/ 1833 & 3.581084321919782D-04, 1834 & 6.378179206390117D-01, 2.743846121244060D-01/ 1835 data wleb( 576),(gjk(i, 576),i=1,2)/ 1836 & 3.426522117591512D-04, 1837 & 4.836936460214534D-01, 3.895902610739024D-02/ 1838 data wleb( 577),(gjk(i, 577),i=1,2)/ 1839 & 3.491848770121379D-04, 1840 & 5.293792562683797D-01, 7.871246819312640D-02/ 1841 data wleb( 578),(gjk(i, 578),i=1,2)/ 1842 & 3.539318235231476D-04, 1843 & 5.726281253100033D-01, 1.187963808202981D-01/ 1844 data wleb( 579),(gjk(i, 579),i=1,2)/ 1845 & 3.570231438458694D-04, 1846 & 6.133658776169068D-01, 1.587914708061787D-01/ 1847 data wleb( 580),(gjk(i, 580),i=1,2)/ 1848 & 3.586207335051714D-04, 1849 & 6.515085491865307D-01, 1.983058575227646D-01/ 1850 data wleb( 581),(gjk(i, 581),i=1,2)/ 1851 & 3.541196205164025D-04, 1852 & 5.778692716064976D-01, 3.977209689791542D-02/ 1853 data wleb( 582),(gjk(i, 582),i=1,2)/ 1854 & 3.574296911573953D-04, 1855 & 6.207904288086192D-01, 7.990157592981152D-02/ 1856 data wleb( 583),(gjk(i, 583),i=1,2)/ 1857 & 3.591993279818963D-04, 1858 & 6.608688171046802D-01, 1.199671308754309D-01/ 1859 data wleb( 584),(gjk(i, 584),i=1,2)/ 1860 & 3.595855034661997D-04, 1861 & 6.656263089489129D-01, 4.015955957805969D-02/ 1862C 1863C n = 101 1864C 1865 data wleb( 585),(gjk(i, 585),i=1,2)/ 1866 & 2.040382730826330D-05, 1867 & 1.000000000000000D+00, 0.000000000000000D+00/ 1868 data wleb( 586),(gjk(i, 586),i=1,2)/ 1869 & 3.178149703889544D-04, 1870 & 1.000000000000000D+00, 1.000000000000000D+00/ 1871 data wleb( 587),(gjk(i, 587),i=1,2)/ 1872 & 8.288115128076111D-05, 1873 & 1.721420832906233D-02, 1.721420832906233D-02/ 1874 data wleb( 588),(gjk(i, 588),i=1,2)/ 1875 & 1.360883192522954D-04, 1876 & 4.408875374981770D-02, 4.408875374981770D-02/ 1877 data wleb( 589),(gjk(i, 589),i=1,2)/ 1878 & 1.766854454542662D-04, 1879 & 7.594680813878681D-02, 7.594680813878681D-02/ 1880 data wleb( 590),(gjk(i, 590),i=1,2)/ 1881 & 2.083153161230153D-04, 1882 & 1.108335359204799D-01, 1.108335359204799D-01/ 1883 data wleb( 591),(gjk(i, 591),i=1,2)/ 1884 & 2.333279544657158D-04, 1885 & 1.476517054388567D-01, 1.476517054388567D-01/ 1886 data wleb( 592),(gjk(i, 592),i=1,2)/ 1887 & 2.532809539930247D-04, 1888 & 1.856731870860615D-01, 1.856731870860615D-01/ 1889 data wleb( 593),(gjk(i, 593),i=1,2)/ 1890 & 2.692472184211158D-04, 1891 & 2.243634099428821D-01, 2.243634099428821D-01/ 1892 data wleb( 594),(gjk(i, 594),i=1,2)/ 1893 & 2.819949946811885D-04, 1894 & 2.633006881662727D-01, 2.633006881662727D-01/ 1895 data wleb( 595),(gjk(i, 595),i=1,2)/ 1896 & 2.920953593973030D-04, 1897 & 3.021340904916283D-01, 3.021340904916283D-01/ 1898 data wleb( 596),(gjk(i, 596),i=1,2)/ 1899 & 2.999889782948352D-04, 1900 & 3.405594048030089D-01, 3.405594048030089D-01/ 1901 data wleb( 597),(gjk(i, 597),i=1,2)/ 1902 & 3.060292120496902D-04, 1903 & 3.783044434007372D-01, 3.783044434007372D-01/ 1904 data wleb( 598),(gjk(i, 598),i=1,2)/ 1905 & 3.105109167522192D-04, 1906 & 4.151194767407910D-01, 4.151194767407910D-01/ 1907 data wleb( 599),(gjk(i, 599),i=1,2)/ 1908 & 3.136902387550312D-04, 1909 & 4.507705766443257D-01, 4.507705766443257D-01/ 1910 data wleb( 600),(gjk(i, 600),i=1,2)/ 1911 & 3.157984652454632D-04, 1912 & 4.850346056573187D-01, 4.850346056573187D-01/ 1913 data wleb( 601),(gjk(i, 601),i=1,2)/ 1914 & 3.170516518425422D-04, 1915 & 5.176950817792469D-01, 5.176950817792469D-01/ 1916 data wleb( 602),(gjk(i, 602),i=1,2)/ 1917 & 3.176568425633755D-04, 1918 & 5.485384240820989D-01, 5.485384240820989D-01/ 1919 data wleb( 603),(gjk(i, 603),i=1,2)/ 1920 & 3.177198411207062D-04, 1921 & 6.039117238943308D-01, 6.039117238943308D-01/ 1922 data wleb( 604),(gjk(i, 604),i=1,2)/ 1923 & 3.175519492394733D-04, 1924 & 6.279956655573113D-01, 6.279956655573113D-01/ 1925 data wleb( 605),(gjk(i, 605),i=1,2)/ 1926 & 3.174654952634756D-04, 1927 & 6.493636169568952D-01, 6.493636169568952D-01/ 1928 data wleb( 606),(gjk(i, 606),i=1,2)/ 1929 & 3.175676415467654D-04, 1930 & 6.677644117704504D-01, 6.677644117704504D-01/ 1931 data wleb( 607),(gjk(i, 607),i=1,2)/ 1932 & 3.178923417835410D-04, 1933 & 6.829368572115624D-01, 6.829368572115624D-01/ 1934 data wleb( 608),(gjk(i, 608),i=1,2)/ 1935 & 3.183788287531909D-04, 1936 & 6.946195818184121D-01, 6.946195818184121D-01/ 1937 data wleb( 609),(gjk(i, 609),i=1,2)/ 1938 & 3.188755151918807D-04, 1939 & 7.025711542057026D-01, 7.025711542057026D-01/ 1940 data wleb( 610),(gjk(i, 610),i=1,2)/ 1941 & 3.191916889313849D-04, 1942 & 7.066004767140119D-01, 7.066004767140119D-01/ 1943 data wleb( 611),(gjk(i, 611),i=1,2)/ 1944 & 1.231779611744508D-04, 1945 & 5.132537689946062D-02, 0.000000000000000D+00/ 1946 data wleb( 612),(gjk(i, 612),i=1,2)/ 1947 & 1.924661373839880D-04, 1948 & 1.297994661331225D-01, 0.000000000000000D+00/ 1949 data wleb( 613),(gjk(i, 613),i=1,2)/ 1950 & 2.380881867403424D-04, 1951 & 2.188852049401307D-01, 0.000000000000000D+00/ 1952 data wleb( 614),(gjk(i, 614),i=1,2)/ 1953 & 2.693100663037885D-04, 1954 & 3.123174824903457D-01, 0.000000000000000D+00/ 1955 data wleb( 615),(gjk(i, 615),i=1,2)/ 1956 & 2.908673382834366D-04, 1957 & 4.064037620738195D-01, 0.000000000000000D+00/ 1958 data wleb( 616),(gjk(i, 616),i=1,2)/ 1959 & 3.053914619381535D-04, 1960 & 4.984958396944782D-01, 0.000000000000000D+00/ 1961 data wleb( 617),(gjk(i, 617),i=1,2)/ 1962 & 3.143916684147777D-04, 1963 & 5.864975046021365D-01, 0.000000000000000D+00/ 1964 data wleb( 618),(gjk(i, 618),i=1,2)/ 1965 & 3.187042244055363D-04, 1966 & 6.686711634580175D-01, 0.000000000000000D+00/ 1967 data wleb( 619),(gjk(i, 619),i=1,2)/ 1968 & 1.635219535869790D-04, 1969 & 8.715738780835949D-02, 2.557175233367578D-02/ 1970 data wleb( 620),(gjk(i, 620),i=1,2)/ 1971 & 1.968109917696070D-04, 1972 & 1.248383123134007D-01, 5.604823383376681D-02/ 1973 data wleb( 621),(gjk(i, 621),i=1,2)/ 1974 & 2.236754342249974D-04, 1975 & 1.638062693383378D-01, 8.968568601900764D-02/ 1976 data wleb( 622),(gjk(i, 622),i=1,2)/ 1977 & 2.453186687017181D-04, 1978 & 2.035586203373176D-01, 1.254086651976279D-01/ 1979 data wleb( 623),(gjk(i, 623),i=1,2)/ 1980 & 2.627551791580541D-04, 1981 & 2.436798975293774D-01, 1.624780150162012D-01/ 1982 data wleb( 624),(gjk(i, 624),i=1,2)/ 1983 & 2.767654860152220D-04, 1984 & 2.838207507773806D-01, 2.003422342683208D-01/ 1985 data wleb( 625),(gjk(i, 625),i=1,2)/ 1986 & 2.879467027765895D-04, 1987 & 3.236787502217692D-01, 2.385628026255263D-01/ 1988 data wleb( 626),(gjk(i, 626),i=1,2)/ 1989 & 2.967639918918702D-04, 1990 & 3.629849554840691D-01, 2.767731148783578D-01/ 1991 data wleb( 627),(gjk(i, 627),i=1,2)/ 1992 & 3.035900684660351D-04, 1993 & 4.014948081992087D-01, 3.146542308245309D-01/ 1994 data wleb( 628),(gjk(i, 628),i=1,2)/ 1995 & 3.087338237298308D-04, 1996 & 4.389818379260225D-01, 3.519196415895088D-01/ 1997 data wleb( 629),(gjk(i, 629),i=1,2)/ 1998 & 3.124608838860167D-04, 1999 & 4.752331143674377D-01, 3.883050984023654D-01/ 2000 data wleb( 630),(gjk(i, 630),i=1,2)/ 2001 & 3.150084294226743D-04, 2002 & 5.100457318374018D-01, 4.235613423908649D-01/ 2003 data wleb( 631),(gjk(i, 631),i=1,2)/ 2004 & 3.165958398598402D-04, 2005 & 5.432238388954868D-01, 4.574484717196220D-01/ 2006 data wleb( 632),(gjk(i, 632),i=1,2)/ 2007 & 3.174320440957372D-04, 2008 & 5.745758685072442D-01, 4.897311639255524D-01/ 2009 data wleb( 633),(gjk(i, 633),i=1,2)/ 2010 & 2.182188909812599D-04, 2011 & 1.723981437592809D-01, 3.010630597881105D-02/ 2012 data wleb( 634),(gjk(i, 634),i=1,2)/ 2013 & 2.399727933921445D-04, 2014 & 2.149553257844597D-01, 6.326031554204695D-02/ 2015 data wleb( 635),(gjk(i, 635),i=1,2)/ 2016 & 2.579796133514652D-04, 2017 & 2.573256081247422D-01, 9.848566980258631D-02/ 2018 data wleb( 636),(gjk(i, 636),i=1,2)/ 2019 & 2.727114052623535D-04, 2020 & 2.993163751238106D-01, 1.350835952384266D-01/ 2021 data wleb( 637),(gjk(i, 637),i=1,2)/ 2022 & 2.846327656281355D-04, 2023 & 3.407238005148000D-01, 1.725184055442181D-01/ 2024 data wleb( 638),(gjk(i, 638),i=1,2)/ 2025 & 2.941491102051334D-04, 2026 & 3.813454978483264D-01, 2.103559279730725D-01/ 2027 data wleb( 639),(gjk(i, 639),i=1,2)/ 2028 & 3.016049492136107D-04, 2029 & 4.209848104423343D-01, 2.482278774554860D-01/ 2030 data wleb( 640),(gjk(i, 640),i=1,2)/ 2031 & 3.072949726175648D-04, 2032 & 4.594519699996300D-01, 2.858099509982883D-01/ 2033 data wleb( 641),(gjk(i, 641),i=1,2)/ 2034 & 3.114768142886460D-04, 2035 & 4.965640166185930D-01, 3.228075659915428D-01/ 2036 data wleb( 642),(gjk(i, 642),i=1,2)/ 2037 & 3.143823673666223D-04, 2038 & 5.321441655571562D-01, 3.589459907204151D-01/ 2039 data wleb( 643),(gjk(i, 643),i=1,2)/ 2040 & 3.162269764661535D-04, 2041 & 5.660208438582166D-01, 3.939630088864310D-01/ 2042 data wleb( 644),(gjk(i, 644),i=1,2)/ 2043 & 3.172164663759821D-04, 2044 & 5.980264315964364D-01, 4.276029922949089D-01/ 2045 data wleb( 645),(gjk(i, 645),i=1,2)/ 2046 & 2.554575398967435D-04, 2047 & 2.644215852350733D-01, 3.300939429072552D-02/ 2048 data wleb( 646),(gjk(i, 646),i=1,2)/ 2049 & 2.701704069135677D-04, 2050 & 3.090113743443063D-01, 6.803887650078501D-02/ 2051 data wleb( 647),(gjk(i, 647),i=1,2)/ 2052 & 2.823693413468940D-04, 2053 & 3.525871079197808D-01, 1.044326136206709D-01/ 2054 data wleb( 648),(gjk(i, 648),i=1,2)/ 2055 & 2.922898463214289D-04, 2056 & 3.950418005354029D-01, 1.416751597517679D-01/ 2057 data wleb( 649),(gjk(i, 649),i=1,2)/ 2058 & 3.001829062162428D-04, 2059 & 4.362475663430163D-01, 1.793408610504821D-01/ 2060 data wleb( 650),(gjk(i, 650),i=1,2)/ 2061 & 3.062890864542953D-04, 2062 & 4.760661812145854D-01, 2.170630750175722D-01/ 2063 data wleb( 651),(gjk(i, 651),i=1,2)/ 2064 & 3.108328279264746D-04, 2065 & 5.143551042512103D-01, 2.545145157815807D-01/ 2066 data wleb( 652),(gjk(i, 652),i=1,2)/ 2067 & 3.140243146201245D-04, 2068 & 5.509709026935597D-01, 2.913940101706601D-01/ 2069 data wleb( 653),(gjk(i, 653),i=1,2)/ 2070 & 3.160638030977130D-04, 2071 & 5.857711030329428D-01, 3.274169910910705D-01/ 2072 data wleb( 654),(gjk(i, 654),i=1,2)/ 2073 & 3.171462882206275D-04, 2074 & 6.186149917404392D-01, 3.623081329317265D-01/ 2075 data wleb( 655),(gjk(i, 655),i=1,2)/ 2076 & 2.812388416031796D-04, 2077 & 3.586894569557064D-01, 3.497354386450040D-02/ 2078 data wleb( 656),(gjk(i, 656),i=1,2)/ 2079 & 2.912137500288045D-04, 2080 & 4.035266610019441D-01, 7.129736739757095D-02/ 2081 data wleb( 657),(gjk(i, 657),i=1,2)/ 2082 & 2.993241256502206D-04, 2083 & 4.467775312332510D-01, 1.084758620193165D-01/ 2084 data wleb( 658),(gjk(i, 658),i=1,2)/ 2085 & 3.057101738983822D-04, 2086 & 4.883638346608543D-01, 1.460915689241772D-01/ 2087 data wleb( 659),(gjk(i, 659),i=1,2)/ 2088 & 3.105319326251432D-04, 2089 & 5.281908348434601D-01, 1.837790832369980D-01/ 2090 data wleb( 660),(gjk(i, 660),i=1,2)/ 2091 & 3.139565514428167D-04, 2092 & 5.661542687149311D-01, 2.212075390874021D-01/ 2093 data wleb( 661),(gjk(i, 661),i=1,2)/ 2094 & 3.161543006806366D-04, 2095 & 6.021450102031451D-01, 2.580682841160985D-01/ 2096 data wleb( 662),(gjk(i, 662),i=1,2)/ 2097 & 3.172985960613294D-04, 2098 & 6.360520783610050D-01, 2.940656362094121D-01/ 2099 data wleb( 663),(gjk(i, 663),i=1,2)/ 2100 & 2.989400336901431D-04, 2101 & 4.521611065087196D-01, 3.631055365867002D-02/ 2102 data wleb( 664),(gjk(i, 664),i=1,2)/ 2103 & 3.054555883947677D-04, 2104 & 4.959365651560963D-01, 7.348318468484349D-02/ 2105 data wleb( 665),(gjk(i, 665),i=1,2)/ 2106 & 3.104764960807702D-04, 2107 & 5.376815804038283D-01, 1.111087643812648D-01/ 2108 data wleb( 666),(gjk(i, 666),i=1,2)/ 2109 & 3.141015825977616D-04, 2110 & 5.773314480243767D-01, 1.488226085145408D-01/ 2111 data wleb( 667),(gjk(i, 667),i=1,2)/ 2112 & 3.164520621159896D-04, 2113 & 6.148113245575056D-01, 1.862892274135151D-01/ 2114 data wleb( 668),(gjk(i, 668),i=1,2)/ 2115 & 3.176652305912204D-04, 2116 & 6.500407462842380D-01, 2.231909701714456D-01/ 2117 data wleb( 669),(gjk(i, 669),i=1,2)/ 2118 & 3.105097161023939D-04, 2119 & 5.425151448707213D-01, 3.718201306118944D-02/ 2120 data wleb( 670),(gjk(i, 670),i=1,2)/ 2121 & 3.143014117890550D-04, 2122 & 5.841860556907931D-01, 7.483616335067346D-02/ 2123 data wleb( 671),(gjk(i, 671),i=1,2)/ 2124 & 3.168172866287200D-04, 2125 & 6.234632186851500D-01, 1.125990834266120D-01/ 2126 data wleb( 672),(gjk(i, 672),i=1,2)/ 2127 & 3.181401865570968D-04, 2128 & 6.602934551848842D-01, 1.501303813157619D-01/ 2129 data wleb( 673),(gjk(i, 673),i=1,2)/ 2130 & 3.170663659156037D-04, 2131 & 6.278573968375105D-01, 3.767559930245720D-02/ 2132 data wleb( 674),(gjk(i, 674),i=1,2)/ 2133 & 3.185447944625510D-04, 2134 & 6.665611711264577D-01, 7.548443301360158D-02/ 2135C 2136C n = 113 2137C 2138 data wleb( 675),(gjk(i, 675),i=1,2)/ 2139 & 1.807395252196920D-05, 2140 & 1.000000000000000D+00, 0.000000000000000D+00/ 2141 data wleb( 676),(gjk(i, 676),i=1,2)/ 2142 & 2.848008782238827D-04, 2143 & 1.000000000000000D+00, 1.000000000000000D+00/ 2144 data wleb( 677),(gjk(i, 677),i=1,2)/ 2145 & 2.836065837530581D-04, 2146 & 1.000000000000000D+00, 1.000000000000000D+00/ 2147 data wleb( 678),(gjk(i, 678),i=1,2)/ 2148 & 7.013149266673816D-05, 2149 & 1.587876419858352D-02, 1.587876419858352D-02/ 2150 data wleb( 679),(gjk(i, 679),i=1,2)/ 2151 & 1.162798021956766D-04, 2152 & 4.069193593751206D-02, 4.069193593751206D-02/ 2153 data wleb( 680),(gjk(i, 680),i=1,2)/ 2154 & 1.518728583972105D-04, 2155 & 7.025888115257997D-02, 7.025888115257997D-02/ 2156 data wleb( 681),(gjk(i, 681),i=1,2)/ 2157 & 1.798796108216934D-04, 2158 & 1.027495450028704D-01, 1.027495450028704D-01/ 2159 data wleb( 682),(gjk(i, 682),i=1,2)/ 2160 & 2.022593385972785D-04, 2161 & 1.371457730893426D-01, 1.371457730893426D-01/ 2162 data wleb( 683),(gjk(i, 683),i=1,2)/ 2163 & 2.203093105575464D-04, 2164 & 1.727758532671953D-01, 1.727758532671953D-01/ 2165 data wleb( 684),(gjk(i, 684),i=1,2)/ 2166 & 2.349294234299855D-04, 2167 & 2.091492038929037D-01, 2.091492038929037D-01/ 2168 data wleb( 685),(gjk(i, 685),i=1,2)/ 2169 & 2.467682058747003D-04, 2170 & 2.458813281751915D-01, 2.458813281751915D-01/ 2171 data wleb( 686),(gjk(i, 686),i=1,2)/ 2172 & 2.563092683572224D-04, 2173 & 2.826545859450066D-01, 2.826545859450066D-01/ 2174 data wleb( 687),(gjk(i, 687),i=1,2)/ 2175 & 2.639253896763318D-04, 2176 & 3.191957291799622D-01, 3.191957291799622D-01/ 2177 data wleb( 688),(gjk(i, 688),i=1,2)/ 2178 & 2.699137479265108D-04, 2179 & 3.552621469299578D-01, 3.552621469299578D-01/ 2180 data wleb( 689),(gjk(i, 689),i=1,2)/ 2181 & 2.745196420166739D-04, 2182 & 3.906329503406230D-01, 3.906329503406230D-01/ 2183 data wleb( 690),(gjk(i, 690),i=1,2)/ 2184 & 2.779529197397593D-04, 2185 & 4.251028614093031D-01, 4.251028614093031D-01/ 2186 data wleb( 691),(gjk(i, 691),i=1,2)/ 2187 & 2.803996086684265D-04, 2188 & 4.584777520111870D-01, 4.584777520111870D-01/ 2189 data wleb( 692),(gjk(i, 692),i=1,2)/ 2190 & 2.820302356715842D-04, 2191 & 4.905711358710193D-01, 4.905711358710193D-01/ 2192 data wleb( 693),(gjk(i, 693),i=1,2)/ 2193 & 2.830056747491068D-04, 2194 & 5.212011669847385D-01, 5.212011669847385D-01/ 2195 data wleb( 694),(gjk(i, 694),i=1,2)/ 2196 & 2.834808950776839D-04, 2197 & 5.501878488737995D-01, 5.501878488737995D-01/ 2198 data wleb( 695),(gjk(i, 695),i=1,2)/ 2199 & 2.835282339078929D-04, 2200 & 6.025037877479342D-01, 6.025037877479342D-01/ 2201 data wleb( 696),(gjk(i, 696),i=1,2)/ 2202 & 2.833819267065800D-04, 2203 & 6.254572689549016D-01, 6.254572689549016D-01/ 2204 data wleb( 697),(gjk(i, 697),i=1,2)/ 2205 & 2.832858336906784D-04, 2206 & 6.460107179528248D-01, 6.460107179528248D-01/ 2207 data wleb( 698),(gjk(i, 698),i=1,2)/ 2208 & 2.833268235451244D-04, 2209 & 6.639541138154251D-01, 6.639541138154251D-01/ 2210 data wleb( 699),(gjk(i, 699),i=1,2)/ 2211 & 2.835432677029253D-04, 2212 & 6.790688515667495D-01, 6.790688515667495D-01/ 2213 data wleb( 700),(gjk(i, 700),i=1,2)/ 2214 & 2.839091722743049D-04, 2215 & 6.911338580371512D-01, 6.911338580371512D-01/ 2216 data wleb( 701),(gjk(i, 701),i=1,2)/ 2217 & 2.843308178875841D-04, 2218 & 6.999385956126490D-01, 6.999385956126490D-01/ 2219 data wleb( 702),(gjk(i, 702),i=1,2)/ 2220 & 2.846703550533846D-04, 2221 & 7.053037748656896D-01, 7.053037748656896D-01/ 2222 data wleb( 703),(gjk(i, 703),i=1,2)/ 2223 & 1.051193406971900D-04, 2224 & 4.732224387180115D-02, 0.000000000000000D+00/ 2225 data wleb( 704),(gjk(i, 704),i=1,2)/ 2226 & 1.657871838796974D-04, 2227 & 1.202100529326803D-01, 0.000000000000000D+00/ 2228 data wleb( 705),(gjk(i, 705),i=1,2)/ 2229 & 2.064648113714232D-04, 2230 & 2.034304820664855D-01, 0.000000000000000D+00/ 2231 data wleb( 706),(gjk(i, 706),i=1,2)/ 2232 & 2.347942745819741D-04, 2233 & 2.912285643573002D-01, 0.000000000000000D+00/ 2234 data wleb( 707),(gjk(i, 707),i=1,2)/ 2235 & 2.547775326597726D-04, 2236 & 3.802361792726768D-01, 0.000000000000000D+00/ 2237 data wleb( 708),(gjk(i, 708),i=1,2)/ 2238 & 2.686876684847025D-04, 2239 & 4.680598511056146D-01, 0.000000000000000D+00/ 2240 data wleb( 709),(gjk(i, 709),i=1,2)/ 2241 & 2.778665755515867D-04, 2242 & 5.528151052155599D-01, 0.000000000000000D+00/ 2243 data wleb( 710),(gjk(i, 710),i=1,2)/ 2244 & 2.830996616782929D-04, 2245 & 6.329386307803041D-01, 0.000000000000000D+00/ 2246 data wleb( 711),(gjk(i, 711),i=1,2)/ 2247 & 1.403063340168372D-04, 2248 & 8.056516651369069D-02, 2.363454684003124D-02/ 2249 data wleb( 712),(gjk(i, 712),i=1,2)/ 2250 & 1.696504125939477D-04, 2251 & 1.156476077139389D-01, 5.191291632545936D-02/ 2252 data wleb( 713),(gjk(i, 713),i=1,2)/ 2253 & 1.935787242745390D-04, 2254 & 1.520473382760421D-01, 8.322715736994520D-02/ 2255 data wleb( 714),(gjk(i, 714),i=1,2)/ 2256 & 2.130614510521968D-04, 2257 & 1.892986699745931D-01, 1.165855667993712D-01/ 2258 data wleb( 715),(gjk(i, 715),i=1,2)/ 2259 & 2.289381265931048D-04, 2260 & 2.270194446777792D-01, 1.513077167409504D-01/ 2261 data wleb( 716),(gjk(i, 716),i=1,2)/ 2262 & 2.418630292816186D-04, 2263 & 2.648908185093273D-01, 1.868882025807859D-01/ 2264 data wleb( 717),(gjk(i, 717),i=1,2)/ 2265 & 2.523400495631193D-04, 2266 & 3.026389259574136D-01, 2.229277629776224D-01/ 2267 data wleb( 718),(gjk(i, 718),i=1,2)/ 2268 & 2.607623973449605D-04, 2269 & 3.400220296151384D-01, 2.590951840746235D-01/ 2270 data wleb( 719),(gjk(i, 719),i=1,2)/ 2271 & 2.674441032689209D-04, 2272 & 3.768217953335510D-01, 2.951047291750847D-01/ 2273 data wleb( 720),(gjk(i, 720),i=1,2)/ 2274 & 2.726432360343356D-04, 2275 & 4.128372900921884D-01, 3.307019714169930D-01/ 2276 data wleb( 721),(gjk(i, 721),i=1,2)/ 2277 & 2.765787685924545D-04, 2278 & 4.478807131815630D-01, 3.656544101087634D-01/ 2279 data wleb( 722),(gjk(i, 722),i=1,2)/ 2280 & 2.794428690642224D-04, 2281 & 4.817742034089257D-01, 3.997448951939695D-01/ 2282 data wleb( 723),(gjk(i, 723),i=1,2)/ 2283 & 2.814099002062895D-04, 2284 & 5.143472814653344D-01, 4.327667110812024D-01/ 2285 data wleb( 724),(gjk(i, 724),i=1,2)/ 2286 & 2.826429531578994D-04, 2287 & 5.454346213905650D-01, 4.645196123532293D-01/ 2288 data wleb( 725),(gjk(i, 725),i=1,2)/ 2289 & 2.832983542550884D-04, 2290 & 5.748739313170252D-01, 4.948063555703345D-01/ 2291 data wleb( 726),(gjk(i, 726),i=1,2)/ 2292 & 1.886695565284976D-04, 2293 & 1.599598738286342D-01, 2.792357590048985D-02/ 2294 data wleb( 727),(gjk(i, 727),i=1,2)/ 2295 & 2.081867882748234D-04, 2296 & 1.998097412500951D-01, 5.877141038139065D-02/ 2297 data wleb( 728),(gjk(i, 728),i=1,2)/ 2298 & 2.245148680600796D-04, 2299 & 2.396228952566202D-01, 9.164573914691378D-02/ 2300 data wleb( 729),(gjk(i, 729),i=1,2)/ 2301 & 2.380370491511872D-04, 2302 & 2.792228341097746D-01, 1.259049641962687D-01/ 2303 data wleb( 730),(gjk(i, 730),i=1,2)/ 2304 & 2.491398041852455D-04, 2305 & 3.184251107546741D-01, 1.610594823400863D-01/ 2306 data wleb( 731),(gjk(i, 731),i=1,2)/ 2307 & 2.581632405881230D-04, 2308 & 3.570481164426244D-01, 1.967151653460898D-01/ 2309 data wleb( 732),(gjk(i, 732),i=1,2)/ 2310 & 2.653965506227417D-04, 2311 & 3.949164710492144D-01, 2.325404606175168D-01/ 2312 data wleb( 733),(gjk(i, 733),i=1,2)/ 2313 & 2.710857216747087D-04, 2314 & 4.318617293970503D-01, 2.682461141151439D-01/ 2315 data wleb( 734),(gjk(i, 734),i=1,2)/ 2316 & 2.754434093903659D-04, 2317 & 4.677221009931678D-01, 3.035720116011973D-01/ 2318 data wleb( 735),(gjk(i, 735),i=1,2)/ 2319 & 2.786579932519380D-04, 2320 & 5.023417939270955D-01, 3.382781859197439D-01/ 2321 data wleb( 736),(gjk(i, 736),i=1,2)/ 2322 & 2.809011080679474D-04, 2323 & 5.355701836636128D-01, 3.721383065625942D-01/ 2324 data wleb( 737),(gjk(i, 737),i=1,2)/ 2325 & 2.823336184560987D-04, 2326 & 5.672608451328771D-01, 4.049346360466055D-01/ 2327 data wleb( 738),(gjk(i, 738),i=1,2)/ 2328 & 2.831101175806309D-04, 2329 & 5.972704202540162D-01, 4.364538098633802D-01/ 2330 data wleb( 739),(gjk(i, 739),i=1,2)/ 2331 & 2.221679970354546D-04, 2332 & 2.461687022333596D-01, 3.070423166833368D-02/ 2333 data wleb( 740),(gjk(i, 740),i=1,2)/ 2334 & 2.356185734270703D-04, 2335 & 2.881774566286831D-01, 6.338034669281885D-02/ 2336 data wleb( 741),(gjk(i, 741),i=1,2)/ 2337 & 2.469228344805590D-04, 2338 & 3.293963604116978D-01, 9.742862487067941D-02/ 2339 data wleb( 742),(gjk(i, 742),i=1,2)/ 2340 & 2.562726348642046D-04, 2341 & 3.697303822241377D-01, 1.323799532282290D-01/ 2342 data wleb( 743),(gjk(i, 743),i=1,2)/ 2343 & 2.638756726753028D-04, 2344 & 4.090663023135127D-01, 1.678497018129336D-01/ 2345 data wleb( 744),(gjk(i, 744),i=1,2)/ 2346 & 2.699311157390862D-04, 2347 & 4.472819355411712D-01, 2.035095105326114D-01/ 2348 data wleb( 745),(gjk(i, 745),i=1,2)/ 2349 & 2.746233268403837D-04, 2350 & 4.842513377231437D-01, 2.390692566672091D-01/ 2351 data wleb( 746),(gjk(i, 746),i=1,2)/ 2352 & 2.781225674454771D-04, 2353 & 5.198477629962928D-01, 2.742649818076149D-01/ 2354 data wleb( 747),(gjk(i, 747),i=1,2)/ 2355 & 2.805881254045684D-04, 2356 & 5.539453011883145D-01, 3.088503806580094D-01/ 2357 data wleb( 748),(gjk(i, 748),i=1,2)/ 2358 & 2.821719877004913D-04, 2359 & 5.864196762401251D-01, 3.425904245906614D-01/ 2360 data wleb( 749),(gjk(i, 749),i=1,2)/ 2361 & 2.830222502333124D-04, 2362 & 6.171484466668390D-01, 3.752562294789468D-01/ 2363 data wleb( 750),(gjk(i, 750),i=1,2)/ 2364 & 2.457995956744870D-04, 2365 & 3.350337830565727D-01, 3.261589934634747D-02/ 2366 data wleb( 751),(gjk(i, 751),i=1,2)/ 2367 & 2.551474407503706D-04, 2368 & 3.775773224758284D-01, 6.658438928081573D-02/ 2369 data wleb( 752),(gjk(i, 752),i=1,2)/ 2370 & 2.629065335195311D-04, 2371 & 4.188155229848973D-01, 1.014565797157954D-01/ 2372 data wleb( 753),(gjk(i, 753),i=1,2)/ 2373 & 2.691900449925075D-04, 2374 & 4.586805892009344D-01, 1.368573320843822D-01/ 2375 data wleb( 754),(gjk(i, 754),i=1,2)/ 2376 & 2.741275485754276D-04, 2377 & 4.970895714224235D-01, 1.724614851951608D-01/ 2378 data wleb( 755),(gjk(i, 755),i=1,2)/ 2379 & 2.778530970122595D-04, 2380 & 5.339505133960747D-01, 2.079779381416412D-01/ 2381 data wleb( 756),(gjk(i, 756),i=1,2)/ 2382 & 2.805010567646741D-04, 2383 & 5.691665792531440D-01, 2.431385788322288D-01/ 2384 data wleb( 757),(gjk(i, 757),i=1,2)/ 2385 & 2.822055834031040D-04, 2386 & 6.026387682680377D-01, 2.776901883049853D-01/ 2387 data wleb( 758),(gjk(i, 758),i=1,2)/ 2388 & 2.831016901243473D-04, 2389 & 6.342676150163307D-01, 3.113881356386632D-01/ 2390 data wleb( 759),(gjk(i, 759),i=1,2)/ 2391 & 2.624474901131803D-04, 2392 & 4.237951119537067D-01, 3.394877848664351D-02/ 2393 data wleb( 760),(gjk(i, 760),i=1,2)/ 2394 & 2.688034163039377D-04, 2395 & 4.656918683234929D-01, 6.880219556291448D-02/ 2396 data wleb( 761),(gjk(i, 761),i=1,2)/ 2397 & 2.738932751287636D-04, 2398 & 5.058857069185980D-01, 1.041946859721635D-01/ 2399 data wleb( 762),(gjk(i, 762),i=1,2)/ 2400 & 2.777944791242523D-04, 2401 & 5.443204666713995D-01, 1.398039738736393D-01/ 2402 data wleb( 763),(gjk(i, 763),i=1,2)/ 2403 & 2.806011661660987D-04, 2404 & 5.809298813759742D-01, 1.753373381196155D-01/ 2405 data wleb( 764),(gjk(i, 764),i=1,2)/ 2406 & 2.824181456597460D-04, 2407 & 6.156416039447128D-01, 2.105215793514010D-01/ 2408 data wleb( 765),(gjk(i, 765),i=1,2)/ 2409 & 2.833585216577828D-04, 2410 & 6.483801351066604D-01, 2.450953312157051D-01/ 2411 data wleb( 766),(gjk(i, 766),i=1,2)/ 2412 & 2.738165236962878D-04, 2413 & 5.103616577251688D-01, 3.485560643800719D-02/ 2414 data wleb( 767),(gjk(i, 767),i=1,2)/ 2415 & 2.778365208203180D-04, 2416 & 5.506738792580681D-01, 7.026308631512033D-02/ 2417 data wleb( 768),(gjk(i, 768),i=1,2)/ 2418 & 2.807852940418966D-04, 2419 & 5.889573040995292D-01, 1.059035061296403D-01/ 2420 data wleb( 769),(gjk(i, 769),i=1,2)/ 2421 & 2.827245949674705D-04, 2422 & 6.251641589516930D-01, 1.414823925236026D-01/ 2423 data wleb( 770),(gjk(i, 770),i=1,2)/ 2424 & 2.837342344829828D-04, 2425 & 6.592414921570178D-01, 1.767207908214530D-01/ 2426 data wleb( 771),(gjk(i, 771),i=1,2)/ 2427 & 2.809233907610981D-04, 2428 & 5.930314017533383D-01, 3.542189339561672D-02/ 2429 data wleb( 772),(gjk(i, 772),i=1,2)/ 2430 & 2.829930809742694D-04, 2431 & 6.309812253390175D-01, 7.109574040369548D-02/ 2432 data wleb( 773),(gjk(i, 773),i=1,2)/ 2433 & 2.841097874111479D-04, 2434 & 6.666296011353230D-01, 1.067259792282730D-01/ 2435 data wleb( 774),(gjk(i, 774),i=1,2)/ 2436 & 2.843455206008783D-04, 2437 & 6.703715271049921D-01, 3.569455268820809D-02/ 2438C 2439C n = 119 2440C 2441 data wleb( 775),(gjk(i, 775),i=1,2)/ 2442 & 1.449063022537883D-05, 2443 & 1.000000000000000D+00, 0.000000000000000D+00/ 2444 data wleb( 776),(gjk(i, 776),i=1,2)/ 2445 & 2.546377329828424D-04, 2446 & 1.000000000000000D+00, 1.000000000000000D+00/ 2447 data wleb( 777),(gjk(i, 777),i=1,2)/ 2448 & 6.018432961087496D-05, 2449 & 1.462896151831013D-02, 1.462896151831013D-02/ 2450 data wleb( 778),(gjk(i, 778),i=1,2)/ 2451 & 1.002286583263673D-04, 2452 & 3.769840812493139D-02, 3.769840812493139D-02/ 2453 data wleb( 779),(gjk(i, 779),i=1,2)/ 2454 & 1.315222931028093D-04, 2455 & 6.524701904096891D-02, 6.524701904096891D-02/ 2456 data wleb( 780),(gjk(i, 780),i=1,2)/ 2457 & 1.564213746876724D-04, 2458 & 9.560543416134648D-02, 9.560543416134648D-02/ 2459 data wleb( 781),(gjk(i, 781),i=1,2)/ 2460 & 1.765118841507736D-04, 2461 & 1.278335898929198D-01, 1.278335898929198D-01/ 2462 data wleb( 782),(gjk(i, 782),i=1,2)/ 2463 & 1.928737099311080D-04, 2464 & 1.613096104466031D-01, 1.613096104466031D-01/ 2465 data wleb( 783),(gjk(i, 783),i=1,2)/ 2466 & 2.062658534263270D-04, 2467 & 1.955806225745371D-01, 1.955806225745371D-01/ 2468 data wleb( 784),(gjk(i, 784),i=1,2)/ 2469 & 2.172395445953787D-04, 2470 & 2.302935218498028D-01, 2.302935218498028D-01/ 2471 data wleb( 785),(gjk(i, 785),i=1,2)/ 2472 & 2.262076188876047D-04, 2473 & 2.651584344113027D-01, 2.651584344113027D-01/ 2474 data wleb( 786),(gjk(i, 786),i=1,2)/ 2475 & 2.334885699462397D-04, 2476 & 2.999276825183209D-01, 2.999276825183209D-01/ 2477 data wleb( 787),(gjk(i, 787),i=1,2)/ 2478 & 2.393355273179203D-04, 2479 & 3.343828669718798D-01, 3.343828669718798D-01/ 2480 data wleb( 788),(gjk(i, 788),i=1,2)/ 2481 & 2.439559200468863D-04, 2482 & 3.683265013750518D-01, 3.683265013750518D-01/ 2483 data wleb( 789),(gjk(i, 789),i=1,2)/ 2484 & 2.475251866060002D-04, 2485 & 4.015763206518108D-01, 4.015763206518108D-01/ 2486 data wleb( 790),(gjk(i, 790),i=1,2)/ 2487 & 2.501965558158773D-04, 2488 & 4.339612026399770D-01, 4.339612026399770D-01/ 2489 data wleb( 791),(gjk(i, 791),i=1,2)/ 2490 & 2.521081407925925D-04, 2491 & 4.653180651114582D-01, 4.653180651114582D-01/ 2492 data wleb( 792),(gjk(i, 792),i=1,2)/ 2493 & 2.533881002388081D-04, 2494 & 4.954893331080803D-01, 4.954893331080803D-01/ 2495 data wleb( 793),(gjk(i, 793),i=1,2)/ 2496 & 2.541582900848261D-04, 2497 & 5.243207068924930D-01, 5.243207068924930D-01/ 2498 data wleb( 794),(gjk(i, 794),i=1,2)/ 2499 & 2.545365737525860D-04, 2500 & 5.516590479041704D-01, 5.516590479041704D-01/ 2501 data wleb( 795),(gjk(i, 795),i=1,2)/ 2502 & 2.545726993066799D-04, 2503 & 6.012371927804177D-01, 6.012371927804177D-01/ 2504 data wleb( 796),(gjk(i, 796),i=1,2)/ 2505 & 2.544456197465555D-04, 2506 & 6.231574466449818D-01, 6.231574466449818D-01/ 2507 data wleb( 797),(gjk(i, 797),i=1,2)/ 2508 & 2.543481596881064D-04, 2509 & 6.429416514181271D-01, 6.429416514181271D-01/ 2510 data wleb( 798),(gjk(i, 798),i=1,2)/ 2511 & 2.543506451429194D-04, 2512 & 6.604124272943594D-01, 6.604124272943594D-01/ 2513 data wleb( 799),(gjk(i, 799),i=1,2)/ 2514 & 2.544905675493763D-04, 2515 & 6.753851470408250D-01, 6.753851470408250D-01/ 2516 data wleb( 800),(gjk(i, 800),i=1,2)/ 2517 & 2.547611407344429D-04, 2518 & 6.876717970626161D-01, 6.876717970626161D-01/ 2519 data wleb( 801),(gjk(i, 801),i=1,2)/ 2520 & 2.551060375448869D-04, 2521 & 6.970895061319234D-01, 6.970895061319234D-01/ 2522 data wleb( 802),(gjk(i, 802),i=1,2)/ 2523 & 2.554291933816039D-04, 2524 & 7.034746912553310D-01, 7.034746912553310D-01/ 2525 data wleb( 803),(gjk(i, 803),i=1,2)/ 2526 & 2.556255710686343D-04, 2527 & 7.067017217542295D-01, 7.067017217542295D-01/ 2528 data wleb( 804),(gjk(i, 804),i=1,2)/ 2529 & 9.041339695118196D-05, 2530 & 4.382223501131123D-02, 0.000000000000000D+00/ 2531 data wleb( 805),(gjk(i, 805),i=1,2)/ 2532 & 1.438426330079022D-04, 2533 & 1.117474077400006D-01, 0.000000000000000D+00/ 2534 data wleb( 806),(gjk(i, 806),i=1,2)/ 2535 & 1.802523089820518D-04, 2536 & 1.897153252911440D-01, 0.000000000000000D+00/ 2537 data wleb( 807),(gjk(i, 807),i=1,2)/ 2538 & 2.060052290565496D-04, 2539 & 2.724023009910331D-01, 0.000000000000000D+00/ 2540 data wleb( 808),(gjk(i, 808),i=1,2)/ 2541 & 2.245002248967466D-04, 2542 & 3.567163308709902D-01, 0.000000000000000D+00/ 2543 data wleb( 809),(gjk(i, 809),i=1,2)/ 2544 & 2.377059847731150D-04, 2545 & 4.404784483028087D-01, 0.000000000000000D+00/ 2546 data wleb( 810),(gjk(i, 810),i=1,2)/ 2547 & 2.468118955882525D-04, 2548 & 5.219833154161411D-01, 0.000000000000000D+00/ 2549 data wleb( 811),(gjk(i, 811),i=1,2)/ 2550 & 2.525410872966528D-04, 2551 & 5.998179868977553D-01, 0.000000000000000D+00/ 2552 data wleb( 812),(gjk(i, 812),i=1,2)/ 2553 & 2.553101409933397D-04, 2554 & 6.727803154548222D-01, 0.000000000000000D+00/ 2555 data wleb( 813),(gjk(i, 813),i=1,2)/ 2556 & 1.212879733668632D-04, 2557 & 7.476563943166085D-02, 2.193168509461185D-02/ 2558 data wleb( 814),(gjk(i, 814),i=1,2)/ 2559 & 1.472872881270931D-04, 2560 & 1.075341482001416D-01, 4.826419281533887D-02/ 2561 data wleb( 815),(gjk(i, 815),i=1,2)/ 2562 & 1.686846601010828D-04, 2563 & 1.416344885203259D-01, 7.751191883575742D-02/ 2564 data wleb( 816),(gjk(i, 816),i=1,2)/ 2565 & 1.862698414660208D-04, 2566 & 1.766325315388586D-01, 1.087558139247680D-01/ 2567 data wleb( 817),(gjk(i, 817),i=1,2)/ 2568 & 2.007430956991861D-04, 2569 & 2.121744174481514D-01, 1.413661374253096D-01/ 2570 data wleb( 818),(gjk(i, 818),i=1,2)/ 2571 & 2.126568125394796D-04, 2572 & 2.479669443408145D-01, 1.748768214258880D-01/ 2573 data wleb( 819),(gjk(i, 819),i=1,2)/ 2574 & 2.224394603372113D-04, 2575 & 2.837600452294113D-01, 2.089216406612073D-01/ 2576 data wleb( 820),(gjk(i, 820),i=1,2)/ 2577 & 2.304264522673135D-04, 2578 & 3.193344933193984D-01, 2.431987685545972D-01/ 2579 data wleb( 821),(gjk(i, 821),i=1,2)/ 2580 & 2.368854288424087D-04, 2581 & 3.544935442438745D-01, 2.774497054377770D-01/ 2582 data wleb( 822),(gjk(i, 822),i=1,2)/ 2583 & 2.420352089461772D-04, 2584 & 3.890571932288154D-01, 3.114460356156915D-01/ 2585 data wleb( 823),(gjk(i, 823),i=1,2)/ 2586 & 2.460597113081295D-04, 2587 & 4.228581214259090D-01, 3.449806851913012D-01/ 2588 data wleb( 824),(gjk(i, 824),i=1,2)/ 2589 & 2.491181912257687D-04, 2590 & 4.557387211304052D-01, 3.778618641248256D-01/ 2591 data wleb( 825),(gjk(i, 825),i=1,2)/ 2592 & 2.513528194205857D-04, 2593 & 4.875487950541643D-01, 4.099086391698978D-01/ 2594 data wleb( 826),(gjk(i, 826),i=1,2)/ 2595 & 2.528943096693220D-04, 2596 & 5.181436529962997D-01, 4.409474925853973D-01/ 2597 data wleb( 827),(gjk(i, 827),i=1,2)/ 2598 & 2.538660368488136D-04, 2599 & 5.473824095600661D-01, 4.708094517711291D-01/ 2600 data wleb( 828),(gjk(i, 828),i=1,2)/ 2601 & 2.543868648299022D-04, 2602 & 5.751263398976174D-01, 4.993275140354637D-01/ 2603 data wleb( 829),(gjk(i, 829),i=1,2)/ 2604 & 1.642595537825183D-04, 2605 & 1.489515746840028D-01, 2.599381993267017D-02/ 2606 data wleb( 830),(gjk(i, 830),i=1,2)/ 2607 & 1.818246659849308D-04, 2608 & 1.863656444351767D-01, 5.479286532462190D-02/ 2609 data wleb( 831),(gjk(i, 831),i=1,2)/ 2610 & 1.966565649492420D-04, 2611 & 2.238602880356348D-01, 8.556763251425253D-02/ 2612 data wleb( 832),(gjk(i, 832),i=1,2)/ 2613 & 2.090677905657991D-04, 2614 & 2.612723375728160D-01, 1.177257802267011D-01/ 2615 data wleb( 833),(gjk(i, 833),i=1,2)/ 2616 & 2.193820409510504D-04, 2617 & 2.984332990206190D-01, 1.508168456192700D-01/ 2618 data wleb( 834),(gjk(i, 834),i=1,2)/ 2619 & 2.278870827661928D-04, 2620 & 3.351786584663333D-01, 1.844801892177727D-01/ 2621 data wleb( 835),(gjk(i, 835),i=1,2)/ 2622 & 2.348283192282090D-04, 2623 & 3.713505522209120D-01, 2.184145236087598D-01/ 2624 data wleb( 836),(gjk(i, 836),i=1,2)/ 2625 & 2.404139755581477D-04, 2626 & 4.067981098954663D-01, 2.523590641486229D-01/ 2627 data wleb( 837),(gjk(i, 837),i=1,2)/ 2628 & 2.448227407760734D-04, 2629 & 4.413769993687534D-01, 2.860812976901373D-01/ 2630 data wleb( 838),(gjk(i, 838),i=1,2)/ 2631 & 2.482110455592573D-04, 2632 & 4.749487182516394D-01, 3.193686757808996D-01/ 2633 data wleb( 839),(gjk(i, 839),i=1,2)/ 2634 & 2.507192397774103D-04, 2635 & 5.073798105075426D-01, 3.520226949547602D-01/ 2636 data wleb( 840),(gjk(i, 840),i=1,2)/ 2637 & 2.524765968534880D-04, 2638 & 5.385410448878654D-01, 3.838544395667890D-01/ 2639 data wleb( 841),(gjk(i, 841),i=1,2)/ 2640 & 2.536052388539425D-04, 2641 & 5.683065353670530D-01, 4.146810037640963D-01/ 2642 data wleb( 842),(gjk(i, 842),i=1,2)/ 2643 & 2.542230588033068D-04, 2644 & 5.965527620663510D-01, 4.443224094681121D-01/ 2645 data wleb( 843),(gjk(i, 843),i=1,2)/ 2646 & 1.944817013047896D-04, 2647 & 2.299227700856157D-01, 2.865757664057584D-02/ 2648 data wleb( 844),(gjk(i, 844),i=1,2)/ 2649 & 2.067862362746635D-04, 2650 & 2.695752998553267D-01, 5.923421684485993D-02/ 2651 data wleb( 845),(gjk(i, 845),i=1,2)/ 2652 & 2.172440734649114D-04, 2653 & 3.086178716611389D-01, 9.117817776057716D-02/ 2654 data wleb( 846),(gjk(i, 846),i=1,2)/ 2655 & 2.260125991723423D-04, 2656 & 3.469649871659077D-01, 1.240593814082605D-01/ 2657 data wleb( 847),(gjk(i, 847),i=1,2)/ 2658 & 2.332655008689523D-04, 2659 & 3.845153566319655D-01, 1.575272058259175D-01/ 2660 data wleb( 848),(gjk(i, 848),i=1,2)/ 2661 & 2.391699681532458D-04, 2662 & 4.211600033403215D-01, 1.912845163525413D-01/ 2663 data wleb( 849),(gjk(i, 849),i=1,2)/ 2664 & 2.438801528273928D-04, 2665 & 4.567867834329882D-01, 2.250710177858171D-01/ 2666 data wleb( 850),(gjk(i, 850),i=1,2)/ 2667 & 2.475370504260665D-04, 2668 & 4.912829319232061D-01, 2.586521303440910D-01/ 2669 data wleb( 851),(gjk(i, 851),i=1,2)/ 2670 & 2.502707235640574D-04, 2671 & 5.245364793303812D-01, 2.918112242865407D-01/ 2672 data wleb( 852),(gjk(i, 852),i=1,2)/ 2673 & 2.522031701054241D-04, 2674 & 5.564369788915756D-01, 3.243439239067890D-01/ 2675 data wleb( 853),(gjk(i, 853),i=1,2)/ 2676 & 2.534511269978784D-04, 2677 & 5.868757697775288D-01, 3.560536787835351D-01/ 2678 data wleb( 854),(gjk(i, 854),i=1,2)/ 2679 & 2.541284914955151D-04, 2680 & 6.157458853519617D-01, 3.867480821242581D-01/ 2681 data wleb( 855),(gjk(i, 855),i=1,2)/ 2682 & 2.161509250688394D-04, 2683 & 3.138461110672113D-01, 3.051374637507278D-02/ 2684 data wleb( 856),(gjk(i, 856),i=1,2)/ 2685 & 2.248778513437852D-04, 2686 & 3.542495872050569D-01, 6.237111233730755D-02/ 2687 data wleb( 857),(gjk(i, 857),i=1,2)/ 2688 & 2.322388803404617D-04, 2689 & 3.935751553120181D-01, 9.516223952401907D-02/ 2690 data wleb( 858),(gjk(i, 858),i=1,2)/ 2691 & 2.383265471001355D-04, 2692 & 4.317634668111147D-01, 1.285467341508517D-01/ 2693 data wleb( 859),(gjk(i, 859),i=1,2)/ 2694 & 2.432476675019525D-04, 2695 & 4.687413842250821D-01, 1.622318931656033D-01/ 2696 data wleb( 860),(gjk(i, 860),i=1,2)/ 2697 & 2.471122223750674D-04, 2698 & 5.044274237060283D-01, 1.959581153836453D-01/ 2699 data wleb( 861),(gjk(i, 861),i=1,2)/ 2700 & 2.500291752486870D-04, 2701 & 5.387354077925727D-01, 2.294888081183837D-01/ 2702 data wleb( 862),(gjk(i, 862),i=1,2)/ 2703 & 2.521055942764682D-04, 2704 & 5.715768898356105D-01, 2.626031152713945D-01/ 2705 data wleb( 863),(gjk(i, 863),i=1,2)/ 2706 & 2.534472785575503D-04, 2707 & 6.028627200136111D-01, 2.950904075286713D-01/ 2708 data wleb( 864),(gjk(i, 864),i=1,2)/ 2709 & 2.541599713080121D-04, 2710 & 6.325039812653463D-01, 3.267458451113286D-01/ 2711 data wleb( 865),(gjk(i, 865),i=1,2)/ 2712 & 2.317380975862936D-04, 2713 & 3.981986708423407D-01, 3.183291458749821D-02/ 2714 data wleb( 866),(gjk(i, 866),i=1,2)/ 2715 & 2.378550733719775D-04, 2716 & 4.382791182133300D-01, 6.459548193880908D-02/ 2717 data wleb( 867),(gjk(i, 867),i=1,2)/ 2718 & 2.428884456739118D-04, 2719 & 4.769233057218166D-01, 9.795757037087952D-02/ 2720 data wleb( 868),(gjk(i, 868),i=1,2)/ 2721 & 2.469002655757292D-04, 2722 & 5.140823911194238D-01, 1.316307235126655D-01/ 2723 data wleb( 869),(gjk(i, 869),i=1,2)/ 2724 & 2.499657574265851D-04, 2725 & 5.496977833862983D-01, 1.653556486358704D-01/ 2726 data wleb( 870),(gjk(i, 870),i=1,2)/ 2727 & 2.521676168486082D-04, 2728 & 5.837047306512727D-01, 1.988931724126510D-01/ 2729 data wleb( 871),(gjk(i, 871),i=1,2)/ 2730 & 2.535935662645334D-04, 2731 & 6.160349566926879D-01, 2.320174581438950D-01/ 2732 data wleb( 872),(gjk(i, 872),i=1,2)/ 2733 & 2.543356743363214D-04, 2734 & 6.466185353209440D-01, 2.645106562168662D-01/ 2735 data wleb( 873),(gjk(i, 873),i=1,2)/ 2736 & 2.427353285201535D-04, 2737 & 4.810835158795404D-01, 3.275917807743992D-02/ 2738 data wleb( 874),(gjk(i, 874),i=1,2)/ 2739 & 2.468258039744386D-04, 2740 & 5.199925041324341D-01, 6.612546183967181D-02/ 2741 data wleb( 875),(gjk(i, 875),i=1,2)/ 2742 & 2.500060956440310D-04, 2743 & 5.571717692207494D-01, 9.981498331474142D-02/ 2744 data wleb( 876),(gjk(i, 876),i=1,2)/ 2745 & 2.523238365420979D-04, 2746 & 5.925789250836379D-01, 1.335687001410374D-01/ 2747 data wleb( 877),(gjk(i, 877),i=1,2)/ 2748 & 2.538399260252846D-04, 2749 & 6.261658523859670D-01, 1.671444402896463D-01/ 2750 data wleb( 878),(gjk(i, 878),i=1,2)/ 2751 & 2.546255927268069D-04, 2752 & 6.578811126669331D-01, 2.003106382156076D-01/ 2753 data wleb( 879),(gjk(i, 879),i=1,2)/ 2754 & 2.500583360048449D-04, 2755 & 5.609624612998100D-01, 3.337500940231335D-02/ 2756 data wleb( 880),(gjk(i, 880),i=1,2)/ 2757 & 2.524777638260203D-04, 2758 & 5.979959659984670D-01, 6.708750335901803D-02/ 2759 data wleb( 881),(gjk(i, 881),i=1,2)/ 2760 & 2.540951193860656D-04, 2761 & 6.330523711054002D-01, 1.008792126424850D-01/ 2762 data wleb( 882),(gjk(i, 882),i=1,2)/ 2763 & 2.549524085027472D-04, 2764 & 6.660960998103972D-01, 1.345050343171794D-01/ 2765 data wleb( 883),(gjk(i, 883),i=1,2)/ 2766 & 2.542569507009158D-04, 2767 & 6.365384364585819D-01, 3.372799460737052D-02/ 2768 data wleb( 884),(gjk(i, 884),i=1,2)/ 2769 & 2.552114127580376D-04, 2770 & 6.710994302899275D-01, 6.755249309678028D-02/ 2771C 2772C n = 125 2773C 2774 data wleb( 885),(gjk(i, 885),i=1,2)/ 2775 & 9.687521879420705D-05, 2776 & 1.000000000000000D+00, 0.000000000000000D+00/ 2777 data wleb( 886),(gjk(i, 886),i=1,2)/ 2778 & 2.307897895367918D-04, 2779 & 1.000000000000000D+00, 1.000000000000000D+00/ 2780 data wleb( 887),(gjk(i, 887),i=1,2)/ 2781 & 2.297310852498558D-04, 2782 & 1.000000000000000D+00, 1.000000000000000D+00/ 2783 data wleb( 888),(gjk(i, 888),i=1,2)/ 2784 & 7.386265944001918D-05, 2785 & 2.335728608887064D-02, 2.335728608887064D-02/ 2786 data wleb( 889),(gjk(i, 889),i=1,2)/ 2787 & 8.257977698542210D-05, 2788 & 4.352987836550653D-02, 4.352987836550653D-02/ 2789 data wleb( 890),(gjk(i, 890),i=1,2)/ 2790 & 9.706044762057630D-05, 2791 & 6.439200521088800D-02, 6.439200521088800D-02/ 2792 data wleb( 891),(gjk(i, 891),i=1,2)/ 2793 & 1.302393847117003D-04, 2794 & 9.003943631993180D-02, 9.003943631993180D-02/ 2795 data wleb( 892),(gjk(i, 892),i=1,2)/ 2796 & 1.541957004600968D-04, 2797 & 1.196706615548473D-01, 1.196706615548473D-01/ 2798 data wleb( 893),(gjk(i, 893),i=1,2)/ 2799 & 1.704459770092199D-04, 2800 & 1.511715412838134D-01, 1.511715412838134D-01/ 2801 data wleb( 894),(gjk(i, 894),i=1,2)/ 2802 & 1.827374890942906D-04, 2803 & 1.835982828503801D-01, 1.835982828503801D-01/ 2804 data wleb( 895),(gjk(i, 895),i=1,2)/ 2805 & 1.926360817436107D-04, 2806 & 2.165081259155405D-01, 2.165081259155405D-01/ 2807 data wleb( 896),(gjk(i, 896),i=1,2)/ 2808 & 2.008010239494833D-04, 2809 & 2.496208720417563D-01, 2.496208720417563D-01/ 2810 data wleb( 897),(gjk(i, 897),i=1,2)/ 2811 & 2.075635983209175D-04, 2812 & 2.827200673567900D-01, 2.827200673567900D-01/ 2813 data wleb( 898),(gjk(i, 898),i=1,2)/ 2814 & 2.131306638690909D-04, 2815 & 3.156190823994346D-01, 3.156190823994346D-01/ 2816 data wleb( 899),(gjk(i, 899),i=1,2)/ 2817 & 2.176562329937335D-04, 2818 & 3.481476793749115D-01, 3.481476793749115D-01/ 2819 data wleb( 900),(gjk(i, 900),i=1,2)/ 2820 & 2.212682262991018D-04, 2821 & 3.801466086947226D-01, 3.801466086947226D-01/ 2822 data wleb( 901),(gjk(i, 901),i=1,2)/ 2823 & 2.240799515668565D-04, 2824 & 4.114652119634011D-01, 4.114652119634011D-01/ 2825 data wleb( 902),(gjk(i, 902),i=1,2)/ 2826 & 2.261959816187525D-04, 2827 & 4.419598786519751D-01, 4.419598786519751D-01/ 2828 data wleb( 903),(gjk(i, 903),i=1,2)/ 2829 & 2.277156368808855D-04, 2830 & 4.714925949329543D-01, 4.714925949329543D-01/ 2831 data wleb( 904),(gjk(i, 904),i=1,2)/ 2832 & 2.287351772128336D-04, 2833 & 4.999293972879466D-01, 4.999293972879466D-01/ 2834 data wleb( 905),(gjk(i, 905),i=1,2)/ 2835 & 2.293490814084085D-04, 2836 & 5.271387221431248D-01, 5.271387221431248D-01/ 2837 data wleb( 906),(gjk(i, 906),i=1,2)/ 2838 & 2.296505312376273D-04, 2839 & 5.529896780837761D-01, 5.529896780837761D-01/ 2840 data wleb( 907),(gjk(i, 907),i=1,2)/ 2841 & 2.296793832318756D-04, 2842 & 6.000856099481712D-01, 6.000856099481712D-01/ 2843 data wleb( 908),(gjk(i, 908),i=1,2)/ 2844 & 2.295785443842974D-04, 2845 & 6.210562192785175D-01, 6.210562192785175D-01/ 2846 data wleb( 909),(gjk(i, 909),i=1,2)/ 2847 & 2.295017931529102D-04, 2848 & 6.401165879934240D-01, 6.401165879934240D-01/ 2849 data wleb( 910),(gjk(i, 910),i=1,2)/ 2850 & 2.295059638184868D-04, 2851 & 6.571144029244333D-01, 6.571144029244333D-01/ 2852 data wleb( 911),(gjk(i, 911),i=1,2)/ 2853 & 2.296232343237362D-04, 2854 & 6.718910821718863D-01, 6.718910821718863D-01/ 2855 data wleb( 912),(gjk(i, 912),i=1,2)/ 2856 & 2.298530178740771D-04, 2857 & 6.842845591099010D-01, 6.842845591099010D-01/ 2858 data wleb( 913),(gjk(i, 913),i=1,2)/ 2859 & 2.301579790280501D-04, 2860 & 6.941353476269816D-01, 6.941353476269816D-01/ 2861 data wleb( 914),(gjk(i, 914),i=1,2)/ 2862 & 2.304690404996513D-04, 2863 & 7.012965242212991D-01, 7.012965242212991D-01/ 2864 data wleb( 915),(gjk(i, 915),i=1,2)/ 2865 & 2.307027995907102D-04, 2866 & 7.056471428242644D-01, 7.056471428242644D-01/ 2867 data wleb( 916),(gjk(i, 916),i=1,2)/ 2868 & 9.312274696671092D-05, 2869 & 4.595557643585895D-02, 0.000000000000000D+00/ 2870 data wleb( 917),(gjk(i, 917),i=1,2)/ 2871 & 1.199919385876926D-04, 2872 & 1.049316742435023D-01, 0.000000000000000D+00/ 2873 data wleb( 918),(gjk(i, 918),i=1,2)/ 2874 & 1.598039138877690D-04, 2875 & 1.773548879549274D-01, 0.000000000000000D+00/ 2876 data wleb( 919),(gjk(i, 919),i=1,2)/ 2877 & 1.822253763574900D-04, 2878 & 2.559071411236127D-01, 0.000000000000000D+00/ 2879 data wleb( 920),(gjk(i, 920),i=1,2)/ 2880 & 1.988579593655040D-04, 2881 & 3.358156837985898D-01, 0.000000000000000D+00/ 2882 data wleb( 921),(gjk(i, 921),i=1,2)/ 2883 & 2.112620102533307D-04, 2884 & 4.155835743763893D-01, 0.000000000000000D+00/ 2885 data wleb( 922),(gjk(i, 922),i=1,2)/ 2886 & 2.201594887699007D-04, 2887 & 4.937894296167472D-01, 0.000000000000000D+00/ 2888 data wleb( 923),(gjk(i, 923),i=1,2)/ 2889 & 2.261622590895036D-04, 2890 & 5.691569694793316D-01, 0.000000000000000D+00/ 2891 data wleb( 924),(gjk(i, 924),i=1,2)/ 2892 & 2.296458453435705D-04, 2893 & 6.405840854894251D-01, 0.000000000000000D+00/ 2894 data wleb( 925),(gjk(i, 925),i=1,2)/ 2895 & 1.006006990267000D-04, 2896 & 7.345133894143348D-02, 2.177844081486067D-02/ 2897 data wleb( 926),(gjk(i, 926),i=1,2)/ 2898 & 1.227676689635876D-04, 2899 & 1.009859834044931D-01, 4.590362185775188D-02/ 2900 data wleb( 927),(gjk(i, 927),i=1,2)/ 2901 & 1.467864280270117D-04, 2902 & 1.324289619748758D-01, 7.255063095690877D-02/ 2903 data wleb( 928),(gjk(i, 928),i=1,2)/ 2904 & 1.644178912101232D-04, 2905 & 1.654272109607127D-01, 1.017825451960684D-01/ 2906 data wleb( 929),(gjk(i, 929),i=1,2)/ 2907 & 1.777664890718961D-04, 2908 & 1.990767186776461D-01, 1.325652320980364D-01/ 2909 data wleb( 930),(gjk(i, 930),i=1,2)/ 2910 & 1.884825664516690D-04, 2911 & 2.330125945523278D-01, 1.642765374496765D-01/ 2912 data wleb( 931),(gjk(i, 931),i=1,2)/ 2913 & 1.973269246453848D-04, 2914 & 2.670080611108287D-01, 1.965360374337889D-01/ 2915 data wleb( 932),(gjk(i, 932),i=1,2)/ 2916 & 2.046767775855328D-04, 2917 & 3.008753376294316D-01, 2.290726770542238D-01/ 2918 data wleb( 933),(gjk(i, 933),i=1,2)/ 2919 & 2.107600125918040D-04, 2920 & 3.344475596167860D-01, 2.616645495370823D-01/ 2921 data wleb( 934),(gjk(i, 934),i=1,2)/ 2922 & 2.157416362266829D-04, 2923 & 3.675709724070786D-01, 2.941150728843141D-01/ 2924 data wleb( 935),(gjk(i, 935),i=1,2)/ 2925 & 2.197557816920721D-04, 2926 & 4.001000887587812D-01, 3.262440400919066D-01/ 2927 data wleb( 936),(gjk(i, 936),i=1,2)/ 2928 & 2.229192611835437D-04, 2929 & 4.318956350436028D-01, 3.578835350611916D-01/ 2930 data wleb( 937),(gjk(i, 937),i=1,2)/ 2931 & 2.253385110212775D-04, 2932 & 4.628239056795531D-01, 3.888751854043678D-01/ 2933 data wleb( 938),(gjk(i, 938),i=1,2)/ 2934 & 2.271137107548774D-04, 2935 & 4.927563229773636D-01, 4.190678003222840D-01/ 2936 data wleb( 939),(gjk(i, 939),i=1,2)/ 2937 & 2.283414092917525D-04, 2938 & 5.215687136707969D-01, 4.483151836883852D-01/ 2939 data wleb( 940),(gjk(i, 940),i=1,2)/ 2940 & 2.291161673130077D-04, 2941 & 5.491402346984905D-01, 4.764740676087880D-01/ 2942 data wleb( 941),(gjk(i, 941),i=1,2)/ 2943 & 2.295313908576598D-04, 2944 & 5.753520160126075D-01, 5.034021310998277D-01/ 2945 data wleb( 942),(gjk(i, 942),i=1,2)/ 2946 & 1.438204721359031D-04, 2947 & 1.388326356417754D-01, 2.435436510372806D-02/ 2948 data wleb( 943),(gjk(i, 943),i=1,2)/ 2949 & 1.607738025495257D-04, 2950 & 1.743686900537244D-01, 5.118897057342652D-02/ 2951 data wleb( 944),(gjk(i, 944),i=1,2)/ 2952 & 1.741483853528379D-04, 2953 & 2.099737037950268D-01, 8.014695048539634D-02/ 2954 data wleb( 945),(gjk(i, 945),i=1,2)/ 2955 & 1.851918467519151D-04, 2956 & 2.454492590908548D-01, 1.105117874155699D-01/ 2957 data wleb( 946),(gjk(i, 946),i=1,2)/ 2958 & 1.944628638070613D-04, 2959 & 2.807219257864278D-01, 1.417950531570966D-01/ 2960 data wleb( 947),(gjk(i, 947),i=1,2)/ 2961 & 2.022495446275152D-04, 2962 & 3.156842271975842D-01, 1.736604945719597D-01/ 2963 data wleb( 948),(gjk(i, 948),i=1,2)/ 2964 & 2.087462382438514D-04, 2965 & 3.502090945177752D-01, 2.058466324693981D-01/ 2966 data wleb( 949),(gjk(i, 949),i=1,2)/ 2967 & 2.141074754818308D-04, 2968 & 3.841684849519686D-01, 2.381284261195919D-01/ 2969 data wleb( 950),(gjk(i, 950),i=1,2)/ 2970 & 2.184640913748162D-04, 2971 & 4.174372367906016D-01, 2.703031270422569D-01/ 2972 data wleb( 951),(gjk(i, 951),i=1,2)/ 2973 & 2.219309165220329D-04, 2974 & 4.498926465011892D-01, 3.021845683091309D-01/ 2975 data wleb( 952),(gjk(i, 952),i=1,2)/ 2976 & 2.246123118340624D-04, 2977 & 4.814146229807701D-01, 3.335993355165720D-01/ 2978 data wleb( 953),(gjk(i, 953),i=1,2)/ 2979 & 2.266062766915125D-04, 2980 & 5.118863625734701D-01, 3.643833735518232D-01/ 2981 data wleb( 954),(gjk(i, 954),i=1,2)/ 2982 & 2.280072952230796D-04, 2983 & 5.411947455119144D-01, 3.943789541958179D-01/ 2984 data wleb( 955),(gjk(i, 955),i=1,2)/ 2985 & 2.289082025202583D-04, 2986 & 5.692301500357246D-01, 4.234320144403542D-01/ 2987 data wleb( 956),(gjk(i, 956),i=1,2)/ 2988 & 2.294012695120025D-04, 2989 & 5.958857204139576D-01, 4.513897947419260D-01/ 2990 data wleb( 957),(gjk(i, 957),i=1,2)/ 2991 & 1.722434488736947D-04, 2992 & 2.156270284785766D-01, 2.681225755444491D-02/ 2993 data wleb( 958),(gjk(i, 958),i=1,2)/ 2994 & 1.830237421455091D-04, 2995 & 2.532385054909710D-01, 5.557495747805614D-02/ 2996 data wleb( 959),(gjk(i, 959),i=1,2)/ 2997 & 1.923855349997633D-04, 2998 & 2.902564617771537D-01, 8.569368062950249D-02/ 2999 data wleb( 960),(gjk(i, 960),i=1,2)/ 3000 & 2.004067861936271D-04, 3001 & 3.266979823143256D-01, 1.167367450324135D-01/ 3002 data wleb( 961),(gjk(i, 961),i=1,2)/ 3003 & 2.071817297354263D-04, 3004 & 3.625039627493614D-01, 1.483861994003304D-01/ 3005 data wleb( 962),(gjk(i, 962),i=1,2)/ 3006 & 2.128250834102103D-04, 3007 & 3.975838937548699D-01, 1.803821503011405D-01/ 3008 data wleb( 963),(gjk(i, 963),i=1,2)/ 3009 & 2.174513719440102D-04, 3010 & 4.318396099009774D-01, 2.124962965666424D-01/ 3011 data wleb( 964),(gjk(i, 964),i=1,2)/ 3012 & 2.211661839150214D-04, 3013 & 4.651706555732742D-01, 2.445221837805913D-01/ 3014 data wleb( 965),(gjk(i, 965),i=1,2)/ 3015 & 2.240665257813102D-04, 3016 & 4.974752649620969D-01, 2.762701224322987D-01/ 3017 data wleb( 966),(gjk(i, 966),i=1,2)/ 3018 & 2.262439516632620D-04, 3019 & 5.286517579627517D-01, 3.075627775211328D-01/ 3020 data wleb( 967),(gjk(i, 967),i=1,2)/ 3021 & 2.277874557231869D-04, 3022 & 5.586001195731894D-01, 3.382311089826877D-01/ 3023 data wleb( 968),(gjk(i, 968),i=1,2)/ 3024 & 2.287854314454994D-04, 3025 & 5.872229902021319D-01, 3.681108834741399D-01/ 3026 data wleb( 969),(gjk(i, 969),i=1,2)/ 3027 & 2.293268499615575D-04, 3028 & 6.144258616235123D-01, 3.970397446872839D-01/ 3029 data wleb( 970),(gjk(i, 970),i=1,2)/ 3030 & 1.912628201529828D-04, 3031 & 2.951676508064861D-01, 2.867499538750441D-02/ 3032 data wleb( 971),(gjk(i, 971),i=1,2)/ 3033 & 1.992499672238701D-04, 3034 & 3.335085485472725D-01, 5.867879341903510D-02/ 3035 data wleb( 972),(gjk(i, 972),i=1,2)/ 3036 & 2.061275533454027D-04, 3037 & 3.709561760636381D-01, 8.961099205022284D-02/ 3038 data wleb( 973),(gjk(i, 973),i=1,2)/ 3039 & 2.119318215968572D-04, 3040 & 4.074722861667498D-01, 1.211627927626297D-01/ 3041 data wleb( 974),(gjk(i, 974),i=1,2)/ 3042 & 2.167416581882652D-04, 3043 & 4.429923648839117D-01, 1.530748903554898D-01/ 3044 data wleb( 975),(gjk(i, 975),i=1,2)/ 3045 & 2.206430730516600D-04, 3046 & 4.774428052721736D-01, 1.851176436721877D-01/ 3047 data wleb( 976),(gjk(i, 976),i=1,2)/ 3048 & 2.237186938699523D-04, 3049 & 5.107446539535904D-01, 2.170829107658179D-01/ 3050 data wleb( 977),(gjk(i, 977),i=1,2)/ 3051 & 2.260480075032884D-04, 3052 & 5.428151370542935D-01, 2.487786689026271D-01/ 3053 data wleb( 978),(gjk(i, 978),i=1,2)/ 3054 & 2.277098884558542D-04, 3055 & 5.735699292556964D-01, 2.800239952795016D-01/ 3056 data wleb( 979),(gjk(i, 979),i=1,2)/ 3057 & 2.287845715109671D-04, 3058 & 6.029253794562865D-01, 3.106445702878119D-01/ 3059 data wleb( 980),(gjk(i, 980),i=1,2)/ 3060 & 2.293547268236294D-04, 3061 & 6.307998987073145D-01, 3.404689500841194D-01/ 3062 data wleb( 981),(gjk(i, 981),i=1,2)/ 3063 & 2.056073839852528D-04, 3064 & 3.752652273692719D-01, 2.997145098184479D-02/ 3065 data wleb( 982),(gjk(i, 982),i=1,2)/ 3066 & 2.114235865831876D-04, 3067 & 4.135383879344028D-01, 6.086725898678011D-02/ 3068 data wleb( 983),(gjk(i, 983),i=1,2)/ 3069 & 2.163175629770551D-04, 3070 & 4.506113885153907D-01, 9.238849548435643D-02/ 3071 data wleb( 984),(gjk(i, 984),i=1,2)/ 3072 & 2.203392158111650D-04, 3073 & 4.864401554606072D-01, 1.242786603851851D-01/ 3074 data wleb( 985),(gjk(i, 985),i=1,2)/ 3075 & 2.235473176847839D-04, 3076 & 5.209708076611709D-01, 1.563086731483386D-01/ 3077 data wleb( 986),(gjk(i, 986),i=1,2)/ 3078 & 2.260024141501235D-04, 3079 & 5.541422135830122D-01, 1.882696509388506D-01/ 3080 data wleb( 987),(gjk(i, 987),i=1,2)/ 3081 & 2.277675929329182D-04, 3082 & 5.858880915113817D-01, 2.199672979126059D-01/ 3083 data wleb( 988),(gjk(i, 988),i=1,2)/ 3084 & 2.289102112284834D-04, 3085 & 6.161399390603444D-01, 2.512165482924867D-01/ 3086 data wleb( 989),(gjk(i, 989),i=1,2)/ 3087 & 2.295027954625118D-04, 3088 & 6.448296482255090D-01, 2.818368701871888D-01/ 3089 data wleb( 990),(gjk(i, 990),i=1,2)/ 3090 & 2.161281589879992D-04, 3091 & 4.544796274917948D-01, 3.088970405060312D-02/ 3092 data wleb( 991),(gjk(i, 991),i=1,2)/ 3093 & 2.201980477395102D-04, 3094 & 4.919389072146628D-01, 6.240947677636835D-02/ 3095 data wleb( 992),(gjk(i, 992),i=1,2)/ 3096 & 2.234952066593166D-04, 3097 & 5.279313026985183D-01, 9.430706144280313D-02/ 3098 data wleb( 993),(gjk(i, 993),i=1,2)/ 3099 & 2.260540098520838D-04, 3100 & 5.624169925571135D-01, 1.263547818770374D-01/ 3101 data wleb( 994),(gjk(i, 994),i=1,2)/ 3102 & 2.279157981899988D-04, 3103 & 5.953484627093287D-01, 1.583430788822594D-01/ 3104 data wleb( 995),(gjk(i, 995),i=1,2)/ 3105 & 2.291296918565571D-04, 3106 & 6.266730715339185D-01, 1.900748462555988D-01/ 3107 data wleb( 996),(gjk(i, 996),i=1,2)/ 3108 & 2.297533752536649D-04, 3109 & 6.563363204278871D-01, 2.213599519592567D-01/ 3110 data wleb( 997),(gjk(i, 997),i=1,2)/ 3111 & 2.234927356465995D-04, 3112 & 5.314574716585696D-01, 3.152508811515374D-02/ 3113 data wleb( 998),(gjk(i, 998),i=1,2)/ 3114 & 2.261288012985219D-04, 3115 & 5.674614932298185D-01, 6.343865291465561D-02/ 3116 data wleb( 999),(gjk(i, 999),i=1,2)/ 3117 & 2.280818160923688D-04, 3118 & 6.017706004970264D-01, 9.551503504223952D-02/ 3119 data wleb(1000),(gjk(i,1000),i=1,2)/ 3120 & 2.293773295180159D-04, 3121 & 6.343471270264178D-01, 1.275440099801196D-01/ 3122 data wleb(1001),(gjk(i,1001),i=1,2)/ 3123 & 2.300528767338634D-04, 3124 & 6.651494599127802D-01, 1.593252037671960D-01/ 3125 data wleb(1002),(gjk(i,1002),i=1,2)/ 3126 & 2.281893855065666D-04, 3127 & 6.050184986005704D-01, 3.192538338496105D-02/ 3128 data wleb(1003),(gjk(i,1003),i=1,2)/ 3129 & 2.295720444840727D-04, 3130 & 6.390163550880400D-01, 6.402824353962305D-02/ 3131 data wleb(1004),(gjk(i,1004),i=1,2)/ 3132 & 2.303227649026753D-04, 3133 & 6.711199107088448D-01, 9.609805077002909D-02/ 3134 data wleb(1005),(gjk(i,1005),i=1,2)/ 3135 & 2.304831913227114D-04, 3136 & 6.741354429572275D-01, 3.211853196273233D-02/ 3137C 3138C n = 125 3139C 3140 data wleb(1006),(gjk(i,1006),i=1,2)/ 3141 & 9.080510764308163D-05, 3142 & 1.000000000000000D+00, 0.000000000000000D+00/ 3143 data wleb(1007),(gjk(i,1007),i=1,2)/ 3144 & 2.084824361987793D-04, 3145 & 1.000000000000000D+00, 1.000000000000000D+00/ 3146 data wleb(1008),(gjk(i,1008),i=1,2)/ 3147 & 5.011105657239616D-05, 3148 & 2.303261686261450D-02, 2.303261686261450D-02/ 3149 data wleb(1009),(gjk(i,1009),i=1,2)/ 3150 & 5.942520409683854D-05, 3151 & 3.757208620162394D-02, 3.757208620162394D-02/ 3152 data wleb(1010),(gjk(i,1010),i=1,2)/ 3153 & 9.564394826109721D-05, 3154 & 5.821912033821852D-02, 5.821912033821852D-02/ 3155 data wleb(1011),(gjk(i,1011),i=1,2)/ 3156 & 1.185530657126338D-04, 3157 & 8.403127529194872D-02, 8.403127529194872D-02/ 3158 data wleb(1012),(gjk(i,1012),i=1,2)/ 3159 & 1.364510114230331D-04, 3160 & 1.122927798060578D-01, 1.122927798060578D-01/ 3161 data wleb(1013),(gjk(i,1013),i=1,2)/ 3162 & 1.505828825605415D-04, 3163 & 1.420125319192987D-01, 1.420125319192987D-01/ 3164 data wleb(1014),(gjk(i,1014),i=1,2)/ 3165 & 1.619298749867023D-04, 3166 & 1.726396437341978D-01, 1.726396437341978D-01/ 3167 data wleb(1015),(gjk(i,1015),i=1,2)/ 3168 & 1.712450504267789D-04, 3169 & 2.038170058115696D-01, 2.038170058115696D-01/ 3170 data wleb(1016),(gjk(i,1016),i=1,2)/ 3171 & 1.789891098164999D-04, 3172 & 2.352849892876508D-01, 2.352849892876508D-01/ 3173 data wleb(1017),(gjk(i,1017),i=1,2)/ 3174 & 1.854474955629795D-04, 3175 & 2.668363354312461D-01, 2.668363354312461D-01/ 3176 data wleb(1018),(gjk(i,1018),i=1,2)/ 3177 & 1.908148636673661D-04, 3178 & 2.982941279900452D-01, 2.982941279900452D-01/ 3179 data wleb(1019),(gjk(i,1019),i=1,2)/ 3180 & 1.952377405281833D-04, 3181 & 3.295002922087076D-01, 3.295002922087076D-01/ 3182 data wleb(1020),(gjk(i,1020),i=1,2)/ 3183 & 1.988349254282232D-04, 3184 & 3.603094918363593D-01, 3.603094918363593D-01/ 3185 data wleb(1021),(gjk(i,1021),i=1,2)/ 3186 & 2.017079807160050D-04, 3187 & 3.905857895173920D-01, 3.905857895173920D-01/ 3188 data wleb(1022),(gjk(i,1022),i=1,2)/ 3189 & 2.039473082709094D-04, 3190 & 4.202005758160837D-01, 4.202005758160837D-01/ 3191 data wleb(1023),(gjk(i,1023),i=1,2)/ 3192 & 2.056360279288953D-04, 3193 & 4.490310061597227D-01, 4.490310061597227D-01/ 3194 data wleb(1024),(gjk(i,1024),i=1,2)/ 3195 & 2.068525823066865D-04, 3196 & 4.769586160311491D-01, 4.769586160311491D-01/ 3197 data wleb(1025),(gjk(i,1025),i=1,2)/ 3198 & 2.076724877534488D-04, 3199 & 5.038679887049750D-01, 5.038679887049750D-01/ 3200 data wleb(1026),(gjk(i,1026),i=1,2)/ 3201 & 2.081694278237885D-04, 3202 & 5.296454286519962D-01, 5.296454286519962D-01/ 3203 data wleb(1027),(gjk(i,1027),i=1,2)/ 3204 & 2.084157631219326D-04, 3205 & 5.541776207164850D-01, 5.541776207164850D-01/ 3206 data wleb(1028),(gjk(i,1028),i=1,2)/ 3207 & 2.084381531128593D-04, 3208 & 5.990467321921213D-01, 5.990467321921213D-01/ 3209 data wleb(1029),(gjk(i,1029),i=1,2)/ 3210 & 2.083476277129307D-04, 3211 & 6.191467096294587D-01, 6.191467096294587D-01/ 3212 data wleb(1030),(gjk(i,1030),i=1,2)/ 3213 & 2.082686194459732D-04, 3214 & 6.375251212901849D-01, 6.375251212901849D-01/ 3215 data wleb(1031),(gjk(i,1031),i=1,2)/ 3216 & 2.082475686112415D-04, 3217 & 6.540514381131168D-01, 6.540514381131168D-01/ 3218 data wleb(1032),(gjk(i,1032),i=1,2)/ 3219 & 2.083139860289915D-04, 3220 & 6.685899064391509D-01, 6.685899064391509D-01/ 3221 data wleb(1033),(gjk(i,1033),i=1,2)/ 3222 & 2.084745561831237D-04, 3223 & 6.810013009681648D-01, 6.810013009681648D-01/ 3224 data wleb(1034),(gjk(i,1034),i=1,2)/ 3225 & 2.087091313375890D-04, 3226 & 6.911469578730340D-01, 6.911469578730340D-01/ 3227 data wleb(1035),(gjk(i,1035),i=1,2)/ 3228 & 2.089718413297697D-04, 3229 & 6.988956915141736D-01, 6.988956915141736D-01/ 3230 data wleb(1036),(gjk(i,1036),i=1,2)/ 3231 & 2.092003303479793D-04, 3232 & 7.041335794868721D-01, 7.041335794868721D-01/ 3233 data wleb(1037),(gjk(i,1037),i=1,2)/ 3234 & 2.093336148263241D-04, 3235 & 7.067754398018568D-01, 7.067754398018568D-01/ 3236 data wleb(1038),(gjk(i,1038),i=1,2)/ 3237 & 7.591708117365266D-05, 3238 & 3.840368707853623D-02, 0.000000000000000D+00/ 3239 data wleb(1039),(gjk(i,1039),i=1,2)/ 3240 & 1.083383968169186D-04, 3241 & 9.835485954117398D-02, 0.000000000000000D+00/ 3242 data wleb(1040),(gjk(i,1040),i=1,2)/ 3243 & 1.403019395292510D-04, 3244 & 1.665774947612998D-01, 0.000000000000000D+00/ 3245 data wleb(1041),(gjk(i,1041),i=1,2)/ 3246 & 1.615970179286436D-04, 3247 & 2.405702335362910D-01, 0.000000000000000D+00/ 3248 data wleb(1042),(gjk(i,1042),i=1,2)/ 3249 & 1.771144187504911D-04, 3250 & 3.165270770189046D-01, 0.000000000000000D+00/ 3251 data wleb(1043),(gjk(i,1043),i=1,2)/ 3252 & 1.887760022988168D-04, 3253 & 3.927386145645443D-01, 0.000000000000000D+00/ 3254 data wleb(1044),(gjk(i,1044),i=1,2)/ 3255 & 1.973474670768214D-04, 3256 & 4.678825918374656D-01, 0.000000000000000D+00/ 3257 data wleb(1045),(gjk(i,1045),i=1,2)/ 3258 & 2.033787661234659D-04, 3259 & 5.408022024266935D-01, 0.000000000000000D+00/ 3260 data wleb(1046),(gjk(i,1046),i=1,2)/ 3261 & 2.072343626517331D-04, 3262 & 6.104967445752438D-01, 0.000000000000000D+00/ 3263 data wleb(1047),(gjk(i,1047),i=1,2)/ 3264 & 2.091177834226918D-04, 3265 & 6.760910702685738D-01, 0.000000000000000D+00/ 3266 data wleb(1048),(gjk(i,1048),i=1,2)/ 3267 & 9.316684484675566D-05, 3268 & 6.655644120217392D-02, 1.936508874588424D-02/ 3269 data wleb(1049),(gjk(i,1049),i=1,2)/ 3270 & 1.116193688682976D-04, 3271 & 9.446246161270182D-02, 4.252442002115869D-02/ 3272 data wleb(1050),(gjk(i,1050),i=1,2)/ 3273 & 1.298623551559414D-04, 3274 & 1.242651925452509D-01, 6.806529315354375D-02/ 3275 data wleb(1051),(gjk(i,1051),i=1,2)/ 3276 & 1.450236832456426D-04, 3277 & 1.553438064846751D-01, 9.560957491205369D-02/ 3278 data wleb(1052),(gjk(i,1052),i=1,2)/ 3279 & 1.572719958149914D-04, 3280 & 1.871137110542670D-01, 1.245931657452888D-01/ 3281 data wleb(1053),(gjk(i,1053),i=1,2)/ 3282 & 1.673234785867195D-04, 3283 & 2.192612628836257D-01, 1.545385828778978D-01/ 3284 data wleb(1054),(gjk(i,1054),i=1,2)/ 3285 & 1.756860118725188D-04, 3286 & 2.515682807206955D-01, 1.851004249723368D-01/ 3287 data wleb(1055),(gjk(i,1055),i=1,2)/ 3288 & 1.826776290439367D-04, 3289 & 2.838535866287290D-01, 2.160182608272384D-01/ 3290 data wleb(1056),(gjk(i,1056),i=1,2)/ 3291 & 1.885116347992865D-04, 3292 & 3.159578817528521D-01, 2.470799012277111D-01/ 3293 data wleb(1057),(gjk(i,1057),i=1,2)/ 3294 & 1.933457860170574D-04, 3295 & 3.477370882791392D-01, 2.781014208986402D-01/ 3296 data wleb(1058),(gjk(i,1058),i=1,2)/ 3297 & 1.973060671902064D-04, 3298 & 3.790576960890540D-01, 3.089172523515731D-01/ 3299 data wleb(1059),(gjk(i,1059),i=1,2)/ 3300 & 2.004987099616311D-04, 3301 & 4.097938317810200D-01, 3.393750055472244D-01/ 3302 data wleb(1060),(gjk(i,1060),i=1,2)/ 3303 & 2.030170909281499D-04, 3304 & 4.398256572859637D-01, 3.693322470987730D-01/ 3305 data wleb(1061),(gjk(i,1061),i=1,2)/ 3306 & 2.049461460119080D-04, 3307 & 4.690384114718480D-01, 3.986541005609877D-01/ 3308 data wleb(1062),(gjk(i,1062),i=1,2)/ 3309 & 2.063653565200186D-04, 3310 & 4.973216048301053D-01, 4.272112491408562D-01/ 3311 data wleb(1063),(gjk(i,1063),i=1,2)/ 3312 & 2.073507927381027D-04, 3313 & 5.245681526132446D-01, 4.548781735309936D-01/ 3314 data wleb(1064),(gjk(i,1064),i=1,2)/ 3315 & 2.079764593256122D-04, 3316 & 5.506733911803888D-01, 4.815315355023251D-01/ 3317 data wleb(1065),(gjk(i,1065),i=1,2)/ 3318 & 2.083150534968778D-04, 3319 & 5.755339829522474D-01, 5.070486445801855D-01/ 3320 data wleb(1066),(gjk(i,1066),i=1,2)/ 3321 & 1.262715121590664D-04, 3322 & 1.305472386056362D-01, 2.284970375722366D-02/ 3323 data wleb(1067),(gjk(i,1067),i=1,2)/ 3324 & 1.414386128545972D-04, 3325 & 1.637327908216477D-01, 4.812254338288384D-02/ 3326 data wleb(1068),(gjk(i,1068),i=1,2)/ 3327 & 1.538740401313898D-04, 3328 & 1.972734634149637D-01, 7.531734457511935D-02/ 3329 data wleb(1069),(gjk(i,1069),i=1,2)/ 3330 & 1.642434942331432D-04, 3331 & 2.308694653110130D-01, 1.039043639882017D-01/ 3332 data wleb(1070),(gjk(i,1070),i=1,2)/ 3333 & 1.729790609237496D-04, 3334 & 2.643899218338160D-01, 1.334526587117626D-01/ 3335 data wleb(1071),(gjk(i,1071),i=1,2)/ 3336 & 1.803505190260828D-04, 3337 & 2.977171599622171D-01, 1.636414868936382D-01/ 3338 data wleb(1072),(gjk(i,1072),i=1,2)/ 3339 & 1.865475350079657D-04, 3340 & 3.307293903032310D-01, 1.942195406166568D-01/ 3341 data wleb(1073),(gjk(i,1073),i=1,2)/ 3342 & 1.917182669679069D-04, 3343 & 3.633069198219073D-01, 2.249752879943753D-01/ 3344 data wleb(1074),(gjk(i,1074),i=1,2)/ 3345 & 1.959851709034382D-04, 3346 & 3.953346955922727D-01, 2.557218821820032D-01/ 3347 data wleb(1075),(gjk(i,1075),i=1,2)/ 3348 & 1.994529548117882D-04, 3349 & 4.267018394184914D-01, 2.862897925213193D-01/ 3350 data wleb(1076),(gjk(i,1076),i=1,2)/ 3351 & 2.022138911146548D-04, 3352 & 4.573009622571704D-01, 3.165224536636518D-01/ 3353 data wleb(1077),(gjk(i,1077),i=1,2)/ 3354 & 2.043518024208592D-04, 3355 & 4.870279559856109D-01, 3.462730221636496D-01/ 3356 data wleb(1078),(gjk(i,1078),i=1,2)/ 3357 & 2.059450313018110D-04, 3358 & 5.157819581450322D-01, 3.754016870282835D-01/ 3359 data wleb(1079),(gjk(i,1079),i=1,2)/ 3360 & 2.070685715318472D-04, 3361 & 5.434651666465393D-01, 4.037733784993613D-01/ 3362 data wleb(1080),(gjk(i,1080),i=1,2)/ 3363 & 2.077955310694373D-04, 3364 & 5.699823887764627D-01, 4.312557784139123D-01/ 3365 data wleb(1081),(gjk(i,1081),i=1,2)/ 3366 & 2.081980387824712D-04, 3367 & 5.952403350947741D-01, 4.577175367122110D-01/ 3368 data wleb(1082),(gjk(i,1082),i=1,2)/ 3369 & 1.521318610377956D-04, 3370 & 2.025152599210369D-01, 2.520253617719557D-02/ 3371 data wleb(1083),(gjk(i,1083),i=1,2)/ 3372 & 1.622772720185755D-04, 3373 & 2.381066653274425D-01, 5.223254506119000D-02/ 3374 data wleb(1084),(gjk(i,1084),i=1,2)/ 3375 & 1.710498139420709D-04, 3376 & 2.732823383651612D-01, 8.060669688588620D-02/ 3377 data wleb(1085),(gjk(i,1085),i=1,2)/ 3378 & 1.785911149448736D-04, 3379 & 3.080137692611118D-01, 1.099335754081255D-01/ 3380 data wleb(1086),(gjk(i,1086),i=1,2)/ 3381 & 1.850125313687736D-04, 3382 & 3.422405614587601D-01, 1.399120955959857D-01/ 3383 data wleb(1087),(gjk(i,1087),i=1,2)/ 3384 & 1.904229703933298D-04, 3385 & 3.758808773890420D-01, 1.702977801651705D-01/ 3386 data wleb(1088),(gjk(i,1088),i=1,2)/ 3387 & 1.949259956121987D-04, 3388 & 4.088458383438932D-01, 2.008799256601680D-01/ 3389 data wleb(1089),(gjk(i,1089),i=1,2)/ 3390 & 1.986161545363960D-04, 3391 & 4.410450550841152D-01, 2.314703052180836D-01/ 3392 data wleb(1090),(gjk(i,1090),i=1,2)/ 3393 & 2.015790585641370D-04, 3394 & 4.723879420561312D-01, 2.618972111375892D-01/ 3395 data wleb(1091),(gjk(i,1091),i=1,2)/ 3396 & 2.038934198707418D-04, 3397 & 5.027843561874343D-01, 2.920013195600270D-01/ 3398 data wleb(1092),(gjk(i,1092),i=1,2)/ 3399 & 2.056334060538251D-04, 3400 & 5.321453674452458D-01, 3.216322555190551D-01/ 3401 data wleb(1093),(gjk(i,1093),i=1,2)/ 3402 & 2.068705959462289D-04, 3403 & 5.603839113834030D-01, 3.506456615934198D-01/ 3404 data wleb(1094),(gjk(i,1094),i=1,2)/ 3405 & 2.076753906106002D-04, 3406 & 5.874150706875146D-01, 3.789007181306267D-01/ 3407 data wleb(1095),(gjk(i,1095),i=1,2)/ 3408 & 2.081179391734803D-04, 3409 & 6.131559381660038D-01, 4.062580170572782D-01/ 3410 data wleb(1096),(gjk(i,1096),i=1,2)/ 3411 & 1.700345216228943D-04, 3412 & 2.778497016394506D-01, 2.696271276876226D-02/ 3413 data wleb(1097),(gjk(i,1097),i=1,2)/ 3414 & 1.774906779990410D-04, 3415 & 3.143733562261912D-01, 5.523469316960465D-02/ 3416 data wleb(1098),(gjk(i,1098),i=1,2)/ 3417 & 1.839659377002642D-04, 3418 & 3.501485810261827D-01, 8.445193201626464D-02/ 3419 data wleb(1099),(gjk(i,1099),i=1,2)/ 3420 & 1.894987462975169D-04, 3421 & 3.851430322303653D-01, 1.143263119336083D-01/ 3422 data wleb(1100),(gjk(i,1100),i=1,2)/ 3423 & 1.941548809452595D-04, 3424 & 4.193013979470415D-01, 1.446177898344475D-01/ 3425 data wleb(1101),(gjk(i,1101),i=1,2)/ 3426 & 1.980078427252384D-04, 3427 & 4.525585960458567D-01, 1.751165438438091D-01/ 3428 data wleb(1102),(gjk(i,1102),i=1,2)/ 3429 & 2.011296284744488D-04, 3430 & 4.848447779622947D-01, 2.056338306745660D-01/ 3431 data wleb(1103),(gjk(i,1103),i=1,2)/ 3432 & 2.035888456966776D-04, 3433 & 5.160871208276894D-01, 2.359965487229226D-01/ 3434 data wleb(1104),(gjk(i,1104),i=1,2)/ 3435 & 2.054516325352142D-04, 3436 & 5.462112185696926D-01, 2.660430223139146D-01/ 3437 data wleb(1105),(gjk(i,1105),i=1,2)/ 3438 & 2.067831033092635D-04, 3439 & 5.751425068101756D-01, 2.956193664498032D-01/ 3440 data wleb(1106),(gjk(i,1106),i=1,2)/ 3441 & 2.076485320284876D-04, 3442 & 6.028073872853597D-01, 3.245763905312779D-01/ 3443 data wleb(1107),(gjk(i,1107),i=1,2)/ 3444 & 2.081141439525255D-04, 3445 & 6.291338275278409D-01, 3.527670026206972D-01/ 3446 data wleb(1108),(gjk(i,1108),i=1,2)/ 3447 & 1.834383015469222D-04, 3448 & 3.541797528439391D-01, 2.823853479435550D-02/ 3449 data wleb(1109),(gjk(i,1109),i=1,2)/ 3450 & 1.889540591777677D-04, 3451 & 3.908234972074657D-01, 5.741296374713106D-02/ 3452 data wleb(1110),(gjk(i,1110),i=1,2)/ 3453 & 1.936677023597375D-04, 3454 & 4.264408450107590D-01, 8.724646633650199D-02/ 3455 data wleb(1111),(gjk(i,1111),i=1,2)/ 3456 & 1.976176495066504D-04, 3457 & 4.609949666553286D-01, 1.175034422915616D-01/ 3458 data wleb(1112),(gjk(i,1112),i=1,2)/ 3459 & 2.008536004560983D-04, 3460 & 4.944389496536006D-01, 1.479755652628428D-01/ 3461 data wleb(1113),(gjk(i,1113),i=1,2)/ 3462 & 2.034280351712291D-04, 3463 & 5.267194884346086D-01, 1.784740659484352D-01/ 3464 data wleb(1114),(gjk(i,1114),i=1,2)/ 3465 & 2.053944466027758D-04, 3466 & 5.577787810220990D-01, 2.088245700431244D-01/ 3467 data wleb(1115),(gjk(i,1115),i=1,2)/ 3468 & 2.068077642882360D-04, 3469 & 5.875563763536670D-01, 2.388628136570763D-01/ 3470 data wleb(1116),(gjk(i,1116),i=1,2)/ 3471 & 2.077250949661599D-04, 3472 & 6.159910016391269D-01, 2.684308928769185D-01/ 3473 data wleb(1117),(gjk(i,1117),i=1,2)/ 3474 & 2.082062440705320D-04, 3475 & 6.430219602956267D-01, 2.973740761960252D-01/ 3476 data wleb(1118),(gjk(i,1118),i=1,2)/ 3477 & 1.934374486546626D-04, 3478 & 4.300647036213646D-01, 2.916399920493977D-02/ 3479 data wleb(1119),(gjk(i,1119),i=1,2)/ 3480 & 1.974107010484300D-04, 3481 & 4.661486308935531D-01, 5.898803024755659D-02/ 3482 data wleb(1120),(gjk(i,1120),i=1,2)/ 3483 & 2.007129290388658D-04, 3484 & 5.009658555287261D-01, 8.924162698525409D-02/ 3485 data wleb(1121),(gjk(i,1121),i=1,2)/ 3486 & 2.033736947471293D-04, 3487 & 5.344824270447704D-01, 1.197185199637321D-01/ 3488 data wleb(1122),(gjk(i,1122),i=1,2)/ 3489 & 2.054287125902493D-04, 3490 & 5.666575997416371D-01, 1.502300756161382D-01/ 3491 data wleb(1123),(gjk(i,1123),i=1,2)/ 3492 & 2.069184936818894D-04, 3493 & 5.974457471404752D-01, 1.806004191913564D-01/ 3494 data wleb(1124),(gjk(i,1124),i=1,2)/ 3495 & 2.078883689808782D-04, 3496 & 6.267984444116886D-01, 2.106621764786252D-01/ 3497 data wleb(1125),(gjk(i,1125),i=1,2)/ 3498 & 2.083886366116359D-04, 3499 & 6.546664713575417D-01, 2.402526932671914D-01/ 3500 data wleb(1126),(gjk(i,1126),i=1,2)/ 3501 & 2.006593275470817D-04, 3502 & 5.042711004437253D-01, 2.982529203607657D-02/ 3503 data wleb(1127),(gjk(i,1127),i=1,2)/ 3504 & 2.033728426135397D-04, 3505 & 5.392127456774380D-01, 6.008728062339922D-02/ 3506 data wleb(1128),(gjk(i,1128),i=1,2)/ 3507 & 2.055008781377608D-04, 3508 & 5.726819437668618D-01, 9.058227674571398D-02/ 3509 data wleb(1129),(gjk(i,1129),i=1,2)/ 3510 & 2.070651783518502D-04, 3511 & 6.046469254207278D-01, 1.211219235803400D-01/ 3512 data wleb(1130),(gjk(i,1130),i=1,2)/ 3513 & 2.080953335094320D-04, 3514 & 6.350716157434952D-01, 1.515286404791580D-01/ 3515 data wleb(1131),(gjk(i,1131),i=1,2)/ 3516 & 2.086284998988521D-04, 3517 & 6.639177679185454D-01, 1.816314681255552D-01/ 3518 data wleb(1132),(gjk(i,1132),i=1,2)/ 3519 & 2.055549387644668D-04, 3520 & 5.757276040972253D-01, 3.026991752575440D-02/ 3521 data wleb(1133),(gjk(i,1133),i=1,2)/ 3522 & 2.071871850267654D-04, 3523 & 6.090265823139756D-01, 6.078402297870770D-02/ 3524 data wleb(1134),(gjk(i,1134),i=1,2)/ 3525 & 2.082856600431965D-04, 3526 & 6.406735344387661D-01, 9.135459984176636D-02/ 3527 data wleb(1135),(gjk(i,1135),i=1,2)/ 3528 & 2.088705858819358D-04, 3529 & 6.706397927793709D-01, 1.218024155966590D-01/ 3530 data wleb(1136),(gjk(i,1136),i=1,2)/ 3531 & 2.083995867536322D-04, 3532 & 6.435019674426665D-01, 3.052608357660639D-02/ 3533 data wleb(1137),(gjk(i,1137),i=1,2)/ 3534 & 2.090509712889637D-04, 3535 & 6.747218676375681D-01, 6.112185773983089D-02/ 3536C 3537C n = 131 3538C 3539 data wleb(1138),(gjk(i,1138),i=1,2)/ 3540 & 9.735347946175486D-06, 3541 & 1.000000000000000D+00, 0.000000000000000D+00/ 3542 data wleb(1139),(gjk(i,1139),i=1,2)/ 3543 & 1.907581241803167D-04, 3544 & 1.000000000000000D+00, 1.000000000000000D+00/ 3545 data wleb(1140),(gjk(i,1140),i=1,2)/ 3546 & 1.901059546737578D-04, 3547 & 1.000000000000000D+00, 1.000000000000000D+00/ 3548 data wleb(1141),(gjk(i,1141),i=1,2)/ 3549 & 3.926424538919212D-05, 3550 & 1.182361662400277D-02, 1.182361662400277D-02/ 3551 data wleb(1142),(gjk(i,1142),i=1,2)/ 3552 & 6.667905467294381D-05, 3553 & 3.062145009138958D-02, 3.062145009138958D-02/ 3554 data wleb(1143),(gjk(i,1143),i=1,2)/ 3555 & 8.868891315019136D-05, 3556 & 5.329794036834243D-02, 5.329794036834243D-02/ 3557 data wleb(1144),(gjk(i,1144),i=1,2)/ 3558 & 1.066306000958872D-04, 3559 & 7.848165532862220D-02, 7.848165532862220D-02/ 3560 data wleb(1145),(gjk(i,1145),i=1,2)/ 3561 & 1.214506743336128D-04, 3562 & 1.054038157636201D-01, 1.054038157636201D-01/ 3563 data wleb(1146),(gjk(i,1146),i=1,2)/ 3564 & 1.338054681640871D-04, 3565 & 1.335577797766211D-01, 1.335577797766211D-01/ 3566 data wleb(1147),(gjk(i,1147),i=1,2)/ 3567 & 1.441677023628504D-04, 3568 & 1.625769955502252D-01, 1.625769955502252D-01/ 3569 data wleb(1148),(gjk(i,1148),i=1,2)/ 3570 & 1.528880200826557D-04, 3571 & 1.921787193412792D-01, 1.921787193412792D-01/ 3572 data wleb(1149),(gjk(i,1149),i=1,2)/ 3573 & 1.602330623773609D-04, 3574 & 2.221340534690548D-01, 2.221340534690548D-01/ 3575 data wleb(1150),(gjk(i,1150),i=1,2)/ 3576 & 1.664102653445244D-04, 3577 & 2.522504912791132D-01, 2.522504912791132D-01/ 3578 data wleb(1151),(gjk(i,1151),i=1,2)/ 3579 & 1.715845854011323D-04, 3580 & 2.823610860679697D-01, 2.823610860679697D-01/ 3581 data wleb(1152),(gjk(i,1152),i=1,2)/ 3582 & 1.758901000133069D-04, 3583 & 3.123173966267560D-01, 3.123173966267560D-01/ 3584 data wleb(1153),(gjk(i,1153),i=1,2)/ 3585 & 1.794382485256736D-04, 3586 & 3.419847036953789D-01, 3.419847036953789D-01/ 3587 data wleb(1154),(gjk(i,1154),i=1,2)/ 3588 & 1.823238106757407D-04, 3589 & 3.712386456999758D-01, 3.712386456999758D-01/ 3590 data wleb(1155),(gjk(i,1155),i=1,2)/ 3591 & 1.846293252959976D-04, 3592 & 3.999627649876828D-01, 3.999627649876828D-01/ 3593 data wleb(1156),(gjk(i,1156),i=1,2)/ 3594 & 1.864284079323098D-04, 3595 & 4.280466458648093D-01, 4.280466458648093D-01/ 3596 data wleb(1157),(gjk(i,1157),i=1,2)/ 3597 & 1.877882694626914D-04, 3598 & 4.553844360185711D-01, 4.553844360185711D-01/ 3599 data wleb(1158),(gjk(i,1158),i=1,2)/ 3600 & 1.887716321852025D-04, 3601 & 4.818736094437834D-01, 4.818736094437834D-01/ 3602 data wleb(1159),(gjk(i,1159),i=1,2)/ 3603 & 1.894381638175673D-04, 3604 & 5.074138709260629D-01, 5.074138709260629D-01/ 3605 data wleb(1160),(gjk(i,1160),i=1,2)/ 3606 & 1.898454899533629D-04, 3607 & 5.319061304570707D-01, 5.319061304570707D-01/ 3608 data wleb(1161),(gjk(i,1161),i=1,2)/ 3609 & 1.900497929577815D-04, 3610 & 5.552514978677286D-01, 5.552514978677286D-01/ 3611 data wleb(1162),(gjk(i,1162),i=1,2)/ 3612 & 1.900671501924092D-04, 3613 & 5.981009025246183D-01, 5.981009025246183D-01/ 3614 data wleb(1163),(gjk(i,1163),i=1,2)/ 3615 & 1.899837555533510D-04, 3616 & 6.173990192228116D-01, 6.173990192228116D-01/ 3617 data wleb(1164),(gjk(i,1164),i=1,2)/ 3618 & 1.899014113156229D-04, 3619 & 6.351365239411131D-01, 6.351365239411131D-01/ 3620 data wleb(1165),(gjk(i,1165),i=1,2)/ 3621 & 1.898581257705106D-04, 3622 & 6.512010228227200D-01, 6.512010228227200D-01/ 3623 data wleb(1166),(gjk(i,1166),i=1,2)/ 3624 & 1.898804756095753D-04, 3625 & 6.654758363948120D-01, 6.654758363948120D-01/ 3626 data wleb(1167),(gjk(i,1167),i=1,2)/ 3627 & 1.899793610426402D-04, 3628 & 6.778410414853370D-01, 6.778410414853370D-01/ 3629 data wleb(1168),(gjk(i,1168),i=1,2)/ 3630 & 1.901464554844117D-04, 3631 & 6.881760887484110D-01, 6.881760887484110D-01/ 3632 data wleb(1169),(gjk(i,1169),i=1,2)/ 3633 & 1.903533246259542D-04, 3634 & 6.963645267094598D-01, 6.963645267094598D-01/ 3635 data wleb(1170),(gjk(i,1170),i=1,2)/ 3636 & 1.905556158463228D-04, 3637 & 7.023010617153579D-01, 7.023010617153579D-01/ 3638 data wleb(1171),(gjk(i,1171),i=1,2)/ 3639 & 1.907037155663528D-04, 3640 & 7.059004636628753D-01, 7.059004636628753D-01/ 3641 data wleb(1172),(gjk(i,1172),i=1,2)/ 3642 & 5.992997844249967D-05, 3643 & 3.552470312472575D-02, 0.000000000000000D+00/ 3644 data wleb(1173),(gjk(i,1173),i=1,2)/ 3645 & 9.749059382456977D-05, 3646 & 9.151176620841284D-02, 0.000000000000000D+00/ 3647 data wleb(1174),(gjk(i,1174),i=1,2)/ 3648 & 1.241680804599158D-04, 3649 & 1.566197930068980D-01, 0.000000000000000D+00/ 3650 data wleb(1175),(gjk(i,1175),i=1,2)/ 3651 & 1.437626154299360D-04, 3652 & 2.265467599271907D-01, 0.000000000000000D+00/ 3653 data wleb(1176),(gjk(i,1176),i=1,2)/ 3654 & 1.584200054793902D-04, 3655 & 2.988242318581361D-01, 0.000000000000000D+00/ 3656 data wleb(1177),(gjk(i,1177),i=1,2)/ 3657 & 1.694436550982744D-04, 3658 & 3.717482419703886D-01, 0.000000000000000D+00/ 3659 data wleb(1178),(gjk(i,1178),i=1,2)/ 3660 & 1.776617014018108D-04, 3661 & 4.440094491758889D-01, 0.000000000000000D+00/ 3662 data wleb(1179),(gjk(i,1179),i=1,2)/ 3663 & 1.836132434440077D-04, 3664 & 5.145337096756643D-01, 0.000000000000000D+00/ 3665 data wleb(1180),(gjk(i,1180),i=1,2)/ 3666 & 1.876494727075983D-04, 3667 & 5.824053672860230D-01, 0.000000000000000D+00/ 3668 data wleb(1181),(gjk(i,1181),i=1,2)/ 3669 & 1.899906535336482D-04, 3670 & 6.468283961043370D-01, 0.000000000000000D+00/ 3671 data wleb(1182),(gjk(i,1182),i=1,2)/ 3672 & 8.143252820767350D-05, 3673 & 6.095964259104373D-02, 1.787828275342931D-02/ 3674 data wleb(1183),(gjk(i,1183),i=1,2)/ 3675 & 9.998859890887728D-05, 3676 & 8.811962270959388D-02, 3.953888740792096D-02/ 3677 data wleb(1184),(gjk(i,1184),i=1,2)/ 3678 & 1.156199403068359D-04, 3679 & 1.165936722428831D-01, 6.378121797722990D-02/ 3680 data wleb(1185),(gjk(i,1185),i=1,2)/ 3681 & 1.287632092635513D-04, 3682 & 1.460232857031785D-01, 8.985890813745037D-02/ 3683 data wleb(1186),(gjk(i,1186),i=1,2)/ 3684 & 1.398378643365139D-04, 3685 & 1.761197110181755D-01, 1.172606510576162D-01/ 3686 data wleb(1187),(gjk(i,1187),i=1,2)/ 3687 & 1.491876468417391D-04, 3688 & 2.066471190463718D-01, 1.456102876970995D-01/ 3689 data wleb(1188),(gjk(i,1188),i=1,2)/ 3690 & 1.570855679175456D-04, 3691 & 2.374076026328152D-01, 1.746153823011775D-01/ 3692 data wleb(1189),(gjk(i,1189),i=1,2)/ 3693 & 1.637483948103775D-04, 3694 & 2.682305474337051D-01, 2.040383070295584D-01/ 3695 data wleb(1190),(gjk(i,1190),i=1,2)/ 3696 & 1.693500566632843D-04, 3697 & 2.989653312142369D-01, 2.336788634003698D-01/ 3698 data wleb(1191),(gjk(i,1191),i=1,2)/ 3699 & 1.740322769393633D-04, 3700 & 3.294762752772209D-01, 2.633632752654219D-01/ 3701 data wleb(1192),(gjk(i,1192),i=1,2)/ 3702 & 1.779126637278296D-04, 3703 & 3.596390887276086D-01, 2.929369098051601D-01/ 3704 data wleb(1193),(gjk(i,1193),i=1,2)/ 3705 & 1.810908108835412D-04, 3706 & 3.893383046398812D-01, 3.222592785275512D-01/ 3707 data wleb(1194),(gjk(i,1194),i=1,2)/ 3708 & 1.836529132600190D-04, 3709 & 4.184653789358347D-01, 3.512004791195743D-01/ 3710 data wleb(1195),(gjk(i,1195),i=1,2)/ 3711 & 1.856752841777379D-04, 3712 & 4.469172319076166D-01, 3.796385677684537D-01/ 3713 data wleb(1196),(gjk(i,1196),i=1,2)/ 3714 & 1.872270566606832D-04, 3715 & 4.745950813276976D-01, 4.074575378263879D-01/ 3716 data wleb(1197),(gjk(i,1197),i=1,2)/ 3717 & 1.883722645591307D-04, 3718 & 5.014034601410262D-01, 4.345456906027828D-01/ 3719 data wleb(1198),(gjk(i,1198),i=1,2)/ 3720 & 1.891714324525297D-04, 3721 & 5.272493404551239D-01, 4.607942515205134D-01/ 3722 data wleb(1199),(gjk(i,1199),i=1,2)/ 3723 & 1.896827480450146D-04, 3724 & 5.520413051846366D-01, 4.860961284181720D-01/ 3725 data wleb(1200),(gjk(i,1200),i=1,2)/ 3726 & 1.899628417059528D-04, 3727 & 5.756887237503077D-01, 5.103447395342789D-01/ 3728 data wleb(1201),(gjk(i,1201),i=1,2)/ 3729 & 1.123301829001669D-04, 3730 & 1.225039430588352D-01, 2.136455922655793D-02/ 3731 data wleb(1202),(gjk(i,1202),i=1,2)/ 3732 & 1.253698826711277D-04, 3733 & 1.539113217321372D-01, 4.520926166137188D-02/ 3734 data wleb(1203),(gjk(i,1203),i=1,2)/ 3735 & 1.366266117678531D-04, 3736 & 1.856213098637712D-01, 7.086468177864819D-02/ 3737 data wleb(1204),(gjk(i,1204),i=1,2)/ 3738 & 1.462736856106918D-04, 3739 & 2.174998728035131D-01, 9.785239488772918D-02/ 3740 data wleb(1205),(gjk(i,1205),i=1,2)/ 3741 & 1.545076466685412D-04, 3742 & 2.494128336938330D-01, 1.258106396267210D-01/ 3743 data wleb(1206),(gjk(i,1206),i=1,2)/ 3744 & 1.615096280814007D-04, 3745 & 2.812321562143480D-01, 1.544529125047001D-01/ 3746 data wleb(1207),(gjk(i,1207),i=1,2)/ 3747 & 1.674366639741759D-04, 3748 & 3.128372276456111D-01, 1.835433512202753D-01/ 3749 data wleb(1208),(gjk(i,1208),i=1,2)/ 3750 & 1.724225002437900D-04, 3751 & 3.441145160177973D-01, 2.128813258619585D-01/ 3752 data wleb(1209),(gjk(i,1209),i=1,2)/ 3753 & 1.765810822987288D-04, 3754 & 3.749567714853510D-01, 2.422913734880829D-01/ 3755 data wleb(1210),(gjk(i,1210),i=1,2)/ 3756 & 1.800104126010751D-04, 3757 & 4.052621732015610D-01, 2.716163748391453D-01/ 3758 data wleb(1211),(gjk(i,1211),i=1,2)/ 3759 & 1.827960437331284D-04, 3760 & 4.349335453522385D-01, 3.007127671240280D-01/ 3761 data wleb(1212),(gjk(i,1212),i=1,2)/ 3762 & 1.850140300716308D-04, 3763 & 4.638776641524965D-01, 3.294470677216479D-01/ 3764 data wleb(1213),(gjk(i,1213),i=1,2)/ 3765 & 1.867333507394938D-04, 3766 & 4.920046410462687D-01, 3.576932543699155D-01/ 3767 data wleb(1214),(gjk(i,1214),i=1,2)/ 3768 & 1.880178688638289D-04, 3769 & 5.192273554861704D-01, 3.853307059757764D-01/ 3770 data wleb(1215),(gjk(i,1215),i=1,2)/ 3771 & 1.889278925654758D-04, 3772 & 5.454609081136522D-01, 4.122425044452694D-01/ 3773 data wleb(1216),(gjk(i,1216),i=1,2)/ 3774 & 1.895213832507346D-04, 3775 & 5.706220661424140D-01, 4.383139587781027D-01/ 3776 data wleb(1217),(gjk(i,1217),i=1,2)/ 3777 & 1.898548277397420D-04, 3778 & 5.946286755181518D-01, 4.634312536300553D-01/ 3779 data wleb(1218),(gjk(i,1218),i=1,2)/ 3780 & 1.349105935937341D-04, 3781 & 1.905370790924295D-01, 2.371311537781979D-02/ 3782 data wleb(1219),(gjk(i,1219),i=1,2)/ 3783 & 1.444060068369326D-04, 3784 & 2.242518717748009D-01, 4.917878059254806D-02/ 3785 data wleb(1220),(gjk(i,1220),i=1,2)/ 3786 & 1.526797390930008D-04, 3787 & 2.577190808025936D-01, 7.595498960495142D-02/ 3788 data wleb(1221),(gjk(i,1221),i=1,2)/ 3789 & 1.598208771406474D-04, 3790 & 2.908724534927187D-01, 1.036991083191100D-01/ 3791 data wleb(1222),(gjk(i,1222),i=1,2)/ 3792 & 1.659354368615331D-04, 3793 & 3.236354020056219D-01, 1.321348584450234D-01/ 3794 data wleb(1223),(gjk(i,1223),i=1,2)/ 3795 & 1.711279910946440D-04, 3796 & 3.559267359304543D-01, 1.610316571314789D-01/ 3797 data wleb(1224),(gjk(i,1224),i=1,2)/ 3798 & 1.754952725601440D-04, 3799 & 3.876637123676956D-01, 1.901912080395707D-01/ 3800 data wleb(1225),(gjk(i,1225),i=1,2)/ 3801 & 1.791247850802529D-04, 3802 & 4.187636705218842D-01, 2.194384950137950D-01/ 3803 data wleb(1226),(gjk(i,1226),i=1,2)/ 3804 & 1.820954300877716D-04, 3805 & 4.491449019883107D-01, 2.486155334763858D-01/ 3806 data wleb(1227),(gjk(i,1227),i=1,2)/ 3807 & 1.844788524548449D-04, 3808 & 4.787270932425445D-01, 2.775768931812335D-01/ 3809 data wleb(1228),(gjk(i,1228),i=1,2)/ 3810 & 1.863409481706220D-04, 3811 & 5.074315153055574D-01, 3.061863786591120D-01/ 3812 data wleb(1229),(gjk(i,1229),i=1,2)/ 3813 & 1.877433008795068D-04, 3814 & 5.351810507738336D-01, 3.343144718152556D-01/ 3815 data wleb(1230),(gjk(i,1230),i=1,2)/ 3816 & 1.887444543705232D-04, 3817 & 5.619001025975381D-01, 3.618362729028427D-01/ 3818 data wleb(1231),(gjk(i,1231),i=1,2)/ 3819 & 1.894009829375006D-04, 3820 & 5.875144035268046D-01, 3.886297583620408D-01/ 3821 data wleb(1232),(gjk(i,1232),i=1,2)/ 3822 & 1.897683345035198D-04, 3823 & 6.119507308734495D-01, 4.145742277792031D-01/ 3824 data wleb(1233),(gjk(i,1233),i=1,2)/ 3825 & 1.517327037467653D-04, 3826 & 2.619733870119463D-01, 2.540047186389353D-02/ 3827 data wleb(1234),(gjk(i,1234),i=1,2)/ 3828 & 1.587740557483543D-04, 3829 & 2.968149743237949D-01, 5.208107018543989D-02/ 3830 data wleb(1235),(gjk(i,1235),i=1,2)/ 3831 & 1.649093382274097D-04, 3832 & 3.310451504860488D-01, 7.971828470885599D-02/ 3833 data wleb(1236),(gjk(i,1236),i=1,2)/ 3834 & 1.701915216193265D-04, 3835 & 3.646215567376676D-01, 1.080465999177927D-01/ 3836 data wleb(1237),(gjk(i,1237),i=1,2)/ 3837 & 1.746847753144065D-04, 3838 & 3.974916785279360D-01, 1.368413849366629D-01/ 3839 data wleb(1238),(gjk(i,1238),i=1,2)/ 3840 & 1.784555512007570D-04, 3841 & 4.295967403772029D-01, 1.659073184763559D-01/ 3842 data wleb(1239),(gjk(i,1239),i=1,2)/ 3843 & 1.815687562112174D-04, 3844 & 4.608742854473447D-01, 1.950703730454614D-01/ 3845 data wleb(1240),(gjk(i,1240),i=1,2)/ 3846 & 1.840864370663302D-04, 3847 & 4.912598858949903D-01, 2.241721144376724D-01/ 3848 data wleb(1241),(gjk(i,1241),i=1,2)/ 3849 & 1.860676785390006D-04, 3850 & 5.206882758945558D-01, 2.530655255406489D-01/ 3851 data wleb(1242),(gjk(i,1242),i=1,2)/ 3852 & 1.875690583743703D-04, 3853 & 5.490940914019820D-01, 2.816118409731066D-01/ 3854 data wleb(1243),(gjk(i,1243),i=1,2)/ 3855 & 1.886453236347225D-04, 3856 & 5.764123302025542D-01, 3.096780504593238D-01/ 3857 data wleb(1244),(gjk(i,1244),i=1,2)/ 3858 & 1.893501123329645D-04, 3859 & 6.025786004213506D-01, 3.371348366394987D-01/ 3860 data wleb(1245),(gjk(i,1245),i=1,2)/ 3861 & 1.897366184519868D-04, 3862 & 6.275291964794956D-01, 3.638547827694396D-01/ 3863 data wleb(1246),(gjk(i,1246),i=1,2)/ 3864 & 1.643908815152736D-04, 3865 & 3.348189479861771D-01, 2.664841935537443D-02/ 3866 data wleb(1247),(gjk(i,1247),i=1,2)/ 3867 & 1.696300350907768D-04, 3868 & 3.699515545855295D-01, 5.424000066843495D-02/ 3869 data wleb(1248),(gjk(i,1248),i=1,2)/ 3870 & 1.741553103844483D-04, 3871 & 4.042003071474669D-01, 8.251992715430854D-02/ 3872 data wleb(1249),(gjk(i,1249),i=1,2)/ 3873 & 1.780015282386092D-04, 3874 & 4.375320100182624D-01, 1.112695182483710D-01/ 3875 data wleb(1250),(gjk(i,1250),i=1,2)/ 3876 & 1.812116787077125D-04, 3877 & 4.699054490335947D-01, 1.402964116467816D-01/ 3878 data wleb(1251),(gjk(i,1251),i=1,2)/ 3879 & 1.838323158085421D-04, 3880 & 5.012739879431952D-01, 1.694275117584291D-01/ 3881 data wleb(1252),(gjk(i,1252),i=1,2)/ 3882 & 1.859113119837737D-04, 3883 & 5.315874883754966D-01, 1.985038235312689D-01/ 3884 data wleb(1253),(gjk(i,1253),i=1,2)/ 3885 & 1.874969220221698D-04, 3886 & 5.607937109622116D-01, 2.273765660020893D-01/ 3887 data wleb(1254),(gjk(i,1254),i=1,2)/ 3888 & 1.886375612681076D-04, 3889 & 5.888393223495521D-01, 2.559041492849764D-01/ 3890 data wleb(1255),(gjk(i,1255),i=1,2)/ 3891 & 1.893819575809276D-04, 3892 & 6.156705979160163D-01, 2.839497251976899D-01/ 3893 data wleb(1256),(gjk(i,1256),i=1,2)/ 3894 & 1.897794748256767D-04, 3895 & 6.412338809078123D-01, 3.113791060500690D-01/ 3896 data wleb(1257),(gjk(i,1257),i=1,2)/ 3897 & 1.738963926584846D-04, 3898 & 4.076051259257167D-01, 2.757792290858463D-02/ 3899 data wleb(1258),(gjk(i,1258),i=1,2)/ 3900 & 1.777442359873466D-04, 3901 & 4.423788125791520D-01, 5.584136834984293D-02/ 3902 data wleb(1259),(gjk(i,1259),i=1,2)/ 3903 & 1.810010815068719D-04, 3904 & 4.760480917328258D-01, 8.457772087727143D-02/ 3905 data wleb(1260),(gjk(i,1260),i=1,2)/ 3906 & 1.836920318248129D-04, 3907 & 5.085838725946297D-01, 1.135975846359248D-01/ 3908 data wleb(1261),(gjk(i,1261),i=1,2)/ 3909 & 1.858489473214328D-04, 3910 & 5.399513637391218D-01, 1.427286904765053D-01/ 3911 data wleb(1262),(gjk(i,1262),i=1,2)/ 3912 & 1.875079342496592D-04, 3913 & 5.701118433636380D-01, 1.718112740057635D-01/ 3914 data wleb(1263),(gjk(i,1263),i=1,2)/ 3915 & 1.887080239102310D-04, 3916 & 5.990240530606021D-01, 2.006944855985351D-01/ 3917 data wleb(1264),(gjk(i,1264),i=1,2)/ 3918 & 1.894905752176822D-04, 3919 & 6.266452685139695D-01, 2.292335090598907D-01/ 3920 data wleb(1265),(gjk(i,1265),i=1,2)/ 3921 & 1.898991061200695D-04, 3922 & 6.529320971415942D-01, 2.572871512353714D-01/ 3923 data wleb(1266),(gjk(i,1266),i=1,2)/ 3924 & 1.809065016458791D-04, 3925 & 4.791583834610126D-01, 2.826094197735932D-02/ 3926 data wleb(1267),(gjk(i,1267),i=1,2)/ 3927 & 1.836297121596799D-04, 3928 & 5.130373952796941D-01, 5.699871359683649D-02/ 3929 data wleb(1268),(gjk(i,1268),i=1,2)/ 3930 & 1.858426916241869D-04, 3931 & 5.456252429628476D-01, 8.602712528554395D-02/ 3932 data wleb(1269),(gjk(i,1269),i=1,2)/ 3933 & 1.875654101134641D-04, 3934 & 5.768956329682385D-01, 1.151748137221281D-01/ 3935 data wleb(1270),(gjk(i,1270),i=1,2)/ 3936 & 1.888240751833503D-04, 3937 & 6.068186944699046D-01, 1.442811654136362D-01/ 3938 data wleb(1271),(gjk(i,1271),i=1,2)/ 3939 & 1.896497383866979D-04, 3940 & 6.353622248024907D-01, 1.731930321657680D-01/ 3941 data wleb(1272),(gjk(i,1272),i=1,2)/ 3942 & 1.900775530219121D-04, 3943 & 6.624927035731797D-01, 2.017619958756061D-01/ 3944 data wleb(1273),(gjk(i,1273),i=1,2)/ 3945 & 1.858525041478814D-04, 3946 & 5.484933508028488D-01, 2.874219755907391D-02/ 3947 data wleb(1274),(gjk(i,1274),i=1,2)/ 3948 & 1.876248690077947D-04, 3949 & 5.810207682142106D-01, 5.778312123713695D-02/ 3950 data wleb(1275),(gjk(i,1275),i=1,2)/ 3951 & 1.889404439064607D-04, 3952 & 6.120955197181353D-01, 8.695262371439526D-02/ 3953 data wleb(1276),(gjk(i,1276),i=1,2)/ 3954 & 1.898168539265290D-04, 3955 & 6.416944284294319D-01, 1.160893767057166D-01/ 3956 data wleb(1277),(gjk(i,1277),i=1,2)/ 3957 & 1.902779940661772D-04, 3958 & 6.697926391731260D-01, 1.450378826743251D-01/ 3959 data wleb(1278),(gjk(i,1278),i=1,2)/ 3960 & 1.890125641731815D-04, 3961 & 6.147594390585488D-01, 2.904957622341456D-02/ 3962 data wleb(1279),(gjk(i,1279),i=1,2)/ 3963 & 1.899434637795751D-04, 3964 & 6.455390026356783D-01, 5.823809152617197D-02/ 3965 data wleb(1280),(gjk(i,1280),i=1,2)/ 3966 & 1.904520856831751D-04, 3967 & 6.747258588365477D-01, 8.740384899884715D-02/ 3968 data wleb(1281),(gjk(i,1281),i=1,2)/ 3969 & 1.905534498734563D-04, 3970 & 6.772135750395347D-01, 2.919946135808105D-02/ 3971c 3972c 3973c 3974 data fasf/6*1.0d0/ 3975c 3976c data jkv/0, 3, 7, 13, 22, 33, 45, 61, 81, 106, 136, 172/ 3977 data jkv/0, 3, 7,12, 17, 23, 30, 38, 47, 57, 3978 1 68, 80, 93, 109, 129,154,184,220,262, 311, 3979 2 367,431,503,584,674,774,884,1005,1137,1281/ 3980 3981c 3982c data njk/1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 3, 1, 0, 3983c & 1, 1, 1, 4, 1, 1, 1, 1, 1, 5, 1, 2, 1, 0, 1, 6, 2, 2, 3984c & 1, 1, 1, 7, 2, 4, 1, 0, 1, 8, 4, 6, 1, 1, 1, 9, 4, 9, 3985c & 1, 0, 1,12, 4,12, 1, 1, 1,13, 4, 16/ 3986c 3987c symmetry classification of the set of points 3988c 3989 data (njk(i, 1),i=1,6)/ 1, 0, 1, 0, 1, 0/!38 3990 data (njk(i, 2),i=1,6)/ 1, 1, 1, 1, 0, 0/!50 3991 data (njk(i, 3),i=1,6)/ 1, 1, 1, 1, 1, 0/!74 3992 data (njk(i, 4),i=1,6)/ 1, 0, 1, 2, 1, 0/!86 3993 data (njk(i, 5),i=1,6)/ 1, 0, 1, 3, 1, 0/!110 3994 data (njk(i, 6),i=1,6)/ 1, 1, 1, 3, 0, 1/!146 3995 data (njk(i, 7),i=1,6)/ 1, 1, 1, 3, 1, 1/!170 3996 data (njk(i, 8),i=1,6)/ 1, 1, 1, 4, 1, 1/!194 3997 data (njk(i, 9),i=1,6)/ 1, 0, 1, 5, 2, 1/!230 3998 data (njk(i,10),i=1,6)/ 1, 1, 1, 5, 1, 2/!266 3999 data (njk(i,11),i=1,6)/ 1, 0, 1, 6, 2, 2/!302 4000 data (njk(i,12),i=1,6)/ 1, 0, 1, 6, 2, 3/!350 4001 data (njk(i,13),i=1,6)/ 1, 1, 1, 7, 2, 4/!434 4002 data (njk(i,14),i=1,6)/ 1, 0, 1, 9, 3, 6/!590 4003 data (njk(i,15),i=1,6)/ 1, 1, 1,10, 3, 9/!770 4004 data (njk(i,16),i=1,6)/ 1, 0, 1,12, 4,12/!974 4005 data (njk(i,17),i=1,6)/ 1, 1, 1,13, 4,16/!1202 4006 data (njk(i,18),i=1,6)/ 1, 0, 1,15, 5,20/!1454 4007 data (njk(i,19),i=1,6)/ 1, 1, 1,16, 5,25/!1730 4008 data (njk(i,20),i=1,6)/ 1, 0, 1,18, 6,30/!2030 4009 data (njk(i,21),i=1,6)/ 1, 1, 1,19, 6,36/!2354 4010 data (njk(i,22),i=1,6)/ 1, 0, 1,21, 7,42/!2702 4011 data (njk(i,23),i=1,6)/ 1, 1, 1,22, 7,49/!3074 4012 data (njk(i,24),i=1,6)/ 1, 0, 1,24, 8,56/!3470 4013 data (njk(i,25),i=1,6)/ 1, 1, 1,25, 8,64/!3890 4014 data (njk(i,26),i=1,6)/ 1, 0, 1,27, 9,72/!4334 4015 data (njk(i,27),i=1,6)/ 1, 1, 1,28, 9,81/!4802 4016 data (njk(i,28),i=1,6)/ 1, 0, 1,30,10,90/!5294 4017 data (njk(i,29),i=1,6)/ 1, 1, 1,31,10,100/!5810 4018c 4019 data nvj/6, 12, 8, 24, 24, 48/ 4020c 4021 data (ivj(i,1), i = 1, 6)/1, 2, 17, 19, 25, 28/ 4022c 4023 data (ivj(i,2), i = 1, 12)/ 4024 & 1, 2, 3, 8, 9, 10, 12, 15, 25, 27, 28, 30/ 4025c 4026 data (ivj(i,3), i = 1, 8)/1, 2, 3, 4, 5, 6, 7, 8/ 4027c 4028 data (ivj(i,4), i = 1, 24)/ 4029 & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 4030 & 13, 14, 15, 16, 25, 26, 27, 28, 29, 30, 31, 32/ 4031c 4032 data (ivj(i,5), i = 1, 24)/ 4033 & 1, 2, 4, 5, 9, 10, 11, 13, 17, 19, 20, 21, 4034 & 25, 26, 28, 29, 33, 34, 35, 37, 41, 43, 44, 45/ 4035c 4036 data (ivj(i,6), i = 1, 48)/ 4037 & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 4038 & 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 4039 & 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 4040 & 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48/ 4041c 4042cedo data nridv/38, 50, 74, 86, 110, 146, 170, 194, 4043cedo . 230, 266, 302, 350, 434, 590, 770, 4044cedo & 974, 1202, 1454,1730,2030,2354,2702,3074,3470, 4045cedo . 3890,4334,4802,5294,5810/ 4046c 4047 if (oprint)write(LuOut,201) 4048 fourpi=4.0d0*dacos(-1.d0) 4049 nop = 0 4050 n48 = 1 4051 do 57 iv = 1, 6 4052 do 57 ks = 1, 8 4053 nop = nop + 1 4054 do 57 i = 1, 3 4055 isi = isig(i,ks) 4056 do 57 j = 1, 3 405757 goh(i,j,nop) = isi*itop(i,j,iv) 4058 fasf(2) = sqrt(2.d0) 4059 fasf(3) = sqrt(3.d0) 4060c 4061 do ia = 1,iangquad 4062c 4063 if (ia.le.0) then 4064 l_ang = 1 4065 za_leb(1,1,ia) = 1.0d0 4066 za_leb(2,1,ia) = 0.0d0 4067 za_leb(3,1,ia) = 0.0d0 4068 wa_leb(1,ia) = fourpi 4069 else 4070 iaz = min(ia,IAC_MAX) 4071 l_ang = 0 4072 wtest = 0.d0 4073 jk = jkv(iaz) 4074 jk1 = 0 4075 do 20 j = 1,6 4076 nvjj = nvj(j) 4077 fasfj = fasf(j) 4078 do 20 k = 1,njk(j,iaz) 4079 jk = jk + 1 4080 jk1 = jk1 + 1 4081 if(fasfj.ne.1d0) then 4082 x0 = gjk(1,jk)/fasfj 4083 y0 = gjk(2,jk)/fasfj 4084 gjkt1=x0*x0+y0*y0 4085 if(abs(gjkt1-1.d0).gt.1d-8) then 4086 z0=sqrt(fasfj*fasfj-gjk(1,jk)*gjk(1,jk)- 4087 - gjk(2,jk)*gjk(2,jk))/fasfj 4088 else 4089 z0=0.d0 4090 endif 4091 else 4092 x0 = gjk(1,jk) 4093 y0 = gjk(2,jk) 4094 gjkt1=x0*x0+y0*y0 4095 if(abs(gjkt1-1.d0).gt.1d-8) then 4096 z0=sqrt(1d0-gjkt1) 4097 else 4098 z0=0.d0 4099 endif 4100 endif 4101C if (oprint)write(LuOut,207) 4102 if (oprint)write(LuOut,209)wleb(jk), 4103 & x0,y0,z0 4104 do l = 1,nvjj 4105 iv = ivj(l,j) 4106 gjkt1 = goh(1,1,iv)*x0 + goh(1,2,iv)*y0 + 4107 & goh(1,3,iv)*z0 4108 gjkt2 = goh(2,1,iv)*x0 + goh(2,2,iv)*y0 + 4109 & goh(2,3,iv)*z0 4110 gjkt3 = goh(3,1,iv)*x0 + goh(3,2,iv)*y0 + 4111 & goh(3,3,iv)*z0 4112 l_ang = l_ang + 1 4113 za_leb(1,l_ang,iaz) = gjkt1 4114 za_leb(2,l_ang,iaz) = gjkt2 4115 za_leb(3,l_ang,iaz) = gjkt3 4116 wa_leb(l_ang,iaz) = wleb(jk)*fourpi 4117 wtest = wtest + wa_leb(l_ang,ia) 4118c if (oprint)write(LuOut,209)wa_leb(l_ang,iaz), 4119c & (za_leb(i,l_ang,iaz),i = 1,3) 4120C write(LuOut,*) ' wtest ', wtest/fourpi 4121 enddo 4122 20 continue 4123 if (oprint)write(LuOut,410)l_ang, wtest/fourpi 4124 endif 4125 ntheta(ia) = l_ang 4126 nphi(ia) = -99 4127 enddo 4128 return 4129 201 format(' irreducible set of Lebedev Angular points ;') 4130 208 format(t10,3f10.5) 4131c 207 format(' Irreducible set of points ;') 4132 209 format(4f19.15) 4133 410 format(' total no. of reducible points:',i4,'; test:',f12.8) 4134 end 4135 integer function xc_leb_acc2nrd(acc) 4136 implicit none 4137#include "errquit.fh" 4138 integer acc 4139 integer nridv(29) 4140 data nridv/38, 50, 74, 86, 110, 146, 170, 194, 4141 . 230, 266, 302, 350, 434, 590, 770, 4142 & 974, 1202, 1454,1730,2030,2354,2702,3074,3470, 4143 . 3890,4334,4802,5294,5810/ 4144c 4145 if(acc.lt.1.or.acc.gt.29) 4146 . call errquit('xclebacc2: invalid acc',acc, UNKNOWN_ERR) 4147 xc_leb_acc2nrd=nridv(acc) 4148 4149 return 4150 end 4151 integer function xc_leb_nrd2acc(nrad) 4152 implicit none 4153#include "errquit.fh" 4154 integer nrad 4155 integer i 4156 integer nridv(29) 4157 data nridv/38, 50, 74, 86, 110, 146, 170, 194, 4158 . 230, 266, 302, 350, 434, 590, 770, 4159 & 974, 1202, 1454,1730,2030,2354,2702,3074,3470, 4160 . 3890,4334,4802,5294,5810/ 4161c 4162c 4163 xc_leb_nrd2acc=0 4164 if (nrad.eq.0) return 4165 do i=1,29 4166 if(nrad.eq.nridv(i)) then 4167 xc_leb_nrd2acc=i 4168 return 4169 endif 4170 enddo 4171 call errquit('xclebnrd2: invalid nrad',nrad, UNKNOWN_ERR) 4172 return 4173 end 4174