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