コード例 #1
0
        public DGERQF(DGERQ2 dgerq2, DLARFB dlarfb, DLARFT dlarft, XERBLA xerbla, ILAENV ilaenv)
        {
            #region Set Dependencies

            this._dgerq2 = dgerq2; this._dlarfb = dlarfb; this._dlarft = dlarft; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
コード例 #2
0
ファイル: dgerqf.cs プロジェクト: jcookems/freezing-ninja
        public DGERQF(DGERQ2 dgerq2, DLARFB dlarfb, DLARFT dlarft, XERBLA xerbla, ILAENV ilaenv)
        {
            #region Set Dependencies

            this._dgerq2 = dgerq2; this._dlarfb = dlarfb; this._dlarft = dlarft; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
コード例 #3
0
        public DGGSVD()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            DLAMC3 dlamc3 = new DLAMC3();
            DLASSQ dlassq = new DLASSQ();
            DCOPY  dcopy  = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2  dnrm2  = new DNRM2();
            DSCAL  dscal  = new DSCAL();
            DSWAP  dswap  = new DSWAP();
            IDAMAX idamax = new IDAMAX();
            DLAPMT dlapmt = new DLAPMT();
            DDOT   ddot   = new DDOT();
            DAXPY  daxpy  = new DAXPY();
            DLAS2  dlas2  = new DLAS2();
            DROT   drot   = new DROT();
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLANGE dlange = new DLANGE(dlassq, lsame);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DGER   dger   = new DGER(xerbla);
            DLARF  dlarf  = new DLARF(dgemv, dger, lsame);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGEQR2 dgeqr2 = new DGEQR2(dlarf, dlarfg, xerbla);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);
            DGEQPF dgeqpf = new DGEQPF(dgeqr2, dlarf, dlarfg, dorm2r, dswap, xerbla, idamax, dlamch, dnrm2);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DLACPY dlacpy = new DLACPY(lsame);
            DLASET dlaset = new DLASET(lsame);
            DORG2R dorg2r = new DORG2R(dlarf, dscal, xerbla);
            DORMR2 dormr2 = new DORMR2(lsame, dlarf, xerbla);
            DGGSVP dggsvp = new DGGSVP(lsame, dgeqpf, dgeqr2, dgerq2, dlacpy, dlapmt, dlaset, dorg2r, dorm2r, dormr2
                                       , xerbla);
            DLARTG dlartg = new DLARTG(dlamch);
            DLASV2 dlasv2 = new DLASV2(dlamch);
            DLAGS2 dlags2 = new DLAGS2(dlartg, dlasv2);
            DLAPLL dlapll = new DLAPLL(ddot, daxpy, dlarfg, dlas2);
            DTGSJA dtgsja = new DTGSJA(lsame, dcopy, dlags2, dlapll, dlartg, dlaset, drot, dscal, xerbla);

            #endregion


            #region Set Dependencies

            this._lsame  = lsame; this._dlamch = dlamch; this._dlange = dlange; this._dcopy = dcopy; this._dggsvp = dggsvp;
            this._dtgsja = dtgsja; this._xerbla = xerbla;

            #endregion
        }
コード例 #4
0
ファイル: dggsvp.cs プロジェクト: jcookems/freezing-ninja
        public DGGSVP(LSAME lsame, DGEQPF dgeqpf, DGEQR2 dgeqr2, DGERQ2 dgerq2, DLACPY dlacpy, DLAPMT dlapmt, DLASET dlaset, DORG2R dorg2r, DORM2R dorm2r, DORMR2 dormr2
                      , XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame = lsame; this._dgeqpf = dgeqpf; this._dgeqr2 = dgeqr2; this._dgerq2 = dgerq2; this._dlacpy = dlacpy;
            this._dlapmt = dlapmt;this._dlaset = dlaset; this._dorg2r = dorg2r; this._dorm2r = dorm2r; this._dormr2 = dormr2;
            this._xerbla = xerbla;

            #endregion
        }
コード例 #5
0
        public DGGSVP(LSAME lsame, DGEQPF dgeqpf, DGEQR2 dgeqr2, DGERQ2 dgerq2, DLACPY dlacpy, DLAPMT dlapmt, DLASET dlaset, DORG2R dorg2r, DORM2R dorm2r, DORMR2 dormr2
                      , XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame  = lsame; this._dgeqpf = dgeqpf; this._dgeqr2 = dgeqr2; this._dgerq2 = dgerq2; this._dlacpy = dlacpy;
            this._dlapmt = dlapmt; this._dlaset = dlaset; this._dorg2r = dorg2r; this._dorm2r = dorm2r; this._dormr2 = dormr2;
            this._xerbla = xerbla;

            #endregion
        }
