Beispiel #1
0
        public DGBSV()
        {
            #region Dependencies (Initialization)

            IDAMAX idamax = new IDAMAX();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DCOPY dcopy = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DSCAL dscal = new DSCAL();
            DSWAP dswap = new DSWAP();
            LSAME lsame = new LSAME();
            DLASWP dlaswp = new DLASWP();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGER dger = new DGER(xerbla);
            DGBTF2 dgbtf2 = new DGBTF2(idamax, dger, dscal, dswap, xerbla);
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DTRSM dtrsm = new DTRSM(lsame, xerbla);
            DGBTRF dgbtrf = new DGBTRF(idamax, ilaenv, dcopy, dgbtf2, dgemm, dger, dlaswp, dscal, dswap, dtrsm
                                       , xerbla);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DTBSV dtbsv = new DTBSV(lsame, xerbla);
            DGBTRS dgbtrs = new DGBTRS(lsame, dgemv, dger, dswap, dtbsv, xerbla);

            #endregion

            #region Set Dependencies

            this._dgbtrf = dgbtrf; this._dgbtrs = dgbtrs; this._xerbla = xerbla;

            #endregion
        }
Beispiel #2
0
        public DLAHR2()
        {
            #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();
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DLACPY dlacpy = new DLACPY(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);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);

            #endregion

            #region Set Dependencies

            this._daxpy = daxpy; this._dcopy = dcopy; this._dgemm = dgemm; this._dgemv = dgemv; this._dlacpy = dlacpy;
            this._dlarfg = dlarfg;this._dscal = dscal; this._dtrmm = dtrmm; this._dtrmv = dtrmv;

            #endregion
        }
Beispiel #3
0
        public DLAQPS()
        {
            #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();
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            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);

            #endregion

            #region Set Dependencies

            this._dgemm = dgemm; this._dgemv = dgemv; this._dlarfg = dlarfg; this._dswap = dswap; this._idamax = idamax;
            this._dlamch = dlamch;this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #4
0
        public DLALSA()
        {
            #region Dependencies (Initialization)

            DCOPY  dcopy  = new DCOPY();
            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DROT   drot   = new DROT();
            DSCAL  dscal  = new DSCAL();
            DNRM2  dnrm2  = new DNRM2();
            DLASDT dlasdt = new DLASDT();
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DLACPY dlacpy = new DLACPY(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);
            DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla);
            DLALS0 dlals0 = new DLALS0(dcopy, dgemv, dlacpy, dlascl, drot, dscal, xerbla, dlamc3, dnrm2);

            #endregion


            #region Set Dependencies

            this._dcopy = dcopy; this._dgemm = dgemm; this._dlals0 = dlals0; this._dlasdt = dlasdt; this._xerbla = xerbla;

            #endregion
        }
Beispiel #5
0
        public DORGHR()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            DCOPY  dcopy  = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DSCAL  dscal  = new DSCAL();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            DGER   dger   = new DGER(xerbla);
            DLARF  dlarf  = new DLARF(dgemv, dger, lsame);
            DORG2R dorg2r = new DORG2R(dlarf, dscal, xerbla);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DORGQR dorgqr = new DORGQR(dlarfb, dlarft, dorg2r, xerbla, ilaenv);

            #endregion


            #region Set Dependencies

            this._dorgqr = dorgqr; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
Beispiel #6
0
        public DORMRZ()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DCOPY  dcopy  = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DAXPY  daxpy  = new DAXPY();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DLARZB dlarzb = new DLARZB(lsame, dcopy, dgemm, dtrmm, xerbla);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);
            DLARZT dlarzt = new DLARZT(dgemv, dtrmv, xerbla, lsame);
            DGER   dger   = new DGER(xerbla);
            DLARZ  dlarz  = new DLARZ(daxpy, dcopy, dgemv, dger, lsame);
            DORMR3 dormr3 = new DORMR3(lsame, dlarz, xerbla);

            #endregion


            #region Set Dependencies

            this._lsame  = lsame; this._ilaenv = ilaenv; this._dlarzb = dlarzb; this._dlarzt = dlarzt; this._dormr3 = dormr3;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #7
