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