Mercurial > octave

comparison liboctave/dMatrix.cc @ 1214:0bf4d2b7def4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-06 02:33:59 by jwe]
author jwe
date Thu, 06 Apr 1995 02:35:53 +0000
parents 8302fab9fe24
children 97eac19837dc
comparison
equal deleted inserted replaced
1213:9689615b34f2 1214:0bf4d2b7def4
73 int F77_FCN (cfftf) (const int*, Complex*, Complex*); 73 int F77_FCN (cfftf) (const int*, Complex*, Complex*);
74 74
75 int F77_FCN (cfftb) (const int*, Complex*, Complex*); 75 int F77_FCN (cfftb) (const int*, Complex*, Complex*);
76 } 76 }
77 77
78 #define KLUDGE_MATRICES
79 #define TYPE double
80 #define KL_MAT_TYPE Matrix
81 #include "mx-kludge.cc"
82 #undef KLUDGE_MATRICES
83 #undef TYPE
84 #undef KL_MAT_TYPE
85
86 /* 78 /*
87 * Matrix class. 79 * Matrix class.
88 */ 80 */
89 81
90 Matrix::Matrix (const DiagMatrix& a) 82 Matrix::Matrix (const DiagMatrix& a)
91 : Array2<double> (a.rows (), a.cols (), 0.0) 83 : MArray2<double> (a.rows (), a.cols (), 0.0)
92 { 84 {
93 for (int i = 0; i < a.length (); i++) 85 for (int i = 0; i < a.length (); i++)
94 elem (i, i) = a.elem (i, i); 86 elem (i, i) = a.elem (i, i);
95 } 87 }
96 88