Beispiel #1
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 #2
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 #3
0
        public DGETRF()
        {
            #region Dependencies (Initialization)

            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            IDAMAX idamax = new IDAMAX();
            DSCAL  dscal  = new DSCAL();
            DSWAP  dswap  = new DSWAP();
            DLASWP dlaswp = new DLASWP();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMM  dgemm  = new DGEMM(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);
            DGER   dger   = new DGER(xerbla);
            DGETF2 dgetf2 = new DGETF2(dlamch, idamax, dger, dscal, dswap, xerbla);
            DTRSM  dtrsm  = new DTRSM(lsame, xerbla);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);

            #endregion


            #region Set Dependencies

            this._dgemm  = dgemm; this._dgetf2 = dgetf2; this._dlaswp = dlaswp; this._dtrsm = dtrsm; this._xerbla = xerbla;
            this._ilaenv = ilaenv;

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

            #endregion


            #region Set Dependencies

            this._idamax = idamax; this._ilaenv = ilaenv; this._dcopy = dcopy; this._dgbtf2 = dgbtf2; this._dgemm = dgemm;
            this._dger   = dger; this._dlaswp = dlaswp; this._dscal = dscal; this._dswap = dswap; this._dtrsm = dtrsm;
            this._xerbla = xerbla;

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

            LSAME  lsame  = new LSAME();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            XERBLA xerbla = new XERBLA();
            DSCAL  dscal  = new DSCAL();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DTRMM  dtrmm  = new DTRMM(lsame, xerbla);
            DTRSM  dtrsm  = new DTRSM(lsame, xerbla);
            DTRMV  dtrmv  = new DTRMV(lsame, xerbla);
            DTRTI2 dtrti2 = new DTRTI2(lsame, dscal, dtrmv, xerbla);

            #endregion


            #region Set Dependencies

            this._lsame  = lsame; this._ilaenv = ilaenv; this._dtrmm = dtrmm; this._dtrsm = dtrsm; this._dtrti2 = dtrti2;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #8
0
        public DGESV()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DLAMC3 dlamc3 = new DLAMC3();
            IDAMAX idamax = new IDAMAX();
            DSCAL dscal = new DSCAL();
            DSWAP dswap = new DSWAP();
            DLASWP dlaswp = new DLASWP();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            DGEMM dgemm = new DGEMM(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);
            DGER dger = new DGER(xerbla);
            DGETF2 dgetf2 = new DGETF2(dlamch, idamax, dger, dscal, dswap, xerbla);
            DTRSM dtrsm = new DTRSM(lsame, xerbla);
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DGETRF dgetrf = new DGETRF(dgemm, dgetf2, dlaswp, dtrsm, xerbla, ilaenv);
            DGETRS dgetrs = new DGETRS(lsame, dlaswp, dtrsm, xerbla);

            #endregion

            #region Set Dependencies

            this._dgetrf = dgetrf; this._dgetrs = dgetrs; this._xerbla = xerbla;

            #endregion
        }
Beispiel #9
0
        public DTRTRS(LSAME lsame, DTRSM dtrsm, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame = lsame; this._dtrsm = dtrsm; this._xerbla = xerbla;

            #endregion
        }
Beispiel #10
0
        public DGETRS(LSAME lsame, DLASWP dlaswp, DTRSM dtrsm, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame = lsame; this._dlaswp = dlaswp; this._dtrsm = dtrsm; this._xerbla = xerbla;

            #endregion
        }
Beispiel #11
0
        public DTRTRS(LSAME lsame, DTRSM dtrsm, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame = lsame; this._dtrsm = dtrsm; this._xerbla = xerbla;

            #endregion
        }
Beispiel #12
0
        public DGETRS(LSAME lsame, DLASWP dlaswp, DTRSM dtrsm, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame = lsame; this._dlaswp = dlaswp; this._dtrsm = dtrsm; this._xerbla = xerbla;

            #endregion
        }
