public RADAU5(RADCOR radcor)
{
#region Set Dependencies
this._radcor = radcor;
#endregion Set Dependencies
}
public RADAU5()
{
#region Initialization Common Blocks
CommonBlock CONRA5 = new CommonBlock(4, 4, 0, 0);
CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
DEC dec = new DEC();
DECB decb = new DECB();
ELMHES elmhes = new ELMHES();
DECH dech = new DECH();
DECC decc = new DECC();
DECBC decbc = new DECBC();
DECHC dechc = new DECHC();
SOL sol = new SOL();
SOLC solc = new SOLC();
SOLB solb = new SOLB();
SOLBC solbc = new SOLBC();
SOLH solh = new SOLH();
SOLHC solhc = new SOLHC();
DECOMR decomr = new DECOMR(dec, decb, elmhes, dech, LINAL);
DECOMC decomc = new DECOMC(decc, decbc, dechc, LINAL);
SLVRAD slvrad = new SLVRAD(sol, solc, solb, solbc, solh, solhc, LINAL);
ESTRAD estrad = new ESTRAD(sol, solb, solh, LINAL);
RADCOR radcor = new RADCOR(decomr, decomc, slvrad, estrad, CONRA5, LINAL);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._radcor = radcor;
#endregion Set Dependencies
}
internal override void InitializeRungeKuttaClasses()
{
bbampl = new BBAMPL();
dec = new DEC();
sol = new SOL();
dech = new DECH();
solh = new SOLH();
decc = new DECC();
solc = new SOLC();
dechc = new DECHC();
solhc = new SOLHC();
decb = new DECB();
solb = new SOLB();
decbc = new DECBC();
solbc = new SOLBC();
elmhes = new ELMHES();
//solout = new SOLOUTR(INTERN);
contr5 = new CONTR5(CONRA5);
decomr = new DECOMR(dec, decb, elmhes, dech, LINAL);
decomc = new DECOMC(decc, decbc, dechc, LINAL);
slvrar = new SLVRAR(sol, solb, solh, LINAL);
slvrai = new SLVRAI(solc, solbc, solhc, LINAL);
slvrad = new SLVRAD(sol, solc, solb, solbc, solh, solhc, LINAL);
estrad = new ESTRAD(sol, solb, solh, LINAL);
estrav = new ESTRAV(sol, solb, solh, LINAL);
slvrod = new SLVROD(sol, solb, LINAL);
slvseu = new SLVSEU(sol, solb, solh, LINAL);
radcor = new RADCOR(decomr, decomc, slvrad, estrad, CONRA5, LINAL);
radau5 = new RADAU5(radcor);
//dr1_radau5 = new DR1_RADAU5(fvpol, jvpol, solout, bbampl, radau5);
base._RKSolOut = new RKSolOut(this.contr5);
}