コード例 #6
0
        public DGGLSE()
        {
            #region Dependencies (Initialization)

            DAXPY  daxpy  = new DAXPY();
            DCOPY  dcopy  = new DCOPY();
            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2  dnrm2  = new DNRM2();
            DSCAL  dscal  = new DSCAL();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DGER   dger   = new DGER(xerbla);
            DLARF  dlarf  = new DLARF(dgemv, dger, lsame);
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGEQR2 dgeqr2 = new DGEQR2(dlarf, dlarfg, xerbla);
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEQRF dgeqrf = new DGEQRF(dgeqr2, dlarfb, dlarft, xerbla, ilaenv);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DGERQF dgerqf = new DGERQF(dgerq2, dlarfb, dlarft, xerbla, ilaenv);
            DORMR2 dormr2 = new DORMR2(lsame, dlarf, xerbla);
            DORMRQ dormrq = new DORMRQ(lsame, ilaenv, dlarfb, dlarft, dormr2, xerbla);
            DGGRQF dggrqf = new DGGRQF(dgeqrf, dgerqf, dormrq, xerbla, ilaenv);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);
            DORMQR dormqr = new DORMQR(lsame, ilaenv, dlarfb, dlarft, dorm2r, xerbla);
            DTRSM  dtrsm  = new DTRSM(lsame, xerbla);
            DTRTRS dtrtrs = new DTRTRS(lsame, dtrsm, xerbla);

            #endregion


            #region Set Dependencies

            this._daxpy  = daxpy; this._dcopy = dcopy; this._dgemv = dgemv; this._dggrqf = dggrqf; this._dormqr = dormqr;
            this._dormrq = dormrq; this._dtrmv = dtrmv; this._dtrtrs = dtrtrs; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
コード例 #7
0
        public DGGSVP()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2  dnrm2  = new DNRM2();
            DSCAL  dscal  = new DSCAL();
            DSWAP  dswap  = new DSWAP();
            IDAMAX idamax = new IDAMAX();
            DLAPMT dlapmt = new DLAPMT();
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DGER   dger   = new DGER(xerbla);
            DLARF  dlarf  = new DLARF(dgemv, dger, lsame);
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGEQR2 dgeqr2 = new DGEQR2(dlarf, dlarfg, xerbla);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);
            DGEQPF dgeqpf = new DGEQPF(dgeqr2, dlarf, dlarfg, dorm2r, dswap, xerbla, idamax, dlamch, dnrm2);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DLACPY dlacpy = new DLACPY(lsame);
            DLASET dlaset = new DLASET(lsame);
            DORG2R dorg2r = new DORG2R(dlarf, dscal, xerbla);
            DORMR2 dormr2 = new DORMR2(lsame, dlarf, xerbla);

            #endregion


            #region Set Dependencies

            this._lsame  = lsame; this._dgeqpf = dgeqpf; this._dgeqr2 = dgeqr2; this._dgerq2 = dgerq2; this._dlacpy = dlacpy;
            this._dlapmt = dlapmt; this._dlaset = dlaset; this._dorg2r = dorg2r; this._dorm2r = dorm2r; this._dormr2 = dormr2;
            this._xerbla = xerbla;

            #endregion
        }
コード例 #8
0
        public DGERQF()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2  dnrm2  = new DNRM2();
            DSCAL  dscal  = new DSCAL();
            DCOPY  dcopy  = new DCOPY();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DGER   dger   = new DGER(xerbla);
            DLARF  dlarf  = new DLARF(dgemv, dger, lsame);
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);

            #endregion


            #region Set Dependencies

            this._dgerq2 = dgerq2; this._dlarfb = dlarfb; this._dlarft = dlarft; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
コード例 #9
0
ファイル: dgerqf.cs プロジェクト: jcookems/freezing-ninja
        public DGERQF()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2 dnrm2 = new DNRM2();
            DSCAL dscal = new DSCAL();
            DCOPY dcopy = new DCOPY();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DGER dger = new DGER(xerbla);
            DLARF dlarf = new DLARF(dgemv, dger, lsame);
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);

            #endregion

            #region Set Dependencies

            this._dgerq2 = dgerq2; this._dlarfb = dlarfb; this._dlarft = dlarft; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
コード例 #10
0
ファイル: dggglm.cs プロジェクト: jcookems/freezing-ninja
        public DGGGLM()
        {
            #region Dependencies (Initialization)

            DCOPY dcopy = new DCOPY();
            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2 dnrm2 = new DNRM2();
            DSCAL dscal = new DSCAL();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DGER dger = new DGER(xerbla);
            DLARF dlarf = new DLARF(dgemv, dger, lsame);
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGEQR2 dgeqr2 = new DGEQR2(dlarf, dlarfg, xerbla);
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEQRF dgeqrf = new DGEQRF(dgeqr2, dlarfb, dlarft, xerbla, ilaenv);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DGERQF dgerqf = new DGERQF(dgerq2, dlarfb, dlarft, xerbla, ilaenv);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);
            DORMQR dormqr = new DORMQR(lsame, ilaenv, dlarfb, dlarft, dorm2r, xerbla);
            DGGQRF dggqrf = new DGGQRF(dgeqrf, dgerqf, dormqr, xerbla, ilaenv);
            DORMR2 dormr2 = new DORMR2(lsame, dlarf, xerbla);
            DORMRQ dormrq = new DORMRQ(lsame, ilaenv, dlarfb, dlarft, dormr2, xerbla);
            DTRSM dtrsm = new DTRSM(lsame, xerbla);
            DTRTRS dtrtrs = new DTRTRS(lsame, dtrsm, xerbla);

            #endregion

            #region Set Dependencies

            this._dcopy = dcopy; this._dgemv = dgemv; this._dggqrf = dggqrf; this._dormqr = dormqr; this._dormrq = dormrq;
            this._dtrtrs = dtrtrs;this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