0
        public DLAQP2()
        {
            #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();
            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);

            #endregion


            #region Set Dependencies

            this._dlarf = dlarf; this._dlarfg = dlarfg; this._dswap = dswap; this._idamax = idamax; this._dlamch = dlamch;
            this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #8
0
        public DGEQPF()
        {
            #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();
            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);

            #endregion

            #region Set Dependencies

            this._dgeqr2 = dgeqr2; this._dlarf = dlarf; this._dlarfg = dlarfg; this._dorm2r = dorm2r; this._dswap = dswap;
            this._xerbla = xerbla;this._idamax = idamax; this._dlamch = dlamch; this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #9
0
        public DGBSV()
        {
            #region Dependencies (Initialization)

            IDAMAX idamax = new IDAMAX();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DCOPY  dcopy  = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DSCAL  dscal  = new DSCAL();
            DSWAP  dswap  = new DSWAP();
            LSAME  lsame  = new LSAME();
            DLASWP dlaswp = new DLASWP();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGER   dger   = new DGER(xerbla);
            DGBTF2 dgbtf2 = new DGBTF2(idamax, dger, dscal, dswap, xerbla);
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DTRSM  dtrsm  = new DTRSM(lsame, xerbla);
            DGBTRF dgbtrf = new DGBTRF(idamax, ilaenv, dcopy, dgbtf2, dgemm, dger, dlaswp, dscal, dswap, dtrsm
                                       , xerbla);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DTBSV  dtbsv  = new DTBSV(lsame, xerbla);
            DGBTRS dgbtrs = new DGBTRS(lsame, dgemv, dger, dswap, dtbsv, xerbla);

            #endregion


            #region Set Dependencies

            this._dgbtrf = dgbtrf; this._dgbtrs = dgbtrs; this._xerbla = xerbla;

            #endregion
        }
Beispiel #10
0
        public DGEBRD()
        {
            #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();
            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);
            DGEBD2 dgebd2 = new DGEBD2(dlarf, dlarfg, xerbla);
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DLABRD dlabrd = new DLABRD(dgemv, dlarfg, dscal);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);

            #endregion


            #region Set Dependencies

            this._dgebd2 = dgebd2; this._dgemm = dgemm; this._dlabrd = dlabrd; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
Beispiel #11
0
        public DLATRZ()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2 dnrm2 = new DNRM2();
            DSCAL dscal = new DSCAL();
            DAXPY daxpy = new DAXPY();
            DCOPY dcopy = new DCOPY();
            XERBLA xerbla = new XERBLA();
            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);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DGER dger = new DGER(xerbla);
            DLARZ dlarz = new DLARZ(daxpy, dcopy, dgemv, dger, lsame);

            #endregion

            #region Set Dependencies

            this._dlarfg = dlarfg; this._dlarz = dlarz;

            #endregion
        }
Beispiel #12
0
        public DLATRD()
        {
            #region Dependencies (Initialization)

            DAXPY daxpy = new DAXPY();
            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2 dnrm2 = new DNRM2();
            DSCAL dscal = new DSCAL();
            DDOT ddot = new DDOT();
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            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);
            DSYMV dsymv = new DSYMV(lsame, xerbla);

            #endregion

            #region Set Dependencies

            this._daxpy = daxpy; this._dgemv = dgemv; this._dlarfg = dlarfg; this._dscal = dscal; this._dsymv = dsymv;
            this._lsame = lsame;this._ddot = ddot;

            #endregion
        }
Beispiel #13
0
        public DLAHR2()
        {
            #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();
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DLACPY dlacpy = new DLACPY(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);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);

            #endregion


            #region Set Dependencies

            this._daxpy  = daxpy; this._dcopy = dcopy; this._dgemm = dgemm; this._dgemv = dgemv; this._dlacpy = dlacpy;
            this._dlarfg = dlarfg; this._dscal = dscal; this._dtrmm = dtrmm; this._dtrmv = dtrmv;

            #endregion
        }
