GNU Octave 10.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 
Loading...
Searching...
No Matches
lo-lapack-proto.h
Go to the documentation of this file.
1////////////////////////////////////////////////////////////////////////
2//
3// Copyright (C) 2016-2025 The Octave Project Developers
4//
5// See the file COPYRIGHT.md in the top-level directory of this
6// distribution or <https://octave.org/copyright/>.
7//
8// This file is part of Octave.
9//
10// Octave is free software: you can redistribute it and/or modify it
11// under the terms of the GNU General Public License as published by
12// the Free Software Foundation, either version 3 of the License, or
13// (at your option) any later version.
14//
15// Octave is distributed in the hope that it will be useful, but
16// WITHOUT ANY WARRANTY; without even the implied warranty of
17// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18// GNU General Public License for more details.
19//
20// You should have received a copy of the GNU General Public License
21// along with Octave; see the file COPYING. If not, see
22// <https://www.gnu.org/licenses/>.
23//
24////////////////////////////////////////////////////////////////////////
25
26#if ! defined (octave_lo_lapack_proto_h)
27#define octave_lo_lapack_proto_h 1
28
29#include "octave-config.h"
30
31#include "f77-fcn.h"
32#include "oct-cmplx.h"
33
34extern "C"
35{
36 // GBCON
37
38 F77_RET_T
39 F77_FUNC (dgbcon, DGBCON) (F77_CONST_CHAR_ARG_DECL,
40 const F77_INT&, const F77_INT&,
41 const F77_INT&, F77_DBLE *,
42 const F77_INT&, const F77_INT *,
43 const F77_DBLE&, F77_DBLE&, F77_DBLE *,
44 F77_INT *, F77_INT&
45 F77_CHAR_ARG_LEN_DECL);
46
47 F77_RET_T
48 F77_FUNC (zgbcon, ZGBCON) (F77_CONST_CHAR_ARG_DECL,
49 const F77_INT&, const F77_INT&,
50 const F77_INT&, F77_DBLE_CMPLX *,
51 const F77_INT&, const F77_INT *,
52 const F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX *,
53 F77_DBLE *, F77_INT&
54 F77_CHAR_ARG_LEN_DECL);
55
56 // GBTRF
57
58 F77_RET_T
59 F77_FUNC (dgbtrf, DGBTRF) (const F77_INT&, const F77_INT&,
60 const F77_INT&, const F77_INT&,
61 F77_DBLE *, const F77_INT&,
62 F77_INT *, F77_INT&);
63
64 F77_RET_T
65 F77_FUNC (zgbtrf, ZGBTRF) (const F77_INT&, const F77_INT&,
66 const F77_INT&, const F77_INT&,
67 F77_DBLE_CMPLX *, const F77_INT&,
68 F77_INT *, F77_INT&);
69
70 // GBTRS
71
72 F77_RET_T
73 F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL,
74 const F77_INT&, const F77_INT&,
75 const F77_INT&, const F77_INT&,
76 const F77_DBLE *, const F77_INT&,
77 const F77_INT *, F77_DBLE *,
78 const F77_INT&, F77_INT&
79 F77_CHAR_ARG_LEN_DECL);
80
81 F77_RET_T
82 F77_FUNC (zgbtrs, ZGBTRS) (F77_CONST_CHAR_ARG_DECL,
83 const F77_INT&, const F77_INT&,
84 const F77_INT&, const F77_INT&,
85 const F77_DBLE_CMPLX *, const F77_INT&,
86 const F77_INT *, F77_DBLE_CMPLX *,
87 const F77_INT&, F77_INT&
88 F77_CHAR_ARG_LEN_DECL);
89
90 // GEBAL
91
92 F77_RET_T
93 F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL,
94 const F77_INT&, F77_CMPLX *,
95 const F77_INT&, F77_INT&,
96 F77_INT&, F77_REAL *, F77_INT&
97 F77_CHAR_ARG_LEN_DECL);
98
99 F77_RET_T
100 F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL,
101 const F77_INT&, F77_DBLE *,
102 const F77_INT&, F77_INT&,
103 F77_INT&, F77_DBLE *, F77_INT&
104 F77_CHAR_ARG_LEN_DECL);
105
106 F77_RET_T
107 F77_FUNC (sgebal, SGEBAL) (F77_CONST_CHAR_ARG_DECL,
108 const F77_INT&, F77_REAL *,
109 const F77_INT&, F77_INT&,
110 F77_INT&, F77_REAL *, F77_INT&
111 F77_CHAR_ARG_LEN_DECL);
112
113 F77_RET_T
114 F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL,
115 const F77_INT&, F77_DBLE_CMPLX *,
116 const F77_INT&, F77_INT&,
117 F77_INT&, F77_DBLE *, F77_INT&
118 F77_CHAR_ARG_LEN_DECL);
119
120 // GEBAK
121
122 F77_RET_T
123 F77_FUNC (cgebak, CGEBAK) (F77_CONST_CHAR_ARG_DECL,
124 F77_CONST_CHAR_ARG_DECL,
125 const F77_INT&, const F77_INT&,
126 const F77_INT&, const F77_REAL *,
127 const F77_INT&, F77_CMPLX *,
128 const F77_INT&, F77_INT&
129 F77_CHAR_ARG_LEN_DECL
130 F77_CHAR_ARG_LEN_DECL);
131
132 F77_RET_T
133 F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL,
134 F77_CONST_CHAR_ARG_DECL,
135 const F77_INT&, const F77_INT&,
136 const F77_INT&, const F77_DBLE *,
137 const F77_INT&, F77_DBLE *,
138 const F77_INT&, F77_INT&
139 F77_CHAR_ARG_LEN_DECL
140 F77_CHAR_ARG_LEN_DECL);
141
142 F77_RET_T
143 F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL,
144 F77_CONST_CHAR_ARG_DECL,
145 const F77_INT&, const F77_INT&,
146 const F77_INT&, const F77_REAL *,
147 const F77_INT&, F77_REAL *,
148 const F77_INT&, F77_INT&
149 F77_CHAR_ARG_LEN_DECL
150 F77_CHAR_ARG_LEN_DECL);
151
152 F77_RET_T
153 F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL,
154 F77_CONST_CHAR_ARG_DECL,
155 const F77_INT&, const F77_INT&,
156 const F77_INT&, const F77_DBLE *,
157 const F77_INT&, F77_DBLE_CMPLX *,
158 const F77_INT&, F77_INT&
159 F77_CHAR_ARG_LEN_DECL
160 F77_CHAR_ARG_LEN_DECL);
161
162 // GECON
163
164 F77_RET_T
165 F77_FUNC (cgecon, CGECON) (F77_CONST_CHAR_ARG_DECL,
166 const F77_INT&, F77_CMPLX *,
167 const F77_INT&, const F77_REAL&, F77_REAL&,
168 F77_CMPLX *, F77_REAL *, F77_INT&
169 F77_CHAR_ARG_LEN_DECL);
170
171 F77_RET_T
172 F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL,
173 const F77_INT&, F77_DBLE *,
174 const F77_INT&, const F77_DBLE&, F77_DBLE&,
175 F77_DBLE *, F77_INT *, F77_INT&
176 F77_CHAR_ARG_LEN_DECL);
177
178 F77_RET_T
179 F77_FUNC (sgecon, SGECON) (F77_CONST_CHAR_ARG_DECL,
180 const F77_INT&, F77_REAL *,
181 const F77_INT&, const F77_REAL&, F77_REAL&,
182 F77_REAL *, F77_INT *, F77_INT&
183 F77_CHAR_ARG_LEN_DECL);
184
185 F77_RET_T
186 F77_FUNC (zgecon, ZGECON) (F77_CONST_CHAR_ARG_DECL,
187 const F77_INT&, F77_DBLE_CMPLX *,
188 const F77_INT&, const F77_DBLE&, F77_DBLE&,
189 F77_DBLE_CMPLX *, F77_DBLE *, F77_INT&
190 F77_CHAR_ARG_LEN_DECL);
191
192 // GEHRD
193
194 F77_RET_T
195 F77_FUNC (cgehrd, CGEHRD) (const F77_INT&, const F77_INT&,
196 const F77_INT&, F77_CMPLX *,
197 const F77_INT&, F77_CMPLX *, F77_CMPLX *,
198 const F77_INT&, F77_INT&);
199
200 F77_RET_T
201 F77_FUNC (dgehrd, DGEHRD) (const F77_INT&, const F77_INT&,
202 const F77_INT&, F77_DBLE *,
203 const F77_INT&, F77_DBLE *, F77_DBLE *,
204 const F77_INT&, F77_INT&);
205
206 F77_RET_T
207 F77_FUNC (sgehrd, SGEHRD) (const F77_INT&, const F77_INT&,
208 const F77_INT&, F77_REAL *,
209 const F77_INT&, F77_REAL *, F77_REAL *,
210 const F77_INT&, F77_INT&);
211
212 F77_RET_T
213 F77_FUNC (zgehrd, ZGEHRD) (const F77_INT&, const F77_INT&,
214 const F77_INT&, F77_DBLE_CMPLX *,
215 const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
216 const F77_INT&, F77_INT&);
217
218 // GEQP3
219
220 F77_RET_T
221 F77_FUNC (cgeqp3, CGEQP3) (const F77_INT&, const F77_INT&,
222 F77_CMPLX *, const F77_INT&,
223 F77_INT *, F77_CMPLX *, F77_CMPLX *,
224 const F77_INT&, F77_REAL *, F77_INT&);
225
226 F77_RET_T
227 F77_FUNC (dgeqp3, DGEQP3) (const F77_INT&, const F77_INT&,
228 F77_DBLE *, const F77_INT&,
229 F77_INT *, F77_DBLE *, F77_DBLE *,
230 const F77_INT&, F77_INT&);
231
232 F77_RET_T
233 F77_FUNC (sgeqp3, SGEQP3) (const F77_INT&, const F77_INT&,
234 F77_REAL *, const F77_INT&,
235 F77_INT *, F77_REAL *, F77_REAL *,
236 const F77_INT&, F77_INT&);
237 F77_RET_T
238 F77_FUNC (zgeqp3, ZGEQP3) (const F77_INT&, const F77_INT&,
239 F77_DBLE_CMPLX *, const F77_INT&,
240 F77_INT *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
241 const F77_INT&, F77_DBLE *, F77_INT&);
242
243 // GEQRF
244
245 F77_RET_T
246 F77_FUNC (cgeqrf, CGEQRF) (const F77_INT&, const F77_INT&,
247 F77_CMPLX *, const F77_INT&,
248 F77_CMPLX *, F77_CMPLX *,
249 const F77_INT&, F77_INT&);
250
251 F77_RET_T
252 F77_FUNC (dgeqrf, DGEQRF) (const F77_INT&, const F77_INT&,
253 F77_DBLE *, const F77_INT&,
254 F77_DBLE *, F77_DBLE *,
255 const F77_INT&, F77_INT&);
256
257 F77_RET_T
258 F77_FUNC (sgeqrf, SGEQRF) (const F77_INT&, const F77_INT&,
259 F77_REAL *, const F77_INT&,
260 F77_REAL *, F77_REAL *,
261 const F77_INT&, F77_INT&);
262
263 F77_RET_T
264 F77_FUNC (zgeqrf, ZGEQRF) (const F77_INT&, const F77_INT&,
265 F77_DBLE_CMPLX *, const F77_INT&,
266 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
267 const F77_INT&, F77_INT&);
268
269 // GELQF
270
271 F77_RET_T
272 F77_FUNC (cgelqf, CGELQF) (const F77_INT&, const F77_INT&,
273 F77_CMPLX *, const F77_INT&,
274 F77_CMPLX *, F77_CMPLX *,
275 const F77_INT&, F77_INT&);
276
277 F77_RET_T
278 F77_FUNC (dgelqf, DGELQF) (const F77_INT&, const F77_INT&,
279 F77_DBLE *, const F77_INT&,
280 F77_DBLE *, F77_DBLE *,
281 const F77_INT&, F77_INT&);
282
283 F77_RET_T
284 F77_FUNC (sgelqf, SGELQF) (const F77_INT&, const F77_INT&,
285 F77_REAL *, const F77_INT&,
286 F77_REAL *, F77_REAL *,
287 const F77_INT&, F77_INT&);
288
289 F77_RET_T
290 F77_FUNC (zgelqf, ZGELQF) (const F77_INT&, const F77_INT&,
291 F77_DBLE_CMPLX *, const F77_INT&,
292 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
293 const F77_INT&, F77_INT&);
294
295 // ORMLQ
296
297 F77_RET_T
298 F77_FUNC (cormlq, CORMLQ) (F77_CONST_CHAR_ARG_DECL,
299 F77_CONST_CHAR_ARG_DECL,
300 const F77_INT&, const F77_INT&, const F77_INT&,
301 F77_CMPLX *, const F77_INT&,
302 F77_CMPLX *, F77_CMPLX *,
303 const F77_INT&, F77_CMPLX *,
304 const F77_INT&, F77_INT&
305 F77_CHAR_ARG_LEN_DECL
306 F77_CHAR_ARG_LEN_DECL);
307
308 F77_RET_T
309 F77_FUNC (dormlq, DORMLQ) (F77_CONST_CHAR_ARG_DECL,
310 F77_CONST_CHAR_ARG_DECL,
311 const F77_INT&, const F77_INT&, const F77_INT&,
312 F77_DBLE *, const F77_INT&,
313 F77_DBLE *, F77_DBLE *,
314 const F77_INT&, F77_DBLE *,
315 const F77_INT&, F77_INT&
316 F77_CHAR_ARG_LEN_DECL
317 F77_CHAR_ARG_LEN_DECL);
318
319 F77_RET_T
320 F77_FUNC (sormlq, SORMLQ) (F77_CONST_CHAR_ARG_DECL,
321 F77_CONST_CHAR_ARG_DECL,
322 const F77_INT&, const F77_INT&, const F77_INT&,
323 F77_REAL *, const F77_INT&,
324 F77_REAL *, F77_REAL *,
325 const F77_INT&, F77_REAL *,
326 const F77_INT&, F77_INT&
327 F77_CHAR_ARG_LEN_DECL
328 F77_CHAR_ARG_LEN_DECL);
329
330 F77_RET_T
331 F77_FUNC (zormlq, ZORMLQ) (F77_CONST_CHAR_ARG_DECL,
332 F77_CONST_CHAR_ARG_DECL,
333 const F77_INT&, const F77_INT&, const F77_INT&,
334 F77_DBLE_CMPLX *, const F77_INT&,
335 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
336 const F77_INT&, F77_DBLE_CMPLX *,
337 const F77_INT&, F77_INT&
338 F77_CHAR_ARG_LEN_DECL
339 F77_CHAR_ARG_LEN_DECL);
340
341 // ORMQR
342
343 F77_RET_T
344 F77_FUNC (cormqr, CORMQR) (F77_CONST_CHAR_ARG_DECL,
345 F77_CONST_CHAR_ARG_DECL,
346 const F77_INT&, const F77_INT&, const F77_INT&,
347 F77_CMPLX *, const F77_INT&,
348 F77_CMPLX *, F77_CMPLX *,
349 const F77_INT&, F77_CMPLX *,
350 const F77_INT&, F77_INT&
351 F77_CHAR_ARG_LEN_DECL
352 F77_CHAR_ARG_LEN_DECL);
353
354 F77_RET_T
355 F77_FUNC (dormqr, DORMQR) (F77_CONST_CHAR_ARG_DECL,
356 F77_CONST_CHAR_ARG_DECL,
357 const F77_INT&, const F77_INT&, const F77_INT&,
358 F77_DBLE *, const F77_INT&,
359 F77_DBLE *, F77_DBLE *,
360 const F77_INT&, F77_DBLE *,
361 const F77_INT&, F77_INT&
362 F77_CHAR_ARG_LEN_DECL
363 F77_CHAR_ARG_LEN_DECL);
364
365 F77_RET_T
366 F77_FUNC (sormqr, SORMQR) (F77_CONST_CHAR_ARG_DECL,
367 F77_CONST_CHAR_ARG_DECL,
368 const F77_INT&, const F77_INT&, const F77_INT&,
369 F77_REAL *, const F77_INT&,
370 F77_REAL *, F77_REAL *,
371 const F77_INT&, F77_REAL *,
372 const F77_INT&, F77_INT&
373 F77_CHAR_ARG_LEN_DECL
374 F77_CHAR_ARG_LEN_DECL);
375
376 F77_RET_T
377 F77_FUNC (zormqr, ZORMQR) (F77_CONST_CHAR_ARG_DECL,
378 F77_CONST_CHAR_ARG_DECL,
379 const F77_INT&, const F77_INT&, const F77_INT&,
380 F77_DBLE_CMPLX *, const F77_INT&,
381 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
382 const F77_INT&, F77_DBLE_CMPLX *,
383 const F77_INT&, F77_INT&
384 F77_CHAR_ARG_LEN_DECL
385 F77_CHAR_ARG_LEN_DECL);
386
387 // GESDD
388
389 F77_RET_T
390 F77_FUNC (cgesdd, CGESDD) (F77_CONST_CHAR_ARG_DECL,
391 const F77_INT&, const F77_INT&,
392 F77_CMPLX *, const F77_INT&, F77_REAL *,
393 F77_CMPLX *, const F77_INT&,
394 F77_CMPLX *, const F77_INT&,
395 F77_CMPLX *, const F77_INT&, F77_REAL *,
396 F77_INT *, F77_INT&
397 F77_CHAR_ARG_LEN_DECL);
398
399 F77_RET_T
400 F77_FUNC (dgesdd, DGESDD) (F77_CONST_CHAR_ARG_DECL,
401 const F77_INT&, const F77_INT&,
402 F77_DBLE *, const F77_INT&, F77_DBLE *,
403 F77_DBLE *, const F77_INT&,
404 F77_DBLE *, const F77_INT&,
405 F77_DBLE *, const F77_INT&,
406 F77_INT *, F77_INT&
407 F77_CHAR_ARG_LEN_DECL);
408
409 F77_RET_T
410 F77_FUNC (sgesdd, SGESDD) (F77_CONST_CHAR_ARG_DECL,
411 const F77_INT&, const F77_INT&,
412 F77_REAL *, const F77_INT&, F77_REAL *,
413 F77_REAL *, const F77_INT&,
414 F77_REAL *, const F77_INT&,
415 F77_REAL *, const F77_INT&,
416 F77_INT *, F77_INT&
417 F77_CHAR_ARG_LEN_DECL);
418
419 F77_RET_T
420 F77_FUNC (zgesdd, ZGESDD) (F77_CONST_CHAR_ARG_DECL,
421 const F77_INT&, const F77_INT&,
422 F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *,
423 F77_DBLE_CMPLX *, const F77_INT&,
424 F77_DBLE_CMPLX *, const F77_INT&,
425 F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *,
426 F77_INT *, F77_INT&
427 F77_CHAR_ARG_LEN_DECL);
428 // GESVD
429
430 F77_RET_T
431 F77_FUNC (cgesvd, CGESVD) (F77_CONST_CHAR_ARG_DECL,
432 F77_CONST_CHAR_ARG_DECL,
433 const F77_INT&, const F77_INT&,
434 F77_CMPLX *, const F77_INT&, F77_REAL *,
435 F77_CMPLX *, const F77_INT&,
436 F77_CMPLX *, const F77_INT&,
437 F77_CMPLX *, const F77_INT&,
438 F77_REAL *, F77_INT&
439 F77_CHAR_ARG_LEN_DECL
440 F77_CHAR_ARG_LEN_DECL);
441
442 F77_RET_T
443 F77_FUNC (dgesvd, DGESVD) (F77_CONST_CHAR_ARG_DECL,
444 F77_CONST_CHAR_ARG_DECL,
445 const F77_INT&, const F77_INT&,
446 F77_DBLE *, const F77_INT&, F77_DBLE *,
447 F77_DBLE *, const F77_INT&, F77_DBLE *,
448 const F77_INT&, F77_DBLE *,
449 const F77_INT&, F77_INT&
450 F77_CHAR_ARG_LEN_DECL
451 F77_CHAR_ARG_LEN_DECL);
452
453 F77_RET_T
454 F77_FUNC (sgesvd, SGESVD) (F77_CONST_CHAR_ARG_DECL,
455 F77_CONST_CHAR_ARG_DECL,
456 const F77_INT&, const F77_INT&,
457 F77_REAL *, const F77_INT&, F77_REAL *,
458 F77_REAL *, const F77_INT&, F77_REAL *,
459 const F77_INT&, F77_REAL *,
460 const F77_INT&, F77_INT&
461 F77_CHAR_ARG_LEN_DECL
462 F77_CHAR_ARG_LEN_DECL);
463
464 F77_RET_T
465 F77_FUNC (zgesvd, ZGESVD) (F77_CONST_CHAR_ARG_DECL,
466 F77_CONST_CHAR_ARG_DECL,
467 const F77_INT&, const F77_INT&,
468 F77_DBLE_CMPLX *, const F77_INT&,
469 F77_DBLE *, F77_DBLE_CMPLX *, const F77_INT&,
470 F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *,
471 const F77_INT&, F77_DBLE *, F77_INT&
472 F77_CHAR_ARG_LEN_DECL
473 F77_CHAR_ARG_LEN_DECL);
474
475 // GEJSV
476
477 F77_RET_T
478 F77_FUNC (cgejsv, CGEJSV) (F77_CONST_CHAR_ARG_DECL,
479 F77_CONST_CHAR_ARG_DECL,
480 F77_CONST_CHAR_ARG_DECL,
481 F77_CONST_CHAR_ARG_DECL,
482 F77_CONST_CHAR_ARG_DECL,
483 F77_CONST_CHAR_ARG_DECL,
484 const F77_INT&, const F77_INT&,
485 F77_CMPLX *, const F77_INT&, F77_REAL *,
486 F77_CMPLX *, const F77_INT&,
487 F77_CMPLX *, const F77_INT&,
488 F77_CMPLX *, const F77_INT&,
489 F77_REAL *, const F77_INT&,
490 F77_INT *, F77_INT&
491 F77_CHAR_ARG_LEN_DECL
492 F77_CHAR_ARG_LEN_DECL
493 F77_CHAR_ARG_LEN_DECL
494 F77_CHAR_ARG_LEN_DECL
495 F77_CHAR_ARG_LEN_DECL
496 F77_CHAR_ARG_LEN_DECL);
497
498 F77_RET_T
499 F77_FUNC (dgejsv, DGEJSV) (F77_CONST_CHAR_ARG_DECL,
500 F77_CONST_CHAR_ARG_DECL,
501 F77_CONST_CHAR_ARG_DECL,
502 F77_CONST_CHAR_ARG_DECL,
503 F77_CONST_CHAR_ARG_DECL,
504 F77_CONST_CHAR_ARG_DECL,
505 const F77_INT&, const F77_INT&,
506 F77_DBLE *, const F77_INT&, F77_DBLE *,
507 F77_DBLE *, const F77_INT&,
508 F77_DBLE *, const F77_INT&,
509 F77_DBLE *, const F77_INT&,
510 F77_INT *, F77_INT&
511 F77_CHAR_ARG_LEN_DECL
512 F77_CHAR_ARG_LEN_DECL
513 F77_CHAR_ARG_LEN_DECL
514 F77_CHAR_ARG_LEN_DECL
515 F77_CHAR_ARG_LEN_DECL
516 F77_CHAR_ARG_LEN_DECL);
517
518 F77_RET_T
519 F77_FUNC (sgejsv, SGEJSV) (F77_CONST_CHAR_ARG_DECL,
520 F77_CONST_CHAR_ARG_DECL,
521 F77_CONST_CHAR_ARG_DECL,
522 F77_CONST_CHAR_ARG_DECL,
523 F77_CONST_CHAR_ARG_DECL,
524 F77_CONST_CHAR_ARG_DECL,
525 const F77_INT&, const F77_INT&,
526 F77_REAL *, const F77_INT&, F77_REAL *,
527 F77_REAL *, const F77_INT&,
528 F77_REAL *, const F77_INT&,
529 F77_REAL *, const F77_INT&,
530 F77_INT *, F77_INT&
531 F77_CHAR_ARG_LEN_DECL
532 F77_CHAR_ARG_LEN_DECL
533 F77_CHAR_ARG_LEN_DECL
534 F77_CHAR_ARG_LEN_DECL
535 F77_CHAR_ARG_LEN_DECL
536 F77_CHAR_ARG_LEN_DECL);
537
538 F77_RET_T
539 F77_FUNC (zgejsv, ZGEJSV) (F77_CONST_CHAR_ARG_DECL,
540 F77_CONST_CHAR_ARG_DECL,
541 F77_CONST_CHAR_ARG_DECL,
542 F77_CONST_CHAR_ARG_DECL,
543 F77_CONST_CHAR_ARG_DECL,
544 F77_CONST_CHAR_ARG_DECL,
545 const F77_INT&, const F77_INT&,
546 F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *,
547 F77_DBLE_CMPLX *, const F77_INT&,
548 F77_DBLE_CMPLX *, const F77_INT&,
549 F77_DBLE_CMPLX *, const F77_INT&,
550 F77_DBLE *, const F77_INT&,
551 F77_INT *, F77_INT&
552 F77_CHAR_ARG_LEN_DECL
553 F77_CHAR_ARG_LEN_DECL
554 F77_CHAR_ARG_LEN_DECL
555 F77_CHAR_ARG_LEN_DECL
556 F77_CHAR_ARG_LEN_DECL
557 F77_CHAR_ARG_LEN_DECL);
558
559 // GEESX
560
561 typedef F77_INT (*double_selector) (const F77_DBLE&, const F77_DBLE&);
562 typedef F77_INT (*float_selector) (const F77_REAL&, const F77_REAL&);
563 typedef F77_INT (*complex_selector) (const F77_DBLE_CMPLX&);
564 typedef F77_INT (*float_complex_selector) (const F77_CMPLX&);
565
566 F77_RET_T
567 F77_FUNC (cgeesx, CGEESX) (F77_CONST_CHAR_ARG_DECL,
568 F77_CONST_CHAR_ARG_DECL,
569 float_complex_selector,
570 F77_CONST_CHAR_ARG_DECL,
571 const F77_INT&, F77_CMPLX *,
572 const F77_INT&, F77_INT&,
573 F77_CMPLX *, F77_CMPLX *,
574 const F77_INT&, F77_REAL&, F77_REAL&,
575 F77_CMPLX *, const F77_INT&,
576 F77_REAL *, F77_INT *, F77_INT&
577 F77_CHAR_ARG_LEN_DECL
578 F77_CHAR_ARG_LEN_DECL
579 F77_CHAR_ARG_LEN_DECL);
580
581 F77_RET_T
582 F77_FUNC (dgeesx, DGEESX) (F77_CONST_CHAR_ARG_DECL,
583 F77_CONST_CHAR_ARG_DECL,
584 double_selector,
585 F77_CONST_CHAR_ARG_DECL,
586 const F77_INT&, F77_DBLE *,
587 const F77_INT&, F77_INT&,
588 F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT&,
589 F77_DBLE&, F77_DBLE&, F77_DBLE *, const F77_INT&,
590 F77_INT *, const F77_INT&,
591 F77_INT *, F77_INT&
592 F77_CHAR_ARG_LEN_DECL
593 F77_CHAR_ARG_LEN_DECL
594 F77_CHAR_ARG_LEN_DECL);
595
596 F77_RET_T
597 F77_FUNC (sgeesx, SGEESX) (F77_CONST_CHAR_ARG_DECL,
598 F77_CONST_CHAR_ARG_DECL,
599 float_selector,
600 F77_CONST_CHAR_ARG_DECL,
601 const F77_INT&, F77_REAL *,
602 const F77_INT&, F77_INT&,
603 F77_REAL *, F77_REAL *, F77_REAL *, const F77_INT&,
604 F77_REAL&, F77_REAL&, F77_REAL *, const F77_INT&,
605 F77_INT *, const F77_INT&,
606 F77_INT *, F77_INT&
607 F77_CHAR_ARG_LEN_DECL
608 F77_CHAR_ARG_LEN_DECL
609 F77_CHAR_ARG_LEN_DECL);
610
611 F77_RET_T
612 F77_FUNC (zgeesx, ZGEESX) (F77_CONST_CHAR_ARG_DECL,
613 F77_CONST_CHAR_ARG_DECL,
614 complex_selector,
615 F77_CONST_CHAR_ARG_DECL,
616 const F77_INT&, F77_DBLE_CMPLX *,
617 const F77_INT&, F77_INT&,
618 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, const F77_INT&,
619 F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX *,
620 const F77_INT&, F77_DBLE *,
621 F77_INT *, F77_INT&
622 F77_CHAR_ARG_LEN_DECL
623 F77_CHAR_ARG_LEN_DECL
624 F77_CHAR_ARG_LEN_DECL);
625
626 // GEEVX
627
628 F77_RET_T
629 F77_FUNC (cgeevx, CGEEVX) (F77_CONST_CHAR_ARG_DECL,
630 F77_CONST_CHAR_ARG_DECL,
631 F77_CONST_CHAR_ARG_DECL,
632 F77_CONST_CHAR_ARG_DECL,
633 const F77_INT&, F77_CMPLX *,
634 const F77_INT&, F77_CMPLX *, F77_CMPLX *,
635 const F77_INT&, F77_CMPLX *,
636 const F77_INT&, F77_INT&,
637 F77_INT&, F77_REAL *, F77_REAL&, F77_REAL *,
638 F77_REAL *, F77_CMPLX *, const F77_INT&,
639 F77_REAL *, F77_INT&
640 F77_CHAR_ARG_LEN_DECL
641 F77_CHAR_ARG_LEN_DECL
642 F77_CHAR_ARG_LEN_DECL
643 F77_CHAR_ARG_LEN_DECL);
644
645 F77_RET_T
646 F77_FUNC (dgeevx, DGEEVX) (F77_CONST_CHAR_ARG_DECL,
647 F77_CONST_CHAR_ARG_DECL,
648 F77_CONST_CHAR_ARG_DECL,
649 F77_CONST_CHAR_ARG_DECL,
650 const F77_INT&, F77_DBLE *,
651 const F77_INT&, F77_DBLE *, F77_DBLE *,
652 F77_DBLE *, const F77_INT&, F77_DBLE *,
653 const F77_INT&, F77_INT&,
654 F77_INT&, F77_DBLE *, F77_DBLE&,
655 F77_DBLE *, F77_DBLE *, F77_DBLE *,
656 const F77_INT&, F77_INT *,
657 F77_INT&
658 F77_CHAR_ARG_LEN_DECL
659 F77_CHAR_ARG_LEN_DECL
660 F77_CHAR_ARG_LEN_DECL
661 F77_CHAR_ARG_LEN_DECL);
662
663 F77_RET_T
664 F77_FUNC (sgeevx, SGEEVX) (F77_CONST_CHAR_ARG_DECL,
665 F77_CONST_CHAR_ARG_DECL,
666 F77_CONST_CHAR_ARG_DECL,
667 F77_CONST_CHAR_ARG_DECL,
668 const F77_INT&, F77_REAL *,
669 const F77_INT&, F77_REAL *, F77_REAL *, F77_REAL *,
670 const F77_INT&, F77_REAL *,
671 const F77_INT&, F77_INT&,
672 F77_INT&, F77_REAL *, F77_REAL&, F77_REAL *,
673 F77_REAL *, F77_REAL *, const F77_INT&,
674 F77_INT *, F77_INT&
675 F77_CHAR_ARG_LEN_DECL
676 F77_CHAR_ARG_LEN_DECL
677 F77_CHAR_ARG_LEN_DECL
678 F77_CHAR_ARG_LEN_DECL);
679
680 F77_RET_T
681 F77_FUNC (zgeevx, ZGEEVX) (F77_CONST_CHAR_ARG_DECL,
682 F77_CONST_CHAR_ARG_DECL,
683 F77_CONST_CHAR_ARG_DECL,
684 F77_CONST_CHAR_ARG_DECL,
685 const F77_INT&, F77_DBLE_CMPLX *,
686 const F77_INT&, F77_DBLE_CMPLX *,
687 F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *,
688 const F77_INT&, F77_INT&,
689 F77_INT&, F77_DBLE *, F77_DBLE&,
690 F77_DBLE *, F77_DBLE *, F77_DBLE_CMPLX *,
691 const F77_INT&, F77_DBLE *,
692 F77_INT&
693 F77_CHAR_ARG_LEN_DECL
694 F77_CHAR_ARG_LEN_DECL
695 F77_CHAR_ARG_LEN_DECL
696 F77_CHAR_ARG_LEN_DECL);
697
698 // GELSD
699
700 F77_RET_T
701 F77_FUNC (cgelsd, CGELSD) (const F77_INT&, const F77_INT&,
702 const F77_INT&, F77_CMPLX *,
703 const F77_INT&, F77_CMPLX *,
704 const F77_INT&, F77_REAL *, F77_REAL&,
705 F77_INT&, F77_CMPLX *,
706 const F77_INT&, F77_REAL *,
707 F77_INT *, F77_INT&);
708
709 F77_RET_T
710 F77_FUNC (dgelsd, DGELSD) (const F77_INT&, const F77_INT&,
711 const F77_INT&, F77_DBLE *,
712 const F77_INT&, F77_DBLE *,
713 const F77_INT&, F77_DBLE *, F77_DBLE&,
714 F77_INT&, F77_DBLE *,
715 const F77_INT&, F77_INT *,
716 F77_INT&);
717
718 F77_RET_T
719 F77_FUNC (sgelsd, SGELSD) (const F77_INT&, const F77_INT&,
720 const F77_INT&, F77_REAL *,
721 const F77_INT&, F77_REAL *,
722 const F77_INT&, F77_REAL *, F77_REAL&,
723 F77_INT&, F77_REAL *,
724 const F77_INT&, F77_INT *,
725 F77_INT&);
726
727 F77_RET_T
728 F77_FUNC (zgelsd, ZGELSD) (const F77_INT&, const F77_INT&,
729 const F77_INT&, F77_DBLE_CMPLX *,
730 const F77_INT&, F77_DBLE_CMPLX *,
731 const F77_INT&, F77_DBLE *, F77_DBLE&,
732 F77_INT&, F77_DBLE_CMPLX *,
733 const F77_INT&, F77_DBLE *,
734 F77_INT *, F77_INT&);
735
736 // GELSY
737
738 F77_RET_T
739 F77_FUNC (cgelsy, CGELSY) (const F77_INT&, const F77_INT&,
740 const F77_INT&, F77_CMPLX *,
741 const F77_INT&, F77_CMPLX *,
742 const F77_INT&, F77_INT *,
743 F77_REAL&, F77_INT&, F77_CMPLX *,
744 const F77_INT&, F77_REAL *, F77_INT&);
745
746 F77_RET_T
747 F77_FUNC (dgelsy, DGELSY) (const F77_INT&, const F77_INT&,
748 const F77_INT&, F77_DBLE *,
749 const F77_INT&, F77_DBLE *,
750 const F77_INT&, F77_INT *,
751 F77_DBLE&, F77_INT&, F77_DBLE *,
752 const F77_INT&, F77_INT&);
753
754 F77_RET_T
755 F77_FUNC (sgelsy, SGELSY) (const F77_INT&, const F77_INT&,
756 const F77_INT&, F77_REAL *,
757 const F77_INT&, F77_REAL *,
758 const F77_INT&, F77_INT *,
759 F77_REAL&, F77_INT&, F77_REAL *,
760 const F77_INT&, F77_INT&);
761
762 F77_RET_T
763 F77_FUNC (zgelsy, ZGELSY) (const F77_INT&, const F77_INT&,
764 const F77_INT&, F77_DBLE_CMPLX *,
765 const F77_INT&, F77_DBLE_CMPLX *,
766 const F77_INT&, F77_INT *,
767 F77_DBLE&, F77_INT&, F77_DBLE_CMPLX *,
768 const F77_INT&, F77_DBLE *,
769 F77_INT&);
770
771 // GETRF
772
773 F77_RET_T
774 F77_FUNC (cgetrf, CGETRF) (const F77_INT&, const F77_INT&,
775 F77_CMPLX *, const F77_INT&,
776 F77_INT *, F77_INT&);
777
778 F77_RET_T
779 F77_FUNC (dgetrf, DGETRF) (const F77_INT&, const F77_INT&,
780 F77_DBLE *, const F77_INT&,
781 F77_INT *, F77_INT&);
782
783 F77_RET_T
784 F77_FUNC (sgetrf, SGETRF) (const F77_INT&,
785 const F77_INT&, F77_REAL *,
786 const F77_INT&,
787 F77_INT *, F77_INT&);
788
789 F77_RET_T
790 F77_FUNC (zgetrf, ZGETRF) (const F77_INT&, const F77_INT&,
791 F77_DBLE_CMPLX *, const F77_INT&,
792 F77_INT *, F77_INT&);
793
794 // GETRI
795
796 F77_RET_T
797 F77_FUNC (cgetri, CGETRI) (const F77_INT&, F77_CMPLX *,
798 const F77_INT&, const F77_INT *,
799 F77_CMPLX *, const F77_INT&,
800 F77_INT&);
801
802 F77_RET_T
803 F77_FUNC (dgetri, DGETRI) (const F77_INT&, F77_DBLE *,
804 const F77_INT&, const F77_INT *,
805 F77_DBLE *, const F77_INT&,
806 F77_INT&);
807
808 F77_RET_T
809 F77_FUNC (sgetri, SGETRI) (const F77_INT&, F77_REAL *,
810 const F77_INT&, const F77_INT *,
811 F77_REAL *, const F77_INT&, F77_INT&);
812
813 F77_RET_T
814 F77_FUNC (zgetri, ZGETRI) (const F77_INT&, F77_DBLE_CMPLX *,
815 const F77_INT&, const F77_INT *,
816 F77_DBLE_CMPLX *, const F77_INT&,
817 F77_INT&);
818
819 // GETRS
820
821 F77_RET_T
822 F77_FUNC (cgetrs, CGETRS) (F77_CONST_CHAR_ARG_DECL,
823 const F77_INT&, const F77_INT&,
824 F77_CMPLX *, const F77_INT&,
825 const F77_INT *, F77_CMPLX *,
826 const F77_INT&, F77_INT&
827 F77_CHAR_ARG_LEN_DECL);
828
829 F77_RET_T
830 F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL,
831 const F77_INT&, const F77_INT&,
832 const F77_DBLE *, const F77_INT&,
833 const F77_INT *, F77_DBLE *,
834 const F77_INT&, F77_INT&
835 F77_CHAR_ARG_LEN_DECL);
836
837 F77_RET_T
838 F77_FUNC (sgetrs, SGETRS) (F77_CONST_CHAR_ARG_DECL,
839 const F77_INT&, const F77_INT&,
840 const F77_REAL *, const F77_INT&,
841 const F77_INT *, F77_REAL *,
842 const F77_INT&, F77_INT&
843 F77_CHAR_ARG_LEN_DECL);
844
845 F77_RET_T
846 F77_FUNC (zgetrs, ZGETRS) (F77_CONST_CHAR_ARG_DECL,
847 const F77_INT&, const F77_INT&,
848 F77_DBLE_CMPLX *, const F77_INT&,
849 const F77_INT *, F77_DBLE_CMPLX *,
850 const F77_INT&, F77_INT&
851 F77_CHAR_ARG_LEN_DECL);
852
853 // GGBAL
854
855 F77_RET_T
856 F77_FUNC (cggbal, CGGBAL) (F77_CONST_CHAR_ARG_DECL,
857 const F77_INT& N,
858 F77_CMPLX *A, const F77_INT& LDA,
859 F77_CMPLX *B, const F77_INT& LDB,
860 F77_INT& ILO, F77_INT& IHI,
861 F77_REAL *LSCALE, F77_REAL *RSCALE,
862 F77_REAL *WORK, F77_INT& INFO
863 F77_CHAR_ARG_LEN_DECL);
864
865 F77_RET_T
866 F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL,
867 const F77_INT& N, F77_DBLE *A,
868 const F77_INT& LDA, F77_DBLE *B,
869 const F77_INT& LDB, F77_INT& ILO,
870 F77_INT& IHI, F77_DBLE *LSCALE,
871 F77_DBLE *RSCALE, F77_DBLE *WORK,
872 F77_INT& INFO
873 F77_CHAR_ARG_LEN_DECL);
874
875 F77_RET_T
876 F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL,
877 const F77_INT& N, F77_REAL *A,
878 const F77_INT& LDA, F77_REAL *B,
879 const F77_INT& LDB,
880 F77_INT& ILO, F77_INT& IHI,
881 F77_REAL *LSCALE, F77_REAL *RSCALE,
882 F77_REAL *WORK, F77_INT& INFO
883 F77_CHAR_ARG_LEN_DECL);
884
885 F77_RET_T
886 F77_FUNC (zggbal, ZGGBAL) (F77_CONST_CHAR_ARG_DECL,
887 const F77_INT& N, F77_DBLE_CMPLX *A,
888 const F77_INT& LDA, F77_DBLE_CMPLX *B,
889 const F77_INT& LDB, F77_INT& ILO,
890 F77_INT& IHI, F77_DBLE *LSCALE,
891 F77_DBLE *RSCALE, F77_DBLE *WORK,
892 F77_INT& INFO
893 F77_CHAR_ARG_LEN_DECL);
894
895 // GGBAK
896
897 F77_RET_T
898 F77_FUNC (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL,
899 F77_CONST_CHAR_ARG_DECL,
900 const F77_INT& N,
901 const F77_INT& ILO,
902 const F77_INT& IHI,
903 const F77_DBLE *LSCALE, const F77_DBLE *RSCALE,
904 F77_INT& M, F77_DBLE *V,
905 const F77_INT& LDV, F77_INT& INFO
906 F77_CHAR_ARG_LEN_DECL
907 F77_CHAR_ARG_LEN_DECL);
908
909 F77_RET_T
910 F77_FUNC (sggbak, SGGBAK) (F77_CONST_CHAR_ARG_DECL,
911 F77_CONST_CHAR_ARG_DECL,
912 const F77_INT& N,
913 const F77_INT& ILO,
914 const F77_INT& IHI,
915 const F77_REAL *LSCALE, const F77_REAL *RSCALE,
916 F77_INT& M, F77_REAL *V,
917 const F77_INT& LDV, F77_INT& INFO
918 F77_CHAR_ARG_LEN_DECL
919 F77_CHAR_ARG_LEN_DECL);
920
921 F77_RET_T
922 F77_FUNC (zggbak, ZGGBAK) (F77_CONST_CHAR_ARG_DECL,
923 F77_CONST_CHAR_ARG_DECL,
924 const F77_INT& N,
925 const F77_INT& ILO,
926 const F77_INT& IHI,
927 const F77_DBLE *LSCALE, const F77_DBLE *RSCALE,
928 F77_INT& M, F77_DBLE_CMPLX *V,
929 const F77_INT& LDV, F77_INT& INFO
930 F77_CHAR_ARG_LEN_DECL
931 F77_CHAR_ARG_LEN_DECL);
932
933 // GGEV
934
935 F77_RET_T
936 F77_FUNC (cggev, CGGEV) (F77_CONST_CHAR_ARG_DECL,
937 F77_CONST_CHAR_ARG_DECL,
938 const F77_INT&, F77_CMPLX *,
939 const F77_INT&, F77_CMPLX *,
940 const F77_INT&, F77_CMPLX *,
941 F77_CMPLX *, F77_CMPLX *,
942 const F77_INT&, F77_CMPLX *,
943 const F77_INT&, F77_CMPLX *,
944 const F77_INT&, F77_REAL *, F77_INT&
945 F77_CHAR_ARG_LEN_DECL
946 F77_CHAR_ARG_LEN_DECL);
947
948 F77_RET_T
949 F77_FUNC (dggev, DGGEV) (F77_CONST_CHAR_ARG_DECL,
950 F77_CONST_CHAR_ARG_DECL,
951 const F77_INT&,
952 F77_DBLE *, const F77_INT&,
953 F77_DBLE *, const F77_INT&,
954 F77_DBLE *, F77_DBLE *, F77_DBLE *, F77_DBLE *,
955 const F77_INT&, F77_DBLE *,
956 const F77_INT&, F77_DBLE *,
957 const F77_INT&, F77_INT&
958 F77_CHAR_ARG_LEN_DECL
959 F77_CHAR_ARG_LEN_DECL);
960
961 F77_RET_T
962 F77_FUNC (sggev, SGGEV) (F77_CONST_CHAR_ARG_DECL,
963 F77_CONST_CHAR_ARG_DECL,
964 const F77_INT&, F77_REAL *,
965 const F77_INT&, F77_REAL *,
966 const F77_INT&, F77_REAL *, F77_REAL *, F77_REAL *,
967 F77_REAL *, const F77_INT&, F77_REAL *,
968 const F77_INT&, F77_REAL *,
969 const F77_INT&, F77_INT&
970 F77_CHAR_ARG_LEN_DECL
971 F77_CHAR_ARG_LEN_DECL);
972
973 F77_RET_T
974 F77_FUNC (zggev, ZGGEV) (F77_CONST_CHAR_ARG_DECL,
975 F77_CONST_CHAR_ARG_DECL,
976 const F77_INT&,
977 F77_DBLE_CMPLX *, const F77_INT&,
978 F77_DBLE_CMPLX *, const F77_INT&,
979 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
980 const F77_INT&, F77_DBLE_CMPLX *,
981 const F77_INT&, F77_DBLE_CMPLX *,
982 const F77_INT&, F77_DBLE *, F77_INT&
983 F77_CHAR_ARG_LEN_DECL
984 F77_CHAR_ARG_LEN_DECL);
985
986 // GGHRD
987
988 F77_RET_T
989 F77_FUNC (dgghrd, DGGHRD) (F77_CONST_CHAR_ARG_DECL,
990 F77_CONST_CHAR_ARG_DECL,
991 const F77_INT& N,
992 const F77_INT& ILO,
993 const F77_INT& IHI, F77_DBLE *A,
994 const F77_INT& LDA, F77_DBLE *B,
995 const F77_INT& LDB, F77_DBLE *Q,
996 const F77_INT& LDQ, F77_DBLE *Z,
997 const F77_INT& LDZ, F77_INT& INFO
998 F77_CHAR_ARG_LEN_DECL
999 F77_CHAR_ARG_LEN_DECL);
1000
1001 F77_RET_T
1002 F77_FUNC (zgghrd, ZGGHRD) (F77_CONST_CHAR_ARG_DECL,
1003 F77_CONST_CHAR_ARG_DECL,
1004 const F77_INT& N,
1005 const F77_INT& ILO,
1006 const F77_INT& IHI, F77_DBLE_CMPLX *A,
1007 const F77_INT& LDA, F77_DBLE_CMPLX *B,
1008 const F77_INT& LDB, F77_DBLE_CMPLX *Q,
1009 const F77_INT& LDQ, F77_DBLE_CMPLX *Z,
1010 const F77_INT& LDZ, F77_INT& INFO
1011 F77_CHAR_ARG_LEN_DECL
1012 F77_CHAR_ARG_LEN_DECL);
1013
1014 // GGSVD
1015
1016 F77_RET_T
1017 F77_FUNC (dggsvd, DGGSVD)
1018 (F77_CONST_CHAR_ARG_DECL, // JOBU
1019 F77_CONST_CHAR_ARG_DECL, // JOBV
1020 F77_CONST_CHAR_ARG_DECL, // JOBQ
1021 const F77_INT&, // M
1022 const F77_INT&, // N
1023 const F77_INT&, // P
1024 F77_INT&, // K
1025 F77_INT&, // L
1026 F77_DBLE *, // A(LDA,N)
1027 const F77_INT&, // LDA
1028 F77_DBLE *, // B(LDB,N)
1029 const F77_INT&, // LDB
1030 F77_DBLE *, // ALPHA(N)
1031 F77_DBLE *, // BETA(N)
1032 F77_DBLE *, // U(LDU,M)
1033 const F77_INT&, // LDU
1034 F77_DBLE *, // V(LDV,P)
1035 const F77_INT&, // LDV
1036 F77_DBLE *, // Q(LDQ,N)
1037 const F77_INT&, // LDQ
1038 F77_DBLE *, // WORK
1039 F77_INT *, // IWORK(N)
1040 F77_INT& // INFO
1041 F77_CHAR_ARG_LEN_DECL
1042 F77_CHAR_ARG_LEN_DECL
1043 F77_CHAR_ARG_LEN_DECL);
1044
1045 F77_RET_T
1046 F77_FUNC (sggsvd, SGGSVD)
1047 (F77_CONST_CHAR_ARG_DECL, // JOBU
1048 F77_CONST_CHAR_ARG_DECL, // JOBV
1049 F77_CONST_CHAR_ARG_DECL, // JOBQ
1050 const F77_INT&, // M
1051 const F77_INT&, // N
1052 const F77_INT&, // P
1053 F77_INT&, // K
1054 F77_INT&, // L
1055 F77_REAL *, // A
1056 const F77_INT&, // LDA
1057 F77_REAL *, // B
1058 const F77_INT&, // LDB
1059 F77_REAL *, // ALPHA
1060 F77_REAL *, // BETA
1061 F77_REAL *, // U
1062 const F77_INT&, // LDU
1063 F77_REAL *, // V
1064 const F77_INT&, // LDV
1065 F77_REAL *, // Q
1066 const F77_INT&, // LDQ
1067 F77_REAL *, // WORK
1068 F77_INT *, // IWORK
1069 F77_INT& // INFO
1070 F77_CHAR_ARG_LEN_DECL
1071 F77_CHAR_ARG_LEN_DECL
1072 F77_CHAR_ARG_LEN_DECL);
1073
1074 F77_RET_T
1075 F77_FUNC (zggsvd, ZGGSVD)
1076 (F77_CONST_CHAR_ARG_DECL, // JOBU
1077 F77_CONST_CHAR_ARG_DECL, // JOBV
1078 F77_CONST_CHAR_ARG_DECL, // JOBQ
1079 const F77_INT&, // M
1080 const F77_INT&, // N
1081 const F77_INT&, // P
1082 F77_INT&, // K
1083 F77_INT&, // L
1084 F77_DBLE_CMPLX *, // A(LDA,N)
1085 const F77_INT&, // LDA
1086 F77_DBLE_CMPLX *, // B(LDB,N)
1087 const F77_INT&, // LDB
1088 F77_DBLE *, // ALPHA(N)
1089 F77_DBLE *, // BETA(N)
1090 F77_DBLE_CMPLX *, // U(LDU,M)
1091 const F77_INT&, // LDU
1092 F77_DBLE_CMPLX *, // V(LDV,P)
1093 const F77_INT&, // LDV
1094 F77_DBLE_CMPLX *, // Q(LDQ,N)
1095 const F77_INT&, // LDQ
1096 F77_DBLE_CMPLX *, // WORK
1097 F77_DBLE *, // RWORK
1098 F77_INT *, // IWORK(N)
1099 F77_INT& // INFO
1100 F77_CHAR_ARG_LEN_DECL
1101 F77_CHAR_ARG_LEN_DECL
1102 F77_CHAR_ARG_LEN_DECL);
1103
1104 F77_RET_T
1105 F77_FUNC (cggsvd, CGGSVD)
1106 (F77_CONST_CHAR_ARG_DECL, // JOBU
1107 F77_CONST_CHAR_ARG_DECL, // JOBV
1108 F77_CONST_CHAR_ARG_DECL, // JOBQ
1109 const F77_INT&, // M
1110 const F77_INT&, // N
1111 const F77_INT&, // P
1112 F77_INT&, // K
1113 F77_INT&, // L
1114 F77_CMPLX *, // A
1115 const F77_INT&, // LDA
1116 F77_CMPLX *, // B
1117 const F77_INT&, // LDB
1118 F77_REAL *, // ALPHA
1119 F77_REAL *, // BETA
1120 F77_CMPLX *, // U
1121 const F77_INT&, // LDU
1122 F77_CMPLX *, // V
1123 const F77_INT&, // LDV
1124 F77_CMPLX *, // Q
1125 const F77_INT&, // LDQ
1126 F77_CMPLX *, // WORK
1127 F77_REAL *, // RWORK
1128 F77_INT *, // IWORK
1129 F77_INT& // INFO
1130 F77_CHAR_ARG_LEN_DECL
1131 F77_CHAR_ARG_LEN_DECL
1132 F77_CHAR_ARG_LEN_DECL);
1133
1134 // GGSVD3
1135
1136 F77_RET_T
1137 F77_FUNC (dggsvd3, DGGSVD3)
1138 (F77_CONST_CHAR_ARG_DECL, // JOBU
1139 F77_CONST_CHAR_ARG_DECL, // JOBV
1140 F77_CONST_CHAR_ARG_DECL, // JOBQ
1141 const F77_INT&, // M
1142 const F77_INT&, // N
1143 const F77_INT&, // P
1144 F77_INT&, // K
1145 F77_INT&, // L
1146 F77_DBLE *, // A(LDA,N)
1147 const F77_INT&, // LDA
1148 F77_DBLE *, // B(LDB,N)
1149 const F77_INT&, // LDB
1150 F77_DBLE *, // ALPHA(N)
1151 F77_DBLE *, // BETA(N)
1152 F77_DBLE *, // U(LDU,M)
1153 const F77_INT&, // LDU
1154 F77_DBLE *, // V(LDV,P)
1155 const F77_INT&, // LDV
1156 F77_DBLE *, // Q(LDQ,N)
1157 const F77_INT&, // LDQ
1158 F77_DBLE *, // WORK
1159 const F77_INT&, // LWORK
1160 F77_INT *, // IWORK(N)
1161 F77_INT& // INFO
1162 F77_CHAR_ARG_LEN_DECL
1163 F77_CHAR_ARG_LEN_DECL
1164 F77_CHAR_ARG_LEN_DECL);
1165
1166 F77_RET_T
1167 F77_FUNC (sggsvd3, SGGSVD3)
1168 (F77_CONST_CHAR_ARG_DECL, // JOBU
1169 F77_CONST_CHAR_ARG_DECL, // JOBV
1170 F77_CONST_CHAR_ARG_DECL, // JOBQ
1171 const F77_INT&, // M
1172 const F77_INT&, // N
1173 const F77_INT&, // P
1174 F77_INT&, // K
1175 F77_INT&, // L
1176 F77_REAL *, // A
1177 const F77_INT&, // LDA
1178 F77_REAL *, // B
1179 const F77_INT&, // LDB
1180 F77_REAL *, // ALPHA
1181 F77_REAL *, // BETA
1182 F77_REAL *, // U
1183 const F77_INT&, // LDU
1184 F77_REAL *, // V
1185 const F77_INT&, // LDV
1186 F77_REAL *, // Q
1187 const F77_INT&, // LDQ
1188 F77_REAL *, // WORK
1189 const F77_INT&, // LWORK
1190 F77_INT *, // IWORK
1191 F77_INT& // INFO
1192 F77_CHAR_ARG_LEN_DECL
1193 F77_CHAR_ARG_LEN_DECL
1194 F77_CHAR_ARG_LEN_DECL);
1195
1196 F77_RET_T
1197 F77_FUNC (zggsvd3, ZGGSVD3)
1198 (F77_CONST_CHAR_ARG_DECL, // JOBU
1199 F77_CONST_CHAR_ARG_DECL, // JOBV
1200 F77_CONST_CHAR_ARG_DECL, // JOBQ
1201 const F77_INT&, // M
1202 const F77_INT&, // N
1203 const F77_INT&, // P
1204 F77_INT&, // K
1205 F77_INT&, // L
1206 F77_DBLE_CMPLX *, // A(LDA,N)
1207 const F77_INT&, // LDA
1208 F77_DBLE_CMPLX *, // B(LDB,N)
1209 const F77_INT&, // LDB
1210 F77_DBLE *, // ALPHA(N)
1211 F77_DBLE *, // BETA(N)
1212 F77_DBLE_CMPLX *, // U(LDU,M)
1213 const F77_INT&, // LDU
1214 F77_DBLE_CMPLX *, // V(LDV,P)
1215 const F77_INT&, // LDV
1216 F77_DBLE_CMPLX *, // Q(LDQ,N)
1217 const F77_INT&, // LDQ
1218 F77_DBLE_CMPLX *, // WORK
1219 const F77_INT&, // LWORK
1220 F77_DBLE *, // RWORK
1221 F77_INT *, // IWORK(N)
1222 F77_INT& // INFO
1223 F77_CHAR_ARG_LEN_DECL
1224 F77_CHAR_ARG_LEN_DECL
1225 F77_CHAR_ARG_LEN_DECL);
1226
1227 F77_RET_T
1228 F77_FUNC (cggsvd3, CGGSVD3)
1229 (F77_CONST_CHAR_ARG_DECL, // JOBU
1230 F77_CONST_CHAR_ARG_DECL, // JOBV
1231 F77_CONST_CHAR_ARG_DECL, // JOBQ
1232 const F77_INT&, // M
1233 const F77_INT&, // N
1234 const F77_INT&, // P
1235 F77_INT&, // K
1236 F77_INT&, // L
1237 F77_CMPLX *, // A
1238 const F77_INT&, // LDA
1239 F77_CMPLX *, // B
1240 const F77_INT&, // LDB
1241 F77_REAL *, // ALPHA
1242 F77_REAL *, // BETA
1243 F77_CMPLX *, // U
1244 const F77_INT&, // LDU
1245 F77_CMPLX *, // V
1246 const F77_INT&, // LDV
1247 F77_CMPLX *, // Q
1248 const F77_INT&, // LDQ
1249 F77_CMPLX *, // WORK
1250 const F77_INT&, // LWORK
1251 F77_REAL *, // RWORK
1252 F77_INT *, // IWORK
1253 F77_INT& // INFO
1254 F77_CHAR_ARG_LEN_DECL
1255 F77_CHAR_ARG_LEN_DECL
1256 F77_CHAR_ARG_LEN_DECL);
1257
1258 // GTSV
1259
1260 F77_RET_T
1261 F77_FUNC (dgtsv, DGTSV) (const F77_INT&, const F77_INT&,
1262 F77_DBLE *, F77_DBLE *, F77_DBLE *, F77_DBLE *,
1263 const F77_INT&, F77_INT&);
1264
1265 F77_RET_T
1266 F77_FUNC (zgtsv, ZGTSV) (const F77_INT&, const F77_INT&,
1267 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
1268 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
1269 const F77_INT&, F77_INT&);
1270
1271 // GTTRF
1272
1273 F77_RET_T
1274 F77_FUNC (dgttrf, DGTTRF) (const F77_INT&, F77_DBLE *, F77_DBLE *,
1275 F77_DBLE *, F77_DBLE *, F77_INT *,
1276 F77_INT&);
1277
1278 F77_RET_T
1279 F77_FUNC (zgttrf, ZGTTRF) (const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
1280 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *, F77_INT *,
1281 F77_INT&);
1282
1283 // GTTRS
1284
1285 F77_RET_T
1286 F77_FUNC (dgttrs, DGTTRS) (F77_CONST_CHAR_ARG_DECL,
1287 const F77_INT&, const F77_INT&,
1288 const F77_DBLE *, const F77_DBLE *,
1289 const F77_DBLE *, const F77_DBLE *,
1290 const F77_INT *, F77_DBLE *,
1291 const F77_INT&, F77_INT&
1292 F77_CHAR_ARG_LEN_DECL);
1293
1294 F77_RET_T
1295 F77_FUNC (zgttrs, ZGTTRS) (F77_CONST_CHAR_ARG_DECL,
1296 const F77_INT&, const F77_INT&,
1297 const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *,
1298 const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *,
1299 const F77_INT *, F77_DBLE_CMPLX *,
1300 const F77_INT&, F77_INT&
1301 F77_CHAR_ARG_LEN_DECL);
1302
1303 // HEEV
1304
1305 F77_RET_T
1306 F77_FUNC (cheev, CHEEV) (F77_CONST_CHAR_ARG_DECL,
1307 F77_CONST_CHAR_ARG_DECL,
1308 const F77_INT&, F77_CMPLX *,
1309 const F77_INT&, F77_REAL *, F77_CMPLX *,
1310 const F77_INT&, F77_REAL *, F77_INT&
1311 F77_CHAR_ARG_LEN_DECL
1312 F77_CHAR_ARG_LEN_DECL);
1313
1314 F77_RET_T
1315 F77_FUNC (zheev, ZHEEV) (F77_CONST_CHAR_ARG_DECL,
1316 F77_CONST_CHAR_ARG_DECL,
1317 const F77_INT&, F77_DBLE_CMPLX *,
1318 const F77_INT&, F77_DBLE *,
1319 F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE *,
1320 F77_INT&
1321 F77_CHAR_ARG_LEN_DECL
1322 F77_CHAR_ARG_LEN_DECL);
1323
1324 // HEGV
1325
1326 F77_RET_T
1327 F77_FUNC (chegv, CHEGV) (const F77_INT&,
1328 F77_CONST_CHAR_ARG_DECL,
1329 F77_CONST_CHAR_ARG_DECL,
1330 const F77_INT&, F77_CMPLX *,
1331 const F77_INT&, F77_CMPLX *,
1332 const F77_INT&, F77_REAL *, F77_CMPLX *,
1333 const F77_INT&, F77_REAL *, F77_INT&
1334 F77_CHAR_ARG_LEN_DECL
1335 F77_CHAR_ARG_LEN_DECL);
1336
1337 F77_RET_T
1338 F77_FUNC (zhegv, ZHEGV) (const F77_INT&,
1339 F77_CONST_CHAR_ARG_DECL,
1340 F77_CONST_CHAR_ARG_DECL,
1341 const F77_INT&, F77_DBLE_CMPLX *,
1342 const F77_INT&, F77_DBLE_CMPLX *,
1343 const F77_INT&, F77_DBLE *, F77_DBLE_CMPLX *,
1344 const F77_INT&, F77_DBLE *, F77_INT&
1345 F77_CHAR_ARG_LEN_DECL
1346 F77_CHAR_ARG_LEN_DECL);
1347
1348 // HERK
1349
1350 F77_RET_T
1351 F77_FUNC (cherk, CHERK) (F77_CONST_CHAR_ARG_DECL,
1352 F77_CONST_CHAR_ARG_DECL,
1353 const F77_INT&, const F77_INT&,
1354 const F77_REAL&, const F77_CMPLX *,
1355 const F77_INT&, const F77_REAL&,
1356 F77_CMPLX *, const F77_INT&
1357 F77_CHAR_ARG_LEN_DECL
1358 F77_CHAR_ARG_LEN_DECL);
1359
1360 F77_RET_T
1361 F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL,
1362 F77_CONST_CHAR_ARG_DECL,
1363 const F77_INT&, const F77_INT&,
1364 const F77_DBLE&, const F77_DBLE_CMPLX *,
1365 const F77_INT&, const F77_DBLE&, F77_DBLE_CMPLX *,
1366 const F77_INT&
1367 F77_CHAR_ARG_LEN_DECL
1368 F77_CHAR_ARG_LEN_DECL);
1369
1370 // HGEQZ
1371
1372 F77_RET_T
1373 F77_FUNC (dhgeqz, DHGEQZ) (F77_CONST_CHAR_ARG_DECL,
1374 F77_CONST_CHAR_ARG_DECL,
1375 F77_CONST_CHAR_ARG_DECL,
1376 const F77_INT& N,
1377 const F77_INT& ILO,
1378 const F77_INT& IHI,
1379 F77_DBLE *A, const F77_INT& LDA, F77_DBLE *B,
1380 const F77_INT& LDB, F77_DBLE *ALPHAR,
1381 F77_DBLE *ALPHAI, F77_DBLE *BETA, F77_DBLE *Q,
1382 const F77_INT& LDQ, F77_DBLE *Z,
1383 const F77_INT& LDZ, F77_DBLE *WORK,
1384 const F77_INT& LWORK,
1385 F77_INT& INFO
1386 F77_CHAR_ARG_LEN_DECL
1387 F77_CHAR_ARG_LEN_DECL
1388 F77_CHAR_ARG_LEN_DECL);
1389
1390 F77_RET_T
1391 F77_FUNC (zhgeqz, ZHGEQZ) (F77_CONST_CHAR_ARG_DECL,
1392 F77_CONST_CHAR_ARG_DECL,
1393 F77_CONST_CHAR_ARG_DECL,
1394 const F77_INT& N,
1395 const F77_INT& ILO,
1396 const F77_INT& IHI,
1397 F77_DBLE_CMPLX *A, const F77_INT& LDA,
1398 F77_DBLE_CMPLX *B, const F77_INT& LDB,
1399 F77_DBLE_CMPLX *ALPHA, F77_DBLE_CMPLX *BETA,
1400 F77_DBLE_CMPLX *CQ, const F77_INT& LDQ,
1401 F77_DBLE_CMPLX *CZ, const F77_INT& LDZ,
1402 F77_DBLE_CMPLX *WORK, const F77_INT& LWORK,
1403 F77_DBLE *RWORK, F77_INT& INFO
1404 F77_CHAR_ARG_LEN_DECL
1405 F77_CHAR_ARG_LEN_DECL
1406 F77_CHAR_ARG_LEN_DECL);
1407
1408 // LAENV (liboctave/external/lapack-xtra)
1409
1410 F77_RET_T
1411 F77_FUNC (xilaenv, XILAENV) (const F77_INT&,
1412 F77_CONST_CHAR_ARG_DECL,
1413 F77_CONST_CHAR_ARG_DECL,
1414 const F77_INT&, const F77_INT&,
1415 const F77_INT&, const F77_INT&,
1416 F77_INT&
1417 F77_CHAR_ARG_LEN_DECL
1418 F77_CHAR_ARG_LEN_DECL);
1419
1420 // LAG2
1421
1422 F77_RET_T
1423 F77_FUNC (dlag2, DLAG2) (const F77_DBLE *A, const F77_INT& LDA,
1424 const F77_DBLE *B, const F77_INT& LDB,
1425 const F77_DBLE& SAFMIN, F77_DBLE& SCALE1,
1426 F77_DBLE& SCALE2, F77_DBLE& WR1, F77_DBLE& WR2,
1427 F77_DBLE& WI);
1428
1429 // LAMCH (liboctave/external/lapack-xtra)
1430
1431 F77_RET_T
1432 F77_FUNC (xdlamch, XDLAMCH) (F77_CONST_CHAR_ARG_DECL,
1433 F77_DBLE& retval
1434 F77_CHAR_ARG_LEN_DECL);
1435
1436 // LANGE (liboctave/external/lapack-xtra)
1437
1438 F77_RET_T
1439 F77_FUNC (xclange, XCLANGE) (F77_CONST_CHAR_ARG_DECL,
1440 const F77_INT&, const F77_INT&,
1441 const F77_CMPLX *, const F77_INT&,
1442 F77_REAL *, F77_REAL&
1443 F77_CHAR_ARG_LEN_DECL);
1444
1445 F77_RET_T
1446 F77_FUNC (xdlange, XDLANGE) (F77_CONST_CHAR_ARG_DECL,
1447 const F77_INT&, const F77_INT&,
1448 const F77_DBLE *, const F77_INT&,
1449 F77_DBLE *, F77_DBLE&
1450 F77_CHAR_ARG_LEN_DECL);
1451
1452 F77_RET_T
1453 F77_FUNC (xslange, XSLANGE) (F77_CONST_CHAR_ARG_DECL,
1454 const F77_INT&,
1455 const F77_INT&, const F77_REAL *,
1456 const F77_INT&, F77_REAL *, F77_REAL&
1457 F77_CHAR_ARG_LEN_DECL);
1458
1459 F77_RET_T
1460 F77_FUNC (xzlange, XZLANGE) (F77_CONST_CHAR_ARG_DECL,
1461 const F77_INT&, const F77_INT&,
1462 const F77_DBLE_CMPLX *, const F77_INT&,
1463 F77_DBLE *, F77_DBLE&
1464 F77_CHAR_ARG_LEN_DECL);
1465 // LARTG
1466
1467 F77_RET_T
1468 F77_FUNC (clartg, CLARTG) (const F77_CMPLX *, const F77_CMPLX *,
1469 F77_REAL&, F77_CMPLX *, F77_CMPLX *);
1470
1471 F77_RET_T
1472 F77_FUNC (dlartg, DLARTG) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&,
1473 F77_DBLE&, F77_DBLE&);
1474
1475 F77_RET_T
1476 F77_FUNC (slartg, SLARTG) (const F77_REAL&, const F77_REAL&, F77_REAL&,
1477 F77_REAL&, F77_REAL&);
1478
1479 F77_RET_T
1480 F77_FUNC (zlartg, ZLARTG) (const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *,
1481 F77_DBLE&,
1482 F77_DBLE_CMPLX *, F77_DBLE_CMPLX *);
1483
1484 // ORGHR
1485
1486 F77_RET_T
1487 F77_FUNC (dorghr, DORGHR) (const F77_INT&, const F77_INT&,
1488 const F77_INT&, F77_DBLE *,
1489 const F77_INT&, F77_DBLE *, F77_DBLE *,
1490 const F77_INT&, F77_INT&);
1491
1492 F77_RET_T
1493 F77_FUNC (sorghr, SORGHR) (const F77_INT&, const F77_INT&,
1494 const F77_INT&, F77_REAL *,
1495 const F77_INT&, F77_REAL *, F77_REAL *,
1496 const F77_INT&, F77_INT&);
1497
1498 // ORGQR
1499
1500 F77_RET_T
1501 F77_FUNC (dorgqr, DORGQR) (const F77_INT&, const F77_INT&,
1502 const F77_INT&, F77_DBLE *,
1503 const F77_INT&, F77_DBLE *, F77_DBLE *,
1504 const F77_INT&, F77_INT&);
1505
1506 F77_RET_T
1507 F77_FUNC (sorgqr, SORGQR) (const F77_INT&, const F77_INT&,
1508 const F77_INT&, F77_REAL *,
1509 const F77_INT&, F77_REAL *, F77_REAL *,
1510 const F77_INT&, F77_INT&);
1511
1512 // PBCON
1513
1514 F77_RET_T
1515 F77_FUNC (dpbcon, DPBCON) (F77_CONST_CHAR_ARG_DECL,
1516 const F77_INT&, const F77_INT&,
1517 F77_DBLE *, const F77_INT&,
1518 const F77_DBLE&, F77_DBLE&, F77_DBLE *,
1519 F77_INT *, F77_INT&
1520 F77_CHAR_ARG_LEN_DECL);
1521
1522 F77_RET_T
1523 F77_FUNC (zpbcon, ZPBCON) (F77_CONST_CHAR_ARG_DECL,
1524 const F77_INT&, const F77_INT&,
1525 F77_DBLE_CMPLX *, const F77_INT&, const F77_DBLE&,
1526 F77_DBLE&, F77_DBLE_CMPLX *, F77_DBLE *, F77_INT&
1527 F77_CHAR_ARG_LEN_DECL);
1528
1529 // PBTRF
1530
1531 F77_RET_T
1532 F77_FUNC (dpbtrf, DPBTRF) (F77_CONST_CHAR_ARG_DECL,
1533 const F77_INT&, const F77_INT&,
1534 F77_DBLE *, const F77_INT&, F77_INT&
1535 F77_CHAR_ARG_LEN_DECL);
1536
1537 F77_RET_T
1538 F77_FUNC (zpbtrf, ZPBTRF) (F77_CONST_CHAR_ARG_DECL,
1539 const F77_INT&, const F77_INT&,
1540 F77_DBLE_CMPLX *, const F77_INT&, F77_INT&
1541 F77_CHAR_ARG_LEN_DECL);
1542
1543 // PBTRS
1544
1545 F77_RET_T
1546 F77_FUNC (dpbtrs, DPBTRS) (F77_CONST_CHAR_ARG_DECL,
1547 const F77_INT&, const F77_INT&,
1548 const F77_INT&, F77_DBLE *,
1549 const F77_INT&, F77_DBLE *,
1550 const F77_INT&, F77_INT&
1551 F77_CHAR_ARG_LEN_DECL);
1552
1553 F77_RET_T
1554 F77_FUNC (zpbtrs, ZPBTRS) (F77_CONST_CHAR_ARG_DECL,
1555 const F77_INT&, const F77_INT&,
1556 const F77_INT&, F77_DBLE_CMPLX *,
1557 const F77_INT&, F77_DBLE_CMPLX *,
1558 const F77_INT&, F77_INT&
1559 F77_CHAR_ARG_LEN_DECL);
1560
1561 // POCON
1562
1563 F77_RET_T
1564 F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL,
1565 const F77_INT&, F77_CMPLX *,
1566 const F77_INT&, const F77_REAL&, F77_REAL&,
1567 F77_CMPLX *, F77_REAL *, F77_INT&
1568 F77_CHAR_ARG_LEN_DECL);
1569
1570 F77_RET_T
1571 F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL,
1572 const F77_INT&, F77_DBLE *,
1573 const F77_INT&, const F77_DBLE&,
1574 F77_DBLE&, F77_DBLE *, F77_INT *,
1575 F77_INT&
1576 F77_CHAR_ARG_LEN_DECL);
1577
1578 F77_RET_T
1579 F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL,
1580 const F77_INT&, F77_REAL *,
1581 const F77_INT&, const F77_REAL&,
1582 F77_REAL&, F77_REAL *, F77_INT *,
1583 F77_INT&
1584 F77_CHAR_ARG_LEN_DECL);
1585
1586 F77_RET_T
1587 F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL,
1588 const F77_INT&, F77_DBLE_CMPLX *,
1589 const F77_INT&, const F77_DBLE&,
1590 F77_DBLE&, F77_DBLE_CMPLX *, F77_DBLE *, F77_INT&
1591 F77_CHAR_ARG_LEN_DECL);
1592
1593 // POTRF
1594
1595 F77_RET_T
1596 F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL,
1597 const F77_INT&, F77_CMPLX *,
1598 const F77_INT&, F77_INT&
1599 F77_CHAR_ARG_LEN_DECL);
1600
1601 F77_RET_T
1602 F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL,
1603 const F77_INT&, F77_DBLE *,
1604 const F77_INT&, F77_INT&
1605 F77_CHAR_ARG_LEN_DECL);
1606
1607 F77_RET_T
1608 F77_FUNC (spotrf, SPOTRF) (F77_CONST_CHAR_ARG_DECL,
1609 const F77_INT&, F77_REAL *,
1610 const F77_INT&, F77_INT&
1611 F77_CHAR_ARG_LEN_DECL);
1612
1613 F77_RET_T
1614 F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL,
1615 const F77_INT&, F77_DBLE_CMPLX *,
1616 const F77_INT&, F77_INT&
1617 F77_CHAR_ARG_LEN_DECL);
1618
1619 // POTRI
1620
1621 F77_RET_T
1622 F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL,
1623 const F77_INT&, F77_CMPLX *,
1624 const F77_INT&, F77_INT&
1625 F77_CHAR_ARG_LEN_DECL);
1626
1627 F77_RET_T
1628 F77_FUNC (dpotri, DPOTRI) (F77_CONST_CHAR_ARG_DECL,
1629 const F77_INT&, F77_DBLE *,
1630 const F77_INT&, F77_INT&
1631 F77_CHAR_ARG_LEN_DECL);
1632
1633 F77_RET_T
1634 F77_FUNC (spotri, SPOTRI) (F77_CONST_CHAR_ARG_DECL,
1635 const F77_INT&, F77_REAL *,
1636 const F77_INT&, F77_INT&
1637 F77_CHAR_ARG_LEN_DECL);
1638
1639 F77_RET_T
1640 F77_FUNC (zpotri, ZPOTRI) (F77_CONST_CHAR_ARG_DECL,
1641 const F77_INT&, F77_DBLE_CMPLX *,
1642 const F77_INT&, F77_INT&
1643 F77_CHAR_ARG_LEN_DECL);
1644
1645 // POTRS
1646
1647 F77_RET_T
1648 F77_FUNC (spotrs, SPOTRS) (F77_CONST_CHAR_ARG_DECL,
1649 const F77_INT&, const F77_INT&,
1650 const F77_REAL *, const F77_INT&, F77_REAL *,
1651 const F77_INT&, F77_INT&
1652 F77_CHAR_ARG_LEN_DECL);
1653
1654 F77_RET_T
1655 F77_FUNC (cpotrs, CPOTRS) (F77_CONST_CHAR_ARG_DECL,
1656 const F77_INT&,
1657 const F77_INT&, const F77_CMPLX *,
1658 const F77_INT&, F77_CMPLX *,
1659 const F77_INT&, F77_INT&
1660 F77_CHAR_ARG_LEN_DECL);
1661
1662 F77_RET_T
1663 F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL,
1664 const F77_INT&, const F77_INT&,
1665 const F77_DBLE *, const F77_INT&, F77_DBLE *,
1666 const F77_INT&, F77_INT&
1667 F77_CHAR_ARG_LEN_DECL);
1668
1669 F77_RET_T
1670 F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL,
1671 const F77_INT&, const F77_INT&,
1672 const F77_DBLE_CMPLX *, const F77_INT&,
1673 F77_DBLE_CMPLX *, const F77_INT&, F77_INT&
1674 F77_CHAR_ARG_LEN_DECL);
1675
1676 // PTSV
1677
1678 F77_RET_T
1679 F77_FUNC (dptsv, DPTSV) (const F77_INT&, const F77_INT&,
1680 F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT&,
1681 F77_INT&);
1682
1683 F77_RET_T
1684 F77_FUNC (zptsv, ZPTSV) (const F77_INT&, const F77_INT&,
1685 F77_DBLE *, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
1686 const F77_INT&, F77_INT&);
1687
1688 // RSF2CSF (liboctave/external/lapack-xtra)
1689
1690 F77_RET_T
1691 F77_FUNC (zrsf2csf, ZRSF2CSF) (const F77_INT&, F77_DBLE_CMPLX *,
1692 F77_DBLE_CMPLX *, F77_DBLE *, F77_DBLE *);
1693
1694 F77_RET_T
1695 F77_FUNC (crsf2csf, CRSF2CSF) (const F77_INT&, F77_CMPLX *,
1696 F77_CMPLX *, F77_REAL *, F77_REAL *);
1697
1698 // SYEV
1699
1700 F77_RET_T
1701 F77_FUNC (dsyev, DSYEV) (F77_CONST_CHAR_ARG_DECL,
1702 F77_CONST_CHAR_ARG_DECL,
1703 const F77_INT&, F77_DBLE *,
1704 const F77_INT&, F77_DBLE *, F77_DBLE *,
1705 const F77_INT&, F77_INT&
1706 F77_CHAR_ARG_LEN_DECL
1707 F77_CHAR_ARG_LEN_DECL);
1708
1709 F77_RET_T
1710 F77_FUNC (ssyev, SSYEV) (F77_CONST_CHAR_ARG_DECL,
1711 F77_CONST_CHAR_ARG_DECL,
1712 const F77_INT&, F77_REAL *,
1713 const F77_INT&, F77_REAL *, F77_REAL *,
1714 const F77_INT&, F77_INT&
1715 F77_CHAR_ARG_LEN_DECL
1716 F77_CHAR_ARG_LEN_DECL);
1717
1718 // SYGV
1719
1720 F77_RET_T
1721 F77_FUNC (dsygv, DSYGV) (const F77_INT&,
1722 F77_CONST_CHAR_ARG_DECL,
1723 F77_CONST_CHAR_ARG_DECL,
1724 const F77_INT&, F77_DBLE *,
1725 const F77_INT&, F77_DBLE *,
1726 const F77_INT&, F77_DBLE *, F77_DBLE *,
1727 const F77_INT&, F77_INT&
1728 F77_CHAR_ARG_LEN_DECL
1729 F77_CHAR_ARG_LEN_DECL);
1730
1731 F77_RET_T
1732 F77_FUNC (ssygv, SSYGV) (const F77_INT&,
1733 F77_CONST_CHAR_ARG_DECL,
1734 F77_CONST_CHAR_ARG_DECL,
1735 const F77_INT&, F77_REAL *,
1736 const F77_INT&, F77_REAL *,
1737 const F77_INT&, F77_REAL *, F77_REAL *,
1738 const F77_INT&, F77_INT&
1739 F77_CHAR_ARG_LEN_DECL
1740 F77_CHAR_ARG_LEN_DECL);
1741
1742 // SYRK
1743
1744 F77_RET_T
1745 F77_FUNC (csyrk, CSYRK) (F77_CONST_CHAR_ARG_DECL,
1746 F77_CONST_CHAR_ARG_DECL,
1747 const F77_INT&, const F77_INT&,
1748 const F77_CMPLX&, const F77_CMPLX *,
1749 const F77_INT&, const F77_CMPLX&,
1750 F77_CMPLX *, const F77_INT&
1751 F77_CHAR_ARG_LEN_DECL
1752 F77_CHAR_ARG_LEN_DECL);
1753
1754 F77_RET_T
1755 F77_FUNC (dsyrk, DSYRK) (F77_CONST_CHAR_ARG_DECL,
1756 F77_CONST_CHAR_ARG_DECL,
1757 const F77_INT&, const F77_INT&,
1758 const F77_DBLE&, const F77_DBLE *, const F77_INT&,
1759 const F77_DBLE&, F77_DBLE *, const F77_INT&
1760 F77_CHAR_ARG_LEN_DECL
1761 F77_CHAR_ARG_LEN_DECL);
1762
1763 F77_RET_T
1764 F77_FUNC (ssyrk, SSYRK) (F77_CONST_CHAR_ARG_DECL,
1765 F77_CONST_CHAR_ARG_DECL,
1766 const F77_INT&, const F77_INT&,
1767 const F77_REAL&, const F77_REAL *, const F77_INT&,
1768 const F77_REAL&, F77_REAL *, const F77_INT&
1769 F77_CHAR_ARG_LEN_DECL
1770 F77_CHAR_ARG_LEN_DECL);
1771
1772 F77_RET_T
1773 F77_FUNC (zsyrk, ZSYRK) (F77_CONST_CHAR_ARG_DECL,
1774 F77_CONST_CHAR_ARG_DECL,
1775 const F77_INT&, const F77_INT&,
1776 const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX *,
1777 const F77_INT&, const F77_DBLE_CMPLX&,
1778 F77_DBLE_CMPLX *, const F77_INT&
1779 F77_CHAR_ARG_LEN_DECL
1780 F77_CHAR_ARG_LEN_DECL);
1781
1782 // TGEVC
1783
1784 // Documentation for DTGEVC incorrectly states that VR, VL are
1785 // complex*16; they are declared in DTGEVC as double precision
1786 // (probably a cut and paste problem fro ZTGEVC).
1787 F77_RET_T
1788 F77_FUNC (dtgevc, DTGEVC) (F77_CONST_CHAR_ARG_DECL,
1789 F77_CONST_CHAR_ARG_DECL,
1790 F77_INT *SELECT,
1791 const F77_INT& N, F77_DBLE *A,
1792 const F77_INT& LDA, F77_DBLE *B,
1793 const F77_INT& LDB, F77_DBLE *VL,
1794 const F77_INT& LDVL, F77_DBLE *VR,
1795 const F77_INT& LDVR,
1796 const F77_INT& MM, F77_INT& M,
1797 F77_DBLE *WORK, F77_INT& INFO
1798 F77_CHAR_ARG_LEN_DECL
1799 F77_CHAR_ARG_LEN_DECL);
1800
1801 F77_RET_T
1802 F77_FUNC (ztgevc, ZTGEVC) (F77_CONST_CHAR_ARG_DECL,
1803 F77_CONST_CHAR_ARG_DECL,
1804 F77_INT *SELECT,
1805 const F77_INT& N, const F77_DBLE_CMPLX *A,
1806 const F77_INT& LDA, const F77_DBLE_CMPLX *B,
1807 const F77_INT& LDB, F77_DBLE_CMPLX *xVL,
1808 const F77_INT& LDVL, F77_DBLE_CMPLX *xVR,
1809 const F77_INT& LDVR,
1810 const F77_INT& MM, F77_INT& M,
1811 F77_DBLE_CMPLX *CWORK, F77_DBLE *RWORK,
1812 F77_INT& INFO
1813 F77_CHAR_ARG_LEN_DECL
1814 F77_CHAR_ARG_LEN_DECL);
1815
1816 // TGSEN
1817
1818 F77_RET_T
1819 F77_FUNC (dtgsen, DTGSEN) (const F77_INT& IJOB,
1820 const F77_LOGICAL& WANTQ,
1821 const F77_LOGICAL& WANTZ,
1822 const F77_LOGICAL *SELECT,
1823 const F77_INT& N,
1824 F77_DBLE *A,
1825 const F77_INT& LDA,
1826 F77_DBLE *B,
1827 const F77_INT& LDB,
1828 F77_DBLE *ALPHAR,
1829 F77_DBLE *ALPHAI,
1830 F77_DBLE *BETA,
1831 F77_DBLE *Q,
1832 const F77_INT& LDQ,
1833 F77_DBLE *Z,
1834 const F77_INT& LDZ,
1835 F77_INT& M,
1836 F77_DBLE& PL,
1837 F77_DBLE& PR,
1838 F77_DBLE *DIF,
1839 F77_DBLE *WORK,
1840 const F77_INT& LWORK,
1841 F77_INT *IWORK,
1842 const F77_INT& LIWORK,
1843 F77_INT& INFO);
1844
1845 F77_RET_T
1846 F77_FUNC (ztgsen, ZTGSEN) (const F77_INT& IJOB,
1847 const F77_LOGICAL& WANTQ,
1848 const F77_LOGICAL& WANTZ,
1849 const F77_LOGICAL *SELECT,
1850 const F77_INT& N,
1851 F77_DBLE_CMPLX *A,
1852 const F77_INT& LDA,
1853 F77_DBLE_CMPLX *B,
1854 const F77_INT& LDB,
1855 F77_DBLE_CMPLX *ALPHA,
1856 F77_DBLE_CMPLX *BETA,
1857 F77_DBLE_CMPLX *Q,
1858 const F77_INT& LDQ,
1859 F77_DBLE_CMPLX *Z,
1860 const F77_INT& LDZ,
1861 F77_INT& M,
1862 F77_DBLE& PL,
1863 F77_DBLE& PR,
1864 F77_DBLE *DIF,
1865 F77_DBLE_CMPLX *WORK,
1866 const F77_INT& LWORK,
1867 F77_INT *IWORK,
1868 const F77_INT& LIWORK,
1869 F77_INT& INFO);
1870
1871 // TRCON
1872
1873 F77_RET_T
1874 F77_FUNC (ctrcon, CTRCON) (F77_CONST_CHAR_ARG_DECL,
1875 F77_CONST_CHAR_ARG_DECL,
1876 F77_CONST_CHAR_ARG_DECL,
1877 const F77_INT&, const F77_CMPLX *,
1878 const F77_INT&, F77_REAL&, F77_CMPLX *,
1879 F77_REAL *, F77_INT&
1880 F77_CHAR_ARG_LEN_DECL
1881 F77_CHAR_ARG_LEN_DECL
1882 F77_CHAR_ARG_LEN_DECL);
1883
1884 F77_RET_T
1885 F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL,
1886 F77_CONST_CHAR_ARG_DECL,
1887 F77_CONST_CHAR_ARG_DECL,
1888 const F77_INT&, const F77_DBLE *,
1889 const F77_INT&, F77_DBLE&,
1890 F77_DBLE *, F77_INT *, F77_INT&
1891 F77_CHAR_ARG_LEN_DECL
1892 F77_CHAR_ARG_LEN_DECL
1893 F77_CHAR_ARG_LEN_DECL);
1894 F77_RET_T
1895 F77_FUNC (strcon, STRCON) (F77_CONST_CHAR_ARG_DECL,
1896 F77_CONST_CHAR_ARG_DECL,
1897 F77_CONST_CHAR_ARG_DECL,
1898 const F77_INT&, const F77_REAL *,
1899 const F77_INT&, F77_REAL&,
1900 F77_REAL *, F77_INT *, F77_INT&
1901 F77_CHAR_ARG_LEN_DECL
1902 F77_CHAR_ARG_LEN_DECL
1903 F77_CHAR_ARG_LEN_DECL);
1904
1905 F77_RET_T
1906 F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL,
1907 F77_CONST_CHAR_ARG_DECL,
1908 F77_CONST_CHAR_ARG_DECL,
1909 const F77_INT&, const F77_DBLE_CMPLX *,
1910 const F77_INT&, F77_DBLE&,
1911 F77_DBLE_CMPLX *, F77_DBLE *, F77_INT&
1912 F77_CHAR_ARG_LEN_DECL
1913 F77_CHAR_ARG_LEN_DECL
1914 F77_CHAR_ARG_LEN_DECL);
1915
1916 // TRSEN
1917
1918 F77_RET_T
1919 F77_FUNC (ctrsen, CTRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL,
1920 const F77_INT *, const F77_INT&,
1921 F77_CMPLX *, const F77_INT&, F77_CMPLX *,
1922 const F77_INT&, F77_CMPLX *, F77_INT&,
1923 F77_REAL&, F77_REAL&, F77_CMPLX *,
1924 const F77_INT&, F77_INT&);
1925
1926 F77_RET_T
1927 F77_FUNC (dtrsen, DTRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL,
1928 const F77_INT *, const F77_INT&,
1929 F77_DBLE *, const F77_INT&, F77_DBLE *,
1930 const F77_INT&, F77_DBLE *, F77_DBLE *,
1931 F77_INT&, F77_DBLE&, F77_DBLE&, F77_DBLE *,
1932 const F77_INT&, F77_INT *,
1933 const F77_INT&, F77_INT&);
1934
1935 F77_RET_T
1936 F77_FUNC (strsen, STRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL,
1937 const F77_INT *, const F77_INT&,
1938 F77_REAL *, const F77_INT&, F77_REAL *,
1939 const F77_INT&, F77_REAL *, F77_REAL *,
1940 F77_INT&, F77_REAL&, F77_REAL&, F77_REAL *,
1941 const F77_INT&, F77_INT *,
1942 const F77_INT&, F77_INT&);
1943
1944 F77_RET_T
1945 F77_FUNC (ztrsen, ZTRSEN) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL,
1946 const F77_INT *, const F77_INT&,
1947 F77_DBLE_CMPLX *, const F77_INT&,
1948 F77_DBLE_CMPLX *, const F77_INT&,
1949 F77_DBLE_CMPLX *, F77_INT&, F77_DBLE&,
1950 F77_DBLE&, F77_DBLE_CMPLX *,
1951 const F77_INT&, F77_INT&);
1952
1953 // TRSYL
1954
1955 F77_RET_T
1956 F77_FUNC (ctrsyl, CTRSYL) (F77_CONST_CHAR_ARG_DECL,
1957 F77_CONST_CHAR_ARG_DECL,
1958 const F77_INT&, const F77_INT&,
1959 const F77_INT&, const F77_CMPLX *,
1960 const F77_INT&, const F77_CMPLX *,
1961 const F77_INT&, const F77_CMPLX *,
1962 const F77_INT&, F77_REAL&, F77_INT&
1963 F77_CHAR_ARG_LEN_DECL
1964 F77_CHAR_ARG_LEN_DECL);
1965
1966 F77_RET_T
1967 F77_FUNC (dtrsyl, DTRSYL) (F77_CONST_CHAR_ARG_DECL,
1968 F77_CONST_CHAR_ARG_DECL,
1969 const F77_INT&, const F77_INT&,
1970 const F77_INT&, const F77_DBLE *,
1971 const F77_INT&, const F77_DBLE *,
1972 const F77_INT&, const F77_DBLE *,
1973 const F77_INT&, F77_DBLE&, F77_INT&
1974 F77_CHAR_ARG_LEN_DECL
1975 F77_CHAR_ARG_LEN_DECL);
1976
1977 F77_RET_T
1978 F77_FUNC (strsyl, STRSYL) (F77_CONST_CHAR_ARG_DECL,
1979 F77_CONST_CHAR_ARG_DECL,
1980 const F77_INT&, const F77_INT&,
1981 const F77_INT&, const F77_REAL *,
1982 const F77_INT&, const F77_REAL *,
1983 const F77_INT&, const F77_REAL *,
1984 const F77_INT&, F77_REAL&, F77_INT&
1985 F77_CHAR_ARG_LEN_DECL
1986 F77_CHAR_ARG_LEN_DECL);
1987
1988 F77_RET_T
1989 F77_FUNC (ztrsyl, ZTRSYL) (F77_CONST_CHAR_ARG_DECL,
1990 F77_CONST_CHAR_ARG_DECL,
1991 const F77_INT&, const F77_INT&,
1992 const F77_INT&, const F77_DBLE_CMPLX *,
1993 const F77_INT&, const F77_DBLE_CMPLX *,
1994 const F77_INT&, const F77_DBLE_CMPLX *,
1995 const F77_INT&, F77_DBLE&, F77_INT&
1996 F77_CHAR_ARG_LEN_DECL
1997 F77_CHAR_ARG_LEN_DECL);
1998
1999 // TRTRI
2000
2001 F77_RET_T
2002 F77_FUNC (ctrtri, CTRTRI) (F77_CONST_CHAR_ARG_DECL,
2003 F77_CONST_CHAR_ARG_DECL,
2004 const F77_INT&, const F77_CMPLX *,
2005 const F77_INT&, F77_INT&
2006 F77_CHAR_ARG_LEN_DECL
2007 F77_CHAR_ARG_LEN_DECL);
2008
2009 F77_RET_T
2010 F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL,
2011 F77_CONST_CHAR_ARG_DECL,
2012 const F77_INT&, const F77_DBLE *,
2013 const F77_INT&, F77_INT&
2014 F77_CHAR_ARG_LEN_DECL
2015 F77_CHAR_ARG_LEN_DECL);
2016
2017 F77_RET_T
2018 F77_FUNC (strtri, STRTRI) (F77_CONST_CHAR_ARG_DECL,
2019 F77_CONST_CHAR_ARG_DECL,
2020 const F77_INT&, const F77_REAL *,
2021 const F77_INT&, F77_INT&
2022 F77_CHAR_ARG_LEN_DECL
2023 F77_CHAR_ARG_LEN_DECL);
2024
2025 F77_RET_T
2026 F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL,
2027 F77_CONST_CHAR_ARG_DECL,
2028 const F77_INT&, const F77_DBLE_CMPLX *,
2029 const F77_INT&, F77_INT&
2030 F77_CHAR_ARG_LEN_DECL
2031 F77_CHAR_ARG_LEN_DECL);
2032
2033 // TRTRS
2034
2035 F77_RET_T
2036 F77_FUNC (ctrtrs, CTRTRS) (F77_CONST_CHAR_ARG_DECL,
2037 F77_CONST_CHAR_ARG_DECL,
2038 F77_CONST_CHAR_ARG_DECL,
2039 const F77_INT&, const F77_INT&,
2040 const F77_CMPLX *, const F77_INT&,
2041 F77_CMPLX *, const F77_INT&,
2042 F77_INT&
2043 F77_CHAR_ARG_LEN_DECL
2044 F77_CHAR_ARG_LEN_DECL
2045 F77_CHAR_ARG_LEN_DECL);
2046
2047 F77_RET_T
2048 F77_FUNC (dtrtrs, DTRTRS) (F77_CONST_CHAR_ARG_DECL,
2049 F77_CONST_CHAR_ARG_DECL,
2050 F77_CONST_CHAR_ARG_DECL,
2051 const F77_INT&, const F77_INT&,
2052 const F77_DBLE *, const F77_INT&, F77_DBLE *,
2053 const F77_INT&, F77_INT&
2054 F77_CHAR_ARG_LEN_DECL
2055 F77_CHAR_ARG_LEN_DECL
2056 F77_CHAR_ARG_LEN_DECL);
2057
2058 F77_RET_T
2059 F77_FUNC (strtrs, STRTRS) (F77_CONST_CHAR_ARG_DECL,
2060 F77_CONST_CHAR_ARG_DECL,
2061 F77_CONST_CHAR_ARG_DECL,
2062 const F77_INT&,
2063 const F77_INT&, const F77_REAL *,
2064 const F77_INT&, F77_REAL *,
2065 const F77_INT&, F77_INT&
2066 F77_CHAR_ARG_LEN_DECL
2067 F77_CHAR_ARG_LEN_DECL
2068 F77_CHAR_ARG_LEN_DECL);
2069
2070 F77_RET_T
2071 F77_FUNC (ztrtrs, ZTRTRS) (F77_CONST_CHAR_ARG_DECL,
2072 F77_CONST_CHAR_ARG_DECL,
2073 F77_CONST_CHAR_ARG_DECL,
2074 const F77_INT&, const F77_INT&,
2075 const F77_DBLE_CMPLX *, const F77_INT&, F77_DBLE_CMPLX *,
2076 const F77_INT&, F77_INT&
2077 F77_CHAR_ARG_LEN_DECL
2078 F77_CHAR_ARG_LEN_DECL
2079 F77_CHAR_ARG_LEN_DECL);
2080
2081 // UNGHR
2082
2083 F77_RET_T
2084 F77_FUNC (cunghr, CUNGHR) (const F77_INT&, const F77_INT&,
2085 const F77_INT&, F77_CMPLX *,
2086 const F77_INT&, F77_CMPLX *,
2087 F77_CMPLX *, const F77_INT&,
2088 F77_INT&);
2089
2090 F77_RET_T
2091 F77_FUNC (zunghr, ZUNGHR) (const F77_INT&, const F77_INT&,
2092 const F77_INT&, F77_DBLE_CMPLX *,
2093 const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
2094 const F77_INT&, F77_INT&);
2095 // UNGQR
2096
2097 F77_RET_T
2098 F77_FUNC (cungqr, CUNGQR) (const F77_INT&, const F77_INT&,
2099 const F77_INT&, F77_CMPLX *,
2100 const F77_INT&, F77_CMPLX *,
2101 F77_CMPLX *, const F77_INT&,
2102 F77_INT&);
2103
2104 F77_RET_T
2105 F77_FUNC (zungqr, ZUNGQR) (const F77_INT&, const F77_INT&,
2106 const F77_INT&, F77_DBLE_CMPLX *,
2107 const F77_INT&, F77_DBLE_CMPLX *, F77_DBLE_CMPLX *,
2108 const F77_INT&, F77_INT&);
2109}
2110
2111#endif
crsf2csf
subroutine crsf2csf(n, t, u, c, s)
Definition crsf2csf.f:24
F77_REAL
float F77_REAL
Definition f77-fcn.h:303
F77_DBLE
double F77_DBLE
Definition f77-fcn.h:302
F77_LOGICAL
octave_f77_int_type F77_LOGICAL
Definition f77-fcn.h:308
F77_DBLE_CMPLX
double _Complex F77_DBLE_CMPLX
Definition f77-fcn.h:304
F77_INT
octave_f77_int_type F77_INT
Definition f77-fcn.h:306
F77_CMPLX
float _Complex F77_CMPLX
Definition f77-fcn.h:305
SELECT
F77_RET_T F77_INT * SELECT
Definition lo-lapack-proto.h:1790
DIF
F77_RET_T const F77_LOGICAL const F77_LOGICAL const F77_LOGICAL const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_INT F77_DBLE F77_DBLE F77_DBLE * DIF
Definition lo-lapack-proto.h:1838
VR
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * VR
Definition lo-lapack-proto.h:1794
PR
F77_RET_T const F77_LOGICAL const F77_LOGICAL const F77_LOGICAL const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_INT F77_DBLE F77_DBLE & PR
Definition lo-lapack-proto.h:1837
PL
F77_RET_T const F77_LOGICAL const F77_LOGICAL const F77_LOGICAL const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_INT F77_DBLE & PL
Definition lo-lapack-proto.h:1836
LDVR
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDVR
Definition lo-lapack-proto.h:1795
ALPHAR
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * ALPHAR
Definition lo-lapack-proto.h:1380
LWORK
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LWORK
Definition lo-lapack-proto.h:1384
F77_CHAR_ARG_LEN_DECL
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_INT F77_INT & F77_CHAR_ARG_LEN_DECL
Definition lo-lapack-proto.h:40
ALPHAI
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE * ALPHAI
Definition lo-lapack-proto.h:1381
RSCALE
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT F77_REAL F77_REAL * RSCALE
Definition lo-lapack-proto.h:861
LIWORK
F77_RET_T const F77_LOGICAL const F77_LOGICAL const F77_LOGICAL const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_INT const F77_INT & LIWORK
Definition lo-lapack-proto.h:1842
SCALE1
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE & SCALE1
Definition lo-lapack-proto.h:1425
LDVL
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDVL
Definition lo-lapack-proto.h:1794
WANTQ
F77_RET_T const F77_LOGICAL & WANTQ
Definition lo-lapack-proto.h:1820
xVR
F77_RET_T F77_INT const F77_INT const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * xVR
Definition lo-lapack-proto.h:1808
INFO
F77_RET_T const F77_LOGICAL const F77_LOGICAL const F77_LOGICAL const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_INT const F77_INT F77_INT & INFO
Definition lo-lapack-proto.h:1843
xVL
F77_RET_T F77_INT const F77_INT const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * xVL
Definition lo-lapack-proto.h:1807
RWORK
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX F77_DBLE_CMPLX F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE * RWORK
Definition lo-lapack-proto.h:1403
LDV
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT F77_DBLE const F77_INT & LDV
Definition lo-lapack-proto.h:905
B
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX * B
Definition lo-lapack-proto.h:859
WR2
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WR2
Definition lo-lapack-proto.h:1426
WI
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WI
Definition lo-lapack-proto.h:1427
Q
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * Q
Definition lo-lapack-proto.h:995
F77_FUNC
F77_RET_T F77_FUNC(dgbcon, DGBCON)(F77_CONST_CHAR_ARG_DECL
CZ
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX F77_DBLE_CMPLX F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * CZ
Definition lo-lapack-proto.h:1401
V
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT F77_DBLE * V
Definition lo-lapack-proto.h:904
LSCALE
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT F77_REAL * LSCALE
Definition lo-lapack-proto.h:861
F77_CONST_CHAR_ARG_DECL
F77_RET_T F77_CONST_CHAR_ARG_DECL
Definition lo-lapack-proto.h:124
F77_RET_T
F77_RET_T(F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT &, const F77_INT &, const F77_INT &, F77_INT &, F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_INT *, F77_INT &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL)
IWORK
F77_RET_T const F77_LOGICAL const F77_LOGICAL const F77_LOGICAL const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_INT * IWORK
Definition lo-lapack-proto.h:1841
A
F77_RET_T const F77_INT F77_CMPLX * A
Definition lo-lapack-proto.h:858
BETA
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE * BETA
Definition lo-lapack-proto.h:1381
float_complex_selector
F77_INT(* float_complex_selector)(const F77_CMPLX &)
Definition lo-lapack-proto.h:564
float_selector
F77_INT(* float_selector)(const F77_REAL &, const F77_REAL &)
Definition lo-lapack-proto.h:562
SCALE2
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE & SCALE2
Definition lo-lapack-proto.h:1426
N
F77_RET_T const F77_INT & N
Definition lo-lapack-proto.h:857
WR1
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WR1
Definition lo-lapack-proto.h:1426
M
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT & M
Definition lo-lapack-proto.h:904
LDA
F77_RET_T const F77_INT F77_CMPLX const F77_INT & LDA
Definition lo-lapack-proto.h:858
CQ
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX F77_DBLE_CMPLX F77_DBLE_CMPLX * CQ
Definition lo-lapack-proto.h:1400
SAFMIN
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE & SAFMIN
Definition lo-lapack-proto.h:1425
double_selector
F77_INT(* double_selector)(const F77_DBLE &, const F77_DBLE &)
Definition lo-lapack-proto.h:561
ILO
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT & ILO
Definition lo-lapack-proto.h:860
WANTZ
F77_RET_T const F77_LOGICAL const F77_LOGICAL & WANTZ
Definition lo-lapack-proto.h:1821
Z
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * Z
Definition lo-lapack-proto.h:996
ALPHA
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * ALPHA
Definition lo-lapack-proto.h:1399
WORK
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT F77_REAL F77_REAL F77_REAL * WORK
Definition lo-lapack-proto.h:862
LDB
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT & LDB
Definition lo-lapack-proto.h:859
MM
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT const F77_INT & MM
Definition lo-lapack-proto.h:1796
VL
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * VL
Definition lo-lapack-proto.h:1793
CWORK
F77_RET_T F77_INT const F77_INT const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT const F77_INT F77_INT F77_DBLE_CMPLX * CWORK
Definition lo-lapack-proto.h:1811
IHI
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT & IHI
Definition lo-lapack-proto.h:860
LDZ
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDZ
Definition lo-lapack-proto.h:997
complex_selector
F77_INT(* complex_selector)(const F77_DBLE_CMPLX &)
Definition lo-lapack-proto.h:563
LDQ
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDQ
Definition lo-lapack-proto.h:996
xclange
subroutine xclange(norm, m, n, a, lda, work, value)
Definition xclange.f:10
xdlamch
subroutine xdlamch(cmach, retval)
Definition xdlamch.f:2
xdlange
subroutine xdlange(norm, m, n, a, lda, work, retval)
Definition xdlange.f:2
xilaenv
subroutine xilaenv(ispec, name, opts, n1, n2, n3, n4, retval)
Definition xilaenv.f:2
xslange
subroutine xslange(norm, m, n, a, lda, work, retval)
Definition xslange.f:2
xzlange
subroutine xzlange(norm, m, n, a, lda, work, value)
Definition xzlange.f:10
zrsf2csf
subroutine zrsf2csf(n, t, u, c, s)
Definition zrsf2csf.f:24