Beispiel #13
0
        public DTRTRI(LSAME lsame, ILAENV ilaenv, DTRMM dtrmm, DTRSM dtrsm, DTRTI2 dtrti2, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame = lsame; this._ilaenv = ilaenv; this._dtrmm = dtrmm; this._dtrsm = dtrsm; this._dtrti2 = dtrti2;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #14
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 #15
0
        public DTRTRI(LSAME lsame, ILAENV ilaenv, DTRMM dtrmm, DTRSM dtrsm, DTRTI2 dtrti2, XERBLA xerbla)
        {
            #region Set Dependencies

            this._lsame  = lsame; this._ilaenv = ilaenv; this._dtrmm = dtrmm; this._dtrsm = dtrsm; this._dtrti2 = dtrti2;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #16
0
        public DGETRF(DGEMM dgemm, DGETF2 dgetf2, DLASWP dlaswp, DTRSM dtrsm, XERBLA xerbla, ILAENV ilaenv)
        {
            #region Set Dependencies

            this._dgemm  = dgemm; this._dgetf2 = dgetf2; this._dlaswp = dlaswp; this._dtrsm = dtrsm; this._xerbla = xerbla;
            this._ilaenv = ilaenv;

            #endregion
        }
Beispiel #17
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 #18
0
        public DGETRF(DGEMM dgemm, DGETF2 dgetf2, DLASWP dlaswp, DTRSM dtrsm, XERBLA xerbla, ILAENV ilaenv)
        {
            #region Set Dependencies

            this._dgemm = dgemm; this._dgetf2 = dgetf2; this._dlaswp = dlaswp; this._dtrsm = dtrsm; this._xerbla = xerbla;
            this._ilaenv = ilaenv;

            #endregion
        }
Beispiel #19
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 #20
0
        public DGBTRF(IDAMAX idamax, ILAENV ilaenv, DCOPY dcopy, DGBTF2 dgbtf2, DGEMM dgemm, DGER dger, DLASWP dlaswp, DSCAL dscal, DSWAP dswap, DTRSM dtrsm
            , XERBLA xerbla)
        {
            #region Set Dependencies

            this._idamax = idamax; this._ilaenv = ilaenv; this._dcopy = dcopy; this._dgbtf2 = dgbtf2; this._dgemm = dgemm;
            this._dger = dger;this._dlaswp = dlaswp; this._dscal = dscal; this._dswap = dswap; this._dtrsm = dtrsm;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #21
0
        public DGELSY(ILAENV ilaenv, DLAMCH dlamch, DLANGE dlange, DCOPY dcopy, DGEQP3 dgeqp3, DLABAD dlabad, DLAIC1 dlaic1, DLASCL dlascl, DLASET dlaset, DORMQR dormqr
                      , DORMRZ dormrz, DTRSM dtrsm, DTZRZF dtzrzf, XERBLA xerbla)
        {
            #region Set Dependencies

            this._ilaenv = ilaenv; this._dlamch = dlamch; this._dlange = dlange; this._dcopy = dcopy; this._dgeqp3 = dgeqp3;
            this._dlabad = dlabad; this._dlaic1 = dlaic1; this._dlascl = dlascl; this._dlaset = dlaset; this._dormqr = dormqr;
            this._dormrz = dormrz; this._dtrsm = dtrsm; this._dtzrzf = dtzrzf; this._xerbla = xerbla;

            #endregion
        }
Beispiel #22
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 #23
0
        public DTRTRS()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            XERBLA xerbla = new XERBLA();
            DTRSM dtrsm = new DTRSM(lsame, xerbla);

            #endregion

            #region Set Dependencies

            this._lsame = lsame; this._dtrsm = dtrsm; this._xerbla = xerbla;

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

            LSAME  lsame  = new LSAME();
            XERBLA xerbla = new XERBLA();
            DTRSM  dtrsm  = new DTRSM(lsame, xerbla);

            #endregion


            #region Set Dependencies

            this._lsame = lsame; this._dtrsm = dtrsm; this._xerbla = xerbla;

            #endregion
        }
Beispiel #25
0
        public DTRTRI()
        {
            #region Dependencies (Initialization)

            LSAME lsame = new LSAME();
            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            XERBLA xerbla = new XERBLA();
            DSCAL dscal = new DSCAL();
            ILAENV ilaenv = new ILAENV(ieeeck, iparmq);
            DTRMM dtrmm = new DTRMM(lsame, xerbla);
            DTRSM dtrsm = new DTRSM(lsame, xerbla);
            DTRMV dtrmv = new DTRMV(lsame, xerbla);
            DTRTI2 dtrti2 = new DTRTI2(lsame, dscal, dtrmv, xerbla);

            #endregion

            #region Set Dependencies

            this._lsame = lsame; this._ilaenv = ilaenv; this._dtrmm = dtrmm; this._dtrsm = dtrsm; this._dtrti2 = dtrti2;
            this._xerbla = xerbla;

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

            #endregion

            #region Set Dependencies

            this._idamax = idamax; this._ilaenv = ilaenv; this._dcopy = dcopy; this._dgbtf2 = dgbtf2; this._dgemm = dgemm;
            this._dger = dger;this._dlaswp = dlaswp; this._dscal = dscal; this._dswap = dswap; this._dtrsm = dtrsm;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #27
0
        public DGELSY(ILAENV ilaenv, DLAMCH dlamch, DLANGE dlange, DCOPY dcopy, DGEQP3 dgeqp3, DLABAD dlabad, DLAIC1 dlaic1, DLASCL dlascl, DLASET dlaset, DORMQR dormqr
                      , DORMRZ dormrz, DTRSM dtrsm, DTZRZF dtzrzf, XERBLA xerbla)
        {
            #region Set Dependencies

            this._ilaenv = ilaenv; this._dlamch = dlamch; this._dlange = dlange; this._dcopy = dcopy; this._dgeqp3 = dgeqp3;
            this._dlabad = dlabad;this._dlaic1 = dlaic1; this._dlascl = dlascl; this._dlaset = dlaset; this._dormqr = dormqr;
            this._dormrz = dormrz;this._dtrsm = dtrsm; this._dtzrzf = dtzrzf; this._xerbla = xerbla;

            #endregion
        }
Beispiel #28
0
        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
        }
Beispiel #29
0
        public DGBTRF(IDAMAX idamax, ILAENV ilaenv, DCOPY dcopy, DGBTF2 dgbtf2, DGEMM dgemm, DGER dger, DLASWP dlaswp, DSCAL dscal, DSWAP dswap, DTRSM dtrsm
                      , XERBLA xerbla)
        {
            #region Set Dependencies

            this._idamax = idamax; this._ilaenv = ilaenv; this._dcopy = dcopy; this._dgbtf2 = dgbtf2; this._dgemm = dgemm;
            this._dger   = dger; this._dlaswp = dlaswp; this._dscal = dscal; this._dswap = dswap; this._dtrsm = dtrsm;
            this._xerbla = xerbla;

            #endregion
        }
Beispiel #30
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 #31
0
        public DGELSY()
        {
            #region Dependencies (Initialization)

            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            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();
            DLABAD dlabad = new DLABAD();
            DDOT   ddot   = new DDOT();
            DAXPY  daxpy  = new DAXPY();
            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);
            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);
            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);
            DGEQP3 dgeqp3 = new DGEQP3(dgeqrf, dlaqp2, dlaqps, dormqr, dswap, xerbla, ilaenv, dnrm2);
            DLAIC1 dlaic1 = new DLAIC1(ddot, dlamch);
            DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla);
            DLASET dlaset = new DLASET(lsame);
            DLARZB dlarzb = new DLARZB(lsame, dcopy, dgemm, dtrmm, xerbla);
            DLARZT dlarzt = new DLARZT(dgemv, dtrmv, xerbla, lsame);
            DLARZ  dlarz  = new DLARZ(daxpy, dcopy, dgemv, dger, lsame);
            DORMR3 dormr3 = new DORMR3(lsame, dlarz, xerbla);
            DORMRZ dormrz = new DORMRZ(lsame, ilaenv, dlarzb, dlarzt, dormr3, xerbla);
            DTRSM  dtrsm  = new DTRSM(lsame, xerbla);
            DLATRZ dlatrz = new DLATRZ(dlarfg, dlarz);
            DTZRZF dtzrzf = new DTZRZF(dlarzb, dlarzt, dlatrz, xerbla, ilaenv);

            #endregion


            #region Set Dependencies

            this._ilaenv = ilaenv; this._dlamch = dlamch; this._dlange = dlange; this._dcopy = dcopy; this._dgeqp3 = dgeqp3;
            this._dlabad = dlabad; this._dlaic1 = dlaic1; this._dlascl = dlascl; this._dlaset = dlaset; this._dormqr = dormqr;
            this._dormrz = dormrz; this._dtrsm = dtrsm; this._dtzrzf = dtzrzf; this._xerbla = xerbla;

            #endregion
        }
