OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_read_fail_hc_dsse.F File Reference
#include "implicit_f.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine hm_read_fail_hc_dsse (fail, mat_id, fail_id, irupt, lsubmodel, unitab)
subroutine linear_interp (tab_x, tab_y, ltab, x, y)

Function/Subroutine Documentation

◆ hm_read_fail_hc_dsse()

subroutine hm_read_fail_hc_dsse ( type (fail_param_), intent(inout) fail,
integer, intent(in) mat_id,
integer, intent(in) fail_id,
integer, intent(in) irupt,
type (submodel_data), dimension(*), intent(in) lsubmodel,
type (unit_type_), intent(in) unitab )

Definition at line 37 of file hm_read_fail_hc_dsse.F.

39C-----------------------------------------------
40c ROUTINE DESCRIPTION :
41c Read HC-DSSE failure model parameters
42C-----------------------------------------------
43c! UVAR 1 = damage value flag for IP at DSSE instability
44c! UVAR 2 = damage value for DSSE
45C-----------------------------------------------
46C M o d u l e s
47C-----------------------------------------------
48 USE fail_param_mod
49 USE unitab_mod
50 USE message_mod
51 USE submodel_mod
52 USE hm_option_read_mod
53C-----------------------------------------------
54C I m p l i c i t T y p e s
55C-----------------------------------------------
56#include "implicit_f.inc"
57C-----------------------------------------------
58C C o m m o n B l o c k s
59C-----------------------------------------------
60#include "units_c.inc"
61C-----------------------------------------------
62C D u m m y A r g u m e n t s
63C-----------------------------------------------
64 INTEGER ,INTENT(IN) :: FAIL_ID ! failure model ID
65 INTEGER ,INTENT(IN) :: MAT_ID ! material law ID
66 INTEGER ,INTENT(IN) :: IRUPT ! failure model number
67 TYPE (UNIT_TYPE_) ,INTENT(IN) :: UNITAB ! table of input units
68 TYPE (SUBMODEL_DATA),INTENT(IN) :: LSUBMODEL(*) ! submodel table
69 TYPE (FAIL_PARAM_) ,INTENT(INOUT) :: FAIL ! failure model data structure
70C-----------------------------------------------
71C L o c a l V a r i a b l e s
72C-----------------------------------------------
73 INTEGER :: I,IFAIL_SH,IFLAG,NUVAR,NUPARAM
74 my_real :: pthkf,afrac,bfrac,cfrac,nfrac,inst,inst2,
75 . afrac2,bfrac2,cfrac2,y,
76 . b16,b17,b18,b19,b21,f05,g12,i12,small,
77 . tab(1201),lx(1201)
78 LOGICAL :: IS_AVAILABLE,IS_ENCRYPTED
79C=======================================================================
80 is_encrypted = .false.
81 is_available = .false.
82C--------------------------------------------------
83C EXTRACT DATA (IS OPTION CRYPTED)
84C--------------------------------------------------
85 CALL hm_option_is_encrypted(is_encrypted)
86C--------------------------------------------------
87C EXTRACT DATAS
88C--------------------------------------------------
89 lx( 1 )= 1.000000000000d0
90 lx( 2 )= 1.000043653485d0
91 lx( 3 )= 1.000087406030d0
92 lx( 4 )= 1.000131257805d0
93 lx( 5 )= 1.000175208983d0
94 lx( 6 )= 1.000219259736d0
95 lx( 7 )= 1.000263410235d0
96 lx( 8 )= 1.000307660652d0
97 lx( 9 )= 1.000352011163d0
98 lx( 10 )= 1.000396461938d0
99 lx( 11 )= 1.000441013153d0
100 lx( 12 )= 1.000485664981d0
101 lx( 13 )= 1.000530417596d0
102 lx( 14 )= 1.000575271174d0
103 lx( 15 )= 1.000620225890d0
104 lx( 16 )= 1.000665281920d0
105 lx( 17 )= 1.000710439438d0
106 lx( 18 )= 1.000755698622d0
107 lx( 19 )= 1.000801059649d0
108 lx( 20 )= 1.000846522695d0
109 lx( 21 )= 1.000892087938d0
110 lx( 22 )= 1.000937755556d0
111 lx( 23 )= 1.000983525727d0
112 lx( 24 )= 1.001029398630d0
113 lx( 25 )= 1.001075374444d0
114 lx( 26 )= 1.001121453348d0
115 lx( 27 )= 1.001167635522d0
116 lx( 28 )= 1.001213921146d0
117 lx( 29 )= 1.001260310401d0
118 lx( 30 )= 1.001306803467d0
119 lx( 31 )= 1.001353400527d0
120 lx( 32 )= 1.001400101762d0
121 lx( 33 )= 1.001446907354d0
122 lx( 34 )= 1.001493817485d0
123 lx( 35 )= 1.001540832340d0
124 lx( 36 )= 1.001587952100d0
125 lx( 37 )= 1.001635176949d0
126 lx( 38 )= 1.001682507073d0
127 lx( 39 )= 1.001729942655d0
128 lx( 40 )= 1.001777483880d0
129 lx( 41 )= 1.001825130935d0
130 lx( 42 )= 1.001872884003d0
131 lx( 43 )= 1.001920743272d0
132 lx( 44 )= 1.001968708929d0
133 lx( 45 )= 1.002016781160d0
134 lx( 46 )= 1.002064960152d0
135 lx( 47 )= 1.002113246094d0
136 lx( 48 )= 1.002161639173d0
137 lx( 49 )= 1.002210139579d0
138 lx( 50 )= 1.002258747500d0
139 lx( 51 )= 1.002307463126d0
140 lx( 52 )= 1.002356286647d0
141 lx( 53 )= 1.002405218252d0
142 lx( 54 )= 1.002454258133d0
143 lx( 55 )= 1.002503406481d0
144 lx( 56 )= 1.002552663488d0
145 lx( 57 )= 1.002602029345d0
146 lx( 58 )= 1.002651504244d0
147 lx( 59 )= 1.002701088379d0
148 lx( 60 )= 1.002750781943d0
149 lx( 61 )= 1.002800585130d0
150 lx( 62 )= 1.002850498133d0
151 lx( 63 )= 1.002900521147d0
152 lx( 64 )= 1.002950654368d0
153 lx( 65 )= 1.003000897990d0
154 lx( 66 )= 1.003051252209d0
155 lx( 67 )= 1.003101717222d0
156 lx( 68 )= 1.003152293225d0
157 lx( 69 )= 1.003202980416d0
158 lx( 70 )= 1.003253778992d0
159 lx( 71 )= 1.003304689151d0
160 lx( 72 )= 1.003355711091d0
161 lx( 73 )= 1.003406845012d0
162 lx( 74 )= 1.003458091113d0
163 lx( 75 )= 1.003509449593d0
164 lx( 76 )= 1.003560920653d0
165 lx( 77 )= 1.003612504493d0
166 lx( 78 )= 1.003664201315d0
167 lx( 79 )= 1.003716011320d0
168 lx( 80 )= 1.003767934711d0
169 lx( 81 )= 1.003819971689d0
170 lx( 82 )= 1.003872122458d0
171 lx( 83 )= 1.003924387220d0
172 lx( 84 )= 1.003976766181d0
173 lx( 85 )= 1.004029259543d0
174 lx( 86 )= 1.004081867513d0
175 lx( 87 )= 1.004134590294d0
176 lx( 88 )= 1.004187428094d0
177 lx( 89 )= 1.004240381117d0
178 lx( 90 )= 1.004293449571d0
179 lx( 91 )= 1.004346633662d0
180 lx( 92 )= 1.004399933598d0
181 lx( 93 )= 1.004453349588d0
182 lx( 94 )= 1.004506881839d0
183 lx( 95 )= 1.004560530561d0
184 lx( 96 )= 1.004614295963d0
185 lx( 97 )= 1.004668178254d0
186 lx( 98 )= 1.004722177646d0
187 lx( 99 )= 1.004776294349d0
188 lx( 100 )= 1.004830528574d0
189 lx( 101 )= 1.004884880533d0
190 lx( 102 )= 1.004939350439d0
191 lx( 103 )= 1.004993938503d0
192 lx( 104 )= 1.005048644940d0
193 lx( 105 )= 1.005103469964d0
194 lx( 106 )= 1.005158413787d0
195 lx( 107 )= 1.005213476626d0
196 lx( 108 )= 1.005268658694d0
197 lx( 109 )= 1.005323960209d0
198 lx( 110 )= 1.005379381385d0
199 lx( 111 )= 1.005434922440d0
200 lx( 112 )= 1.005490583591d0
201 lx( 113 )= 1.005546365056d0
202 lx( 114 )= 1.005602267052d0
203 lx( 115 )= 1.005658289798d0
204 lx( 116 )= 1.005714433513d0
205 lx( 117 )= 1.005770698418d0
206 lx( 118 )= 1.005827084731d0
207 lx( 119 )= 1.005883592674d0
208 lx( 120 )= 1.005940222469d0
209 lx( 121 )= 1.005996974335d0
210 lx( 122 )= 1.006053848497d0
211 lx( 123 )= 1.006110845176d0
212 lx( 124 )= 1.006167964595d0
213 lx( 125 )= 1.006225206978d0
214 lx( 126 )= 1.006282572550d0
215 lx( 127 )= 1.006340061536d0
216 lx( 128 )= 1.006397674159d0
217 lx( 129 )= 1.006455410647d0
218 lx( 130 )= 1.006513271225d0
219 lx( 131 )= 1.006571256121d0
220 lx( 132 )= 1.006629365561d0
221 lx( 133 )= 1.006687599774d0
222 lx( 134 )= 1.006745958987d0
223 lx( 135 )= 1.006804443430d0
224 lx( 136 )= 1.006863053333d0
225 lx( 137 )= 1.006921788924d0
226 lx( 138 )= 1.006980650435d0
227 lx( 139 )= 1.007039638097d0
228 lx( 140 )= 1.007098752141d0
229 lx( 141 )= 1.007157992799d0
230 lx( 142 )= 1.007217360305d0
231 lx( 143 )= 1.007276854890d0
232 lx( 144 )= 1.007336476789d0
233 lx( 145 )= 1.007396226237d0
234 lx( 146 )= 1.007456103467d0
235 lx( 147 )= 1.007516108716d0
236 lx( 148 )= 1.007576242219d0
237 lx( 149 )= 1.007636504213d0
238 lx( 150 )= 1.007696894934d0
239 lx( 151 )= 1.007757414621d0
240 lx( 152 )= 1.007818063511d0
241 lx( 153 )= 1.007878841844d0
242 lx( 154 )= 1.007939749857d0
243 lx( 155 )= 1.008000787792d0
244 lx( 156 )= 1.008061955888d0
245 lx( 157 )= 1.008123254387d0
246 lx( 158 )= 1.008184683529d0
247 lx( 159 )= 1.008246243558d0
248 lx( 160 )= 1.008307934715d0
249 lx( 161 )= 1.008369757243d0
250 lx( 162 )= 1.008431711387d0
251 lx( 163 )= 1.008493797391d0
252 lx( 164 )= 1.008556015500d0
253 lx( 165 )= 1.008618365959d0
254 lx( 166 )= 1.008680849015d0
255 lx( 167 )= 1.008743464913d0
256 lx( 168 )= 1.008806213901d0
257 lx( 169 )= 1.008869096228d0
258 lx( 170 )= 1.008932112141d0
259 lx( 171 )= 1.008995261889d0
260 lx( 172 )= 1.009058545722d0
261 lx( 173 )= 1.009121963891d0
262 lx( 174 )= 1.009185516645d0
263 lx( 175 )= 1.009249204236d0
264 lx( 176 )= 1.009313026917d0
265 lx( 177 )= 1.009376984939d0
266 lx( 178 )= 1.009441078556d0
267 lx( 179 )= 1.009505308022d0
268 lx( 180 )= 1.009569673591d0
269 lx( 181 )= 1.009634175518d0
270 lx( 182 )= 1.009698814058d0
271 lx( 183 )= 1.009763589468d0
272 lx( 184 )= 1.009828502004d0
273 lx( 185 )= 1.009893551924d0
274 lx( 186 )= 1.009958739486d0
275 lx( 187 )= 1.010024064949d0
276 lx( 188 )= 1.010089528571d0
277 lx( 189 )= 1.010155130613d0
278 lx( 190 )= 1.010220871334d0
279 lx( 191 )= 1.010286750997d0
280 lx( 192 )= 1.010352769863d0
281 lx( 193 )= 1.010418928194d0
282 lx( 194 )= 1.010485226254d0
283 lx( 195 )= 1.010551664305d0
284 lx( 196 )= 1.010618242612d0
285 lx( 197 )= 1.010684961441d0
286 lx( 198 )= 1.010751821056d0
287 lx( 199 )= 1.010818821724d0
288 lx( 200 )= 1.010885963711d0
289 lx( 201 )= 1.010953247285d0
290 lx( 202 )= 1.011020672714d0
291 lx( 203 )= 1.011088240268d0
292 lx( 204 )= 1.011155950214d0
293 lx( 205 )= 1.011223802824d0
294 lx( 206 )= 1.011291798367d0
295 lx( 207 )= 1.011359937116d0
296 lx( 208 )= 1.011428219342d0
297 lx( 209 )= 1.011496645318d0
298 lx( 210 )= 1.011565215318d0
299 lx( 211 )= 1.011633929615d0
300 lx( 212 )= 1.011702788483d0
301 lx( 213 )= 1.011771792200d0
302 lx( 214 )= 1.011840941039d0
303 lx( 215 )= 1.011910235278d0
304 lx( 216 )= 1.011979675195d0
305 lx( 217 )= 1.012049261066d0
306 lx( 218 )= 1.012118993172d0
307 lx( 219 )= 1.012188871791d0
308 lx( 220 )= 1.012258897203d0
309 lx( 221 )= 1.012329069690d0
310 lx( 222 )= 1.012399389532d0
311 lx( 223 )= 1.012469857012d0
312 lx( 224 )= 1.012540472412d0
313 lx( 225 )= 1.012611236016d0
314 lx( 226 )= 1.012682148108d0
315 lx( 227 )= 1.012753208973d0
316 lx( 228 )= 1.012824418897d0
317 lx( 229 )= 1.012895778166d0
318 lx( 230 )= 1.012967287066d0
319 lx( 231 )= 1.013038945886d0
320 lx( 232 )= 1.013110754914d0
321 lx( 233 )= 1.013182714439d0
322 lx( 234 )= 1.013254824750d0
323 lx( 235 )= 1.013327086139d0
324 lx( 236 )= 1.013399498897d0
325 lx( 237 )= 1.013472063315d0
326 lx( 238 )= 1.013544779686d0
327 lx( 239 )= 1.013617648304d0
328 lx( 240 )= 1.013690669463d0
329 lx( 241 )= 1.013763843458d0
330 lx( 242 )= 1.013837170583d0
331 lx( 243 )= 1.013910651136d0
332 lx( 244 )= 1.013984285414d0
333 lx( 245 )= 1.014058073715d0
334 lx( 246 )= 1.014132016336d0
335 lx( 247 )= 1.014206113577d0
336 lx( 248 )= 1.014280365739d0
337 lx( 249 )= 1.014354773121d0
338 lx( 250 )= 1.014429336026d0
339 lx( 251 )= 1.014504054756d0
340 lx( 252 )= 1.014578929614d0
341 lx( 253 )= 1.014653960903d0
342 lx( 254 )= 1.014729148928d0
343 lx( 255 )= 1.014804493995d0
344 lx( 256 )= 1.014879996409d0
345 lx( 257 )= 1.014955656477d0
346 lx( 258 )= 1.015031474507d0
347 lx( 259 )= 1.015107450807d0
348 lx( 260 )= 1.015183585686d0
349 lx( 261 )= 1.015259879455d0
350 lx( 262 )= 1.015336332423d0
351 lx( 263 )= 1.015412944903d0
352 lx( 264 )= 1.015489717206d0
353 lx( 265 )= 1.015566649646d0
354 lx( 266 )= 1.015643742536d0
355 lx( 267 )= 1.015720996191d0
356 lx( 268 )= 1.015798410927d0
357 lx( 269 )= 1.015875987059d0
358 lx( 270 )= 1.015953724904d0
359 lx( 271 )= 1.016031624781d0
360 lx( 272 )= 1.016109687008d0
361 lx( 273 )= 1.016187911904d0
362 lx( 274 )= 1.016266299789d0
363 lx( 275 )= 1.016344850985d0
364 lx( 276 )= 1.016423565814d0
365 lx( 277 )= 1.016502444597d0
366 lx( 278 )= 1.016581487658d0
367 lx( 279 )= 1.016660695323d0
368 lx( 280 )= 1.016740067915d0
369 lx( 281 )= 1.016819605760d0
370 lx( 282 )= 1.016899309186d0
371 lx( 283 )= 1.016979178520d0
372 lx( 284 )= 1.017059214091d0
373 lx( 285 )= 1.017139416227d0
374 lx( 286 )= 1.017219785258d0
375 lx( 287 )= 1.017300321517d0
376 lx( 288 )= 1.017381025334d0
377 lx( 289 )= 1.017461897042d0
378 lx( 290 )= 1.017542936974d0
379 lx( 291 )= 1.017624145466d0
380 lx( 292 )= 1.017705522851d0
381 lx( 293 )= 1.017787069466d0
382 lx( 294 )= 1.017868785649d0
383 lx( 295 )= 1.017950671736d0
384 lx( 296 )= 1.018032728067d0
385 lx( 297 )= 1.018114954980d0
386 lx( 298 )= 1.018197352816d0
387 lx( 299 )= 1.018279921918d0
388 lx( 300 )= 1.018362662625d0
389 lx( 301 )= 1.018445575282d0
390 lx( 302 )= 1.018528660233d0
391 lx( 303 )= 1.018611917822d0
392 lx( 304 )= 1.018695348395d0
393 lx( 305 )= 1.018778952298d0
394 lx( 306 )= 1.018862729879d0
395 lx( 307 )= 1.018946681487d0
396 lx( 308 )= 1.019030807470d0
397 lx( 309 )= 1.019115108178d0
398 lx( 310 )= 1.019199583964d0
399 lx( 311 )= 1.019284235178d0
400 lx( 312 )= 1.019369062173d0
401 lx( 313 )= 1.019454065304d0
402 lx( 314 )= 1.019539244925d0
403 lx( 315 )= 1.019624601392d0
404 lx( 316 )= 1.019710135061d0
405 lx( 317 )= 1.019795846290d0
406 lx( 318 )= 1.019881735437d0
407 lx( 319 )= 1.019967802861d0
408 lx( 320 )= 1.020054048923d0
409 lx( 321 )= 1.020140473985d0
410 lx( 322 )= 1.020227078407d0
411 lx( 323 )= 1.020313862554d0
412 lx( 324 )= 1.020400826789d0
413 lx( 325 )= 1.020487971478d0
414 lx( 326 )= 1.020575296986d0
415 lx( 327 )= 1.020662803681d0
416 lx( 328 )= 1.020750491930d0
417 lx( 329 )= 1.020838362102d0
418 lx( 330 )= 1.020926414566d0
419 lx( 331 )= 1.021014649695d0
420 lx( 332 )= 1.021103067859d0
421 lx( 333 )= 1.021191669432d0
422 lx( 334 )= 1.021280454786d0
423 lx( 335 )= 1.021369424297d0
424 lx( 336 )= 1.021458578341d0
425 lx( 337 )= 1.021547917294d0
426 lx( 338 )= 1.021637441534d0
427 lx( 339 )= 1.021727151439d0
428 lx( 340 )= 1.021817047390d0
429 lx( 341 )= 1.021907129766d0
430 lx( 342 )= 1.021997398950d0
431 lx( 343 )= 1.022087855325d0
432 lx( 344 )= 1.022178499274d0
433 lx( 345 )= 1.022269331181d0
434 lx( 346 )= 1.022360351434d0
435 lx( 347 )= 1.022451560417d0
436 lx( 348 )= 1.022542958520d0
437 lx( 349 )= 1.022634546131d0
438 lx( 350 )= 1.022726323640d0
439 lx( 351 )= 1.022818291438d0
440 lx( 352 )= 1.022910449917d0
441 lx( 353 )= 1.023002799470d0
442 lx( 354 )= 1.023095340491d0
443 lx( 355 )= 1.023188073375d0
444 lx( 356 )= 1.023280998519d0
445 lx( 357 )= 1.023374116319d0
446 lx( 358 )= 1.023467427173d0
447 lx( 359 )= 1.023560931482d0
448 lx( 360 )= 1.023654629646d0
449 lx( 361 )= 1.023748522066d0
450 lx( 362 )= 1.023842609145d0
451 lx( 363 )= 1.023936891286d0
452 lx( 364 )= 1.024031368894d0
453 lx( 365 )= 1.024126042375d0
454 lx( 366 )= 1.024220912136d0
455 lx( 367 )= 1.024315978586d0
456 lx( 368 )= 1.024411242132d0
457 lx( 369 )= 1.024506703186d0
458 lx( 370 )= 1.024602362158d0
459 lx( 371 )= 1.024698219462d0
460 lx( 372 )= 1.024794275510d0
461 lx( 373 )= 1.024890530718d0
462 lx( 374 )= 1.024986985501d0
463 lx( 375 )= 1.025083640276d0
464 lx( 376 )= 1.025180495462d0
465 lx( 377 )= 1.025277551477d0
466 lx( 378 )= 1.025374808742d0
467 lx( 379 )= 1.025472267678d0
468 lx( 380 )= 1.025569928708d0
469 lx( 381 )= 1.025667792256d0
470 lx( 382 )= 1.025765858746d0
471 lx( 383 )= 1.025864128605d0
472 lx( 384 )= 1.025962602261d0
473 lx( 385 )= 1.026061280140d0
474 lx( 386 )= 1.026160162674d0
475 lx( 387 )= 1.026259250292d0
476 lx( 388 )= 1.026358543427d0
477 lx( 389 )= 1.026458042511d0
478 lx( 390 )= 1.026557747980d0
479 lx( 391 )= 1.026657660269d0
480 lx( 392 )= 1.026757779814d0
481 lx( 393 )= 1.026858107053d0
482 lx( 394 )= 1.026958642425d0
483 lx( 395 )= 1.027059386371d0
484 lx( 396 )= 1.027160339332d0
485 lx( 397 )= 1.027261501751d0
486 lx( 398 )= 1.027362874071d0
487 lx( 399 )= 1.027464456739d0
488 lx( 400 )= 1.027566250199d0
489 lx( 401 )= 1.027668254901d0
490 lx( 402 )= 1.027770471293d0
491 lx( 403 )= 1.027872899824d0
492 lx( 404 )= 1.027975540947d0
493 lx( 405 )= 1.028078395114d0
494 lx( 406 )= 1.028181462778d0
495 lx( 407 )= 1.028284744395d0
496 lx( 408 )= 1.028388240421d0
497 lx( 409 )= 1.028491951314d0
498 lx( 410 )= 1.028595877533d0
499 lx( 411 )= 1.028700019538d0
500 lx( 412 )= 1.028804377790d0
501 lx( 413 )= 1.028908952753d0
502 lx( 414 )= 1.029013744889d0
503 lx( 415 )= 1.029118754665d0
504 lx( 416 )= 1.029223982547d0
505 lx( 417 )= 1.029329429003d0
506 lx( 418 )= 1.029435094503d0
507 lx( 419 )= 1.029540979516d0
508 lx( 420 )= 1.029647084515d0
509 lx( 421 )= 1.029753409973d0
510 lx( 422 )= 1.029859956364d0
511 lx( 423 )= 1.029966724165d0
512 lx( 424 )= 1.030073713852d0
513 lx( 425 )= 1.030180925904d0
514 lx( 426 )= 1.030288360801d0
515 lx( 427 )= 1.030396019023d0
516 lx( 428 )= 1.030503901055d0
517 lx( 429 )= 1.030612007379d0
518 lx( 430 )= 1.030720338480d0
519 lx( 431 )= 1.030828894847d0
520 lx( 432 )= 1.030937676965d0
521 lx( 433 )= 1.031046685326d0
522 lx( 434 )= 1.031155920419d0
523 lx( 435 )= 1.031265382738d0
524 lx( 436 )= 1.031375072774d0
525 lx( 437 )= 1.031484991024d0
526 lx( 438 )= 1.031595137984d0
527 lx( 439 )= 1.031705514152d0
528 lx( 440 )= 1.031816120026d0
529 lx( 441 )= 1.031926956108d0
530 lx( 442 )= 1.032038022899d0
531 lx( 443 )= 1.032149320903d0
532 lx( 444 )= 1.032260850625d0
533 lx( 445 )= 1.032372612571d0
534 lx( 446 )= 1.032484607249d0
535 lx( 447 )= 1.032596835168d0
536 lx( 448 )= 1.032709296839d0
537 lx( 449 )= 1.032821992774d0
538 lx( 450 )= 1.032934923486d0
539 lx( 451 )= 1.033048089491d0
540 lx( 452 )= 1.033161491306d0
541 lx( 453 )= 1.033275129448d0
542 lx( 454 )= 1.033389004436d0
543 lx( 455 )= 1.033503116792d0
544 lx( 456 )= 1.033617467039d0
545 lx( 457 )= 1.033732055700d0
546 lx( 458 )= 1.033846883300d0
547 lx( 459 )= 1.033961950368d0
548 lx( 460 )= 1.034077257431d0
549 lx( 461 )= 1.034192805019d0
550 lx( 462 )= 1.034308593665d0
551 lx( 463 )= 1.034424623901d0
552 lx( 464 )= 1.034540896261d0
553 lx( 465 )= 1.034657411283d0
554 lx( 466 )= 1.034774169504d0
555 lx( 467 )= 1.034891171462d0
556 lx( 468 )= 1.035008417700d0
557 lx( 469 )= 1.035125908760d0
558 lx( 470 )= 1.035243645185d0
559 lx( 471 )= 1.035361627522d0
560 lx( 472 )= 1.035479856316d0
561 lx( 473 )= 1.035598332119d0
562 lx( 474 )= 1.035717055478d0
563 lx( 475 )= 1.035836026948d0
564 lx( 476 )= 1.035955247080d0
565 lx( 477 )= 1.036074716431d0
566 lx( 478 )= 1.036194435558d0
567 lx( 479 )= 1.036314405018d0
568 lx( 480 )= 1.036434625372d0
569 lx( 481 )= 1.036555097182d0
570 lx( 482 )= 1.036675821010d0
571 lx( 483 )= 1.036796797423d0
572 lx( 484 )= 1.036918026987d0
573 lx( 485 )= 1.037039510269d0
574 lx( 486 )= 1.037161247841d0
575 lx( 487 )= 1.037283240274d0
576 lx( 488 )= 1.037405488140d0
577 lx( 489 )= 1.037527992017d0
578 lx( 490 )= 1.037650752479d0
579 lx( 491 )= 1.037773770106d0
580 lx( 492 )= 1.037897045477d0
581 lx( 493 )= 1.038020579175d0
582 lx( 494 )= 1.038144371784d0
583 lx( 495 )= 1.038268423887d0
584 lx( 496 )= 1.038392736074d0
585 lx( 497 )= 1.038517308932d0
586 lx( 498 )= 1.038642143052d0
587 lx( 499 )= 1.038767239026d0
588 lx( 500 )= 1.038892597449d0
589 lx( 501 )= 1.039018218916d0
590 lx( 502 )= 1.039144104025d0
591 lx( 503 )= 1.039270253374d0
592 lx( 504 )= 1.039396667567d0
593 lx( 505 )= 1.039523347204d0
594 lx( 506 )= 1.039650292892d0
595 lx( 507 )= 1.039777505236d0
596 lx( 508 )= 1.039904984845d0
597 lx( 509 )= 1.040032732329d0
598 lx( 510 )= 1.040160748301d0
599 lx( 511 )= 1.040289033373d0
600 lx( 512 )= 1.040417588163d0
601 lx( 513 )= 1.040546413286d0
602 lx( 514 )= 1.040675509364d0
603 lx( 515 )= 1.040804877016d0
604 lx( 516 )= 1.040934516866d0
605 lx( 517 )= 1.041064429539d0
606 lx( 518 )= 1.041194615662d0
607 lx( 519 )= 1.041325075863d0
608 lx( 520 )= 1.041455810774d0
609 lx( 521 )= 1.041586821027d0
610 lx( 522 )= 1.041718107256d0
611 lx( 523 )= 1.041849670097d0
612 lx( 524 )= 1.041981510190d0
613 lx( 525 )= 1.042113628174d0
614 lx( 526 )= 1.042246024691d0
615 lx( 527 )= 1.042378700386d0
616 lx( 528 )= 1.042511655904d0
617 lx( 529 )= 1.042644891894d0
618 lx( 530 )= 1.042778409006d0
619 lx( 531 )= 1.042912207891d0
620 lx( 532 )= 1.043046289204d0
621 lx( 533 )= 1.043180653601d0
622 lx( 534 )= 1.043315301738d0
623 lx( 535 )= 1.043450234278d0
624 lx( 536 )= 1.043585451881d0
625 lx( 537 )= 1.043720955211d0
626 lx( 538 )= 1.043856744935d0
627 lx( 539 )= 1.043992821721d0
628 lx( 540 )= 1.044129186238d0
629 lx( 541 )= 1.044265839159d0
630 lx( 542 )= 1.044402781158d0
631 lx( 543 )= 1.044540012912d0
632 lx( 544 )= 1.044677535098d0
633 lx( 545 )= 1.044815348397d0
634 lx( 546 )= 1.044953453493d0
635 lx( 547 )= 1.045091851068d0
636 lx( 548 )= 1.045230541811d0
637 lx( 549 )= 1.045369526410d0
638 lx( 550 )= 1.045508805557d0
639 lx( 551 )= 1.045648379943d0
640 lx( 552 )= 1.045788250265d0
641 lx( 553 )= 1.045928417220d0
642 lx( 554 )= 1.046068881507d0
643 lx( 555 )= 1.046209643829d0
644 lx( 556 )= 1.046350704889d0
645 lx( 557 )= 1.046492065394d0
646 lx( 558 )= 1.046633726051d0
647 lx( 559 )= 1.046775687571d0
648 lx( 560 )= 1.046917950668d0
649 lx( 561 )= 1.047060516055d0
650 lx( 562 )= 1.047203384450d0
651 lx( 563 )= 1.047346556573d0
652 lx( 564 )= 1.047490033145d0
653 lx( 565 )= 1.047633814890d0
654 lx( 566 )= 1.047777902534d0
655 lx( 567 )= 1.047922296806d0
656 lx( 568 )= 1.048066998437d0
657 lx( 569 )= 1.048212008158d0
658 lx( 570 )= 1.048357326707d0
659 lx( 571 )= 1.048502954820d0
660 lx( 572 )= 1.048648893237d0
661 lx( 573 )= 1.048795142700d0
662 lx( 574 )= 1.048941703955d0
663 lx( 575 )= 1.049088577748d0
664 lx( 576 )= 1.049235764828d0
665 lx( 577 )= 1.049383265947d0
666 lx( 578 )= 1.049531081859d0
667 lx( 579 )= 1.049679213320d0
668 lx( 580 )= 1.049827661090d0
669 lx( 581 )= 1.049976425929d0
670 lx( 582 )= 1.050125508602d0
671 lx( 583 )= 1.050274909873d0
672 lx( 584 )= 1.050424630511d0
673 lx( 585 )= 1.050574671289d0
674 lx( 586 )= 1.050725032977d0
675 lx( 587 )= 1.050875716354d0
676 lx( 588 )= 1.051026722196d0
677 lx( 589 )= 1.051178051285d0
678 lx( 590 )= 1.051329704403d0
679 lx( 591 )= 1.051481682337d0
680 lx( 592 )= 1.051633985875d0
681 lx( 593 )= 1.051786615807d0
682 lx( 594 )= 1.051939572927d0
683 lx( 595 )= 1.052092858031d0
684 lx( 596 )= 1.052246471916d0
685 lx( 597 )= 1.052400415384d0
686 lx( 598 )= 1.052554689239d0
687 lx( 599 )= 1.052709294286d0
688 lx( 600 )= 1.052864231334d0
689 lx( 601 )= 1.053019501195d0
690 lx( 602 )= 1.053175104682d0
691 lx( 603 )= 1.053331042611d0
692 lx( 604 )= 1.053487315802d0
693 lx( 605 )= 1.053643925077d0
694 lx( 606 )= 1.053800871260d0
695 lx( 607 )= 1.053958155178d0
696 lx( 608 )= 1.054115777661d0
697 lx( 609 )= 1.054273739541d0
698 lx( 610 )= 1.054432041653d0
699 lx( 611 )= 1.054590684836d0
700 lx( 612 )= 1.054749669929d0
701 lx( 613 )= 1.054908997777d0
702 lx( 614 )= 1.055068669224d0
703 lx( 615 )= 1.055228685121d0
704 lx( 616 )= 1.055389046318d0
705 lx( 617 )= 1.055549753669d0
706 lx( 618 )= 1.055710808033d0
707 lx( 619 )= 1.055872210268d0
708 lx( 620 )= 1.056033961237d0
709 lx( 621 )= 1.056196061806d0
710 lx( 622 )= 1.056358512844d0
711 lx( 623 )= 1.056521315221d0
712 lx( 624 )= 1.056684469811d0
713 lx( 625 )= 1.056847977492d0
714 lx( 626 )= 1.057011839143d0
715 lx( 627 )= 1.057176055647d0
716 lx( 628 )= 1.057340627890d0
717 lx( 629 )= 1.057505556759d0
718 lx( 630 )= 1.057670843147d0
719 lx( 631 )= 1.057836487947d0
720 lx( 632 )= 1.058002492057d0
721 lx( 633 )= 1.058168856378d0
722 lx( 634 )= 1.058335581812d0
723 lx( 635 )= 1.058502669265d0
724 lx( 636 )= 1.058670119648d0
725 lx( 637 )= 1.058837933872d0
726 lx( 638 )= 1.059006112852d0
727 lx( 639 )= 1.059174657507d0
728 lx( 640 )= 1.059343568758d0
729 lx( 641 )= 1.059512847529d0
730 lx( 642 )= 1.059682494748d0
731 lx( 643 )= 1.059852511346d0
732 lx( 644 )= 1.060022898256d0
733 lx( 645 )= 1.060193656414d0
734 lx( 646 )= 1.060364786762d0
735 lx( 647 )= 1.060536290241d0
736 lx( 648 )= 1.060708167798d0
737 lx( 649 )= 1.060880420383d0
738 lx( 650 )= 1.061053048947d0
739 lx( 651 )= 1.061226054447d0
740 lx( 652 )= 1.061399437842d0
741 lx( 653 )= 1.061573200093d0
742 lx( 654 )= 1.061747342166d0
743 lx( 655 )= 1.061921865030d0
744 lx( 656 )= 1.062096769657d0
745 lx( 657 )= 1.062272057021d0
746 lx( 658 )= 1.062447728101d0
747 lx( 659 )= 1.062623783880d0
748 lx( 660 )= 1.062800225341d0
749 lx( 661 )= 1.062977053473d0
750 lx( 662 )= 1.063154269269d0
751 lx( 663 )= 1.063331873722d0
752 lx( 664 )= 1.063509867832d0
753 lx( 665 )= 1.063688252601d0
754 lx( 666 )= 1.063867029033d0
755 lx( 667 )= 1.064046198138d0
756 lx( 668 )= 1.064225760926d0
757 lx( 669 )= 1.064405718415d0
758 lx( 670 )= 1.064586071623d0
759 lx( 671 )= 1.064766821572d0
760 lx( 672 )= 1.064947969288d0
761 lx( 673 )= 1.065129515801d0
762 lx( 674 )= 1.065311462143d0
763 lx( 675 )= 1.065493809352d0
764 lx( 676 )= 1.065676558467d0
765 lx( 677 )= 1.065859710532d0
766 lx( 678 )= 1.066043266594d0
767 lx( 679 )= 1.066227227703d0
768 lx( 680 )= 1.066411594915d0
769 lx( 681 )= 1.066596369287d0
770 lx( 682 )= 1.066781551880d0
771 lx( 683 )= 1.066967143761d0
772 lx( 684 )= 1.067153145998d0
773 lx( 685 )= 1.067339559663d0
774 lx( 686 )= 1.067526385834d0
775 lx( 687 )= 1.067713625590d0
776 lx( 688 )= 1.067901280015d0
777 lx( 689 )= 1.068089350196d0
778 lx( 690 )= 1.068277837225d0
779 lx( 691 )= 1.068466742197d0
780 lx( 692 )= 1.068656066212d0
781 lx( 693 )= 1.068845810370d0
782 lx( 694 )= 1.069035975780d0
783 lx( 695 )= 1.069226563552d0
784 lx( 696 )= 1.069417574800d0
785 lx( 697 )= 1.069609010642d0
786 lx( 698 )= 1.069800872200d0
787 lx( 699 )= 1.069993160600d0
788 lx( 700 )= 1.070185876972d0
789 lx( 701 )= 1.070379022451d0
790 lx( 702 )= 1.070572598173d0
791 lx( 703 )= 1.070766605280d0
792 lx( 704 )= 1.070961044920d0
793 lx( 705 )= 1.071155918240d0
794 lx( 706 )= 1.071351226396d0
795 lx( 707 )= 1.071546970545d0
796 lx( 708 )= 1.071743151850d0
797 lx( 709 )= 1.071939771475d0
798 lx( 710 )= 1.072136830592d0
799 lx( 711 )= 1.072334330376d0
800 lx( 712 )= 1.072532272003d0
801 lx( 713 )= 1.072730656658d0
802 lx( 714 )= 1.072929485527d0
803 lx( 715 )= 1.073128759800d0
804 lx( 716 )= 1.073328480675d0
805 lx( 717 )= 1.073528649349d0
806 lx( 718 )= 1.073729267026d0
807 lx( 719 )= 1.073930334915d0
808 lx( 720 )= 1.074131854229d0
809 lx( 721 )= 1.074333826183d0
810 lx( 722 )= 1.074536251999d0
811 lx( 723 )= 1.074739132902d0
812 lx( 724 )= 1.074942470121d0
813 lx( 725 )= 1.075146264892d0
814 lx( 726 )= 1.075350518452d0
815 lx( 727 )= 1.075555232045d0
816 lx( 728 )= 1.075760406917d0
817 lx( 729 )= 1.075966044322d0
818 lx( 730 )= 1.076172145514d0
819 lx( 731 )= 1.076378711756d0
820 lx( 732 )= 1.076585744312d0
821 lx( 733 )= 1.076793244452d0
822 lx( 734 )= 1.077001213452d0
823 lx( 735 )= 1.077209652590d0
824 lx( 736 )= 1.077418563149d0
825 lx( 737 )= 1.077627946420d0
826 lx( 738 )= 1.077837803693d0
827 lx( 739 )= 1.078048136268d0
828 lx( 740 )= 1.078258945447d0
829 lx( 741 )= 1.078470232536d0
830 lx( 742 )= 1.078681998849d0
831 lx( 743 )= 1.078894245700d0
832 lx( 744 )= 1.079106974412d0
833 lx( 745 )= 1.079320186312d0
834 lx( 746 )= 1.079533882730d0
835 lx( 747 )= 1.079748065001d0
836 lx( 748 )= 1.079962734468d0
837 lx( 749 )= 1.080177892475d0
838 lx( 750 )= 1.080393540374d0
839 lx( 751 )= 1.080609679519d0
840 lx( 752 )= 1.080826311272d0
841 lx( 753 )= 1.081043436998d0
842 lx( 754 )= 1.081261058067d0
843 lx( 755 )= 1.081479175855d0
844 lx( 756 )= 1.081697791742d0
845 lx( 757 )= 1.081916907115d0
846 lx( 758 )= 1.082136523364d0
847 lx( 759 )= 1.082356641884d0
848 lx( 760 )= 1.082577264078d0
849 lx( 761 )= 1.082798391350d0
850 lx( 762 )= 1.083020025113d0
851 lx( 763 )= 1.083242166784d0
852 lx( 764 )= 1.083464817783d0
853 lx( 765 )= 1.083687979539d0
854 lx( 766 )= 1.083911653483d0
855 lx( 767 )= 1.084135841054d0
856 lx( 768 )= 1.084360543694d0
857 lx( 769 )= 1.084585762852d0
858 lx( 770 )= 1.084811499982d0
859 lx( 771 )= 1.085037756543d0
860 lx( 772 )= 1.085264534000d0
861 lx( 773 )= 1.085491833822d0
862 lx( 774 )= 1.085719657487d0
863 lx( 775 )= 1.085948006474d0
864 lx( 776 )= 1.086176882270d0
865 lx( 777 )= 1.086406286369d0
866 lx( 778 )= 1.086636220267d0
867 lx( 779 )= 1.086866685468d0
868 lx( 780 )= 1.087097683482d0
869 lx( 781 )= 1.087329215822d0
870 lx( 782 )= 1.087561284011d0
871 lx( 783 )= 1.087793889573d0
872 lx( 784 )= 1.088027034042d0
873 lx( 785 )= 1.088260718954d0
874 lx( 786 )= 1.088494945854d0
875 lx( 787 )= 1.088729716290d0
876 lx( 788 )= 1.088965031819d0
877 lx( 789 )= 1.089200894001d0
878 lx( 790 )= 1.089437304403d0
879 lx( 791 )= 1.089674264599d0
880 lx( 792 )= 1.089911776167d0
881 lx( 793 )= 1.090149840693d0
882 lx( 794 )= 1.090388459768d0
883 lx( 795 )= 1.090627634988d0
884 lx( 796 )= 1.090867367958d0
885 lx( 797 )= 1.091107660285d0
886 lx( 798 )= 1.091348513587d0
887 lx( 799 )= 1.091589929484d0
888 lx( 800 )= 1.091831909605d0
889 lx( 801 )= 1.092074455583d0
890 lx( 802 )= 1.092317569059d0
891 lx( 803 )= 1.092561251679d0
892 lx( 804 )= 1.092805505098d0
893 lx( 805 )= 1.093050330973d0
894 lx( 806 )= 1.093295730970d0
895 lx( 807 )= 1.093541706763d0
896 lx( 808 )= 1.093788260029d0
897 lx( 809 )= 1.094035392454d0
898 lx( 810 )= 1.094283105729d0
899 lx( 811 )= 1.094531401552d0
900 lx( 812 )= 1.094780281629d0
901 lx( 813 )= 1.095029747669d0
902 lx( 814 )= 1.095279801393d0
903 lx( 815 )= 1.095530444523d0
904 lx( 816 )= 1.095781678791d0
905 lx( 817 )= 1.096033505936d0
906 lx( 818 )= 1.096285927703d0
907 lx( 819 )= 1.096538945842d0
908 lx( 820 )= 1.096792562113d0
909 lx( 821 )= 1.097046778280d0
910 lx( 822 )= 1.097301596117d0
911 lx( 823 )= 1.097557017402d0
912 lx( 824 )= 1.097813043921d0
913 lx( 825 )= 1.098069677468d0
914 lx( 826 )= 1.098326919842d0
915 lx( 827 )= 1.098584772852d0
916 lx( 828 )= 1.098843238311d0
917 lx( 829 )= 1.099102318040d0
918 lx( 830 )= 1.099362013870d0
919 lx( 831 )= 1.099622327635d0
920 lx( 832 )= 1.099883261178d0
921 lx( 833 )= 1.100144816351d0
922 lx( 834 )= 1.100406995010d0
923 lx( 835 )= 1.100669799021d0
924 lx( 836 )= 1.100933230257d0
925 lx( 837 )= 1.101197290597d0
926 lx( 838 )= 1.101461981929d0
927 lx( 839 )= 1.101727306147d0
928 lx( 840 )= 1.101993265155d0
929 lx( 841 )= 1.102259860861d0
930 lx( 842 )= 1.102527095184d0
931 lx( 843 )= 1.102794970049d0
932 lx( 844 )= 1.103063487389d0
933 lx( 845 )= 1.103332649145d0
934 lx( 846 )= 1.103602457264d0
935 lx( 847 )= 1.103872913704d0
936 lx( 848 )= 1.104144020428d0
937 lx( 849 )= 1.104415779408d0
938 lx( 850 )= 1.104688192624d0
939 lx( 851 )= 1.104961262065d0
940 lx( 852 )= 1.105234989725d0
941 lx( 853 )= 1.105509377610d0
942 lx( 854 )= 1.105784427730d0
943 lx( 855 )= 1.106060142106d0
944 lx( 856 )= 1.106336522767d0
945 lx( 857 )= 1.106613571748d0
946 lx( 858 )= 1.106891291095d0
947 lx( 859 )= 1.107169682860d0
948 lx( 860 )= 1.107448749105d0
949 lx( 861 )= 1.107728491900d0
950 lx( 862 )= 1.108008913323d0
951 lx( 863 )= 1.108290015459d0
952 lx( 864 )= 1.108571800406d0
953 lx( 865 )= 1.108854270265d0
954 lx( 866 )= 1.109137427149d0
955 lx( 867 )= 1.109421273180d0
956 lx( 868 )= 1.109705810487d0
957 lx( 869 )= 1.109991041207d0
958 lx( 870 )= 1.110276967489d0
959 lx( 871 )= 1.110563591487d0
960 lx( 872 )= 1.110850915367d0
961 lx( 873 )= 1.111138941302d0
962 lx( 874 )= 1.111427671474d0
963 lx( 875 )= 1.111717108076d0
964 lx( 876 )= 1.112007253308d0
965 lx( 877 )= 1.112298109379d0
966 lx( 878 )= 1.112589678508d0
967 lx( 879 )= 1.112881962923d0
968 lx( 880 )= 1.113174964862d0
969 lx( 881 )= 1.113468686570d0
970 lx( 882 )= 1.113763130304d0
971 lx( 883 )= 1.114058298328d0
972 lx( 884 )= 1.114354192917d0
973 lx( 885 )= 1.114650816356d0
974 lx( 886 )= 1.114948170938d0
975 lx( 887 )= 1.115246258965d0
976 lx( 888 )= 1.115545082751d0
977 lx( 889 )= 1.115844644618d0
978 lx( 890 )= 1.116144946898d0
979 lx( 891 )= 1.116445991933d0
980 lx( 892 )= 1.116747782075d0
981 lx( 893 )= 1.117050319685d0
982 lx( 894 )= 1.117353607134d0
983 lx( 895 )= 1.117657646805d0
984 lx( 896 )= 1.117962441088d0
985 lx( 897 )= 1.118267992385d0
986 lx( 898 )= 1.118574303107d0
987 lx( 899 )= 1.118881375677d0
988 lx( 900 )= 1.119189212527d0
989 lx( 901 )= 1.119497816099d0
990 lx( 902 )= 1.119807188846d0
991 lx( 903 )= 1.120117333230d0
992 lx( 904 )= 1.120428251726d0
993 lx( 905 )= 1.120739946818d0
994 lx( 906 )= 1.121052420999d0
995 lx( 907 )= 1.121365676776d0
996 lx( 908 )= 1.121679716664d0
997 lx( 909 )= 1.121994543191d0
998 lx( 910 )= 1.122310158892d0
999 lx( 911 )= 1.122626566318d0
1000 lx( 912 )= 1.122943768027d0
1001 lx( 913 )= 1.123261766588d0
1002 lx( 914 )= 1.123580564585d0
1003 lx( 915 )= 1.123900164607d0
1004 lx( 916 )= 1.124220569260d0
1005 lx( 917 )= 1.124541781158d0
1006 lx( 918 )= 1.124863802927d0
1007 lx( 919 )= 1.125186637203d0
1008 lx( 920 )= 1.125510286636d0
1009 lx( 921 )= 1.125834753885d0
1010 lx( 922 )= 1.126160041622d0
1011 lx( 923 )= 1.126486152530d0
1012 lx( 924 )= 1.126813089305d0
1013 lx( 925 )= 1.127140854651d0
1014 lx( 926 )= 1.127469451288d0
1015 lx( 927 )= 1.127798881946d0
1016 lx( 928 )= 1.128129149366d0
1017 lx( 929 )= 1.128460256302d0
1018 lx( 930 )= 1.128792205520d0
1019 lx( 931 )= 1.129124999799d0
1020 lx( 932 )= 1.129458641927d0
1021 lx( 933 )= 1.129793134708d0
1022 lx( 934 )= 1.130128480955d0
1023 lx( 935 )= 1.130464683497d0
1024 lx( 936 )= 1.130801745171d0
1025 lx( 937 )= 1.131139668831d0
1026 lx( 938 )= 1.131478457339d0
1027 lx( 939 )= 1.131818113574d0
1028 lx( 940 )= 1.132158640424d0
1029 lx( 941 )= 1.132500040793d0
1030 lx( 942 )= 1.132842317595d0
1031 lx( 943 )= 1.133185473759d0
1032 lx( 944 )= 1.133529512225d0
1033 lx( 945 )= 1.133874435948d0
1034 lx( 946 )= 1.134220247895d0
1035 lx( 947 )= 1.134566951046d0
1036 lx( 948 )= 1.134914548395d0
1037 lx( 949 )= 1.135263042950d0
1038 lx( 950 )= 1.135612437729d0
1039 lx( 951 )= 1.135962735768d0
1040 lx( 952 )= 1.136313940113d0
1041 lx( 953 )= 1.136666053826d0
1042 lx( 954 )= 1.137019079981d0
1043 lx( 955 )= 1.137373021667d0
1044 lx( 956 )= 1.137727881987d0
1045 lx( 957 )= 1.138083664056d0
1046 lx( 958 )= 1.138440371006d0
1047 lx( 959 )= 1.138798005979d0
1048 lx( 960 )= 1.139156572136d0
1049 lx( 961 )= 1.139516072648d0
1050 lx( 962 )= 1.139876510703d0
1051 lx( 963 )= 1.140237889503d0
1052 lx( 964 )= 1.140600212264d0
1053 lx( 965 )= 1.140963482216d0
1054 lx( 966 )= 1.141327702604d0
1055 lx( 967 )= 1.141692876689d0
1056 lx( 968 )= 1.142059007745d0
1057 lx( 969 )= 1.142426099062d0
1058 lx( 970 )= 1.142794153946d0
1059 lx( 971 )= 1.143163175715d0
1060 lx( 972 )= 1.143533167705d0
1061 lx( 973 )= 1.143904133265d0
1062 lx( 974 )= 1.144276075762d0
1063 lx( 975 )= 1.144648998577d0
1064 lx( 976 )= 1.145022905105d0
1065 lx( 977 )= 1.145397798760d0
1066 lx( 978 )= 1.145773682968d0
1067 lx( 979 )= 1.146150561174d0
1068 lx( 980 )= 1.146528436836d0
1069 lx( 981 )= 1.146907313430d0
1070 lx( 982 )= 1.147287194448d0
1071 lx( 983 )= 1.147668083397d0
1072 lx( 984 )= 1.148049983800d0
1073 lx( 985 )= 1.148432899199d0
1074 lx( 986 )= 1.148816833149d0
1075 lx( 987 )= 1.149201789223d0
1076 lx( 988 )= 1.149587771012d0
1077 lx( 989 )= 1.149974782121d0
1078 lx( 990 )= 1.150362826173d0
1079 lx( 991 )= 1.150751906810d0
1080 lx( 992 )= 1.151142027687d0
1081 lx( 993 )= 1.151533192479d0
1082 lx( 994 )= 1.151925404878d0
1083 lx( 995 )= 1.152318668592d0
1084 lx( 996 )= 1.152712987346d0
1085 lx( 997 )= 1.153108364886d0
1086 lx( 998 )= 1.153504804971d0
1087 lx( 999 )= 1.153902311381d0
1088 lx( 1000 )= 1.154300887912d0
1089 lx( 1001 )= 1.154700538379d0
1090 lx( 1002 )= 1.155101266615d0
1091 lx( 1003 )= 1.155503076470d0
1092 lx( 1004 )= 1.155905971814d0
1093 lx( 1005 )= 1.156309956533d0
1094 lx( 1006 )= 1.156715034534d0
1095 lx( 1007 )= 1.157121209740d0
1096 lx( 1008 )= 1.157528486095d0
1097 lx( 1009 )= 1.157936867561d0
1098 lx( 1010 )= 1.158346358118d0
1099 lx( 1011 )= 1.158756961765d0
1100 lx( 1012 )= 1.159168682522d0
1101 lx( 1013 )= 1.159581524427d0
1102 lx( 1014 )= 1.159995491537d0
1103 lx( 1015 )= 1.160410587928d0
1104 lx( 1016 )= 1.160826817698d0
1105 lx( 1017 )= 1.161244184962d0
1106 lx( 1018 )= 1.161662693855d0
1107 lx( 1019 )= 1.162082348535d0
1108 lx( 1020 )= 1.162503153176d0
1109 lx( 1021 )= 1.162925111975d0
1110 lx( 1022 )= 1.163348229148d0
1111 lx( 1023 )= 1.163772508931d0
1112 lx( 1024 )= 1.164197955582d0
1113 lx( 1025 )= 1.164624573380d0
1114 lx( 1026 )= 1.165052366621d0
1115 lx( 1027 )= 1.165481339626d0
1116 lx( 1028 )= 1.165911496737d0
1117 lx( 1029 )= 1.166342842313d0
1118 lx( 1030 )= 1.166775380739d0
1119 lx( 1031 )= 1.167209116419d0
1120 lx( 1032 )= 1.167644053779d0
1121 lx( 1033 )= 1.168080197266d0
1122 lx( 1034 )= 1.168517551350d0
1123 lx( 1035 )= 1.168956120524d0
1124 lx( 1036 )= 1.169395909299d0
1125 lx( 1037 )= 1.169836922212d0
1126 lx( 1038 )= 1.170279163821d0
1127 lx( 1039 )= 1.170722638707d0
1128 lx( 1040 )= 1.171167351472d0
1129 lx( 1041 )= 1.171613306743d0
1130 lx( 1042 )= 1.172060509169d0
1131 lx( 1043 )= 1.172508963421d0
1132 lx( 1044 )= 1.172958674194d0
1133 lx( 1045 )= 1.173409646208d0
1134 lx( 1046 )= 1.173861884204d0
1135 lx( 1047 )= 1.174315392947d0
1136 lx( 1048 )= 1.174770177227d0
1137 lx( 1049 )= 1.175226241856d0
1138 lx( 1050 )= 1.175683591673d0
1139 lx( 1051 )= 1.176142231539d0
1140 lx( 1052 )= 1.176602166339d0
1141 lx( 1053 )= 1.177063400984d0
1142 lx( 1054 )= 1.177525940408d0
1143 lx( 1055 )= 1.177989789573d0
1144 lx( 1056 )= 1.178454953462d0
1145 lx( 1057 )= 1.178921437085d0
1146 lx( 1058 )= 1.179389245477d0
1147 lx( 1059 )= 1.179858383700d0
1148 lx( 1060 )= 1.180328856840d0
1149 lx( 1061 )= 1.180800670008d0
1150 lx( 1062 )= 1.181273828343d0
1151 lx( 1063 )= 1.181748337008d0
1152 lx( 1064 )= 1.182224201195d0
1153 lx( 1065 )= 1.182701426119d0
1154 lx( 1066 )= 1.183180017024d0
1155 lx( 1067 )= 1.183659979180d0
1156 lx( 1068 )= 1.184141317884d0
1157 lx( 1069 )= 1.184624038461d0
1158 lx( 1070 )= 1.185108146262d0
1159 lx( 1071 )= 1.185593646665d0
1160 lx( 1072 )= 1.186080545077d0
1161 lx( 1073 )= 1.186568846933d0
1162 lx( 1074 )= 1.187058557694d0
1163 lx( 1075 )= 1.187549682852d0
1164 lx( 1076 )= 1.188042227924d0
1165 lx( 1077 )= 1.188536198458d0
1166 lx( 1078 )= 1.189031600031d0
1167 lx( 1079 )= 1.189528438246d0
1168 lx( 1080 )= 1.190026718738d0
1169 lx( 1081 )= 1.190526447170d0
1170 lx( 1082 )= 1.191027629235d0
1171 lx( 1083 )= 1.191530270655d0
1172 lx( 1084 )= 1.192034377182d0
1173 lx( 1085 )= 1.192539954598d0
1174 lx( 1086 )= 1.193047008716d0
1175 lx( 1087 )= 1.193555545378d0
1176 lx( 1088 )= 1.194065570458d0
1177 lx( 1089 )= 1.194577089859d0
1178 lx( 1090 )= 1.195090109518d0
1179 lx( 1091 )= 1.195604635400d0
1180 lx( 1092 )= 1.196120673504d0
1181 lx( 1093 )= 1.196638229858d0
1182 lx( 1094 )= 1.197157310524d0
1183 lx( 1095 )= 1.197677921596d0
1184 lx( 1096 )= 1.198200069199d0
1185 lx( 1097 )= 1.198723759491d0
1186 lx( 1098 )= 1.199248998663d0
1187 lx( 1099 )= 1.199775792938d0
1188 lx( 1100 )= 1.200304148573d0
1189 lx( 1101 )= 1.200834071859d0
1190 lx( 1102 )= 1.201365569118d0
1191 lx( 1103 )= 1.201898646708d0
1192 lx( 1104 )= 1.202433311021d0
1193 lx( 1105 )= 1.202969568483d0
1194 lx( 1106 )= 1.203507425552d0
1195 lx( 1107 )= 1.204046888724d0
1196 lx( 1108 )= 1.204587964529d0
1197 lx( 1109 )= 1.205130659531d0
1198 lx( 1110 )= 1.205674980331d0
1199 lx( 1111 )= 1.206220933564d0
1200 lx( 1112 )= 1.206768525902d0
1201 lx( 1113 )= 1.207317764053d0
1202 lx( 1114 )= 1.207868654760d0
1203 lx( 1115 )= 1.208421204804d0
1204 lx( 1116 )= 1.208975421004d0
1205 lx( 1117 )= 1.209531310212d0
1206 lx( 1118 )= 1.210088879322d0
1207 lx( 1119 )= 1.210648135262d0
1208 lx( 1120 )= 1.211209085001d0
1209 lx( 1121 )= 1.211771735542d0
1210 lx( 1122 )= 1.212336093931d0
1211 lx( 1123 )= 1.212902167249d0
1212 lx( 1124 )= 1.213469962618d0
1213 lx( 1125 )= 1.214039487197d0
1214 lx( 1126 )= 1.214610748187d0
1215 lx( 1127 )= 1.215183752828d0
1216 lx( 1128 )= 1.215758508397d0
1217 lx( 1129 )= 1.216335022216d0
1218 lx( 1130 )= 1.216913301644d0
1219 lx( 1131 )= 1.217493354082d0
1220 lx( 1132 )= 1.218075186972d0
1221 lx( 1133 )= 1.218658807797d0
1222 lx( 1134 )= 1.219244224082d0
1223 lx( 1135 )= 1.219831443394d0
1224 lx( 1136 )= 1.220420473342d0
1225 lx( 1137 )= 1.221011321577d0
1226 lx( 1138 )= 1.221603995794d0
1227 lx( 1139 )= 1.222198503730d0
1228 lx( 1140 )= 1.222794853165d0
1229 lx( 1141 )= 1.223393051924d0
1230 lx( 1142 )= 1.223993107876d0
1231 lx( 1143 )= 1.224595028933d0
1232 lx( 1144 )= 1.225198823053d0
1233 lx( 1145 )= 1.225804498237d0
1234 lx( 1146 )= 1.226412062534d0
1235 lx( 1147 )= 1.227021524036d0
1236 lx( 1148 )= 1.227632890882d0
1237 lx( 1149 )= 1.228246171257d0
1238 lx( 1150 )= 1.228861373393d0
1239 lx( 1151 )= 1.229478505568d0
1240 lx( 1152 )= 1.230097576108d0
1241 lx( 1153 )= 1.230718593386d0
1242 lx( 1154 )= 1.231341565824d0
1243 lx( 1155 )= 1.231966501889d0
1244 lx( 1156 )= 1.232593410100d0
1245 lx( 1157 )= 1.233222299024d0
1246 lx( 1158 )= 1.233853177277d0
1247 lx( 1159 )= 1.234486053523d0
1248 lx( 1160 )= 1.235120936478d0
1249 lx( 1161 )= 1.235757834908d0
1250 lx( 1162 )= 1.236396757629d0
1251 lx( 1163 )= 1.237037713508d0
1252 lx( 1164 )= 1.237680711464d0
1253 lx( 1165 )= 1.238325760468d0
1254 lx( 1166 )= 1.238972869541d0
1255 lx( 1167 )= 1.239622047759d0
1256 lx( 1168 )= 1.240273304249d0
1257 lx( 1169 )= 1.240926648194d0
1258 lx( 1170 )= 1.241582088827d0
1259 lx( 1171 )= 1.242239635437d0
1260 lx( 1172 )= 1.242899297368d0
1261 lx( 1173 )= 1.243561084018d0
1262 lx( 1174 )= 1.244225004840d0
1263 lx( 1175 )= 1.244891069343d0
1264 lx( 1176 )= 1.245559287092d0
1265 lx( 1177 )= 1.246229667707d0
1266 lx( 1178 )= 1.246902220868d0
1267 lx( 1179 )= 1.247576956311d0
1268 lx( 1180 )= 1.248253883827d0
1269 lx( 1181 )= 1.248933013268d0
1270 lx( 1182 )= 1.249614354545d0
1271 lx( 1183 )= 1.250297917625d0
1272 lx( 1184 )= 1.250983712538d0
1273 lx( 1185 )= 1.251671749370d0
1274 lx( 1186 )= 1.252362038272d0
1275 lx( 1187 )= 1.253054589450d0
1276 lx( 1188 )= 1.253749413177d0
1277 lx( 1189 )= 1.254446519783d0
1278 lx( 1190 )= 1.255145919663d0
1279 lx( 1191 )= 1.255847623273d0
1280 lx( 1192 )= 1.256551641133d0
1281 lx( 1193 )= 1.257257983827d0
1282 lx( 1194 )= 1.257966662000d0
1283 lx( 1195 )= 1.258677686364d0
1284 lx( 1196 )= 1.259391067697d0
1285 lx( 1197 )= 1.260106816839d0
1286 lx( 1198 )= 1.260824944700d0
1287 lx( 1199 )= 1.261545462252d0
1288 lx( 1200 )= 1.262268380538d0
1289 lx( 1201 )= 1.262993710665d0
1290
1291 tab( 1 )= 2.000000000000d0
1292 tab( 2 )= 1.999000000000d0
1293 tab( 3 )= 1.998000000000d0
1294 tab( 4 )= 1.997000000000d0
1295 tab( 5 )= 1.996000000000d0
1296 tab( 6 )= 1.995000000000d0
1297 tab( 7 )= 1.994000000000d0
1298 tab( 8 )= 1.993000000000d0
1299 tab( 9 )= 1.992000000000d0
1300 tab( 10 )= 1.991000000000d0
1301 tab( 11 )= 1.990000000000d0
1302 tab( 12 )= 1.989000000000d0
1303 tab( 13 )= 1.988000000000d0
1304 tab( 14 )= 1.987000000000d0
1305 tab( 15 )= 1.986000000000d0
1306 tab( 16 )= 1.985000000000d0
1307 tab( 17 )= 1.984000000000d0
1308 tab( 18 )= 1.983000000000d0
1309 tab( 19 )= 1.982000000000d0
1310 tab( 20 )= 1.981000000000d0
1311 tab( 21 )= 1.980000000000d0
1312 tab( 22 )= 1.979000000000d0
1313 tab( 23 )= 1.978000000000d0
1314 tab( 24 )= 1.977000000000d0
1315 tab( 25 )= 1.976000000000d0
1316 tab( 26 )= 1.975000000000d0
1317 tab( 27 )= 1.974000000000d0
1318 tab( 28 )= 1.973000000000d0
1319 tab( 29 )= 1.972000000000d0
1320 tab( 30 )= 1.971000000000d0
1321 tab( 31 )= 1.970000000000d0
1322 tab( 32 )= 1.969000000000d0
1323 tab( 33 )= 1.968000000000d0
1324 tab( 34 )= 1.967000000000d0
1325 tab( 35 )= 1.966000000000d0
1326 tab( 36 )= 1.965000000000d0
1327 tab( 37 )= 1.964000000000d0
1328 tab( 38 )= 1.963000000000d0
1329 tab( 39 )= 1.962000000000d0
1330 tab( 40 )= 1.961000000000d0
1331 tab( 41 )= 1.960000000000d0
1332 tab( 42 )= 1.959000000000d0
1333 tab( 43 )= 1.958000000000d0
1334 tab( 44 )= 1.957000000000d0
1335 tab( 45 )= 1.956000000000d0
1336 tab( 46 )= 1.955000000000d0
1337 tab( 47 )= 1.954000000000d0
1338 tab( 48 )= 1.953000000000d0
1339 tab( 49 )= 1.952000000000d0
1340 tab( 50 )= 1.951000000000d0
1341 tab( 51 )= 1.950000000000d0
1342 tab( 52 )= 1.949000000000d0
1343 tab( 53 )= 1.948000000000d0
1344 tab( 54 )= 1.947000000000d0
1345 tab( 55 )= 1.946000000000d0
1346 tab( 56 )= 1.945000000000d0
1347 tab( 57 )= 1.944000000000d0
1348 tab( 58 )= 1.943000000000d0
1349 tab( 59 )= 1.942000000000d0
1350 tab( 60 )= 1.941000000000d0
1351 tab( 61 )= 1.940000000000d0
1352 tab( 62 )= 1.939000000000d0
1353 tab( 63 )= 1.938000000000d0
1354 tab( 64 )= 1.937000000000d0
1355 tab( 65 )= 1.936000000000d0
1356 tab( 66 )= 1.935000000000d0
1357 tab( 67 )= 1.934000000000d0
1358 tab( 68 )= 1.933000000000d0
1359 tab( 69 )= 1.932000000000d0
1360 tab( 70 )= 1.931000000000d0
1361 tab( 71 )= 1.930000000000d0
1362 tab( 72 )= 1.929000000000d0
1363 tab( 73 )= 1.928000000000d0
1364 tab( 74 )= 1.927000000000d0
1365 tab( 75 )= 1.926000000000d0
1366 tab( 76 )= 1.925000000000d0
1367 tab( 77 )= 1.924000000000d0
1368 tab( 78 )= 1.923000000000d0
1369 tab( 79 )= 1.922000000000d0
1370 tab( 80 )= 1.921000000000d0
1371 tab( 81 )= 1.920000000000d0
1372 tab( 82 )= 1.919000000000d0
1373 tab( 83 )= 1.918000000000d0
1374 tab( 84 )= 1.917000000000d0
1375 tab( 85 )= 1.916000000000d0
1376 tab( 86 )= 1.915000000000d0
1377 tab( 87 )= 1.914000000000d0
1378 tab( 88 )= 1.913000000000d0
1379 tab( 89 )= 1.912000000000d0
1380 tab( 90 )= 1.911000000000d0
1381 tab( 91 )= 1.910000000000d0
1382 tab( 92 )= 1.909000000000d0
1383 tab( 93 )= 1.908000000000d0
1384 tab( 94 )= 1.907000000000d0
1385 tab( 95 )= 1.906000000000d0
1386 tab( 96 )= 1.905000000000d0
1387 tab( 97 )= 1.904000000000d0
1388 tab( 98 )= 1.903000000000d0
1389 tab( 99 )= 1.902000000000d0
1390 tab( 100 )= 1.901000000000d0
1391 tab( 101 )= 1.900000000000d0
1392 tab( 102 )= 1.899000000000d0
1393 tab( 103 )= 1.898000000000d0
1394 tab( 104 )= 1.897000000000d0
1395 tab( 105 )= 1.896000000000d0
1396 tab( 106 )= 1.895000000000d0
1397 tab( 107 )= 1.894000000000d0
1398 tab( 108 )= 1.893000000000d0
1399 tab( 109 )= 1.892000000000d0
1400 tab( 110 )= 1.891000000000d0
1401 tab( 111 )= 1.890000000000d0
1402 tab( 112 )= 1.889000000000d0
1403 tab( 113 )= 1.888000000000d0
1404 tab( 114 )= 1.887000000000d0
1405 tab( 115 )= 1.886000000000d0
1406 tab( 116 )= 1.885000000000d0
1407 tab( 117 )= 1.884000000000d0
1408 tab( 118 )= 1.883000000000d0
1409 tab( 119 )= 1.882000000000d0
1410 tab( 120 )= 1.881000000000d0
1411 tab( 121 )= 1.880000000000d0
1412 tab( 122 )= 1.879000000000d0
1413 tab( 123 )= 1.878000000000d0
1414 tab( 124 )= 1.877000000000d0
1415 tab( 125 )= 1.876000000000d0
1416 tab( 126 )= 1.875000000000d0
1417 tab( 127 )= 1.874000000000d0
1418 tab( 128 )= 1.873000000000d0
1419 tab( 129 )= 1.872000000000d0
1420 tab( 130 )= 1.871000000000d0
1421 tab( 131 )= 1.870000000000d0
1422 tab( 132 )= 1.869000000000d0
1423 tab( 133 )= 1.868000000000d0
1424 tab( 134 )= 1.867000000000d0
1425 tab( 135 )= 1.866000000000d0
1426 tab( 136 )= 1.865000000000d0
1427 tab( 137 )= 1.864000000000d0
1428 tab( 138 )= 1.863000000000d0
1429 tab( 139 )= 1.862000000000d0
1430 tab( 140 )= 1.861000000000d0
1431 tab( 141 )= 1.860000000000d0
1432 tab( 142 )= 1.859000000000d0
1433 tab( 143 )= 1.858000000000d0
1434 tab( 144 )= 1.857000000000d0
1435 tab( 145 )= 1.856000000000d0
1436 tab( 146 )= 1.855000000000d0
1437 tab( 147 )= 1.854000000000d0
1438 tab( 148 )= 1.853000000000d0
1439 tab( 149 )= 1.852000000000d0
1440 tab( 150 )= 1.851000000000d0
1441 tab( 151 )= 1.850000000000d0
1442 tab( 152 )= 1.849000000000d0
1443 tab( 153 )= 1.848000000000d0
1444 tab( 154 )= 1.847000000000d0
1445 tab( 155 )= 1.846000000000d0
1446 tab( 156 )= 1.845000000000d0
1447 tab( 157 )= 1.844000000000d0
1448 tab( 158 )= 1.843000000000d0
1449 tab( 159 )= 1.842000000000d0
1450 tab( 160 )= 1.841000000000d0
1451 tab( 161 )= 1.840000000000d0
1452 tab( 162 )= 1.839000000000d0
1453 tab( 163 )= 1.838000000000d0
1454 tab( 164 )= 1.837000000000d0
1455 tab( 165 )= 1.836000000000d0
1456 tab( 166 )= 1.835000000000d0
1457 tab( 167 )= 1.834000000000d0
1458 tab( 168 )= 1.833000000000d0
1459 tab( 169 )= 1.832000000000d0
1460 tab( 170 )= 1.831000000000d0
1461 tab( 171 )= 1.830000000000d0
1462 tab( 172 )= 1.829000000000d0
1463 tab( 173 )= 1.828000000000d0
1464 tab( 174 )= 1.827000000000d0
1465 tab( 175 )= 1.826000000000d0
1466 tab( 176 )= 1.825000000000d0
1467 tab( 177 )= 1.824000000000d0
1468 tab( 178 )= 1.823000000000d0
1469 tab( 179 )= 1.822000000000d0
1470 tab( 180 )= 1.821000000000d0
1471 tab( 181 )= 1.820000000000d0
1472 tab( 182 )= 1.819000000000d0
1473 tab( 183 )= 1.818000000000d0
1474 tab( 184 )= 1.817000000000d0
1475 tab( 185 )= 1.816000000000d0
1476 tab( 186 )= 1.815000000000d0
1477 tab( 187 )= 1.814000000000d0
1478 tab( 188 )= 1.813000000000d0
1479 tab( 189 )= 1.812000000000d0
1480 tab( 190 )= 1.811000000000d0
1481 tab( 191 )= 1.810000000000d0
1482 tab( 192 )= 1.809000000000d0
1483 tab( 193 )= 1.808000000000d0
1484 tab( 194 )= 1.807000000000d0
1485 tab( 195 )= 1.806000000000d0
1486 tab( 196 )= 1.805000000000d0
1487 tab( 197 )= 1.804000000000d0
1488 tab( 198 )= 1.803000000000d0
1489 tab( 199 )= 1.802000000000d0
1490 tab( 200 )= 1.801000000000d0
1491 tab( 201 )= 1.800000000000d0
1492 tab( 202 )= 1.799000000000d0
1493 tab( 203 )= 1.798000000000d0
1494 tab( 204 )= 1.797000000000d0
1495 tab( 205 )= 1.796000000000d0
1496 tab( 206 )= 1.795000000000d0
1497 tab( 207 )= 1.794000000000d0
1498 tab( 208 )= 1.793000000000d0
1499 tab( 209 )= 1.792000000000d0
1500 tab( 210 )= 1.791000000000d0
1501 tab( 211 )= 1.790000000000d0
1502 tab( 212 )= 1.789000000000d0
1503 tab( 213 )= 1.788000000000d0
1504 tab( 214 )= 1.787000000000d0
1505 tab( 215 )= 1.786000000000d0
1506 tab( 216 )= 1.785000000000d0
1507 tab( 217 )= 1.784000000000d0
1508 tab( 218 )= 1.783000000000d0
1509 tab( 219 )= 1.782000000000d0
1510 tab( 220 )= 1.781000000000d0
1511 tab( 221 )= 1.780000000000d0
1512 tab( 222 )= 1.779000000000d0
1513 tab( 223 )= 1.778000000000d0
1514 tab( 224 )= 1.777000000000d0
1515 tab( 225 )= 1.776000000000d0
1516 tab( 226 )= 1.775000000000d0
1517 tab( 227 )= 1.774000000000d0
1518 tab( 228 )= 1.773000000000d0
1519 tab( 229 )= 1.772000000000d0
1520 tab( 230 )= 1.771000000000d0
1521 tab( 231 )= 1.770000000000d0
1522 tab( 232 )= 1.769000000000d0
1523 tab( 233 )= 1.768000000000d0
1524 tab( 234 )= 1.767000000000d0
1525 tab( 235 )= 1.766000000000d0
1526 tab( 236 )= 1.765000000000d0
1527 tab( 237 )= 1.764000000000d0
1528 tab( 238 )= 1.763000000000d0
1529 tab( 239 )= 1.762000000000d0
1530 tab( 240 )= 1.761000000000d0
1531 tab( 241 )= 1.760000000000d0
1532 tab( 242 )= 1.759000000000d0
1533 tab( 243 )= 1.758000000000d0
1534 tab( 244 )= 1.757000000000d0
1535 tab( 245 )= 1.756000000000d0
1536 tab( 246 )= 1.755000000000d0
1537 tab( 247 )= 1.754000000000d0
1538 tab( 248 )= 1.753000000000d0
1539 tab( 249 )= 1.752000000000d0
1540 tab( 250 )= 1.751000000000d0
1541 tab( 251 )= 1.750000000000d0
1542 tab( 252 )= 1.749000000000d0
1543 tab( 253 )= 1.748000000000d0
1544 tab( 254 )= 1.747000000000d0
1545 tab( 255 )= 1.746000000000d0
1546 tab( 256 )= 1.745000000000d0
1547 tab( 257 )= 1.744000000000d0
1548 tab( 258 )= 1.743000000000d0
1549 tab( 259 )= 1.742000000000d0
1550 tab( 260 )= 1.741000000000d0
1551 tab( 261 )= 1.740000000000d0
1552 tab( 262 )= 1.739000000000d0
1553 tab( 263 )= 1.738000000000d0
1554 tab( 264 )= 1.737000000000d0
1555 tab( 265 )= 1.736000000000d0
1556 tab( 266 )= 1.735000000000d0
1557 tab( 267 )= 1.734000000000d0
1558 tab( 268 )= 1.733000000000d0
1559 tab( 269 )= 1.732000000000d0
1560 tab( 270 )= 1.731000000000d0
1561 tab( 271 )= 1.730000000000d0
1562 tab( 272 )= 1.729000000000d0
1563 tab( 273 )= 1.728000000000d0
1564 tab( 274 )= 1.727000000000d0
1565 tab( 275 )= 1.726000000000d0
1566 tab( 276 )= 1.725000000000d0
1567 tab( 277 )= 1.724000000000d0
1568 tab( 278 )= 1.723000000000d0
1569 tab( 279 )= 1.722000000000d0
1570 tab( 280 )= 1.721000000000d0
1571 tab( 281 )= 1.720000000000d0
1572 tab( 282 )= 1.719000000000d0
1573 tab( 283 )= 1.718000000000d0
1574 tab( 284 )= 1.717000000000d0
1575 tab( 285 )= 1.716000000000d0
1576 tab( 286 )= 1.715000000000d0
1577 tab( 287 )= 1.714000000000d0
1578 tab( 288 )= 1.713000000000d0
1579 tab( 289 )= 1.712000000000d0
1580 tab( 290 )= 1.711000000000d0
1581 tab( 291 )= 1.710000000000d0
1582 tab( 292 )= 1.709000000000d0
1583 tab( 293 )= 1.708000000000d0
1584 tab( 294 )= 1.707000000000d0
1585 tab( 295 )= 1.706000000000d0
1586 tab( 296 )= 1.705000000000d0
1587 tab( 297 )= 1.704000000000d0
1588 tab( 298 )= 1.703000000000d0
1589 tab( 299 )= 1.702000000000d0
1590 tab( 300 )= 1.701000000000d0
1591 tab( 301 )= 1.700000000000d0
1592 tab( 302 )= 1.699000000000d0
1593 tab( 303 )= 1.698000000000d0
1594 tab( 304 )= 1.697000000000d0
1595 tab( 305 )= 1.696000000000d0
1596 tab( 306 )= 1.695000000000d0
1597 tab( 307 )= 1.694000000000d0
1598 tab( 308 )= 1.693000000000d0
1599 tab( 309 )= 1.692000000000d0
1600 tab( 310 )= 1.691000000000d0
1601 tab( 311 )= 1.690000000000d0
1602 tab( 312 )= 1.689000000000d0
1603 tab( 313 )= 1.688000000000d0
1604 tab( 314 )= 1.687000000000d0
1605 tab( 315 )= 1.686000000000d0
1606 tab( 316 )= 1.685000000000d0
1607 tab( 317 )= 1.684000000000d0
1608 tab( 318 )= 1.683000000000d0
1609 tab( 319 )= 1.682000000000d0
1610 tab( 320 )= 1.681000000000d0
1611 tab( 321 )= 1.680000000000d0
1612 tab( 322 )= 1.679000000000d0
1613 tab( 323 )= 1.678000000000d0
1614 tab( 324 )= 1.677000000000d0
1615 tab( 325 )= 1.676000000000d0
1616 tab( 326 )= 1.675000000000d0
1617 tab( 327 )= 1.674000000000d0
1618 tab( 328 )= 1.673000000000d0
1619 tab( 329 )= 1.672000000000d0
1620 tab( 330 )= 1.671000000000d0
1621 tab( 331 )= 1.670000000000d0
1622 tab( 332 )= 1.669000000000d0
1623 tab( 333 )= 1.668000000000d0
1624 tab( 334 )= 1.667000000000d0
1625 tab( 335 )= 1.666000000000d0
1626 tab( 336 )= 1.665000000000d0
1627 tab( 337 )= 1.664000000000d0
1628 tab( 338 )= 1.663000000000d0
1629 tab( 339 )= 1.662000000000d0
1630 tab( 340 )= 1.661000000000d0
1631 tab( 341 )= 1.660000000000d0
1632 tab( 342 )= 1.659000000000d0
1633 tab( 343 )= 1.658000000000d0
1634 tab( 344 )= 1.657000000000d0
1635 tab( 345 )= 1.656000000000d0
1636 tab( 346 )= 1.655000000000d0
1637 tab( 347 )= 1.654000000000d0
1638 tab( 348 )= 1.653000000000d0
1639 tab( 349 )= 1.652000000000d0
1640 tab( 350 )= 1.651000000000d0
1641 tab( 351 )= 1.650000000000d0
1642 tab( 352 )= 1.649000000000d0
1643 tab( 353 )= 1.648000000000d0
1644 tab( 354 )= 1.647000000000d0
1645 tab( 355 )= 1.646000000000d0
1646 tab( 356 )= 1.645000000000d0
1647 tab( 357 )= 1.644000000000d0
1648 tab( 358 )= 1.643000000000d0
1649 tab( 359 )= 1.642000000000d0
1650 tab( 360 )= 1.641000000000d0
1651 tab( 361 )= 1.640000000000d0
1652 tab( 362 )= 1.639000000000d0
1653 tab( 363 )= 1.638000000000d0
1654 tab( 364 )= 1.637000000000d0
1655 tab( 365 )= 1.636000000000d0
1656 tab( 366 )= 1.635000000000d0
1657 tab( 367 )= 1.634000000000d0
1658 tab( 368 )= 1.633000000000d0
1659 tab( 369 )= 1.632000000000d0
1660 tab( 370 )= 1.631000000000d0
1661 tab( 371 )= 1.630000000000d0
1662 tab( 372 )= 1.629000000000d0
1663 tab( 373 )= 1.628000000000d0
1664 tab( 374 )= 1.627000000000d0
1665 tab( 375 )= 1.626000000000d0
1666 tab( 376 )= 1.625000000000d0
1667 tab( 377 )= 1.624000000000d0
1668 tab( 378 )= 1.623000000000d0
1669 tab( 379 )= 1.622000000000d0
1670 tab( 380 )= 1.621000000000d0
1671 tab( 381 )= 1.620000000000d0
1672 tab( 382 )= 1.619000000000d0
1673 tab( 383 )= 1.618000000000d0
1674 tab( 384 )= 1.617000000000d0
1675 tab( 385 )= 1.616000000000d0
1676 tab( 386 )= 1.615000000000d0
1677 tab( 387 )= 1.614000000000d0
1678 tab( 388 )= 1.613000000000d0
1679 tab( 389 )= 1.612000000000d0
1680 tab( 390 )= 1.611000000000d0
1681 tab( 391 )= 1.610000000000d0
1682 tab( 392 )= 1.609000000000d0
1683 tab( 393 )= 1.608000000000d0
1684 tab( 394 )= 1.607000000000d0
1685 tab( 395 )= 1.606000000000d0
1686 tab( 396 )= 1.605000000000d0
1687 tab( 397 )= 1.604000000000d0
1688 tab( 398 )= 1.603000000000d0
1689 tab( 399 )= 1.602000000000d0
1690 tab( 400 )= 1.601000000000d0
1691 tab( 401 )= 1.600000000000d0
1692 tab( 402 )= 1.599000000000d0
1693 tab( 403 )= 1.598000000000d0
1694 tab( 404 )= 1.597000000000d0
1695 tab( 405 )= 1.596000000000d0
1696 tab( 406 )= 1.595000000000d0
1697 tab( 407 )= 1.594000000000d0
1698 tab( 408 )= 1.593000000000d0
1699 tab( 409 )= 1.592000000000d0
1700 tab( 410 )= 1.591000000000d0
1701 tab( 411 )= 1.590000000000d0
1702 tab( 412 )= 1.589000000000d0
1703 tab( 413 )= 1.588000000000d0
1704 tab( 414 )= 1.587000000000d0
1705 tab( 415 )= 1.586000000000d0
1706 tab( 416 )= 1.585000000000d0
1707 tab( 417 )= 1.584000000000d0
1708 tab( 418 )= 1.583000000000d0
1709 tab( 419 )= 1.582000000000d0
1710 tab( 420 )= 1.581000000000d0
1711 tab( 421 )= 1.580000000000d0
1712 tab( 422 )= 1.579000000000d0
1713 tab( 423 )= 1.578000000000d0
1714 tab( 424 )= 1.577000000000d0
1715 tab( 425 )= 1.576000000000d0
1716 tab( 426 )= 1.575000000000d0
1717 tab( 427 )= 1.574000000000d0
1718 tab( 428 )= 1.573000000000d0
1719 tab( 429 )= 1.572000000000d0
1720 tab( 430 )= 1.571000000000d0
1721 tab( 431 )= 1.570000000000d0
1722 tab( 432 )= 1.569000000000d0
1723 tab( 433 )= 1.568000000000d0
1724 tab( 434 )= 1.567000000000d0
1725 tab( 435 )= 1.566000000000d0
1726 tab( 436 )= 1.565000000000d0
1727 tab( 437 )= 1.564000000000d0
1728 tab( 438 )= 1.563000000000d0
1729 tab( 439 )= 1.562000000000d0
1730 tab( 440 )= 1.561000000000d0
1731 tab( 441 )= 1.560000000000d0
1732 tab( 442 )= 1.559000000000d0
1733 tab( 443 )= 1.558000000000d0
1734 tab( 444 )= 1.557000000000d0
1735 tab( 445 )= 1.556000000000d0
1736 tab( 446 )= 1.555000000000d0
1737 tab( 447 )= 1.554000000000d0
1738 tab( 448 )= 1.553000000000d0
1739 tab( 449 )= 1.552000000000d0
1740 tab( 450 )= 1.551000000000d0
1741 tab( 451 )= 1.550000000000d0
1742 tab( 452 )= 1.549000000000d0
1743 tab( 453 )= 1.548000000000d0
1744 tab( 454 )= 1.547000000000d0
1745 tab( 455 )= 1.546000000000d0
1746 tab( 456 )= 1.545000000000d0
1747 tab( 457 )= 1.544000000000d0
1748 tab( 458 )= 1.543000000000d0
1749 tab( 459 )= 1.542000000000d0
1750 tab( 460 )= 1.541000000000d0
1751 tab( 461 )= 1.540000000000d0
1752 tab( 462 )= 1.539000000000d0
1753 tab( 463 )= 1.538000000000d0
1754 tab( 464 )= 1.537000000000d0
1755 tab( 465 )= 1.536000000000d0
1756 tab( 466 )= 1.535000000000d0
1757 tab( 467 )= 1.534000000000d0
1758 tab( 468 )= 1.533000000000d0
1759 tab( 469 )= 1.532000000000d0
1760 tab( 470 )= 1.531000000000d0
1761 tab( 471 )= 1.530000000000d0
1762 tab( 472 )= 1.529000000000d0
1763 tab( 473 )= 1.528000000000d0
1764 tab( 474 )= 1.527000000000d0
1765 tab( 475 )= 1.526000000000d0
1766 tab( 476 )= 1.525000000000d0
1767 tab( 477 )= 1.524000000000d0
1768 tab( 478 )= 1.523000000000d0
1769 tab( 479 )= 1.522000000000d0
1770 tab( 480 )= 1.521000000000d0
1771 tab( 481 )= 1.520000000000d0
1772 tab( 482 )= 1.519000000000d0
1773 tab( 483 )= 1.518000000000d0
1774 tab( 484 )= 1.517000000000d0
1775 tab( 485 )= 1.516000000000d0
1776 tab( 486 )= 1.515000000000d0
1777 tab( 487 )= 1.514000000000d0
1778 tab( 488 )= 1.513000000000d0
1779 tab( 489 )= 1.512000000000d0
1780 tab( 490 )= 1.511000000000d0
1781 tab( 491 )= 1.510000000000d0
1782 tab( 492 )= 1.509000000000d0
1783 tab( 493 )= 1.508000000000d0
1784 tab( 494 )= 1.507000000000d0
1785 tab( 495 )= 1.506000000000d0
1786 tab( 496 )= 1.505000000000d0
1787 tab( 497 )= 1.504000000000d0
1788 tab( 498 )= 1.503000000000d0
1789 tab( 499 )= 1.502000000000d0
1790 tab( 500 )= 1.501000000000d0
1791 tab( 501 )= 1.500000000000d0
1792 tab( 502 )= 1.499000000000d0
1793 tab( 503 )= 1.498000000000d0
1794 tab( 504 )= 1.497000000000d0
1795 tab( 505 )= 1.496000000000d0
1796 tab( 506 )= 1.495000000000d0
1797 tab( 507 )= 1.494000000000d0
1798 tab( 508 )= 1.493000000000d0
1799 tab( 509 )= 1.492000000000d0
1800 tab( 510 )= 1.491000000000d0
1801 tab( 511 )= 1.490000000000d0
1802 tab( 512 )= 1.489000000000d0
1803 tab( 513 )= 1.488000000000d0
1804 tab( 514 )= 1.487000000000d0
1805 tab( 515 )= 1.486000000000d0
1806 tab( 516 )= 1.485000000000d0
1807 tab( 517 )= 1.484000000000d0
1808 tab( 518 )= 1.483000000000d0
1809 tab( 519 )= 1.482000000000d0
1810 tab( 520 )= 1.481000000000d0
1811 tab( 521 )= 1.480000000000d0
1812 tab( 522 )= 1.479000000000d0
1813 tab( 523 )= 1.478000000000d0
1814 tab( 524 )= 1.477000000000d0
1815 tab( 525 )= 1.476000000000d0
1816 tab( 526 )= 1.475000000000d0
1817 tab( 527 )= 1.474000000000d0
1818 tab( 528 )= 1.473000000000d0
1819 tab( 529 )= 1.472000000000d0
1820 tab( 530 )= 1.471000000000d0
1821 tab( 531 )= 1.470000000000d0
1822 tab( 532 )= 1.469000000000d0
1823 tab( 533 )= 1.468000000000d0
1824 tab( 534 )= 1.467000000000d0
1825 tab( 535 )= 1.466000000000d0
1826 tab( 536 )= 1.465000000000d0
1827 tab( 537 )= 1.464000000000d0
1828 tab( 538 )= 1.463000000000d0
1829 tab( 539 )= 1.462000000000d0
1830 tab( 540 )= 1.461000000000d0
1831 tab( 541 )= 1.460000000000d0
1832 tab( 542 )= 1.459000000000d0
1833 tab( 543 )= 1.458000000000d0
1834 tab( 544 )= 1.457000000000d0
1835 tab( 545 )= 1.456000000000d0
1836 tab( 546 )= 1.455000000000d0
1837 tab( 547 )= 1.454000000000d0
1838 tab( 548 )= 1.453000000000d0
1839 tab( 549 )= 1.452000000000d0
1840 tab( 550 )= 1.451000000000d0
1841 tab( 551 )= 1.450000000000d0
1842 tab( 552 )= 1.449000000000d0
1843 tab( 553 )= 1.448000000000d0
1844 tab( 554 )= 1.447000000000d0
1845 tab( 555 )= 1.446000000000d0
1846 tab( 556 )= 1.445000000000d0
1847 tab( 557 )= 1.444000000000d0
1848 tab( 558 )= 1.443000000000d0
1849 tab( 559 )= 1.442000000000d0
1850 tab( 560 )= 1.441000000000d0
1851 tab( 561 )= 1.440000000000d0
1852 tab( 562 )= 1.439000000000d0
1853 tab( 563 )= 1.438000000000d0
1854 tab( 564 )= 1.437000000000d0
1855 tab( 565 )= 1.436000000000d0
1856 tab( 566 )= 1.435000000000d0
1857 tab( 567 )= 1.434000000000d0
1858 tab( 568 )= 1.433000000000d0
1859 tab( 569 )= 1.432000000000d0
1860 tab( 570 )= 1.431000000000d0
1861 tab( 571 )= 1.430000000000d0
1862 tab( 572 )= 1.429000000000d0
1863 tab( 573 )= 1.428000000000d0
1864 tab( 574 )= 1.427000000000d0
1865 tab( 575 )= 1.426000000000d0
1866 tab( 576 )= 1.425000000000d0
1867 tab( 577 )= 1.424000000000d0
1868 tab( 578 )= 1.423000000000d0
1869 tab( 579 )= 1.422000000000d0
1870 tab( 580 )= 1.421000000000d0
1871 tab( 581 )= 1.420000000000d0
1872 tab( 582 )= 1.419000000000d0
1873 tab( 583 )= 1.418000000000d0
1874 tab( 584 )= 1.417000000000d0
1875 tab( 585 )= 1.416000000000d0
1876 tab( 586 )= 1.415000000000d0
1877 tab( 587 )= 1.414000000000d0
1878 tab( 588 )= 1.413000000000d0
1879 tab( 589 )= 1.412000000000d0
1880 tab( 590 )= 1.411000000000d0
1881 tab( 591 )= 1.410000000000d0
1882 tab( 592 )= 1.409000000000d0
1883 tab( 593 )= 1.408000000000d0
1884 tab( 594 )= 1.407000000000d0
1885 tab( 595 )= 1.406000000000d0
1886 tab( 596 )= 1.405000000000d0
1887 tab( 597 )= 1.404000000000d0
1888 tab( 598 )= 1.403000000000d0
1889 tab( 599 )= 1.402000000000d0
1890 tab( 600 )= 1.401000000000d0
1891 tab( 601 )= 1.400000000000d0
1892 tab( 602 )= 1.399000000000d0
1893 tab( 603 )= 1.398000000000d0
1894 tab( 604 )= 1.397000000000d0
1895 tab( 605 )= 1.396000000000d0
1896 tab( 606 )= 1.395000000000d0
1897 tab( 607 )= 1.394000000000d0
1898 tab( 608 )= 1.393000000000d0
1899 tab( 609 )= 1.392000000000d0
1900 tab( 610 )= 1.391000000000d0
1901 tab( 611 )= 1.390000000000d0
1902 tab( 612 )= 1.389000000000d0
1903 tab( 613 )= 1.388000000000d0
1904 tab( 614 )= 1.387000000000d0
1905 tab( 615 )= 1.386000000000d0
1906 tab( 616 )= 1.385000000000d0
1907 tab( 617 )= 1.384000000000d0
1908 tab( 618 )= 1.383000000000d0
1909 tab( 619 )= 1.382000000000d0
1910 tab( 620 )= 1.381000000000d0
1911 tab( 621 )= 1.380000000000d0
1912 tab( 622 )= 1.379000000000d0
1913 tab( 623 )= 1.378000000000d0
1914 tab( 624 )= 1.377000000000d0
1915 tab( 625 )= 1.376000000000d0
1916 tab( 626 )= 1.375000000000d0
1917 tab( 627 )= 1.374000000000d0
1918 tab( 628 )= 1.373000000000d0
1919 tab( 629 )= 1.372000000000d0
1920 tab( 630 )= 1.371000000000d0
1921 tab( 631 )= 1.370000000000d0
1922 tab( 632 )= 1.369000000000d0
1923 tab( 633 )= 1.368000000000d0
1924 tab( 634 )= 1.367000000000d0
1925 tab( 635 )= 1.366000000000d0
1926 tab( 636 )= 1.365000000000d0
1927 tab( 637 )= 1.364000000000d0
1928 tab( 638 )= 1.363000000000d0
1929 tab( 639 )= 1.362000000000d0
1930 tab( 640 )= 1.361000000000d0
1931 tab( 641 )= 1.360000000000d0
1932 tab( 642 )= 1.359000000000d0
1933 tab( 643 )= 1.358000000000d0
1934 tab( 644 )= 1.357000000000d0
1935 tab( 645 )= 1.356000000000d0
1936 tab( 646 )= 1.355000000000d0
1937 tab( 647 )= 1.354000000000d0
1938 tab( 648 )= 1.353000000000d0
1939 tab( 649 )= 1.352000000000d0
1940 tab( 650 )= 1.351000000000d0
1941 tab( 651 )= 1.350000000000d0
1942 tab( 652 )= 1.349000000000d0
1943 tab( 653 )= 1.348000000000d0
1944 tab( 654 )= 1.347000000000d0
1945 tab( 655 )= 1.346000000000d0
1946 tab( 656 )= 1.345000000000d0
1947 tab( 657 )= 1.344000000000d0
1948 tab( 658 )= 1.343000000000d0
1949 tab( 659 )= 1.342000000000d0
1950 tab( 660 )= 1.341000000000d0
1951 tab( 661 )= 1.340000000000d0
1952 tab( 662 )= 1.339000000000d0
1953 tab( 663 )= 1.338000000000d0
1954 tab( 664 )= 1.337000000000d0
1955 tab( 665 )= 1.336000000000d0
1956 tab( 666 )= 1.335000000000d0
1957 tab( 667 )= 1.334000000000d0
1958 tab( 668 )= 1.333000000000d0
1959 tab( 669 )= 1.332000000000d0
1960 tab( 670 )= 1.331000000000d0
1961 tab( 671 )= 1.330000000000d0
1962 tab( 672 )= 1.329000000000d0
1963 tab( 673 )= 1.328000000000d0
1964 tab( 674 )= 1.327000000000d0
1965 tab( 675 )= 1.326000000000d0
1966 tab( 676 )= 1.325000000000d0
1967 tab( 677 )= 1.324000000000d0
1968 tab( 678 )= 1.323000000000d0
1969 tab( 679 )= 1.322000000000d0
1970 tab( 680 )= 1.321000000000d0
1971 tab( 681 )= 1.320000000000d0
1972 tab( 682 )= 1.319000000000d0
1973 tab( 683 )= 1.318000000000d0
1974 tab( 684 )= 1.317000000000d0
1975 tab( 685 )= 1.316000000000d0
1976 tab( 686 )= 1.315000000000d0
1977 tab( 687 )= 1.314000000000d0
1978 tab( 688 )= 1.313000000000d0
1979 tab( 689 )= 1.312000000000d0
1980 tab( 690 )= 1.311000000000d0
1981 tab( 691 )= 1.310000000000d0
1982 tab( 692 )= 1.309000000000d0
1983 tab( 693 )= 1.308000000000d0
1984 tab( 694 )= 1.307000000000d0
1985 tab( 695 )= 1.306000000000d0
1986 tab( 696 )= 1.305000000000d0
1987 tab( 697 )= 1.304000000000d0
1988 tab( 698 )= 1.303000000000d0
1989 tab( 699 )= 1.302000000000d0
1990 tab( 700 )= 1.301000000000d0
1991 tab( 701 )= 1.300000000000d0
1992 tab( 702 )= 1.299000000000d0
1993 tab( 703 )= 1.298000000000d0
1994 tab( 704 )= 1.297000000000d0
1995 tab( 705 )= 1.296000000000d0
1996 tab( 706 )= 1.295000000000d0
1997 tab( 707 )= 1.294000000000d0
1998 tab( 708 )= 1.293000000000d0
1999 tab( 709 )= 1.292000000000d0
2000 tab( 710 )= 1.291000000000d0
2001 tab( 711 )= 1.290000000000d0
2002 tab( 712 )= 1.289000000000d0
2003 tab( 713 )= 1.288000000000d0
2004 tab( 714 )= 1.287000000000d0
2005 tab( 715 )= 1.286000000000d0
2006 tab( 716 )= 1.285000000000d0
2007 tab( 717 )= 1.284000000000d0
2008 tab( 718 )= 1.283000000000d0
2009 tab( 719 )= 1.282000000000d0
2010 tab( 720 )= 1.281000000000d0
2011 tab( 721 )= 1.280000000000d0
2012 tab( 722 )= 1.279000000000d0
2013 tab( 723 )= 1.278000000000d0
2014 tab( 724 )= 1.277000000000d0
2015 tab( 725 )= 1.276000000000d0
2016 tab( 726 )= 1.275000000000d0
2017 tab( 727 )= 1.274000000000d0
2018 tab( 728 )= 1.273000000000d0
2019 tab( 729 )= 1.272000000000d0
2020 tab( 730 )= 1.271000000000d0
2021 tab( 731 )= 1.270000000000d0
2022 tab( 732 )= 1.269000000000d0
2023 tab( 733 )= 1.268000000000d0
2024 tab( 734 )= 1.267000000000d0
2025 tab( 735 )= 1.266000000000d0
2026 tab( 736 )= 1.265000000000d0
2027 tab( 737 )= 1.264000000000d0
2028 tab( 738 )= 1.263000000000d0
2029 tab( 739 )= 1.262000000000d0
2030 tab( 740 )= 1.261000000000d0
2031 tab( 741 )= 1.260000000000d0
2032 tab( 742 )= 1.259000000000d0
2033 tab( 743 )= 1.258000000000d0
2034 tab( 744 )= 1.257000000000d0
2035 tab( 745 )= 1.256000000000d0
2036 tab( 746 )= 1.255000000000d0
2037 tab( 747 )= 1.254000000000d0
2038 tab( 748 )= 1.253000000000d0
2039 tab( 749 )= 1.252000000000d0
2040 tab( 750 )= 1.251000000000d0
2041 tab( 751 )= 1.250000000000d0
2042 tab( 752 )= 1.249000000000d0
2043 tab( 753 )= 1.248000000000d0
2044 tab( 754 )= 1.247000000000d0
2045 tab( 755 )= 1.246000000000d0
2046 tab( 756 )= 1.245000000000d0
2047 tab( 757 )= 1.244000000000d0
2048 tab( 758 )= 1.243000000000d0
2049 tab( 759 )= 1.242000000000d0
2050 tab( 760 )= 1.241000000000d0
2051 tab( 761 )= 1.240000000000d0
2052 tab( 762 )= 1.239000000000d0
2053 tab( 763 )= 1.238000000000d0
2054 tab( 764 )= 1.237000000000d0
2055 tab( 765 )= 1.236000000000d0
2056 tab( 766 )= 1.235000000000d0
2057 tab( 767 )= 1.234000000000d0
2058 tab( 768 )= 1.233000000000d0
2059 tab( 769 )= 1.232000000000d0
2060 tab( 770 )= 1.231000000000d0
2061 tab( 771 )= 1.230000000000d0
2062 tab( 772 )= 1.229000000000d0
2063 tab( 773 )= 1.228000000000d0
2064 tab( 774 )= 1.227000000000d0
2065 tab( 775 )= 1.226000000000d0
2066 tab( 776 )= 1.225000000000d0
2067 tab( 777 )= 1.224000000000d0
2068 tab( 778 )= 1.223000000000d0
2069 tab( 779 )= 1.222000000000d0
2070 tab( 780 )= 1.221000000000d0
2071 tab( 781 )= 1.220000000000d0
2072 tab( 782 )= 1.219000000000d0
2073 tab( 783 )= 1.218000000000d0
2074 tab( 784 )= 1.217000000000d0
2075 tab( 785 )= 1.216000000000d0
2076 tab( 786 )= 1.215000000000d0
2077 tab( 787 )= 1.214000000000d0
2078 tab( 788 )= 1.213000000000d0
2079 tab( 789 )= 1.212000000000d0
2080 tab( 790 )= 1.211000000000d0
2081 tab( 791 )= 1.210000000000d0
2082 tab( 792 )= 1.209000000000d0
2083 tab( 793 )= 1.208000000000d0
2084 tab( 794 )= 1.207000000000d0
2085 tab( 795 )= 1.206000000000d0
2086 tab( 796 )= 1.205000000000d0
2087 tab( 797 )= 1.204000000000d0
2088 tab( 798 )= 1.203000000000d0
2089 tab( 799 )= 1.202000000000d0
2090 tab( 800 )= 1.201000000000d0
2091 tab( 801 )= 1.200000000000d0
2092 tab( 802 )= 1.199000000000d0
2093 tab( 803 )= 1.198000000000d0
2094 tab( 804 )= 1.197000000000d0
2095 tab( 805 )= 1.196000000000d0
2096 tab( 806 )= 1.195000000000d0
2097 tab( 807 )= 1.194000000000d0
2098 tab( 808 )= 1.193000000000d0
2099 tab( 809 )= 1.192000000000d0
2100 tab( 810 )= 1.191000000000d0
2101 tab( 811 )= 1.190000000000d0
2102 tab( 812 )= 1.189000000000d0
2103 tab( 813 )= 1.188000000000d0
2104 tab( 814 )= 1.187000000000d0
2105 tab( 815 )= 1.186000000000d0
2106 tab( 816 )= 1.185000000000d0
2107 tab( 817 )= 1.184000000000d0
2108 tab( 818 )= 1.183000000000d0
2109 tab( 819 )= 1.182000000000d0
2110 tab( 820 )= 1.181000000000d0
2111 tab( 821 )= 1.180000000000d0
2112 tab( 822 )= 1.179000000000d0
2113 tab( 823 )= 1.178000000000d0
2114 tab( 824 )= 1.177000000000d0
2115 tab( 825 )= 1.176000000000d0
2116 tab( 826 )= 1.175000000000d0
2117 tab( 827 )= 1.174000000000d0
2118 tab( 828 )= 1.173000000000d0
2119 tab( 829 )= 1.172000000000d0
2120 tab( 830 )= 1.171000000000d0
2121 tab( 831 )= 1.170000000000d0
2122 tab( 832 )= 1.169000000000d0
2123 tab( 833 )= 1.168000000000d0
2124 tab( 834 )= 1.167000000000d0
2125 tab( 835 )= 1.166000000000d0
2126 tab( 836 )= 1.165000000000d0
2127 tab( 837 )= 1.164000000000d0
2128 tab( 838 )= 1.163000000000d0
2129 tab( 839 )= 1.162000000000d0
2130 tab( 840 )= 1.161000000000d0
2131 tab( 841 )= 1.160000000000d0
2132 tab( 842 )= 1.159000000000d0
2133 tab( 843 )= 1.158000000000d0
2134 tab( 844 )= 1.157000000000d0
2135 tab( 845 )= 1.156000000000d0
2136 tab( 846 )= 1.155000000000d0
2137 tab( 847 )= 1.154000000000d0
2138 tab( 848 )= 1.153000000000d0
2139 tab( 849 )= 1.152000000000d0
2140 tab( 850 )= 1.151000000000d0
2141 tab( 851 )= 1.150000000000d0
2142 tab( 852 )= 1.149000000000d0
2143 tab( 853 )= 1.148000000000d0
2144 tab( 854 )= 1.147000000000d0
2145 tab( 855 )= 1.146000000000d0
2146 tab( 856 )= 1.145000000000d0
2147 tab( 857 )= 1.144000000000d0
2148 tab( 858 )= 1.143000000000d0
2149 tab( 859 )= 1.142000000000d0
2150 tab( 860 )= 1.141000000000d0
2151 tab( 861 )= 1.140000000000d0
2152 tab( 862 )= 1.139000000000d0
2153 tab( 863 )= 1.138000000000d0
2154 tab( 864 )= 1.137000000000d0
2155 tab( 865 )= 1.136000000000d0
2156 tab( 866 )= 1.135000000000d0
2157 tab( 867 )= 1.134000000000d0
2158 tab( 868 )= 1.133000000000d0
2159 tab( 869 )= 1.132000000000d0
2160 tab( 870 )= 1.131000000000d0
2161 tab( 871 )= 1.130000000000d0
2162 tab( 872 )= 1.129000000000d0
2163 tab( 873 )= 1.128000000000d0
2164 tab( 874 )= 1.127000000000d0
2165 tab( 875 )= 1.126000000000d0
2166 tab( 876 )= 1.125000000000d0
2167 tab( 877 )= 1.124000000000d0
2168 tab( 878 )= 1.123000000000d0
2169 tab( 879 )= 1.122000000000d0
2170 tab( 880 )= 1.121000000000d0
2171 tab( 881 )= 1.120000000000d0
2172 tab( 882 )= 1.119000000000d0
2173 tab( 883 )= 1.118000000000d0
2174 tab( 884 )= 1.117000000000d0
2175 tab( 885 )= 1.116000000000d0
2176 tab( 886 )= 1.115000000000d0
2177 tab( 887 )= 1.114000000000d0
2178 tab( 888 )= 1.113000000000d0
2179 tab( 889 )= 1.112000000000d0
2180 tab( 890 )= 1.111000000000d0
2181 tab( 891 )= 1.110000000000d0
2182 tab( 892 )= 1.109000000000d0
2183 tab( 893 )= 1.108000000000d0
2184 tab( 894 )= 1.107000000000d0
2185 tab( 895 )= 1.106000000000d0
2186 tab( 896 )= 1.105000000000d0
2187 tab( 897 )= 1.104000000000d0
2188 tab( 898 )= 1.103000000000d0
2189 tab( 899 )= 1.102000000000d0
2190 tab( 900 )= 1.101000000000d0
2191 tab( 901 )= 1.100000000000d0
2192 tab( 902 )= 1.099000000000d0
2193 tab( 903 )= 1.098000000000d0
2194 tab( 904 )= 1.097000000000d0
2195 tab( 905 )= 1.096000000000d0
2196 tab( 906 )= 1.095000000000d0
2197 tab( 907 )= 1.094000000000d0
2198 tab( 908 )= 1.093000000000d0
2199 tab( 909 )= 1.092000000000d0
2200 tab( 910 )= 1.091000000000d0
2201 tab( 911 )= 1.090000000000d0
2202 tab( 912 )= 1.089000000000d0
2203 tab( 913 )= 1.088000000000d0
2204 tab( 914 )= 1.087000000000d0
2205 tab( 915 )= 1.086000000000d0
2206 tab( 916 )= 1.085000000000d0
2207 tab( 917 )= 1.084000000000d0
2208 tab( 918 )= 1.083000000000d0
2209 tab( 919 )= 1.082000000000d0
2210 tab( 920 )= 1.081000000000d0
2211 tab( 921 )= 1.080000000000d0
2212 tab( 922 )= 1.079000000000d0
2213 tab( 923 )= 1.078000000000d0
2214 tab( 924 )= 1.077000000000d0
2215 tab( 925 )= 1.076000000000d0
2216 tab( 926 )= 1.075000000000d0
2217 tab( 927 )= 1.074000000000d0
2218 tab( 928 )= 1.073000000000d0
2219 tab( 929 )= 1.072000000000d0
2220 tab( 930 )= 1.071000000000d0
2221 tab( 931 )= 1.070000000000d0
2222 tab( 932 )= 1.069000000000d0
2223 tab( 933 )= 1.068000000000d0
2224 tab( 934 )= 1.067000000000d0
2225 tab( 935 )= 1.066000000000d0
2226 tab( 936 )= 1.065000000000d0
2227 tab( 937 )= 1.064000000000d0
2228 tab( 938 )= 1.063000000000d0
2229 tab( 939 )= 1.062000000000d0
2230 tab( 940 )= 1.061000000000d0
2231 tab( 941 )= 1.060000000000d0
2232 tab( 942 )= 1.059000000000d0
2233 tab( 943 )= 1.058000000000d0
2234 tab( 944 )= 1.057000000000d0
2235 tab( 945 )= 1.056000000000d0
2236 tab( 946 )= 1.055000000000d0
2237 tab( 947 )= 1.054000000000d0
2238 tab( 948 )= 1.053000000000d0
2239 tab( 949 )= 1.052000000000d0
2240 tab( 950 )= 1.051000000000d0
2241 tab( 951 )= 1.050000000000d0
2242 tab( 952 )= 1.049000000000d0
2243 tab( 953 )= 1.048000000000d0
2244 tab( 954 )= 1.047000000000d0
2245 tab( 955 )= 1.046000000000d0
2246 tab( 956 )= 1.045000000000d0
2247 tab( 957 )= 1.044000000000d0
2248 tab( 958 )= 1.043000000000d0
2249 tab( 959 )= 1.042000000000d0
2250 tab( 960 )= 1.041000000000d0
2251 tab( 961 )= 1.040000000000d0
2252 tab( 962 )= 1.039000000000d0
2253 tab( 963 )= 1.038000000000d0
2254 tab( 964 )= 1.037000000000d0
2255 tab( 965 )= 1.036000000000d0
2256 tab( 966 )= 1.035000000000d0
2257 tab( 967 )= 1.034000000000d0
2258 tab( 968 )= 1.033000000000d0
2259 tab( 969 )= 1.032000000000d0
2260 tab( 970 )= 1.031000000000d0
2261 tab( 971 )= 1.030000000000d0
2262 tab( 972 )= 1.029000000000d0
2263 tab( 973 )= 1.028000000000d0
2264 tab( 974 )= 1.027000000000d0
2265 tab( 975 )= 1.026000000000d0
2266 tab( 976 )= 1.025000000000d0
2267 tab( 977 )= 1.024000000000d0
2268 tab( 978 )= 1.023000000000d0
2269 tab( 979 )= 1.022000000000d0
2270 tab( 980 )= 1.021000000000d0
2271 tab( 981 )= 1.020000000000d0
2272 tab( 982 )= 1.019000000000d0
2273 tab( 983 )= 1.018000000000d0
2274 tab( 984 )= 1.017000000000d0
2275 tab( 985 )= 1.016000000000d0
2276 tab( 986 )= 1.015000000000d0
2277 tab( 987 )= 1.014000000000d0
2278 tab( 988 )= 1.013000000000d0
2279 tab( 989 )= 1.012000000000d0
2280 tab( 990 )= 1.011000000000d0
2281 tab( 991 )= 1.010000000000d0
2282 tab( 992 )= 1.009000000000d0
2283 tab( 993 )= 1.008000000000d0
2284 tab( 994 )= 1.007000000000d0
2285 tab( 995 )= 1.006000000000d0
2286 tab( 996 )= 1.005000000000d0
2287 tab( 997 )= 1.004000000000d0
2288 tab( 998 )= 1.003000000000d0
2289 tab( 999 )= 1.002000000000d0
2290 tab( 1000 )= 1.001000000000d0
2291 tab( 1001 )= 1.000000000000d0
2292 tab( 1002 )= 0.999000000000d0
2293 tab( 1003 )= 0.998000000000d0
2294 tab( 1004 )= 0.997000000000d0
2295 tab( 1005 )= 0.996000000000d0
2296 tab( 1006 )= 0.995000000000d0
2297 tab( 1007 )= 0.994000000000d0
2298 tab( 1008 )= 0.993000000000d0
2299 tab( 1009 )= 0.992000000000d0
2300 tab( 1010 )= 0.991000000000d0
2301 tab( 1011 )= 0.990000000000d0
2302 tab( 1012 )= 0.989000000000d0
2303 tab( 1013 )= 0.988000000000d0
2304 tab( 1014 )= 0.987000000000d0
2305 tab( 1015 )= 0.986000000000d0
2306 tab( 1016 )= 0.985000000000d0
2307 tab( 1017 )= 0.984000000000d0
2308 tab( 1018 )= 0.983000000000d0
2309 tab( 1019 )= 0.982000000000d0
2310 tab( 1020 )= 0.981000000000d0
2311 tab( 1021 )= 0.980000000000d0
2312 tab( 1022 )= 0.979000000000d0
2313 tab( 1023 )= 0.978000000000d0
2314 tab( 1024 )= 0.977000000000d0
2315 tab( 1025 )= 0.976000000000d0
2316 tab( 1026 )= 0.975000000000d0
2317 tab( 1027 )= 0.974000000000d0
2318 tab( 1028 )= 0.973000000000d0
2319 tab( 1029 )= 0.972000000000d0
2320 tab( 1030 )= 0.971000000000d0
2321 tab( 1031 )= 0.970000000000d0
2322 tab( 1032 )= 0.969000000000d0
2323 tab( 1033 )= 0.968000000000d0
2324 tab( 1034 )= 0.967000000000d0
2325 tab( 1035 )= 0.966000000000d0
2326 tab( 1036 )= 0.965000000000d0
2327 tab( 1037 )= 0.964000000000d0
2328 tab( 1038 )= 0.963000000000d0
2329 tab( 1039 )= 0.962000000000d0
2330 tab( 1040 )= 0.961000000000d0
2331 tab( 1041 )= 0.960000000000d0
2332 tab( 1042 )= 0.959000000000d0
2333 tab( 1043 )= 0.958000000000d0
2334 tab( 1044 )= 0.957000000000d0
2335 tab( 1045 )= 0.956000000000d0
2336 tab( 1046 )= 0.955000000000d0
2337 tab( 1047 )= 0.954000000000d0
2338 tab( 1048 )= 0.953000000000d0
2339 tab( 1049 )= 0.952000000000d0
2340 tab( 1050 )= 0.951000000000d0
2341 tab( 1051 )= 0.950000000000d0
2342 tab( 1052 )= 0.949000000000d0
2343 tab( 1053 )= 0.948000000000d0
2344 tab( 1054 )= 0.947000000000d0
2345 tab( 1055 )= 0.946000000000d0
2346 tab( 1056 )= 0.945000000000d0
2347 tab( 1057 )= 0.944000000000d0
2348 tab( 1058 )= 0.943000000000d0
2349 tab( 1059 )= 0.942000000000d0
2350 tab( 1060 )= 0.941000000000d0
2351 tab( 1061 )= 0.940000000000d0
2352 tab( 1062 )= 0.939000000000d0
2353 tab( 1063 )= 0.938000000000d0
2354 tab( 1064 )= 0.937000000000d0
2355 tab( 1065 )= 0.936000000000d0
2356 tab( 1066 )= 0.935000000000d0
2357 tab( 1067 )= 0.934000000000d0
2358 tab( 1068 )= 0.933000000000d0
2359 tab( 1069 )= 0.932000000000d0
2360 tab( 1070 )= 0.931000000000d0
2361 tab( 1071 )= 0.930000000000d0
2362 tab( 1072 )= 0.929000000000d0
2363 tab( 1073 )= 0.928000000000d0
2364 tab( 1074 )= 0.927000000000d0
2365 tab( 1075 )= 0.926000000000d0
2366 tab( 1076 )= 0.925000000000d0
2367 tab( 1077 )= 0.924000000000d0
2368 tab( 1078 )= 0.923000000000d0
2369 tab( 1079 )= 0.922000000000d0
2370 tab( 1080 )= 0.921000000000d0
2371 tab( 1081 )= 0.920000000000d0
2372 tab( 1082 )= 0.919000000000d0
2373 tab( 1083 )= 0.918000000000d0
2374 tab( 1084 )= 0.917000000000d0
2375 tab( 1085 )= 0.916000000000d0
2376 tab( 1086 )= 0.915000000000d0
2377 tab( 1087 )= 0.914000000000d0
2378 tab( 1088 )= 0.913000000000d0
2379 tab( 1089 )= 0.912000000000d0
2380 tab( 1090 )= 0.911000000000d0
2381 tab( 1091 )= 0.910000000000d0
2382 tab( 1092 )= 0.909000000000d0
2383 tab( 1093 )= 0.908000000000d0
2384 tab( 1094 )= 0.907000000000d0
2385 tab( 1095 )= 0.906000000000d0
2386 tab( 1096 )= 0.905000000000d0
2387 tab( 1097 )= 0.904000000000d0
2388 tab( 1098 )= 0.903000000000d0
2389 tab( 1099 )= 0.902000000000d0
2390 tab( 1100 )= 0.901000000000d0
2391 tab( 1101 )= 0.900000000000d0
2392 tab( 1102 )= 0.899000000000d0
2393 tab( 1103 )= 0.898000000000d0
2394 tab( 1104 )= 0.897000000000d0
2395 tab( 1105 )= 0.896000000000d0
2396 tab( 1106 )= 0.895000000000d0
2397 tab( 1107 )= 0.894000000000d0
2398 tab( 1108 )= 0.893000000000d0
2399 tab( 1109 )= 0.892000000000d0
2400 tab( 1110 )= 0.891000000000d0
2401 tab( 1111 )= 0.890000000000d0
2402 tab( 1112 )= 0.889000000000d0
2403 tab( 1113 )= 0.888000000000d0
2404 tab( 1114 )= 0.887000000000d0
2405 tab( 1115 )= 0.886000000000d0
2406 tab( 1116 )= 0.885000000000d0
2407 tab( 1117 )= 0.884000000000d0
2408 tab( 1118 )= 0.883000000000d0
2409 tab( 1119 )= 0.882000000000d0
2410 tab( 1120 )= 0.881000000000d0
2411 tab( 1121 )= 0.880000000000d0
2412 tab( 1122 )= 0.879000000000d0
2413 tab( 1123 )= 0.878000000000d0
2414 tab( 1124 )= 0.877000000000d0
2415 tab( 1125 )= 0.876000000000d0
2416 tab( 1126 )= 0.875000000000d0
2417 tab( 1127 )= 0.874000000000d0
2418 tab( 1128 )= 0.873000000000d0
2419 tab( 1129 )= 0.872000000000d0
2420 tab( 1130 )= 0.871000000000d0
2421 tab( 1131 )= 0.870000000000d0
2422 tab( 1132 )= 0.869000000000d0
2423 tab( 1133 )= 0.868000000000d0
2424 tab( 1134 )= 0.867000000000d0
2425 tab( 1135 )= 0.866000000000d0
2426 tab( 1136 )= 0.865000000000d0
2427 tab( 1137 )= 0.864000000000d0
2428 tab( 1138 )= 0.863000000000d0
2429 tab( 1139 )= 0.862000000000d0
2430 tab( 1140 )= 0.861000000000d0
2431 tab( 1141 )= 0.860000000000d0
2432 tab( 1142 )= 0.859000000000d0
2433 tab( 1143 )= 0.858000000000d0
2434 tab( 1144 )= 0.857000000000d0
2435 tab( 1145 )= 0.856000000000d0
2436 tab( 1146 )= 0.855000000000d0
2437 tab( 1147 )= 0.854000000000d0
2438 tab( 1148 )= 0.853000000000d0
2439 tab( 1149 )= 0.852000000000d0
2440 tab( 1150 )= 0.851000000000d0
2441 tab( 1151 )= 0.850000000000d0
2442 tab( 1152 )= 0.849000000000d0
2443 tab( 1153 )= 0.848000000000d0
2444 tab( 1154 )= 0.847000000000d0
2445 tab( 1155 )= 0.846000000000d0
2446 tab( 1156 )= 0.845000000000d0
2447 tab( 1157 )= 0.844000000000d0
2448 tab( 1158 )= 0.843000000000d0
2449 tab( 1159 )= 0.842000000000d0
2450 tab( 1160 )= 0.841000000000d0
2451 tab( 1161 )= 0.840000000000d0
2452 tab( 1162 )= 0.839000000000d0
2453 tab( 1163 )= 0.838000000000d0
2454 tab( 1164 )= 0.837000000000d0
2455 tab( 1165 )= 0.836000000000d0
2456 tab( 1166 )= 0.835000000000d0
2457 tab( 1167 )= 0.834000000000d0
2458 tab( 1168 )= 0.833000000000d0
2459 tab( 1169 )= 0.832000000000d0
2460 tab( 1170 )= 0.831000000000d0
2461 tab( 1171 )= 0.830000000000d0
2462 tab( 1172 )= 0.829000000000d0
2463 tab( 1173 )= 0.828000000000d0
2464 tab( 1174 )= 0.827000000000d0
2465 tab( 1175 )= 0.826000000000d0
2466 tab( 1176 )= 0.825000000000d0
2467 tab( 1177 )= 0.824000000000d0
2468 tab( 1178 )= 0.823000000000d0
2469 tab( 1179 )= 0.822000000000d0
2470 tab( 1180 )= 0.821000000000d0
2471 tab( 1181 )= 0.820000000000d0
2472 tab( 1182 )= 0.819000000000d0
2473 tab( 1183 )= 0.818000000000d0
2474 tab( 1184 )= 0.817000000000d0
2475 tab( 1185 )= 0.816000000000d0
2476 tab( 1186 )= 0.815000000000d0
2477 tab( 1187 )= 0.814000000000d0
2478 tab( 1188 )= 0.813000000000d0
2479 tab( 1189 )= 0.812000000000d0
2480 tab( 1190 )= 0.811000000000d0
2481 tab( 1191 )= 0.810000000000d0
2482 tab( 1192 )= 0.809000000000d0
2483 tab( 1193 )= 0.808000000000d0
2484 tab( 1194 )= 0.807000000000d0
2485 tab( 1195 )= 0.806000000000d0
2486 tab( 1196 )= 0.805000000000d0
2487 tab( 1197 )= 0.804000000000d0
2488 tab( 1198 )= 0.803000000000d0
2489 tab( 1199 )= 0.802000000000d0
2490 tab( 1200 )= 0.801000000000d0
2491 tab( 1201 )= 0.800000000000d0
2492C=======================================================================
2493c HC_DSSE Rupture Criterion
2494C=======================================================================
2495 inst = zero
2496CARD1
2497 CALL hm_get_intv ('Ifail_sh' ,ifail_sh ,is_available,lsubmodel)
2498 CALL hm_get_floatv ('PTHKF' ,pthkf ,is_available,lsubmodel,unitab)
2499 CALL hm_get_intv ('I_Flag' ,iflag ,is_available,lsubmodel)
2500CARD2
2501 CALL hm_get_floatv ('a_HC_DSSE' ,afrac ,is_available,lsubmodel,unitab)
2502 CALL hm_get_floatv ('b_HC_DSSE' ,bfrac ,is_available,lsubmodel,unitab)
2503 CALL hm_get_floatv ('c_HC_DSSE' ,cfrac ,is_available,lsubmodel,unitab)
2504 CALL hm_get_floatv ('d_HC_DSSE' ,inst ,is_available,lsubmodel,unitab)
2505 CALL hm_get_floatv ('n_f' ,nfrac ,is_available,lsubmodel,unitab)
2506C=======================================================================
2507 IF (nfrac == zero) nfrac = one
2508 IF (ifail_sh == 0) ifail_sh = 1
2509 ifail_sh = min(ifail_sh,3)
2510 IF (pthkf == zero) pthkf = one - em06
2511 pthkf = min(pthkf, one)
2512 pthkf = max(pthkf,-one)
2513 IF (pthkf /= zero .and. ifail_sh > 1) THEN
2514 pthkf = pthkf
2515 ELSEIF (ifail_sh == 1) THEN
2516 pthkf = em06
2517 ELSEIF (ifail_sh == 2) THEN
2518 pthkf = one - em06
2519 ENDIF
2520c---------------------------
2521c
2522 fail%KEYWORD = 'HC_DSSE'
2523 fail%IRUPT = irupt
2524 fail%FAIL_ID = fail_id
2525 fail%NUPARAM = 7
2526 fail%NIPARAM = 0
2527 fail%NUVAR = 2
2528 fail%NFUNC = 0
2529 fail%NTABLE = 0
2530 fail%NMOD = 0
2531 fail%PTHK = pthkf
2532c
2533 ALLOCATE (fail%UPARAM(fail%NUPARAM))
2534 ALLOCATE (fail%IPARAM(fail%NIPARAM))
2535 ALLOCATE (fail%IFUNC (fail%NFUNC))
2536 ALLOCATE (fail%TABLE (fail%NTABLE))
2537
2538C=======================================================================
2539C
2540C pre definition for user-input data when only
2541C tension test data are provided
2542C
2543C=============================================
2544 IF (iflag == 0) THEN ! NO parameter fitting
2545 fail%UPARAM(1) = afrac
2546 fail%UPARAM(2) = bfrac
2547 fail%UPARAM(3) = cfrac
2548 fail%UPARAM(4) = nfrac
2549 fail%UPARAM(5) = inst
2550 fail%UPARAM(6) = 0 ! PTHKF - no more used
2551 fail%UPARAM(7) = ifail_sh
2552 ELSE ! parameter fitting
2553 bfrac2 = bfrac
2554 b16 = (afrac / bfrac)**0.1
2555 b17 = (cfrac / bfrac)**0.1
2556 b18 = one/b16+two/sqrt(three)-one/b17
2557 b19 = -one/b16 + one/b17
2558 cfrac2 = b19/b18
2559 b21 = (one+cfrac2)/b16
2560
2561 CALL linear_interp(lx,tab,1201,b21,y)
2562
2563 afrac2 = y
2564 small = 0.00001
2565 inst2 = one
2566 f05 = sqrt(three)*(inst/bfrac)**(-0.01)
2567 DO i =1,20
2568 g12 = ((one+two**(inst2-one))**(one/inst2) - f05)**2
2569 i12 = (((one+two**(inst2+small-one))**(one/(inst2+small)) - f05)**2-
2570 . ((1.0+2.0**(inst2-small-1.0))**(1.0/(inst2-small)) - f05)**2)/(two*small)
2571 inst2 = inst2 - g12/i12
2572 ENDDO
2573 fail%UPARAM(1) = afrac2
2574 fail%UPARAM(2) = bfrac2
2575 fail%UPARAM(3) = cfrac2
2576 fail%UPARAM(4) = nfrac
2577 fail%UPARAM(5) = inst2
2578 fail%UPARAM(6) = 0 ! PTHKF - no more used
2579 fail%UPARAM(7) = ifail_sh
2580 ENDIF
2581
2582C--------------------------------------------------
2583 IF (is_encrypted) THEN
2584 WRITE(iout,'(5X,A,//)')'CONFIDENTIAL DATA'
2585 ELSE
2586 WRITE(iout,1000)
2587 IF (iflag == 0) THEN
2588 WRITE(iout,1001) afrac,bfrac,cfrac,inst,nfrac
2589 ELSE
2590 WRITE(iout,1050) afrac,bfrac,cfrac,afrac2,bfrac2,cfrac2,inst2,nfrac,inst
2591 ENDIF
2592 WRITE(iout,1100) ifail_sh,pthkf
2593 ENDIF
2594C--------------------------------------------------
2595 RETURN
2596 1000 FORMAT(
2597 & 5x,'-----------------------------------------------',/,
2598 & 5x,' HC-DSSE FAILURE MODEL ',/,
2599 & 5x,'-----------------------------------------------',/)
2600 1001 FORMAT(
2601 & 5x,'CLASSIC INPUT METHOD:',/
2602 & 5x,'COEFFICIENT A. . . . . . . . . . . . . . . . .=',1pg20.13,/
2603 & 5x,'COEFFICIENT B. . . . . . . . . . . . . . . . .=',1pg20.13,/
2604 & 5x,'COEFFICIENT C. . . . . . . . . . . . . . . . .=',1pg20.13,/
2605 & 5x,'COEFFICIENT D. . . . . . . . . . . . . . . . .=',1pg20.13,/
2606 & 5x,'COEFFICIENT Nf . . . . . . . . . . . . . . . .=',1pg20.13,/)
2607 1050 FORMAT(
2608 & 5x,'PHYSICAL INPUT METHOD:',/
2609 & 5x,'SHEAR FAILURE STRAIN . . . . . . . . . . . . .=',1pg20.13,/
2610 & 5x,'UNIAXIAL TENSION FAILURE STRAIN. . . . . . . .=',1pg20.13,/
2611 & 5x,'PLAINSTRAIN TENSION FAILURE STRAIN . . . . . .=',1pg20.13,/
2612 & 5x,'COEFFICIENT A. . . . . . . . . . . . . . . . .=',1pg20.13,/
2613 & 5x,'COEFFICIENT B. . . . . . . . . . . . . . . . .=',1pg20.13,/
2614 & 5x,'COEFFICIENT C. . . . . . . . . . . . . . . . .=',1pg20.13,/
2615 & 5x,'COEFFICIENT D. . . . . . . . . . . . . . . . .=',1pg20.13,/
2616 & 5x,'COEFFICIENT Nf . . . . . . . . . . . . . . . .=',1pg20.13,/
2617 & 5x,'DSSE INSTABILITY STRAIN. . . . . . . . . . . .=',1pg20.13,/)
2618 1100 FORMAT(
2619 & 5x,'SHELL ELEMENT DELETION PARAMETERS: ',/,
2620 & 5x,'FAILURE FLAG IFAIL_SH. . . . . . . . . . . . .=',i3,/
2621 & 5x,' = 1: ONE INTG. PT. FAILURE PRIOR TO SHELL DELETION',/,
2622 & 5x,' = 2: ALL INTG. PT. FAILURE PRIOR TO SHELL DELETION',/,
2623 & 5x,' (OR PTHICKFAIL IF DEFINED) ',/,
2624 & 5x,' = 3: NO ELEMENT DELETION ',/,
2625 & 5x,'PARAMETER PTHICKFAIL . . . . . . . . . . . . .=',1pg20.13,/,
2626 & 5x,' > 0.0 : FRACTION OF FAILED THICKNESS ',/,
2627 & 5x,' < 0.0 : FRACTION OF FAILED INTG. POINTS OR LAYERS ',/)
2628
my_real
#define my_real
Definition cppsort.cpp:32
hm_get_floatv
subroutine hm_get_floatv(name, rval, is_available, lsubmodel, unitab)
Definition hm_get_floatv.F:415
hm_get_intv
subroutine hm_get_intv(name, ival, is_available, lsubmodel)
Definition hm_get_intv.F:523
hm_option_is_encrypted
subroutine hm_option_is_encrypted(is_encrypted)
Definition hm_option_is_encrypted.F:284
linear_interp
subroutine linear_interp(tab_x, tab_y, ltab, x, y)
Definition hm_read_fail_hc_dsse.F:2637
min
#define min(a, b)
Definition macros.h:20
max
#define max(a, b)
Definition macros.h:21
hm_option_read_mod
Definition hm_option_read_mod.F:408
message_mod
Definition message_mod.F:1249
submodel_mod
Definition submodel_mod.F:712
unitab_mod
Definition unitab_mod.F:513

