function [a,b,b2,c,ord]=rkeh10_8dk()
% 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/RKcoeff10b_1.pdf
% und dortige Literaturangabe
% Modifikation durch Dieter Kaiser:
% http://www.minet.uni-jena.de/preprints/
ord=8; % Ordnung des 'niedrigeren' Verfahrens für Fehlerschätzer
c=zeros(17,1);
b=c';
c(1)=0;
c(2)=.5233584004620047139632937023215170497515953383496781610502942213792083195573343614542;
c(3)=.5265091001416125727329516734775408259523008085442588621240322448552569517961160776999;
c(4)=.7897636502124188590994275102163112389284512128163882931860483672828854276941741165498;
c(5)=.3939235701256720143227738119996521367488350094732736567444747389961242969755195414769;
c(6)=.7666539862535505911932668693560686601417881683220066628197494388337786524595845606945;
c(7)=.2897636502124188590994275102163112389284512128163882931860483672828854276941741165498;
c(8)=.1084776892195672933536461100396272126536495082872530661076180009074872219675135232227;
c(9)=.3573842417596774518429245029795604640404982636367873040901247917361510345429002009092;
c(10)=.8825276619647323464255014869796690751828678442680521196637911779185276585194132570617;
c(11)=.6426157582403225481570754970204395359595017363632126959098752082638489654570997990908;
c(12)=.1174723380352676535744985130203309248171321557319478803362088220814723414805867429383;
c(13)=.7666539862535505911932668693560686601417881683220066628197494388337786524595845606945;
c(14)=.2897636502124188590994275102163112389284512128163882931860483672828854276941741165498;
c(15)=.5265091001416125727329516734775408259523008085442588621240322448552569517961160776999;
c(16)=.5233584004620047139632937023215170497515953383496781610502942213792083195573343614542;
c(17)=1.;
a=zeros(17);
a(2,1)=.5233584004620047139632937023215170497515953383496781610502942213792083195573343614542;
a(3,1)=.2616697163778127283312402097548997641973627614039327706102102491953717704187699219879;
a(3,2)=.2648393837637998444017114637226410617549380471403260915138219956598851813773461557120;
a(4,1)=.1974409125531047147748568775540778097321128032040970732965120918207213569235435291375;
a(4,2)=0.;
a(4,3)=.5923227376593141443245706326622334291963384096122912198895362754621640707706305874124;
a(5,1)=.1973205486287023067036649485978952117578825584337199991656132317825743833021058860612;
a(5,2)=0.;
a(5,3)=.2950833340926721918228255598274359230145509784596048092593866299668586683096812321792;
a(5,4)=-.9848031259570248420371669642567899802359852742005115168052512275330875463626757676351e-1;
a(6,1)=.1313134173444616536130177999345909470542768366990469474228776563495603985387834598888;
a(6,2)=0.;
a(6,3)=0.;
a(6,4)=.1101544395386396206773696967716892932905881833462590372574439152868807925960672597269;
a(6,5)=.5251861293704493169028793726497884197969231482767006781394278671973374613247338410788;
a(7,1)=.1342003418463226002727476951680931444018781918996634475042938727232827990267510411664;
a(7,2)=0.;
a(7,3)=0.;
a(7,4)=.6960887032881160802299824047678314828416281106463280160258778625630871045892118300249;
a(7,5)=.2504977215703398097125518092509800218006823479445679226772611578145189247821334145350;
a(7,6)=-.7910231164923596311158543989705934101157374376741710930213845258180034007039221691766;
a(8,1)=.7221827418966261942005081845517049770474117717860435538167259617193885317787239789517e-1;
a(8,2)=0.;
a(8,3)=0.;
a(8,4)=0.;
a(8,5)=-.5833632293645610716380606138930651874161115931850840194371530896953184153028603826158e-1;
a(8,6)=.3047557668574525220174950070294036092519082552287015783049982467857131629284936232933e-2;
a(8,7)=.9154818029778625587722640290346919759800040787487009688661073123722307869064222735619e-1;
a(9,1)=.3125500813516617947050120528263476612150928811800844295622424453129979711857118942140e-1;
a(9,2)=0.;
a(9,3)=0.;
a(9,4)=0.;
a(9,5)=0.;
a(9,6)=.1091238215424128929294834955207716494619546474783251185719596191189550956073995218558e-3;
a(9,7)=.1567257586309938356246107465648794708917441337700138495832023584660674808897051732313;
a(9,8)=.1692943511719750238548830676365254553777828871012866864321262291196648014390164387346;
a(10,1)=.1190660441466861924216884258080925099509546061156163781761478570338134316043617322173e-1;
a(10,2)=0.;
a(10,3)=0.;
a(10,4)=0.;
a(10,5)=0.;
a(10,6)=.2834370820246027860255992266982188665428702252125274101591962479489267620092644600260;
a(10,7)=-.4163121675706282353724276181356300212164192944619403444080980777942870933794472685216;
a(10,8)=.2646463339497663668210902091085361027053564926326924812994390366777834273576276339310;
a(10,9)=.7388498091463228097090708267277348761559649602732109347956391853827232193715322584046;
a(11,1)=.2340657369133197891470838377984007842503946857756845416362339865999662377057916960290e-1;
a(11,2)=0.;
a(11,3)=0.;
a(11,4)=0.;
a(11,5)=0.;
a(11,6)=.9449313018949365401300253095605614324982516623777346096448800625130954018295939047740e-1;
a(11,7)=-.2728720559019952606363092580665963250433705067252372208829562550632597611313198545757;
a(11,8)=.2240220461156057997944315522518131846261124699330640294272458923970695162204120486767;
a(11,9)=.6043814410751657569719347222576085340011863610739072982875214128849988434755301302413;
a(11,10)=-.3081537692927938090069243415828207929929122273386332605004724686626579706106108533173e-1;
a(12,1)=.4544377531017616315765389908153096498645890941991961177836633137902353666760633687088e-1;
a(12,2)=0.;
a(12,3)=0.;
a(12,4)=0.;
a(12,5)=0.;
a(12,6)=-.1187996671864028586765254219285356343376285990176386474891150929245660355742130860183e-2;
a(12,7)=.1203565499092261097966188217234362058515446695047694116231895919296441480090125575596e-1;
a(12,8)=.7512690298764966821627521371565572140275315500656240513504528112598150181393445048666e-1;
a(12,9)=-.1822092409888012403141186105974838892761579859192182074696828369088959767419077567178e-1;
a(12,10)=-.2571528540841043468806376221771396205460354181513400383106090430345956162981031278207e-3;
a(12,11)=.4532078371347468185965270952011502734303744355238469520648294046672741844375709484540e-2;
a(13,1)=.1767137782592772030958798765711993346076326211800572275450227165783753236705910865492;
a(13,2)=0.;
a(13,3)=0.;
a(13,4)=.1101544395386396206773696967716892932905881833462590372574439152868807925960672597269;
a(13,5)=.5251861293704493169028793726497884197969231482767006781394278671973374613247338410788;
a(13,6)=-.4716207672801957948798217912152359376250630852495511063738116933651587031904328351457;
a(13,7)=.8990310498491875266368990071875152922763468480002185650326986125011485318362907529907;
a(13,8)=-.7467230306916289638599602008088168117750310724922743198498253813592425510843163068237;
a(13,9)=-1.017101516756146040853186972006065972987027196800421553809421717321497529906933631477;
a(13,10)=.1263508715195988962951307827687648346421985369266969430473204298972536422365713122404;
a(13,11)=.5660138272355064270682732249907470012763799581315503842554078250210353407723389384909;
a(13,12)=.5986492052088624001098038724464832066388402270027708075754868643976463442046741430643;
a(14,1)=.1277534947480869822694777006880571541639616513225826576695303067404023367054772185702;
a(14,2)=0.;
a(14,3)=0.;
a(14,4)=.6960887032881160802299824047678314828416281106463280160258778625630871045892118300249;
a(14,5)=.2504977215703398097125518092509800218006823479445679226772611578145189247821334145350;
a(14,6)=-.7368246436028416867609246757454535374296880219263938462439002090823944915566264811824;
a(14,7)=-.2778578777108241826773273374900723250222301109862216853553157201018147214465526588169;
a(14,8)=-.5997526313598403501296884799197753021563938240370770948150479630779446286262003432092;
a(14,9)=.2024692338910704693500237585621903123505161701229471467587157451308903694383321235511;
a(14,10)=.5432036982363849780600684652634443601468189969678666775046718813224989883416104871445e-2;
a(14,11)=-.1074472474155047920101206919894381337125444664272205024314798936418733258920769563370e-1;
a(14,12)=.6951688484570234004700591858164146072357628221597117426434839740273190245052113679250;
a(14,13)=-.6246651130952503394431547116755180508600167575701318270645551618021614799102076408562e-1;
a(15,1)=.2616697163778127283312402097548997641973627614039327706102102491953717704187699219879;
a(15,2)=.2648393837637998444017114637226410617549380471403260915138219956598851813773461557120;
a(15,3)=0.;
a(15,4)=0.;
a(15,5)=0.;
a(15,6)=-.1998011270205324791079663580830885049848273745422651189682301346802905866051733476638;
a(15,7)=-.6510499873052827124921914489683813643155863882516440645794556633240216912803403931627;
a(15,8)=0.;
a(15,9)=0.;
a(15,10)=0.;
a(15,11)=0.;
a(15,12)=0.;
a(15,13)=.1998011270205324791079663580830885049848273745422651189682301346802905866051733476638;
a(15,14)=.6510499873052827124921914489683813643155863882516440645794556633240216912803403931627;
a(16,1)=.5233584004620047139632937023215170497515953383496781610502942213792083195573343614542;
a(16,2)=0.;
a(16,3)=-.5558812136754302060726143105309293455559184141943321053532734480099926250948077261183;
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)=.5558812136754302060726143105309293455559184141943321053532734480099926250948077261183;
a(17,1)=.5732079543206559103114261705103983656495216504867462310285994428078568043160654439795e-1;
a(17,2)=-.5499710763899945608115841896290187887481592249811405834035066676393750158953834290913;
a(17,3)=-.6499374174008749135116607420010890619711618624173024222960650740195874521599402439688;
a(17,4)=0.;
a(17,5)=0.;
a(17,6)=-1.061667370401756207240019539023157074172524666307437022389776456477183230723296269940;
a(17,7)=-.4040156689806358294269682234212183308262562023912486365220642577870402491555711062480e-1;
a(17,8)=-.1828302366407607254710272774065261039379052622607190097473388370699414811305446343873;
a(17,9)=-.3336592706492786845666575661828162687906558601961826440714525336287466822150370633233;
a(17,10)=.3956485423760567568801345107166015519577734440834727480004748180136901286634710478955;
a(17,11)=.6950570494599735891002099282005158129027126868215679095299345058137097320818106877162;
a(17,12)=.2714873764573748588377263058539220945263829691804714618529052530298982146739754552950;
a(17,13)=.6071810560414041202873774349794680164722661545496003750296400378855628528787164400954;
a(17,14)=.5918636248229842840838104081530739675596239893196764223449596939309288102548549028752;
a(17,15)=.6499374174008749135116607420010890619711618624173024222960650740195874521599402439688;
a(17,16)=.5499710763899945608115841896290187887481592249811405834035066676393750158953834290913;
b(1)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333e-1;
b(2)=-.3846153846153846153846153846153846153846153846153846153846153846153846153846153846154e-1;
b(3)=-.9090909090909090909090909090909090909090909090909090909090909090909090909090909090909e-1;
b(4)=0.;
b(5)=0.;
b(6)=-.1348314606741573033707865168539325842696629213483146067415730337078651685393258426966;
b(7)=-.1111111111111111111111111111111111111111111111111111111111111111111111111111111111111;
b(8)=0.;
b(9)=.2774291885177431765083602625606543404285043197180408363394722409866844803871713937960;
b(10)=.1892374781489234901583064041060123262381623469486258303271944256799821862794952728707;
b(11)=.2774291885177431765083602625606543404285043197180408363394722409866844803871713937960;
b(12)=.1892374781489234901583064041060123262381623469486258303271944256799821862794952728707;
b(13)=.1348314606741573033707865168539325842696629213483146067415730337078651685393258426966;
b(14)=.1111111111111111111111111111111111111111111111111111111111111111111111111111111111111;
b(15)=.9090909090909090909090909090909090909090909090909090909090909090909090909090909090909e-1;
b(16)=.3846153846153846153846153846153846153846153846153846153846153846153846153846153846154e-1;
b(17)=.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333e-1;
b2=b;
% b2(16)=2.5e-2; 
%  b2(2)=-2.5e-2;
b2(16)=4/13; 
b2(2)=-4/13;