math77/MATH77/sei.f

59       REAL             AE14CS(64),BIGNUM,DELTA  local
393       DATA AE14CS(  1) / -.1892918000753016825495679942820E+0      /
394       DATA AE14CS(  2) / -.8648117855259871489968817056824E-1      /
395       DATA AE14CS(  3) / +.7224101543746594747021514839184E-2      /
396       DATA AE14CS(  4) / -.8097559457557386197159655610181E-3      /
397       DATA AE14CS(  5) / +.1099913443266138867179251157002E-3      /
398       DATA AE14CS(  6) / -.1717332998937767371495358814487E-4      /
399       DATA AE14CS(  7) / +.2985627514479283322825342495003E-5      /
400       DATA AE14CS(  8) / -.5659649145771930056560167267155E-6      /
401       DATA AE14CS(  9) / +.1152680839714140019226583501663E-6      /
402       DATA AE14CS( 10) / -.2495030440269338228842128765065E-7      /
403       DATA AE14CS( 11) / +.5692324201833754367039370368140E-8      /
404       DATA AE14CS( 12) / -.1359957664805600338490030939176E-8      /
405       DATA AE14CS( 13) / +.3384662888760884590184512925859E-9      /
406       DATA AE14CS( 14) / -.8737853904474681952350849316580E-10     /
407       DATA AE14CS( 15) / +.2331588663222659718612613400470E-10     /
408       DATA AE14CS( 16) / -.6411481049213785969753165196326E-11     /
409       DATA AE14CS( 17) / +.1812246980204816433384359484682E-11     /
410       DATA AE14CS( 18) / -.5253831761558460688819403840466E-12     /
411       DATA AE14CS( 19) / +.1559218272591925698855028609825E-12     /
412       DATA AE14CS( 20) / -.4729168297080398718476429369466E-13     /
413       DATA AE14CS( 21) / +.1463761864393243502076199493808E-13     /
414       DATA AE14CS( 22) / -.4617388988712924102232173623604E-14     /
415       DATA AE14CS( 23) / +.1482710348289369323789239660371E-14     /
416       DATA AE14CS( 24) / -.4841672496239229146973165734417E-15     /
417       DATA AE14CS( 25) / +.1606215575700290408116571966188E-15     /
418       DATA AE14CS( 26) / -.5408917538957170947895023784252E-16     /
419       DATA AE14CS( 27) / +.1847470159346897881370231402310E-16     /
420       DATA AE14CS( 28) / -.6395830792759094470500610425050E-17     /
421       DATA AE14CS( 29) / +.2242780721699759457250233276170E-17     /
422       DATA AE14CS( 30) / -.7961369173983947552744555308646E-18     /
423       DATA AE14CS( 31) / +.2859308111540197459808619929272E-18     /
424       DATA AE14CS( 32) / -.1038450244701137145900697137446E-18     /
425       DATA AE14CS( 33) / +.3812040607097975780866841008319E-19     /
426       DATA AE14CS( 34) / -.1413795417717200768717562723696E-19     /
427       DATA AE14CS( 35) / +.5295367865182740958305442594815E-20     /
428       DATA AE14CS( 36) / -.2002264245026825902137211131439E-20     /
429       DATA AE14CS( 37) / +.7640262751275196014736848610918E-21     /
430       DATA AE14CS( 38) / -.2941119006868787883311263523362E-21     /
431       DATA AE14CS( 39) / +.1141823539078927193037691483586E-21     /
432       DATA AE14CS( 40) / -.4469308475955298425247020718489E-22     /
433       DATA AE14CS( 41) / +.1763262410571750770630491408520E-22     /
434       DATA AE14CS( 42) / -.7009968187925902356351518262340E-23     /
435       DATA AE14CS( 43) / +.2807573556558378922287757507515E-23     /
436       DATA AE14CS( 44) / -.1132560944981086432141888891562E-23     /
437       DATA AE14CS( 45) / +.4600574684375017946156764233727E-24     /
438       DATA AE14CS( 46) / -.1881448598976133459864609148108E-24     /
439       DATA AE14CS( 47) / +.7744916111507730845444328478037E-25     /
440       DATA AE14CS( 48) / -.3208512760585368926702703826261E-25     /
441       DATA AE14CS( 49) / +.1337445542910839760619930421384E-25     /
442       DATA AE14CS( 50) / -.5608671881802217048894771735210E-26     /
443       DATA AE14CS( 51) / +.2365839716528537483710069473279E-26     /
444       DATA AE14CS( 52) / -.1003656195025305334065834526856E-26     /
445       DATA AE14CS( 53) / +.4281490878094161131286642556927E-27     /
446       DATA AE14CS( 54) / -.1836345261815318199691326958250E-27     /
447       DATA AE14CS( 55) / +.7917798231349540000097468678144E-28     /
448       DATA AE14CS( 56) / -.3431542358742220361025015775231E-28     /
449       DATA AE14CS( 57) / +.1494705493897103237475066008917E-28     /
450       DATA AE14CS( 58) / -.6542620279865705439739042420053E-29     /
451       DATA AE14CS( 59) / +.2877581395199171114340487353685E-29     /
452       DATA AE14CS( 60) / -.1271557211796024711027981200042E-29     /
453       DATA AE14CS( 61) / +.5644615555648722522388044622506E-30     /
454       DATA AE14CS( 62) / -.2516994994284095106080616830293E-30     /
455       DATA AE14CS( 63) / +.1127259818927510206370368804181E-30     /
456       DATA AE14CS( 64) / -.5069814875800460855562584719360E-31     /
470          call SINITS(AE14CS, 64, ETA, NTAE14)
513          SE1 = exp(-X)/X * (1.E0 + SCSEVL(8.E0/X-1.E0, AE14CS, NTAE14))