module egadb2 implicit none save integer, parameter :: n=400 real :: utab(n) = (/ $ 0.10000E+18, 0.10500E+18, 0.11025E+18, 0.11576E+18, 0.12155E+18, $ 0.12763E+18, 0.13401E+18, 0.14071E+18, 0.14775E+18, 0.15513E+18, $ 0.16289E+18, 0.17103E+18, 0.17959E+18, 0.18856E+18, 0.19799E+18, $ 0.20789E+18, 0.21829E+18, 0.22920E+18, 0.24066E+18, 0.25269E+18, $ 0.26533E+18, 0.27860E+18, 0.29253E+18, 0.30715E+18, 0.32251E+18, $ 0.33864E+18, 0.35557E+18, 0.37335E+18, 0.39201E+18, 0.41161E+18, $ 0.43219E+18, 0.45380E+18, 0.47649E+18, 0.50032E+18, 0.52533E+18, $ 0.55160E+18, 0.57918E+18, 0.60814E+18, 0.63855E+18, 0.67047E+18, $ 0.70400E+18, 0.73920E+18, 0.77616E+18, 0.81497E+18, 0.85571E+18, $ 0.89850E+18, 0.94342E+18, 0.99060E+18, 0.10401E+19, 0.10921E+19, $ 0.11467E+19, 0.12041E+19, 0.12643E+19, 0.13275E+19, 0.13939E+19, $ 0.14636E+19, 0.15367E+19, 0.16136E+19, 0.16943E+19, 0.17790E+19, $ 0.18679E+19, 0.19613E+19, 0.20594E+19, 0.21623E+19, 0.22705E+19, $ 0.23840E+19, 0.25032E+19, 0.26283E+19, 0.27598E+19, 0.28977E+19, $ 0.30426E+19, 0.31948E+19, 0.33545E+19, 0.35222E+19, 0.36983E+19, $ 0.38833E+19, 0.40774E+19, 0.42813E+19, 0.44954E+19, 0.47201E+19, $ 0.49561E+19, 0.52039E+19, 0.54641E+19, 0.57373E+19, 0.60242E+19, $ 0.63254E+19, 0.66417E+19, 0.69738E+19, 0.73225E+19, 0.76886E+19, $ 0.80730E+19, 0.84767E+19, 0.89005E+19, 0.93455E+19, 0.98128E+19, $ 0.10303E+20, 0.10819E+20, 0.11360E+20, 0.11927E+20, 0.12524E+20, $ 0.13150E+20, 0.13808E+20, 0.14498E+20, 0.15223E+20, 0.15984E+20, $ 0.16783E+20, 0.17622E+20, 0.18503E+20, 0.19429E+20, 0.20400E+20, $ 0.21420E+20, 0.22491E+20, 0.23616E+20, 0.24796E+20, 0.26036E+20, $ 0.27338E+20, 0.28705E+20, 0.30140E+20, 0.31647E+20, 0.33230E+20, $ 0.34891E+20, 0.36636E+20, 0.38467E+20, 0.40391E+20, 0.42410E+20, $ 0.44531E+20, 0.46757E+20, 0.49095E+20, 0.51550E+20, 0.54127E+20, $ 0.56834E+20, 0.59675E+20, 0.62659E+20, 0.65792E+20, 0.69082E+20, $ 0.72536E+20, 0.76163E+20, 0.79971E+20, 0.83969E+20, 0.88168E+20, $ 0.92576E+20, 0.97205E+20, 0.10207E+21, 0.10717E+21, 0.11253E+21, $ 0.11815E+21, 0.12406E+21, 0.13026E+21, 0.13678E+21, 0.14362E+21, $ 0.15080E+21, 0.15834E+21, 0.16625E+21, 0.17457E+21, 0.18329E+21, $ 0.19246E+21, 0.20208E+21, 0.21219E+21, 0.22280E+21, 0.23394E+21, $ 0.24563E+21, 0.25791E+21, 0.27081E+21, 0.28435E+21, 0.29857E+21, $ 0.31350E+21, 0.32917E+21, 0.34563E+21, 0.36291E+21, 0.38106E+21, $ 0.40011E+21, 0.42011E+21, 0.44112E+21, 0.46318E+21, 0.48633E+21, $ 0.51065E+21, 0.53618E+21, 0.56299E+21, 0.59114E+21, 0.62070E+21, $ 0.65173E+21, 0.68432E+21, 0.71854E+21, 0.75446E+21, 0.79219E+21, $ 0.83180E+21, 0.87339E+21, 0.91705E+21, 0.96291E+21, 0.10111E+22, $ 0.10616E+22, 0.11147E+22, 0.11704E+22, 0.12289E+22, 0.12904E+22, $ 0.13549E+22, 0.14227E+22, 0.14938E+22, 0.15685E+22, 0.16469E+22, $ 0.17292E+22, 0.18157E+22, 0.19065E+22, 0.20018E+22, 0.21019E+22, $ 0.22070E+22, 0.23173E+22, 0.24332E+22, 0.25549E+22, 0.26826E+22, $ 0.28168E+22, 0.29576E+22, 0.31055E+22, 0.32607E+22, 0.34238E+22, $ 0.35950E+22, 0.37747E+22, 0.39635E+22, 0.41616E+22, 0.43697E+22, $ 0.45882E+22, 0.48176E+22, 0.50585E+22, 0.53114E+22, 0.55770E+22, $ 0.58558E+22, 0.61486E+22, 0.64560E+22, 0.67788E+22, 0.71178E+22, $ 0.74737E+22, 0.78474E+22, 0.82397E+22, 0.86517E+22, 0.90843E+22, $ 0.95385E+22, 0.10015E+23, 0.10516E+23, 0.11042E+23, 0.11594E+23, $ 0.12174E+23, 0.12783E+23, 0.13422E+23, 0.14093E+23, 0.14797E+23, $ 0.15537E+23, 0.16314E+23, 0.17130E+23, 0.17986E+23, 0.18886E+23, $ 0.19830E+23, 0.20821E+23, 0.21862E+23, 0.22956E+23, 0.24103E+23, $ 0.25308E+23, 0.26574E+23, 0.27903E+23, 0.29298E+23, 0.30763E+23, $ 0.32301E+23, 0.33916E+23, 0.35612E+23, 0.37392E+23, 0.39262E+23, $ 0.41225E+23, 0.43286E+23, 0.45450E+23, 0.47723E+23, 0.50109E+23, $ 0.52615E+23, 0.55245E+23, 0.58007E+23, 0.60908E+23, 0.63953E+23, $ 0.67151E+23, 0.70508E+23, 0.74034E+23, 0.77736E+23, 0.81622E+23, $ 0.85703E+23, 0.89989E+23, 0.94488E+23, 0.99212E+23, 0.10417E+24, $ 0.10938E+24, 0.11485E+24, 0.12059E+24, 0.12662E+24, 0.13295E+24, $ 0.13960E+24, 0.14658E+24, 0.15391E+24, 0.16161E+24, 0.16969E+24, $ 0.17817E+24, 0.18708E+24, 0.19643E+24, 0.20626E+24, 0.21657E+24, $ 0.22740E+24, 0.23877E+24, 0.25070E+24, 0.26324E+24, 0.27640E+24, $ 0.29022E+24, 0.30473E+24, 0.31997E+24, 0.33597E+24, 0.35277E+24, $ 0.37040E+24, 0.38893E+24, 0.40837E+24, 0.42879E+24, 0.45023E+24, $ 0.47274E+24, 0.49638E+24, 0.52120E+24, 0.54726E+24, 0.57462E+24, $ 0.60335E+24, 0.63352E+24, 0.66519E+24, 0.69845E+24, 0.73338E+24, $ 0.77004E+24, 0.80855E+24, 0.84897E+24, 0.89142E+24, 0.93599E+24, $ 0.98279E+24, 0.10319E+25, 0.10835E+25, 0.11377E+25, 0.11946E+25, $ 0.12543E+25, 0.13170E+25, 0.13829E+25, 0.14520E+25, 0.15246E+25, $ 0.16009E+25, 0.16809E+25, 0.17650E+25, 0.18532E+25, 0.19459E+25, $ 0.20432E+25, 0.21453E+25, 0.22526E+25, 0.23652E+25, 0.24835E+25, $ 0.26076E+25, 0.27380E+25, 0.28749E+25, 0.30187E+25, 0.31696E+25, $ 0.33281E+25, 0.34945E+25, 0.36692E+25, 0.38527E+25, 0.40453E+25, $ 0.42476E+25, 0.44600E+25, 0.46829E+25, 0.49171E+25, 0.51630E+25, $ 0.54211E+25, 0.56922E+25, 0.59768E+25, 0.62756E+25, 0.65894E+25, $ 0.69188E+25, 0.72648E+25, 0.76280E+25, 0.80094E+25, 0.84099E+25, $ 0.88304E+25, 0.92719E+25, 0.97355E+25, 0.10222E+26, 0.10733E+26, $ 0.11270E+26, 0.11834E+26, 0.12425E+26, 0.13047E+26, 0.13699E+26, $ 0.14384E+26, 0.15103E+26, 0.15858E+26, 0.16651E+26, 0.17484E+26, $ 0.18358E+26, 0.19276E+26, 0.20239E+26, 0.21251E+26, 0.22314E+26, $ 0.23430E+26, 0.24601E+26, 0.25831E+26, 0.27123E+26, 0.28479E+26 $ /) real :: etab(n,7) data etab(:,1) / $ 0.22348E-04, 0.23464E-04, 0.24638E-04, 0.25869E-04, 0.27162E-04, $ 0.28519E-04, 0.29949E-04, 0.31443E-04, 0.33017E-04, 0.34670E-04, $ 0.36399E-04, 0.38225E-04, 0.40133E-04, 0.42141E-04, 0.44247E-04, $ 0.46461E-04, 0.48785E-04, 0.51223E-04, 0.53784E-04, 0.56476E-04, $ 0.59300E-04, 0.62264E-04, 0.65379E-04, 0.68647E-04, 0.72078E-04, $ 0.75686E-04, 0.79470E-04, 0.83442E-04, 0.87615E-04, 0.91992E-04, $ 0.96594E-04, 0.10142E-03, 0.10649E-03, 0.11182E-03, 0.11741E-03, $ 0.12328E-03, 0.12944E-03, 0.13592E-03, 0.14271E-03, 0.14985E-03, $ 0.15734E-03, 0.16520E-03, 0.17347E-03, 0.18214E-03, 0.19124E-03, $ 0.20080E-03, 0.21084E-03, 0.22138E-03, 0.23245E-03, 0.24408E-03, $ 0.25627E-03, 0.26909E-03, 0.28254E-03, 0.29667E-03, 0.31150E-03, $ 0.32707E-03, 0.34342E-03, 0.36059E-03, 0.37861E-03, 0.39754E-03, $ 0.41741E-03, 0.43828E-03, 0.46018E-03, 0.48318E-03, 0.50734E-03, $ 0.53270E-03, 0.55932E-03, 0.58727E-03, 0.61663E-03, 0.64745E-03, $ 0.67981E-03, 0.71378E-03, 0.74946E-03, 0.78691E-03, 0.82624E-03, $ 0.86753E-03, 0.91088E-03, 0.95640E-03, 0.10042E-02, 0.10544E-02, $ 0.11070E-02, 0.11624E-02, 0.12204E-02, 0.12814E-02, 0.13454E-02, $ 0.14126E-02, 0.14832E-02, 0.15573E-02, 0.16351E-02, 0.17167E-02, $ 0.18025E-02, 0.18925E-02, 0.19870E-02, 0.20862E-02, 0.21904E-02, $ 0.22998E-02, 0.24146E-02, 0.25351E-02, 0.26617E-02, 0.27945E-02, $ 0.29340E-02, 0.30804E-02, 0.32341E-02, 0.33955E-02, 0.35649E-02, $ 0.37427E-02, 0.39294E-02, 0.41253E-02, 0.43310E-02, 0.45470E-02, $ 0.47736E-02, 0.50116E-02, 0.52613E-02, 0.55235E-02, 0.57987E-02, $ 0.60875E-02, 0.63907E-02, 0.67089E-02, 0.70428E-02, 0.73934E-02, $ 0.77612E-02, 0.81473E-02, 0.85525E-02, 0.89777E-02, 0.94240E-02, $ 0.98923E-02, 0.10384E-01, 0.10899E-01, 0.11440E-01, 0.12008E-01, $ 0.12604E-01, 0.13229E-01, 0.13884E-01, 0.14572E-01, 0.15294E-01, $ 0.16051E-01, 0.16845E-01, 0.17678E-01, 0.18552E-01, 0.19468E-01, $ 0.20429E-01, 0.21437E-01, 0.22493E-01, 0.23602E-01, 0.24763E-01, $ 0.25981E-01, 0.27258E-01, 0.28597E-01, 0.30000E-01, 0.31470E-01, $ 0.33011E-01, 0.34626E-01, 0.36318E-01, 0.38090E-01, 0.39947E-01, $ 0.41892E-01, 0.43929E-01, 0.46062E-01, 0.48295E-01, 0.50633E-01, $ 0.53080E-01, 0.55641E-01, 0.58321E-01, 0.61125E-01, 0.64058E-01, $ 0.67125E-01, 0.70333E-01, 0.73686E-01, 0.77191E-01, 0.80854E-01, $ 0.84680E-01, 0.88677E-01, 0.92850E-01, 0.97207E-01, 0.10175E+00, $ 0.10650E+00, 0.11145E+00, 0.11661E+00, 0.12199E+00, 0.12759E+00, $ 0.13343E+00, 0.13951E+00, 0.14584E+00, 0.15242E+00, 0.15927E+00, $ 0.16638E+00, 0.17378E+00, 0.18146E+00, 0.18943E+00, 0.19770E+00, $ 0.20627E+00, 0.21516E+00, 0.22436E+00, 0.23389E+00, 0.24374E+00, $ 0.25393E+00, 0.26445E+00, 0.27532E+00, 0.28652E+00, 0.29807E+00, $ 0.30997E+00, 0.32222E+00, 0.33481E+00, 0.34774E+00, 0.36102E+00, $ 0.37464E+00, 0.38860E+00, 0.40289E+00, 0.41750E+00, 0.43243E+00, $ 0.44767E+00, 0.46321E+00, 0.47903E+00, 0.49514E+00, 0.51151E+00, $ 0.52813E+00, 0.54500E+00, 0.56209E+00, 0.57938E+00, 0.59687E+00, $ 0.61454E+00, 0.63236E+00, 0.65034E+00, 0.66844E+00, 0.68664E+00, $ 0.70495E+00, 0.72333E+00, 0.74178E+00, 0.76028E+00, 0.77881E+00, $ 0.79737E+00, 0.81594E+00, 0.83451E+00, 0.85308E+00, 0.87162E+00, $ 0.89014E+00, 0.90863E+00, 0.92707E+00, 0.94548E+00, 0.96384E+00, $ 0.98215E+00, 0.10004E+01, 0.10186E+01, 0.10368E+01, 0.10549E+01, $ 0.10729E+01, 0.10909E+01, 0.11089E+01, 0.11268E+01, 0.11446E+01, $ 0.11624E+01, 0.11802E+01, 0.11979E+01, 0.12156E+01, 0.12332E+01, $ 0.12508E+01, 0.12683E+01, 0.12858E+01, 0.13033E+01, 0.13207E+01, $ 0.13381E+01, 0.13555E+01, 0.13728E+01, 0.13901E+01, 0.14074E+01, $ 0.14247E+01, 0.14419E+01, 0.14591E+01, 0.14763E+01, 0.14934E+01, $ 0.15105E+01, 0.15276E+01, 0.15447E+01, 0.15618E+01, 0.15788E+01, $ 0.15959E+01, 0.16129E+01, 0.16299E+01, 0.16468E+01, 0.16638E+01, $ 0.16808E+01, 0.16977E+01, 0.17146E+01, 0.17315E+01, 0.17484E+01, $ 0.17653E+01, 0.17821E+01, 0.17990E+01, 0.18158E+01, 0.18326E+01, $ 0.18494E+01, 0.18662E+01, 0.18830E+01, 0.18998E+01, 0.19166E+01, $ 0.19333E+01, 0.19501E+01, 0.19668E+01, 0.19835E+01, 0.20003E+01, $ 0.20170E+01, 0.20337E+01, 0.20504E+01, 0.20670E+01, 0.20837E+01, $ 0.21004E+01, 0.21170E+01, 0.21337E+01, 0.21503E+01, 0.21670E+01, $ 0.21836E+01, 0.22002E+01, 0.22168E+01, 0.22334E+01, 0.22500E+01, $ 0.22666E+01, 0.22832E+01, 0.22998E+01, 0.23164E+01, 0.23329E+01, $ 0.23495E+01, 0.23661E+01, 0.23826E+01, 0.23992E+01, 0.24157E+01, $ 0.24322E+01, 0.24487E+01, 0.24653E+01, 0.24818E+01, 0.24983E+01, $ 0.25148E+01, 0.25313E+01, 0.25478E+01, 0.25643E+01, 0.25808E+01, $ 0.25972E+01, 0.26137E+01, 0.26302E+01, 0.26467E+01, 0.26631E+01, $ 0.26796E+01, 0.26960E+01, 0.27125E+01, 0.27289E+01, 0.27454E+01, $ 0.27618E+01, 0.27782E+01, 0.27947E+01, 0.28111E+01, 0.28275E+01, $ 0.28439E+01, 0.28603E+01, 0.28767E+01, 0.28931E+01, 0.29095E+01, $ 0.29259E+01, 0.29423E+01, 0.29587E+01, 0.29751E+01, 0.29914E+01, $ 0.30078E+01, 0.30242E+01, 0.30406E+01, 0.30570E+01, 0.30733E+01, $ 0.30897E+01, 0.31061E+01, 0.31224E+01, 0.31388E+01, 0.31551E+01, $ 0.31715E+01, 0.31878E+01, 0.32042E+01, 0.32205E+01, 0.32368E+01, $ 0.32531E+01, 0.32695E+01, 0.32858E+01, 0.33021E+01, 0.33184E+01, $ 0.33347E+01, 0.33510E+01, 0.33673E+01, 0.33837E+01, 0.34000E+01, $ 0.34163E+01, 0.34326E+01, 0.34489E+01, 0.34652E+01, 0.34815E+01, $ 0.34978E+01, 0.35141E+01, 0.35304E+01, 0.35467E+01, 0.35630E+01, $ 0.35793E+01, 0.35956E+01, 0.36119E+01, 0.36281E+01, 0.36444E+01 $ / data etab(:,2) / $ 0.22367E-04, 0.23483E-04, 0.24659E-04, 0.25894E-04, 0.27187E-04, $ 0.28551E-04, 0.29977E-04, 0.31474E-04, 0.33046E-04, 0.34697E-04, $ 0.36435E-04, 0.38258E-04, 0.40170E-04, 0.42182E-04, 0.44289E-04, $ 0.46503E-04, 0.48830E-04, 0.51271E-04, 0.53832E-04, 0.56528E-04, $ 0.59355E-04, 0.62324E-04, 0.65439E-04, 0.68712E-04, 0.72146E-04, $ 0.75758E-04, 0.79543E-04, 0.83522E-04, 0.87696E-04, 0.92079E-04, $ 0.96686E-04, 0.10152E-03, 0.10660E-03, 0.11193E-03, 0.11752E-03, $ 0.12340E-03, 0.12957E-03, 0.13605E-03, 0.14285E-03, 0.14999E-03, $ 0.15748E-03, 0.16536E-03, 0.17363E-03, 0.18231E-03, 0.19143E-03, $ 0.20100E-03, 0.21105E-03, 0.22160E-03, 0.23268E-03, 0.24431E-03, $ 0.25652E-03, 0.26935E-03, 0.28282E-03, 0.29696E-03, 0.31180E-03, $ 0.32739E-03, 0.34376E-03, 0.36094E-03, 0.37898E-03, 0.39793E-03, $ 0.41782E-03, 0.43871E-03, 0.46064E-03, 0.48366E-03, 0.50784E-03, $ 0.53322E-03, 0.55988E-03, 0.58786E-03, 0.61725E-03, 0.64810E-03, $ 0.68049E-03, 0.71451E-03, 0.75022E-03, 0.78771E-03, 0.82708E-03, $ 0.86841E-03, 0.91182E-03, 0.95739E-03, 0.10052E-02, 0.10555E-02, $ 0.11082E-02, 0.11636E-02, 0.12217E-02, 0.12828E-02, 0.13469E-02, $ 0.14142E-02, 0.14848E-02, 0.15590E-02, 0.16369E-02, 0.17186E-02, $ 0.18045E-02, 0.18946E-02, 0.19892E-02, 0.20886E-02, 0.21929E-02, $ 0.23024E-02, 0.24174E-02, 0.25381E-02, 0.26648E-02, 0.27979E-02, $ 0.29375E-02, 0.30842E-02, 0.32381E-02, 0.33997E-02, 0.35694E-02, $ 0.37475E-02, 0.39345E-02, 0.41308E-02, 0.43369E-02, 0.45532E-02, $ 0.47803E-02, 0.50186E-02, 0.52688E-02, 0.55315E-02, 0.58073E-02, $ 0.60967E-02, 0.64005E-02, 0.67194E-02, 0.70540E-02, 0.74054E-02, $ 0.77741E-02, 0.81611E-02, 0.85673E-02, 0.89936E-02, 0.94410E-02, $ 0.99106E-02, 0.10403E-01, 0.10921E-01, 0.11463E-01, 0.12033E-01, $ 0.12630E-01, 0.13257E-01, 0.13915E-01, 0.14606E-01, 0.15330E-01, $ 0.16090E-01, 0.16887E-01, 0.17724E-01, 0.18601E-01, 0.19521E-01, $ 0.20487E-01, 0.21499E-01, 0.22561E-01, 0.23675E-01, 0.24843E-01, $ 0.26068E-01, 0.27352E-01, 0.28699E-01, 0.30111E-01, 0.31591E-01, $ 0.33143E-01, 0.34769E-01, 0.36474E-01, 0.38260E-01, 0.40132E-01, $ 0.42094E-01, 0.44149E-01, 0.46301E-01, 0.48556E-01, 0.50918E-01, $ 0.53391E-01, 0.55981E-01, 0.58692E-01, 0.61530E-01, 0.64500E-01, $ 0.67608E-01, 0.70859E-01, 0.74261E-01, 0.77819E-01, 0.81540E-01, $ 0.85429E-01, 0.89495E-01, 0.93744E-01, 0.98184E-01, 0.10282E+00, $ 0.10766E+00, 0.11272E+00, 0.11800E+00, 0.12350E+00, 0.12925E+00, $ 0.13524E+00, 0.14148E+00, 0.14799E+00, 0.15477E+00, 0.16182E+00, $ 0.16917E+00, 0.17682E+00, 0.18477E+00, 0.19304E+00, 0.20163E+00, $ 0.21055E+00, 0.21981E+00, 0.22942E+00, 0.23939E+00, 0.24972E+00, $ 0.26042E+00, 0.27150E+00, 0.28296E+00, 0.29481E+00, 0.30706E+00, $ 0.31970E+00, 0.33274E+00, 0.34618E+00, 0.36004E+00, 0.37430E+00, $ 0.38896E+00, 0.40403E+00, 0.41951E+00, 0.43538E+00, 0.45165E+00, $ 0.46831E+00, 0.48535E+00, 0.50276E+00, 0.52054E+00, 0.53868E+00, $ 0.55715E+00, 0.57596E+00, 0.59508E+00, 0.61450E+00, 0.63421E+00, $ 0.65418E+00, 0.67440E+00, 0.69485E+00, 0.71551E+00, 0.73637E+00, $ 0.75740E+00, 0.77859E+00, 0.79990E+00, 0.82134E+00, 0.84287E+00, $ 0.86448E+00, 0.88616E+00, 0.90788E+00, 0.92963E+00, 0.95139E+00, $ 0.97317E+00, 0.99493E+00, 0.10167E+01, 0.10384E+01, 0.10601E+01, $ 0.10817E+01, 0.11033E+01, 0.11248E+01, 0.11463E+01, 0.11677E+01, $ 0.11891E+01, 0.12104E+01, 0.12316E+01, 0.12528E+01, 0.12739E+01, $ 0.12950E+01, 0.13160E+01, 0.13369E+01, 0.13578E+01, 0.13786E+01, $ 0.13994E+01, 0.14201E+01, 0.14407E+01, 0.14614E+01, 0.14819E+01, $ 0.15024E+01, 0.15229E+01, 0.15434E+01, 0.15637E+01, 0.15841E+01, $ 0.16044E+01, 0.16247E+01, 0.16449E+01, 0.16652E+01, 0.16853E+01, $ 0.17055E+01, 0.17256E+01, 0.17457E+01, 0.17658E+01, 0.17858E+01, $ 0.18058E+01, 0.18258E+01, 0.18457E+01, 0.18657E+01, 0.18856E+01, $ 0.19055E+01, 0.19254E+01, 0.19452E+01, 0.19651E+01, 0.19849E+01, $ 0.20047E+01, 0.20245E+01, 0.20442E+01, 0.20640E+01, 0.20837E+01, $ 0.21035E+01, 0.21232E+01, 0.21428E+01, 0.21625E+01, 0.21822E+01, $ 0.22018E+01, 0.22215E+01, 0.22411E+01, 0.22607E+01, 0.22803E+01, $ 0.22999E+01, 0.23195E+01, 0.23390E+01, 0.23586E+01, 0.23781E+01, $ 0.23977E+01, 0.24172E+01, 0.24367E+01, 0.24562E+01, 0.24757E+01, $ 0.24952E+01, 0.25146E+01, 0.25341E+01, 0.25535E+01, 0.25730E+01, $ 0.25924E+01, 0.26118E+01, 0.26313E+01, 0.26507E+01, 0.26701E+01, $ 0.26895E+01, 0.27089E+01, 0.27282E+01, 0.27476E+01, 0.27670E+01, $ 0.27863E+01, 0.28057E+01, 0.28250E+01, 0.28444E+01, 0.28637E+01, $ 0.28830E+01, 0.29023E+01, 0.29216E+01, 0.29409E+01, 0.29602E+01, $ 0.29795E+01, 0.29988E+01, 0.30181E+01, 0.30374E+01, 0.30566E+01, $ 0.30759E+01, 0.30951E+01, 0.31144E+01, 0.31336E+01, 0.31529E+01, $ 0.31721E+01, 0.31914E+01, 0.32106E+01, 0.32298E+01, 0.32490E+01, $ 0.32682E+01, 0.32874E+01, 0.33066E+01, 0.33258E+01, 0.33450E+01, $ 0.33642E+01, 0.33833E+01, 0.34025E+01, 0.34217E+01, 0.34409E+01, $ 0.34600E+01, 0.34792E+01, 0.34983E+01, 0.35175E+01, 0.35366E+01, $ 0.35558E+01, 0.35749E+01, 0.35940E+01, 0.36132E+01, 0.36323E+01, $ 0.36514E+01, 0.36705E+01, 0.36896E+01, 0.37087E+01, 0.37278E+01, $ 0.37469E+01, 0.37660E+01, 0.37851E+01, 0.38042E+01, 0.38233E+01, $ 0.38424E+01, 0.38614E+01, 0.38805E+01, 0.38996E+01, 0.39186E+01, $ 0.39377E+01, 0.39568E+01, 0.39758E+01, 0.39949E+01, 0.40139E+01, $ 0.40330E+01, 0.40520E+01, 0.40711E+01, 0.40901E+01, 0.41091E+01, $ 0.41282E+01, 0.41472E+01, 0.41662E+01, 0.41852E+01, 0.42042E+01 $ / data etab(:,3) / $ 0.22385E-04, 0.23502E-04, 0.24680E-04, 0.25911E-04, 0.27207E-04, $ 0.28568E-04, 0.29997E-04, 0.31496E-04, 0.33071E-04, 0.34725E-04, $ 0.36462E-04, 0.38289E-04, 0.40202E-04, 0.42211E-04, 0.44321E-04, $ 0.46538E-04, 0.48866E-04, 0.51309E-04, 0.53873E-04, 0.56570E-04, $ 0.59397E-04, 0.62369E-04, 0.65485E-04, 0.68765E-04, 0.72201E-04, $ 0.75814E-04, 0.79603E-04, 0.83583E-04, 0.87763E-04, 0.92148E-04, $ 0.96759E-04, 0.10160E-03, 0.10668E-03, 0.11201E-03, 0.11761E-03, $ 0.12349E-03, 0.12967E-03, 0.13615E-03, 0.14296E-03, 0.15010E-03, $ 0.15761E-03, 0.16549E-03, 0.17376E-03, 0.18245E-03, 0.19157E-03, $ 0.20115E-03, 0.21121E-03, 0.22177E-03, 0.23285E-03, 0.24450E-03, $ 0.25672E-03, 0.26956E-03, 0.28304E-03, 0.29718E-03, 0.31204E-03, $ 0.32764E-03, 0.34403E-03, 0.36122E-03, 0.37928E-03, 0.39824E-03, $ 0.41815E-03, 0.43905E-03, 0.46100E-03, 0.48404E-03, 0.50824E-03, $ 0.53365E-03, 0.56032E-03, 0.58833E-03, 0.61774E-03, 0.64862E-03, $ 0.68104E-03, 0.71508E-03, 0.75082E-03, 0.78835E-03, 0.82775E-03, $ 0.86912E-03, 0.91257E-03, 0.95817E-03, 0.10061E-02, 0.10563E-02, $ 0.11091E-02, 0.11646E-02, 0.12228E-02, 0.12839E-02, 0.13480E-02, $ 0.14154E-02, 0.14861E-02, 0.15603E-02, 0.16383E-02, 0.17201E-02, $ 0.18061E-02, 0.18963E-02, 0.19910E-02, 0.20905E-02, 0.21949E-02, $ 0.23045E-02, 0.24196E-02, 0.25405E-02, 0.26673E-02, 0.28005E-02, $ 0.29404E-02, 0.30872E-02, 0.32413E-02, 0.34031E-02, 0.35730E-02, $ 0.37513E-02, 0.39385E-02, 0.41351E-02, 0.43414E-02, 0.45580E-02, $ 0.47854E-02, 0.50241E-02, 0.52747E-02, 0.55378E-02, 0.58139E-02, $ 0.61038E-02, 0.64081E-02, 0.67275E-02, 0.70628E-02, 0.74147E-02, $ 0.77841E-02, 0.81718E-02, 0.85788E-02, 0.90060E-02, 0.94543E-02, $ 0.99248E-02, 0.10419E-01, 0.10937E-01, 0.11481E-01, 0.12052E-01, $ 0.12651E-01, 0.13279E-01, 0.13939E-01, 0.14631E-01, 0.15358E-01, $ 0.16120E-01, 0.16919E-01, 0.17758E-01, 0.18639E-01, 0.19562E-01, $ 0.20531E-01, 0.21547E-01, 0.22613E-01, 0.23731E-01, 0.24904E-01, $ 0.26134E-01, 0.27424E-01, 0.28777E-01, 0.30196E-01, 0.31684E-01, $ 0.33243E-01, 0.34878E-01, 0.36593E-01, 0.38390E-01, 0.40273E-01, $ 0.42247E-01, 0.44316E-01, 0.46484E-01, 0.48755E-01, 0.51135E-01, $ 0.53628E-01, 0.56239E-01, 0.58973E-01, 0.61837E-01, 0.64835E-01, $ 0.67974E-01, 0.71259E-01, 0.74698E-01, 0.78296E-01, 0.82061E-01, $ 0.85999E-01, 0.90117E-01, 0.94424E-01, 0.98926E-01, 0.10363E+00, $ 0.10855E+00, 0.11369E+00, 0.11905E+00, 0.12466E+00, 0.13051E+00, $ 0.13662E+00, 0.14299E+00, 0.14963E+00, 0.15656E+00, 0.16378E+00, $ 0.17131E+00, 0.17915E+00, 0.18731E+00, 0.19581E+00, 0.20465E+00, $ 0.21385E+00, 0.22341E+00, 0.23334E+00, 0.24365E+00, 0.25436E+00, $ 0.26547E+00, 0.27698E+00, 0.28892E+00, 0.30128E+00, 0.31408E+00, $ 0.32732E+00, 0.34100E+00, 0.35514E+00, 0.36974E+00, 0.38479E+00, $ 0.40031E+00, 0.41630E+00, 0.43275E+00, 0.44967E+00, 0.46705E+00, $ 0.48489E+00, 0.50320E+00, 0.52195E+00, 0.54115E+00, 0.56079E+00, $ 0.58085E+00, 0.60133E+00, 0.62222E+00, 0.64349E+00, 0.66514E+00, $ 0.68715E+00, 0.70949E+00, 0.73216E+00, 0.75513E+00, 0.77839E+00, $ 0.80190E+00, 0.82565E+00, 0.84962E+00, 0.87378E+00, 0.89812E+00, $ 0.92260E+00, 0.94722E+00, 0.97194E+00, 0.99675E+00, 0.10216E+01, $ 0.10465E+01, 0.10715E+01, 0.10965E+01, 0.11215E+01, 0.11464E+01, $ 0.11714E+01, 0.11963E+01, 0.12211E+01, 0.12460E+01, 0.12707E+01, $ 0.12954E+01, 0.13200E+01, 0.13446E+01, 0.13691E+01, 0.13935E+01, $ 0.14179E+01, 0.14421E+01, 0.14663E+01, 0.14905E+01, 0.15145E+01, $ 0.15385E+01, 0.15625E+01, 0.15863E+01, 0.16102E+01, 0.16339E+01, $ 0.16576E+01, 0.16812E+01, 0.17048E+01, 0.17283E+01, 0.17518E+01, $ 0.17752E+01, 0.17986E+01, 0.18219E+01, 0.18452E+01, 0.18685E+01, $ 0.18917E+01, 0.19148E+01, 0.19380E+01, 0.19611E+01, 0.19841E+01, $ 0.20071E+01, 0.20301E+01, 0.20531E+01, 0.20760E+01, 0.20989E+01, $ 0.21218E+01, 0.21446E+01, 0.21675E+01, 0.21903E+01, 0.22130E+01, $ 0.22358E+01, 0.22585E+01, 0.22812E+01, 0.23039E+01, 0.23266E+01, $ 0.23492E+01, 0.23718E+01, 0.23945E+01, 0.24170E+01, 0.24396E+01, $ 0.24622E+01, 0.24847E+01, 0.25072E+01, 0.25297E+01, 0.25522E+01, $ 0.25747E+01, 0.25972E+01, 0.26196E+01, 0.26420E+01, 0.26645E+01, $ 0.26869E+01, 0.27093E+01, 0.27317E+01, 0.27540E+01, 0.27764E+01, $ 0.27987E+01, 0.28211E+01, 0.28434E+01, 0.28657E+01, 0.28880E+01, $ 0.29103E+01, 0.29326E+01, 0.29548E+01, 0.29771E+01, 0.29993E+01, $ 0.30216E+01, 0.30438E+01, 0.30660E+01, 0.30882E+01, 0.31104E+01, $ 0.31326E+01, 0.31548E+01, 0.31769E+01, 0.31991E+01, 0.32213E+01, $ 0.32434E+01, 0.32655E+01, 0.32877E+01, 0.33098E+01, 0.33319E+01, $ 0.33540E+01, 0.33761E+01, 0.33982E+01, 0.34203E+01, 0.34424E+01, $ 0.34644E+01, 0.34865E+01, 0.35085E+01, 0.35306E+01, 0.35526E+01, $ 0.35747E+01, 0.35967E+01, 0.36187E+01, 0.36407E+01, 0.36627E+01, $ 0.36847E+01, 0.37067E+01, 0.37287E+01, 0.37507E+01, 0.37726E+01, $ 0.37946E+01, 0.38166E+01, 0.38385E+01, 0.38605E+01, 0.38824E+01, $ 0.39043E+01, 0.39263E+01, 0.39482E+01, 0.39701E+01, 0.39920E+01, $ 0.40139E+01, 0.40358E+01, 0.40577E+01, 0.40796E+01, 0.41015E+01, $ 0.41233E+01, 0.41452E+01, 0.41671E+01, 0.41889E+01, 0.42108E+01, $ 0.42326E+01, 0.42544E+01, 0.42762E+01, 0.42981E+01, 0.43199E+01, $ 0.43417E+01, 0.43635E+01, 0.43853E+01, 0.44070E+01, 0.44288E+01, $ 0.44506E+01, 0.44723E+01, 0.44941E+01, 0.45158E+01, 0.45376E+01, $ 0.45593E+01, 0.45810E+01, 0.46027E+01, 0.46244E+01, 0.46461E+01, $ 0.46678E+01, 0.46895E+01, 0.47112E+01, 0.47328E+01, 0.47545E+01 $ / data etab(:,4) / $ 0.22391E-04, 0.23513E-04, 0.24689E-04, 0.25924E-04, 0.27221E-04, $ 0.28584E-04, 0.30016E-04, 0.31518E-04, 0.33090E-04, 0.34747E-04, $ 0.36488E-04, 0.38310E-04, 0.40221E-04, 0.42239E-04, 0.44349E-04, $ 0.46569E-04, 0.48897E-04, 0.51342E-04, 0.53908E-04, 0.56603E-04, $ 0.59435E-04, 0.62408E-04, 0.65527E-04, 0.68804E-04, 0.72242E-04, $ 0.75857E-04, 0.79653E-04, 0.83637E-04, 0.87816E-04, 0.92210E-04, $ 0.96818E-04, 0.10166E-03, 0.10674E-03, 0.11208E-03, 0.11768E-03, $ 0.12357E-03, 0.12975E-03, 0.13624E-03, 0.14305E-03, 0.15020E-03, $ 0.15771E-03, 0.16560E-03, 0.17387E-03, 0.18256E-03, 0.19170E-03, $ 0.20128E-03, 0.21134E-03, 0.22191E-03, 0.23300E-03, 0.24465E-03, $ 0.25689E-03, 0.26973E-03, 0.28322E-03, 0.29738E-03, 0.31225E-03, $ 0.32786E-03, 0.34424E-03, 0.36145E-03, 0.37952E-03, 0.39850E-03, $ 0.41842E-03, 0.43934E-03, 0.46130E-03, 0.48436E-03, 0.50858E-03, $ 0.53400E-03, 0.56069E-03, 0.58872E-03, 0.61815E-03, 0.64905E-03, $ 0.68150E-03, 0.71556E-03, 0.75132E-03, 0.78888E-03, 0.82831E-03, $ 0.86972E-03, 0.91319E-03, 0.95882E-03, 0.10068E-02, 0.10571E-02, $ 0.11099E-02, 0.11654E-02, 0.12236E-02, 0.12848E-02, 0.13490E-02, $ 0.14164E-02, 0.14871E-02, 0.15614E-02, 0.16395E-02, 0.17214E-02, $ 0.18074E-02, 0.18977E-02, 0.19925E-02, 0.20920E-02, 0.21965E-02, $ 0.23063E-02, 0.24215E-02, 0.25424E-02, 0.26694E-02, 0.28027E-02, $ 0.29427E-02, 0.30896E-02, 0.32439E-02, 0.34059E-02, 0.35759E-02, $ 0.37544E-02, 0.39418E-02, 0.41386E-02, 0.43452E-02, 0.45620E-02, $ 0.47897E-02, 0.50286E-02, 0.52795E-02, 0.55429E-02, 0.58194E-02, $ 0.61096E-02, 0.64143E-02, 0.67341E-02, 0.70698E-02, 0.74223E-02, $ 0.77922E-02, 0.81805E-02, 0.85881E-02, 0.90159E-02, 0.94649E-02, $ 0.99363E-02, 0.10431E-01, 0.10950E-01, 0.11495E-01, 0.12067E-01, $ 0.12667E-01, 0.13297E-01, 0.13958E-01, 0.14652E-01, 0.15380E-01, $ 0.16144E-01, 0.16945E-01, 0.17786E-01, 0.18669E-01, 0.19595E-01, $ 0.20566E-01, 0.21585E-01, 0.22654E-01, 0.23776E-01, 0.24953E-01, $ 0.26187E-01, 0.27481E-01, 0.28839E-01, 0.30263E-01, 0.31757E-01, $ 0.33323E-01, 0.34965E-01, 0.36686E-01, 0.38492E-01, 0.40384E-01, $ 0.42368E-01, 0.44448E-01, 0.46627E-01, 0.48912E-01, 0.51305E-01, $ 0.53814E-01, 0.56442E-01, 0.59195E-01, 0.62079E-01, 0.65099E-01, $ 0.68262E-01, 0.71574E-01, 0.75042E-01, 0.78672E-01, 0.82471E-01, $ 0.86447E-01, 0.90607E-01, 0.94959E-01, 0.99512E-01, 0.10427E+00, $ 0.10925E+00, 0.11445E+00, 0.11989E+00, 0.12557E+00, 0.13151E+00, $ 0.13770E+00, 0.14418E+00, 0.15093E+00, 0.15798E+00, 0.16533E+00, $ 0.17300E+00, 0.18100E+00, 0.18933E+00, 0.19802E+00, 0.20706E+00, $ 0.21647E+00, 0.22627E+00, 0.23646E+00, 0.24705E+00, 0.25806E+00, $ 0.26950E+00, 0.28137E+00, 0.29370E+00, 0.30648E+00, 0.31973E+00, $ 0.33345E+00, 0.34767E+00, 0.36237E+00, 0.37758E+00, 0.39330E+00, $ 0.40953E+00, 0.42628E+00, 0.44355E+00, 0.46134E+00, 0.47966E+00, $ 0.49851E+00, 0.51788E+00, 0.53778E+00, 0.55819E+00, 0.57912E+00, $ 0.60055E+00, 0.62249E+00, 0.64490E+00, 0.66780E+00, 0.69116E+00, $ 0.71496E+00, 0.73919E+00, 0.76384E+00, 0.78889E+00, 0.81430E+00, $ 0.84007E+00, 0.86616E+00, 0.89256E+00, 0.91924E+00, 0.94618E+00, $ 0.97334E+00, 0.10007E+01, 0.10283E+01, 0.10560E+01, 0.10838E+01, $ 0.11118E+01, 0.11398E+01, 0.11679E+01, 0.11961E+01, 0.12242E+01, $ 0.12524E+01, 0.12806E+01, 0.13088E+01, 0.13369E+01, 0.13650E+01, $ 0.13930E+01, 0.14210E+01, 0.14489E+01, 0.14767E+01, 0.15045E+01, $ 0.15322E+01, 0.15598E+01, 0.15873E+01, 0.16147E+01, 0.16421E+01, $ 0.16693E+01, 0.16965E+01, 0.17237E+01, 0.17507E+01, 0.17777E+01, $ 0.18046E+01, 0.18314E+01, 0.18582E+01, 0.18849E+01, 0.19115E+01, $ 0.19381E+01, 0.19646E+01, 0.19910E+01, 0.20174E+01, 0.20438E+01, $ 0.20701E+01, 0.20963E+01, 0.21225E+01, 0.21487E+01, 0.21748E+01, $ 0.22008E+01, 0.22269E+01, 0.22529E+01, 0.22788E+01, 0.23047E+01, $ 0.23306E+01, 0.23564E+01, 0.23822E+01, 0.24080E+01, 0.24338E+01, $ 0.24595E+01, 0.24852E+01, 0.25108E+01, 0.25365E+01, 0.25621E+01, $ 0.25877E+01, 0.26132E+01, 0.26388E+01, 0.26643E+01, 0.26898E+01, $ 0.27153E+01, 0.27407E+01, 0.27661E+01, 0.27916E+01, 0.28170E+01, $ 0.28423E+01, 0.28677E+01, 0.28930E+01, 0.29184E+01, 0.29437E+01, $ 0.29690E+01, 0.29942E+01, 0.30195E+01, 0.30447E+01, 0.30700E+01, $ 0.30952E+01, 0.31204E+01, 0.31456E+01, 0.31707E+01, 0.31959E+01, $ 0.32210E+01, 0.32462E+01, 0.32713E+01, 0.32964E+01, 0.33215E+01, $ 0.33466E+01, 0.33716E+01, 0.33967E+01, 0.34217E+01, 0.34467E+01, $ 0.34718E+01, 0.34968E+01, 0.35218E+01, 0.35468E+01, 0.35717E+01, $ 0.35967E+01, 0.36217E+01, 0.36466E+01, 0.36715E+01, 0.36964E+01, $ 0.37214E+01, 0.37463E+01, 0.37711E+01, 0.37960E+01, 0.38209E+01, $ 0.38458E+01, 0.38706E+01, 0.38954E+01, 0.39203E+01, 0.39451E+01, $ 0.39699E+01, 0.39947E+01, 0.40195E+01, 0.40443E+01, 0.40690E+01, $ 0.40938E+01, 0.41185E+01, 0.41433E+01, 0.41680E+01, 0.41927E+01, $ 0.42174E+01, 0.42421E+01, 0.42668E+01, 0.42915E+01, 0.43162E+01, $ 0.43408E+01, 0.43655E+01, 0.43901E+01, 0.44147E+01, 0.44393E+01, $ 0.44639E+01, 0.44885E+01, 0.45131E+01, 0.45377E+01, 0.45622E+01, $ 0.45867E+01, 0.46113E+01, 0.46358E+01, 0.46603E+01, 0.46847E+01, $ 0.47092E+01, 0.47337E+01, 0.47581E+01, 0.47825E+01, 0.48069E+01, $ 0.48313E+01, 0.48557E+01, 0.48800E+01, 0.49043E+01, 0.49286E+01, $ 0.49529E+01, 0.49772E+01, 0.50014E+01, 0.50257E+01, 0.50499E+01, $ 0.50740E+01, 0.50982E+01, 0.51223E+01, 0.51464E+01, 0.51705E+01, $ 0.51945E+01, 0.52185E+01, 0.52425E+01, 0.52665E+01, 0.52904E+01 $ / data etab(:,5) / $ 0.22404E-04, 0.23527E-04, 0.24703E-04, 0.25941E-04, 0.27233E-04, $ 0.28599E-04, 0.30027E-04, 0.31530E-04, 0.33110E-04, 0.34765E-04, $ 0.36505E-04, 0.38329E-04, 0.40248E-04, 0.42263E-04, 0.44376E-04, $ 0.46591E-04, 0.48922E-04, 0.51370E-04, 0.53937E-04, 0.56633E-04, $ 0.59469E-04, 0.62439E-04, 0.65564E-04, 0.68842E-04, 0.72282E-04, $ 0.75894E-04, 0.79692E-04, 0.83676E-04, 0.87860E-04, 0.92256E-04, $ 0.96870E-04, 0.10171E-03, 0.10680E-03, 0.11214E-03, 0.11775E-03, $ 0.12363E-03, 0.12982E-03, 0.13631E-03, 0.14312E-03, 0.15028E-03, $ 0.15780E-03, 0.16569E-03, 0.17397E-03, 0.18267E-03, 0.19180E-03, $ 0.20139E-03, 0.21146E-03, 0.22203E-03, 0.23313E-03, 0.24479E-03, $ 0.25703E-03, 0.26988E-03, 0.28337E-03, 0.29754E-03, 0.31242E-03, $ 0.32803E-03, 0.34444E-03, 0.36166E-03, 0.37973E-03, 0.39872E-03, $ 0.41865E-03, 0.43958E-03, 0.46156E-03, 0.48463E-03, 0.50886E-03, $ 0.53430E-03, 0.56101E-03, 0.58906E-03, 0.61850E-03, 0.64941E-03, $ 0.68188E-03, 0.71597E-03, 0.75175E-03, 0.78933E-03, 0.82878E-03, $ 0.87021E-03, 0.91371E-03, 0.95938E-03, 0.10073E-02, 0.10577E-02, $ 0.11105E-02, 0.11660E-02, 0.12243E-02, 0.12855E-02, 0.13498E-02, $ 0.14172E-02, 0.14880E-02, 0.15624E-02, 0.16405E-02, 0.17224E-02, $ 0.18085E-02, 0.18989E-02, 0.19937E-02, 0.20933E-02, 0.21979E-02, $ 0.23077E-02, 0.24230E-02, 0.25440E-02, 0.26711E-02, 0.28045E-02, $ 0.29446E-02, 0.30917E-02, 0.32461E-02, 0.34082E-02, 0.35784E-02, $ 0.37570E-02, 0.39446E-02, 0.41415E-02, 0.43483E-02, 0.45653E-02, $ 0.47932E-02, 0.50324E-02, 0.52835E-02, 0.55472E-02, 0.58239E-02, $ 0.61145E-02, 0.64195E-02, 0.67396E-02, 0.70758E-02, 0.74286E-02, $ 0.77989E-02, 0.81877E-02, 0.85958E-02, 0.90241E-02, 0.94738E-02, $ 0.99457E-02, 0.10441E-01, 0.10961E-01, 0.11507E-01, 0.12080E-01, $ 0.12681E-01, 0.13312E-01, 0.13974E-01, 0.14669E-01, 0.15398E-01, $ 0.16163E-01, 0.16966E-01, 0.17809E-01, 0.18693E-01, 0.19621E-01, $ 0.20595E-01, 0.21616E-01, 0.22688E-01, 0.23813E-01, 0.24992E-01, $ 0.26230E-01, 0.27528E-01, 0.28890E-01, 0.30318E-01, 0.31816E-01, $ 0.33387E-01, 0.35035E-01, 0.36763E-01, 0.38575E-01, 0.40475E-01, $ 0.42466E-01, 0.44555E-01, 0.46744E-01, 0.49039E-01, 0.51444E-01, $ 0.53965E-01, 0.56606E-01, 0.59374E-01, 0.62275E-01, 0.65313E-01, $ 0.68496E-01, 0.71829E-01, 0.75320E-01, 0.78976E-01, 0.82803E-01, $ 0.86810E-01, 0.91004E-01, 0.95393E-01, 0.99985E-01, 0.10479E+00, $ 0.10981E+00, 0.11507E+00, 0.12057E+00, 0.12631E+00, 0.13231E+00, $ 0.13859E+00, 0.14514E+00, 0.15199E+00, 0.15913E+00, 0.16659E+00, $ 0.17438E+00, 0.18250E+00, 0.19097E+00, 0.19981E+00, 0.20901E+00, $ 0.21861E+00, 0.22860E+00, 0.23900E+00, 0.24982E+00, 0.26108E+00, $ 0.27279E+00, 0.28497E+00, 0.29761E+00, 0.31074E+00, 0.32437E+00, $ 0.33850E+00, 0.35315E+00, 0.36834E+00, 0.38406E+00, 0.40033E+00, $ 0.41716E+00, 0.43455E+00, 0.45252E+00, 0.47105E+00, 0.49018E+00, $ 0.50988E+00, 0.53017E+00, 0.55105E+00, 0.57251E+00, 0.59456E+00, $ 0.61718E+00, 0.64038E+00, 0.66414E+00, 0.68846E+00, 0.71332E+00, $ 0.73872E+00, 0.76464E+00, 0.79106E+00, 0.81796E+00, 0.84532E+00, $ 0.87313E+00, 0.90136E+00, 0.92998E+00, 0.95898E+00, 0.98832E+00, $ 0.10180E+01, 0.10479E+01, 0.10781E+01, 0.11086E+01, 0.11392E+01, $ 0.11701E+01, 0.12011E+01, 0.12322E+01, 0.12634E+01, 0.12947E+01, $ 0.13260E+01, 0.13574E+01, 0.13888E+01, 0.14202E+01, 0.14516E+01, $ 0.14829E+01, 0.15142E+01, 0.15455E+01, 0.15766E+01, 0.16077E+01, $ 0.16388E+01, 0.16697E+01, 0.17006E+01, 0.17313E+01, 0.17620E+01, $ 0.17926E+01, 0.18231E+01, 0.18535E+01, 0.18838E+01, 0.19140E+01, $ 0.19442E+01, 0.19742E+01, 0.20042E+01, 0.20341E+01, 0.20639E+01, $ 0.20937E+01, 0.21234E+01, 0.21530E+01, 0.21825E+01, 0.22120E+01, $ 0.22414E+01, 0.22708E+01, 0.23001E+01, 0.23293E+01, 0.23585E+01, $ 0.23876E+01, 0.24167E+01, 0.24458E+01, 0.24747E+01, 0.25037E+01, $ 0.25326E+01, 0.25614E+01, 0.25903E+01, 0.26190E+01, 0.26478E+01, $ 0.26765E+01, 0.27052E+01, 0.27338E+01, 0.27624E+01, 0.27910E+01, $ 0.28195E+01, 0.28480E+01, 0.28765E+01, 0.29049E+01, 0.29334E+01, $ 0.29618E+01, 0.29901E+01, 0.30185E+01, 0.30468E+01, 0.30751E+01, $ 0.31034E+01, 0.31317E+01, 0.31599E+01, 0.31881E+01, 0.32163E+01, $ 0.32445E+01, 0.32727E+01, 0.33008E+01, 0.33289E+01, 0.33570E+01, $ 0.33851E+01, 0.34132E+01, 0.34412E+01, 0.34692E+01, 0.34972E+01, $ 0.35252E+01, 0.35532E+01, 0.35812E+01, 0.36091E+01, 0.36370E+01, $ 0.36649E+01, 0.36928E+01, 0.37207E+01, 0.37486E+01, 0.37764E+01, $ 0.38042E+01, 0.38321E+01, 0.38599E+01, 0.38876E+01, 0.39154E+01, $ 0.39432E+01, 0.39709E+01, 0.39986E+01, 0.40263E+01, 0.40540E+01, $ 0.40817E+01, 0.41094E+01, 0.41370E+01, 0.41647E+01, 0.41923E+01, $ 0.42199E+01, 0.42475E+01, 0.42750E+01, 0.43026E+01, 0.43301E+01, $ 0.43577E+01, 0.43852E+01, 0.44127E+01, 0.44401E+01, 0.44676E+01, $ 0.44950E+01, 0.45225E+01, 0.45499E+01, 0.45772E+01, 0.46046E+01, $ 0.46319E+01, 0.46593E+01, 0.46866E+01, 0.47139E+01, 0.47411E+01, $ 0.47684E+01, 0.47956E+01, 0.48228E+01, 0.48499E+01, 0.48771E+01, $ 0.49042E+01, 0.49313E+01, 0.49584E+01, 0.49854E+01, 0.50124E+01, $ 0.50394E+01, 0.50663E+01, 0.50932E+01, 0.51201E+01, 0.51469E+01, $ 0.51738E+01, 0.52005E+01, 0.52273E+01, 0.52540E+01, 0.52806E+01, $ 0.53072E+01, 0.53338E+01, 0.53603E+01, 0.53868E+01, 0.54132E+01, $ 0.54396E+01, 0.54659E+01, 0.54922E+01, 0.55184E+01, 0.55445E+01, $ 0.55706E+01, 0.55966E+01, 0.56226E+01, 0.56484E+01, 0.56742E+01, $ 0.57000E+01, 0.57256E+01, 0.57512E+01, 0.57767E+01, 0.58021E+01 $ / data etab(:,6) / $ 0.22416E-04, 0.23538E-04, 0.24713E-04, 0.25955E-04, 0.27247E-04, $ 0.28610E-04, 0.30045E-04, 0.31543E-04, 0.33124E-04, 0.34776E-04, $ 0.36518E-04, 0.38344E-04, 0.40264E-04, 0.42276E-04, 0.44390E-04, $ 0.46614E-04, 0.48945E-04, 0.51394E-04, 0.53960E-04, 0.56661E-04, $ 0.59494E-04, 0.62471E-04, 0.65595E-04, 0.68876E-04, 0.72317E-04, $ 0.75938E-04, 0.79730E-04, 0.83716E-04, 0.87905E-04, 0.92305E-04, $ 0.96918E-04, 0.10176E-03, 0.10685E-03, 0.11219E-03, 0.11780E-03, $ 0.12370E-03, 0.12988E-03, 0.13638E-03, 0.14320E-03, 0.15035E-03, $ 0.15787E-03, 0.16577E-03, 0.17405E-03, 0.18276E-03, 0.19189E-03, $ 0.20149E-03, 0.21156E-03, 0.22214E-03, 0.23325E-03, 0.24490E-03, $ 0.25715E-03, 0.27000E-03, 0.28351E-03, 0.29768E-03, 0.31256E-03, $ 0.32819E-03, 0.34460E-03, 0.36183E-03, 0.37992E-03, 0.39891E-03, $ 0.41885E-03, 0.43979E-03, 0.46178E-03, 0.48487E-03, 0.50911E-03, $ 0.53456E-03, 0.56128E-03, 0.58934E-03, 0.61880E-03, 0.64974E-03, $ 0.68221E-03, 0.71632E-03, 0.75212E-03, 0.78972E-03, 0.82920E-03, $ 0.87064E-03, 0.91416E-03, 0.95985E-03, 0.10078E-02, 0.10582E-02, $ 0.11111E-02, 0.11666E-02, 0.12249E-02, 0.12862E-02, 0.13504E-02, $ 0.14179E-02, 0.14888E-02, 0.15632E-02, 0.16413E-02, 0.17233E-02, $ 0.18094E-02, 0.18999E-02, 0.19948E-02, 0.20945E-02, 0.21991E-02, $ 0.23090E-02, 0.24243E-02, 0.25454E-02, 0.26726E-02, 0.28061E-02, $ 0.29463E-02, 0.30934E-02, 0.32479E-02, 0.34101E-02, 0.35805E-02, $ 0.37592E-02, 0.39470E-02, 0.41440E-02, 0.43509E-02, 0.45682E-02, $ 0.47962E-02, 0.50356E-02, 0.52869E-02, 0.55508E-02, 0.58278E-02, $ 0.61186E-02, 0.64239E-02, 0.67443E-02, 0.70807E-02, 0.74339E-02, $ 0.78046E-02, 0.81938E-02, 0.86023E-02, 0.90311E-02, 0.94813E-02, $ 0.99537E-02, 0.10450E-01, 0.10970E-01, 0.11517E-01, 0.12090E-01, $ 0.12692E-01, 0.13324E-01, 0.13987E-01, 0.14683E-01, 0.15413E-01, $ 0.16180E-01, 0.16984E-01, 0.17828E-01, 0.18714E-01, 0.19644E-01, $ 0.20619E-01, 0.21642E-01, 0.22716E-01, 0.23843E-01, 0.25025E-01, $ 0.26265E-01, 0.27567E-01, 0.28932E-01, 0.30363E-01, 0.31865E-01, $ 0.33441E-01, 0.35093E-01, 0.36826E-01, 0.38644E-01, 0.40549E-01, $ 0.42548E-01, 0.44644E-01, 0.46841E-01, 0.49144E-01, 0.51559E-01, $ 0.54090E-01, 0.56743E-01, 0.59523E-01, 0.62437E-01, 0.65490E-01, $ 0.68689E-01, 0.72040E-01, 0.75550E-01, 0.79227E-01, 0.83078E-01, $ 0.87110E-01, 0.91331E-01, 0.95750E-01, 0.10038E+00, 0.10522E+00, $ 0.11028E+00, 0.11558E+00, 0.12112E+00, 0.12692E+00, 0.13298E+00, $ 0.13932E+00, 0.14594E+00, 0.15286E+00, 0.16009E+00, 0.16764E+00, $ 0.17552E+00, 0.18375E+00, 0.19234E+00, 0.20129E+00, 0.21064E+00, $ 0.22038E+00, 0.23053E+00, 0.24111E+00, 0.25213E+00, 0.26360E+00, $ 0.27554E+00, 0.28796E+00, 0.30088E+00, 0.31430E+00, 0.32824E+00, $ 0.34272E+00, 0.35775E+00, 0.37334E+00, 0.38950E+00, 0.40625E+00, $ 0.42358E+00, 0.44153E+00, 0.46008E+00, 0.47926E+00, 0.49907E+00, $ 0.51952E+00, 0.54060E+00, 0.56233E+00, 0.58471E+00, 0.60773E+00, $ 0.63139E+00, 0.65570E+00, 0.68065E+00, 0.70623E+00, 0.73243E+00, $ 0.75925E+00, 0.78666E+00, 0.81466E+00, 0.84324E+00, 0.87236E+00, $ 0.90202E+00, 0.93220E+00, 0.96285E+00, 0.99397E+00, 0.10255E+01, $ 0.10575E+01, 0.10898E+01, 0.11225E+01, 0.11556E+01, 0.11889E+01, $ 0.12224E+01, 0.12562E+01, 0.12902E+01, 0.13244E+01, 0.13587E+01, $ 0.13931E+01, 0.14276E+01, 0.14621E+01, 0.14967E+01, 0.15313E+01, $ 0.15659E+01, 0.16005E+01, 0.16351E+01, 0.16696E+01, 0.17040E+01, $ 0.17384E+01, 0.17727E+01, 0.18069E+01, 0.18410E+01, 0.18750E+01, $ 0.19089E+01, 0.19427E+01, 0.19765E+01, 0.20101E+01, 0.20436E+01, $ 0.20770E+01, 0.21103E+01, 0.21436E+01, 0.21767E+01, 0.22098E+01, $ 0.22427E+01, 0.22756E+01, 0.23084E+01, 0.23411E+01, 0.23737E+01, $ 0.24063E+01, 0.24388E+01, 0.24712E+01, 0.25036E+01, 0.25359E+01, $ 0.25681E+01, 0.26002E+01, 0.26324E+01, 0.26644E+01, 0.26964E+01, $ 0.27283E+01, 0.27602E+01, 0.27921E+01, 0.28239E+01, 0.28556E+01, $ 0.28873E+01, 0.29190E+01, 0.29506E+01, 0.29822E+01, 0.30137E+01, $ 0.30452E+01, 0.30767E+01, 0.31081E+01, 0.31395E+01, 0.31708E+01, $ 0.32022E+01, 0.32335E+01, 0.32648E+01, 0.32960E+01, 0.33272E+01, $ 0.33584E+01, 0.33895E+01, 0.34207E+01, 0.34518E+01, 0.34828E+01, $ 0.35139E+01, 0.35449E+01, 0.35759E+01, 0.36069E+01, 0.36379E+01, $ 0.36688E+01, 0.36997E+01, 0.37306E+01, 0.37614E+01, 0.37923E+01, $ 0.38231E+01, 0.38539E+01, 0.38847E+01, 0.39154E+01, 0.39461E+01, $ 0.39768E+01, 0.40075E+01, 0.40382E+01, 0.40688E+01, 0.40994E+01, $ 0.41300E+01, 0.41606E+01, 0.41912E+01, 0.42217E+01, 0.42522E+01, $ 0.42827E+01, 0.43131E+01, 0.43436E+01, 0.43740E+01, 0.44044E+01, $ 0.44348E+01, 0.44651E+01, 0.44954E+01, 0.45257E+01, 0.45560E+01, $ 0.45862E+01, 0.46164E+01, 0.46466E+01, 0.46768E+01, 0.47069E+01, $ 0.47370E+01, 0.47671E+01, 0.47971E+01, 0.48271E+01, 0.48571E+01, $ 0.48871E+01, 0.49170E+01, 0.49468E+01, 0.49767E+01, 0.50065E+01, $ 0.50363E+01, 0.50660E+01, 0.50957E+01, 0.51253E+01, 0.51549E+01, $ 0.51844E+01, 0.52139E+01, 0.52434E+01, 0.52728E+01, 0.53022E+01, $ 0.53315E+01, 0.53607E+01, 0.53899E+01, 0.54190E+01, 0.54481E+01, $ 0.54770E+01, 0.55060E+01, 0.55348E+01, 0.55636E+01, 0.55923E+01, $ 0.56210E+01, 0.56495E+01, 0.56780E+01, 0.57064E+01, 0.57347E+01, $ 0.57629E+01, 0.57910E+01, 0.58190E+01, 0.58469E+01, 0.58747E+01, $ 0.59024E+01, 0.59300E+01, 0.59575E+01, 0.59848E+01, 0.60121E+01, $ 0.60392E+01, 0.60662E+01, 0.60930E+01, 0.61197E+01, 0.61463E+01, $ 0.61727E+01, 0.61990E+01, 0.62251E+01, 0.62511E+01, 0.62769E+01 $ / data etab(:,7) / $ 0.22422E-04, 0.23545E-04, 0.24723E-04, 0.25960E-04, 0.27259E-04, $ 0.28622E-04, 0.30054E-04, 0.31558E-04, 0.33137E-04, 0.34796E-04, $ 0.36532E-04, 0.38361E-04, 0.40279E-04, 0.42294E-04, 0.44411E-04, $ 0.46634E-04, 0.48963E-04, 0.51411E-04, 0.53982E-04, 0.56680E-04, $ 0.59518E-04, 0.62493E-04, 0.65621E-04, 0.68903E-04, 0.72351E-04, $ 0.75965E-04, 0.79764E-04, 0.83753E-04, 0.87943E-04, 0.92338E-04, $ 0.96956E-04, 0.10180E-03, 0.10689E-03, 0.11224E-03, 0.11785E-03, $ 0.12375E-03, 0.12993E-03, 0.13643E-03, 0.14325E-03, 0.15041E-03, $ 0.15793E-03, 0.16583E-03, 0.17413E-03, 0.18283E-03, 0.19197E-03, $ 0.20157E-03, 0.21164E-03, 0.22223E-03, 0.23334E-03, 0.24501E-03, $ 0.25726E-03, 0.27012E-03, 0.28362E-03, 0.29780E-03, 0.31270E-03, $ 0.32833E-03, 0.34474E-03, 0.36198E-03, 0.38007E-03, 0.39907E-03, $ 0.41903E-03, 0.43998E-03, 0.46197E-03, 0.48507E-03, 0.50932E-03, $ 0.53478E-03, 0.56151E-03, 0.58958E-03, 0.61906E-03, 0.65001E-03, $ 0.68250E-03, 0.71662E-03, 0.75244E-03, 0.79005E-03, 0.82955E-03, $ 0.87102E-03, 0.91456E-03, 0.96027E-03, 0.10083E-02, 0.10587E-02, $ 0.11116E-02, 0.11671E-02, 0.12255E-02, 0.12867E-02, 0.13510E-02, $ 0.14186E-02, 0.14895E-02, 0.15639E-02, 0.16420E-02, 0.17241E-02, $ 0.18103E-02, 0.19007E-02, 0.19957E-02, 0.20954E-02, 0.22001E-02, $ 0.23101E-02, 0.24255E-02, 0.25467E-02, 0.26739E-02, 0.28075E-02, $ 0.29477E-02, 0.30949E-02, 0.32495E-02, 0.34119E-02, 0.35823E-02, $ 0.37612E-02, 0.39490E-02, 0.41462E-02, 0.43532E-02, 0.45706E-02, $ 0.47988E-02, 0.50383E-02, 0.52899E-02, 0.55539E-02, 0.58311E-02, $ 0.61221E-02, 0.64276E-02, 0.67483E-02, 0.70850E-02, 0.74384E-02, $ 0.78095E-02, 0.81990E-02, 0.86079E-02, 0.90371E-02, 0.94876E-02, $ 0.99605E-02, 0.10457E-01, 0.10978E-01, 0.11525E-01, 0.12099E-01, $ 0.12702E-01, 0.13334E-01, 0.13998E-01, 0.14695E-01, 0.15426E-01, $ 0.16194E-01, 0.16999E-01, 0.17844E-01, 0.18731E-01, 0.19662E-01, $ 0.20639E-01, 0.21664E-01, 0.22740E-01, 0.23869E-01, 0.25053E-01, $ 0.26296E-01, 0.27599E-01, 0.28967E-01, 0.30402E-01, 0.31907E-01, $ 0.33486E-01, 0.35142E-01, 0.36880E-01, 0.38702E-01, 0.40612E-01, $ 0.42617E-01, 0.44718E-01, 0.46922E-01, 0.49232E-01, 0.51655E-01, $ 0.54195E-01, 0.56857E-01, 0.59648E-01, 0.62573E-01, 0.65639E-01, $ 0.68851E-01, 0.72217E-01, 0.75744E-01, 0.79438E-01, 0.83308E-01, $ 0.87362E-01, 0.91607E-01, 0.96051E-01, 0.10070E+00, 0.10558E+00, $ 0.11067E+00, 0.11601E+00, 0.12159E+00, 0.12743E+00, 0.13354E+00, $ 0.13993E+00, 0.14661E+00, 0.15359E+00, 0.16089E+00, 0.16851E+00, $ 0.17648E+00, 0.18480E+00, 0.19348E+00, 0.20255E+00, 0.21201E+00, $ 0.22188E+00, 0.23217E+00, 0.24290E+00, 0.25408E+00, 0.26573E+00, $ 0.27787E+00, 0.29050E+00, 0.30364E+00, 0.31732E+00, 0.33153E+00, $ 0.34631E+00, 0.36166E+00, 0.37759E+00, 0.39413E+00, 0.41128E+00, $ 0.42906E+00, 0.44748E+00, 0.46656E+00, 0.48629E+00, 0.50670E+00, $ 0.52779E+00, 0.54957E+00, 0.57204E+00, 0.59522E+00, 0.61909E+00, $ 0.64368E+00, 0.66897E+00, 0.69497E+00, 0.72166E+00, 0.74906E+00, $ 0.77714E+00, 0.80590E+00, 0.83533E+00, 0.86541E+00, 0.89613E+00, $ 0.92747E+00, 0.95941E+00, 0.99193E+00, 0.10250E+01, 0.10586E+01, $ 0.10927E+01, 0.11273E+01, 0.11623E+01, 0.11977E+01, 0.12335E+01, $ 0.12696E+01, 0.13061E+01, 0.13428E+01, 0.13798E+01, 0.14170E+01, $ 0.14543E+01, 0.14919E+01, 0.15295E+01, 0.15672E+01, 0.16050E+01, $ 0.16428E+01, 0.16806E+01, 0.17184E+01, 0.17562E+01, 0.17940E+01, $ 0.18317E+01, 0.18693E+01, 0.19068E+01, 0.19443E+01, 0.19817E+01, $ 0.20189E+01, 0.20561E+01, 0.20931E+01, 0.21301E+01, 0.21669E+01, $ 0.22036E+01, 0.22402E+01, 0.22767E+01, 0.23131E+01, 0.23494E+01, $ 0.23856E+01, 0.24217E+01, 0.24577E+01, 0.24936E+01, 0.25295E+01, $ 0.25652E+01, 0.26008E+01, 0.26364E+01, 0.26719E+01, 0.27073E+01, $ 0.27426E+01, 0.27779E+01, 0.28131E+01, 0.28482E+01, 0.28832E+01, $ 0.29182E+01, 0.29532E+01, 0.29881E+01, 0.30229E+01, 0.30576E+01, $ 0.30923E+01, 0.31270E+01, 0.31616E+01, 0.31961E+01, 0.32306E+01, $ 0.32651E+01, 0.32995E+01, 0.33339E+01, 0.33682E+01, 0.34025E+01, $ 0.34368E+01, 0.34710E+01, 0.35052E+01, 0.35393E+01, 0.35734E+01, $ 0.36075E+01, 0.36415E+01, 0.36755E+01, 0.37095E+01, 0.37434E+01, $ 0.37773E+01, 0.38112E+01, 0.38450E+01, 0.38788E+01, 0.39126E+01, $ 0.39463E+01, 0.39800E+01, 0.40137E+01, 0.40474E+01, 0.40810E+01, $ 0.41146E+01, 0.41481E+01, 0.41817E+01, 0.42152E+01, 0.42486E+01, $ 0.42821E+01, 0.43155E+01, 0.43488E+01, 0.43822E+01, 0.44155E+01, $ 0.44487E+01, 0.44820E+01, 0.45152E+01, 0.45484E+01, 0.45815E+01, $ 0.46146E+01, 0.46477E+01, 0.46807E+01, 0.47137E+01, 0.47466E+01, $ 0.47796E+01, 0.48124E+01, 0.48453E+01, 0.48781E+01, 0.49108E+01, $ 0.49435E+01, 0.49762E+01, 0.50088E+01, 0.50413E+01, 0.50738E+01, $ 0.51063E+01, 0.51387E+01, 0.51710E+01, 0.52033E+01, 0.52355E+01, $ 0.52677E+01, 0.52998E+01, 0.53318E+01, 0.53638E+01, 0.53957E+01, $ 0.54275E+01, 0.54593E+01, 0.54910E+01, 0.55225E+01, 0.55541E+01, $ 0.55855E+01, 0.56168E+01, 0.56481E+01, 0.56792E+01, 0.57103E+01, $ 0.57412E+01, 0.57721E+01, 0.58028E+01, 0.58334E+01, 0.58639E+01, $ 0.58943E+01, 0.59246E+01, 0.59547E+01, 0.59847E+01, 0.60146E+01, $ 0.60443E+01, 0.60739E+01, 0.61033E+01, 0.61326E+01, 0.61617E+01, $ 0.61907E+01, 0.62195E+01, 0.62482E+01, 0.62766E+01, 0.63049E+01, $ 0.63330E+01, 0.63609E+01, 0.63887E+01, 0.64162E+01, 0.64436E+01, $ 0.64708E+01, 0.64977E+01, 0.65245E+01, 0.65511E+01, 0.65774E+01, $ 0.66036E+01, 0.66295E+01, 0.66553E+01, 0.66808E+01, 0.67061E+01 $ / end module egadb2