Mercurial > octave-nkf

comparison liboctave/fCMatrix.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
62 // Fortran functions we call. 62 // Fortran functions we call.
63 63
64 extern "C" 64 extern "C"
65 { 65 {
66 F77_RET_T 66 F77_RET_T
67 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, 67 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&,
68 F77_CONST_CHAR_ARG_DECL,
68 F77_CONST_CHAR_ARG_DECL, 69 F77_CONST_CHAR_ARG_DECL,
69 const octave_idx_type&, const octave_idx_type&, 70 const octave_idx_type&, const octave_idx_type&,
70 const octave_idx_type&, const octave_idx_type&, 71 const octave_idx_type&, const octave_idx_type&,
71 octave_idx_type& 72 octave_idx_type&
72 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); 73 F77_CHAR_ARG_LEN_DECL
74 F77_CHAR_ARG_LEN_DECL);
73 75
74 F77_RET_T 76 F77_RET_T
75 F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL, 77 F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL,
76 const octave_idx_type&, FloatComplex*, const octave_idx_type&, octave_idx_type&, 78 const octave_idx_type&, FloatComplex*,
79 const octave_idx_type&, octave_idx_type&,
77 octave_idx_type&, float*, octave_idx_type& 80 octave_idx_type&, float*, octave_idx_type&
78 F77_CHAR_ARG_LEN_DECL); 81 F77_CHAR_ARG_LEN_DECL);
79 82
80 F77_RET_T 83 F77_RET_T
81 F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL, 84 F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL,
82 F77_CONST_CHAR_ARG_DECL, 85 F77_CONST_CHAR_ARG_DECL,
83 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, float*, 86 const octave_idx_type&, const octave_idx_type&,
84 const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type& 87 const octave_idx_type&, float*,
88 const octave_idx_type&, float*,
89 const octave_idx_type&, octave_idx_type&
85 F77_CHAR_ARG_LEN_DECL 90 F77_CHAR_ARG_LEN_DECL
86 F77_CHAR_ARG_LEN_DECL); 91 F77_CHAR_ARG_LEN_DECL);
87 92
88 F77_RET_T 93 F77_RET_T
89 F77_FUNC (cgemm, CGEMM) (F77_CONST_CHAR_ARG_DECL, 94 F77_FUNC (cgemm, CGEMM) (F77_CONST_CHAR_ARG_DECL,
90 F77_CONST_CHAR_ARG_DECL, 95 F77_CONST_CHAR_ARG_DECL,
91 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 96 const octave_idx_type&, const octave_idx_type&,
92 const FloatComplex&, const FloatComplex*, const octave_idx_type&, 97 const octave_idx_type&, const FloatComplex&,
93 const FloatComplex*, const octave_idx_type&, const FloatComplex&, 98 const FloatComplex*, const octave_idx_type&,
99 const FloatComplex*, const octave_idx_type&,
100 const FloatComplex&, FloatComplex*,
101 const octave_idx_type&
102 F77_CHAR_ARG_LEN_DECL
103 F77_CHAR_ARG_LEN_DECL);
104
105 F77_RET_T
106 F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL,
107 const octave_idx_type&, const octave_idx_type&,
108 const FloatComplex&, const FloatComplex*,
109 const octave_idx_type&, const FloatComplex*,
110 const octave_idx_type&, const FloatComplex&,
111 FloatComplex*, const octave_idx_type&
112 F77_CHAR_ARG_LEN_DECL);
113
114 F77_RET_T
115 F77_FUNC (xcdotu, XCDOTU) (const octave_idx_type&, const FloatComplex*,
116 const octave_idx_type&, const FloatComplex*,
117 const octave_idx_type&, FloatComplex&);
118
119 F77_RET_T
120 F77_FUNC (xcdotc, XCDOTC) (const octave_idx_type&, const FloatComplex*,
121 const octave_idx_type&, const FloatComplex*,
122 const octave_idx_type&, FloatComplex&);
123
124 F77_RET_T
125 F77_FUNC (csyrk, CSYRK) (F77_CONST_CHAR_ARG_DECL,
126 F77_CONST_CHAR_ARG_DECL,
127 const octave_idx_type&, const octave_idx_type&,
128 const FloatComplex&, const FloatComplex*,
129 const octave_idx_type&, const FloatComplex&,
94 FloatComplex*, const octave_idx_type& 130 FloatComplex*, const octave_idx_type&
95 F77_CHAR_ARG_LEN_DECL 131 F77_CHAR_ARG_LEN_DECL
96 F77_CHAR_ARG_LEN_DECL); 132 F77_CHAR_ARG_LEN_DECL);
97 133
98 F77_RET_T 134 F77_RET_T
99 F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL, 135 F77_FUNC (cherk, CHERK) (F77_CONST_CHAR_ARG_DECL,
100 const octave_idx_type&, const octave_idx_type&, const FloatComplex&,
101 const FloatComplex*, const octave_idx_type&, const FloatComplex*,
102 const octave_idx_type&, const FloatComplex&, FloatComplex*, const octave_idx_type&
103 F77_CHAR_ARG_LEN_DECL);
104
105 F77_RET_T
106 F77_FUNC (xcdotu, XCDOTU) (const octave_idx_type&, const FloatComplex*, const octave_idx_type&,
107 const FloatComplex*, const octave_idx_type&, FloatComplex&);
108
109 F77_RET_T
110 F77_FUNC (xcdotc, XCDOTC) (const octave_idx_type&, const FloatComplex*, const octave_idx_type&,
111 const FloatComplex*, const octave_idx_type&, FloatComplex&);
112
113 F77_RET_T
114 F77_FUNC (csyrk, CSYRK) (F77_CONST_CHAR_ARG_DECL,
115 F77_CONST_CHAR_ARG_DECL, 136 F77_CONST_CHAR_ARG_DECL,
116 const octave_idx_type&, const octave_idx_type&, 137 const octave_idx_type&, const octave_idx_type&,
117 const FloatComplex&, const FloatComplex*, const octave_idx_type&, 138 const float&, const FloatComplex*,
118 const FloatComplex&, FloatComplex*, const octave_idx_type& 139 const octave_idx_type&, const float&,
140 FloatComplex*, const octave_idx_type&
119 F77_CHAR_ARG_LEN_DECL 141 F77_CHAR_ARG_LEN_DECL
120 F77_CHAR_ARG_LEN_DECL); 142 F77_CHAR_ARG_LEN_DECL);
121 143
122 F77_RET_T 144 F77_RET_T
123 F77_FUNC (cherk, CHERK) (F77_CONST_CHAR_ARG_DECL, 145 F77_FUNC (cgetrf, CGETRF) (const octave_idx_type&, const octave_idx_type&,
124 F77_CONST_CHAR_ARG_DECL, 146 FloatComplex*, const octave_idx_type&,
125 const octave_idx_type&, const octave_idx_type&,
126 const float&, const FloatComplex*, const octave_idx_type&,
127 const float&, FloatComplex*, const octave_idx_type&
128 F77_CHAR_ARG_LEN_DECL
129 F77_CHAR_ARG_LEN_DECL);
130
131 F77_RET_T
132 F77_FUNC (cgetrf, CGETRF) (const octave_idx_type&, const octave_idx_type&, FloatComplex*, const octave_idx_type&,
133 octave_idx_type*, octave_idx_type&); 147 octave_idx_type*, octave_idx_type&);
134 148
135 F77_RET_T 149 F77_RET_T
136 F77_FUNC (cgetrs, CGETRS) (F77_CONST_CHAR_ARG_DECL, 150 F77_FUNC (cgetrs, CGETRS) (F77_CONST_CHAR_ARG_DECL,
137 const octave_idx_type&, const octave_idx_type&, FloatComplex*, const octave_idx_type&, 151 const octave_idx_type&, const octave_idx_type&,
138 const octave_idx_type*, FloatComplex*, const octave_idx_type&, octave_idx_type& 152 FloatComplex*, const octave_idx_type&,
153 const octave_idx_type*, FloatComplex*,
154 const octave_idx_type&, octave_idx_type&
139 F77_CHAR_ARG_LEN_DECL); 155 F77_CHAR_ARG_LEN_DECL);
140 156
141 F77_RET_T 157 F77_RET_T
142 F77_FUNC (cgetri, CGETRI) (const octave_idx_type&, FloatComplex*, const octave_idx_type&, const octave_idx_type*, 158 F77_FUNC (cgetri, CGETRI) (const octave_idx_type&, FloatComplex*,
143 FloatComplex*, const octave_idx_type&, octave_idx_type&); 159 const octave_idx_type&, const octave_idx_type*,
160 FloatComplex*, const octave_idx_type&,
161 octave_idx_type&);
144 162
145 F77_RET_T 163 F77_RET_T
146 F77_FUNC (cgecon, CGECON) (F77_CONST_CHAR_ARG_DECL, 164 F77_FUNC (cgecon, CGECON) (F77_CONST_CHAR_ARG_DECL,
147 const octave_idx_type&, FloatComplex*, 165 const octave_idx_type&, FloatComplex*,
148 const octave_idx_type&, const float&, float&, 166 const octave_idx_type&, const float&, float&,
149 FloatComplex*, float*, octave_idx_type& 167 FloatComplex*, float*, octave_idx_type&
150 F77_CHAR_ARG_LEN_DECL); 168 F77_CHAR_ARG_LEN_DECL);
151 169
152 F77_RET_T 170 F77_RET_T
153 F77_FUNC (cgelsy, CGELSY) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 171 F77_FUNC (cgelsy, CGELSY) (const octave_idx_type&, const octave_idx_type&,
154 FloatComplex*, const octave_idx_type&, FloatComplex*, 172 const octave_idx_type&, FloatComplex*,
155 const octave_idx_type&, octave_idx_type*, float&, octave_idx_type&, 173 const octave_idx_type&, FloatComplex*,
156 FloatComplex*, const octave_idx_type&, float*, octave_idx_type&); 174 const octave_idx_type&, octave_idx_type*,
175 float&, octave_idx_type&, FloatComplex*,
176 const octave_idx_type&, float*, octave_idx_type&);
157 177
158 F77_RET_T 178 F77_RET_T
159 F77_FUNC (cgelsd, CGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 179 F77_FUNC (cgelsd, CGELSD) (const octave_idx_type&, const octave_idx_type&,
160 FloatComplex*, const octave_idx_type&, FloatComplex*, 180 const octave_idx_type&, FloatComplex*,
161 const octave_idx_type&, float*, float&, octave_idx_type&, 181 const octave_idx_type&, FloatComplex*,
162 FloatComplex*, const octave_idx_type&, float*, 182 const octave_idx_type&, float*, float&,
183 octave_idx_type&, FloatComplex*,
184 const octave_idx_type&, float*,
163 octave_idx_type*, octave_idx_type&); 185 octave_idx_type*, octave_idx_type&);
164 186
165 F77_RET_T 187 F77_RET_T
166 F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 188 F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL,
167 FloatComplex*, const octave_idx_type&, 189 const octave_idx_type&, FloatComplex*,
168 octave_idx_type& F77_CHAR_ARG_LEN_DECL); 190 const octave_idx_type&, octave_idx_type&
191 F77_CHAR_ARG_LEN_DECL);
169 192
170 F77_RET_T 193 F77_RET_T
171 F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 194 F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL,
172 FloatComplex*, const octave_idx_type&, const float&, 195 const octave_idx_type&, FloatComplex*,
173 float&, FloatComplex*, float*, 196 const octave_idx_type&, const float&, float&,
174 octave_idx_type& F77_CHAR_ARG_LEN_DECL); 197 FloatComplex*, float*, octave_idx_type&
198 F77_CHAR_ARG_LEN_DECL);
175 199
176 F77_RET_T 200 F77_RET_T
177 F77_FUNC (cpotrs, CPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 201 F77_FUNC (cpotrs, CPOTRS) (F77_CONST_CHAR_ARG_DECL,
202 const octave_idx_type&,
178 const octave_idx_type&, const FloatComplex*, 203 const octave_idx_type&, const FloatComplex*,
179 const octave_idx_type&, FloatComplex*, 204 const octave_idx_type&, FloatComplex*,
180 const octave_idx_type&, octave_idx_type& 205 const octave_idx_type&, octave_idx_type&
181 F77_CHAR_ARG_LEN_DECL); 206 F77_CHAR_ARG_LEN_DECL);
182 207
183 F77_RET_T 208 F77_RET_T
184 F77_FUNC (ctrtri, CTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 209 F77_FUNC (ctrtri, CTRTRI) (F77_CONST_CHAR_ARG_DECL,
210 F77_CONST_CHAR_ARG_DECL,
185 const octave_idx_type&, const FloatComplex*, 211 const octave_idx_type&, const FloatComplex*,
186 const octave_idx_type&, octave_idx_type& 212 const octave_idx_type&, octave_idx_type&
187 F77_CHAR_ARG_LEN_DECL 213 F77_CHAR_ARG_LEN_DECL
188 F77_CHAR_ARG_LEN_DECL); 214 F77_CHAR_ARG_LEN_DECL);
189 215
190 F77_RET_T 216 F77_RET_T
191 F77_FUNC (ctrcon, CTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 217 F77_FUNC (ctrcon, CTRCON) (F77_CONST_CHAR_ARG_DECL,
192 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 218 F77_CONST_CHAR_ARG_DECL,
193 const FloatComplex*, const octave_idx_type&, float&, 219 F77_CONST_CHAR_ARG_DECL,
194 FloatComplex*, float*, octave_idx_type& 220 const octave_idx_type&, const FloatComplex*,
221 const octave_idx_type&, float&, FloatComplex*,
222 float*, octave_idx_type&
195 F77_CHAR_ARG_LEN_DECL 223 F77_CHAR_ARG_LEN_DECL
196 F77_CHAR_ARG_LEN_DECL 224 F77_CHAR_ARG_LEN_DECL
197 F77_CHAR_ARG_LEN_DECL); 225 F77_CHAR_ARG_LEN_DECL);
198 226
199 F77_RET_T 227 F77_RET_T
200 F77_FUNC (ctrtrs, CTRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 228 F77_FUNC (ctrtrs, CTRTRS) (F77_CONST_CHAR_ARG_DECL,
201 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 229 F77_CONST_CHAR_ARG_DECL,
202 const octave_idx_type&, const FloatComplex*, 230 F77_CONST_CHAR_ARG_DECL,
203 const octave_idx_type&, FloatComplex*, 231 const octave_idx_type&, const octave_idx_type&,
204 const octave_idx_type&, octave_idx_type& 232 const FloatComplex*, const octave_idx_type&,
233 FloatComplex*, const octave_idx_type&,
234 octave_idx_type&
205 F77_CHAR_ARG_LEN_DECL 235 F77_CHAR_ARG_LEN_DECL
206 F77_CHAR_ARG_LEN_DECL 236 F77_CHAR_ARG_LEN_DECL
207 F77_CHAR_ARG_LEN_DECL); 237 F77_CHAR_ARG_LEN_DECL);
208 238
209 F77_RET_T 239 F77_RET_T
211 float&, FloatComplex&, FloatComplex&); 241 float&, FloatComplex&, FloatComplex&);
212 242
213 F77_RET_T 243 F77_RET_T
214 F77_FUNC (ctrsyl, CTRSYL) (F77_CONST_CHAR_ARG_DECL, 244 F77_FUNC (ctrsyl, CTRSYL) (F77_CONST_CHAR_ARG_DECL,
215 F77_CONST_CHAR_ARG_DECL, 245 F77_CONST_CHAR_ARG_DECL,
216 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 246 const octave_idx_type&, const octave_idx_type&,
217 const FloatComplex*, const octave_idx_type&, 247 const octave_idx_type&, const FloatComplex*,
218 const FloatComplex*, const octave_idx_type&, 248 const octave_idx_type&, const FloatComplex*,
219 const FloatComplex*, const octave_idx_type&, float&, octave_idx_type& 249 const octave_idx_type&, const FloatComplex*,
250 const octave_idx_type&, float&, octave_idx_type&
220 F77_CHAR_ARG_LEN_DECL 251 F77_CHAR_ARG_LEN_DECL
221 F77_CHAR_ARG_LEN_DECL); 252 F77_CHAR_ARG_LEN_DECL);
222 253
223 F77_RET_T 254 F77_RET_T
224 F77_FUNC (xclange, XCLANGE) (F77_CONST_CHAR_ARG_DECL, 255 F77_FUNC (xclange, XCLANGE) (F77_CONST_CHAR_ARG_DECL,
225 const octave_idx_type&, const octave_idx_type&, const FloatComplex*, 256 const octave_idx_type&, const octave_idx_type&,
226 const octave_idx_type&, float*, float& 257 const FloatComplex*, const octave_idx_type&,
258 float*, float&
227 F77_CHAR_ARG_LEN_DECL); 259 F77_CHAR_ARG_LEN_DECL);
228 } 260 }
229 261
230 static const FloatComplex FloatComplex_NaN_result (octave_Float_NaN, octave_Float_NaN); 262 static const FloatComplex FloatComplex_NaN_result (octave_Float_NaN, octave_Float_NaN);
231 263