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