Mercurial > hg > octave-lyh

comparison liboctave/CMatrix.cc @ 11518:141b3fb5cef7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Thu, 13 Jan 2011 16:52:30 -0500
parents 53edbf95fbb6
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11517:da8e32c99969 11518:141b3fb5cef7
63 // Fortran functions we call. 63 // Fortran functions we call.
64 64
65 extern "C" 65 extern "C"
66 { 66 {
67 F77_RET_T 67 F77_RET_T
68 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, 68 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&,
69 F77_CONST_CHAR_ARG_DECL,
69 F77_CONST_CHAR_ARG_DECL, 70 F77_CONST_CHAR_ARG_DECL,
70 const octave_idx_type&, const octave_idx_type&, 71 const octave_idx_type&, const octave_idx_type&,
71 const octave_idx_type&, const octave_idx_type&, 72 const octave_idx_type&, const octave_idx_type&,
72 octave_idx_type& 73 octave_idx_type&
73 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); 74 F77_CHAR_ARG_LEN_DECL
75 F77_CHAR_ARG_LEN_DECL);
74 76
75 F77_RET_T 77 F77_RET_T
76 F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL, 78 F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL,
77 const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type&, 79 const octave_idx_type&, Complex*,
80 const octave_idx_type&, octave_idx_type&,
78 octave_idx_type&, double*, octave_idx_type& 81 octave_idx_type&, double*, octave_idx_type&
79 F77_CHAR_ARG_LEN_DECL); 82 F77_CHAR_ARG_LEN_DECL);
80 83
81 F77_RET_T 84 F77_RET_T
82 F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL, 85 F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL,
83 F77_CONST_CHAR_ARG_DECL, 86 F77_CONST_CHAR_ARG_DECL,
84 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*, 87 const octave_idx_type&, const octave_idx_type&,
85 const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& 88 const octave_idx_type&, double*,
89 const octave_idx_type&, double*,
90 const octave_idx_type&, octave_idx_type&
86 F77_CHAR_ARG_LEN_DECL 91 F77_CHAR_ARG_LEN_DECL
87 F77_CHAR_ARG_LEN_DECL); 92 F77_CHAR_ARG_LEN_DECL);
88 93
89 F77_RET_T 94 F77_RET_T
90 F77_FUNC (zgemm, ZGEMM) (F77_CONST_CHAR_ARG_DECL, 95 F77_FUNC (zgemm, ZGEMM) (F77_CONST_CHAR_ARG_DECL,
91 F77_CONST_CHAR_ARG_DECL, 96 F77_CONST_CHAR_ARG_DECL,
92 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 97 const octave_idx_type&, const octave_idx_type&,
93 const Complex&, const Complex*, const octave_idx_type&, 98 const octave_idx_type&, const Complex&,
94 const Complex*, const octave_idx_type&, const Complex&, 99 const Complex*, const octave_idx_type&,
95 Complex*, const octave_idx_type& 100 const Complex*, const octave_idx_type&,
101 const Complex&, Complex*, const octave_idx_type&
96 F77_CHAR_ARG_LEN_DECL 102 F77_CHAR_ARG_LEN_DECL
97 F77_CHAR_ARG_LEN_DECL); 103 F77_CHAR_ARG_LEN_DECL);
98 104
99 F77_RET_T 105 F77_RET_T
100 F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, 106 F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL,
101 const octave_idx_type&, const octave_idx_type&, const Complex&, 107 const octave_idx_type&, const octave_idx_type&,
102 const Complex*, const octave_idx_type&, const Complex*, 108 const Complex&, const Complex*,
103 const octave_idx_type&, const Complex&, Complex*, const octave_idx_type& 109 const octave_idx_type&, const Complex*,
110 const octave_idx_type&, const Complex&,
111 Complex*, const octave_idx_type&
104 F77_CHAR_ARG_LEN_DECL); 112 F77_CHAR_ARG_LEN_DECL);
105 113
106 F77_RET_T 114 F77_RET_T
107 F77_FUNC (xzdotu, XZDOTU) (const octave_idx_type&, const Complex*, const octave_idx_type&, 115 F77_FUNC (xzdotu, XZDOTU) (const octave_idx_type&, const Complex*,
108 const Complex*, const octave_idx_type&, Complex&); 116 const octave_idx_type&, const Complex*,
117 const octave_idx_type&, Complex&);
109 118
110 F77_RET_T 119 F77_RET_T
111 F77_FUNC (xzdotc, XZDOTC) (const octave_idx_type&, const Complex*, const octave_idx_type&, 120 F77_FUNC (xzdotc, XZDOTC) (const octave_idx_type&, const Complex*,
112 const Complex*, const octave_idx_type&, Complex&); 121 const octave_idx_type&, const Complex*,
122 const octave_idx_type&, Complex&);
113 123
114 F77_RET_T 124 F77_RET_T
115 F77_FUNC (zsyrk, ZSYRK) (F77_CONST_CHAR_ARG_DECL, 125 F77_FUNC (zsyrk, ZSYRK) (F77_CONST_CHAR_ARG_DECL,
116 F77_CONST_CHAR_ARG_DECL, 126 F77_CONST_CHAR_ARG_DECL,
117 const octave_idx_type&, const octave_idx_type&, 127 const octave_idx_type&, const octave_idx_type&,
118 const Complex&, const Complex*, const octave_idx_type&, 128 const Complex&, const Complex*,
119 const Complex&, Complex*, const octave_idx_type& 129 const octave_idx_type&, const Complex&,
130 Complex*, const octave_idx_type&
120 F77_CHAR_ARG_LEN_DECL 131 F77_CHAR_ARG_LEN_DECL
121 F77_CHAR_ARG_LEN_DECL); 132 F77_CHAR_ARG_LEN_DECL);
122 133
123 F77_RET_T 134 F77_RET_T
124 F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL, 135 F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL,
125 F77_CONST_CHAR_ARG_DECL, 136 F77_CONST_CHAR_ARG_DECL,
126 const octave_idx_type&, const octave_idx_type&, 137 const octave_idx_type&, const octave_idx_type&,
127 const double&, const Complex*, const octave_idx_type&, 138 const double&, const Complex*,
128 const double&, Complex*, const octave_idx_type& 139 const octave_idx_type&, const double&, Complex*,
140 const octave_idx_type&
129 F77_CHAR_ARG_LEN_DECL 141 F77_CHAR_ARG_LEN_DECL
130 F77_CHAR_ARG_LEN_DECL); 142 F77_CHAR_ARG_LEN_DECL);
131 143
132 F77_RET_T 144 F77_RET_T
133 F77_FUNC (zgetrf, ZGETRF) (const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, 145 F77_FUNC (zgetrf, ZGETRF) (const octave_idx_type&, const octave_idx_type&,
146 Complex*, const octave_idx_type&,
134 octave_idx_type*, octave_idx_type&); 147 octave_idx_type*, octave_idx_type&);
135 148
136 F77_RET_T 149 F77_RET_T
137 F77_FUNC (zgetrs, ZGETRS) (F77_CONST_CHAR_ARG_DECL, 150 F77_FUNC (zgetrs, ZGETRS) (F77_CONST_CHAR_ARG_DECL,
138 const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, 151 const octave_idx_type&, const octave_idx_type&,
139 const octave_idx_type*, Complex*, const octave_idx_type&, octave_idx_type& 152 Complex*, const octave_idx_type&,
153 const octave_idx_type*, Complex*,
154 const octave_idx_type&, octave_idx_type&
140 F77_CHAR_ARG_LEN_DECL); 155 F77_CHAR_ARG_LEN_DECL);
141 156
142 F77_RET_T 157 F77_RET_T
143 F77_FUNC (zgetri, ZGETRI) (const octave_idx_type&, Complex*, const octave_idx_type&, const octave_idx_type*, 158 F77_FUNC (zgetri, ZGETRI) (const octave_idx_type&, Complex*,
144 Complex*, const octave_idx_type&, octave_idx_type&); 159 const octave_idx_type&, const octave_idx_type*,
160 Complex*, const octave_idx_type&,
161 octave_idx_type&);
145 162
146 F77_RET_T 163 F77_RET_T
147 F77_FUNC (zgecon, ZGECON) (F77_CONST_CHAR_ARG_DECL, 164 F77_FUNC (zgecon, ZGECON) (F77_CONST_CHAR_ARG_DECL,
148 const octave_idx_type&, Complex*, 165 const octave_idx_type&, Complex*,
149 const octave_idx_type&, const double&, double&, 166 const octave_idx_type&, const double&, double&,
150 Complex*, double*, octave_idx_type& 167 Complex*, double*, octave_idx_type&
151 F77_CHAR_ARG_LEN_DECL); 168 F77_CHAR_ARG_LEN_DECL);
152 169
153 F77_RET_T 170 F77_RET_T
154 F77_FUNC (zgelsy, ZGELSY) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 171 F77_FUNC (zgelsy, ZGELSY) (const octave_idx_type&, const octave_idx_type&,
155 Complex*, const octave_idx_type&, Complex*, 172 const octave_idx_type&, Complex*,
156 const octave_idx_type&, octave_idx_type*, double&, octave_idx_type&, 173 const octave_idx_type&, Complex*,
157 Complex*, const octave_idx_type&, double*, octave_idx_type&); 174 const octave_idx_type&, octave_idx_type*,
175 double&, octave_idx_type&, Complex*,
176 const octave_idx_type&, double*,
177 octave_idx_type&);
158 178
159 F77_RET_T 179 F77_RET_T
160 F77_FUNC (zgelsd, ZGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 180 F77_FUNC (zgelsd, ZGELSD) (const octave_idx_type&, const octave_idx_type&,
161 Complex*, const octave_idx_type&, Complex*, 181 const octave_idx_type&, Complex*,
162 const octave_idx_type&, double*, double&, octave_idx_type&, 182 const octave_idx_type&, Complex*,
163 Complex*, const octave_idx_type&, double*, 183 const octave_idx_type&, double*, double&,
184 octave_idx_type&, Complex*,
185 const octave_idx_type&, double*,
164 octave_idx_type*, octave_idx_type&); 186 octave_idx_type*, octave_idx_type&);
165 187
166 F77_RET_T 188 F77_RET_T
167 F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 189 F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL,
168 Complex*, const octave_idx_type&, 190 const octave_idx_type&, Complex*,
169 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
170
171 F77_RET_T
172 F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
173 Complex*, const octave_idx_type&, const double&,
174 double&, Complex*, double*,
175 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
176
177 F77_RET_T
178 F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
179 const octave_idx_type&, const Complex*,
180 const octave_idx_type&, Complex*,
181 const octave_idx_type&, octave_idx_type& 191 const octave_idx_type&, octave_idx_type&
182 F77_CHAR_ARG_LEN_DECL); 192 F77_CHAR_ARG_LEN_DECL);
183 193
184 F77_RET_T 194 F77_RET_T
185 F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 195 F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL,
196 const octave_idx_type&, Complex*,
197 const octave_idx_type&, const double&,
198 double&, Complex*, double*, octave_idx_type&
199 F77_CHAR_ARG_LEN_DECL);
200
201 F77_RET_T
202 F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL,
203 const octave_idx_type&, const octave_idx_type&,
204 const Complex*, const octave_idx_type&, Complex*,
205 const octave_idx_type&, octave_idx_type&
206 F77_CHAR_ARG_LEN_DECL);
207
208 F77_RET_T
209 F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL,
210 F77_CONST_CHAR_ARG_DECL,
186 const octave_idx_type&, const Complex*, 211 const octave_idx_type&, const Complex*,
187 const octave_idx_type&, octave_idx_type& 212 const octave_idx_type&, octave_idx_type&
188 F77_CHAR_ARG_LEN_DECL 213 F77_CHAR_ARG_LEN_DECL
189 F77_CHAR_ARG_LEN_DECL); 214 F77_CHAR_ARG_LEN_DECL);
190 215
191 F77_RET_T 216 F77_RET_T
192 F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 217 F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL,
193 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 218 F77_CONST_CHAR_ARG_DECL,
194 const Complex*, const octave_idx_type&, double&, 219 F77_CONST_CHAR_ARG_DECL,
220 const octave_idx_type&, const Complex*,
221 const octave_idx_type&, double&,
195 Complex*, double*, octave_idx_type& 222 Complex*, double*, octave_idx_type&
196 F77_CHAR_ARG_LEN_DECL 223 F77_CHAR_ARG_LEN_DECL
197 F77_CHAR_ARG_LEN_DECL 224 F77_CHAR_ARG_LEN_DECL
198 F77_CHAR_ARG_LEN_DECL); 225 F77_CHAR_ARG_LEN_DECL);
199 226
200 F77_RET_T 227 F77_RET_T
201 F77_FUNC (ztrtrs, ZTRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 228 F77_FUNC (ztrtrs, ZTRTRS) (F77_CONST_CHAR_ARG_DECL,
202 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 229 F77_CONST_CHAR_ARG_DECL,
203 const octave_idx_type&, const Complex*, 230 F77_CONST_CHAR_ARG_DECL,
204 const octave_idx_type&, Complex*, 231 const octave_idx_type&, const octave_idx_type&,
232 const Complex*, const octave_idx_type&, Complex*,
205 const octave_idx_type&, octave_idx_type& 233 const octave_idx_type&, octave_idx_type&
206 F77_CHAR_ARG_LEN_DECL 234 F77_CHAR_ARG_LEN_DECL
207 F77_CHAR_ARG_LEN_DECL 235 F77_CHAR_ARG_LEN_DECL
208 F77_CHAR_ARG_LEN_DECL); 236 F77_CHAR_ARG_LEN_DECL);
209 237
210 F77_RET_T 238 F77_RET_T
211 F77_FUNC (zlartg, ZLARTG) (const Complex&, const Complex&, 239 F77_FUNC (zlartg, ZLARTG) (const Complex&, const Complex&, double&,
212 double&, Complex&, Complex&); 240 Complex&, Complex&);
213 241
214 F77_RET_T 242 F77_RET_T
215 F77_FUNC (ztrsyl, ZTRSYL) (F77_CONST_CHAR_ARG_DECL, 243 F77_FUNC (ztrsyl, ZTRSYL) (F77_CONST_CHAR_ARG_DECL,
216 F77_CONST_CHAR_ARG_DECL, 244 F77_CONST_CHAR_ARG_DECL,
217 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 245 const octave_idx_type&, const octave_idx_type&,
218 const Complex*, const octave_idx_type&, 246 const octave_idx_type&, const Complex*,
219 const Complex*, const octave_idx_type&, 247 const octave_idx_type&, const Complex*,
220 const Complex*, const octave_idx_type&, double&, octave_idx_type& 248 const octave_idx_type&, const Complex*,
249 const octave_idx_type&, double&, octave_idx_type&
221 F77_CHAR_ARG_LEN_DECL 250 F77_CHAR_ARG_LEN_DECL
222 F77_CHAR_ARG_LEN_DECL); 251 F77_CHAR_ARG_LEN_DECL);
223 252
224 F77_RET_T 253 F77_RET_T
225 F77_FUNC (xzlange, XZLANGE) (F77_CONST_CHAR_ARG_DECL, 254 F77_FUNC (xzlange, XZLANGE) (F77_CONST_CHAR_ARG_DECL,
226 const octave_idx_type&, const octave_idx_type&, const Complex*, 255 const octave_idx_type&, const octave_idx_type&,
227 const octave_idx_type&, double*, double& 256 const Complex*, const octave_idx_type&,
257 double*, double&
228 F77_CHAR_ARG_LEN_DECL); 258 F77_CHAR_ARG_LEN_DECL);
229 } 259 }
230 260
231 static const Complex Complex_NaN_result (octave_NaN, octave_NaN); 261 static const Complex Complex_NaN_result (octave_NaN, octave_NaN);
232 262