Mercurial > octave

comparison src/DLD-FUNCTIONS/dot.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents 01f703952eff
children ad05e1547398
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
31 #include "parse.h" 31 #include "parse.h"
32 32
33 extern "C" 33 extern "C"
34 { 34 {
35 F77_RET_T 35 F77_RET_T
36 F77_FUNC (ddot3, DDOT3) (const octave_idx_type&, const octave_idx_type&, 36 F77_FUNC (ddot3, DDOT3) (const octave_idx_type&, const octave_idx_type&,
37 const octave_idx_type&, const double*, 37 const octave_idx_type&, const double*,
38 const double*, double*); 38 const double*, double*);
39 39
40 F77_RET_T 40 F77_RET_T
41 F77_FUNC (sdot3, SDOT3) (const octave_idx_type&, const octave_idx_type&, 41 F77_FUNC (sdot3, SDOT3) (const octave_idx_type&, const octave_idx_type&,
42 const octave_idx_type&, const float*, 42 const octave_idx_type&, const float*,
43 const float*, float*); 43 const float*, float*);
44 44
45 F77_RET_T 45 F77_RET_T
46 F77_FUNC (zdotc3, ZDOTC3) (const octave_idx_type&, const octave_idx_type&, 46 F77_FUNC (zdotc3, ZDOTC3) (const octave_idx_type&, const octave_idx_type&,
47 const octave_idx_type&, const Complex*, 47 const octave_idx_type&, const Complex*,
48 const Complex*, Complex*); 48 const Complex*, Complex*);
49 49
50 F77_RET_T 50 F77_RET_T
51 F77_FUNC (cdotc3, CDOTC3) (const octave_idx_type&, const octave_idx_type&, 51 F77_FUNC (cdotc3, CDOTC3) (const octave_idx_type&, const octave_idx_type&,
52 const octave_idx_type&, const FloatComplex*, 52 const octave_idx_type&, const FloatComplex*,
53 const FloatComplex*, FloatComplex*); 53 const FloatComplex*, FloatComplex*);
54 54
55 F77_RET_T 55 F77_RET_T
56 F77_FUNC (dmatm3, DMATM3) (const octave_idx_type&, const octave_idx_type&, 56 F77_FUNC (dmatm3, DMATM3) (const octave_idx_type&, const octave_idx_type&,
57 const octave_idx_type&, const octave_idx_type&, 57 const octave_idx_type&, const octave_idx_type&,
58 const double*, const double*, double*); 58 const double*, const double*, double*);
59 59
60 F77_RET_T 60 F77_RET_T
61 F77_FUNC (smatm3, SMATM3) (const octave_idx_type&, const octave_idx_type&, 61 F77_FUNC (smatm3, SMATM3) (const octave_idx_type&, const octave_idx_type&,
62 const octave_idx_type&, const octave_idx_type&, 62 const octave_idx_type&, const octave_idx_type&,
63 const float*, const float*, float*); 63 const float*, const float*, float*);
64 64
65 F77_RET_T 65 F77_RET_T
66 F77_FUNC (zmatm3, ZMATM3) (const octave_idx_type&, const octave_idx_type&, 66 F77_FUNC (zmatm3, ZMATM3) (const octave_idx_type&, const octave_idx_type&,
67 const octave_idx_type&, const octave_idx_type&, 67 const octave_idx_type&, const octave_idx_type&,
68 const Complex*, const Complex*, Complex*); 68 const Complex*, const Complex*, Complex*);
69 69
70 F77_RET_T 70 F77_RET_T
71 F77_FUNC (cmatm3, CMATM3) (const octave_idx_type&, const octave_idx_type&, 71 F77_FUNC (cmatm3, CMATM3) (const octave_idx_type&, const octave_idx_type&,
72 const octave_idx_type&, const octave_idx_type&, 72 const octave_idx_type&, const octave_idx_type&,
73 const FloatComplex*, const FloatComplex*, 73 const FloatComplex*, const FloatComplex*,
74 FloatComplex*); 74 FloatComplex*);
75 } 75 }
76 76
77 static void 77 static void
78 get_red_dims (const dim_vector& x, const dim_vector& y, int dim, 78 get_red_dims (const dim_vector& x, const dim_vector& y, int dim,
79 dim_vector& z, octave_idx_type& m, octave_idx_type& n, 79 dim_vector& z, octave_idx_type& m, octave_idx_type& n,
80 octave_idx_type& k) 80 octave_idx_type& k)
81 { 81 {
82 int nd = x.length (); 82 int nd = x.length ();
132 132
133 if (argx.is_numeric_type () && argy.is_numeric_type ()) 133 if (argx.is_numeric_type () && argy.is_numeric_type ())
134 { 134 {
135 dim_vector dimx = argx.dims (), dimy = argy.dims (); 135 dim_vector dimx = argx.dims (), dimy = argy.dims ();
136 bool match = dimx == dimy; 136 bool match = dimx == dimy;
137 if (! match && nargin == 2 137 if (! match && nargin == 2
138 && dimx.is_vector () && dimy.is_vector ()) 138 && dimx.is_vector () && dimy.is_vector ())
139 { 139 {
140 // Change to column vectors. 140 // Change to column vectors.
141 dimx = dimx.redim (1); 141 dimx = dimx.redim (1);
142 argx = argx.reshape (dimx); 142 argx = argx.reshape (dimx);