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);
}
public RADCOR()
{
#region Initialization Common Blocks
CommonBlock CONRA5 = new CommonBlock(4, 4, 0, 0);
CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);
#endregion
#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);
#endregion
#region Set Dependencies
this._decomr = decomr; this._decomc = decomc; this._slvrad = slvrad; this._estrad = estrad;
#endregion
#region Common varaible Initialization
#region Common Block: CONRA5 Initialization
this._conra5 = CONRA5;
NN = CONRA5.intData[0];
NN2 = CONRA5.intData[1];
NN3 = CONRA5.intData[2];
NN4 = CONRA5.intData[3];
XSOL = CONRA5.doubleData[0];
HSOL = CONRA5.doubleData[1];
C2M1 = CONRA5.doubleData[2];
C1M1 = CONRA5.doubleData[3];
#endregion
#region Common Block: LINAL Initialization
this._linal = LINAL;
MLE = LINAL.intData[0];
MUE = LINAL.intData[1];
MBJAC = LINAL.intData[2];
MBB = LINAL.intData[3];
MDIAG = LINAL.intData[4];
MDIFF = LINAL.intData[5];
MBDIAG = LINAL.intData[6];
#endregion
#endregion
}
public RADAU5()
{
#region Initialization Common Blocks
CommonBlock CONRA5 = new CommonBlock(4, 4, 0, 0);
CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);
#endregion
#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
#region Set Dependencies
this._radcor = radcor;
#endregion
}
public RADCOR(DECOMR decomr, DECOMC decomc, SLVRAD slvrad, ESTRAD estrad, CommonBlock CONRA5, CommonBlock LINAL)
{
#region Set Dependencies
this._decomr = decomr; this._decomc = decomc; this._slvrad = slvrad; this._estrad = estrad;
#endregion
#region Common varaible Initialization
#region Common Block: CONRA5 Initialization
this._conra5 = CONRA5;
NN = CONRA5.intData[0];
NN2 = CONRA5.intData[1];
NN3 = CONRA5.intData[2];
NN4 = CONRA5.intData[3];
XSOL = CONRA5.doubleData[0];
HSOL = CONRA5.doubleData[1];
C2M1 = CONRA5.doubleData[2];
C1M1 = CONRA5.doubleData[3];
#endregion
#region Common Block: LINAL Initialization
this._linal = LINAL;
MLE = LINAL.intData[0];
MUE = LINAL.intData[1];
MBJAC = LINAL.intData[2];
MBB = LINAL.intData[3];
MDIAG = LINAL.intData[4];
MDIFF = LINAL.intData[5];
MBDIAG = LINAL.intData[6];
#endregion
#endregion
}