コード例 #11
0
ファイル: dggsvp.cs プロジェクト: jcookems/freezing-ninja
        public DGGSVP()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2 dnrm2 = new DNRM2();
            DSCAL dscal = new DSCAL();
            DSWAP dswap = new DSWAP();
            IDAMAX idamax = new IDAMAX();
            DLAPMT dlapmt = new DLAPMT();
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DGER dger = new DGER(xerbla);
            DLARF dlarf = new DLARF(dgemv, dger, lsame);
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGEQR2 dgeqr2 = new DGEQR2(dlarf, dlarfg, xerbla);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);
            DGEQPF dgeqpf = new DGEQPF(dgeqr2, dlarf, dlarfg, dorm2r, dswap, xerbla, idamax, dlamch, dnrm2);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DLACPY dlacpy = new DLACPY(lsame);
            DLASET dlaset = new DLASET(lsame);
            DORG2R dorg2r = new DORG2R(dlarf, dscal, xerbla);
            DORMR2 dormr2 = new DORMR2(lsame, dlarf, xerbla);

            #endregion

            #region Set Dependencies

            this._lsame = lsame; this._dgeqpf = dgeqpf; this._dgeqr2 = dgeqr2; this._dgerq2 = dgerq2; this._dlacpy = dlacpy;
            this._dlapmt = dlapmt;this._dlaset = dlaset; this._dorg2r = dorg2r; this._dorm2r = dorm2r; this._dormr2 = dormr2;
            this._xerbla = xerbla;

            #endregion
        }
コード例 #12
0
ファイル: dggsvd.cs プロジェクト: jcookems/freezing-ninja
        public DGGSVD()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            DLAMC3 dlamc3 = new DLAMC3();
            DLASSQ dlassq = new DLASSQ();
            DCOPY dcopy = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2 dnrm2 = new DNRM2();
            DSCAL dscal = new DSCAL();
            DSWAP dswap = new DSWAP();
            IDAMAX idamax = new IDAMAX();
            DLAPMT dlapmt = new DLAPMT();
            DDOT ddot = new DDOT();
            DAXPY daxpy = new DAXPY();
            DLAS2 dlas2 = new DLAS2();
            DROT drot = new DROT();
            DLAMC1 dlamc1 = new DLAMC1(dlamc3);
            DLAMC4 dlamc4 = new DLAMC4(dlamc3);
            DLAMC5 dlamc5 = new DLAMC5(dlamc3);
            DLAMC2 dlamc2 = new DLAMC2(dlamc3, dlamc1, dlamc4, dlamc5);
            DLAMCH dlamch = new DLAMCH(lsame, dlamc2);
            DLANGE dlange = new DLANGE(dlassq, lsame);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DGER dger = new DGER(xerbla);
            DLARF dlarf = new DLARF(dgemv, dger, lsame);
            DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal);
            DGEQR2 dgeqr2 = new DGEQR2(dlarf, dlarfg, xerbla);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);
            DGEQPF dgeqpf = new DGEQPF(dgeqr2, dlarf, dlarfg, dorm2r, dswap, xerbla, idamax, dlamch, dnrm2);
            DGERQ2 dgerq2 = new DGERQ2(dlarf, dlarfg, xerbla);
            DLACPY dlacpy = new DLACPY(lsame);
            DLASET dlaset = new DLASET(lsame);
            DORG2R dorg2r = new DORG2R(dlarf, dscal, xerbla);
            DORMR2 dormr2 = new DORMR2(lsame, dlarf, xerbla);
            DGGSVP dggsvp = new DGGSVP(lsame, dgeqpf, dgeqr2, dgerq2, dlacpy, dlapmt, dlaset, dorg2r, dorm2r, dormr2
                                       , xerbla);
            DLARTG dlartg = new DLARTG(dlamch);
            DLASV2 dlasv2 = new DLASV2(dlamch);
            DLAGS2 dlags2 = new DLAGS2(dlartg, dlasv2);
            DLAPLL dlapll = new DLAPLL(ddot, daxpy, dlarfg, dlas2);
            DTGSJA dtgsja = new DTGSJA(lsame, dcopy, dlags2, dlapll, dlartg, dlaset, drot, dscal, xerbla);

            #endregion

            #region Set Dependencies

            this._lsame = lsame; this._dlamch = dlamch; this._dlange = dlange; this._dcopy = dcopy; this._dggsvp = dggsvp;
            this._dtgsja = dtgsja;this._xerbla = xerbla;

            #endregion
        }