function [a,b,b2,c,ord]=rkho10_8()
% 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/RK10/RKcoeff10f%288%29_1.pdf
% und dortige Literaturangabe
%
ord=8; % Ordnung des 'niedrigeren' Verfahrens für Fehlerschätzer
c=zeros(20,1);
b=c';
c(2)=.3357505083417036184129939488963472892525539577157696170900805997207182929518116563365;
c(3)=.5263563553500217821118595221339767434067222948292617539626688113669112965383197614021;
c(4)=.7895345330250326731677892832009651151100834422438926309440032170503669448074796421031;
c(5)=.1852155685265047076970656199437875208987680209449849941608024849050604421517806064228;
c(6)=.2895345330250326731677892832009651151100834422438926309440032170503669448074796421031;
c(7)=.7659879027055932401898717206953675811356898851157703878511505293452324618973555436361;
c(8)=.1080739009578824490100240661758266719014599665988034811870817465871751958605805741080;
c(9)=.3573842417596774518429245029795604640404982636367873040901247917361510345429002009092;
c(10)=.8825276619647323464255014869796690751828678442680521196637911779185276585194132570617;
c(11)=.6426157582403225481570754970204395359595017363632126959098752082638489654570997990908;
c(12)=.1174723380352676535744985130203309248171321557319478803362088220814723414805867429383;
c(13)=.7659879027055932401898717206953675811356898851157703878511505293452324618973555436361;
c(14)=.2895345330250326731677892832009651151100834422438926309440032170503669448074796421031;
c(15)=.5263563553500217821118595221339767434067222948292617539626688113669112965383197614021;
c(16)=.3357505083417036184129939488963472892525539577157696170900805997207182929518116563365;
c(17)=1;
c(18)=.3832189877176818171434663092890266281876537193417956703495853860972991083326353301301;
c(19)=.8821940649179740521024962621523112645293756933104583944824545084988665881201898895526;
c(20)=1;
a=zeros(20);
a(2,1)=.3357505083417036184129939488963472892525539577157696170900805997207182929518116563365;
a(3,1)=.1137717040478783056449396184425018992536986324028992632761012508174661576282091865815;
a(3,2)=.4125846513021434764669199036914748441530236624263624906865675605494451389101105748206;
a(4,1)=.1973836332562581682919473208002412787775208605609731577360008042625917362018699105258;
a(4,2)=0;
a(4,3)=.5921508997687745048758419624007238363325625816829194732080024127877752086056097315774;
a(5,1)=.1360001717992528326665261557210531883399922632350163155393510462488093550801937826726;
a(5,2)=0;
a(5,3)=.8247208052028112223790799775745048180379960003630910417779053602715946236310693542837e-1;
a(5,4)=-.3325668379302924720736853353471614924502384232634042555633909737090837529152011167815e-1;
a(6,1)=.6546785199481110579756630335868870724165088583024509548938434492848601278421108871818e-1;
a(6,2)=0;
a(6,3)=0;
a(6,4)=.6858715620423033993966826640550281985093888681236135859756994188871385539662876478859e-3;
a(6,5)=.2233808094681792639708262971782213796699231675455239218686431727029937934693022657371;
a(7,1)=.2379439999135994223360182301765245366877534054337310606780367192080205084533052094979;
a(7,2)=0;
a(7,3)=0;
a(7,4)=.1285793626493546102687479560301629068933431333159680850577212924587597635005521433930;
a(7,5)=-.7303763776380165799305971651206183012312272113455920027358381669467410091843571268521;
a(7,6)=1.129840917780655787515702699609298438785820557711663244851230684625193199127855317597;
a(8,1)=.6062780896441720418288517632894493561013839292138719356621888281245740094338544165775e-1;
a(8,2)=0;
a(8,3)=0;
a(8,4)=0;
a(8,5)=.7888222248692022386398029561573557081956734138939980123787302990185683517283562747179e-1;
a(8,6)=-.3213213504125939005101626782074483911778772517654658420946839341553511609992151857815e-1;
a(8,7)=.6960045478044110141748620518910045895419574645630705924582272883960758442810235566394e-3;
a(9,1)=.3104415865438721889084097538819995930358479868352200893591644921124828667005686536920e-1;
a(9,2)=0;
a(9,3)=0;
a(9,4)=0;
a(9,5)=0;
a(9,6)=.1571656120644442171909172634188670081467914525944196307657031602142991040495820182979;
a(9,7)=.1117638541384084302989687338271505642661663918417037071041752801553969715970722155609e-3;
a(9,8)=.1690627071867076073308672954386663460258558459670039606814010070304482468516642450265;
a(10,1)=.1430614201422677732943411456202705981582929884075538519224332811759391256045628709601e-1;
a(10,2)=0;
a(10,3)=0;
a(10,4)=0;
a(10,5)=0;
a(10,6)=-.3914725335338579386439799990026912235591541327277623987271673700062264924050571982953;
a(10,7)=.2848400967322984698670378405298733357388045123736554424201702352859211869408079104816;
a(10,8)=.2559426777170804941167590501634194225203620020234561863154326261989141389268124787652;
a(10,9)=.7189112790349845437562504807270404806670261637579475044631123583223249124963937790142;
a(11,1)=.1006668457426631788172270822620227260906121023931371723741841060852730989522549641648e-1;
a(11,2)=0;
a(11,3)=0;
a(11,4)=0;
a(11,5)=0;
a(11,6)=-.3683271809355001194608455001594963737510628435069995678571139196388186857259494651043;
a(11,7)=.8575502624022299903546939609254513705068159712672738891650679949767497156363396523266e-1;
a(11,8)=.2633792404483482304677774849110341109669789276529274236259927084605103685123897043694;
a(11,9)=.6783120744401823352568978305425238981627472606453781308422134412090277276134222894570;
a(11,10)=-.2657008652719721502394642259236950907890441579413439685514223187307272640162219128045e-1;
a(12,1)=.4212573015701458022875431871453412827491044618882839077863171149554249469159410384126e-1;
a(12,2)=0;
a(12,3)=0;
a(12,4)=0;
a(12,5)=0;
a(12,6)=-.1140730257394986628323587415013320453327540775054758894945046140858856585220720793160e-1;
a(12,7)=-.3577323583881041642639854910390843838477094752248779125994771974507179107770816673622e-2;
a(12,8)=.8478085069047181595883795669333443274198965196004767054783136203447118275436721594692e-1;
a(12,9)=-.8236897403845190534516723638464155343698796681468739910260266595384301707513187151823e-4;
a(12,10)=.7920174936649160445251535005941104644271462692404428580786438040911208546142377592512e-3;
a(12,11)=.4840734825985701173601980408776943260994401783442431626214940796417131157064341867563e-2;
a(13,1)=.1866168584194642618748985099397434698267694490527249444362505121514680479505442836574;
a(13,2)=0;
a(13,3)=0;
a(13,4)=.1285793626493546102687479560301629068933431333159680850577212924587597635005521433930;
a(13,5)=-.7303763776380165799305971651206183012312272113455920027358381669467410091843571268521;
a(13,6)=.3365620746651354218129539461265307620933082614096471567813938850533189571406833598679;
a(13,7)=.3439152195696137654283681672732838006806635738118480999635325742827372086353048385257;
a(13,8)=.6116809614283795957124860804122425718138169583157463948158033894717678649195939132136;
a(13,9)=.8555642651045021202243366091904917631763787495189342130253621820535903092162656518481;
a(13,10)=-.8913928524866960048456401557668818573165120479499861285407465844438950550960191679472e-1;
a(13,11)=-.4263317531098201582091498458499961586420389075833366648914840378325891404712881232497;
a(13,12)=-.4510834231343501965076085217297850477436729165851712257475164429026900343003414799732;
a(14,1)=.8132722174581177948072809791683141502457873136125978954741528825822682868334020231374e-1;
a(14,2)=0;
a(14,3)=0;
a(14,4)=.6858715620423033993966826640550281985093888681236135859756994188871385539662876478859e-3;
a(14,5)=.2233808094681792639708262971782213796699231675455239218686431727029937934693022657371;
a(14,6)=-.3543152669595614715438074770044728248424634682417120916726014150358797064660842419218;
a(14,7)=-.1614228337471357340842753214971350545154909424968569413717974406833347832344548170007;
a(14,8)=-1.267989518319081979614362221100086229540210555088918164010191288219362963604567702803;
a(14,9)=.2482505660965057784745955362600844051763121832196360142449926255422280563592831868088;
a(14,10)=.1894015072204329862304305088267495664543558350848310970103331708369628629196601961145e-2;
a(14,11)=-.2367108504250404697299275875477514623653536202773466252372015412173547424356865161882e-1;
a(14,12)=1.376373544047006195976245547649688122109906103559164922810806152088122419417100442009;
a(14,13)=.1650212091015662542191305948002865244010106371945579174943772453918520072439660689694;
a(15,1)=.1137717040478783056449396184425018992536986324028992632761012508174661576282091865815;
a(15,2)=.4125846513021434764669199036914748441530236624263624906865675605494451389101105748206;
a(15,3)=0;
a(15,4)=0;
a(15,5)=0;
a(15,6)=-.5266141894222268880524004361760397955773267936583064281992495328485812564705031059898;
a(15,7)=.4270299995350464166415042303891280056028480962227556089080302280248036279775533169729;
a(15,8)=0;
a(15,9)=0;
a(15,10)=0;
a(15,11)=0;
a(15,12)=0;
a(15,13)=-.4270299995350464166415042303891280056028480962227556089080302280248036279775533169729;
a(15,14)=.5266141894222268880524004361760397955773267936583064281992495328485812564705031059898;
a(16,1)=.3357505083417036184129939488963472892525539577157696170900805997207182929518116563365;
a(16,2)=0;
a(16,3)=-.4368367083891407610190158064846822677554138099678168504498524386288907219928146135373;
a(16,4)=0;
a(16,5)=0;
a(16,6)=0;
a(16,7)=0;
a(16,8)=0;
a(16,9)=0;
a(16,10)=0;
a(16,11)=0;
a(16,12)=0;
a(16,13)=0;
a(16,14)=0;
a(16,15)=.4368367083891407610190158064846822677554138099678168504498524386288907219928146135373;
a(17,1)=.3528400914539065757695374250020526983792042094778706633574048575138598395445375459964e-1;
a(17,2)=-.4368588562339554617519938616027395568153523718226810275461527253101515442644071737416;
a(17,3)=-.5185253025751911700815354370658368214653404020923461413204927007907407344767758710502;
a(17,4)=0;
a(17,5)=0;
a(17,6)=.8353882146318347708823979907871444293693024897533008980286851134950209556868285481998e-1;
a(17,7)=.3357324883823615793514438806416832609180686549969009829861766772233990660034579152038;
a(17,8)=-.1180346853290197678148440843338719378456952414935754110833043790640005049977678056530;
a(17,9)=-.2028121524999718341813208304021045923675061150408674489110338814798518734278169865166;
a(17,10)=.4018734442526045674154192467995252408036818247069631361197899796078897150680466096292;
a(17,11)=.6982808681238487516481594542254805552510541794271997632640921307356093400075120505480;
a(17,12)=.2745953340127460413630142920026546525788337913278252157685398122819348957290706395825;
a(17,13)=-.8071051158813288531951186779278104056732084407804403857002131168492985419909905100904;
a(17,14)=.2986469883301853807480531774155235135599206769328769914173437804434298240853514778770;
a(17,15)=.5185253025751911700815354370658368214653404020923461413204927007907407344767758710502;
a(17,16)=.4368588562339554617519938616027395568153523718226810275461527253101515442644071737416;
a(18,1)=.6209197599373698113296659614533014668355434879491539735308577247182925417261125663772e-1;
a(18,2)=0;
a(18,3)=0;
a(18,4)=-.2370641682610341331495765375782140661298030552375628902808037033318836121737258217437e-4;
a(18,5)=-.6428003833280951201594942704917239328012326911285267541209488594081796822296648233909e-1;
a(18,6)=.3687438603645761821399123831206778903282037436087547335619119621971344355111295076634e-2;
a(18,7)=-.1018985063883390318517185531761741947093755623537880151160698218463199568112290804391;
a(18,8)=-1.615156991132279248634588949337091397099056065118261274685321478362803742603652139751;
a(18,9)=.5575129376862483883772390999806376753451936152253549879783092566002680284183441003746e-1;
a(18,10)=.2999740442730542474693166227891282583707219400051911453891505061366754421743483258556e-1;
a(18,11)=.1028644695049101028644695049101028644695049101028644695049101028644695049101028644695;
a(18,12)=1.910185647689712603655547399341606051254888744375299364321738681385609513834605746434;
a(18,13)=0;
a(18,14)=0;
a(18,15)=0;
a(18,16)=0;
a(18,17)=0;
a(19,1)=.2844856452451573793911646553844558852036699603398141614278356754202769053339044143936e-1;
a(19,2)=0;
a(19,3)=0;
a(19,4)=.3165799964493034722875566842858460610050216465573212281131789183900020258465427093977e-3;
a(19,5)=-.5525888432262188319170327640790487545969645450106063923865555389616868711338131409265e-3;
a(19,6)=-.1183255174549944445021149561842812852064271065190167755442739963609718963556275051691;
a(19,7)=.1938922484073621146726876375685835165269276917606118012607910163032803782828370856187;
a(19,8)=.1682652258942110260583949781628343072985726300368246454918856443686870268822474706156;
a(19,9)=.3563767316841362151553312201210924091172592200366645244293102018701105721687836761531;
a(19,10)=.2312866221011801601056367087562928117520838491375753074193282165552529504002640917719e-1;
a(19,11)=.1120672039712451358047943885563686526071998118624132357749940911397522448934249090239;
a(19,12)=.3270594486632882191949507644839096544554400741234919690779120206103395518144833701849e-1;
a(19,13)=0;
a(19,14)=0;
a(19,15)=0;
a(19,16)=0;
a(19,17)=0;
a(19,18)=.8587100966182834440385725714504103173831600067132610444151333653999300633894633610689e-1;
a(20,1)=-.1173419732259703177431586516770096541229894232000369248299699901919536024428569961019;
a(20,2)=0;
a(20,3)=0;
a(20,4)=-.3734184564009809407971261205328987015248555550754998894979163936333559279774481776750e-2;
a(20,5)=.4027919306617174446400970513044466805082330226402433489311548845923975976352433666011e-3;
a(20,6)=-3.002892492298980742751420987748082151716674960487119900762553118461754877600886495313;
a(20,7)=.4917023754551741905757682673629798713826427064688630539546252683297140779696900933004;
a(20,8)=.1093026581956982711334819273037103660523197336835901346491782579130523107029645368949;
a(20,9)=4.438866425161718062568296459278422049285505570184400977388671058316129384180730252784;
a(20,10)=-3.180128276671810292813302036043791474722551092795367484396029882193163396007513479223;
a(20,11)=-.5204337221355089139506885814619580310532477138841695924426478292463762414469903342840;
a(20,12)=.7454757028337401438444185895299124747027019523352882248269731131987985493090039475846;
a(20,13)=0;
a(20,14)=0;
a(20,15)=0;
a(20,16)=0;
a(20,17)=0;
a(20,18)=-1.307279868042547954400719158617415304304317299259424176761188761198124972318203792662;
a(20,19)=3.346060563361835645500655336227256394831350849482090443918989892585419929336201505430;
b(1)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333e-1;
b(2)=-.2192242833052276559865092748735244519392917369308600337268128161888701517706576728499e-1;
b(3)=-.5671077504725897920604914933837429111531190926275992438563327032136105860113421550095e-1;
b(4)=0;
b(5)=0;
b(6)=-.5604719764011799410029498525073746312684365781710914454277286135693215339233038348083e-1;
b(7)=.1789297658862876254180602006688963210702341137123745819397993311036789297658862876254;
b(8)=0;
b(9)=.2774291885177431765083602625606543404285043197180408363394722409866844803871713937960;
b(10)=.1892374781489234901583064041060123262381623469486258303271944256799821862794952728707;
b(11)=.2774291885177431765083602625606543404285043197180408363394722409866844803871713937960;
b(12)=.1892374781489234901583064041060123262381623469486258303271944256799821862794952728707;
b(13)=-.1789297658862876254180602006688963210702341137123745819397993311036789297658862876254;
b(14)=.5604719764011799410029498525073746312684365781710914454277286135693215339233038348083e-1;
b(15)=.5671077504725897920604914933837429111531190926275992438563327032136105860113421550095e-1;
b(16)=.2192242833052276559865092748735244519392917369308600337268128161888701517706576728499e-1;
b(17)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333e-1;
b(18)=0;
b(19)=0;
b(20)=0;
b2(1)=.3384094699321500119535689523296650110037465731945733526084314933050510540576212038478e-1;
b2(2)=0;
b2(3)=0;
b2(4)=0;
b2(5)=0;
b2(6)=.1955303622390525926144440075007564477728439799025484342610621570185230402906381208788e-1;
b2(7)=-.1484654045322988613973449193544216784061948743654105468183106391508874608682127190173e-2;
b2(8)=-.1162248510491321992919437008893877903462567999309213366721353941801226146274069596753e-1;
b2(9)=.1982198469760467530470221846283978622784420777423199661655580760505978699680879695490;
b2(10)=-.7758662650760804940113847045886592110825301695804078990360034420456088345789272083379;
b2(11)=.2742833315959553841342645679141040341915980402376733034504326071093505681225893880955;
b2(12)=.1997687088367227567464014632439729257448057897799056471770504825569298230262746458699;
b2(13)=0;
b2(14)=0;
b2(15)=0;
b2(16)=0;
b2(17)=0;
b2(18)=.6245770177191381318387175660828461764984631124482868948854268098949844287408148671846e-1;
b2(19)=.9668109765873927449994633209307008946249042461289129164115624036590013207723153065199;
b2(20)=.3403885524116498998672793456263972653396227787380143679130447245739453645217530227012e-1;