Mercurial > octave

comparison liboctave/RowVector.cc @ 231:9a6ecd8b50bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-16 10:37:07 by jwe]
author jwe
date Tue, 16 Nov 1993 10:37:07 +0000
parents 1a48a1b91489
children 780cbbc57b7c
comparison
equal deleted inserted replaced
230:3f7246605fe9 231:9a6ecd8b50bc
29 // #endif 29 // #endif
30 30
31 #include "Matrix.h" 31 #include "Matrix.h"
32 #include "mx-inlines.cc" 32 #include "mx-inlines.cc"
33 #include "lo-error.h" 33 #include "lo-error.h"
34 #include "f77-uscore.h"
35
36 // Fortran functions we call.
37
38 extern "C"
39 {
40 int F77_FCN (dgemv) (const char*, const int*, const int*,
41 const double*, const double*, const int*,
42 const double*, const int*, const double*,
43 double*, const int*, long);
44
45 double F77_FCN (ddot) (const int*, const double*, const int*,
46 const double*, const int*);
47
48 /*
49 * f2c translates complex*16 as
50 *
51 * typedef struct { doublereal re, im; } doublecomplex;
52 *
53 * and Complex.h from libg++ uses
54 *
55 * protected:
56 * double re;
57 * double im;
58 *
59 * as the only data members, so this should work (fingers crossed that
60 * things don't change).
61 */
62
63 int F77_FCN (zgemv) (const char*, const int*, const int*,
64 const Complex*, const Complex*, const int*,
65 const Complex*, const int*, const Complex*,
66 Complex*, const int*, long);
67 }
34 68
35 /* 69 /*
36 * Row Vector class. 70 * Row Vector class.
37 */ 71 */
38 72