Beispiel #14
0
        public DGETRI()
        {
            #region Dependencies (Initialization)

            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DSWAP dswap = new DSWAP();
            DSCAL dscal = new DSCAL();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DTRSM dtrsm = new DTRSM(lsame, xerbla);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);
            DTRTI2 dtrti2 = new DTRTI2(lsame, dscal, dtrmv, xerbla);
            DTRTRI dtrtri = new DTRTRI(lsame, ilaenv, dtrmm, dtrsm, dtrti2, xerbla);

            #endregion

            #region Set Dependencies

            this._ilaenv = ilaenv; this._dgemm = dgemm; this._dgemv = dgemv; this._dswap = dswap; this._dtrsm = dtrsm;
            this._dtrtri = dtrtri;this._xerbla = xerbla;

            #endregion
        }
Beispiel #15
0
        public DLABRD()
        {
            #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();
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            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);

            #endregion


            #region Set Dependencies

            this._dgemv = dgemv; this._dlarfg = dlarfg; this._dscal = dscal;

            #endregion
        }
Beispiel #16
0
        public DLALS0()
        {
            #region Dependencies (Initialization)

            DCOPY  dcopy  = new DCOPY();
            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DROT   drot   = new DROT();
            DSCAL  dscal  = new DSCAL();
            DNRM2  dnrm2  = new DNRM2();
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DLACPY dlacpy = new DLACPY(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);
            DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla);

            #endregion


            #region Set Dependencies

            this._dcopy = dcopy; this._dgemv = dgemv; this._dlacpy = dlacpy; this._dlascl = dlascl; this._drot = drot;
            this._dscal = dscal; this._xerbla = xerbla; this._dlamc3 = dlamc3; this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #17
0
        public DGEBRD()
        {
            #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();
            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);
            DGEBD2 dgebd2 = new DGEBD2(dlarf, dlarfg, xerbla);
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DLABRD dlabrd = new DLABRD(dgemv, dlarfg, dscal);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);

            #endregion

            #region Set Dependencies

            this._dgebd2 = dgebd2; this._dgemm = dgemm; this._dlabrd = dlabrd; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
Beispiel #18
0
        public DORMRZ()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DCOPY dcopy = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DAXPY daxpy = new DAXPY();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DLARZB dlarzb = new DLARZB(lsame, dcopy, dgemm, dtrmm, xerbla);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);
            DLARZT dlarzt = new DLARZT(dgemv, dtrmv, xerbla, lsame);
            DGER dger = new DGER(xerbla);
            DLARZ dlarz = new DLARZ(daxpy, dcopy, dgemv, dger, lsame);
            DORMR3 dormr3 = new DORMR3(lsame, dlarz, xerbla);

            #endregion

            #region Set Dependencies

            this._lsame = lsame; this._ilaenv = ilaenv; this._dlarzb = dlarzb; this._dlarzt = dlarzt; this._dormr3 = dormr3;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #19
0
        public DLALSA()
        {
            #region Dependencies (Initialization)

            DCOPY dcopy = new DCOPY();
            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            DROT drot = new DROT();
            DSCAL dscal = new DSCAL();
            DNRM2 dnrm2 = new DNRM2();
            DLASDT dlasdt = new DLASDT();
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DLACPY dlacpy = new DLACPY(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);
            DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla);
            DLALS0 dlals0 = new DLALS0(dcopy, dgemv, dlacpy, dlascl, drot, dscal, xerbla, dlamc3, dnrm2);

            #endregion

            #region Set Dependencies

            this._dcopy = dcopy; this._dgemm = dgemm; this._dlals0 = dlals0; this._dlasdt = dlasdt; this._xerbla = xerbla;

            #endregion
        }
Beispiel #20
0
        public DORMQR()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DCOPY  dcopy  = new DCOPY();
            XERBLA xerbla = new XERBLA();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            DGER   dger   = new DGER(xerbla);
            DLARF  dlarf  = new DLARF(dgemv, dger, lsame);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);

            #endregion


            #region Set Dependencies

            this._lsame  = lsame; this._ilaenv = ilaenv; this._dlarfb = dlarfb; this._dlarft = dlarft; this._dorm2r = dorm2r;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #21
