module rys_lut implicit none private integer, public, parameter :: mxrys = 13 integer, parameter :: mxdim = 16 integer, public, parameter :: maux = 55 integer, public, parameter :: nauxs(mxdim) = [ & 20, 25, 30, 30, 35, 40, 40, 40, 45, 50, 50, 55, 55, 0, 0, 0 ] integer, public, parameter :: maprys(mxdim) = [ & 1, 2, 3, 3, 4, 5, 5, 5, 6, 7, 7, 8, 8, 0, 0, 0 ] real(kind=8), public, parameter :: xasymp(mxdim) = [ & 0.2900000000000000D+02, 0.3700000000000000D+02, 0.4300000000000000D+02, & 0.4900000000000000D+02, 0.5500000000000000D+02, 0.6000000000000000D+02, & 0.6500000000000000D+02, 0.7100000000000000D+02, 0.7600000000000000D+02, & 0.8100000000000000D+02, 0.8600000000000000D+02, 0.9100000000000000D+02, & 0.9600000000000000D+02, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00 ] real(kind=8), public, parameter :: rts_hermit(mxdim,mxdim) = reshape([ & 0.4999999999999999D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.2752551286084109D+00, 0.2724744871391588D+01, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.1901635091934877D+00, & 0.1784492748543251D+01, 0.5525343742263263D+01, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.1453035215033170D+00, 0.1339097288126361D+01, 0.3926963501358284D+01, & 0.8588635689012030D+01, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.1175813202117781D+00, 0.1074562012436902D+01, & 0.3085937443717543D+01, 0.6414729733662035D+01, 0.1180718948997174D+02, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.9874701406848084D-01, & 0.8983028345696176D+00, 0.2552589802668170D+01, 0.5196152530054469D+01, & 0.9124248037531169D+01, 0.1512995978110809D+02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.8511544299759395D-01, 0.7721379200427770D+00, 0.2180591888450460D+01, & 0.4389792886731013D+01, 0.7554091326101775D+01, 0.1198999303982387D+02, & 0.1852827749585249D+02, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.7479188259681829D-01, 0.6772490876492894D+00, & 0.1905113635031427D+01, 0.3809476361484907D+01, 0.6483145428627172D+01, & 0.1009332367522134D+02, 0.1497262708842640D+02, 0.2198427284096265D+02, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.6670223095819450D-01, & 0.6032363570817492D+00, 0.1692395079793180D+01, 0.3369176270243266D+01, & 0.5694423342957756D+01, 0.8769756730268611D+01, 0.1277182535486919D+02, & 0.1804650546772900D+02, 0.2548597916609910D+02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.6019206314958798D-01, 0.5438675002946464D+00, 0.1522944105404443D+01, & 0.3022513376451579D+01, 0.5084907750098519D+01, 0.7777439231525440D+01, & 0.1120813020434865D+02, 0.1556116333218934D+02, 0.2119389209630154D+02, & 0.2902495034023624D+02, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.5483986957881845D-01, 0.4951741233503562D+00, & 0.1384655740084599D+01, 0.2741919940106705D+01, 0.4597737700485715D+01, & 0.6999397469528830D+01, 0.1001890827595722D+02, 0.1376930586610169D+02, & 0.1844111968097817D+02, 0.2440196124238704D+02, 0.3259498009144090D+02, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.5036188911729382D-01, & 0.4545066815637803D+00, 0.1269589940103963D+01, 0.2509848097232129D+01, & 0.4198415644878415D+01, 0.6369975388030632D+01, 0.9075434230961196D+01, & 0.1239044796380947D+02, 0.1643219508767528D+02, 0.2139675593616610D+02, & 0.2766110877984612D+02, 0.3619136036061559D+02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.4656008324502469D-01, 0.4200274064012148D+00, 0.1172310773277779D+01, & 0.2314540864349434D+01, 0.3864585038228155D+01, 0.5848734811306353D+01, & 0.8304553489985896D+01, 0.1128575099351764D+02, 0.1487096037752540D+02, & 0.1918091948561046D+02, 0.2441669233305651D+02, 0.3096393827474677D+02, & 0.3981042606874937D+02, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.4329203573977355D-01, 0.3904209260420311D+00, & 0.1088965867569270D+01, 0.2147799470582231D+01, 0.3581028249991769D+01, & 0.5409112330616471D+01, 0.7660691115610091D+01, 0.1037556300977005D+02, & 0.1360971142939024D+02, 0.1744429447570417D+02, 0.2200319676691490D+02, & 0.2749204150484384D+02, 0.3430462050937314D+02, 0.4344926230785199D+02, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.4045270430457500D-01, & 0.3647206450514074D+00, 0.1016746068857497D+01, 0.2003718953133922D+01, & 0.3336983205734512D+01, 0.5032805277625116D+01, 0.7113593769729876D+01, & 0.9609817284304439D+01, 0.1256308236994851D+02, 0.1603128410807399D+02, & 0.2009778533475589D+02, 0.2488931247515655D+02, 0.3061571740089948D+02, & 0.3767847178420531D+02, 0.4710550861821893D+02, 0.0000000000000000D+00, & 0.3796291457531353D-01, 0.3422001560109476D+00, 0.9535531553908647D+00, & 0.1877931507696076D+01, 0.3124601050702149D+01, 0.4706726707667594D+01, & 0.6642215179741446D+01, 0.8955001337723395D+01, 0.1167703367397597D+02, & 0.1485143134180126D+02, 0.1853774317860668D+02, 0.2282130069352519D+02, & 0.2783143821132870D+02, 0.3378197048822615D+02, 0.4108166652549115D+02, & 0.5077722387753715D+02 ], shape=[mxdim, mxdim]) real(kind=8), public, parameter :: wts_hermit(mxdim,mxdim) = reshape([ & 0.8862269254527578D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.8049140900055122D+00, 0.8131283544724527D-01, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.7246295952243917D+00, & 0.1570673203228566D+00, 0.4530009905508823D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.6611470125582407D+00, 0.2078023258148924D+00, 0.1707798300741349D-01, & 0.1996040722113677D-03, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.6108626337353259D+00, 0.2401386110823149D+00, & 0.3387439445548109D-01, 0.1343645746781227D-02, 0.7640432855232614D-05, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.5701352362624800D+00, & 0.2604923102641603D+00, 0.5160798561588373D-01, 0.3905390584629056D-02, & 0.8573687043587825D-04, 0.2658551684356290D-06, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.5364059097120907D+00, 0.2731056090642466D+00, 0.6850553422346510D-01, & 0.7850054726457951D-02, 0.3550926135519222D-03, 0.4716484355018901D-05, & 0.8628591168125136D-08, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.5079294790166150D+00, 0.2806474585285342D+00, & 0.8381004139898544D-01, 0.1288031153550990D-01, 0.9322840086241784D-03, & 0.2711860092537892D-04, 0.2320980844865203D-06, 0.2654807474011178D-09, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.4834956947254553D+00, & 0.2848072856699815D+00, 0.9730174764131426D-01, 0.1864004238754435D-01, & 0.1888522630268412D-02, 0.9181126867929414D-04, 0.1810654481093431D-05, & 0.1046720579579207D-07, 0.7828199772115893D-11, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.4622436696006099D+00, 0.2866755053628365D+00, 0.1090172060200211D+00, & 0.2481052088746278D-01, 0.3243773342237852D-02, 0.2283386360163555D-03, & 0.7802556478532065D-05, 0.1086069370769282D-06, 0.4399340992273156D-09, & 0.2229393645534101D-12, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.4435452264349595D+00, 0.2869714332469076D+00, & 0.1191023609587827D+00, 0.3114037088442376D-01, 0.4978399335051637D-02, & 0.4648850508842540D-03, 0.2365512855251058D-04, 0.5884287563301031D-06, & 0.5966990986059582D-08, 0.1744339007548002D-10, 0.6167183424403973D-14, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.4269311638686994D+00, & 0.2861795353464496D+00, 0.1277396217845544D+00, 0.3744547050322967D-01, & 0.7048355810072597D-02, 0.8236924826884187D-03, 0.5688691636404408D-04, & 0.2158245704902338D-05, 0.4018971174941502D-07, 0.3046254269987586D-09, & 0.6584620243078033D-12, 0.1664368496489109D-15, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.4120436505903693D+00, 0.2846322411767849D+00, 0.1351133279117871D+00, & 0.4359822721725066D-01, 0.9397901291159602D-02, 0.1319064722323852D-02, & 0.1162297016031100D-03, 0.6103291717396038D-05, 0.1770106337397365D-06, & 0.2524494034490502D-08, 0.1460999933981618D-10, 0.2383148659372185D-13, & 0.4396916094753885D-17, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.3986047178264511D+00, 0.2825613912593893D+00, & 0.1413946097869542D+00, 0.4951488928989775D-01, 0.1196842321435477D-01, & 0.1957331294408983D-02, 0.2106181000240334D-03, 0.1434550422971449D-04, & 0.5857719720992975D-06, 0.1325682501541730D-07, 0.1475853168277706D-09, & 0.6639436714909664D-12, 0.8315937951206589D-15, 0.1140139347903717D-18, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.3863948895418141D+00, & 0.2801309308392122D+00, 0.1467358475408903D+00, 0.5514417687023410D-01, & 0.1470382970482666D-01, 0.2737922473067670D-02, 0.3483101243186850D-03, & 0.2938725228922972D-04, 0.1579094887324712D-05, 0.5108522450775928D-07, & 0.9178580424378772D-09, 0.8106186297462860D-11, 0.2878607080548738D-13, & 0.2810333602750910D-16, 0.2908254700131270D-20, 0.0000000000000000D+00, & 0.3752383525928027D+00, 0.2774581423025306D+00, 0.1512697340766421D+00, & 0.6045813095591175D-01, 0.1755342883157332D-01, 0.3654890326654427D-02, & 0.5362683655279709D-03, 0.5416584061819988D-04, 0.3650585129562379D-05, & 0.1574167792545589D-06, 0.4098832164770857D-08, 0.5933291463396614D-10, & 0.4215010211326414D-12, 0.1197344017092862D-14, 0.9231736536518531D-18, & 0.7310676427383964D-22 ], shape=[mxdim, mxdim]) real(kind=8), public, parameter :: rtsaux(maux,8) = reshape([ & 0.3311423082817931D-01, 0.5981277244514300D-01, 0.1608687542003543D-01, & 0.6470837188913184D-02, 0.1925698896092918D-02, 0.3245055060169843D-03, & 0.1180403728976994D-04, 0.9806101582803445D-01, 0.1490786729242584D+00, & 0.2132008165424501D+00, 0.2897273376759475D+00, 0.3768645240659037D+00, & 0.4717671045434542D+00, 0.5706797743959704D+00, 0.6691679115546944D+00, & 0.7624187818801862D+00, 0.8455878090111316D+00, 0.9141601271474185D+00, & 0.9642964327839307D+00, 0.9931404032223842D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.4459215012310767D-01, 0.2663972894789983D-01, & 0.1448902560832900D-01, 0.6935339478525350D-02, 0.2756670127399030D-02, & 0.8129748816298266D-03, 0.1361431404118938D-03, 0.4935129360637439D-05, & 0.6943153026591924D-01, 0.1020252057162236D+00, 0.1429343223834524D+00, & 0.1923415868672259D+00, 0.2499999999999999D+00, 0.3152062794779362D+00, & 0.3868012061044409D+00, 0.4631975115256109D+00, 0.5424342617116348D+00, & 0.6222550803643302D+00, 0.7002060974213685D+00, 0.7737482886456865D+00, & 0.8403779682393594D+00, 0.8977486680056744D+00, 0.9437875461106039D+00, & 0.9768000645999300D+00, 0.9955619049198584D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.3600009444917834D-01, & 0.5367929502127710D-01, 0.2282358087416106D-01, 0.1348183025995716D-01, & 0.7261957338041792D-02, 0.3448006938362446D-02, 0.1361608249860346D-02, & 0.3995628201530626D-03, 0.6668254930138793D-04, 0.2412610298614493D-05, & 0.7644291300781368D-01, 0.1047477930875140D+00, 0.1388915279581130D+00, & 0.1789840307741864D+00, 0.2249264163663510D+00, 0.2763982589216690D+00, & 0.3328539443827702D+00, 0.3935284541260027D+00, 0.4574525186183916D+00, & 0.5234766825459025D+00, 0.5903034431632973D+00, 0.6565262774384205D+00, & 0.7206740756674773D+00, 0.7812592623647830D+00, 0.8368277197208105D+00, & 0.8860085427304147D+00, 0.9275616556791347D+00, 0.9604214277884603D+00, & 0.9837348058290485D+00, 0.9968958966849477D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.4398555195277359D-01, 0.3058574876834499D-01, 0.6092930105499368D-01, & 0.2033269213059855D-01, 0.1279045049262753D-01, 0.7503899366138534D-02, & 0.4018347564842567D-02, 0.1898594940807536D-02, 0.7467882061060832D-03, & 0.2184836363610052D-03, 0.3638644488856184D-04, 0.1314956323727580D-05, & 0.8175666785532240D-01, 0.1067323821680571D+00, 0.1360307958356441D+00, & 0.1697229634514230D+00, 0.2077667019402563D+00, 0.2499999999999998D+00, & 0.2961380452159158D+00, 0.3457740246174122D+00, 0.3983837370449402D+00, & 0.4533339365988709D+00, 0.5098942093731368D+00, 0.5672520742964827D+00, & 0.6245308967025374D+00, 0.6808101134342349D+00, 0.7351471936872270D+00, & 0.7866007027795398D+00, 0.8342537984583634D+00, 0.8772374725900651D+00, & 0.9147528563001249D+00, 0.9460919364139329D+00, 0.9706560996755904D+00, & 0.9879721508887392D+00, 0.9977078840559234D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.3752862210285295D-01, 0.5074496784251226D-01, & 0.2690310419233024D-01, 0.6680265670059675D-01, 0.1858883348816642D-01, & 0.1228709604735500D-01, 0.7690217393316887D-02, 0.4491713694776070D-02, & 0.2396160899229440D-02, 0.1128529682849472D-02, 0.4427485262711727D-03, & 0.1292774686851154D-03, 0.2150066216486457D-04, 0.7764167660645311D-06, & 0.8591370530679703D-01, 0.1082429441270552D+00, 0.1339003060774142D+00, & 0.1629342990513548D+00, 0.1953268425285067D+00, 0.2309896163367905D+00, & 0.2697620338428412D+00, 0.3114109132037622D+00, 0.3556318797527262D+00, & 0.4020524910846677D+00, 0.4502370349528138D+00, 0.4996929096784019D+00, & 0.5498784583867753D+00, 0.6002120929376404D+00, 0.6500825117708330D+00, & 0.6988597888065096D+00, 0.7459070886780932D+00, 0.7905927474738742D+00, & 0.8323024482266286D+00, 0.8704512169070354D+00, 0.9044949678681030D+00, & 0.9339413379615261D+00, 0.9583595677400624D+00, 0.9773892274524588D+00, & 0.9907477393616217D+00, 0.9982384861273251D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.4364961121395911D-01, & 0.5648398190166988D-01, 0.3296886428003663D-01, 0.2425468583739952D-01, & 0.1730423844079668D-01, 0.1190452155752850D-01, 0.7838072567300970D-02, & 0.4888633282362963D-02, 0.2846666829304473D-02, 0.1514613186770935D-02, & 0.7117772849514748D-03, 0.2787512336375375D-03, 0.8128180937639950D-04, & 0.1350563070652586D-04, 0.4874516944821551D-06, 0.7163782758885393D-01, & 0.8925068302442711D-01, 0.1094310699873910D+00, 0.1322523159580150D+00, & 0.1577489776219076D+00, 0.1859139476909168D+00, 0.2166963107764356D+00, & 0.2499999999999997D+00, 0.2856832909395797D+00, 0.3235591536741699D+00, & 0.3633964674051715D+00, 0.4049220857103925D+00, 0.4478237242379931D+00, & 0.4917536268829691D+00, 0.5363329515084886D+00, 0.5811568023645853D+00, & 0.6257998237833122D+00, 0.6698222587332601D+00, 0.7127763666085998D+00, & 0.7542130873862868D+00, 0.7936888341514342D+00, 0.8307722930693874D+00, & 0.8650511092430273D+00, 0.8961383385825462D+00, 0.9236785499057714D+00, & 0.9473534682805803D+00, 0.9668870616305321D+00, 0.9820499968439161D+00, & 0.9926635040779103D+00, 0.9986041326336311D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.4902719181508489D-01, 0.3847424833481418D-01, 0.2960181058194297D-01, & 0.6139043253713792D-01, 0.2226773223374810D-01, 0.1632079039873591D-01, & 0.1160404728431016D-01, 0.7958239359710731D-02, 0.5225137891769632D-02, & 0.3250825423481754D-02, 0.1888834328260073D-02, 0.1003095980873591D-02, & 0.4706523012354059D-03, 0.1840853989094785D-03, 0.5362571351821748D-04, & 0.8904347214872945D-05, 0.3212597347084014D-06, 0.7567826725867491D-01, & 0.9198654925267620D-01, 0.1103899809594068D+00, 0.1309396946157232D+00, & 0.1536611631576847D+00, 0.1785524787184205D+00, 0.2055830304726597D+00, & 0.2346926074980837D+00, 0.2657909458252721D+00, 0.2987577320327461D+00, & 0.3334430687165666D+00, 0.3696684000337266D+00, 0.4072278883952550D+00, & 0.4458902263788443D+00, 0.4854008611502410D+00, 0.5254846022327136D+00, & 0.5658485774446024D+00, 0.6061854963297351D+00, 0.6461771755197649D+00, & 0.6854982762673824D+00, 0.7238202009405706D+00, 0.7608150926248051D+00, & 0.7961598801847096D+00, 0.8295403102190463D+00, 0.8606549073217162D+00, & 0.8892188049470944D+00, 0.9149673909840519D+00, 0.9376597149257520D+00, & 0.9570816075440438D+00, 0.9730484705056013D+00, 0.9854077097615248D+00, & 0.9940408737793049D+00, 0.9988667256798059D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.4343624158117879D-01, 0.5375839047537360D-01, & 0.3455983018026716D-01, 0.2702670399540115D-01, 0.2072687140681374D-01, & 0.1554487095139011D-01, 0.6561918588455740D-01, 0.1136187779405652D-01, & 0.8057818189945613D-02, 0.5513462965948451D-02, 0.3612471437300600D-02, & 0.2243357933571111D-02, 0.1301354228704902D-02, 0.6901426368777302D-03, & 0.3234363306937525D-03, 0.1263855374816439D-03, 0.3679064690900260D-04, & 0.6105895739168861D-05, 0.2202333083263958D-06, 0.7910008312146158D-01, & 0.9426929356479725D-01, 0.1111801399767667D+00, 0.1298695808908628D+00, & 0.1503569255021147D+00, 0.1726427581138337D+00, 0.1967080885645231D+00, & 0.2225137422094791D+00, 0.2500000000000002D+00, 0.2790864960278161D+00, & 0.3096723766238527D+00, 0.3416367217607065D+00, 0.3748392261499602D+00, & 0.4091211340916689D+00, 0.4443064188667903D+00, 0.4802031943057769D+00, & 0.5166053431586364D+00, 0.5532943440720315D+00, 0.5900412763837164D+00, & 0.6266089796072110D+00, 0.6627543424301952D+00, 0.6982306943152268D+00, & 0.7327902713934512D+00, 0.7661867272994123D+00, 0.7981776589216788D+00, & 0.8285271167492663D+00, 0.8570080695831021D+00, 0.8834047938571962D+00, & 0.9075151586775710D+00, 0.9291527789494963D+00, 0.9481490106780879D+00, & 0.9643547649238285D+00, 0.9776421210414711D+00, 0.9879057318457978D+00, & 0.9950640837431507D+00, 0.9990616397981268D+00 ], shape=[maux, 8]) real(kind=8), public, parameter :: wtsaux(maux,8) = reshape([ & 0.5909726598075888D-01, 0.6584431922458862D-01, 0.5096505990862041D-01, & 0.4163837078835225D-01, 0.3133602416705433D-01, 0.2030071490019332D-01, & 0.8807003569576349D-02, 0.7104805465919128D-01, 0.7458649323630183D-01, & 0.7637669356536272D-01, 0.7637669356536346D-01, 0.7458649323630144D-01, & 0.7104805465919112D-01, 0.6584431922458830D-01, 0.5909726598076000D-01, & 0.5096505990862025D-01, 0.4163837078835227D-01, 0.3133602416705442D-01, & 0.2030071490019355D-01, 0.8807003569576227D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.5026797453352529D-01, 0.4551413099148229D-01, & 0.4007035016750040D-01, 0.3401916690617832D-01, 0.2745234798791782D-01, & 0.2046957835065303D-01, 0.1317749330751579D-01, 0.5696899250513485D-02, & 0.5425981223713152D-01, 0.5742912957285592D-01, 0.5972788176789209D-01, & 0.6112122149515455D-01, 0.6158802686335779D-01, 0.6112122149515536D-01, & 0.5972788176789246D-01, 0.5742912957285590D-01, 0.5425981223713182D-01, & 0.5026797453352500D-01, 0.4551413099148207D-01, 0.4007035016750037D-01, & 0.3401916690617897D-01, 0.2745234798791809D-01, 0.2046957835065275D-01, & 0.1317749330751527D-01, 0.5696899250513537D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.4037794761470943D-01, & 0.4344989360054208D-01, 0.3687798736885270D-01, 0.3298711494109012D-01, & 0.2874657810880918D-01, 0.2420133641529743D-01, 0.1939959628481344D-01, & 0.1439235394166157D-01, 0.9233234155545691D-02, 0.3984096248083391D-02, & 0.4606126111889302D-01, 0.4818436858732206D-01, 0.4979671029339763D-01, & 0.5088119487420216D-01, 0.5142632644677943D-01, 0.5142632644677995D-01, & 0.5088119487420249D-01, 0.4979671029339827D-01, 0.4818436858732192D-01, & 0.4606126111889324D-01, 0.4344989360054120D-01, 0.4037794761471003D-01, & 0.3687798736885173D-01, 0.3298711494109043D-01, 0.2874657810880946D-01, & 0.2420133641529735D-01, 0.1939959628481361D-01, 0.1439235394166174D-01, & 0.9233234155545632D-02, 0.3984096248083247D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.3602239738628011D-01, 0.3361114263454359D-01, 0.3815172857772094D-01, & 0.3093683598304008D-01, 0.2802040810618503D-01, 0.2488468520067677D-01, & 0.2155421116308512D-01, 0.1805505793173160D-01, 0.1441463005444643D-01, & 0.1066148995574242D-01, 0.6825414174180503D-02, 0.2941716710221880D-02, & 0.3998247112116213D-01, 0.4150029686442836D-01, 0.4269332669604951D-01, & 0.4355222349859141D-01, 0.4407026521513794D-01, 0.4424339745355207D-01, & 0.4407026521513754D-01, 0.4355222349859152D-01, 0.4269332669604975D-01, & 0.4150029686442849D-01, 0.3998247112116278D-01, 0.3815172857772100D-01, & 0.3602239738628051D-01, 0.3361114263454346D-01, 0.3093683598304035D-01, & 0.2802040810618515D-01, 0.2488468520067681D-01, 0.2155421116308484D-01, & 0.1805505793173228D-01, 0.1441463005444692D-01, 0.1066148995574185D-01, & 0.6825414174181070D-02, 0.2941716710221409D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.3065312124646436D-01, 0.3240200672830060D-01, & 0.2871988454969593D-01, 0.3395602290761694D-01, 0.2661392349196827D-01, & 0.2434790381753858D-01, 0.2193545409283397D-01, 0.1939108398723607D-01, & 0.1673009764127369D-01, 0.1396850349001161D-01, 0.1112292459708341D-01, & 0.8210529190954175D-02, 0.5249142265576177D-02, 0.2260638549266816D-02, & 0.3530582369564367D-01, 0.3644329119790184D-01, 0.3736158452898425D-01, & 0.3805518095031275D-01, 0.3851990908212372D-01, 0.3875297398921261D-01, & 0.3875297398921173D-01, 0.3851990908212474D-01, 0.3805518095031294D-01, & 0.3736158452898516D-01, 0.3644329119790151D-01, 0.3530582369564279D-01, & 0.3395602290761690D-01, 0.3240200672830062D-01, 0.3065312124646425D-01, & 0.2871988454969628D-01, 0.2661392349196852D-01, 0.2434790381753621D-01, & 0.2193545409283680D-01, 0.1939108398723554D-01, 0.1673009764127440D-01, & 0.1396850349001189D-01, 0.1112292459708395D-01, 0.8210529190953284D-02, & 0.5249142265576468D-02, 0.2260638549266104D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.2806743937989311D-01, & 0.2938711635942114D-01, 0.2661400836563443D-01, 0.2503374961897618D-01, & 0.2333419385918702D-01, 0.2152344035458202D-01, 0.1961011836465203D-01, & 0.1760334610080350D-01, 0.1551268746725794D-01, 0.1334810698378866D-01, & 0.1111992377528920D-01, 0.8838767628969348D-02, 0.6515552495791421D-02, & 0.4161594648109023D-02, 0.1791331577641875D-02, 0.3056675041553340D-01, & 0.3160072003690959D-01, 0.3248409787536193D-01, 0.3321267422492125D-01, & 0.3378297708180428D-01, 0.3419228868933463D-01, 0.3443865848883079D-01, & 0.3452091241461568D-01, 0.3443865848883113D-01, 0.3419228868933424D-01, & 0.3378297708180292D-01, 0.3321267422492117D-01, 0.3248409787536162D-01, & 0.3160072003691082D-01, 0.3056675041553352D-01, 0.2938711635942091D-01, & 0.2806743937989297D-01, 0.2661400836563448D-01, 0.2503374961897604D-01, & 0.2333419385918714D-01, 0.2152344035458233D-01, 0.1961011836465042D-01, & 0.1760334610080437D-01, 0.1551268746725816D-01, 0.1334810698378838D-01, & 0.1111992377529002D-01, 0.8838767628968630D-02, 0.6515552495791605D-02, & 0.4161594648109016D-02, 0.1791331577641597D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.2582785153479077D-01, 0.2470046922473299D-01, 0.2347752565197435D-01, & 0.2685531094449798D-01, 0.2216375216940157D-01, 0.2076423154507500D-01, & 0.1928437830629284D-01, 0.1772991780757497D-01, 0.1610686411178732D-01, & 0.1442149679026786D-01, 0.1268033678500444D-01, 0.1089012158506380D-01, & 0.9057780356744979D-02, 0.7190411380742174D-02, 0.5295274191826010D-02, & 0.3379899597872772D-02, 0.1454311276577341D-02, 0.2777887240310640D-01, & 0.2859496282386398D-01, 0.2930042490661166D-01, 0.2989252935213247D-01, & 0.3036898542088475D-01, 0.3072794979515820D-01, 0.3096803371034183D-01, & 0.3108830832767347D-01, 0.3108830832767407D-01, 0.3096803371034139D-01, & 0.3072794979515868D-01, 0.3036898542088479D-01, 0.2989252935213276D-01, & 0.2930042490661133D-01, 0.2859496282386403D-01, 0.2777887240310611D-01, & 0.2685531094449840D-01, 0.2582785153478988D-01, 0.2470046922473255D-01, & 0.2347752565197456D-01, 0.2216375216940185D-01, 0.2076423154507295D-01, & 0.1928437830629468D-01, 0.1772991780757407D-01, 0.1610686411178809D-01, & 0.1442149679026780D-01, 0.1268033678500648D-01, 0.1089012158506232D-01, & 0.9057780356744797D-02, 0.7190411380742838D-02, 0.5295274191825420D-02, & 0.3379899597872453D-02, 0.1454311276577576D-02, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.0000000000000000D+00, 0.0000000000000000D+00, & 0.0000000000000000D+00, 0.2299018197314214D-01, 0.2388714927560028D-01, & 0.2201957021080317D-01, 0.2097842315885948D-01, 0.1987007593716820D-01, & 0.1869807893398359D-01, 0.2470759885577663D-01, 0.1746618643679334D-01, & 0.1617834461309376D-01, 0.1483867888257975D-01, 0.1345148072819935D-01, & 0.1202119400486185D-01, 0.1055240083400823D-01, 0.9049807260364221D-02, & 0.7518229166756075D-02, 0.5962580359924479D-02, 0.4387873053529027D-02, & 0.2799316133280325D-02, 0.1204161809990090D-02, 0.2544890256224712D-01, & 0.2610868577281617D-01, 0.2668483500080304D-01, 0.2717550466495542D-01, & 0.2757912300125436D-01, 0.2789439709764200D-01, 0.2812031703554178D-01, & 0.2825615912488630D-01, 0.2830148822227995D-01, 0.2825615912488606D-01, & 0.2812031703554219D-01, 0.2789439709764192D-01, 0.2757912300125449D-01, & 0.2717550466495561D-01, 0.2668483500080322D-01, 0.2610868577281601D-01, & 0.2544890256224744D-01, 0.2470759885577558D-01, 0.2388714927560043D-01, & 0.2299018197314154D-01, 0.2201957021080389D-01, 0.2097842315885954D-01, & 0.1987007593716834D-01, 0.1869807893398267D-01, 0.1746618643679476D-01, & 0.1617834461309308D-01, 0.1483867888258053D-01, 0.1345148072819702D-01, & 0.1202119400486354D-01, 0.1055240083400783D-01, 0.9049807260364362D-02, & 0.7518229166755907D-02, 0.5962580359924624D-02, 0.4387873053529463D-02, & 0.2799316133280401D-02, 0.1204161809989695D-02 ], shape=[maux, 8]) end module rys_lut