Mercurial > hg > octave-nkf

comparison liboctave/CRowVector.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 Row Vector class 49 * Complex Row Vector class
49 */ 50 */
440 441
441 int ld = a_nr; 442 int ld = a_nr;
442 443
443 Complex *y = new Complex [len]; 444 Complex *y = new Complex [len];
444 445
445 F77_FCN (zgemv) ("T", a_nc, a_nr, 1.0, a.data (), ld, v.data (), 1, 446 F77_FCN (zgemv, ZGEMV) ("T", a_nc, a_nr, 1.0, a.data (), ld,
446 0.0, y, 1, 1L); 447 v.data (), 1, 0.0, y, 1, 1L);
447 448
448 return ComplexRowVector (y, len); 449 return ComplexRowVector (y, len);
449 } 450 }
450 451
451 ComplexRowVector 452 ComplexRowVector