Mercurial > hg > octave-nkf

comparison liboctave/dMatrix.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
61 // Fortran functions we call. 61 // Fortran functions we call.
62 62
63 extern "C" 63 extern "C"
64 { 64 {
65 F77_RET_T 65 F77_RET_T
66 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, 66 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&,
67 F77_CONST_CHAR_ARG_DECL,
67 F77_CONST_CHAR_ARG_DECL, 68 F77_CONST_CHAR_ARG_DECL,
68 const octave_idx_type&, const octave_idx_type&, 69 const octave_idx_type&, const octave_idx_type&,
69 const octave_idx_type&, const octave_idx_type&, 70 const octave_idx_type&, const octave_idx_type&,
70 octave_idx_type& 71 octave_idx_type&
71 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); 72 F77_CHAR_ARG_LEN_DECL
73 F77_CHAR_ARG_LEN_DECL);
72 74
73 F77_RET_T 75 F77_RET_T
74 F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL, 76 F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL,
75 const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type&, 77 const octave_idx_type&, double*,
78 const octave_idx_type&, octave_idx_type&,
76 octave_idx_type&, double*, octave_idx_type& 79 octave_idx_type&, double*, octave_idx_type&
77 F77_CHAR_ARG_LEN_DECL); 80 F77_CHAR_ARG_LEN_DECL);
78 81
79 F77_RET_T 82 F77_RET_T
80 F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL, 83 F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL,
81 F77_CONST_CHAR_ARG_DECL, 84 F77_CONST_CHAR_ARG_DECL,
82 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*, 85 const octave_idx_type&, const octave_idx_type&,
83 const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& 86 const octave_idx_type&, double*,
87 const octave_idx_type&, double*,
88 const octave_idx_type&, octave_idx_type&
84 F77_CHAR_ARG_LEN_DECL 89 F77_CHAR_ARG_LEN_DECL
85 F77_CHAR_ARG_LEN_DECL); 90 F77_CHAR_ARG_LEN_DECL);
86 91
87 92
88 F77_RET_T 93 F77_RET_T
89 F77_FUNC (dgemm, DGEMM) (F77_CONST_CHAR_ARG_DECL, 94 F77_FUNC (dgemm, DGEMM) (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 double&, const double*, const octave_idx_type&, 97 const octave_idx_type&, const double&,
93 const double*, const octave_idx_type&, const double&, 98 const double*, const octave_idx_type&,
94 double*, const octave_idx_type& 99 const double*, const octave_idx_type&,
100 const double&, double*, const octave_idx_type&
95 F77_CHAR_ARG_LEN_DECL 101 F77_CHAR_ARG_LEN_DECL
96 F77_CHAR_ARG_LEN_DECL); 102 F77_CHAR_ARG_LEN_DECL);
97 103
98 F77_RET_T 104 F77_RET_T
99 F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, 105 F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL,
100 const octave_idx_type&, const octave_idx_type&, const double&, 106 const octave_idx_type&, const octave_idx_type&,
101 const double*, const octave_idx_type&, const double*, 107 const double&, const double*,
108 const octave_idx_type&, const double*,
102 const octave_idx_type&, const double&, double*, 109 const octave_idx_type&, const double&, double*,
103 const octave_idx_type& 110 const octave_idx_type&
104 F77_CHAR_ARG_LEN_DECL); 111 F77_CHAR_ARG_LEN_DECL);
105 112
106 F77_RET_T 113 F77_RET_T
107 F77_FUNC (xddot, XDDOT) (const octave_idx_type&, const double*, const octave_idx_type&, 114 F77_FUNC (xddot, XDDOT) (const octave_idx_type&, const double*,
108 const double*, const octave_idx_type&, double&); 115 const octave_idx_type&, const double*,
116 const octave_idx_type&, double&);
109 117
110 F77_RET_T 118 F77_RET_T
111 F77_FUNC (dsyrk, DSYRK) (F77_CONST_CHAR_ARG_DECL, 119 F77_FUNC (dsyrk, DSYRK) (F77_CONST_CHAR_ARG_DECL,
112 F77_CONST_CHAR_ARG_DECL, 120 F77_CONST_CHAR_ARG_DECL,
113 const octave_idx_type&, const octave_idx_type&, 121 const octave_idx_type&, const octave_idx_type&,
115 const double&, double*, const octave_idx_type& 123 const double&, double*, const octave_idx_type&
116 F77_CHAR_ARG_LEN_DECL 124 F77_CHAR_ARG_LEN_DECL
117 F77_CHAR_ARG_LEN_DECL); 125 F77_CHAR_ARG_LEN_DECL);
118 126
119 F77_RET_T 127 F77_RET_T
120 F77_FUNC (dgetrf, DGETRF) (const octave_idx_type&, const octave_idx_type&, double*, const octave_idx_type&, 128 F77_FUNC (dgetrf, DGETRF) (const octave_idx_type&, const octave_idx_type&,
121 octave_idx_type*, octave_idx_type&); 129 double*, const octave_idx_type&,
130 octave_idx_type*, octave_idx_type&);
122 131
123 F77_RET_T 132 F77_RET_T
124 F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, 133 F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL,
134 const octave_idx_type&, const octave_idx_type&,
125 const double*, const octave_idx_type&, 135 const double*, const octave_idx_type&,
126 const octave_idx_type*, double*, const octave_idx_type&, octave_idx_type& 136 const octave_idx_type*, double*,
137 const octave_idx_type&, octave_idx_type&
127 F77_CHAR_ARG_LEN_DECL); 138 F77_CHAR_ARG_LEN_DECL);
128 139
129 F77_RET_T 140 F77_RET_T
130 F77_FUNC (dgetri, DGETRI) (const octave_idx_type&, double*, const octave_idx_type&, const octave_idx_type*, 141 F77_FUNC (dgetri, DGETRI) (const octave_idx_type&, double*,
131 double*, const octave_idx_type&, octave_idx_type&); 142 const octave_idx_type&, const octave_idx_type*,
143 double*, const octave_idx_type&,
144 octave_idx_type&);
132 145
133 F77_RET_T 146 F77_RET_T
134 F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, double*, 147 F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL,
148 const octave_idx_type&, double*,
135 const octave_idx_type&, const double&, double&, 149 const octave_idx_type&, const double&, double&,
136 double*, octave_idx_type*, octave_idx_type& 150 double*, octave_idx_type*, octave_idx_type&
137 F77_CHAR_ARG_LEN_DECL); 151 F77_CHAR_ARG_LEN_DECL);
138 152
139 F77_RET_T 153 F77_RET_T
140 F77_FUNC (dgelsy, DGELSY) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 154 F77_FUNC (dgelsy, DGELSY) (const octave_idx_type&, const octave_idx_type&,
141 double*, const octave_idx_type&, double*, 155 const octave_idx_type&, double*,
142 const octave_idx_type&, octave_idx_type*, double&, octave_idx_type&, 156 const octave_idx_type&, double*,
143 double*, const octave_idx_type&, octave_idx_type&); 157 const octave_idx_type&, octave_idx_type*,
158 double&, octave_idx_type&, double*,
159 const octave_idx_type&, octave_idx_type&);
144 160
145 F77_RET_T 161 F77_RET_T
146 F77_FUNC (dgelsd, DGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 162 F77_FUNC (dgelsd, DGELSD) (const octave_idx_type&, const octave_idx_type&,
147 double*, const octave_idx_type&, double*, 163 const octave_idx_type&, double*,
148 const octave_idx_type&, double*, double&, octave_idx_type&, 164 const octave_idx_type&, double*,
149 double*, const octave_idx_type&, octave_idx_type*, 165 const octave_idx_type&, double*, double&,
166 octave_idx_type&, double*,
167 const octave_idx_type&, octave_idx_type*,
150 octave_idx_type&); 168 octave_idx_type&);
151 169
152 F77_RET_T 170 F77_RET_T
153 F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 171 F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL,
154 double *, const octave_idx_type&, 172 const octave_idx_type&, double *,
155 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
156
157 F77_RET_T
158 F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
159 double*, const octave_idx_type&, const double&,
160 double&, double*, octave_idx_type*,
161 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
162 F77_RET_T
163 F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
164 const octave_idx_type&, const double*,
165 const octave_idx_type&, double*,
166 const octave_idx_type&, octave_idx_type& 173 const octave_idx_type&, octave_idx_type&
167 F77_CHAR_ARG_LEN_DECL); 174 F77_CHAR_ARG_LEN_DECL);
168 175
169 F77_RET_T 176 F77_RET_T
170 F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 177 F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL,
178 const octave_idx_type&, double*,
179 const octave_idx_type&, const double&,
180 double&, double*, octave_idx_type*,
181 octave_idx_type&
182 F77_CHAR_ARG_LEN_DECL);
183 F77_RET_T
184 F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL,
185 const octave_idx_type&, const octave_idx_type&,
186 const double*, const octave_idx_type&, double*,
187 const octave_idx_type&, octave_idx_type&
188 F77_CHAR_ARG_LEN_DECL);
189
190 F77_RET_T
191 F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL,
192 F77_CONST_CHAR_ARG_DECL,
171 const octave_idx_type&, const double*, 193 const octave_idx_type&, const double*,
172 const octave_idx_type&, octave_idx_type& 194 const octave_idx_type&, octave_idx_type&
173 F77_CHAR_ARG_LEN_DECL 195 F77_CHAR_ARG_LEN_DECL
174 F77_CHAR_ARG_LEN_DECL); 196 F77_CHAR_ARG_LEN_DECL);
175 F77_RET_T 197 F77_RET_T
176 F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 198 F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL,
177 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 199 F77_CONST_CHAR_ARG_DECL,
178 const double*, const octave_idx_type&, double&, 200 F77_CONST_CHAR_ARG_DECL,
201 const octave_idx_type&, const double*,
202 const octave_idx_type&, double&,
179 double*, octave_idx_type*, octave_idx_type& 203 double*, octave_idx_type*, octave_idx_type&
180 F77_CHAR_ARG_LEN_DECL 204 F77_CHAR_ARG_LEN_DECL
181 F77_CHAR_ARG_LEN_DECL 205 F77_CHAR_ARG_LEN_DECL
182 F77_CHAR_ARG_LEN_DECL); 206 F77_CHAR_ARG_LEN_DECL);
183 F77_RET_T 207 F77_RET_T
184 F77_FUNC (dtrtrs, DTRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 208 F77_FUNC (dtrtrs, DTRTRS) (F77_CONST_CHAR_ARG_DECL,
185 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 209 F77_CONST_CHAR_ARG_DECL,
186 const octave_idx_type&, const double*, 210 F77_CONST_CHAR_ARG_DECL,
187 const octave_idx_type&, double*, 211 const octave_idx_type&, const octave_idx_type&,
212 const double*, const octave_idx_type&, double*,
188 const octave_idx_type&, octave_idx_type& 213 const octave_idx_type&, octave_idx_type&
189 F77_CHAR_ARG_LEN_DECL 214 F77_CHAR_ARG_LEN_DECL
190 F77_CHAR_ARG_LEN_DECL 215 F77_CHAR_ARG_LEN_DECL
191 F77_CHAR_ARG_LEN_DECL); 216 F77_CHAR_ARG_LEN_DECL);
192 217
195 double&, double&); 220 double&, double&);
196 221
197 F77_RET_T 222 F77_RET_T
198 F77_FUNC (dtrsyl, DTRSYL) (F77_CONST_CHAR_ARG_DECL, 223 F77_FUNC (dtrsyl, DTRSYL) (F77_CONST_CHAR_ARG_DECL,
199 F77_CONST_CHAR_ARG_DECL, 224 F77_CONST_CHAR_ARG_DECL,
200 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 225 const octave_idx_type&, const octave_idx_type&,
201 const double*, const octave_idx_type&, const double*, 226 const octave_idx_type&, const double*,
202 const octave_idx_type&, const double*, const octave_idx_type&, 227 const octave_idx_type&, const double*,
203 double&, octave_idx_type& 228 const octave_idx_type&, const double*,
229 const octave_idx_type&, double&, octave_idx_type&
204 F77_CHAR_ARG_LEN_DECL 230 F77_CHAR_ARG_LEN_DECL
205 F77_CHAR_ARG_LEN_DECL); 231 F77_CHAR_ARG_LEN_DECL);
206 232
207 F77_RET_T 233 F77_RET_T
208 F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 234 F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL,
209 const octave_idx_type&, const double*, 235 const octave_idx_type&, const octave_idx_type&,
210 const octave_idx_type&, double*, double& 236 const double*, const octave_idx_type&,
237 double*, double&
211 F77_CHAR_ARG_LEN_DECL); 238 F77_CHAR_ARG_LEN_DECL);
212 } 239 }
213 240
214 // Matrix class. 241 // Matrix class.
215 242