0
        public DORGHR()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            DCOPY dcopy = new DCOPY();
            XERBLA xerbla = new XERBLA();
            DSCAL dscal = new DSCAL();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            DGER dger = new DGER(xerbla);
            DLARF dlarf = new DLARF(dgemv, dger, lsame);
            DORG2R dorg2r = new DORG2R(dlarf, dscal, xerbla);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DORGQR dorgqr = new DORGQR(dlarfb, dlarft, dorg2r, xerbla, ilaenv);

            #endregion

            #region Set Dependencies

            this._dorgqr = dorgqr; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
Beispiel #22
0
        public DGETRI()
        {
            #region Dependencies (Initialization)

            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DSWAP  dswap  = new DSWAP();
            DSCAL  dscal  = new DSCAL();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DTRSM  dtrsm  = new DTRSM(lsame, xerbla);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);
            DTRTI2 dtrti2 = new DTRTI2(lsame, dscal, dtrmv, xerbla);
            DTRTRI dtrtri = new DTRTRI(lsame, ilaenv, dtrmm, dtrsm, dtrti2, xerbla);

            #endregion


            #region Set Dependencies

            this._ilaenv = ilaenv; this._dgemm = dgemm; this._dgemv = dgemv; this._dswap = dswap; this._dtrsm = dtrsm;
            this._dtrtri = dtrtri; this._xerbla = xerbla;

            #endregion
        }
Beispiel #23
0
        public DLATRZ()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2  dnrm2  = new DNRM2();
            DSCAL  dscal  = new DSCAL();
            DAXPY  daxpy  = new DAXPY();
            DCOPY  dcopy  = new DCOPY();
            XERBLA xerbla = new XERBLA();
            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);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DGER   dger   = new DGER(xerbla);
            DLARZ  dlarz  = new DLARZ(daxpy, dcopy, dgemv, dger, lsame);

            #endregion


            #region Set Dependencies

            this._dlarfg = dlarfg; this._dlarz = dlarz;

            #endregion
        }
Beispiel #24
0
        public DORMLQ()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DCOPY dcopy = new DCOPY();
            XERBLA xerbla = new XERBLA();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGEMM dgemm = new DGEMM(lsame, xerbla);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DLARFB dlarfb = new DLARFB(lsame, dcopy, dgemm, dtrmm);
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);
            DLARFT dlarft = new DLARFT(dgemv, dtrmv, lsame);
            DGER dger = new DGER(xerbla);
            DLARF dlarf = new DLARF(dgemv, dger, lsame);
            DORML2 dorml2 = new DORML2(lsame, dlarf, xerbla);

            #endregion

            #region Set Dependencies

            this._lsame = lsame; this._ilaenv = ilaenv; this._dlarfb = dlarfb; this._dlarft = dlarft; this._dorml2 = dorml2;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #25
0
        public DLABRD(DGEMV dgemv, DLARFG dlarfg, DSCAL dscal)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dlarfg = dlarfg; this._dscal = dscal;

            #endregion
        }
Beispiel #26
0
        public DLARF(DGEMV dgemv, DGER dger, LSAME lsame)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dger = dger; this._lsame = lsame;

            #endregion
        }
Beispiel #27
0
        public DLARFT(DGEMV dgemv, DTRMV dtrmv, LSAME lsame)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dtrmv = dtrmv; this._lsame = lsame;

            #endregion
        }
Beispiel #28
0
        public DLARFT(DGEMV dgemv, DTRMV dtrmv, LSAME lsame)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dtrmv = dtrmv; this._lsame = lsame;

            #endregion
        }
Beispiel #29
0
        public DLARZT(DGEMV dgemv, DTRMV dtrmv, XERBLA xerbla, LSAME lsame)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dtrmv = dtrmv; this._xerbla = xerbla; this._lsame = lsame;

            #endregion
        }
Beispiel #30
0
        public DLABRD(DGEMV dgemv, DLARFG dlarfg, DSCAL dscal)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dlarfg = dlarfg; this._dscal = dscal;

            #endregion
        }
