Mercurial > octave

comparison liboctave/CColVector.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 (zgemv) (const char*, const int&, const int&, 41 int F77_FCN (zgemv, ZGEMV) (const char*, const int&, const int&,
42 const Complex&, const Complex*, const int&, 42 const Complex&, const Complex*,
43 const Complex*, const int&, const Complex&, 43 const int&, const Complex*, const int&,
44 Complex*, const int&, long); 44 const Complex&, Complex*, const int&,
45 long);
45 } 46 }
46 47
47 /* 48 /*
48 * Complex Column Vector class 49 * Complex Column Vector class
49 */ 50 */
448 449
449 int ld = nr; 450 int ld = nr;
450 451
451 Complex *y = new Complex [nr]; 452 Complex *y = new Complex [nr];
452 453
453 F77_FCN (zgemv) ("N", nr, nc, 1.0, m.data (), ld, a.data (), 1, 0.0, 454 F77_FCN (zgemv, ZGEMV) ("N", nr, nc, 1.0, m.data (), ld, a.data (),
454 y, 1, 1L); 455 1, 0.0, y, 1, 1L);
455 456
456 return ComplexColumnVector (y, nr); 457 return ComplexColumnVector (y, nr);
457 } 458 }
458 459
459 // column vector by column vector -> column vector operations 460 // column vector by column vector -> column vector operations