예제 #1
0
        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
        }
예제 #2
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #3
0
        public CALCFC(CommonBlock Default)
        {
            #region Common varaible Initialization

            #region Common Block: Default Initialization

            this._default = Default;
            NPROB         = Default.intData[0];
            #endregion
            #endregion
        }
예제 #4
0
        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
        }
예제 #5
0
        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
        }
예제 #6
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #7
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #8
0
파일: radau5.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #9
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #10
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #11
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #12
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #13
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #14
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #15
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #16
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #17
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #18
0
파일: dc_decsol.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #19
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #20
0
파일: radau5.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #21
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #22
0
파일: radau5.cs 프로젝트: Altaxo/Altaxo
		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
		}
예제 #23
0
파일: dvode.cs 프로젝트: Altaxo/Altaxo
		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
		}