Beispiel #31
0
        public DLAEDA(DCOPY dcopy, DGEMV dgemv, DROT drot, XERBLA xerbla)
        {
            #region Set Dependencies

            this._dcopy = dcopy; this._dgemv = dgemv; this._drot = drot; this._xerbla = xerbla;

            #endregion
        }
Beispiel #32
0
        public DLARZ(DAXPY daxpy, DCOPY dcopy, DGEMV dgemv, DGER dger, LSAME lsame)
        {
            #region Set Dependencies

            this._daxpy = daxpy; this._dcopy = dcopy; this._dgemv = dgemv; this._dger = dger; this._lsame = lsame;

            #endregion
        }
Beispiel #33
0
        public DLAEDA(DCOPY dcopy, DGEMV dgemv, DROT drot, XERBLA xerbla)
        {
            #region Set Dependencies

            this._dcopy = dcopy; this._dgemv = dgemv; this._drot = drot; this._xerbla = xerbla;

            #endregion
        }
Beispiel #34
0
        public DLARZ(DAXPY daxpy, DCOPY dcopy, DGEMV dgemv, DGER dger, LSAME lsame)
        {
            #region Set Dependencies

            this._daxpy = daxpy; this._dcopy = dcopy; this._dgemv = dgemv; this._dger = dger; this._lsame = lsame;

            #endregion
        }
Beispiel #35
0
        public DLARZT(DGEMV dgemv, DTRMV dtrmv, XERBLA xerbla, LSAME lsame)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dtrmv = dtrmv; this._xerbla = xerbla; this._lsame = lsame;

            #endregion
        }
Beispiel #36
0
        public DLARF(DGEMV dgemv, DGER dger, LSAME lsame)
        {
            #region Set Dependencies

            this._dgemv = dgemv; this._dger = dger; this._lsame = lsame;

            #endregion
        }
Beispiel #37
0
        public DLAED0()
        {
            #region Dependencies (Initialization)

            DCOPY  dcopy  = new DCOPY();
            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            IDAMAX idamax = new IDAMAX();
            DLAMC3 dlamc3 = new DLAMC3();
            DLAPY2 dlapy2 = new DLAPY2();
            DLAMRG dlamrg = new DLAMRG();
            DROT   drot   = new DROT();
            DSCAL  dscal  = new DSCAL();
            DNRM2  dnrm2  = new DNRM2();
            DLAED5 dlaed5 = new DLAED5();
            DLASSQ dlassq = new DLASSQ();
            DLAE2  dlae2  = new DLAE2();
            DLAEV2 dlaev2 = new DLAEV2();
            DSWAP  dswap  = new DSWAP();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMM  dgemm  = new DGEMM(lsame, xerbla);
            DLACPY dlacpy = new DLACPY(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);
            DLAED2 dlaed2 = new DLAED2(idamax, dlamch, dlapy2, dcopy, dlacpy, dlamrg, drot, dscal, xerbla);
            DLAED6 dlaed6 = new DLAED6(dlamch);
            DLAED4 dlaed4 = new DLAED4(dlamch, dlaed5, dlaed6);
            DLASET dlaset = new DLASET(lsame);
            DLAED3 dlaed3 = new DLAED3(dlamc3, dnrm2, dcopy, dgemm, dlacpy, dlaed4, dlaset, xerbla);
            DLAED1 dlaed1 = new DLAED1(dcopy, dlaed2, dlaed3, dlamrg, xerbla);
            DLAED8 dlaed8 = new DLAED8(idamax, dlamch, dlapy2, dcopy, dlacpy, dlamrg, drot, dscal, xerbla);
            DLAED9 dlaed9 = new DLAED9(dlamc3, dnrm2, dcopy, dlaed4, xerbla);
            DGEMV  dgemv  = new DGEMV(lsame, xerbla);
            DLAEDA dlaeda = new DLAEDA(dcopy, dgemv, drot, xerbla);
            DLAED7 dlaed7 = new DLAED7(dgemm, dlaed8, dlaed9, dlaeda, dlamrg, xerbla);
            DLANST dlanst = new DLANST(lsame, dlassq);
            DLARTG dlartg = new DLARTG(dlamch);
            DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla);
            DLASR  dlasr  = new DLASR(lsame, xerbla);
            DLASRT dlasrt = new DLASRT(lsame, xerbla);
            DSTEQR dsteqr = new DSTEQR(lsame, dlamch, dlanst, dlapy2, dlae2, dlaev2, dlartg, dlascl, dlaset, dlasr
                                       , dlasrt, dswap, xerbla);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);

            #endregion


            #region Set Dependencies

            this._dcopy  = dcopy; this._dgemm = dgemm; this._dlacpy = dlacpy; this._dlaed1 = dlaed1; this._dlaed7 = dlaed7;
            this._dsteqr = dsteqr; this._xerbla = xerbla; this._ilaenv = ilaenv;

            #endregion
        }