◆ linear_interp()

subroutine linear_interp ( tab_x,
tab_y,
integer ltab,
x,
y )

Definition at line 2636 of file hm_read_fail_hc_dsse.F.

2637C-----------------------------------------------
2638C I m p l i c i t T y p e s
2639C-----------------------------------------------
2640#include "implicit_f.inc"
2641c! IMPLICIT NONE
2642C-----------------------------------------------
2643C D u m m y A r g u m e n t s
2644C-----------------------------------------------
2645 my_real tab_x(ltab),tab_y(ltab),x,y
2646 INTEGER LTAB
2647C-----------------------------------------------
2648C L o c a l V a r i a b l e s
2649C-----------------------------------------------
2650 INTEGER XMIN,XMAX,XMID
2651 LOGICAL CONDITION
2652 my_real alpha
2653
2654 xmin=1
2655 xmax=ltab
2656 condition=.true.
2657
2658 DO WHILE(condition .eqv. .true.)
2659c! print*,'XMIN-XMAX',XMIN,XMAX
2660 IF(tab_x(xmin)==x)THEN
2661 xmax=xmin
2662 condition=.false.
2663 ELSEIF (tab_x(xmax)==x)THEN
2664 xmin=xmax
2665 condition=.false.
2666 ELSEIF (xmax==(xmin+1))THEN
2667 condition=.false.
2668 ELSE
2669 condition=.true.
2670 xmid=xmin+(xmax-xmin)/2
2671 IF(tab_x(xmid) > x)THEN
2672 xmax=xmid
2673 ELSE
2674 xmin=xmid
2675 ENDIF
2676 ENDIF
2677 ENDDO
2678
2679c! print*,'-->',XMIN,XMAX,TAB_X(XMIN),TAB_X(XMAX)
2680 IF(xmin /= xmax)THEN
2681 alpha = (tab_y(xmax)-tab_y(xmin))/(tab_x(xmax)-tab_x(xmin))
2682 y = x* alpha + tab_y(xmin)-alpha*tab_x(xmin)
2683 ELSE
2684 y = tab_y(xmin)
2685 ENDIF
2686
alpha
#define alpha
Definition eval.h:35