Mercurial > hg > octave-lyh

comparison liboctave/fMatrix.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
60 // Fortran functions we call. 60 // Fortran functions we call.
61 61
62 extern "C" 62 extern "C"
63 { 63 {
64 F77_RET_T 64 F77_RET_T
65 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, 65 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&,
66 F77_CONST_CHAR_ARG_DECL,
66 F77_CONST_CHAR_ARG_DECL, 67 F77_CONST_CHAR_ARG_DECL,
67 const octave_idx_type&, const octave_idx_type&, 68 const octave_idx_type&, const octave_idx_type&,
68 const octave_idx_type&, const octave_idx_type&, 69 const octave_idx_type&, const octave_idx_type&,
69 octave_idx_type& 70 octave_idx_type&
70 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); 71 F77_CHAR_ARG_LEN_DECL
72 F77_CHAR_ARG_LEN_DECL);
71 73
72 F77_RET_T 74 F77_RET_T
73 F77_FUNC (sgebal, SGEBAL) (F77_CONST_CHAR_ARG_DECL, 75 F77_FUNC (sgebal, SGEBAL) (F77_CONST_CHAR_ARG_DECL,
74 const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type&, 76 const octave_idx_type&, float*,
77 const octave_idx_type&, octave_idx_type&,
75 octave_idx_type&, float*, octave_idx_type& 78 octave_idx_type&, float*, octave_idx_type&
76 F77_CHAR_ARG_LEN_DECL); 79 F77_CHAR_ARG_LEN_DECL);
77 80
78 F77_RET_T 81 F77_RET_T
79 F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL, 82 F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL,
80 F77_CONST_CHAR_ARG_DECL, 83 F77_CONST_CHAR_ARG_DECL,
81 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, float*, 84 const octave_idx_type&, const octave_idx_type&,
82 const octave_idx_type&, float*, const octave_idx_type&, octave_idx_type& 85 const octave_idx_type&, float*,
86 const octave_idx_type&, float*,
87 const octave_idx_type&, octave_idx_type&
83 F77_CHAR_ARG_LEN_DECL 88 F77_CHAR_ARG_LEN_DECL
84 F77_CHAR_ARG_LEN_DECL); 89 F77_CHAR_ARG_LEN_DECL);
85 90
86 91
87 F77_RET_T 92 F77_RET_T
88 F77_FUNC (sgemm, SGEMM) (F77_CONST_CHAR_ARG_DECL, 93 F77_FUNC (sgemm, SGEMM) (F77_CONST_CHAR_ARG_DECL,
89 F77_CONST_CHAR_ARG_DECL, 94 F77_CONST_CHAR_ARG_DECL,
90 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 95 const octave_idx_type&, const octave_idx_type&,
91 const float&, const float*, const octave_idx_type&, 96 const octave_idx_type&, const float&, const float*,
92 const float*, const octave_idx_type&, const float&, 97 const octave_idx_type&, const float*,
93 float*, const octave_idx_type& 98 const octave_idx_type&, const float&, float*,
99 const octave_idx_type&
94 F77_CHAR_ARG_LEN_DECL 100 F77_CHAR_ARG_LEN_DECL
95 F77_CHAR_ARG_LEN_DECL); 101 F77_CHAR_ARG_LEN_DECL);
96 102
97 F77_RET_T 103 F77_RET_T
98 F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL, 104 F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL,
99 const octave_idx_type&, const octave_idx_type&, const float&, 105 const octave_idx_type&, const octave_idx_type&,
100 const float*, const octave_idx_type&, const float*, 106 const float&, const float*,
107 const octave_idx_type&, const float*,
101 const octave_idx_type&, const float&, float*, 108 const octave_idx_type&, const float&, float*,
102 const octave_idx_type& 109 const octave_idx_type&
103 F77_CHAR_ARG_LEN_DECL); 110 F77_CHAR_ARG_LEN_DECL);
104 111
105 F77_RET_T 112 F77_RET_T
106 F77_FUNC (xsdot, XSDOT) (const octave_idx_type&, const float*, const octave_idx_type&, 113 F77_FUNC (xsdot, XSDOT) (const octave_idx_type&, const float*,
107 const float*, const octave_idx_type&, float&); 114 const octave_idx_type&, const float*,
115 const octave_idx_type&, float&);
108 116
109 F77_RET_T 117 F77_RET_T
110 F77_FUNC (ssyrk, SSYRK) (F77_CONST_CHAR_ARG_DECL, 118 F77_FUNC (ssyrk, SSYRK) (F77_CONST_CHAR_ARG_DECL,
111 F77_CONST_CHAR_ARG_DECL, 119 F77_CONST_CHAR_ARG_DECL,
112 const octave_idx_type&, const octave_idx_type&, 120 const octave_idx_type&, const octave_idx_type&,
114 const float&, float*, const octave_idx_type& 122 const float&, float*, const octave_idx_type&
115 F77_CHAR_ARG_LEN_DECL 123 F77_CHAR_ARG_LEN_DECL
116 F77_CHAR_ARG_LEN_DECL); 124 F77_CHAR_ARG_LEN_DECL);
117 125
118 F77_RET_T 126 F77_RET_T
119 F77_FUNC (sgetrf, SGETRF) (const octave_idx_type&, const octave_idx_type&, float*, const octave_idx_type&, 127 F77_FUNC (sgetrf, SGETRF) (const octave_idx_type&,
120 octave_idx_type*, octave_idx_type&); 128 const octave_idx_type&, float*,
129 const octave_idx_type&,
130 octave_idx_type*, octave_idx_type&);
121 131
122 F77_RET_T 132 F77_RET_T
123 F77_FUNC (sgetrs, SGETRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, const octave_idx_type&, 133 F77_FUNC (sgetrs, SGETRS) (F77_CONST_CHAR_ARG_DECL,
134 const octave_idx_type&, const octave_idx_type&,
124 const float*, const octave_idx_type&, 135 const float*, const octave_idx_type&,
125 const octave_idx_type*, float*, const octave_idx_type&, octave_idx_type& 136 const octave_idx_type*, float*,
137 const octave_idx_type&, octave_idx_type&
126 F77_CHAR_ARG_LEN_DECL); 138 F77_CHAR_ARG_LEN_DECL);
127 139
128 F77_RET_T 140 F77_RET_T
129 F77_FUNC (sgetri, SGETRI) (const octave_idx_type&, float*, const octave_idx_type&, const octave_idx_type*, 141 F77_FUNC (sgetri, SGETRI) (const octave_idx_type&, float*,
142 const octave_idx_type&, const octave_idx_type*,
130 float*, const octave_idx_type&, octave_idx_type&); 143 float*, const octave_idx_type&, octave_idx_type&);
131 144
132 F77_RET_T 145 F77_RET_T
133 F77_FUNC (sgecon, SGECON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, float*, 146 F77_FUNC (sgecon, SGECON) (F77_CONST_CHAR_ARG_DECL,
147 const octave_idx_type&, float*,
134 const octave_idx_type&, const float&, float&, 148 const octave_idx_type&, const float&, float&,
135 float*, octave_idx_type*, octave_idx_type& 149 float*, octave_idx_type*, octave_idx_type&
136 F77_CHAR_ARG_LEN_DECL); 150 F77_CHAR_ARG_LEN_DECL);
137 151
138 F77_RET_T 152 F77_RET_T
139 F77_FUNC (sgelsy, SGELSY) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 153 F77_FUNC (sgelsy, SGELSY) (const octave_idx_type&, const octave_idx_type&,
140 float*, const octave_idx_type&, float*, 154 const octave_idx_type&, float*,
141 const octave_idx_type&, octave_idx_type*, float&, octave_idx_type&, 155 const octave_idx_type&, float*,
142 float*, const octave_idx_type&, octave_idx_type&); 156 const octave_idx_type&, octave_idx_type*,
157 float&, octave_idx_type&, float*,
158 const octave_idx_type&, octave_idx_type&);
143 159
144 F77_RET_T 160 F77_RET_T
145 F77_FUNC (sgelsd, SGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 161 F77_FUNC (sgelsd, SGELSD) (const octave_idx_type&, const octave_idx_type&,
146 float*, const octave_idx_type&, float*, 162 const octave_idx_type&, float*,
147 const octave_idx_type&, float*, float&, octave_idx_type&, 163 const octave_idx_type&, float*,
148 float*, const octave_idx_type&, octave_idx_type*, 164 const octave_idx_type&, float*, float&,
165 octave_idx_type&, float*,
166 const octave_idx_type&, octave_idx_type*,
149 octave_idx_type&); 167 octave_idx_type&);
150 168
151 F77_RET_T 169 F77_RET_T
152 F77_FUNC (spotrf, SPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 170 F77_FUNC (spotrf, SPOTRF) (F77_CONST_CHAR_ARG_DECL,
153 float *, const octave_idx_type&, 171 const octave_idx_type&, float *,
154 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
155
156 F77_RET_T
157 F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
158 float*, const octave_idx_type&, const float&,
159 float&, float*, octave_idx_type*,
160 octave_idx_type& F77_CHAR_ARG_LEN_DECL);
161 F77_RET_T
162 F77_FUNC (spotrs, SPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
163 const octave_idx_type&, const float*,
164 const octave_idx_type&, float*,
165 const octave_idx_type&, octave_idx_type& 172 const octave_idx_type&, octave_idx_type&
166 F77_CHAR_ARG_LEN_DECL); 173 F77_CHAR_ARG_LEN_DECL);
167 174
168 F77_RET_T 175 F77_RET_T
169 F77_FUNC (strtri, STRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 176 F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL,
177 const octave_idx_type&, float*,
178 const octave_idx_type&, const float&,
179 float&, float*, octave_idx_type*,
180 octave_idx_type&
181 F77_CHAR_ARG_LEN_DECL);
182 F77_RET_T
183 F77_FUNC (spotrs, SPOTRS) (F77_CONST_CHAR_ARG_DECL,
184 const octave_idx_type&, const octave_idx_type&,
185 const float*, const octave_idx_type&, float*,
186 const octave_idx_type&, octave_idx_type&
187 F77_CHAR_ARG_LEN_DECL);
188
189 F77_RET_T
190 F77_FUNC (strtri, STRTRI) (F77_CONST_CHAR_ARG_DECL,
191 F77_CONST_CHAR_ARG_DECL,
170 const octave_idx_type&, const float*, 192 const octave_idx_type&, const float*,
171 const octave_idx_type&, octave_idx_type& 193 const octave_idx_type&, octave_idx_type&
172 F77_CHAR_ARG_LEN_DECL 194 F77_CHAR_ARG_LEN_DECL
173 F77_CHAR_ARG_LEN_DECL); 195 F77_CHAR_ARG_LEN_DECL);
174 F77_RET_T 196 F77_RET_T
175 F77_FUNC (strcon, STRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 197 F77_FUNC (strcon, STRCON) (F77_CONST_CHAR_ARG_DECL,
176 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 198 F77_CONST_CHAR_ARG_DECL,
177 const float*, const octave_idx_type&, float&, 199 F77_CONST_CHAR_ARG_DECL,
200 const octave_idx_type&, const float*,
201 const octave_idx_type&, float&,
178 float*, octave_idx_type*, octave_idx_type& 202 float*, octave_idx_type*, octave_idx_type&
179 F77_CHAR_ARG_LEN_DECL 203 F77_CHAR_ARG_LEN_DECL
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_RET_T 206 F77_RET_T
183 F77_FUNC (strtrs, STRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, 207 F77_FUNC (strtrs, STRTRS) (F77_CONST_CHAR_ARG_DECL,
184 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 208 F77_CONST_CHAR_ARG_DECL,
209 F77_CONST_CHAR_ARG_DECL,
210 const octave_idx_type&,
185 const octave_idx_type&, const float*, 211 const octave_idx_type&, const float*,
186 const octave_idx_type&, float*, 212 const octave_idx_type&, float*,
187 const octave_idx_type&, octave_idx_type& 213 const octave_idx_type&, octave_idx_type&
188 F77_CHAR_ARG_LEN_DECL 214 F77_CHAR_ARG_LEN_DECL
189 F77_CHAR_ARG_LEN_DECL 215 F77_CHAR_ARG_LEN_DECL
194 float&, float&); 220 float&, float&);
195 221
196 F77_RET_T 222 F77_RET_T
197 F77_FUNC (strsyl, STRSYL) (F77_CONST_CHAR_ARG_DECL, 223 F77_FUNC (strsyl, STRSYL) (F77_CONST_CHAR_ARG_DECL,
198 F77_CONST_CHAR_ARG_DECL, 224 F77_CONST_CHAR_ARG_DECL,
199 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 225 const octave_idx_type&, const octave_idx_type&,
200 const float*, const octave_idx_type&, const float*, 226 const octave_idx_type&, const float*,
201 const octave_idx_type&, const float*, const octave_idx_type&, 227 const octave_idx_type&, const float*,
202 float&, octave_idx_type& 228 const octave_idx_type&, const float*,
229 const octave_idx_type&, float&, octave_idx_type&
203 F77_CHAR_ARG_LEN_DECL 230 F77_CHAR_ARG_LEN_DECL
204 F77_CHAR_ARG_LEN_DECL); 231 F77_CHAR_ARG_LEN_DECL);
205 232
206 F77_RET_T 233 F77_RET_T
207 F77_FUNC (xslange, XSLANGE) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 234 F77_FUNC (xslange, XSLANGE) (F77_CONST_CHAR_ARG_DECL,
235 const octave_idx_type&,
208 const octave_idx_type&, const float*, 236 const octave_idx_type&, const float*,
209 const octave_idx_type&, float*, float& 237 const octave_idx_type&, float*, float&
210 F77_CHAR_ARG_LEN_DECL); 238 F77_CHAR_ARG_LEN_DECL);
211 } 239 }
212 240