Beispiel #38
0
        public DLAQPS(DGEMM dgemm, DGEMV dgemv, DLARFG dlarfg, DSWAP dswap, IDAMAX idamax, DLAMCH dlamch, DNRM2 dnrm2)
        {
            #region Set Dependencies

            this._dgemm  = dgemm; this._dgemv = dgemv; this._dlarfg = dlarfg; this._dswap = dswap; this._idamax = idamax;
            this._dlamch = dlamch; this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #39
0
        public DLALS0(DCOPY dcopy, DGEMV dgemv, DLACPY dlacpy, DLASCL dlascl, DROT drot, DSCAL dscal, XERBLA xerbla, DLAMC3 dlamc3, DNRM2 dnrm2)
        {
            #region Set Dependencies

            this._dcopy = dcopy; this._dgemv = dgemv; this._dlacpy = dlacpy; this._dlascl = dlascl; this._drot = drot;
            this._dscal = dscal;this._xerbla = xerbla; this._dlamc3 = dlamc3; this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #40
0
        public DGBTRS(LSAME lsame, DGEMV dgemv, DGER dger, DSWAP dswap, DTBSV dtbsv, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame = lsame; this._dgemv = dgemv; this._dger = dger; this._dswap = dswap; this._dtbsv = dtbsv;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #41
0
        public DLALS0(DCOPY dcopy, DGEMV dgemv, DLACPY dlacpy, DLASCL dlascl, DROT drot, DSCAL dscal, XERBLA xerbla, DLAMC3 dlamc3, DNRM2 dnrm2)
        {
            #region Set Dependencies

            this._dcopy = dcopy; this._dgemv = dgemv; this._dlacpy = dlacpy; this._dlascl = dlascl; this._drot = drot;
            this._dscal = dscal; this._xerbla = xerbla; this._dlamc3 = dlamc3; this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #42
0
        public DGETRI(ILAENV ilaenv, DGEMM dgemm, DGEMV dgemv, DSWAP dswap, DTRSM dtrsm, DTRTRI dtrtri, XERBLA xerbla)
        {
            #region Set Dependencies

            this._ilaenv = ilaenv; this._dgemm = dgemm; this._dgemv = dgemv; this._dswap = dswap; this._dtrsm = dtrsm;
            this._dtrtri = dtrtri;this._xerbla = xerbla;

            #endregion
        }
Beispiel #43
0
        public DGETRI(ILAENV ilaenv, DGEMM dgemm, DGEMV dgemv, DSWAP dswap, DTRSM dtrsm, DTRTRI dtrtri, XERBLA xerbla)
        {
            #region Set Dependencies

            this._ilaenv = ilaenv; this._dgemm = dgemm; this._dgemv = dgemv; this._dswap = dswap; this._dtrsm = dtrsm;
            this._dtrtri = dtrtri; this._xerbla = xerbla;

            #endregion
        }
Beispiel #44
0
        public DGGGLM(DCOPY dcopy, DGEMV dgemv, DGGQRF dggqrf, DORMQR dormqr, DORMRQ dormrq, DTRTRS dtrtrs, XERBLA xerbla, ILAENV ilaenv)
        {
            #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
        }
Beispiel #45
0
        public DGBTRS(LSAME lsame, DGEMV dgemv, DGER dger, DSWAP dswap, DTBSV dtbsv, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame  = lsame; this._dgemv = dgemv; this._dger = dger; this._dswap = dswap; this._dtbsv = dtbsv;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #46
0
        public DLAHR2(DAXPY daxpy, DCOPY dcopy, DGEMM dgemm, DGEMV dgemv, DLACPY dlacpy, DLARFG dlarfg, DSCAL dscal, DTRMM dtrmm, DTRMV dtrmv)
        {
            #region Set Dependencies

            this._daxpy = daxpy; this._dcopy = dcopy; this._dgemm = dgemm; this._dgemv = dgemv; this._dlacpy = dlacpy;
            this._dlarfg = dlarfg;this._dscal = dscal; this._dtrmm = dtrmm; this._dtrmv = dtrmv;

            #endregion
        }
Beispiel #47
0
        public DLATRD(DAXPY daxpy, DGEMV dgemv, DLARFG dlarfg, DSCAL dscal, DSYMV dsymv, LSAME lsame, DDOT ddot)
        {
            #region Set Dependencies

            this._daxpy = daxpy; this._dgemv = dgemv; this._dlarfg = dlarfg; this._dscal = dscal; this._dsymv = dsymv;
            this._lsame = lsame;this._ddot = ddot;

            #endregion
        }
Beispiel #48
0
        public DGGLSE(DAXPY daxpy, DCOPY dcopy, DGEMV dgemv, DGGRQF dggrqf, DORMQR dormqr, DORMRQ dormrq, DTRMV dtrmv, DTRTRS dtrtrs, XERBLA xerbla, ILAENV ilaenv)
        {
            #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
        }
Beispiel #49
0
        public DLATRD(DAXPY daxpy, DGEMV dgemv, DLARFG dlarfg, DSCAL dscal, DSYMV dsymv, LSAME lsame, DDOT ddot)
        {
            #region Set Dependencies

            this._daxpy = daxpy; this._dgemv = dgemv; this._dlarfg = dlarfg; this._dscal = dscal; this._dsymv = dsymv;
            this._lsame = lsame; this._ddot = ddot;

            #endregion
        }
Beispiel #50
0
        public DGGGLM(DCOPY dcopy, DGEMV dgemv, DGGQRF dggqrf, DORMQR dormqr, DORMRQ dormrq, DTRTRS dtrtrs, XERBLA xerbla, ILAENV ilaenv)
        {
            #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
        }
Beispiel #51
0
        public DLAHR2(DAXPY daxpy, DCOPY dcopy, DGEMM dgemm, DGEMV dgemv, DLACPY dlacpy, DLARFG dlarfg, DSCAL dscal, DTRMM dtrmm, DTRMV dtrmv)
        {
            #region Set Dependencies

            this._daxpy  = daxpy; this._dcopy = dcopy; this._dgemm = dgemm; this._dgemv = dgemv; this._dlacpy = dlacpy;
            this._dlarfg = dlarfg; this._dscal = dscal; this._dtrmm = dtrmm; this._dtrmv = dtrmv;

            #endregion
        }
Beispiel #52
0
        public DGGLSE(DAXPY daxpy, DCOPY dcopy, DGEMV dgemv, DGGRQF dggrqf, DORMQR dormqr, DORMRQ dormrq, DTRMV dtrmv, DTRTRS dtrtrs, XERBLA xerbla, ILAENV ilaenv)
        {
            #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
        }
Beispiel #53
0
        public DLAQPS(DGEMM dgemm, DGEMV dgemv, DLARFG dlarfg, DSWAP dswap, IDAMAX idamax, DLAMCH dlamch, DNRM2 dnrm2)
        {
            #region Set Dependencies

            this._dgemm = dgemm; this._dgemv = dgemv; this._dlarfg = dlarfg; this._dswap = dswap; this._idamax = idamax;
            this._dlamch = dlamch;this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #54
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
        }
Beispiel #55
0
        public DGELS()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DLABAD dlabad = new DLABAD();
            DLAMC3 dlamc3 = new DLAMC3();
            DLASSQ dlassq = new DLASSQ();
            XERBLA xerbla = new XERBLA();
            DLAPY2 dlapy2 = new DLAPY2();
            DNRM2  dnrm2  = new DNRM2();
            DSCAL  dscal  = new DSCAL();
            DCOPY  dcopy  = new DCOPY();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            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);
            DGELQ2 dgelq2 = new DGELQ2(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);
            DGELQF dgelqf = new DGELQF(dgelq2, dlarfb, dlarft, xerbla, ilaenv);
            DGEQR2 dgeqr2 = new DGEQR2(dlarf, dlarfg, xerbla);
            DGEQRF dgeqrf = new DGEQRF(dgeqr2, dlarfb, dlarft, xerbla, ilaenv);
            DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla);
            DLASET dlaset = new DLASET(lsame);
            DORML2 dorml2 = new DORML2(lsame, dlarf, xerbla);
            DORMLQ dormlq = new DORMLQ(lsame, ilaenv, dlarfb, dlarft, dorml2, xerbla);
            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._lsame  = lsame; this._ilaenv = ilaenv; this._dlabad = dlabad; this._dlamch = dlamch; this._dlange = dlange;
            this._dgelqf = dgelqf; this._dgeqrf = dgeqrf; this._dlascl = dlascl; this._dlaset = dlaset; this._dormlq = dormlq;
            this._dormqr = dormqr; this._dtrtrs = dtrtrs; this._xerbla = xerbla;

            #endregion
        }
Beispiel #56
0
        public DTREVC(LSAME lsame, IDAMAX idamax, DDOT ddot, DLAMCH dlamch, DAXPY daxpy, DCOPY dcopy, DGEMV dgemv, DLALN2 dlaln2, DSCAL dscal, XERBLA xerbla
                      , DLABAD dlabad)
        {
            #region Set Dependencies

            this._lsame = lsame; this._idamax = idamax; this._ddot = ddot; this._dlamch = dlamch; this._daxpy = daxpy;
            this._dcopy = dcopy;this._dgemv = dgemv; this._dlaln2 = dlaln2; this._dscal = dscal; this._xerbla = xerbla;
            this._dlabad = dlabad;

            #endregion
        }
Beispiel #57
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
        }
Beispiel #58
0
        public DLARFT()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DGEMV dgemv = new DGEMV(lsame, xerbla);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);

            #endregion

            #region Set Dependencies

            this._dgemv = dgemv; this._dtrmv = dtrmv; this._lsame = lsame;

            #endregion
        }
