Mercurial > hg > octave-lyh

comparison liboctave/dColVector.cc @ 1253:bb67a902760b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 16:35:23 by jwe]
author jwe
date Tue, 11 Apr 1995 16:35:23 +0000
parents 97eac19837dc
children f93b7fa5e113
comparison
equal deleted inserted replaced
1252:ccb22498f289 1253:bb67a902760b
36 36
37 // Fortran functions we call. 37 // Fortran functions we call.
38 38
39 extern "C" 39 extern "C"
40 { 40 {
41 int F77_FCN (dgemv) (const char*, const int&, const int&, 41 int F77_FCN (dgemv, DGEMV) (const char*, const int&, const int&,
42 const double&, const double*, const int&, 42 const double&, const double*,
43 const double*, const int&, const double&, 43 const int&, const double*, const int&,
44 double*, const int&, long); 44 const double&, double*, const int&,
45 long);
45 } 46 }
46 47
47 /* 48 /*
48 * Column Vector class. 49 * Column Vector class.
49 */ 50 */
223 224
224 int ld = nr; 225 int ld = nr;
225 226
226 double *y = new double [nr]; 227 double *y = new double [nr];
227 228
228 F77_FCN (dgemv) ("N", nr, nc, 1.0, m.data (), ld, a.data (), 1, 0.0, 229 F77_FCN (dgemv, DGEMV) ("N", nr, nc, 1.0, m.data (), ld, a.data (),
229 y, 1, 1L); 230 1, 0.0, y, 1, 1L);
230 231
231 return ColumnVector (y, nr); 232 return ColumnVector (y, nr);
232 } 233 }
233 234
234 // diagonal matrix by column vector -> column vector operations 235 // diagonal matrix by column vector -> column vector operations