Beispiel #32
0
        public DGELSY()
        {
            #region Dependencies (Initialization)

            IEEECK ieeeck = new IEEECK();
            IPARMQ iparmq = new IPARMQ();
            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();
            DLABAD dlabad = new DLABAD();
            DDOT ddot = new DDOT();
            DAXPY daxpy = new DAXPY();
            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);
            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);
            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);
            DGEQP3 dgeqp3 = new DGEQP3(dgeqrf, dlaqp2, dlaqps, dormqr, dswap, xerbla, ilaenv, dnrm2);
            DLAIC1 dlaic1 = new DLAIC1(ddot, dlamch);
            DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla);
            DLASET dlaset = new DLASET(lsame);
            DLARZB dlarzb = new DLARZB(lsame, dcopy, dgemm, dtrmm, xerbla);
            DLARZT dlarzt = new DLARZT(dgemv, dtrmv, xerbla, lsame);
            DLARZ dlarz = new DLARZ(daxpy, dcopy, dgemv, dger, lsame);
            DORMR3 dormr3 = new DORMR3(lsame, dlarz, xerbla);
            DORMRZ dormrz = new DORMRZ(lsame, ilaenv, dlarzb, dlarzt, dormr3, xerbla);
            DTRSM dtrsm = new DTRSM(lsame, xerbla);
            DLATRZ dlatrz = new DLATRZ(dlarfg, dlarz);
            DTZRZF dtzrzf = new DTZRZF(dlarzb, dlarzt, dlatrz, xerbla, ilaenv);

            #endregion

            #region Set Dependencies

            this._ilaenv = ilaenv; this._dlamch = dlamch; this._dlange = dlange; this._dcopy = dcopy; this._dgeqp3 = dgeqp3;
            this._dlabad = dlabad;this._dlaic1 = dlaic1; this._dlascl = dlascl; this._dlaset = dlaset; this._dormqr = dormqr;
            this._dormrz = dormrz;this._dtrsm = dtrsm; this._dtzrzf = dtzrzf; this._xerbla = xerbla;

            #endregion
        }