public DECOMR(DEC dec, DECB decb, ELMHES elmhes, DECH dech, CommonBlock LINAL)
{
#region Set Dependencies
this._dec = dec; this._decb = decb; this._elmhes = elmhes; this._dech = dech;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public COBYLATEST()
{
#region Initialization Common Blocks
CommonBlock Default = new CommonBlock(0, 1, 0, 0);
#endregion
#region Dependencies (Initialization)
TRSTLP trstlp = new TRSTLP();
CALCFC calcfc = new CALCFC(Default);
COBYLB cobylb = new COBYLB(calcfc, trstlp);
COBYLA cobyla = new COBYLA(cobylb);
#endregion
#region Set Dependencies
this._cobyla = cobyla;
#endregion
#region Common varaible Initialization
#region Common Block: Default Initialization
this._default = Default;
NPROB = Default.intData[0];
#endregion
#endregion
}
public DOPCOR()
{
#region Initialization Common Blocks
CommonBlock CONDO5 = new CommonBlock(2, 0, 0, 0);
#endregion
#region Dependencies (Initialization)
HINIT hinit = new HINIT();
CDOPRI cdopri = new CDOPRI();
#endregion
#region Set Dependencies
this._hinit = hinit; this._cdopri = cdopri;
#endregion
#region Common varaible Initialization
#region Common Block: CONDO5 Initialization
this._condo5 = CONDO5;
XOLD = CONDO5.doubleData[0];
HOUT = CONDO5.doubleData[1];
#endregion
#endregion
}
public override CommonBlock GetCommonBlock()
{
TextLine line = reader.ReadLine();
if (line.Id != "common")
{
throw new Exception("Failed to load angel bmp file, unexpected block '" + line.Id + "'");
}
CommonBlock block = new CommonBlock();
block.LineHeight = line.GetUInt("lineHeight") ?? 0;
block.Base = line.GetUInt("base") ?? 0;
block.ScaleW = line.GetUInt("scaleW") ?? 0;
block.ScaleH = line.GetUInt("scaleH") ?? 0;
block.Pages = line.GetUInt("pages") ?? 0;
block.IsPacked = line.GetBool("packed") ?? false;
block.AlphaChannel = line.GetUInt("alphaChnl") ?? 4;
block.RedChannel = line.GetUInt("redChnl") ?? 4;
block.GreenChannel = line.GetUInt("greenChnl") ?? 4;
block.BlueChannel = line.GetUInt("blueChnl") ?? 4;
common = block;
return(block);
}
public DataSet FillUnit(Unit unit)
{
commonBlock = new CommonBlock();
object[] temp = CommonUtility.getObjectArrayFromSingleOrMultipleClsObjectWithRemoveNull(unit, true);
DataSet ds = commonBlock.FillUnit(temp);
return(ds);
}
public CALCFC(CommonBlock Default)
{
#region Common varaible Initialization
#region Common Block: Default Initialization
this._default = Default;
NPROB = Default.intData[0];
#endregion
#endregion
}
public CONTD5(CommonBlock CONDO5)
{
#region Common varaible Initialization
#region Common Block: CONDO5 Initialization
this._condo5 = CONDO5;
XOLD = CONDO5.doubleData[0];
H = CONDO5.doubleData[1];
#endregion
#endregion
}
public COBYLATEST(COBYLA cobyla, CommonBlock Default)
{
#region Set Dependencies
this._cobyla = cobyla;
#endregion
#region Common varaible Initialization
#region Common Block: Default Initialization
this._default = Default;
NPROB = Default.intData[0];
#endregion
#endregion
}
public CALCFC()
{
#region Initialization Common Blocks
CommonBlock Default = new CommonBlock(0, 1, 0, 0);
#endregion
#region Common varaible Initialization
#region Common Block: Default Initialization
this._default = Default;
NPROB = Default.intData[0];
#endregion
#endregion
}
public DOPCOR(HINIT hinit, CDOPRI cdopri, CommonBlock CONDO5)
{
#region Set Dependencies
this._hinit = hinit; this._cdopri = cdopri;
#endregion
#region Common varaible Initialization
#region Common Block: CONDO5 Initialization
this._condo5 = CONDO5;
XOLD = CONDO5.doubleData[0];
HOUT = CONDO5.doubleData[1];
#endregion
#endregion
}
public DOPRI5()
{
#region Initialization Common Blocks
CommonBlock CONDO5 = new CommonBlock(2, 0, 0, 0);
#endregion
#region Dependencies (Initialization)
HINIT hinit = new HINIT();
CDOPRI cdopri = new CDOPRI();
DOPCOR dopcor = new DOPCOR(hinit, cdopri, CONDO5);
#endregion
#region Set Dependencies
this._dopcor = dopcor;
#endregion
}
public DECOMR()
{
#region Initialization Common Blocks
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();
#endregion Dependencies (Initialization)
#region Set Dependencies
this._dec = dec; this._decb = decb; this._elmhes = elmhes; this._dech = dech;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public DOPRI5()
{
#region Initialization Common Blocks
CommonBlock CONDO5 = new CommonBlock(2, 0, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
HINIT hinit = new HINIT();
CDOPRI cdopri = new CDOPRI();
DOPCOR dopcor = new DOPCOR(hinit, cdopri, CONDO5);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._dopcor = dopcor;
#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
}
public override CommonBlock GetCommonBlock()
{
byte blockId = r.ReadByte();
int blockSize = r.ReadInt16();
CommonBlock block = new CommonBlock();
block.LineHeight = r.ReadUInt16();
block.Base = r.ReadUInt16();
block.ScaleW = r.ReadUInt16();
block.ScaleH = r.ReadUInt16();
block.Pages = r.ReadUInt16();
byte bitField = r.ReadByte();
block.IsPacked = r.GetBit(bitField, 7);
block.AlphaChannel = r.ReadByte();
block.RedChannel = r.ReadByte();
block.GreenChannel = r.ReadByte();
block.BlueChannel = r.ReadByte();
// We need this later
common = block;
return(block);
}
public DVODE()
{
#region Initialization Common Blocks
CommonBlock DVOD01 = new CommonBlock(48, 33, 0, 0);
CommonBlock DVOD02 = new CommonBlock(1, 8, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
DVNORM dvnorm = new DVNORM();
DCOPY dcopy = new DCOPY();
DSCAL dscal = new DSCAL();
IDAMAX idamax = new IDAMAX();
DAXPY daxpy = new DAXPY();
DDOT ddot = new DDOT();
DUMSUM dumsum = new DUMSUM();
DEWSET dewset = new DEWSET();
IUMACH iumach = new IUMACH();
DVSET dvset = new DVSET(DVOD01);
DGEFA dgefa = new DGEFA(idamax, dscal, daxpy);
DACOPY dacopy = new DACOPY(dcopy);
DGBFA dgbfa = new DGBFA(idamax, dscal, daxpy);
DVJAC dvjac = new DVJAC(dvnorm, dcopy, dscal, dgefa, dacopy, dgbfa, DVOD01, DVOD02);
DGESL dgesl = new DGESL(ddot, daxpy);
DGBSL dgbsl = new DGBSL(ddot, daxpy);
DVSOL dvsol = new DVSOL(dgesl, dgbsl, DVOD01);
DVNLSD dvnlsd = new DVNLSD(dvnorm, dcopy, dvjac, dvsol, dscal, daxpy, DVOD01, DVOD02);
DUMACH dumach = new DUMACH(dumsum);
DVHIN dvhin = new DVHIN(dvnorm);
IXSAV ixsav = new IXSAV(iumach);
XERRWD xerrwd = new XERRWD(ixsav);
DVINDY dvindy = new DVINDY(dscal, xerrwd, DVOD01, DVOD02);
DVJUST dvjust = new DVJUST(daxpy, DVOD01);
DVSTEP dvstep = new DVSTEP(dvnorm, dvjust, dscal, dvset, daxpy, dcopy, DVOD01, DVOD02);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._dvnlsd = dvnlsd; this._dumach = dumach; this._dvnorm = dvnorm; this._dcopy = dcopy; this._dewset = dewset;
this._dvhin = dvhin; this._dscal = dscal; this._dvindy = dvindy; this._xerrwd = xerrwd; this._dvstep = dvstep;
#endregion Set Dependencies
#region Data Initialization
//MORD(1)/12
MORD[1 + o_mord] = 12;
//MORD(2)/5
MORD[2 + o_mord] = 5;
//MXSTP0/500
MXSTP0 = 500;
//MXHNL0/10
MXHNL0 = 10;
//ZERO/0.0D0
ZERO = 0.0E0;
//ONE/1.0D0
ONE = 1.0E0;
//TWO/2.0D0
TWO = 2.0E0;
//FOUR/4.0D0
FOUR = 4.0E0;
//PT2/0.2D0
PT2 = 0.2E0;
//HUN/100.0D0
HUN = 100.0E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#region Common Block: DVOD02 Initialization
this._dvod02 = DVOD02;
HU = DVOD02.doubleData[0];
NCFN = DVOD02.intData[0];
NETF = DVOD02.intData[1];
NFE = DVOD02.intData[2];
NJE = DVOD02.intData[3];
NLU = DVOD02.intData[4];
NNI = DVOD02.intData[5];
NQU = DVOD02.intData[6];
NST = DVOD02.intData[7];
#endregion Common Block: DVOD02 Initialization
#endregion Common varaible Initialization
}
public CONTD5(CommonBlock CONDO5)
{
#region Common varaible Initialization
#region Common Block: CONDO5 Initialization
this._condo5 = CONDO5;
XOLD = CONDO5.doubleData[0];
H = CONDO5.doubleData[1];
#endregion Common Block: CONDO5 Initialization
#endregion Common varaible Initialization
}
public CONTD5()
{
#region Initialization Common Blocks
CommonBlock CONDO5 = new CommonBlock(2, 0, 0, 0);
#endregion Initialization Common Blocks
#region Common varaible Initialization
#region Common Block: CONDO5 Initialization
this._condo5 = CONDO5;
XOLD = CONDO5.doubleData[0];
H = CONDO5.doubleData[1];
#endregion Common Block: CONDO5 Initialization
#endregion Common varaible Initialization
}
public DVJAC()
{
#region Initialization Common Blocks
CommonBlock DVOD01 = new CommonBlock(48, 33, 0, 0);
CommonBlock DVOD02 = new CommonBlock(1, 8, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
DVNORM dvnorm = new DVNORM();
DCOPY dcopy = new DCOPY();
DSCAL dscal = new DSCAL();
IDAMAX idamax = new IDAMAX();
DAXPY daxpy = new DAXPY();
DGEFA dgefa = new DGEFA(idamax, dscal, daxpy);
DACOPY dacopy = new DACOPY(dcopy);
DGBFA dgbfa = new DGBFA(idamax, dscal, daxpy);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._dvnorm = dvnorm; this._dcopy = dcopy; this._dscal = dscal; this._dgefa = dgefa; this._dacopy = dacopy;
this._dgbfa = dgbfa;
#endregion Set Dependencies
#region Data Initialization
//ONE/1.0D0
ONE = 1.0E0;
//THOU/1000.0D0
THOU = 1000.0E0;
//ZERO/0.0D0
ZERO = 0.0E0;
//PT1/0.1D0
PT1 = 0.1E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#region Common Block: DVOD02 Initialization
this._dvod02 = DVOD02;
HU = DVOD02.doubleData[0];
NCFN = DVOD02.intData[0];
NETF = DVOD02.intData[1];
NFE = DVOD02.intData[2];
NJE = DVOD02.intData[3];
NLU = DVOD02.intData[4];
NNI = DVOD02.intData[5];
NQU = DVOD02.intData[6];
NST = DVOD02.intData[7];
#endregion Common Block: DVOD02 Initialization
#endregion Common varaible Initialization
}
public SLVRAR()
{
#region Initialization Common Blocks
CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
SOL sol = new SOL();
SOLB solb = new SOLB();
SOLH solh = new SOLH();
#endregion Dependencies (Initialization)
#region Set Dependencies
this._sol = sol; this._solb = solb; this._solh = solh;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
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 Set Dependencies
#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 Common Block: CONRA5 Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public CONTR5()
{
#region Initialization Common Blocks
CommonBlock CONRA5 = new CommonBlock(4, 4, 0, 0);
#endregion Initialization Common Blocks
#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 Common Block: CONRA5 Initialization
#endregion Common varaible Initialization
}
public DVSTEP()
{
#region Initialization Common Blocks
CommonBlock DVOD01 = new CommonBlock(48, 33, 0, 0);
CommonBlock DVOD02 = new CommonBlock(1, 8, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
DVNORM dvnorm = new DVNORM();
DAXPY daxpy = new DAXPY();
DSCAL dscal = new DSCAL();
DCOPY dcopy = new DCOPY();
DVSET dvset = new DVSET(DVOD01);
DVJUST dvjust = new DVJUST(daxpy, DVOD01);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._dvnorm = dvnorm; this._dvjust = dvjust; this._dscal = dscal; this._dvset = dvset; this._daxpy = daxpy;
this._dcopy = dcopy;
#endregion Set Dependencies
#region Data Initialization
//KFC/-3
KFC = -3;
//KFH/-7
KFH = -7;
//MXNCF/10
MXNCF = 10;
//ADDON/1.0D-6
ADDON = 1.0E-6;
//BIAS1/6.0D0
BIAS1 = 6.0E0;
//BIAS2/6.0D0
BIAS2 = 6.0E0;
//BIAS3/10.0D0
BIAS3 = 10.0E0;
//ETACF/0.25D0
ETACF = 0.25E0;
//ETAMIN/0.1D0
ETAMIN = 0.1E0;
//ETAMXF/0.2D0
ETAMXF = 0.2E0;
//ETAMX1/1.0D4
ETAMX1 = 1.0E4;
//ETAMX2/10.0D0
ETAMX2 = 10.0E0;
//ETAMX3/10.0D0
ETAMX3 = 10.0E0;
//ONEPSM/1.00001D0
ONEPSM = 1.00001E0;
//THRESH/1.5D0
THRESH = 1.5E0;
//ONE/1.0D0
ONE = 1.0E0;
//ZERO/0.0D0
ZERO = 0.0E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#region Common Block: DVOD02 Initialization
this._dvod02 = DVOD02;
HU = DVOD02.doubleData[0];
NCFN = DVOD02.intData[0];
NETF = DVOD02.intData[1];
NFE = DVOD02.intData[2];
NJE = DVOD02.intData[3];
NLU = DVOD02.intData[4];
NNI = DVOD02.intData[5];
NQU = DVOD02.intData[6];
NST = DVOD02.intData[7];
#endregion Common Block: DVOD02 Initialization
#endregion Common varaible Initialization
}
public DECOMC(DECC decc, DECBC decbc, DECHC dechc, CommonBlock LINAL)
{
#region Set Dependencies
this._decc = decc; this._decbc = decbc; this._dechc = dechc;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public SLVRAI(SOLC solc, SOLBC solbc, SOLHC solhc, CommonBlock LINAL)
{
#region Set Dependencies
this._solc = solc; this._solbc = solbc; this._solhc = solhc;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public SLVRAI()
{
#region Initialization Common Blocks
CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
SOLC solc = new SOLC();
SOLBC solbc = new SOLBC();
SOLHC solhc = new SOLHC();
#endregion Dependencies (Initialization)
#region Set Dependencies
this._solc = solc; this._solbc = solbc; this._solhc = solhc;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public DVSRCO()
{
#region Initialization Common Blocks
CommonBlock DVOD01 = new CommonBlock(48, 33, 0, 0);
CommonBlock DVOD02 = new CommonBlock(1, 8, 0, 0);
#endregion Initialization Common Blocks
#region Data Initialization
//LENRV1/48
LENRV1 = 48;
//LENIV1/33
LENIV1 = 33;
//LENRV2/1
LENRV2 = 1;
//LENIV2/8
LENIV2 = 8;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
//Start Array: RVOD1 StartIndex: 0 LastIndex: 47
RVOD1 = DVOD01.doubleData;
o_rvod1 = -1; //o_ = StartIndex-1
//End Array: RVOD1
//Start Array: IVOD1 StartIndex: 0 LastIndex: 32
IVOD1 = DVOD01.intData;
o_ivod1 = -1; //o_ = StartIndex-1
//End Array: IVOD1
#endregion Common Block: DVOD01 Initialization
#region Common Block: DVOD02 Initialization
this._dvod02 = DVOD02;
//Start Array: RVOD2 StartIndex: 0 LastIndex: 0
RVOD2 = DVOD02.doubleData;
o_rvod2 = -1; //o_ = StartIndex-1
//End Array: RVOD2
//Start Array: IVOD2 StartIndex: 0 LastIndex: 7
IVOD2 = DVOD02.intData;
o_ivod2 = -1; //o_ = StartIndex-1
//End Array: IVOD2
#endregion Common Block: DVOD02 Initialization
#endregion Common varaible Initialization
}
public DVSET(CommonBlock DVOD01)
{
#region Data Initialization
//CORTES/0.1D0
CORTES = 0.1E0;
//ONE/1.0D0
ONE = 1.0E0;
//SIX/6.0D0
SIX = 6.0E0;
//TWO/2.0D0
TWO = 2.0E0;
//ZERO/0.0D0
ZERO = 0.0E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#endregion Common varaible Initialization
}
public DVODE(DVNLSD dvnlsd, DUMACH dumach, DVNORM dvnorm, DCOPY dcopy, DEWSET dewset, DVHIN dvhin, DSCAL dscal, DVINDY dvindy, XERRWD xerrwd, DVSTEP dvstep
, CommonBlock DVOD01, CommonBlock DVOD02)
{
#region Set Dependencies
this._dvnlsd = dvnlsd; this._dumach = dumach; this._dvnorm = dvnorm; this._dcopy = dcopy; this._dewset = dewset;
this._dvhin = dvhin; this._dscal = dscal; this._dvindy = dvindy; this._xerrwd = xerrwd; this._dvstep = dvstep;
#endregion Set Dependencies
#region Data Initialization
//MORD(1)/12
MORD[1 + o_mord] = 12;
//MORD(2)/5
MORD[2 + o_mord] = 5;
//MXSTP0/500
MXSTP0 = 500;
//MXHNL0/10
MXHNL0 = 10;
//ZERO/0.0D0
ZERO = 0.0E0;
//ONE/1.0D0
ONE = 1.0E0;
//TWO/2.0D0
TWO = 2.0E0;
//FOUR/4.0D0
FOUR = 4.0E0;
//PT2/0.2D0
PT2 = 0.2E0;
//HUN/100.0D0
HUN = 100.0E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#region Common Block: DVOD02 Initialization
this._dvod02 = DVOD02;
HU = DVOD02.doubleData[0];
NCFN = DVOD02.intData[0];
NETF = DVOD02.intData[1];
NFE = DVOD02.intData[2];
NJE = DVOD02.intData[3];
NLU = DVOD02.intData[4];
NNI = DVOD02.intData[5];
NQU = DVOD02.intData[6];
NST = DVOD02.intData[7];
#endregion Common Block: DVOD02 Initialization
#endregion Common varaible Initialization
}
public DOPCOR(HINIT hinit, CDOPRI cdopri, CommonBlock CONDO5)
{
#region Set Dependencies
this._hinit = hinit; this._cdopri = cdopri;
#endregion Set Dependencies
#region Common varaible Initialization
#region Common Block: CONDO5 Initialization
this._condo5 = CONDO5;
XOLD = CONDO5.doubleData[0];
HOUT = CONDO5.doubleData[1];
#endregion Common Block: CONDO5 Initialization
#endregion Common varaible Initialization
}
public DECOMC()
{
#region Initialization Common Blocks
CommonBlock LINAL = new CommonBlock(0, 7, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
DECC decc = new DECC();
DECBC decbc = new DECBC();
DECHC dechc = new DECHC();
#endregion Dependencies (Initialization)
#region Set Dependencies
this._decc = decc; this._decbc = decbc; this._dechc = dechc;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public DOPCOR()
{
#region Initialization Common Blocks
CommonBlock CONDO5 = new CommonBlock(2, 0, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
HINIT hinit = new HINIT();
CDOPRI cdopri = new CDOPRI();
#endregion Dependencies (Initialization)
#region Set Dependencies
this._hinit = hinit; this._cdopri = cdopri;
#endregion Set Dependencies
#region Common varaible Initialization
#region Common Block: CONDO5 Initialization
this._condo5 = CONDO5;
XOLD = CONDO5.doubleData[0];
HOUT = CONDO5.doubleData[1];
#endregion Common Block: CONDO5 Initialization
#endregion Common varaible Initialization
}
public DVINDY()
{
#region Initialization Common Blocks
CommonBlock DVOD01 = new CommonBlock(48, 33, 0, 0);
CommonBlock DVOD02 = new CommonBlock(1, 8, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
DSCAL dscal = new DSCAL();
IUMACH iumach = new IUMACH();
IXSAV ixsav = new IXSAV(iumach);
XERRWD xerrwd = new XERRWD(ixsav);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._dscal = dscal; this._xerrwd = xerrwd;
#endregion Set Dependencies
#region Data Initialization
//HUN/100.0D0
HUN = 100.0E0;
//ZERO/0.0D0
ZERO = 0.0E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#region Common Block: DVOD02 Initialization
this._dvod02 = DVOD02;
HU = DVOD02.doubleData[0];
NCFN = DVOD02.intData[0];
NETF = DVOD02.intData[1];
NFE = DVOD02.intData[2];
NJE = DVOD02.intData[3];
NLU = DVOD02.intData[4];
NNI = DVOD02.intData[5];
NQU = DVOD02.intData[6];
NST = DVOD02.intData[7];
#endregion Common Block: DVOD02 Initialization
#endregion Common varaible Initialization
}
public RADCOR()
{
#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);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._decomr = decomr; this._decomc = decomc; this._slvrad = slvrad; this._estrad = estrad;
#endregion Set Dependencies
#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 Common Block: CONRA5 Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public SLVRAR(SOL sol, SOLB solb, SOLH solh, CommonBlock LINAL)
{
#region Set Dependencies
this._sol = sol; this._solb = solb; this._solh = solh;
#endregion Set Dependencies
#region Common varaible Initialization
#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 Common Block: LINAL Initialization
#endregion Common varaible Initialization
}
public DVSOL()
{
#region Initialization Common Blocks
CommonBlock DVOD01 = new CommonBlock(48, 33, 0, 0);
#endregion Initialization Common Blocks
#region Dependencies (Initialization)
DDOT ddot = new DDOT();
DAXPY daxpy = new DAXPY();
DGESL dgesl = new DGESL(ddot, daxpy);
DGBSL dgbsl = new DGBSL(ddot, daxpy);
#endregion Dependencies (Initialization)
#region Set Dependencies
this._dgesl = dgesl; this._dgbsl = dgbsl;
#endregion Set Dependencies
#region Data Initialization
//ONE/1.0D0
ONE = 1.0E0;
//ZERO/0.0D0
ZERO = 0.0E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#endregion Common varaible Initialization
}
public DVNLSD(DVNORM dvnorm, DCOPY dcopy, DVJAC dvjac, DVSOL dvsol, DSCAL dscal, DAXPY daxpy, CommonBlock DVOD01, CommonBlock DVOD02)
{
#region Set Dependencies
this._dvnorm = dvnorm; this._dcopy = dcopy; this._dvjac = dvjac; this._dvsol = dvsol; this._dscal = dscal;
this._daxpy = daxpy;
#endregion Set Dependencies
#region Data Initialization
//CCMAX/0.3D0
CCMAX = 0.3E0;
//CRDOWN/0.3D0
CRDOWN = 0.3E0;
//MAXCOR/3
MAXCOR = 3;
//MSBP/20
MSBP = 20;
//RDIV/2.0D0
RDIV = 2.0E0;
//ONE/1.0D0
ONE = 1.0E0;
//TWO/2.0D0
TWO = 2.0E0;
//ZERO/0.0D0
ZERO = 0.0E0;
#endregion Data Initialization
#region Common varaible Initialization
#region Common Block: DVOD01 Initialization
this._dvod01 = DVOD01;
ACNRM = DVOD01.doubleData[0];
CCMXJ = DVOD01.doubleData[1];
CONP = DVOD01.doubleData[2];
CRATE = DVOD01.doubleData[3];
DRC = DVOD01.doubleData[4];
//Start Array: EL StartIndex: 5 LastIndex: 17
EL = DVOD01.doubleData;
o_el = 4; //o_ = StartIndex-1
//End Array: EL
ETA = DVOD01.doubleData[18];
ETAMAX = DVOD01.doubleData[19];
H = DVOD01.doubleData[20];
HMIN = DVOD01.doubleData[21];
HMXI = DVOD01.doubleData[22];
HNEW = DVOD01.doubleData[23];
HSCAL = DVOD01.doubleData[24];
PRL1 = DVOD01.doubleData[25];
RC = DVOD01.doubleData[26];
RL1 = DVOD01.doubleData[27];
//Start Array: TAU StartIndex: 28 LastIndex: 40
TAU = DVOD01.doubleData;
o_tau = 27; //o_ = StartIndex-1
//End Array: TAU
//Start Array: TQ StartIndex: 41 LastIndex: 45
TQ = DVOD01.doubleData;
o_tq = 40; //o_ = StartIndex-1
//End Array: TQ
TN = DVOD01.doubleData[46];
UROUND = DVOD01.doubleData[47];
ICF = DVOD01.intData[0];
INIT = DVOD01.intData[1];
IPUP = DVOD01.intData[2];
JCUR = DVOD01.intData[3];
JSTART = DVOD01.intData[4];
JSV = DVOD01.intData[5];
KFLAG = DVOD01.intData[6];
KUTH = DVOD01.intData[7];
L = DVOD01.intData[8];
LMAX = DVOD01.intData[9];
LYH = DVOD01.intData[10];
LEWT = DVOD01.intData[11];
LACOR = DVOD01.intData[12];
LSAVF = DVOD01.intData[13];
LWM = DVOD01.intData[14];
LIWM = DVOD01.intData[15];
LOCJS = DVOD01.intData[16];
MAXORD = DVOD01.intData[17];
METH = DVOD01.intData[18];
MITER = DVOD01.intData[19];
MSBJ = DVOD01.intData[20];
MXHNIL = DVOD01.intData[21];
MXSTEP = DVOD01.intData[22];
N = DVOD01.intData[23];
NEWH = DVOD01.intData[24];
NEWQ = DVOD01.intData[25];
NHNIL = DVOD01.intData[26];
NQ = DVOD01.intData[27];
NQNYH = DVOD01.intData[28];
NQWAIT = DVOD01.intData[29];
NSLJ = DVOD01.intData[30];
NSLP = DVOD01.intData[31];
NYH = DVOD01.intData[32];
#endregion Common Block: DVOD01 Initialization
#region Common Block: DVOD02 Initialization
this._dvod02 = DVOD02;
HU = DVOD02.doubleData[0];
NCFN = DVOD02.intData[0];
NETF = DVOD02.intData[1];
NFE = DVOD02.intData[2];
NJE = DVOD02.intData[3];
NLU = DVOD02.intData[4];
NNI = DVOD02.intData[5];
NQU = DVOD02.intData[6];
NST = DVOD02.intData[7];
#endregion Common Block: DVOD02 Initialization
#endregion Common varaible Initialization
}
