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