Mercurial > octave

comparison liboctave/numeric/gsvd.h @ 30302:4fa09c269dde

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: use "m_" prefix for member variables in class gsvd. * liboctave/numeric/gsvd.h, liboctave/numeric/gsvd.cc: Use "m_" prefix for member variables in class gsvd.
author Rik <rik@octave.org>
date Thu, 18 Nov 2021 20:50:27 -0800
parents 4ee01c14fccd
children 796f54d4ddbf
comparison
equal deleted inserted replaced
30301:cb711825f8e5 30302:4fa09c269dde
44 std, 44 std,
45 economy, 45 economy,
46 sigma_only 46 sigma_only
47 }; 47 };
48 48
49 gsvd (void) : sigmaA (), sigmaB (), left_smA (), left_smB (), right_sm () 49 gsvd (void) : m_sigmaA (), m_sigmaB (), m_left_smA (), m_left_smB (), m_right_sm ()
50 { } 50 { }
51 51
52 gsvd (const T& a, const T& b, 52 gsvd (const T& a, const T& b,
53 gsvd::Type gsvd_type = gsvd<T>::Type::std); 53 gsvd::Type gsvd_type = gsvd<T>::Type::std);
54 54
55 gsvd (const gsvd& a) 55 gsvd (const gsvd& a)
56 : type (a.type), 56 : m_type (a.m_type),
57 sigmaA (a.sigmaA), sigmaB (a.sigmaB), 57 m_sigmaA (a.m_sigmaA), m_sigmaB (a.m_sigmaB),
58 left_smA (a.left_smA), left_smB (a.left_smB), right_sm (a.right_sm) 58 m_left_smA (a.m_left_smA), m_left_smB (a.m_left_smB), m_right_sm (a.m_right_sm)
59 { } 59 { }
60 60
61 gsvd& operator = (const gsvd& a) 61 gsvd& operator = (const gsvd& a)
62 { 62 {
63 if (this != &a) 63 if (this != &a)
64 { 64 {
65 type = a.type; 65 m_type = a.m_type;
66 sigmaA = a.sigmaA; 66 m_sigmaA = a.m_sigmaA;
67 sigmaB = a.sigmaB; 67 m_sigmaB = a.m_sigmaB;
68 left_smA = a.left_smA; 68 m_left_smA = a.m_left_smA;
69 left_smB = a.left_smB; 69 m_left_smB = a.m_left_smB;
70 right_sm = a.right_sm; 70 m_right_sm = a.m_right_sm;
71 } 71 }
72 72
73 return *this; 73 return *this;
74 } 74 }
75 75
76 ~gsvd (void) = default; 76 ~gsvd (void) = default;
77 77
78 typename T::real_matrix_type 78 typename T::real_matrix_type
79 singular_values_A (void) const { return sigmaA; } 79 singular_values_A (void) const { return m_sigmaA; }
80 80
81 typename T::real_matrix_type 81 typename T::real_matrix_type
82 singular_values_B (void) const { return sigmaB; } 82 singular_values_B (void) const { return m_sigmaB; }
83 83
84 T left_singular_matrix_A (void) const; 84 T left_singular_matrix_A (void) const;
85 T left_singular_matrix_B (void) const; 85 T left_singular_matrix_B (void) const;
86 86
87 T right_singular_matrix (void) const; 87 T right_singular_matrix (void) const;
88 88
89 private: 89 private:
90 typedef typename T::value_type P; 90 typedef typename T::value_type P;
91 typedef typename T::real_matrix_type real_matrix; 91 typedef typename T::real_matrix_type real_matrix;
92
93 gsvd::Type type;
94 real_matrix sigmaA, sigmaB;
95 T left_smA, left_smB;
96 T right_sm;
97 92
98 void ggsvd (char& jobu, char& jobv, char& jobq, octave_f77_int_type m, 93 void ggsvd (char& jobu, char& jobv, char& jobq, octave_f77_int_type m,
99 octave_f77_int_type n, octave_f77_int_type p, 94 octave_f77_int_type n, octave_f77_int_type p,
100 octave_f77_int_type& k, octave_f77_int_type& l, 95 octave_f77_int_type& k, octave_f77_int_type& l,
101 P *tmp_dataA, octave_f77_int_type m1, 96 P *tmp_dataA, octave_f77_int_type m1,
105 P *v, octave_f77_int_type nrow_v, 100 P *v, octave_f77_int_type nrow_v,
106 P *q, octave_f77_int_type nrow_q, 101 P *q, octave_f77_int_type nrow_q,
107 P *work, octave_f77_int_type lwork, 102 P *work, octave_f77_int_type lwork,
108 octave_f77_int_type *iwork, 103 octave_f77_int_type *iwork,
109 octave_f77_int_type& info); 104 octave_f77_int_type& info);
105
106 //--------
107
108 gsvd::Type m_type;
109 real_matrix m_sigmaA, m_sigmaB;
110 T m_left_smA, m_left_smB;
111 T m_right_sm;
110 }; 112 };
111 } 113 }
112 } 114 }
113 115
114 #endif 116 #endif