Beispiel #59
0
        public DGEQP3()
        {
            #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();
            DSWAP dswap = new DSWAP();
            IDAMAX idamax = new IDAMAX();
            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);
            DLAQP2 dlaqp2 = new DLAQP2(dlarf, dlarfg, dswap, idamax, dlamch, dnrm2);
            DLAQPS dlaqps = new DLAQPS(dgemm, dgemv, dlarfg, dswap, idamax, dlamch, dnrm2);
            DORM2R dorm2r = new DORM2R(lsame, dlarf, xerbla);
            DORMQR dormqr = new DORMQR(lsame, ilaenv, dlarfb, dlarft, dorm2r, xerbla);

            #endregion

            #region Set Dependencies

            this._dgeqrf = dgeqrf; this._dlaqp2 = dlaqp2; this._dlaqps = dlaqps; this._dormqr = dormqr; this._dswap = dswap;
            this._xerbla = xerbla;this._ilaenv = ilaenv; this._dnrm2 = dnrm2;

            #endregion
        }
Beispiel #60
0
        public DLAEDA()
        {
            #region Dependencies (Initialization)

            DCOPY dcopy = new DCOPY();
            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DROT drot = new DROT();
            DGEMV dgemv = new DGEMV(lsame, xerbla);

            #endregion

            #region Set Dependencies

            this._dcopy = dcopy; this._dgemv = dgemv; this._drot = drot; this._xerbla = xerbla;

            #endregion
        }