diff options
author | Alberto Ruiz <aruiz@um.es> | 2009-04-17 11:55:32 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2009-04-17 11:55:32 +0000 |
commit | 33a8f087574c89d257fccefd58643bd9b8fa9f22 (patch) | |
tree | f017b6834367fd1bd29d58801d10a2eebf383be3 /lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | |
parent | 71ed02d2728701130cf82e61a8633af0f6375812 (diff) |
restored C trans and constant for comparison
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h')
-rw-r--r-- | lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h index 3f58243..dc7a98f 100644 --- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h +++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h | |||
@@ -55,6 +55,12 @@ typedef short ftnlen; | |||
55 | int multiplyR(int ta, int tb, KDMAT(a),KDMAT(b),DMAT(r)); | 55 | int multiplyR(int ta, int tb, KDMAT(a),KDMAT(b),DMAT(r)); |
56 | int multiplyC(int ta, int tb, KCMAT(a),KCMAT(b),CMAT(r)); | 56 | int multiplyC(int ta, int tb, KCMAT(a),KCMAT(b),CMAT(r)); |
57 | 57 | ||
58 | int transR(KDMAT(x),DMAT(t)); | ||
59 | int transC(KCMAT(x),CMAT(t)); | ||
60 | |||
61 | int constantR(double * pval, DVEC(r)); | ||
62 | int constantC(doublecomplex* pval, CVEC(r)); | ||
63 | |||
58 | int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); | 64 | int svd_l_R(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); |
59 | int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); | 65 | int svd_l_Rdd(KDMAT(x),DMAT(u),DVEC(s),DMAT(v)); |
60 | int svd_l_C(KCMAT(a),CMAT(u),DVEC(s),CMAT(v)); | 66 | int svd_l_C(KCMAT(a),CMAT(u),DVEC(s),CMAT(v)); |