summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/LAPACK
diff options
context:
space:
mode:
authorVivian McPhail <haskell.vivian.mcphail@gmail.com>2010-09-20 03:48:46 +0000
committerVivian McPhail <haskell.vivian.mcphail@gmail.com>2010-09-20 03:48:46 +0000
commit482b533c3fbfcd75d6c5c1d3ce32585bf9fc2ad7 (patch)
tree82f284eeb1cf03fd4514960b848d38e5af94e709 /lib/Numeric/LinearAlgebra/LAPACK
parent503f598801b67886028d9ffdfdef38813954e46f (diff)
remove Fractional from Element
Diffstat (limited to 'lib/Numeric/LinearAlgebra/LAPACK')
-rw-r--r--lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h
index 12dcde4..0543f7a 100644
--- a/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h
+++ b/lib/Numeric/LinearAlgebra/LAPACK/lapack-aux.h
@@ -64,18 +64,22 @@ typedef short ftnlen;
64 64
65/********************************************************/ 65/********************************************************/
66 66
67int multiplyF(int ta, int tb, KFMAT(a),KFMAT(b),FMAT(r));
67int multiplyR(int ta, int tb, KDMAT(a),KDMAT(b),DMAT(r)); 68int multiplyR(int ta, int tb, KDMAT(a),KDMAT(b),DMAT(r));
68int multiplyC(int ta, int tb, KCMAT(a),KCMAT(b),CMAT(r)); 69int multiplyC(int ta, int tb, KCMAT(a),KCMAT(b),CMAT(r));
70int multiplyQ(int ta, int tb, KQMAT(a),KQMAT(b),QMAT(r));
69 71
70int transF(KFMAT(x),FMAT(t)); 72int transF(KFMAT(x),FMAT(t));
71int transR(KDMAT(x),DMAT(t)); 73int transR(KDMAT(x),DMAT(t));
72int transQ(KQMAT(x),QMAT(t)); 74int transQ(KQMAT(x),QMAT(t));
73int transC(KCMAT(x),CMAT(t)); 75int transC(KCMAT(x),CMAT(t));
76int transP(KPMAT(x),PMAT(t));
74 77
75int constantF(float * pval, FVEC(r)); 78int constantF(float * pval, FVEC(r));
76int constantR(double * pval, DVEC(r)); 79int constantR(double * pval, DVEC(r));
77int constantQ(complex* pval, QVEC(r)); 80int constantQ(complex* pval, QVEC(r));
78int constantC(doublecomplex* pval, CVEC(r)); 81int constantC(doublecomplex* pval, CVEC(r));
82int constantP(void* pval, PVEC(r));
79 83
80int float2double(FVEC(x),DVEC(y)); 84int float2double(FVEC(x),DVEC(y));
81int double2float(DVEC(x),FVEC(y)); 85int double2float(DVEC(x),FVEC(y));