23 #if ! defined (octave_lo_lapack_proto_h)
24 #define octave_lo_lapack_proto_h 1
26 #include "octave-config.h"
39 const F77_INT&,
const F77_INT*,
40 const F77_DBLE&, F77_DBLE&, F77_DBLE*,
46 const F77_INT&,
const F77_INT&,
48 const F77_INT&,
const F77_INT*,
49 const F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*,
56 F77_FUNC (dgbtrf, DGBTRF) (
const F77_INT&,
const F77_INT&,
57 const F77_INT&,
const F77_INT&,
58 F77_DBLE*,
const F77_INT&,
62 F77_FUNC (zgbtrf, ZGBTRF) (
const F77_INT&,
const F77_INT&,
63 const F77_INT&,
const F77_INT&,
64 F77_DBLE_CMPLX*,
const F77_INT&,
71 const F77_INT&,
const F77_INT&,
72 const F77_INT&,
const F77_INT&,
73 const F77_DBLE*,
const F77_INT&,
74 const F77_INT*, F77_DBLE*,
75 const F77_INT&, F77_INT&
80 const F77_INT&,
const F77_INT&,
81 const F77_INT&,
const F77_INT&,
82 const F77_DBLE_CMPLX*,
const F77_INT&,
83 const F77_INT*, F77_DBLE_CMPLX*,
84 const F77_INT&, F77_INT&
92 const F77_INT&, F77_INT&,
98 const F77_INT&, F77_DBLE*,
99 const F77_INT&, F77_INT&,
100 F77_INT&, F77_DBLE*, F77_INT&
105 const F77_INT&, F77_REAL*,
106 const F77_INT&, F77_INT&,
107 F77_INT&, F77_REAL*, F77_INT&
112 const F77_INT&, F77_DBLE_CMPLX*,
113 const F77_INT&, F77_INT&,
114 F77_INT&, F77_DBLE*, F77_INT&
122 const F77_INT&,
const F77_INT&,
123 const F77_INT&,
const F77_REAL*,
124 const F77_INT&, F77_CMPLX*,
125 const F77_INT&, F77_INT&
132 const F77_INT&,
const F77_INT&,
133 const F77_INT&,
const F77_DBLE*,
134 const F77_INT&, F77_DBLE*,
135 const F77_INT&, F77_INT&
142 const F77_INT&,
const F77_INT&,
143 const F77_INT&,
const F77_REAL*,
144 const F77_INT&, F77_REAL*,
145 const F77_INT&, F77_INT&
152 const F77_INT&,
const F77_INT&,
153 const F77_INT&,
const F77_DBLE*,
154 const F77_INT&, F77_DBLE_CMPLX*,
155 const F77_INT&, F77_INT&
163 const F77_INT&, F77_CMPLX*,
164 const F77_INT&,
const F77_REAL&, F77_REAL&,
165 F77_CMPLX*, F77_REAL*, F77_INT&
170 const F77_INT&, F77_DBLE*,
171 const F77_INT&,
const F77_DBLE&, F77_DBLE&,
172 F77_DBLE*, F77_INT*, F77_INT&
177 const F77_INT&, F77_REAL*,
178 const F77_INT&,
const F77_REAL&, F77_REAL&,
179 F77_REAL*, F77_INT*, F77_INT&
184 const F77_INT&, F77_DBLE_CMPLX*,
185 const F77_INT&,
const F77_DBLE&, F77_DBLE&,
186 F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
192 F77_FUNC (cgehrd, CGEHRD) (
const F77_INT&,
const F77_INT&,
193 const F77_INT&, F77_CMPLX*,
194 const F77_INT&, F77_CMPLX*,
195 F77_CMPLX*,
const F77_INT&,
199 F77_FUNC (dgehrd, DGEHRD) (
const F77_INT&,
const F77_INT&,
200 const F77_INT&, F77_DBLE*,
201 const F77_INT&, F77_DBLE*, F77_DBLE*,
202 const F77_INT&, F77_INT&);
205 F77_FUNC (sgehrd, SGEHRD) (
const F77_INT&,
const F77_INT&,
206 const F77_INT&, F77_REAL*,
207 const F77_INT&, F77_REAL*, F77_REAL*,
208 const F77_INT&, F77_INT&);
211 F77_FUNC (zgehrd, ZGEHRD) (
const F77_INT&,
const F77_INT&,
212 const F77_INT&, F77_DBLE_CMPLX*,
213 const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
214 const F77_INT&, F77_INT&);
219 F77_FUNC (cgeqp3, CGEQP3) (
const F77_INT&,
const F77_INT&,
220 F77_CMPLX*,
const F77_INT&,
221 F77_INT*, F77_CMPLX*, F77_CMPLX*,
222 const F77_INT&, F77_REAL*, F77_INT&);
225 F77_FUNC (dgeqp3, DGEQP3) (
const F77_INT&,
const F77_INT&,
226 F77_DBLE*,
const F77_INT&,
227 F77_INT*, F77_DBLE*, F77_DBLE*,
228 const F77_INT&, F77_INT&);
231 F77_FUNC (sgeqp3, SGEQP3) (
const F77_INT&,
const F77_INT&,
232 F77_REAL*,
const F77_INT&, F77_INT*,
233 F77_REAL*, F77_REAL*,
const F77_INT&,
236 F77_FUNC (zgeqp3, ZGEQP3) (
const F77_INT&,
const F77_INT&,
237 F77_DBLE_CMPLX*,
const F77_INT&,
238 F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
239 const F77_INT&, F77_DBLE*,
245 F77_FUNC (cgeqrf, CGEQRF) (
const F77_INT&,
const F77_INT&,
246 F77_CMPLX*,
const F77_INT&,
247 F77_CMPLX*, F77_CMPLX*,
248 const F77_INT&, F77_INT&);
251 F77_FUNC (dgeqrf, DGEQRF) (
const F77_INT&,
const F77_INT&,
252 F77_DBLE*,
const F77_INT&, F77_DBLE*,
253 F77_DBLE*,
const F77_INT&,
257 F77_FUNC (sgeqrf, SGEQRF) (
const F77_INT&,
const F77_INT&,
258 F77_REAL*,
const F77_INT&, F77_REAL*, F77_REAL*,
259 const F77_INT&, F77_INT&);
262 F77_FUNC (zgeqrf, ZGEQRF) (
const F77_INT&,
const F77_INT&,
263 F77_DBLE_CMPLX*,
const F77_INT&, F77_DBLE_CMPLX*,
264 F77_DBLE_CMPLX*,
const F77_INT&,
271 const F77_INT&,
const F77_INT&,
272 F77_CMPLX*,
const F77_INT&, F77_REAL*,
273 F77_CMPLX*,
const F77_INT&,
274 F77_CMPLX*,
const F77_INT&,
275 F77_CMPLX*,
const F77_INT&,
276 F77_REAL*, F77_INT *, F77_INT&
281 const F77_INT&,
const F77_INT&,
282 F77_DBLE*,
const F77_INT&, F77_DBLE*,
283 F77_DBLE*,
const F77_INT&, F77_DBLE*,
284 const F77_INT&, F77_DBLE*,
285 const F77_INT&, F77_INT *,
291 const F77_INT&,
const F77_INT&,
292 F77_REAL*,
const F77_INT&, F77_REAL*,
293 F77_REAL*,
const F77_INT&, F77_REAL*,
294 const F77_INT&, F77_REAL*,
295 const F77_INT&, F77_INT *,
301 const F77_INT&,
const F77_INT&,
302 F77_DBLE_CMPLX*,
const F77_INT&,
303 F77_DBLE*, F77_DBLE_CMPLX*,
const F77_INT&,
304 F77_DBLE_CMPLX*,
const F77_INT&, F77_DBLE_CMPLX*,
305 const F77_INT&, F77_DBLE*,
313 const F77_INT&,
const F77_INT&,
314 F77_CMPLX*,
const F77_INT&, F77_REAL*,
315 F77_CMPLX*,
const F77_INT&,
316 F77_CMPLX*,
const F77_INT&,
317 F77_CMPLX*,
const F77_INT&,
325 const F77_INT&,
const F77_INT&,
326 F77_DBLE*,
const F77_INT&, F77_DBLE*,
327 F77_DBLE*,
const F77_INT&, F77_DBLE*,
328 const F77_INT&, F77_DBLE*,
329 const F77_INT&, F77_INT&
336 const F77_INT&,
const F77_INT&,
337 F77_REAL*,
const F77_INT&, F77_REAL*,
338 F77_REAL*,
const F77_INT&, F77_REAL*,
339 const F77_INT&, F77_REAL*,
340 const F77_INT&, F77_INT&
347 const F77_INT&,
const F77_INT&,
348 F77_DBLE_CMPLX*,
const F77_INT&,
349 F77_DBLE*, F77_DBLE_CMPLX*,
const F77_INT&,
350 F77_DBLE_CMPLX*,
const F77_INT&, F77_DBLE_CMPLX*,
351 const F77_INT&, F77_DBLE*, F77_INT&
367 const F77_INT&, F77_CMPLX*,
368 const F77_INT&, F77_INT&,
369 F77_CMPLX*, F77_CMPLX*,
370 const F77_INT&, F77_REAL&, F77_REAL&,
371 F77_CMPLX*,
const F77_INT&,
372 F77_REAL*, F77_INT*, F77_INT&
382 const F77_INT&, F77_DBLE*,
383 const F77_INT&, F77_INT&,
384 F77_DBLE*, F77_DBLE*, F77_DBLE*,
const F77_INT&,
385 F77_DBLE&, F77_DBLE&, F77_DBLE*,
const F77_INT&,
386 F77_INT*,
const F77_INT&,
397 const F77_INT&, F77_REAL*,
398 const F77_INT&, F77_INT&,
399 F77_REAL*, F77_REAL*, F77_REAL*,
const F77_INT&,
400 F77_REAL&, F77_REAL&, F77_REAL*,
const F77_INT&,
401 F77_INT*,
const F77_INT&,
412 const F77_INT&, F77_DBLE_CMPLX*,
413 const F77_INT&, F77_INT&,
414 F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
const F77_INT&,
415 F77_DBLE&, F77_DBLE&, F77_DBLE_CMPLX*,
416 const F77_INT&, F77_DBLE*,
429 const F77_INT&, F77_CMPLX*,
430 const F77_INT&, F77_CMPLX*, F77_CMPLX*,
431 const F77_INT&, F77_CMPLX*,
432 const F77_INT&, F77_INT&,
433 F77_INT&, F77_REAL*, F77_REAL&, F77_REAL*,
434 F77_REAL*, F77_CMPLX*,
const F77_INT&,
446 const F77_INT&, F77_DBLE*,
447 const F77_INT&, F77_DBLE*, F77_DBLE*,
448 F77_DBLE*,
const F77_INT&, F77_DBLE*,
449 const F77_INT&, F77_INT&,
450 F77_INT&, F77_DBLE*, F77_DBLE&,
451 F77_DBLE*, F77_DBLE*, F77_DBLE*,
452 const F77_INT&, F77_INT*,
464 const F77_INT&, F77_REAL*,
465 const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*,
466 const F77_INT&, F77_REAL*,
467 const F77_INT&, F77_INT&,
468 F77_INT&, F77_REAL*, F77_REAL&, F77_REAL*,
469 F77_REAL*, F77_REAL*,
const F77_INT&,
481 const F77_INT&, F77_DBLE_CMPLX*,
482 const F77_INT&, F77_DBLE_CMPLX*,
483 F77_DBLE_CMPLX*,
const F77_INT&, F77_DBLE_CMPLX*,
484 const F77_INT&, F77_INT&,
485 F77_INT&, F77_DBLE*, F77_DBLE&,
486 F77_DBLE*, F77_DBLE*, F77_DBLE_CMPLX*,
487 const F77_INT&, F77_DBLE*,
497 F77_FUNC (cgelsd, CGELSD) (
const F77_INT&,
const F77_INT&,
498 const F77_INT&, F77_CMPLX*,
499 const F77_INT&, F77_CMPLX*,
500 const F77_INT&, F77_REAL*, F77_REAL&,
501 F77_INT&, F77_CMPLX*,
502 const F77_INT&, F77_REAL*,
506 F77_FUNC (dgelsd, DGELSD) (
const F77_INT&,
const F77_INT&,
507 const F77_INT&, F77_DBLE*,
508 const F77_INT&, F77_DBLE*,
509 const F77_INT&, F77_DBLE*, F77_DBLE&,
511 const F77_INT&, F77_INT*,
515 F77_FUNC (sgelsd, SGELSD) (
const F77_INT&,
const F77_INT&,
516 const F77_INT&, F77_REAL*,
517 const F77_INT&, F77_REAL*,
518 const F77_INT&, F77_REAL*, F77_REAL&,
520 const F77_INT&, F77_INT*,
524 F77_FUNC (zgelsd, ZGELSD) (
const F77_INT&,
const F77_INT&,
525 const F77_INT&, F77_DBLE_CMPLX*,
526 const F77_INT&, F77_DBLE_CMPLX*,
527 const F77_INT&, F77_DBLE*, F77_DBLE&,
528 F77_INT&, F77_DBLE_CMPLX*,
529 const F77_INT&, F77_DBLE*,
535 F77_FUNC (cgelsy, CGELSY) (
const F77_INT&,
const F77_INT&,
536 const F77_INT&, F77_CMPLX*,
537 const F77_INT&, F77_CMPLX*,
538 const F77_INT&, F77_INT*,
539 F77_REAL&, F77_INT&, F77_CMPLX*,
540 const F77_INT&, F77_REAL*, F77_INT&);
543 F77_FUNC (dgelsy, DGELSY) (
const F77_INT&,
const F77_INT&,
544 const F77_INT&, F77_DBLE*,
545 const F77_INT&, F77_DBLE*,
546 const F77_INT&, F77_INT*,
547 F77_DBLE&, F77_INT&, F77_DBLE*,
548 const F77_INT&, F77_INT&);
551 F77_FUNC (sgelsy, SGELSY) (
const F77_INT&,
const F77_INT&,
552 const F77_INT&, F77_REAL*,
553 const F77_INT&, F77_REAL*,
554 const F77_INT&, F77_INT*,
555 F77_REAL&, F77_INT&, F77_REAL*,
556 const F77_INT&, F77_INT&);
559 F77_FUNC (zgelsy, ZGELSY) (
const F77_INT&,
const F77_INT&,
560 const F77_INT&, F77_DBLE_CMPLX*,
561 const F77_INT&, F77_DBLE_CMPLX*,
562 const F77_INT&, F77_INT*,
563 F77_DBLE&, F77_INT&, F77_DBLE_CMPLX*,
564 const F77_INT&, F77_DBLE*,
570 F77_FUNC (cgetrf, CGETRF) (
const F77_INT&,
const F77_INT&,
571 F77_CMPLX*,
const F77_INT&,
575 F77_FUNC (dgetrf, DGETRF) (
const F77_INT&,
const F77_INT&,
576 F77_DBLE*,
const F77_INT&,
580 F77_FUNC (sgetrf, SGETRF) (
const F77_INT&,
581 const F77_INT&, F77_REAL*,
586 F77_FUNC (zgetrf, ZGETRF) (
const F77_INT&,
const F77_INT&,
587 F77_DBLE_CMPLX*,
const F77_INT&,
593 F77_FUNC (cgetri, CGETRI) (
const F77_INT&, F77_CMPLX*,
594 const F77_INT&,
const F77_INT*,
595 F77_CMPLX*,
const F77_INT&,
599 F77_FUNC (dgetri, DGETRI) (
const F77_INT&, F77_DBLE*,
600 const F77_INT&,
const F77_INT*,
601 F77_DBLE*,
const F77_INT&,
605 F77_FUNC (sgetri, SGETRI) (
const F77_INT&, F77_REAL*,
606 const F77_INT&,
const F77_INT*,
607 F77_REAL*,
const F77_INT&, F77_INT&);
610 F77_FUNC (zgetri, ZGETRI) (
const F77_INT&, F77_DBLE_CMPLX*,
611 const F77_INT&,
const F77_INT*,
612 F77_DBLE_CMPLX*,
const F77_INT&,
619 const F77_INT&,
const F77_INT&,
620 F77_CMPLX*,
const F77_INT&,
621 const F77_INT*, F77_CMPLX*,
622 const F77_INT&, F77_INT&
627 const F77_INT&,
const F77_INT&,
628 const F77_DBLE*,
const F77_INT&,
629 const F77_INT*, F77_DBLE*,
630 const F77_INT&, F77_INT&
635 const F77_INT&,
const F77_INT&,
636 const F77_REAL*,
const F77_INT&,
637 const F77_INT*, F77_REAL*,
638 const F77_INT&, F77_INT&
643 const F77_INT&,
const F77_INT&,
644 F77_DBLE_CMPLX*,
const F77_INT&,
645 const F77_INT*, F77_DBLE_CMPLX*,
646 const F77_INT&, F77_INT&
654 F77_CMPLX*
A,
const F77_INT&
LDA,
655 F77_CMPLX*
B,
const F77_INT&
LDB,
656 F77_INT&
ILO, F77_INT&
IHI,
658 F77_REAL*
WORK, F77_INT& INFO
663 const F77_INT&
N, F77_DBLE*
A,
664 const F77_INT&
LDA, F77_DBLE*
B,
665 const F77_INT&
LDB, F77_INT&
ILO,
673 const F77_INT&
N, F77_REAL*
A,
674 const F77_INT&
LDA, F77_REAL*
B,
676 F77_INT&
ILO, F77_INT&
IHI,
678 F77_REAL*
WORK, F77_INT& INFO
683 const F77_INT&
N, F77_DBLE_CMPLX*
A,
684 const F77_INT&
LDA, F77_DBLE_CMPLX*
B,
685 const F77_INT&
LDB, F77_INT&
ILO,
700 F77_INT&
M, F77_DBLE*
V,
701 const F77_INT&
LDV, F77_INT& INFO
712 F77_INT&
M, F77_REAL*
V,
713 const F77_INT&
LDV, F77_INT& INFO
724 F77_INT&
M, F77_DBLE_CMPLX*
V,
725 const F77_INT&
LDV, F77_INT& INFO
734 const F77_INT&, F77_CMPLX*,
735 const F77_INT&, F77_CMPLX*,
736 const F77_INT&, F77_CMPLX*,
737 F77_CMPLX*, F77_CMPLX*,
738 const F77_INT&, F77_CMPLX*,
739 const F77_INT&, F77_CMPLX*,
740 const F77_INT&, F77_REAL*, F77_INT&
748 F77_DBLE*,
const F77_INT&,
749 F77_DBLE*,
const F77_INT&,
750 F77_DBLE*, F77_DBLE*, F77_DBLE *, F77_DBLE*,
751 const F77_INT&, F77_DBLE*,
752 const F77_INT&, F77_DBLE*,
753 const F77_INT&, F77_INT&
760 const F77_INT&, F77_REAL*,
761 const F77_INT&, F77_REAL*,
762 const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*,
763 F77_REAL*,
const F77_INT&, F77_REAL*,
764 const F77_INT&, F77_REAL*,
765 const F77_INT&, F77_INT&
773 F77_DBLE_CMPLX*,
const F77_INT&,
774 F77_DBLE_CMPLX*,
const F77_INT&,
775 F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
776 const F77_INT&, F77_DBLE_CMPLX*,
777 const F77_INT&, F77_DBLE_CMPLX*,
778 const F77_INT&, F77_DBLE*, F77_INT&
789 const F77_INT&
IHI, F77_DBLE*
A,
790 const F77_INT&
LDA, F77_DBLE*
B,
791 const F77_INT&
LDB, F77_DBLE*
Q,
792 const F77_INT&
LDQ, F77_DBLE*
Z,
793 const F77_INT&
LDZ, F77_INT& INFO
802 const F77_INT&
IHI, F77_DBLE_CMPLX*
A,
803 const F77_INT&
LDA, F77_DBLE_CMPLX*
B,
804 const F77_INT&
LDB, F77_DBLE_CMPLX*
Q,
805 const F77_INT&
LDQ, F77_DBLE_CMPLX*
Z,
806 const F77_INT&
LDZ, F77_INT& INFO
813 F77_FUNC (dgtsv, DGTSV) (
const F77_INT&,
const F77_INT&,
814 F77_DBLE*, F77_DBLE*, F77_DBLE*, F77_DBLE*,
815 const F77_INT&, F77_INT&);
818 F77_FUNC (zgtsv, ZGTSV) (
const F77_INT&,
const F77_INT&,
819 F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
820 F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
821 const F77_INT&, F77_INT&);
826 F77_FUNC (dgttrf, DGTTRF) (
const F77_INT&, F77_DBLE*, F77_DBLE*,
827 F77_DBLE*, F77_DBLE*, F77_INT*,
831 F77_FUNC (zgttrf, ZGTTRF) (
const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
832 F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_INT*,
839 const F77_INT&,
const F77_INT&,
840 const F77_DBLE*,
const F77_DBLE*,
841 const F77_DBLE*,
const F77_DBLE*,
842 const F77_INT*, F77_DBLE *,
843 const F77_INT&, F77_INT&
848 const F77_INT&,
const F77_INT&,
849 const F77_DBLE_CMPLX*,
const F77_DBLE_CMPLX*,
850 const F77_DBLE_CMPLX*,
const F77_DBLE_CMPLX*,
851 const F77_INT*, F77_DBLE_CMPLX *,
852 const F77_INT&, F77_INT&
860 const F77_INT&, F77_CMPLX*,
861 const F77_INT&, F77_REAL*, F77_CMPLX*,
862 const F77_INT&, F77_REAL*, F77_INT&
869 const F77_INT&, F77_DBLE_CMPLX*,
870 const F77_INT&, F77_DBLE*,
871 F77_DBLE_CMPLX*,
const F77_INT&, F77_DBLE*,
879 F77_FUNC (chegv, CHEGV) (
const F77_INT&,
882 const F77_INT&, F77_CMPLX*,
883 const F77_INT&, F77_CMPLX*,
884 const F77_INT&, F77_REAL*, F77_CMPLX*,
885 const F77_INT&, F77_REAL*, F77_INT&
890 F77_FUNC (zhegv, ZHEGV) (
const F77_INT&,
893 const F77_INT&, F77_DBLE_CMPLX*,
894 const F77_INT&, F77_DBLE_CMPLX*,
895 const F77_INT&, F77_DBLE*, F77_DBLE_CMPLX*,
896 const F77_INT&, F77_DBLE*, F77_INT&
905 const F77_INT&,
const F77_INT&,
906 const F77_REAL&,
const F77_CMPLX*,
907 const F77_INT&,
const F77_REAL&,
908 F77_CMPLX*,
const F77_INT&
915 const F77_INT&,
const F77_INT&,
916 const F77_DBLE&,
const F77_DBLE_CMPLX*,
917 const F77_INT&,
const F77_DBLE&, F77_DBLE_CMPLX*,
931 F77_DBLE*
A,
const F77_INT&
LDA, F77_DBLE*
B,
934 const F77_INT&
LDQ, F77_DBLE*
Z,
935 const F77_INT&
LDZ, F77_DBLE*
WORK,
936 const F77_INT&
LWORK,
949 F77_DBLE_CMPLX*
A,
const F77_INT&
LDA,
950 F77_DBLE_CMPLX*
B,
const F77_INT&
LDB,
951 F77_DBLE_CMPLX*
ALPHA, F77_DBLE_CMPLX*
BETA,
952 F77_DBLE_CMPLX*
CQ,
const F77_INT&
LDQ,
953 F77_DBLE_CMPLX*
CZ,
const F77_INT&
LDZ,
954 F77_DBLE_CMPLX*
WORK,
const F77_INT&
LWORK,
955 F77_DBLE*
RWORK, F77_INT& INFO
966 const F77_INT&,
const F77_INT&,
967 const F77_INT&,
const F77_INT&,
976 const F77_DBLE*
B,
const F77_INT&
LDB,
992 const F77_INT&,
const F77_INT&,
993 const F77_CMPLX*,
const F77_INT&,
999 const F77_INT&,
const F77_INT&,
1000 const F77_DBLE*,
const F77_INT&,
1001 F77_DBLE*, F77_DBLE&
1007 const F77_INT&,
const F77_REAL*,
1008 const F77_INT&, F77_REAL*, F77_REAL&
1013 const F77_INT&,
const F77_INT&,
1014 const F77_DBLE_CMPLX*,
const F77_INT&,
1015 F77_DBLE*, F77_DBLE&
1020 F77_FUNC (clartg, CLARTG) (
const F77_CMPLX*,
const F77_CMPLX*,
1021 F77_REAL&, F77_CMPLX*, F77_CMPLX*);
1024 F77_FUNC (dlartg, DLARTG) (
const F77_DBLE&,
const F77_DBLE&, F77_DBLE&,
1025 F77_DBLE&, F77_DBLE&);
1028 F77_FUNC (slartg, SLARTG) (
const F77_REAL&,
const F77_REAL&, F77_REAL&,
1029 F77_REAL&, F77_REAL&);
1032 F77_FUNC (zlartg, ZLARTG) (
const F77_DBLE_CMPLX*,
const F77_DBLE_CMPLX*,
1034 F77_DBLE_CMPLX*, F77_DBLE_CMPLX*);
1039 F77_FUNC (dorghr, DORGHR) (
const F77_INT&,
const F77_INT&,
1040 const F77_INT&, F77_DBLE*,
1041 const F77_INT&, F77_DBLE*, F77_DBLE*,
1042 const F77_INT&, F77_INT&);
1045 F77_FUNC (sorghr, SORGHR) (
const F77_INT&,
const F77_INT&,
1046 const F77_INT&, F77_REAL*,
1047 const F77_INT&, F77_REAL*, F77_REAL*,
1048 const F77_INT&, F77_INT&);
1053 F77_FUNC (dorgqr, DORGQR) (
const F77_INT&,
const F77_INT&,
1054 const F77_INT&, F77_DBLE*,
1055 const F77_INT&, F77_DBLE*, F77_DBLE*,
1056 const F77_INT&, F77_INT&);
1059 F77_FUNC (sorgqr, SORGQR) (
const F77_INT&,
const F77_INT&,
1060 const F77_INT&, F77_REAL*,
1061 const F77_INT&, F77_REAL*, F77_REAL*,
1062 const F77_INT&, F77_INT&);
1068 const F77_INT&,
const F77_INT&,
1069 F77_DBLE*,
const F77_INT&,
1070 const F77_DBLE&, F77_DBLE&, F77_DBLE*,
1076 const F77_INT&,
const F77_INT&,
1077 F77_DBLE_CMPLX*,
const F77_INT&,
const F77_DBLE&,
1078 F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
1085 const F77_INT&,
const F77_INT&,
1086 F77_DBLE*,
const F77_INT&, F77_INT&
1091 const F77_INT&,
const F77_INT&,
1092 F77_DBLE_CMPLX*,
const F77_INT&, F77_INT&
1099 const F77_INT&,
const F77_INT&,
1100 const F77_INT&, F77_DBLE*,
1101 const F77_INT&, F77_DBLE*,
1102 const F77_INT&, F77_INT&
1107 const F77_INT&,
const F77_INT&,
1108 const F77_INT&, F77_DBLE_CMPLX*,
1109 const F77_INT&, F77_DBLE_CMPLX*,
1110 const F77_INT&, F77_INT&
1117 const F77_INT&, F77_CMPLX*,
1118 const F77_INT&,
const F77_REAL&, F77_REAL&,
1119 F77_CMPLX*, F77_REAL*, F77_INT&
1124 const F77_INT&, F77_DBLE*,
1125 const F77_INT&,
const F77_DBLE&,
1126 F77_DBLE&, F77_DBLE*, F77_INT*,
1132 const F77_INT&, F77_REAL*,
1133 const F77_INT&,
const F77_REAL&,
1134 F77_REAL&, F77_REAL*, F77_INT*,
1140 const F77_INT&, F77_DBLE_CMPLX*,
1141 const F77_INT&,
const F77_DBLE&,
1142 F77_DBLE&, F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
1149 const F77_INT&, F77_CMPLX*,
1150 const F77_INT&, F77_INT&
1155 const F77_INT&, F77_DBLE*,
1156 const F77_INT&, F77_INT&
1161 const F77_INT&, F77_REAL*,
1162 const F77_INT&, F77_INT&
1167 const F77_INT&, F77_DBLE_CMPLX*,
1168 const F77_INT&, F77_INT&
1175 const F77_INT&, F77_CMPLX*,
1176 const F77_INT&, F77_INT&
1181 const F77_INT&, F77_DBLE*,
1182 const F77_INT&, F77_INT&
1187 const F77_INT&, F77_REAL*,
1188 const F77_INT&, F77_INT&
1193 const F77_INT&, F77_DBLE_CMPLX*,
1194 const F77_INT&, F77_INT&
1201 const F77_INT&,
const F77_INT&,
1202 const F77_REAL*,
const F77_INT&, F77_REAL*,
1203 const F77_INT&, F77_INT&
1209 const F77_INT&,
const F77_CMPLX*,
1210 const F77_INT&, F77_CMPLX*,
1211 const F77_INT&, F77_INT&
1216 const F77_INT&,
const F77_INT&,
1217 const F77_DBLE*,
const F77_INT&, F77_DBLE*,
1218 const F77_INT&, F77_INT&
1223 const F77_INT&,
const F77_INT&,
1224 const F77_DBLE_CMPLX*,
const F77_INT&,
1225 F77_DBLE_CMPLX*,
const F77_INT&, F77_INT&
1231 F77_FUNC (dptsv, DPTSV) (
const F77_INT&,
const F77_INT&,
1232 F77_DBLE*, F77_DBLE*, F77_DBLE*,
const F77_INT&,
1236 F77_FUNC (zptsv, ZPTSV) (
const F77_INT&,
const F77_INT&,
1237 F77_DBLE*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
1238 const F77_INT&, F77_INT&);
1244 F77_DBLE_CMPLX *, F77_DBLE *, F77_DBLE *);
1248 F77_CMPLX *, F77_REAL *, F77_REAL *);
1255 const F77_INT&, F77_DBLE*,
1256 const F77_INT&, F77_DBLE*, F77_DBLE*,
1257 const F77_INT&, F77_INT&
1264 const F77_INT&, F77_REAL*,
1265 const F77_INT&, F77_REAL*, F77_REAL*,
1266 const F77_INT&, F77_INT&
1273 F77_FUNC (dsygv, DSYGV) (
const F77_INT&,
1276 const F77_INT&, F77_DBLE*,
1277 const F77_INT&, F77_DBLE*,
1278 const F77_INT&, F77_DBLE*, F77_DBLE*,
1279 const F77_INT&, F77_INT&
1284 F77_FUNC (ssygv, SSYGV) (
const F77_INT&,
1287 const F77_INT&, F77_REAL*,
1288 const F77_INT&, F77_REAL*,
1289 const F77_INT&, F77_REAL*, F77_REAL*,
1290 const F77_INT&, F77_INT&
1299 const F77_INT&,
const F77_INT&,
1300 const F77_CMPLX&,
const F77_CMPLX*,
1301 const F77_INT&,
const F77_CMPLX&,
1302 F77_CMPLX*,
const F77_INT&
1309 const F77_INT&,
const F77_INT&,
1310 const F77_DBLE&,
const F77_DBLE*,
const F77_INT&,
1311 const F77_DBLE&, F77_DBLE*,
const F77_INT&
1318 const F77_INT&,
const F77_INT&,
1319 const F77_REAL&,
const F77_REAL*,
const F77_INT&,
1320 const F77_REAL&, F77_REAL*,
const F77_INT&
1327 const F77_INT&,
const F77_INT&,
1328 const F77_DBLE_CMPLX&,
const F77_DBLE_CMPLX*,
1329 const F77_INT&,
const F77_DBLE_CMPLX&,
1330 F77_DBLE_CMPLX*,
const F77_INT&
1343 const F77_INT&
N, F77_DBLE*
A,
1344 const F77_INT&
LDA, F77_DBLE*
B,
1345 const F77_INT&
LDB, F77_DBLE*
VL,
1346 const F77_INT&
LDVL, F77_DBLE*
VR,
1347 const F77_INT&
LDVR,
1348 const F77_INT&
MM, F77_INT&
M,
1349 F77_DBLE*
WORK, F77_INT& INFO
1357 const F77_INT&
N,
const F77_DBLE_CMPLX*
A,
1358 const F77_INT&
LDA,
const F77_DBLE_CMPLX*
B,
1359 const F77_INT&
LDB, F77_DBLE_CMPLX*
xVL,
1360 const F77_INT&
LDVL, F77_DBLE_CMPLX*
xVR,
1361 const F77_INT&
LDVR,
1362 const F77_INT&
MM, F77_INT&
M,
1374 const F77_INT&,
const F77_CMPLX*,
1375 const F77_INT&, F77_REAL&, F77_CMPLX*,
1385 const F77_INT&,
const F77_DBLE*,
1386 const F77_INT&, F77_DBLE&,
1387 F77_DBLE*, F77_INT*, F77_INT&
1395 const F77_INT&,
const F77_REAL*,
1396 const F77_INT&, F77_REAL&,
1397 F77_REAL*, F77_INT*, F77_INT&
1406 const F77_INT&,
const F77_DBLE_CMPLX*,
1407 const F77_INT&, F77_DBLE&,
1408 F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&
1417 const F77_INT*,
const F77_INT&,
1418 F77_CMPLX*,
const F77_INT&, F77_CMPLX*,
1419 const F77_INT&, F77_CMPLX*, F77_INT&,
1420 F77_REAL&, F77_REAL&, F77_CMPLX*,
1421 const F77_INT&, F77_INT &);
1425 const F77_INT*,
const F77_INT&,
1426 F77_DBLE*,
const F77_INT&, F77_DBLE*,
1427 const F77_INT&, F77_DBLE*, F77_DBLE*,
1428 F77_INT&, F77_DBLE&, F77_DBLE&, F77_DBLE*,
1429 const F77_INT&, F77_INT*,
1430 const F77_INT&, F77_INT&);
1434 const F77_INT*,
const F77_INT&,
1435 F77_REAL*,
const F77_INT&, F77_REAL*,
1436 const F77_INT&, F77_REAL*, F77_REAL*,
1437 F77_INT&, F77_REAL&, F77_REAL&, F77_REAL*,
1438 const F77_INT&, F77_INT*,
1439 const F77_INT&, F77_INT&);
1443 const F77_INT*,
const F77_INT&,
1444 F77_DBLE_CMPLX*,
const F77_INT&,
1445 F77_DBLE_CMPLX*,
const F77_INT&,
1446 F77_DBLE_CMPLX*, F77_INT&, F77_DBLE&,
1447 F77_DBLE&, F77_DBLE_CMPLX*,
1448 const F77_INT&, F77_INT &);
1455 const F77_INT&,
const F77_INT&,
1456 const F77_INT&,
const F77_CMPLX*,
1457 const F77_INT&,
const F77_CMPLX*,
1458 const F77_INT&,
const F77_CMPLX*,
1459 const F77_INT&, F77_REAL&, F77_INT&
1466 const F77_INT&,
const F77_INT&,
1467 const F77_INT&,
const F77_DBLE*,
1468 const F77_INT&,
const F77_DBLE*,
1469 const F77_INT&,
const F77_DBLE*,
1470 const F77_INT&, F77_DBLE&, F77_INT&
1477 const F77_INT&,
const F77_INT&,
1478 const F77_INT&,
const F77_REAL*,
1479 const F77_INT&,
const F77_REAL*,
1480 const F77_INT&,
const F77_REAL*,
1481 const F77_INT&, F77_REAL&, F77_INT&
1488 const F77_INT&,
const F77_INT&,
1489 const F77_INT&,
const F77_DBLE_CMPLX*,
1490 const F77_INT&,
const F77_DBLE_CMPLX*,
1491 const F77_INT&,
const F77_DBLE_CMPLX*,
1492 const F77_INT&, F77_DBLE&, F77_INT&
1501 const F77_INT&,
const F77_CMPLX*,
1502 const F77_INT&, F77_INT&
1509 const F77_INT&,
const F77_DBLE*,
1510 const F77_INT&, F77_INT&
1517 const F77_INT&,
const F77_REAL*,
1518 const F77_INT&, F77_INT&
1525 const F77_INT&,
const F77_DBLE_CMPLX*,
1526 const F77_INT&, F77_INT&
1536 const F77_INT&,
const F77_INT&,
1537 const F77_CMPLX*,
const F77_INT&,
1538 F77_CMPLX*,
const F77_INT&,
1548 const F77_INT&,
const F77_INT&,
1549 const F77_DBLE*,
const F77_INT&, F77_DBLE*,
1550 const F77_INT&, F77_INT&
1560 const F77_INT&,
const F77_REAL*,
1561 const F77_INT&, F77_REAL*,
1562 const F77_INT&, F77_INT&
1571 const F77_INT&,
const F77_INT&,
1572 const F77_DBLE_CMPLX*,
const F77_INT&, F77_DBLE_CMPLX*,
1573 const F77_INT&, F77_INT&
1581 F77_FUNC (cunghr, CUNGHR) (
const F77_INT&,
const F77_INT&,
1582 const F77_INT&, F77_CMPLX*,
1583 const F77_INT&, F77_CMPLX*,
1584 F77_CMPLX*,
const F77_INT&,
1588 F77_FUNC (zunghr, ZUNGHR) (
const F77_INT&,
const F77_INT&,
1589 const F77_INT&, F77_DBLE_CMPLX*,
1590 const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
1591 const F77_INT&, F77_INT&);
1595 F77_FUNC (cungqr, CUNGQR) (
const F77_INT&,
const F77_INT&,
1596 const F77_INT&, F77_CMPLX*,
1597 const F77_INT&, F77_CMPLX*,
1598 F77_CMPLX*,
const F77_INT&,
1602 F77_FUNC (zungqr, ZUNGQR) (
const F77_INT&,
const F77_INT&,
1603 const F77_INT&, F77_DBLE_CMPLX*,
1604 const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
1605 const F77_INT&, F77_INT&);
octave_idx_type(* float_complex_selector)(const FloatComplex &)
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_INT F77_INT & F77_CHAR_ARG_LEN_DECL
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT F77_DBLE * V
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX F77_DBLE_CMPLX F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * CZ
subroutine xdlamch(cmach, retval)
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WR2
subroutine xslange(norm, m, n, a, lda, work, retval)
subroutine xclange(NORM, M, N, A, LDA, WORK, VALUE)
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT const F77_INT & MM
subroutine xdlange(norm, m, n, a, lda, work, retval)
F77_RET_T F77_INT * SELECT
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * ALPHA
subroutine xilaenv(ispec, name, opts, n1, n2, n3, n4, retval)
subroutine zrsf2csf(n, t, u, c, s)
subroutine xzlange(NORM, M, N, A, LDA, WORK, VALUE)
subroutine crsf2csf(n, t, u, c, s)
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT & M
F77_RET_T F77_INT const F77_INT const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * xVR
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDZ
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDQ
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE & SAFMIN
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX * B
F77_RET_T F77_INT const F77_INT const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT const F77_INT F77_INT F77_DBLE_CMPLX * CWORK
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE * ALPHAI
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LWORK
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT & LDB
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WI
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDVL
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE & SCALE1
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * VL
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE & SCALE2
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT F77_REAL F77_REAL * RSCALE
F77_RET_T const F77_INT & N
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * Z
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT & ILO
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE F77_DBLE F77_DBLE * BETA
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * VR
F77_RET_T const F77_INT const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_INT F77_DBLE const F77_INT & LDV
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * ALPHAR
octave_idx_type(* float_selector)(const float &, const float &)
octave_idx_type(* complex_selector)(const Complex &)
F77_RET_T F77_CONST_CHAR_ARG_DECL
F77_RET_T const F77_INT F77_CMPLX const F77_INT & LDA
F77_RET_T F77_INT const F77_INT const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX * xVL
F77_RET_T F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT & LDVR
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX F77_DBLE_CMPLX F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE * RWORK
std::complex< float > FloatComplex
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT & IHI
std::complex< double > Complex
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT F77_REAL * LSCALE
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX F77_DBLE_CMPLX F77_DBLE_CMPLX * CQ
F77_RET_T const F77_INT F77_CMPLX const F77_INT F77_CMPLX const F77_INT F77_INT F77_INT F77_REAL F77_REAL F77_REAL * WORK
octave_idx_type(* double_selector)(const double &, const double &)
F77_RET_T F77_FUNC(dgbcon, DGBCON)(F77_CONST_CHAR_ARG_DECL
F77_RET_T const F77_INT const F77_DBLE const F77_INT const F77_DBLE F77_DBLE F77_DBLE F77_DBLE & WR1
F77_RET_T const F77_INT F77_CMPLX * A
F77_RET_T const F77_INT const F77_INT const F77_INT F77_DBLE const F77_INT F77_DBLE const F77_INT F77_DBLE * Q