GNU Octave  4.2.1
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
lo-lapack-proto.h
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2016-2017 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if ! defined (octave_lo_lapack_proto_h)
24 #define octave_lo_lapack_proto_h 1
25 
26 #include "octave-config.h"
27 
28 #include "f77-fcn.h"
29 #include "oct-cmplx.h"
30 
31 extern "C"
32 {
33  // GBCON
34 
35  F77_RET_T
36  F77_FUNC (dgbcon, DGBCON) (F77_CONST_CHAR_ARG_DECL,
37  const F77_INT&, const F77_INT&,
38  const F77_INT&, F77_DBLE*,
39  const F77_INT&, const F77_INT*,
40  const F77_DBLE&, F77_DBLE&, F77_DBLE*,
41  F77_INT*, F77_INT&
43 
44  F77_RET_T
45  F77_FUNC (zgbcon, ZGBCON) (F77_CONST_CHAR_ARG_DECL,
46  const F77_INT&, const F77_INT&,
47  const F77_INT&, F77_DBLE_CMPLX*,
48  const F77_INT&, const F77_INT*,
49  const F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*,
50  F77_INT&
52 
53  // GBTRF
54 
55  F77_RET_T
56  F77_FUNC (dgbtrf, DGBTRF) (const F77_INT&, const F77_INT&,
57  const F77_INT&, const F77_INT&,
58  F77_DBLE*, const F77_INT&,
59  F77_INT*, F77_INT&);
60 
61  F77_RET_T
62  F77_FUNC (zgbtrf, ZGBTRF) (const F77_INT&, const F77_INT&,
63  const F77_INT&, const F77_INT&,
64  F77_DBLE_CMPLX*, const F77_INT&,
65  F77_INT*, F77_INT&);
66 
67  // GBTRS
68 
69  F77_RET_T
70  F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL,
71  const F77_INT&, const F77_INT&,
72  const F77_INT&, const F77_INT&,
73  const F77_DBLE*, const F77_INT&,
74  const F77_INT*, F77_DBLE*,
75  const F77_INT&, F77_INT&
77 
78  F77_RET_T
79  F77_FUNC (zgbtrs, ZGBTRS) (F77_CONST_CHAR_ARG_DECL,
80  const F77_INT&, const F77_INT&,
81  const F77_INT&, const F77_INT&,
82  const F77_DBLE_CMPLX*, const F77_INT&,
83  const F77_INT*, F77_DBLE_CMPLX*,
84  const F77_INT&, F77_INT&
86 
87  // GEBAL
88 
89  F77_RET_T
90  F77_FUNC (cgebal, CGEBAL) (F77_CONST_CHAR_ARG_DECL,
91  const F77_INT&, F77_CMPLX*,
92  const F77_INT&, F77_INT&,
93  F77_INT&, F77_REAL*, F77_INT&
95 
96  F77_RET_T
97  F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL,
98  const F77_INT&, F77_DBLE*,
99  const F77_INT&, F77_INT&,
100  F77_INT&, F77_DBLE*, F77_INT&
102 
103  F77_RET_T
104  F77_FUNC (sgebal, SGEBAL) (F77_CONST_CHAR_ARG_DECL,
105  const F77_INT&, F77_REAL*,
106  const F77_INT&, F77_INT&,
107  F77_INT&, F77_REAL*, F77_INT&
109 
110  F77_RET_T
111  F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL,
112  const F77_INT&, F77_DBLE_CMPLX*,
113  const F77_INT&, F77_INT&,
114  F77_INT&, F77_DBLE*, F77_INT&
116 
117  // GEBAK
118 
119  F77_RET_T
120  F77_FUNC (cgebak, CGEBAK) (F77_CONST_CHAR_ARG_DECL,
122  const F77_INT&, const F77_INT&,
123  const F77_INT&, const F77_REAL*,
124  const F77_INT&, F77_CMPLX*,
125  const F77_INT&, F77_INT&
128 
129  F77_RET_T
130  F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL,
132  const F77_INT&, const F77_INT&,
133  const F77_INT&, const F77_DBLE*,
134  const F77_INT&, F77_DBLE*,
135  const F77_INT&, F77_INT&
138 
139  F77_RET_T
140  F77_FUNC (sgebak, SGEBAK) (F77_CONST_CHAR_ARG_DECL,
142  const F77_INT&, const F77_INT&,
143  const F77_INT&, const F77_REAL*,
144  const F77_INT&, F77_REAL*,
145  const F77_INT&, F77_INT&
148 
149  F77_RET_T
150  F77_FUNC (zgebak, ZGEBAK) (F77_CONST_CHAR_ARG_DECL,
152  const F77_INT&, const F77_INT&,
153  const F77_INT&, const F77_DBLE*,
154  const F77_INT&, F77_DBLE_CMPLX*,
155  const F77_INT&, F77_INT&
158 
159  // GECON
160 
161  F77_RET_T
162  F77_FUNC (cgecon, CGECON) (F77_CONST_CHAR_ARG_DECL,
163  const F77_INT&, F77_CMPLX*,
164  const F77_INT&, const F77_REAL&, F77_REAL&,
165  F77_CMPLX*, F77_REAL*, F77_INT&
167 
168  F77_RET_T
169  F77_FUNC (dgecon, DGECON) (F77_CONST_CHAR_ARG_DECL,
170  const F77_INT&, F77_DBLE*,
171  const F77_INT&, const F77_DBLE&, F77_DBLE&,
172  F77_DBLE*, F77_INT*, F77_INT&
174 
175  F77_RET_T
176  F77_FUNC (sgecon, SGECON) (F77_CONST_CHAR_ARG_DECL,
177  const F77_INT&, F77_REAL*,
178  const F77_INT&, const F77_REAL&, F77_REAL&,
179  F77_REAL*, F77_INT*, F77_INT&
181 
182  F77_RET_T
183  F77_FUNC (zgecon, ZGECON) (F77_CONST_CHAR_ARG_DECL,
184  const F77_INT&, F77_DBLE_CMPLX*,
185  const F77_INT&, const F77_DBLE&, F77_DBLE&,
186  F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
188 
189  // GEHRD
190 
191  F77_RET_T
192  F77_FUNC (cgehrd, CGEHRD) (const F77_INT&, const F77_INT&,
193  const F77_INT&, F77_CMPLX*,
194  const F77_INT&, F77_CMPLX*,
195  F77_CMPLX*, const F77_INT&,
196  F77_INT&);
197 
198  F77_RET_T
199  F77_FUNC (dgehrd, DGEHRD) (const F77_INT&, const F77_INT&,
200  const F77_INT&, F77_DBLE*,
201  const F77_INT&, F77_DBLE*, F77_DBLE*,
202  const F77_INT&, F77_INT&);
203 
204  F77_RET_T
205  F77_FUNC (sgehrd, SGEHRD) (const F77_INT&, const F77_INT&,
206  const F77_INT&, F77_REAL*,
207  const F77_INT&, F77_REAL*, F77_REAL*,
208  const F77_INT&, F77_INT&);
209 
210  F77_RET_T
211  F77_FUNC (zgehrd, ZGEHRD) (const F77_INT&, const F77_INT&,
212  const F77_INT&, F77_DBLE_CMPLX*,
213  const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
214  const F77_INT&, F77_INT&);
215 
216  // GEQP3
217 
218  F77_RET_T
219  F77_FUNC (cgeqp3, CGEQP3) (const F77_INT&, const F77_INT&,
220  F77_CMPLX*, const F77_INT&,
221  F77_INT*, F77_CMPLX*, F77_CMPLX*,
222  const F77_INT&, F77_REAL*, F77_INT&);
223 
224  F77_RET_T
225  F77_FUNC (dgeqp3, DGEQP3) (const F77_INT&, const F77_INT&,
226  F77_DBLE*, const F77_INT&,
227  F77_INT*, F77_DBLE*, F77_DBLE*,
228  const F77_INT&, F77_INT&);
229 
230  F77_RET_T
231  F77_FUNC (sgeqp3, SGEQP3) (const F77_INT&, const F77_INT&,
232  F77_REAL*, const F77_INT&, F77_INT*,
233  F77_REAL*, F77_REAL*, const F77_INT&,
234  F77_INT&);
235  F77_RET_T
236  F77_FUNC (zgeqp3, ZGEQP3) (const F77_INT&, const F77_INT&,
237  F77_DBLE_CMPLX*, const F77_INT&,
238  F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
239  const F77_INT&, F77_DBLE*,
240  F77_INT&);
241 
242  // GEQRF
243 
244  F77_RET_T
245  F77_FUNC (cgeqrf, CGEQRF) (const F77_INT&, const F77_INT&,
246  F77_CMPLX*, const F77_INT&,
247  F77_CMPLX*, F77_CMPLX*,
248  const F77_INT&, F77_INT&);
249 
250  F77_RET_T
251  F77_FUNC (dgeqrf, DGEQRF) (const F77_INT&, const F77_INT&,
252  F77_DBLE*, const F77_INT&, F77_DBLE*,
253  F77_DBLE*, const F77_INT&,
254  F77_INT&);
255 
256  F77_RET_T
257  F77_FUNC (sgeqrf, SGEQRF) (const F77_INT&, const F77_INT&,
258  F77_REAL*, const F77_INT&, F77_REAL*, F77_REAL*,
259  const F77_INT&, F77_INT&);
260 
261  F77_RET_T
262  F77_FUNC (zgeqrf, ZGEQRF) (const F77_INT&, const F77_INT&,
263  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
264  F77_DBLE_CMPLX*, const F77_INT&,
265  F77_INT&);
266 
267  // GESDD
268 
269  F77_RET_T
270  F77_FUNC (cgesdd, CGESDD) (F77_CONST_CHAR_ARG_DECL,
271  const F77_INT&, const F77_INT&,
272  F77_CMPLX*, const F77_INT&, F77_REAL*,
273  F77_CMPLX*, const F77_INT&,
274  F77_CMPLX*, const F77_INT&,
275  F77_CMPLX*, const F77_INT&,
276  F77_REAL*, F77_INT *, F77_INT&
278 
279  F77_RET_T
280  F77_FUNC (dgesdd, DGESDD) (F77_CONST_CHAR_ARG_DECL,
281  const F77_INT&, const F77_INT&,
282  F77_DBLE*, const F77_INT&, F77_DBLE*,
283  F77_DBLE*, const F77_INT&, F77_DBLE*,
284  const F77_INT&, F77_DBLE*,
285  const F77_INT&, F77_INT *,
286  F77_INT&
288 
289  F77_RET_T
290  F77_FUNC (sgesdd, SGESDD) (F77_CONST_CHAR_ARG_DECL,
291  const F77_INT&, const F77_INT&,
292  F77_REAL*, const F77_INT&, F77_REAL*,
293  F77_REAL*, const F77_INT&, F77_REAL*,
294  const F77_INT&, F77_REAL*,
295  const F77_INT&, F77_INT *,
296  F77_INT&
298 
299  F77_RET_T
300  F77_FUNC (zgesdd, ZGESDD) (F77_CONST_CHAR_ARG_DECL,
301  const F77_INT&, const F77_INT&,
302  F77_DBLE_CMPLX*, const F77_INT&,
303  F77_DBLE*, F77_DBLE_CMPLX*, const F77_INT&,
304  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
305  const F77_INT&, F77_DBLE*,
306  F77_INT *, F77_INT&
308  // GESVD
309 
310  F77_RET_T
311  F77_FUNC (cgesvd, CGESVD) (F77_CONST_CHAR_ARG_DECL,
313  const F77_INT&, const F77_INT&,
314  F77_CMPLX*, const F77_INT&, F77_REAL*,
315  F77_CMPLX*, const F77_INT&,
316  F77_CMPLX*, const F77_INT&,
317  F77_CMPLX*, const F77_INT&,
318  F77_REAL*, F77_INT&
321 
322  F77_RET_T
323  F77_FUNC (dgesvd, DGESVD) (F77_CONST_CHAR_ARG_DECL,
325  const F77_INT&, const F77_INT&,
326  F77_DBLE*, const F77_INT&, F77_DBLE*,
327  F77_DBLE*, const F77_INT&, F77_DBLE*,
328  const F77_INT&, F77_DBLE*,
329  const F77_INT&, F77_INT&
332 
333  F77_RET_T
334  F77_FUNC (sgesvd, SGESVD) (F77_CONST_CHAR_ARG_DECL,
336  const F77_INT&, const F77_INT&,
337  F77_REAL*, const F77_INT&, F77_REAL*,
338  F77_REAL*, const F77_INT&, F77_REAL*,
339  const F77_INT&, F77_REAL*,
340  const F77_INT&, F77_INT&
343 
344  F77_RET_T
345  F77_FUNC (zgesvd, ZGESVD) (F77_CONST_CHAR_ARG_DECL,
347  const F77_INT&, const F77_INT&,
348  F77_DBLE_CMPLX*, const F77_INT&,
349  F77_DBLE*, F77_DBLE_CMPLX*, const F77_INT&,
350  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
351  const F77_INT&, F77_DBLE*, F77_INT&
354 
355  // GEESX
356 
357  typedef octave_idx_type (*double_selector) (const double&, const double&);
358  typedef octave_idx_type (*float_selector) (const float&, const float&);
361 
362  F77_RET_T
363  F77_FUNC (cgeesx, CGEESX) (F77_CONST_CHAR_ARG_DECL,
367  const F77_INT&, F77_CMPLX*,
368  const F77_INT&, F77_INT&,
369  F77_CMPLX*, F77_CMPLX*,
370  const F77_INT&, F77_REAL&, F77_REAL&,
371  F77_CMPLX*, const F77_INT&,
372  F77_REAL*, F77_INT*, F77_INT&
376 
377  F77_RET_T
378  F77_FUNC (dgeesx, DGEESX) (F77_CONST_CHAR_ARG_DECL,
382  const F77_INT&, F77_DBLE*,
383  const F77_INT&, F77_INT&,
384  F77_DBLE*, F77_DBLE*, F77_DBLE*, const F77_INT&,
385  F77_DBLE&, F77_DBLE&, F77_DBLE*, const F77_INT&,
386  F77_INT*, const F77_INT&,
387  F77_INT*, F77_INT&
391 
392  F77_RET_T
393  F77_FUNC (sgeesx, SGEESX) (F77_CONST_CHAR_ARG_DECL,
397  const F77_INT&, F77_REAL*,
398  const F77_INT&, F77_INT&,
399  F77_REAL*, F77_REAL*, F77_REAL*, const F77_INT&,
400  F77_REAL&, F77_REAL&, F77_REAL*, const F77_INT&,
401  F77_INT*, const F77_INT&,
402  F77_INT*, F77_INT&
406 
407  F77_RET_T
408  F77_FUNC (zgeesx, ZGEESX) (F77_CONST_CHAR_ARG_DECL,
412  const F77_INT&, F77_DBLE_CMPLX*,
413  const F77_INT&, F77_INT&,
414  F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, const F77_INT&,
415  F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX*,
416  const F77_INT&, F77_DBLE*,
417  F77_INT*, F77_INT&
421 
422  // GEEVX
423 
424  F77_RET_T
425  F77_FUNC (cgeevx, CGEEVX) (F77_CONST_CHAR_ARG_DECL,
429  const F77_INT&, F77_CMPLX*,
430  const F77_INT&, F77_CMPLX*, F77_CMPLX*,
431  const F77_INT&, F77_CMPLX*,
432  const F77_INT&, F77_INT&,
433  F77_INT&, F77_REAL*, F77_REAL&, F77_REAL*,
434  F77_REAL*, F77_CMPLX*, const F77_INT&,
435  F77_REAL*, F77_INT&
440 
441  F77_RET_T
442  F77_FUNC (dgeevx, DGEEVX) (F77_CONST_CHAR_ARG_DECL,
446  const F77_INT&, F77_DBLE*,
447  const F77_INT&, F77_DBLE*, F77_DBLE*,
448  F77_DBLE*, const F77_INT&, F77_DBLE*,
449  const F77_INT&, F77_INT&,
450  F77_INT&, F77_DBLE*, F77_DBLE&,
451  F77_DBLE*, F77_DBLE*, F77_DBLE*,
452  const F77_INT&, F77_INT*,
453  F77_INT&
458 
459  F77_RET_T
460  F77_FUNC (sgeevx, SGEEVX) (F77_CONST_CHAR_ARG_DECL,
464  const F77_INT&, F77_REAL*,
465  const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*,
466  const F77_INT&, F77_REAL*,
467  const F77_INT&, F77_INT&,
468  F77_INT&, F77_REAL*, F77_REAL&, F77_REAL*,
469  F77_REAL*, F77_REAL*, const F77_INT&,
470  F77_INT*, F77_INT&
475 
476  F77_RET_T
477  F77_FUNC (zgeevx, ZGEEVX) (F77_CONST_CHAR_ARG_DECL,
481  const F77_INT&, F77_DBLE_CMPLX*,
482  const F77_INT&, F77_DBLE_CMPLX*,
483  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
484  const F77_INT&, F77_INT&,
485  F77_INT&, F77_DBLE*, F77_DBLE&,
486  F77_DBLE*, F77_DBLE*, F77_DBLE_CMPLX*,
487  const F77_INT&, F77_DBLE*,
488  F77_INT&
493 
494  // GELSD
495 
496  F77_RET_T
497  F77_FUNC (cgelsd, CGELSD) (const F77_INT&, const F77_INT&,
498  const F77_INT&, F77_CMPLX*,
499  const F77_INT&, F77_CMPLX*,
500  const F77_INT&, F77_REAL*, F77_REAL&,
501  F77_INT&, F77_CMPLX*,
502  const F77_INT&, F77_REAL*,
503  F77_INT*, F77_INT&);
504 
505  F77_RET_T
506  F77_FUNC (dgelsd, DGELSD) (const F77_INT&, const F77_INT&,
507  const F77_INT&, F77_DBLE*,
508  const F77_INT&, F77_DBLE*,
509  const F77_INT&, F77_DBLE*, F77_DBLE&,
510  F77_INT&, F77_DBLE*,
511  const F77_INT&, F77_INT*,
512  F77_INT&);
513 
514  F77_RET_T
515  F77_FUNC (sgelsd, SGELSD) (const F77_INT&, const F77_INT&,
516  const F77_INT&, F77_REAL*,
517  const F77_INT&, F77_REAL*,
518  const F77_INT&, F77_REAL*, F77_REAL&,
519  F77_INT&, F77_REAL*,
520  const F77_INT&, F77_INT*,
521  F77_INT&);
522 
523  F77_RET_T
524  F77_FUNC (zgelsd, ZGELSD) (const F77_INT&, const F77_INT&,
525  const F77_INT&, F77_DBLE_CMPLX*,
526  const F77_INT&, F77_DBLE_CMPLX*,
527  const F77_INT&, F77_DBLE*, F77_DBLE&,
528  F77_INT&, F77_DBLE_CMPLX*,
529  const F77_INT&, F77_DBLE*,
530  F77_INT*, F77_INT&);
531 
532  // GELSY
533 
534  F77_RET_T
535  F77_FUNC (cgelsy, CGELSY) (const F77_INT&, const F77_INT&,
536  const F77_INT&, F77_CMPLX*,
537  const F77_INT&, F77_CMPLX*,
538  const F77_INT&, F77_INT*,
539  F77_REAL&, F77_INT&, F77_CMPLX*,
540  const F77_INT&, F77_REAL*, F77_INT&);
541 
542  F77_RET_T
543  F77_FUNC (dgelsy, DGELSY) (const F77_INT&, const F77_INT&,
544  const F77_INT&, F77_DBLE*,
545  const F77_INT&, F77_DBLE*,
546  const F77_INT&, F77_INT*,
547  F77_DBLE&, F77_INT&, F77_DBLE*,
548  const F77_INT&, F77_INT&);
549 
550  F77_RET_T
551  F77_FUNC (sgelsy, SGELSY) (const F77_INT&, const F77_INT&,
552  const F77_INT&, F77_REAL*,
553  const F77_INT&, F77_REAL*,
554  const F77_INT&, F77_INT*,
555  F77_REAL&, F77_INT&, F77_REAL*,
556  const F77_INT&, F77_INT&);
557 
558  F77_RET_T
559  F77_FUNC (zgelsy, ZGELSY) (const F77_INT&, const F77_INT&,
560  const F77_INT&, F77_DBLE_CMPLX*,
561  const F77_INT&, F77_DBLE_CMPLX*,
562  const F77_INT&, F77_INT*,
563  F77_DBLE&, F77_INT&, F77_DBLE_CMPLX*,
564  const F77_INT&, F77_DBLE*,
565  F77_INT&);
566 
567  // GETRF
568 
569  F77_RET_T
570  F77_FUNC (cgetrf, CGETRF) (const F77_INT&, const F77_INT&,
571  F77_CMPLX*, const F77_INT&,
572  F77_INT*, F77_INT&);
573 
574  F77_RET_T
575  F77_FUNC (dgetrf, DGETRF) (const F77_INT&, const F77_INT&,
576  F77_DBLE*, const F77_INT&,
577  F77_INT*, F77_INT&);
578 
579  F77_RET_T
580  F77_FUNC (sgetrf, SGETRF) (const F77_INT&,
581  const F77_INT&, F77_REAL*,
582  const F77_INT&,
583  F77_INT*, F77_INT&);
584 
585  F77_RET_T
586  F77_FUNC (zgetrf, ZGETRF) (const F77_INT&, const F77_INT&,
587  F77_DBLE_CMPLX*, const F77_INT&,
588  F77_INT*, F77_INT&);
589 
590  // GETRI
591 
592  F77_RET_T
593  F77_FUNC (cgetri, CGETRI) (const F77_INT&, F77_CMPLX*,
594  const F77_INT&, const F77_INT*,
595  F77_CMPLX*, const F77_INT&,
596  F77_INT&);
597 
598  F77_RET_T
599  F77_FUNC (dgetri, DGETRI) (const F77_INT&, F77_DBLE*,
600  const F77_INT&, const F77_INT*,
601  F77_DBLE*, const F77_INT&,
602  F77_INT&);
603 
604  F77_RET_T
605  F77_FUNC (sgetri, SGETRI) (const F77_INT&, F77_REAL*,
606  const F77_INT&, const F77_INT*,
607  F77_REAL*, const F77_INT&, F77_INT&);
608 
609  F77_RET_T
610  F77_FUNC (zgetri, ZGETRI) (const F77_INT&, F77_DBLE_CMPLX*,
611  const F77_INT&, const F77_INT*,
612  F77_DBLE_CMPLX*, const F77_INT&,
613  F77_INT&);
614 
615  // GETRS
616 
617  F77_RET_T
618  F77_FUNC (cgetrs, CGETRS) (F77_CONST_CHAR_ARG_DECL,
619  const F77_INT&, const F77_INT&,
620  F77_CMPLX*, const F77_INT&,
621  const F77_INT*, F77_CMPLX*,
622  const F77_INT&, F77_INT&
624 
625  F77_RET_T
626  F77_FUNC (dgetrs, DGETRS) (F77_CONST_CHAR_ARG_DECL,
627  const F77_INT&, const F77_INT&,
628  const F77_DBLE*, const F77_INT&,
629  const F77_INT*, F77_DBLE*,
630  const F77_INT&, F77_INT&
632 
633  F77_RET_T
634  F77_FUNC (sgetrs, SGETRS) (F77_CONST_CHAR_ARG_DECL,
635  const F77_INT&, const F77_INT&,
636  const F77_REAL*, const F77_INT&,
637  const F77_INT*, F77_REAL*,
638  const F77_INT&, F77_INT&
640 
641  F77_RET_T
642  F77_FUNC (zgetrs, ZGETRS) (F77_CONST_CHAR_ARG_DECL,
643  const F77_INT&, const F77_INT&,
644  F77_DBLE_CMPLX*, const F77_INT&,
645  const F77_INT*, F77_DBLE_CMPLX*,
646  const F77_INT&, F77_INT&
648 
649  // GGBAL
650 
651  F77_RET_T
652  F77_FUNC (cggbal, CGGBAL) (F77_CONST_CHAR_ARG_DECL,
653  const F77_INT& N,
654  F77_CMPLX* A, const F77_INT& LDA,
655  F77_CMPLX* B, const F77_INT& LDB,
656  F77_INT& ILO, F77_INT& IHI,
657  F77_REAL* LSCALE, F77_REAL* RSCALE,
658  F77_REAL* WORK, F77_INT& INFO
660 
661  F77_RET_T
662  F77_FUNC (dggbal, DGGBAL) (F77_CONST_CHAR_ARG_DECL,
663  const F77_INT& N, F77_DBLE* A,
664  const F77_INT& LDA, F77_DBLE* B,
665  const F77_INT& LDB, F77_INT& ILO,
666  F77_INT& IHI, F77_DBLE* LSCALE,
667  F77_DBLE* RSCALE, F77_DBLE* WORK,
668  F77_INT& INFO
670 
671  F77_RET_T
672  F77_FUNC (sggbal, SGGBAL) (F77_CONST_CHAR_ARG_DECL,
673  const F77_INT& N, F77_REAL* A,
674  const F77_INT& LDA, F77_REAL* B,
675  const F77_INT& LDB,
676  F77_INT& ILO, F77_INT& IHI,
677  F77_REAL* LSCALE, F77_REAL* RSCALE,
678  F77_REAL* WORK, F77_INT& INFO
680 
681  F77_RET_T
682  F77_FUNC (zggbal, ZGGBAL) (F77_CONST_CHAR_ARG_DECL,
683  const F77_INT& N, F77_DBLE_CMPLX* A,
684  const F77_INT& LDA, F77_DBLE_CMPLX* B,
685  const F77_INT& LDB, F77_INT& ILO,
686  F77_INT& IHI, F77_DBLE* LSCALE,
687  F77_DBLE* RSCALE, F77_DBLE* WORK,
688  F77_INT& INFO
690 
691  // GGBAK
692 
693  F77_RET_T
694  F77_FUNC (dggbak, DGGBAK) (F77_CONST_CHAR_ARG_DECL,
696  const F77_INT& N,
697  const F77_INT& ILO,
698  const F77_INT& IHI,
699  const F77_DBLE* LSCALE, const F77_DBLE* RSCALE,
700  F77_INT& M, F77_DBLE* V,
701  const F77_INT& LDV, F77_INT& INFO
704 
705  F77_RET_T
706  F77_FUNC (sggbak, SGGBAK) (F77_CONST_CHAR_ARG_DECL,
708  const F77_INT& N,
709  const F77_INT& ILO,
710  const F77_INT& IHI,
711  const F77_REAL* LSCALE, const F77_REAL* RSCALE,
712  F77_INT& M, F77_REAL* V,
713  const F77_INT& LDV, F77_INT& INFO
716 
717  F77_RET_T
718  F77_FUNC (zggbak, ZGGBAK) (F77_CONST_CHAR_ARG_DECL,
720  const F77_INT& N,
721  const F77_INT& ILO,
722  const F77_INT& IHI,
723  const F77_DBLE* LSCALE, const F77_DBLE* RSCALE,
724  F77_INT& M, F77_DBLE_CMPLX* V,
725  const F77_INT& LDV, F77_INT& INFO
728 
729  // GGEV
730 
731  F77_RET_T
732  F77_FUNC (cggev, CGGEV) (F77_CONST_CHAR_ARG_DECL,
734  const F77_INT&, F77_CMPLX*,
735  const F77_INT&, F77_CMPLX*,
736  const F77_INT&, F77_CMPLX*,
737  F77_CMPLX*, F77_CMPLX*,
738  const F77_INT&, F77_CMPLX*,
739  const F77_INT&, F77_CMPLX*,
740  const F77_INT&, F77_REAL*, F77_INT&
743 
744  F77_RET_T
745  F77_FUNC (dggev, DGGEV) (F77_CONST_CHAR_ARG_DECL,
747  const F77_INT&,
748  F77_DBLE*, const F77_INT&,
749  F77_DBLE*, const F77_INT&,
750  F77_DBLE*, F77_DBLE*, F77_DBLE *, F77_DBLE*,
751  const F77_INT&, F77_DBLE*,
752  const F77_INT&, F77_DBLE*,
753  const F77_INT&, F77_INT&
756 
757  F77_RET_T
758  F77_FUNC (sggev, SGGEV) (F77_CONST_CHAR_ARG_DECL,
760  const F77_INT&, F77_REAL*,
761  const F77_INT&, F77_REAL*,
762  const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*,
763  F77_REAL*, const F77_INT&, F77_REAL*,
764  const F77_INT&, F77_REAL*,
765  const F77_INT&, F77_INT&
768 
769  F77_RET_T
770  F77_FUNC (zggev, ZGGEV) (F77_CONST_CHAR_ARG_DECL,
772  const F77_INT&,
773  F77_DBLE_CMPLX*, const F77_INT&,
774  F77_DBLE_CMPLX*, const F77_INT&,
775  F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
776  const F77_INT&, F77_DBLE_CMPLX*,
777  const F77_INT&, F77_DBLE_CMPLX*,
778  const F77_INT&, F77_DBLE*, F77_INT&
781 
782  // GGHRD
783 
784  F77_RET_T
785  F77_FUNC (dgghrd, DGGHRD) (F77_CONST_CHAR_ARG_DECL,
787  const F77_INT& N,
788  const F77_INT& ILO,
789  const F77_INT& IHI, F77_DBLE* A,
790  const F77_INT& LDA, F77_DBLE* B,
791  const F77_INT& LDB, F77_DBLE* Q,
792  const F77_INT& LDQ, F77_DBLE* Z,
793  const F77_INT& LDZ, F77_INT& INFO
796 
797  F77_RET_T
798  F77_FUNC (zgghrd, ZGGHRD) (F77_CONST_CHAR_ARG_DECL,
800  const F77_INT& N,
801  const F77_INT& ILO,
802  const F77_INT& IHI, F77_DBLE_CMPLX* A,
803  const F77_INT& LDA, F77_DBLE_CMPLX* B,
804  const F77_INT& LDB, F77_DBLE_CMPLX* Q,
805  const F77_INT& LDQ, F77_DBLE_CMPLX* Z,
806  const F77_INT& LDZ, F77_INT& INFO
809 
810  // GTSV
811 
812  F77_RET_T
813  F77_FUNC (dgtsv, DGTSV) (const F77_INT&, const F77_INT&,
814  F77_DBLE*, F77_DBLE*, F77_DBLE*, F77_DBLE*,
815  const F77_INT&, F77_INT&);
816 
817  F77_RET_T
818  F77_FUNC (zgtsv, ZGTSV) (const F77_INT&, const F77_INT&,
819  F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
820  F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
821  const F77_INT&, F77_INT&);
822 
823  // GTTRF
824 
825  F77_RET_T
826  F77_FUNC (dgttrf, DGTTRF) (const F77_INT&, F77_DBLE*, F77_DBLE*,
827  F77_DBLE*, F77_DBLE*, F77_INT*,
828  F77_INT&);
829 
830  F77_RET_T
831  F77_FUNC (zgttrf, ZGTTRF) (const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
832  F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_INT*,
833  F77_INT&);
834 
835  // GTTRS
836 
837  F77_RET_T
838  F77_FUNC (dgttrs, DGTTRS) (F77_CONST_CHAR_ARG_DECL,
839  const F77_INT&, const F77_INT&,
840  const F77_DBLE*, const F77_DBLE*,
841  const F77_DBLE*, const F77_DBLE*,
842  const F77_INT*, F77_DBLE *,
843  const F77_INT&, F77_INT&
845 
846  F77_RET_T
847  F77_FUNC (zgttrs, ZGTTRS) (F77_CONST_CHAR_ARG_DECL,
848  const F77_INT&, const F77_INT&,
849  const F77_DBLE_CMPLX*, const F77_DBLE_CMPLX*,
850  const F77_DBLE_CMPLX*, const F77_DBLE_CMPLX*,
851  const F77_INT*, F77_DBLE_CMPLX *,
852  const F77_INT&, F77_INT&
854 
855  // HEEV
856 
857  F77_RET_T
858  F77_FUNC (cheev, CHEEV) (F77_CONST_CHAR_ARG_DECL,
860  const F77_INT&, F77_CMPLX*,
861  const F77_INT&, F77_REAL*, F77_CMPLX*,
862  const F77_INT&, F77_REAL*, F77_INT&
865 
866  F77_RET_T
867  F77_FUNC (zheev, ZHEEV) (F77_CONST_CHAR_ARG_DECL,
869  const F77_INT&, F77_DBLE_CMPLX*,
870  const F77_INT&, F77_DBLE*,
871  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE*,
872  F77_INT&
875 
876  // HEGV
877 
878  F77_RET_T
879  F77_FUNC (chegv, CHEGV) (const F77_INT&,
882  const F77_INT&, F77_CMPLX*,
883  const F77_INT&, F77_CMPLX*,
884  const F77_INT&, F77_REAL*, F77_CMPLX*,
885  const F77_INT&, F77_REAL*, F77_INT&
888 
889  F77_RET_T
890  F77_FUNC (zhegv, ZHEGV) (const F77_INT&,
893  const F77_INT&, F77_DBLE_CMPLX*,
894  const F77_INT&, F77_DBLE_CMPLX*,
895  const F77_INT&, F77_DBLE*, F77_DBLE_CMPLX*,
896  const F77_INT&, F77_DBLE*, F77_INT&
899 
900  // HERK
901 
902  F77_RET_T
903  F77_FUNC (cherk, CHERK) (F77_CONST_CHAR_ARG_DECL,
905  const F77_INT&, const F77_INT&,
906  const F77_REAL&, const F77_CMPLX*,
907  const F77_INT&, const F77_REAL&,
908  F77_CMPLX*, const F77_INT&
911 
912  F77_RET_T
913  F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL,
915  const F77_INT&, const F77_INT&,
916  const F77_DBLE&, const F77_DBLE_CMPLX*,
917  const F77_INT&, const F77_DBLE&, F77_DBLE_CMPLX*,
918  const F77_INT&
921 
922  // HGEQZ
923 
924  F77_RET_T
925  F77_FUNC (dhgeqz, DHGEQZ) (F77_CONST_CHAR_ARG_DECL,
928  const F77_INT& N,
929  const F77_INT& ILO,
930  const F77_INT& IHI,
931  F77_DBLE* A, const F77_INT& LDA, F77_DBLE* B,
932  const F77_INT& LDB, F77_DBLE* ALPHAR,
933  F77_DBLE* ALPHAI, F77_DBLE* BETA, F77_DBLE* Q,
934  const F77_INT& LDQ, F77_DBLE* Z,
935  const F77_INT& LDZ, F77_DBLE* WORK,
936  const F77_INT& LWORK,
937  F77_INT& INFO
941 
942  F77_RET_T
943  F77_FUNC (zhgeqz, ZHGEQZ) (F77_CONST_CHAR_ARG_DECL,
946  const F77_INT& N,
947  const F77_INT& ILO,
948  const F77_INT& IHI,
949  F77_DBLE_CMPLX* A, const F77_INT& LDA,
950  F77_DBLE_CMPLX* B, const F77_INT& LDB,
951  F77_DBLE_CMPLX* ALPHA, F77_DBLE_CMPLX* BETA,
952  F77_DBLE_CMPLX* CQ, const F77_INT& LDQ,
953  F77_DBLE_CMPLX* CZ, const F77_INT& LDZ,
954  F77_DBLE_CMPLX* WORK, const F77_INT& LWORK,
955  F77_DBLE* RWORK, F77_INT& INFO
959 
960  // LAENV (liboctave/cruft/lapack-xtra)
961 
962  F77_RET_T
963  F77_FUNC (xilaenv, XILAENV) (const F77_INT&,
966  const F77_INT&, const F77_INT&,
967  const F77_INT&, const F77_INT&,
968  F77_INT&
971 
972  // LAG2
973 
974  F77_RET_T
975  F77_FUNC (dlag2, DLAG2) (const F77_DBLE* A, const F77_INT& LDA,
976  const F77_DBLE* B, const F77_INT& LDB,
977  const F77_DBLE& SAFMIN, F77_DBLE& SCALE1,
978  F77_DBLE& SCALE2, F77_DBLE& WR1, F77_DBLE& WR2,
979  F77_DBLE& WI);
980 
981  // LAMCH (liboctave/cruft/lapack-xtra)
982 
983  F77_RET_T
985  F77_DBLE& retval
987 
988  // LANGE (liboctave/cruft/lapack-xtra)
989 
990  F77_RET_T
992  const F77_INT&, const F77_INT&,
993  const F77_CMPLX*, const F77_INT&,
994  F77_REAL*, F77_REAL&
996 
997  F77_RET_T
999  const F77_INT&, const F77_INT&,
1000  const F77_DBLE*, const F77_INT&,
1001  F77_DBLE*, F77_DBLE&
1003 
1004  F77_RET_T
1006  const F77_INT&,
1007  const F77_INT&, const F77_REAL*,
1008  const F77_INT&, F77_REAL*, F77_REAL&
1010 
1011  F77_RET_T
1013  const F77_INT&, const F77_INT&,
1014  const F77_DBLE_CMPLX*, const F77_INT&,
1015  F77_DBLE*, F77_DBLE&
1017  // LARTG
1018 
1019  F77_RET_T
1020  F77_FUNC (clartg, CLARTG) (const F77_CMPLX*, const F77_CMPLX*,
1021  F77_REAL&, F77_CMPLX*, F77_CMPLX*);
1022 
1023  F77_RET_T
1024  F77_FUNC (dlartg, DLARTG) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&,
1025  F77_DBLE&, F77_DBLE&);
1026 
1027  F77_RET_T
1028  F77_FUNC (slartg, SLARTG) (const F77_REAL&, const F77_REAL&, F77_REAL&,
1029  F77_REAL&, F77_REAL&);
1030 
1031  F77_RET_T
1032  F77_FUNC (zlartg, ZLARTG) (const F77_DBLE_CMPLX*, const F77_DBLE_CMPLX*,
1033  F77_DBLE&,
1034  F77_DBLE_CMPLX*, F77_DBLE_CMPLX*);
1035 
1036  // ORGHR
1037 
1038  F77_RET_T
1039  F77_FUNC (dorghr, DORGHR) (const F77_INT&, const F77_INT&,
1040  const F77_INT&, F77_DBLE*,
1041  const F77_INT&, F77_DBLE*, F77_DBLE*,
1042  const F77_INT&, F77_INT&);
1043 
1044  F77_RET_T
1045  F77_FUNC (sorghr, SORGHR) (const F77_INT&, const F77_INT&,
1046  const F77_INT&, F77_REAL*,
1047  const F77_INT&, F77_REAL*, F77_REAL*,
1048  const F77_INT&, F77_INT&);
1049 
1050  // ORGQR
1051 
1052  F77_RET_T
1053  F77_FUNC (dorgqr, DORGQR) (const F77_INT&, const F77_INT&,
1054  const F77_INT&, F77_DBLE*,
1055  const F77_INT&, F77_DBLE*, F77_DBLE*,
1056  const F77_INT&, F77_INT&);
1057 
1058  F77_RET_T
1059  F77_FUNC (sorgqr, SORGQR) (const F77_INT&, const F77_INT&,
1060  const F77_INT&, F77_REAL*,
1061  const F77_INT&, F77_REAL*, F77_REAL*,
1062  const F77_INT&, F77_INT&);
1063 
1064  // PBCON
1065 
1066  F77_RET_T
1067  F77_FUNC (dpbcon, DPBCON) (F77_CONST_CHAR_ARG_DECL,
1068  const F77_INT&, const F77_INT&,
1069  F77_DBLE*, const F77_INT&,
1070  const F77_DBLE&, F77_DBLE&, F77_DBLE*,
1071  F77_INT*, F77_INT&
1073 
1074  F77_RET_T
1075  F77_FUNC (zpbcon, ZPBCON) (F77_CONST_CHAR_ARG_DECL,
1076  const F77_INT&, const F77_INT&,
1077  F77_DBLE_CMPLX*, const F77_INT&, const F77_DBLE&,
1078  F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
1080 
1081  // PBTRF
1082 
1083  F77_RET_T
1084  F77_FUNC (dpbtrf, DPBTRF) (F77_CONST_CHAR_ARG_DECL,
1085  const F77_INT&, const F77_INT&,
1086  F77_DBLE*, const F77_INT&, F77_INT&
1088 
1089  F77_RET_T
1090  F77_FUNC (zpbtrf, ZPBTRF) (F77_CONST_CHAR_ARG_DECL,
1091  const F77_INT&, const F77_INT&,
1092  F77_DBLE_CMPLX*, const F77_INT&, F77_INT&
1094 
1095  // PBTRS
1096 
1097  F77_RET_T
1098  F77_FUNC (dpbtrs, DPBTRS) (F77_CONST_CHAR_ARG_DECL,
1099  const F77_INT&, const F77_INT&,
1100  const F77_INT&, F77_DBLE*,
1101  const F77_INT&, F77_DBLE*,
1102  const F77_INT&, F77_INT&
1104 
1105  F77_RET_T
1106  F77_FUNC (zpbtrs, ZPBTRS) (F77_CONST_CHAR_ARG_DECL,
1107  const F77_INT&, const F77_INT&,
1108  const F77_INT&, F77_DBLE_CMPLX*,
1109  const F77_INT&, F77_DBLE_CMPLX*,
1110  const F77_INT&, F77_INT&
1112 
1113  // POCON
1114 
1115  F77_RET_T
1116  F77_FUNC (cpocon, CPOCON) (F77_CONST_CHAR_ARG_DECL,
1117  const F77_INT&, F77_CMPLX*,
1118  const F77_INT&, const F77_REAL&, F77_REAL&,
1119  F77_CMPLX*, F77_REAL*, F77_INT&
1121 
1122  F77_RET_T
1123  F77_FUNC (dpocon, DPOCON) (F77_CONST_CHAR_ARG_DECL,
1124  const F77_INT&, F77_DBLE*,
1125  const F77_INT&, const F77_DBLE&,
1126  F77_DBLE&, F77_DBLE*, F77_INT*,
1127  F77_INT&
1129 
1130  F77_RET_T
1131  F77_FUNC (spocon, SPOCON) (F77_CONST_CHAR_ARG_DECL,
1132  const F77_INT&, F77_REAL*,
1133  const F77_INT&, const F77_REAL&,
1134  F77_REAL&, F77_REAL*, F77_INT*,
1135  F77_INT&
1137 
1138  F77_RET_T
1139  F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL,
1140  const F77_INT&, F77_DBLE_CMPLX*,
1141  const F77_INT&, const F77_DBLE&,
1142  F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
1144 
1145  // POTRF
1146 
1147  F77_RET_T
1148  F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL,
1149  const F77_INT&, F77_CMPLX*,
1150  const F77_INT&, F77_INT&
1152 
1153  F77_RET_T
1154  F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL,
1155  const F77_INT&, F77_DBLE*,
1156  const F77_INT&, F77_INT&
1158 
1159  F77_RET_T
1160  F77_FUNC (spotrf, SPOTRF) (F77_CONST_CHAR_ARG_DECL,
1161  const F77_INT&, F77_REAL*,
1162  const F77_INT&, F77_INT&
1164 
1165  F77_RET_T
1166  F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL,
1167  const F77_INT&, F77_DBLE_CMPLX*,
1168  const F77_INT&, F77_INT&
1170 
1171  // POTRI
1172 
1173  F77_RET_T
1174  F77_FUNC (cpotri, CPOTRI) (F77_CONST_CHAR_ARG_DECL,
1175  const F77_INT&, F77_CMPLX*,
1176  const F77_INT&, F77_INT&
1178 
1179  F77_RET_T
1180  F77_FUNC (dpotri, DPOTRI) (F77_CONST_CHAR_ARG_DECL,
1181  const F77_INT&, F77_DBLE*,
1182  const F77_INT&, F77_INT&
1184 
1185  F77_RET_T
1186  F77_FUNC (spotri, SPOTRI) (F77_CONST_CHAR_ARG_DECL,
1187  const F77_INT&, F77_REAL*,
1188  const F77_INT&, F77_INT&
1190 
1191  F77_RET_T
1192  F77_FUNC (zpotri, ZPOTRI) (F77_CONST_CHAR_ARG_DECL,
1193  const F77_INT&, F77_DBLE_CMPLX*,
1194  const F77_INT&, F77_INT&
1196 
1197  // POTRS
1198 
1199  F77_RET_T
1200  F77_FUNC (spotrs, SPOTRS) (F77_CONST_CHAR_ARG_DECL,
1201  const F77_INT&, const F77_INT&,
1202  const F77_REAL*, const F77_INT&, F77_REAL*,
1203  const F77_INT&, F77_INT&
1205 
1206  F77_RET_T
1207  F77_FUNC (cpotrs, CPOTRS) (F77_CONST_CHAR_ARG_DECL,
1208  const F77_INT&,
1209  const F77_INT&, const F77_CMPLX*,
1210  const F77_INT&, F77_CMPLX*,
1211  const F77_INT&, F77_INT&
1213 
1214  F77_RET_T
1215  F77_FUNC (dpotrs, DPOTRS) (F77_CONST_CHAR_ARG_DECL,
1216  const F77_INT&, const F77_INT&,
1217  const F77_DBLE*, const F77_INT&, F77_DBLE*,
1218  const F77_INT&, F77_INT&
1220 
1221  F77_RET_T
1222  F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL,
1223  const F77_INT&, const F77_INT&,
1224  const F77_DBLE_CMPLX*, const F77_INT&,
1225  F77_DBLE_CMPLX*, const F77_INT&, F77_INT&
1227 
1228  // PTSV
1229 
1230  F77_RET_T
1231  F77_FUNC (dptsv, DPTSV) (const F77_INT&, const F77_INT&,
1232  F77_DBLE*, F77_DBLE*, F77_DBLE*, const F77_INT&,
1233  F77_INT&);
1234 
1235  F77_RET_T
1236  F77_FUNC (zptsv, ZPTSV) (const F77_INT&, const F77_INT&,
1237  F77_DBLE*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
1238  const F77_INT&, F77_INT&);
1239 
1240  // RSF2CSF (liboctave/cruft/lapack-xtra)
1241 
1242  F77_RET_T
1243  F77_FUNC (zrsf2csf, ZRSF2CSF) (const F77_INT&, F77_DBLE_CMPLX *,
1244  F77_DBLE_CMPLX *, F77_DBLE *, F77_DBLE *);
1245 
1246  F77_RET_T
1247  F77_FUNC (crsf2csf, CRSF2CSF) (const F77_INT&, F77_CMPLX *,
1248  F77_CMPLX *, F77_REAL *, F77_REAL *);
1249 
1250  // SYEV
1251 
1252  F77_RET_T
1253  F77_FUNC (dsyev, DSYEV) (F77_CONST_CHAR_ARG_DECL,
1255  const F77_INT&, F77_DBLE*,
1256  const F77_INT&, F77_DBLE*, F77_DBLE*,
1257  const F77_INT&, F77_INT&
1260 
1261  F77_RET_T
1262  F77_FUNC (ssyev, SSYEV) (F77_CONST_CHAR_ARG_DECL,
1264  const F77_INT&, F77_REAL*,
1265  const F77_INT&, F77_REAL*, F77_REAL*,
1266  const F77_INT&, F77_INT&
1269 
1270  // SYGV
1271 
1272  F77_RET_T
1273  F77_FUNC (dsygv, DSYGV) (const F77_INT&,
1276  const F77_INT&, F77_DBLE*,
1277  const F77_INT&, F77_DBLE*,
1278  const F77_INT&, F77_DBLE*, F77_DBLE*,
1279  const F77_INT&, F77_INT&
1282 
1283  F77_RET_T
1284  F77_FUNC (ssygv, SSYGV) (const F77_INT&,
1287  const F77_INT&, F77_REAL*,
1288  const F77_INT&, F77_REAL*,
1289  const F77_INT&, F77_REAL*, F77_REAL*,
1290  const F77_INT&, F77_INT&
1293 
1294  // SYRK
1295 
1296  F77_RET_T
1297  F77_FUNC (csyrk, CSYRK) (F77_CONST_CHAR_ARG_DECL,
1299  const F77_INT&, const F77_INT&,
1300  const F77_CMPLX&, const F77_CMPLX*,
1301  const F77_INT&, const F77_CMPLX&,
1302  F77_CMPLX*, const F77_INT&
1305 
1306  F77_RET_T
1307  F77_FUNC (dsyrk, DSYRK) (F77_CONST_CHAR_ARG_DECL,
1309  const F77_INT&, const F77_INT&,
1310  const F77_DBLE&, const F77_DBLE*, const F77_INT&,
1311  const F77_DBLE&, F77_DBLE*, const F77_INT&
1314 
1315  F77_RET_T
1316  F77_FUNC (ssyrk, SSYRK) (F77_CONST_CHAR_ARG_DECL,
1318  const F77_INT&, const F77_INT&,
1319  const F77_REAL&, const F77_REAL*, const F77_INT&,
1320  const F77_REAL&, F77_REAL*, const F77_INT&
1323 
1324  F77_RET_T
1325  F77_FUNC (zsyrk, ZSYRK) (F77_CONST_CHAR_ARG_DECL,
1327  const F77_INT&, const F77_INT&,
1328  const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX*,
1329  const F77_INT&, const F77_DBLE_CMPLX&,
1330  F77_DBLE_CMPLX*, const F77_INT&
1333 
1334  // TGEVC
1335 
1336  // Documentation for DTGEVC incorrectly states that VR, VL are
1337  // complex*16; they are declared in DTGEVC as double precision
1338  // (probably a cut and paste problem fro ZTGEVC).
1339  F77_RET_T
1340  F77_FUNC (dtgevc, DTGEVC) (F77_CONST_CHAR_ARG_DECL,
1342  F77_INT* SELECT,
1343  const F77_INT& N, F77_DBLE* A,
1344  const F77_INT& LDA, F77_DBLE* B,
1345  const F77_INT& LDB, F77_DBLE* VL,
1346  const F77_INT& LDVL, F77_DBLE* VR,
1347  const F77_INT& LDVR,
1348  const F77_INT& MM, F77_INT& M,
1349  F77_DBLE* WORK, F77_INT& INFO
1352 
1353  F77_RET_T
1354  F77_FUNC (ztgevc, ZTGEVC) (F77_CONST_CHAR_ARG_DECL,
1356  F77_INT* SELECT,
1357  const F77_INT& N, const F77_DBLE_CMPLX* A,
1358  const F77_INT& LDA,const F77_DBLE_CMPLX* B,
1359  const F77_INT& LDB, F77_DBLE_CMPLX* xVL,
1360  const F77_INT& LDVL, F77_DBLE_CMPLX* xVR,
1361  const F77_INT& LDVR,
1362  const F77_INT& MM, F77_INT& M,
1363  F77_DBLE_CMPLX* CWORK, F77_DBLE* RWORK,
1364  F77_INT& INFO
1367 
1368  // TRCON
1369 
1370  F77_RET_T
1371  F77_FUNC (ctrcon, CTRCON) (F77_CONST_CHAR_ARG_DECL,
1374  const F77_INT&, const F77_CMPLX*,
1375  const F77_INT&, F77_REAL&, F77_CMPLX*,
1376  F77_REAL*, F77_INT&
1380 
1381  F77_RET_T
1382  F77_FUNC (dtrcon, DTRCON) (F77_CONST_CHAR_ARG_DECL,
1385  const F77_INT&, const F77_DBLE*,
1386  const F77_INT&, F77_DBLE&,
1387  F77_DBLE*, F77_INT*, F77_INT&
1391  F77_RET_T
1392  F77_FUNC (strcon, STRCON) (F77_CONST_CHAR_ARG_DECL,
1395  const F77_INT&, const F77_REAL*,
1396  const F77_INT&, F77_REAL&,
1397  F77_REAL*, F77_INT*, F77_INT&
1401 
1402  F77_RET_T
1403  F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL,
1406  const F77_INT&, const F77_DBLE_CMPLX*,
1407  const F77_INT&, F77_DBLE&,
1408  F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
1412 
1413  // TRSEN
1414 
1415  F77_RET_T
1417  const F77_INT*, const F77_INT&,
1418  F77_CMPLX*, const F77_INT&, F77_CMPLX*,
1419  const F77_INT&, F77_CMPLX*, F77_INT&,
1420  F77_REAL&, F77_REAL&, F77_CMPLX*,
1421  const F77_INT&, F77_INT &);
1422 
1423  F77_RET_T
1425  const F77_INT*, const F77_INT&,
1426  F77_DBLE*, const F77_INT&, F77_DBLE*,
1427  const F77_INT&, F77_DBLE*, F77_DBLE*,
1428  F77_INT&, F77_DBLE&, F77_DBLE&, F77_DBLE*,
1429  const F77_INT&, F77_INT*,
1430  const F77_INT&, F77_INT&);
1431 
1432  F77_RET_T
1434  const F77_INT*, const F77_INT&,
1435  F77_REAL*, const F77_INT&, F77_REAL*,
1436  const F77_INT&, F77_REAL*, F77_REAL*,
1437  F77_INT&, F77_REAL&, F77_REAL&, F77_REAL*,
1438  const F77_INT&, F77_INT*,
1439  const F77_INT&, F77_INT&);
1440 
1441  F77_RET_T
1443  const F77_INT*, const F77_INT&,
1444  F77_DBLE_CMPLX*, const F77_INT&,
1445  F77_DBLE_CMPLX*, const F77_INT&,
1446  F77_DBLE_CMPLX*, F77_INT&, F77_DBLE&,
1447  F77_DBLE&, F77_DBLE_CMPLX*,
1448  const F77_INT&, F77_INT &);
1449 
1450  // TRSYL
1451 
1452  F77_RET_T
1453  F77_FUNC (ctrsyl, CTRSYL) (F77_CONST_CHAR_ARG_DECL,
1455  const F77_INT&, const F77_INT&,
1456  const F77_INT&, const F77_CMPLX*,
1457  const F77_INT&, const F77_CMPLX*,
1458  const F77_INT&, const F77_CMPLX*,
1459  const F77_INT&, F77_REAL&, F77_INT&
1462 
1463  F77_RET_T
1464  F77_FUNC (dtrsyl, DTRSYL) (F77_CONST_CHAR_ARG_DECL,
1466  const F77_INT&, const F77_INT&,
1467  const F77_INT&, const F77_DBLE*,
1468  const F77_INT&, const F77_DBLE*,
1469  const F77_INT&, const F77_DBLE*,
1470  const F77_INT&, F77_DBLE&, F77_INT&
1473 
1474  F77_RET_T
1475  F77_FUNC (strsyl, STRSYL) (F77_CONST_CHAR_ARG_DECL,
1477  const F77_INT&, const F77_INT&,
1478  const F77_INT&, const F77_REAL*,
1479  const F77_INT&, const F77_REAL*,
1480  const F77_INT&, const F77_REAL*,
1481  const F77_INT&, F77_REAL&, F77_INT&
1484 
1485  F77_RET_T
1486  F77_FUNC (ztrsyl, ZTRSYL) (F77_CONST_CHAR_ARG_DECL,
1488  const F77_INT&, const F77_INT&,
1489  const F77_INT&, const F77_DBLE_CMPLX*,
1490  const F77_INT&, const F77_DBLE_CMPLX*,
1491  const F77_INT&, const F77_DBLE_CMPLX*,
1492  const F77_INT&, F77_DBLE&, F77_INT&
1495 
1496  // TRTRI
1497 
1498  F77_RET_T
1499  F77_FUNC (ctrtri, CTRTRI) (F77_CONST_CHAR_ARG_DECL,
1501  const F77_INT&, const F77_CMPLX*,
1502  const F77_INT&, F77_INT&
1505 
1506  F77_RET_T
1507  F77_FUNC (dtrtri, DTRTRI) (F77_CONST_CHAR_ARG_DECL,
1509  const F77_INT&, const F77_DBLE*,
1510  const F77_INT&, F77_INT&
1513 
1514  F77_RET_T
1515  F77_FUNC (strtri, STRTRI) (F77_CONST_CHAR_ARG_DECL,
1517  const F77_INT&, const F77_REAL*,
1518  const F77_INT&, F77_INT&
1521 
1522  F77_RET_T
1523  F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL,
1525  const F77_INT&, const F77_DBLE_CMPLX*,
1526  const F77_INT&, F77_INT&
1529 
1530  // TRTRS
1531 
1532  F77_RET_T
1533  F77_FUNC (ctrtrs, CTRTRS) (F77_CONST_CHAR_ARG_DECL,
1536  const F77_INT&, const F77_INT&,
1537  const F77_CMPLX*, const F77_INT&,
1538  F77_CMPLX*, const F77_INT&,
1539  F77_INT&
1543 
1544  F77_RET_T
1545  F77_FUNC (dtrtrs, DTRTRS) (F77_CONST_CHAR_ARG_DECL,
1548  const F77_INT&, const F77_INT&,
1549  const F77_DBLE*, const F77_INT&, F77_DBLE*,
1550  const F77_INT&, F77_INT&
1554 
1555  F77_RET_T
1556  F77_FUNC (strtrs, STRTRS) (F77_CONST_CHAR_ARG_DECL,
1559  const F77_INT&,
1560  const F77_INT&, const F77_REAL*,
1561  const F77_INT&, F77_REAL*,
1562  const F77_INT&, F77_INT&
1566 
1567  F77_RET_T
1568  F77_FUNC (ztrtrs, ZTRTRS) (F77_CONST_CHAR_ARG_DECL,
1571  const F77_INT&, const F77_INT&,
1572  const F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
1573  const F77_INT&, F77_INT&
1577 
1578  // UNGHR
1579 
1580  F77_RET_T
1581  F77_FUNC (cunghr, CUNGHR) (const F77_INT&, const F77_INT&,
1582  const F77_INT&, F77_CMPLX*,
1583  const F77_INT&, F77_CMPLX*,
1584  F77_CMPLX*, const F77_INT&,
1585  F77_INT&);
1586 
1587  F77_RET_T
1588  F77_FUNC (zunghr, ZUNGHR) (const F77_INT&, const F77_INT&,
1589  const F77_INT&, F77_DBLE_CMPLX*,
1590  const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
1591  const F77_INT&, F77_INT&);
1592  // UNGQR
1593 
1594  F77_RET_T
1595  F77_FUNC (cungqr, CUNGQR) (const F77_INT&, const F77_INT&,
1596  const F77_INT&, F77_CMPLX*,
1597  const F77_INT&, F77_CMPLX*,
1598  F77_CMPLX*, const F77_INT&,
1599  F77_INT&);
1600 
1601  F77_RET_T
1602  F77_FUNC (zungqr, ZUNGQR) (const F77_INT&, const F77_INT&,
1603  const F77_INT&, F77_DBLE_CMPLX*,
1604  const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
1605  const F77_INT&, F77_INT&);
1606 }
1607 
1608 #endif
octave_idx_type(* float_complex_selector)(const FloatComplex &)
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
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT F77_DBLE * V
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
subroutine xdlamch(cmach, retval)
Definition: xdlamch.f:1
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WR2
subroutine xslange(norm, m, n, a, lda, work, retval)
Definition: xslange.f:1
subroutine xclange(NORM, M, N, A, LDA, WORK, VALUE)
Definition: xclange.f:9
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
subroutine xdlange(norm, m, n, a, lda, work, retval)
Definition: xdlange.f:1
F77_RET_T F77_INT * SELECT
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
subroutine xilaenv(ispec, name, opts, n1, n2, n3, n4, retval)
Definition: xilaenv.f:1
subroutine zrsf2csf(n, t, u, c, s)
Definition: zrsf2csf.f:22
subroutine xzlange(NORM, M, N, A, LDA, WORK, VALUE)
Definition: xzlange.f:9
subroutine crsf2csf(n, t, u, c, s)
Definition: crsf2csf.f:22
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT & M
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
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
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
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE & SAFMIN
#define F77_REAL
Definition: f77-fcn.h:332
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX * B
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
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
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
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT & LDB
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
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDVL
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE & SCALE1
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * VL
#define F77_CMPLX
Definition: f77-fcn.h:334
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE & SCALE2
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
F77_RET_T const F77_INT & N
octave_value retval
Definition: data.cc:6294
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
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT & ILO
#define F77_INT
Definition: f77-fcn.h:335
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
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
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
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
octave_idx_type(* float_selector)(const float &, const float &)
octave_idx_type(* complex_selector)(const Complex &)
F77_RET_T F77_CONST_CHAR_ARG_DECL
F77_RET_T const F77_INT F77_CMPLX const F77_INT & LDA
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
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
#define F77_DBLE_CMPLX
Definition: f77-fcn.h:333
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
std::complex< float > FloatComplex
Definition: oct-cmplx.h:32
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT & IHI
std::complex< double > Complex
Definition: oct-cmplx.h:31
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT F77_REAL * LSCALE
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
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
#define F77_DBLE
Definition: f77-fcn.h:331
octave_idx_type(* double_selector)(const double &, const double &)
F77_RET_T F77_FUNC(dgbcon, DGBCON)(F77_CONST_CHAR_ARG_DECL
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WR1
F77_RET_T const F77_INT F77_CMPLX * A
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