function [a,b,b2,c,ord]=rktf12_9()
% Autor: Dieter Kaiser
%        Numerische Mathematik
%        Friedrich-Schiller-Universität Jena
%        http://users.minet.uni-jena.de/~kaiserd/
%        dieter.kaiser@uni-jena.de
%
% originales RK:
% http://www.peterstone.name/Maplepgs/Maple/nmthds/RKcoeff/Runge_Kutta_schemes/RK12/RKcoeff12a%289%29_1.pdf
% und dortige Literaturangabe
%
ord=9; % Ordnung des 'niedrigeren' Verfahrens für Fehlerschätzer
c(1)=0;
c(2)=.2;
c(3)=.5555555555555555555555555555555555555555555555555555555555555555555555555555555555556;
c(4)=.8333333333333333333333333333333333333333333333333333333333333333333333333333333333333;
c(5)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333;
c(6)=1;
c(7)=.6718357091705138127122456610027975704389534205686825507102221981691883968854641411340;
c(8)=.2887249411106202019354584889670249769081185983418069764696736835244986590217861541568;
c(9)=.5625;
c(10)=.8333333333333333333333333333333333333333333333333333333333333333333333333333333333333;
c(11)=.9476954311791992875623801621018367216495893258927406464583220401251379590957558619519;
c(12)=.5481128768638026438877536748107544758421536129311287850283685092941115229776952973311e-1;
c(13)=.8488805186071653506398389301626743020641481756400195420459339398355773991365476236893e-1;
c(14)=.2655756032646428930981140590456168352972012641640776214486652703185222349414361456016;
c(15)=.5;
c(16)=.7344243967353571069018859409543831647027987358359223785513347296814777650585638543984;
c(17)=.9151119481392834649360161069837325697935851824359980457954066060164422600863452376311;
c(18)=.9476954311791992875623801621018367216495893258927406464583220401251379590957558619519;
c(19)=.8333333333333333333333333333333333333333333333333333333333333333333333333333333333333;
c(20)=.2887249411106202019354584889670249769081185983418069764696736835244986590217861541568;
c(21)=.6718357091705138127122456610027975704389534205686825507102221981691883968854641411340;
c(22)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333;
c(23)=.5555555555555555555555555555555555555555555555555555555555555555555555555555555555556;
c(24)=.2;
c(25)=1;
c(26)=.2705326688111747043012079860052085038730320156572781993995483301865608921746412080613;
c(27)=.34;
c(28)=.6504854368932038834951456310679611650485436893203883495145631067961165048543689320388;
c(29)=1;
a=zeros(29);
a(2,1)=.2;
a(3,1)=-.2160493827160493827160493827160493827160493827160493827160493827160493827160493827160;
a(3,2)=.7716049382716049382716049382716049382716049382716049382716049382716049382716049382716;
a(4,1)=.2083333333333333333333333333333333333333333333333333333333333333333333333333333333333;
a(4,2)=0;
a(4,3)=.625;
a(5,1)=.1933333333333333333333333333333333333333333333333333333333333333333333333333333333333;
a(5,2)=0;
a(5,3)=.22;
a(5,4)=-.8e-1;
a(6,1)=.1;
a(6,2)=0;
a(6,3)=0;
a(6,4)=.4;
a(6,5)=.5;
a(7,1)=.1033644716500104775703954356904817915433427083303498792441969232007020836692076572831;
a(7,2)=0;
a(7,3)=0;
a(7,4)=.1240530945289467610615818892371153282110747849551802980440742772315189064222869368349;
a(7,5)=.4831711675610328992888364804519625087241092575172891773023800341818228904190296838151;
a(7,6)=-.3875302456947632520856814437676205803957333023413680388042903644485548362506013679914e-1;
a(8,1)=.1240382614318333240819045859801751681400246706986336122924798440448279924947470898167;
a(8,2)=0;
a(8,3)=0;
a(8,4)=0;
a(8,5)=.2170506321979584863178462569531599428759163537577341676846566744497954872579456743665;
a(8,6)=.1374557920759667598129078018350481905944439909394085308429177535450188051849310154998e-1;
a(8,7)=-.6610953172676828444558313414981495316726682520850165659175461032462670124939971157633e-1;
a(9,1)=.9147748948568829831449918469804321970888320999766601000904864070801948953424558529918e-1;
a(9,2)=0;
a(9,3)=0;
a(9,4)=0;
a(9,5)=0;
a(9,6)=-.5443485237174696899657549441448386113461568738470091780683178340728768152294577966066e-2;
a(9,7)=.6807168016884535185785151208951038631127517307587943722039518677930013251388913149245e-1;
a(9,8)=.4083943155826410467273068526538947800933031856649246445512393508534091461041598611744;
a(10,1)=.8900136525025510189545093554238417801432326974034341186926989993223983196257058017745e-1;
a(10,2)=0;
a(10,3)=0;
a(10,4)=0;
a(10,5)=0;
a(10,6)=.4995282266455323601977934084206928004058911494068140919558100299611985086558381414011e-2;
a(10,7)=.3979182388198289973417396030013471560834350609314249708263044040250700525391549655752;
a(10,8)=.4279302107525766110681926083008979815582407305803964063123594678423525630853815189010;
a(10,9)=-.8651176375578270057402774759550291032672463941289959659415853876594109934033211273435e-1;
a(11,1)=.6950876241349075431126939064098098227060210616855446152557575792953755238456142607555e-1;
a(11,2)=0;
a(11,3)=0;
a(11,4)=0;
a(11,5)=0;
a(11,6)=.1291469419001764619707595794827465511228717515014826340454871396367885195565200865413;
a(11,7)=1.530736381023112950763425661432149390311775041124338743130106194678206265388420534343;
a(11,8)=.5778747611291400525467513494545767153348921004185718827180365180125884787253599132116;
a(11,9)=-.9512947723210889805323408373888594539309244987992286480509495701319828569591060982197;
a(11,10)=-.408276642965631951497484981519757463459627174520978426909934;
a(12,1)=.4448614032951358662694535070924635816201655010186841529333130115732839067844631360662e-1;
a(12,2)=0;
a(12,3)=0;
a(12,4)=0;
a(12,5)=0;
a(12,6)=-.3804768670569617319842326865745472030163315636268560657179642939163812931823178090201e-2;
a(12,7)=.1069550640296242007212626028090591544692060776449573995939720279979491092361490435771e-1;
a(12,8)=.2096162444999043332966742059289199208067346506600398980746522493272461502026769432938e-1;
a(12,9)=-.2331460232593217866485614315519780776653378187560536038988470502127295139273620447039e-1;
a(12,10)=.263265981064536974369934736325334761174975280887405725010964e-2;
a(12,11)=.315472768977025060103545855572111407955208306374459723959783e-2;
a(13,1)=.1945888151197554755888010965253177612420737620162731862312147414806601584184678965302e-1;
a(13,2)=0;
a(13,3)=0;
a(13,4)=0;
a(13,5)=0;
a(13,6)=0;
a(13,7)=0;
a(13,8)=0;
a(13,9)=.6785129491718125093061216534523674761943647812591653323215344531729041102383826068881e-4;
a(13,10)=-.4297958590492736232710053302301623435688633877248836036755502109954489170536483550959e-4;
a(13,11)=.1763589822602851554074859289533021399375534428299757341489807141089039042639321498044e-4;
a(13,12)=.6538666274150270510095952313851810335495113587873820983519242333986308816206310607574e-1;
a(14,1)=.2068368356642771059168281747982723610789091960434464115982313836045688158444651960319;
a(14,2)=0;
a(14,3)=0;
a(14,4)=0;
a(14,5)=0;
a(14,6)=0;
a(14,7)=0;
a(14,8)=0;
a(14,9)=.1667960671041564728280458666646964503063265050947925052155140101473800468812591484420e-1;
a(14,10)=-.8795015632007102144570241782499865911302349902199592087049794487571848499522935439738e-2;
a(14,11)=.3466754553624639108244623152463792094275136540985964036372314865670539326325668110382e-2;
a(14,12)=-.8612644601057176781614325622583512420302704989668912017992248333482802709963824294591;
a(14,13)=.9086518820740502810962394784692621450349571299392567891787847986693969945784247315140;
a(15,1)=.2039260846544840100915113146769256860385044495624130045623817918441487821545443195970e-1;
a(15,2)=0;
a(15,3)=0;
a(15,4)=0;
a(15,5)=0;
a(15,6)=0;
a(15,7)=0;
a(15,8)=0;
a(15,9)=.8694693920166859486754005555839475058339544609309409595773466506310797056354130304882e-1;
a(15,10)=-.1916496304101498422864366117914050532871700766023376735876807254839218918835669149770e-1;
a(15,11)=.6556291594936632873648715732442445160348287552537460240988384514573072919062060289680e-2;
a(15,12)=.9874761281274347809037985286740338997389249680066322014454609882039267630836494384605e-1;
a(15,13)=.5353646955249960550832601736155674087171102472740210561183290254962131450211315663807e-2;
a(15,14)=.3011678640109679168370913038170516769200592297849574799980774547109414597317226366896;
a(16,1)=.2284104339177780995471154128930043987791369945969485457222835639366182967824509778177;
a(16,2)=0;
a(16,3)=0;
a(16,4)=0;
a(16,5)=0;
a(16,6)=0;
a(16,7)=0;
a(16,8)=0;
a(16,9)=-.498707400793025250635016567442511512138603770959682292383042;
a(16,10)=.134841168335724478552596703792570104791700727205981058201689;
a(16,11)=-.3874582440558341584399042269240292309351610591428068056743603625175611891589978761354e-1;
a(16,12)=-1.274732574734748442403884308249089523809792927132503501996417388213689856389637269712;
a(16,13)=1.439163644628771652011844524370380818752993035779118396305246406270252915801577043206;
a(16,14)=-.2140074679679902542195035408273495696390280923448127954990268736031526728285351786283;
a(16,15)=.9582024177544302398927241391097813710599088746051536487680380575432052006086080693288;
a(17,1)=2.002224776559742036142496460125067471214403062257117212098013934570904909077811687956;
a(17,2)=0;
a(17,3)=0;
a(17,4)=0;
a(17,5)=0;
a(17,6)=0;
a(17,7)=0;
a(17,8)=0;
a(17,9)=2.067018099615249120919546564381385958254118596733416006795539073419461189789965414880;
a(17,10)=.6239781360861395419574712798314944661552923161670210806631400641515876319986835645504;
a(17,11)=-.4622836855003114302832035541290620693919471018801127231857717578220394222019200167241e-1;
a(17,12)=-8.849732883626496148600752467271189492866048354570927010946452349296049980461005208984;
a(17,13)=7.742577078508559762274372257918355895601885907850371974336285358245514323924977674267;
a(17,14)=-.5883585192508692109933533141277117456441258821309412028964590026164853179425282383760;
a(17,15)=-1.106837333623806493957047080169530561761957696170148994429009662680169614076285221420;
a(17,16)=-.9295290375792039997783972382912332142207880575118997475070736339961169400050824335694;
a(18,1)=3.137895334120734429344516089898887968081612593303221002683164397131264854080655887290;
a(18,2)=0;
a(18,3)=0;
a(18,4)=0;
a(18,5)=0;
a(18,6)=.1291469419001764619707595794827465511228717515014826340454871396367885195565200865413;
a(18,7)=1.530736381023112950763425661432149390311775041124338743130106194678206265388420534343;
a(18,8)=.5778747611291400525467513494545767153348921004185718827180365180125884787253599132116;
a(18,9)=5.420882630551266830500568408918574219413005588518621564033611906468713101542334579174;
a(18,10)=.2315469260348293048726638008776436609048801808359456938369354937028526451467932046110;
a(18,11)=.7592929955789135601623013117852518735618013423331948952920597912045137042432676518814e-1;
a(18,12)=-12.37299733801865132874145534025958065913498226175359059762562192965479091087793342733;
a(18,13)=9.854558834647695439359572093173692020803677657217771019069796164343105374428968973275;
a(18,14)=.8591114313704365295793577090523677728899804951223296011591248114960893346142179981950e-1;
a(18,15)=-5.652427528626439211171820900817627611803926026441892186739654808639279953585825515205;
a(18,16)=-1.943009352428196108838337767823642877287248991241669204778734219860256733548749791369;
a(18,17)=-.1283526018494045420184287143193446207421464913356123535599232759641139856465371475959;
a(19,1)=1.383600544321960148785381182981677168251632684899225199955650618232490683056428985354;
a(19,2)=0;
a(19,3)=0;
a(19,4)=0;
a(19,5)=0;
a(19,6)=.4995282266455323601977934084206928004058911494068140919558100299611985086558381414011e-2;
a(19,7)=.3979182388198289973417396030013471560834350609314249708263044040250700525391549655752;
a(19,8)=.4279302107525766110681926083008979815582407305803964063123594678423525630853815189010;
a(19,9)=-1.302991074244757709165514391230475733420714759983996459821461482811069921735213561975;
a(19,10)=.6612922786693770290971125281075130727345734122940080715006994611067693544004895081155;
a(19,11)=-.1445597743069543497659693936887034639005858224415456555301446467509926053698427625331;
a(19,12)=-6.965760347317982034678538674610839193567922481059192554608250635478358752496696344633;
a(19,13)=6.658085432359917483534082955422104506321931975769351207164429345917517820065930603070;
a(19,14)=-1.669973751088414864046958057255108450498079691992362275757972756183370386412619176110;
a(19,15)=2.064137023180352638322890403018326471306046512239864521700896369142928855915137997534;
a(19,16)=-.6747439626443064718629581295708377231920798759984050586488916899925211549437997031744;
a(19,17)=-.1156188347949395004907036084359076100596057549353055820457292017095159857577078205324e-2;
a(19,18)=-.544057908677007389319819914241631024660726585015012485938593e-2;
a(20,1)=.9512362970482876694746379758949735521669033789834754257582261243292060560082303478949;
a(20,2)=0;
a(20,3)=0;
a(20,4)=0;
a(20,5)=.2170506321979584863178462569531599428759163537577341676846566744497954872579456743665;
a(20,6)=.1374557920759667598129078018350481905944439909394085308429177535450188051849310154998e-1;
a(20,7)=-.6610953172676828444558313414981495316726682520850165659175461032462670124939971157633e-1;
a(20,8)=0;
a(20,9)=.1522816967364144471366046970407471319214864326994221120996167853723749050279525002079;
a(20,10)=-.3377410183575998408023007931339980043546434244575396676700801526788878440490902531919;
a(20,11)=-.1928259816339957815349491992868244004693531106307879821211327084555949417498597974185e-1;
a(20,12)=-3.682592696968668099324090155354996035763121207468888802018816928929650528231675747053;
a(20,13)=3.161978704069820635415335284196838540183520803428870023313121375688872348961613906410;
a(20,14)=-.3704625221068852907169918560220511254779434822840805691773856863151016773010882921618;
a(20,15)=-.5149742003654404349964344566981279849411686164743168710203142306658077550892325779417e-1;
a(20,16)=-.8296255321201529467870435417928484166593826752027206775365542784220425091994969746694e-3;
a(20,17)=.2798010414192785989865865890700275839613554026408795032135027653873641738192519718714e-5;
a(20,18)=.4186039164123602879698410207767884617941194406893561789422525187837946844315554254800e-1;
a(20,19)=.2790842550908773559156608745553796499662821675601262692902221878625437021870196271539;
a(21,1)=.1033644716500104775703954356904817915433427083303498792441969232007020836692076572831;
a(21,2)=0;
a(21,3)=0;
a(21,4)=.1240530945289467610615818892371153282110747849551802980440742772315189064222869368349;
a(21,5)=.4831711675610328992888364804519625087241092575172891773023800341818228904190296838151;
a(21,6)=-.3875302456947632520856814437676205803957333023413680388042903644485548362506013679914e-1;
a(21,7)=0;
a(21,8)=-.4383138203611224203910597889409601764206828366526006985800905251155989894984839457596;
a(21,9)=0;
a(21,10)=-.2186366337216766476851114850171511993625093736982883305934862323914026063358863684281;
a(21,11)=-.3123347643947192299816349952064403497661747596265781223230155751192843872703400896300e-1;
a(21,12)=0;
a(21,13)=0;
a(21,14)=0;
a(21,15)=0;
a(21,16)=0;
a(21,17)=0;
a(21,18)=.3123347643947192299816349952064403497661747596265781223230155751192843872703400896300e-1;
a(21,19)=.2186366337216766476851114850171511993625093736982883305934862323914026063358863684281;
a(21,20)=.4383138203611224203910597889409601764206828366526006985800905251155989894984839457596;
a(22,1)=.1933333333333333333333333333333333333333333333333333333333333333333333333333333333333;
a(22,2)=0;
a(22,3)=.22;
a(22,4)=-.8e-1;
a(22,5)=0;
a(22,6)=0;
a(22,7)=.9842561304993159281529002868560482433482025214912885759521434145952725510591247703880e-1;
a(22,8)=-.1964108892230546534465265043901004176775390953401355324188487070169517581089448241223;
a(22,9)=0;
a(22,10)=.4364579304930687293918261225879491376096706767125250347633166283025775876654576372905;
a(22,11)=.6526137216757210985603709398055556983505438107084147167302701337621822207129608838308e-1;
a(22,12)=0;
a(22,13)=0;
a(22,14)=0;
a(22,15)=0;
a(22,16)=0;
a(22,17)=0;
a(22,18)=-.6526137216757210985603709398055556983505438107084147167302701337621822207129608838308e-1;
a(22,19)=-.4364579304930687293918261225879491376096706767125250347633166283025775876654576372905;
a(22,20)=.1964108892230546534465265043901004176775390953401355324188487070169517581089448241223;
a(22,21)=-.9842561304993159281529002868560482433482025214912885759521434145952725510591247703880e-1;
a(23,1)=-.2160493827160493827160493827160493827160493827160493827160493827160493827160493827160;
a(23,2)=.7716049382716049382716049382716049382716049382716049382716049382716049382716049382716;
a(23,3)=0;
a(23,4)=0;
a(23,5)=-.6666666666666666666666666666666666666666666666666666666666666666666666666666666666667;
a(23,6)=0;
a(23,7)=-.3906964692959784514469998022584959812490996652943959455591631110212407281436339846013;
a(23,8)=0;
a(23,9)=0;
a(23,10)=0;
a(23,11)=0;
a(23,12)=0;
a(23,13)=0;
a(23,14)=0;
a(23,15)=0;
a(23,16)=0;
a(23,17)=0;
a(23,18)=0;
a(23,19)=0;
a(23,20)=0;
a(23,21)=.3906964692959784514469998022584959812490996652943959455591631110212407281436339846013;
a(23,22)=.6666666666666666666666666666666666666666666666666666666666666666666666666666666666667;
a(24,1)=.2;
a(24,2)=0;
a(24,3)=-.1646090534979423868312757201646090534979423868312757201646090534979423868312757201646;
a(24,4)=0;
a(24,5)=0;
a(24,6)=0;
a(24,7)=0;
a(24,8)=0;
a(24,9)=0;
a(24,10)=0;
a(24,11)=0;
a(24,12)=0;
a(24,13)=0;
a(24,14)=0;
a(24,15)=0;
a(24,16)=0;
a(24,17)=0;
a(24,18)=0;
a(24,19)=0;
a(24,20)=0;
a(24,21)=0;
a(24,22)=0;
a(24,23)=.1646090534979423868312757201646090534979423868312757201646090534979423868312757201646;
a(25,1)=1.471787248811104084529495509890236112935353155185716919393995504060418834507026416303;
a(25,2)=.7875;
a(25,3)=.4212962962962962962962962962962962962962962962962962962962962962962962962962962962963;
a(25,4)=0;
a(25,5)=.2916666666666666666666666666666666666666666666666666666666666666666666666666666666667;
a(25,6)=0;
a(25,7)=.3486007176283295632068544216296575692746899473678474657537568981834986072873525336473;
a(25,8)=.2294995447689948495828902337105554470738235696665067006625099245761293614167793479615;
a(25,9)=5.790464857904819791598319781770034710982795060367224113331903192121494621770290062110;
a(25,10)=.4185875118565068688740737594265962072264614476042481510800164169962235305164482745364;
a(25,11)=.3070398802224740026496538174901066903892514823132139993866510031445598321274580577686;
a(25,12)=-4.687009053506033322142563446838532480655744157947420404703040830648169300485343958299;
a(25,13)=3.135716655938022621520381523998738565543954361999629154290906331430073621513072293611;
a(25,14)=1.401348297109657208175105062756204410558450173139305083488955470547181175786794270770;
a(25,15)=-5.529311014394990236290103060057643364212760557776581564009075823477850141179520237020;
a(25,16)=-.8531382355080633493095468949747849061889275080395525195574976043372338240387571536437;
a(25,17)=.1035757803736101404118046071677727955182939144585001755737485164728465862790827590424;
a(25,18)=-.1404744169506009411425469012021325348706659237000349571965457593133214062801025106415;
a(25,19)=-.4185875118565068688740737594265962072264614476042481510800164169962235305164482745364;
a(25,20)=-.2294995447689948495828902337105554470738235696665067006625099245761293614167793479615;
a(25,21)=-.3486007176283295632068544216296575692746899473678474657537568981834986072873525336473;
a(25,22)=-.2916666666666666666666666666666666666666666666666666666666666666666666666666666666667;
a(25,23)=-.4212962962962962962962962962962962962962962962962962962962962962962962962962962962963;
a(25,24)=-.7875;
a(26,1)=-.1945386867451291123884814823459180635768917180086790511907572953117600109080193533232e-1;
a(26,2)=0;
a(26,3)=0;
a(26,4)=0;
a(26,5)=0;
a(26,6)=.8057301893662477691443132656403196810625918738277590588868908358972819064964459091669e-2;
a(26,7)=.1241463670858095286117602719225126559521382212617482732807429271107039010743306241101;
a(26,8)=.1497145853101287660456130254471242559528310308091671396940150342281746265086993984712;
a(26,9)=-.1303675365654120904504562392988977852241413291060274881446135883457515327550288453200;
a(26,10)=-.3698639360632625398743922016264340070592164464763749165345715494457674611868845661919e-1;
a(26,11)=-.3983742219128062073189336644647269375980322707642357110651002560122814821522997507868e-2;
a(26,12)=.1794059555869532497023245003199486568211693131102604378637189358703366403126889611677;
a(26,13)=0;
a(26,14)=0;
a(26,15)=0;
a(26,16)=0;
a(26,17)=0;
a(26,18)=0;
a(26,19)=0;
a(26,20)=0;
a(26,21)=0;
a(26,22)=0;
a(26,23)=0;
a(26,24)=0;
a(26,25)=0;
a(27,1)=1.032124513905245515612798138225198772739122234869808854364377668154938158711330726323;
a(27,2)=0;
a(27,3)=0;
a(27,4)=0;
a(27,5)=0;
a(27,6)=.5490369542892859910504333933148260131724689350433556778000324569356103210374951569109e-1;
a(27,7)=3.069027457592107493405268300309475487791979486443154529392451247642562991106453239338;
a(27,8)=5.949555361497760596821078351216851913422291678190892708235401634857422462530401029909;
a(27,9)=-3.605216377873876892456313289580246330161146372769523226387732385221274979047088980000;
a(27,10)=-.6697284489918184460886626356500298351583710973331011126212468964538420029647613866685;
a(27,11)=-.1857983645326718301107554014078901788325811497542810891635651110080883792106001371641e-1;
a(27,12)=-1.424320811259049197233015532175978502454289647049918276442015637262134832223501844375;
a(27,13)=0;
a(27,14)=0;
a(27,15)=0;
a(27,16)=0;
a(27,17)=0;
a(27,18)=0;
a(27,19)=0;
a(27,20)=0;
a(27,21)=0;
a(27,22)=0;
a(27,23)=0;
a(27,24)=0;
a(27,25)=0;
a(27,26)=-4.047765553846030486155121131535965089613575060880220935404882366310423992295522286502;
a(28,1)=-1.382781775768113284701459366032311953667553297559203391265417552441934061922693176721;
a(28,2)=0;
a(28,3)=0;
a(28,4)=0;
a(28,5)=0;
a(28,6)=-.8667914376429255354258908711287697672017710639213566597955366503085894729219111265311e-1;
a(28,7)=-4.554058438034767851516178032405406667619144836234073797260066652340701955839776655097;
a(28,8)=-8.548681363364266311259694165066460520090014381837066484890722906452357745230925007271;
a(28,9)=5.677983221683752588205256831931519182297378640266518856727062351155962971381627623533;
a(28,10)=.9648174703427152847816284493623748534499784184929462231890604601843883221280651362941;
a(28,11)=.4344566318429961736362112761808603430668471567924649743757023200228548885952917131856e-1;
a(28,12)=2.197481145174628907399052725974303581746977187659087451324921465158340520311354279428;
a(28,13)=0;
a(28,14)=0;
a(28,15)=0;
a(28,16)=0;
a(28,17)=0;
a(28,18)=0;
a(28,19)=0;
a(28,20)=0;
a(28,21)=0;
a(28,22)=0;
a(28,23)=0;
a(28,24)=0;
a(28,25)=0;
a(28,26)=7.035029050614429755196588073782319001284610222265762967238201894848167840842757873722;
a(28,27)=-.6960703931751822684310809269835853699401958730206943070064925202871759283833792005155;
a(29,1)=-.4617374781103665265663986977937008142309761088331989014954322644826063351865998327120;
a(29,2)=0;
a(29,3)=0;
a(29,4)=0;
a(29,5)=0;
a(29,6)=-.2081550306061529077785000827019113930487743575469696856809197326654820184521846622214;
a(29,7)=-3.595803901029301384843322851910550584295110273167529212007644837451517842259210373886;
a(29,8)=-2.017033393461610331625452200190327290668804309363853777409755307582855196618232195807;
a(29,9)=3.254469419316958096094178092092530962054605404852225653639648088599654667654557515474;
a(29,10)=1.467502865695707982755878576152338899316867299699541621743567041843137881483893879065;
a(29,11)=.8803181478541891088923977069507653668068857748488467385874721924342093996855406194147e-1;
a(29,12)=.9270140384864418943399893938983319862492649286949402611447581842885085448738545381865;
a(29,13)=0;
a(29,14)=0;
a(29,15)=0;
a(29,16)=0;
a(29,17)=0;
a(29,18)=0;
a(29,19)=0;
a(29,20)=0;
a(29,21)=0;
a(29,22)=0;
a(29,23)=0;
a(29,24)=0;
a(29,25)=0;
a(29,26)=1.145645051572912256580740757565055397703401962883784448027730194494706717467670947082;
a(29,27)=.1663712871640640559084410113167451615986543544800237037747763883730613090298346489538;
a(29,28)=.2336953261859279542452062308764111386401825208161512144045250253399713320378614739246;
b(1)=.2380952380952380952380952380952380952380952380952380952380952380952380952380952380952e-1;
b(2)=.234375e-1;
b(3)=.3125e-1;
b(4)=0;
b(5)=.4166666666666666666666666666666666666666666666666666666666666666666666666666666666667e-1;
b(6)=0;
b(7)=.5e-1;
b(8)=.5e-1;
b(9)=0;
b(10)=.1;
b(11)=.7142857142857142857142857142857142857142857142857142857142857142857142857142857142857e-1;
b(12)=0;
b(13)=.1384130236807829740053502031450331467488136400899412345912671194817223119377730668077;
b(14)=.2158726906049313117089355111406811389654720741957730511230185948039919737765126474781;
b(15)=.2438095238095238095238095238095238095238095238095238095238095238095238095238095238095;
b(16)=.2158726906049313117089355111406811389654720741957730511230185948039919737765126474781;
b(17)=.1384130236807829740053502031450331467488136400899412345912671194817223119377730668077;
b(18)=-.7142857142857142857142857142857142857142857142857142857142857142857142857142857142857e-1;
b(19)=-.1;
b(20)=-.5e-1;
b(21)=-.5e-1;
b(22)=-.4166666666666666666666666666666666666666666666666666666666666666666666666666666666667e-1;
b(23)=-.3125e-1;
b(24)=-.234375e-1;
b(25)=.2380952380952380952380952380952380952380952380952380952380952380952380952380952380952e-1;
b(26)=0;
b(27)=0;
b(28)=0;
b(29)=0;
b2(1)=-.9388673078968053935288682555413153319529640134442426893206875669977370536567021515593e-3;
b2(2)=0;
b2(3)=0;
b2(4)=0;
b2(5)=0;
b2(6)=0;
b2(7)=0;
b2(8)=0;
b2(9)=.2899705495853435505174124324744986362335948288897566500046183159953188220112132038531;
b2(10)=.2032657733321465649902208252364076956631620362796657635238235311178331843915486249496;
b2(11)=.5141750017102836944279689487071090178490432262575763816117159196186111043020425171593e-1;
b2(12)=.1403161024119872594919601102544196502013975216141673950450789110629882668436302347284;
b2(13)=0;
b2(14)=0;
b2(15)=0;
b2(16)=0;
b2(17)=0;
b2(18)=0;
b2(19)=0;
b2(20)=0;
b2(21)=0;
b2(22)=0;
b2(23)=0;
b2(24)=0;
b2(25)=0;
b2(26)=.2832779181217762712735698041146113449556704027245908712794381435712005898607375879519;
b2(27)=-.1218562156166439662855974927644248151759795653460176190726097402668816728337200243165e-1;
b2(28)=.1798231210021410885501493617997754605186163233962017764836134198421229839839916939435e-1;
b2(29)=.2689433314706507745111361440135802195896017607448750893408982590027163240129563198995e-1;
