示例#1
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
        }
示例#2
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
        }
示例#3
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
        }
示例#4
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
        }