public DSBTRD() { #region Dependencies (Initialization) DLAR2V dlar2v = new DLAR2V(); DLARGV dlargv = new DLARGV(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLARTV dlartv = new DLARTV(); DROT drot = new DROT(); 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); DLARTG dlartg = new DLARTG(dlamch); DLASET dlaset = new DLASET(lsame); #endregion #region Set Dependencies this._dlar2v = dlar2v; this._dlargv = dlargv; this._dlartg = dlartg; this._dlartv = dlartv; this._dlaset = dlaset; this._drot = drot; this._xerbla = xerbla; this._lsame = lsame; #endregion }
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 }
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 }
public DSYTD2() { #region Dependencies (Initialization) DAXPY daxpy = new DAXPY(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLAPY2 dlapy2 = new DLAPY2(); DNRM2 dnrm2 = new DNRM2(); DSCAL dscal = new DSCAL(); XERBLA xerbla = new XERBLA(); DDOT ddot = new DDOT(); 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); DSYR2 dsyr2 = new DSYR2(lsame, xerbla); #endregion #region Set Dependencies this._daxpy = daxpy; this._dlarfg = dlarfg; this._dsymv = dsymv; this._dsyr2 = dsyr2; this._xerbla = xerbla; this._lsame = lsame; this._ddot = ddot; #endregion }
public DLASD7() { #region Dependencies (Initialization) DCOPY dcopy = new DCOPY(); DLAMRG dlamrg = new DLAMRG(); DROT drot = new DROT(); XERBLA xerbla = new XERBLA(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLAPY2 dlapy2 = new DLAPY2(); 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); #endregion #region Set Dependencies this._dcopy = dcopy; this._dlamrg = dlamrg; this._drot = drot; this._xerbla = xerbla; this._dlamch = dlamch; this._dlapy2 = dlapy2; #endregion }
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 }
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 }
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 }
public DGEBAL() { #region Dependencies (Initialization) LSAME lsame = new LSAME(); IDAMAX idamax = new IDAMAX(); DLAMC3 dlamc3 = new DLAMC3(); DSCAL dscal = new DSCAL(); DSWAP dswap = new DSWAP(); 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); #endregion #region Set Dependencies this._lsame = lsame; this._idamax = idamax; this._dlamch = dlamch; this._dscal = dscal; this._dswap = dswap; this._xerbla = xerbla; #endregion }
public DLASD3() { #region Dependencies (Initialization) DLAMC3 dlamc3 = new DLAMC3(); DNRM2 dnrm2 = new DNRM2(); DCOPY dcopy = new DCOPY(); LSAME lsame = new LSAME(); XERBLA xerbla = new XERBLA(); DLASD5 dlasd5 = new DLASD5(); 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); DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla); DLAED6 dlaed6 = new DLAED6(dlamch); DLASD4 dlasd4 = new DLASD4(dlaed6, dlasd5, dlamch); #endregion #region Set Dependencies this._dlamc3 = dlamc3; this._dnrm2 = dnrm2; this._dcopy = dcopy; this._dgemm = dgemm; this._dlacpy = dlacpy; this._dlascl = dlascl; this._dlasd4 = dlasd4; this._xerbla = xerbla; #endregion }
public DLAHQR() { #region Dependencies (Initialization) LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DCOPY dcopy = new DCOPY(); DLABAD dlabad = new DLABAD(); DLAPY2 dlapy2 = new DLAPY2(); DNRM2 dnrm2 = new DNRM2(); DSCAL dscal = new DSCAL(); 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); DLANV2 dlanv2 = new DLANV2(dlamch, dlapy2); DLARFG dlarfg = new DLARFG(dlamch, dlapy2, dnrm2, dscal); #endregion #region Set Dependencies this._dlamch = dlamch; this._dcopy = dcopy; this._dlabad = dlabad; this._dlanv2 = dlanv2; this._dlarfg = dlarfg; this._drot = drot; #endregion }
public DSTEQR() { #region Dependencies (Initialization) LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLASSQ dlassq = new DLASSQ(); DLAPY2 dlapy2 = new DLAPY2(); DLAE2 dlae2 = new DLAE2(); DLAEV2 dlaev2 = new DLAEV2(); XERBLA xerbla = new XERBLA(); DSWAP dswap = new DSWAP(); 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); DLANST dlanst = new DLANST(lsame, dlassq); DLARTG dlartg = new DLARTG(dlamch); DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla); DLASET dlaset = new DLASET(lsame); DLASR dlasr = new DLASR(lsame, xerbla); DLASRT dlasrt = new DLASRT(lsame, xerbla); #endregion #region Set Dependencies this._lsame = lsame; this._dlamch = dlamch; this._dlanst = dlanst; this._dlapy2 = dlapy2; this._dlae2 = dlae2; this._dlaev2 = dlaev2; this._dlartg = dlartg; this._dlascl = dlascl; this._dlaset = dlaset; this._dlasr = dlasr; this._dlasrt = dlasrt; this._dswap = dswap; this._xerbla = xerbla; #endregion }
public DSTERF() { #region Dependencies (Initialization) LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLASSQ dlassq = new DLASSQ(); DLAPY2 dlapy2 = new DLAPY2(); DLAE2 dlae2 = new DLAE2(); 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); DLANST dlanst = new DLANST(lsame, dlassq); DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla); DLASRT dlasrt = new DLASRT(lsame, xerbla); #endregion #region Set Dependencies this._dlamch = dlamch; this._dlanst = dlanst; this._dlapy2 = dlapy2; this._dlae2 = dlae2; this._dlascl = dlascl; this._dlasrt = dlasrt; this._xerbla = xerbla; #endregion }
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 }
public DLAED9() { #region Dependencies (Initialization) DLAMC3 dlamc3 = new DLAMC3(); DNRM2 dnrm2 = new DNRM2(); DCOPY dcopy = new DCOPY(); LSAME lsame = new LSAME(); DLAED5 dlaed5 = new DLAED5(); 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); DLAED6 dlaed6 = new DLAED6(dlamch); DLAED4 dlaed4 = new DLAED4(dlamch, dlaed5, dlaed6); #endregion #region Set Dependencies this._dlamc3 = dlamc3; this._dnrm2 = dnrm2; this._dcopy = dcopy; this._dlaed4 = dlaed4; this._xerbla = xerbla; #endregion }
public DLAED2() { #region Dependencies (Initialization) IDAMAX idamax = new IDAMAX(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLAPY2 dlapy2 = new DLAPY2(); DCOPY dcopy = new DCOPY(); DLAMRG dlamrg = new DLAMRG(); DROT drot = new DROT(); DSCAL dscal = new DSCAL(); 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); DLACPY dlacpy = new DLACPY(lsame); #endregion #region Set Dependencies this._idamax = idamax; this._dlamch = dlamch; this._dlapy2 = dlapy2; this._dcopy = dcopy; this._dlacpy = dlacpy; this._dlamrg = dlamrg; this._drot = drot; this._dscal = dscal; this._xerbla = xerbla; #endregion }
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 }
public DLATRS() { #region Dependencies (Initialization) LSAME lsame = new LSAME(); IDAMAX idamax = new IDAMAX(); DASUM dasum = new DASUM(); DDOT ddot = new DDOT(); DLAMC3 dlamc3 = new DLAMC3(); DAXPY daxpy = new DAXPY(); DSCAL dscal = new DSCAL(); 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); DTRSV dtrsv = new DTRSV(lsame, xerbla); #endregion #region Set Dependencies this._lsame = lsame; this._idamax = idamax; this._dasum = dasum; this._ddot = ddot; this._dlamch = dlamch; this._daxpy = daxpy; this._dscal = dscal; this._dtrsv = dtrsv; this._xerbla = xerbla; #endregion }
public DLAPLL() { #region Dependencies (Initialization) DDOT ddot = new DDOT(); DAXPY daxpy = new DAXPY(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLAPY2 dlapy2 = new DLAPY2(); DNRM2 dnrm2 = new DNRM2(); DSCAL dscal = new DSCAL(); DLAS2 dlas2 = new DLAS2(); 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._ddot = ddot; this._daxpy = daxpy; this._dlarfg = dlarfg; this._dlas2 = dlas2; #endregion }
public DLASQ1() { #region Dependencies (Initialization) DCOPY dcopy = new DCOPY(); DLAS2 dlas2 = new DLAS2(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); XERBLA xerbla = new XERBLA(); DLASQ5 dlasq5 = new DLASQ5(); DLAZQ4 dlazq4 = new DLAZQ4(); IEEECK ieeeck = new IEEECK(); IPARMQ iparmq = new 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); DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla); DLASQ6 dlasq6 = new DLASQ6(dlamch); DLAZQ3 dlazq3 = new DLAZQ3(dlasq5, dlasq6, dlazq4, dlamch); DLASRT dlasrt = new DLASRT(lsame, xerbla); ILAENV ilaenv = new ILAENV(ieeeck, iparmq); DLASQ2 dlasq2 = new DLASQ2(dlazq3, dlasrt, xerbla, dlamch, ilaenv); #endregion #region Set Dependencies this._dcopy = dcopy; this._dlas2 = dlas2; this._dlascl = dlascl; this._dlasq2 = dlasq2; this._dlasrt = dlasrt; this._xerbla = xerbla; this._dlamch = dlamch; #endregion }
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 }
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 }
public DLASD0() { #region Dependencies (Initialization) DLAMRG dlamrg = new DLAMRG(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); XERBLA xerbla = new XERBLA(); DLAPY2 dlapy2 = new DLAPY2(); DCOPY dcopy = new DCOPY(); DROT drot = new DROT(); DNRM2 dnrm2 = new DNRM2(); DLASD5 dlasd5 = new DLASD5(); DLAS2 dlas2 = new DLAS2(); DLASQ5 dlasq5 = new DLASQ5(); DLAZQ4 dlazq4 = new DLAZQ4(); IEEECK ieeeck = new IEEECK(); IPARMQ iparmq = new IPARMQ(); DSCAL dscal = new DSCAL(); DSWAP dswap = new DSWAP(); DLASDT dlasdt = new DLASDT(); 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); DLACPY dlacpy = new DLACPY(lsame); DLASET dlaset = new DLASET(lsame); DLASD2 dlasd2 = new DLASD2(dlamch, dlapy2, dcopy, dlacpy, dlamrg, dlaset, drot, xerbla); DGEMM dgemm = new DGEMM(lsame, xerbla); DLAED6 dlaed6 = new DLAED6(dlamch); DLASD4 dlasd4 = new DLASD4(dlaed6, dlasd5, dlamch); DLASD3 dlasd3 = new DLASD3(dlamc3, dnrm2, dcopy, dgemm, dlacpy, dlascl, dlasd4, xerbla); DLASD1 dlasd1 = new DLASD1(dlamrg, dlascl, dlasd2, dlasd3, xerbla); DLARTG dlartg = new DLARTG(dlamch); DLASQ6 dlasq6 = new DLASQ6(dlamch); DLAZQ3 dlazq3 = new DLAZQ3(dlasq5, dlasq6, dlazq4, dlamch); DLASRT dlasrt = new DLASRT(lsame, xerbla); ILAENV ilaenv = new ILAENV(ieeeck, iparmq); DLASQ2 dlasq2 = new DLASQ2(dlazq3, dlasrt, xerbla, dlamch, ilaenv); DLASQ1 dlasq1 = new DLASQ1(dcopy, dlas2, dlascl, dlasq2, dlasrt, xerbla, dlamch); DLASR dlasr = new DLASR(lsame, xerbla); DLASV2 dlasv2 = new DLASV2(dlamch); DBDSQR dbdsqr = new DBDSQR(lsame, dlamch, dlartg, dlas2, dlasq1, dlasr, dlasv2, drot, dscal, dswap , xerbla); DLASDQ dlasdq = new DLASDQ(dbdsqr, dlartg, dlasr, dswap, xerbla, lsame); #endregion #region Set Dependencies this._dlasd1 = dlasd1; this._dlasdq = dlasdq; this._dlasdt = dlasdt; this._xerbla = xerbla; #endregion }
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 }
public DLALN2() { #region Dependencies (Initialization) LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLADIV dladiv = new DLADIV(); 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); #endregion #region Set Dependencies this._dlamch = dlamch; this._dladiv = dladiv; #endregion #region Data Initialization //ZSWAP/.FALSE.,.FALSE.,.TRUE.,.TRUE. ZSWAP[1 + o_zswap] = false; ZSWAP[2 + o_zswap] = false; ZSWAP[3 + o_zswap] = true; ZSWAP[4 + o_zswap] = true; //RSWAP/.FALSE.,.TRUE.,.FALSE.,.TRUE. RSWAP[1 + o_rswap] = false; RSWAP[2 + o_rswap] = true; RSWAP[3 + o_rswap] = false; RSWAP[4 + o_rswap] = true; //IPIVOT/1,2,3,4,2,1,4,3,3,4,1,2,4,3,2,1 IPIVOT[0] = 1; IPIVOT[1] = 2; IPIVOT[2] = 3; IPIVOT[3] = 4; IPIVOT[4] = 2; IPIVOT[5] = 1; IPIVOT[6] = 4; IPIVOT[7] = 3; IPIVOT[8] = 3; IPIVOT[9] = 4; IPIVOT[10] = 1; IPIVOT[11] = 2; IPIVOT[12] = 4; IPIVOT[12] = 3; IPIVOT[14] = 2; IPIVOT[15] = 1; #endregion }
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 }
public DLASY2() { #region Dependencies (Initialization) IDAMAX idamax = new IDAMAX(); LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DCOPY dcopy = new DCOPY(); DSWAP dswap = new DSWAP(); 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); #endregion #region Set Dependencies this._idamax = idamax; this._dlamch = dlamch; this._dcopy = dcopy; this._dswap = dswap; #endregion #region Data Initialization //LOCU12/3,4,1,2 LOCU12[1 + o_locu12] = 3; LOCU12[2 + o_locu12] = 4; LOCU12[3 + o_locu12] = 1; LOCU12[4 + o_locu12] = 2; //LOCL21/2,1,4,3 LOCL21[1 + o_locl21] = 2; LOCL21[2 + o_locl21] = 1; LOCL21[3 + o_locl21] = 4; LOCL21[4 + o_locl21] = 3; //LOCU22/4,3,2,1 LOCU22[1 + o_locu22] = 4; LOCU22[2 + o_locu22] = 3; LOCU22[3 + o_locu22] = 2; LOCU22[4 + o_locu22] = 1; //XSWPIV/.FALSE.,.FALSE.,.TRUE.,.TRUE. XSWPIV[1 + o_xswpiv] = false; XSWPIV[2 + o_xswpiv] = false; XSWPIV[3 + o_xswpiv] = true; XSWPIV[4 + o_xswpiv] = true; //BSWPIV/.FALSE.,.TRUE.,.FALSE.,.TRUE. BSWPIV[1 + o_bswpiv] = false; BSWPIV[2 + o_bswpiv] = true; BSWPIV[3 + o_bswpiv] = false; BSWPIV[4 + o_bswpiv] = true; #endregion }
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 }
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 }
public DLASDQ() { #region Dependencies (Initialization) LSAME lsame = new LSAME(); DLAMC3 dlamc3 = new DLAMC3(); DLAS2 dlas2 = new DLAS2(); DCOPY dcopy = new DCOPY(); XERBLA xerbla = new XERBLA(); DLASQ5 dlasq5 = new DLASQ5(); DLAZQ4 dlazq4 = new DLAZQ4(); IEEECK ieeeck = new IEEECK(); IPARMQ iparmq = new IPARMQ(); DROT drot = new DROT(); DSCAL dscal = new DSCAL(); DSWAP dswap = new DSWAP(); 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); DLARTG dlartg = new DLARTG(dlamch); DLASCL dlascl = new DLASCL(lsame, dlamch, xerbla); DLASQ6 dlasq6 = new DLASQ6(dlamch); DLAZQ3 dlazq3 = new DLAZQ3(dlasq5, dlasq6, dlazq4, dlamch); DLASRT dlasrt = new DLASRT(lsame, xerbla); ILAENV ilaenv = new ILAENV(ieeeck, iparmq); DLASQ2 dlasq2 = new DLASQ2(dlazq3, dlasrt, xerbla, dlamch, ilaenv); DLASQ1 dlasq1 = new DLASQ1(dcopy, dlas2, dlascl, dlasq2, dlasrt, xerbla, dlamch); DLASR dlasr = new DLASR(lsame, xerbla); DLASV2 dlasv2 = new DLASV2(dlamch); DBDSQR dbdsqr = new DBDSQR(lsame, dlamch, dlartg, dlas2, dlasq1, dlasr, dlasv2, drot, dscal, dswap , xerbla); #endregion #region Set Dependencies this._dbdsqr = dbdsqr; this._dlartg = dlartg; this._dlasr = dlasr; this._dswap = dswap; this._xerbla = xerbla; this._lsame = lsame; #endregion }