1 //-- cbbcsd --------------------------------------------------------------------
2 void
LAPACK_DECL(cbbcsd)3 LAPACK_DECL(cbbcsd)(const char *JOBU1,
4 const char *JOBU2,
5 const char *JOBV1T,
6 const char *JOBV2T,
7 const char *TRANS,
8 const INTEGER *M,
9 const INTEGER *P,
10 const INTEGER *Q,
11 FLOAT *THETA,
12 FLOAT *PHI,
13 FLOAT_COMPLEX *U1,
14 const INTEGER *LDU1,
15 FLOAT_COMPLEX *U2,
16 const INTEGER *LDU2,
17 FLOAT_COMPLEX *V1T,
18 const INTEGER *LDV1T,
19 FLOAT_COMPLEX *V2T,
20 const INTEGER *LDV2T,
21 FLOAT *B11D,
22 FLOAT *B11E,
23 FLOAT *B12D,
24 FLOAT *B12E,
25 const FLOAT *B21D,
26 const FLOAT *B21E,
27 const FLOAT *B22D,
28 const FLOAT *B22E,
29 FLOAT *RWORK,
30 const INTEGER *LRWORK,
31 INTEGER *INFO)
32 {
33 DEBUG_LAPACK_STUB("cbbcsd");
34 LAPACK_IMPL(cbbcsd)(JOBU1,
35 JOBU2,
36 JOBV1T,
37 JOBV2T,
38 TRANS,
39 M,
40 P,
41 Q,
42 THETA,
43 PHI,
44 U1,
45 LDU1,
46 U2,
47 LDU2,
48 V1T,
49 LDV1T,
50 V2T,
51 LDV2T,
52 B11D,
53 B11E,
54 B12D,
55 B12E,
56 B21D,
57 B21E,
58 B22D,
59 B22E,
60 RWORK,
61 LRWORK,
62 INFO);
63 }
64
65 //-- cbdsqr --------------------------------------------------------------------
66 void
LAPACK_DECL(cbdsqr)67 LAPACK_DECL(cbdsqr)(const char *UPLO,
68 const INTEGER *N,
69 const INTEGER *NCVT,
70 const INTEGER *NRU,
71 const INTEGER *NCC,
72 FLOAT *D,
73 FLOAT *E,
74 FLOAT_COMPLEX *VT,
75 const INTEGER *LDVT,
76 FLOAT_COMPLEX *U,
77 const INTEGER *LDU,
78 FLOAT_COMPLEX *C,
79 const INTEGER *LDC,
80 FLOAT *RWORK,
81 INTEGER *INFO)
82 {
83 DEBUG_LAPACK_STUB("cbdsqr");
84 LAPACK_IMPL(cbdsqr)(UPLO,
85 N,
86 NCVT,
87 NRU,
88 NCC,
89 D,
90 E,
91 VT,
92 LDVT,
93 U,
94 LDU,
95 C,
96 LDC,
97 RWORK,
98 INFO);
99 }
100
101 //-- cgbbrd --------------------------------------------------------------------
102 void
LAPACK_DECL(cgbbrd)103 LAPACK_DECL(cgbbrd)(const char *VECT,
104 const INTEGER *M,
105 const INTEGER *N,
106 const INTEGER *NCC,
107 const INTEGER *KL,
108 const INTEGER *KU,
109 FLOAT_COMPLEX *AB,
110 const INTEGER *LDAB,
111 FLOAT *D,
112 FLOAT *E,
113 FLOAT_COMPLEX *Q,
114 const INTEGER *LDQ,
115 FLOAT_COMPLEX *PT,
116 const INTEGER *LDPT,
117 FLOAT_COMPLEX *C,
118 const INTEGER *LDC,
119 FLOAT_COMPLEX *WORK,
120 FLOAT *RWORK,
121 INTEGER *INFO)
122 {
123 DEBUG_LAPACK_STUB("cgbbrd");
124 LAPACK_IMPL(cgbbrd)(VECT,
125 M,
126 N,
127 NCC,
128 KL,
129 KU,
130 AB,
131 LDAB,
132 D,
133 E,
134 Q,
135 LDQ,
136 PT,
137 LDPT,
138 C,
139 LDC,
140 WORK,
141 RWORK,
142 INFO);
143 }
144
145 //-- cgbcon --------------------------------------------------------------------
146 void
LAPACK_DECL(cgbcon)147 LAPACK_DECL(cgbcon)(const char *NORM,
148 const INTEGER *N,
149 const INTEGER *KL,
150 const INTEGER *KU,
151 const FLOAT_COMPLEX *AB,
152 const INTEGER *LDAB,
153 const INTEGER *IPIV,
154 const FLOAT *ANORM,
155 FLOAT *RCOND,
156 FLOAT_COMPLEX *WORK,
157 FLOAT *RWORK,
158 INTEGER *INFO)
159 {
160 DEBUG_LAPACK_STUB("cgbcon");
161 LAPACK_IMPL(cgbcon)(NORM,
162 N,
163 KL,
164 KU,
165 AB,
166 LDAB,
167 IPIV,
168 ANORM,
169 RCOND,
170 WORK,
171 RWORK,
172 INFO);
173 }
174
175 //-- cgbequ --------------------------------------------------------------------
176 void
LAPACK_DECL(cgbequ)177 LAPACK_DECL(cgbequ)(const INTEGER *M,
178 const INTEGER *N,
179 const INTEGER *KL,
180 const INTEGER *KU,
181 const FLOAT_COMPLEX *AB,
182 const INTEGER *LDAB,
183 FLOAT *R,
184 FLOAT *C,
185 FLOAT *ROWCND,
186 FLOAT *COLCND,
187 FLOAT *AMAX,
188 INTEGER *INFO)
189 {
190 DEBUG_LAPACK_STUB("cgbequ");
191 LAPACK_IMPL(cgbequ)(M,
192 N,
193 KL,
194 KU,
195 AB,
196 LDAB,
197 R,
198 C,
199 ROWCND,
200 COLCND,
201 AMAX,
202 INFO);
203 }
204
205 //-- cgbequb -------------------------------------------------------------------
206 void
LAPACK_DECL(cgbequb)207 LAPACK_DECL(cgbequb)(const INTEGER *M,
208 const INTEGER *N,
209 const INTEGER *KL,
210 const INTEGER *KU,
211 const FLOAT_COMPLEX *AB,
212 const INTEGER *LDAB,
213 FLOAT *R,
214 FLOAT *C,
215 FLOAT *ROWCND,
216 FLOAT *COLCND,
217 FLOAT *AMAX,
218 INTEGER *INFO)
219 {
220 DEBUG_LAPACK_STUB("cgbequb");
221 LAPACK_IMPL(cgbequb)(M,
222 N,
223 KL,
224 KU,
225 AB,
226 LDAB,
227 R,
228 C,
229 ROWCND,
230 COLCND,
231 AMAX,
232 INFO);
233 }
234
235 //-- cgbrfs --------------------------------------------------------------------
236 void
LAPACK_DECL(cgbrfs)237 LAPACK_DECL(cgbrfs)(const char *TRANS,
238 const INTEGER *N,
239 const INTEGER *KL,
240 const INTEGER *KU,
241 const INTEGER *NRHS,
242 const FLOAT_COMPLEX *AB,
243 const INTEGER *LDAB,
244 const FLOAT_COMPLEX *AFB,
245 const INTEGER *LDAFB,
246 const INTEGER *IPIV,
247 const FLOAT_COMPLEX *B,
248 const INTEGER *LDB,
249 FLOAT_COMPLEX *X,
250 const INTEGER *LDX,
251 FLOAT *FERR,
252 FLOAT *BERR,
253 FLOAT_COMPLEX *WORK,
254 FLOAT *RWORK,
255 INTEGER *INFO)
256 {
257 DEBUG_LAPACK_STUB("cgbrfs");
258 LAPACK_IMPL(cgbrfs)(TRANS,
259 N,
260 KL,
261 KU,
262 NRHS,
263 AB,
264 LDAB,
265 AFB,
266 LDAFB,
267 IPIV,
268 B,
269 LDB,
270 X,
271 LDX,
272 FERR,
273 BERR,
274 WORK,
275 RWORK,
276 INFO);
277 }
278
279 //-- cgbrfsx -------------------------------------------------------------------
280 void
LAPACK_DECL(cgbrfsx)281 LAPACK_DECL(cgbrfsx)(const char *TRANS,
282 const char *EQUED,
283 const INTEGER *N,
284 const INTEGER *KL,
285 const INTEGER *KU,
286 const INTEGER *NRHS,
287 const FLOAT_COMPLEX *AB,
288 const INTEGER *LDAB,
289 const FLOAT_COMPLEX *AFB,
290 const INTEGER *LDAFB,
291 const INTEGER *IPIV,
292 FLOAT *R,
293 FLOAT *C,
294 const FLOAT_COMPLEX *B,
295 const INTEGER *LDB,
296 FLOAT_COMPLEX *X,
297 const INTEGER *LDX,
298 FLOAT *RCOND,
299 FLOAT *BERR,
300 const INTEGER *N_ERR_BNDS,
301 FLOAT *ERR_BNDS_NORM,
302 FLOAT *ERR_BNDS_COMP,
303 const INTEGER *NPARAMS,
304 FLOAT *PARAMS,
305 FLOAT_COMPLEX *WORK,
306 FLOAT *RWORK,
307 INTEGER *INFO)
308 {
309 DEBUG_LAPACK_STUB("cgbrfsx");
310 LAPACK_IMPL(cgbrfsx)(TRANS,
311 EQUED,
312 N,
313 KL,
314 KU,
315 NRHS,
316 AB,
317 LDAB,
318 AFB,
319 LDAFB,
320 IPIV,
321 R,
322 C,
323 B,
324 LDB,
325 X,
326 LDX,
327 RCOND,
328 BERR,
329 N_ERR_BNDS,
330 ERR_BNDS_NORM,
331 ERR_BNDS_COMP,
332 NPARAMS,
333 PARAMS,
334 WORK,
335 RWORK,
336 INFO);
337 }
338
339 //-- cgbsv ---------------------------------------------------------------------
340 void
LAPACK_DECL(cgbsv)341 LAPACK_DECL(cgbsv)(const INTEGER *N,
342 const INTEGER *KL,
343 const INTEGER *KU,
344 const INTEGER *NRHS,
345 FLOAT_COMPLEX *AB,
346 const INTEGER *LDAB,
347 INTEGER *IPIV,
348 FLOAT_COMPLEX *B,
349 const INTEGER *LDB,
350 INTEGER *INFO)
351 {
352 DEBUG_LAPACK_STUB("cgbsv");
353 LAPACK_IMPL(cgbsv)(N,
354 KL,
355 KU,
356 NRHS,
357 AB,
358 LDAB,
359 IPIV,
360 B,
361 LDB,
362 INFO);
363 }
364
365 //-- cgbsvx --------------------------------------------------------------------
366 void
LAPACK_DECL(cgbsvx)367 LAPACK_DECL(cgbsvx)(const char *FACT,
368 const char *TRANS,
369 const INTEGER *N,
370 const INTEGER *KL,
371 const INTEGER *KU,
372 const INTEGER *NRHS,
373 FLOAT_COMPLEX *AB,
374 const INTEGER *LDAB,
375 FLOAT_COMPLEX *AFB,
376 const INTEGER *LDAFB,
377 INTEGER *IPIV,
378 char *EQUED,
379 FLOAT *R,
380 FLOAT *C,
381 FLOAT_COMPLEX *B,
382 const INTEGER *LDB,
383 FLOAT_COMPLEX *X,
384 const INTEGER *LDX,
385 FLOAT *RCOND,
386 FLOAT *FERR,
387 FLOAT *BERR,
388 FLOAT_COMPLEX *WORK,
389 FLOAT *RWORK,
390 INTEGER *INFO)
391 {
392 DEBUG_LAPACK_STUB("cgbsvx");
393 LAPACK_IMPL(cgbsvx)(FACT,
394 TRANS,
395 N,
396 KL,
397 KU,
398 NRHS,
399 AB,
400 LDAB,
401 AFB,
402 LDAFB,
403 IPIV,
404 EQUED,
405 R,
406 C,
407 B,
408 LDB,
409 X,
410 LDX,
411 RCOND,
412 FERR,
413 BERR,
414 WORK,
415 RWORK,
416 INFO);
417 }
418
419 //-- cgbtf2 --------------------------------------------------------------------
420 void
LAPACK_DECL(cgbtf2)421 LAPACK_DECL(cgbtf2)(const INTEGER *M,
422 const INTEGER *N,
423 const INTEGER *KL,
424 const INTEGER *KU,
425 FLOAT_COMPLEX *AB,
426 const INTEGER *LDAB,
427 INTEGER *IPIV,
428 INTEGER *INFO)
429 {
430 DEBUG_LAPACK_STUB("cgbtf2");
431 LAPACK_IMPL(cgbtf2)(M,
432 N,
433 KL,
434 KU,
435 AB,
436 LDAB,
437 IPIV,
438 INFO);
439 }
440
441 //-- cgbtrf --------------------------------------------------------------------
442 void
LAPACK_DECL(cgbtrf)443 LAPACK_DECL(cgbtrf)(const INTEGER *M,
444 const INTEGER *N,
445 const INTEGER *KL,
446 const INTEGER *KU,
447 FLOAT_COMPLEX *AB,
448 const INTEGER *LDAB,
449 INTEGER *IPIV,
450 INTEGER *INFO)
451 {
452 DEBUG_LAPACK_STUB("cgbtrf");
453 LAPACK_IMPL(cgbtrf)(M,
454 N,
455 KL,
456 KU,
457 AB,
458 LDAB,
459 IPIV,
460 INFO);
461 }
462
463 //-- cgbtrs --------------------------------------------------------------------
464 void
LAPACK_DECL(cgbtrs)465 LAPACK_DECL(cgbtrs)(const char *TRANS,
466 const INTEGER *N,
467 const INTEGER *KL,
468 const INTEGER *KU,
469 const INTEGER *NRHS,
470 const FLOAT_COMPLEX *AB,
471 const INTEGER *LDAB,
472 const INTEGER *IPIV,
473 FLOAT_COMPLEX *B,
474 const INTEGER *LDB,
475 INTEGER *INFO)
476 {
477 DEBUG_LAPACK_STUB("cgbtrs");
478 LAPACK_IMPL(cgbtrs)(TRANS,
479 N,
480 KL,
481 KU,
482 NRHS,
483 AB,
484 LDAB,
485 IPIV,
486 B,
487 LDB,
488 INFO);
489 }
490
491 //-- cgebak --------------------------------------------------------------------
492 void
LAPACK_DECL(cgebak)493 LAPACK_DECL(cgebak)(const char *JOB,
494 const char *SIDE,
495 const INTEGER *N,
496 const INTEGER *ILO,
497 const INTEGER *IHI,
498 const FLOAT *SCALE,
499 const INTEGER *M,
500 FLOAT_COMPLEX *V,
501 const INTEGER *LDV,
502 INTEGER *INFO)
503 {
504 DEBUG_LAPACK_STUB("cgebak");
505 LAPACK_IMPL(cgebak)(JOB,
506 SIDE,
507 N,
508 ILO,
509 IHI,
510 SCALE,
511 M,
512 V,
513 LDV,
514 INFO);
515 }
516
517 //-- cgebal --------------------------------------------------------------------
518 void
LAPACK_DECL(cgebal)519 LAPACK_DECL(cgebal)(const char *JOB,
520 const INTEGER *N,
521 FLOAT_COMPLEX *A,
522 const INTEGER *LDA,
523 INTEGER *ILO,
524 INTEGER *IHI,
525 FLOAT *SCALE,
526 INTEGER *INFO)
527 {
528 DEBUG_LAPACK_STUB("cgebal");
529 LAPACK_IMPL(cgebal)(JOB,
530 N,
531 A,
532 LDA,
533 ILO,
534 IHI,
535 SCALE,
536 INFO);
537 }
538
539 //-- cgebd2 --------------------------------------------------------------------
540 void
LAPACK_DECL(cgebd2)541 LAPACK_DECL(cgebd2)(const INTEGER *M,
542 const INTEGER *N,
543 FLOAT_COMPLEX *A,
544 const INTEGER *LDA,
545 FLOAT *D,
546 FLOAT *E,
547 FLOAT_COMPLEX *TAUQ,
548 FLOAT_COMPLEX *TAUP,
549 FLOAT_COMPLEX *WORK,
550 INTEGER *INFO)
551 {
552 DEBUG_LAPACK_STUB("cgebd2");
553 LAPACK_IMPL(cgebd2)(M,
554 N,
555 A,
556 LDA,
557 D,
558 E,
559 TAUQ,
560 TAUP,
561 WORK,
562 INFO);
563 }
564
565 //-- cgebrd --------------------------------------------------------------------
566 void
LAPACK_DECL(cgebrd)567 LAPACK_DECL(cgebrd)(const INTEGER *M,
568 const INTEGER *N,
569 FLOAT_COMPLEX *A,
570 const INTEGER *LDA,
571 FLOAT *D,
572 FLOAT *E,
573 FLOAT_COMPLEX *TAUQ,
574 FLOAT_COMPLEX *TAUP,
575 FLOAT_COMPLEX *WORK,
576 const INTEGER *LWORK,
577 INTEGER *INFO)
578 {
579 DEBUG_LAPACK_STUB("cgebrd");
580 LAPACK_IMPL(cgebrd)(M,
581 N,
582 A,
583 LDA,
584 D,
585 E,
586 TAUQ,
587 TAUP,
588 WORK,
589 LWORK,
590 INFO);
591 }
592
593 //-- cgecon --------------------------------------------------------------------
594 void
LAPACK_DECL(cgecon)595 LAPACK_DECL(cgecon)(const char *NORM,
596 const INTEGER *N,
597 const FLOAT_COMPLEX *A,
598 const INTEGER *LDA,
599 const FLOAT *ANORM,
600 FLOAT *RCOND,
601 FLOAT_COMPLEX *WORK,
602 FLOAT *RWORK,
603 INTEGER *INFO)
604 {
605 DEBUG_LAPACK_STUB("cgecon");
606 LAPACK_IMPL(cgecon)(NORM,
607 N,
608 A,
609 LDA,
610 ANORM,
611 RCOND,
612 WORK,
613 RWORK,
614 INFO);
615 }
616
617 //-- cgeequ --------------------------------------------------------------------
618 void
LAPACK_DECL(cgeequ)619 LAPACK_DECL(cgeequ)(const INTEGER *M,
620 const INTEGER *N,
621 const FLOAT_COMPLEX *A,
622 const INTEGER *LDA,
623 FLOAT *R,
624 FLOAT *C,
625 FLOAT *ROWCND,
626 FLOAT *COLCND,
627 FLOAT *AMAX,
628 INTEGER *INFO)
629 {
630 DEBUG_LAPACK_STUB("cgeequ");
631 LAPACK_IMPL(cgeequ)(M,
632 N,
633 A,
634 LDA,
635 R,
636 C,
637 ROWCND,
638 COLCND,
639 AMAX,
640 INFO);
641 }
642
643 //-- cgeequb -------------------------------------------------------------------
644 void
LAPACK_DECL(cgeequb)645 LAPACK_DECL(cgeequb)(const INTEGER *M,
646 const INTEGER *N,
647 const FLOAT_COMPLEX *A,
648 const INTEGER *LDA,
649 FLOAT *R,
650 FLOAT *C,
651 FLOAT *ROWCND,
652 FLOAT *COLCND,
653 FLOAT *AMAX,
654 INTEGER *INFO)
655 {
656 DEBUG_LAPACK_STUB("cgeequb");
657 LAPACK_IMPL(cgeequb)(M,
658 N,
659 A,
660 LDA,
661 R,
662 C,
663 ROWCND,
664 COLCND,
665 AMAX,
666 INFO);
667 }
668
669 //-- cgees ---------------------------------------------------------------------
670 void
LAPACK_DECL(cgees)671 LAPACK_DECL(cgees)(const char *JOBVS,
672 const char *SORT,
673 const LOGICAL *SELECT,
674 const INTEGER *N,
675 FLOAT_COMPLEX *A,
676 const INTEGER *LDA,
677 INTEGER *SDIM,
678 FLOAT_COMPLEX *W,
679 FLOAT_COMPLEX *VS,
680 const INTEGER *LDVS,
681 FLOAT_COMPLEX *WORK,
682 const INTEGER *LWORK,
683 FLOAT *RWORK,
684 LOGICAL *BWORK,
685 INTEGER *INFO)
686 {
687 DEBUG_LAPACK_STUB("cgees");
688 LAPACK_IMPL(cgees)(JOBVS,
689 SORT,
690 SELECT,
691 N,
692 A,
693 LDA,
694 SDIM,
695 W,
696 VS,
697 LDVS,
698 WORK,
699 LWORK,
700 RWORK,
701 BWORK,
702 INFO);
703 }
704
705 //-- cgeesx --------------------------------------------------------------------
706 void
LAPACK_DECL(cgeesx)707 LAPACK_DECL(cgeesx)(const char *JOBVS,
708 const char *SORT,
709 const LOGICAL *SELECT,
710 const char *SENSE,
711 const INTEGER *N,
712 FLOAT_COMPLEX *A,
713 const INTEGER *LDA,
714 INTEGER *SDIM,
715 FLOAT_COMPLEX *W,
716 FLOAT_COMPLEX *VS,
717 const INTEGER *LDVS,
718 FLOAT *RCONDE,
719 FLOAT *RCONDV,
720 FLOAT_COMPLEX *WORK,
721 const INTEGER *LWORK,
722 FLOAT *RWORK,
723 LOGICAL *BWORK,
724 INTEGER *INFO)
725 {
726 DEBUG_LAPACK_STUB("cgeesx");
727 LAPACK_IMPL(cgeesx)(JOBVS,
728 SORT,
729 SELECT,
730 SENSE,
731 N,
732 A,
733 LDA,
734 SDIM,
735 W,
736 VS,
737 LDVS,
738 RCONDE,
739 RCONDV,
740 WORK,
741 LWORK,
742 RWORK,
743 BWORK,
744 INFO);
745 }
746
747 //-- cgeev ---------------------------------------------------------------------
748 void
LAPACK_DECL(cgeev)749 LAPACK_DECL(cgeev)(const char *JOBVL,
750 const char *JOBVR,
751 const INTEGER *N,
752 FLOAT_COMPLEX *A,
753 const INTEGER *LDA,
754 FLOAT_COMPLEX *W,
755 FLOAT_COMPLEX *VL,
756 const INTEGER *LDVL,
757 FLOAT_COMPLEX *VR,
758 const INTEGER *LDVR,
759 FLOAT_COMPLEX *WORK,
760 const INTEGER *LWORK,
761 FLOAT *RWORK,
762 INTEGER *INFO)
763 {
764 DEBUG_LAPACK_STUB("cgeev");
765 LAPACK_IMPL(cgeev)(JOBVL,
766 JOBVR,
767 N,
768 A,
769 LDA,
770 W,
771 VL,
772 LDVL,
773 VR,
774 LDVR,
775 WORK,
776 LWORK,
777 RWORK,
778 INFO);
779 }
780
781 //-- cgeevx --------------------------------------------------------------------
782 void
LAPACK_DECL(cgeevx)783 LAPACK_DECL(cgeevx)(const char *BALANC,
784 const char *JOBVL,
785 const char *JOBVR,
786 const char *SENSE,
787 const INTEGER *N,
788 FLOAT_COMPLEX *A,
789 const INTEGER *LDA,
790 FLOAT_COMPLEX *W,
791 FLOAT_COMPLEX *VL,
792 const INTEGER *LDVL,
793 FLOAT_COMPLEX *VR,
794 const INTEGER *LDVR,
795 INTEGER *ILO,
796 INTEGER *IHI,
797 FLOAT *SCALE,
798 FLOAT *ABNRM,
799 FLOAT *RCONDE,
800 FLOAT *RCONDV,
801 FLOAT_COMPLEX *WORK,
802 const INTEGER *LWORK,
803 FLOAT *RWORK,
804 INTEGER *INFO)
805 {
806 DEBUG_LAPACK_STUB("cgeevx");
807 LAPACK_IMPL(cgeevx)(BALANC,
808 JOBVL,
809 JOBVR,
810 SENSE,
811 N,
812 A,
813 LDA,
814 W,
815 VL,
816 LDVL,
817 VR,
818 LDVR,
819 ILO,
820 IHI,
821 SCALE,
822 ABNRM,
823 RCONDE,
824 RCONDV,
825 WORK,
826 LWORK,
827 RWORK,
828 INFO);
829 }
830
831 //-- cgegs ---------------------------------------------------------------------
832 void
LAPACK_DECL(cgegs)833 LAPACK_DECL(cgegs)(const char *JOBVSL,
834 const char *JOBVSR,
835 const INTEGER *N,
836 FLOAT_COMPLEX *A,
837 const INTEGER *LDA,
838 FLOAT_COMPLEX *B,
839 const INTEGER *LDB,
840 FLOAT_COMPLEX *ALPHA,
841 FLOAT_COMPLEX *BETA,
842 FLOAT_COMPLEX *VSL,
843 const INTEGER *LDVSL,
844 FLOAT_COMPLEX *VSR,
845 const INTEGER *LDVSR,
846 FLOAT_COMPLEX *WORK,
847 const INTEGER *LWORK,
848 FLOAT *RWORK,
849 INTEGER *INFO)
850 {
851 DEBUG_LAPACK_STUB("cgegs");
852 LAPACK_IMPL(cgegs)(JOBVSL,
853 JOBVSR,
854 N,
855 A,
856 LDA,
857 B,
858 LDB,
859 ALPHA,
860 BETA,
861 VSL,
862 LDVSL,
863 VSR,
864 LDVSR,
865 WORK,
866 LWORK,
867 RWORK,
868 INFO);
869 }
870
871 //-- cgegv ---------------------------------------------------------------------
872 void
LAPACK_DECL(cgegv)873 LAPACK_DECL(cgegv)(const char *JOBVL,
874 const char *JOBVR,
875 const INTEGER *N,
876 FLOAT_COMPLEX *A,
877 const INTEGER *LDA,
878 FLOAT_COMPLEX *B,
879 const INTEGER *LDB,
880 FLOAT_COMPLEX *ALPHA,
881 FLOAT_COMPLEX *BETA,
882 FLOAT_COMPLEX *VL,
883 const INTEGER *LDVL,
884 FLOAT_COMPLEX *VR,
885 const INTEGER *LDVR,
886 FLOAT_COMPLEX *WORK,
887 const INTEGER *LWORK,
888 FLOAT *RWORK,
889 INTEGER *INFO)
890 {
891 DEBUG_LAPACK_STUB("cgegv");
892 LAPACK_IMPL(cgegv)(JOBVL,
893 JOBVR,
894 N,
895 A,
896 LDA,
897 B,
898 LDB,
899 ALPHA,
900 BETA,
901 VL,
902 LDVL,
903 VR,
904 LDVR,
905 WORK,
906 LWORK,
907 RWORK,
908 INFO);
909 }
910
911 //-- cgehd2 --------------------------------------------------------------------
912 void
LAPACK_DECL(cgehd2)913 LAPACK_DECL(cgehd2)(const INTEGER *N,
914 const INTEGER *ILO,
915 const INTEGER *IHI,
916 FLOAT_COMPLEX *A,
917 const INTEGER *LDA,
918 FLOAT_COMPLEX *TAU,
919 FLOAT_COMPLEX *WORK,
920 INTEGER *INFO)
921 {
922 DEBUG_LAPACK_STUB("cgehd2");
923 LAPACK_IMPL(cgehd2)(N,
924 ILO,
925 IHI,
926 A,
927 LDA,
928 TAU,
929 WORK,
930 INFO);
931 }
932
933 //-- cgehrd --------------------------------------------------------------------
934 void
LAPACK_DECL(cgehrd)935 LAPACK_DECL(cgehrd)(const INTEGER *N,
936 const INTEGER *ILO,
937 const INTEGER *IHI,
938 FLOAT_COMPLEX *A,
939 const INTEGER *LDA,
940 FLOAT_COMPLEX *TAU,
941 FLOAT_COMPLEX *WORK,
942 const INTEGER *LWORK,
943 INTEGER *INFO)
944 {
945 DEBUG_LAPACK_STUB("cgehrd");
946 LAPACK_IMPL(cgehrd)(N,
947 ILO,
948 IHI,
949 A,
950 LDA,
951 TAU,
952 WORK,
953 LWORK,
954 INFO);
955 }
956
957 //-- cgelq2 --------------------------------------------------------------------
958 void
LAPACK_DECL(cgelq2)959 LAPACK_DECL(cgelq2)(const INTEGER *M,
960 const INTEGER *N,
961 FLOAT_COMPLEX *A,
962 const INTEGER *LDA,
963 FLOAT_COMPLEX *TAU,
964 FLOAT_COMPLEX *WORK,
965 INTEGER *INFO)
966 {
967 DEBUG_LAPACK_STUB("cgelq2");
968 LAPACK_IMPL(cgelq2)(M,
969 N,
970 A,
971 LDA,
972 TAU,
973 WORK,
974 INFO);
975 }
976
977 //-- cgelqf --------------------------------------------------------------------
978 void
LAPACK_DECL(cgelqf)979 LAPACK_DECL(cgelqf)(const INTEGER *M,
980 const INTEGER *N,
981 FLOAT_COMPLEX *A,
982 const INTEGER *LDA,
983 FLOAT_COMPLEX *TAU,
984 FLOAT_COMPLEX *WORK,
985 const INTEGER *LWORK,
986 INTEGER *INFO)
987 {
988 DEBUG_LAPACK_STUB("cgelqf");
989 LAPACK_IMPL(cgelqf)(M,
990 N,
991 A,
992 LDA,
993 TAU,
994 WORK,
995 LWORK,
996 INFO);
997 }
998
999 //-- cgels ---------------------------------------------------------------------
1000 void
LAPACK_DECL(cgels)1001 LAPACK_DECL(cgels)(const char *TRANS,
1002 const INTEGER *M,
1003 const INTEGER *N,
1004 const INTEGER *NRHS,
1005 FLOAT_COMPLEX *A,
1006 const INTEGER *LDA,
1007 FLOAT_COMPLEX *B,
1008 const INTEGER *LDB,
1009 FLOAT_COMPLEX *WORK,
1010 const INTEGER *LWORK,
1011 INTEGER *INFO)
1012 {
1013 DEBUG_LAPACK_STUB("cgels");
1014 LAPACK_IMPL(cgels)(TRANS,
1015 M,
1016 N,
1017 NRHS,
1018 A,
1019 LDA,
1020 B,
1021 LDB,
1022 WORK,
1023 LWORK,
1024 INFO);
1025 }
1026
1027 //-- cgelsd --------------------------------------------------------------------
1028 void
LAPACK_DECL(cgelsd)1029 LAPACK_DECL(cgelsd)(const INTEGER *M,
1030 const INTEGER *N,
1031 const INTEGER *NRHS,
1032 FLOAT_COMPLEX *A,
1033 const INTEGER *LDA,
1034 FLOAT_COMPLEX *B,
1035 const INTEGER *LDB,
1036 FLOAT *S,
1037 const FLOAT *RCOND,
1038 INTEGER *RANK,
1039 FLOAT_COMPLEX *WORK,
1040 const INTEGER *LWORK,
1041 FLOAT *RWORK,
1042 INTEGER *IWORK,
1043 INTEGER *INFO)
1044 {
1045 DEBUG_LAPACK_STUB("cgelsd");
1046 LAPACK_IMPL(cgelsd)(M,
1047 N,
1048 NRHS,
1049 A,
1050 LDA,
1051 B,
1052 LDB,
1053 S,
1054 RCOND,
1055 RANK,
1056 WORK,
1057 LWORK,
1058 RWORK,
1059 IWORK,
1060 INFO);
1061 }
1062
1063 //-- cgelss --------------------------------------------------------------------
1064 void
LAPACK_DECL(cgelss)1065 LAPACK_DECL(cgelss)(const INTEGER *M,
1066 const INTEGER *N,
1067 const INTEGER *NRHS,
1068 FLOAT_COMPLEX *A,
1069 const INTEGER *LDA,
1070 FLOAT_COMPLEX *B,
1071 const INTEGER *LDB,
1072 FLOAT *S,
1073 const FLOAT *RCOND,
1074 INTEGER *RANK,
1075 FLOAT_COMPLEX *WORK,
1076 const INTEGER *LWORK,
1077 FLOAT *RWORK,
1078 INTEGER *INFO)
1079 {
1080 DEBUG_LAPACK_STUB("cgelss");
1081 LAPACK_IMPL(cgelss)(M,
1082 N,
1083 NRHS,
1084 A,
1085 LDA,
1086 B,
1087 LDB,
1088 S,
1089 RCOND,
1090 RANK,
1091 WORK,
1092 LWORK,
1093 RWORK,
1094 INFO);
1095 }
1096
1097 //-- cgelsx --------------------------------------------------------------------
1098 void
LAPACK_DECL(cgelsx)1099 LAPACK_DECL(cgelsx)(const INTEGER *M,
1100 const INTEGER *N,
1101 const INTEGER *NRHS,
1102 FLOAT_COMPLEX *A,
1103 const INTEGER *LDA,
1104 FLOAT_COMPLEX *B,
1105 const INTEGER *LDB,
1106 INTEGER *JPVT,
1107 const FLOAT *RCOND,
1108 INTEGER *RANK,
1109 FLOAT_COMPLEX *WORK,
1110 FLOAT *RWORK,
1111 INTEGER *INFO)
1112 {
1113 DEBUG_LAPACK_STUB("cgelsx");
1114 LAPACK_IMPL(cgelsx)(M,
1115 N,
1116 NRHS,
1117 A,
1118 LDA,
1119 B,
1120 LDB,
1121 JPVT,
1122 RCOND,
1123 RANK,
1124 WORK,
1125 RWORK,
1126 INFO);
1127 }
1128
1129 //-- cgelsy --------------------------------------------------------------------
1130 void
LAPACK_DECL(cgelsy)1131 LAPACK_DECL(cgelsy)(const INTEGER *M,
1132 const INTEGER *N,
1133 const INTEGER *NRHS,
1134 FLOAT_COMPLEX *A,
1135 const INTEGER *LDA,
1136 FLOAT_COMPLEX *B,
1137 const INTEGER *LDB,
1138 INTEGER *JPVT,
1139 const FLOAT *RCOND,
1140 INTEGER *RANK,
1141 FLOAT_COMPLEX *WORK,
1142 const INTEGER *LWORK,
1143 FLOAT *RWORK,
1144 INTEGER *INFO)
1145 {
1146 DEBUG_LAPACK_STUB("cgelsy");
1147 LAPACK_IMPL(cgelsy)(M,
1148 N,
1149 NRHS,
1150 A,
1151 LDA,
1152 B,
1153 LDB,
1154 JPVT,
1155 RCOND,
1156 RANK,
1157 WORK,
1158 LWORK,
1159 RWORK,
1160 INFO);
1161 }
1162
1163 //-- cgeql2 --------------------------------------------------------------------
1164 void
LAPACK_DECL(cgeql2)1165 LAPACK_DECL(cgeql2)(const INTEGER *M,
1166 const INTEGER *N,
1167 FLOAT_COMPLEX *A,
1168 const INTEGER *LDA,
1169 FLOAT_COMPLEX *TAU,
1170 FLOAT_COMPLEX *WORK,
1171 INTEGER *INFO)
1172 {
1173 DEBUG_LAPACK_STUB("cgeql2");
1174 LAPACK_IMPL(cgeql2)(M,
1175 N,
1176 A,
1177 LDA,
1178 TAU,
1179 WORK,
1180 INFO);
1181 }
1182
1183 //-- cgeqlf --------------------------------------------------------------------
1184 void
LAPACK_DECL(cgeqlf)1185 LAPACK_DECL(cgeqlf)(const INTEGER *M,
1186 const INTEGER *N,
1187 FLOAT_COMPLEX *A,
1188 const INTEGER *LDA,
1189 FLOAT_COMPLEX *TAU,
1190 FLOAT_COMPLEX *WORK,
1191 const INTEGER *LWORK,
1192 INTEGER *INFO)
1193 {
1194 DEBUG_LAPACK_STUB("cgeqlf");
1195 LAPACK_IMPL(cgeqlf)(M,
1196 N,
1197 A,
1198 LDA,
1199 TAU,
1200 WORK,
1201 LWORK,
1202 INFO);
1203 }
1204
1205 //-- cgeqp3 --------------------------------------------------------------------
1206 void
LAPACK_DECL(cgeqp3)1207 LAPACK_DECL(cgeqp3)(const INTEGER *M,
1208 const INTEGER *N,
1209 FLOAT_COMPLEX *A,
1210 const INTEGER *LDA,
1211 INTEGER *JPVT,
1212 FLOAT_COMPLEX *TAU,
1213 FLOAT_COMPLEX *WORK,
1214 const INTEGER *LWORK,
1215 FLOAT *RWORK,
1216 INTEGER *INFO)
1217 {
1218 DEBUG_LAPACK_STUB("cgeqp3");
1219 LAPACK_IMPL(cgeqp3)(M,
1220 N,
1221 A,
1222 LDA,
1223 JPVT,
1224 TAU,
1225 WORK,
1226 LWORK,
1227 RWORK,
1228 INFO);
1229 }
1230
1231 //-- cgeqpf --------------------------------------------------------------------
1232 void
LAPACK_DECL(cgeqpf)1233 LAPACK_DECL(cgeqpf)(const INTEGER *M,
1234 const INTEGER *N,
1235 FLOAT_COMPLEX *A,
1236 const INTEGER *LDA,
1237 INTEGER *JPVT,
1238 FLOAT_COMPLEX *TAU,
1239 FLOAT_COMPLEX *WORK,
1240 FLOAT *RWORK,
1241 INTEGER *INFO)
1242 {
1243 DEBUG_LAPACK_STUB("cgeqpf");
1244 LAPACK_IMPL(cgeqpf)(M,
1245 N,
1246 A,
1247 LDA,
1248 JPVT,
1249 TAU,
1250 WORK,
1251 RWORK,
1252 INFO);
1253 }
1254
1255 //-- cgeqr2 --------------------------------------------------------------------
1256 void
LAPACK_DECL(cgeqr2)1257 LAPACK_DECL(cgeqr2)(const INTEGER *M,
1258 const INTEGER *N,
1259 FLOAT_COMPLEX *A,
1260 const INTEGER *LDA,
1261 FLOAT_COMPLEX *TAU,
1262 FLOAT_COMPLEX *WORK,
1263 INTEGER *INFO)
1264 {
1265 DEBUG_LAPACK_STUB("cgeqr2");
1266 LAPACK_IMPL(cgeqr2)(M,
1267 N,
1268 A,
1269 LDA,
1270 TAU,
1271 WORK,
1272 INFO);
1273 }
1274
1275 //-- cgeqr2p -------------------------------------------------------------------
1276 void
LAPACK_DECL(cgeqr2p)1277 LAPACK_DECL(cgeqr2p)(const INTEGER *M,
1278 const INTEGER *N,
1279 FLOAT_COMPLEX *A,
1280 const INTEGER *LDA,
1281 FLOAT_COMPLEX *TAU,
1282 FLOAT_COMPLEX *WORK,
1283 INTEGER *INFO)
1284 {
1285 DEBUG_LAPACK_STUB("cgeqr2p");
1286 LAPACK_IMPL(cgeqr2p)(M,
1287 N,
1288 A,
1289 LDA,
1290 TAU,
1291 WORK,
1292 INFO);
1293 }
1294
1295 //-- cgeqrf --------------------------------------------------------------------
1296 void
LAPACK_DECL(cgeqrf)1297 LAPACK_DECL(cgeqrf)(const INTEGER *M,
1298 const INTEGER *N,
1299 FLOAT_COMPLEX *A,
1300 const INTEGER *LDA,
1301 FLOAT_COMPLEX *TAU,
1302 FLOAT_COMPLEX *WORK,
1303 const INTEGER *LWORK,
1304 INTEGER *INFO)
1305 {
1306 DEBUG_LAPACK_STUB("cgeqrf");
1307 LAPACK_IMPL(cgeqrf)(M,
1308 N,
1309 A,
1310 LDA,
1311 TAU,
1312 WORK,
1313 LWORK,
1314 INFO);
1315 }
1316
1317 //-- cgeqrfp -------------------------------------------------------------------
1318 void
LAPACK_DECL(cgeqrfp)1319 LAPACK_DECL(cgeqrfp)(const INTEGER *M,
1320 const INTEGER *N,
1321 FLOAT_COMPLEX *A,
1322 const INTEGER *LDA,
1323 FLOAT_COMPLEX *TAU,
1324 FLOAT_COMPLEX *WORK,
1325 const INTEGER *LWORK,
1326 INTEGER *INFO)
1327 {
1328 DEBUG_LAPACK_STUB("cgeqrfp");
1329 LAPACK_IMPL(cgeqrfp)(M,
1330 N,
1331 A,
1332 LDA,
1333 TAU,
1334 WORK,
1335 LWORK,
1336 INFO);
1337 }
1338
1339 //-- cgerfs --------------------------------------------------------------------
1340 void
LAPACK_DECL(cgerfs)1341 LAPACK_DECL(cgerfs)(const char *TRANS,
1342 const INTEGER *N,
1343 const INTEGER *NRHS,
1344 const FLOAT_COMPLEX *A,
1345 const INTEGER *LDA,
1346 const FLOAT_COMPLEX *AF,
1347 const INTEGER *LDAF,
1348 const INTEGER *IPIV,
1349 const FLOAT_COMPLEX *B,
1350 const INTEGER *LDB,
1351 FLOAT_COMPLEX *X,
1352 const INTEGER *LDX,
1353 FLOAT *FERR,
1354 FLOAT *BERR,
1355 FLOAT_COMPLEX *WORK,
1356 FLOAT *RWORK,
1357 INTEGER *INFO)
1358 {
1359 DEBUG_LAPACK_STUB("cgerfs");
1360 LAPACK_IMPL(cgerfs)(TRANS,
1361 N,
1362 NRHS,
1363 A,
1364 LDA,
1365 AF,
1366 LDAF,
1367 IPIV,
1368 B,
1369 LDB,
1370 X,
1371 LDX,
1372 FERR,
1373 BERR,
1374 WORK,
1375 RWORK,
1376 INFO);
1377 }
1378
1379 //-- cgerfsx -------------------------------------------------------------------
1380 void
LAPACK_DECL(cgerfsx)1381 LAPACK_DECL(cgerfsx)(const char *TRANS,
1382 const char *EQUED,
1383 const INTEGER *N,
1384 const INTEGER *NRHS,
1385 const FLOAT_COMPLEX *A,
1386 const INTEGER *LDA,
1387 const FLOAT_COMPLEX *AF,
1388 const INTEGER *LDAF,
1389 const INTEGER *IPIV,
1390 const FLOAT *R,
1391 const FLOAT *C,
1392 const FLOAT_COMPLEX *B,
1393 const INTEGER *LDB,
1394 FLOAT_COMPLEX *X,
1395 const INTEGER *LDX,
1396 FLOAT *RCOND,
1397 FLOAT *BERR,
1398 const INTEGER *N_ERR_BNDS,
1399 FLOAT *ERR_BNDS_NORM,
1400 FLOAT *ERR_BNDS_COMP,
1401 const INTEGER *NPARAMS,
1402 FLOAT *PARAMS,
1403 FLOAT_COMPLEX *WORK,
1404 FLOAT *RWORK,
1405 INTEGER *INFO)
1406 {
1407 DEBUG_LAPACK_STUB("cgerfsx");
1408 LAPACK_IMPL(cgerfsx)(TRANS,
1409 EQUED,
1410 N,
1411 NRHS,
1412 A,
1413 LDA,
1414 AF,
1415 LDAF,
1416 IPIV,
1417 R,
1418 C,
1419 B,
1420 LDB,
1421 X,
1422 LDX,
1423 RCOND,
1424 BERR,
1425 N_ERR_BNDS,
1426 ERR_BNDS_NORM,
1427 ERR_BNDS_COMP,
1428 NPARAMS,
1429 PARAMS,
1430 WORK,
1431 RWORK,
1432 INFO);
1433 }
1434
1435 //-- cgerq2 --------------------------------------------------------------------
1436 void
LAPACK_DECL(cgerq2)1437 LAPACK_DECL(cgerq2)(const INTEGER *M,
1438 const INTEGER *N,
1439 FLOAT_COMPLEX *A,
1440 const INTEGER *LDA,
1441 FLOAT_COMPLEX *TAU,
1442 FLOAT_COMPLEX *WORK,
1443 INTEGER *INFO)
1444 {
1445 DEBUG_LAPACK_STUB("cgerq2");
1446 LAPACK_IMPL(cgerq2)(M,
1447 N,
1448 A,
1449 LDA,
1450 TAU,
1451 WORK,
1452 INFO);
1453 }
1454
1455 //-- cgerqf --------------------------------------------------------------------
1456 void
LAPACK_DECL(cgerqf)1457 LAPACK_DECL(cgerqf)(const INTEGER *M,
1458 const INTEGER *N,
1459 FLOAT_COMPLEX *A,
1460 const INTEGER *LDA,
1461 FLOAT_COMPLEX *TAU,
1462 FLOAT_COMPLEX *WORK,
1463 const INTEGER *LWORK,
1464 INTEGER *INFO)
1465 {
1466 DEBUG_LAPACK_STUB("cgerqf");
1467 LAPACK_IMPL(cgerqf)(M,
1468 N,
1469 A,
1470 LDA,
1471 TAU,
1472 WORK,
1473 LWORK,
1474 INFO);
1475 }
1476
1477 //-- cgesc2 --------------------------------------------------------------------
1478 void
LAPACK_DECL(cgesc2)1479 LAPACK_DECL(cgesc2)(const INTEGER *N,
1480 const FLOAT_COMPLEX *A,
1481 const INTEGER *LDA,
1482 FLOAT_COMPLEX *RHS,
1483 const INTEGER *IPIV,
1484 const INTEGER *JPIV,
1485 FLOAT *SCALE)
1486 {
1487 DEBUG_LAPACK_STUB("cgesc2");
1488 LAPACK_IMPL(cgesc2)(N,
1489 A,
1490 LDA,
1491 RHS,
1492 IPIV,
1493 JPIV,
1494 SCALE);
1495 }
1496
1497 //-- cgesdd --------------------------------------------------------------------
1498 void
LAPACK_DECL(cgesdd)1499 LAPACK_DECL(cgesdd)(const char *JOBZ,
1500 const INTEGER *M,
1501 const INTEGER *N,
1502 FLOAT_COMPLEX *A,
1503 const INTEGER *LDA,
1504 FLOAT *S,
1505 FLOAT_COMPLEX *U,
1506 const INTEGER *LDU,
1507 FLOAT_COMPLEX *VT,
1508 const INTEGER *LDVT,
1509 FLOAT_COMPLEX *WORK,
1510 const INTEGER *LWORK,
1511 FLOAT *RWORK,
1512 INTEGER *IWORK,
1513 INTEGER *INFO)
1514 {
1515 DEBUG_LAPACK_STUB("cgesdd");
1516 LAPACK_IMPL(cgesdd)(JOBZ,
1517 M,
1518 N,
1519 A,
1520 LDA,
1521 S,
1522 U,
1523 LDU,
1524 VT,
1525 LDVT,
1526 WORK,
1527 LWORK,
1528 RWORK,
1529 IWORK,
1530 INFO);
1531 }
1532
1533 //-- cgesv ---------------------------------------------------------------------
1534 void
LAPACK_DECL(cgesv)1535 LAPACK_DECL(cgesv)(const INTEGER *N,
1536 const INTEGER *NRHS,
1537 FLOAT_COMPLEX *A,
1538 const INTEGER *LDA,
1539 INTEGER *IPIV,
1540 FLOAT_COMPLEX *B,
1541 const INTEGER *LDB,
1542 INTEGER *INFO)
1543 {
1544 DEBUG_LAPACK_STUB("cgesv");
1545 LAPACK_IMPL(cgesv)(N,
1546 NRHS,
1547 A,
1548 LDA,
1549 IPIV,
1550 B,
1551 LDB,
1552 INFO);
1553 }
1554
1555 //-- cgesvd --------------------------------------------------------------------
1556 void
LAPACK_DECL(cgesvd)1557 LAPACK_DECL(cgesvd)(const char *JOBU,
1558 const char *JOBVT,
1559 const INTEGER *M,
1560 const INTEGER *N,
1561 FLOAT_COMPLEX *A,
1562 const INTEGER *LDA,
1563 FLOAT *S,
1564 FLOAT_COMPLEX *U,
1565 const INTEGER *LDU,
1566 FLOAT_COMPLEX *VT,
1567 const INTEGER *LDVT,
1568 FLOAT_COMPLEX *WORK,
1569 const INTEGER *LWORK,
1570 FLOAT *RWORK,
1571 INTEGER *INFO)
1572 {
1573 DEBUG_LAPACK_STUB("cgesvd");
1574 LAPACK_IMPL(cgesvd)(JOBU,
1575 JOBVT,
1576 M,
1577 N,
1578 A,
1579 LDA,
1580 S,
1581 U,
1582 LDU,
1583 VT,
1584 LDVT,
1585 WORK,
1586 LWORK,
1587 RWORK,
1588 INFO);
1589 }
1590
1591 //-- cgesvx --------------------------------------------------------------------
1592 void
LAPACK_DECL(cgesvx)1593 LAPACK_DECL(cgesvx)(const char *FACT,
1594 const char *TRANS,
1595 const INTEGER *N,
1596 const INTEGER *NRHS,
1597 FLOAT_COMPLEX *A,
1598 const INTEGER *LDA,
1599 FLOAT_COMPLEX *AF,
1600 const INTEGER *LDAF,
1601 INTEGER *IPIV,
1602 char *EQUED,
1603 FLOAT *R,
1604 FLOAT *C,
1605 FLOAT_COMPLEX *B,
1606 const INTEGER *LDB,
1607 FLOAT_COMPLEX *X,
1608 const INTEGER *LDX,
1609 FLOAT *RCOND,
1610 FLOAT *FERR,
1611 FLOAT *BERR,
1612 FLOAT_COMPLEX *WORK,
1613 FLOAT *RWORK,
1614 INTEGER *INFO)
1615 {
1616 DEBUG_LAPACK_STUB("cgesvx");
1617 LAPACK_IMPL(cgesvx)(FACT,
1618 TRANS,
1619 N,
1620 NRHS,
1621 A,
1622 LDA,
1623 AF,
1624 LDAF,
1625 IPIV,
1626 EQUED,
1627 R,
1628 C,
1629 B,
1630 LDB,
1631 X,
1632 LDX,
1633 RCOND,
1634 FERR,
1635 BERR,
1636 WORK,
1637 RWORK,
1638 INFO);
1639 }
1640
1641 //-- cgesvxx -------------------------------------------------------------------
1642 void
LAPACK_DECL(cgesvxx)1643 LAPACK_DECL(cgesvxx)(const char *FACT,
1644 const char *TRANS,
1645 const INTEGER *N,
1646 const INTEGER *NRHS,
1647 FLOAT_COMPLEX *A,
1648 const INTEGER *LDA,
1649 FLOAT_COMPLEX *AF,
1650 const INTEGER *LDAF,
1651 INTEGER *IPIV,
1652 char *EQUED,
1653 FLOAT *R,
1654 FLOAT *C,
1655 FLOAT_COMPLEX *B,
1656 const INTEGER *LDB,
1657 FLOAT_COMPLEX *X,
1658 const INTEGER *LDX,
1659 FLOAT *RCOND,
1660 FLOAT *RPVGRW,
1661 FLOAT *BERR,
1662 const INTEGER *N_ERR_BNDS,
1663 FLOAT *ERR_BNDS_NORM,
1664 FLOAT *ERR_BNDS_COMP,
1665 const INTEGER *NPARAMS,
1666 FLOAT *PARAMS,
1667 FLOAT_COMPLEX *WORK,
1668 FLOAT *RWORK,
1669 INTEGER *INFO)
1670 {
1671 DEBUG_LAPACK_STUB("cgesvxx");
1672 LAPACK_IMPL(cgesvxx)(FACT,
1673 TRANS,
1674 N,
1675 NRHS,
1676 A,
1677 LDA,
1678 AF,
1679 LDAF,
1680 IPIV,
1681 EQUED,
1682 R,
1683 C,
1684 B,
1685 LDB,
1686 X,
1687 LDX,
1688 RCOND,
1689 RPVGRW,
1690 BERR,
1691 N_ERR_BNDS,
1692 ERR_BNDS_NORM,
1693 ERR_BNDS_COMP,
1694 NPARAMS,
1695 PARAMS,
1696 WORK,
1697 RWORK,
1698 INFO);
1699 }
1700
1701 //-- cgetc2 --------------------------------------------------------------------
1702 void
LAPACK_DECL(cgetc2)1703 LAPACK_DECL(cgetc2)(const INTEGER *N,
1704 FLOAT_COMPLEX *A,
1705 const INTEGER *LDA,
1706 INTEGER *IPIV,
1707 INTEGER *JPIV,
1708 INTEGER *INFO)
1709 {
1710 DEBUG_LAPACK_STUB("cgetc2");
1711 LAPACK_IMPL(cgetc2)(N,
1712 A,
1713 LDA,
1714 IPIV,
1715 JPIV,
1716 INFO);
1717 }
1718
1719 //-- cgetf2 --------------------------------------------------------------------
1720 void
LAPACK_DECL(cgetf2)1721 LAPACK_DECL(cgetf2)(const INTEGER *M,
1722 const INTEGER *N,
1723 FLOAT_COMPLEX *A,
1724 const INTEGER *LDA,
1725 INTEGER *IPIV,
1726 INTEGER *INFO)
1727 {
1728 DEBUG_LAPACK_STUB("cgetf2");
1729 LAPACK_IMPL(cgetf2)(M,
1730 N,
1731 A,
1732 LDA,
1733 IPIV,
1734 INFO);
1735 }
1736
1737 //-- cgetrf --------------------------------------------------------------------
1738 void
LAPACK_DECL(cgetrf)1739 LAPACK_DECL(cgetrf)(const INTEGER *M,
1740 const INTEGER *N,
1741 FLOAT_COMPLEX *A,
1742 const INTEGER *LDA,
1743 INTEGER *IPIV,
1744 INTEGER *INFO)
1745 {
1746 DEBUG_LAPACK_STUB("cgetrf");
1747 LAPACK_IMPL(cgetrf)(M,
1748 N,
1749 A,
1750 LDA,
1751 IPIV,
1752 INFO);
1753 }
1754
1755 //-- cgetri --------------------------------------------------------------------
1756 void
LAPACK_DECL(cgetri)1757 LAPACK_DECL(cgetri)(const INTEGER *N,
1758 FLOAT_COMPLEX *A,
1759 const INTEGER *LDA,
1760 const INTEGER *IPIV,
1761 FLOAT_COMPLEX *WORK,
1762 const INTEGER *LWORK,
1763 INTEGER *INFO)
1764 {
1765 DEBUG_LAPACK_STUB("cgetri");
1766 LAPACK_IMPL(cgetri)(N,
1767 A,
1768 LDA,
1769 IPIV,
1770 WORK,
1771 LWORK,
1772 INFO);
1773 }
1774
1775 //-- cgetrs --------------------------------------------------------------------
1776 void
LAPACK_DECL(cgetrs)1777 LAPACK_DECL(cgetrs)(const char *TRANS,
1778 const INTEGER *N,
1779 const INTEGER *NRHS,
1780 const FLOAT_COMPLEX *A,
1781 const INTEGER *LDA,
1782 const INTEGER *IPIV,
1783 FLOAT_COMPLEX *B,
1784 const INTEGER *LDB,
1785 INTEGER *INFO)
1786 {
1787 DEBUG_LAPACK_STUB("cgetrs");
1788 LAPACK_IMPL(cgetrs)(TRANS,
1789 N,
1790 NRHS,
1791 A,
1792 LDA,
1793 IPIV,
1794 B,
1795 LDB,
1796 INFO);
1797 }
1798
1799 //-- cggbak --------------------------------------------------------------------
1800 void
LAPACK_DECL(cggbak)1801 LAPACK_DECL(cggbak)(const char *JOB,
1802 const char *SIDE,
1803 const INTEGER *N,
1804 const INTEGER *ILO,
1805 const INTEGER *IHI,
1806 const FLOAT *LSCALE,
1807 const FLOAT *RSCALE,
1808 const INTEGER *M,
1809 FLOAT_COMPLEX *V,
1810 const INTEGER *LDV,
1811 INTEGER *INFO)
1812 {
1813 DEBUG_LAPACK_STUB("cggbak");
1814 LAPACK_IMPL(cggbak)(JOB,
1815 SIDE,
1816 N,
1817 ILO,
1818 IHI,
1819 LSCALE,
1820 RSCALE,
1821 M,
1822 V,
1823 LDV,
1824 INFO);
1825 }
1826
1827 //-- cggbal --------------------------------------------------------------------
1828 void
LAPACK_DECL(cggbal)1829 LAPACK_DECL(cggbal)(const char *JOB,
1830 const INTEGER *N,
1831 FLOAT_COMPLEX *A,
1832 const INTEGER *LDA,
1833 FLOAT_COMPLEX *B,
1834 const INTEGER *LDB,
1835 INTEGER *ILO,
1836 INTEGER *IHI,
1837 FLOAT *LSCALE,
1838 FLOAT *RSCALE,
1839 FLOAT *WORK,
1840 INTEGER *INFO)
1841 {
1842 DEBUG_LAPACK_STUB("cggbal");
1843 LAPACK_IMPL(cggbal)(JOB,
1844 N,
1845 A,
1846 LDA,
1847 B,
1848 LDB,
1849 ILO,
1850 IHI,
1851 LSCALE,
1852 RSCALE,
1853 WORK,
1854 INFO);
1855 }
1856
1857 //-- cgges ---------------------------------------------------------------------
1858 void
LAPACK_DECL(cgges)1859 LAPACK_DECL(cgges)(const char *JOBVSL,
1860 const char *JOBVSR,
1861 const char *SORT,
1862 const LOGICAL *SELCTG,
1863 const INTEGER *N,
1864 FLOAT_COMPLEX *A,
1865 const INTEGER *LDA,
1866 FLOAT_COMPLEX *B,
1867 const INTEGER *LDB,
1868 INTEGER *SDIM,
1869 FLOAT_COMPLEX *ALPHA,
1870 FLOAT_COMPLEX *BETA,
1871 FLOAT_COMPLEX *VSL,
1872 const INTEGER *LDVSL,
1873 FLOAT_COMPLEX *VSR,
1874 const INTEGER *LDVSR,
1875 FLOAT_COMPLEX *WORK,
1876 const INTEGER *LWORK,
1877 FLOAT *RWORK,
1878 LOGICAL *BWORK,
1879 INTEGER *INFO)
1880 {
1881 DEBUG_LAPACK_STUB("cgges");
1882 LAPACK_IMPL(cgges)(JOBVSL,
1883 JOBVSR,
1884 SORT,
1885 SELCTG,
1886 N,
1887 A,
1888 LDA,
1889 B,
1890 LDB,
1891 SDIM,
1892 ALPHA,
1893 BETA,
1894 VSL,
1895 LDVSL,
1896 VSR,
1897 LDVSR,
1898 WORK,
1899 LWORK,
1900 RWORK,
1901 BWORK,
1902 INFO);
1903 }
1904
1905 //-- cggesx --------------------------------------------------------------------
1906 void
LAPACK_DECL(cggesx)1907 LAPACK_DECL(cggesx)(const char *JOBVSL,
1908 const char *JOBVSR,
1909 const char *SORT,
1910 const LOGICAL *SELCTG,
1911 const char *SENSE,
1912 const INTEGER *N,
1913 FLOAT_COMPLEX *A,
1914 const INTEGER *LDA,
1915 FLOAT_COMPLEX *B,
1916 const INTEGER *LDB,
1917 INTEGER *SDIM,
1918 FLOAT_COMPLEX *ALPHA,
1919 FLOAT_COMPLEX *BETA,
1920 FLOAT_COMPLEX *VSL,
1921 const INTEGER *LDVSL,
1922 FLOAT_COMPLEX *VSR,
1923 const INTEGER *LDVSR,
1924 FLOAT *RCONDE,
1925 FLOAT *RCONDV,
1926 FLOAT_COMPLEX *WORK,
1927 const INTEGER *LWORK,
1928 FLOAT *RWORK,
1929 INTEGER *IWORK,
1930 const INTEGER *LIWORK,
1931 LOGICAL *BWORK,
1932 INTEGER *INFO)
1933 {
1934 DEBUG_LAPACK_STUB("cggesx");
1935 LAPACK_IMPL(cggesx)(JOBVSL,
1936 JOBVSR,
1937 SORT,
1938 SELCTG,
1939 SENSE,
1940 N,
1941 A,
1942 LDA,
1943 B,
1944 LDB,
1945 SDIM,
1946 ALPHA,
1947 BETA,
1948 VSL,
1949 LDVSL,
1950 VSR,
1951 LDVSR,
1952 RCONDE,
1953 RCONDV,
1954 WORK,
1955 LWORK,
1956 RWORK,
1957 IWORK,
1958 LIWORK,
1959 BWORK,
1960 INFO);
1961 }
1962
1963 //-- cggev ---------------------------------------------------------------------
1964 void
LAPACK_DECL(cggev)1965 LAPACK_DECL(cggev)(const char *JOBVL,
1966 const char *JOBVR,
1967 const INTEGER *N,
1968 FLOAT_COMPLEX *A,
1969 const INTEGER *LDA,
1970 FLOAT_COMPLEX *B,
1971 const INTEGER *LDB,
1972 FLOAT_COMPLEX *ALPHA,
1973 FLOAT_COMPLEX *BETA,
1974 FLOAT_COMPLEX *VL,
1975 const INTEGER *LDVL,
1976 FLOAT_COMPLEX *VR,
1977 const INTEGER *LDVR,
1978 FLOAT_COMPLEX *WORK,
1979 const INTEGER *LWORK,
1980 FLOAT *RWORK,
1981 INTEGER *INFO)
1982 {
1983 DEBUG_LAPACK_STUB("cggev");
1984 LAPACK_IMPL(cggev)(JOBVL,
1985 JOBVR,
1986 N,
1987 A,
1988 LDA,
1989 B,
1990 LDB,
1991 ALPHA,
1992 BETA,
1993 VL,
1994 LDVL,
1995 VR,
1996 LDVR,
1997 WORK,
1998 LWORK,
1999 RWORK,
2000 INFO);
2001 }
2002
2003 //-- cggevx --------------------------------------------------------------------
2004 void
LAPACK_DECL(cggevx)2005 LAPACK_DECL(cggevx)(const char *BALANC,
2006 const char *JOBVL,
2007 const char *JOBVR,
2008 const char *SENSE,
2009 const INTEGER *N,
2010 FLOAT_COMPLEX *A,
2011 const INTEGER *LDA,
2012 FLOAT_COMPLEX *B,
2013 const INTEGER *LDB,
2014 FLOAT_COMPLEX *ALPHA,
2015 FLOAT_COMPLEX *BETA,
2016 FLOAT_COMPLEX *VL,
2017 const INTEGER *LDVL,
2018 FLOAT_COMPLEX *VR,
2019 const INTEGER *LDVR,
2020 INTEGER *ILO,
2021 INTEGER *IHI,
2022 FLOAT *LSCALE,
2023 FLOAT *RSCALE,
2024 FLOAT *ABNRM,
2025 FLOAT *BBNRM,
2026 FLOAT *RCONDE,
2027 FLOAT *RCONDV,
2028 FLOAT_COMPLEX *WORK,
2029 const INTEGER *LWORK,
2030 FLOAT *RWORK,
2031 INTEGER *IWORK,
2032 LOGICAL *BWORK,
2033 INTEGER *INFO)
2034 {
2035 DEBUG_LAPACK_STUB("cggevx");
2036 LAPACK_IMPL(cggevx)(BALANC,
2037 JOBVL,
2038 JOBVR,
2039 SENSE,
2040 N,
2041 A,
2042 LDA,
2043 B,
2044 LDB,
2045 ALPHA,
2046 BETA,
2047 VL,
2048 LDVL,
2049 VR,
2050 LDVR,
2051 ILO,
2052 IHI,
2053 LSCALE,
2054 RSCALE,
2055 ABNRM,
2056 BBNRM,
2057 RCONDE,
2058 RCONDV,
2059 WORK,
2060 LWORK,
2061 RWORK,
2062 IWORK,
2063 BWORK,
2064 INFO);
2065 }
2066
2067 //-- cggglm --------------------------------------------------------------------
2068 void
LAPACK_DECL(cggglm)2069 LAPACK_DECL(cggglm)(const INTEGER *N,
2070 const INTEGER *M,
2071 const INTEGER *P,
2072 FLOAT_COMPLEX *A,
2073 const INTEGER *LDA,
2074 FLOAT_COMPLEX *B,
2075 const INTEGER *LDB,
2076 FLOAT_COMPLEX *D,
2077 FLOAT_COMPLEX *X,
2078 FLOAT_COMPLEX *Y,
2079 FLOAT_COMPLEX *WORK,
2080 const INTEGER *LWORK,
2081 INTEGER *INFO)
2082 {
2083 DEBUG_LAPACK_STUB("cggglm");
2084 LAPACK_IMPL(cggglm)(N,
2085 M,
2086 P,
2087 A,
2088 LDA,
2089 B,
2090 LDB,
2091 D,
2092 X,
2093 Y,
2094 WORK,
2095 LWORK,
2096 INFO);
2097 }
2098
2099 //-- cgghrd --------------------------------------------------------------------
2100 void
LAPACK_DECL(cgghrd)2101 LAPACK_DECL(cgghrd)(const char *COMPQ,
2102 const char *COMPZ,
2103 const INTEGER *N,
2104 const INTEGER *ILO,
2105 const INTEGER *IHI,
2106 FLOAT_COMPLEX *A,
2107 const INTEGER *LDA,
2108 FLOAT_COMPLEX *B,
2109 const INTEGER *LDB,
2110 FLOAT_COMPLEX *Q,
2111 const INTEGER *LDQ,
2112 FLOAT_COMPLEX *Z,
2113 const INTEGER *LDZ,
2114 INTEGER *INFO)
2115 {
2116 DEBUG_LAPACK_STUB("cgghrd");
2117 LAPACK_IMPL(cgghrd)(COMPQ,
2118 COMPZ,
2119 N,
2120 ILO,
2121 IHI,
2122 A,
2123 LDA,
2124 B,
2125 LDB,
2126 Q,
2127 LDQ,
2128 Z,
2129 LDZ,
2130 INFO);
2131 }
2132
2133 //-- cgglse --------------------------------------------------------------------
2134 void
LAPACK_DECL(cgglse)2135 LAPACK_DECL(cgglse)(const INTEGER *M,
2136 const INTEGER *N,
2137 const INTEGER *P,
2138 FLOAT_COMPLEX *A,
2139 const INTEGER *LDA,
2140 FLOAT_COMPLEX *B,
2141 const INTEGER *LDB,
2142 FLOAT_COMPLEX *C,
2143 FLOAT_COMPLEX *D,
2144 FLOAT_COMPLEX *X,
2145 FLOAT_COMPLEX *WORK,
2146 const INTEGER *LWORK,
2147 INTEGER *INFO)
2148 {
2149 DEBUG_LAPACK_STUB("cgglse");
2150 LAPACK_IMPL(cgglse)(M,
2151 N,
2152 P,
2153 A,
2154 LDA,
2155 B,
2156 LDB,
2157 C,
2158 D,
2159 X,
2160 WORK,
2161 LWORK,
2162 INFO);
2163 }
2164
2165 //-- cggqrf --------------------------------------------------------------------
2166 void
LAPACK_DECL(cggqrf)2167 LAPACK_DECL(cggqrf)(const INTEGER *N,
2168 const INTEGER *M,
2169 const INTEGER *P,
2170 FLOAT_COMPLEX *A,
2171 const INTEGER *LDA,
2172 FLOAT_COMPLEX *TAUA,
2173 FLOAT_COMPLEX *B,
2174 const INTEGER *LDB,
2175 FLOAT_COMPLEX *TAUB,
2176 FLOAT_COMPLEX *WORK,
2177 const INTEGER *LWORK,
2178 INTEGER *INFO)
2179 {
2180 DEBUG_LAPACK_STUB("cggqrf");
2181 LAPACK_IMPL(cggqrf)(N,
2182 M,
2183 P,
2184 A,
2185 LDA,
2186 TAUA,
2187 B,
2188 LDB,
2189 TAUB,
2190 WORK,
2191 LWORK,
2192 INFO);
2193 }
2194
2195 //-- cggrqf --------------------------------------------------------------------
2196 void
LAPACK_DECL(cggrqf)2197 LAPACK_DECL(cggrqf)(const INTEGER *M,
2198 const INTEGER *P,
2199 const INTEGER *N,
2200 FLOAT_COMPLEX *A,
2201 const INTEGER *LDA,
2202 FLOAT_COMPLEX *TAUA,
2203 FLOAT_COMPLEX *B,
2204 const INTEGER *LDB,
2205 FLOAT_COMPLEX *TAUB,
2206 FLOAT_COMPLEX *WORK,
2207 const INTEGER *LWORK,
2208 INTEGER *INFO)
2209 {
2210 DEBUG_LAPACK_STUB("cggrqf");
2211 LAPACK_IMPL(cggrqf)(M,
2212 P,
2213 N,
2214 A,
2215 LDA,
2216 TAUA,
2217 B,
2218 LDB,
2219 TAUB,
2220 WORK,
2221 LWORK,
2222 INFO);
2223 }
2224
2225 //-- cggsvd --------------------------------------------------------------------
2226 void
LAPACK_DECL(cggsvd)2227 LAPACK_DECL(cggsvd)(const char *JOBU,
2228 const char *JOBV,
2229 const char *JOBQ,
2230 const INTEGER *M,
2231 const INTEGER *N,
2232 const INTEGER *P,
2233 INTEGER *K,
2234 INTEGER *L,
2235 FLOAT_COMPLEX *A,
2236 const INTEGER *LDA,
2237 FLOAT_COMPLEX *B,
2238 const INTEGER *LDB,
2239 FLOAT *ALPHA,
2240 FLOAT *BETA,
2241 FLOAT_COMPLEX *U,
2242 const INTEGER *LDU,
2243 FLOAT_COMPLEX *V,
2244 const INTEGER *LDV,
2245 FLOAT_COMPLEX *Q,
2246 const INTEGER *LDQ,
2247 FLOAT_COMPLEX *WORK,
2248 FLOAT *RWORK,
2249 INTEGER *IWORK,
2250 INTEGER *INFO)
2251 {
2252 DEBUG_LAPACK_STUB("cggsvd");
2253 LAPACK_IMPL(cggsvd)(JOBU,
2254 JOBV,
2255 JOBQ,
2256 M,
2257 N,
2258 P,
2259 K,
2260 L,
2261 A,
2262 LDA,
2263 B,
2264 LDB,
2265 ALPHA,
2266 BETA,
2267 U,
2268 LDU,
2269 V,
2270 LDV,
2271 Q,
2272 LDQ,
2273 WORK,
2274 RWORK,
2275 IWORK,
2276 INFO);
2277 }
2278
2279 //-- cggsvp --------------------------------------------------------------------
2280 void
LAPACK_DECL(cggsvp)2281 LAPACK_DECL(cggsvp)(const char *JOBU,
2282 const char *JOBV,
2283 const char *JOBQ,
2284 const INTEGER *M,
2285 const INTEGER *P,
2286 const INTEGER *N,
2287 FLOAT_COMPLEX *A,
2288 const INTEGER *LDA,
2289 FLOAT_COMPLEX *B,
2290 const INTEGER *LDB,
2291 const FLOAT *TOLA,
2292 const FLOAT *TOLB,
2293 INTEGER *K,
2294 INTEGER *L,
2295 FLOAT_COMPLEX *U,
2296 const INTEGER *LDU,
2297 FLOAT_COMPLEX *V,
2298 const INTEGER *LDV,
2299 FLOAT_COMPLEX *Q,
2300 const INTEGER *LDQ,
2301 INTEGER *IWORK,
2302 FLOAT *RWORK,
2303 FLOAT_COMPLEX *TAU,
2304 FLOAT_COMPLEX *WORK,
2305 INTEGER *INFO)
2306 {
2307 DEBUG_LAPACK_STUB("cggsvp");
2308 LAPACK_IMPL(cggsvp)(JOBU,
2309 JOBV,
2310 JOBQ,
2311 M,
2312 P,
2313 N,
2314 A,
2315 LDA,
2316 B,
2317 LDB,
2318 TOLA,
2319 TOLB,
2320 K,
2321 L,
2322 U,
2323 LDU,
2324 V,
2325 LDV,
2326 Q,
2327 LDQ,
2328 IWORK,
2329 RWORK,
2330 TAU,
2331 WORK,
2332 INFO);
2333 }
2334
2335 //-- cgtcon --------------------------------------------------------------------
2336 void
LAPACK_DECL(cgtcon)2337 LAPACK_DECL(cgtcon)(const char *NORM,
2338 const INTEGER *N,
2339 const FLOAT_COMPLEX *DL,
2340 const FLOAT_COMPLEX *D,
2341 const FLOAT_COMPLEX *DU,
2342 const FLOAT_COMPLEX *DU2,
2343 const INTEGER *IPIV,
2344 const FLOAT *ANORM,
2345 FLOAT *RCOND,
2346 FLOAT_COMPLEX *WORK,
2347 INTEGER *INFO)
2348 {
2349 DEBUG_LAPACK_STUB("cgtcon");
2350 LAPACK_IMPL(cgtcon)(NORM,
2351 N,
2352 DL,
2353 D,
2354 DU,
2355 DU2,
2356 IPIV,
2357 ANORM,
2358 RCOND,
2359 WORK,
2360 INFO);
2361 }
2362
2363 //-- cgtrfs --------------------------------------------------------------------
2364 void
LAPACK_DECL(cgtrfs)2365 LAPACK_DECL(cgtrfs)(const char *TRANS,
2366 const INTEGER *N,
2367 const INTEGER *NRHS,
2368 const FLOAT_COMPLEX *DL,
2369 const FLOAT_COMPLEX *D,
2370 const FLOAT_COMPLEX *DU,
2371 const FLOAT_COMPLEX *DLF,
2372 const FLOAT_COMPLEX *DF,
2373 const FLOAT_COMPLEX *DUF,
2374 const FLOAT_COMPLEX *DU2,
2375 const INTEGER *IPIV,
2376 const FLOAT_COMPLEX *B,
2377 const INTEGER *LDB,
2378 FLOAT_COMPLEX *X,
2379 const INTEGER *LDX,
2380 FLOAT *FERR,
2381 FLOAT *BERR,
2382 FLOAT_COMPLEX *WORK,
2383 FLOAT *RWORK,
2384 INTEGER *INFO)
2385 {
2386 DEBUG_LAPACK_STUB("cgtrfs");
2387 LAPACK_IMPL(cgtrfs)(TRANS,
2388 N,
2389 NRHS,
2390 DL,
2391 D,
2392 DU,
2393 DLF,
2394 DF,
2395 DUF,
2396 DU2,
2397 IPIV,
2398 B,
2399 LDB,
2400 X,
2401 LDX,
2402 FERR,
2403 BERR,
2404 WORK,
2405 RWORK,
2406 INFO);
2407 }
2408
2409 //-- cgtsv ---------------------------------------------------------------------
2410 void
LAPACK_DECL(cgtsv)2411 LAPACK_DECL(cgtsv)(const INTEGER *N,
2412 const INTEGER *NRHS,
2413 FLOAT_COMPLEX *DL,
2414 FLOAT_COMPLEX *D,
2415 FLOAT_COMPLEX *DU,
2416 FLOAT_COMPLEX *B,
2417 const INTEGER *LDB,
2418 INTEGER *INFO)
2419 {
2420 DEBUG_LAPACK_STUB("cgtsv");
2421 LAPACK_IMPL(cgtsv)(N,
2422 NRHS,
2423 DL,
2424 D,
2425 DU,
2426 B,
2427 LDB,
2428 INFO);
2429 }
2430
2431 //-- cgtsvx --------------------------------------------------------------------
2432 void
LAPACK_DECL(cgtsvx)2433 LAPACK_DECL(cgtsvx)(const char *FACT,
2434 const char *TRANS,
2435 const INTEGER *N,
2436 const INTEGER *NRHS,
2437 const FLOAT_COMPLEX *DL,
2438 const FLOAT_COMPLEX *D,
2439 const FLOAT_COMPLEX *DU,
2440 FLOAT_COMPLEX *DLF,
2441 FLOAT_COMPLEX *DF,
2442 FLOAT_COMPLEX *DUF,
2443 FLOAT_COMPLEX *DU2,
2444 INTEGER *IPIV,
2445 const FLOAT_COMPLEX *B,
2446 const INTEGER *LDB,
2447 FLOAT_COMPLEX *X,
2448 const INTEGER *LDX,
2449 FLOAT *RCOND,
2450 FLOAT *FERR,
2451 FLOAT *BERR,
2452 FLOAT_COMPLEX *WORK,
2453 FLOAT *RWORK,
2454 INTEGER *INFO)
2455 {
2456 DEBUG_LAPACK_STUB("cgtsvx");
2457 LAPACK_IMPL(cgtsvx)(FACT,
2458 TRANS,
2459 N,
2460 NRHS,
2461 DL,
2462 D,
2463 DU,
2464 DLF,
2465 DF,
2466 DUF,
2467 DU2,
2468 IPIV,
2469 B,
2470 LDB,
2471 X,
2472 LDX,
2473 RCOND,
2474 FERR,
2475 BERR,
2476 WORK,
2477 RWORK,
2478 INFO);
2479 }
2480
2481 //-- cgttrf --------------------------------------------------------------------
2482 void
LAPACK_DECL(cgttrf)2483 LAPACK_DECL(cgttrf)(const INTEGER *N,
2484 FLOAT_COMPLEX *DL,
2485 FLOAT_COMPLEX *D,
2486 FLOAT_COMPLEX *DU,
2487 FLOAT_COMPLEX *DU2,
2488 INTEGER *IPIV,
2489 INTEGER *INFO)
2490 {
2491 DEBUG_LAPACK_STUB("cgttrf");
2492 LAPACK_IMPL(cgttrf)(N,
2493 DL,
2494 D,
2495 DU,
2496 DU2,
2497 IPIV,
2498 INFO);
2499 }
2500
2501 //-- cgttrs --------------------------------------------------------------------
2502 void
LAPACK_DECL(cgttrs)2503 LAPACK_DECL(cgttrs)(const char *TRANS,
2504 const INTEGER *N,
2505 const INTEGER *NRHS,
2506 const FLOAT_COMPLEX *DL,
2507 const FLOAT_COMPLEX *D,
2508 const FLOAT_COMPLEX *DU,
2509 const FLOAT_COMPLEX *DU2,
2510 const INTEGER *IPIV,
2511 FLOAT_COMPLEX *B,
2512 const INTEGER *LDB,
2513 INTEGER *INFO)
2514 {
2515 DEBUG_LAPACK_STUB("cgttrs");
2516 LAPACK_IMPL(cgttrs)(TRANS,
2517 N,
2518 NRHS,
2519 DL,
2520 D,
2521 DU,
2522 DU2,
2523 IPIV,
2524 B,
2525 LDB,
2526 INFO);
2527 }
2528
2529 //-- cgtts2 --------------------------------------------------------------------
2530 void
LAPACK_DECL(cgtts2)2531 LAPACK_DECL(cgtts2)(const INTEGER *ITRANS,
2532 const INTEGER *N,
2533 const INTEGER *NRHS,
2534 const FLOAT_COMPLEX *DL,
2535 const FLOAT_COMPLEX *D,
2536 const FLOAT_COMPLEX *DU,
2537 const FLOAT_COMPLEX *DU2,
2538 const INTEGER *IPIV,
2539 FLOAT_COMPLEX *B,
2540 const INTEGER *LDB)
2541 {
2542 DEBUG_LAPACK_STUB("cgtts2");
2543 LAPACK_IMPL(cgtts2)(ITRANS,
2544 N,
2545 NRHS,
2546 DL,
2547 D,
2548 DU,
2549 DU2,
2550 IPIV,
2551 B,
2552 LDB);
2553 }
2554
2555 //-- chbev ---------------------------------------------------------------------
2556 void
LAPACK_DECL(chbev)2557 LAPACK_DECL(chbev)(const char *JOBZ,
2558 const char *UPLO,
2559 const INTEGER *N,
2560 const INTEGER *KD,
2561 FLOAT_COMPLEX *AB,
2562 const INTEGER *LDAB,
2563 FLOAT *W,
2564 FLOAT_COMPLEX *Z,
2565 const INTEGER *LDZ,
2566 FLOAT_COMPLEX *WORK,
2567 FLOAT *RWORK,
2568 INTEGER *INFO)
2569 {
2570 DEBUG_LAPACK_STUB("chbev");
2571 LAPACK_IMPL(chbev)(JOBZ,
2572 UPLO,
2573 N,
2574 KD,
2575 AB,
2576 LDAB,
2577 W,
2578 Z,
2579 LDZ,
2580 WORK,
2581 RWORK,
2582 INFO);
2583 }
2584
2585 //-- chbevd --------------------------------------------------------------------
2586 void
LAPACK_DECL(chbevd)2587 LAPACK_DECL(chbevd)(const char *JOBZ,
2588 const char *UPLO,
2589 const INTEGER *N,
2590 const INTEGER *KD,
2591 FLOAT_COMPLEX *AB,
2592 const INTEGER *LDAB,
2593 FLOAT *W,
2594 FLOAT_COMPLEX *Z,
2595 const INTEGER *LDZ,
2596 FLOAT_COMPLEX *WORK,
2597 const INTEGER *LWORK,
2598 FLOAT *RWORK,
2599 const INTEGER *LRWORK,
2600 INTEGER *IWORK,
2601 const INTEGER *LIWORK,
2602 INTEGER *INFO)
2603 {
2604 DEBUG_LAPACK_STUB("chbevd");
2605 LAPACK_IMPL(chbevd)(JOBZ,
2606 UPLO,
2607 N,
2608 KD,
2609 AB,
2610 LDAB,
2611 W,
2612 Z,
2613 LDZ,
2614 WORK,
2615 LWORK,
2616 RWORK,
2617 LRWORK,
2618 IWORK,
2619 LIWORK,
2620 INFO);
2621 }
2622
2623 //-- chbevx --------------------------------------------------------------------
2624 void
LAPACK_DECL(chbevx)2625 LAPACK_DECL(chbevx)(const char *JOBZ,
2626 const char *RANGE,
2627 const char *UPLO,
2628 const INTEGER *N,
2629 const INTEGER *KD,
2630 FLOAT_COMPLEX *AB,
2631 const INTEGER *LDAB,
2632 FLOAT_COMPLEX *Q,
2633 const INTEGER *LDQ,
2634 const FLOAT *VL,
2635 const FLOAT *VU,
2636 const INTEGER *IL,
2637 const INTEGER *IU,
2638 const FLOAT *ABSTOL,
2639 INTEGER *M,
2640 FLOAT *W,
2641 FLOAT_COMPLEX *Z,
2642 const INTEGER *LDZ,
2643 FLOAT_COMPLEX *WORK,
2644 FLOAT *RWORK,
2645 INTEGER *IWORK,
2646 INTEGER *IFAIL,
2647 INTEGER *INFO)
2648 {
2649 DEBUG_LAPACK_STUB("chbevx");
2650 LAPACK_IMPL(chbevx)(JOBZ,
2651 RANGE,
2652 UPLO,
2653 N,
2654 KD,
2655 AB,
2656 LDAB,
2657 Q,
2658 LDQ,
2659 VL,
2660 VU,
2661 IL,
2662 IU,
2663 ABSTOL,
2664 M,
2665 W,
2666 Z,
2667 LDZ,
2668 WORK,
2669 RWORK,
2670 IWORK,
2671 IFAIL,
2672 INFO);
2673 }
2674
2675 //-- chbgst --------------------------------------------------------------------
2676 void
LAPACK_DECL(chbgst)2677 LAPACK_DECL(chbgst)(const char *VECT,
2678 const char *UPLO,
2679 const INTEGER *N,
2680 const INTEGER *KA,
2681 const INTEGER *KB,
2682 FLOAT_COMPLEX *AB,
2683 const INTEGER *LDAB,
2684 const FLOAT_COMPLEX *BB,
2685 const INTEGER *LDBB,
2686 FLOAT_COMPLEX *X,
2687 const INTEGER *LDX,
2688 FLOAT_COMPLEX *WORK,
2689 FLOAT *RWORK,
2690 INTEGER *INFO)
2691 {
2692 DEBUG_LAPACK_STUB("chbgst");
2693 LAPACK_IMPL(chbgst)(VECT,
2694 UPLO,
2695 N,
2696 KA,
2697 KB,
2698 AB,
2699 LDAB,
2700 BB,
2701 LDBB,
2702 X,
2703 LDX,
2704 WORK,
2705 RWORK,
2706 INFO);
2707 }
2708
2709 //-- chbgv ---------------------------------------------------------------------
2710 void
LAPACK_DECL(chbgv)2711 LAPACK_DECL(chbgv)(const char *JOBZ,
2712 const char *UPLO,
2713 const INTEGER *N,
2714 const INTEGER *KA,
2715 const INTEGER *KB,
2716 FLOAT_COMPLEX *AB,
2717 const INTEGER *LDAB,
2718 FLOAT_COMPLEX *BB,
2719 const INTEGER *LDBB,
2720 FLOAT *W,
2721 FLOAT_COMPLEX *Z,
2722 const INTEGER *LDZ,
2723 FLOAT_COMPLEX *WORK,
2724 FLOAT *RWORK,
2725 INTEGER *INFO)
2726 {
2727 DEBUG_LAPACK_STUB("chbgv");
2728 LAPACK_IMPL(chbgv)(JOBZ,
2729 UPLO,
2730 N,
2731 KA,
2732 KB,
2733 AB,
2734 LDAB,
2735 BB,
2736 LDBB,
2737 W,
2738 Z,
2739 LDZ,
2740 WORK,
2741 RWORK,
2742 INFO);
2743 }
2744
2745 //-- chbgvd --------------------------------------------------------------------
2746 void
LAPACK_DECL(chbgvd)2747 LAPACK_DECL(chbgvd)(const char *JOBZ,
2748 const char *UPLO,
2749 const INTEGER *N,
2750 const INTEGER *KA,
2751 const INTEGER *KB,
2752 FLOAT_COMPLEX *AB,
2753 const INTEGER *LDAB,
2754 FLOAT_COMPLEX *BB,
2755 const INTEGER *LDBB,
2756 FLOAT *W,
2757 FLOAT_COMPLEX *Z,
2758 const INTEGER *LDZ,
2759 FLOAT_COMPLEX *WORK,
2760 const INTEGER *LWORK,
2761 FLOAT *RWORK,
2762 const INTEGER *LRWORK,
2763 INTEGER *IWORK,
2764 const INTEGER *LIWORK,
2765 INTEGER *INFO)
2766 {
2767 DEBUG_LAPACK_STUB("chbgvd");
2768 LAPACK_IMPL(chbgvd)(JOBZ,
2769 UPLO,
2770 N,
2771 KA,
2772 KB,
2773 AB,
2774 LDAB,
2775 BB,
2776 LDBB,
2777 W,
2778 Z,
2779 LDZ,
2780 WORK,
2781 LWORK,
2782 RWORK,
2783 LRWORK,
2784 IWORK,
2785 LIWORK,
2786 INFO);
2787 }
2788
2789 //-- chbgvx --------------------------------------------------------------------
2790 void
LAPACK_DECL(chbgvx)2791 LAPACK_DECL(chbgvx)(const char *JOBZ,
2792 const char *RANGE,
2793 const char *UPLO,
2794 const INTEGER *N,
2795 const INTEGER *KA,
2796 const INTEGER *KB,
2797 FLOAT_COMPLEX *AB,
2798 const INTEGER *LDAB,
2799 FLOAT_COMPLEX *BB,
2800 const INTEGER *LDBB,
2801 FLOAT_COMPLEX *Q,
2802 const INTEGER *LDQ,
2803 const FLOAT *VL,
2804 const FLOAT *VU,
2805 const INTEGER *IL,
2806 const INTEGER *IU,
2807 const FLOAT *ABSTOL,
2808 INTEGER *M,
2809 FLOAT *W,
2810 FLOAT_COMPLEX *Z,
2811 const INTEGER *LDZ,
2812 FLOAT_COMPLEX *WORK,
2813 FLOAT *RWORK,
2814 INTEGER *IWORK,
2815 INTEGER *IFAIL,
2816 INTEGER *INFO)
2817 {
2818 DEBUG_LAPACK_STUB("chbgvx");
2819 LAPACK_IMPL(chbgvx)(JOBZ,
2820 RANGE,
2821 UPLO,
2822 N,
2823 KA,
2824 KB,
2825 AB,
2826 LDAB,
2827 BB,
2828 LDBB,
2829 Q,
2830 LDQ,
2831 VL,
2832 VU,
2833 IL,
2834 IU,
2835 ABSTOL,
2836 M,
2837 W,
2838 Z,
2839 LDZ,
2840 WORK,
2841 RWORK,
2842 IWORK,
2843 IFAIL,
2844 INFO);
2845 }
2846
2847 //-- chbtrd --------------------------------------------------------------------
2848 void
LAPACK_DECL(chbtrd)2849 LAPACK_DECL(chbtrd)(const char *VECT,
2850 const char *UPLO,
2851 const INTEGER *N,
2852 const INTEGER *KD,
2853 FLOAT_COMPLEX *AB,
2854 const INTEGER *LDAB,
2855 FLOAT *D,
2856 FLOAT *E,
2857 FLOAT_COMPLEX *Q,
2858 const INTEGER *LDQ,
2859 FLOAT_COMPLEX *WORK,
2860 INTEGER *INFO)
2861 {
2862 DEBUG_LAPACK_STUB("chbtrd");
2863 LAPACK_IMPL(chbtrd)(VECT,
2864 UPLO,
2865 N,
2866 KD,
2867 AB,
2868 LDAB,
2869 D,
2870 E,
2871 Q,
2872 LDQ,
2873 WORK,
2874 INFO);
2875 }
2876
2877 //-- checon --------------------------------------------------------------------
2878 void
LAPACK_DECL(checon)2879 LAPACK_DECL(checon)(const char *UPLO,
2880 const INTEGER *N,
2881 const FLOAT_COMPLEX *A,
2882 const INTEGER *LDA,
2883 const INTEGER *IPIV,
2884 const FLOAT *ANORM,
2885 FLOAT *RCOND,
2886 FLOAT_COMPLEX *WORK,
2887 INTEGER *INFO)
2888 {
2889 DEBUG_LAPACK_STUB("checon");
2890 LAPACK_IMPL(checon)(UPLO,
2891 N,
2892 A,
2893 LDA,
2894 IPIV,
2895 ANORM,
2896 RCOND,
2897 WORK,
2898 INFO);
2899 }
2900
2901 //-- cheequb -------------------------------------------------------------------
2902 void
LAPACK_DECL(cheequb)2903 LAPACK_DECL(cheequb)(const char *UPLO,
2904 const INTEGER *N,
2905 const FLOAT_COMPLEX *A,
2906 const INTEGER *LDA,
2907 FLOAT *S,
2908 FLOAT *SCOND,
2909 FLOAT *AMAX,
2910 const FLOAT_COMPLEX *WORK,
2911 INTEGER *INFO)
2912 {
2913 DEBUG_LAPACK_STUB("cheequb");
2914 LAPACK_IMPL(cheequb)(UPLO,
2915 N,
2916 A,
2917 LDA,
2918 S,
2919 SCOND,
2920 AMAX,
2921 WORK,
2922 INFO);
2923 }
2924
2925 //-- cheev ---------------------------------------------------------------------
2926 void
LAPACK_DECL(cheev)2927 LAPACK_DECL(cheev)(const char *JOBZ,
2928 const char *UPLO,
2929 const INTEGER *N,
2930 FLOAT_COMPLEX *A,
2931 const INTEGER *LDA,
2932 FLOAT *W,
2933 FLOAT_COMPLEX *WORK,
2934 const INTEGER *LWORK,
2935 FLOAT *RWORK,
2936 INTEGER *INFO)
2937 {
2938 DEBUG_LAPACK_STUB("cheev");
2939 LAPACK_IMPL(cheev)(JOBZ,
2940 UPLO,
2941 N,
2942 A,
2943 LDA,
2944 W,
2945 WORK,
2946 LWORK,
2947 RWORK,
2948 INFO);
2949 }
2950
2951 //-- cheevd --------------------------------------------------------------------
2952 void
LAPACK_DECL(cheevd)2953 LAPACK_DECL(cheevd)(const char *JOBZ,
2954 const char *UPLO,
2955 const INTEGER *N,
2956 FLOAT_COMPLEX *A,
2957 const INTEGER *LDA,
2958 FLOAT *W,
2959 FLOAT_COMPLEX *WORK,
2960 const INTEGER *LWORK,
2961 FLOAT *RWORK,
2962 const INTEGER *LRWORK,
2963 INTEGER *IWORK,
2964 const INTEGER *LIWORK,
2965 INTEGER *INFO)
2966 {
2967 DEBUG_LAPACK_STUB("cheevd");
2968 LAPACK_IMPL(cheevd)(JOBZ,
2969 UPLO,
2970 N,
2971 A,
2972 LDA,
2973 W,
2974 WORK,
2975 LWORK,
2976 RWORK,
2977 LRWORK,
2978 IWORK,
2979 LIWORK,
2980 INFO);
2981 }
2982
2983 //-- cheevr --------------------------------------------------------------------
2984 void
LAPACK_DECL(cheevr)2985 LAPACK_DECL(cheevr)(const char *JOBZ,
2986 const char *RANGE,
2987 const char *UPLO,
2988 const INTEGER *N,
2989 FLOAT_COMPLEX *A,
2990 const INTEGER *LDA,
2991 const FLOAT *VL,
2992 const FLOAT *VU,
2993 const INTEGER *IL,
2994 const INTEGER *IU,
2995 const FLOAT *ABSTOL,
2996 INTEGER *M,
2997 FLOAT *W,
2998 FLOAT_COMPLEX *Z,
2999 const INTEGER *LDZ,
3000 INTEGER *ISUPPZ,
3001 FLOAT_COMPLEX *WORK,
3002 const INTEGER *LWORK,
3003 FLOAT *RWORK,
3004 const INTEGER *LRWORK,
3005 INTEGER *IWORK,
3006 const INTEGER *LIWORK,
3007 INTEGER *INFO)
3008 {
3009 DEBUG_LAPACK_STUB("cheevr");
3010 LAPACK_IMPL(cheevr)(JOBZ,
3011 RANGE,
3012 UPLO,
3013 N,
3014 A,
3015 LDA,
3016 VL,
3017 VU,
3018 IL,
3019 IU,
3020 ABSTOL,
3021 M,
3022 W,
3023 Z,
3024 LDZ,
3025 ISUPPZ,
3026 WORK,
3027 LWORK,
3028 RWORK,
3029 LRWORK,
3030 IWORK,
3031 LIWORK,
3032 INFO);
3033 }
3034
3035 //-- cheevx --------------------------------------------------------------------
3036 void
LAPACK_DECL(cheevx)3037 LAPACK_DECL(cheevx)(const char *JOBZ,
3038 const char *RANGE,
3039 const char *UPLO,
3040 const INTEGER *N,
3041 FLOAT_COMPLEX *A,
3042 const INTEGER *LDA,
3043 const FLOAT *VL,
3044 const FLOAT *VU,
3045 const INTEGER *IL,
3046 const INTEGER *IU,
3047 const FLOAT *ABSTOL,
3048 INTEGER *M,
3049 FLOAT *W,
3050 FLOAT_COMPLEX *Z,
3051 const INTEGER *LDZ,
3052 FLOAT_COMPLEX *WORK,
3053 const INTEGER *LWORK,
3054 FLOAT *RWORK,
3055 INTEGER *IWORK,
3056 INTEGER *IFAIL,
3057 INTEGER *INFO)
3058 {
3059 DEBUG_LAPACK_STUB("cheevx");
3060 LAPACK_IMPL(cheevx)(JOBZ,
3061 RANGE,
3062 UPLO,
3063 N,
3064 A,
3065 LDA,
3066 VL,
3067 VU,
3068 IL,
3069 IU,
3070 ABSTOL,
3071 M,
3072 W,
3073 Z,
3074 LDZ,
3075 WORK,
3076 LWORK,
3077 RWORK,
3078 IWORK,
3079 IFAIL,
3080 INFO);
3081 }
3082
3083 //-- chegs2 --------------------------------------------------------------------
3084 void
LAPACK_DECL(chegs2)3085 LAPACK_DECL(chegs2)(const INTEGER *ITYPE,
3086 const char *UPLO,
3087 const INTEGER *N,
3088 FLOAT_COMPLEX *A,
3089 const INTEGER *LDA,
3090 const FLOAT_COMPLEX *B,
3091 const INTEGER *LDB,
3092 INTEGER *INFO)
3093 {
3094 DEBUG_LAPACK_STUB("chegs2");
3095 LAPACK_IMPL(chegs2)(ITYPE,
3096 UPLO,
3097 N,
3098 A,
3099 LDA,
3100 B,
3101 LDB,
3102 INFO);
3103 }
3104
3105 //-- chegst --------------------------------------------------------------------
3106 void
LAPACK_DECL(chegst)3107 LAPACK_DECL(chegst)(const INTEGER *ITYPE,
3108 const char *UPLO,
3109 const INTEGER *N,
3110 FLOAT_COMPLEX *A,
3111 const INTEGER *LDA,
3112 const FLOAT_COMPLEX *B,
3113 const INTEGER *LDB,
3114 INTEGER *INFO)
3115 {
3116 DEBUG_LAPACK_STUB("chegst");
3117 LAPACK_IMPL(chegst)(ITYPE,
3118 UPLO,
3119 N,
3120 A,
3121 LDA,
3122 B,
3123 LDB,
3124 INFO);
3125 }
3126
3127 //-- chegv ---------------------------------------------------------------------
3128 void
LAPACK_DECL(chegv)3129 LAPACK_DECL(chegv)(const INTEGER *ITYPE,
3130 const char *JOBZ,
3131 const char *UPLO,
3132 const INTEGER *N,
3133 FLOAT_COMPLEX *A,
3134 const INTEGER *LDA,
3135 FLOAT_COMPLEX *B,
3136 const INTEGER *LDB,
3137 FLOAT *W,
3138 FLOAT_COMPLEX *WORK,
3139 const INTEGER *LWORK,
3140 FLOAT *RWORK,
3141 INTEGER *INFO)
3142 {
3143 DEBUG_LAPACK_STUB("chegv");
3144 LAPACK_IMPL(chegv)(ITYPE,
3145 JOBZ,
3146 UPLO,
3147 N,
3148 A,
3149 LDA,
3150 B,
3151 LDB,
3152 W,
3153 WORK,
3154 LWORK,
3155 RWORK,
3156 INFO);
3157 }
3158
3159 //-- chegvd --------------------------------------------------------------------
3160 void
LAPACK_DECL(chegvd)3161 LAPACK_DECL(chegvd)(const INTEGER *ITYPE,
3162 const char *JOBZ,
3163 const char *UPLO,
3164 const INTEGER *N,
3165 FLOAT_COMPLEX *A,
3166 const INTEGER *LDA,
3167 FLOAT_COMPLEX *B,
3168 const INTEGER *LDB,
3169 FLOAT *W,
3170 FLOAT_COMPLEX *WORK,
3171 const INTEGER *LWORK,
3172 FLOAT *RWORK,
3173 const INTEGER *LRWORK,
3174 INTEGER *IWORK,
3175 const INTEGER *LIWORK,
3176 INTEGER *INFO)
3177 {
3178 DEBUG_LAPACK_STUB("chegvd");
3179 LAPACK_IMPL(chegvd)(ITYPE,
3180 JOBZ,
3181 UPLO,
3182 N,
3183 A,
3184 LDA,
3185 B,
3186 LDB,
3187 W,
3188 WORK,
3189 LWORK,
3190 RWORK,
3191 LRWORK,
3192 IWORK,
3193 LIWORK,
3194 INFO);
3195 }
3196
3197 //-- chegvx --------------------------------------------------------------------
3198 void
LAPACK_DECL(chegvx)3199 LAPACK_DECL(chegvx)(const INTEGER *ITYPE,
3200 const char *JOBZ,
3201 const char *RANGE,
3202 const char *UPLO,
3203 const INTEGER *N,
3204 FLOAT_COMPLEX *A,
3205 const INTEGER *LDA,
3206 FLOAT_COMPLEX *B,
3207 const INTEGER *LDB,
3208 const FLOAT *VL,
3209 const FLOAT *VU,
3210 const INTEGER *IL,
3211 const INTEGER *IU,
3212 const FLOAT *ABSTOL,
3213 INTEGER *M,
3214 FLOAT *W,
3215 FLOAT_COMPLEX *Z,
3216 const INTEGER *LDZ,
3217 FLOAT_COMPLEX *WORK,
3218 const INTEGER *LWORK,
3219 FLOAT *RWORK,
3220 INTEGER *IWORK,
3221 INTEGER *IFAIL,
3222 INTEGER *INFO)
3223 {
3224 DEBUG_LAPACK_STUB("chegvx");
3225 LAPACK_IMPL(chegvx)(ITYPE,
3226 JOBZ,
3227 RANGE,
3228 UPLO,
3229 N,
3230 A,
3231 LDA,
3232 B,
3233 LDB,
3234 VL,
3235 VU,
3236 IL,
3237 IU,
3238 ABSTOL,
3239 M,
3240 W,
3241 Z,
3242 LDZ,
3243 WORK,
3244 LWORK,
3245 RWORK,
3246 IWORK,
3247 IFAIL,
3248 INFO);
3249 }
3250
3251 //-- cherfs --------------------------------------------------------------------
3252 void
LAPACK_DECL(cherfs)3253 LAPACK_DECL(cherfs)(const char *UPLO,
3254 const INTEGER *N,
3255 const INTEGER *NRHS,
3256 const FLOAT_COMPLEX *A,
3257 const INTEGER *LDA,
3258 const FLOAT_COMPLEX *AF,
3259 const INTEGER *LDAF,
3260 const INTEGER *IPIV,
3261 const FLOAT_COMPLEX *B,
3262 const INTEGER *LDB,
3263 FLOAT_COMPLEX *X,
3264 const INTEGER *LDX,
3265 FLOAT *FERR,
3266 FLOAT *BERR,
3267 FLOAT_COMPLEX *WORK,
3268 FLOAT *RWORK,
3269 INTEGER *INFO)
3270 {
3271 DEBUG_LAPACK_STUB("cherfs");
3272 LAPACK_IMPL(cherfs)(UPLO,
3273 N,
3274 NRHS,
3275 A,
3276 LDA,
3277 AF,
3278 LDAF,
3279 IPIV,
3280 B,
3281 LDB,
3282 X,
3283 LDX,
3284 FERR,
3285 BERR,
3286 WORK,
3287 RWORK,
3288 INFO);
3289 }
3290
3291 //-- cherfsx -------------------------------------------------------------------
3292 void
LAPACK_DECL(cherfsx)3293 LAPACK_DECL(cherfsx)(const char *UPLO,
3294 const char *EQUED,
3295 const INTEGER *N,
3296 const INTEGER *NRHS,
3297 const FLOAT_COMPLEX *A,
3298 const INTEGER *LDA,
3299 const FLOAT_COMPLEX *AF,
3300 const INTEGER *LDAF,
3301 const INTEGER *IPIV,
3302 FLOAT *S,
3303 const FLOAT_COMPLEX *B,
3304 const INTEGER *LDB,
3305 FLOAT_COMPLEX *X,
3306 const INTEGER *LDX,
3307 FLOAT *RCOND,
3308 FLOAT *BERR,
3309 const INTEGER *N_ERR_BNDS,
3310 FLOAT *ERR_BNDS_NORM,
3311 FLOAT *ERR_BNDS_COMP,
3312 const INTEGER *NPARAMS,
3313 FLOAT *PARAMS,
3314 FLOAT_COMPLEX *WORK,
3315 FLOAT *RWORK,
3316 INTEGER *INFO)
3317 {
3318 DEBUG_LAPACK_STUB("cherfsx");
3319 LAPACK_IMPL(cherfsx)(UPLO,
3320 EQUED,
3321 N,
3322 NRHS,
3323 A,
3324 LDA,
3325 AF,
3326 LDAF,
3327 IPIV,
3328 S,
3329 B,
3330 LDB,
3331 X,
3332 LDX,
3333 RCOND,
3334 BERR,
3335 N_ERR_BNDS,
3336 ERR_BNDS_NORM,
3337 ERR_BNDS_COMP,
3338 NPARAMS,
3339 PARAMS,
3340 WORK,
3341 RWORK,
3342 INFO);
3343 }
3344
3345 //-- chesv ---------------------------------------------------------------------
3346 void
LAPACK_DECL(chesv)3347 LAPACK_DECL(chesv)(const char *UPLO,
3348 const INTEGER *N,
3349 const INTEGER *NRHS,
3350 FLOAT_COMPLEX *A,
3351 const INTEGER *LDA,
3352 INTEGER *IPIV,
3353 FLOAT_COMPLEX *B,
3354 const INTEGER *LDB,
3355 FLOAT_COMPLEX *WORK,
3356 const INTEGER *LWORK,
3357 INTEGER *INFO)
3358 {
3359 DEBUG_LAPACK_STUB("chesv");
3360 LAPACK_IMPL(chesv)(UPLO,
3361 N,
3362 NRHS,
3363 A,
3364 LDA,
3365 IPIV,
3366 B,
3367 LDB,
3368 WORK,
3369 LWORK,
3370 INFO);
3371 }
3372
3373 //-- chesvx --------------------------------------------------------------------
3374 void
LAPACK_DECL(chesvx)3375 LAPACK_DECL(chesvx)(const char *FACT,
3376 const char *UPLO,
3377 const INTEGER *N,
3378 const INTEGER *NRHS,
3379 const FLOAT_COMPLEX *A,
3380 const INTEGER *LDA,
3381 FLOAT_COMPLEX *AF,
3382 const INTEGER *LDAF,
3383 INTEGER *IPIV,
3384 const FLOAT_COMPLEX *B,
3385 const INTEGER *LDB,
3386 FLOAT_COMPLEX *X,
3387 const INTEGER *LDX,
3388 FLOAT *RCOND,
3389 FLOAT *FERR,
3390 FLOAT *BERR,
3391 FLOAT_COMPLEX *WORK,
3392 const INTEGER *LWORK,
3393 FLOAT *RWORK,
3394 INTEGER *INFO)
3395 {
3396 DEBUG_LAPACK_STUB("chesvx");
3397 LAPACK_IMPL(chesvx)(FACT,
3398 UPLO,
3399 N,
3400 NRHS,
3401 A,
3402 LDA,
3403 AF,
3404 LDAF,
3405 IPIV,
3406 B,
3407 LDB,
3408 X,
3409 LDX,
3410 RCOND,
3411 FERR,
3412 BERR,
3413 WORK,
3414 LWORK,
3415 RWORK,
3416 INFO);
3417 }
3418
3419 //-- chesvxx -------------------------------------------------------------------
3420 void
LAPACK_DECL(chesvxx)3421 LAPACK_DECL(chesvxx)(const char *FACT,
3422 const char *UPLO,
3423 const INTEGER *N,
3424 const INTEGER *NRHS,
3425 FLOAT_COMPLEX *A,
3426 const INTEGER *LDA,
3427 FLOAT_COMPLEX *AF,
3428 const INTEGER *LDAF,
3429 INTEGER *IPIV,
3430 char *EQUED,
3431 FLOAT *S,
3432 FLOAT_COMPLEX *B,
3433 const INTEGER *LDB,
3434 FLOAT_COMPLEX *X,
3435 const INTEGER *LDX,
3436 FLOAT *RCOND,
3437 FLOAT *RPVGRW,
3438 FLOAT *BERR,
3439 const INTEGER *N_ERR_BNDS,
3440 FLOAT *ERR_BNDS_NORM,
3441 FLOAT *ERR_BNDS_COMP,
3442 const INTEGER *NPARAMS,
3443 FLOAT *PARAMS,
3444 FLOAT_COMPLEX *WORK,
3445 FLOAT *RWORK,
3446 INTEGER *INFO)
3447 {
3448 DEBUG_LAPACK_STUB("chesvxx");
3449 LAPACK_IMPL(chesvxx)(FACT,
3450 UPLO,
3451 N,
3452 NRHS,
3453 A,
3454 LDA,
3455 AF,
3456 LDAF,
3457 IPIV,
3458 EQUED,
3459 S,
3460 B,
3461 LDB,
3462 X,
3463 LDX,
3464 RCOND,
3465 RPVGRW,
3466 BERR,
3467 N_ERR_BNDS,
3468 ERR_BNDS_NORM,
3469 ERR_BNDS_COMP,
3470 NPARAMS,
3471 PARAMS,
3472 WORK,
3473 RWORK,
3474 INFO);
3475 }
3476
3477 //-- cheswapr ------------------------------------------------------------------
3478 void
LAPACK_DECL(cheswapr)3479 LAPACK_DECL(cheswapr)(const char *UPLO,
3480 const INTEGER *N,
3481 FLOAT_COMPLEX *A,
3482 const INTEGER *LDA,
3483 const INTEGER *I1,
3484 const INTEGER *I2)
3485 {
3486 DEBUG_LAPACK_STUB("cheswapr");
3487 LAPACK_IMPL(cheswapr)(UPLO,
3488 N,
3489 A,
3490 LDA,
3491 I1,
3492 I2);
3493 }
3494
3495 //-- chetd2 --------------------------------------------------------------------
3496 void
LAPACK_DECL(chetd2)3497 LAPACK_DECL(chetd2)(const char *UPLO,
3498 const INTEGER *N,
3499 FLOAT_COMPLEX *A,
3500 const INTEGER *LDA,
3501 FLOAT *D,
3502 FLOAT *E,
3503 FLOAT_COMPLEX *TAU,
3504 INTEGER *INFO)
3505 {
3506 DEBUG_LAPACK_STUB("chetd2");
3507 LAPACK_IMPL(chetd2)(UPLO,
3508 N,
3509 A,
3510 LDA,
3511 D,
3512 E,
3513 TAU,
3514 INFO);
3515 }
3516
3517 //-- chetf2 --------------------------------------------------------------------
3518 void
LAPACK_DECL(chetf2)3519 LAPACK_DECL(chetf2)(const char *UPLO,
3520 const INTEGER *N,
3521 FLOAT_COMPLEX *A,
3522 const INTEGER *LDA,
3523 INTEGER *IPIV,
3524 INTEGER *INFO)
3525 {
3526 DEBUG_LAPACK_STUB("chetf2");
3527 LAPACK_IMPL(chetf2)(UPLO,
3528 N,
3529 A,
3530 LDA,
3531 IPIV,
3532 INFO);
3533 }
3534
3535 //-- chetrd --------------------------------------------------------------------
3536 void
LAPACK_DECL(chetrd)3537 LAPACK_DECL(chetrd)(const char *UPLO,
3538 const INTEGER *N,
3539 FLOAT_COMPLEX *A,
3540 const INTEGER *LDA,
3541 FLOAT *D,
3542 FLOAT *E,
3543 FLOAT_COMPLEX *TAU,
3544 FLOAT_COMPLEX *WORK,
3545 const INTEGER *LWORK,
3546 INTEGER *INFO)
3547 {
3548 DEBUG_LAPACK_STUB("chetrd");
3549 LAPACK_IMPL(chetrd)(UPLO,
3550 N,
3551 A,
3552 LDA,
3553 D,
3554 E,
3555 TAU,
3556 WORK,
3557 LWORK,
3558 INFO);
3559 }
3560
3561 //-- chetrf --------------------------------------------------------------------
3562 void
LAPACK_DECL(chetrf)3563 LAPACK_DECL(chetrf)(const char *UPLO,
3564 const INTEGER *N,
3565 FLOAT_COMPLEX *A,
3566 const INTEGER *LDA,
3567 INTEGER *IPIV,
3568 FLOAT_COMPLEX *WORK,
3569 const INTEGER *LWORK,
3570 INTEGER *INFO)
3571 {
3572 DEBUG_LAPACK_STUB("chetrf");
3573 LAPACK_IMPL(chetrf)(UPLO,
3574 N,
3575 A,
3576 LDA,
3577 IPIV,
3578 WORK,
3579 LWORK,
3580 INFO);
3581 }
3582
3583 //-- chetri --------------------------------------------------------------------
3584 void
LAPACK_DECL(chetri)3585 LAPACK_DECL(chetri)(const char *UPLO,
3586 const INTEGER *N,
3587 FLOAT_COMPLEX *A,
3588 const INTEGER *LDA,
3589 const INTEGER *IPIV,
3590 FLOAT_COMPLEX *WORK,
3591 INTEGER *INFO)
3592 {
3593 DEBUG_LAPACK_STUB("chetri");
3594 LAPACK_IMPL(chetri)(UPLO,
3595 N,
3596 A,
3597 LDA,
3598 IPIV,
3599 WORK,
3600 INFO);
3601 }
3602
3603 //-- chetri2 -------------------------------------------------------------------
3604 void
LAPACK_DECL(chetri2)3605 LAPACK_DECL(chetri2)(const char *UPLO,
3606 const INTEGER *N,
3607 FLOAT_COMPLEX *A,
3608 const INTEGER *LDA,
3609 const INTEGER *IPIV,
3610 FLOAT_COMPLEX *WORK,
3611 const INTEGER *LWORK,
3612 INTEGER *INFO)
3613 {
3614 DEBUG_LAPACK_STUB("chetri2");
3615 LAPACK_IMPL(chetri2)(UPLO,
3616 N,
3617 A,
3618 LDA,
3619 IPIV,
3620 WORK,
3621 LWORK,
3622 INFO);
3623 }
3624
3625 //-- chetri2x ------------------------------------------------------------------
3626 void
LAPACK_DECL(chetri2x)3627 LAPACK_DECL(chetri2x)(const char *UPLO,
3628 const INTEGER *N,
3629 FLOAT_COMPLEX *A,
3630 const INTEGER *LDA,
3631 const INTEGER *IPIV,
3632 FLOAT_COMPLEX *WORK,
3633 const INTEGER *NB,
3634 INTEGER *INFO)
3635 {
3636 DEBUG_LAPACK_STUB("chetri2x");
3637 LAPACK_IMPL(chetri2x)(UPLO,
3638 N,
3639 A,
3640 LDA,
3641 IPIV,
3642 WORK,
3643 NB,
3644 INFO);
3645 }
3646
3647 //-- chetrs --------------------------------------------------------------------
3648 void
LAPACK_DECL(chetrs)3649 LAPACK_DECL(chetrs)(const char *UPLO,
3650 const INTEGER *N,
3651 const INTEGER *NRHS,
3652 const FLOAT_COMPLEX *A,
3653 const INTEGER *LDA,
3654 const INTEGER *IPIV,
3655 FLOAT_COMPLEX *B,
3656 const INTEGER *LDB,
3657 INTEGER *INFO)
3658 {
3659 DEBUG_LAPACK_STUB("chetrs");
3660 LAPACK_IMPL(chetrs)(UPLO,
3661 N,
3662 NRHS,
3663 A,
3664 LDA,
3665 IPIV,
3666 B,
3667 LDB,
3668 INFO);
3669 }
3670
3671 //-- chetrs2 -------------------------------------------------------------------
3672 void
LAPACK_DECL(chetrs2)3673 LAPACK_DECL(chetrs2)(const char *UPLO,
3674 const INTEGER *N,
3675 const INTEGER *NRHS,
3676 const FLOAT_COMPLEX *A,
3677 const INTEGER *LDA,
3678 const INTEGER *IPIV,
3679 FLOAT_COMPLEX *B,
3680 const INTEGER *LDB,
3681 FLOAT_COMPLEX *WORK,
3682 INTEGER *INFO)
3683 {
3684 DEBUG_LAPACK_STUB("chetrs2");
3685 LAPACK_IMPL(chetrs2)(UPLO,
3686 N,
3687 NRHS,
3688 A,
3689 LDA,
3690 IPIV,
3691 B,
3692 LDB,
3693 WORK,
3694 INFO);
3695 }
3696
3697 //-- chfrk ---------------------------------------------------------------------
3698 void
LAPACK_DECL(chfrk)3699 LAPACK_DECL(chfrk)(const char *TRANSR,
3700 const char *UPLO,
3701 const char *TRANS,
3702 const INTEGER *N,
3703 const INTEGER *K,
3704 const FLOAT *ALPHA,
3705 const FLOAT_COMPLEX *A,
3706 const INTEGER *LDA,
3707 const FLOAT *BETA,
3708 FLOAT_COMPLEX *C)
3709 {
3710 DEBUG_LAPACK_STUB("chfrk");
3711 LAPACK_IMPL(chfrk)(TRANSR,
3712 UPLO,
3713 TRANS,
3714 N,
3715 K,
3716 ALPHA,
3717 A,
3718 LDA,
3719 BETA,
3720 C);
3721 }
3722
3723 //-- chgeqz --------------------------------------------------------------------
3724 void
LAPACK_DECL(chgeqz)3725 LAPACK_DECL(chgeqz)(const char *JOB,
3726 const char *COMPQ,
3727 const char *COMPZ,
3728 const INTEGER *N,
3729 const INTEGER *ILO,
3730 const INTEGER *IHI,
3731 FLOAT_COMPLEX *H,
3732 const INTEGER *LDH,
3733 FLOAT_COMPLEX *T,
3734 const INTEGER *LDT,
3735 FLOAT_COMPLEX *ALPHA,
3736 FLOAT_COMPLEX *BETA,
3737 FLOAT_COMPLEX *Q,
3738 const INTEGER *LDQ,
3739 FLOAT_COMPLEX *Z,
3740 const INTEGER *LDZ,
3741 FLOAT_COMPLEX *WORK,
3742 const INTEGER *LWORK,
3743 FLOAT *RWORK,
3744 INTEGER *INFO)
3745 {
3746 DEBUG_LAPACK_STUB("chgeqz");
3747 LAPACK_IMPL(chgeqz)(JOB,
3748 COMPQ,
3749 COMPZ,
3750 N,
3751 ILO,
3752 IHI,
3753 H,
3754 LDH,
3755 T,
3756 LDT,
3757 ALPHA,
3758 BETA,
3759 Q,
3760 LDQ,
3761 Z,
3762 LDZ,
3763 WORK,
3764 LWORK,
3765 RWORK,
3766 INFO);
3767 }
3768
3769 //-- chla_transtype ------------------------------------------------------------
3770 UNKNOWN
LAPACK_DECL(chla_transtype)3771 LAPACK_DECL(chla_transtype)(const INTEGER *TRANS)
3772 {
3773 DEBUG_LAPACK_STUB("chla_transtype");
3774 return LAPACK_IMPL(chla_transtype)(TRANS);
3775 }
3776
3777 //-- chpcon --------------------------------------------------------------------
3778 void
LAPACK_DECL(chpcon)3779 LAPACK_DECL(chpcon)(const char *UPLO,
3780 const INTEGER *N,
3781 const FLOAT_COMPLEX *AP,
3782 const INTEGER *IPIV,
3783 const FLOAT *ANORM,
3784 FLOAT *RCOND,
3785 FLOAT_COMPLEX *WORK,
3786 INTEGER *INFO)
3787 {
3788 DEBUG_LAPACK_STUB("chpcon");
3789 LAPACK_IMPL(chpcon)(UPLO,
3790 N,
3791 AP,
3792 IPIV,
3793 ANORM,
3794 RCOND,
3795 WORK,
3796 INFO);
3797 }
3798
3799 //-- chpev ---------------------------------------------------------------------
3800 void
LAPACK_DECL(chpev)3801 LAPACK_DECL(chpev)(const char *JOBZ,
3802 const char *UPLO,
3803 const INTEGER *N,
3804 FLOAT_COMPLEX *AP,
3805 FLOAT *W,
3806 FLOAT_COMPLEX *Z,
3807 const INTEGER *LDZ,
3808 FLOAT_COMPLEX *WORK,
3809 FLOAT *RWORK,
3810 INTEGER *INFO)
3811 {
3812 DEBUG_LAPACK_STUB("chpev");
3813 LAPACK_IMPL(chpev)(JOBZ,
3814 UPLO,
3815 N,
3816 AP,
3817 W,
3818 Z,
3819 LDZ,
3820 WORK,
3821 RWORK,
3822 INFO);
3823 }
3824
3825 //-- chpevd --------------------------------------------------------------------
3826 void
LAPACK_DECL(chpevd)3827 LAPACK_DECL(chpevd)(const char *JOBZ,
3828 const char *UPLO,
3829 const INTEGER *N,
3830 FLOAT_COMPLEX *AP,
3831 FLOAT *W,
3832 FLOAT_COMPLEX *Z,
3833 const INTEGER *LDZ,
3834 FLOAT_COMPLEX *WORK,
3835 const INTEGER *LWORK,
3836 FLOAT *RWORK,
3837 const INTEGER *LRWORK,
3838 INTEGER *IWORK,
3839 const INTEGER *LIWORK,
3840 INTEGER *INFO)
3841 {
3842 DEBUG_LAPACK_STUB("chpevd");
3843 LAPACK_IMPL(chpevd)(JOBZ,
3844 UPLO,
3845 N,
3846 AP,
3847 W,
3848 Z,
3849 LDZ,
3850 WORK,
3851 LWORK,
3852 RWORK,
3853 LRWORK,
3854 IWORK,
3855 LIWORK,
3856 INFO);
3857 }
3858
3859 //-- chpevx --------------------------------------------------------------------
3860 void
LAPACK_DECL(chpevx)3861 LAPACK_DECL(chpevx)(const char *JOBZ,
3862 const char *RANGE,
3863 const char *UPLO,
3864 const INTEGER *N,
3865 FLOAT_COMPLEX *AP,
3866 const FLOAT *VL,
3867 const FLOAT *VU,
3868 const INTEGER *IL,
3869 const INTEGER *IU,
3870 const FLOAT *ABSTOL,
3871 INTEGER *M,
3872 FLOAT *W,
3873 FLOAT_COMPLEX *Z,
3874 const INTEGER *LDZ,
3875 FLOAT_COMPLEX *WORK,
3876 FLOAT *RWORK,
3877 INTEGER *IWORK,
3878 INTEGER *IFAIL,
3879 INTEGER *INFO)
3880 {
3881 DEBUG_LAPACK_STUB("chpevx");
3882 LAPACK_IMPL(chpevx)(JOBZ,
3883 RANGE,
3884 UPLO,
3885 N,
3886 AP,
3887 VL,
3888 VU,
3889 IL,
3890 IU,
3891 ABSTOL,
3892 M,
3893 W,
3894 Z,
3895 LDZ,
3896 WORK,
3897 RWORK,
3898 IWORK,
3899 IFAIL,
3900 INFO);
3901 }
3902
3903 //-- chpgst --------------------------------------------------------------------
3904 void
LAPACK_DECL(chpgst)3905 LAPACK_DECL(chpgst)(const INTEGER *ITYPE,
3906 const char *UPLO,
3907 const INTEGER *N,
3908 FLOAT_COMPLEX *AP,
3909 const FLOAT_COMPLEX *BP,
3910 INTEGER *INFO)
3911 {
3912 DEBUG_LAPACK_STUB("chpgst");
3913 LAPACK_IMPL(chpgst)(ITYPE,
3914 UPLO,
3915 N,
3916 AP,
3917 BP,
3918 INFO);
3919 }
3920
3921 //-- chpgv ---------------------------------------------------------------------
3922 void
LAPACK_DECL(chpgv)3923 LAPACK_DECL(chpgv)(const INTEGER *ITYPE,
3924 const char *JOBZ,
3925 const char *UPLO,
3926 const INTEGER *N,
3927 FLOAT_COMPLEX *AP,
3928 FLOAT_COMPLEX *BP,
3929 FLOAT *W,
3930 FLOAT_COMPLEX *Z,
3931 const INTEGER *LDZ,
3932 FLOAT_COMPLEX *WORK,
3933 FLOAT *RWORK,
3934 INTEGER *INFO)
3935 {
3936 DEBUG_LAPACK_STUB("chpgv");
3937 LAPACK_IMPL(chpgv)(ITYPE,
3938 JOBZ,
3939 UPLO,
3940 N,
3941 AP,
3942 BP,
3943 W,
3944 Z,
3945 LDZ,
3946 WORK,
3947 RWORK,
3948 INFO);
3949 }
3950
3951 //-- chpgvd --------------------------------------------------------------------
3952 void
LAPACK_DECL(chpgvd)3953 LAPACK_DECL(chpgvd)(const INTEGER *ITYPE,
3954 const char *JOBZ,
3955 const char *UPLO,
3956 const INTEGER *N,
3957 FLOAT_COMPLEX *AP,
3958 FLOAT_COMPLEX *BP,
3959 FLOAT *W,
3960 FLOAT_COMPLEX *Z,
3961 const INTEGER *LDZ,
3962 FLOAT_COMPLEX *WORK,
3963 const INTEGER *LWORK,
3964 FLOAT *RWORK,
3965 const INTEGER *LRWORK,
3966 INTEGER *IWORK,
3967 const INTEGER *LIWORK,
3968 INTEGER *INFO)
3969 {
3970 DEBUG_LAPACK_STUB("chpgvd");
3971 LAPACK_IMPL(chpgvd)(ITYPE,
3972 JOBZ,
3973 UPLO,
3974 N,
3975 AP,
3976 BP,
3977 W,
3978 Z,
3979 LDZ,
3980 WORK,
3981 LWORK,
3982 RWORK,
3983 LRWORK,
3984 IWORK,
3985 LIWORK,
3986 INFO);
3987 }
3988
3989 //-- chpgvx --------------------------------------------------------------------
3990 void
LAPACK_DECL(chpgvx)3991 LAPACK_DECL(chpgvx)(const INTEGER *ITYPE,
3992 const char *JOBZ,
3993 const char *RANGE,
3994 const char *UPLO,
3995 const INTEGER *N,
3996 FLOAT_COMPLEX *AP,
3997 FLOAT_COMPLEX *BP,
3998 const FLOAT *VL,
3999 const FLOAT *VU,
4000 const INTEGER *IL,
4001 const INTEGER *IU,
4002 const FLOAT *ABSTOL,
4003 INTEGER *M,
4004 FLOAT *W,
4005 FLOAT_COMPLEX *Z,
4006 const INTEGER *LDZ,
4007 FLOAT_COMPLEX *WORK,
4008 FLOAT *RWORK,
4009 INTEGER *IWORK,
4010 INTEGER *IFAIL,
4011 INTEGER *INFO)
4012 {
4013 DEBUG_LAPACK_STUB("chpgvx");
4014 LAPACK_IMPL(chpgvx)(ITYPE,
4015 JOBZ,
4016 RANGE,
4017 UPLO,
4018 N,
4019 AP,
4020 BP,
4021 VL,
4022 VU,
4023 IL,
4024 IU,
4025 ABSTOL,
4026 M,
4027 W,
4028 Z,
4029 LDZ,
4030 WORK,
4031 RWORK,
4032 IWORK,
4033 IFAIL,
4034 INFO);
4035 }
4036
4037 //-- chprfs --------------------------------------------------------------------
4038 void
LAPACK_DECL(chprfs)4039 LAPACK_DECL(chprfs)(const char *UPLO,
4040 const INTEGER *N,
4041 const INTEGER *NRHS,
4042 const FLOAT_COMPLEX *AP,
4043 const FLOAT_COMPLEX *AFP,
4044 const INTEGER *IPIV,
4045 const FLOAT_COMPLEX *B,
4046 const INTEGER *LDB,
4047 FLOAT_COMPLEX *X,
4048 const INTEGER *LDX,
4049 FLOAT *FERR,
4050 FLOAT *BERR,
4051 FLOAT_COMPLEX *WORK,
4052 FLOAT *RWORK,
4053 INTEGER *INFO)
4054 {
4055 DEBUG_LAPACK_STUB("chprfs");
4056 LAPACK_IMPL(chprfs)(UPLO,
4057 N,
4058 NRHS,
4059 AP,
4060 AFP,
4061 IPIV,
4062 B,
4063 LDB,
4064 X,
4065 LDX,
4066 FERR,
4067 BERR,
4068 WORK,
4069 RWORK,
4070 INFO);
4071 }
4072
4073 //-- chpsv ---------------------------------------------------------------------
4074 void
LAPACK_DECL(chpsv)4075 LAPACK_DECL(chpsv)(const char *UPLO,
4076 const INTEGER *N,
4077 const INTEGER *NRHS,
4078 FLOAT_COMPLEX *AP,
4079 INTEGER *IPIV,
4080 FLOAT_COMPLEX *B,
4081 const INTEGER *LDB,
4082 INTEGER *INFO)
4083 {
4084 DEBUG_LAPACK_STUB("chpsv");
4085 LAPACK_IMPL(chpsv)(UPLO,
4086 N,
4087 NRHS,
4088 AP,
4089 IPIV,
4090 B,
4091 LDB,
4092 INFO);
4093 }
4094
4095 //-- chpsvx --------------------------------------------------------------------
4096 void
LAPACK_DECL(chpsvx)4097 LAPACK_DECL(chpsvx)(const char *FACT,
4098 const char *UPLO,
4099 const INTEGER *N,
4100 const INTEGER *NRHS,
4101 const FLOAT_COMPLEX *AP,
4102 FLOAT_COMPLEX *AFP,
4103 INTEGER *IPIV,
4104 const FLOAT_COMPLEX *B,
4105 const INTEGER *LDB,
4106 FLOAT_COMPLEX *X,
4107 const INTEGER *LDX,
4108 FLOAT *RCOND,
4109 FLOAT *FERR,
4110 FLOAT *BERR,
4111 FLOAT_COMPLEX *WORK,
4112 FLOAT *RWORK,
4113 INTEGER *INFO)
4114 {
4115 DEBUG_LAPACK_STUB("chpsvx");
4116 LAPACK_IMPL(chpsvx)(FACT,
4117 UPLO,
4118 N,
4119 NRHS,
4120 AP,
4121 AFP,
4122 IPIV,
4123 B,
4124 LDB,
4125 X,
4126 LDX,
4127 RCOND,
4128 FERR,
4129 BERR,
4130 WORK,
4131 RWORK,
4132 INFO);
4133 }
4134
4135 //-- chptrd --------------------------------------------------------------------
4136 void
LAPACK_DECL(chptrd)4137 LAPACK_DECL(chptrd)(const char *UPLO,
4138 const INTEGER *N,
4139 FLOAT_COMPLEX *AP,
4140 FLOAT *D,
4141 FLOAT *E,
4142 FLOAT_COMPLEX *TAU,
4143 INTEGER *INFO)
4144 {
4145 DEBUG_LAPACK_STUB("chptrd");
4146 LAPACK_IMPL(chptrd)(UPLO,
4147 N,
4148 AP,
4149 D,
4150 E,
4151 TAU,
4152 INFO);
4153 }
4154
4155 //-- chptrf --------------------------------------------------------------------
4156 void
LAPACK_DECL(chptrf)4157 LAPACK_DECL(chptrf)(const char *UPLO,
4158 const INTEGER *N,
4159 FLOAT_COMPLEX *AP,
4160 INTEGER *IPIV,
4161 INTEGER *INFO)
4162 {
4163 DEBUG_LAPACK_STUB("chptrf");
4164 LAPACK_IMPL(chptrf)(UPLO,
4165 N,
4166 AP,
4167 IPIV,
4168 INFO);
4169 }
4170
4171 //-- chptri --------------------------------------------------------------------
4172 void
LAPACK_DECL(chptri)4173 LAPACK_DECL(chptri)(const char *UPLO,
4174 const INTEGER *N,
4175 FLOAT_COMPLEX *AP,
4176 const INTEGER *IPIV,
4177 FLOAT_COMPLEX *WORK,
4178 INTEGER *INFO)
4179 {
4180 DEBUG_LAPACK_STUB("chptri");
4181 LAPACK_IMPL(chptri)(UPLO,
4182 N,
4183 AP,
4184 IPIV,
4185 WORK,
4186 INFO);
4187 }
4188
4189 //-- chptrs --------------------------------------------------------------------
4190 void
LAPACK_DECL(chptrs)4191 LAPACK_DECL(chptrs)(const char *UPLO,
4192 const INTEGER *N,
4193 const INTEGER *NRHS,
4194 const FLOAT_COMPLEX *AP,
4195 const INTEGER *IPIV,
4196 FLOAT_COMPLEX *B,
4197 const INTEGER *LDB,
4198 INTEGER *INFO)
4199 {
4200 DEBUG_LAPACK_STUB("chptrs");
4201 LAPACK_IMPL(chptrs)(UPLO,
4202 N,
4203 NRHS,
4204 AP,
4205 IPIV,
4206 B,
4207 LDB,
4208 INFO);
4209 }
4210
4211 //-- chsein --------------------------------------------------------------------
4212 void
LAPACK_DECL(chsein)4213 LAPACK_DECL(chsein)(const char *SIDE,
4214 const char *EIGSRC,
4215 const char *INITV,
4216 const LOGICAL *SELECT,
4217 const INTEGER *N,
4218 const FLOAT_COMPLEX *H,
4219 const INTEGER *LDH,
4220 FLOAT_COMPLEX *W,
4221 FLOAT_COMPLEX *VL,
4222 const INTEGER *LDVL,
4223 FLOAT_COMPLEX *VR,
4224 const INTEGER *LDVR,
4225 const INTEGER *MM,
4226 INTEGER *M,
4227 FLOAT_COMPLEX *WORK,
4228 FLOAT *RWORK,
4229 INTEGER *IFAILL,
4230 INTEGER *IFAILR,
4231 INTEGER *INFO)
4232 {
4233 DEBUG_LAPACK_STUB("chsein");
4234 LAPACK_IMPL(chsein)(SIDE,
4235 EIGSRC,
4236 INITV,
4237 SELECT,
4238 N,
4239 H,
4240 LDH,
4241 W,
4242 VL,
4243 LDVL,
4244 VR,
4245 LDVR,
4246 MM,
4247 M,
4248 WORK,
4249 RWORK,
4250 IFAILL,
4251 IFAILR,
4252 INFO);
4253 }
4254
4255 //-- chseqr --------------------------------------------------------------------
4256 void
LAPACK_DECL(chseqr)4257 LAPACK_DECL(chseqr)(const char *JOB,
4258 const char *COMPZ,
4259 const INTEGER *N,
4260 const INTEGER *ILO,
4261 const INTEGER *IHI,
4262 FLOAT_COMPLEX *H,
4263 const INTEGER *LDH,
4264 FLOAT_COMPLEX *W,
4265 FLOAT_COMPLEX *Z,
4266 const INTEGER *LDZ,
4267 FLOAT_COMPLEX *WORK,
4268 const INTEGER *LWORK,
4269 INTEGER *INFO)
4270 {
4271 DEBUG_LAPACK_STUB("chseqr");
4272 LAPACK_IMPL(chseqr)(JOB,
4273 COMPZ,
4274 N,
4275 ILO,
4276 IHI,
4277 H,
4278 LDH,
4279 W,
4280 Z,
4281 LDZ,
4282 WORK,
4283 LWORK,
4284 INFO);
4285 }
4286
4287 //-- cla_gbamv -----------------------------------------------------------------
4288 void
LAPACK_DECL(cla_gbamv)4289 LAPACK_DECL(cla_gbamv)(const INTEGER *TRANS,
4290 const INTEGER *M,
4291 const INTEGER *N,
4292 const INTEGER *KL,
4293 const INTEGER *KU,
4294 const FLOAT *ALPHA,
4295 const FLOAT_COMPLEX *AB,
4296 const INTEGER *LDAB,
4297 const FLOAT_COMPLEX *X,
4298 const INTEGER *INCX,
4299 const FLOAT *BETA,
4300 FLOAT *Y,
4301 const INTEGER *INCY)
4302 {
4303 DEBUG_LAPACK_STUB("cla_gbamv");
4304 LAPACK_IMPL(cla_gbamv)(TRANS,
4305 M,
4306 N,
4307 KL,
4308 KU,
4309 ALPHA,
4310 AB,
4311 LDAB,
4312 X,
4313 INCX,
4314 BETA,
4315 Y,
4316 INCY);
4317 }
4318
4319 //-- cla_gbrcond_c -------------------------------------------------------------
4320 FLOAT
LAPACK_DECL(cla_gbrcond_c)4321 LAPACK_DECL(cla_gbrcond_c)(const char *TRANS,
4322 const INTEGER *N,
4323 const INTEGER *KL,
4324 const INTEGER *KU,
4325 const FLOAT_COMPLEX *AB,
4326 const INTEGER *LDAB,
4327 const FLOAT_COMPLEX *AFB,
4328 const INTEGER *LDAFB,
4329 const INTEGER *IPIV,
4330 const FLOAT *C,
4331 const LOGICAL *CAPPLY,
4332 INTEGER *INFO,
4333 const FLOAT_COMPLEX *WORK,
4334 const FLOAT *RWORK)
4335 {
4336 DEBUG_LAPACK_STUB("cla_gbrcond_c");
4337 return LAPACK_IMPL(cla_gbrcond_c)(TRANS,
4338 N,
4339 KL,
4340 KU,
4341 AB,
4342 LDAB,
4343 AFB,
4344 LDAFB,
4345 IPIV,
4346 C,
4347 CAPPLY,
4348 INFO,
4349 WORK,
4350 RWORK);
4351 }
4352
4353 //-- cla_gbrcond_x -------------------------------------------------------------
4354 FLOAT
LAPACK_DECL(cla_gbrcond_x)4355 LAPACK_DECL(cla_gbrcond_x)(const char *TRANS,
4356 const INTEGER *N,
4357 const INTEGER *KL,
4358 const INTEGER *KU,
4359 const FLOAT_COMPLEX *AB,
4360 const INTEGER *LDAB,
4361 const FLOAT_COMPLEX *AFB,
4362 const INTEGER *LDAFB,
4363 const INTEGER *IPIV,
4364 const FLOAT_COMPLEX *X,
4365 INTEGER *INFO,
4366 const FLOAT_COMPLEX *WORK,
4367 const FLOAT *RWORK)
4368 {
4369 DEBUG_LAPACK_STUB("cla_gbrcond_x");
4370 return LAPACK_IMPL(cla_gbrcond_x)(TRANS,
4371 N,
4372 KL,
4373 KU,
4374 AB,
4375 LDAB,
4376 AFB,
4377 LDAFB,
4378 IPIV,
4379 X,
4380 INFO,
4381 WORK,
4382 RWORK);
4383 }
4384
4385 //-- cla_gbrfsx_extended -------------------------------------------------------
4386 void
LAPACK_DECL(cla_gbrfsx_extended)4387 LAPACK_DECL(cla_gbrfsx_extended)(const INTEGER *PREC_TYPE,
4388 const INTEGER *TRANS_TYPE,
4389 const INTEGER *N,
4390 const INTEGER *KL,
4391 const INTEGER *KU,
4392 const INTEGER *NRHS,
4393 const FLOAT_COMPLEX *AB,
4394 const INTEGER *LDAB,
4395 const FLOAT_COMPLEX *AFB,
4396 const INTEGER *LDAFB,
4397 const INTEGER *IPIV,
4398 const LOGICAL *COLEQU,
4399 const FLOAT *C,
4400 const FLOAT_COMPLEX *B,
4401 const INTEGER *LDB,
4402 FLOAT_COMPLEX *Y,
4403 const INTEGER *LDY,
4404 FLOAT *BERR_OUT,
4405 const INTEGER *N_NORMS,
4406 FLOAT *ERR_BNDS_NORM,
4407 FLOAT *ERR_BNDS_COMP,
4408 const FLOAT_COMPLEX *RES,
4409 const FLOAT *AYB,
4410 const FLOAT_COMPLEX *DY,
4411 const FLOAT_COMPLEX *Y_TAIL,
4412 const FLOAT *RCOND,
4413 const INTEGER *ITHRESH,
4414 const FLOAT *RTHRESH,
4415 const FLOAT *DZ_UB,
4416 const LOGICAL *IGNORE_CWISE,
4417 INTEGER *INFO)
4418 {
4419 DEBUG_LAPACK_STUB("cla_gbrfsx_extended");
4420 ASSERT(0);
4421 /*
4422 LAPACK_IMPL(cla_gbrfsx_extended)(PREC_TYPE,
4423 TRANS_TYPE,
4424 N,
4425 KL,
4426 KU,
4427 NRHS,
4428 AB,
4429 LDAB,
4430 AFB,
4431 LDAFB,
4432 IPIV,
4433 COLEQU,
4434 C,
4435 B,
4436 LDB,
4437 Y,
4438 LDY,
4439 BERR_OUT,
4440 N_NORMS,
4441 ERR_BNDS_NORM,
4442 ERR_BNDS_COMP,
4443 RES,
4444 AYB,
4445 DY,
4446 Y_TAIL,
4447 RCOND,
4448 ITHRESH,
4449 RTHRESH,
4450 DZ_UB,
4451 IGNORE_CWISE,
4452 INFO);
4453 */
4454 }
4455
4456 //-- cla_gbrpvgrw --------------------------------------------------------------
4457 FLOAT
LAPACK_DECL(cla_gbrpvgrw)4458 LAPACK_DECL(cla_gbrpvgrw)(const INTEGER *N,
4459 const INTEGER *KL,
4460 const INTEGER *KU,
4461 const INTEGER *NCOLS,
4462 const FLOAT_COMPLEX *AB,
4463 const INTEGER *LDAB,
4464 const FLOAT_COMPLEX *AFB,
4465 const INTEGER *LDAFB)
4466 {
4467 DEBUG_LAPACK_STUB("cla_gbrpvgrw");
4468 return LAPACK_IMPL(cla_gbrpvgrw)(N,
4469 KL,
4470 KU,
4471 NCOLS,
4472 AB,
4473 LDAB,
4474 AFB,
4475 LDAFB);
4476 }
4477
4478 //-- cla_geamv -----------------------------------------------------------------
4479 void
LAPACK_DECL(cla_geamv)4480 LAPACK_DECL(cla_geamv)(const INTEGER *TRANS,
4481 const INTEGER *M,
4482 const INTEGER *N,
4483 const FLOAT *ALPHA,
4484 const FLOAT_COMPLEX *A,
4485 const INTEGER *LDA,
4486 const FLOAT_COMPLEX *X,
4487 const INTEGER *INCX,
4488 const FLOAT *BETA,
4489 FLOAT *Y,
4490 const INTEGER *INCY)
4491 {
4492 DEBUG_LAPACK_STUB("cla_geamv");
4493 LAPACK_IMPL(cla_geamv)(TRANS,
4494 M,
4495 N,
4496 ALPHA,
4497 A,
4498 LDA,
4499 X,
4500 INCX,
4501 BETA,
4502 Y,
4503 INCY);
4504 }
4505
4506 //-- cla_gercond_c -------------------------------------------------------------
4507 FLOAT
LAPACK_DECL(cla_gercond_c)4508 LAPACK_DECL(cla_gercond_c)(const char *TRANS,
4509 const INTEGER *N,
4510 const FLOAT_COMPLEX *A,
4511 const INTEGER *LDA,
4512 const FLOAT_COMPLEX *AF,
4513 const INTEGER *LDAF,
4514 const INTEGER *IPIV,
4515 const FLOAT *C,
4516 const LOGICAL *CAPPLY,
4517 INTEGER *INFO,
4518 const FLOAT_COMPLEX *WORK,
4519 const FLOAT *RWORK)
4520 {
4521 DEBUG_LAPACK_STUB("cla_gercond_c");
4522 return LAPACK_IMPL(cla_gercond_c)(TRANS,
4523 N,
4524 A,
4525 LDA,
4526 AF,
4527 LDAF,
4528 IPIV,
4529 C,
4530 CAPPLY,
4531 INFO,
4532 WORK,
4533 RWORK);
4534 }
4535
4536 //-- cla_gercond_x -------------------------------------------------------------
4537 FLOAT
LAPACK_DECL(cla_gercond_x)4538 LAPACK_DECL(cla_gercond_x)(const char *TRANS,
4539 const INTEGER *N,
4540 const FLOAT_COMPLEX *A,
4541 const INTEGER *LDA,
4542 const FLOAT_COMPLEX *AF,
4543 const INTEGER *LDAF,
4544 const INTEGER *IPIV,
4545 const FLOAT_COMPLEX *X,
4546 INTEGER *INFO,
4547 const FLOAT_COMPLEX *WORK,
4548 const FLOAT *RWORK)
4549 {
4550 DEBUG_LAPACK_STUB("cla_gercond_x");
4551 return LAPACK_IMPL(cla_gercond_x)(TRANS,
4552 N,
4553 A,
4554 LDA,
4555 AF,
4556 LDAF,
4557 IPIV,
4558 X,
4559 INFO,
4560 WORK,
4561 RWORK);
4562 }
4563
4564 //-- cla_gerfsx_extended -------------------------------------------------------
4565 void
LAPACK_DECL(cla_gerfsx_extended)4566 LAPACK_DECL(cla_gerfsx_extended)(const INTEGER *PREC_TYPE,
4567 const INTEGER *TRANS_TYPE,
4568 const INTEGER *N,
4569 const INTEGER *NRHS,
4570 const FLOAT_COMPLEX *A,
4571 const INTEGER *LDA,
4572 const FLOAT_COMPLEX *AF,
4573 const INTEGER *LDAF,
4574 const INTEGER *IPIV,
4575 const LOGICAL *COLEQU,
4576 const FLOAT *C,
4577 const FLOAT_COMPLEX *B,
4578 const INTEGER *LDB,
4579 FLOAT_COMPLEX *Y,
4580 const INTEGER *LDY,
4581 FLOAT *BERR_OUT,
4582 const INTEGER *N_NORMS,
4583 const FLOAT *ERRS_N,
4584 const FLOAT *ERRS_C,
4585 const FLOAT_COMPLEX *RES,
4586 const FLOAT *AYB,
4587 const FLOAT_COMPLEX *DY,
4588 const FLOAT_COMPLEX *Y_TAIL,
4589 const FLOAT *RCOND,
4590 const INTEGER *ITHRESH,
4591 const FLOAT *RTHRESH,
4592 const FLOAT *DZ_UB,
4593 const LOGICAL *IGNORE_CWISE,
4594 INTEGER *INFO)
4595 {
4596 DEBUG_LAPACK_STUB("cla_gerfsx_extended");
4597 ASSERT(0);
4598 /*
4599 LAPACK_IMPL(cla_gerfsx_extended)(PREC_TYPE,
4600 TRANS_TYPE,
4601 N,
4602 NRHS,
4603 A,
4604 LDA,
4605 AF,
4606 LDAF,
4607 IPIV,
4608 COLEQU,
4609 C,
4610 B,
4611 LDB,
4612 Y,
4613 LDY,
4614 BERR_OUT,
4615 N_NORMS,
4616 ERRS_N,
4617 ERRS_C,
4618 RES,
4619 AYB,
4620 DY,
4621 Y_TAIL,
4622 RCOND,
4623 ITHRESH,
4624 RTHRESH,
4625 DZ_UB,
4626 IGNORE_CWISE,
4627 INFO);
4628 */
4629 }
4630
4631 //-- cla_heamv -----------------------------------------------------------------
4632 void
LAPACK_DECL(cla_heamv)4633 LAPACK_DECL(cla_heamv)(const INTEGER *UPLO,
4634 const INTEGER *N,
4635 const FLOAT *ALPHA,
4636 const FLOAT_COMPLEX *A,
4637 const INTEGER *LDA,
4638 const FLOAT_COMPLEX *X,
4639 const INTEGER *INCX,
4640 const FLOAT *BETA,
4641 FLOAT *Y,
4642 const INTEGER *INCY)
4643 {
4644 DEBUG_LAPACK_STUB("cla_heamv");
4645 LAPACK_IMPL(cla_heamv)(UPLO,
4646 N,
4647 ALPHA,
4648 A,
4649 LDA,
4650 X,
4651 INCX,
4652 BETA,
4653 Y,
4654 INCY);
4655 }
4656
4657 //-- cla_hercond_c -------------------------------------------------------------
4658 FLOAT
LAPACK_DECL(cla_hercond_c)4659 LAPACK_DECL(cla_hercond_c)(const char *UPLO,
4660 const INTEGER *N,
4661 const FLOAT_COMPLEX *A,
4662 const INTEGER *LDA,
4663 const FLOAT_COMPLEX *AF,
4664 const INTEGER *LDAF,
4665 const INTEGER *IPIV,
4666 const FLOAT *C,
4667 const LOGICAL *CAPPLY,
4668 INTEGER *INFO,
4669 const FLOAT_COMPLEX *WORK,
4670 const FLOAT *RWORK)
4671 {
4672 DEBUG_LAPACK_STUB("cla_hercond_c");
4673 return LAPACK_IMPL(cla_hercond_c)(UPLO,
4674 N,
4675 A,
4676 LDA,
4677 AF,
4678 LDAF,
4679 IPIV,
4680 C,
4681 CAPPLY,
4682 INFO,
4683 WORK,
4684 RWORK);
4685 }
4686
4687 //-- cla_hercond_x -------------------------------------------------------------
4688 FLOAT
LAPACK_DECL(cla_hercond_x)4689 LAPACK_DECL(cla_hercond_x)(const char *UPLO,
4690 const INTEGER *N,
4691 const FLOAT_COMPLEX *A,
4692 const INTEGER *LDA,
4693 const FLOAT_COMPLEX *AF,
4694 const INTEGER *LDAF,
4695 const INTEGER *IPIV,
4696 const FLOAT_COMPLEX *X,
4697 INTEGER *INFO,
4698 const FLOAT_COMPLEX *WORK,
4699 const FLOAT *RWORK)
4700 {
4701 DEBUG_LAPACK_STUB("cla_hercond_x");
4702 return LAPACK_IMPL(cla_hercond_x)(UPLO,
4703 N,
4704 A,
4705 LDA,
4706 AF,
4707 LDAF,
4708 IPIV,
4709 X,
4710 INFO,
4711 WORK,
4712 RWORK);
4713 }
4714
4715 //-- cla_herfsx_extended -------------------------------------------------------
4716 void
LAPACK_DECL(cla_herfsx_extended)4717 LAPACK_DECL(cla_herfsx_extended)(const INTEGER *PREC_TYPE,
4718 const char *UPLO,
4719 const INTEGER *N,
4720 const INTEGER *NRHS,
4721 const FLOAT_COMPLEX *A,
4722 const INTEGER *LDA,
4723 const FLOAT_COMPLEX *AF,
4724 const INTEGER *LDAF,
4725 const INTEGER *IPIV,
4726 const LOGICAL *COLEQU,
4727 const FLOAT *C,
4728 const FLOAT_COMPLEX *B,
4729 const INTEGER *LDB,
4730 FLOAT_COMPLEX *Y,
4731 const INTEGER *LDY,
4732 FLOAT *BERR_OUT,
4733 const INTEGER *N_NORMS,
4734 FLOAT *ERR_BNDS_NORM,
4735 FLOAT *ERR_BNDS_COMP,
4736 const FLOAT_COMPLEX *RES,
4737 const FLOAT *AYB,
4738 const FLOAT_COMPLEX *DY,
4739 const FLOAT_COMPLEX *Y_TAIL,
4740 const FLOAT *RCOND,
4741 const INTEGER *ITHRESH,
4742 const FLOAT *RTHRESH,
4743 const FLOAT *DZ_UB,
4744 const LOGICAL *IGNORE_CWISE,
4745 INTEGER *INFO)
4746 {
4747 DEBUG_LAPACK_STUB("cla_herfsx_extended");
4748 ASSERT(0);
4749 /*
4750 LAPACK_IMPL(cla_herfsx_extended)(PREC_TYPE,
4751 UPLO,
4752 N,
4753 NRHS,
4754 A,
4755 LDA,
4756 AF,
4757 LDAF,
4758 IPIV,
4759 COLEQU,
4760 C,
4761 B,
4762 LDB,
4763 Y,
4764 LDY,
4765 BERR_OUT,
4766 N_NORMS,
4767 ERR_BNDS_NORM,
4768 ERR_BNDS_COMP,
4769 RES,
4770 AYB,
4771 DY,
4772 Y_TAIL,
4773 RCOND,
4774 ITHRESH,
4775 RTHRESH,
4776 DZ_UB,
4777 IGNORE_CWISE,
4778 INFO);
4779 */
4780 }
4781
4782 //-- cla_herpvgrw --------------------------------------------------------------
4783 FLOAT
LAPACK_DECL(cla_herpvgrw)4784 LAPACK_DECL(cla_herpvgrw)(const char *UPLO,
4785 const INTEGER *N,
4786 const INTEGER *INFO,
4787 const FLOAT_COMPLEX *A,
4788 const INTEGER *LDA,
4789 const FLOAT_COMPLEX *AF,
4790 const INTEGER *LDAF,
4791 const INTEGER *IPIV,
4792 const FLOAT *WORK)
4793 {
4794 DEBUG_LAPACK_STUB("cla_herpvgrw");
4795 return LAPACK_IMPL(cla_herpvgrw)(UPLO,
4796 N,
4797 INFO,
4798 A,
4799 LDA,
4800 AF,
4801 LDAF,
4802 IPIV,
4803 WORK);
4804 }
4805
4806 //-- cla_lin_berr --------------------------------------------------------------
4807 void
LAPACK_DECL(cla_lin_berr)4808 LAPACK_DECL(cla_lin_berr)(const INTEGER *N,
4809 const INTEGER *NZ,
4810 const INTEGER *NRHS,
4811 const FLOAT_COMPLEX *RES,
4812 const FLOAT *AYB,
4813 FLOAT *BERR)
4814 {
4815 DEBUG_LAPACK_STUB("cla_lin_berr");
4816 LAPACK_IMPL(cla_lin_berr)(N,
4817 NZ,
4818 NRHS,
4819 RES,
4820 AYB,
4821 BERR);
4822 }
4823
4824 //-- cla_porcond_c -------------------------------------------------------------
4825 FLOAT
LAPACK_DECL(cla_porcond_c)4826 LAPACK_DECL(cla_porcond_c)(const char *UPLO,
4827 const INTEGER *N,
4828 const FLOAT_COMPLEX *A,
4829 const INTEGER *LDA,
4830 const FLOAT_COMPLEX *AF,
4831 const INTEGER *LDAF,
4832 const FLOAT *C,
4833 const LOGICAL *CAPPLY,
4834 INTEGER *INFO,
4835 const FLOAT_COMPLEX *WORK,
4836 const FLOAT *RWORK)
4837 {
4838 DEBUG_LAPACK_STUB("cla_porcond_c");
4839 return LAPACK_IMPL(cla_porcond_c)(UPLO,
4840 N,
4841 A,
4842 LDA,
4843 AF,
4844 LDAF,
4845 C,
4846 CAPPLY,
4847 INFO,
4848 WORK,
4849 RWORK);
4850 }
4851
4852 //-- cla_porcond_x -------------------------------------------------------------
4853 FLOAT
LAPACK_DECL(cla_porcond_x)4854 LAPACK_DECL(cla_porcond_x)(const char *UPLO,
4855 const INTEGER *N,
4856 const FLOAT_COMPLEX *A,
4857 const INTEGER *LDA,
4858 const FLOAT_COMPLEX *AF,
4859 const INTEGER *LDAF,
4860 const FLOAT_COMPLEX *X,
4861 INTEGER *INFO,
4862 const FLOAT_COMPLEX *WORK,
4863 const FLOAT *RWORK)
4864 {
4865 DEBUG_LAPACK_STUB("cla_porcond_x");
4866 return LAPACK_IMPL(cla_porcond_x)(UPLO,
4867 N,
4868 A,
4869 LDA,
4870 AF,
4871 LDAF,
4872 X,
4873 INFO,
4874 WORK,
4875 RWORK);
4876 }
4877
4878 //-- cla_porfsx_extended -------------------------------------------------------
4879 void
LAPACK_DECL(cla_porfsx_extended)4880 LAPACK_DECL(cla_porfsx_extended)(const INTEGER *PREC_TYPE,
4881 const char *UPLO,
4882 const INTEGER *N,
4883 const INTEGER *NRHS,
4884 const FLOAT_COMPLEX *A,
4885 const INTEGER *LDA,
4886 const FLOAT_COMPLEX *AF,
4887 const INTEGER *LDAF,
4888 const LOGICAL *COLEQU,
4889 const FLOAT *C,
4890 const FLOAT_COMPLEX *B,
4891 const INTEGER *LDB,
4892 FLOAT_COMPLEX *Y,
4893 const INTEGER *LDY,
4894 FLOAT *BERR_OUT,
4895 const INTEGER *N_NORMS,
4896 FLOAT *ERR_BNDS_NORM,
4897 FLOAT *ERR_BNDS_COMP,
4898 const FLOAT_COMPLEX *RES,
4899 const FLOAT *AYB,
4900 const FLOAT_COMPLEX *DY,
4901 const FLOAT_COMPLEX *Y_TAIL,
4902 const FLOAT *RCOND,
4903 const INTEGER *ITHRESH,
4904 const FLOAT *RTHRESH,
4905 const FLOAT *DZ_UB,
4906 const LOGICAL *IGNORE_CWISE,
4907 INTEGER *INFO)
4908 {
4909 DEBUG_LAPACK_STUB("cla_porfsx_extended");
4910 ASSERT(0);
4911 /*
4912 LAPACK_IMPL(cla_porfsx_extended)(PREC_TYPE,
4913 UPLO,
4914 N,
4915 NRHS,
4916 A,
4917 LDA,
4918 AF,
4919 LDAF,
4920 COLEQU,
4921 C,
4922 B,
4923 LDB,
4924 Y,
4925 LDY,
4926 BERR_OUT,
4927 N_NORMS,
4928 ERR_BNDS_NORM,
4929 ERR_BNDS_COMP,
4930 RES,
4931 AYB,
4932 DY,
4933 Y_TAIL,
4934 RCOND,
4935 ITHRESH,
4936 RTHRESH,
4937 DZ_UB,
4938 IGNORE_CWISE,
4939 INFO);
4940 */
4941 }
4942
4943 //-- cla_porpvgrw --------------------------------------------------------------
4944 FLOAT
LAPACK_DECL(cla_porpvgrw)4945 LAPACK_DECL(cla_porpvgrw)(const char *UPLO,
4946 const INTEGER *NCOLS,
4947 const FLOAT_COMPLEX *A,
4948 const INTEGER *LDA,
4949 const FLOAT_COMPLEX *AF,
4950 const INTEGER *LDAF,
4951 const FLOAT *WORK)
4952 {
4953 DEBUG_LAPACK_STUB("cla_porpvgrw");
4954 return LAPACK_IMPL(cla_porpvgrw)(UPLO,
4955 NCOLS,
4956 A,
4957 LDA,
4958 AF,
4959 LDAF,
4960 WORK);
4961 }
4962
4963 //-- cla_rpvgrw ----------------------------------------------------------------
4964 FLOAT
LAPACK_DECL(cla_rpvgrw)4965 LAPACK_DECL(cla_rpvgrw)(const INTEGER *N,
4966 const INTEGER *NCOLS,
4967 const FLOAT_COMPLEX *A,
4968 const INTEGER *LDA,
4969 const FLOAT_COMPLEX *AF,
4970 const INTEGER *LDAF)
4971 {
4972 DEBUG_LAPACK_STUB("cla_rpvgrw");
4973 return LAPACK_IMPL(cla_rpvgrw)(N,
4974 NCOLS,
4975 A,
4976 LDA,
4977 AF,
4978 LDAF);
4979 }
4980
4981 //-- cla_syamv -----------------------------------------------------------------
4982 void
LAPACK_DECL(cla_syamv)4983 LAPACK_DECL(cla_syamv)(const INTEGER *UPLO,
4984 const INTEGER *N,
4985 const FLOAT *ALPHA,
4986 const FLOAT_COMPLEX *A,
4987 const INTEGER *LDA,
4988 const FLOAT_COMPLEX *X,
4989 const INTEGER *INCX,
4990 const FLOAT *BETA,
4991 FLOAT *Y,
4992 const INTEGER *INCY)
4993 {
4994 DEBUG_LAPACK_STUB("cla_syamv");
4995 LAPACK_IMPL(cla_syamv)(UPLO,
4996 N,
4997 ALPHA,
4998 A,
4999 LDA,
5000 X,
5001 INCX,
5002 BETA,
5003 Y,
5004 INCY);
5005 }
5006
5007 //-- cla_syrcond_c -------------------------------------------------------------
5008 FLOAT
LAPACK_DECL(cla_syrcond_c)5009 LAPACK_DECL(cla_syrcond_c)(const char *UPLO,
5010 const INTEGER *N,
5011 const FLOAT_COMPLEX *A,
5012 const INTEGER *LDA,
5013 const FLOAT_COMPLEX *AF,
5014 const INTEGER *LDAF,
5015 const INTEGER *IPIV,
5016 const FLOAT *C,
5017 const LOGICAL *CAPPLY,
5018 INTEGER *INFO,
5019 const FLOAT_COMPLEX *WORK,
5020 const FLOAT *RWORK)
5021 {
5022 DEBUG_LAPACK_STUB("cla_syrcond_c");
5023 return LAPACK_IMPL(cla_syrcond_c)(UPLO,
5024 N,
5025 A,
5026 LDA,
5027 AF,
5028 LDAF,
5029 IPIV,
5030 C,
5031 CAPPLY,
5032 INFO,
5033 WORK,
5034 RWORK);
5035 }
5036
5037 //-- cla_syrcond_x -------------------------------------------------------------
5038 FLOAT
LAPACK_DECL(cla_syrcond_x)5039 LAPACK_DECL(cla_syrcond_x)(const char *UPLO,
5040 const INTEGER *N,
5041 const FLOAT_COMPLEX *A,
5042 const INTEGER *LDA,
5043 const FLOAT_COMPLEX *AF,
5044 const INTEGER *LDAF,
5045 const INTEGER *IPIV,
5046 const FLOAT_COMPLEX *X,
5047 INTEGER *INFO,
5048 const FLOAT_COMPLEX *WORK,
5049 const FLOAT *RWORK)
5050 {
5051 DEBUG_LAPACK_STUB("cla_syrcond_x");
5052 return LAPACK_IMPL(cla_syrcond_x)(UPLO,
5053 N,
5054 A,
5055 LDA,
5056 AF,
5057 LDAF,
5058 IPIV,
5059 X,
5060 INFO,
5061 WORK,
5062 RWORK);
5063 }
5064
5065 //-- cla_syrfsx_extended -------------------------------------------------------
5066 void
LAPACK_DECL(cla_syrfsx_extended)5067 LAPACK_DECL(cla_syrfsx_extended)(const INTEGER *PREC_TYPE,
5068 const char *UPLO,
5069 const INTEGER *N,
5070 const INTEGER *NRHS,
5071 const FLOAT_COMPLEX *A,
5072 const INTEGER *LDA,
5073 const FLOAT_COMPLEX *AF,
5074 const INTEGER *LDAF,
5075 const INTEGER *IPIV,
5076 const LOGICAL *COLEQU,
5077 const FLOAT *C,
5078 const FLOAT_COMPLEX *B,
5079 const INTEGER *LDB,
5080 FLOAT_COMPLEX *Y,
5081 const INTEGER *LDY,
5082 FLOAT *BERR_OUT,
5083 const INTEGER *N_NORMS,
5084 FLOAT *ERR_BNDS_NORM,
5085 FLOAT *ERR_BNDS_COMP,
5086 const FLOAT_COMPLEX *RES,
5087 const FLOAT *AYB,
5088 const FLOAT_COMPLEX *DY,
5089 const FLOAT_COMPLEX *Y_TAIL,
5090 const FLOAT *RCOND,
5091 const INTEGER *ITHRESH,
5092 const FLOAT *RTHRESH,
5093 const FLOAT *DZ_UB,
5094 const LOGICAL *IGNORE_CWISE,
5095 INTEGER *INFO)
5096 {
5097 DEBUG_LAPACK_STUB("cla_syrfsx_extended");
5098 ASSERT(0);
5099 /*
5100 LAPACK_IMPL(cla_syrfsx_extended)(PREC_TYPE,
5101 UPLO,
5102 N,
5103 NRHS,
5104 A,
5105 LDA,
5106 AF,
5107 LDAF,
5108 IPIV,
5109 COLEQU,
5110 C,
5111 B,
5112 LDB,
5113 Y,
5114 LDY,
5115 BERR_OUT,
5116 N_NORMS,
5117 ERR_BNDS_NORM,
5118 ERR_BNDS_COMP,
5119 RES,
5120 AYB,
5121 DY,
5122 Y_TAIL,
5123 RCOND,
5124 ITHRESH,
5125 RTHRESH,
5126 DZ_UB,
5127 IGNORE_CWISE,
5128 INFO);
5129 */
5130 }
5131
5132 //-- cla_syrpvgrw --------------------------------------------------------------
5133 FLOAT
LAPACK_DECL(cla_syrpvgrw)5134 LAPACK_DECL(cla_syrpvgrw)(const char *UPLO,
5135 const INTEGER *N,
5136 const INTEGER *INFO,
5137 const FLOAT_COMPLEX *A,
5138 const INTEGER *LDA,
5139 const FLOAT_COMPLEX *AF,
5140 const INTEGER *LDAF,
5141 const INTEGER *IPIV,
5142 const FLOAT *WORK)
5143 {
5144 DEBUG_LAPACK_STUB("cla_syrpvgrw");
5145 return LAPACK_IMPL(cla_syrpvgrw)(UPLO,
5146 N,
5147 INFO,
5148 A,
5149 LDA,
5150 AF,
5151 LDAF,
5152 IPIV,
5153 WORK);
5154 }
5155
5156 //-- cla_wwaddw ----------------------------------------------------------------
5157 void
LAPACK_DECL(cla_wwaddw)5158 LAPACK_DECL(cla_wwaddw)(const INTEGER *N,
5159 FLOAT_COMPLEX *X,
5160 FLOAT_COMPLEX *Y,
5161 const FLOAT_COMPLEX *W)
5162 {
5163 DEBUG_LAPACK_STUB("cla_wwaddw");
5164 LAPACK_IMPL(cla_wwaddw)(N,
5165 X,
5166 Y,
5167 W);
5168 }
5169
5170 //-- clabrd --------------------------------------------------------------------
5171 void
LAPACK_DECL(clabrd)5172 LAPACK_DECL(clabrd)(const INTEGER *M,
5173 const INTEGER *N,
5174 const INTEGER *NB,
5175 FLOAT_COMPLEX *A,
5176 const INTEGER *LDA,
5177 FLOAT *D,
5178 FLOAT *E,
5179 FLOAT_COMPLEX *TAUQ,
5180 FLOAT_COMPLEX *TAUP,
5181 FLOAT_COMPLEX *X,
5182 const INTEGER *LDX,
5183 FLOAT_COMPLEX *Y,
5184 const INTEGER *LDY)
5185 {
5186 DEBUG_LAPACK_STUB("clabrd");
5187 LAPACK_IMPL(clabrd)(M,
5188 N,
5189 NB,
5190 A,
5191 LDA,
5192 D,
5193 E,
5194 TAUQ,
5195 TAUP,
5196 X,
5197 LDX,
5198 Y,
5199 LDY);
5200 }
5201
5202 //-- clacgv --------------------------------------------------------------------
5203 void
LAPACK_DECL(clacgv)5204 LAPACK_DECL(clacgv)(const INTEGER *N,
5205 FLOAT_COMPLEX *X,
5206 const INTEGER *INCX)
5207 {
5208 DEBUG_LAPACK_STUB("clacgv");
5209 LAPACK_IMPL(clacgv)(N,
5210 X,
5211 INCX);
5212 }
5213
5214 //-- clacn2 --------------------------------------------------------------------
5215 void
LAPACK_DECL(clacn2)5216 LAPACK_DECL(clacn2)(const INTEGER *N,
5217 FLOAT_COMPLEX *V,
5218 FLOAT_COMPLEX *X,
5219 FLOAT *EST,
5220 INTEGER *KASE,
5221 INTEGER *ISAVE)
5222 {
5223 DEBUG_LAPACK_STUB("clacn2");
5224 LAPACK_IMPL(clacn2)(N,
5225 V,
5226 X,
5227 EST,
5228 KASE,
5229 ISAVE);
5230 }
5231
5232 //-- clacon --------------------------------------------------------------------
5233 void
LAPACK_DECL(clacon)5234 LAPACK_DECL(clacon)(const INTEGER *N,
5235 FLOAT_COMPLEX *V,
5236 FLOAT_COMPLEX *X,
5237 FLOAT *EST,
5238 INTEGER *KASE)
5239 {
5240 DEBUG_LAPACK_STUB("clacon");
5241 LAPACK_IMPL(clacon)(N,
5242 V,
5243 X,
5244 EST,
5245 KASE);
5246 }
5247
5248 //-- clacp2 --------------------------------------------------------------------
5249 void
LAPACK_DECL(clacp2)5250 LAPACK_DECL(clacp2)(const char *UPLO,
5251 const INTEGER *M,
5252 const INTEGER *N,
5253 const FLOAT *A,
5254 const INTEGER *LDA,
5255 FLOAT_COMPLEX *B,
5256 const INTEGER *LDB)
5257 {
5258 DEBUG_LAPACK_STUB("clacp2");
5259 LAPACK_IMPL(clacp2)(UPLO,
5260 M,
5261 N,
5262 A,
5263 LDA,
5264 B,
5265 LDB);
5266 }
5267
5268 //-- clacpy --------------------------------------------------------------------
5269 void
LAPACK_DECL(clacpy)5270 LAPACK_DECL(clacpy)(const char *UPLO,
5271 const INTEGER *M,
5272 const INTEGER *N,
5273 const FLOAT_COMPLEX *A,
5274 const INTEGER *LDA,
5275 FLOAT_COMPLEX *B,
5276 const INTEGER *LDB)
5277 {
5278 DEBUG_LAPACK_STUB("clacpy");
5279 LAPACK_IMPL(clacpy)(UPLO,
5280 M,
5281 N,
5282 A,
5283 LDA,
5284 B,
5285 LDB);
5286 }
5287
5288 //-- clacrm --------------------------------------------------------------------
5289 void
LAPACK_DECL(clacrm)5290 LAPACK_DECL(clacrm)(const INTEGER *M,
5291 const INTEGER *N,
5292 const FLOAT_COMPLEX *A,
5293 const INTEGER *LDA,
5294 const FLOAT *B,
5295 const INTEGER *LDB,
5296 const FLOAT_COMPLEX *C,
5297 const INTEGER *LDC,
5298 FLOAT *RWORK)
5299 {
5300 DEBUG_LAPACK_STUB("clacrm");
5301 LAPACK_IMPL(clacrm)(M,
5302 N,
5303 A,
5304 LDA,
5305 B,
5306 LDB,
5307 C,
5308 LDC,
5309 RWORK);
5310 }
5311
5312 //-- clacrt --------------------------------------------------------------------
5313 void
LAPACK_DECL(clacrt)5314 LAPACK_DECL(clacrt)(const INTEGER *N,
5315 FLOAT_COMPLEX *CX,
5316 const INTEGER *INCX,
5317 FLOAT_COMPLEX *CY,
5318 const INTEGER *INCY,
5319 const FLOAT_COMPLEX *C,
5320 const FLOAT_COMPLEX *S)
5321 {
5322 DEBUG_LAPACK_STUB("clacrt");
5323 LAPACK_IMPL(clacrt)(N,
5324 CX,
5325 INCX,
5326 CY,
5327 INCY,
5328 C,
5329 S);
5330 }
5331
5332 //-- cladiv --------------------------------------------------------------------
5333 UNKNOWN
LAPACK_DECL(cladiv)5334 LAPACK_DECL(cladiv)(const FLOAT_COMPLEX *X,
5335 const FLOAT_COMPLEX *Y)
5336 {
5337 DEBUG_LAPACK_STUB("cladiv");
5338 return LAPACK_IMPL(cladiv)(X,
5339 Y);
5340 }
5341
5342 //-- claed0 --------------------------------------------------------------------
5343 void
LAPACK_DECL(claed0)5344 LAPACK_DECL(claed0)(const INTEGER *QSIZ,
5345 const INTEGER *N,
5346 FLOAT *D,
5347 FLOAT *E,
5348 FLOAT_COMPLEX *Q,
5349 const INTEGER *LDQ,
5350 FLOAT_COMPLEX *QSTORE,
5351 const INTEGER *LDQS,
5352 FLOAT *RWORK,
5353 INTEGER *IWORK,
5354 INTEGER *INFO)
5355 {
5356 DEBUG_LAPACK_STUB("claed0");
5357 LAPACK_IMPL(claed0)(QSIZ,
5358 N,
5359 D,
5360 E,
5361 Q,
5362 LDQ,
5363 QSTORE,
5364 LDQS,
5365 RWORK,
5366 IWORK,
5367 INFO);
5368 }
5369
5370 //-- claed7 --------------------------------------------------------------------
5371 void
LAPACK_DECL(claed7)5372 LAPACK_DECL(claed7)(const INTEGER *N,
5373 const INTEGER *CUTPNT,
5374 const INTEGER *QSIZ,
5375 const INTEGER *TLVLS,
5376 const INTEGER *CURLVL,
5377 const INTEGER *CURPBM,
5378 FLOAT *D,
5379 FLOAT_COMPLEX *Q,
5380 const INTEGER *LDQ,
5381 const FLOAT *RHO,
5382 INTEGER *INDXQ,
5383 FLOAT *QSTORE,
5384 INTEGER *QPTR,
5385 const INTEGER *PRMPTR,
5386 const INTEGER *PERM,
5387 const INTEGER *GIVPTR,
5388 const INTEGER *GIVCOL,
5389 const FLOAT *GIVNUM,
5390 FLOAT_COMPLEX *WORK,
5391 FLOAT *RWORK,
5392 INTEGER *IWORK,
5393 INTEGER *INFO)
5394 {
5395 DEBUG_LAPACK_STUB("claed7");
5396 LAPACK_IMPL(claed7)(N,
5397 CUTPNT,
5398 QSIZ,
5399 TLVLS,
5400 CURLVL,
5401 CURPBM,
5402 D,
5403 Q,
5404 LDQ,
5405 RHO,
5406 INDXQ,
5407 QSTORE,
5408 QPTR,
5409 PRMPTR,
5410 PERM,
5411 GIVPTR,
5412 GIVCOL,
5413 GIVNUM,
5414 WORK,
5415 RWORK,
5416 IWORK,
5417 INFO);
5418 }
5419
5420 //-- claed8 --------------------------------------------------------------------
5421 void
LAPACK_DECL(claed8)5422 LAPACK_DECL(claed8)(INTEGER *K,
5423 const INTEGER *N,
5424 const INTEGER *QSIZ,
5425 FLOAT_COMPLEX *Q,
5426 const INTEGER *LDQ,
5427 FLOAT *D,
5428 FLOAT *RHO,
5429 const INTEGER *CUTPNT,
5430 const FLOAT *Z,
5431 FLOAT *DLAMDA,
5432 FLOAT_COMPLEX *Q2,
5433 const INTEGER *LDQ2,
5434 FLOAT *W,
5435 INTEGER *INDXP,
5436 INTEGER *INDX,
5437 const INTEGER *INDXQ,
5438 INTEGER *PERM,
5439 INTEGER *GIVPTR,
5440 INTEGER *GIVCOL,
5441 FLOAT *GIVNUM,
5442 INTEGER *INFO)
5443 {
5444 DEBUG_LAPACK_STUB("claed8");
5445 LAPACK_IMPL(claed8)(K,
5446 N,
5447 QSIZ,
5448 Q,
5449 LDQ,
5450 D,
5451 RHO,
5452 CUTPNT,
5453 Z,
5454 DLAMDA,
5455 Q2,
5456 LDQ2,
5457 W,
5458 INDXP,
5459 INDX,
5460 INDXQ,
5461 PERM,
5462 GIVPTR,
5463 GIVCOL,
5464 GIVNUM,
5465 INFO);
5466 }
5467
5468 //-- claein --------------------------------------------------------------------
5469 void
LAPACK_DECL(claein)5470 LAPACK_DECL(claein)(const LOGICAL *RIGHTV,
5471 const LOGICAL *NOINIT,
5472 const INTEGER *N,
5473 const FLOAT_COMPLEX *H,
5474 const INTEGER *LDH,
5475 const FLOAT_COMPLEX *W,
5476 FLOAT_COMPLEX *V,
5477 FLOAT_COMPLEX *B,
5478 const INTEGER *LDB,
5479 FLOAT *RWORK,
5480 const FLOAT *EPS3,
5481 const FLOAT *SMLNUM,
5482 INTEGER *INFO)
5483 {
5484 DEBUG_LAPACK_STUB("claein");
5485 LAPACK_IMPL(claein)(RIGHTV,
5486 NOINIT,
5487 N,
5488 H,
5489 LDH,
5490 W,
5491 V,
5492 B,
5493 LDB,
5494 RWORK,
5495 EPS3,
5496 SMLNUM,
5497 INFO);
5498 }
5499
5500 //-- claesy --------------------------------------------------------------------
5501 void
LAPACK_DECL(claesy)5502 LAPACK_DECL(claesy)(const FLOAT_COMPLEX *A,
5503 const FLOAT_COMPLEX *B,
5504 const FLOAT_COMPLEX *C,
5505 FLOAT_COMPLEX *RT1,
5506 FLOAT_COMPLEX *RT2,
5507 FLOAT_COMPLEX *EVSCAL,
5508 FLOAT_COMPLEX *CS1,
5509 FLOAT_COMPLEX *SN1)
5510 {
5511 DEBUG_LAPACK_STUB("claesy");
5512 LAPACK_IMPL(claesy)(A,
5513 B,
5514 C,
5515 RT1,
5516 RT2,
5517 EVSCAL,
5518 CS1,
5519 SN1);
5520 }
5521
5522 //-- claev2 --------------------------------------------------------------------
5523 void
LAPACK_DECL(claev2)5524 LAPACK_DECL(claev2)(const FLOAT_COMPLEX *A,
5525 const FLOAT_COMPLEX *B,
5526 const FLOAT_COMPLEX *C,
5527 FLOAT *RT1,
5528 FLOAT *RT2,
5529 FLOAT *CS1,
5530 FLOAT_COMPLEX *SN1)
5531 {
5532 DEBUG_LAPACK_STUB("claev2");
5533 LAPACK_IMPL(claev2)(A,
5534 B,
5535 C,
5536 RT1,
5537 RT2,
5538 CS1,
5539 SN1);
5540 }
5541
5542 //-- clag2z --------------------------------------------------------------------
5543 void
LAPACK_DECL(clag2z)5544 LAPACK_DECL(clag2z)(const INTEGER *M,
5545 const INTEGER *N,
5546 const FLOAT_COMPLEX *SA,
5547 const INTEGER *LDSA,
5548 DOUBLE_COMPLEX *A,
5549 const INTEGER *LDA,
5550 INTEGER *INFO)
5551 {
5552 DEBUG_LAPACK_STUB("clag2z");
5553 LAPACK_IMPL(clag2z)(M,
5554 N,
5555 SA,
5556 LDSA,
5557 A,
5558 LDA,
5559 INFO);
5560 }
5561
5562 //-- clags2 --------------------------------------------------------------------
5563 void
LAPACK_DECL(clags2)5564 LAPACK_DECL(clags2)(const LOGICAL *UPPER,
5565 const FLOAT *A1,
5566 const FLOAT_COMPLEX *A2,
5567 const FLOAT *A3,
5568 const FLOAT *B1,
5569 const FLOAT_COMPLEX *B2,
5570 const FLOAT *B3,
5571 FLOAT *CSU,
5572 FLOAT_COMPLEX *SNU,
5573 FLOAT *CSV,
5574 FLOAT_COMPLEX *SNV,
5575 FLOAT *CSQ,
5576 FLOAT_COMPLEX *SNQ)
5577 {
5578 DEBUG_LAPACK_STUB("clags2");
5579 LAPACK_IMPL(clags2)(UPPER,
5580 A1,
5581 A2,
5582 A3,
5583 B1,
5584 B2,
5585 B3,
5586 CSU,
5587 SNU,
5588 CSV,
5589 SNV,
5590 CSQ,
5591 SNQ);
5592 }
5593
5594 //-- clagtm --------------------------------------------------------------------
5595 void
LAPACK_DECL(clagtm)5596 LAPACK_DECL(clagtm)(const char *TRANS,
5597 const INTEGER *N,
5598 const INTEGER *NRHS,
5599 const FLOAT *ALPHA,
5600 const FLOAT_COMPLEX *DL,
5601 const FLOAT_COMPLEX *D,
5602 const FLOAT_COMPLEX *DU,
5603 const FLOAT_COMPLEX *X,
5604 const INTEGER *LDX,
5605 const FLOAT *BETA,
5606 FLOAT_COMPLEX *B,
5607 const INTEGER *LDB)
5608 {
5609 DEBUG_LAPACK_STUB("clagtm");
5610 LAPACK_IMPL(clagtm)(TRANS,
5611 N,
5612 NRHS,
5613 ALPHA,
5614 DL,
5615 D,
5616 DU,
5617 X,
5618 LDX,
5619 BETA,
5620 B,
5621 LDB);
5622 }
5623
5624 //-- clahef --------------------------------------------------------------------
5625 void
LAPACK_DECL(clahef)5626 LAPACK_DECL(clahef)(const char *UPLO,
5627 const INTEGER *N,
5628 const INTEGER *NB,
5629 INTEGER *KB,
5630 FLOAT_COMPLEX *A,
5631 const INTEGER *LDA,
5632 INTEGER *IPIV,
5633 FLOAT_COMPLEX *W,
5634 const INTEGER *LDW,
5635 INTEGER *INFO)
5636 {
5637 DEBUG_LAPACK_STUB("clahef");
5638 LAPACK_IMPL(clahef)(UPLO,
5639 N,
5640 NB,
5641 KB,
5642 A,
5643 LDA,
5644 IPIV,
5645 W,
5646 LDW,
5647 INFO);
5648 }
5649
5650 //-- clahqr --------------------------------------------------------------------
5651 void
LAPACK_DECL(clahqr)5652 LAPACK_DECL(clahqr)(const LOGICAL *WANTT,
5653 const LOGICAL *WANTZ,
5654 const INTEGER *N,
5655 const INTEGER *ILO,
5656 const INTEGER *IHI,
5657 FLOAT_COMPLEX *H,
5658 const INTEGER *LDH,
5659 FLOAT_COMPLEX *W,
5660 const INTEGER *ILOZ,
5661 const INTEGER *IHIZ,
5662 FLOAT_COMPLEX *Z,
5663 const INTEGER *LDZ,
5664 INTEGER *INFO)
5665 {
5666 DEBUG_LAPACK_STUB("clahqr");
5667 LAPACK_IMPL(clahqr)(WANTT,
5668 WANTZ,
5669 N,
5670 ILO,
5671 IHI,
5672 H,
5673 LDH,
5674 W,
5675 ILOZ,
5676 IHIZ,
5677 Z,
5678 LDZ,
5679 INFO);
5680 }
5681
5682 //-- clahr2 --------------------------------------------------------------------
5683 void
LAPACK_DECL(clahr2)5684 LAPACK_DECL(clahr2)(const INTEGER *N,
5685 const INTEGER *K,
5686 const INTEGER *NB,
5687 FLOAT_COMPLEX *A,
5688 const INTEGER *LDA,
5689 FLOAT_COMPLEX *TAU,
5690 FLOAT_COMPLEX *T,
5691 const INTEGER *LDT,
5692 FLOAT_COMPLEX *Y,
5693 const INTEGER *LDY)
5694 {
5695 DEBUG_LAPACK_STUB("clahr2");
5696 LAPACK_IMPL(clahr2)(N,
5697 K,
5698 NB,
5699 A,
5700 LDA,
5701 TAU,
5702 T,
5703 LDT,
5704 Y,
5705 LDY);
5706 }
5707
5708 //-- clahrd --------------------------------------------------------------------
5709 void
LAPACK_DECL(clahrd)5710 LAPACK_DECL(clahrd)(const INTEGER *N,
5711 const INTEGER *K,
5712 const INTEGER *NB,
5713 FLOAT_COMPLEX *A,
5714 const INTEGER *LDA,
5715 FLOAT_COMPLEX *TAU,
5716 FLOAT_COMPLEX *T,
5717 const INTEGER *LDT,
5718 FLOAT_COMPLEX *Y,
5719 const INTEGER *LDY)
5720 {
5721 DEBUG_LAPACK_STUB("clahrd");
5722 LAPACK_IMPL(clahrd)(N,
5723 K,
5724 NB,
5725 A,
5726 LDA,
5727 TAU,
5728 T,
5729 LDT,
5730 Y,
5731 LDY);
5732 }
5733
5734 //-- claic1 --------------------------------------------------------------------
5735 void
LAPACK_DECL(claic1)5736 LAPACK_DECL(claic1)(const INTEGER *JOB,
5737 const INTEGER *J,
5738 const FLOAT_COMPLEX *X,
5739 const FLOAT *SEST,
5740 const FLOAT_COMPLEX *W,
5741 const FLOAT_COMPLEX *GAMMA,
5742 FLOAT *SESTPR,
5743 FLOAT_COMPLEX *S,
5744 FLOAT_COMPLEX *C)
5745 {
5746 DEBUG_LAPACK_STUB("claic1");
5747 LAPACK_IMPL(claic1)(JOB,
5748 J,
5749 X,
5750 SEST,
5751 W,
5752 GAMMA,
5753 SESTPR,
5754 S,
5755 C);
5756 }
5757
5758 //-- clals0 --------------------------------------------------------------------
5759 void
LAPACK_DECL(clals0)5760 LAPACK_DECL(clals0)(const INTEGER *ICOMPQ,
5761 const INTEGER *NL,
5762 const INTEGER *NR,
5763 const INTEGER *SQRE,
5764 const INTEGER *NRHS,
5765 FLOAT_COMPLEX *B,
5766 const INTEGER *LDB,
5767 FLOAT_COMPLEX *BX,
5768 const INTEGER *LDBX,
5769 const INTEGER *PERM,
5770 const INTEGER *GIVPTR,
5771 const INTEGER *GIVCOL,
5772 const INTEGER *LDGCOL,
5773 const FLOAT *GIVNUM,
5774 const INTEGER *LDGNUM,
5775 const FLOAT *POLES,
5776 const FLOAT *DIFL,
5777 const FLOAT *DIFR,
5778 const FLOAT *Z,
5779 const INTEGER *K,
5780 const FLOAT *C,
5781 const FLOAT *S,
5782 FLOAT *RWORK,
5783 INTEGER *INFO)
5784 {
5785 DEBUG_LAPACK_STUB("clals0");
5786 LAPACK_IMPL(clals0)(ICOMPQ,
5787 NL,
5788 NR,
5789 SQRE,
5790 NRHS,
5791 B,
5792 LDB,
5793 BX,
5794 LDBX,
5795 PERM,
5796 GIVPTR,
5797 GIVCOL,
5798 LDGCOL,
5799 GIVNUM,
5800 LDGNUM,
5801 POLES,
5802 DIFL,
5803 DIFR,
5804 Z,
5805 K,
5806 C,
5807 S,
5808 RWORK,
5809 INFO);
5810 }
5811
5812 //-- clalsa --------------------------------------------------------------------
5813 void
LAPACK_DECL(clalsa)5814 LAPACK_DECL(clalsa)(const INTEGER *ICOMPQ,
5815 const INTEGER *SMLSIZ,
5816 const INTEGER *N,
5817 const INTEGER *NRHS,
5818 FLOAT_COMPLEX *B,
5819 const INTEGER *LDB,
5820 FLOAT_COMPLEX *BX,
5821 const INTEGER *LDBX,
5822 const FLOAT *U,
5823 const INTEGER *LDU,
5824 const FLOAT *VT,
5825 const INTEGER *K,
5826 const FLOAT *DIFL,
5827 const FLOAT *DIFR,
5828 const FLOAT *Z,
5829 const FLOAT *POLES,
5830 const INTEGER *GIVPTR,
5831 const INTEGER *GIVCOL,
5832 const INTEGER *LDGCOL,
5833 const INTEGER *PERM,
5834 const FLOAT *GIVNUM,
5835 const FLOAT *C,
5836 const FLOAT *S,
5837 FLOAT *RWORK,
5838 INTEGER *IWORK,
5839 INTEGER *INFO)
5840 {
5841 DEBUG_LAPACK_STUB("clalsa");
5842 LAPACK_IMPL(clalsa)(ICOMPQ,
5843 SMLSIZ,
5844 N,
5845 NRHS,
5846 B,
5847 LDB,
5848 BX,
5849 LDBX,
5850 U,
5851 LDU,
5852 VT,
5853 K,
5854 DIFL,
5855 DIFR,
5856 Z,
5857 POLES,
5858 GIVPTR,
5859 GIVCOL,
5860 LDGCOL,
5861 PERM,
5862 GIVNUM,
5863 C,
5864 S,
5865 RWORK,
5866 IWORK,
5867 INFO);
5868 }
5869
5870 //-- clalsd --------------------------------------------------------------------
5871 void
LAPACK_DECL(clalsd)5872 LAPACK_DECL(clalsd)(const char *UPLO,
5873 const INTEGER *SMLSIZ,
5874 const INTEGER *N,
5875 const INTEGER *NRHS,
5876 FLOAT *D,
5877 FLOAT *E,
5878 FLOAT_COMPLEX *B,
5879 const INTEGER *LDB,
5880 const FLOAT *RCOND,
5881 INTEGER *RANK,
5882 FLOAT_COMPLEX *WORK,
5883 FLOAT *RWORK,
5884 INTEGER *IWORK,
5885 INTEGER *INFO)
5886 {
5887 DEBUG_LAPACK_STUB("clalsd");
5888 LAPACK_IMPL(clalsd)(UPLO,
5889 SMLSIZ,
5890 N,
5891 NRHS,
5892 D,
5893 E,
5894 B,
5895 LDB,
5896 RCOND,
5897 RANK,
5898 WORK,
5899 RWORK,
5900 IWORK,
5901 INFO);
5902 }
5903
5904 //-- clangb --------------------------------------------------------------------
5905 FLOAT
LAPACK_DECL(clangb)5906 LAPACK_DECL(clangb)(const char *NORM,
5907 const INTEGER *N,
5908 const INTEGER *KL,
5909 const INTEGER *KU,
5910 const FLOAT_COMPLEX *AB,
5911 const INTEGER *LDAB,
5912 FLOAT *WORK)
5913 {
5914 DEBUG_LAPACK_STUB("clangb");
5915 return LAPACK_IMPL(clangb)(NORM,
5916 N,
5917 KL,
5918 KU,
5919 AB,
5920 LDAB,
5921 WORK);
5922 }
5923
5924 //-- clange --------------------------------------------------------------------
5925 FLOAT
LAPACK_DECL(clange)5926 LAPACK_DECL(clange)(const char *NORM,
5927 const INTEGER *M,
5928 const INTEGER *N,
5929 const FLOAT_COMPLEX *A,
5930 const INTEGER *LDA,
5931 FLOAT *WORK)
5932 {
5933 DEBUG_LAPACK_STUB("clange");
5934 return LAPACK_IMPL(clange)(NORM,
5935 M,
5936 N,
5937 A,
5938 LDA,
5939 WORK);
5940 }
5941
5942 //-- clangt --------------------------------------------------------------------
5943 FLOAT
LAPACK_DECL(clangt)5944 LAPACK_DECL(clangt)(const char *NORM,
5945 const INTEGER *N,
5946 const FLOAT_COMPLEX *DL,
5947 const FLOAT_COMPLEX *D,
5948 const FLOAT_COMPLEX *DU)
5949 {
5950 DEBUG_LAPACK_STUB("clangt");
5951 return LAPACK_IMPL(clangt)(NORM,
5952 N,
5953 DL,
5954 D,
5955 DU);
5956 }
5957
5958 //-- clanhb --------------------------------------------------------------------
5959 FLOAT
LAPACK_DECL(clanhb)5960 LAPACK_DECL(clanhb)(const char *NORM,
5961 const char *UPLO,
5962 const INTEGER *N,
5963 const INTEGER *K,
5964 const FLOAT_COMPLEX *AB,
5965 const INTEGER *LDAB,
5966 FLOAT *WORK)
5967 {
5968 DEBUG_LAPACK_STUB("clanhb");
5969 return LAPACK_IMPL(clanhb)(NORM,
5970 UPLO,
5971 N,
5972 K,
5973 AB,
5974 LDAB,
5975 WORK);
5976 }
5977
5978 //-- clanhe --------------------------------------------------------------------
5979 FLOAT
LAPACK_DECL(clanhe)5980 LAPACK_DECL(clanhe)(const char *NORM,
5981 const char *UPLO,
5982 const INTEGER *N,
5983 const FLOAT_COMPLEX *A,
5984 const INTEGER *LDA,
5985 FLOAT *WORK)
5986 {
5987 DEBUG_LAPACK_STUB("clanhe");
5988 return LAPACK_IMPL(clanhe)(NORM,
5989 UPLO,
5990 N,
5991 A,
5992 LDA,
5993 WORK);
5994 }
5995
5996 //-- clanhf --------------------------------------------------------------------
5997 FLOAT
LAPACK_DECL(clanhf)5998 LAPACK_DECL(clanhf)(const char *NORM,
5999 const char *TRANSR,
6000 const char *UPLO,
6001 const INTEGER *N,
6002 const FLOAT_COMPLEX *A,
6003 FLOAT *WORK)
6004 {
6005 DEBUG_LAPACK_STUB("clanhf");
6006 return LAPACK_IMPL(clanhf)(NORM,
6007 TRANSR,
6008 UPLO,
6009 N,
6010 A,
6011 WORK);
6012 }
6013
6014 //-- clanhp --------------------------------------------------------------------
6015 FLOAT
LAPACK_DECL(clanhp)6016 LAPACK_DECL(clanhp)(const char *NORM,
6017 const char *UPLO,
6018 const INTEGER *N,
6019 const FLOAT_COMPLEX *AP,
6020 FLOAT *WORK)
6021 {
6022 DEBUG_LAPACK_STUB("clanhp");
6023 return LAPACK_IMPL(clanhp)(NORM,
6024 UPLO,
6025 N,
6026 AP,
6027 WORK);
6028 }
6029
6030 //-- clanhs --------------------------------------------------------------------
6031 FLOAT
LAPACK_DECL(clanhs)6032 LAPACK_DECL(clanhs)(const char *NORM,
6033 const INTEGER *N,
6034 const FLOAT_COMPLEX *A,
6035 const INTEGER *LDA,
6036 FLOAT *WORK)
6037 {
6038 DEBUG_LAPACK_STUB("clanhs");
6039 return LAPACK_IMPL(clanhs)(NORM,
6040 N,
6041 A,
6042 LDA,
6043 WORK);
6044 }
6045
6046 //-- clanht --------------------------------------------------------------------
6047 FLOAT
LAPACK_DECL(clanht)6048 LAPACK_DECL(clanht)(const char *NORM,
6049 const INTEGER *N,
6050 const FLOAT *D,
6051 const FLOAT_COMPLEX *E)
6052 {
6053 DEBUG_LAPACK_STUB("clanht");
6054 return LAPACK_IMPL(clanht)(NORM,
6055 N,
6056 D,
6057 E);
6058 }
6059
6060 //-- clansb --------------------------------------------------------------------
6061 FLOAT
LAPACK_DECL(clansb)6062 LAPACK_DECL(clansb)(const char *NORM,
6063 const char *UPLO,
6064 const INTEGER *N,
6065 const INTEGER *K,
6066 const FLOAT_COMPLEX *AB,
6067 const INTEGER *LDAB,
6068 FLOAT *WORK)
6069 {
6070 DEBUG_LAPACK_STUB("clansb");
6071 return LAPACK_IMPL(clansb)(NORM,
6072 UPLO,
6073 N,
6074 K,
6075 AB,
6076 LDAB,
6077 WORK);
6078 }
6079
6080 //-- clansp --------------------------------------------------------------------
6081 FLOAT
LAPACK_DECL(clansp)6082 LAPACK_DECL(clansp)(const char *NORM,
6083 const char *UPLO,
6084 const INTEGER *N,
6085 const FLOAT_COMPLEX *AP,
6086 FLOAT *WORK)
6087 {
6088 DEBUG_LAPACK_STUB("clansp");
6089 return LAPACK_IMPL(clansp)(NORM,
6090 UPLO,
6091 N,
6092 AP,
6093 WORK);
6094 }
6095
6096 //-- clansy --------------------------------------------------------------------
6097 FLOAT
LAPACK_DECL(clansy)6098 LAPACK_DECL(clansy)(const char *NORM,
6099 const char *UPLO,
6100 const INTEGER *N,
6101 const FLOAT_COMPLEX *A,
6102 const INTEGER *LDA,
6103 FLOAT *WORK)
6104 {
6105 DEBUG_LAPACK_STUB("clansy");
6106 return LAPACK_IMPL(clansy)(NORM,
6107 UPLO,
6108 N,
6109 A,
6110 LDA,
6111 WORK);
6112 }
6113
6114 //-- clantb --------------------------------------------------------------------
6115 FLOAT
LAPACK_DECL(clantb)6116 LAPACK_DECL(clantb)(const char *NORM,
6117 const char *UPLO,
6118 const char *DIAG,
6119 const INTEGER *N,
6120 const INTEGER *K,
6121 const FLOAT_COMPLEX *AB,
6122 const INTEGER *LDAB,
6123 FLOAT *WORK)
6124 {
6125 DEBUG_LAPACK_STUB("clantb");
6126 return LAPACK_IMPL(clantb)(NORM,
6127 UPLO,
6128 DIAG,
6129 N,
6130 K,
6131 AB,
6132 LDAB,
6133 WORK);
6134 }
6135
6136 //-- clantp --------------------------------------------------------------------
6137 FLOAT
LAPACK_DECL(clantp)6138 LAPACK_DECL(clantp)(const char *NORM,
6139 const char *UPLO,
6140 const char *DIAG,
6141 const INTEGER *N,
6142 const FLOAT_COMPLEX *AP,
6143 FLOAT *WORK)
6144 {
6145 DEBUG_LAPACK_STUB("clantp");
6146 return LAPACK_IMPL(clantp)(NORM,
6147 UPLO,
6148 DIAG,
6149 N,
6150 AP,
6151 WORK);
6152 }
6153
6154 //-- clantr --------------------------------------------------------------------
6155 FLOAT
LAPACK_DECL(clantr)6156 LAPACK_DECL(clantr)(const char *NORM,
6157 const char *UPLO,
6158 const char *DIAG,
6159 const INTEGER *M,
6160 const INTEGER *N,
6161 const FLOAT_COMPLEX *A,
6162 const INTEGER *LDA,
6163 FLOAT *WORK)
6164 {
6165 DEBUG_LAPACK_STUB("clantr");
6166 return LAPACK_IMPL(clantr)(NORM,
6167 UPLO,
6168 DIAG,
6169 M,
6170 N,
6171 A,
6172 LDA,
6173 WORK);
6174 }
6175
6176 //-- clapll --------------------------------------------------------------------
6177 void
LAPACK_DECL(clapll)6178 LAPACK_DECL(clapll)(const INTEGER *N,
6179 FLOAT_COMPLEX *X,
6180 const INTEGER *INCX,
6181 FLOAT_COMPLEX *Y,
6182 const INTEGER *INCY,
6183 FLOAT *SSMIN)
6184 {
6185 DEBUG_LAPACK_STUB("clapll");
6186 LAPACK_IMPL(clapll)(N,
6187 X,
6188 INCX,
6189 Y,
6190 INCY,
6191 SSMIN);
6192 }
6193
6194 //-- clapmr --------------------------------------------------------------------
6195 void
LAPACK_DECL(clapmr)6196 LAPACK_DECL(clapmr)(const LOGICAL *FORWRD,
6197 const INTEGER *M,
6198 const INTEGER *N,
6199 FLOAT_COMPLEX *X,
6200 const INTEGER *LDX,
6201 INTEGER *K)
6202 {
6203 DEBUG_LAPACK_STUB("clapmr");
6204 LAPACK_IMPL(clapmr)(FORWRD,
6205 M,
6206 N,
6207 X,
6208 LDX,
6209 K);
6210 }
6211
6212 //-- clapmt --------------------------------------------------------------------
6213 void
LAPACK_DECL(clapmt)6214 LAPACK_DECL(clapmt)(const LOGICAL *FORWRD,
6215 const INTEGER *M,
6216 const INTEGER *N,
6217 FLOAT_COMPLEX *X,
6218 const INTEGER *LDX,
6219 INTEGER *K)
6220 {
6221 DEBUG_LAPACK_STUB("clapmt");
6222 LAPACK_IMPL(clapmt)(FORWRD,
6223 M,
6224 N,
6225 X,
6226 LDX,
6227 K);
6228 }
6229
6230 //-- claqgb --------------------------------------------------------------------
6231 void
LAPACK_DECL(claqgb)6232 LAPACK_DECL(claqgb)(const INTEGER *M,
6233 const INTEGER *N,
6234 const INTEGER *KL,
6235 const INTEGER *KU,
6236 FLOAT_COMPLEX *AB,
6237 const INTEGER *LDAB,
6238 const FLOAT *R,
6239 const FLOAT *C,
6240 const FLOAT *ROWCND,
6241 const FLOAT *COLCND,
6242 const FLOAT *AMAX,
6243 char *EQUED)
6244 {
6245 DEBUG_LAPACK_STUB("claqgb");
6246 LAPACK_IMPL(claqgb)(M,
6247 N,
6248 KL,
6249 KU,
6250 AB,
6251 LDAB,
6252 R,
6253 C,
6254 ROWCND,
6255 COLCND,
6256 AMAX,
6257 EQUED);
6258 }
6259
6260 //-- claqge --------------------------------------------------------------------
6261 void
LAPACK_DECL(claqge)6262 LAPACK_DECL(claqge)(const INTEGER *M,
6263 const INTEGER *N,
6264 FLOAT_COMPLEX *A,
6265 const INTEGER *LDA,
6266 const FLOAT *R,
6267 const FLOAT *C,
6268 const FLOAT *ROWCND,
6269 const FLOAT *COLCND,
6270 const FLOAT *AMAX,
6271 char *EQUED)
6272 {
6273 DEBUG_LAPACK_STUB("claqge");
6274 LAPACK_IMPL(claqge)(M,
6275 N,
6276 A,
6277 LDA,
6278 R,
6279 C,
6280 ROWCND,
6281 COLCND,
6282 AMAX,
6283 EQUED);
6284 }
6285
6286 //-- claqhb --------------------------------------------------------------------
6287 void
LAPACK_DECL(claqhb)6288 LAPACK_DECL(claqhb)(const char *UPLO,
6289 const INTEGER *N,
6290 const INTEGER *KD,
6291 FLOAT_COMPLEX *AB,
6292 const INTEGER *LDAB,
6293 FLOAT *S,
6294 const FLOAT *SCOND,
6295 const FLOAT *AMAX,
6296 char *EQUED)
6297 {
6298 DEBUG_LAPACK_STUB("claqhb");
6299 LAPACK_IMPL(claqhb)(UPLO,
6300 N,
6301 KD,
6302 AB,
6303 LDAB,
6304 S,
6305 SCOND,
6306 AMAX,
6307 EQUED);
6308 }
6309
6310 //-- claqhe --------------------------------------------------------------------
6311 void
LAPACK_DECL(claqhe)6312 LAPACK_DECL(claqhe)(const char *UPLO,
6313 const INTEGER *N,
6314 FLOAT_COMPLEX *A,
6315 const INTEGER *LDA,
6316 const FLOAT *S,
6317 const FLOAT *SCOND,
6318 const FLOAT *AMAX,
6319 char *EQUED)
6320 {
6321 DEBUG_LAPACK_STUB("claqhe");
6322 LAPACK_IMPL(claqhe)(UPLO,
6323 N,
6324 A,
6325 LDA,
6326 S,
6327 SCOND,
6328 AMAX,
6329 EQUED);
6330 }
6331
6332 //-- claqhp --------------------------------------------------------------------
6333 void
LAPACK_DECL(claqhp)6334 LAPACK_DECL(claqhp)(const char *UPLO,
6335 const INTEGER *N,
6336 FLOAT_COMPLEX *AP,
6337 const FLOAT *S,
6338 const FLOAT *SCOND,
6339 const FLOAT *AMAX,
6340 char *EQUED)
6341 {
6342 DEBUG_LAPACK_STUB("claqhp");
6343 LAPACK_IMPL(claqhp)(UPLO,
6344 N,
6345 AP,
6346 S,
6347 SCOND,
6348 AMAX,
6349 EQUED);
6350 }
6351
6352 //-- claqp2 --------------------------------------------------------------------
6353 void
LAPACK_DECL(claqp2)6354 LAPACK_DECL(claqp2)(const INTEGER *M,
6355 const INTEGER *N,
6356 const INTEGER *OFFSET,
6357 FLOAT_COMPLEX *A,
6358 const INTEGER *LDA,
6359 INTEGER *JPVT,
6360 FLOAT_COMPLEX *TAU,
6361 FLOAT *VN1,
6362 FLOAT *VN2,
6363 FLOAT_COMPLEX *WORK)
6364 {
6365 DEBUG_LAPACK_STUB("claqp2");
6366 LAPACK_IMPL(claqp2)(M,
6367 N,
6368 OFFSET,
6369 A,
6370 LDA,
6371 JPVT,
6372 TAU,
6373 VN1,
6374 VN2,
6375 WORK);
6376 }
6377
6378 //-- claqps --------------------------------------------------------------------
6379 void
LAPACK_DECL(claqps)6380 LAPACK_DECL(claqps)(const INTEGER *M,
6381 const INTEGER *N,
6382 const INTEGER *OFFSET,
6383 const INTEGER *NB,
6384 INTEGER *KB,
6385 FLOAT_COMPLEX *A,
6386 const INTEGER *LDA,
6387 INTEGER *JPVT,
6388 FLOAT_COMPLEX *TAU,
6389 FLOAT *VN1,
6390 FLOAT *VN2,
6391 FLOAT_COMPLEX *AUXV,
6392 FLOAT_COMPLEX *F,
6393 const INTEGER *LDF)
6394 {
6395 DEBUG_LAPACK_STUB("claqps");
6396 LAPACK_IMPL(claqps)(M,
6397 N,
6398 OFFSET,
6399 NB,
6400 KB,
6401 A,
6402 LDA,
6403 JPVT,
6404 TAU,
6405 VN1,
6406 VN2,
6407 AUXV,
6408 F,
6409 LDF);
6410 }
6411
6412 //-- claqr0 --------------------------------------------------------------------
6413 void
LAPACK_DECL(claqr0)6414 LAPACK_DECL(claqr0)(const LOGICAL *WANTT,
6415 const LOGICAL *WANTZ,
6416 const INTEGER *N,
6417 const INTEGER *ILO,
6418 const INTEGER *IHI,
6419 FLOAT_COMPLEX *H,
6420 const INTEGER *LDH,
6421 FLOAT_COMPLEX *W,
6422 const INTEGER *ILOZ,
6423 const INTEGER *IHIZ,
6424 FLOAT_COMPLEX *Z,
6425 const INTEGER *LDZ,
6426 FLOAT_COMPLEX *WORK,
6427 const INTEGER *LWORK,
6428 INTEGER *INFO)
6429 {
6430 DEBUG_LAPACK_STUB("claqr0");
6431 LAPACK_IMPL(claqr0)(WANTT,
6432 WANTZ,
6433 N,
6434 ILO,
6435 IHI,
6436 H,
6437 LDH,
6438 W,
6439 ILOZ,
6440 IHIZ,
6441 Z,
6442 LDZ,
6443 WORK,
6444 LWORK,
6445 INFO);
6446 }
6447
6448 //-- claqr1 --------------------------------------------------------------------
6449 void
LAPACK_DECL(claqr1)6450 LAPACK_DECL(claqr1)(const INTEGER *N,
6451 const FLOAT_COMPLEX *H,
6452 const INTEGER *LDH,
6453 const FLOAT_COMPLEX *S1,
6454 const FLOAT_COMPLEX *S2,
6455 FLOAT_COMPLEX *V)
6456 {
6457 DEBUG_LAPACK_STUB("claqr1");
6458 LAPACK_IMPL(claqr1)(N,
6459 H,
6460 LDH,
6461 S1,
6462 S2,
6463 V);
6464 }
6465
6466 //-- claqr2 --------------------------------------------------------------------
6467 void
LAPACK_DECL(claqr2)6468 LAPACK_DECL(claqr2)(const LOGICAL *WANTT,
6469 const LOGICAL *WANTZ,
6470 const INTEGER *N,
6471 const INTEGER *KTOP,
6472 const INTEGER *KBOT,
6473 const INTEGER *NW,
6474 FLOAT_COMPLEX *H,
6475 const INTEGER *LDH,
6476 const INTEGER *ILOZ,
6477 const INTEGER *IHIZ,
6478 FLOAT_COMPLEX *Z,
6479 const INTEGER *LDZ,
6480 INTEGER *NS,
6481 INTEGER *ND,
6482 FLOAT_COMPLEX *SH,
6483 FLOAT_COMPLEX *V,
6484 const INTEGER *LDV,
6485 const INTEGER *NH,
6486 FLOAT_COMPLEX *T,
6487 const INTEGER *LDT,
6488 const INTEGER *NV,
6489 FLOAT_COMPLEX *WV,
6490 const INTEGER *LDWV,
6491 FLOAT_COMPLEX *WORK,
6492 const INTEGER *LWORK)
6493 {
6494 DEBUG_LAPACK_STUB("claqr2");
6495 LAPACK_IMPL(claqr2)(WANTT,
6496 WANTZ,
6497 N,
6498 KTOP,
6499 KBOT,
6500 NW,
6501 H,
6502 LDH,
6503 ILOZ,
6504 IHIZ,
6505 Z,
6506 LDZ,
6507 NS,
6508 ND,
6509 SH,
6510 V,
6511 LDV,
6512 NH,
6513 T,
6514 LDT,
6515 NV,
6516 WV,
6517 LDWV,
6518 WORK,
6519 LWORK);
6520 }
6521
6522 //-- claqr3 --------------------------------------------------------------------
6523 void
LAPACK_DECL(claqr3)6524 LAPACK_DECL(claqr3)(const LOGICAL *WANTT,
6525 const LOGICAL *WANTZ,
6526 const INTEGER *N,
6527 const INTEGER *KTOP,
6528 const INTEGER *KBOT,
6529 const INTEGER *NW,
6530 FLOAT_COMPLEX *H,
6531 const INTEGER *LDH,
6532 const INTEGER *ILOZ,
6533 const INTEGER *IHIZ,
6534 FLOAT_COMPLEX *Z,
6535 const INTEGER *LDZ,
6536 INTEGER *NS,
6537 INTEGER *ND,
6538 FLOAT_COMPLEX *SH,
6539 FLOAT_COMPLEX *V,
6540 const INTEGER *LDV,
6541 const INTEGER *NH,
6542 FLOAT_COMPLEX *T,
6543 const INTEGER *LDT,
6544 const INTEGER *NV,
6545 FLOAT_COMPLEX *WV,
6546 const INTEGER *LDWV,
6547 FLOAT_COMPLEX *WORK,
6548 const INTEGER *LWORK)
6549 {
6550 DEBUG_LAPACK_STUB("claqr3");
6551 LAPACK_IMPL(claqr3)(WANTT,
6552 WANTZ,
6553 N,
6554 KTOP,
6555 KBOT,
6556 NW,
6557 H,
6558 LDH,
6559 ILOZ,
6560 IHIZ,
6561 Z,
6562 LDZ,
6563 NS,
6564 ND,
6565 SH,
6566 V,
6567 LDV,
6568 NH,
6569 T,
6570 LDT,
6571 NV,
6572 WV,
6573 LDWV,
6574 WORK,
6575 LWORK);
6576 }
6577
6578 //-- claqr4 --------------------------------------------------------------------
6579 void
LAPACK_DECL(claqr4)6580 LAPACK_DECL(claqr4)(const LOGICAL *WANTT,
6581 const LOGICAL *WANTZ,
6582 const INTEGER *N,
6583 const INTEGER *ILO,
6584 const INTEGER *IHI,
6585 FLOAT_COMPLEX *H,
6586 const INTEGER *LDH,
6587 FLOAT_COMPLEX *W,
6588 const INTEGER *ILOZ,
6589 const INTEGER *IHIZ,
6590 FLOAT_COMPLEX *Z,
6591 const INTEGER *LDZ,
6592 FLOAT_COMPLEX *WORK,
6593 const INTEGER *LWORK,
6594 INTEGER *INFO)
6595 {
6596 DEBUG_LAPACK_STUB("claqr4");
6597 LAPACK_IMPL(claqr4)(WANTT,
6598 WANTZ,
6599 N,
6600 ILO,
6601 IHI,
6602 H,
6603 LDH,
6604 W,
6605 ILOZ,
6606 IHIZ,
6607 Z,
6608 LDZ,
6609 WORK,
6610 LWORK,
6611 INFO);
6612 }
6613
6614 //-- claqr5 --------------------------------------------------------------------
6615 void
LAPACK_DECL(claqr5)6616 LAPACK_DECL(claqr5)(const LOGICAL *WANTT,
6617 const LOGICAL *WANTZ,
6618 const INTEGER *KACC22,
6619 const INTEGER *N,
6620 const INTEGER *KTOP,
6621 const INTEGER *KBOT,
6622 const INTEGER *NSHFTS,
6623 FLOAT_COMPLEX *S,
6624 FLOAT_COMPLEX *H,
6625 const INTEGER *LDH,
6626 const INTEGER *ILOZ,
6627 const INTEGER *IHIZ,
6628 FLOAT_COMPLEX *Z,
6629 const INTEGER *LDZ,
6630 FLOAT_COMPLEX *V,
6631 const INTEGER *LDV,
6632 FLOAT_COMPLEX *U,
6633 const INTEGER *LDU,
6634 const INTEGER *NV,
6635 FLOAT_COMPLEX *WV,
6636 const INTEGER *LDWV,
6637 const INTEGER *NH,
6638 FLOAT_COMPLEX *WH,
6639 const INTEGER *LDWH)
6640 {
6641 DEBUG_LAPACK_STUB("claqr5");
6642 LAPACK_IMPL(claqr5)(WANTT,
6643 WANTZ,
6644 KACC22,
6645 N,
6646 KTOP,
6647 KBOT,
6648 NSHFTS,
6649 S,
6650 H,
6651 LDH,
6652 ILOZ,
6653 IHIZ,
6654 Z,
6655 LDZ,
6656 V,
6657 LDV,
6658 U,
6659 LDU,
6660 NV,
6661 WV,
6662 LDWV,
6663 NH,
6664 WH,
6665 LDWH);
6666 }
6667
6668 //-- claqsb --------------------------------------------------------------------
6669 void
LAPACK_DECL(claqsb)6670 LAPACK_DECL(claqsb)(const char *UPLO,
6671 const INTEGER *N,
6672 const INTEGER *KD,
6673 FLOAT_COMPLEX *AB,
6674 const INTEGER *LDAB,
6675 const FLOAT *S,
6676 const FLOAT *SCOND,
6677 const FLOAT *AMAX,
6678 char *EQUED)
6679 {
6680 DEBUG_LAPACK_STUB("claqsb");
6681 LAPACK_IMPL(claqsb)(UPLO,
6682 N,
6683 KD,
6684 AB,
6685 LDAB,
6686 S,
6687 SCOND,
6688 AMAX,
6689 EQUED);
6690 }
6691
6692 //-- claqsp --------------------------------------------------------------------
6693 void
LAPACK_DECL(claqsp)6694 LAPACK_DECL(claqsp)(const char *UPLO,
6695 const INTEGER *N,
6696 FLOAT_COMPLEX *AP,
6697 const FLOAT *S,
6698 const FLOAT *SCOND,
6699 const FLOAT *AMAX,
6700 char *EQUED)
6701 {
6702 DEBUG_LAPACK_STUB("claqsp");
6703 LAPACK_IMPL(claqsp)(UPLO,
6704 N,
6705 AP,
6706 S,
6707 SCOND,
6708 AMAX,
6709 EQUED);
6710 }
6711
6712 //-- claqsy --------------------------------------------------------------------
6713 void
LAPACK_DECL(claqsy)6714 LAPACK_DECL(claqsy)(const char *UPLO,
6715 const INTEGER *N,
6716 FLOAT_COMPLEX *A,
6717 const INTEGER *LDA,
6718 const FLOAT *S,
6719 const FLOAT *SCOND,
6720 const FLOAT *AMAX,
6721 char *EQUED)
6722 {
6723 DEBUG_LAPACK_STUB("claqsy");
6724 LAPACK_IMPL(claqsy)(UPLO,
6725 N,
6726 A,
6727 LDA,
6728 S,
6729 SCOND,
6730 AMAX,
6731 EQUED);
6732 }
6733
6734 //-- clar1v --------------------------------------------------------------------
6735 void
LAPACK_DECL(clar1v)6736 LAPACK_DECL(clar1v)(const INTEGER *N,
6737 const INTEGER *B1,
6738 const INTEGER *BN,
6739 const FLOAT *LAMBDA,
6740 const FLOAT *D,
6741 const FLOAT *L,
6742 const FLOAT *LD,
6743 const FLOAT *LLD,
6744 const FLOAT *PIVMIN,
6745 const FLOAT *GAPTOL,
6746 FLOAT_COMPLEX *Z,
6747 const LOGICAL *WANTNC,
6748 INTEGER *NEGCNT,
6749 FLOAT *ZTZ,
6750 FLOAT *MINGMA,
6751 INTEGER *R,
6752 INTEGER *ISUPPZ,
6753 FLOAT *NRMINV,
6754 FLOAT *RESID,
6755 FLOAT *RQCORR,
6756 FLOAT *WORK)
6757 {
6758 DEBUG_LAPACK_STUB("clar1v");
6759 LAPACK_IMPL(clar1v)(N,
6760 B1,
6761 BN,
6762 LAMBDA,
6763 D,
6764 L,
6765 LD,
6766 LLD,
6767 PIVMIN,
6768 GAPTOL,
6769 Z,
6770 WANTNC,
6771 NEGCNT,
6772 ZTZ,
6773 MINGMA,
6774 R,
6775 ISUPPZ,
6776 NRMINV,
6777 RESID,
6778 RQCORR,
6779 WORK);
6780 }
6781
6782 //-- clar2v --------------------------------------------------------------------
6783 void
LAPACK_DECL(clar2v)6784 LAPACK_DECL(clar2v)(const INTEGER *N,
6785 FLOAT_COMPLEX *X,
6786 FLOAT_COMPLEX *Y,
6787 FLOAT_COMPLEX *Z,
6788 const INTEGER *INCX,
6789 const FLOAT *C,
6790 const FLOAT_COMPLEX *S,
6791 const INTEGER *INCC)
6792 {
6793 DEBUG_LAPACK_STUB("clar2v");
6794 LAPACK_IMPL(clar2v)(N,
6795 X,
6796 Y,
6797 Z,
6798 INCX,
6799 C,
6800 S,
6801 INCC);
6802 }
6803
6804 //-- clarcm --------------------------------------------------------------------
6805 void
LAPACK_DECL(clarcm)6806 LAPACK_DECL(clarcm)(const INTEGER *M,
6807 const INTEGER *N,
6808 const FLOAT *A,
6809 const INTEGER *LDA,
6810 const FLOAT_COMPLEX *B,
6811 const INTEGER *LDB,
6812 const FLOAT_COMPLEX *C,
6813 const INTEGER *LDC,
6814 FLOAT *RWORK)
6815 {
6816 DEBUG_LAPACK_STUB("clarcm");
6817 LAPACK_IMPL(clarcm)(M,
6818 N,
6819 A,
6820 LDA,
6821 B,
6822 LDB,
6823 C,
6824 LDC,
6825 RWORK);
6826 }
6827
6828 //-- clarf ---------------------------------------------------------------------
6829 void
LAPACK_DECL(clarf)6830 LAPACK_DECL(clarf)(const char *SIDE,
6831 const INTEGER *M,
6832 const INTEGER *N,
6833 const FLOAT_COMPLEX *V,
6834 const INTEGER *INCV,
6835 const FLOAT_COMPLEX *TAU,
6836 FLOAT_COMPLEX *C,
6837 const INTEGER *LDC,
6838 FLOAT_COMPLEX *WORK)
6839 {
6840 DEBUG_LAPACK_STUB("clarf");
6841 LAPACK_IMPL(clarf)(SIDE,
6842 M,
6843 N,
6844 V,
6845 INCV,
6846 TAU,
6847 C,
6848 LDC,
6849 WORK);
6850 }
6851
6852 //-- clarfb --------------------------------------------------------------------
6853 void
LAPACK_DECL(clarfb)6854 LAPACK_DECL(clarfb)(const char *SIDE,
6855 const char *TRANS,
6856 const char *DIRECT,
6857 const char *STOREV,
6858 const INTEGER *M,
6859 const INTEGER *N,
6860 const INTEGER *K,
6861 const FLOAT_COMPLEX *V,
6862 const INTEGER *LDV,
6863 const FLOAT_COMPLEX *T,
6864 const INTEGER *LDT,
6865 FLOAT_COMPLEX *C,
6866 const INTEGER *LDC,
6867 FLOAT_COMPLEX *WORK,
6868 const INTEGER *LDWORK)
6869 {
6870 DEBUG_LAPACK_STUB("clarfb");
6871 LAPACK_IMPL(clarfb)(SIDE,
6872 TRANS,
6873 DIRECT,
6874 STOREV,
6875 M,
6876 N,
6877 K,
6878 V,
6879 LDV,
6880 T,
6881 LDT,
6882 C,
6883 LDC,
6884 WORK,
6885 LDWORK);
6886 }
6887
6888 //-- clarfg --------------------------------------------------------------------
6889 void
LAPACK_DECL(clarfg)6890 LAPACK_DECL(clarfg)(const INTEGER *N,
6891 FLOAT_COMPLEX *ALPHA,
6892 FLOAT_COMPLEX *X,
6893 const INTEGER *INCX,
6894 FLOAT_COMPLEX *TAU)
6895 {
6896 DEBUG_LAPACK_STUB("clarfg");
6897 LAPACK_IMPL(clarfg)(N,
6898 ALPHA,
6899 X,
6900 INCX,
6901 TAU);
6902 }
6903
6904 //-- clarfgp -------------------------------------------------------------------
6905 void
LAPACK_DECL(clarfgp)6906 LAPACK_DECL(clarfgp)(const INTEGER *N,
6907 FLOAT_COMPLEX *ALPHA,
6908 FLOAT_COMPLEX *X,
6909 const INTEGER *INCX,
6910 FLOAT_COMPLEX *TAU)
6911 {
6912 DEBUG_LAPACK_STUB("clarfgp");
6913 LAPACK_IMPL(clarfgp)(N,
6914 ALPHA,
6915 X,
6916 INCX,
6917 TAU);
6918 }
6919
6920 //-- clarft --------------------------------------------------------------------
6921 void
LAPACK_DECL(clarft)6922 LAPACK_DECL(clarft)(const char *DIRECT,
6923 const char *STOREV,
6924 const INTEGER *N,
6925 const INTEGER *K,
6926 FLOAT_COMPLEX *V,
6927 const INTEGER *LDV,
6928 const FLOAT_COMPLEX *TAU,
6929 FLOAT_COMPLEX *T,
6930 const INTEGER *LDT)
6931 {
6932 DEBUG_LAPACK_STUB("clarft");
6933 LAPACK_IMPL(clarft)(DIRECT,
6934 STOREV,
6935 N,
6936 K,
6937 V,
6938 LDV,
6939 TAU,
6940 T,
6941 LDT);
6942 }
6943
6944 //-- clarfx --------------------------------------------------------------------
6945 void
LAPACK_DECL(clarfx)6946 LAPACK_DECL(clarfx)(const char *SIDE,
6947 const INTEGER *M,
6948 const INTEGER *N,
6949 const FLOAT_COMPLEX *V,
6950 const FLOAT_COMPLEX *TAU,
6951 FLOAT_COMPLEX *C,
6952 const INTEGER *LDC,
6953 FLOAT_COMPLEX *WORK)
6954 {
6955 DEBUG_LAPACK_STUB("clarfx");
6956 LAPACK_IMPL(clarfx)(SIDE,
6957 M,
6958 N,
6959 V,
6960 TAU,
6961 C,
6962 LDC,
6963 WORK);
6964 }
6965
6966 //-- clargv --------------------------------------------------------------------
6967 void
LAPACK_DECL(clargv)6968 LAPACK_DECL(clargv)(const INTEGER *N,
6969 FLOAT_COMPLEX *X,
6970 const INTEGER *INCX,
6971 FLOAT_COMPLEX *Y,
6972 const INTEGER *INCY,
6973 FLOAT *C,
6974 const INTEGER *INCC)
6975 {
6976 DEBUG_LAPACK_STUB("clargv");
6977 LAPACK_IMPL(clargv)(N,
6978 X,
6979 INCX,
6980 Y,
6981 INCY,
6982 C,
6983 INCC);
6984 }
6985
6986 //-- clarnv --------------------------------------------------------------------
6987 void
LAPACK_DECL(clarnv)6988 LAPACK_DECL(clarnv)(const INTEGER *IDIST,
6989 INTEGER *ISEED,
6990 const INTEGER *N,
6991 FLOAT_COMPLEX *X)
6992 {
6993 DEBUG_LAPACK_STUB("clarnv");
6994 LAPACK_IMPL(clarnv)(IDIST,
6995 ISEED,
6996 N,
6997 X);
6998 }
6999
7000 //-- clarrv --------------------------------------------------------------------
7001 void
LAPACK_DECL(clarrv)7002 LAPACK_DECL(clarrv)(const INTEGER *N,
7003 const FLOAT *VL,
7004 const FLOAT *VU,
7005 FLOAT *D,
7006 FLOAT *L,
7007 const FLOAT *PIVMIN,
7008 const INTEGER *ISPLIT,
7009 const INTEGER *M,
7010 const INTEGER *DOL,
7011 const INTEGER *DOU,
7012 const FLOAT *MINRGP,
7013 const FLOAT *RTOL1,
7014 const FLOAT *RTOL2,
7015 FLOAT *W,
7016 FLOAT *WERR,
7017 FLOAT *WGAP,
7018 const INTEGER *IBLOCK,
7019 const INTEGER *INDEXW,
7020 const FLOAT *GERS,
7021 FLOAT_COMPLEX *Z,
7022 const INTEGER *LDZ,
7023 INTEGER *ISUPPZ,
7024 FLOAT *WORK,
7025 INTEGER *IWORK,
7026 INTEGER *INFO)
7027 {
7028 DEBUG_LAPACK_STUB("clarrv");
7029 LAPACK_IMPL(clarrv)(N,
7030 VL,
7031 VU,
7032 D,
7033 L,
7034 PIVMIN,
7035 ISPLIT,
7036 M,
7037 DOL,
7038 DOU,
7039 MINRGP,
7040 RTOL1,
7041 RTOL2,
7042 W,
7043 WERR,
7044 WGAP,
7045 IBLOCK,
7046 INDEXW,
7047 GERS,
7048 Z,
7049 LDZ,
7050 ISUPPZ,
7051 WORK,
7052 IWORK,
7053 INFO);
7054 }
7055
7056 //-- clarscl2 ------------------------------------------------------------------
7057 void
LAPACK_DECL(clarscl2)7058 LAPACK_DECL(clarscl2)(const INTEGER *M,
7059 const INTEGER *N,
7060 const FLOAT *D,
7061 FLOAT_COMPLEX *X,
7062 const INTEGER *LDX)
7063 {
7064 DEBUG_LAPACK_STUB("clarscl2");
7065 LAPACK_IMPL(clarscl2)(M,
7066 N,
7067 D,
7068 X,
7069 LDX);
7070 }
7071
7072 //-- clartg --------------------------------------------------------------------
7073 void
LAPACK_DECL(clartg)7074 LAPACK_DECL(clartg)(const FLOAT_COMPLEX *F,
7075 const FLOAT_COMPLEX *G,
7076 FLOAT *CS,
7077 FLOAT_COMPLEX *SN,
7078 FLOAT_COMPLEX *R)
7079 {
7080 DEBUG_LAPACK_STUB("clartg");
7081 LAPACK_IMPL(clartg)(F,
7082 G,
7083 CS,
7084 SN,
7085 R);
7086 }
7087
7088 //-- clartv --------------------------------------------------------------------
7089 void
LAPACK_DECL(clartv)7090 LAPACK_DECL(clartv)(const INTEGER *N,
7091 FLOAT_COMPLEX *X,
7092 const INTEGER *INCX,
7093 FLOAT_COMPLEX *Y,
7094 const INTEGER *INCY,
7095 const FLOAT *C,
7096 const FLOAT_COMPLEX *S,
7097 const INTEGER *INCC)
7098 {
7099 DEBUG_LAPACK_STUB("clartv");
7100 LAPACK_IMPL(clartv)(N,
7101 X,
7102 INCX,
7103 Y,
7104 INCY,
7105 C,
7106 S,
7107 INCC);
7108 }
7109
7110 //-- clarz ---------------------------------------------------------------------
7111 void
LAPACK_DECL(clarz)7112 LAPACK_DECL(clarz)(const char *SIDE,
7113 const INTEGER *M,
7114 const INTEGER *N,
7115 const INTEGER *L,
7116 const FLOAT_COMPLEX *V,
7117 const INTEGER *INCV,
7118 const FLOAT_COMPLEX *TAU,
7119 FLOAT_COMPLEX *C,
7120 const INTEGER *LDC,
7121 FLOAT_COMPLEX *WORK)
7122 {
7123 DEBUG_LAPACK_STUB("clarz");
7124 LAPACK_IMPL(clarz)(SIDE,
7125 M,
7126 N,
7127 L,
7128 V,
7129 INCV,
7130 TAU,
7131 C,
7132 LDC,
7133 WORK);
7134 }
7135
7136 //-- clarzb --------------------------------------------------------------------
7137 void
LAPACK_DECL(clarzb)7138 LAPACK_DECL(clarzb)(const char *SIDE,
7139 const char *TRANS,
7140 const char *DIRECT,
7141 const char *STOREV,
7142 const INTEGER *M,
7143 const INTEGER *N,
7144 const INTEGER *K,
7145 const INTEGER *L,
7146 const FLOAT_COMPLEX *V,
7147 const INTEGER *LDV,
7148 const FLOAT_COMPLEX *T,
7149 const INTEGER *LDT,
7150 FLOAT_COMPLEX *C,
7151 const INTEGER *LDC,
7152 FLOAT_COMPLEX *WORK,
7153 const INTEGER *LDWORK)
7154 {
7155 DEBUG_LAPACK_STUB("clarzb");
7156 LAPACK_IMPL(clarzb)(SIDE,
7157 TRANS,
7158 DIRECT,
7159 STOREV,
7160 M,
7161 N,
7162 K,
7163 L,
7164 V,
7165 LDV,
7166 T,
7167 LDT,
7168 C,
7169 LDC,
7170 WORK,
7171 LDWORK);
7172 }
7173
7174 //-- clarzt --------------------------------------------------------------------
7175 void
LAPACK_DECL(clarzt)7176 LAPACK_DECL(clarzt)(const char *DIRECT,
7177 const char *STOREV,
7178 const INTEGER *N,
7179 const INTEGER *K,
7180 FLOAT_COMPLEX *V,
7181 const INTEGER *LDV,
7182 const FLOAT_COMPLEX *TAU,
7183 FLOAT_COMPLEX *T,
7184 const INTEGER *LDT)
7185 {
7186 DEBUG_LAPACK_STUB("clarzt");
7187 LAPACK_IMPL(clarzt)(DIRECT,
7188 STOREV,
7189 N,
7190 K,
7191 V,
7192 LDV,
7193 TAU,
7194 T,
7195 LDT);
7196 }
7197
7198 //-- clascl --------------------------------------------------------------------
7199 void
LAPACK_DECL(clascl)7200 LAPACK_DECL(clascl)(const char *TYPE,
7201 const INTEGER *KL,
7202 const INTEGER *KU,
7203 const FLOAT *CFROM,
7204 const FLOAT *CTO,
7205 const INTEGER *M,
7206 const INTEGER *N,
7207 FLOAT_COMPLEX *A,
7208 const INTEGER *LDA,
7209 INTEGER *INFO)
7210 {
7211 DEBUG_LAPACK_STUB("clascl");
7212 LAPACK_IMPL(clascl)(TYPE,
7213 KL,
7214 KU,
7215 CFROM,
7216 CTO,
7217 M,
7218 N,
7219 A,
7220 LDA,
7221 INFO);
7222 }
7223
7224 //-- clascl2 -------------------------------------------------------------------
7225 void
LAPACK_DECL(clascl2)7226 LAPACK_DECL(clascl2)(const INTEGER *M,
7227 const INTEGER *N,
7228 const FLOAT *D,
7229 FLOAT_COMPLEX *X,
7230 const INTEGER *LDX)
7231 {
7232 DEBUG_LAPACK_STUB("clascl2");
7233 LAPACK_IMPL(clascl2)(M,
7234 N,
7235 D,
7236 X,
7237 LDX);
7238 }
7239
7240 //-- claset --------------------------------------------------------------------
7241 void
LAPACK_DECL(claset)7242 LAPACK_DECL(claset)(const char *UPLO,
7243 const INTEGER *M,
7244 const INTEGER *N,
7245 const FLOAT_COMPLEX *ALPHA,
7246 const FLOAT_COMPLEX *BETA,
7247 FLOAT_COMPLEX *A,
7248 const INTEGER *LDA)
7249 {
7250 DEBUG_LAPACK_STUB("claset");
7251 LAPACK_IMPL(claset)(UPLO,
7252 M,
7253 N,
7254 ALPHA,
7255 BETA,
7256 A,
7257 LDA);
7258 }
7259
7260 //-- clasr ---------------------------------------------------------------------
7261 void
LAPACK_DECL(clasr)7262 LAPACK_DECL(clasr)(const char *SIDE,
7263 const char *PIVOT,
7264 const char *DIRECT,
7265 const INTEGER *M,
7266 const INTEGER *N,
7267 const FLOAT *C,
7268 const FLOAT *S,
7269 FLOAT_COMPLEX *A,
7270 const INTEGER *LDA)
7271 {
7272 DEBUG_LAPACK_STUB("clasr");
7273 LAPACK_IMPL(clasr)(SIDE,
7274 PIVOT,
7275 DIRECT,
7276 M,
7277 N,
7278 C,
7279 S,
7280 A,
7281 LDA);
7282 }
7283
7284 //-- classq --------------------------------------------------------------------
7285 void
LAPACK_DECL(classq)7286 LAPACK_DECL(classq)(const INTEGER *N,
7287 const FLOAT_COMPLEX *X,
7288 const INTEGER *INCX,
7289 FLOAT *SCALE,
7290 FLOAT *SUMSQ)
7291 {
7292 DEBUG_LAPACK_STUB("classq");
7293 LAPACK_IMPL(classq)(N,
7294 X,
7295 INCX,
7296 SCALE,
7297 SUMSQ);
7298 }
7299
7300 //-- claswp --------------------------------------------------------------------
7301 void
LAPACK_DECL(claswp)7302 LAPACK_DECL(claswp)(const INTEGER *N,
7303 FLOAT_COMPLEX *A,
7304 const INTEGER *LDA,
7305 const INTEGER *K1,
7306 const INTEGER *K2,
7307 const INTEGER *IPIV,
7308 const INTEGER *INCX)
7309 {
7310 DEBUG_LAPACK_STUB("claswp");
7311 LAPACK_IMPL(claswp)(N,
7312 A,
7313 LDA,
7314 K1,
7315 K2,
7316 IPIV,
7317 INCX);
7318 }
7319
7320 //-- clasyf --------------------------------------------------------------------
7321 void
LAPACK_DECL(clasyf)7322 LAPACK_DECL(clasyf)(const char *UPLO,
7323 const INTEGER *N,
7324 const INTEGER *NB,
7325 INTEGER *KB,
7326 FLOAT_COMPLEX *A,
7327 const INTEGER *LDA,
7328 INTEGER *IPIV,
7329 FLOAT_COMPLEX *W,
7330 const INTEGER *LDW,
7331 INTEGER *INFO)
7332 {
7333 DEBUG_LAPACK_STUB("clasyf");
7334 LAPACK_IMPL(clasyf)(UPLO,
7335 N,
7336 NB,
7337 KB,
7338 A,
7339 LDA,
7340 IPIV,
7341 W,
7342 LDW,
7343 INFO);
7344 }
7345
7346 //-- clatbs --------------------------------------------------------------------
7347 void
LAPACK_DECL(clatbs)7348 LAPACK_DECL(clatbs)(const char *UPLO,
7349 const char *TRANS,
7350 const char *DIAG,
7351 const char *NORMIN,
7352 const INTEGER *N,
7353 const INTEGER *KD,
7354 const FLOAT_COMPLEX *AB,
7355 const INTEGER *LDAB,
7356 FLOAT_COMPLEX *X,
7357 FLOAT *SCALE,
7358 FLOAT *CNORM,
7359 INTEGER *INFO)
7360 {
7361 DEBUG_LAPACK_STUB("clatbs");
7362 LAPACK_IMPL(clatbs)(UPLO,
7363 TRANS,
7364 DIAG,
7365 NORMIN,
7366 N,
7367 KD,
7368 AB,
7369 LDAB,
7370 X,
7371 SCALE,
7372 CNORM,
7373 INFO);
7374 }
7375
7376 //-- clatdf --------------------------------------------------------------------
7377 void
LAPACK_DECL(clatdf)7378 LAPACK_DECL(clatdf)(const INTEGER *IJOB,
7379 const INTEGER *N,
7380 const FLOAT_COMPLEX *Z,
7381 const INTEGER *LDZ,
7382 FLOAT_COMPLEX *RHS,
7383 FLOAT *RDSUM,
7384 FLOAT *RDSCAL,
7385 const INTEGER *IPIV,
7386 const INTEGER *JPIV)
7387 {
7388 DEBUG_LAPACK_STUB("clatdf");
7389 LAPACK_IMPL(clatdf)(IJOB,
7390 N,
7391 Z,
7392 LDZ,
7393 RHS,
7394 RDSUM,
7395 RDSCAL,
7396 IPIV,
7397 JPIV);
7398 }
7399
7400 //-- clatps --------------------------------------------------------------------
7401 void
LAPACK_DECL(clatps)7402 LAPACK_DECL(clatps)(const char *UPLO,
7403 const char *TRANS,
7404 const char *DIAG,
7405 const char *NORMIN,
7406 const INTEGER *N,
7407 const FLOAT_COMPLEX *AP,
7408 FLOAT_COMPLEX *X,
7409 FLOAT *SCALE,
7410 FLOAT *CNORM,
7411 INTEGER *INFO)
7412 {
7413 DEBUG_LAPACK_STUB("clatps");
7414 LAPACK_IMPL(clatps)(UPLO,
7415 TRANS,
7416 DIAG,
7417 NORMIN,
7418 N,
7419 AP,
7420 X,
7421 SCALE,
7422 CNORM,
7423 INFO);
7424 }
7425
7426 //-- clatrd --------------------------------------------------------------------
7427 void
LAPACK_DECL(clatrd)7428 LAPACK_DECL(clatrd)(const char *UPLO,
7429 const INTEGER *N,
7430 const INTEGER *NB,
7431 FLOAT_COMPLEX *A,
7432 const INTEGER *LDA,
7433 FLOAT *E,
7434 FLOAT_COMPLEX *TAU,
7435 FLOAT_COMPLEX *W,
7436 const INTEGER *LDW)
7437 {
7438 DEBUG_LAPACK_STUB("clatrd");
7439 LAPACK_IMPL(clatrd)(UPLO,
7440 N,
7441 NB,
7442 A,
7443 LDA,
7444 E,
7445 TAU,
7446 W,
7447 LDW);
7448 }
7449
7450 //-- clatrs --------------------------------------------------------------------
7451 void
LAPACK_DECL(clatrs)7452 LAPACK_DECL(clatrs)(const char *UPLO,
7453 const char *TRANS,
7454 const char *DIAG,
7455 const char *NORMIN,
7456 const INTEGER *N,
7457 const FLOAT_COMPLEX *A,
7458 const INTEGER *LDA,
7459 FLOAT_COMPLEX *X,
7460 FLOAT *SCALE,
7461 FLOAT *CNORM,
7462 INTEGER *INFO)
7463 {
7464 DEBUG_LAPACK_STUB("clatrs");
7465 LAPACK_IMPL(clatrs)(UPLO,
7466 TRANS,
7467 DIAG,
7468 NORMIN,
7469 N,
7470 A,
7471 LDA,
7472 X,
7473 SCALE,
7474 CNORM,
7475 INFO);
7476 }
7477
7478 //-- clatrz --------------------------------------------------------------------
7479 void
LAPACK_DECL(clatrz)7480 LAPACK_DECL(clatrz)(const INTEGER *M,
7481 const INTEGER *N,
7482 const INTEGER *L,
7483 FLOAT_COMPLEX *A,
7484 const INTEGER *LDA,
7485 FLOAT_COMPLEX *TAU,
7486 FLOAT_COMPLEX *WORK)
7487 {
7488 DEBUG_LAPACK_STUB("clatrz");
7489 LAPACK_IMPL(clatrz)(M,
7490 N,
7491 L,
7492 A,
7493 LDA,
7494 TAU,
7495 WORK);
7496 }
7497
7498 //-- clatzm --------------------------------------------------------------------
7499 void
LAPACK_DECL(clatzm)7500 LAPACK_DECL(clatzm)(const char *SIDE,
7501 const INTEGER *M,
7502 const INTEGER *N,
7503 const FLOAT_COMPLEX *V,
7504 const INTEGER *INCV,
7505 const FLOAT_COMPLEX *TAU,
7506 FLOAT_COMPLEX *C1,
7507 FLOAT_COMPLEX *C2,
7508 const INTEGER *LDC,
7509 FLOAT_COMPLEX *WORK)
7510 {
7511 DEBUG_LAPACK_STUB("clatzm");
7512 LAPACK_IMPL(clatzm)(SIDE,
7513 M,
7514 N,
7515 V,
7516 INCV,
7517 TAU,
7518 C1,
7519 C2,
7520 LDC,
7521 WORK);
7522 }
7523
7524 //-- clauu2 --------------------------------------------------------------------
7525 void
LAPACK_DECL(clauu2)7526 LAPACK_DECL(clauu2)(const char *UPLO,
7527 const INTEGER *N,
7528 FLOAT_COMPLEX *A,
7529 const INTEGER *LDA,
7530 INTEGER *INFO)
7531 {
7532 DEBUG_LAPACK_STUB("clauu2");
7533 LAPACK_IMPL(clauu2)(UPLO,
7534 N,
7535 A,
7536 LDA,
7537 INFO);
7538 }
7539
7540 //-- clauum --------------------------------------------------------------------
7541 void
LAPACK_DECL(clauum)7542 LAPACK_DECL(clauum)(const char *UPLO,
7543 const INTEGER *N,
7544 FLOAT_COMPLEX *A,
7545 const INTEGER *LDA,
7546 INTEGER *INFO)
7547 {
7548 DEBUG_LAPACK_STUB("clauum");
7549 LAPACK_IMPL(clauum)(UPLO,
7550 N,
7551 A,
7552 LDA,
7553 INFO);
7554 }
7555
7556 //-- cpbcon --------------------------------------------------------------------
7557 void
LAPACK_DECL(cpbcon)7558 LAPACK_DECL(cpbcon)(const char *UPLO,
7559 const INTEGER *N,
7560 const INTEGER *KD,
7561 const FLOAT_COMPLEX *AB,
7562 const INTEGER *LDAB,
7563 const FLOAT *ANORM,
7564 FLOAT *RCOND,
7565 FLOAT_COMPLEX *WORK,
7566 FLOAT *RWORK,
7567 INTEGER *INFO)
7568 {
7569 DEBUG_LAPACK_STUB("cpbcon");
7570 LAPACK_IMPL(cpbcon)(UPLO,
7571 N,
7572 KD,
7573 AB,
7574 LDAB,
7575 ANORM,
7576 RCOND,
7577 WORK,
7578 RWORK,
7579 INFO);
7580 }
7581
7582 //-- cpbequ --------------------------------------------------------------------
7583 void
LAPACK_DECL(cpbequ)7584 LAPACK_DECL(cpbequ)(const char *UPLO,
7585 const INTEGER *N,
7586 const INTEGER *KD,
7587 const FLOAT_COMPLEX *AB,
7588 const INTEGER *LDAB,
7589 FLOAT *S,
7590 FLOAT *SCOND,
7591 FLOAT *AMAX,
7592 INTEGER *INFO)
7593 {
7594 DEBUG_LAPACK_STUB("cpbequ");
7595 LAPACK_IMPL(cpbequ)(UPLO,
7596 N,
7597 KD,
7598 AB,
7599 LDAB,
7600 S,
7601 SCOND,
7602 AMAX,
7603 INFO);
7604 }
7605
7606 //-- cpbrfs --------------------------------------------------------------------
7607 void
LAPACK_DECL(cpbrfs)7608 LAPACK_DECL(cpbrfs)(const char *UPLO,
7609 const INTEGER *N,
7610 const INTEGER *KD,
7611 const INTEGER *NRHS,
7612 const FLOAT_COMPLEX *AB,
7613 const INTEGER *LDAB,
7614 const FLOAT_COMPLEX *AFB,
7615 const INTEGER *LDAFB,
7616 const FLOAT_COMPLEX *B,
7617 const INTEGER *LDB,
7618 FLOAT_COMPLEX *X,
7619 const INTEGER *LDX,
7620 FLOAT *FERR,
7621 FLOAT *BERR,
7622 FLOAT_COMPLEX *WORK,
7623 FLOAT *RWORK,
7624 INTEGER *INFO)
7625 {
7626 DEBUG_LAPACK_STUB("cpbrfs");
7627 LAPACK_IMPL(cpbrfs)(UPLO,
7628 N,
7629 KD,
7630 NRHS,
7631 AB,
7632 LDAB,
7633 AFB,
7634 LDAFB,
7635 B,
7636 LDB,
7637 X,
7638 LDX,
7639 FERR,
7640 BERR,
7641 WORK,
7642 RWORK,
7643 INFO);
7644 }
7645
7646 //-- cpbstf --------------------------------------------------------------------
7647 void
LAPACK_DECL(cpbstf)7648 LAPACK_DECL(cpbstf)(const char *UPLO,
7649 const INTEGER *N,
7650 const INTEGER *KD,
7651 FLOAT_COMPLEX *AB,
7652 const INTEGER *LDAB,
7653 INTEGER *INFO)
7654 {
7655 DEBUG_LAPACK_STUB("cpbstf");
7656 LAPACK_IMPL(cpbstf)(UPLO,
7657 N,
7658 KD,
7659 AB,
7660 LDAB,
7661 INFO);
7662 }
7663
7664 //-- cpbsv ---------------------------------------------------------------------
7665 void
LAPACK_DECL(cpbsv)7666 LAPACK_DECL(cpbsv)(const char *UPLO,
7667 const INTEGER *N,
7668 const INTEGER *KD,
7669 const INTEGER *NRHS,
7670 FLOAT_COMPLEX *AB,
7671 const INTEGER *LDAB,
7672 FLOAT_COMPLEX *B,
7673 const INTEGER *LDB,
7674 INTEGER *INFO)
7675 {
7676 DEBUG_LAPACK_STUB("cpbsv");
7677 LAPACK_IMPL(cpbsv)(UPLO,
7678 N,
7679 KD,
7680 NRHS,
7681 AB,
7682 LDAB,
7683 B,
7684 LDB,
7685 INFO);
7686 }
7687
7688 //-- cpbsvx --------------------------------------------------------------------
7689 void
LAPACK_DECL(cpbsvx)7690 LAPACK_DECL(cpbsvx)(const char *FACT,
7691 const char *UPLO,
7692 const INTEGER *N,
7693 const INTEGER *KD,
7694 const INTEGER *NRHS,
7695 FLOAT_COMPLEX *AB,
7696 const INTEGER *LDAB,
7697 FLOAT_COMPLEX *AFB,
7698 const INTEGER *LDAFB,
7699 char *EQUED,
7700 FLOAT *S,
7701 FLOAT_COMPLEX *B,
7702 const INTEGER *LDB,
7703 FLOAT_COMPLEX *X,
7704 const INTEGER *LDX,
7705 FLOAT *RCOND,
7706 FLOAT *FERR,
7707 FLOAT *BERR,
7708 FLOAT_COMPLEX *WORK,
7709 FLOAT *RWORK,
7710 INTEGER *INFO)
7711 {
7712 DEBUG_LAPACK_STUB("cpbsvx");
7713 LAPACK_IMPL(cpbsvx)(FACT,
7714 UPLO,
7715 N,
7716 KD,
7717 NRHS,
7718 AB,
7719 LDAB,
7720 AFB,
7721 LDAFB,
7722 EQUED,
7723 S,
7724 B,
7725 LDB,
7726 X,
7727 LDX,
7728 RCOND,
7729 FERR,
7730 BERR,
7731 WORK,
7732 RWORK,
7733 INFO);
7734 }
7735
7736 //-- cpbtf2 --------------------------------------------------------------------
7737 void
LAPACK_DECL(cpbtf2)7738 LAPACK_DECL(cpbtf2)(const char *UPLO,
7739 const INTEGER *N,
7740 const INTEGER *KD,
7741 FLOAT_COMPLEX *AB,
7742 const INTEGER *LDAB,
7743 INTEGER *INFO)
7744 {
7745 DEBUG_LAPACK_STUB("cpbtf2");
7746 LAPACK_IMPL(cpbtf2)(UPLO,
7747 N,
7748 KD,
7749 AB,
7750 LDAB,
7751 INFO);
7752 }
7753
7754 //-- cpbtrf --------------------------------------------------------------------
7755 void
LAPACK_DECL(cpbtrf)7756 LAPACK_DECL(cpbtrf)(const char *UPLO,
7757 const INTEGER *N,
7758 const INTEGER *KD,
7759 FLOAT_COMPLEX *AB,
7760 const INTEGER *LDAB,
7761 INTEGER *INFO)
7762 {
7763 DEBUG_LAPACK_STUB("cpbtrf");
7764 LAPACK_IMPL(cpbtrf)(UPLO,
7765 N,
7766 KD,
7767 AB,
7768 LDAB,
7769 INFO);
7770 }
7771
7772 //-- cpbtrs --------------------------------------------------------------------
7773 void
LAPACK_DECL(cpbtrs)7774 LAPACK_DECL(cpbtrs)(const char *UPLO,
7775 const INTEGER *N,
7776 const INTEGER *KD,
7777 const INTEGER *NRHS,
7778 const FLOAT_COMPLEX *AB,
7779 const INTEGER *LDAB,
7780 FLOAT_COMPLEX *B,
7781 const INTEGER *LDB,
7782 INTEGER *INFO)
7783 {
7784 DEBUG_LAPACK_STUB("cpbtrs");
7785 LAPACK_IMPL(cpbtrs)(UPLO,
7786 N,
7787 KD,
7788 NRHS,
7789 AB,
7790 LDAB,
7791 B,
7792 LDB,
7793 INFO);
7794 }
7795
7796 //-- cpftrf --------------------------------------------------------------------
7797 void
LAPACK_DECL(cpftrf)7798 LAPACK_DECL(cpftrf)(const char *TRANSR,
7799 const char *UPLO,
7800 const INTEGER *N,
7801 FLOAT_COMPLEX *A,
7802 INTEGER *INFO)
7803 {
7804 DEBUG_LAPACK_STUB("cpftrf");
7805 LAPACK_IMPL(cpftrf)(TRANSR,
7806 UPLO,
7807 N,
7808 A,
7809 INFO);
7810 }
7811
7812 //-- cpftri --------------------------------------------------------------------
7813 void
LAPACK_DECL(cpftri)7814 LAPACK_DECL(cpftri)(const char *TRANSR,
7815 const char *UPLO,
7816 const INTEGER *N,
7817 FLOAT_COMPLEX *A,
7818 INTEGER *INFO)
7819 {
7820 DEBUG_LAPACK_STUB("cpftri");
7821 LAPACK_IMPL(cpftri)(TRANSR,
7822 UPLO,
7823 N,
7824 A,
7825 INFO);
7826 }
7827
7828 //-- cpftrs --------------------------------------------------------------------
7829 void
LAPACK_DECL(cpftrs)7830 LAPACK_DECL(cpftrs)(const char *TRANSR,
7831 const char *UPLO,
7832 const INTEGER *N,
7833 const INTEGER *NRHS,
7834 const FLOAT_COMPLEX *A,
7835 FLOAT_COMPLEX *B,
7836 const INTEGER *LDB,
7837 INTEGER *INFO)
7838 {
7839 DEBUG_LAPACK_STUB("cpftrs");
7840 LAPACK_IMPL(cpftrs)(TRANSR,
7841 UPLO,
7842 N,
7843 NRHS,
7844 A,
7845 B,
7846 LDB,
7847 INFO);
7848 }
7849
7850 //-- cpocon --------------------------------------------------------------------
7851 void
LAPACK_DECL(cpocon)7852 LAPACK_DECL(cpocon)(const char *UPLO,
7853 const INTEGER *N,
7854 const FLOAT_COMPLEX *A,
7855 const INTEGER *LDA,
7856 const FLOAT *ANORM,
7857 FLOAT *RCOND,
7858 FLOAT_COMPLEX *WORK,
7859 FLOAT *RWORK,
7860 INTEGER *INFO)
7861 {
7862 DEBUG_LAPACK_STUB("cpocon");
7863 LAPACK_IMPL(cpocon)(UPLO,
7864 N,
7865 A,
7866 LDA,
7867 ANORM,
7868 RCOND,
7869 WORK,
7870 RWORK,
7871 INFO);
7872 }
7873
7874 //-- cpoequ --------------------------------------------------------------------
7875 void
LAPACK_DECL(cpoequ)7876 LAPACK_DECL(cpoequ)(const INTEGER *N,
7877 const FLOAT_COMPLEX *A,
7878 const INTEGER *LDA,
7879 FLOAT *S,
7880 FLOAT *SCOND,
7881 FLOAT *AMAX,
7882 INTEGER *INFO)
7883 {
7884 DEBUG_LAPACK_STUB("cpoequ");
7885 LAPACK_IMPL(cpoequ)(N,
7886 A,
7887 LDA,
7888 S,
7889 SCOND,
7890 AMAX,
7891 INFO);
7892 }
7893
7894 //-- cpoequb -------------------------------------------------------------------
7895 void
LAPACK_DECL(cpoequb)7896 LAPACK_DECL(cpoequb)(const INTEGER *N,
7897 const FLOAT_COMPLEX *A,
7898 const INTEGER *LDA,
7899 FLOAT *S,
7900 FLOAT *SCOND,
7901 FLOAT *AMAX,
7902 INTEGER *INFO)
7903 {
7904 DEBUG_LAPACK_STUB("cpoequb");
7905 LAPACK_IMPL(cpoequb)(N,
7906 A,
7907 LDA,
7908 S,
7909 SCOND,
7910 AMAX,
7911 INFO);
7912 }
7913
7914 //-- cporfs --------------------------------------------------------------------
7915 void
LAPACK_DECL(cporfs)7916 LAPACK_DECL(cporfs)(const char *UPLO,
7917 const INTEGER *N,
7918 const INTEGER *NRHS,
7919 const FLOAT_COMPLEX *A,
7920 const INTEGER *LDA,
7921 const FLOAT_COMPLEX *AF,
7922 const INTEGER *LDAF,
7923 const FLOAT_COMPLEX *B,
7924 const INTEGER *LDB,
7925 FLOAT_COMPLEX *X,
7926 const INTEGER *LDX,
7927 FLOAT *FERR,
7928 FLOAT *BERR,
7929 FLOAT_COMPLEX *WORK,
7930 FLOAT *RWORK,
7931 INTEGER *INFO)
7932 {
7933 DEBUG_LAPACK_STUB("cporfs");
7934 LAPACK_IMPL(cporfs)(UPLO,
7935 N,
7936 NRHS,
7937 A,
7938 LDA,
7939 AF,
7940 LDAF,
7941 B,
7942 LDB,
7943 X,
7944 LDX,
7945 FERR,
7946 BERR,
7947 WORK,
7948 RWORK,
7949 INFO);
7950 }
7951
7952 //-- cporfsx -------------------------------------------------------------------
7953 void
LAPACK_DECL(cporfsx)7954 LAPACK_DECL(cporfsx)(const char *UPLO,
7955 const char *EQUED,
7956 const INTEGER *N,
7957 const INTEGER *NRHS,
7958 const FLOAT_COMPLEX *A,
7959 const INTEGER *LDA,
7960 const FLOAT_COMPLEX *AF,
7961 const INTEGER *LDAF,
7962 FLOAT *S,
7963 const FLOAT_COMPLEX *B,
7964 const INTEGER *LDB,
7965 FLOAT_COMPLEX *X,
7966 const INTEGER *LDX,
7967 FLOAT *RCOND,
7968 FLOAT *BERR,
7969 const INTEGER *N_ERR_BNDS,
7970 FLOAT *ERR_BNDS_NORM,
7971 FLOAT *ERR_BNDS_COMP,
7972 const INTEGER *NPARAMS,
7973 FLOAT *PARAMS,
7974 FLOAT_COMPLEX *WORK,
7975 FLOAT *RWORK,
7976 INTEGER *INFO)
7977 {
7978 DEBUG_LAPACK_STUB("cporfsx");
7979 LAPACK_IMPL(cporfsx)(UPLO,
7980 EQUED,
7981 N,
7982 NRHS,
7983 A,
7984 LDA,
7985 AF,
7986 LDAF,
7987 S,
7988 B,
7989 LDB,
7990 X,
7991 LDX,
7992 RCOND,
7993 BERR,
7994 N_ERR_BNDS,
7995 ERR_BNDS_NORM,
7996 ERR_BNDS_COMP,
7997 NPARAMS,
7998 PARAMS,
7999 WORK,
8000 RWORK,
8001 INFO);
8002 }
8003
8004 //-- cposv ---------------------------------------------------------------------
8005 void
LAPACK_DECL(cposv)8006 LAPACK_DECL(cposv)(const char *UPLO,
8007 const INTEGER *N,
8008 const INTEGER *NRHS,
8009 FLOAT_COMPLEX *A,
8010 const INTEGER *LDA,
8011 FLOAT_COMPLEX *B,
8012 const INTEGER *LDB,
8013 INTEGER *INFO)
8014 {
8015 DEBUG_LAPACK_STUB("cposv");
8016 LAPACK_IMPL(cposv)(UPLO,
8017 N,
8018 NRHS,
8019 A,
8020 LDA,
8021 B,
8022 LDB,
8023 INFO);
8024 }
8025
8026 //-- cposvx --------------------------------------------------------------------
8027 void
LAPACK_DECL(cposvx)8028 LAPACK_DECL(cposvx)(const char *FACT,
8029 const char *UPLO,
8030 const INTEGER *N,
8031 const INTEGER *NRHS,
8032 FLOAT_COMPLEX *A,
8033 const INTEGER *LDA,
8034 FLOAT_COMPLEX *AF,
8035 const INTEGER *LDAF,
8036 char *EQUED,
8037 FLOAT *S,
8038 FLOAT_COMPLEX *B,
8039 const INTEGER *LDB,
8040 FLOAT_COMPLEX *X,
8041 const INTEGER *LDX,
8042 FLOAT *RCOND,
8043 FLOAT *FERR,
8044 FLOAT *BERR,
8045 FLOAT_COMPLEX *WORK,
8046 FLOAT *RWORK,
8047 INTEGER *INFO)
8048 {
8049 DEBUG_LAPACK_STUB("cposvx");
8050 LAPACK_IMPL(cposvx)(FACT,
8051 UPLO,
8052 N,
8053 NRHS,
8054 A,
8055 LDA,
8056 AF,
8057 LDAF,
8058 EQUED,
8059 S,
8060 B,
8061 LDB,
8062 X,
8063 LDX,
8064 RCOND,
8065 FERR,
8066 BERR,
8067 WORK,
8068 RWORK,
8069 INFO);
8070 }
8071
8072 //-- cposvxx -------------------------------------------------------------------
8073 void
LAPACK_DECL(cposvxx)8074 LAPACK_DECL(cposvxx)(const char *FACT,
8075 const char *UPLO,
8076 const INTEGER *N,
8077 const INTEGER *NRHS,
8078 FLOAT_COMPLEX *A,
8079 const INTEGER *LDA,
8080 FLOAT_COMPLEX *AF,
8081 const INTEGER *LDAF,
8082 char *EQUED,
8083 FLOAT *S,
8084 FLOAT_COMPLEX *B,
8085 const INTEGER *LDB,
8086 FLOAT_COMPLEX *X,
8087 const INTEGER *LDX,
8088 FLOAT *RCOND,
8089 FLOAT *RPVGRW,
8090 FLOAT *BERR,
8091 const INTEGER *N_ERR_BNDS,
8092 FLOAT *ERR_BNDS_NORM,
8093 FLOAT *ERR_BNDS_COMP,
8094 const INTEGER *NPARAMS,
8095 FLOAT *PARAMS,
8096 FLOAT_COMPLEX *WORK,
8097 FLOAT *RWORK,
8098 INTEGER *INFO)
8099 {
8100 DEBUG_LAPACK_STUB("cposvxx");
8101 LAPACK_IMPL(cposvxx)(FACT,
8102 UPLO,
8103 N,
8104 NRHS,
8105 A,
8106 LDA,
8107 AF,
8108 LDAF,
8109 EQUED,
8110 S,
8111 B,
8112 LDB,
8113 X,
8114 LDX,
8115 RCOND,
8116 RPVGRW,
8117 BERR,
8118 N_ERR_BNDS,
8119 ERR_BNDS_NORM,
8120 ERR_BNDS_COMP,
8121 NPARAMS,
8122 PARAMS,
8123 WORK,
8124 RWORK,
8125 INFO);
8126 }
8127
8128 //-- cpotf2 --------------------------------------------------------------------
8129 void
LAPACK_DECL(cpotf2)8130 LAPACK_DECL(cpotf2)(const char *UPLO,
8131 const INTEGER *N,
8132 FLOAT_COMPLEX *A,
8133 const INTEGER *LDA,
8134 INTEGER *INFO)
8135 {
8136 DEBUG_LAPACK_STUB("cpotf2");
8137 LAPACK_IMPL(cpotf2)(UPLO,
8138 N,
8139 A,
8140 LDA,
8141 INFO);
8142 }
8143
8144 //-- cpotrf --------------------------------------------------------------------
8145 void
LAPACK_DECL(cpotrf)8146 LAPACK_DECL(cpotrf)(const char *UPLO,
8147 const INTEGER *N,
8148 FLOAT_COMPLEX *A,
8149 const INTEGER *LDA,
8150 INTEGER *INFO)
8151 {
8152 DEBUG_LAPACK_STUB("cpotrf");
8153 LAPACK_IMPL(cpotrf)(UPLO,
8154 N,
8155 A,
8156 LDA,
8157 INFO);
8158 }
8159
8160 //-- cpotri --------------------------------------------------------------------
8161 void
LAPACK_DECL(cpotri)8162 LAPACK_DECL(cpotri)(const char *UPLO,
8163 const INTEGER *N,
8164 FLOAT_COMPLEX *A,
8165 const INTEGER *LDA,
8166 INTEGER *INFO)
8167 {
8168 DEBUG_LAPACK_STUB("cpotri");
8169 LAPACK_IMPL(cpotri)(UPLO,
8170 N,
8171 A,
8172 LDA,
8173 INFO);
8174 }
8175
8176 //-- cpotrs --------------------------------------------------------------------
8177 void
LAPACK_DECL(cpotrs)8178 LAPACK_DECL(cpotrs)(const char *UPLO,
8179 const INTEGER *N,
8180 const INTEGER *NRHS,
8181 const FLOAT_COMPLEX *A,
8182 const INTEGER *LDA,
8183 FLOAT_COMPLEX *B,
8184 const INTEGER *LDB,
8185 INTEGER *INFO)
8186 {
8187 DEBUG_LAPACK_STUB("cpotrs");
8188 LAPACK_IMPL(cpotrs)(UPLO,
8189 N,
8190 NRHS,
8191 A,
8192 LDA,
8193 B,
8194 LDB,
8195 INFO);
8196 }
8197
8198 //-- cppcon --------------------------------------------------------------------
8199 void
LAPACK_DECL(cppcon)8200 LAPACK_DECL(cppcon)(const char *UPLO,
8201 const INTEGER *N,
8202 const FLOAT_COMPLEX *AP,
8203 const FLOAT *ANORM,
8204 FLOAT *RCOND,
8205 FLOAT_COMPLEX *WORK,
8206 FLOAT *RWORK,
8207 INTEGER *INFO)
8208 {
8209 DEBUG_LAPACK_STUB("cppcon");
8210 LAPACK_IMPL(cppcon)(UPLO,
8211 N,
8212 AP,
8213 ANORM,
8214 RCOND,
8215 WORK,
8216 RWORK,
8217 INFO);
8218 }
8219
8220 //-- cppequ --------------------------------------------------------------------
8221 void
LAPACK_DECL(cppequ)8222 LAPACK_DECL(cppequ)(const char *UPLO,
8223 const INTEGER *N,
8224 const FLOAT_COMPLEX *AP,
8225 FLOAT *S,
8226 FLOAT *SCOND,
8227 FLOAT *AMAX,
8228 INTEGER *INFO)
8229 {
8230 DEBUG_LAPACK_STUB("cppequ");
8231 LAPACK_IMPL(cppequ)(UPLO,
8232 N,
8233 AP,
8234 S,
8235 SCOND,
8236 AMAX,
8237 INFO);
8238 }
8239
8240 //-- cpprfs --------------------------------------------------------------------
8241 void
LAPACK_DECL(cpprfs)8242 LAPACK_DECL(cpprfs)(const char *UPLO,
8243 const INTEGER *N,
8244 const INTEGER *NRHS,
8245 const FLOAT_COMPLEX *AP,
8246 const FLOAT_COMPLEX *AFP,
8247 const FLOAT_COMPLEX *B,
8248 const INTEGER *LDB,
8249 FLOAT_COMPLEX *X,
8250 const INTEGER *LDX,
8251 FLOAT *FERR,
8252 FLOAT *BERR,
8253 FLOAT_COMPLEX *WORK,
8254 FLOAT *RWORK,
8255 INTEGER *INFO)
8256 {
8257 DEBUG_LAPACK_STUB("cpprfs");
8258 LAPACK_IMPL(cpprfs)(UPLO,
8259 N,
8260 NRHS,
8261 AP,
8262 AFP,
8263 B,
8264 LDB,
8265 X,
8266 LDX,
8267 FERR,
8268 BERR,
8269 WORK,
8270 RWORK,
8271 INFO);
8272 }
8273
8274 //-- cppsv ---------------------------------------------------------------------
8275 void
LAPACK_DECL(cppsv)8276 LAPACK_DECL(cppsv)(const char *UPLO,
8277 const INTEGER *N,
8278 const INTEGER *NRHS,
8279 FLOAT_COMPLEX *AP,
8280 FLOAT_COMPLEX *B,
8281 const INTEGER *LDB,
8282 INTEGER *INFO)
8283 {
8284 DEBUG_LAPACK_STUB("cppsv");
8285 LAPACK_IMPL(cppsv)(UPLO,
8286 N,
8287 NRHS,
8288 AP,
8289 B,
8290 LDB,
8291 INFO);
8292 }
8293
8294 //-- cppsvx --------------------------------------------------------------------
8295 void
LAPACK_DECL(cppsvx)8296 LAPACK_DECL(cppsvx)(const char *FACT,
8297 const char *UPLO,
8298 const INTEGER *N,
8299 const INTEGER *NRHS,
8300 FLOAT_COMPLEX *AP,
8301 FLOAT_COMPLEX *AFP,
8302 char *EQUED,
8303 FLOAT *S,
8304 FLOAT_COMPLEX *B,
8305 const INTEGER *LDB,
8306 FLOAT_COMPLEX *X,
8307 const INTEGER *LDX,
8308 FLOAT *RCOND,
8309 FLOAT *FERR,
8310 FLOAT *BERR,
8311 FLOAT_COMPLEX *WORK,
8312 FLOAT *RWORK,
8313 INTEGER *INFO)
8314 {
8315 DEBUG_LAPACK_STUB("cppsvx");
8316 LAPACK_IMPL(cppsvx)(FACT,
8317 UPLO,
8318 N,
8319 NRHS,
8320 AP,
8321 AFP,
8322 EQUED,
8323 S,
8324 B,
8325 LDB,
8326 X,
8327 LDX,
8328 RCOND,
8329 FERR,
8330 BERR,
8331 WORK,
8332 RWORK,
8333 INFO);
8334 }
8335
8336 //-- cpptrf --------------------------------------------------------------------
8337 void
LAPACK_DECL(cpptrf)8338 LAPACK_DECL(cpptrf)(const char *UPLO,
8339 const INTEGER *N,
8340 FLOAT_COMPLEX *AP,
8341 INTEGER *INFO)
8342 {
8343 DEBUG_LAPACK_STUB("cpptrf");
8344 LAPACK_IMPL(cpptrf)(UPLO,
8345 N,
8346 AP,
8347 INFO);
8348 }
8349
8350 //-- cpptri --------------------------------------------------------------------
8351 void
LAPACK_DECL(cpptri)8352 LAPACK_DECL(cpptri)(const char *UPLO,
8353 const INTEGER *N,
8354 FLOAT_COMPLEX *AP,
8355 INTEGER *INFO)
8356 {
8357 DEBUG_LAPACK_STUB("cpptri");
8358 LAPACK_IMPL(cpptri)(UPLO,
8359 N,
8360 AP,
8361 INFO);
8362 }
8363
8364 //-- cpptrs --------------------------------------------------------------------
8365 void
LAPACK_DECL(cpptrs)8366 LAPACK_DECL(cpptrs)(const char *UPLO,
8367 const INTEGER *N,
8368 const INTEGER *NRHS,
8369 const FLOAT_COMPLEX *AP,
8370 FLOAT_COMPLEX *B,
8371 const INTEGER *LDB,
8372 INTEGER *INFO)
8373 {
8374 DEBUG_LAPACK_STUB("cpptrs");
8375 LAPACK_IMPL(cpptrs)(UPLO,
8376 N,
8377 NRHS,
8378 AP,
8379 B,
8380 LDB,
8381 INFO);
8382 }
8383
8384 //-- cpstf2 --------------------------------------------------------------------
8385 void
LAPACK_DECL(cpstf2)8386 LAPACK_DECL(cpstf2)(const char *UPLO,
8387 const INTEGER *N,
8388 FLOAT_COMPLEX *A,
8389 const INTEGER *LDA,
8390 INTEGER *PIV,
8391 INTEGER *RANK,
8392 const FLOAT *TOL,
8393 FLOAT *WORK,
8394 INTEGER *INFO)
8395 {
8396 DEBUG_LAPACK_STUB("cpstf2");
8397 LAPACK_IMPL(cpstf2)(UPLO,
8398 N,
8399 A,
8400 LDA,
8401 PIV,
8402 RANK,
8403 TOL,
8404 WORK,
8405 INFO);
8406 }
8407
8408 //-- cpstrf --------------------------------------------------------------------
8409 void
LAPACK_DECL(cpstrf)8410 LAPACK_DECL(cpstrf)(const char *UPLO,
8411 const INTEGER *N,
8412 FLOAT_COMPLEX *A,
8413 const INTEGER *LDA,
8414 INTEGER *PIV,
8415 INTEGER *RANK,
8416 const FLOAT *TOL,
8417 FLOAT *WORK,
8418 INTEGER *INFO)
8419 {
8420 DEBUG_LAPACK_STUB("cpstrf");
8421 LAPACK_IMPL(cpstrf)(UPLO,
8422 N,
8423 A,
8424 LDA,
8425 PIV,
8426 RANK,
8427 TOL,
8428 WORK,
8429 INFO);
8430 }
8431
8432 //-- cptcon --------------------------------------------------------------------
8433 void
LAPACK_DECL(cptcon)8434 LAPACK_DECL(cptcon)(const INTEGER *N,
8435 const FLOAT *D,
8436 const FLOAT_COMPLEX *E,
8437 const FLOAT *ANORM,
8438 FLOAT *RCOND,
8439 FLOAT *RWORK,
8440 INTEGER *INFO)
8441 {
8442 DEBUG_LAPACK_STUB("cptcon");
8443 LAPACK_IMPL(cptcon)(N,
8444 D,
8445 E,
8446 ANORM,
8447 RCOND,
8448 RWORK,
8449 INFO);
8450 }
8451
8452 //-- cpteqr --------------------------------------------------------------------
8453 void
LAPACK_DECL(cpteqr)8454 LAPACK_DECL(cpteqr)(const char *COMPZ,
8455 const INTEGER *N,
8456 FLOAT *D,
8457 FLOAT *E,
8458 FLOAT_COMPLEX *Z,
8459 const INTEGER *LDZ,
8460 FLOAT *WORK,
8461 INTEGER *INFO)
8462 {
8463 DEBUG_LAPACK_STUB("cpteqr");
8464 LAPACK_IMPL(cpteqr)(COMPZ,
8465 N,
8466 D,
8467 E,
8468 Z,
8469 LDZ,
8470 WORK,
8471 INFO);
8472 }
8473
8474 //-- cptrfs --------------------------------------------------------------------
8475 void
LAPACK_DECL(cptrfs)8476 LAPACK_DECL(cptrfs)(const char *UPLO,
8477 const INTEGER *N,
8478 const INTEGER *NRHS,
8479 const FLOAT *D,
8480 const FLOAT_COMPLEX *E,
8481 const FLOAT *DF,
8482 const FLOAT_COMPLEX *EF,
8483 const FLOAT_COMPLEX *B,
8484 const INTEGER *LDB,
8485 FLOAT_COMPLEX *X,
8486 const INTEGER *LDX,
8487 FLOAT *FERR,
8488 FLOAT *BERR,
8489 FLOAT_COMPLEX *WORK,
8490 FLOAT *RWORK,
8491 INTEGER *INFO)
8492 {
8493 DEBUG_LAPACK_STUB("cptrfs");
8494 LAPACK_IMPL(cptrfs)(UPLO,
8495 N,
8496 NRHS,
8497 D,
8498 E,
8499 DF,
8500 EF,
8501 B,
8502 LDB,
8503 X,
8504 LDX,
8505 FERR,
8506 BERR,
8507 WORK,
8508 RWORK,
8509 INFO);
8510 }
8511
8512 //-- cptsv ---------------------------------------------------------------------
8513 void
LAPACK_DECL(cptsv)8514 LAPACK_DECL(cptsv)(const INTEGER *N,
8515 const INTEGER *NRHS,
8516 FLOAT *D,
8517 FLOAT_COMPLEX *E,
8518 FLOAT_COMPLEX *B,
8519 const INTEGER *LDB,
8520 INTEGER *INFO)
8521 {
8522 DEBUG_LAPACK_STUB("cptsv");
8523 LAPACK_IMPL(cptsv)(N,
8524 NRHS,
8525 D,
8526 E,
8527 B,
8528 LDB,
8529 INFO);
8530 }
8531
8532 //-- cptsvx --------------------------------------------------------------------
8533 void
LAPACK_DECL(cptsvx)8534 LAPACK_DECL(cptsvx)(const char *FACT,
8535 const INTEGER *N,
8536 const INTEGER *NRHS,
8537 const FLOAT *D,
8538 const FLOAT_COMPLEX *E,
8539 FLOAT *DF,
8540 FLOAT_COMPLEX *EF,
8541 const FLOAT_COMPLEX *B,
8542 const INTEGER *LDB,
8543 FLOAT_COMPLEX *X,
8544 const INTEGER *LDX,
8545 FLOAT *RCOND,
8546 FLOAT *FERR,
8547 FLOAT *BERR,
8548 FLOAT_COMPLEX *WORK,
8549 FLOAT *RWORK,
8550 INTEGER *INFO)
8551 {
8552 DEBUG_LAPACK_STUB("cptsvx");
8553 LAPACK_IMPL(cptsvx)(FACT,
8554 N,
8555 NRHS,
8556 D,
8557 E,
8558 DF,
8559 EF,
8560 B,
8561 LDB,
8562 X,
8563 LDX,
8564 RCOND,
8565 FERR,
8566 BERR,
8567 WORK,
8568 RWORK,
8569 INFO);
8570 }
8571
8572 //-- cpttrf --------------------------------------------------------------------
8573 void
LAPACK_DECL(cpttrf)8574 LAPACK_DECL(cpttrf)(const INTEGER *N,
8575 FLOAT *D,
8576 FLOAT_COMPLEX *E,
8577 INTEGER *INFO)
8578 {
8579 DEBUG_LAPACK_STUB("cpttrf");
8580 LAPACK_IMPL(cpttrf)(N,
8581 D,
8582 E,
8583 INFO);
8584 }
8585
8586 //-- cpttrs --------------------------------------------------------------------
8587 void
LAPACK_DECL(cpttrs)8588 LAPACK_DECL(cpttrs)(const char *UPLO,
8589 const INTEGER *N,
8590 const INTEGER *NRHS,
8591 const FLOAT *D,
8592 const FLOAT_COMPLEX *E,
8593 FLOAT_COMPLEX *B,
8594 const INTEGER *LDB,
8595 INTEGER *INFO)
8596 {
8597 DEBUG_LAPACK_STUB("cpttrs");
8598 LAPACK_IMPL(cpttrs)(UPLO,
8599 N,
8600 NRHS,
8601 D,
8602 E,
8603 B,
8604 LDB,
8605 INFO);
8606 }
8607
8608 //-- cptts2 --------------------------------------------------------------------
8609 void
LAPACK_DECL(cptts2)8610 LAPACK_DECL(cptts2)(const INTEGER *IUPLO,
8611 const INTEGER *N,
8612 const INTEGER *NRHS,
8613 const FLOAT *D,
8614 const FLOAT_COMPLEX *E,
8615 FLOAT_COMPLEX *B,
8616 const INTEGER *LDB)
8617 {
8618 DEBUG_LAPACK_STUB("cptts2");
8619 LAPACK_IMPL(cptts2)(IUPLO,
8620 N,
8621 NRHS,
8622 D,
8623 E,
8624 B,
8625 LDB);
8626 }
8627
8628 //-- crot ----------------------------------------------------------------------
8629 void
LAPACK_DECL(crot)8630 LAPACK_DECL(crot)(const INTEGER *N,
8631 FLOAT_COMPLEX *CX,
8632 const INTEGER *INCX,
8633 FLOAT_COMPLEX *CY,
8634 const INTEGER *INCY,
8635 const FLOAT *C,
8636 const FLOAT_COMPLEX *S)
8637 {
8638 DEBUG_LAPACK_STUB("crot");
8639 LAPACK_IMPL(crot)(N,
8640 CX,
8641 INCX,
8642 CY,
8643 INCY,
8644 C,
8645 S);
8646 }
8647
8648 //-- cspcon --------------------------------------------------------------------
8649 void
LAPACK_DECL(cspcon)8650 LAPACK_DECL(cspcon)(const char *UPLO,
8651 const INTEGER *N,
8652 const FLOAT_COMPLEX *AP,
8653 const INTEGER *IPIV,
8654 const FLOAT *ANORM,
8655 FLOAT *RCOND,
8656 FLOAT_COMPLEX *WORK,
8657 INTEGER *INFO)
8658 {
8659 DEBUG_LAPACK_STUB("cspcon");
8660 LAPACK_IMPL(cspcon)(UPLO,
8661 N,
8662 AP,
8663 IPIV,
8664 ANORM,
8665 RCOND,
8666 WORK,
8667 INFO);
8668 }
8669
8670 //-- cspmv ---------------------------------------------------------------------
8671 void
LAPACK_DECL(cspmv)8672 LAPACK_DECL(cspmv)(const char *UPLO,
8673 const INTEGER *N,
8674 const FLOAT_COMPLEX *ALPHA,
8675 const FLOAT_COMPLEX *AP,
8676 const FLOAT_COMPLEX *X,
8677 const INTEGER *INCX,
8678 const FLOAT_COMPLEX *BETA,
8679 FLOAT_COMPLEX *Y,
8680 const INTEGER *INCY)
8681 {
8682 DEBUG_LAPACK_STUB("cspmv");
8683 LAPACK_IMPL(cspmv)(UPLO,
8684 N,
8685 ALPHA,
8686 AP,
8687 X,
8688 INCX,
8689 BETA,
8690 Y,
8691 INCY);
8692 }
8693
8694 //-- cspr ----------------------------------------------------------------------
8695 void
LAPACK_DECL(cspr)8696 LAPACK_DECL(cspr)(const char *UPLO,
8697 const INTEGER *N,
8698 const FLOAT_COMPLEX *ALPHA,
8699 const FLOAT_COMPLEX *X,
8700 const INTEGER *INCX,
8701 FLOAT_COMPLEX *AP)
8702 {
8703 DEBUG_LAPACK_STUB("cspr");
8704 LAPACK_IMPL(cspr)(UPLO,
8705 N,
8706 ALPHA,
8707 X,
8708 INCX,
8709 AP);
8710 }
8711
8712 //-- csprfs --------------------------------------------------------------------
8713 void
LAPACK_DECL(csprfs)8714 LAPACK_DECL(csprfs)(const char *UPLO,
8715 const INTEGER *N,
8716 const INTEGER *NRHS,
8717 const FLOAT_COMPLEX *AP,
8718 const FLOAT_COMPLEX *AFP,
8719 const INTEGER *IPIV,
8720 const FLOAT_COMPLEX *B,
8721 const INTEGER *LDB,
8722 FLOAT_COMPLEX *X,
8723 const INTEGER *LDX,
8724 FLOAT *FERR,
8725 FLOAT *BERR,
8726 FLOAT_COMPLEX *WORK,
8727 FLOAT *RWORK,
8728 INTEGER *INFO)
8729 {
8730 DEBUG_LAPACK_STUB("csprfs");
8731 LAPACK_IMPL(csprfs)(UPLO,
8732 N,
8733 NRHS,
8734 AP,
8735 AFP,
8736 IPIV,
8737 B,
8738 LDB,
8739 X,
8740 LDX,
8741 FERR,
8742 BERR,
8743 WORK,
8744 RWORK,
8745 INFO);
8746 }
8747
8748 //-- cspsv ---------------------------------------------------------------------
8749 void
LAPACK_DECL(cspsv)8750 LAPACK_DECL(cspsv)(const char *UPLO,
8751 const INTEGER *N,
8752 const INTEGER *NRHS,
8753 FLOAT_COMPLEX *AP,
8754 INTEGER *IPIV,
8755 FLOAT_COMPLEX *B,
8756 const INTEGER *LDB,
8757 INTEGER *INFO)
8758 {
8759 DEBUG_LAPACK_STUB("cspsv");
8760 LAPACK_IMPL(cspsv)(UPLO,
8761 N,
8762 NRHS,
8763 AP,
8764 IPIV,
8765 B,
8766 LDB,
8767 INFO);
8768 }
8769
8770 //-- cspsvx --------------------------------------------------------------------
8771 void
LAPACK_DECL(cspsvx)8772 LAPACK_DECL(cspsvx)(const char *FACT,
8773 const char *UPLO,
8774 const INTEGER *N,
8775 const INTEGER *NRHS,
8776 const FLOAT_COMPLEX *AP,
8777 FLOAT_COMPLEX *AFP,
8778 INTEGER *IPIV,
8779 const FLOAT_COMPLEX *B,
8780 const INTEGER *LDB,
8781 FLOAT_COMPLEX *X,
8782 const INTEGER *LDX,
8783 FLOAT *RCOND,
8784 FLOAT *FERR,
8785 FLOAT *BERR,
8786 FLOAT_COMPLEX *WORK,
8787 FLOAT *RWORK,
8788 INTEGER *INFO)
8789 {
8790 DEBUG_LAPACK_STUB("cspsvx");
8791 LAPACK_IMPL(cspsvx)(FACT,
8792 UPLO,
8793 N,
8794 NRHS,
8795 AP,
8796 AFP,
8797 IPIV,
8798 B,
8799 LDB,
8800 X,
8801 LDX,
8802 RCOND,
8803 FERR,
8804 BERR,
8805 WORK,
8806 RWORK,
8807 INFO);
8808 }
8809
8810 //-- csptrf --------------------------------------------------------------------
8811 void
LAPACK_DECL(csptrf)8812 LAPACK_DECL(csptrf)(const char *UPLO,
8813 const INTEGER *N,
8814 FLOAT_COMPLEX *AP,
8815 INTEGER *IPIV,
8816 INTEGER *INFO)
8817 {
8818 DEBUG_LAPACK_STUB("csptrf");
8819 LAPACK_IMPL(csptrf)(UPLO,
8820 N,
8821 AP,
8822 IPIV,
8823 INFO);
8824 }
8825
8826 //-- csptri --------------------------------------------------------------------
8827 void
LAPACK_DECL(csptri)8828 LAPACK_DECL(csptri)(const char *UPLO,
8829 const INTEGER *N,
8830 FLOAT_COMPLEX *AP,
8831 const INTEGER *IPIV,
8832 FLOAT_COMPLEX *WORK,
8833 INTEGER *INFO)
8834 {
8835 DEBUG_LAPACK_STUB("csptri");
8836 LAPACK_IMPL(csptri)(UPLO,
8837 N,
8838 AP,
8839 IPIV,
8840 WORK,
8841 INFO);
8842 }
8843
8844 //-- csptrs --------------------------------------------------------------------
8845 void
LAPACK_DECL(csptrs)8846 LAPACK_DECL(csptrs)(const char *UPLO,
8847 const INTEGER *N,
8848 const INTEGER *NRHS,
8849 const FLOAT_COMPLEX *AP,
8850 const INTEGER *IPIV,
8851 FLOAT_COMPLEX *B,
8852 const INTEGER *LDB,
8853 INTEGER *INFO)
8854 {
8855 DEBUG_LAPACK_STUB("csptrs");
8856 LAPACK_IMPL(csptrs)(UPLO,
8857 N,
8858 NRHS,
8859 AP,
8860 IPIV,
8861 B,
8862 LDB,
8863 INFO);
8864 }
8865
8866 //-- csrscl --------------------------------------------------------------------
8867 void
LAPACK_DECL(csrscl)8868 LAPACK_DECL(csrscl)(const INTEGER *N,
8869 const FLOAT *SA,
8870 FLOAT_COMPLEX *SX,
8871 const INTEGER *INCX)
8872 {
8873 DEBUG_LAPACK_STUB("csrscl");
8874 LAPACK_IMPL(csrscl)(N,
8875 SA,
8876 SX,
8877 INCX);
8878 }
8879
8880 //-- cstedc --------------------------------------------------------------------
8881 void
LAPACK_DECL(cstedc)8882 LAPACK_DECL(cstedc)(const char *COMPZ,
8883 const INTEGER *N,
8884 FLOAT *D,
8885 FLOAT *E,
8886 FLOAT_COMPLEX *Z,
8887 const INTEGER *LDZ,
8888 FLOAT_COMPLEX *WORK,
8889 const INTEGER *LWORK,
8890 FLOAT *RWORK,
8891 const INTEGER *LRWORK,
8892 INTEGER *IWORK,
8893 const INTEGER *LIWORK,
8894 INTEGER *INFO)
8895 {
8896 DEBUG_LAPACK_STUB("cstedc");
8897 LAPACK_IMPL(cstedc)(COMPZ,
8898 N,
8899 D,
8900 E,
8901 Z,
8902 LDZ,
8903 WORK,
8904 LWORK,
8905 RWORK,
8906 LRWORK,
8907 IWORK,
8908 LIWORK,
8909 INFO);
8910 }
8911
8912 //-- cstegr --------------------------------------------------------------------
8913 void
LAPACK_DECL(cstegr)8914 LAPACK_DECL(cstegr)(const char *JOBZ,
8915 const char *RANGE,
8916 const INTEGER *N,
8917 FLOAT *D,
8918 FLOAT *E,
8919 const FLOAT *VL,
8920 const FLOAT *VU,
8921 const INTEGER *IL,
8922 const INTEGER *IU,
8923 const FLOAT *ABSTOL,
8924 INTEGER *M,
8925 FLOAT *W,
8926 FLOAT_COMPLEX *Z,
8927 const INTEGER *LDZ,
8928 INTEGER *ISUPPZ,
8929 FLOAT *WORK,
8930 const INTEGER *LWORK,
8931 INTEGER *IWORK,
8932 const INTEGER *LIWORK,
8933 INTEGER *INFO)
8934 {
8935 DEBUG_LAPACK_STUB("cstegr");
8936 LAPACK_IMPL(cstegr)(JOBZ,
8937 RANGE,
8938 N,
8939 D,
8940 E,
8941 VL,
8942 VU,
8943 IL,
8944 IU,
8945 ABSTOL,
8946 M,
8947 W,
8948 Z,
8949 LDZ,
8950 ISUPPZ,
8951 WORK,
8952 LWORK,
8953 IWORK,
8954 LIWORK,
8955 INFO);
8956 }
8957
8958 //-- cstein --------------------------------------------------------------------
8959 void
LAPACK_DECL(cstein)8960 LAPACK_DECL(cstein)(const INTEGER *N,
8961 const FLOAT *D,
8962 const FLOAT *E,
8963 const INTEGER *M,
8964 const FLOAT *W,
8965 const INTEGER *IBLOCK,
8966 const INTEGER *ISPLIT,
8967 FLOAT_COMPLEX *Z,
8968 const INTEGER *LDZ,
8969 FLOAT *WORK,
8970 INTEGER *IWORK,
8971 INTEGER *IFAIL,
8972 INTEGER *INFO)
8973 {
8974 DEBUG_LAPACK_STUB("cstein");
8975 LAPACK_IMPL(cstein)(N,
8976 D,
8977 E,
8978 M,
8979 W,
8980 IBLOCK,
8981 ISPLIT,
8982 Z,
8983 LDZ,
8984 WORK,
8985 IWORK,
8986 IFAIL,
8987 INFO);
8988 }
8989
8990 //-- cstemr --------------------------------------------------------------------
8991 void
LAPACK_DECL(cstemr)8992 LAPACK_DECL(cstemr)(const char *JOBZ,
8993 const char *RANGE,
8994 const INTEGER *N,
8995 FLOAT *D,
8996 FLOAT *E,
8997 const FLOAT *VL,
8998 const FLOAT *VU,
8999 const INTEGER *IL,
9000 const INTEGER *IU,
9001 INTEGER *M,
9002 FLOAT *W,
9003 FLOAT_COMPLEX *Z,
9004 const INTEGER *LDZ,
9005 const INTEGER *NZC,
9006 INTEGER *ISUPPZ,
9007 LOGICAL *TRYRAC,
9008 FLOAT *WORK,
9009 const INTEGER *LWORK,
9010 INTEGER *IWORK,
9011 const INTEGER *LIWORK,
9012 INTEGER *INFO)
9013 {
9014 DEBUG_LAPACK_STUB("cstemr");
9015 LAPACK_IMPL(cstemr)(JOBZ,
9016 RANGE,
9017 N,
9018 D,
9019 E,
9020 VL,
9021 VU,
9022 IL,
9023 IU,
9024 M,
9025 W,
9026 Z,
9027 LDZ,
9028 NZC,
9029 ISUPPZ,
9030 TRYRAC,
9031 WORK,
9032 LWORK,
9033 IWORK,
9034 LIWORK,
9035 INFO);
9036 }
9037
9038 //-- csteqr --------------------------------------------------------------------
9039 void
LAPACK_DECL(csteqr)9040 LAPACK_DECL(csteqr)(const char *COMPZ,
9041 const INTEGER *N,
9042 FLOAT *D,
9043 FLOAT *E,
9044 FLOAT_COMPLEX *Z,
9045 const INTEGER *LDZ,
9046 FLOAT *WORK,
9047 INTEGER *INFO)
9048 {
9049 DEBUG_LAPACK_STUB("csteqr");
9050 LAPACK_IMPL(csteqr)(COMPZ,
9051 N,
9052 D,
9053 E,
9054 Z,
9055 LDZ,
9056 WORK,
9057 INFO);
9058 }
9059
9060 //-- csycon --------------------------------------------------------------------
9061 void
LAPACK_DECL(csycon)9062 LAPACK_DECL(csycon)(const char *UPLO,
9063 const INTEGER *N,
9064 const FLOAT_COMPLEX *A,
9065 const INTEGER *LDA,
9066 const INTEGER *IPIV,
9067 const FLOAT *ANORM,
9068 FLOAT *RCOND,
9069 FLOAT_COMPLEX *WORK,
9070 INTEGER *INFO)
9071 {
9072 DEBUG_LAPACK_STUB("csycon");
9073 LAPACK_IMPL(csycon)(UPLO,
9074 N,
9075 A,
9076 LDA,
9077 IPIV,
9078 ANORM,
9079 RCOND,
9080 WORK,
9081 INFO);
9082 }
9083
9084 //-- csyconv -------------------------------------------------------------------
9085 void
LAPACK_DECL(csyconv)9086 LAPACK_DECL(csyconv)(const char *UPLO,
9087 const char *WAY,
9088 const INTEGER *N,
9089 const FLOAT_COMPLEX *A,
9090 const INTEGER *LDA,
9091 const INTEGER *IPIV,
9092 FLOAT_COMPLEX *WORK,
9093 INTEGER *INFO)
9094 {
9095 DEBUG_LAPACK_STUB("csyconv");
9096 LAPACK_IMPL(csyconv)(UPLO,
9097 WAY,
9098 N,
9099 A,
9100 LDA,
9101 IPIV,
9102 WORK,
9103 INFO);
9104 }
9105
9106 //-- csyequb -------------------------------------------------------------------
9107 void
LAPACK_DECL(csyequb)9108 LAPACK_DECL(csyequb)(const char *UPLO,
9109 const INTEGER *N,
9110 const FLOAT_COMPLEX *A,
9111 const INTEGER *LDA,
9112 FLOAT *S,
9113 FLOAT *SCOND,
9114 FLOAT *AMAX,
9115 FLOAT_COMPLEX *WORK,
9116 INTEGER *INFO)
9117 {
9118 DEBUG_LAPACK_STUB("csyequb");
9119 LAPACK_IMPL(csyequb)(UPLO,
9120 N,
9121 A,
9122 LDA,
9123 S,
9124 SCOND,
9125 AMAX,
9126 WORK,
9127 INFO);
9128 }
9129
9130 //-- csymv ---------------------------------------------------------------------
9131 void
LAPACK_DECL(csymv)9132 LAPACK_DECL(csymv)(const char *UPLO,
9133 const INTEGER *N,
9134 const FLOAT_COMPLEX *ALPHA,
9135 const FLOAT_COMPLEX *A,
9136 const INTEGER *LDA,
9137 const FLOAT_COMPLEX *X,
9138 const INTEGER *INCX,
9139 const FLOAT_COMPLEX *BETA,
9140 FLOAT_COMPLEX *Y,
9141 const INTEGER *INCY)
9142 {
9143 DEBUG_LAPACK_STUB("csymv");
9144 LAPACK_IMPL(csymv)(UPLO,
9145 N,
9146 ALPHA,
9147 A,
9148 LDA,
9149 X,
9150 INCX,
9151 BETA,
9152 Y,
9153 INCY);
9154 }
9155
9156 //-- csyr ----------------------------------------------------------------------
9157 void
LAPACK_DECL(csyr)9158 LAPACK_DECL(csyr)(const char *UPLO,
9159 const INTEGER *N,
9160 const FLOAT_COMPLEX *ALPHA,
9161 const FLOAT_COMPLEX *X,
9162 const INTEGER *INCX,
9163 FLOAT_COMPLEX *A,
9164 const INTEGER *LDA)
9165 {
9166 DEBUG_LAPACK_STUB("csyr");
9167 LAPACK_IMPL(csyr)(UPLO,
9168 N,
9169 ALPHA,
9170 X,
9171 INCX,
9172 A,
9173 LDA);
9174 }
9175
9176 //-- csyrfs --------------------------------------------------------------------
9177 void
LAPACK_DECL(csyrfs)9178 LAPACK_DECL(csyrfs)(const char *UPLO,
9179 const INTEGER *N,
9180 const INTEGER *NRHS,
9181 const FLOAT_COMPLEX *A,
9182 const INTEGER *LDA,
9183 const FLOAT_COMPLEX *AF,
9184 const INTEGER *LDAF,
9185 const INTEGER *IPIV,
9186 const FLOAT_COMPLEX *B,
9187 const INTEGER *LDB,
9188 FLOAT_COMPLEX *X,
9189 const INTEGER *LDX,
9190 FLOAT *FERR,
9191 FLOAT *BERR,
9192 FLOAT_COMPLEX *WORK,
9193 FLOAT *RWORK,
9194 INTEGER *INFO)
9195 {
9196 DEBUG_LAPACK_STUB("csyrfs");
9197 LAPACK_IMPL(csyrfs)(UPLO,
9198 N,
9199 NRHS,
9200 A,
9201 LDA,
9202 AF,
9203 LDAF,
9204 IPIV,
9205 B,
9206 LDB,
9207 X,
9208 LDX,
9209 FERR,
9210 BERR,
9211 WORK,
9212 RWORK,
9213 INFO);
9214 }
9215
9216 //-- csyrfsx -------------------------------------------------------------------
9217 void
LAPACK_DECL(csyrfsx)9218 LAPACK_DECL(csyrfsx)(const char *UPLO,
9219 const char *EQUED,
9220 const INTEGER *N,
9221 const INTEGER *NRHS,
9222 const FLOAT_COMPLEX *A,
9223 const INTEGER *LDA,
9224 const FLOAT_COMPLEX *AF,
9225 const INTEGER *LDAF,
9226 const INTEGER *IPIV,
9227 FLOAT *S,
9228 const FLOAT_COMPLEX *B,
9229 const INTEGER *LDB,
9230 FLOAT_COMPLEX *X,
9231 const INTEGER *LDX,
9232 FLOAT *RCOND,
9233 FLOAT *BERR,
9234 const INTEGER *N_ERR_BNDS,
9235 FLOAT *ERR_BNDS_NORM,
9236 FLOAT *ERR_BNDS_COMP,
9237 const INTEGER *NPARAMS,
9238 FLOAT *PARAMS,
9239 FLOAT_COMPLEX *WORK,
9240 FLOAT *RWORK,
9241 INTEGER *INFO)
9242 {
9243 DEBUG_LAPACK_STUB("csyrfsx");
9244 LAPACK_IMPL(csyrfsx)(UPLO,
9245 EQUED,
9246 N,
9247 NRHS,
9248 A,
9249 LDA,
9250 AF,
9251 LDAF,
9252 IPIV,
9253 S,
9254 B,
9255 LDB,
9256 X,
9257 LDX,
9258 RCOND,
9259 BERR,
9260 N_ERR_BNDS,
9261 ERR_BNDS_NORM,
9262 ERR_BNDS_COMP,
9263 NPARAMS,
9264 PARAMS,
9265 WORK,
9266 RWORK,
9267 INFO);
9268 }
9269
9270 //-- csysv ---------------------------------------------------------------------
9271 void
LAPACK_DECL(csysv)9272 LAPACK_DECL(csysv)(const char *UPLO,
9273 const INTEGER *N,
9274 const INTEGER *NRHS,
9275 FLOAT_COMPLEX *A,
9276 const INTEGER *LDA,
9277 INTEGER *IPIV,
9278 FLOAT_COMPLEX *B,
9279 const INTEGER *LDB,
9280 FLOAT_COMPLEX *WORK,
9281 const INTEGER *LWORK,
9282 INTEGER *INFO)
9283 {
9284 DEBUG_LAPACK_STUB("csysv");
9285 LAPACK_IMPL(csysv)(UPLO,
9286 N,
9287 NRHS,
9288 A,
9289 LDA,
9290 IPIV,
9291 B,
9292 LDB,
9293 WORK,
9294 LWORK,
9295 INFO);
9296 }
9297
9298 //-- csysvx --------------------------------------------------------------------
9299 void
LAPACK_DECL(csysvx)9300 LAPACK_DECL(csysvx)(const char *FACT,
9301 const char *UPLO,
9302 const INTEGER *N,
9303 const INTEGER *NRHS,
9304 const FLOAT_COMPLEX *A,
9305 const INTEGER *LDA,
9306 FLOAT_COMPLEX *AF,
9307 const INTEGER *LDAF,
9308 INTEGER *IPIV,
9309 const FLOAT_COMPLEX *B,
9310 const INTEGER *LDB,
9311 FLOAT_COMPLEX *X,
9312 const INTEGER *LDX,
9313 FLOAT *RCOND,
9314 FLOAT *FERR,
9315 FLOAT *BERR,
9316 FLOAT_COMPLEX *WORK,
9317 const INTEGER *LWORK,
9318 FLOAT *RWORK,
9319 INTEGER *INFO)
9320 {
9321 DEBUG_LAPACK_STUB("csysvx");
9322 LAPACK_IMPL(csysvx)(FACT,
9323 UPLO,
9324 N,
9325 NRHS,
9326 A,
9327 LDA,
9328 AF,
9329 LDAF,
9330 IPIV,
9331 B,
9332 LDB,
9333 X,
9334 LDX,
9335 RCOND,
9336 FERR,
9337 BERR,
9338 WORK,
9339 LWORK,
9340 RWORK,
9341 INFO);
9342 }
9343
9344 //-- csysvxx -------------------------------------------------------------------
9345 void
LAPACK_DECL(csysvxx)9346 LAPACK_DECL(csysvxx)(const char *FACT,
9347 const char *UPLO,
9348 const INTEGER *N,
9349 const INTEGER *NRHS,
9350 FLOAT_COMPLEX *A,
9351 const INTEGER *LDA,
9352 FLOAT_COMPLEX *AF,
9353 const INTEGER *LDAF,
9354 INTEGER *IPIV,
9355 char *EQUED,
9356 FLOAT *S,
9357 FLOAT_COMPLEX *B,
9358 const INTEGER *LDB,
9359 FLOAT_COMPLEX *X,
9360 const INTEGER *LDX,
9361 FLOAT *RCOND,
9362 FLOAT *RPVGRW,
9363 FLOAT *BERR,
9364 const INTEGER *N_ERR_BNDS,
9365 FLOAT *ERR_BNDS_NORM,
9366 FLOAT *ERR_BNDS_COMP,
9367 const INTEGER *NPARAMS,
9368 FLOAT *PARAMS,
9369 FLOAT_COMPLEX *WORK,
9370 FLOAT *RWORK,
9371 INTEGER *INFO)
9372 {
9373 DEBUG_LAPACK_STUB("csysvxx");
9374 LAPACK_IMPL(csysvxx)(FACT,
9375 UPLO,
9376 N,
9377 NRHS,
9378 A,
9379 LDA,
9380 AF,
9381 LDAF,
9382 IPIV,
9383 EQUED,
9384 S,
9385 B,
9386 LDB,
9387 X,
9388 LDX,
9389 RCOND,
9390 RPVGRW,
9391 BERR,
9392 N_ERR_BNDS,
9393 ERR_BNDS_NORM,
9394 ERR_BNDS_COMP,
9395 NPARAMS,
9396 PARAMS,
9397 WORK,
9398 RWORK,
9399 INFO);
9400 }
9401
9402 //-- csyswapr ------------------------------------------------------------------
9403 void
LAPACK_DECL(csyswapr)9404 LAPACK_DECL(csyswapr)(const char *UPLO,
9405 const INTEGER *N,
9406 FLOAT_COMPLEX *A,
9407 const INTEGER *LDA,
9408 const INTEGER *I1,
9409 const INTEGER *I2)
9410 {
9411 DEBUG_LAPACK_STUB("csyswapr");
9412 LAPACK_IMPL(csyswapr)(UPLO,
9413 N,
9414 A,
9415 LDA,
9416 I1,
9417 I2);
9418 }
9419
9420 //-- csytf2 --------------------------------------------------------------------
9421 void
LAPACK_DECL(csytf2)9422 LAPACK_DECL(csytf2)(const char *UPLO,
9423 const INTEGER *N,
9424 FLOAT_COMPLEX *A,
9425 const INTEGER *LDA,
9426 INTEGER *IPIV,
9427 INTEGER *INFO)
9428 {
9429 DEBUG_LAPACK_STUB("csytf2");
9430 LAPACK_IMPL(csytf2)(UPLO,
9431 N,
9432 A,
9433 LDA,
9434 IPIV,
9435 INFO);
9436 }
9437
9438 //-- csytrf --------------------------------------------------------------------
9439 void
LAPACK_DECL(csytrf)9440 LAPACK_DECL(csytrf)(const char *UPLO,
9441 const INTEGER *N,
9442 FLOAT_COMPLEX *A,
9443 const INTEGER *LDA,
9444 INTEGER *IPIV,
9445 FLOAT_COMPLEX *WORK,
9446 const INTEGER *LWORK,
9447 INTEGER *INFO)
9448 {
9449 DEBUG_LAPACK_STUB("csytrf");
9450 LAPACK_IMPL(csytrf)(UPLO,
9451 N,
9452 A,
9453 LDA,
9454 IPIV,
9455 WORK,
9456 LWORK,
9457 INFO);
9458 }
9459
9460 //-- csytri --------------------------------------------------------------------
9461 void
LAPACK_DECL(csytri)9462 LAPACK_DECL(csytri)(const char *UPLO,
9463 const INTEGER *N,
9464 FLOAT_COMPLEX *A,
9465 const INTEGER *LDA,
9466 const INTEGER *IPIV,
9467 FLOAT_COMPLEX *WORK,
9468 INTEGER *INFO)
9469 {
9470 DEBUG_LAPACK_STUB("csytri");
9471 LAPACK_IMPL(csytri)(UPLO,
9472 N,
9473 A,
9474 LDA,
9475 IPIV,
9476 WORK,
9477 INFO);
9478 }
9479
9480 //-- csytri2 -------------------------------------------------------------------
9481 void
LAPACK_DECL(csytri2)9482 LAPACK_DECL(csytri2)(const char *UPLO,
9483 const INTEGER *N,
9484 FLOAT_COMPLEX *A,
9485 const INTEGER *LDA,
9486 const INTEGER *IPIV,
9487 FLOAT_COMPLEX *WORK,
9488 const INTEGER *LWORK,
9489 INTEGER *INFO)
9490 {
9491 DEBUG_LAPACK_STUB("csytri2");
9492 LAPACK_IMPL(csytri2)(UPLO,
9493 N,
9494 A,
9495 LDA,
9496 IPIV,
9497 WORK,
9498 LWORK,
9499 INFO);
9500 }
9501
9502 //-- csytri2x ------------------------------------------------------------------
9503 void
LAPACK_DECL(csytri2x)9504 LAPACK_DECL(csytri2x)(const char *UPLO,
9505 const INTEGER *N,
9506 FLOAT_COMPLEX *A,
9507 const INTEGER *LDA,
9508 const INTEGER *IPIV,
9509 FLOAT_COMPLEX *WORK,
9510 const INTEGER *NB,
9511 INTEGER *INFO)
9512 {
9513 DEBUG_LAPACK_STUB("csytri2x");
9514 LAPACK_IMPL(csytri2x)(UPLO,
9515 N,
9516 A,
9517 LDA,
9518 IPIV,
9519 WORK,
9520 NB,
9521 INFO);
9522 }
9523
9524 //-- csytrs --------------------------------------------------------------------
9525 void
LAPACK_DECL(csytrs)9526 LAPACK_DECL(csytrs)(const char *UPLO,
9527 const INTEGER *N,
9528 const INTEGER *NRHS,
9529 const FLOAT_COMPLEX *A,
9530 const INTEGER *LDA,
9531 const INTEGER *IPIV,
9532 FLOAT_COMPLEX *B,
9533 const INTEGER *LDB,
9534 INTEGER *INFO)
9535 {
9536 DEBUG_LAPACK_STUB("csytrs");
9537 LAPACK_IMPL(csytrs)(UPLO,
9538 N,
9539 NRHS,
9540 A,
9541 LDA,
9542 IPIV,
9543 B,
9544 LDB,
9545 INFO);
9546 }
9547
9548 //-- csytrs2 -------------------------------------------------------------------
9549 void
LAPACK_DECL(csytrs2)9550 LAPACK_DECL(csytrs2)(const char *UPLO,
9551 const INTEGER *N,
9552 const INTEGER *NRHS,
9553 const FLOAT_COMPLEX *A,
9554 const INTEGER *LDA,
9555 const INTEGER *IPIV,
9556 FLOAT_COMPLEX *B,
9557 const INTEGER *LDB,
9558 FLOAT_COMPLEX *WORK,
9559 INTEGER *INFO)
9560 {
9561 DEBUG_LAPACK_STUB("csytrs2");
9562 LAPACK_IMPL(csytrs2)(UPLO,
9563 N,
9564 NRHS,
9565 A,
9566 LDA,
9567 IPIV,
9568 B,
9569 LDB,
9570 WORK,
9571 INFO);
9572 }
9573
9574 //-- ctbcon --------------------------------------------------------------------
9575 void
LAPACK_DECL(ctbcon)9576 LAPACK_DECL(ctbcon)(const char *NORM,
9577 const char *UPLO,
9578 const char *DIAG,
9579 const INTEGER *N,
9580 const INTEGER *KD,
9581 const FLOAT_COMPLEX *AB,
9582 const INTEGER *LDAB,
9583 FLOAT *RCOND,
9584 FLOAT_COMPLEX *WORK,
9585 FLOAT *RWORK,
9586 INTEGER *INFO)
9587 {
9588 DEBUG_LAPACK_STUB("ctbcon");
9589 LAPACK_IMPL(ctbcon)(NORM,
9590 UPLO,
9591 DIAG,
9592 N,
9593 KD,
9594 AB,
9595 LDAB,
9596 RCOND,
9597 WORK,
9598 RWORK,
9599 INFO);
9600 }
9601
9602 //-- ctbrfs --------------------------------------------------------------------
9603 void
LAPACK_DECL(ctbrfs)9604 LAPACK_DECL(ctbrfs)(const char *UPLO,
9605 const char *TRANS,
9606 const char *DIAG,
9607 const INTEGER *N,
9608 const INTEGER *KD,
9609 const INTEGER *NRHS,
9610 const FLOAT_COMPLEX *AB,
9611 const INTEGER *LDAB,
9612 const FLOAT_COMPLEX *B,
9613 const INTEGER *LDB,
9614 const FLOAT_COMPLEX *X,
9615 const INTEGER *LDX,
9616 FLOAT *FERR,
9617 FLOAT *BERR,
9618 FLOAT_COMPLEX *WORK,
9619 FLOAT *RWORK,
9620 INTEGER *INFO)
9621 {
9622 DEBUG_LAPACK_STUB("ctbrfs");
9623 LAPACK_IMPL(ctbrfs)(UPLO,
9624 TRANS,
9625 DIAG,
9626 N,
9627 KD,
9628 NRHS,
9629 AB,
9630 LDAB,
9631 B,
9632 LDB,
9633 X,
9634 LDX,
9635 FERR,
9636 BERR,
9637 WORK,
9638 RWORK,
9639 INFO);
9640 }
9641
9642 //-- ctbtrs --------------------------------------------------------------------
9643 void
LAPACK_DECL(ctbtrs)9644 LAPACK_DECL(ctbtrs)(const char *UPLO,
9645 const char *TRANS,
9646 const char *DIAG,
9647 const INTEGER *N,
9648 const INTEGER *KD,
9649 const INTEGER *NRHS,
9650 const FLOAT_COMPLEX *AB,
9651 const INTEGER *LDAB,
9652 FLOAT_COMPLEX *B,
9653 const INTEGER *LDB,
9654 INTEGER *INFO)
9655 {
9656 DEBUG_LAPACK_STUB("ctbtrs");
9657 LAPACK_IMPL(ctbtrs)(UPLO,
9658 TRANS,
9659 DIAG,
9660 N,
9661 KD,
9662 NRHS,
9663 AB,
9664 LDAB,
9665 B,
9666 LDB,
9667 INFO);
9668 }
9669
9670 //-- ctfsm ---------------------------------------------------------------------
9671 void
LAPACK_DECL(ctfsm)9672 LAPACK_DECL(ctfsm)(const char *TRANSR,
9673 const char *SIDE,
9674 const char *UPLO,
9675 const char *TRANS,
9676 const char *DIAG,
9677 const INTEGER *M,
9678 const INTEGER *N,
9679 const FLOAT_COMPLEX *ALPHA,
9680 const FLOAT_COMPLEX *A,
9681 FLOAT_COMPLEX *B,
9682 const INTEGER *LDB)
9683 {
9684 DEBUG_LAPACK_STUB("ctfsm");
9685 LAPACK_IMPL(ctfsm)(TRANSR,
9686 SIDE,
9687 UPLO,
9688 TRANS,
9689 DIAG,
9690 M,
9691 N,
9692 ALPHA,
9693 A,
9694 B,
9695 LDB);
9696 }
9697
9698 //-- ctftri --------------------------------------------------------------------
9699 void
LAPACK_DECL(ctftri)9700 LAPACK_DECL(ctftri)(const char *TRANSR,
9701 const char *UPLO,
9702 const char *DIAG,
9703 const INTEGER *N,
9704 FLOAT_COMPLEX *A,
9705 INTEGER *INFO)
9706 {
9707 DEBUG_LAPACK_STUB("ctftri");
9708 LAPACK_IMPL(ctftri)(TRANSR,
9709 UPLO,
9710 DIAG,
9711 N,
9712 A,
9713 INFO);
9714 }
9715
9716 //-- ctfttp --------------------------------------------------------------------
9717 void
LAPACK_DECL(ctfttp)9718 LAPACK_DECL(ctfttp)(const char *TRANSR,
9719 const char *UPLO,
9720 const INTEGER *N,
9721 const FLOAT_COMPLEX *ARF,
9722 FLOAT_COMPLEX *AP,
9723 INTEGER *INFO)
9724 {
9725 DEBUG_LAPACK_STUB("ctfttp");
9726 LAPACK_IMPL(ctfttp)(TRANSR,
9727 UPLO,
9728 N,
9729 ARF,
9730 AP,
9731 INFO);
9732 }
9733
9734 //-- ctfttr --------------------------------------------------------------------
9735 void
LAPACK_DECL(ctfttr)9736 LAPACK_DECL(ctfttr)(const char *TRANSR,
9737 const char *UPLO,
9738 const INTEGER *N,
9739 const FLOAT_COMPLEX *ARF,
9740 FLOAT_COMPLEX *A,
9741 const INTEGER *LDA,
9742 INTEGER *INFO)
9743 {
9744 DEBUG_LAPACK_STUB("ctfttr");
9745 LAPACK_IMPL(ctfttr)(TRANSR,
9746 UPLO,
9747 N,
9748 ARF,
9749 A,
9750 LDA,
9751 INFO);
9752 }
9753
9754 //-- ctgevc --------------------------------------------------------------------
9755 void
LAPACK_DECL(ctgevc)9756 LAPACK_DECL(ctgevc)(const char *SIDE,
9757 const char *HOWMNY,
9758 const LOGICAL *SELECT,
9759 const INTEGER *N,
9760 const FLOAT_COMPLEX *S,
9761 const INTEGER *LDS,
9762 const FLOAT_COMPLEX *P,
9763 const INTEGER *LDP,
9764 FLOAT_COMPLEX *VL,
9765 const INTEGER *LDVL,
9766 FLOAT_COMPLEX *VR,
9767 const INTEGER *LDVR,
9768 const INTEGER *MM,
9769 INTEGER *M,
9770 FLOAT_COMPLEX *WORK,
9771 FLOAT *RWORK,
9772 INTEGER *INFO)
9773 {
9774 DEBUG_LAPACK_STUB("ctgevc");
9775 LAPACK_IMPL(ctgevc)(SIDE,
9776 HOWMNY,
9777 SELECT,
9778 N,
9779 S,
9780 LDS,
9781 P,
9782 LDP,
9783 VL,
9784 LDVL,
9785 VR,
9786 LDVR,
9787 MM,
9788 M,
9789 WORK,
9790 RWORK,
9791 INFO);
9792 }
9793
9794 //-- ctgex2 --------------------------------------------------------------------
9795 void
LAPACK_DECL(ctgex2)9796 LAPACK_DECL(ctgex2)(const LOGICAL *WANTQ,
9797 const LOGICAL *WANTZ,
9798 const INTEGER *N,
9799 FLOAT_COMPLEX *A,
9800 const INTEGER *LDA,
9801 FLOAT_COMPLEX *B,
9802 const INTEGER *LDB,
9803 FLOAT_COMPLEX *Q,
9804 const INTEGER *LDQ,
9805 FLOAT_COMPLEX *Z,
9806 const INTEGER *LDZ,
9807 const INTEGER *J1,
9808 INTEGER *INFO)
9809 {
9810 DEBUG_LAPACK_STUB("ctgex2");
9811 LAPACK_IMPL(ctgex2)(WANTQ,
9812 WANTZ,
9813 N,
9814 A,
9815 LDA,
9816 B,
9817 LDB,
9818 Q,
9819 LDQ,
9820 Z,
9821 LDZ,
9822 J1,
9823 INFO);
9824 }
9825
9826 //-- ctgexc --------------------------------------------------------------------
9827 void
LAPACK_DECL(ctgexc)9828 LAPACK_DECL(ctgexc)(const LOGICAL *WANTQ,
9829 const LOGICAL *WANTZ,
9830 const INTEGER *N,
9831 FLOAT_COMPLEX *A,
9832 const INTEGER *LDA,
9833 FLOAT_COMPLEX *B,
9834 const INTEGER *LDB,
9835 FLOAT_COMPLEX *Q,
9836 const INTEGER *LDQ,
9837 FLOAT_COMPLEX *Z,
9838 const INTEGER *LDZ,
9839 const INTEGER *IFST,
9840 INTEGER *ILST,
9841 INTEGER *INFO)
9842 {
9843 DEBUG_LAPACK_STUB("ctgexc");
9844 LAPACK_IMPL(ctgexc)(WANTQ,
9845 WANTZ,
9846 N,
9847 A,
9848 LDA,
9849 B,
9850 LDB,
9851 Q,
9852 LDQ,
9853 Z,
9854 LDZ,
9855 IFST,
9856 ILST,
9857 INFO);
9858 }
9859
9860 //-- ctgsen --------------------------------------------------------------------
9861 void
LAPACK_DECL(ctgsen)9862 LAPACK_DECL(ctgsen)(const INTEGER *IJOB,
9863 const LOGICAL *WANTQ,
9864 const LOGICAL *WANTZ,
9865 const LOGICAL *SELECT,
9866 const INTEGER *N,
9867 FLOAT_COMPLEX *A,
9868 const INTEGER *LDA,
9869 FLOAT_COMPLEX *B,
9870 const INTEGER *LDB,
9871 FLOAT_COMPLEX *ALPHA,
9872 FLOAT_COMPLEX *BETA,
9873 FLOAT_COMPLEX *Q,
9874 const INTEGER *LDQ,
9875 FLOAT_COMPLEX *Z,
9876 const INTEGER *LDZ,
9877 INTEGER *M,
9878 FLOAT *PL,
9879 FLOAT *PR,
9880 FLOAT *DIF,
9881 FLOAT_COMPLEX *WORK,
9882 const INTEGER *LWORK,
9883 INTEGER *IWORK,
9884 const INTEGER *LIWORK,
9885 INTEGER *INFO)
9886 {
9887 DEBUG_LAPACK_STUB("ctgsen");
9888 LAPACK_IMPL(ctgsen)(IJOB,
9889 WANTQ,
9890 WANTZ,
9891 SELECT,
9892 N,
9893 A,
9894 LDA,
9895 B,
9896 LDB,
9897 ALPHA,
9898 BETA,
9899 Q,
9900 LDQ,
9901 Z,
9902 LDZ,
9903 M,
9904 PL,
9905 PR,
9906 DIF,
9907 WORK,
9908 LWORK,
9909 IWORK,
9910 LIWORK,
9911 INFO);
9912 }
9913
9914 //-- ctgsja --------------------------------------------------------------------
9915 void
LAPACK_DECL(ctgsja)9916 LAPACK_DECL(ctgsja)(const char *JOBU,
9917 const char *JOBV,
9918 const char *JOBQ,
9919 const INTEGER *M,
9920 const INTEGER *P,
9921 const INTEGER *N,
9922 const INTEGER *K,
9923 const INTEGER *L,
9924 FLOAT_COMPLEX *A,
9925 const INTEGER *LDA,
9926 FLOAT_COMPLEX *B,
9927 const INTEGER *LDB,
9928 const FLOAT *TOLA,
9929 const FLOAT *TOLB,
9930 FLOAT *ALPHA,
9931 FLOAT *BETA,
9932 FLOAT_COMPLEX *U,
9933 const INTEGER *LDU,
9934 FLOAT_COMPLEX *V,
9935 const INTEGER *LDV,
9936 FLOAT_COMPLEX *Q,
9937 const INTEGER *LDQ,
9938 FLOAT_COMPLEX *WORK,
9939 INTEGER *NCYCLE,
9940 INTEGER *INFO)
9941 {
9942 DEBUG_LAPACK_STUB("ctgsja");
9943 LAPACK_IMPL(ctgsja)(JOBU,
9944 JOBV,
9945 JOBQ,
9946 M,
9947 P,
9948 N,
9949 K,
9950 L,
9951 A,
9952 LDA,
9953 B,
9954 LDB,
9955 TOLA,
9956 TOLB,
9957 ALPHA,
9958 BETA,
9959 U,
9960 LDU,
9961 V,
9962 LDV,
9963 Q,
9964 LDQ,
9965 WORK,
9966 NCYCLE,
9967 INFO);
9968 }
9969
9970 //-- ctgsna --------------------------------------------------------------------
9971 void
LAPACK_DECL(ctgsna)9972 LAPACK_DECL(ctgsna)(const char *JOB,
9973 const char *HOWMNY,
9974 const LOGICAL *SELECT,
9975 const INTEGER *N,
9976 const FLOAT_COMPLEX *A,
9977 const INTEGER *LDA,
9978 const FLOAT_COMPLEX *B,
9979 const INTEGER *LDB,
9980 const FLOAT_COMPLEX *VL,
9981 const INTEGER *LDVL,
9982 const FLOAT_COMPLEX *VR,
9983 const INTEGER *LDVR,
9984 FLOAT *S,
9985 FLOAT *DIF,
9986 const INTEGER *MM,
9987 INTEGER *M,
9988 FLOAT_COMPLEX *WORK,
9989 const INTEGER *LWORK,
9990 INTEGER *IWORK,
9991 INTEGER *INFO)
9992 {
9993 DEBUG_LAPACK_STUB("ctgsna");
9994 LAPACK_IMPL(ctgsna)(JOB,
9995 HOWMNY,
9996 SELECT,
9997 N,
9998 A,
9999 LDA,
10000 B,
10001 LDB,
10002 VL,
10003 LDVL,
10004 VR,
10005 LDVR,
10006 S,
10007 DIF,
10008 MM,
10009 M,
10010 WORK,
10011 LWORK,
10012 IWORK,
10013 INFO);
10014 }
10015
10016 //-- ctgsy2 --------------------------------------------------------------------
10017 void
LAPACK_DECL(ctgsy2)10018 LAPACK_DECL(ctgsy2)(const char *TRANS,
10019 const INTEGER *IJOB,
10020 const INTEGER *M,
10021 const INTEGER *N,
10022 const FLOAT_COMPLEX *A,
10023 const INTEGER *LDA,
10024 const FLOAT_COMPLEX *B,
10025 const INTEGER *LDB,
10026 FLOAT_COMPLEX *C,
10027 const INTEGER *LDC,
10028 const FLOAT_COMPLEX *D,
10029 const INTEGER *LDD,
10030 const FLOAT_COMPLEX *E,
10031 const INTEGER *LDE,
10032 FLOAT_COMPLEX *F,
10033 const INTEGER *LDF,
10034 FLOAT *SCALE,
10035 FLOAT *RDSUM,
10036 FLOAT *RDSCAL,
10037 INTEGER *INFO)
10038 {
10039 DEBUG_LAPACK_STUB("ctgsy2");
10040 LAPACK_IMPL(ctgsy2)(TRANS,
10041 IJOB,
10042 M,
10043 N,
10044 A,
10045 LDA,
10046 B,
10047 LDB,
10048 C,
10049 LDC,
10050 D,
10051 LDD,
10052 E,
10053 LDE,
10054 F,
10055 LDF,
10056 SCALE,
10057 RDSUM,
10058 RDSCAL,
10059 INFO);
10060 }
10061
10062 //-- ctgsyl --------------------------------------------------------------------
10063 void
LAPACK_DECL(ctgsyl)10064 LAPACK_DECL(ctgsyl)(const char *TRANS,
10065 const INTEGER *IJOB,
10066 const INTEGER *M,
10067 const INTEGER *N,
10068 const FLOAT_COMPLEX *A,
10069 const INTEGER *LDA,
10070 const FLOAT_COMPLEX *B,
10071 const INTEGER *LDB,
10072 FLOAT_COMPLEX *C,
10073 const INTEGER *LDC,
10074 const FLOAT_COMPLEX *D,
10075 const INTEGER *LDD,
10076 const FLOAT_COMPLEX *E,
10077 const INTEGER *LDE,
10078 FLOAT_COMPLEX *F,
10079 const INTEGER *LDF,
10080 FLOAT *SCALE,
10081 FLOAT *DIF,
10082 FLOAT_COMPLEX *WORK,
10083 const INTEGER *LWORK,
10084 INTEGER *IWORK,
10085 INTEGER *INFO)
10086 {
10087 DEBUG_LAPACK_STUB("ctgsyl");
10088 LAPACK_IMPL(ctgsyl)(TRANS,
10089 IJOB,
10090 M,
10091 N,
10092 A,
10093 LDA,
10094 B,
10095 LDB,
10096 C,
10097 LDC,
10098 D,
10099 LDD,
10100 E,
10101 LDE,
10102 F,
10103 LDF,
10104 SCALE,
10105 DIF,
10106 WORK,
10107 LWORK,
10108 IWORK,
10109 INFO);
10110 }
10111
10112 //-- ctpcon --------------------------------------------------------------------
10113 void
LAPACK_DECL(ctpcon)10114 LAPACK_DECL(ctpcon)(const char *NORM,
10115 const char *UPLO,
10116 const char *DIAG,
10117 const INTEGER *N,
10118 const FLOAT_COMPLEX *AP,
10119 FLOAT *RCOND,
10120 FLOAT_COMPLEX *WORK,
10121 FLOAT *RWORK,
10122 INTEGER *INFO)
10123 {
10124 DEBUG_LAPACK_STUB("ctpcon");
10125 LAPACK_IMPL(ctpcon)(NORM,
10126 UPLO,
10127 DIAG,
10128 N,
10129 AP,
10130 RCOND,
10131 WORK,
10132 RWORK,
10133 INFO);
10134 }
10135
10136 //-- ctprfs --------------------------------------------------------------------
10137 void
LAPACK_DECL(ctprfs)10138 LAPACK_DECL(ctprfs)(const char *UPLO,
10139 const char *TRANS,
10140 const char *DIAG,
10141 const INTEGER *N,
10142 const INTEGER *NRHS,
10143 const FLOAT_COMPLEX *AP,
10144 const FLOAT_COMPLEX *B,
10145 const INTEGER *LDB,
10146 const FLOAT_COMPLEX *X,
10147 const INTEGER *LDX,
10148 FLOAT *FERR,
10149 FLOAT *BERR,
10150 FLOAT_COMPLEX *WORK,
10151 FLOAT *RWORK,
10152 INTEGER *INFO)
10153 {
10154 DEBUG_LAPACK_STUB("ctprfs");
10155 LAPACK_IMPL(ctprfs)(UPLO,
10156 TRANS,
10157 DIAG,
10158 N,
10159 NRHS,
10160 AP,
10161 B,
10162 LDB,
10163 X,
10164 LDX,
10165 FERR,
10166 BERR,
10167 WORK,
10168 RWORK,
10169 INFO);
10170 }
10171
10172 //-- ctptri --------------------------------------------------------------------
10173 void
LAPACK_DECL(ctptri)10174 LAPACK_DECL(ctptri)(const char *UPLO,
10175 const char *DIAG,
10176 const INTEGER *N,
10177 FLOAT_COMPLEX *AP,
10178 INTEGER *INFO)
10179 {
10180 DEBUG_LAPACK_STUB("ctptri");
10181 LAPACK_IMPL(ctptri)(UPLO,
10182 DIAG,
10183 N,
10184 AP,
10185 INFO);
10186 }
10187
10188 //-- ctptrs --------------------------------------------------------------------
10189 void
LAPACK_DECL(ctptrs)10190 LAPACK_DECL(ctptrs)(const char *UPLO,
10191 const char *TRANS,
10192 const char *DIAG,
10193 const INTEGER *N,
10194 const INTEGER *NRHS,
10195 const FLOAT_COMPLEX *AP,
10196 FLOAT_COMPLEX *B,
10197 const INTEGER *LDB,
10198 INTEGER *INFO)
10199 {
10200 DEBUG_LAPACK_STUB("ctptrs");
10201 LAPACK_IMPL(ctptrs)(UPLO,
10202 TRANS,
10203 DIAG,
10204 N,
10205 NRHS,
10206 AP,
10207 B,
10208 LDB,
10209 INFO);
10210 }
10211
10212 //-- ctpttf --------------------------------------------------------------------
10213 void
LAPACK_DECL(ctpttf)10214 LAPACK_DECL(ctpttf)(const char *TRANSR,
10215 const char *UPLO,
10216 const INTEGER *N,
10217 const FLOAT_COMPLEX *AP,
10218 FLOAT_COMPLEX *ARF,
10219 INTEGER *INFO)
10220 {
10221 DEBUG_LAPACK_STUB("ctpttf");
10222 LAPACK_IMPL(ctpttf)(TRANSR,
10223 UPLO,
10224 N,
10225 AP,
10226 ARF,
10227 INFO);
10228 }
10229
10230 //-- ctpttr --------------------------------------------------------------------
10231 void
LAPACK_DECL(ctpttr)10232 LAPACK_DECL(ctpttr)(const char *UPLO,
10233 const INTEGER *N,
10234 const FLOAT_COMPLEX *AP,
10235 FLOAT_COMPLEX *A,
10236 const INTEGER *LDA,
10237 INTEGER *INFO)
10238 {
10239 DEBUG_LAPACK_STUB("ctpttr");
10240 LAPACK_IMPL(ctpttr)(UPLO,
10241 N,
10242 AP,
10243 A,
10244 LDA,
10245 INFO);
10246 }
10247
10248 //-- ctrcon --------------------------------------------------------------------
10249 void
LAPACK_DECL(ctrcon)10250 LAPACK_DECL(ctrcon)(const char *NORM,
10251 const char *UPLO,
10252 const char *DIAG,
10253 const INTEGER *N,
10254 const FLOAT_COMPLEX *A,
10255 const INTEGER *LDA,
10256 FLOAT *RCOND,
10257 FLOAT_COMPLEX *WORK,
10258 FLOAT *RWORK,
10259 INTEGER *INFO)
10260 {
10261 DEBUG_LAPACK_STUB("ctrcon");
10262 LAPACK_IMPL(ctrcon)(NORM,
10263 UPLO,
10264 DIAG,
10265 N,
10266 A,
10267 LDA,
10268 RCOND,
10269 WORK,
10270 RWORK,
10271 INFO);
10272 }
10273
10274 //-- ctrevc --------------------------------------------------------------------
10275 void
LAPACK_DECL(ctrevc)10276 LAPACK_DECL(ctrevc)(const char *SIDE,
10277 const char *HOWMNY,
10278 const LOGICAL *SELECT,
10279 const INTEGER *N,
10280 FLOAT_COMPLEX *T,
10281 const INTEGER *LDT,
10282 FLOAT_COMPLEX *VL,
10283 const INTEGER *LDVL,
10284 FLOAT_COMPLEX *VR,
10285 const INTEGER *LDVR,
10286 const INTEGER *MM,
10287 INTEGER *M,
10288 FLOAT_COMPLEX *WORK,
10289 FLOAT *RWORK,
10290 INTEGER *INFO)
10291 {
10292 DEBUG_LAPACK_STUB("ctrevc");
10293 LAPACK_IMPL(ctrevc)(SIDE,
10294 HOWMNY,
10295 SELECT,
10296 N,
10297 T,
10298 LDT,
10299 VL,
10300 LDVL,
10301 VR,
10302 LDVR,
10303 MM,
10304 M,
10305 WORK,
10306 RWORK,
10307 INFO);
10308 }
10309
10310 //-- ctrexc --------------------------------------------------------------------
10311 void
LAPACK_DECL(ctrexc)10312 LAPACK_DECL(ctrexc)(const char *COMPQ,
10313 const INTEGER *N,
10314 FLOAT_COMPLEX *T,
10315 const INTEGER *LDT,
10316 FLOAT_COMPLEX *Q,
10317 const INTEGER *LDQ,
10318 const INTEGER *IFST,
10319 const INTEGER *ILST,
10320 INTEGER *INFO)
10321 {
10322 DEBUG_LAPACK_STUB("ctrexc");
10323 LAPACK_IMPL(ctrexc)(COMPQ,
10324 N,
10325 T,
10326 LDT,
10327 Q,
10328 LDQ,
10329 IFST,
10330 ILST,
10331 INFO);
10332 }
10333
10334 //-- ctrrfs --------------------------------------------------------------------
10335 void
LAPACK_DECL(ctrrfs)10336 LAPACK_DECL(ctrrfs)(const char *UPLO,
10337 const char *TRANS,
10338 const char *DIAG,
10339 const INTEGER *N,
10340 const INTEGER *NRHS,
10341 const FLOAT_COMPLEX *A,
10342 const INTEGER *LDA,
10343 const FLOAT_COMPLEX *B,
10344 const INTEGER *LDB,
10345 const FLOAT_COMPLEX *X,
10346 const INTEGER *LDX,
10347 FLOAT *FERR,
10348 FLOAT *BERR,
10349 FLOAT_COMPLEX *WORK,
10350 FLOAT *RWORK,
10351 INTEGER *INFO)
10352 {
10353 DEBUG_LAPACK_STUB("ctrrfs");
10354 LAPACK_IMPL(ctrrfs)(UPLO,
10355 TRANS,
10356 DIAG,
10357 N,
10358 NRHS,
10359 A,
10360 LDA,
10361 B,
10362 LDB,
10363 X,
10364 LDX,
10365 FERR,
10366 BERR,
10367 WORK,
10368 RWORK,
10369 INFO);
10370 }
10371
10372 //-- ctrsen --------------------------------------------------------------------
10373 void
LAPACK_DECL(ctrsen)10374 LAPACK_DECL(ctrsen)(const char *JOB,
10375 const char *COMPQ,
10376 const LOGICAL *SELECT,
10377 const INTEGER *N,
10378 FLOAT_COMPLEX *T,
10379 const INTEGER *LDT,
10380 FLOAT_COMPLEX *Q,
10381 const INTEGER *LDQ,
10382 FLOAT_COMPLEX *W,
10383 INTEGER *M,
10384 FLOAT *S,
10385 FLOAT *SEP,
10386 FLOAT_COMPLEX *WORK,
10387 const INTEGER *LWORK,
10388 INTEGER *INFO)
10389 {
10390 DEBUG_LAPACK_STUB("ctrsen");
10391 LAPACK_IMPL(ctrsen)(JOB,
10392 COMPQ,
10393 SELECT,
10394 N,
10395 T,
10396 LDT,
10397 Q,
10398 LDQ,
10399 W,
10400 M,
10401 S,
10402 SEP,
10403 WORK,
10404 LWORK,
10405 INFO);
10406 }
10407
10408 //-- ctrsna --------------------------------------------------------------------
10409 void
LAPACK_DECL(ctrsna)10410 LAPACK_DECL(ctrsna)(const char *JOB,
10411 const char *HOWMNY,
10412 const LOGICAL *SELECT,
10413 const INTEGER *N,
10414 const FLOAT_COMPLEX *T,
10415 const INTEGER *LDT,
10416 const FLOAT_COMPLEX *VL,
10417 const INTEGER *LDVL,
10418 const FLOAT_COMPLEX *VR,
10419 const INTEGER *LDVR,
10420 FLOAT *S,
10421 FLOAT *SEP,
10422 const INTEGER *MM,
10423 INTEGER *M,
10424 FLOAT_COMPLEX *WORK,
10425 const INTEGER *LDWORK,
10426 FLOAT *RWORK,
10427 INTEGER *INFO)
10428 {
10429 DEBUG_LAPACK_STUB("ctrsna");
10430 LAPACK_IMPL(ctrsna)(JOB,
10431 HOWMNY,
10432 SELECT,
10433 N,
10434 T,
10435 LDT,
10436 VL,
10437 LDVL,
10438 VR,
10439 LDVR,
10440 S,
10441 SEP,
10442 MM,
10443 M,
10444 WORK,
10445 LDWORK,
10446 RWORK,
10447 INFO);
10448 }
10449
10450 //-- ctrsyl --------------------------------------------------------------------
10451 void
LAPACK_DECL(ctrsyl)10452 LAPACK_DECL(ctrsyl)(const char *TRANA,
10453 const char *TRANB,
10454 const INTEGER *ISGN,
10455 const INTEGER *M,
10456 const INTEGER *N,
10457 const FLOAT_COMPLEX *A,
10458 const INTEGER *LDA,
10459 const FLOAT_COMPLEX *B,
10460 const INTEGER *LDB,
10461 FLOAT_COMPLEX *C,
10462 const INTEGER *LDC,
10463 FLOAT *SCALE,
10464 INTEGER *INFO)
10465 {
10466 DEBUG_LAPACK_STUB("ctrsyl");
10467 LAPACK_IMPL(ctrsyl)(TRANA,
10468 TRANB,
10469 ISGN,
10470 M,
10471 N,
10472 A,
10473 LDA,
10474 B,
10475 LDB,
10476 C,
10477 LDC,
10478 SCALE,
10479 INFO);
10480 }
10481
10482 //-- ctrti2 --------------------------------------------------------------------
10483 void
LAPACK_DECL(ctrti2)10484 LAPACK_DECL(ctrti2)(const char *UPLO,
10485 const char *DIAG,
10486 const INTEGER *N,
10487 FLOAT_COMPLEX *A,
10488 const INTEGER *LDA,
10489 INTEGER *INFO)
10490 {
10491 DEBUG_LAPACK_STUB("ctrti2");
10492 LAPACK_IMPL(ctrti2)(UPLO,
10493 DIAG,
10494 N,
10495 A,
10496 LDA,
10497 INFO);
10498 }
10499
10500 //-- ctrtri --------------------------------------------------------------------
10501 void
LAPACK_DECL(ctrtri)10502 LAPACK_DECL(ctrtri)(const char *UPLO,
10503 const char *DIAG,
10504 const INTEGER *N,
10505 FLOAT_COMPLEX *A,
10506 const INTEGER *LDA,
10507 INTEGER *INFO)
10508 {
10509 DEBUG_LAPACK_STUB("ctrtri");
10510 LAPACK_IMPL(ctrtri)(UPLO,
10511 DIAG,
10512 N,
10513 A,
10514 LDA,
10515 INFO);
10516 }
10517
10518 //-- ctrtrs --------------------------------------------------------------------
10519 void
LAPACK_DECL(ctrtrs)10520 LAPACK_DECL(ctrtrs)(const char *UPLO,
10521 const char *TRANS,
10522 const char *DIAG,
10523 const INTEGER *N,
10524 const INTEGER *NRHS,
10525 const FLOAT_COMPLEX *A,
10526 const INTEGER *LDA,
10527 FLOAT_COMPLEX *B,
10528 const INTEGER *LDB,
10529 INTEGER *INFO)
10530 {
10531 DEBUG_LAPACK_STUB("ctrtrs");
10532 LAPACK_IMPL(ctrtrs)(UPLO,
10533 TRANS,
10534 DIAG,
10535 N,
10536 NRHS,
10537 A,
10538 LDA,
10539 B,
10540 LDB,
10541 INFO);
10542 }
10543
10544 //-- ctrttf --------------------------------------------------------------------
10545 void
LAPACK_DECL(ctrttf)10546 LAPACK_DECL(ctrttf)(const char *TRANSR,
10547 const char *UPLO,
10548 const INTEGER *N,
10549 const FLOAT_COMPLEX *A,
10550 const INTEGER *LDA,
10551 FLOAT_COMPLEX *ARF,
10552 INTEGER *INFO)
10553 {
10554 DEBUG_LAPACK_STUB("ctrttf");
10555 LAPACK_IMPL(ctrttf)(TRANSR,
10556 UPLO,
10557 N,
10558 A,
10559 LDA,
10560 ARF,
10561 INFO);
10562 }
10563
10564 //-- ctrttp --------------------------------------------------------------------
10565 void
LAPACK_DECL(ctrttp)10566 LAPACK_DECL(ctrttp)(const char *UPLO,
10567 const INTEGER *N,
10568 const FLOAT_COMPLEX *A,
10569 const INTEGER *LDA,
10570 FLOAT_COMPLEX *AP,
10571 INTEGER *INFO)
10572 {
10573 DEBUG_LAPACK_STUB("ctrttp");
10574 LAPACK_IMPL(ctrttp)(UPLO,
10575 N,
10576 A,
10577 LDA,
10578 AP,
10579 INFO);
10580 }
10581
10582 //-- ctzrqf --------------------------------------------------------------------
10583 void
LAPACK_DECL(ctzrqf)10584 LAPACK_DECL(ctzrqf)(const INTEGER *M,
10585 const INTEGER *N,
10586 FLOAT_COMPLEX *A,
10587 const INTEGER *LDA,
10588 FLOAT_COMPLEX *TAU,
10589 INTEGER *INFO)
10590 {
10591 DEBUG_LAPACK_STUB("ctzrqf");
10592 LAPACK_IMPL(ctzrqf)(M,
10593 N,
10594 A,
10595 LDA,
10596 TAU,
10597 INFO);
10598 }
10599
10600 //-- ctzrzf --------------------------------------------------------------------
10601 void
LAPACK_DECL(ctzrzf)10602 LAPACK_DECL(ctzrzf)(const INTEGER *M,
10603 const INTEGER *N,
10604 FLOAT_COMPLEX *A,
10605 const INTEGER *LDA,
10606 FLOAT_COMPLEX *TAU,
10607 FLOAT_COMPLEX *WORK,
10608 const INTEGER *LWORK,
10609 INTEGER *INFO)
10610 {
10611 DEBUG_LAPACK_STUB("ctzrzf");
10612 LAPACK_IMPL(ctzrzf)(M,
10613 N,
10614 A,
10615 LDA,
10616 TAU,
10617 WORK,
10618 LWORK,
10619 INFO);
10620 }
10621
10622 //-- cunbdb --------------------------------------------------------------------
10623 void
LAPACK_DECL(cunbdb)10624 LAPACK_DECL(cunbdb)(const char *TRANS,
10625 const char *SIGNS,
10626 const INTEGER *M,
10627 const INTEGER *P,
10628 const INTEGER *Q,
10629 FLOAT_COMPLEX *X11,
10630 const INTEGER *LDX11,
10631 FLOAT_COMPLEX *X12,
10632 const INTEGER *LDX12,
10633 FLOAT_COMPLEX *X21,
10634 const INTEGER *LDX21,
10635 FLOAT_COMPLEX *X22,
10636 const INTEGER *LDX22,
10637 FLOAT *THETA,
10638 FLOAT *PHI,
10639 FLOAT_COMPLEX *TAUP1,
10640 FLOAT_COMPLEX *TAUP2,
10641 FLOAT_COMPLEX *TAUQ1,
10642 FLOAT_COMPLEX *TAUQ2,
10643 FLOAT_COMPLEX *WORK,
10644 const INTEGER *LWORK,
10645 INTEGER *INFO)
10646 {
10647 DEBUG_LAPACK_STUB("cunbdb");
10648 LAPACK_IMPL(cunbdb)(TRANS,
10649 SIGNS,
10650 M,
10651 P,
10652 Q,
10653 X11,
10654 LDX11,
10655 X12,
10656 LDX12,
10657 X21,
10658 LDX21,
10659 X22,
10660 LDX22,
10661 THETA,
10662 PHI,
10663 TAUP1,
10664 TAUP2,
10665 TAUQ1,
10666 TAUQ2,
10667 WORK,
10668 LWORK,
10669 INFO);
10670 }
10671
10672 //-- cuncsd --------------------------------------------------------------------
10673 void
LAPACK_DECL(cuncsd)10674 LAPACK_DECL(cuncsd)(const char *JOBU1,
10675 const char *JOBU2,
10676 const char *JOBV1T,
10677 const char *JOBV2T,
10678 const char *TRANS,
10679 const char *SIGNS,
10680 const INTEGER *M,
10681 const INTEGER *P,
10682 const INTEGER *Q,
10683 const FLOAT_COMPLEX *X11,
10684 const INTEGER *LDX11,
10685 const FLOAT_COMPLEX *X12,
10686 const INTEGER *LDX12,
10687 const FLOAT_COMPLEX *X21,
10688 const INTEGER *LDX21,
10689 const FLOAT_COMPLEX *X22,
10690 const INTEGER *LDX22,
10691 FLOAT *THETA,
10692 FLOAT_COMPLEX *U1,
10693 const INTEGER *LDU1,
10694 FLOAT_COMPLEX *U2,
10695 const INTEGER *LDU2,
10696 FLOAT_COMPLEX *V1T,
10697 const INTEGER *LDV1T,
10698 FLOAT_COMPLEX *V2T,
10699 const INTEGER *LDV2T,
10700 FLOAT_COMPLEX *WORK,
10701 const INTEGER *LWORK,
10702 FLOAT *RWORK,
10703 const INTEGER *LRWORK,
10704 INTEGER *IWORK,
10705 INTEGER *INFO)
10706 {
10707 DEBUG_LAPACK_STUB("cuncsd");
10708 LAPACK_IMPL(cuncsd)(JOBU1,
10709 JOBU2,
10710 JOBV1T,
10711 JOBV2T,
10712 TRANS,
10713 SIGNS,
10714 M,
10715 P,
10716 Q,
10717 X11,
10718 LDX11,
10719 X12,
10720 LDX12,
10721 X21,
10722 LDX21,
10723 X22,
10724 LDX22,
10725 THETA,
10726 U1,
10727 LDU1,
10728 U2,
10729 LDU2,
10730 V1T,
10731 LDV1T,
10732 V2T,
10733 LDV2T,
10734 WORK,
10735 LWORK,
10736 RWORK,
10737 LRWORK,
10738 IWORK,
10739 INFO);
10740 }
10741
10742 //-- cung2l --------------------------------------------------------------------
10743 void
LAPACK_DECL(cung2l)10744 LAPACK_DECL(cung2l)(const INTEGER *M,
10745 const INTEGER *N,
10746 const INTEGER *K,
10747 FLOAT_COMPLEX *A,
10748 const INTEGER *LDA,
10749 const FLOAT_COMPLEX *TAU,
10750 FLOAT_COMPLEX *WORK,
10751 INTEGER *INFO)
10752 {
10753 DEBUG_LAPACK_STUB("cung2l");
10754 LAPACK_IMPL(cung2l)(M,
10755 N,
10756 K,
10757 A,
10758 LDA,
10759 TAU,
10760 WORK,
10761 INFO);
10762 }
10763
10764 //-- cung2r --------------------------------------------------------------------
10765 void
LAPACK_DECL(cung2r)10766 LAPACK_DECL(cung2r)(const INTEGER *M,
10767 const INTEGER *N,
10768 const INTEGER *K,
10769 FLOAT_COMPLEX *A,
10770 const INTEGER *LDA,
10771 const FLOAT_COMPLEX *TAU,
10772 FLOAT_COMPLEX *WORK,
10773 INTEGER *INFO)
10774 {
10775 DEBUG_LAPACK_STUB("cung2r");
10776 LAPACK_IMPL(cung2r)(M,
10777 N,
10778 K,
10779 A,
10780 LDA,
10781 TAU,
10782 WORK,
10783 INFO);
10784 }
10785
10786 //-- cungbr --------------------------------------------------------------------
10787 void
LAPACK_DECL(cungbr)10788 LAPACK_DECL(cungbr)(const char *VECT,
10789 const INTEGER *M,
10790 const INTEGER *N,
10791 const INTEGER *K,
10792 FLOAT_COMPLEX *A,
10793 const INTEGER *LDA,
10794 const FLOAT_COMPLEX *TAU,
10795 FLOAT_COMPLEX *WORK,
10796 const INTEGER *LWORK,
10797 INTEGER *INFO)
10798 {
10799 DEBUG_LAPACK_STUB("cungbr");
10800 LAPACK_IMPL(cungbr)(VECT,
10801 M,
10802 N,
10803 K,
10804 A,
10805 LDA,
10806 TAU,
10807 WORK,
10808 LWORK,
10809 INFO);
10810 }
10811
10812 //-- cunghr --------------------------------------------------------------------
10813 void
LAPACK_DECL(cunghr)10814 LAPACK_DECL(cunghr)(const INTEGER *N,
10815 const INTEGER *ILO,
10816 const INTEGER *IHI,
10817 FLOAT_COMPLEX *A,
10818 const INTEGER *LDA,
10819 const FLOAT_COMPLEX *TAU,
10820 FLOAT_COMPLEX *WORK,
10821 const INTEGER *LWORK,
10822 INTEGER *INFO)
10823 {
10824 DEBUG_LAPACK_STUB("cunghr");
10825 LAPACK_IMPL(cunghr)(N,
10826 ILO,
10827 IHI,
10828 A,
10829 LDA,
10830 TAU,
10831 WORK,
10832 LWORK,
10833 INFO);
10834 }
10835
10836 //-- cungl2 --------------------------------------------------------------------
10837 void
LAPACK_DECL(cungl2)10838 LAPACK_DECL(cungl2)(const INTEGER *M,
10839 const INTEGER *N,
10840 const INTEGER *K,
10841 FLOAT_COMPLEX *A,
10842 const INTEGER *LDA,
10843 const FLOAT_COMPLEX *TAU,
10844 FLOAT_COMPLEX *WORK,
10845 INTEGER *INFO)
10846 {
10847 DEBUG_LAPACK_STUB("cungl2");
10848 LAPACK_IMPL(cungl2)(M,
10849 N,
10850 K,
10851 A,
10852 LDA,
10853 TAU,
10854 WORK,
10855 INFO);
10856 }
10857
10858 //-- cunglq --------------------------------------------------------------------
10859 void
LAPACK_DECL(cunglq)10860 LAPACK_DECL(cunglq)(const INTEGER *M,
10861 const INTEGER *N,
10862 const INTEGER *K,
10863 FLOAT_COMPLEX *A,
10864 const INTEGER *LDA,
10865 const FLOAT_COMPLEX *TAU,
10866 FLOAT_COMPLEX *WORK,
10867 const INTEGER *LWORK,
10868 INTEGER *INFO)
10869 {
10870 DEBUG_LAPACK_STUB("cunglq");
10871 LAPACK_IMPL(cunglq)(M,
10872 N,
10873 K,
10874 A,
10875 LDA,
10876 TAU,
10877 WORK,
10878 LWORK,
10879 INFO);
10880 }
10881
10882 //-- cungql --------------------------------------------------------------------
10883 void
LAPACK_DECL(cungql)10884 LAPACK_DECL(cungql)(const INTEGER *M,
10885 const INTEGER *N,
10886 const INTEGER *K,
10887 FLOAT_COMPLEX *A,
10888 const INTEGER *LDA,
10889 const FLOAT_COMPLEX *TAU,
10890 FLOAT_COMPLEX *WORK,
10891 const INTEGER *LWORK,
10892 INTEGER *INFO)
10893 {
10894 DEBUG_LAPACK_STUB("cungql");
10895 LAPACK_IMPL(cungql)(M,
10896 N,
10897 K,
10898 A,
10899 LDA,
10900 TAU,
10901 WORK,
10902 LWORK,
10903 INFO);
10904 }
10905
10906 //-- cungqr --------------------------------------------------------------------
10907 void
LAPACK_DECL(cungqr)10908 LAPACK_DECL(cungqr)(const INTEGER *M,
10909 const INTEGER *N,
10910 const INTEGER *K,
10911 FLOAT_COMPLEX *A,
10912 const INTEGER *LDA,
10913 const FLOAT_COMPLEX *TAU,
10914 FLOAT_COMPLEX *WORK,
10915 const INTEGER *LWORK,
10916 INTEGER *INFO)
10917 {
10918 DEBUG_LAPACK_STUB("cungqr");
10919 LAPACK_IMPL(cungqr)(M,
10920 N,
10921 K,
10922 A,
10923 LDA,
10924 TAU,
10925 WORK,
10926 LWORK,
10927 INFO);
10928 }
10929
10930 //-- cungr2 --------------------------------------------------------------------
10931 void
LAPACK_DECL(cungr2)10932 LAPACK_DECL(cungr2)(const INTEGER *M,
10933 const INTEGER *N,
10934 const INTEGER *K,
10935 FLOAT_COMPLEX *A,
10936 const INTEGER *LDA,
10937 const FLOAT_COMPLEX *TAU,
10938 FLOAT_COMPLEX *WORK,
10939 INTEGER *INFO)
10940 {
10941 DEBUG_LAPACK_STUB("cungr2");
10942 LAPACK_IMPL(cungr2)(M,
10943 N,
10944 K,
10945 A,
10946 LDA,
10947 TAU,
10948 WORK,
10949 INFO);
10950 }
10951
10952 //-- cungrq --------------------------------------------------------------------
10953 void
LAPACK_DECL(cungrq)10954 LAPACK_DECL(cungrq)(const INTEGER *M,
10955 const INTEGER *N,
10956 const INTEGER *K,
10957 FLOAT_COMPLEX *A,
10958 const INTEGER *LDA,
10959 const FLOAT_COMPLEX *TAU,
10960 FLOAT_COMPLEX *WORK,
10961 const INTEGER *LWORK,
10962 INTEGER *INFO)
10963 {
10964 DEBUG_LAPACK_STUB("cungrq");
10965 LAPACK_IMPL(cungrq)(M,
10966 N,
10967 K,
10968 A,
10969 LDA,
10970 TAU,
10971 WORK,
10972 LWORK,
10973 INFO);
10974 }
10975
10976 //-- cungtr --------------------------------------------------------------------
10977 void
LAPACK_DECL(cungtr)10978 LAPACK_DECL(cungtr)(const char *UPLO,
10979 const INTEGER *N,
10980 FLOAT_COMPLEX *A,
10981 const INTEGER *LDA,
10982 const FLOAT_COMPLEX *TAU,
10983 FLOAT_COMPLEX *WORK,
10984 const INTEGER *LWORK,
10985 INTEGER *INFO)
10986 {
10987 DEBUG_LAPACK_STUB("cungtr");
10988 LAPACK_IMPL(cungtr)(UPLO,
10989 N,
10990 A,
10991 LDA,
10992 TAU,
10993 WORK,
10994 LWORK,
10995 INFO);
10996 }
10997
10998 //-- cunm2l --------------------------------------------------------------------
10999 void
LAPACK_DECL(cunm2l)11000 LAPACK_DECL(cunm2l)(const char *SIDE,
11001 const char *TRANS,
11002 const INTEGER *M,
11003 const INTEGER *N,
11004 const INTEGER *K,
11005 const FLOAT_COMPLEX *A,
11006 const INTEGER *LDA,
11007 const FLOAT_COMPLEX *TAU,
11008 FLOAT_COMPLEX *C,
11009 const INTEGER *LDC,
11010 FLOAT_COMPLEX *WORK,
11011 INTEGER *INFO)
11012 {
11013 DEBUG_LAPACK_STUB("cunm2l");
11014 LAPACK_IMPL(cunm2l)(SIDE,
11015 TRANS,
11016 M,
11017 N,
11018 K,
11019 A,
11020 LDA,
11021 TAU,
11022 C,
11023 LDC,
11024 WORK,
11025 INFO);
11026 }
11027
11028 //-- cunm2r --------------------------------------------------------------------
11029 void
LAPACK_DECL(cunm2r)11030 LAPACK_DECL(cunm2r)(const char *SIDE,
11031 const char *TRANS,
11032 const INTEGER *M,
11033 const INTEGER *N,
11034 const INTEGER *K,
11035 const FLOAT_COMPLEX *A,
11036 const INTEGER *LDA,
11037 const FLOAT_COMPLEX *TAU,
11038 FLOAT_COMPLEX *C,
11039 const INTEGER *LDC,
11040 FLOAT_COMPLEX *WORK,
11041 INTEGER *INFO)
11042 {
11043 DEBUG_LAPACK_STUB("cunm2r");
11044 LAPACK_IMPL(cunm2r)(SIDE,
11045 TRANS,
11046 M,
11047 N,
11048 K,
11049 A,
11050 LDA,
11051 TAU,
11052 C,
11053 LDC,
11054 WORK,
11055 INFO);
11056 }
11057
11058 //-- cunmbr --------------------------------------------------------------------
11059 void
LAPACK_DECL(cunmbr)11060 LAPACK_DECL(cunmbr)(const char *VECT,
11061 const char *SIDE,
11062 const char *TRANS,
11063 const INTEGER *M,
11064 const INTEGER *N,
11065 const INTEGER *K,
11066 const FLOAT_COMPLEX *A,
11067 const INTEGER *LDA,
11068 const FLOAT_COMPLEX *TAU,
11069 FLOAT_COMPLEX *C,
11070 const INTEGER *LDC,
11071 FLOAT_COMPLEX *WORK,
11072 const INTEGER *LWORK,
11073 INTEGER *INFO)
11074 {
11075 DEBUG_LAPACK_STUB("cunmbr");
11076 LAPACK_IMPL(cunmbr)(VECT,
11077 SIDE,
11078 TRANS,
11079 M,
11080 N,
11081 K,
11082 A,
11083 LDA,
11084 TAU,
11085 C,
11086 LDC,
11087 WORK,
11088 LWORK,
11089 INFO);
11090 }
11091
11092 //-- cunmhr --------------------------------------------------------------------
11093 void
LAPACK_DECL(cunmhr)11094 LAPACK_DECL(cunmhr)(const char *SIDE,
11095 const char *TRANS,
11096 const INTEGER *M,
11097 const INTEGER *N,
11098 const INTEGER *ILO,
11099 const INTEGER *IHI,
11100 const FLOAT_COMPLEX *A,
11101 const INTEGER *LDA,
11102 const FLOAT_COMPLEX *TAU,
11103 FLOAT_COMPLEX *C,
11104 const INTEGER *LDC,
11105 FLOAT_COMPLEX *WORK,
11106 const INTEGER *LWORK,
11107 INTEGER *INFO)
11108 {
11109 DEBUG_LAPACK_STUB("cunmhr");
11110 LAPACK_IMPL(cunmhr)(SIDE,
11111 TRANS,
11112 M,
11113 N,
11114 ILO,
11115 IHI,
11116 A,
11117 LDA,
11118 TAU,
11119 C,
11120 LDC,
11121 WORK,
11122 LWORK,
11123 INFO);
11124 }
11125
11126 //-- cunml2 --------------------------------------------------------------------
11127 void
LAPACK_DECL(cunml2)11128 LAPACK_DECL(cunml2)(const char *SIDE,
11129 const char *TRANS,
11130 const INTEGER *M,
11131 const INTEGER *N,
11132 const INTEGER *K,
11133 const FLOAT_COMPLEX *A,
11134 const INTEGER *LDA,
11135 const FLOAT_COMPLEX *TAU,
11136 FLOAT_COMPLEX *C,
11137 const INTEGER *LDC,
11138 FLOAT_COMPLEX *WORK,
11139 INTEGER *INFO)
11140 {
11141 DEBUG_LAPACK_STUB("cunml2");
11142 LAPACK_IMPL(cunml2)(SIDE,
11143 TRANS,
11144 M,
11145 N,
11146 K,
11147 A,
11148 LDA,
11149 TAU,
11150 C,
11151 LDC,
11152 WORK,
11153 INFO);
11154 }
11155
11156 //-- cunmlq --------------------------------------------------------------------
11157 void
LAPACK_DECL(cunmlq)11158 LAPACK_DECL(cunmlq)(const char *SIDE,
11159 const char *TRANS,
11160 const INTEGER *M,
11161 const INTEGER *N,
11162 const INTEGER *K,
11163 const FLOAT_COMPLEX *A,
11164 const INTEGER *LDA,
11165 const FLOAT_COMPLEX *TAU,
11166 FLOAT_COMPLEX *C,
11167 const INTEGER *LDC,
11168 FLOAT_COMPLEX *WORK,
11169 const INTEGER *LWORK,
11170 INTEGER *INFO)
11171 {
11172 DEBUG_LAPACK_STUB("cunmlq");
11173 LAPACK_IMPL(cunmlq)(SIDE,
11174 TRANS,
11175 M,
11176 N,
11177 K,
11178 A,
11179 LDA,
11180 TAU,
11181 C,
11182 LDC,
11183 WORK,
11184 LWORK,
11185 INFO);
11186 }
11187
11188 //-- cunmql --------------------------------------------------------------------
11189 void
LAPACK_DECL(cunmql)11190 LAPACK_DECL(cunmql)(const char *SIDE,
11191 const char *TRANS,
11192 const INTEGER *M,
11193 const INTEGER *N,
11194 const INTEGER *K,
11195 const FLOAT_COMPLEX *A,
11196 const INTEGER *LDA,
11197 const FLOAT_COMPLEX *TAU,
11198 FLOAT_COMPLEX *C,
11199 const INTEGER *LDC,
11200 FLOAT_COMPLEX *WORK,
11201 const INTEGER *LWORK,
11202 INTEGER *INFO)
11203 {
11204 DEBUG_LAPACK_STUB("cunmql");
11205 LAPACK_IMPL(cunmql)(SIDE,
11206 TRANS,
11207 M,
11208 N,
11209 K,
11210 A,
11211 LDA,
11212 TAU,
11213 C,
11214 LDC,
11215 WORK,
11216 LWORK,
11217 INFO);
11218 }
11219
11220 //-- cunmqr --------------------------------------------------------------------
11221 void
LAPACK_DECL(cunmqr)11222 LAPACK_DECL(cunmqr)(const char *SIDE,
11223 const char *TRANS,
11224 const INTEGER *M,
11225 const INTEGER *N,
11226 const INTEGER *K,
11227 const FLOAT_COMPLEX *A,
11228 const INTEGER *LDA,
11229 const FLOAT_COMPLEX *TAU,
11230 FLOAT_COMPLEX *C,
11231 const INTEGER *LDC,
11232 FLOAT_COMPLEX *WORK,
11233 const INTEGER *LWORK,
11234 INTEGER *INFO)
11235 {
11236 DEBUG_LAPACK_STUB("cunmqr");
11237 LAPACK_IMPL(cunmqr)(SIDE,
11238 TRANS,
11239 M,
11240 N,
11241 K,
11242 A,
11243 LDA,
11244 TAU,
11245 C,
11246 LDC,
11247 WORK,
11248 LWORK,
11249 INFO);
11250 }
11251
11252 //-- cunmr2 --------------------------------------------------------------------
11253 void
LAPACK_DECL(cunmr2)11254 LAPACK_DECL(cunmr2)(const char *SIDE,
11255 const char *TRANS,
11256 const INTEGER *M,
11257 const INTEGER *N,
11258 const INTEGER *K,
11259 const FLOAT_COMPLEX *A,
11260 const INTEGER *LDA,
11261 const FLOAT_COMPLEX *TAU,
11262 FLOAT_COMPLEX *C,
11263 const INTEGER *LDC,
11264 FLOAT_COMPLEX *WORK,
11265 INTEGER *INFO)
11266 {
11267 DEBUG_LAPACK_STUB("cunmr2");
11268 LAPACK_IMPL(cunmr2)(SIDE,
11269 TRANS,
11270 M,
11271 N,
11272 K,
11273 A,
11274 LDA,
11275 TAU,
11276 C,
11277 LDC,
11278 WORK,
11279 INFO);
11280 }
11281
11282 //-- cunmr3 --------------------------------------------------------------------
11283 void
LAPACK_DECL(cunmr3)11284 LAPACK_DECL(cunmr3)(const char *SIDE,
11285 const char *TRANS,
11286 const INTEGER *M,
11287 const INTEGER *N,
11288 const INTEGER *K,
11289 const INTEGER *L,
11290 const FLOAT_COMPLEX *A,
11291 const INTEGER *LDA,
11292 const FLOAT_COMPLEX *TAU,
11293 FLOAT_COMPLEX *C,
11294 const INTEGER *LDC,
11295 FLOAT_COMPLEX *WORK,
11296 INTEGER *INFO)
11297 {
11298 DEBUG_LAPACK_STUB("cunmr3");
11299 LAPACK_IMPL(cunmr3)(SIDE,
11300 TRANS,
11301 M,
11302 N,
11303 K,
11304 L,
11305 A,
11306 LDA,
11307 TAU,
11308 C,
11309 LDC,
11310 WORK,
11311 INFO);
11312 }
11313
11314 //-- cunmrq --------------------------------------------------------------------
11315 void
LAPACK_DECL(cunmrq)11316 LAPACK_DECL(cunmrq)(const char *SIDE,
11317 const char *TRANS,
11318 const INTEGER *M,
11319 const INTEGER *N,
11320 const INTEGER *K,
11321 const FLOAT_COMPLEX *A,
11322 const INTEGER *LDA,
11323 const FLOAT_COMPLEX *TAU,
11324 FLOAT_COMPLEX *C,
11325 const INTEGER *LDC,
11326 FLOAT_COMPLEX *WORK,
11327 const INTEGER *LWORK,
11328 INTEGER *INFO)
11329 {
11330 DEBUG_LAPACK_STUB("cunmrq");
11331 LAPACK_IMPL(cunmrq)(SIDE,
11332 TRANS,
11333 M,
11334 N,
11335 K,
11336 A,
11337 LDA,
11338 TAU,
11339 C,
11340 LDC,
11341 WORK,
11342 LWORK,
11343 INFO);
11344 }
11345
11346 //-- cunmrz --------------------------------------------------------------------
11347 void
LAPACK_DECL(cunmrz)11348 LAPACK_DECL(cunmrz)(const char *SIDE,
11349 const char *TRANS,
11350 const INTEGER *M,
11351 const INTEGER *N,
11352 const INTEGER *K,
11353 const INTEGER *L,
11354 const FLOAT_COMPLEX *A,
11355 const INTEGER *LDA,
11356 const FLOAT_COMPLEX *TAU,
11357 FLOAT_COMPLEX *C,
11358 const INTEGER *LDC,
11359 FLOAT_COMPLEX *WORK,
11360 const INTEGER *LWORK,
11361 INTEGER *INFO)
11362 {
11363 DEBUG_LAPACK_STUB("cunmrz");
11364 LAPACK_IMPL(cunmrz)(SIDE,
11365 TRANS,
11366 M,
11367 N,
11368 K,
11369 L,
11370 A,
11371 LDA,
11372 TAU,
11373 C,
11374 LDC,
11375 WORK,
11376 LWORK,
11377 INFO);
11378 }
11379
11380 //-- cunmtr --------------------------------------------------------------------
11381 void
LAPACK_DECL(cunmtr)11382 LAPACK_DECL(cunmtr)(const char *SIDE,
11383 const char *UPLO,
11384 const char *TRANS,
11385 const INTEGER *M,
11386 const INTEGER *N,
11387 const FLOAT_COMPLEX *A,
11388 const INTEGER *LDA,
11389 const FLOAT_COMPLEX *TAU,
11390 FLOAT_COMPLEX *C,
11391 const INTEGER *LDC,
11392 FLOAT_COMPLEX *WORK,
11393 const INTEGER *LWORK,
11394 INTEGER *INFO)
11395 {
11396 DEBUG_LAPACK_STUB("cunmtr");
11397 LAPACK_IMPL(cunmtr)(SIDE,
11398 UPLO,
11399 TRANS,
11400 M,
11401 N,
11402 A,
11403 LDA,
11404 TAU,
11405 C,
11406 LDC,
11407 WORK,
11408 LWORK,
11409 INFO);
11410 }
11411
11412 //-- cupgtr --------------------------------------------------------------------
11413 void
LAPACK_DECL(cupgtr)11414 LAPACK_DECL(cupgtr)(const char *UPLO,
11415 const INTEGER *N,
11416 const FLOAT_COMPLEX *AP,
11417 const FLOAT_COMPLEX *TAU,
11418 FLOAT_COMPLEX *Q,
11419 const INTEGER *LDQ,
11420 FLOAT_COMPLEX *WORK,
11421 INTEGER *INFO)
11422 {
11423 DEBUG_LAPACK_STUB("cupgtr");
11424 LAPACK_IMPL(cupgtr)(UPLO,
11425 N,
11426 AP,
11427 TAU,
11428 Q,
11429 LDQ,
11430 WORK,
11431 INFO);
11432 }
11433
11434 //-- cupmtr --------------------------------------------------------------------
11435 void
LAPACK_DECL(cupmtr)11436 LAPACK_DECL(cupmtr)(const char *SIDE,
11437 const char *UPLO,
11438 const char *TRANS,
11439 const INTEGER *M,
11440 const INTEGER *N,
11441 const FLOAT_COMPLEX *AP,
11442 const FLOAT_COMPLEX *TAU,
11443 FLOAT_COMPLEX *C,
11444 const INTEGER *LDC,
11445 FLOAT_COMPLEX *WORK,
11446 INTEGER *INFO)
11447 {
11448 DEBUG_LAPACK_STUB("cupmtr");
11449 LAPACK_IMPL(cupmtr)(SIDE,
11450 UPLO,
11451 TRANS,
11452 M,
11453 N,
11454 AP,
11455 TAU,
11456 C,
11457 LDC,
11458 WORK,
11459 INFO);
11460 }
11461
11462 //-- dbbcsd --------------------------------------------------------------------
11463 void
LAPACK_DECL(dbbcsd)11464 LAPACK_DECL(dbbcsd)(const char *JOBU1,
11465 const char *JOBU2,
11466 const char *JOBV1T,
11467 const char *JOBV2T,
11468 const char *TRANS,
11469 const INTEGER *M,
11470 const INTEGER *P,
11471 const INTEGER *Q,
11472 DOUBLE *THETA,
11473 DOUBLE *PHI,
11474 DOUBLE *U1,
11475 const INTEGER *LDU1,
11476 DOUBLE *U2,
11477 const INTEGER *LDU2,
11478 DOUBLE *V1T,
11479 const INTEGER *LDV1T,
11480 DOUBLE *V2T,
11481 const INTEGER *LDV2T,
11482 DOUBLE *B11D,
11483 DOUBLE *B11E,
11484 DOUBLE *B12D,
11485 DOUBLE *B12E,
11486 const DOUBLE *B21D,
11487 const DOUBLE *B21E,
11488 const DOUBLE *B22D,
11489 const DOUBLE *B22E,
11490 DOUBLE *WORK,
11491 const INTEGER *LWORK,
11492 INTEGER *INFO)
11493 {
11494 DEBUG_LAPACK_STUB("dbbcsd");
11495 LAPACK_IMPL(dbbcsd)(JOBU1,
11496 JOBU2,
11497 JOBV1T,
11498 JOBV2T,
11499 TRANS,
11500 M,
11501 P,
11502 Q,
11503 THETA,
11504 PHI,
11505 U1,
11506 LDU1,
11507 U2,
11508 LDU2,
11509 V1T,
11510 LDV1T,
11511 V2T,
11512 LDV2T,
11513 B11D,
11514 B11E,
11515 B12D,
11516 B12E,
11517 B21D,
11518 B21E,
11519 B22D,
11520 B22E,
11521 WORK,
11522 LWORK,
11523 INFO);
11524 }
11525
11526 //-- dbdsdc --------------------------------------------------------------------
11527 void
LAPACK_DECL(dbdsdc)11528 LAPACK_DECL(dbdsdc)(const char *UPLO,
11529 const char *COMPQ,
11530 const INTEGER *N,
11531 DOUBLE *D,
11532 DOUBLE *E,
11533 DOUBLE *U,
11534 const INTEGER *LDU,
11535 DOUBLE *VT,
11536 const INTEGER *LDVT,
11537 DOUBLE *Q,
11538 INTEGER *IQ,
11539 DOUBLE *WORK,
11540 INTEGER *IWORK,
11541 INTEGER *INFO)
11542 {
11543 DEBUG_LAPACK_STUB("dbdsdc");
11544 LAPACK_IMPL(dbdsdc)(UPLO,
11545 COMPQ,
11546 N,
11547 D,
11548 E,
11549 U,
11550 LDU,
11551 VT,
11552 LDVT,
11553 Q,
11554 IQ,
11555 WORK,
11556 IWORK,
11557 INFO);
11558 }
11559
11560 //-- dbdsqr --------------------------------------------------------------------
11561 void
LAPACK_DECL(dbdsqr)11562 LAPACK_DECL(dbdsqr)(const char *UPLO,
11563 const INTEGER *N,
11564 const INTEGER *NCVT,
11565 const INTEGER *NRU,
11566 const INTEGER *NCC,
11567 DOUBLE *D,
11568 DOUBLE *E,
11569 DOUBLE *VT,
11570 const INTEGER *LDVT,
11571 DOUBLE *U,
11572 const INTEGER *LDU,
11573 DOUBLE *C,
11574 const INTEGER *LDC,
11575 DOUBLE *WORK,
11576 INTEGER *INFO)
11577 {
11578 DEBUG_LAPACK_STUB("dbdsqr");
11579 LAPACK_IMPL(dbdsqr)(UPLO,
11580 N,
11581 NCVT,
11582 NRU,
11583 NCC,
11584 D,
11585 E,
11586 VT,
11587 LDVT,
11588 U,
11589 LDU,
11590 C,
11591 LDC,
11592 WORK,
11593 INFO);
11594 }
11595
11596 //-- ddisna --------------------------------------------------------------------
11597 void
LAPACK_DECL(ddisna)11598 LAPACK_DECL(ddisna)(const char *JOB,
11599 const INTEGER *M,
11600 const INTEGER *N,
11601 const DOUBLE *D,
11602 DOUBLE *SEP,
11603 INTEGER *INFO)
11604 {
11605 DEBUG_LAPACK_STUB("ddisna");
11606 LAPACK_IMPL(ddisna)(JOB,
11607 M,
11608 N,
11609 D,
11610 SEP,
11611 INFO);
11612 }
11613
11614 //-- dgbbrd --------------------------------------------------------------------
11615 void
LAPACK_DECL(dgbbrd)11616 LAPACK_DECL(dgbbrd)(const char *VECT,
11617 const INTEGER *M,
11618 const INTEGER *N,
11619 const INTEGER *NCC,
11620 const INTEGER *KL,
11621 const INTEGER *KU,
11622 DOUBLE *AB,
11623 const INTEGER *LDAB,
11624 DOUBLE *D,
11625 DOUBLE *E,
11626 DOUBLE *Q,
11627 const INTEGER *LDQ,
11628 DOUBLE *PT,
11629 const INTEGER *LDPT,
11630 DOUBLE *C,
11631 const INTEGER *LDC,
11632 DOUBLE *WORK,
11633 INTEGER *INFO)
11634 {
11635 DEBUG_LAPACK_STUB("dgbbrd");
11636 LAPACK_IMPL(dgbbrd)(VECT,
11637 M,
11638 N,
11639 NCC,
11640 KL,
11641 KU,
11642 AB,
11643 LDAB,
11644 D,
11645 E,
11646 Q,
11647 LDQ,
11648 PT,
11649 LDPT,
11650 C,
11651 LDC,
11652 WORK,
11653 INFO);
11654 }
11655
11656 //-- dgbcon --------------------------------------------------------------------
11657 void
LAPACK_DECL(dgbcon)11658 LAPACK_DECL(dgbcon)(const char *NORM,
11659 const INTEGER *N,
11660 const INTEGER *KL,
11661 const INTEGER *KU,
11662 const DOUBLE *AB,
11663 const INTEGER *LDAB,
11664 const INTEGER *IPIV,
11665 const DOUBLE *ANORM,
11666 DOUBLE *RCOND,
11667 DOUBLE *WORK,
11668 INTEGER *IWORK,
11669 INTEGER *INFO)
11670 {
11671 DEBUG_LAPACK_STUB("dgbcon");
11672 LAPACK_IMPL(dgbcon)(NORM,
11673 N,
11674 KL,
11675 KU,
11676 AB,
11677 LDAB,
11678 IPIV,
11679 ANORM,
11680 RCOND,
11681 WORK,
11682 IWORK,
11683 INFO);
11684 }
11685
11686 //-- dgbequ --------------------------------------------------------------------
11687 void
LAPACK_DECL(dgbequ)11688 LAPACK_DECL(dgbequ)(const INTEGER *M,
11689 const INTEGER *N,
11690 const INTEGER *KL,
11691 const INTEGER *KU,
11692 const DOUBLE *AB,
11693 const INTEGER *LDAB,
11694 DOUBLE *R,
11695 DOUBLE *C,
11696 DOUBLE *ROWCND,
11697 DOUBLE *COLCND,
11698 DOUBLE *AMAX,
11699 INTEGER *INFO)
11700 {
11701 DEBUG_LAPACK_STUB("dgbequ");
11702 LAPACK_IMPL(dgbequ)(M,
11703 N,
11704 KL,
11705 KU,
11706 AB,
11707 LDAB,
11708 R,
11709 C,
11710 ROWCND,
11711 COLCND,
11712 AMAX,
11713 INFO);
11714 }
11715
11716 //-- dgbequb -------------------------------------------------------------------
11717 void
LAPACK_DECL(dgbequb)11718 LAPACK_DECL(dgbequb)(const INTEGER *M,
11719 const INTEGER *N,
11720 const INTEGER *KL,
11721 const INTEGER *KU,
11722 const DOUBLE *AB,
11723 const INTEGER *LDAB,
11724 DOUBLE *R,
11725 DOUBLE *C,
11726 DOUBLE *ROWCND,
11727 DOUBLE *COLCND,
11728 DOUBLE *AMAX,
11729 INTEGER *INFO)
11730 {
11731 DEBUG_LAPACK_STUB("dgbequb");
11732 LAPACK_IMPL(dgbequb)(M,
11733 N,
11734 KL,
11735 KU,
11736 AB,
11737 LDAB,
11738 R,
11739 C,
11740 ROWCND,
11741 COLCND,
11742 AMAX,
11743 INFO);
11744 }
11745
11746 //-- dgbrfs --------------------------------------------------------------------
11747 void
LAPACK_DECL(dgbrfs)11748 LAPACK_DECL(dgbrfs)(const char *TRANS,
11749 const INTEGER *N,
11750 const INTEGER *KL,
11751 const INTEGER *KU,
11752 const INTEGER *NRHS,
11753 const DOUBLE *AB,
11754 const INTEGER *LDAB,
11755 const DOUBLE *AFB,
11756 const INTEGER *LDAFB,
11757 const INTEGER *IPIV,
11758 const DOUBLE *B,
11759 const INTEGER *LDB,
11760 DOUBLE *X,
11761 const INTEGER *LDX,
11762 DOUBLE *FERR,
11763 DOUBLE *BERR,
11764 DOUBLE *WORK,
11765 INTEGER *IWORK,
11766 INTEGER *INFO)
11767 {
11768 DEBUG_LAPACK_STUB("dgbrfs");
11769 LAPACK_IMPL(dgbrfs)(TRANS,
11770 N,
11771 KL,
11772 KU,
11773 NRHS,
11774 AB,
11775 LDAB,
11776 AFB,
11777 LDAFB,
11778 IPIV,
11779 B,
11780 LDB,
11781 X,
11782 LDX,
11783 FERR,
11784 BERR,
11785 WORK,
11786 IWORK,
11787 INFO);
11788 }
11789
11790 //-- dgbrfsx -------------------------------------------------------------------
11791 void
LAPACK_DECL(dgbrfsx)11792 LAPACK_DECL(dgbrfsx)(const char *TRANS,
11793 const char *EQUED,
11794 const INTEGER *N,
11795 const INTEGER *KL,
11796 const INTEGER *KU,
11797 const INTEGER *NRHS,
11798 const DOUBLE *AB,
11799 const INTEGER *LDAB,
11800 const DOUBLE *AFB,
11801 const INTEGER *LDAFB,
11802 const INTEGER *IPIV,
11803 DOUBLE *R,
11804 DOUBLE *C,
11805 const DOUBLE *B,
11806 const INTEGER *LDB,
11807 DOUBLE *X,
11808 const INTEGER *LDX,
11809 DOUBLE *RCOND,
11810 DOUBLE *BERR,
11811 const INTEGER *N_ERR_BNDS,
11812 DOUBLE *ERR_BNDS_NORM,
11813 DOUBLE *ERR_BNDS_COMP,
11814 const INTEGER *NPARAMS,
11815 DOUBLE *PARAMS,
11816 DOUBLE *WORK,
11817 INTEGER *IWORK,
11818 INTEGER *INFO)
11819 {
11820 DEBUG_LAPACK_STUB("dgbrfsx");
11821 LAPACK_IMPL(dgbrfsx)(TRANS,
11822 EQUED,
11823 N,
11824 KL,
11825 KU,
11826 NRHS,
11827 AB,
11828 LDAB,
11829 AFB,
11830 LDAFB,
11831 IPIV,
11832 R,
11833 C,
11834 B,
11835 LDB,
11836 X,
11837 LDX,
11838 RCOND,
11839 BERR,
11840 N_ERR_BNDS,
11841 ERR_BNDS_NORM,
11842 ERR_BNDS_COMP,
11843 NPARAMS,
11844 PARAMS,
11845 WORK,
11846 IWORK,
11847 INFO);
11848 }
11849
11850 //-- dgbsv ---------------------------------------------------------------------
11851 void
LAPACK_DECL(dgbsv)11852 LAPACK_DECL(dgbsv)(const INTEGER *N,
11853 const INTEGER *KL,
11854 const INTEGER *KU,
11855 const INTEGER *NRHS,
11856 DOUBLE *AB,
11857 const INTEGER *LDAB,
11858 INTEGER *IPIV,
11859 DOUBLE *B,
11860 const INTEGER *LDB,
11861 INTEGER *INFO)
11862 {
11863 DEBUG_LAPACK_STUB("dgbsv");
11864 LAPACK_IMPL(dgbsv)(N,
11865 KL,
11866 KU,
11867 NRHS,
11868 AB,
11869 LDAB,
11870 IPIV,
11871 B,
11872 LDB,
11873 INFO);
11874 }
11875
11876 //-- dgbsvx --------------------------------------------------------------------
11877 void
LAPACK_DECL(dgbsvx)11878 LAPACK_DECL(dgbsvx)(const char *FACT,
11879 const char *TRANS,
11880 const INTEGER *N,
11881 const INTEGER *KL,
11882 const INTEGER *KU,
11883 const INTEGER *NRHS,
11884 DOUBLE *AB,
11885 const INTEGER *LDAB,
11886 DOUBLE *AFB,
11887 const INTEGER *LDAFB,
11888 INTEGER *IPIV,
11889 char *EQUED,
11890 DOUBLE *R,
11891 DOUBLE *C,
11892 DOUBLE *B,
11893 const INTEGER *LDB,
11894 DOUBLE *X,
11895 const INTEGER *LDX,
11896 DOUBLE *RCOND,
11897 DOUBLE *FERR,
11898 DOUBLE *BERR,
11899 DOUBLE *WORK,
11900 INTEGER *IWORK,
11901 INTEGER *INFO)
11902 {
11903 DEBUG_LAPACK_STUB("dgbsvx");
11904 LAPACK_IMPL(dgbsvx)(FACT,
11905 TRANS,
11906 N,
11907 KL,
11908 KU,
11909 NRHS,
11910 AB,
11911 LDAB,
11912 AFB,
11913 LDAFB,
11914 IPIV,
11915 EQUED,
11916 R,
11917 C,
11918 B,
11919 LDB,
11920 X,
11921 LDX,
11922 RCOND,
11923 FERR,
11924 BERR,
11925 WORK,
11926 IWORK,
11927 INFO);
11928 }
11929
11930 //-- dgbsvxx -------------------------------------------------------------------
11931 void
LAPACK_DECL(dgbsvxx)11932 LAPACK_DECL(dgbsvxx)(const char *FACT,
11933 const char *TRANS,
11934 const INTEGER *N,
11935 const INTEGER *KL,
11936 const INTEGER *KU,
11937 const INTEGER *NRHS,
11938 DOUBLE *AB,
11939 const INTEGER *LDAB,
11940 DOUBLE *AFB,
11941 const INTEGER *LDAFB,
11942 INTEGER *IPIV,
11943 char *EQUED,
11944 DOUBLE *R,
11945 DOUBLE *C,
11946 DOUBLE *B,
11947 const INTEGER *LDB,
11948 DOUBLE *X,
11949 const INTEGER *LDX,
11950 DOUBLE *RCOND,
11951 DOUBLE *RPVGRW,
11952 DOUBLE *BERR,
11953 const INTEGER *N_ERR_BNDS,
11954 DOUBLE *ERR_BNDS_NORM,
11955 DOUBLE *ERR_BNDS_COMP,
11956 const INTEGER *NPARAMS,
11957 DOUBLE *PARAMS,
11958 DOUBLE *WORK,
11959 INTEGER *IWORK,
11960 INTEGER *INFO)
11961 {
11962 DEBUG_LAPACK_STUB("dgbsvxx");
11963 LAPACK_IMPL(dgbsvxx)(FACT,
11964 TRANS,
11965 N,
11966 KL,
11967 KU,
11968 NRHS,
11969 AB,
11970 LDAB,
11971 AFB,
11972 LDAFB,
11973 IPIV,
11974 EQUED,
11975 R,
11976 C,
11977 B,
11978 LDB,
11979 X,
11980 LDX,
11981 RCOND,
11982 RPVGRW,
11983 BERR,
11984 N_ERR_BNDS,
11985 ERR_BNDS_NORM,
11986 ERR_BNDS_COMP,
11987 NPARAMS,
11988 PARAMS,
11989 WORK,
11990 IWORK,
11991 INFO);
11992 }
11993
11994 //-- dgbtf2 --------------------------------------------------------------------
11995 void
LAPACK_DECL(dgbtf2)11996 LAPACK_DECL(dgbtf2)(const INTEGER *M,
11997 const INTEGER *N,
11998 const INTEGER *KL,
11999 const INTEGER *KU,
12000 DOUBLE *AB,
12001 const INTEGER *LDAB,
12002 INTEGER *IPIV,
12003 INTEGER *INFO)
12004 {
12005 DEBUG_LAPACK_STUB("dgbtf2");
12006 LAPACK_IMPL(dgbtf2)(M,
12007 N,
12008 KL,
12009 KU,
12010 AB,
12011 LDAB,
12012 IPIV,
12013 INFO);
12014 }
12015
12016 //-- dgbtrf --------------------------------------------------------------------
12017 void
LAPACK_DECL(dgbtrf)12018 LAPACK_DECL(dgbtrf)(const INTEGER *M,
12019 const INTEGER *N,
12020 const INTEGER *KL,
12021 const INTEGER *KU,
12022 DOUBLE *AB,
12023 const INTEGER *LDAB,
12024 INTEGER *IPIV,
12025 INTEGER *INFO)
12026 {
12027 DEBUG_LAPACK_STUB("dgbtrf");
12028 LAPACK_IMPL(dgbtrf)(M,
12029 N,
12030 KL,
12031 KU,
12032 AB,
12033 LDAB,
12034 IPIV,
12035 INFO);
12036 }
12037
12038 //-- dgbtrs --------------------------------------------------------------------
12039 void
LAPACK_DECL(dgbtrs)12040 LAPACK_DECL(dgbtrs)(const char *TRANS,
12041 const INTEGER *N,
12042 const INTEGER *KL,
12043 const INTEGER *KU,
12044 const INTEGER *NRHS,
12045 const DOUBLE *AB,
12046 const INTEGER *LDAB,
12047 const INTEGER *IPIV,
12048 DOUBLE *B,
12049 const INTEGER *LDB,
12050 INTEGER *INFO)
12051 {
12052 DEBUG_LAPACK_STUB("dgbtrs");
12053 LAPACK_IMPL(dgbtrs)(TRANS,
12054 N,
12055 KL,
12056 KU,
12057 NRHS,
12058 AB,
12059 LDAB,
12060 IPIV,
12061 B,
12062 LDB,
12063 INFO);
12064 }
12065
12066 //-- dgebak --------------------------------------------------------------------
12067 void
LAPACK_DECL(dgebak)12068 LAPACK_DECL(dgebak)(const char *JOB,
12069 const char *SIDE,
12070 const INTEGER *N,
12071 const INTEGER *ILO,
12072 const INTEGER *IHI,
12073 const DOUBLE *SCALE,
12074 const INTEGER *M,
12075 DOUBLE *V,
12076 const INTEGER *LDV,
12077 INTEGER *INFO)
12078 {
12079 DEBUG_LAPACK_STUB("dgebak");
12080 LAPACK_IMPL(dgebak)(JOB,
12081 SIDE,
12082 N,
12083 ILO,
12084 IHI,
12085 SCALE,
12086 M,
12087 V,
12088 LDV,
12089 INFO);
12090 }
12091
12092 //-- dgebal --------------------------------------------------------------------
12093 void
LAPACK_DECL(dgebal)12094 LAPACK_DECL(dgebal)(const char *JOB,
12095 const INTEGER *N,
12096 DOUBLE *A,
12097 const INTEGER *LDA,
12098 INTEGER *ILO,
12099 INTEGER *IHI,
12100 DOUBLE *SCALE,
12101 INTEGER *INFO)
12102 {
12103 DEBUG_LAPACK_STUB("dgebal");
12104 LAPACK_IMPL(dgebal)(JOB,
12105 N,
12106 A,
12107 LDA,
12108 ILO,
12109 IHI,
12110 SCALE,
12111 INFO);
12112 }
12113
12114 //-- dgebd2 --------------------------------------------------------------------
12115 void
LAPACK_DECL(dgebd2)12116 LAPACK_DECL(dgebd2)(const INTEGER *M,
12117 const INTEGER *N,
12118 DOUBLE *A,
12119 const INTEGER *LDA,
12120 DOUBLE *D,
12121 DOUBLE *E,
12122 DOUBLE *TAUQ,
12123 DOUBLE *TAUP,
12124 DOUBLE *WORK,
12125 INTEGER *INFO)
12126 {
12127 DEBUG_LAPACK_STUB("dgebd2");
12128 LAPACK_IMPL(dgebd2)(M,
12129 N,
12130 A,
12131 LDA,
12132 D,
12133 E,
12134 TAUQ,
12135 TAUP,
12136 WORK,
12137 INFO);
12138 }
12139
12140 //-- dgebrd --------------------------------------------------------------------
12141 void
LAPACK_DECL(dgebrd)12142 LAPACK_DECL(dgebrd)(const INTEGER *M,
12143 const INTEGER *N,
12144 DOUBLE *A,
12145 const INTEGER *LDA,
12146 DOUBLE *D,
12147 DOUBLE *E,
12148 DOUBLE *TAUQ,
12149 DOUBLE *TAUP,
12150 DOUBLE *WORK,
12151 const INTEGER *LWORK,
12152 INTEGER *INFO)
12153 {
12154 DEBUG_LAPACK_STUB("dgebrd");
12155 LAPACK_IMPL(dgebrd)(M,
12156 N,
12157 A,
12158 LDA,
12159 D,
12160 E,
12161 TAUQ,
12162 TAUP,
12163 WORK,
12164 LWORK,
12165 INFO);
12166 }
12167
12168 //-- dgecon --------------------------------------------------------------------
12169 void
LAPACK_DECL(dgecon)12170 LAPACK_DECL(dgecon)(const char *NORM,
12171 const INTEGER *N,
12172 const DOUBLE *A,
12173 const INTEGER *LDA,
12174 const DOUBLE *ANORM,
12175 DOUBLE *RCOND,
12176 DOUBLE *WORK,
12177 INTEGER *IWORK,
12178 INTEGER *INFO)
12179 {
12180 DEBUG_LAPACK_STUB("dgecon");
12181 LAPACK_IMPL(dgecon)(NORM,
12182 N,
12183 A,
12184 LDA,
12185 ANORM,
12186 RCOND,
12187 WORK,
12188 IWORK,
12189 INFO);
12190 }
12191
12192 //-- dgeequ --------------------------------------------------------------------
12193 void
LAPACK_DECL(dgeequ)12194 LAPACK_DECL(dgeequ)(const INTEGER *M,
12195 const INTEGER *N,
12196 const DOUBLE *A,
12197 const INTEGER *LDA,
12198 DOUBLE *R,
12199 DOUBLE *C,
12200 DOUBLE *ROWCND,
12201 DOUBLE *COLCND,
12202 DOUBLE *AMAX,
12203 INTEGER *INFO)
12204 {
12205 DEBUG_LAPACK_STUB("dgeequ");
12206 LAPACK_IMPL(dgeequ)(M,
12207 N,
12208 A,
12209 LDA,
12210 R,
12211 C,
12212 ROWCND,
12213 COLCND,
12214 AMAX,
12215 INFO);
12216 }
12217
12218 //-- dgeequb -------------------------------------------------------------------
12219 void
LAPACK_DECL(dgeequb)12220 LAPACK_DECL(dgeequb)(const INTEGER *M,
12221 const INTEGER *N,
12222 const DOUBLE *A,
12223 const INTEGER *LDA,
12224 DOUBLE *R,
12225 DOUBLE *C,
12226 DOUBLE *ROWCND,
12227 DOUBLE *COLCND,
12228 DOUBLE *AMAX,
12229 INTEGER *INFO)
12230 {
12231 DEBUG_LAPACK_STUB("dgeequb");
12232 LAPACK_IMPL(dgeequb)(M,
12233 N,
12234 A,
12235 LDA,
12236 R,
12237 C,
12238 ROWCND,
12239 COLCND,
12240 AMAX,
12241 INFO);
12242 }
12243
12244 //-- dgees ---------------------------------------------------------------------
12245 void
LAPACK_DECL(dgees)12246 LAPACK_DECL(dgees)(const char *JOBVS,
12247 const char *SORT,
12248 const LOGICAL *SELECT,
12249 const INTEGER *N,
12250 DOUBLE *A,
12251 const INTEGER *LDA,
12252 INTEGER *SDIM,
12253 DOUBLE *WR,
12254 DOUBLE *WI,
12255 DOUBLE *VS,
12256 const INTEGER *LDVS,
12257 DOUBLE *WORK,
12258 const INTEGER *LWORK,
12259 LOGICAL *BWORK,
12260 INTEGER *INFO)
12261 {
12262 DEBUG_LAPACK_STUB("dgees");
12263 LAPACK_IMPL(dgees)(JOBVS,
12264 SORT,
12265 SELECT,
12266 N,
12267 A,
12268 LDA,
12269 SDIM,
12270 WR,
12271 WI,
12272 VS,
12273 LDVS,
12274 WORK,
12275 LWORK,
12276 BWORK,
12277 INFO);
12278 }
12279
12280 //-- dgeesx --------------------------------------------------------------------
12281 void
LAPACK_DECL(dgeesx)12282 LAPACK_DECL(dgeesx)(const char *JOBVS,
12283 const char *SORT,
12284 const LOGICAL *SELECT,
12285 const char *SENSE,
12286 const INTEGER *N,
12287 DOUBLE *A,
12288 const INTEGER *LDA,
12289 INTEGER *SDIM,
12290 DOUBLE *WR,
12291 DOUBLE *WI,
12292 DOUBLE *VS,
12293 const INTEGER *LDVS,
12294 DOUBLE *RCONDE,
12295 DOUBLE *RCONDV,
12296 DOUBLE *WORK,
12297 const INTEGER *LWORK,
12298 INTEGER *IWORK,
12299 const INTEGER *LIWORK,
12300 LOGICAL *BWORK,
12301 INTEGER *INFO)
12302 {
12303 DEBUG_LAPACK_STUB("dgeesx");
12304 LAPACK_IMPL(dgeesx)(JOBVS,
12305 SORT,
12306 SELECT,
12307 SENSE,
12308 N,
12309 A,
12310 LDA,
12311 SDIM,
12312 WR,
12313 WI,
12314 VS,
12315 LDVS,
12316 RCONDE,
12317 RCONDV,
12318 WORK,
12319 LWORK,
12320 IWORK,
12321 LIWORK,
12322 BWORK,
12323 INFO);
12324 }
12325
12326 //-- dgeev ---------------------------------------------------------------------
12327 void
LAPACK_DECL(dgeev)12328 LAPACK_DECL(dgeev)(const char *JOBVL,
12329 const char *JOBVR,
12330 const INTEGER *N,
12331 DOUBLE *A,
12332 const INTEGER *LDA,
12333 DOUBLE *WR,
12334 DOUBLE *WI,
12335 DOUBLE *VL,
12336 const INTEGER *LDVL,
12337 DOUBLE *VR,
12338 const INTEGER *LDVR,
12339 DOUBLE *WORK,
12340 const INTEGER *LWORK,
12341 INTEGER *INFO)
12342 {
12343 DEBUG_LAPACK_STUB("dgeev");
12344 LAPACK_IMPL(dgeev)(JOBVL,
12345 JOBVR,
12346 N,
12347 A,
12348 LDA,
12349 WR,
12350 WI,
12351 VL,
12352 LDVL,
12353 VR,
12354 LDVR,
12355 WORK,
12356 LWORK,
12357 INFO);
12358 }
12359
12360 //-- dgeevx --------------------------------------------------------------------
12361 void
LAPACK_DECL(dgeevx)12362 LAPACK_DECL(dgeevx)(const char *BALANC,
12363 const char *JOBVL,
12364 const char *JOBVR,
12365 const char *SENSE,
12366 const INTEGER *N,
12367 DOUBLE *A,
12368 const INTEGER *LDA,
12369 DOUBLE *WR,
12370 DOUBLE *WI,
12371 DOUBLE *VL,
12372 const INTEGER *LDVL,
12373 DOUBLE *VR,
12374 const INTEGER *LDVR,
12375 INTEGER *ILO,
12376 INTEGER *IHI,
12377 DOUBLE *SCALE,
12378 DOUBLE *ABNRM,
12379 DOUBLE *RCONDE,
12380 DOUBLE *RCONDV,
12381 DOUBLE *WORK,
12382 const INTEGER *LWORK,
12383 INTEGER *IWORK,
12384 INTEGER *INFO)
12385 {
12386 DEBUG_LAPACK_STUB("dgeevx");
12387 LAPACK_IMPL(dgeevx)(BALANC,
12388 JOBVL,
12389 JOBVR,
12390 SENSE,
12391 N,
12392 A,
12393 LDA,
12394 WR,
12395 WI,
12396 VL,
12397 LDVL,
12398 VR,
12399 LDVR,
12400 ILO,
12401 IHI,
12402 SCALE,
12403 ABNRM,
12404 RCONDE,
12405 RCONDV,
12406 WORK,
12407 LWORK,
12408 IWORK,
12409 INFO);
12410 }
12411
12412 //-- dgegs ---------------------------------------------------------------------
12413 void
LAPACK_DECL(dgegs)12414 LAPACK_DECL(dgegs)(const char *JOBVSL,
12415 const char *JOBVSR,
12416 const INTEGER *N,
12417 DOUBLE *A,
12418 const INTEGER *LDA,
12419 DOUBLE *B,
12420 const INTEGER *LDB,
12421 DOUBLE *ALPHAR,
12422 DOUBLE *ALPHAI,
12423 DOUBLE *BETA,
12424 DOUBLE *VSL,
12425 const INTEGER *LDVSL,
12426 DOUBLE *VSR,
12427 const INTEGER *LDVSR,
12428 DOUBLE *WORK,
12429 const INTEGER *LWORK,
12430 INTEGER *INFO)
12431 {
12432 DEBUG_LAPACK_STUB("dgegs");
12433 LAPACK_IMPL(dgegs)(JOBVSL,
12434 JOBVSR,
12435 N,
12436 A,
12437 LDA,
12438 B,
12439 LDB,
12440 ALPHAR,
12441 ALPHAI,
12442 BETA,
12443 VSL,
12444 LDVSL,
12445 VSR,
12446 LDVSR,
12447 WORK,
12448 LWORK,
12449 INFO);
12450 }
12451
12452 //-- dgegv ---------------------------------------------------------------------
12453 void
LAPACK_DECL(dgegv)12454 LAPACK_DECL(dgegv)(const char *JOBVL,
12455 const char *JOBVR,
12456 const INTEGER *N,
12457 DOUBLE *A,
12458 const INTEGER *LDA,
12459 DOUBLE *B,
12460 const INTEGER *LDB,
12461 DOUBLE *ALPHAR,
12462 DOUBLE *ALPHAI,
12463 DOUBLE *BETA,
12464 DOUBLE *VL,
12465 const INTEGER *LDVL,
12466 DOUBLE *VR,
12467 const INTEGER *LDVR,
12468 DOUBLE *WORK,
12469 const INTEGER *LWORK,
12470 INTEGER *INFO)
12471 {
12472 DEBUG_LAPACK_STUB("dgegv");
12473 LAPACK_IMPL(dgegv)(JOBVL,
12474 JOBVR,
12475 N,
12476 A,
12477 LDA,
12478 B,
12479 LDB,
12480 ALPHAR,
12481 ALPHAI,
12482 BETA,
12483 VL,
12484 LDVL,
12485 VR,
12486 LDVR,
12487 WORK,
12488 LWORK,
12489 INFO);
12490 }
12491
12492 //-- dgehd2 --------------------------------------------------------------------
12493 void
LAPACK_DECL(dgehd2)12494 LAPACK_DECL(dgehd2)(const INTEGER *N,
12495 const INTEGER *ILO,
12496 const INTEGER *IHI,
12497 DOUBLE *A,
12498 const INTEGER *LDA,
12499 DOUBLE *TAU,
12500 DOUBLE *WORK,
12501 INTEGER *INFO)
12502 {
12503 DEBUG_LAPACK_STUB("dgehd2");
12504 LAPACK_IMPL(dgehd2)(N,
12505 ILO,
12506 IHI,
12507 A,
12508 LDA,
12509 TAU,
12510 WORK,
12511 INFO);
12512 }
12513
12514 //-- dgehrd --------------------------------------------------------------------
12515 void
LAPACK_DECL(dgehrd)12516 LAPACK_DECL(dgehrd)(const INTEGER *N,
12517 const INTEGER *ILO,
12518 const INTEGER *IHI,
12519 DOUBLE *A,
12520 const INTEGER *LDA,
12521 DOUBLE *TAU,
12522 DOUBLE *WORK,
12523 const INTEGER *LWORK,
12524 INTEGER *INFO)
12525 {
12526 DEBUG_LAPACK_STUB("dgehrd");
12527 LAPACK_IMPL(dgehrd)(N,
12528 ILO,
12529 IHI,
12530 A,
12531 LDA,
12532 TAU,
12533 WORK,
12534 LWORK,
12535 INFO);
12536 }
12537
12538 //-- dgejsv --------------------------------------------------------------------
12539 void
LAPACK_DECL(dgejsv)12540 LAPACK_DECL(dgejsv)(const char *JOBA,
12541 const char *JOBU,
12542 const char *JOBV,
12543 const char *JOBR,
12544 const char *JOBT,
12545 const char *JOBP,
12546 const INTEGER *M,
12547 const INTEGER *N,
12548 DOUBLE *A,
12549 const INTEGER *LDA,
12550 DOUBLE *SVA,
12551 DOUBLE *U,
12552 const INTEGER *LDU,
12553 DOUBLE *V,
12554 const INTEGER *LDV,
12555 DOUBLE *WORK,
12556 const INTEGER *LWORK,
12557 INTEGER *IWORK,
12558 INTEGER *INFO)
12559 {
12560 DEBUG_LAPACK_STUB("dgejsv");
12561 LAPACK_IMPL(dgejsv)(JOBA,
12562 JOBU,
12563 JOBV,
12564 JOBR,
12565 JOBT,
12566 JOBP,
12567 M,
12568 N,
12569 A,
12570 LDA,
12571 SVA,
12572 U,
12573 LDU,
12574 V,
12575 LDV,
12576 WORK,
12577 LWORK,
12578 IWORK,
12579 INFO);
12580 }
12581
12582 //-- dgelq2 --------------------------------------------------------------------
12583 void
LAPACK_DECL(dgelq2)12584 LAPACK_DECL(dgelq2)(const INTEGER *M,
12585 const INTEGER *N,
12586 DOUBLE *A,
12587 const INTEGER *LDA,
12588 DOUBLE *TAU,
12589 DOUBLE *WORK,
12590 INTEGER *INFO)
12591 {
12592 DEBUG_LAPACK_STUB("dgelq2");
12593 LAPACK_IMPL(dgelq2)(M,
12594 N,
12595 A,
12596 LDA,
12597 TAU,
12598 WORK,
12599 INFO);
12600 }
12601
12602 //-- dgelqf --------------------------------------------------------------------
12603 void
LAPACK_DECL(dgelqf)12604 LAPACK_DECL(dgelqf)(const INTEGER *M,
12605 const INTEGER *N,
12606 DOUBLE *A,
12607 const INTEGER *LDA,
12608 DOUBLE *TAU,
12609 DOUBLE *WORK,
12610 const INTEGER *LWORK,
12611 INTEGER *INFO)
12612 {
12613 DEBUG_LAPACK_STUB("dgelqf");
12614 LAPACK_IMPL(dgelqf)(M,
12615 N,
12616 A,
12617 LDA,
12618 TAU,
12619 WORK,
12620 LWORK,
12621 INFO);
12622 }
12623
12624 //-- dgels ---------------------------------------------------------------------
12625 void
LAPACK_DECL(dgels)12626 LAPACK_DECL(dgels)(const char *TRANS,
12627 const INTEGER *M,
12628 const INTEGER *N,
12629 const INTEGER *NRHS,
12630 DOUBLE *A,
12631 const INTEGER *LDA,
12632 DOUBLE *B,
12633 const INTEGER *LDB,
12634 DOUBLE *WORK,
12635 const INTEGER *LWORK,
12636 INTEGER *INFO)
12637 {
12638 DEBUG_LAPACK_STUB("dgels");
12639 LAPACK_IMPL(dgels)(TRANS,
12640 M,
12641 N,
12642 NRHS,
12643 A,
12644 LDA,
12645 B,
12646 LDB,
12647 WORK,
12648 LWORK,
12649 INFO);
12650 }
12651
12652 //-- dgelsd --------------------------------------------------------------------
12653 void
LAPACK_DECL(dgelsd)12654 LAPACK_DECL(dgelsd)(const INTEGER *M,
12655 const INTEGER *N,
12656 const INTEGER *NRHS,
12657 const DOUBLE *A,
12658 const INTEGER *LDA,
12659 DOUBLE *B,
12660 const INTEGER *LDB,
12661 DOUBLE *S,
12662 const DOUBLE *RCOND,
12663 INTEGER *RANK,
12664 DOUBLE *WORK,
12665 const INTEGER *LWORK,
12666 INTEGER *IWORK,
12667 INTEGER *INFO)
12668 {
12669 DEBUG_LAPACK_STUB("dgelsd");
12670 LAPACK_IMPL(dgelsd)(M,
12671 N,
12672 NRHS,
12673 A,
12674 LDA,
12675 B,
12676 LDB,
12677 S,
12678 RCOND,
12679 RANK,
12680 WORK,
12681 LWORK,
12682 IWORK,
12683 INFO);
12684 }
12685
12686 //-- dgelss --------------------------------------------------------------------
12687 void
LAPACK_DECL(dgelss)12688 LAPACK_DECL(dgelss)(const INTEGER *M,
12689 const INTEGER *N,
12690 const INTEGER *NRHS,
12691 DOUBLE *A,
12692 const INTEGER *LDA,
12693 DOUBLE *B,
12694 const INTEGER *LDB,
12695 DOUBLE *S,
12696 const DOUBLE *RCOND,
12697 INTEGER *RANK,
12698 DOUBLE *WORK,
12699 const INTEGER *LWORK,
12700 INTEGER *INFO)
12701 {
12702 DEBUG_LAPACK_STUB("dgelss");
12703 LAPACK_IMPL(dgelss)(M,
12704 N,
12705 NRHS,
12706 A,
12707 LDA,
12708 B,
12709 LDB,
12710 S,
12711 RCOND,
12712 RANK,
12713 WORK,
12714 LWORK,
12715 INFO);
12716 }
12717
12718 //-- dgelsx --------------------------------------------------------------------
12719 void
LAPACK_DECL(dgelsx)12720 LAPACK_DECL(dgelsx)(const INTEGER *M,
12721 const INTEGER *N,
12722 const INTEGER *NRHS,
12723 DOUBLE *A,
12724 const INTEGER *LDA,
12725 DOUBLE *B,
12726 const INTEGER *LDB,
12727 INTEGER *JPVT,
12728 const DOUBLE *RCOND,
12729 INTEGER *RANK,
12730 DOUBLE *WORK,
12731 INTEGER *INFO)
12732 {
12733 DEBUG_LAPACK_STUB("dgelsx");
12734 LAPACK_IMPL(dgelsx)(M,
12735 N,
12736 NRHS,
12737 A,
12738 LDA,
12739 B,
12740 LDB,
12741 JPVT,
12742 RCOND,
12743 RANK,
12744 WORK,
12745 INFO);
12746 }
12747
12748 //-- dgelsy --------------------------------------------------------------------
12749 void
LAPACK_DECL(dgelsy)12750 LAPACK_DECL(dgelsy)(const INTEGER *M,
12751 const INTEGER *N,
12752 const INTEGER *NRHS,
12753 DOUBLE *A,
12754 const INTEGER *LDA,
12755 DOUBLE *B,
12756 const INTEGER *LDB,
12757 INTEGER *JPVT,
12758 const DOUBLE *RCOND,
12759 INTEGER *RANK,
12760 DOUBLE *WORK,
12761 const INTEGER *LWORK,
12762 INTEGER *INFO)
12763 {
12764 DEBUG_LAPACK_STUB("dgelsy");
12765 LAPACK_IMPL(dgelsy)(M,
12766 N,
12767 NRHS,
12768 A,
12769 LDA,
12770 B,
12771 LDB,
12772 JPVT,
12773 RCOND,
12774 RANK,
12775 WORK,
12776 LWORK,
12777 INFO);
12778 }
12779
12780 //-- dgeql2 --------------------------------------------------------------------
12781 void
LAPACK_DECL(dgeql2)12782 LAPACK_DECL(dgeql2)(const INTEGER *M,
12783 const INTEGER *N,
12784 DOUBLE *A,
12785 const INTEGER *LDA,
12786 DOUBLE *TAU,
12787 DOUBLE *WORK,
12788 INTEGER *INFO)
12789 {
12790 DEBUG_LAPACK_STUB("dgeql2");
12791 LAPACK_IMPL(dgeql2)(M,
12792 N,
12793 A,
12794 LDA,
12795 TAU,
12796 WORK,
12797 INFO);
12798 }
12799
12800 //-- dgeqlf --------------------------------------------------------------------
12801 void
LAPACK_DECL(dgeqlf)12802 LAPACK_DECL(dgeqlf)(const INTEGER *M,
12803 const INTEGER *N,
12804 DOUBLE *A,
12805 const INTEGER *LDA,
12806 DOUBLE *TAU,
12807 DOUBLE *WORK,
12808 const INTEGER *LWORK,
12809 INTEGER *INFO)
12810 {
12811 DEBUG_LAPACK_STUB("dgeqlf");
12812 LAPACK_IMPL(dgeqlf)(M,
12813 N,
12814 A,
12815 LDA,
12816 TAU,
12817 WORK,
12818 LWORK,
12819 INFO);
12820 }
12821
12822 //-- dgeqp3 --------------------------------------------------------------------
12823 void
LAPACK_DECL(dgeqp3)12824 LAPACK_DECL(dgeqp3)(const INTEGER *M,
12825 const INTEGER *N,
12826 DOUBLE *A,
12827 const INTEGER *LDA,
12828 INTEGER *JPVT,
12829 DOUBLE *TAU,
12830 DOUBLE *WORK,
12831 const INTEGER *LWORK,
12832 INTEGER *INFO)
12833 {
12834 DEBUG_LAPACK_STUB("dgeqp3");
12835 LAPACK_IMPL(dgeqp3)(M,
12836 N,
12837 A,
12838 LDA,
12839 JPVT,
12840 TAU,
12841 WORK,
12842 LWORK,
12843 INFO);
12844 }
12845
12846 //-- dgeqpf --------------------------------------------------------------------
12847 void
LAPACK_DECL(dgeqpf)12848 LAPACK_DECL(dgeqpf)(const INTEGER *M,
12849 const INTEGER *N,
12850 DOUBLE *A,
12851 const INTEGER *LDA,
12852 INTEGER *JPVT,
12853 DOUBLE *TAU,
12854 DOUBLE *WORK,
12855 INTEGER *INFO)
12856 {
12857 DEBUG_LAPACK_STUB("dgeqpf");
12858 LAPACK_IMPL(dgeqpf)(M,
12859 N,
12860 A,
12861 LDA,
12862 JPVT,
12863 TAU,
12864 WORK,
12865 INFO);
12866 }
12867
12868 //-- dgeqr2 --------------------------------------------------------------------
12869 void
LAPACK_DECL(dgeqr2)12870 LAPACK_DECL(dgeqr2)(const INTEGER *M,
12871 const INTEGER *N,
12872 DOUBLE *A,
12873 const INTEGER *LDA,
12874 DOUBLE *TAU,
12875 DOUBLE *WORK,
12876 INTEGER *INFO)
12877 {
12878 DEBUG_LAPACK_STUB("dgeqr2");
12879 LAPACK_IMPL(dgeqr2)(M,
12880 N,
12881 A,
12882 LDA,
12883 TAU,
12884 WORK,
12885 INFO);
12886 }
12887
12888 //-- dgeqr2p -------------------------------------------------------------------
12889 void
LAPACK_DECL(dgeqr2p)12890 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
12891 const INTEGER *N,
12892 DOUBLE *A,
12893 const INTEGER *LDA,
12894 DOUBLE *TAU,
12895 DOUBLE *WORK,
12896 INTEGER *INFO)
12897 {
12898 DEBUG_LAPACK_STUB("dgeqr2p");
12899 LAPACK_IMPL(dgeqr2p)(M,
12900 N,
12901 A,
12902 LDA,
12903 TAU,
12904 WORK,
12905 INFO);
12906 }
12907
12908 //-- dgeqrf --------------------------------------------------------------------
12909 void
LAPACK_DECL(dgeqrf)12910 LAPACK_DECL(dgeqrf)(const INTEGER *M,
12911 const INTEGER *N,
12912 DOUBLE *A,
12913 const INTEGER *LDA,
12914 DOUBLE *TAU,
12915 DOUBLE *WORK,
12916 const INTEGER *LWORK,
12917 INTEGER *INFO)
12918 {
12919 DEBUG_LAPACK_STUB("dgeqrf");
12920 LAPACK_IMPL(dgeqrf)(M,
12921 N,
12922 A,
12923 LDA,
12924 TAU,
12925 WORK,
12926 LWORK,
12927 INFO);
12928 }
12929
12930 //-- dgeqrfp -------------------------------------------------------------------
12931 void
LAPACK_DECL(dgeqrfp)12932 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
12933 const INTEGER *N,
12934 DOUBLE *A,
12935 const INTEGER *LDA,
12936 DOUBLE *TAU,
12937 DOUBLE *WORK,
12938 const INTEGER *LWORK,
12939 INTEGER *INFO)
12940 {
12941 DEBUG_LAPACK_STUB("dgeqrfp");
12942 LAPACK_IMPL(dgeqrfp)(M,
12943 N,
12944 A,
12945 LDA,
12946 TAU,
12947 WORK,
12948 LWORK,
12949 INFO);
12950 }
12951
12952 //-- dgerfs --------------------------------------------------------------------
12953 void
LAPACK_DECL(dgerfs)12954 LAPACK_DECL(dgerfs)(const char *TRANS,
12955 const INTEGER *N,
12956 const INTEGER *NRHS,
12957 const DOUBLE *A,
12958 const INTEGER *LDA,
12959 const DOUBLE *AF,
12960 const INTEGER *LDAF,
12961 const INTEGER *IPIV,
12962 const DOUBLE *B,
12963 const INTEGER *LDB,
12964 DOUBLE *X,
12965 const INTEGER *LDX,
12966 DOUBLE *FERR,
12967 DOUBLE *BERR,
12968 DOUBLE *WORK,
12969 INTEGER *IWORK,
12970 INTEGER *INFO)
12971 {
12972 DEBUG_LAPACK_STUB("dgerfs");
12973 LAPACK_IMPL(dgerfs)(TRANS,
12974 N,
12975 NRHS,
12976 A,
12977 LDA,
12978 AF,
12979 LDAF,
12980 IPIV,
12981 B,
12982 LDB,
12983 X,
12984 LDX,
12985 FERR,
12986 BERR,
12987 WORK,
12988 IWORK,
12989 INFO);
12990 }
12991
12992 //-- dgerfsx -------------------------------------------------------------------
12993 void
LAPACK_DECL(dgerfsx)12994 LAPACK_DECL(dgerfsx)(const char *TRANS,
12995 const char *EQUED,
12996 const INTEGER *N,
12997 const INTEGER *NRHS,
12998 const DOUBLE *A,
12999 const INTEGER *LDA,
13000 const DOUBLE *AF,
13001 const INTEGER *LDAF,
13002 const INTEGER *IPIV,
13003 const DOUBLE *R,
13004 const DOUBLE *C,
13005 const DOUBLE *B,
13006 const INTEGER *LDB,
13007 DOUBLE *X,
13008 const INTEGER *LDX,
13009 DOUBLE *RCOND,
13010 DOUBLE *BERR,
13011 const INTEGER *N_ERR_BNDS,
13012 DOUBLE *ERR_BNDS_NORM,
13013 DOUBLE *ERR_BNDS_COMP,
13014 const INTEGER *NPARAMS,
13015 DOUBLE *PARAMS,
13016 DOUBLE *WORK,
13017 INTEGER *IWORK,
13018 INTEGER *INFO)
13019 {
13020 DEBUG_LAPACK_STUB("dgerfsx");
13021 LAPACK_IMPL(dgerfsx)(TRANS,
13022 EQUED,
13023 N,
13024 NRHS,
13025 A,
13026 LDA,
13027 AF,
13028 LDAF,
13029 IPIV,
13030 R,
13031 C,
13032 B,
13033 LDB,
13034 X,
13035 LDX,
13036 RCOND,
13037 BERR,
13038 N_ERR_BNDS,
13039 ERR_BNDS_NORM,
13040 ERR_BNDS_COMP,
13041 NPARAMS,
13042 PARAMS,
13043 WORK,
13044 IWORK,
13045 INFO);
13046 }
13047
13048 //-- dgerq2 --------------------------------------------------------------------
13049 void
LAPACK_DECL(dgerq2)13050 LAPACK_DECL(dgerq2)(const INTEGER *M,
13051 const INTEGER *N,
13052 DOUBLE *A,
13053 const INTEGER *LDA,
13054 DOUBLE *TAU,
13055 DOUBLE *WORK,
13056 INTEGER *INFO)
13057 {
13058 DEBUG_LAPACK_STUB("dgerq2");
13059 LAPACK_IMPL(dgerq2)(M,
13060 N,
13061 A,
13062 LDA,
13063 TAU,
13064 WORK,
13065 INFO);
13066 }
13067
13068 //-- dgerqf --------------------------------------------------------------------
13069 void
LAPACK_DECL(dgerqf)13070 LAPACK_DECL(dgerqf)(const INTEGER *M,
13071 const INTEGER *N,
13072 DOUBLE *A,
13073 const INTEGER *LDA,
13074 DOUBLE *TAU,
13075 DOUBLE *WORK,
13076 const INTEGER *LWORK,
13077 INTEGER *INFO)
13078 {
13079 DEBUG_LAPACK_STUB("dgerqf");
13080 LAPACK_IMPL(dgerqf)(M,
13081 N,
13082 A,
13083 LDA,
13084 TAU,
13085 WORK,
13086 LWORK,
13087 INFO);
13088 }
13089
13090 //-- dgesc2 --------------------------------------------------------------------
13091 void
LAPACK_DECL(dgesc2)13092 LAPACK_DECL(dgesc2)(const INTEGER *N,
13093 const DOUBLE *A,
13094 const INTEGER *LDA,
13095 DOUBLE *RHS,
13096 const INTEGER *IPIV,
13097 const INTEGER *JPIV,
13098 DOUBLE *SCALE)
13099 {
13100 DEBUG_LAPACK_STUB("dgesc2");
13101 LAPACK_IMPL(dgesc2)(N,
13102 A,
13103 LDA,
13104 RHS,
13105 IPIV,
13106 JPIV,
13107 SCALE);
13108 }
13109
13110 //-- dgesdd --------------------------------------------------------------------
13111 void
LAPACK_DECL(dgesdd)13112 LAPACK_DECL(dgesdd)(const char *JOBZ,
13113 const INTEGER *M,
13114 const INTEGER *N,
13115 DOUBLE *A,
13116 const INTEGER *LDA,
13117 DOUBLE *S,
13118 DOUBLE *U,
13119 const INTEGER *LDU,
13120 DOUBLE *VT,
13121 const INTEGER *LDVT,
13122 DOUBLE *WORK,
13123 const INTEGER *LWORK,
13124 INTEGER *IWORK,
13125 INTEGER *INFO)
13126 {
13127 DEBUG_LAPACK_STUB("dgesdd");
13128 LAPACK_IMPL(dgesdd)(JOBZ,
13129 M,
13130 N,
13131 A,
13132 LDA,
13133 S,
13134 U,
13135 LDU,
13136 VT,
13137 LDVT,
13138 WORK,
13139 LWORK,
13140 IWORK,
13141 INFO);
13142 }
13143
13144 //-- dgesv ---------------------------------------------------------------------
13145 void
LAPACK_DECL(dgesv)13146 LAPACK_DECL(dgesv)(const INTEGER *N,
13147 const INTEGER *NRHS,
13148 DOUBLE *A,
13149 const INTEGER *LDA,
13150 INTEGER *IPIV,
13151 DOUBLE *B,
13152 const INTEGER *LDB,
13153 INTEGER *INFO)
13154 {
13155 DEBUG_LAPACK_STUB("dgesv");
13156 LAPACK_IMPL(dgesv)(N,
13157 NRHS,
13158 A,
13159 LDA,
13160 IPIV,
13161 B,
13162 LDB,
13163 INFO);
13164 }
13165
13166 //-- dgesvd --------------------------------------------------------------------
13167 void
LAPACK_DECL(dgesvd)13168 LAPACK_DECL(dgesvd)(const char *JOBU,
13169 const char *JOBVT,
13170 const INTEGER *M,
13171 const INTEGER *N,
13172 DOUBLE *A,
13173 const INTEGER *LDA,
13174 DOUBLE *S,
13175 DOUBLE *U,
13176 const INTEGER *LDU,
13177 DOUBLE *VT,
13178 const INTEGER *LDVT,
13179 DOUBLE *WORK,
13180 const INTEGER *LWORK,
13181 INTEGER *INFO)
13182 {
13183 DEBUG_LAPACK_STUB("dgesvd");
13184 LAPACK_IMPL(dgesvd)(JOBU,
13185 JOBVT,
13186 M,
13187 N,
13188 A,
13189 LDA,
13190 S,
13191 U,
13192 LDU,
13193 VT,
13194 LDVT,
13195 WORK,
13196 LWORK,
13197 INFO);
13198 }
13199
13200 //-- dgesvj --------------------------------------------------------------------
13201 void
LAPACK_DECL(dgesvj)13202 LAPACK_DECL(dgesvj)(const char *JOBA,
13203 const char *JOBU,
13204 const char *JOBV,
13205 const INTEGER *M,
13206 const INTEGER *N,
13207 DOUBLE *A,
13208 const INTEGER *LDA,
13209 DOUBLE *SVA,
13210 const INTEGER *MV,
13211 DOUBLE *V,
13212 const INTEGER *LDV,
13213 DOUBLE *WORK,
13214 const INTEGER *LWORK,
13215 INTEGER *INFO)
13216 {
13217 DEBUG_LAPACK_STUB("dgesvj");
13218 LAPACK_IMPL(dgesvj)(JOBA,
13219 JOBU,
13220 JOBV,
13221 M,
13222 N,
13223 A,
13224 LDA,
13225 SVA,
13226 MV,
13227 V,
13228 LDV,
13229 WORK,
13230 LWORK,
13231 INFO);
13232 }
13233
13234 //-- dgesvx --------------------------------------------------------------------
13235 void
LAPACK_DECL(dgesvx)13236 LAPACK_DECL(dgesvx)(const char *FACT,
13237 const char *TRANS,
13238 const INTEGER *N,
13239 const INTEGER *NRHS,
13240 DOUBLE *A,
13241 const INTEGER *LDA,
13242 DOUBLE *AF,
13243 const INTEGER *LDAF,
13244 INTEGER *IPIV,
13245 char *EQUED,
13246 DOUBLE *R,
13247 DOUBLE *C,
13248 DOUBLE *B,
13249 const INTEGER *LDB,
13250 DOUBLE *X,
13251 const INTEGER *LDX,
13252 DOUBLE *RCOND,
13253 DOUBLE *FERR,
13254 DOUBLE *BERR,
13255 DOUBLE *WORK,
13256 INTEGER *IWORK,
13257 INTEGER *INFO)
13258 {
13259 DEBUG_LAPACK_STUB("dgesvx");
13260 LAPACK_IMPL(dgesvx)(FACT,
13261 TRANS,
13262 N,
13263 NRHS,
13264 A,
13265 LDA,
13266 AF,
13267 LDAF,
13268 IPIV,
13269 EQUED,
13270 R,
13271 C,
13272 B,
13273 LDB,
13274 X,
13275 LDX,
13276 RCOND,
13277 FERR,
13278 BERR,
13279 WORK,
13280 IWORK,
13281 INFO);
13282 }
13283
13284 //-- dgesvxx -------------------------------------------------------------------
13285 void
LAPACK_DECL(dgesvxx)13286 LAPACK_DECL(dgesvxx)(const char *FACT,
13287 const char *TRANS,
13288 const INTEGER *N,
13289 const INTEGER *NRHS,
13290 DOUBLE *A,
13291 const INTEGER *LDA,
13292 DOUBLE *AF,
13293 const INTEGER *LDAF,
13294 INTEGER *IPIV,
13295 char *EQUED,
13296 DOUBLE *R,
13297 DOUBLE *C,
13298 DOUBLE *B,
13299 const INTEGER *LDB,
13300 DOUBLE *X,
13301 const INTEGER *LDX,
13302 DOUBLE *RCOND,
13303 DOUBLE *RPVGRW,
13304 DOUBLE *BERR,
13305 const INTEGER *N_ERR_BNDS,
13306 DOUBLE *ERR_BNDS_NORM,
13307 DOUBLE *ERR_BNDS_COMP,
13308 const INTEGER *NPARAMS,
13309 DOUBLE *PARAMS,
13310 DOUBLE *WORK,
13311 INTEGER *IWORK,
13312 INTEGER *INFO)
13313 {
13314 DEBUG_LAPACK_STUB("dgesvxx");
13315 LAPACK_IMPL(dgesvxx)(FACT,
13316 TRANS,
13317 N,
13318 NRHS,
13319 A,
13320 LDA,
13321 AF,
13322 LDAF,
13323 IPIV,
13324 EQUED,
13325 R,
13326 C,
13327 B,
13328 LDB,
13329 X,
13330 LDX,
13331 RCOND,
13332 RPVGRW,
13333 BERR,
13334 N_ERR_BNDS,
13335 ERR_BNDS_NORM,
13336 ERR_BNDS_COMP,
13337 NPARAMS,
13338 PARAMS,
13339 WORK,
13340 IWORK,
13341 INFO);
13342 }
13343
13344 //-- dgetc2 --------------------------------------------------------------------
13345 void
LAPACK_DECL(dgetc2)13346 LAPACK_DECL(dgetc2)(const INTEGER *N,
13347 DOUBLE *A,
13348 const INTEGER *LDA,
13349 INTEGER *IPIV,
13350 INTEGER *JPIV,
13351 INTEGER *INFO)
13352 {
13353 DEBUG_LAPACK_STUB("dgetc2");
13354 LAPACK_IMPL(dgetc2)(N,
13355 A,
13356 LDA,
13357 IPIV,
13358 JPIV,
13359 INFO);
13360 }
13361
13362 //-- dgetf2 --------------------------------------------------------------------
13363 void
LAPACK_DECL(dgetf2)13364 LAPACK_DECL(dgetf2)(const INTEGER *M,
13365 const INTEGER *N,
13366 DOUBLE *A,
13367 const INTEGER *LDA,
13368 INTEGER *IPIV,
13369 INTEGER *INFO)
13370 {
13371 DEBUG_LAPACK_STUB("dgetf2");
13372 LAPACK_IMPL(dgetf2)(M,
13373 N,
13374 A,
13375 LDA,
13376 IPIV,
13377 INFO);
13378 }
13379
13380 //-- dgetrf --------------------------------------------------------------------
13381 void
LAPACK_DECL(dgetrf)13382 LAPACK_DECL(dgetrf)(const INTEGER *M,
13383 const INTEGER *N,
13384 DOUBLE *A,
13385 const INTEGER *LDA,
13386 INTEGER *IPIV,
13387 INTEGER *INFO)
13388 {
13389 DEBUG_LAPACK_STUB("dgetrf");
13390 LAPACK_IMPL(dgetrf)(M,
13391 N,
13392 A,
13393 LDA,
13394 IPIV,
13395 INFO);
13396 }
13397
13398 //-- dgetri --------------------------------------------------------------------
13399 void
LAPACK_DECL(dgetri)13400 LAPACK_DECL(dgetri)(const INTEGER *N,
13401 DOUBLE *A,
13402 const INTEGER *LDA,
13403 const INTEGER *IPIV,
13404 DOUBLE *WORK,
13405 const INTEGER *LWORK,
13406 INTEGER *INFO)
13407 {
13408 DEBUG_LAPACK_STUB("dgetri");
13409 LAPACK_IMPL(dgetri)(N,
13410 A,
13411 LDA,
13412 IPIV,
13413 WORK,
13414 LWORK,
13415 INFO);
13416 }
13417
13418 //-- dgetrs --------------------------------------------------------------------
13419 void
LAPACK_DECL(dgetrs)13420 LAPACK_DECL(dgetrs)(const char *TRANS,
13421 const INTEGER *N,
13422 const INTEGER *NRHS,
13423 const DOUBLE *A,
13424 const INTEGER *LDA,
13425 const INTEGER *IPIV,
13426 DOUBLE *B,
13427 const INTEGER *LDB,
13428 INTEGER *INFO)
13429 {
13430 DEBUG_LAPACK_STUB("dgetrs");
13431 LAPACK_IMPL(dgetrs)(TRANS,
13432 N,
13433 NRHS,
13434 A,
13435 LDA,
13436 IPIV,
13437 B,
13438 LDB,
13439 INFO);
13440 }
13441
13442 //-- dggbak --------------------------------------------------------------------
13443 void
LAPACK_DECL(dggbak)13444 LAPACK_DECL(dggbak)(const char *JOB,
13445 const char *SIDE,
13446 const INTEGER *N,
13447 const INTEGER *ILO,
13448 const INTEGER *IHI,
13449 const DOUBLE *LSCALE,
13450 const DOUBLE *RSCALE,
13451 const INTEGER *M,
13452 DOUBLE *V,
13453 const INTEGER *LDV,
13454 INTEGER *INFO)
13455 {
13456 DEBUG_LAPACK_STUB("dggbak");
13457 LAPACK_IMPL(dggbak)(JOB,
13458 SIDE,
13459 N,
13460 ILO,
13461 IHI,
13462 LSCALE,
13463 RSCALE,
13464 M,
13465 V,
13466 LDV,
13467 INFO);
13468 }
13469
13470 //-- dggbal --------------------------------------------------------------------
13471 void
LAPACK_DECL(dggbal)13472 LAPACK_DECL(dggbal)(const char *JOB,
13473 const INTEGER *N,
13474 DOUBLE *A,
13475 const INTEGER *LDA,
13476 DOUBLE *B,
13477 const INTEGER *LDB,
13478 INTEGER *ILO,
13479 INTEGER *IHI,
13480 DOUBLE *LSCALE,
13481 DOUBLE *RSCALE,
13482 DOUBLE *WORK,
13483 INTEGER *INFO)
13484 {
13485 DEBUG_LAPACK_STUB("dggbal");
13486 LAPACK_IMPL(dggbal)(JOB,
13487 N,
13488 A,
13489 LDA,
13490 B,
13491 LDB,
13492 ILO,
13493 IHI,
13494 LSCALE,
13495 RSCALE,
13496 WORK,
13497 INFO);
13498 }
13499
13500 //-- dgges ---------------------------------------------------------------------
13501 void
LAPACK_DECL(dgges)13502 LAPACK_DECL(dgges)(const char *JOBVSL,
13503 const char *JOBVSR,
13504 const char *SORT,
13505 const LOGICAL *SELCTG,
13506 const INTEGER *N,
13507 DOUBLE *A,
13508 const INTEGER *LDA,
13509 DOUBLE *B,
13510 const INTEGER *LDB,
13511 INTEGER *SDIM,
13512 DOUBLE *ALPHAR,
13513 DOUBLE *ALPHAI,
13514 DOUBLE *BETA,
13515 DOUBLE *VSL,
13516 const INTEGER *LDVSL,
13517 DOUBLE *VSR,
13518 const INTEGER *LDVSR,
13519 DOUBLE *WORK,
13520 const INTEGER *LWORK,
13521 LOGICAL *BWORK,
13522 INTEGER *INFO)
13523 {
13524 DEBUG_LAPACK_STUB("dgges");
13525 LAPACK_IMPL(dgges)(JOBVSL,
13526 JOBVSR,
13527 SORT,
13528 SELCTG,
13529 N,
13530 A,
13531 LDA,
13532 B,
13533 LDB,
13534 SDIM,
13535 ALPHAR,
13536 ALPHAI,
13537 BETA,
13538 VSL,
13539 LDVSL,
13540 VSR,
13541 LDVSR,
13542 WORK,
13543 LWORK,
13544 BWORK,
13545 INFO);
13546 }
13547
13548 //-- dggesx --------------------------------------------------------------------
13549 void
LAPACK_DECL(dggesx)13550 LAPACK_DECL(dggesx)(const char *JOBVSL,
13551 const char *JOBVSR,
13552 const char *SORT,
13553 const LOGICAL *SELCTG,
13554 const char *SENSE,
13555 const INTEGER *N,
13556 DOUBLE *A,
13557 const INTEGER *LDA,
13558 DOUBLE *B,
13559 const INTEGER *LDB,
13560 INTEGER *SDIM,
13561 DOUBLE *ALPHAR,
13562 DOUBLE *ALPHAI,
13563 DOUBLE *BETA,
13564 DOUBLE *VSL,
13565 const INTEGER *LDVSL,
13566 DOUBLE *VSR,
13567 const INTEGER *LDVSR,
13568 DOUBLE *RCONDE,
13569 DOUBLE *RCONDV,
13570 DOUBLE *WORK,
13571 const INTEGER *LWORK,
13572 INTEGER *IWORK,
13573 const INTEGER *LIWORK,
13574 LOGICAL *BWORK,
13575 INTEGER *INFO)
13576 {
13577 DEBUG_LAPACK_STUB("dggesx");
13578 LAPACK_IMPL(dggesx)(JOBVSL,
13579 JOBVSR,
13580 SORT,
13581 SELCTG,
13582 SENSE,
13583 N,
13584 A,
13585 LDA,
13586 B,
13587 LDB,
13588 SDIM,
13589 ALPHAR,
13590 ALPHAI,
13591 BETA,
13592 VSL,
13593 LDVSL,
13594 VSR,
13595 LDVSR,
13596 RCONDE,
13597 RCONDV,
13598 WORK,
13599 LWORK,
13600 IWORK,
13601 LIWORK,
13602 BWORK,
13603 INFO);
13604 }
13605
13606 //-- dggev ---------------------------------------------------------------------
13607 void
LAPACK_DECL(dggev)13608 LAPACK_DECL(dggev)(const char *JOBVL,
13609 const char *JOBVR,
13610 const INTEGER *N,
13611 DOUBLE *A,
13612 const INTEGER *LDA,
13613 DOUBLE *B,
13614 const INTEGER *LDB,
13615 DOUBLE *ALPHAR,
13616 DOUBLE *ALPHAI,
13617 DOUBLE *BETA,
13618 DOUBLE *VL,
13619 const INTEGER *LDVL,
13620 DOUBLE *VR,
13621 const INTEGER *LDVR,
13622 DOUBLE *WORK,
13623 const INTEGER *LWORK,
13624 INTEGER *INFO)
13625 {
13626 DEBUG_LAPACK_STUB("dggev");
13627 LAPACK_IMPL(dggev)(JOBVL,
13628 JOBVR,
13629 N,
13630 A,
13631 LDA,
13632 B,
13633 LDB,
13634 ALPHAR,
13635 ALPHAI,
13636 BETA,
13637 VL,
13638 LDVL,
13639 VR,
13640 LDVR,
13641 WORK,
13642 LWORK,
13643 INFO);
13644 }
13645
13646 //-- dggevx --------------------------------------------------------------------
13647 void
LAPACK_DECL(dggevx)13648 LAPACK_DECL(dggevx)(const char *BALANC,
13649 const char *JOBVL,
13650 const char *JOBVR,
13651 const char *SENSE,
13652 const INTEGER *N,
13653 DOUBLE *A,
13654 const INTEGER *LDA,
13655 DOUBLE *B,
13656 const INTEGER *LDB,
13657 DOUBLE *ALPHAR,
13658 DOUBLE *ALPHAI,
13659 DOUBLE *BETA,
13660 DOUBLE *VL,
13661 const INTEGER *LDVL,
13662 DOUBLE *VR,
13663 const INTEGER *LDVR,
13664 INTEGER *ILO,
13665 INTEGER *IHI,
13666 DOUBLE *LSCALE,
13667 DOUBLE *RSCALE,
13668 DOUBLE *ABNRM,
13669 DOUBLE *BBNRM,
13670 DOUBLE *RCONDE,
13671 DOUBLE *RCONDV,
13672 DOUBLE *WORK,
13673 const INTEGER *LWORK,
13674 INTEGER *IWORK,
13675 LOGICAL *BWORK,
13676 INTEGER *INFO)
13677 {
13678 DEBUG_LAPACK_STUB("dggevx");
13679 LAPACK_IMPL(dggevx)(BALANC,
13680 JOBVL,
13681 JOBVR,
13682 SENSE,
13683 N,
13684 A,
13685 LDA,
13686 B,
13687 LDB,
13688 ALPHAR,
13689 ALPHAI,
13690 BETA,
13691 VL,
13692 LDVL,
13693 VR,
13694 LDVR,
13695 ILO,
13696 IHI,
13697 LSCALE,
13698 RSCALE,
13699 ABNRM,
13700 BBNRM,
13701 RCONDE,
13702 RCONDV,
13703 WORK,
13704 LWORK,
13705 IWORK,
13706 BWORK,
13707 INFO);
13708 }
13709
13710 //-- dggglm --------------------------------------------------------------------
13711 void
LAPACK_DECL(dggglm)13712 LAPACK_DECL(dggglm)(const INTEGER *N,
13713 const INTEGER *M,
13714 const INTEGER *P,
13715 DOUBLE *A,
13716 const INTEGER *LDA,
13717 DOUBLE *B,
13718 const INTEGER *LDB,
13719 DOUBLE *D,
13720 DOUBLE *X,
13721 DOUBLE *Y,
13722 DOUBLE *WORK,
13723 const INTEGER *LWORK,
13724 INTEGER *INFO)
13725 {
13726 DEBUG_LAPACK_STUB("dggglm");
13727 LAPACK_IMPL(dggglm)(N,
13728 M,
13729 P,
13730 A,
13731 LDA,
13732 B,
13733 LDB,
13734 D,
13735 X,
13736 Y,
13737 WORK,
13738 LWORK,
13739 INFO);
13740 }
13741
13742 //-- dgghrd --------------------------------------------------------------------
13743 void
LAPACK_DECL(dgghrd)13744 LAPACK_DECL(dgghrd)(const char *COMPQ,
13745 const char *COMPZ,
13746 const INTEGER *N,
13747 const INTEGER *ILO,
13748 const INTEGER *IHI,
13749 DOUBLE *A,
13750 const INTEGER *LDA,
13751 DOUBLE *B,
13752 const INTEGER *LDB,
13753 DOUBLE *Q,
13754 const INTEGER *LDQ,
13755 DOUBLE *Z,
13756 const INTEGER *LDZ,
13757 INTEGER *INFO)
13758 {
13759 DEBUG_LAPACK_STUB("dgghrd");
13760 LAPACK_IMPL(dgghrd)(COMPQ,
13761 COMPZ,
13762 N,
13763 ILO,
13764 IHI,
13765 A,
13766 LDA,
13767 B,
13768 LDB,
13769 Q,
13770 LDQ,
13771 Z,
13772 LDZ,
13773 INFO);
13774 }
13775
13776 //-- dgglse --------------------------------------------------------------------
13777 void
LAPACK_DECL(dgglse)13778 LAPACK_DECL(dgglse)(const INTEGER *M,
13779 const INTEGER *N,
13780 const INTEGER *P,
13781 DOUBLE *A,
13782 const INTEGER *LDA,
13783 DOUBLE *B,
13784 const INTEGER *LDB,
13785 DOUBLE *C,
13786 DOUBLE *D,
13787 DOUBLE *X,
13788 DOUBLE *WORK,
13789 const INTEGER *LWORK,
13790 INTEGER *INFO)
13791 {
13792 DEBUG_LAPACK_STUB("dgglse");
13793 LAPACK_IMPL(dgglse)(M,
13794 N,
13795 P,
13796 A,
13797 LDA,
13798 B,
13799 LDB,
13800 C,
13801 D,
13802 X,
13803 WORK,
13804 LWORK,
13805 INFO);
13806 }
13807
13808 //-- dggqrf --------------------------------------------------------------------
13809 void
LAPACK_DECL(dggqrf)13810 LAPACK_DECL(dggqrf)(const INTEGER *N,
13811 const INTEGER *M,
13812 const INTEGER *P,
13813 DOUBLE *A,
13814 const INTEGER *LDA,
13815 DOUBLE *TAUA,
13816 DOUBLE *B,
13817 const INTEGER *LDB,
13818 DOUBLE *TAUB,
13819 DOUBLE *WORK,
13820 const INTEGER *LWORK,
13821 INTEGER *INFO)
13822 {
13823 DEBUG_LAPACK_STUB("dggqrf");
13824 LAPACK_IMPL(dggqrf)(N,
13825 M,
13826 P,
13827 A,
13828 LDA,
13829 TAUA,
13830 B,
13831 LDB,
13832 TAUB,
13833 WORK,
13834 LWORK,
13835 INFO);
13836 }
13837
13838 //-- dggrqf --------------------------------------------------------------------
13839 void
LAPACK_DECL(dggrqf)13840 LAPACK_DECL(dggrqf)(const INTEGER *M,
13841 const INTEGER *P,
13842 const INTEGER *N,
13843 DOUBLE *A,
13844 const INTEGER *LDA,
13845 DOUBLE *TAUA,
13846 DOUBLE *B,
13847 const INTEGER *LDB,
13848 DOUBLE *TAUB,
13849 DOUBLE *WORK,
13850 const INTEGER *LWORK,
13851 INTEGER *INFO)
13852 {
13853 DEBUG_LAPACK_STUB("dggrqf");
13854 LAPACK_IMPL(dggrqf)(M,
13855 P,
13856 N,
13857 A,
13858 LDA,
13859 TAUA,
13860 B,
13861 LDB,
13862 TAUB,
13863 WORK,
13864 LWORK,
13865 INFO);
13866 }
13867
13868 //-- dggsvd --------------------------------------------------------------------
13869 void
LAPACK_DECL(dggsvd)13870 LAPACK_DECL(dggsvd)(const char *JOBU,
13871 const char *JOBV,
13872 const char *JOBQ,
13873 const INTEGER *M,
13874 const INTEGER *N,
13875 const INTEGER *P,
13876 INTEGER *K,
13877 INTEGER *L,
13878 DOUBLE *A,
13879 const INTEGER *LDA,
13880 DOUBLE *B,
13881 const INTEGER *LDB,
13882 DOUBLE *ALPHA,
13883 DOUBLE *BETA,
13884 DOUBLE *U,
13885 const INTEGER *LDU,
13886 DOUBLE *V,
13887 const INTEGER *LDV,
13888 DOUBLE *Q,
13889 const INTEGER *LDQ,
13890 DOUBLE *WORK,
13891 INTEGER *IWORK,
13892 INTEGER *INFO)
13893 {
13894 DEBUG_LAPACK_STUB("dggsvd");
13895 LAPACK_IMPL(dggsvd)(JOBU,
13896 JOBV,
13897 JOBQ,
13898 M,
13899 N,
13900 P,
13901 K,
13902 L,
13903 A,
13904 LDA,
13905 B,
13906 LDB,
13907 ALPHA,
13908 BETA,
13909 U,
13910 LDU,
13911 V,
13912 LDV,
13913 Q,
13914 LDQ,
13915 WORK,
13916 IWORK,
13917 INFO);
13918 }
13919
13920 //-- dggsvp --------------------------------------------------------------------
13921 void
LAPACK_DECL(dggsvp)13922 LAPACK_DECL(dggsvp)(const char *JOBU,
13923 const char *JOBV,
13924 const char *JOBQ,
13925 const INTEGER *M,
13926 const INTEGER *P,
13927 const INTEGER *N,
13928 DOUBLE *A,
13929 const INTEGER *LDA,
13930 DOUBLE *B,
13931 const INTEGER *LDB,
13932 const DOUBLE *TOLA,
13933 const DOUBLE *TOLB,
13934 INTEGER *K,
13935 INTEGER *L,
13936 DOUBLE *U,
13937 const INTEGER *LDU,
13938 DOUBLE *V,
13939 const INTEGER *LDV,
13940 DOUBLE *Q,
13941 const INTEGER *LDQ,
13942 INTEGER *IWORK,
13943 DOUBLE *TAU,
13944 DOUBLE *WORK,
13945 INTEGER *INFO)
13946 {
13947 DEBUG_LAPACK_STUB("dggsvp");
13948 LAPACK_IMPL(dggsvp)(JOBU,
13949 JOBV,
13950 JOBQ,
13951 M,
13952 P,
13953 N,
13954 A,
13955 LDA,
13956 B,
13957 LDB,
13958 TOLA,
13959 TOLB,
13960 K,
13961 L,
13962 U,
13963 LDU,
13964 V,
13965 LDV,
13966 Q,
13967 LDQ,
13968 IWORK,
13969 TAU,
13970 WORK,
13971 INFO);
13972 }
13973
13974 //-- dgsvj0 --------------------------------------------------------------------
13975 void
LAPACK_DECL(dgsvj0)13976 LAPACK_DECL(dgsvj0)(const char *JOBV,
13977 const INTEGER *M,
13978 const INTEGER *N,
13979 DOUBLE *A,
13980 const INTEGER *LDA,
13981 DOUBLE *D,
13982 DOUBLE *SVA,
13983 const INTEGER *MV,
13984 DOUBLE *V,
13985 const INTEGER *LDV,
13986 const DOUBLE *EPS,
13987 const DOUBLE *SFMIN,
13988 const DOUBLE *TOL,
13989 const INTEGER *NSWEEP,
13990 DOUBLE *WORK,
13991 const INTEGER *LWORK,
13992 INTEGER *INFO)
13993 {
13994 DEBUG_LAPACK_STUB("dgsvj0");
13995 LAPACK_IMPL(dgsvj0)(JOBV,
13996 M,
13997 N,
13998 A,
13999 LDA,
14000 D,
14001 SVA,
14002 MV,
14003 V,
14004 LDV,
14005 EPS,
14006 SFMIN,
14007 TOL,
14008 NSWEEP,
14009 WORK,
14010 LWORK,
14011 INFO);
14012 }
14013
14014 //-- dgsvj1 --------------------------------------------------------------------
14015 void
LAPACK_DECL(dgsvj1)14016 LAPACK_DECL(dgsvj1)(const char *JOBV,
14017 const INTEGER *M,
14018 const INTEGER *N,
14019 const INTEGER *N1,
14020 DOUBLE *A,
14021 const INTEGER *LDA,
14022 DOUBLE *D,
14023 DOUBLE *SVA,
14024 const INTEGER *MV,
14025 DOUBLE *V,
14026 const INTEGER *LDV,
14027 const DOUBLE *EPS,
14028 const DOUBLE *SFMIN,
14029 const DOUBLE *TOL,
14030 const INTEGER *NSWEEP,
14031 DOUBLE *WORK,
14032 const INTEGER *LWORK,
14033 INTEGER *INFO)
14034 {
14035 DEBUG_LAPACK_STUB("dgsvj1");
14036 LAPACK_IMPL(dgsvj1)(JOBV,
14037 M,
14038 N,
14039 N1,
14040 A,
14041 LDA,
14042 D,
14043 SVA,
14044 MV,
14045 V,
14046 LDV,
14047 EPS,
14048 SFMIN,
14049 TOL,
14050 NSWEEP,
14051 WORK,
14052 LWORK,
14053 INFO);
14054 }
14055
14056 //-- dgtcon --------------------------------------------------------------------
14057 void
LAPACK_DECL(dgtcon)14058 LAPACK_DECL(dgtcon)(const char *NORM,
14059 const INTEGER *N,
14060 const DOUBLE *DL,
14061 const DOUBLE *D,
14062 const DOUBLE *DU,
14063 const DOUBLE *DU2,
14064 const INTEGER *IPIV,
14065 const DOUBLE *ANORM,
14066 DOUBLE *RCOND,
14067 DOUBLE *WORK,
14068 INTEGER *IWORK,
14069 INTEGER *INFO)
14070 {
14071 DEBUG_LAPACK_STUB("dgtcon");
14072 LAPACK_IMPL(dgtcon)(NORM,
14073 N,
14074 DL,
14075 D,
14076 DU,
14077 DU2,
14078 IPIV,
14079 ANORM,
14080 RCOND,
14081 WORK,
14082 IWORK,
14083 INFO);
14084 }
14085
14086 //-- dgtrfs --------------------------------------------------------------------
14087 void
LAPACK_DECL(dgtrfs)14088 LAPACK_DECL(dgtrfs)(const char *TRANS,
14089 const INTEGER *N,
14090 const INTEGER *NRHS,
14091 const DOUBLE *DL,
14092 const DOUBLE *D,
14093 const DOUBLE *DU,
14094 const DOUBLE *DLF,
14095 const DOUBLE *DF,
14096 const DOUBLE *DUF,
14097 const DOUBLE *DU2,
14098 const INTEGER *IPIV,
14099 const DOUBLE *B,
14100 const INTEGER *LDB,
14101 DOUBLE *X,
14102 const INTEGER *LDX,
14103 DOUBLE *FERR,
14104 DOUBLE *BERR,
14105 DOUBLE *WORK,
14106 INTEGER *IWORK,
14107 INTEGER *INFO)
14108 {
14109 DEBUG_LAPACK_STUB("dgtrfs");
14110 LAPACK_IMPL(dgtrfs)(TRANS,
14111 N,
14112 NRHS,
14113 DL,
14114 D,
14115 DU,
14116 DLF,
14117 DF,
14118 DUF,
14119 DU2,
14120 IPIV,
14121 B,
14122 LDB,
14123 X,
14124 LDX,
14125 FERR,
14126 BERR,
14127 WORK,
14128 IWORK,
14129 INFO);
14130 }
14131
14132 //-- dgtsv ---------------------------------------------------------------------
14133 void
LAPACK_DECL(dgtsv)14134 LAPACK_DECL(dgtsv)(const INTEGER *N,
14135 const INTEGER *NRHS,
14136 DOUBLE *DL,
14137 DOUBLE *D,
14138 DOUBLE *DU,
14139 DOUBLE *B,
14140 const INTEGER *LDB,
14141 INTEGER *INFO)
14142 {
14143 DEBUG_LAPACK_STUB("dgtsv");
14144 LAPACK_IMPL(dgtsv)(N,
14145 NRHS,
14146 DL,
14147 D,
14148 DU,
14149 B,
14150 LDB,
14151 INFO);
14152 }
14153
14154 //-- dgtsvx --------------------------------------------------------------------
14155 void
LAPACK_DECL(dgtsvx)14156 LAPACK_DECL(dgtsvx)(const char *FACT,
14157 const char *TRANS,
14158 const INTEGER *N,
14159 const INTEGER *NRHS,
14160 const DOUBLE *DL,
14161 const DOUBLE *D,
14162 const DOUBLE *DU,
14163 DOUBLE *DLF,
14164 DOUBLE *DF,
14165 DOUBLE *DUF,
14166 DOUBLE *DU2,
14167 INTEGER *IPIV,
14168 const DOUBLE *B,
14169 const INTEGER *LDB,
14170 DOUBLE *X,
14171 const INTEGER *LDX,
14172 DOUBLE *RCOND,
14173 DOUBLE *FERR,
14174 DOUBLE *BERR,
14175 DOUBLE *WORK,
14176 INTEGER *IWORK,
14177 INTEGER *INFO)
14178 {
14179 DEBUG_LAPACK_STUB("dgtsvx");
14180 LAPACK_IMPL(dgtsvx)(FACT,
14181 TRANS,
14182 N,
14183 NRHS,
14184 DL,
14185 D,
14186 DU,
14187 DLF,
14188 DF,
14189 DUF,
14190 DU2,
14191 IPIV,
14192 B,
14193 LDB,
14194 X,
14195 LDX,
14196 RCOND,
14197 FERR,
14198 BERR,
14199 WORK,
14200 IWORK,
14201 INFO);
14202 }
14203
14204 //-- dgttrf --------------------------------------------------------------------
14205 void
LAPACK_DECL(dgttrf)14206 LAPACK_DECL(dgttrf)(const INTEGER *N,
14207 DOUBLE *DL,
14208 DOUBLE *D,
14209 DOUBLE *DU,
14210 DOUBLE *DU2,
14211 INTEGER *IPIV,
14212 INTEGER *INFO)
14213 {
14214 DEBUG_LAPACK_STUB("dgttrf");
14215 LAPACK_IMPL(dgttrf)(N,
14216 DL,
14217 D,
14218 DU,
14219 DU2,
14220 IPIV,
14221 INFO);
14222 }
14223
14224 //-- dgttrs --------------------------------------------------------------------
14225 void
LAPACK_DECL(dgttrs)14226 LAPACK_DECL(dgttrs)(const char *TRANS,
14227 const INTEGER *N,
14228 const INTEGER *NRHS,
14229 const DOUBLE *DL,
14230 const DOUBLE *D,
14231 const DOUBLE *DU,
14232 const DOUBLE *DU2,
14233 const INTEGER *IPIV,
14234 DOUBLE *B,
14235 const INTEGER *LDB,
14236 INTEGER *INFO)
14237 {
14238 DEBUG_LAPACK_STUB("dgttrs");
14239 LAPACK_IMPL(dgttrs)(TRANS,
14240 N,
14241 NRHS,
14242 DL,
14243 D,
14244 DU,
14245 DU2,
14246 IPIV,
14247 B,
14248 LDB,
14249 INFO);
14250 }
14251
14252 //-- dgtts2 --------------------------------------------------------------------
14253 void
LAPACK_DECL(dgtts2)14254 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
14255 const INTEGER *N,
14256 const INTEGER *NRHS,
14257 const DOUBLE *DL,
14258 const DOUBLE *D,
14259 const DOUBLE *DU,
14260 const DOUBLE *DU2,
14261 const INTEGER *IPIV,
14262 DOUBLE *B,
14263 const INTEGER *LDB)
14264 {
14265 DEBUG_LAPACK_STUB("dgtts2");
14266 LAPACK_IMPL(dgtts2)(ITRANS,
14267 N,
14268 NRHS,
14269 DL,
14270 D,
14271 DU,
14272 DU2,
14273 IPIV,
14274 B,
14275 LDB);
14276 }
14277
14278 //-- dhgeqz --------------------------------------------------------------------
14279 void
LAPACK_DECL(dhgeqz)14280 LAPACK_DECL(dhgeqz)(const char *JOB,
14281 const char *COMPQ,
14282 const char *COMPZ,
14283 const INTEGER *N,
14284 const INTEGER *ILO,
14285 const INTEGER *IHI,
14286 DOUBLE *H,
14287 const INTEGER *LDH,
14288 DOUBLE *T,
14289 const INTEGER *LDT,
14290 DOUBLE *ALPHAR,
14291 DOUBLE *ALPHAI,
14292 DOUBLE *BETA,
14293 DOUBLE *Q,
14294 const INTEGER *LDQ,
14295 DOUBLE *Z,
14296 const INTEGER *LDZ,
14297 DOUBLE *WORK,
14298 const INTEGER *LWORK,
14299 INTEGER *INFO)
14300 {
14301 DEBUG_LAPACK_STUB("dhgeqz");
14302 LAPACK_IMPL(dhgeqz)(JOB,
14303 COMPQ,
14304 COMPZ,
14305 N,
14306 ILO,
14307 IHI,
14308 H,
14309 LDH,
14310 T,
14311 LDT,
14312 ALPHAR,
14313 ALPHAI,
14314 BETA,
14315 Q,
14316 LDQ,
14317 Z,
14318 LDZ,
14319 WORK,
14320 LWORK,
14321 INFO);
14322 }
14323
14324 //-- dhsein --------------------------------------------------------------------
14325 void
LAPACK_DECL(dhsein)14326 LAPACK_DECL(dhsein)(const char *SIDE,
14327 const char *EIGSRC,
14328 const char *INITV,
14329 LOGICAL *SELECT,
14330 const INTEGER *N,
14331 const DOUBLE *H,
14332 const INTEGER *LDH,
14333 DOUBLE *WR,
14334 const DOUBLE *WI,
14335 DOUBLE *VL,
14336 const INTEGER *LDVL,
14337 DOUBLE *VR,
14338 const INTEGER *LDVR,
14339 const INTEGER *MM,
14340 INTEGER *M,
14341 DOUBLE *WORK,
14342 INTEGER *IFAILL,
14343 INTEGER *IFAILR,
14344 INTEGER *INFO)
14345 {
14346 DEBUG_LAPACK_STUB("dhsein");
14347 LAPACK_IMPL(dhsein)(SIDE,
14348 EIGSRC,
14349 INITV,
14350 SELECT,
14351 N,
14352 H,
14353 LDH,
14354 WR,
14355 WI,
14356 VL,
14357 LDVL,
14358 VR,
14359 LDVR,
14360 MM,
14361 M,
14362 WORK,
14363 IFAILL,
14364 IFAILR,
14365 INFO);
14366 }
14367
14368 //-- dhseqr --------------------------------------------------------------------
14369 void
LAPACK_DECL(dhseqr)14370 LAPACK_DECL(dhseqr)(const char *JOB,
14371 const char *COMPZ,
14372 const INTEGER *N,
14373 const INTEGER *ILO,
14374 const INTEGER *IHI,
14375 DOUBLE *H,
14376 const INTEGER *LDH,
14377 DOUBLE *WR,
14378 DOUBLE *WI,
14379 DOUBLE *Z,
14380 const INTEGER *LDZ,
14381 DOUBLE *WORK,
14382 const INTEGER *LWORK,
14383 INTEGER *INFO)
14384 {
14385 DEBUG_LAPACK_STUB("dhseqr");
14386 LAPACK_IMPL(dhseqr)(JOB,
14387 COMPZ,
14388 N,
14389 ILO,
14390 IHI,
14391 H,
14392 LDH,
14393 WR,
14394 WI,
14395 Z,
14396 LDZ,
14397 WORK,
14398 LWORK,
14399 INFO);
14400 }
14401
14402 //-- disnan --------------------------------------------------------------------
14403 LOGICAL
LAPACK_DECL(disnan)14404 LAPACK_DECL(disnan)(const DOUBLE *DIN)
14405 {
14406 DEBUG_LAPACK_STUB("disnan");
14407 return LAPACK_IMPL(disnan)(DIN);
14408 }
14409
14410 //-- dla_gbamv -----------------------------------------------------------------
14411 void
LAPACK_DECL(dla_gbamv)14412 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
14413 const INTEGER *M,
14414 const INTEGER *N,
14415 const INTEGER *KL,
14416 const INTEGER *KU,
14417 const DOUBLE *ALPHA,
14418 const DOUBLE *AB,
14419 const INTEGER *LDAB,
14420 const DOUBLE *X,
14421 const INTEGER *INCX,
14422 const DOUBLE *BETA,
14423 DOUBLE *Y,
14424 const INTEGER *INCY)
14425 {
14426 DEBUG_LAPACK_STUB("dla_gbamv");
14427 LAPACK_IMPL(dla_gbamv)(TRANS,
14428 M,
14429 N,
14430 KL,
14431 KU,
14432 ALPHA,
14433 AB,
14434 LDAB,
14435 X,
14436 INCX,
14437 BETA,
14438 Y,
14439 INCY);
14440 }
14441
14442 //-- dla_gbrcond ---------------------------------------------------------------
14443 DOUBLE
LAPACK_DECL(dla_gbrcond)14444 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
14445 const INTEGER *N,
14446 const INTEGER *KL,
14447 const INTEGER *KU,
14448 const DOUBLE *AB,
14449 const INTEGER *LDAB,
14450 const DOUBLE *AFB,
14451 const INTEGER *LDAFB,
14452 const INTEGER *IPIV,
14453 const INTEGER *CMODE,
14454 const DOUBLE *C,
14455 INTEGER *INFO,
14456 const DOUBLE *WORK,
14457 const INTEGER *IWORK)
14458 {
14459 DEBUG_LAPACK_STUB("dla_gbrcond");
14460 return LAPACK_IMPL(dla_gbrcond)(TRANS,
14461 N,
14462 KL,
14463 KU,
14464 AB,
14465 LDAB,
14466 AFB,
14467 LDAFB,
14468 IPIV,
14469 CMODE,
14470 C,
14471 INFO,
14472 WORK,
14473 IWORK);
14474 }
14475
14476 //-- dla_gbrfsx_extended -------------------------------------------------------
14477 void
LAPACK_DECL(dla_gbrfsx_extended)14478 LAPACK_DECL(dla_gbrfsx_extended)(const INTEGER *PREC_TYPE,
14479 const INTEGER *TRANS_TYPE,
14480 const INTEGER *N,
14481 const INTEGER *KL,
14482 const INTEGER *KU,
14483 const INTEGER *NRHS,
14484 const DOUBLE *AB,
14485 const INTEGER *LDAB,
14486 const DOUBLE *AFB,
14487 const INTEGER *LDAFB,
14488 const INTEGER *IPIV,
14489 const LOGICAL *COLEQU,
14490 const DOUBLE *C,
14491 const DOUBLE *B,
14492 const INTEGER *LDB,
14493 DOUBLE *Y,
14494 const INTEGER *LDY,
14495 DOUBLE *BERR_OUT,
14496 const INTEGER *N_NORMS,
14497 DOUBLE *ERR_BNDS_NORM,
14498 DOUBLE *ERR_BNDS_COMP,
14499 const DOUBLE *RES,
14500 const DOUBLE *AYB,
14501 const DOUBLE *DY,
14502 const DOUBLE *Y_TAIL,
14503 const DOUBLE *RCOND,
14504 const INTEGER *ITHRESH,
14505 const DOUBLE *RTHRESH,
14506 const DOUBLE *DZ_UB,
14507 const LOGICAL *IGNORE_CWISE,
14508 INTEGER *INFO)
14509 {
14510 DEBUG_LAPACK_STUB("dla_gbrfsx_extended");
14511 ASSERT(0);
14512 /*
14513 LAPACK_IMPL(dla_gbrfsx_extended)(PREC_TYPE,
14514 TRANS_TYPE,
14515 N,
14516 KL,
14517 KU,
14518 NRHS,
14519 AB,
14520 LDAB,
14521 AFB,
14522 LDAFB,
14523 IPIV,
14524 COLEQU,
14525 C,
14526 B,
14527 LDB,
14528 Y,
14529 LDY,
14530 BERR_OUT,
14531 N_NORMS,
14532 ERR_BNDS_NORM,
14533 ERR_BNDS_COMP,
14534 RES,
14535 AYB,
14536 DY,
14537 Y_TAIL,
14538 RCOND,
14539 ITHRESH,
14540 RTHRESH,
14541 DZ_UB,
14542 IGNORE_CWISE,
14543 INFO);
14544 */
14545 }
14546
14547 //-- dla_gbrpvgrw --------------------------------------------------------------
14548 DOUBLE
LAPACK_DECL(dla_gbrpvgrw)14549 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
14550 const INTEGER *KL,
14551 const INTEGER *KU,
14552 const INTEGER *NCOLS,
14553 const DOUBLE *AB,
14554 const INTEGER *LDAB,
14555 const DOUBLE *AFB,
14556 const INTEGER *LDAFB)
14557 {
14558 DEBUG_LAPACK_STUB("dla_gbrpvgrw");
14559 return LAPACK_IMPL(dla_gbrpvgrw)(N,
14560 KL,
14561 KU,
14562 NCOLS,
14563 AB,
14564 LDAB,
14565 AFB,
14566 LDAFB);
14567 }
14568
14569 //-- dla_geamv -----------------------------------------------------------------
14570 void
LAPACK_DECL(dla_geamv)14571 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
14572 const INTEGER *M,
14573 const INTEGER *N,
14574 const DOUBLE *ALPHA,
14575 const DOUBLE *A,
14576 const INTEGER *LDA,
14577 const DOUBLE *X,
14578 const INTEGER *INCX,
14579 const DOUBLE *BETA,
14580 DOUBLE *Y,
14581 const INTEGER *INCY)
14582 {
14583 DEBUG_LAPACK_STUB("dla_geamv");
14584 LAPACK_IMPL(dla_geamv)(TRANS,
14585 M,
14586 N,
14587 ALPHA,
14588 A,
14589 LDA,
14590 X,
14591 INCX,
14592 BETA,
14593 Y,
14594 INCY);
14595 }
14596
14597 //-- dla_gercond ---------------------------------------------------------------
14598 DOUBLE
LAPACK_DECL(dla_gercond)14599 LAPACK_DECL(dla_gercond)(const char *TRANS,
14600 const INTEGER *N,
14601 const DOUBLE *A,
14602 const INTEGER *LDA,
14603 const DOUBLE *AF,
14604 const INTEGER *LDAF,
14605 const INTEGER *IPIV,
14606 const INTEGER *CMODE,
14607 const DOUBLE *C,
14608 INTEGER *INFO,
14609 const DOUBLE *WORK,
14610 const INTEGER *IWORK)
14611 {
14612 DEBUG_LAPACK_STUB("dla_gercond");
14613 return LAPACK_IMPL(dla_gercond)(TRANS,
14614 N,
14615 A,
14616 LDA,
14617 AF,
14618 LDAF,
14619 IPIV,
14620 CMODE,
14621 C,
14622 INFO,
14623 WORK,
14624 IWORK);
14625 }
14626
14627 //-- dla_gerfsx_extended -------------------------------------------------------
14628 void
LAPACK_DECL(dla_gerfsx_extended)14629 LAPACK_DECL(dla_gerfsx_extended)(const INTEGER *PREC_TYPE,
14630 const INTEGER *TRANS_TYPE,
14631 const INTEGER *N,
14632 const INTEGER *NRHS,
14633 const DOUBLE *A,
14634 const INTEGER *LDA,
14635 const DOUBLE *AF,
14636 const INTEGER *LDAF,
14637 const INTEGER *IPIV,
14638 const LOGICAL *COLEQU,
14639 const DOUBLE *C,
14640 const DOUBLE *B,
14641 const INTEGER *LDB,
14642 DOUBLE *Y,
14643 const INTEGER *LDY,
14644 DOUBLE *BERR_OUT,
14645 const INTEGER *N_NORMS,
14646 const DOUBLE *ERRS_N,
14647 const DOUBLE *ERRS_C,
14648 const DOUBLE *RES,
14649 const DOUBLE *AYB,
14650 const DOUBLE *DY,
14651 const DOUBLE *Y_TAIL,
14652 const DOUBLE *RCOND,
14653 const INTEGER *ITHRESH,
14654 const DOUBLE *RTHRESH,
14655 const DOUBLE *DZ_UB,
14656 const LOGICAL *IGNORE_CWISE,
14657 INTEGER *INFO)
14658 {
14659 DEBUG_LAPACK_STUB("dla_gerfsx_extended");
14660 ASSERT(0);
14661 /*
14662 LAPACK_IMPL(dla_gerfsx_extended)(PREC_TYPE,
14663 TRANS_TYPE,
14664 N,
14665 NRHS,
14666 A,
14667 LDA,
14668 AF,
14669 LDAF,
14670 IPIV,
14671 COLEQU,
14672 C,
14673 B,
14674 LDB,
14675 Y,
14676 LDY,
14677 BERR_OUT,
14678 N_NORMS,
14679 ERRS_N,
14680 ERRS_C,
14681 RES,
14682 AYB,
14683 DY,
14684 Y_TAIL,
14685 RCOND,
14686 ITHRESH,
14687 RTHRESH,
14688 DZ_UB,
14689 IGNORE_CWISE,
14690 INFO);
14691 */
14692 }
14693
14694 //-- dla_lin_berr --------------------------------------------------------------
14695 void
LAPACK_DECL(dla_lin_berr)14696 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
14697 const INTEGER *NZ,
14698 const INTEGER *NRHS,
14699 const DOUBLE *RES,
14700 const DOUBLE *AYB,
14701 DOUBLE *BERR)
14702 {
14703 DEBUG_LAPACK_STUB("dla_lin_berr");
14704 LAPACK_IMPL(dla_lin_berr)(N,
14705 NZ,
14706 NRHS,
14707 RES,
14708 AYB,
14709 BERR);
14710 }
14711
14712 //-- dla_porcond ---------------------------------------------------------------
14713 DOUBLE
LAPACK_DECL(dla_porcond)14714 LAPACK_DECL(dla_porcond)(const char *UPLO,
14715 const INTEGER *N,
14716 const DOUBLE *A,
14717 const INTEGER *LDA,
14718 const DOUBLE *AF,
14719 const INTEGER *LDAF,
14720 const INTEGER *CMODE,
14721 const DOUBLE *C,
14722 INTEGER *INFO,
14723 const DOUBLE *WORK,
14724 const INTEGER *IWORK)
14725 {
14726 DEBUG_LAPACK_STUB("dla_porcond");
14727 return LAPACK_IMPL(dla_porcond)(UPLO,
14728 N,
14729 A,
14730 LDA,
14731 AF,
14732 LDAF,
14733 CMODE,
14734 C,
14735 INFO,
14736 WORK,
14737 IWORK);
14738 }
14739
14740 //-- dla_porfsx_extended -------------------------------------------------------
14741 void
LAPACK_DECL(dla_porfsx_extended)14742 LAPACK_DECL(dla_porfsx_extended)(const INTEGER *PREC_TYPE,
14743 const char *UPLO,
14744 const INTEGER *N,
14745 const INTEGER *NRHS,
14746 const DOUBLE *A,
14747 const INTEGER *LDA,
14748 const DOUBLE *AF,
14749 const INTEGER *LDAF,
14750 const LOGICAL *COLEQU,
14751 const DOUBLE *C,
14752 const DOUBLE *B,
14753 const INTEGER *LDB,
14754 DOUBLE *Y,
14755 const INTEGER *LDY,
14756 DOUBLE *BERR_OUT,
14757 const INTEGER *N_NORMS,
14758 DOUBLE *ERR_BNDS_NORM,
14759 DOUBLE *ERR_BNDS_COMP,
14760 const DOUBLE *RES,
14761 const DOUBLE *AYB,
14762 const DOUBLE *DY,
14763 const DOUBLE *Y_TAIL,
14764 const DOUBLE *RCOND,
14765 const INTEGER *ITHRESH,
14766 const DOUBLE *RTHRESH,
14767 const DOUBLE *DZ_UB,
14768 const LOGICAL *IGNORE_CWISE,
14769 INTEGER *INFO)
14770 {
14771 DEBUG_LAPACK_STUB("dla_porfsx_extended");
14772 ASSERT(0);
14773 /*
14774 LAPACK_IMPL(dla_porfsx_extended)(PREC_TYPE,
14775 UPLO,
14776 N,
14777 NRHS,
14778 A,
14779 LDA,
14780 AF,
14781 LDAF,
14782 COLEQU,
14783 C,
14784 B,
14785 LDB,
14786 Y,
14787 LDY,
14788 BERR_OUT,
14789 N_NORMS,
14790 ERR_BNDS_NORM,
14791 ERR_BNDS_COMP,
14792 RES,
14793 AYB,
14794 DY,
14795 Y_TAIL,
14796 RCOND,
14797 ITHRESH,
14798 RTHRESH,
14799 DZ_UB,
14800 IGNORE_CWISE,
14801 INFO);
14802 */
14803 }
14804
14805 //-- dla_porpvgrw --------------------------------------------------------------
14806 DOUBLE
LAPACK_DECL(dla_porpvgrw)14807 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
14808 const INTEGER *NCOLS,
14809 const DOUBLE *A,
14810 const INTEGER *LDA,
14811 const DOUBLE *AF,
14812 const INTEGER *LDAF,
14813 const DOUBLE *WORK)
14814 {
14815 DEBUG_LAPACK_STUB("dla_porpvgrw");
14816 return LAPACK_IMPL(dla_porpvgrw)(UPLO,
14817 NCOLS,
14818 A,
14819 LDA,
14820 AF,
14821 LDAF,
14822 WORK);
14823 }
14824
14825 //-- dla_rpvgrw ----------------------------------------------------------------
14826 DOUBLE
LAPACK_DECL(dla_rpvgrw)14827 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
14828 const INTEGER *NCOLS,
14829 const DOUBLE *A,
14830 const INTEGER *LDA,
14831 const DOUBLE *AF,
14832 const INTEGER *LDAF)
14833 {
14834 DEBUG_LAPACK_STUB("dla_rpvgrw");
14835 return LAPACK_IMPL(dla_rpvgrw)(N,
14836 NCOLS,
14837 A,
14838 LDA,
14839 AF,
14840 LDAF);
14841 }
14842
14843 //-- dla_syamv -----------------------------------------------------------------
14844 void
LAPACK_DECL(dla_syamv)14845 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
14846 const INTEGER *N,
14847 const DOUBLE *ALPHA,
14848 const DOUBLE *A,
14849 const INTEGER *LDA,
14850 const DOUBLE *X,
14851 const INTEGER *INCX,
14852 const DOUBLE *BETA,
14853 DOUBLE *Y,
14854 const INTEGER *INCY)
14855 {
14856 DEBUG_LAPACK_STUB("dla_syamv");
14857 LAPACK_IMPL(dla_syamv)(UPLO,
14858 N,
14859 ALPHA,
14860 A,
14861 LDA,
14862 X,
14863 INCX,
14864 BETA,
14865 Y,
14866 INCY);
14867 }
14868
14869 //-- dla_syrcond ---------------------------------------------------------------
14870 DOUBLE
LAPACK_DECL(dla_syrcond)14871 LAPACK_DECL(dla_syrcond)(const char *UPLO,
14872 const INTEGER *N,
14873 const DOUBLE *A,
14874 const INTEGER *LDA,
14875 const DOUBLE *AF,
14876 const INTEGER *LDAF,
14877 const INTEGER *IPIV,
14878 const INTEGER *CMODE,
14879 const DOUBLE *C,
14880 INTEGER *INFO,
14881 const DOUBLE *WORK,
14882 const INTEGER *IWORK)
14883 {
14884 DEBUG_LAPACK_STUB("dla_syrcond");
14885 return LAPACK_IMPL(dla_syrcond)(UPLO,
14886 N,
14887 A,
14888 LDA,
14889 AF,
14890 LDAF,
14891 IPIV,
14892 CMODE,
14893 C,
14894 INFO,
14895 WORK,
14896 IWORK);
14897 }
14898
14899 //-- dla_syrfsx_extended -------------------------------------------------------
14900 void
LAPACK_DECL(dla_syrfsx_extended)14901 LAPACK_DECL(dla_syrfsx_extended)(const INTEGER *PREC_TYPE,
14902 const char *UPLO,
14903 const INTEGER *N,
14904 const INTEGER *NRHS,
14905 const DOUBLE *A,
14906 const INTEGER *LDA,
14907 const DOUBLE *AF,
14908 const INTEGER *LDAF,
14909 const INTEGER *IPIV,
14910 const LOGICAL *COLEQU,
14911 const DOUBLE *C,
14912 const DOUBLE *B,
14913 const INTEGER *LDB,
14914 DOUBLE *Y,
14915 const INTEGER *LDY,
14916 DOUBLE *BERR_OUT,
14917 const INTEGER *N_NORMS,
14918 DOUBLE *ERR_BNDS_NORM,
14919 DOUBLE *ERR_BNDS_COMP,
14920 const DOUBLE *RES,
14921 const DOUBLE *AYB,
14922 const DOUBLE *DY,
14923 const DOUBLE *Y_TAIL,
14924 const DOUBLE *RCOND,
14925 const INTEGER *ITHRESH,
14926 const DOUBLE *RTHRESH,
14927 const DOUBLE *DZ_UB,
14928 const LOGICAL *IGNORE_CWISE,
14929 INTEGER *INFO)
14930 {
14931 DEBUG_LAPACK_STUB("dla_syrfsx_extended");
14932 ASSERT(0);
14933 /*
14934 LAPACK_IMPL(dla_syrfsx_extended)(PREC_TYPE,
14935 UPLO,
14936 N,
14937 NRHS,
14938 A,
14939 LDA,
14940 AF,
14941 LDAF,
14942 IPIV,
14943 COLEQU,
14944 C,
14945 B,
14946 LDB,
14947 Y,
14948 LDY,
14949 BERR_OUT,
14950 N_NORMS,
14951 ERR_BNDS_NORM,
14952 ERR_BNDS_COMP,
14953 RES,
14954 AYB,
14955 DY,
14956 Y_TAIL,
14957 RCOND,
14958 ITHRESH,
14959 RTHRESH,
14960 DZ_UB,
14961 IGNORE_CWISE,
14962 INFO);
14963 */
14964 }
14965
14966 //-- dla_syrpvgrw --------------------------------------------------------------
14967 DOUBLE
LAPACK_DECL(dla_syrpvgrw)14968 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
14969 const INTEGER *N,
14970 const INTEGER *INFO,
14971 const DOUBLE *A,
14972 const INTEGER *LDA,
14973 const DOUBLE *AF,
14974 const INTEGER *LDAF,
14975 const INTEGER *IPIV,
14976 const DOUBLE *WORK)
14977 {
14978 DEBUG_LAPACK_STUB("dla_syrpvgrw");
14979 return LAPACK_IMPL(dla_syrpvgrw)(UPLO,
14980 N,
14981 INFO,
14982 A,
14983 LDA,
14984 AF,
14985 LDAF,
14986 IPIV,
14987 WORK);
14988 }
14989
14990 //-- dla_wwaddw ----------------------------------------------------------------
14991 void
LAPACK_DECL(dla_wwaddw)14992 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
14993 DOUBLE *X,
14994 DOUBLE *Y,
14995 const DOUBLE *W)
14996 {
14997 DEBUG_LAPACK_STUB("dla_wwaddw");
14998 LAPACK_IMPL(dla_wwaddw)(N,
14999 X,
15000 Y,
15001 W);
15002 }
15003
15004 //-- dlabad --------------------------------------------------------------------
15005 void
LAPACK_DECL(dlabad)15006 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
15007 DOUBLE *LARGE)
15008 {
15009 DEBUG_LAPACK_STUB("dlabad");
15010 LAPACK_IMPL(dlabad)(SMALL,
15011 LARGE);
15012 }
15013
15014 //-- dlabrd --------------------------------------------------------------------
15015 void
LAPACK_DECL(dlabrd)15016 LAPACK_DECL(dlabrd)(const INTEGER *M,
15017 const INTEGER *N,
15018 const INTEGER *NB,
15019 DOUBLE *A,
15020 const INTEGER *LDA,
15021 DOUBLE *D,
15022 DOUBLE *E,
15023 DOUBLE *TAUQ,
15024 DOUBLE *TAUP,
15025 DOUBLE *X,
15026 const INTEGER *LDX,
15027 DOUBLE *Y,
15028 const INTEGER *LDY)
15029 {
15030 DEBUG_LAPACK_STUB("dlabrd");
15031 LAPACK_IMPL(dlabrd)(M,
15032 N,
15033 NB,
15034 A,
15035 LDA,
15036 D,
15037 E,
15038 TAUQ,
15039 TAUP,
15040 X,
15041 LDX,
15042 Y,
15043 LDY);
15044 }
15045
15046 //-- dlacn2 --------------------------------------------------------------------
15047 void
LAPACK_DECL(dlacn2)15048 LAPACK_DECL(dlacn2)(const INTEGER *N,
15049 DOUBLE *V,
15050 DOUBLE *X,
15051 INTEGER *ISGN,
15052 DOUBLE *EST,
15053 INTEGER *KASE,
15054 INTEGER *ISAVE)
15055 {
15056 DEBUG_LAPACK_STUB("dlacn2");
15057 LAPACK_IMPL(dlacn2)(N,
15058 V,
15059 X,
15060 ISGN,
15061 EST,
15062 KASE,
15063 ISAVE);
15064 }
15065
15066 //-- dlacon --------------------------------------------------------------------
15067 void
LAPACK_DECL(dlacon)15068 LAPACK_DECL(dlacon)(const INTEGER *N,
15069 DOUBLE *V,
15070 DOUBLE *X,
15071 INTEGER *ISGN,
15072 DOUBLE *EST,
15073 INTEGER *KASE)
15074 {
15075 DEBUG_LAPACK_STUB("dlacon");
15076 LAPACK_IMPL(dlacon)(N,
15077 V,
15078 X,
15079 ISGN,
15080 EST,
15081 KASE);
15082 }
15083
15084 //-- dlacpy --------------------------------------------------------------------
15085 void
LAPACK_DECL(dlacpy)15086 LAPACK_DECL(dlacpy)(const char *UPLO,
15087 const INTEGER *M,
15088 const INTEGER *N,
15089 const DOUBLE *A,
15090 const INTEGER *LDA,
15091 DOUBLE *B,
15092 const INTEGER *LDB)
15093 {
15094 DEBUG_LAPACK_STUB("dlacpy");
15095 LAPACK_IMPL(dlacpy)(UPLO,
15096 M,
15097 N,
15098 A,
15099 LDA,
15100 B,
15101 LDB);
15102 }
15103
15104 //-- dladiv --------------------------------------------------------------------
15105 void
LAPACK_DECL(dladiv)15106 LAPACK_DECL(dladiv)(const DOUBLE *A,
15107 const DOUBLE *B,
15108 const DOUBLE *C,
15109 const DOUBLE *D,
15110 DOUBLE *P,
15111 DOUBLE *Q)
15112 {
15113 DEBUG_LAPACK_STUB("dladiv");
15114 LAPACK_IMPL(dladiv)(A,
15115 B,
15116 C,
15117 D,
15118 P,
15119 Q);
15120 }
15121
15122 //-- dlae2 ---------------------------------------------------------------------
15123 void
LAPACK_DECL(dlae2)15124 LAPACK_DECL(dlae2)(const DOUBLE *A,
15125 const DOUBLE *B,
15126 const DOUBLE *C,
15127 DOUBLE *RT1,
15128 DOUBLE *RT2)
15129 {
15130 DEBUG_LAPACK_STUB("dlae2");
15131 LAPACK_IMPL(dlae2)(A,
15132 B,
15133 C,
15134 RT1,
15135 RT2);
15136 }
15137
15138 //-- dlaebz --------------------------------------------------------------------
15139 void
LAPACK_DECL(dlaebz)15140 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
15141 const INTEGER *NITMAX,
15142 const INTEGER *N,
15143 const INTEGER *MMAX,
15144 const INTEGER *MINP,
15145 const INTEGER *NBMIN,
15146 const DOUBLE *ABSTOL,
15147 const DOUBLE *RELTOL,
15148 const DOUBLE *PIVMIN,
15149 const DOUBLE *D,
15150 const DOUBLE *E,
15151 const DOUBLE *E2,
15152 INTEGER *NVAL,
15153 DOUBLE *AB,
15154 DOUBLE *C,
15155 INTEGER *MOUT,
15156 INTEGER *NAB,
15157 DOUBLE *WORK,
15158 INTEGER *IWORK,
15159 INTEGER *INFO)
15160 {
15161 DEBUG_LAPACK_STUB("dlaebz");
15162 LAPACK_IMPL(dlaebz)(IJOB,
15163 NITMAX,
15164 N,
15165 MMAX,
15166 MINP,
15167 NBMIN,
15168 ABSTOL,
15169 RELTOL,
15170 PIVMIN,
15171 D,
15172 E,
15173 E2,
15174 NVAL,
15175 AB,
15176 C,
15177 MOUT,
15178 NAB,
15179 WORK,
15180 IWORK,
15181 INFO);
15182 }
15183
15184 //-- dlaed0 --------------------------------------------------------------------
15185 void
LAPACK_DECL(dlaed0)15186 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
15187 const INTEGER *QSIZ,
15188 const INTEGER *N,
15189 DOUBLE *D,
15190 const DOUBLE *E,
15191 DOUBLE *Q,
15192 const INTEGER *LDQ,
15193 DOUBLE *QSTORE,
15194 const INTEGER *LDQS,
15195 DOUBLE *WORK,
15196 INTEGER *IWORK,
15197 INTEGER *INFO)
15198 {
15199 DEBUG_LAPACK_STUB("dlaed0");
15200 LAPACK_IMPL(dlaed0)(ICOMPQ,
15201 QSIZ,
15202 N,
15203 D,
15204 E,
15205 Q,
15206 LDQ,
15207 QSTORE,
15208 LDQS,
15209 WORK,
15210 IWORK,
15211 INFO);
15212 }
15213
15214 //-- dlaed1 --------------------------------------------------------------------
15215 void
LAPACK_DECL(dlaed1)15216 LAPACK_DECL(dlaed1)(const INTEGER *N,
15217 DOUBLE *D,
15218 DOUBLE *Q,
15219 const INTEGER *LDQ,
15220 INTEGER *INDXQ,
15221 const DOUBLE *RHO,
15222 const INTEGER *CUTPNT,
15223 DOUBLE *WORK,
15224 INTEGER *IWORK,
15225 INTEGER *INFO)
15226 {
15227 DEBUG_LAPACK_STUB("dlaed1");
15228 LAPACK_IMPL(dlaed1)(N,
15229 D,
15230 Q,
15231 LDQ,
15232 INDXQ,
15233 RHO,
15234 CUTPNT,
15235 WORK,
15236 IWORK,
15237 INFO);
15238 }
15239
15240 //-- dlaed2 --------------------------------------------------------------------
15241 void
LAPACK_DECL(dlaed2)15242 LAPACK_DECL(dlaed2)(INTEGER *K,
15243 const INTEGER *N,
15244 const INTEGER *N1,
15245 DOUBLE *D,
15246 DOUBLE *Q,
15247 const INTEGER *LDQ,
15248 INTEGER *INDXQ,
15249 DOUBLE *RHO,
15250 const DOUBLE *Z,
15251 DOUBLE *DLAMDA,
15252 DOUBLE *W,
15253 DOUBLE *Q2,
15254 INTEGER *INDX,
15255 INTEGER *INDXC,
15256 INTEGER *INDXP,
15257 INTEGER *COLTYP,
15258 INTEGER *INFO)
15259 {
15260 DEBUG_LAPACK_STUB("dlaed2");
15261 LAPACK_IMPL(dlaed2)(K,
15262 N,
15263 N1,
15264 D,
15265 Q,
15266 LDQ,
15267 INDXQ,
15268 RHO,
15269 Z,
15270 DLAMDA,
15271 W,
15272 Q2,
15273 INDX,
15274 INDXC,
15275 INDXP,
15276 COLTYP,
15277 INFO);
15278 }
15279
15280 //-- dlaed3 --------------------------------------------------------------------
15281 void
LAPACK_DECL(dlaed3)15282 LAPACK_DECL(dlaed3)(const INTEGER *K,
15283 const INTEGER *N,
15284 const INTEGER *N1,
15285 DOUBLE *D,
15286 DOUBLE *Q,
15287 const INTEGER *LDQ,
15288 const DOUBLE *RHO,
15289 DOUBLE *DLAMDA,
15290 const DOUBLE *Q2,
15291 const INTEGER *INDX,
15292 const INTEGER *CTOT,
15293 DOUBLE *W,
15294 DOUBLE *S,
15295 INTEGER *INFO)
15296 {
15297 DEBUG_LAPACK_STUB("dlaed3");
15298 LAPACK_IMPL(dlaed3)(K,
15299 N,
15300 N1,
15301 D,
15302 Q,
15303 LDQ,
15304 RHO,
15305 DLAMDA,
15306 Q2,
15307 INDX,
15308 CTOT,
15309 W,
15310 S,
15311 INFO);
15312 }
15313
15314 //-- dlaed4 --------------------------------------------------------------------
15315 void
LAPACK_DECL(dlaed4)15316 LAPACK_DECL(dlaed4)(const INTEGER *N,
15317 const INTEGER *I,
15318 const DOUBLE *D,
15319 const DOUBLE *Z,
15320 DOUBLE *DELTA,
15321 const DOUBLE *RHO,
15322 DOUBLE *DLAM,
15323 INTEGER *INFO)
15324 {
15325 DEBUG_LAPACK_STUB("dlaed4");
15326 LAPACK_IMPL(dlaed4)(N,
15327 I,
15328 D,
15329 Z,
15330 DELTA,
15331 RHO,
15332 DLAM,
15333 INFO);
15334 }
15335
15336 //-- dlaed5 --------------------------------------------------------------------
15337 void
LAPACK_DECL(dlaed5)15338 LAPACK_DECL(dlaed5)(const INTEGER *I,
15339 const DOUBLE *D,
15340 const DOUBLE *Z,
15341 DOUBLE *DELTA,
15342 const DOUBLE *RHO,
15343 DOUBLE *DLAM)
15344 {
15345 DEBUG_LAPACK_STUB("dlaed5");
15346 LAPACK_IMPL(dlaed5)(I,
15347 D,
15348 Z,
15349 DELTA,
15350 RHO,
15351 DLAM);
15352 }
15353
15354 //-- dlaed6 --------------------------------------------------------------------
15355 void
LAPACK_DECL(dlaed6)15356 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
15357 const LOGICAL *ORGATI,
15358 const DOUBLE *RHO,
15359 const DOUBLE *D,
15360 const DOUBLE *Z,
15361 const DOUBLE *FINIT,
15362 DOUBLE *TAU,
15363 INTEGER *INFO)
15364 {
15365 DEBUG_LAPACK_STUB("dlaed6");
15366 LAPACK_IMPL(dlaed6)(KNITER,
15367 ORGATI,
15368 RHO,
15369 D,
15370 Z,
15371 FINIT,
15372 TAU,
15373 INFO);
15374 }
15375
15376 //-- dlaed7 --------------------------------------------------------------------
15377 void
LAPACK_DECL(dlaed7)15378 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
15379 const INTEGER *N,
15380 const INTEGER *QSIZ,
15381 const INTEGER *TLVLS,
15382 const INTEGER *CURLVL,
15383 const INTEGER *CURPBM,
15384 DOUBLE *D,
15385 DOUBLE *Q,
15386 const INTEGER *LDQ,
15387 INTEGER *INDXQ,
15388 const DOUBLE *RHO,
15389 const INTEGER *CUTPNT,
15390 DOUBLE *QSTORE,
15391 INTEGER *QPTR,
15392 const INTEGER *PRMPTR,
15393 const INTEGER *PERM,
15394 const INTEGER *GIVPTR,
15395 const INTEGER *GIVCOL,
15396 const DOUBLE *GIVNUM,
15397 DOUBLE *WORK,
15398 INTEGER *IWORK,
15399 INTEGER *INFO)
15400 {
15401 DEBUG_LAPACK_STUB("dlaed7");
15402 LAPACK_IMPL(dlaed7)(ICOMPQ,
15403 N,
15404 QSIZ,
15405 TLVLS,
15406 CURLVL,
15407 CURPBM,
15408 D,
15409 Q,
15410 LDQ,
15411 INDXQ,
15412 RHO,
15413 CUTPNT,
15414 QSTORE,
15415 QPTR,
15416 PRMPTR,
15417 PERM,
15418 GIVPTR,
15419 GIVCOL,
15420 GIVNUM,
15421 WORK,
15422 IWORK,
15423 INFO);
15424 }
15425
15426 //-- dlaed8 --------------------------------------------------------------------
15427 void
LAPACK_DECL(dlaed8)15428 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
15429 INTEGER *K,
15430 const INTEGER *N,
15431 const INTEGER *QSIZ,
15432 DOUBLE *D,
15433 DOUBLE *Q,
15434 const INTEGER *LDQ,
15435 const INTEGER *INDXQ,
15436 DOUBLE *RHO,
15437 const INTEGER *CUTPNT,
15438 const DOUBLE *Z,
15439 DOUBLE *DLAMDA,
15440 DOUBLE *Q2,
15441 const INTEGER *LDQ2,
15442 DOUBLE *W,
15443 INTEGER *PERM,
15444 INTEGER *GIVPTR,
15445 INTEGER *GIVCOL,
15446 DOUBLE *GIVNUM,
15447 INTEGER *INDXP,
15448 INTEGER *INDX,
15449 INTEGER *INFO)
15450 {
15451 DEBUG_LAPACK_STUB("dlaed8");
15452 LAPACK_IMPL(dlaed8)(ICOMPQ,
15453 K,
15454 N,
15455 QSIZ,
15456 D,
15457 Q,
15458 LDQ,
15459 INDXQ,
15460 RHO,
15461 CUTPNT,
15462 Z,
15463 DLAMDA,
15464 Q2,
15465 LDQ2,
15466 W,
15467 PERM,
15468 GIVPTR,
15469 GIVCOL,
15470 GIVNUM,
15471 INDXP,
15472 INDX,
15473 INFO);
15474 }
15475
15476 //-- dlaed9 --------------------------------------------------------------------
15477 void
LAPACK_DECL(dlaed9)15478 LAPACK_DECL(dlaed9)(const INTEGER *K,
15479 const INTEGER *KSTART,
15480 const INTEGER *KSTOP,
15481 const INTEGER *N,
15482 DOUBLE *D,
15483 DOUBLE *Q,
15484 const INTEGER *LDQ,
15485 const DOUBLE *RHO,
15486 const DOUBLE *DLAMDA,
15487 const DOUBLE *W,
15488 DOUBLE *S,
15489 const INTEGER *LDS,
15490 INTEGER *INFO)
15491 {
15492 DEBUG_LAPACK_STUB("dlaed9");
15493 LAPACK_IMPL(dlaed9)(K,
15494 KSTART,
15495 KSTOP,
15496 N,
15497 D,
15498 Q,
15499 LDQ,
15500 RHO,
15501 DLAMDA,
15502 W,
15503 S,
15504 LDS,
15505 INFO);
15506 }
15507
15508 //-- dlaeda --------------------------------------------------------------------
15509 void
LAPACK_DECL(dlaeda)15510 LAPACK_DECL(dlaeda)(const INTEGER *N,
15511 const INTEGER *TLVLS,
15512 const INTEGER *CURLVL,
15513 const INTEGER *CURPBM,
15514 const INTEGER *PRMPTR,
15515 const INTEGER *PERM,
15516 const INTEGER *GIVPTR,
15517 const INTEGER *GIVCOL,
15518 const DOUBLE *GIVNUM,
15519 const DOUBLE *Q,
15520 const INTEGER *QPTR,
15521 DOUBLE *Z,
15522 DOUBLE *ZTEMP,
15523 INTEGER *INFO)
15524 {
15525 DEBUG_LAPACK_STUB("dlaeda");
15526 LAPACK_IMPL(dlaeda)(N,
15527 TLVLS,
15528 CURLVL,
15529 CURPBM,
15530 PRMPTR,
15531 PERM,
15532 GIVPTR,
15533 GIVCOL,
15534 GIVNUM,
15535 Q,
15536 QPTR,
15537 Z,
15538 ZTEMP,
15539 INFO);
15540 }
15541
15542 //-- dlaein --------------------------------------------------------------------
15543 void
LAPACK_DECL(dlaein)15544 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
15545 const LOGICAL *NOINIT,
15546 const INTEGER *N,
15547 const DOUBLE *H,
15548 const INTEGER *LDH,
15549 const DOUBLE *WR,
15550 const DOUBLE *WI,
15551 DOUBLE *VR,
15552 DOUBLE *VI,
15553 DOUBLE *B,
15554 const INTEGER *LDB,
15555 DOUBLE *WORK,
15556 const DOUBLE *EPS3,
15557 const DOUBLE *SMLNUM,
15558 const DOUBLE *BIGNUM,
15559 INTEGER *INFO)
15560 {
15561 DEBUG_LAPACK_STUB("dlaein");
15562 LAPACK_IMPL(dlaein)(RIGHTV,
15563 NOINIT,
15564 N,
15565 H,
15566 LDH,
15567 WR,
15568 WI,
15569 VR,
15570 VI,
15571 B,
15572 LDB,
15573 WORK,
15574 EPS3,
15575 SMLNUM,
15576 BIGNUM,
15577 INFO);
15578 }
15579
15580 //-- dlaev2 --------------------------------------------------------------------
15581 void
LAPACK_DECL(dlaev2)15582 LAPACK_DECL(dlaev2)(const DOUBLE *A,
15583 const DOUBLE *B,
15584 const DOUBLE *C,
15585 DOUBLE *RT1,
15586 DOUBLE *RT2,
15587 DOUBLE *CS1,
15588 DOUBLE *SN1)
15589 {
15590 DEBUG_LAPACK_STUB("dlaev2");
15591 LAPACK_IMPL(dlaev2)(A,
15592 B,
15593 C,
15594 RT1,
15595 RT2,
15596 CS1,
15597 SN1);
15598 }
15599
15600 //-- dlaexc --------------------------------------------------------------------
15601 void
LAPACK_DECL(dlaexc)15602 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
15603 const INTEGER *N,
15604 DOUBLE *T,
15605 const INTEGER *LDT,
15606 DOUBLE *Q,
15607 const INTEGER *LDQ,
15608 const INTEGER *J1,
15609 const INTEGER *N1,
15610 const INTEGER *N2,
15611 DOUBLE *WORK,
15612 INTEGER *INFO)
15613 {
15614 DEBUG_LAPACK_STUB("dlaexc");
15615 LAPACK_IMPL(dlaexc)(WANTQ,
15616 N,
15617 T,
15618 LDT,
15619 Q,
15620 LDQ,
15621 J1,
15622 N1,
15623 N2,
15624 WORK,
15625 INFO);
15626 }
15627
15628 //-- dlag2 ---------------------------------------------------------------------
15629 void
LAPACK_DECL(dlag2)15630 LAPACK_DECL(dlag2)(const DOUBLE *A,
15631 const INTEGER *LDA,
15632 const DOUBLE *B,
15633 const INTEGER *LDB,
15634 const DOUBLE *SAFMIN,
15635 DOUBLE *SCALE1,
15636 DOUBLE *SCALE2,
15637 DOUBLE *WR1,
15638 DOUBLE *WR2,
15639 DOUBLE *WI)
15640 {
15641 DEBUG_LAPACK_STUB("dlag2");
15642 LAPACK_IMPL(dlag2)(A,
15643 LDA,
15644 B,
15645 LDB,
15646 SAFMIN,
15647 SCALE1,
15648 SCALE2,
15649 WR1,
15650 WR2,
15651 WI);
15652 }
15653
15654 //-- dlag2s --------------------------------------------------------------------
15655 void
LAPACK_DECL(dlag2s)15656 LAPACK_DECL(dlag2s)(const INTEGER *M,
15657 const INTEGER *N,
15658 const DOUBLE *A,
15659 const INTEGER *LDA,
15660 FLOAT *SA,
15661 const INTEGER *LDSA,
15662 INTEGER *INFO)
15663 {
15664 DEBUG_LAPACK_STUB("dlag2s");
15665 LAPACK_IMPL(dlag2s)(M,
15666 N,
15667 A,
15668 LDA,
15669 SA,
15670 LDSA,
15671 INFO);
15672 }
15673
15674 //-- dlags2 --------------------------------------------------------------------
15675 void
LAPACK_DECL(dlags2)15676 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
15677 const DOUBLE *A1,
15678 const DOUBLE *A2,
15679 const DOUBLE *A3,
15680 const DOUBLE *B1,
15681 const DOUBLE *B2,
15682 const DOUBLE *B3,
15683 DOUBLE *CSU,
15684 DOUBLE *SNU,
15685 DOUBLE *CSV,
15686 DOUBLE *SNV,
15687 DOUBLE *CSQ,
15688 DOUBLE *SNQ)
15689 {
15690 DEBUG_LAPACK_STUB("dlags2");
15691 LAPACK_IMPL(dlags2)(UPPER,
15692 A1,
15693 A2,
15694 A3,
15695 B1,
15696 B2,
15697 B3,
15698 CSU,
15699 SNU,
15700 CSV,
15701 SNV,
15702 CSQ,
15703 SNQ);
15704 }
15705
15706 //-- dlagtf --------------------------------------------------------------------
15707 void
LAPACK_DECL(dlagtf)15708 LAPACK_DECL(dlagtf)(const INTEGER *N,
15709 DOUBLE *A,
15710 const DOUBLE *LAMBDA,
15711 DOUBLE *B,
15712 DOUBLE *C,
15713 const DOUBLE *TOL,
15714 DOUBLE *D,
15715 INTEGER *IN,
15716 INTEGER *INFO)
15717 {
15718 DEBUG_LAPACK_STUB("dlagtf");
15719 LAPACK_IMPL(dlagtf)(N,
15720 A,
15721 LAMBDA,
15722 B,
15723 C,
15724 TOL,
15725 D,
15726 IN,
15727 INFO);
15728 }
15729
15730 //-- dlagtm --------------------------------------------------------------------
15731 void
LAPACK_DECL(dlagtm)15732 LAPACK_DECL(dlagtm)(const char *TRANS,
15733 const INTEGER *N,
15734 const INTEGER *NRHS,
15735 const DOUBLE *ALPHA,
15736 const DOUBLE *DL,
15737 const DOUBLE *D,
15738 const DOUBLE *DU,
15739 const DOUBLE *X,
15740 const INTEGER *LDX,
15741 const DOUBLE *BETA,
15742 DOUBLE *B,
15743 const INTEGER *LDB)
15744 {
15745 DEBUG_LAPACK_STUB("dlagtm");
15746 LAPACK_IMPL(dlagtm)(TRANS,
15747 N,
15748 NRHS,
15749 ALPHA,
15750 DL,
15751 D,
15752 DU,
15753 X,
15754 LDX,
15755 BETA,
15756 B,
15757 LDB);
15758 }
15759
15760 //-- dlagts --------------------------------------------------------------------
15761 void
LAPACK_DECL(dlagts)15762 LAPACK_DECL(dlagts)(const INTEGER *JOB,
15763 const INTEGER *N,
15764 const DOUBLE *A,
15765 const DOUBLE *B,
15766 const DOUBLE *C,
15767 const DOUBLE *D,
15768 const INTEGER *IN,
15769 DOUBLE *Y,
15770 DOUBLE *TOL,
15771 INTEGER *INFO)
15772 {
15773 DEBUG_LAPACK_STUB("dlagts");
15774 LAPACK_IMPL(dlagts)(JOB,
15775 N,
15776 A,
15777 B,
15778 C,
15779 D,
15780 IN,
15781 Y,
15782 TOL,
15783 INFO);
15784 }
15785
15786 //-- dlagv2 --------------------------------------------------------------------
15787 void
LAPACK_DECL(dlagv2)15788 LAPACK_DECL(dlagv2)(DOUBLE *A,
15789 const INTEGER *LDA,
15790 DOUBLE *B,
15791 const INTEGER *LDB,
15792 DOUBLE *ALPHAR,
15793 DOUBLE *ALPHAI,
15794 DOUBLE *BETA,
15795 DOUBLE *CSL,
15796 DOUBLE *SNL,
15797 DOUBLE *CSR,
15798 DOUBLE *SNR)
15799 {
15800 DEBUG_LAPACK_STUB("dlagv2");
15801 LAPACK_IMPL(dlagv2)(A,
15802 LDA,
15803 B,
15804 LDB,
15805 ALPHAR,
15806 ALPHAI,
15807 BETA,
15808 CSL,
15809 SNL,
15810 CSR,
15811 SNR);
15812 }
15813
15814 //-- dlahqr --------------------------------------------------------------------
15815 void
LAPACK_DECL(dlahqr)15816 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
15817 const LOGICAL *WANTZ,
15818 const INTEGER *N,
15819 const INTEGER *ILO,
15820 const INTEGER *IHI,
15821 DOUBLE *H,
15822 const INTEGER *LDH,
15823 DOUBLE *WR,
15824 DOUBLE *WI,
15825 const INTEGER *ILOZ,
15826 const INTEGER *IHIZ,
15827 DOUBLE *Z,
15828 const INTEGER *LDZ,
15829 INTEGER *INFO)
15830 {
15831 DEBUG_LAPACK_STUB("dlahqr");
15832 LAPACK_IMPL(dlahqr)(WANTT,
15833 WANTZ,
15834 N,
15835 ILO,
15836 IHI,
15837 H,
15838 LDH,
15839 WR,
15840 WI,
15841 ILOZ,
15842 IHIZ,
15843 Z,
15844 LDZ,
15845 INFO);
15846 }
15847
15848 //-- dlahr2 --------------------------------------------------------------------
15849 void
LAPACK_DECL(dlahr2)15850 LAPACK_DECL(dlahr2)(const INTEGER *N,
15851 const INTEGER *K,
15852 const INTEGER *NB,
15853 DOUBLE *A,
15854 const INTEGER *LDA,
15855 DOUBLE *TAU,
15856 DOUBLE *T,
15857 const INTEGER *LDT,
15858 DOUBLE *Y,
15859 const INTEGER *LDY)
15860 {
15861 DEBUG_LAPACK_STUB("dlahr2");
15862 LAPACK_IMPL(dlahr2)(N,
15863 K,
15864 NB,
15865 A,
15866 LDA,
15867 TAU,
15868 T,
15869 LDT,
15870 Y,
15871 LDY);
15872 }
15873
15874 //-- dlahrd --------------------------------------------------------------------
15875 void
LAPACK_DECL(dlahrd)15876 LAPACK_DECL(dlahrd)(const INTEGER *N,
15877 const INTEGER *K,
15878 const INTEGER *NB,
15879 DOUBLE *A,
15880 const INTEGER *LDA,
15881 DOUBLE *TAU,
15882 DOUBLE *T,
15883 const INTEGER *LDT,
15884 DOUBLE *Y,
15885 const INTEGER *LDY)
15886 {
15887 DEBUG_LAPACK_STUB("dlahrd");
15888 LAPACK_IMPL(dlahrd)(N,
15889 K,
15890 NB,
15891 A,
15892 LDA,
15893 TAU,
15894 T,
15895 LDT,
15896 Y,
15897 LDY);
15898 }
15899
15900 //-- dlaic1 --------------------------------------------------------------------
15901 void
LAPACK_DECL(dlaic1)15902 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
15903 const INTEGER *J,
15904 const DOUBLE *X,
15905 const DOUBLE *SEST,
15906 const DOUBLE *W,
15907 const DOUBLE *GAMMA,
15908 DOUBLE *SESTPR,
15909 DOUBLE *S,
15910 DOUBLE *C)
15911 {
15912 DEBUG_LAPACK_STUB("dlaic1");
15913 LAPACK_IMPL(dlaic1)(JOB,
15914 J,
15915 X,
15916 SEST,
15917 W,
15918 GAMMA,
15919 SESTPR,
15920 S,
15921 C);
15922 }
15923
15924 //-- dlaisnan ------------------------------------------------------------------
15925 LOGICAL
LAPACK_DECL(dlaisnan)15926 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
15927 const DOUBLE *DIN2)
15928 {
15929 DEBUG_LAPACK_STUB("dlaisnan");
15930 return LAPACK_IMPL(dlaisnan)(DIN1,
15931 DIN2);
15932 }
15933
15934 //-- dlaln2 --------------------------------------------------------------------
15935 void
LAPACK_DECL(dlaln2)15936 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
15937 const INTEGER *NA,
15938 const INTEGER *NW,
15939 const DOUBLE *SMIN,
15940 const DOUBLE *CA,
15941 const DOUBLE *A,
15942 const INTEGER *LDA,
15943 const DOUBLE *D1,
15944 const DOUBLE *D2,
15945 const DOUBLE *B,
15946 const INTEGER *LDB,
15947 const DOUBLE *WR,
15948 const DOUBLE *WI,
15949 DOUBLE *X,
15950 const INTEGER *LDX,
15951 DOUBLE *SCALE,
15952 DOUBLE *XNORM,
15953 INTEGER *INFO)
15954 {
15955 DEBUG_LAPACK_STUB("dlaln2");
15956 LAPACK_IMPL(dlaln2)(LTRANS,
15957 NA,
15958 NW,
15959 SMIN,
15960 CA,
15961 A,
15962 LDA,
15963 D1,
15964 D2,
15965 B,
15966 LDB,
15967 WR,
15968 WI,
15969 X,
15970 LDX,
15971 SCALE,
15972 XNORM,
15973 INFO);
15974 }
15975
15976 //-- dlals0 --------------------------------------------------------------------
15977 void
LAPACK_DECL(dlals0)15978 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
15979 const INTEGER *NL,
15980 const INTEGER *NR,
15981 const INTEGER *SQRE,
15982 const INTEGER *NRHS,
15983 DOUBLE *B,
15984 const INTEGER *LDB,
15985 DOUBLE *BX,
15986 const INTEGER *LDBX,
15987 const INTEGER *PERM,
15988 const INTEGER *GIVPTR,
15989 const INTEGER *GIVCOL,
15990 const INTEGER *LDGCOL,
15991 const DOUBLE *GIVNUM,
15992 const INTEGER *LDGNUM,
15993 const DOUBLE *POLES,
15994 const DOUBLE *DIFL,
15995 const DOUBLE *DIFR,
15996 const DOUBLE *Z,
15997 const INTEGER *K,
15998 const DOUBLE *C,
15999 const DOUBLE *S,
16000 DOUBLE *WORK,
16001 INTEGER *INFO)
16002 {
16003 DEBUG_LAPACK_STUB("dlals0");
16004 LAPACK_IMPL(dlals0)(ICOMPQ,
16005 NL,
16006 NR,
16007 SQRE,
16008 NRHS,
16009 B,
16010 LDB,
16011 BX,
16012 LDBX,
16013 PERM,
16014 GIVPTR,
16015 GIVCOL,
16016 LDGCOL,
16017 GIVNUM,
16018 LDGNUM,
16019 POLES,
16020 DIFL,
16021 DIFR,
16022 Z,
16023 K,
16024 C,
16025 S,
16026 WORK,
16027 INFO);
16028 }
16029
16030 //-- dlalsa --------------------------------------------------------------------
16031 void
LAPACK_DECL(dlalsa)16032 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
16033 const INTEGER *SMLSIZ,
16034 const INTEGER *N,
16035 const INTEGER *NRHS,
16036 DOUBLE *B,
16037 const INTEGER *LDB,
16038 DOUBLE *BX,
16039 const INTEGER *LDBX,
16040 const DOUBLE *U,
16041 const INTEGER *LDU,
16042 const DOUBLE *VT,
16043 const INTEGER *K,
16044 const DOUBLE *DIFL,
16045 const DOUBLE *DIFR,
16046 const DOUBLE *Z,
16047 const DOUBLE *POLES,
16048 const INTEGER *GIVPTR,
16049 const INTEGER *GIVCOL,
16050 const INTEGER *LDGCOL,
16051 const INTEGER *PERM,
16052 const DOUBLE *GIVNUM,
16053 const DOUBLE *C,
16054 const DOUBLE *S,
16055 DOUBLE *WORK,
16056 INTEGER *IWORK,
16057 INTEGER *INFO)
16058 {
16059 DEBUG_LAPACK_STUB("dlalsa");
16060 LAPACK_IMPL(dlalsa)(ICOMPQ,
16061 SMLSIZ,
16062 N,
16063 NRHS,
16064 B,
16065 LDB,
16066 BX,
16067 LDBX,
16068 U,
16069 LDU,
16070 VT,
16071 K,
16072 DIFL,
16073 DIFR,
16074 Z,
16075 POLES,
16076 GIVPTR,
16077 GIVCOL,
16078 LDGCOL,
16079 PERM,
16080 GIVNUM,
16081 C,
16082 S,
16083 WORK,
16084 IWORK,
16085 INFO);
16086 }
16087
16088 //-- dlalsd --------------------------------------------------------------------
16089 void
LAPACK_DECL(dlalsd)16090 LAPACK_DECL(dlalsd)(const char *UPLO,
16091 const INTEGER *SMLSIZ,
16092 const INTEGER *N,
16093 const INTEGER *NRHS,
16094 DOUBLE *D,
16095 DOUBLE *E,
16096 DOUBLE *B,
16097 const INTEGER *LDB,
16098 const DOUBLE *RCOND,
16099 INTEGER *RANK,
16100 DOUBLE *WORK,
16101 INTEGER *IWORK,
16102 INTEGER *INFO)
16103 {
16104 DEBUG_LAPACK_STUB("dlalsd");
16105 LAPACK_IMPL(dlalsd)(UPLO,
16106 SMLSIZ,
16107 N,
16108 NRHS,
16109 D,
16110 E,
16111 B,
16112 LDB,
16113 RCOND,
16114 RANK,
16115 WORK,
16116 IWORK,
16117 INFO);
16118 }
16119
16120 //-- dlamrg --------------------------------------------------------------------
16121 void
LAPACK_DECL(dlamrg)16122 LAPACK_DECL(dlamrg)(const INTEGER *N1,
16123 const INTEGER *N2,
16124 const DOUBLE *A,
16125 const INTEGER *DTRD1,
16126 const INTEGER *DTRD2,
16127 INTEGER *INDEX)
16128 {
16129 DEBUG_LAPACK_STUB("dlamrg");
16130 LAPACK_IMPL(dlamrg)(N1,
16131 N2,
16132 A,
16133 DTRD1,
16134 DTRD2,
16135 INDEX);
16136 }
16137
16138 //-- dlaneg --------------------------------------------------------------------
16139 INTEGER
LAPACK_DECL(dlaneg)16140 LAPACK_DECL(dlaneg)(const INTEGER *N,
16141 const DOUBLE *D,
16142 const DOUBLE *LLD,
16143 const DOUBLE *SIGMA,
16144 const DOUBLE *PIVMIN,
16145 const INTEGER *R)
16146 {
16147 DEBUG_LAPACK_STUB("dlaneg");
16148 return LAPACK_IMPL(dlaneg)(N,
16149 D,
16150 LLD,
16151 SIGMA,
16152 PIVMIN,
16153 R);
16154 }
16155
16156 //-- dlangb --------------------------------------------------------------------
16157 DOUBLE
LAPACK_DECL(dlangb)16158 LAPACK_DECL(dlangb)(const char *NORM,
16159 const INTEGER *N,
16160 const INTEGER *KL,
16161 const INTEGER *KU,
16162 const DOUBLE *AB,
16163 const INTEGER *LDAB,
16164 DOUBLE *WORK)
16165 {
16166 DEBUG_LAPACK_STUB("dlangb");
16167 return LAPACK_IMPL(dlangb)(NORM,
16168 N,
16169 KL,
16170 KU,
16171 AB,
16172 LDAB,
16173 WORK);
16174 }
16175
16176 //-- dlange --------------------------------------------------------------------
16177 DOUBLE
LAPACK_DECL(dlange)16178 LAPACK_DECL(dlange)(const char *NORM,
16179 const INTEGER *M,
16180 const INTEGER *N,
16181 const DOUBLE *A,
16182 const INTEGER *LDA,
16183 DOUBLE *WORK)
16184 {
16185 DEBUG_LAPACK_STUB("dlange");
16186 return LAPACK_IMPL(dlange)(NORM,
16187 M,
16188 N,
16189 A,
16190 LDA,
16191 WORK);
16192 }
16193
16194 //-- dlangt --------------------------------------------------------------------
16195 DOUBLE
LAPACK_DECL(dlangt)16196 LAPACK_DECL(dlangt)(const char *NORM,
16197 const INTEGER *N,
16198 const DOUBLE *DL,
16199 const DOUBLE *D,
16200 const DOUBLE *DU)
16201 {
16202 DEBUG_LAPACK_STUB("dlangt");
16203 return LAPACK_IMPL(dlangt)(NORM,
16204 N,
16205 DL,
16206 D,
16207 DU);
16208 }
16209
16210 //-- dlanhs --------------------------------------------------------------------
16211 DOUBLE
LAPACK_DECL(dlanhs)16212 LAPACK_DECL(dlanhs)(const char *NORM,
16213 const INTEGER *N,
16214 const DOUBLE *A,
16215 const INTEGER *LDA,
16216 DOUBLE *WORK)
16217 {
16218 DEBUG_LAPACK_STUB("dlanhs");
16219 return LAPACK_IMPL(dlanhs)(NORM,
16220 N,
16221 A,
16222 LDA,
16223 WORK);
16224 }
16225
16226 //-- dlansb --------------------------------------------------------------------
16227 DOUBLE
LAPACK_DECL(dlansb)16228 LAPACK_DECL(dlansb)(const char *NORM,
16229 const char *UPLO,
16230 const INTEGER *N,
16231 const INTEGER *K,
16232 const DOUBLE *AB,
16233 const INTEGER *LDAB,
16234 DOUBLE *WORK)
16235 {
16236 DEBUG_LAPACK_STUB("dlansb");
16237 return LAPACK_IMPL(dlansb)(NORM,
16238 UPLO,
16239 N,
16240 K,
16241 AB,
16242 LDAB,
16243 WORK);
16244 }
16245
16246 //-- dlansf --------------------------------------------------------------------
16247 DOUBLE
LAPACK_DECL(dlansf)16248 LAPACK_DECL(dlansf)(const char *NORM,
16249 const char *TRANSR,
16250 const char *UPLO,
16251 const INTEGER *N,
16252 const DOUBLE *A,
16253 DOUBLE *WORK)
16254 {
16255 DEBUG_LAPACK_STUB("dlansf");
16256 return LAPACK_IMPL(dlansf)(NORM,
16257 TRANSR,
16258 UPLO,
16259 N,
16260 A,
16261 WORK);
16262 }
16263
16264 //-- dlansp --------------------------------------------------------------------
16265 DOUBLE
LAPACK_DECL(dlansp)16266 LAPACK_DECL(dlansp)(const char *NORM,
16267 const char *UPLO,
16268 const INTEGER *N,
16269 const DOUBLE *AP,
16270 DOUBLE *WORK)
16271 {
16272 DEBUG_LAPACK_STUB("dlansp");
16273 return LAPACK_IMPL(dlansp)(NORM,
16274 UPLO,
16275 N,
16276 AP,
16277 WORK);
16278 }
16279
16280 //-- dlanst --------------------------------------------------------------------
16281 DOUBLE
LAPACK_DECL(dlanst)16282 LAPACK_DECL(dlanst)(const char *NORM,
16283 const INTEGER *N,
16284 const DOUBLE *D,
16285 const DOUBLE *E)
16286 {
16287 DEBUG_LAPACK_STUB("dlanst");
16288 return LAPACK_IMPL(dlanst)(NORM,
16289 N,
16290 D,
16291 E);
16292 }
16293
16294 //-- dlansy --------------------------------------------------------------------
16295 DOUBLE
LAPACK_DECL(dlansy)16296 LAPACK_DECL(dlansy)(const char *NORM,
16297 const char *UPLO,
16298 const INTEGER *N,
16299 const DOUBLE *A,
16300 const INTEGER *LDA,
16301 DOUBLE *WORK)
16302 {
16303 DEBUG_LAPACK_STUB("dlansy");
16304 return LAPACK_IMPL(dlansy)(NORM,
16305 UPLO,
16306 N,
16307 A,
16308 LDA,
16309 WORK);
16310 }
16311
16312 //-- dlantb --------------------------------------------------------------------
16313 DOUBLE
LAPACK_DECL(dlantb)16314 LAPACK_DECL(dlantb)(const char *NORM,
16315 const char *UPLO,
16316 const char *DIAG,
16317 const INTEGER *N,
16318 const INTEGER *K,
16319 const DOUBLE *AB,
16320 const INTEGER *LDAB,
16321 DOUBLE *WORK)
16322 {
16323 DEBUG_LAPACK_STUB("dlantb");
16324 return LAPACK_IMPL(dlantb)(NORM,
16325 UPLO,
16326 DIAG,
16327 N,
16328 K,
16329 AB,
16330 LDAB,
16331 WORK);
16332 }
16333
16334 //-- dlantp --------------------------------------------------------------------
16335 DOUBLE
LAPACK_DECL(dlantp)16336 LAPACK_DECL(dlantp)(const char *NORM,
16337 const char *UPLO,
16338 const char *DIAG,
16339 const INTEGER *N,
16340 const DOUBLE *AP,
16341 DOUBLE *WORK)
16342 {
16343 DEBUG_LAPACK_STUB("dlantp");
16344 return LAPACK_IMPL(dlantp)(NORM,
16345 UPLO,
16346 DIAG,
16347 N,
16348 AP,
16349 WORK);
16350 }
16351
16352 //-- dlantr --------------------------------------------------------------------
16353 DOUBLE
LAPACK_DECL(dlantr)16354 LAPACK_DECL(dlantr)(const char *NORM,
16355 const char *UPLO,
16356 const char *DIAG,
16357 const INTEGER *M,
16358 const INTEGER *N,
16359 const DOUBLE *A,
16360 const INTEGER *LDA,
16361 DOUBLE *WORK)
16362 {
16363 DEBUG_LAPACK_STUB("dlantr");
16364 return LAPACK_IMPL(dlantr)(NORM,
16365 UPLO,
16366 DIAG,
16367 M,
16368 N,
16369 A,
16370 LDA,
16371 WORK);
16372 }
16373
16374 //-- dlanv2 --------------------------------------------------------------------
16375 void
LAPACK_DECL(dlanv2)16376 LAPACK_DECL(dlanv2)(DOUBLE *A,
16377 DOUBLE *B,
16378 DOUBLE *C,
16379 DOUBLE *D,
16380 DOUBLE *RT1R,
16381 DOUBLE *RT1I,
16382 DOUBLE *RT2R,
16383 DOUBLE *RT2I,
16384 DOUBLE *CS,
16385 DOUBLE *SN)
16386 {
16387 DEBUG_LAPACK_STUB("dlanv2");
16388 LAPACK_IMPL(dlanv2)(A,
16389 B,
16390 C,
16391 D,
16392 RT1R,
16393 RT1I,
16394 RT2R,
16395 RT2I,
16396 CS,
16397 SN);
16398 }
16399
16400 //-- dlapll --------------------------------------------------------------------
16401 void
LAPACK_DECL(dlapll)16402 LAPACK_DECL(dlapll)(const INTEGER *N,
16403 DOUBLE *X,
16404 const INTEGER *INCX,
16405 DOUBLE *Y,
16406 const INTEGER *INCY,
16407 DOUBLE *SSMIN)
16408 {
16409 DEBUG_LAPACK_STUB("dlapll");
16410 LAPACK_IMPL(dlapll)(N,
16411 X,
16412 INCX,
16413 Y,
16414 INCY,
16415 SSMIN);
16416 }
16417
16418 //-- dlapmr --------------------------------------------------------------------
16419 void
LAPACK_DECL(dlapmr)16420 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
16421 const INTEGER *M,
16422 const INTEGER *N,
16423 DOUBLE *X,
16424 const INTEGER *LDX,
16425 INTEGER *K)
16426 {
16427 DEBUG_LAPACK_STUB("dlapmr");
16428 LAPACK_IMPL(dlapmr)(FORWRD,
16429 M,
16430 N,
16431 X,
16432 LDX,
16433 K);
16434 }
16435
16436 //-- dlapmt --------------------------------------------------------------------
16437 void
LAPACK_DECL(dlapmt)16438 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
16439 const INTEGER *M,
16440 const INTEGER *N,
16441 DOUBLE *X,
16442 const INTEGER *LDX,
16443 INTEGER *K)
16444 {
16445 DEBUG_LAPACK_STUB("dlapmt");
16446 LAPACK_IMPL(dlapmt)(FORWRD,
16447 M,
16448 N,
16449 X,
16450 LDX,
16451 K);
16452 }
16453
16454 //-- dlapy2 --------------------------------------------------------------------
16455 DOUBLE
LAPACK_DECL(dlapy2)16456 LAPACK_DECL(dlapy2)(const DOUBLE *X,
16457 const DOUBLE *Y)
16458 {
16459 DEBUG_LAPACK_STUB("dlapy2");
16460 return LAPACK_IMPL(dlapy2)(X,
16461 Y);
16462 }
16463
16464 //-- dlapy3 --------------------------------------------------------------------
16465 DOUBLE
LAPACK_DECL(dlapy3)16466 LAPACK_DECL(dlapy3)(const DOUBLE *X,
16467 const DOUBLE *Y,
16468 const DOUBLE *Z)
16469 {
16470 DEBUG_LAPACK_STUB("dlapy3");
16471 return LAPACK_IMPL(dlapy3)(X,
16472 Y,
16473 Z);
16474 }
16475
16476 //-- dlaqgb --------------------------------------------------------------------
16477 void
LAPACK_DECL(dlaqgb)16478 LAPACK_DECL(dlaqgb)(const INTEGER *M,
16479 const INTEGER *N,
16480 const INTEGER *KL,
16481 const INTEGER *KU,
16482 DOUBLE *AB,
16483 const INTEGER *LDAB,
16484 const DOUBLE *R,
16485 const DOUBLE *C,
16486 const DOUBLE *ROWCND,
16487 const DOUBLE *COLCND,
16488 const DOUBLE *AMAX,
16489 char *EQUED)
16490 {
16491 DEBUG_LAPACK_STUB("dlaqgb");
16492 LAPACK_IMPL(dlaqgb)(M,
16493 N,
16494 KL,
16495 KU,
16496 AB,
16497 LDAB,
16498 R,
16499 C,
16500 ROWCND,
16501 COLCND,
16502 AMAX,
16503 EQUED);
16504 }
16505
16506 //-- dlaqge --------------------------------------------------------------------
16507 void
LAPACK_DECL(dlaqge)16508 LAPACK_DECL(dlaqge)(const INTEGER *M,
16509 const INTEGER *N,
16510 DOUBLE *A,
16511 const INTEGER *LDA,
16512 const DOUBLE *R,
16513 const DOUBLE *C,
16514 const DOUBLE *ROWCND,
16515 const DOUBLE *COLCND,
16516 const DOUBLE *AMAX,
16517 char *EQUED)
16518 {
16519 DEBUG_LAPACK_STUB("dlaqge");
16520 LAPACK_IMPL(dlaqge)(M,
16521 N,
16522 A,
16523 LDA,
16524 R,
16525 C,
16526 ROWCND,
16527 COLCND,
16528 AMAX,
16529 EQUED);
16530 }
16531
16532 //-- dlaqp2 --------------------------------------------------------------------
16533 void
LAPACK_DECL(dlaqp2)16534 LAPACK_DECL(dlaqp2)(const INTEGER *M,
16535 const INTEGER *N,
16536 const INTEGER *OFFSET,
16537 DOUBLE *A,
16538 const INTEGER *LDA,
16539 INTEGER *JPVT,
16540 DOUBLE *TAU,
16541 DOUBLE *VN1,
16542 DOUBLE *VN2,
16543 DOUBLE *WORK)
16544 {
16545 DEBUG_LAPACK_STUB("dlaqp2");
16546 LAPACK_IMPL(dlaqp2)(M,
16547 N,
16548 OFFSET,
16549 A,
16550 LDA,
16551 JPVT,
16552 TAU,
16553 VN1,
16554 VN2,
16555 WORK);
16556 }
16557
16558 //-- dlaqps --------------------------------------------------------------------
16559 void
LAPACK_DECL(dlaqps)16560 LAPACK_DECL(dlaqps)(const INTEGER *M,
16561 const INTEGER *N,
16562 const INTEGER *OFFSET,
16563 const INTEGER *NB,
16564 INTEGER *KB,
16565 DOUBLE *A,
16566 const INTEGER *LDA,
16567 INTEGER *JPVT,
16568 DOUBLE *TAU,
16569 DOUBLE *VN1,
16570 DOUBLE *VN2,
16571 DOUBLE *AUXV,
16572 DOUBLE *F,
16573 const INTEGER *LDF)
16574 {
16575 DEBUG_LAPACK_STUB("dlaqps");
16576 LAPACK_IMPL(dlaqps)(M,
16577 N,
16578 OFFSET,
16579 NB,
16580 KB,
16581 A,
16582 LDA,
16583 JPVT,
16584 TAU,
16585 VN1,
16586 VN2,
16587 AUXV,
16588 F,
16589 LDF);
16590 }
16591
16592 //-- dlaqr0 --------------------------------------------------------------------
16593 void
LAPACK_DECL(dlaqr0)16594 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
16595 const LOGICAL *WANTZ,
16596 const INTEGER *N,
16597 const INTEGER *ILO,
16598 const INTEGER *IHI,
16599 DOUBLE *H,
16600 const INTEGER *LDH,
16601 DOUBLE *WR,
16602 DOUBLE *WI,
16603 const INTEGER *ILOZ,
16604 const INTEGER *IHIZ,
16605 DOUBLE *Z,
16606 const INTEGER *LDZ,
16607 DOUBLE *WORK,
16608 const INTEGER *LWORK,
16609 INTEGER *INFO)
16610 {
16611 DEBUG_LAPACK_STUB("dlaqr0");
16612 LAPACK_IMPL(dlaqr0)(WANTT,
16613 WANTZ,
16614 N,
16615 ILO,
16616 IHI,
16617 H,
16618 LDH,
16619 WR,
16620 WI,
16621 ILOZ,
16622 IHIZ,
16623 Z,
16624 LDZ,
16625 WORK,
16626 LWORK,
16627 INFO);
16628 }
16629
16630 //-- dlaqr1 --------------------------------------------------------------------
16631 void
LAPACK_DECL(dlaqr1)16632 LAPACK_DECL(dlaqr1)(const INTEGER *N,
16633 const DOUBLE *H,
16634 const INTEGER *LDH,
16635 const DOUBLE *SR1,
16636 const DOUBLE *SI1,
16637 const DOUBLE *SR2,
16638 const DOUBLE *SI2,
16639 DOUBLE *V)
16640 {
16641 DEBUG_LAPACK_STUB("dlaqr1");
16642 LAPACK_IMPL(dlaqr1)(N,
16643 H,
16644 LDH,
16645 SR1,
16646 SI1,
16647 SR2,
16648 SI2,
16649 V);
16650 }
16651
16652 //-- dlaqr2 --------------------------------------------------------------------
16653 void
LAPACK_DECL(dlaqr2)16654 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
16655 const LOGICAL *WANTZ,
16656 const INTEGER *N,
16657 const INTEGER *KTOP,
16658 const INTEGER *KBOT,
16659 const INTEGER *NW,
16660 DOUBLE *H,
16661 const INTEGER *LDH,
16662 const INTEGER *ILOZ,
16663 const INTEGER *IHIZ,
16664 DOUBLE *Z,
16665 const INTEGER *LDZ,
16666 INTEGER *NS,
16667 INTEGER *ND,
16668 DOUBLE *SR,
16669 DOUBLE *SI,
16670 DOUBLE *V,
16671 const INTEGER *LDV,
16672 const INTEGER *NH,
16673 DOUBLE *T,
16674 const INTEGER *LDT,
16675 const INTEGER *NV,
16676 DOUBLE *WV,
16677 const INTEGER *LDWV,
16678 DOUBLE *WORK,
16679 const INTEGER *LWORK)
16680 {
16681 DEBUG_LAPACK_STUB("dlaqr2");
16682 LAPACK_IMPL(dlaqr2)(WANTT,
16683 WANTZ,
16684 N,
16685 KTOP,
16686 KBOT,
16687 NW,
16688 H,
16689 LDH,
16690 ILOZ,
16691 IHIZ,
16692 Z,
16693 LDZ,
16694 NS,
16695 ND,
16696 SR,
16697 SI,
16698 V,
16699 LDV,
16700 NH,
16701 T,
16702 LDT,
16703 NV,
16704 WV,
16705 LDWV,
16706 WORK,
16707 LWORK);
16708 }
16709
16710 //-- dlaqr3 --------------------------------------------------------------------
16711 void
LAPACK_DECL(dlaqr3)16712 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
16713 const LOGICAL *WANTZ,
16714 const INTEGER *N,
16715 const INTEGER *KTOP,
16716 const INTEGER *KBOT,
16717 const INTEGER *NW,
16718 DOUBLE *H,
16719 const INTEGER *LDH,
16720 const INTEGER *ILOZ,
16721 const INTEGER *IHIZ,
16722 DOUBLE *Z,
16723 const INTEGER *LDZ,
16724 INTEGER *NS,
16725 INTEGER *ND,
16726 DOUBLE *SR,
16727 DOUBLE *SI,
16728 DOUBLE *V,
16729 const INTEGER *LDV,
16730 const INTEGER *NH,
16731 DOUBLE *T,
16732 const INTEGER *LDT,
16733 const INTEGER *NV,
16734 DOUBLE *WV,
16735 const INTEGER *LDWV,
16736 DOUBLE *WORK,
16737 const INTEGER *LWORK)
16738 {
16739 DEBUG_LAPACK_STUB("dlaqr3");
16740 LAPACK_IMPL(dlaqr3)(WANTT,
16741 WANTZ,
16742 N,
16743 KTOP,
16744 KBOT,
16745 NW,
16746 H,
16747 LDH,
16748 ILOZ,
16749 IHIZ,
16750 Z,
16751 LDZ,
16752 NS,
16753 ND,
16754 SR,
16755 SI,
16756 V,
16757 LDV,
16758 NH,
16759 T,
16760 LDT,
16761 NV,
16762 WV,
16763 LDWV,
16764 WORK,
16765 LWORK);
16766 }
16767
16768 //-- dlaqr4 --------------------------------------------------------------------
16769 void
LAPACK_DECL(dlaqr4)16770 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
16771 const LOGICAL *WANTZ,
16772 const INTEGER *N,
16773 const INTEGER *ILO,
16774 const INTEGER *IHI,
16775 DOUBLE *H,
16776 const INTEGER *LDH,
16777 DOUBLE *WR,
16778 DOUBLE *WI,
16779 const INTEGER *ILOZ,
16780 const INTEGER *IHIZ,
16781 DOUBLE *Z,
16782 const INTEGER *LDZ,
16783 DOUBLE *WORK,
16784 const INTEGER *LWORK,
16785 INTEGER *INFO)
16786 {
16787 DEBUG_LAPACK_STUB("dlaqr4");
16788 LAPACK_IMPL(dlaqr4)(WANTT,
16789 WANTZ,
16790 N,
16791 ILO,
16792 IHI,
16793 H,
16794 LDH,
16795 WR,
16796 WI,
16797 ILOZ,
16798 IHIZ,
16799 Z,
16800 LDZ,
16801 WORK,
16802 LWORK,
16803 INFO);
16804 }
16805
16806 //-- dlaqr5 --------------------------------------------------------------------
16807 void
LAPACK_DECL(dlaqr5)16808 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
16809 const LOGICAL *WANTZ,
16810 const INTEGER *KACC22,
16811 const INTEGER *N,
16812 const INTEGER *KTOP,
16813 const INTEGER *KBOT,
16814 const INTEGER *NSHFTS,
16815 DOUBLE *SR,
16816 DOUBLE *SI,
16817 DOUBLE *H,
16818 const INTEGER *LDH,
16819 const INTEGER *ILOZ,
16820 const INTEGER *IHIZ,
16821 DOUBLE *Z,
16822 const INTEGER *LDZ,
16823 DOUBLE *V,
16824 const INTEGER *LDV,
16825 DOUBLE *U,
16826 const INTEGER *LDU,
16827 const INTEGER *NV,
16828 DOUBLE *WV,
16829 const INTEGER *LDWV,
16830 const INTEGER *NH,
16831 DOUBLE *WH,
16832 const INTEGER *LDWH)
16833 {
16834 DEBUG_LAPACK_STUB("dlaqr5");
16835 LAPACK_IMPL(dlaqr5)(WANTT,
16836 WANTZ,
16837 KACC22,
16838 N,
16839 KTOP,
16840 KBOT,
16841 NSHFTS,
16842 SR,
16843 SI,
16844 H,
16845 LDH,
16846 ILOZ,
16847 IHIZ,
16848 Z,
16849 LDZ,
16850 V,
16851 LDV,
16852 U,
16853 LDU,
16854 NV,
16855 WV,
16856 LDWV,
16857 NH,
16858 WH,
16859 LDWH);
16860 }
16861
16862 //-- dlaqsb --------------------------------------------------------------------
16863 void
LAPACK_DECL(dlaqsb)16864 LAPACK_DECL(dlaqsb)(const char *UPLO,
16865 const INTEGER *N,
16866 const INTEGER *KD,
16867 DOUBLE *AB,
16868 const INTEGER *LDAB,
16869 const DOUBLE *S,
16870 const DOUBLE *SCOND,
16871 const DOUBLE *AMAX,
16872 char *EQUED)
16873 {
16874 DEBUG_LAPACK_STUB("dlaqsb");
16875 LAPACK_IMPL(dlaqsb)(UPLO,
16876 N,
16877 KD,
16878 AB,
16879 LDAB,
16880 S,
16881 SCOND,
16882 AMAX,
16883 EQUED);
16884 }
16885
16886 //-- dlaqsp --------------------------------------------------------------------
16887 void
LAPACK_DECL(dlaqsp)16888 LAPACK_DECL(dlaqsp)(const char *UPLO,
16889 const INTEGER *N,
16890 DOUBLE *AP,
16891 const DOUBLE *S,
16892 const DOUBLE *SCOND,
16893 const DOUBLE *AMAX,
16894 char *EQUED)
16895 {
16896 DEBUG_LAPACK_STUB("dlaqsp");
16897 LAPACK_IMPL(dlaqsp)(UPLO,
16898 N,
16899 AP,
16900 S,
16901 SCOND,
16902 AMAX,
16903 EQUED);
16904 }
16905
16906 //-- dlaqsy --------------------------------------------------------------------
16907 void
LAPACK_DECL(dlaqsy)16908 LAPACK_DECL(dlaqsy)(const char *UPLO,
16909 const INTEGER *N,
16910 DOUBLE *A,
16911 const INTEGER *LDA,
16912 const DOUBLE *S,
16913 const DOUBLE *SCOND,
16914 const DOUBLE *AMAX,
16915 char *EQUED)
16916 {
16917 DEBUG_LAPACK_STUB("dlaqsy");
16918 LAPACK_IMPL(dlaqsy)(UPLO,
16919 N,
16920 A,
16921 LDA,
16922 S,
16923 SCOND,
16924 AMAX,
16925 EQUED);
16926 }
16927
16928 //-- dlaqtr --------------------------------------------------------------------
16929 void
LAPACK_DECL(dlaqtr)16930 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
16931 const LOGICAL *LREAL,
16932 const INTEGER *N,
16933 const DOUBLE *T,
16934 const INTEGER *LDT,
16935 const DOUBLE *B,
16936 const DOUBLE *W,
16937 DOUBLE *SCALE,
16938 DOUBLE *X,
16939 DOUBLE *WORK,
16940 INTEGER *INFO)
16941 {
16942 DEBUG_LAPACK_STUB("dlaqtr");
16943 LAPACK_IMPL(dlaqtr)(LTRAN,
16944 LREAL,
16945 N,
16946 T,
16947 LDT,
16948 B,
16949 W,
16950 SCALE,
16951 X,
16952 WORK,
16953 INFO);
16954 }
16955
16956 //-- dlar1v --------------------------------------------------------------------
16957 void
LAPACK_DECL(dlar1v)16958 LAPACK_DECL(dlar1v)(const INTEGER *N,
16959 const INTEGER *B1,
16960 const INTEGER *BN,
16961 const DOUBLE *LAMBDA,
16962 const DOUBLE *D,
16963 const DOUBLE *L,
16964 const DOUBLE *LD,
16965 const DOUBLE *LLD,
16966 const DOUBLE *PIVMIN,
16967 const DOUBLE *GAPTOL,
16968 DOUBLE *Z,
16969 const LOGICAL *WANTNC,
16970 INTEGER *NEGCNT,
16971 DOUBLE *ZTZ,
16972 DOUBLE *MINGMA,
16973 INTEGER *R,
16974 INTEGER *ISUPPZ,
16975 DOUBLE *NRMINV,
16976 DOUBLE *RESID,
16977 DOUBLE *RQCORR,
16978 DOUBLE *WORK)
16979 {
16980 DEBUG_LAPACK_STUB("dlar1v");
16981 LAPACK_IMPL(dlar1v)(N,
16982 B1,
16983 BN,
16984 LAMBDA,
16985 D,
16986 L,
16987 LD,
16988 LLD,
16989 PIVMIN,
16990 GAPTOL,
16991 Z,
16992 WANTNC,
16993 NEGCNT,
16994 ZTZ,
16995 MINGMA,
16996 R,
16997 ISUPPZ,
16998 NRMINV,
16999 RESID,
17000 RQCORR,
17001 WORK);
17002 }
17003
17004 //-- dlar2v --------------------------------------------------------------------
17005 void
LAPACK_DECL(dlar2v)17006 LAPACK_DECL(dlar2v)(const INTEGER *N,
17007 DOUBLE *X,
17008 DOUBLE *Y,
17009 DOUBLE *Z,
17010 const INTEGER *INCX,
17011 const DOUBLE *C,
17012 const DOUBLE *S,
17013 const INTEGER *INCC)
17014 {
17015 DEBUG_LAPACK_STUB("dlar2v");
17016 LAPACK_IMPL(dlar2v)(N,
17017 X,
17018 Y,
17019 Z,
17020 INCX,
17021 C,
17022 S,
17023 INCC);
17024 }
17025
17026 //-- dlarf ---------------------------------------------------------------------
17027 void
LAPACK_DECL(dlarf)17028 LAPACK_DECL(dlarf)(const char *SIDE,
17029 const INTEGER *M,
17030 const INTEGER *N,
17031 const DOUBLE *V,
17032 const INTEGER *INCV,
17033 const DOUBLE *TAU,
17034 DOUBLE *C,
17035 const INTEGER *LDC,
17036 DOUBLE *WORK)
17037 {
17038 DEBUG_LAPACK_STUB("dlarf");
17039 LAPACK_IMPL(dlarf)(SIDE,
17040 M,
17041 N,
17042 V,
17043 INCV,
17044 TAU,
17045 C,
17046 LDC,
17047 WORK);
17048 }
17049
17050 //-- dlarfb --------------------------------------------------------------------
17051 void
LAPACK_DECL(dlarfb)17052 LAPACK_DECL(dlarfb)(const char *SIDE,
17053 const char *TRANS,
17054 const char *DIRECT,
17055 const char *STOREV,
17056 const INTEGER *M,
17057 const INTEGER *N,
17058 const INTEGER *K,
17059 const DOUBLE *V,
17060 const INTEGER *LDV,
17061 const DOUBLE *T,
17062 const INTEGER *LDT,
17063 DOUBLE *C,
17064 const INTEGER *LDC,
17065 DOUBLE *WORK,
17066 const INTEGER *LDWORK)
17067 {
17068 DEBUG_LAPACK_STUB("dlarfb");
17069 LAPACK_IMPL(dlarfb)(SIDE,
17070 TRANS,
17071 DIRECT,
17072 STOREV,
17073 M,
17074 N,
17075 K,
17076 V,
17077 LDV,
17078 T,
17079 LDT,
17080 C,
17081 LDC,
17082 WORK,
17083 LDWORK);
17084 }
17085
17086 //-- dlarfg --------------------------------------------------------------------
17087 void
LAPACK_DECL(dlarfg)17088 LAPACK_DECL(dlarfg)(const INTEGER *N,
17089 DOUBLE *ALPHA,
17090 DOUBLE *X,
17091 const INTEGER *INCX,
17092 DOUBLE *TAU)
17093 {
17094 DEBUG_LAPACK_STUB("dlarfg");
17095 LAPACK_IMPL(dlarfg)(N,
17096 ALPHA,
17097 X,
17098 INCX,
17099 TAU);
17100 }
17101
17102 //-- dlarfgp -------------------------------------------------------------------
17103 void
LAPACK_DECL(dlarfgp)17104 LAPACK_DECL(dlarfgp)(const INTEGER *N,
17105 DOUBLE *ALPHA,
17106 DOUBLE *X,
17107 const INTEGER *INCX,
17108 DOUBLE *TAU)
17109 {
17110 DEBUG_LAPACK_STUB("dlarfgp");
17111 LAPACK_IMPL(dlarfgp)(N,
17112 ALPHA,
17113 X,
17114 INCX,
17115 TAU);
17116 }
17117
17118 //-- dlarft --------------------------------------------------------------------
17119 void
LAPACK_DECL(dlarft)17120 LAPACK_DECL(dlarft)(const char *DIRECT,
17121 const char *STOREV,
17122 const INTEGER *N,
17123 const INTEGER *K,
17124 DOUBLE *V,
17125 const INTEGER *LDV,
17126 const DOUBLE *TAU,
17127 DOUBLE *T,
17128 const INTEGER *LDT)
17129 {
17130 DEBUG_LAPACK_STUB("dlarft");
17131 LAPACK_IMPL(dlarft)(DIRECT,
17132 STOREV,
17133 N,
17134 K,
17135 V,
17136 LDV,
17137 TAU,
17138 T,
17139 LDT);
17140 }
17141
17142 //-- dlarfx --------------------------------------------------------------------
17143 void
LAPACK_DECL(dlarfx)17144 LAPACK_DECL(dlarfx)(const char *SIDE,
17145 const INTEGER *M,
17146 const INTEGER *N,
17147 const DOUBLE *V,
17148 const DOUBLE *TAU,
17149 DOUBLE *C,
17150 const INTEGER *LDC,
17151 DOUBLE *WORK)
17152 {
17153 DEBUG_LAPACK_STUB("dlarfx");
17154 LAPACK_IMPL(dlarfx)(SIDE,
17155 M,
17156 N,
17157 V,
17158 TAU,
17159 C,
17160 LDC,
17161 WORK);
17162 }
17163
17164 //-- dlargv --------------------------------------------------------------------
17165 void
LAPACK_DECL(dlargv)17166 LAPACK_DECL(dlargv)(const INTEGER *N,
17167 DOUBLE *X,
17168 const INTEGER *INCX,
17169 DOUBLE *Y,
17170 const INTEGER *INCY,
17171 DOUBLE *C,
17172 const INTEGER *INCC)
17173 {
17174 DEBUG_LAPACK_STUB("dlargv");
17175 LAPACK_IMPL(dlargv)(N,
17176 X,
17177 INCX,
17178 Y,
17179 INCY,
17180 C,
17181 INCC);
17182 }
17183
17184 //-- dlarnv --------------------------------------------------------------------
17185 void
LAPACK_DECL(dlarnv)17186 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
17187 INTEGER *ISEED,
17188 const INTEGER *N,
17189 DOUBLE *X)
17190 {
17191 DEBUG_LAPACK_STUB("dlarnv");
17192 LAPACK_IMPL(dlarnv)(IDIST,
17193 ISEED,
17194 N,
17195 X);
17196 }
17197
17198 //-- dlarra --------------------------------------------------------------------
17199 void
LAPACK_DECL(dlarra)17200 LAPACK_DECL(dlarra)(const INTEGER *N,
17201 const DOUBLE *D,
17202 DOUBLE *E,
17203 DOUBLE *E2,
17204 const DOUBLE *SPLTOL,
17205 const DOUBLE *TNRM,
17206 INTEGER *NSPLIT,
17207 INTEGER *ISPLIT,
17208 INTEGER *INFO)
17209 {
17210 DEBUG_LAPACK_STUB("dlarra");
17211 LAPACK_IMPL(dlarra)(N,
17212 D,
17213 E,
17214 E2,
17215 SPLTOL,
17216 TNRM,
17217 NSPLIT,
17218 ISPLIT,
17219 INFO);
17220 }
17221
17222 //-- dlarrb --------------------------------------------------------------------
17223 void
LAPACK_DECL(dlarrb)17224 LAPACK_DECL(dlarrb)(const INTEGER *N,
17225 const DOUBLE *D,
17226 const DOUBLE *LLD,
17227 const INTEGER *IFIRST,
17228 const INTEGER *ILAST,
17229 const DOUBLE *RTOL1,
17230 const DOUBLE *RTOL2,
17231 const INTEGER *OFFSET,
17232 DOUBLE *W,
17233 DOUBLE *WGAP,
17234 DOUBLE *WERR,
17235 DOUBLE *WORK,
17236 INTEGER *IWORK,
17237 const DOUBLE *PIVMIN,
17238 const DOUBLE *SPDIAM,
17239 const INTEGER *TWIST,
17240 INTEGER *INFO)
17241 {
17242 DEBUG_LAPACK_STUB("dlarrb");
17243 LAPACK_IMPL(dlarrb)(N,
17244 D,
17245 LLD,
17246 IFIRST,
17247 ILAST,
17248 RTOL1,
17249 RTOL2,
17250 OFFSET,
17251 W,
17252 WGAP,
17253 WERR,
17254 WORK,
17255 IWORK,
17256 PIVMIN,
17257 SPDIAM,
17258 TWIST,
17259 INFO);
17260 }
17261
17262 //-- dlarrc --------------------------------------------------------------------
17263 void
LAPACK_DECL(dlarrc)17264 LAPACK_DECL(dlarrc)(const char *JOBT,
17265 const INTEGER *N,
17266 const DOUBLE *VL,
17267 const DOUBLE *VU,
17268 const DOUBLE *D,
17269 const DOUBLE *E,
17270 const DOUBLE *PIVMIN,
17271 INTEGER *EIGCNT,
17272 INTEGER *LCNT,
17273 INTEGER *RCNT,
17274 INTEGER *INFO)
17275 {
17276 DEBUG_LAPACK_STUB("dlarrc");
17277 LAPACK_IMPL(dlarrc)(JOBT,
17278 N,
17279 VL,
17280 VU,
17281 D,
17282 E,
17283 PIVMIN,
17284 EIGCNT,
17285 LCNT,
17286 RCNT,
17287 INFO);
17288 }
17289
17290 //-- dlarrd --------------------------------------------------------------------
17291 void
LAPACK_DECL(dlarrd)17292 LAPACK_DECL(dlarrd)(const char *RANGE,
17293 const char *ORDER,
17294 const INTEGER *N,
17295 const DOUBLE *VL,
17296 const DOUBLE *VU,
17297 const INTEGER *IL,
17298 const INTEGER *IU,
17299 const DOUBLE *GERS,
17300 const DOUBLE *RELTOL,
17301 const DOUBLE *D,
17302 const DOUBLE *E,
17303 const DOUBLE *E2,
17304 const DOUBLE *PIVMIN,
17305 const INTEGER *NSPLIT,
17306 const INTEGER *ISPLIT,
17307 INTEGER *M,
17308 DOUBLE *W,
17309 DOUBLE *WERR,
17310 DOUBLE *WL,
17311 DOUBLE *WU,
17312 INTEGER *IBLOCK,
17313 INTEGER *INDEXW,
17314 DOUBLE *WORK,
17315 INTEGER *IWORK,
17316 INTEGER *INFO)
17317 {
17318 DEBUG_LAPACK_STUB("dlarrd");
17319 LAPACK_IMPL(dlarrd)(RANGE,
17320 ORDER,
17321 N,
17322 VL,
17323 VU,
17324 IL,
17325 IU,
17326 GERS,
17327 RELTOL,
17328 D,
17329 E,
17330 E2,
17331 PIVMIN,
17332 NSPLIT,
17333 ISPLIT,
17334 M,
17335 W,
17336 WERR,
17337 WL,
17338 WU,
17339 IBLOCK,
17340 INDEXW,
17341 WORK,
17342 IWORK,
17343 INFO);
17344 }
17345
17346 //-- dlarre --------------------------------------------------------------------
17347 void
LAPACK_DECL(dlarre)17348 LAPACK_DECL(dlarre)(const char *RANGE,
17349 const INTEGER *N,
17350 DOUBLE *VL,
17351 DOUBLE *VU,
17352 const INTEGER *IL,
17353 const INTEGER *IU,
17354 DOUBLE *D,
17355 DOUBLE *E,
17356 DOUBLE *E2,
17357 const DOUBLE *RTOL1,
17358 const DOUBLE *RTOL2,
17359 const DOUBLE *SPLTOL,
17360 INTEGER *NSPLIT,
17361 INTEGER *ISPLIT,
17362 INTEGER *M,
17363 DOUBLE *W,
17364 DOUBLE *WERR,
17365 DOUBLE *WGAP,
17366 INTEGER *IBLOCK,
17367 INTEGER *INDEXW,
17368 DOUBLE *GERS,
17369 DOUBLE *PIVMIN,
17370 DOUBLE *WORK,
17371 INTEGER *IWORK,
17372 INTEGER *INFO)
17373 {
17374 DEBUG_LAPACK_STUB("dlarre");
17375 LAPACK_IMPL(dlarre)(RANGE,
17376 N,
17377 VL,
17378 VU,
17379 IL,
17380 IU,
17381 D,
17382 E,
17383 E2,
17384 RTOL1,
17385 RTOL2,
17386 SPLTOL,
17387 NSPLIT,
17388 ISPLIT,
17389 M,
17390 W,
17391 WERR,
17392 WGAP,
17393 IBLOCK,
17394 INDEXW,
17395 GERS,
17396 PIVMIN,
17397 WORK,
17398 IWORK,
17399 INFO);
17400 }
17401
17402 //-- dlarrf --------------------------------------------------------------------
17403 void
LAPACK_DECL(dlarrf)17404 LAPACK_DECL(dlarrf)(const INTEGER *N,
17405 const DOUBLE *D,
17406 const DOUBLE *L,
17407 const DOUBLE *LD,
17408 const INTEGER *CLSTRT,
17409 const INTEGER *CLEND,
17410 const DOUBLE *W,
17411 DOUBLE *WGAP,
17412 const DOUBLE *WERR,
17413 const DOUBLE *SPDIAM,
17414 const DOUBLE *CLGAPL,
17415 const DOUBLE *CLGAPR,
17416 const DOUBLE *PIVMIN,
17417 DOUBLE *SIGMA,
17418 DOUBLE *DPLUS,
17419 DOUBLE *LPLUS,
17420 DOUBLE *WORK,
17421 INTEGER *INFO)
17422 {
17423 DEBUG_LAPACK_STUB("dlarrf");
17424 LAPACK_IMPL(dlarrf)(N,
17425 D,
17426 L,
17427 LD,
17428 CLSTRT,
17429 CLEND,
17430 W,
17431 WGAP,
17432 WERR,
17433 SPDIAM,
17434 CLGAPL,
17435 CLGAPR,
17436 PIVMIN,
17437 SIGMA,
17438 DPLUS,
17439 LPLUS,
17440 WORK,
17441 INFO);
17442 }
17443
17444 //-- dlarrj --------------------------------------------------------------------
17445 void
LAPACK_DECL(dlarrj)17446 LAPACK_DECL(dlarrj)(const INTEGER *N,
17447 const DOUBLE *D,
17448 const DOUBLE *E2,
17449 const INTEGER *IFIRST,
17450 const INTEGER *ILAST,
17451 const DOUBLE *RTOL,
17452 const INTEGER *OFFSET,
17453 DOUBLE *W,
17454 DOUBLE *WERR,
17455 DOUBLE *WORK,
17456 INTEGER *IWORK,
17457 const DOUBLE *PIVMIN,
17458 const DOUBLE *SPDIAM,
17459 INTEGER *INFO)
17460 {
17461 DEBUG_LAPACK_STUB("dlarrj");
17462 LAPACK_IMPL(dlarrj)(N,
17463 D,
17464 E2,
17465 IFIRST,
17466 ILAST,
17467 RTOL,
17468 OFFSET,
17469 W,
17470 WERR,
17471 WORK,
17472 IWORK,
17473 PIVMIN,
17474 SPDIAM,
17475 INFO);
17476 }
17477
17478 //-- dlarrk --------------------------------------------------------------------
17479 void
LAPACK_DECL(dlarrk)17480 LAPACK_DECL(dlarrk)(const INTEGER *N,
17481 const INTEGER *IW,
17482 const DOUBLE *GL,
17483 const DOUBLE *GU,
17484 const DOUBLE *D,
17485 const DOUBLE *E2,
17486 const DOUBLE *PIVMIN,
17487 const DOUBLE *RELTOL,
17488 DOUBLE *W,
17489 DOUBLE *WERR,
17490 INTEGER *INFO)
17491 {
17492 DEBUG_LAPACK_STUB("dlarrk");
17493 LAPACK_IMPL(dlarrk)(N,
17494 IW,
17495 GL,
17496 GU,
17497 D,
17498 E2,
17499 PIVMIN,
17500 RELTOL,
17501 W,
17502 WERR,
17503 INFO);
17504 }
17505
17506 //-- dlarrr --------------------------------------------------------------------
17507 void
LAPACK_DECL(dlarrr)17508 LAPACK_DECL(dlarrr)(const INTEGER *N,
17509 const DOUBLE *D,
17510 DOUBLE *E,
17511 INTEGER *INFO)
17512 {
17513 DEBUG_LAPACK_STUB("dlarrr");
17514 LAPACK_IMPL(dlarrr)(N,
17515 D,
17516 E,
17517 INFO);
17518 }
17519
17520 //-- dlarrv --------------------------------------------------------------------
17521 void
LAPACK_DECL(dlarrv)17522 LAPACK_DECL(dlarrv)(const INTEGER *N,
17523 const DOUBLE *VL,
17524 const DOUBLE *VU,
17525 DOUBLE *D,
17526 DOUBLE *L,
17527 const DOUBLE *PIVMIN,
17528 const INTEGER *ISPLIT,
17529 const INTEGER *M,
17530 const INTEGER *DOL,
17531 const INTEGER *DOU,
17532 const DOUBLE *MINRGP,
17533 const DOUBLE *RTOL1,
17534 const DOUBLE *RTOL2,
17535 DOUBLE *W,
17536 DOUBLE *WERR,
17537 DOUBLE *WGAP,
17538 const INTEGER *IBLOCK,
17539 const INTEGER *INDEXW,
17540 const DOUBLE *GERS,
17541 DOUBLE *Z,
17542 const INTEGER *LDZ,
17543 INTEGER *ISUPPZ,
17544 DOUBLE *WORK,
17545 INTEGER *IWORK,
17546 INTEGER *INFO)
17547 {
17548 DEBUG_LAPACK_STUB("dlarrv");
17549 LAPACK_IMPL(dlarrv)(N,
17550 VL,
17551 VU,
17552 D,
17553 L,
17554 PIVMIN,
17555 ISPLIT,
17556 M,
17557 DOL,
17558 DOU,
17559 MINRGP,
17560 RTOL1,
17561 RTOL2,
17562 W,
17563 WERR,
17564 WGAP,
17565 IBLOCK,
17566 INDEXW,
17567 GERS,
17568 Z,
17569 LDZ,
17570 ISUPPZ,
17571 WORK,
17572 IWORK,
17573 INFO);
17574 }
17575
17576 //-- dlarscl2 ------------------------------------------------------------------
17577 void
LAPACK_DECL(dlarscl2)17578 LAPACK_DECL(dlarscl2)(const INTEGER *M,
17579 const INTEGER *N,
17580 const DOUBLE *D,
17581 DOUBLE *X,
17582 const INTEGER *LDX)
17583 {
17584 DEBUG_LAPACK_STUB("dlarscl2");
17585 LAPACK_IMPL(dlarscl2)(M,
17586 N,
17587 D,
17588 X,
17589 LDX);
17590 }
17591
17592 //-- dlartg --------------------------------------------------------------------
17593 void
LAPACK_DECL(dlartg)17594 LAPACK_DECL(dlartg)(const DOUBLE *F,
17595 const DOUBLE *G,
17596 DOUBLE *CS,
17597 DOUBLE *SN,
17598 DOUBLE *R)
17599 {
17600 DEBUG_LAPACK_STUB("dlartg");
17601 LAPACK_IMPL(dlartg)(F,
17602 G,
17603 CS,
17604 SN,
17605 R);
17606 }
17607
17608 //-- dlartgp -------------------------------------------------------------------
17609 void
LAPACK_DECL(dlartgp)17610 LAPACK_DECL(dlartgp)(const DOUBLE *F,
17611 const DOUBLE *G,
17612 DOUBLE *CS,
17613 DOUBLE *SN,
17614 DOUBLE *R)
17615 {
17616 DEBUG_LAPACK_STUB("dlartgp");
17617 LAPACK_IMPL(dlartgp)(F,
17618 G,
17619 CS,
17620 SN,
17621 R);
17622 }
17623
17624 //-- dlartgs -------------------------------------------------------------------
17625 void
LAPACK_DECL(dlartgs)17626 LAPACK_DECL(dlartgs)(const DOUBLE *X,
17627 const DOUBLE *Y,
17628 const DOUBLE *SIGMA,
17629 DOUBLE *CS,
17630 DOUBLE *SN)
17631 {
17632 DEBUG_LAPACK_STUB("dlartgs");
17633 LAPACK_IMPL(dlartgs)(X,
17634 Y,
17635 SIGMA,
17636 CS,
17637 SN);
17638 }
17639
17640 //-- dlartv --------------------------------------------------------------------
17641 void
LAPACK_DECL(dlartv)17642 LAPACK_DECL(dlartv)(const INTEGER *N,
17643 DOUBLE *X,
17644 const INTEGER *INCX,
17645 DOUBLE *Y,
17646 const INTEGER *INCY,
17647 const DOUBLE *C,
17648 const DOUBLE *S,
17649 const INTEGER *INCC)
17650 {
17651 DEBUG_LAPACK_STUB("dlartv");
17652 LAPACK_IMPL(dlartv)(N,
17653 X,
17654 INCX,
17655 Y,
17656 INCY,
17657 C,
17658 S,
17659 INCC);
17660 }
17661
17662 //-- dlaruv --------------------------------------------------------------------
17663 void
LAPACK_DECL(dlaruv)17664 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
17665 const INTEGER *N,
17666 DOUBLE *X)
17667 {
17668 DEBUG_LAPACK_STUB("dlaruv");
17669 LAPACK_IMPL(dlaruv)(ISEED,
17670 N,
17671 X);
17672 }
17673
17674 //-- dlarz ---------------------------------------------------------------------
17675 void
LAPACK_DECL(dlarz)17676 LAPACK_DECL(dlarz)(const char *SIDE,
17677 const INTEGER *M,
17678 const INTEGER *N,
17679 const INTEGER *L,
17680 const DOUBLE *V,
17681 const INTEGER *INCV,
17682 const DOUBLE *TAU,
17683 DOUBLE *C,
17684 const INTEGER *LDC,
17685 DOUBLE *WORK)
17686 {
17687 DEBUG_LAPACK_STUB("dlarz");
17688 LAPACK_IMPL(dlarz)(SIDE,
17689 M,
17690 N,
17691 L,
17692 V,
17693 INCV,
17694 TAU,
17695 C,
17696 LDC,
17697 WORK);
17698 }
17699
17700 //-- dlarzb --------------------------------------------------------------------
17701 void
LAPACK_DECL(dlarzb)17702 LAPACK_DECL(dlarzb)(const char *SIDE,
17703 const char *TRANS,
17704 const char *DIRECT,
17705 const char *STOREV,
17706 const INTEGER *M,
17707 const INTEGER *N,
17708 const INTEGER *K,
17709 const INTEGER *L,
17710 const DOUBLE *V,
17711 const INTEGER *LDV,
17712 const DOUBLE *T,
17713 const INTEGER *LDT,
17714 DOUBLE *C,
17715 const INTEGER *LDC,
17716 DOUBLE *WORK,
17717 const INTEGER *LDWORK)
17718 {
17719 DEBUG_LAPACK_STUB("dlarzb");
17720 LAPACK_IMPL(dlarzb)(SIDE,
17721 TRANS,
17722 DIRECT,
17723 STOREV,
17724 M,
17725 N,
17726 K,
17727 L,
17728 V,
17729 LDV,
17730 T,
17731 LDT,
17732 C,
17733 LDC,
17734 WORK,
17735 LDWORK);
17736 }
17737
17738 //-- dlarzt --------------------------------------------------------------------
17739 void
LAPACK_DECL(dlarzt)17740 LAPACK_DECL(dlarzt)(const char *DIRECT,
17741 const char *STOREV,
17742 const INTEGER *N,
17743 const INTEGER *K,
17744 DOUBLE *V,
17745 const INTEGER *LDV,
17746 const DOUBLE *TAU,
17747 DOUBLE *T,
17748 const INTEGER *LDT)
17749 {
17750 DEBUG_LAPACK_STUB("dlarzt");
17751 LAPACK_IMPL(dlarzt)(DIRECT,
17752 STOREV,
17753 N,
17754 K,
17755 V,
17756 LDV,
17757 TAU,
17758 T,
17759 LDT);
17760 }
17761
17762 //-- dlas2 ---------------------------------------------------------------------
17763 void
LAPACK_DECL(dlas2)17764 LAPACK_DECL(dlas2)(const DOUBLE *F,
17765 const DOUBLE *G,
17766 const DOUBLE *H,
17767 DOUBLE *SSMIN,
17768 DOUBLE *SSMAX)
17769 {
17770 DEBUG_LAPACK_STUB("dlas2");
17771 LAPACK_IMPL(dlas2)(F,
17772 G,
17773 H,
17774 SSMIN,
17775 SSMAX);
17776 }
17777
17778 //-- dlascl --------------------------------------------------------------------
17779 void
LAPACK_DECL(dlascl)17780 LAPACK_DECL(dlascl)(const char *TYPE,
17781 const INTEGER *KL,
17782 const INTEGER *KU,
17783 const DOUBLE *CFROM,
17784 const DOUBLE *CTO,
17785 const INTEGER *M,
17786 const INTEGER *N,
17787 DOUBLE *A,
17788 const INTEGER *LDA,
17789 INTEGER *INFO)
17790 {
17791 DEBUG_LAPACK_STUB("dlascl");
17792 LAPACK_IMPL(dlascl)(TYPE,
17793 KL,
17794 KU,
17795 CFROM,
17796 CTO,
17797 M,
17798 N,
17799 A,
17800 LDA,
17801 INFO);
17802 }
17803
17804 //-- dlascl2 -------------------------------------------------------------------
17805 void
LAPACK_DECL(dlascl2)17806 LAPACK_DECL(dlascl2)(const INTEGER *M,
17807 const INTEGER *N,
17808 const DOUBLE *D,
17809 DOUBLE *X,
17810 const INTEGER *LDX)
17811 {
17812 DEBUG_LAPACK_STUB("dlascl2");
17813 LAPACK_IMPL(dlascl2)(M,
17814 N,
17815 D,
17816 X,
17817 LDX);
17818 }
17819
17820 //-- dlasd0 --------------------------------------------------------------------
17821 void
LAPACK_DECL(dlasd0)17822 LAPACK_DECL(dlasd0)(const INTEGER *N,
17823 const INTEGER *SQRE,
17824 DOUBLE *D,
17825 const DOUBLE *E,
17826 DOUBLE *U,
17827 const INTEGER *LDU,
17828 DOUBLE *VT,
17829 const INTEGER *LDVT,
17830 const INTEGER *SMLSIZ,
17831 INTEGER *IWORK,
17832 DOUBLE *WORK,
17833 INTEGER *INFO)
17834 {
17835 DEBUG_LAPACK_STUB("dlasd0");
17836 LAPACK_IMPL(dlasd0)(N,
17837 SQRE,
17838 D,
17839 E,
17840 U,
17841 LDU,
17842 VT,
17843 LDVT,
17844 SMLSIZ,
17845 IWORK,
17846 WORK,
17847 INFO);
17848 }
17849
17850 //-- dlasd1 --------------------------------------------------------------------
17851 void
LAPACK_DECL(dlasd1)17852 LAPACK_DECL(dlasd1)(const INTEGER *NL,
17853 const INTEGER *NR,
17854 const INTEGER *SQRE,
17855 DOUBLE *D,
17856 DOUBLE *ALPHA,
17857 DOUBLE *BETA,
17858 DOUBLE *U,
17859 const INTEGER *LDU,
17860 DOUBLE *VT,
17861 const INTEGER *LDVT,
17862 INTEGER *IDXQ,
17863 INTEGER *IWORK,
17864 DOUBLE *WORK,
17865 INTEGER *INFO)
17866 {
17867 DEBUG_LAPACK_STUB("dlasd1");
17868 LAPACK_IMPL(dlasd1)(NL,
17869 NR,
17870 SQRE,
17871 D,
17872 ALPHA,
17873 BETA,
17874 U,
17875 LDU,
17876 VT,
17877 LDVT,
17878 IDXQ,
17879 IWORK,
17880 WORK,
17881 INFO);
17882 }
17883
17884 //-- dlasd2 --------------------------------------------------------------------
17885 void
LAPACK_DECL(dlasd2)17886 LAPACK_DECL(dlasd2)(const INTEGER *NL,
17887 const INTEGER *NR,
17888 const INTEGER *SQRE,
17889 INTEGER *K,
17890 DOUBLE *D,
17891 DOUBLE *Z,
17892 const DOUBLE *ALPHA,
17893 const DOUBLE *BETA,
17894 DOUBLE *U,
17895 const INTEGER *LDU,
17896 DOUBLE *VT,
17897 const INTEGER *LDVT,
17898 DOUBLE *DSIGMA,
17899 DOUBLE *U2,
17900 const INTEGER *LDU2,
17901 DOUBLE *VT2,
17902 const INTEGER *LDVT2,
17903 INTEGER *IDXP,
17904 INTEGER *IDX,
17905 INTEGER *IDXC,
17906 INTEGER *IDXQ,
17907 INTEGER *COLTYP,
17908 INTEGER *INFO)
17909 {
17910 DEBUG_LAPACK_STUB("dlasd2");
17911 LAPACK_IMPL(dlasd2)(NL,
17912 NR,
17913 SQRE,
17914 K,
17915 D,
17916 Z,
17917 ALPHA,
17918 BETA,
17919 U,
17920 LDU,
17921 VT,
17922 LDVT,
17923 DSIGMA,
17924 U2,
17925 LDU2,
17926 VT2,
17927 LDVT2,
17928 IDXP,
17929 IDX,
17930 IDXC,
17931 IDXQ,
17932 COLTYP,
17933 INFO);
17934 }
17935
17936 //-- dlasd3 --------------------------------------------------------------------
17937 void
LAPACK_DECL(dlasd3)17938 LAPACK_DECL(dlasd3)(const INTEGER *NL,
17939 const INTEGER *NR,
17940 const INTEGER *SQRE,
17941 const INTEGER *K,
17942 DOUBLE *D,
17943 DOUBLE *Q,
17944 const INTEGER *LDQ,
17945 const DOUBLE *DSIGMA,
17946 DOUBLE *U,
17947 const INTEGER *LDU,
17948 DOUBLE *U2,
17949 const INTEGER *LDU2,
17950 DOUBLE *VT,
17951 const INTEGER *LDVT,
17952 DOUBLE *VT2,
17953 const INTEGER *LDVT2,
17954 const INTEGER *IDXC,
17955 const INTEGER *CTOT,
17956 const DOUBLE *Z,
17957 INTEGER *INFO)
17958 {
17959 DEBUG_LAPACK_STUB("dlasd3");
17960 LAPACK_IMPL(dlasd3)(NL,
17961 NR,
17962 SQRE,
17963 K,
17964 D,
17965 Q,
17966 LDQ,
17967 DSIGMA,
17968 U,
17969 LDU,
17970 U2,
17971 LDU2,
17972 VT,
17973 LDVT,
17974 VT2,
17975 LDVT2,
17976 IDXC,
17977 CTOT,
17978 Z,
17979 INFO);
17980 }
17981
17982 //-- dlasd4 --------------------------------------------------------------------
17983 void
LAPACK_DECL(dlasd4)17984 LAPACK_DECL(dlasd4)(const INTEGER *N,
17985 const INTEGER *I,
17986 const DOUBLE *D,
17987 const DOUBLE *Z,
17988 DOUBLE *DELTA,
17989 const DOUBLE *RHO,
17990 DOUBLE *SIGMA,
17991 DOUBLE *WORK,
17992 INTEGER *INFO)
17993 {
17994 DEBUG_LAPACK_STUB("dlasd4");
17995 LAPACK_IMPL(dlasd4)(N,
17996 I,
17997 D,
17998 Z,
17999 DELTA,
18000 RHO,
18001 SIGMA,
18002 WORK,
18003 INFO);
18004 }
18005
18006 //-- dlasd5 --------------------------------------------------------------------
18007 void
LAPACK_DECL(dlasd5)18008 LAPACK_DECL(dlasd5)(const INTEGER *I,
18009 const DOUBLE *D,
18010 const DOUBLE *Z,
18011 DOUBLE *DELTA,
18012 const DOUBLE *RHO,
18013 DOUBLE *DSIGMA,
18014 DOUBLE *WORK)
18015 {
18016 DEBUG_LAPACK_STUB("dlasd5");
18017 LAPACK_IMPL(dlasd5)(I,
18018 D,
18019 Z,
18020 DELTA,
18021 RHO,
18022 DSIGMA,
18023 WORK);
18024 }
18025
18026 //-- dlasd6 --------------------------------------------------------------------
18027 void
LAPACK_DECL(dlasd6)18028 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
18029 const INTEGER *NL,
18030 const INTEGER *NR,
18031 const INTEGER *SQRE,
18032 DOUBLE *D,
18033 DOUBLE *VF,
18034 DOUBLE *VL,
18035 DOUBLE *ALPHA,
18036 DOUBLE *BETA,
18037 INTEGER *IDXQ,
18038 INTEGER *PERM,
18039 INTEGER *GIVPTR,
18040 INTEGER *GIVCOL,
18041 const INTEGER *LDGCOL,
18042 DOUBLE *GIVNUM,
18043 const INTEGER *LDGNUM,
18044 DOUBLE *POLES,
18045 DOUBLE *DIFL,
18046 DOUBLE *DIFR,
18047 DOUBLE *Z,
18048 INTEGER *K,
18049 DOUBLE *C,
18050 DOUBLE *S,
18051 DOUBLE *WORK,
18052 INTEGER *IWORK,
18053 INTEGER *INFO)
18054 {
18055 DEBUG_LAPACK_STUB("dlasd6");
18056 LAPACK_IMPL(dlasd6)(ICOMPQ,
18057 NL,
18058 NR,
18059 SQRE,
18060 D,
18061 VF,
18062 VL,
18063 ALPHA,
18064 BETA,
18065 IDXQ,
18066 PERM,
18067 GIVPTR,
18068 GIVCOL,
18069 LDGCOL,
18070 GIVNUM,
18071 LDGNUM,
18072 POLES,
18073 DIFL,
18074 DIFR,
18075 Z,
18076 K,
18077 C,
18078 S,
18079 WORK,
18080 IWORK,
18081 INFO);
18082 }
18083
18084 //-- dlasd7 --------------------------------------------------------------------
18085 void
LAPACK_DECL(dlasd7)18086 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
18087 const INTEGER *NL,
18088 const INTEGER *NR,
18089 const INTEGER *SQRE,
18090 INTEGER *K,
18091 DOUBLE *D,
18092 DOUBLE *Z,
18093 DOUBLE *ZW,
18094 DOUBLE *VF,
18095 DOUBLE *VFW,
18096 DOUBLE *VL,
18097 DOUBLE *VLW,
18098 const DOUBLE *ALPHA,
18099 const DOUBLE *BETA,
18100 DOUBLE *DSIGMA,
18101 INTEGER *IDX,
18102 INTEGER *IDXP,
18103 const INTEGER *IDXQ,
18104 INTEGER *PERM,
18105 INTEGER *GIVPTR,
18106 INTEGER *GIVCOL,
18107 const INTEGER *LDGCOL,
18108 DOUBLE *GIVNUM,
18109 const INTEGER *LDGNUM,
18110 DOUBLE *C,
18111 DOUBLE *S,
18112 INTEGER *INFO)
18113 {
18114 DEBUG_LAPACK_STUB("dlasd7");
18115 LAPACK_IMPL(dlasd7)(ICOMPQ,
18116 NL,
18117 NR,
18118 SQRE,
18119 K,
18120 D,
18121 Z,
18122 ZW,
18123 VF,
18124 VFW,
18125 VL,
18126 VLW,
18127 ALPHA,
18128 BETA,
18129 DSIGMA,
18130 IDX,
18131 IDXP,
18132 IDXQ,
18133 PERM,
18134 GIVPTR,
18135 GIVCOL,
18136 LDGCOL,
18137 GIVNUM,
18138 LDGNUM,
18139 C,
18140 S,
18141 INFO);
18142 }
18143
18144 //-- dlasd8 --------------------------------------------------------------------
18145 void
LAPACK_DECL(dlasd8)18146 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
18147 const INTEGER *K,
18148 DOUBLE *D,
18149 DOUBLE *Z,
18150 DOUBLE *VF,
18151 DOUBLE *VL,
18152 DOUBLE *DIFL,
18153 DOUBLE *DIFR,
18154 const INTEGER *LDDIFR,
18155 DOUBLE *DSIGMA,
18156 DOUBLE *WORK,
18157 INTEGER *INFO)
18158 {
18159 DEBUG_LAPACK_STUB("dlasd8");
18160 LAPACK_IMPL(dlasd8)(ICOMPQ,
18161 K,
18162 D,
18163 Z,
18164 VF,
18165 VL,
18166 DIFL,
18167 DIFR,
18168 LDDIFR,
18169 DSIGMA,
18170 WORK,
18171 INFO);
18172 }
18173
18174 //-- dlasda --------------------------------------------------------------------
18175 void
LAPACK_DECL(dlasda)18176 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
18177 const INTEGER *SMLSIZ,
18178 const INTEGER *N,
18179 const INTEGER *SQRE,
18180 DOUBLE *D,
18181 const DOUBLE *E,
18182 DOUBLE *U,
18183 const INTEGER *LDU,
18184 DOUBLE *VT,
18185 INTEGER *K,
18186 DOUBLE *DIFL,
18187 DOUBLE *DIFR,
18188 DOUBLE *Z,
18189 DOUBLE *POLES,
18190 INTEGER *GIVPTR,
18191 INTEGER *GIVCOL,
18192 const INTEGER *LDGCOL,
18193 INTEGER *PERM,
18194 DOUBLE *GIVNUM,
18195 DOUBLE *C,
18196 DOUBLE *S,
18197 DOUBLE *WORK,
18198 INTEGER *IWORK,
18199 INTEGER *INFO)
18200 {
18201 DEBUG_LAPACK_STUB("dlasda");
18202 LAPACK_IMPL(dlasda)(ICOMPQ,
18203 SMLSIZ,
18204 N,
18205 SQRE,
18206 D,
18207 E,
18208 U,
18209 LDU,
18210 VT,
18211 K,
18212 DIFL,
18213 DIFR,
18214 Z,
18215 POLES,
18216 GIVPTR,
18217 GIVCOL,
18218 LDGCOL,
18219 PERM,
18220 GIVNUM,
18221 C,
18222 S,
18223 WORK,
18224 IWORK,
18225 INFO);
18226 }
18227
18228 //-- dlasdq --------------------------------------------------------------------
18229 void
LAPACK_DECL(dlasdq)18230 LAPACK_DECL(dlasdq)(const char *UPLO,
18231 const INTEGER *SQRE,
18232 const INTEGER *N,
18233 const INTEGER *NCVT,
18234 const INTEGER *NRU,
18235 const INTEGER *NCC,
18236 DOUBLE *D,
18237 DOUBLE *E,
18238 DOUBLE *VT,
18239 const INTEGER *LDVT,
18240 DOUBLE *U,
18241 const INTEGER *LDU,
18242 DOUBLE *C,
18243 const INTEGER *LDC,
18244 DOUBLE *WORK,
18245 INTEGER *INFO)
18246 {
18247 DEBUG_LAPACK_STUB("dlasdq");
18248 LAPACK_IMPL(dlasdq)(UPLO,
18249 SQRE,
18250 N,
18251 NCVT,
18252 NRU,
18253 NCC,
18254 D,
18255 E,
18256 VT,
18257 LDVT,
18258 U,
18259 LDU,
18260 C,
18261 LDC,
18262 WORK,
18263 INFO);
18264 }
18265
18266 //-- dlasdt --------------------------------------------------------------------
18267 void
LAPACK_DECL(dlasdt)18268 LAPACK_DECL(dlasdt)(const INTEGER *N,
18269 INTEGER *LVL,
18270 INTEGER *ND,
18271 INTEGER *INODE,
18272 INTEGER *NDIML,
18273 INTEGER *NDIMR,
18274 const INTEGER *MSUB)
18275 {
18276 DEBUG_LAPACK_STUB("dlasdt");
18277 LAPACK_IMPL(dlasdt)(N,
18278 LVL,
18279 ND,
18280 INODE,
18281 NDIML,
18282 NDIMR,
18283 MSUB);
18284 }
18285
18286 //-- dlaset --------------------------------------------------------------------
18287 void
LAPACK_DECL(dlaset)18288 LAPACK_DECL(dlaset)(const char *UPLO,
18289 const INTEGER *M,
18290 const INTEGER *N,
18291 const DOUBLE *ALPHA,
18292 const DOUBLE *BETA,
18293 DOUBLE *A,
18294 const INTEGER *LDA)
18295 {
18296 DEBUG_LAPACK_STUB("dlaset");
18297 LAPACK_IMPL(dlaset)(UPLO,
18298 M,
18299 N,
18300 ALPHA,
18301 BETA,
18302 A,
18303 LDA);
18304 }
18305
18306 //-- dlasq1 --------------------------------------------------------------------
18307 void
LAPACK_DECL(dlasq1)18308 LAPACK_DECL(dlasq1)(const INTEGER *N,
18309 DOUBLE *D,
18310 DOUBLE *E,
18311 DOUBLE *WORK,
18312 INTEGER *INFO)
18313 {
18314 DEBUG_LAPACK_STUB("dlasq1");
18315 LAPACK_IMPL(dlasq1)(N,
18316 D,
18317 E,
18318 WORK,
18319 INFO);
18320 }
18321
18322 //-- dlasq2 --------------------------------------------------------------------
18323 void
LAPACK_DECL(dlasq2)18324 LAPACK_DECL(dlasq2)(const INTEGER *N,
18325 DOUBLE *Z,
18326 INTEGER *INFO)
18327 {
18328 DEBUG_LAPACK_STUB("dlasq2");
18329 LAPACK_IMPL(dlasq2)(N,
18330 Z,
18331 INFO);
18332 }
18333
18334 //-- dlasq3 --------------------------------------------------------------------
18335 void
LAPACK_DECL(dlasq3)18336 LAPACK_DECL(dlasq3)(const INTEGER *I0,
18337 INTEGER *N0,
18338 const DOUBLE *Z,
18339 INTEGER *PP,
18340 DOUBLE *DMIN,
18341 DOUBLE *SIGMA,
18342 DOUBLE *DESIG,
18343 const DOUBLE *QMAX,
18344 INTEGER *NFAIL,
18345 INTEGER *ITER,
18346 INTEGER *NDIV,
18347 const LOGICAL *IEEE,
18348 INTEGER *TTYPE,
18349 DOUBLE *DMIN1,
18350 DOUBLE *DMIN2,
18351 DOUBLE *DN,
18352 DOUBLE *DN1,
18353 DOUBLE *DN2,
18354 DOUBLE *G,
18355 DOUBLE *TAU)
18356 {
18357 DEBUG_LAPACK_STUB("dlasq3");
18358 LAPACK_IMPL(dlasq3)(I0,
18359 N0,
18360 Z,
18361 PP,
18362 DMIN,
18363 SIGMA,
18364 DESIG,
18365 QMAX,
18366 NFAIL,
18367 ITER,
18368 NDIV,
18369 IEEE,
18370 TTYPE,
18371 DMIN1,
18372 DMIN2,
18373 DN,
18374 DN1,
18375 DN2,
18376 G,
18377 TAU);
18378 }
18379
18380 //-- dlasq4 --------------------------------------------------------------------
18381 void
LAPACK_DECL(dlasq4)18382 LAPACK_DECL(dlasq4)(const INTEGER *I0,
18383 const INTEGER *N0,
18384 const DOUBLE *Z,
18385 const INTEGER *PP,
18386 const INTEGER *N0IN,
18387 const DOUBLE *DMIN,
18388 const DOUBLE *DMIN1,
18389 const DOUBLE *DMIN2,
18390 const DOUBLE *DN,
18391 const DOUBLE *DN1,
18392 const DOUBLE *DN2,
18393 DOUBLE *TAU,
18394 INTEGER *TTYPE,
18395 DOUBLE *G)
18396 {
18397 DEBUG_LAPACK_STUB("dlasq4");
18398 LAPACK_IMPL(dlasq4)(I0,
18399 N0,
18400 Z,
18401 PP,
18402 N0IN,
18403 DMIN,
18404 DMIN1,
18405 DMIN2,
18406 DN,
18407 DN1,
18408 DN2,
18409 TAU,
18410 TTYPE,
18411 G);
18412 }
18413
18414 //-- dlasq5 --------------------------------------------------------------------
18415 void
LAPACK_DECL(dlasq5)18416 LAPACK_DECL(dlasq5)(const INTEGER *I0,
18417 const INTEGER *N0,
18418 const DOUBLE *Z,
18419 const INTEGER *PP,
18420 const DOUBLE *TAU,
18421 DOUBLE *DMIN,
18422 DOUBLE *DMIN1,
18423 DOUBLE *DMIN2,
18424 DOUBLE *DN,
18425 DOUBLE *DNM1,
18426 DOUBLE *DNM2,
18427 const LOGICAL *IEEE)
18428 {
18429 DEBUG_LAPACK_STUB("dlasq5");
18430 LAPACK_IMPL(dlasq5)(I0,
18431 N0,
18432 Z,
18433 PP,
18434 TAU,
18435 DMIN,
18436 DMIN1,
18437 DMIN2,
18438 DN,
18439 DNM1,
18440 DNM2,
18441 IEEE);
18442 }
18443
18444 //-- dlasq6 --------------------------------------------------------------------
18445 void
LAPACK_DECL(dlasq6)18446 LAPACK_DECL(dlasq6)(const INTEGER *I0,
18447 const INTEGER *N0,
18448 const DOUBLE *Z,
18449 const INTEGER *PP,
18450 DOUBLE *DMIN,
18451 DOUBLE *DMIN1,
18452 DOUBLE *DMIN2,
18453 DOUBLE *DN,
18454 DOUBLE *DNM1,
18455 DOUBLE *DNM2)
18456 {
18457 DEBUG_LAPACK_STUB("dlasq6");
18458 LAPACK_IMPL(dlasq6)(I0,
18459 N0,
18460 Z,
18461 PP,
18462 DMIN,
18463 DMIN1,
18464 DMIN2,
18465 DN,
18466 DNM1,
18467 DNM2);
18468 }
18469
18470 //-- dlasr ---------------------------------------------------------------------
18471 void
LAPACK_DECL(dlasr)18472 LAPACK_DECL(dlasr)(const char *SIDE,
18473 const char *PIVOT,
18474 const char *DIRECT,
18475 const INTEGER *M,
18476 const INTEGER *N,
18477 const DOUBLE *C,
18478 const DOUBLE *S,
18479 DOUBLE *A,
18480 const INTEGER *LDA)
18481 {
18482 DEBUG_LAPACK_STUB("dlasr");
18483 LAPACK_IMPL(dlasr)(SIDE,
18484 PIVOT,
18485 DIRECT,
18486 M,
18487 N,
18488 C,
18489 S,
18490 A,
18491 LDA);
18492 }
18493
18494 //-- dlasrt --------------------------------------------------------------------
18495 void
LAPACK_DECL(dlasrt)18496 LAPACK_DECL(dlasrt)(const char *ID,
18497 const INTEGER *N,
18498 DOUBLE *D,
18499 INTEGER *INFO)
18500 {
18501 DEBUG_LAPACK_STUB("dlasrt");
18502 LAPACK_IMPL(dlasrt)(ID,
18503 N,
18504 D,
18505 INFO);
18506 }
18507
18508 //-- dlassq --------------------------------------------------------------------
18509 void
LAPACK_DECL(dlassq)18510 LAPACK_DECL(dlassq)(const INTEGER *N,
18511 const DOUBLE *X,
18512 const INTEGER *INCX,
18513 DOUBLE *SCALE,
18514 DOUBLE *SUMSQ)
18515 {
18516 DEBUG_LAPACK_STUB("dlassq");
18517 LAPACK_IMPL(dlassq)(N,
18518 X,
18519 INCX,
18520 SCALE,
18521 SUMSQ);
18522 }
18523
18524 //-- dlasv2 --------------------------------------------------------------------
18525 void
LAPACK_DECL(dlasv2)18526 LAPACK_DECL(dlasv2)(const DOUBLE *F,
18527 const DOUBLE *G,
18528 const DOUBLE *H,
18529 DOUBLE *SSMIN,
18530 DOUBLE *SSMAX,
18531 DOUBLE *SNR,
18532 DOUBLE *CSR,
18533 DOUBLE *SNL,
18534 DOUBLE *CSL)
18535 {
18536 DEBUG_LAPACK_STUB("dlasv2");
18537 LAPACK_IMPL(dlasv2)(F,
18538 G,
18539 H,
18540 SSMIN,
18541 SSMAX,
18542 SNR,
18543 CSR,
18544 SNL,
18545 CSL);
18546 }
18547
18548 //-- dlaswp --------------------------------------------------------------------
18549 void
LAPACK_DECL(dlaswp)18550 LAPACK_DECL(dlaswp)(const INTEGER *N,
18551 DOUBLE *A,
18552 const INTEGER *LDA,
18553 const INTEGER *K1,
18554 const INTEGER *K2,
18555 const INTEGER *IPIV,
18556 const INTEGER *INCX)
18557 {
18558 DEBUG_LAPACK_STUB("dlaswp");
18559 LAPACK_IMPL(dlaswp)(N,
18560 A,
18561 LDA,
18562 K1,
18563 K2,
18564 IPIV,
18565 INCX);
18566 }
18567
18568 //-- dlasy2 --------------------------------------------------------------------
18569 void
LAPACK_DECL(dlasy2)18570 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
18571 const LOGICAL *LTRANR,
18572 const INTEGER *ISGN,
18573 const INTEGER *N1,
18574 const INTEGER *N2,
18575 const DOUBLE *TL,
18576 const INTEGER *LDTL,
18577 const DOUBLE *TR,
18578 const INTEGER *LDTR,
18579 const DOUBLE *B,
18580 const INTEGER *LDB,
18581 DOUBLE *SCALE,
18582 DOUBLE *X,
18583 const INTEGER *LDX,
18584 DOUBLE *XNORM,
18585 INTEGER *INFO)
18586 {
18587 DEBUG_LAPACK_STUB("dlasy2");
18588 LAPACK_IMPL(dlasy2)(LTRANL,
18589 LTRANR,
18590 ISGN,
18591 N1,
18592 N2,
18593 TL,
18594 LDTL,
18595 TR,
18596 LDTR,
18597 B,
18598 LDB,
18599 SCALE,
18600 X,
18601 LDX,
18602 XNORM,
18603 INFO);
18604 }
18605
18606 //-- dlasyf --------------------------------------------------------------------
18607 void
LAPACK_DECL(dlasyf)18608 LAPACK_DECL(dlasyf)(const char *UPLO,
18609 const INTEGER *N,
18610 const INTEGER *NB,
18611 INTEGER *KB,
18612 DOUBLE *A,
18613 const INTEGER *LDA,
18614 INTEGER *IPIV,
18615 DOUBLE *W,
18616 const INTEGER *LDW,
18617 INTEGER *INFO)
18618 {
18619 DEBUG_LAPACK_STUB("dlasyf");
18620 LAPACK_IMPL(dlasyf)(UPLO,
18621 N,
18622 NB,
18623 KB,
18624 A,
18625 LDA,
18626 IPIV,
18627 W,
18628 LDW,
18629 INFO);
18630 }
18631
18632 //-- dlat2s --------------------------------------------------------------------
18633 void
LAPACK_DECL(dlat2s)18634 LAPACK_DECL(dlat2s)(const char *UPLO,
18635 const INTEGER *N,
18636 const DOUBLE *A,
18637 const INTEGER *LDA,
18638 FLOAT *SA,
18639 const INTEGER *LDSA,
18640 INTEGER *INFO)
18641 {
18642 DEBUG_LAPACK_STUB("dlat2s");
18643 LAPACK_IMPL(dlat2s)(UPLO,
18644 N,
18645 A,
18646 LDA,
18647 SA,
18648 LDSA,
18649 INFO);
18650 }
18651
18652 //-- dlatbs --------------------------------------------------------------------
18653 void
LAPACK_DECL(dlatbs)18654 LAPACK_DECL(dlatbs)(const char *UPLO,
18655 const char *TRANS,
18656 const char *DIAG,
18657 const char *NORMIN,
18658 const INTEGER *N,
18659 const INTEGER *KD,
18660 const DOUBLE *AB,
18661 const INTEGER *LDAB,
18662 DOUBLE *X,
18663 DOUBLE *SCALE,
18664 DOUBLE *CNORM,
18665 INTEGER *INFO)
18666 {
18667 DEBUG_LAPACK_STUB("dlatbs");
18668 LAPACK_IMPL(dlatbs)(UPLO,
18669 TRANS,
18670 DIAG,
18671 NORMIN,
18672 N,
18673 KD,
18674 AB,
18675 LDAB,
18676 X,
18677 SCALE,
18678 CNORM,
18679 INFO);
18680 }
18681
18682 //-- dlatdf --------------------------------------------------------------------
18683 void
LAPACK_DECL(dlatdf)18684 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
18685 const INTEGER *N,
18686 const DOUBLE *Z,
18687 const INTEGER *LDZ,
18688 DOUBLE *RHS,
18689 DOUBLE *RDSUM,
18690 DOUBLE *RDSCAL,
18691 const INTEGER *IPIV,
18692 const INTEGER *JPIV)
18693 {
18694 DEBUG_LAPACK_STUB("dlatdf");
18695 LAPACK_IMPL(dlatdf)(IJOB,
18696 N,
18697 Z,
18698 LDZ,
18699 RHS,
18700 RDSUM,
18701 RDSCAL,
18702 IPIV,
18703 JPIV);
18704 }
18705
18706 //-- dlatps --------------------------------------------------------------------
18707 void
LAPACK_DECL(dlatps)18708 LAPACK_DECL(dlatps)(const char *UPLO,
18709 const char *TRANS,
18710 const char *DIAG,
18711 const char *NORMIN,
18712 const INTEGER *N,
18713 const DOUBLE *AP,
18714 DOUBLE *X,
18715 DOUBLE *SCALE,
18716 DOUBLE *CNORM,
18717 INTEGER *INFO)
18718 {
18719 DEBUG_LAPACK_STUB("dlatps");
18720 LAPACK_IMPL(dlatps)(UPLO,
18721 TRANS,
18722 DIAG,
18723 NORMIN,
18724 N,
18725 AP,
18726 X,
18727 SCALE,
18728 CNORM,
18729 INFO);
18730 }
18731
18732 //-- dlatrd --------------------------------------------------------------------
18733 void
LAPACK_DECL(dlatrd)18734 LAPACK_DECL(dlatrd)(const char *UPLO,
18735 const INTEGER *N,
18736 const INTEGER *NB,
18737 DOUBLE *A,
18738 const INTEGER *LDA,
18739 DOUBLE *E,
18740 DOUBLE *TAU,
18741 DOUBLE *W,
18742 const INTEGER *LDW)
18743 {
18744 DEBUG_LAPACK_STUB("dlatrd");
18745 LAPACK_IMPL(dlatrd)(UPLO,
18746 N,
18747 NB,
18748 A,
18749 LDA,
18750 E,
18751 TAU,
18752 W,
18753 LDW);
18754 }
18755
18756 //-- dlatrs --------------------------------------------------------------------
18757 void
LAPACK_DECL(dlatrs)18758 LAPACK_DECL(dlatrs)(const char *UPLO,
18759 const char *TRANS,
18760 const char *DIAG,
18761 const char *NORMIN,
18762 const INTEGER *N,
18763 const DOUBLE *A,
18764 const INTEGER *LDA,
18765 DOUBLE *X,
18766 DOUBLE *SCALE,
18767 DOUBLE *CNORM,
18768 INTEGER *INFO)
18769 {
18770 DEBUG_LAPACK_STUB("dlatrs");
18771 LAPACK_IMPL(dlatrs)(UPLO,
18772 TRANS,
18773 DIAG,
18774 NORMIN,
18775 N,
18776 A,
18777 LDA,
18778 X,
18779 SCALE,
18780 CNORM,
18781 INFO);
18782 }
18783
18784 //-- dlatrz --------------------------------------------------------------------
18785 void
LAPACK_DECL(dlatrz)18786 LAPACK_DECL(dlatrz)(const INTEGER *M,
18787 const INTEGER *N,
18788 const INTEGER *L,
18789 DOUBLE *A,
18790 const INTEGER *LDA,
18791 DOUBLE *TAU,
18792 DOUBLE *WORK)
18793 {
18794 DEBUG_LAPACK_STUB("dlatrz");
18795 LAPACK_IMPL(dlatrz)(M,
18796 N,
18797 L,
18798 A,
18799 LDA,
18800 TAU,
18801 WORK);
18802 }
18803
18804 //-- dlatzm --------------------------------------------------------------------
18805 void
LAPACK_DECL(dlatzm)18806 LAPACK_DECL(dlatzm)(const char *SIDE,
18807 const INTEGER *M,
18808 const INTEGER *N,
18809 const DOUBLE *V,
18810 const INTEGER *INCV,
18811 const DOUBLE *TAU,
18812 DOUBLE *C1,
18813 DOUBLE *C2,
18814 const INTEGER *LDC,
18815 DOUBLE *WORK)
18816 {
18817 DEBUG_LAPACK_STUB("dlatzm");
18818 LAPACK_IMPL(dlatzm)(SIDE,
18819 M,
18820 N,
18821 V,
18822 INCV,
18823 TAU,
18824 C1,
18825 C2,
18826 LDC,
18827 WORK);
18828 }
18829
18830 //-- dlauu2 --------------------------------------------------------------------
18831 void
LAPACK_DECL(dlauu2)18832 LAPACK_DECL(dlauu2)(const char *UPLO,
18833 const INTEGER *N,
18834 DOUBLE *A,
18835 const INTEGER *LDA,
18836 INTEGER *INFO)
18837 {
18838 DEBUG_LAPACK_STUB("dlauu2");
18839 LAPACK_IMPL(dlauu2)(UPLO,
18840 N,
18841 A,
18842 LDA,
18843 INFO);
18844 }
18845
18846 //-- dlauum --------------------------------------------------------------------
18847 void
LAPACK_DECL(dlauum)18848 LAPACK_DECL(dlauum)(const char *UPLO,
18849 const INTEGER *N,
18850 DOUBLE *A,
18851 const INTEGER *LDA,
18852 INTEGER *INFO)
18853 {
18854 DEBUG_LAPACK_STUB("dlauum");
18855 LAPACK_IMPL(dlauum)(UPLO,
18856 N,
18857 A,
18858 LDA,
18859 INFO);
18860 }
18861
18862 //-- dopgtr --------------------------------------------------------------------
18863 void
LAPACK_DECL(dopgtr)18864 LAPACK_DECL(dopgtr)(const char *UPLO,
18865 const INTEGER *N,
18866 const DOUBLE *AP,
18867 const DOUBLE *TAU,
18868 DOUBLE *Q,
18869 const INTEGER *LDQ,
18870 DOUBLE *WORK,
18871 INTEGER *INFO)
18872 {
18873 DEBUG_LAPACK_STUB("dopgtr");
18874 LAPACK_IMPL(dopgtr)(UPLO,
18875 N,
18876 AP,
18877 TAU,
18878 Q,
18879 LDQ,
18880 WORK,
18881 INFO);
18882 }
18883
18884 //-- dopmtr --------------------------------------------------------------------
18885 void
LAPACK_DECL(dopmtr)18886 LAPACK_DECL(dopmtr)(const char *SIDE,
18887 const char *UPLO,
18888 const char *TRANS,
18889 const INTEGER *M,
18890 const INTEGER *N,
18891 const DOUBLE *AP,
18892 const DOUBLE *TAU,
18893 DOUBLE *C,
18894 const INTEGER *LDC,
18895 DOUBLE *WORK,
18896 INTEGER *INFO)
18897 {
18898 DEBUG_LAPACK_STUB("dopmtr");
18899 LAPACK_IMPL(dopmtr)(SIDE,
18900 UPLO,
18901 TRANS,
18902 M,
18903 N,
18904 AP,
18905 TAU,
18906 C,
18907 LDC,
18908 WORK,
18909 INFO);
18910 }
18911
18912 //-- dorbdb --------------------------------------------------------------------
18913 void
LAPACK_DECL(dorbdb)18914 LAPACK_DECL(dorbdb)(const char *TRANS,
18915 const char *SIGNS,
18916 const INTEGER *M,
18917 const INTEGER *P,
18918 const INTEGER *Q,
18919 DOUBLE *X11,
18920 const INTEGER *LDX11,
18921 DOUBLE *X12,
18922 const INTEGER *LDX12,
18923 DOUBLE *X21,
18924 const INTEGER *LDX21,
18925 DOUBLE *X22,
18926 const INTEGER *LDX22,
18927 DOUBLE *THETA,
18928 DOUBLE *PHI,
18929 DOUBLE *TAUP1,
18930 DOUBLE *TAUP2,
18931 DOUBLE *TAUQ1,
18932 DOUBLE *TAUQ2,
18933 DOUBLE *WORK,
18934 const INTEGER *LWORK,
18935 INTEGER *INFO)
18936 {
18937 DEBUG_LAPACK_STUB("dorbdb");
18938 LAPACK_IMPL(dorbdb)(TRANS,
18939 SIGNS,
18940 M,
18941 P,
18942 Q,
18943 X11,
18944 LDX11,
18945 X12,
18946 LDX12,
18947 X21,
18948 LDX21,
18949 X22,
18950 LDX22,
18951 THETA,
18952 PHI,
18953 TAUP1,
18954 TAUP2,
18955 TAUQ1,
18956 TAUQ2,
18957 WORK,
18958 LWORK,
18959 INFO);
18960 }
18961
18962 //-- dorcsd --------------------------------------------------------------------
18963 void
LAPACK_DECL(dorcsd)18964 LAPACK_DECL(dorcsd)(const char *JOBU1,
18965 const char *JOBU2,
18966 const char *JOBV1T,
18967 const char *JOBV2T,
18968 const char *TRANS,
18969 const char *SIGNS,
18970 const INTEGER *M,
18971 const INTEGER *P,
18972 const INTEGER *Q,
18973 const DOUBLE *X11,
18974 const INTEGER *LDX11,
18975 const DOUBLE *X12,
18976 const INTEGER *LDX12,
18977 const DOUBLE *X21,
18978 const INTEGER *LDX21,
18979 const DOUBLE *X22,
18980 const INTEGER *LDX22,
18981 DOUBLE *THETA,
18982 DOUBLE *U1,
18983 const INTEGER *LDU1,
18984 DOUBLE *U2,
18985 const INTEGER *LDU2,
18986 DOUBLE *V1T,
18987 const INTEGER *LDV1T,
18988 DOUBLE *V2T,
18989 const INTEGER *LDV2T,
18990 DOUBLE *WORK,
18991 const INTEGER *LWORK,
18992 INTEGER *IWORK,
18993 INTEGER *INFO)
18994 {
18995 DEBUG_LAPACK_STUB("dorcsd");
18996 LAPACK_IMPL(dorcsd)(JOBU1,
18997 JOBU2,
18998 JOBV1T,
18999 JOBV2T,
19000 TRANS,
19001 SIGNS,
19002 M,
19003 P,
19004 Q,
19005 X11,
19006 LDX11,
19007 X12,
19008 LDX12,
19009 X21,
19010 LDX21,
19011 X22,
19012 LDX22,
19013 THETA,
19014 U1,
19015 LDU1,
19016 U2,
19017 LDU2,
19018 V1T,
19019 LDV1T,
19020 V2T,
19021 LDV2T,
19022 WORK,
19023 LWORK,
19024 IWORK,
19025 INFO);
19026 }
19027
19028 //-- dorg2l --------------------------------------------------------------------
19029 void
LAPACK_DECL(dorg2l)19030 LAPACK_DECL(dorg2l)(const INTEGER *M,
19031 const INTEGER *N,
19032 const INTEGER *K,
19033 DOUBLE *A,
19034 const INTEGER *LDA,
19035 const DOUBLE *TAU,
19036 DOUBLE *WORK,
19037 INTEGER *INFO)
19038 {
19039 DEBUG_LAPACK_STUB("dorg2l");
19040 LAPACK_IMPL(dorg2l)(M,
19041 N,
19042 K,
19043 A,
19044 LDA,
19045 TAU,
19046 WORK,
19047 INFO);
19048 }
19049
19050 //-- dorg2r --------------------------------------------------------------------
19051 void
LAPACK_DECL(dorg2r)19052 LAPACK_DECL(dorg2r)(const INTEGER *M,
19053 const INTEGER *N,
19054 const INTEGER *K,
19055 DOUBLE *A,
19056 const INTEGER *LDA,
19057 const DOUBLE *TAU,
19058 DOUBLE *WORK,
19059 INTEGER *INFO)
19060 {
19061 DEBUG_LAPACK_STUB("dorg2r");
19062 LAPACK_IMPL(dorg2r)(M,
19063 N,
19064 K,
19065 A,
19066 LDA,
19067 TAU,
19068 WORK,
19069 INFO);
19070 }
19071
19072 //-- dorgbr --------------------------------------------------------------------
19073 void
LAPACK_DECL(dorgbr)19074 LAPACK_DECL(dorgbr)(const char *VECT,
19075 const INTEGER *M,
19076 const INTEGER *N,
19077 const INTEGER *K,
19078 DOUBLE *A,
19079 const INTEGER *LDA,
19080 const DOUBLE *TAU,
19081 DOUBLE *WORK,
19082 const INTEGER *LWORK,
19083 INTEGER *INFO)
19084 {
19085 DEBUG_LAPACK_STUB("dorgbr");
19086 LAPACK_IMPL(dorgbr)(VECT,
19087 M,
19088 N,
19089 K,
19090 A,
19091 LDA,
19092 TAU,
19093 WORK,
19094 LWORK,
19095 INFO);
19096 }
19097
19098 //-- dorghr --------------------------------------------------------------------
19099 void
LAPACK_DECL(dorghr)19100 LAPACK_DECL(dorghr)(const INTEGER *N,
19101 const INTEGER *ILO,
19102 const INTEGER *IHI,
19103 DOUBLE *A,
19104 const INTEGER *LDA,
19105 const DOUBLE *TAU,
19106 DOUBLE *WORK,
19107 const INTEGER *LWORK,
19108 INTEGER *INFO)
19109 {
19110 DEBUG_LAPACK_STUB("dorghr");
19111 LAPACK_IMPL(dorghr)(N,
19112 ILO,
19113 IHI,
19114 A,
19115 LDA,
19116 TAU,
19117 WORK,
19118 LWORK,
19119 INFO);
19120 }
19121
19122 //-- dorgl2 --------------------------------------------------------------------
19123 void
LAPACK_DECL(dorgl2)19124 LAPACK_DECL(dorgl2)(const INTEGER *M,
19125 const INTEGER *N,
19126 const INTEGER *K,
19127 DOUBLE *A,
19128 const INTEGER *LDA,
19129 const DOUBLE *TAU,
19130 DOUBLE *WORK,
19131 INTEGER *INFO)
19132 {
19133 DEBUG_LAPACK_STUB("dorgl2");
19134 LAPACK_IMPL(dorgl2)(M,
19135 N,
19136 K,
19137 A,
19138 LDA,
19139 TAU,
19140 WORK,
19141 INFO);
19142 }
19143
19144 //-- dorglq --------------------------------------------------------------------
19145 void
LAPACK_DECL(dorglq)19146 LAPACK_DECL(dorglq)(const INTEGER *M,
19147 const INTEGER *N,
19148 const INTEGER *K,
19149 DOUBLE *A,
19150 const INTEGER *LDA,
19151 const DOUBLE *TAU,
19152 DOUBLE *WORK,
19153 const INTEGER *LWORK,
19154 INTEGER *INFO)
19155 {
19156 DEBUG_LAPACK_STUB("dorglq");
19157 LAPACK_IMPL(dorglq)(M,
19158 N,
19159 K,
19160 A,
19161 LDA,
19162 TAU,
19163 WORK,
19164 LWORK,
19165 INFO);
19166 }
19167
19168 //-- dorgql --------------------------------------------------------------------
19169 void
LAPACK_DECL(dorgql)19170 LAPACK_DECL(dorgql)(const INTEGER *M,
19171 const INTEGER *N,
19172 const INTEGER *K,
19173 DOUBLE *A,
19174 const INTEGER *LDA,
19175 const DOUBLE *TAU,
19176 DOUBLE *WORK,
19177 const INTEGER *LWORK,
19178 INTEGER *INFO)
19179 {
19180 DEBUG_LAPACK_STUB("dorgql");
19181 LAPACK_IMPL(dorgql)(M,
19182 N,
19183 K,
19184 A,
19185 LDA,
19186 TAU,
19187 WORK,
19188 LWORK,
19189 INFO);
19190 }
19191
19192 //-- dorgqr --------------------------------------------------------------------
19193 void
LAPACK_DECL(dorgqr)19194 LAPACK_DECL(dorgqr)(const INTEGER *M,
19195 const INTEGER *N,
19196 const INTEGER *K,
19197 DOUBLE *A,
19198 const INTEGER *LDA,
19199 const DOUBLE *TAU,
19200 DOUBLE *WORK,
19201 const INTEGER *LWORK,
19202 INTEGER *INFO)
19203 {
19204 DEBUG_LAPACK_STUB("dorgqr");
19205 LAPACK_IMPL(dorgqr)(M,
19206 N,
19207 K,
19208 A,
19209 LDA,
19210 TAU,
19211 WORK,
19212 LWORK,
19213 INFO);
19214 }
19215
19216 //-- dorgr2 --------------------------------------------------------------------
19217 void
LAPACK_DECL(dorgr2)19218 LAPACK_DECL(dorgr2)(const INTEGER *M,
19219 const INTEGER *N,
19220 const INTEGER *K,
19221 DOUBLE *A,
19222 const INTEGER *LDA,
19223 const DOUBLE *TAU,
19224 DOUBLE *WORK,
19225 INTEGER *INFO)
19226 {
19227 DEBUG_LAPACK_STUB("dorgr2");
19228 LAPACK_IMPL(dorgr2)(M,
19229 N,
19230 K,
19231 A,
19232 LDA,
19233 TAU,
19234 WORK,
19235 INFO);
19236 }
19237
19238 //-- dorgrq --------------------------------------------------------------------
19239 void
LAPACK_DECL(dorgrq)19240 LAPACK_DECL(dorgrq)(const INTEGER *M,
19241 const INTEGER *N,
19242 const INTEGER *K,
19243 DOUBLE *A,
19244 const INTEGER *LDA,
19245 const DOUBLE *TAU,
19246 DOUBLE *WORK,
19247 const INTEGER *LWORK,
19248 INTEGER *INFO)
19249 {
19250 DEBUG_LAPACK_STUB("dorgrq");
19251 LAPACK_IMPL(dorgrq)(M,
19252 N,
19253 K,
19254 A,
19255 LDA,
19256 TAU,
19257 WORK,
19258 LWORK,
19259 INFO);
19260 }
19261
19262 //-- dorgtr --------------------------------------------------------------------
19263 void
LAPACK_DECL(dorgtr)19264 LAPACK_DECL(dorgtr)(const char *UPLO,
19265 const INTEGER *N,
19266 DOUBLE *A,
19267 const INTEGER *LDA,
19268 const DOUBLE *TAU,
19269 DOUBLE *WORK,
19270 const INTEGER *LWORK,
19271 INTEGER *INFO)
19272 {
19273 DEBUG_LAPACK_STUB("dorgtr");
19274 LAPACK_IMPL(dorgtr)(UPLO,
19275 N,
19276 A,
19277 LDA,
19278 TAU,
19279 WORK,
19280 LWORK,
19281 INFO);
19282 }
19283
19284 //-- dorm2l --------------------------------------------------------------------
19285 void
LAPACK_DECL(dorm2l)19286 LAPACK_DECL(dorm2l)(const char *SIDE,
19287 const char *TRANS,
19288 const INTEGER *M,
19289 const INTEGER *N,
19290 const INTEGER *K,
19291 const DOUBLE *A,
19292 const INTEGER *LDA,
19293 const DOUBLE *TAU,
19294 DOUBLE *C,
19295 const INTEGER *LDC,
19296 DOUBLE *WORK,
19297 INTEGER *INFO)
19298 {
19299 DEBUG_LAPACK_STUB("dorm2l");
19300 LAPACK_IMPL(dorm2l)(SIDE,
19301 TRANS,
19302 M,
19303 N,
19304 K,
19305 A,
19306 LDA,
19307 TAU,
19308 C,
19309 LDC,
19310 WORK,
19311 INFO);
19312 }
19313
19314 //-- dorm2r --------------------------------------------------------------------
19315 void
LAPACK_DECL(dorm2r)19316 LAPACK_DECL(dorm2r)(const char *SIDE,
19317 const char *TRANS,
19318 const INTEGER *M,
19319 const INTEGER *N,
19320 const INTEGER *K,
19321 const DOUBLE *A,
19322 const INTEGER *LDA,
19323 const DOUBLE *TAU,
19324 DOUBLE *C,
19325 const INTEGER *LDC,
19326 DOUBLE *WORK,
19327 INTEGER *INFO)
19328 {
19329 DEBUG_LAPACK_STUB("dorm2r");
19330 LAPACK_IMPL(dorm2r)(SIDE,
19331 TRANS,
19332 M,
19333 N,
19334 K,
19335 A,
19336 LDA,
19337 TAU,
19338 C,
19339 LDC,
19340 WORK,
19341 INFO);
19342 }
19343
19344 //-- dormbr --------------------------------------------------------------------
19345 void
LAPACK_DECL(dormbr)19346 LAPACK_DECL(dormbr)(const char *VECT,
19347 const char *SIDE,
19348 const char *TRANS,
19349 const INTEGER *M,
19350 const INTEGER *N,
19351 const INTEGER *K,
19352 const DOUBLE *A,
19353 const INTEGER *LDA,
19354 const DOUBLE *TAU,
19355 DOUBLE *C,
19356 const INTEGER *LDC,
19357 DOUBLE *WORK,
19358 const INTEGER *LWORK,
19359 INTEGER *INFO)
19360 {
19361 DEBUG_LAPACK_STUB("dormbr");
19362 LAPACK_IMPL(dormbr)(VECT,
19363 SIDE,
19364 TRANS,
19365 M,
19366 N,
19367 K,
19368 A,
19369 LDA,
19370 TAU,
19371 C,
19372 LDC,
19373 WORK,
19374 LWORK,
19375 INFO);
19376 }
19377
19378 //-- dormhr --------------------------------------------------------------------
19379 void
LAPACK_DECL(dormhr)19380 LAPACK_DECL(dormhr)(const char *SIDE,
19381 const char *TRANS,
19382 const INTEGER *M,
19383 const INTEGER *N,
19384 const INTEGER *ILO,
19385 const INTEGER *IHI,
19386 const DOUBLE *A,
19387 const INTEGER *LDA,
19388 const DOUBLE *TAU,
19389 DOUBLE *C,
19390 const INTEGER *LDC,
19391 DOUBLE *WORK,
19392 const INTEGER *LWORK,
19393 INTEGER *INFO)
19394 {
19395 DEBUG_LAPACK_STUB("dormhr");
19396 LAPACK_IMPL(dormhr)(SIDE,
19397 TRANS,
19398 M,
19399 N,
19400 ILO,
19401 IHI,
19402 A,
19403 LDA,
19404 TAU,
19405 C,
19406 LDC,
19407 WORK,
19408 LWORK,
19409 INFO);
19410 }
19411
19412 //-- dorml2 --------------------------------------------------------------------
19413 void
LAPACK_DECL(dorml2)19414 LAPACK_DECL(dorml2)(const char *SIDE,
19415 const char *TRANS,
19416 const INTEGER *M,
19417 const INTEGER *N,
19418 const INTEGER *K,
19419 const DOUBLE *A,
19420 const INTEGER *LDA,
19421 const DOUBLE *TAU,
19422 DOUBLE *C,
19423 const INTEGER *LDC,
19424 DOUBLE *WORK,
19425 INTEGER *INFO)
19426 {
19427 DEBUG_LAPACK_STUB("dorml2");
19428 LAPACK_IMPL(dorml2)(SIDE,
19429 TRANS,
19430 M,
19431 N,
19432 K,
19433 A,
19434 LDA,
19435 TAU,
19436 C,
19437 LDC,
19438 WORK,
19439 INFO);
19440 }
19441
19442 //-- dormlq --------------------------------------------------------------------
19443 void
LAPACK_DECL(dormlq)19444 LAPACK_DECL(dormlq)(const char *SIDE,
19445 const char *TRANS,
19446 const INTEGER *M,
19447 const INTEGER *N,
19448 const INTEGER *K,
19449 const DOUBLE *A,
19450 const INTEGER *LDA,
19451 const DOUBLE *TAU,
19452 DOUBLE *C,
19453 const INTEGER *LDC,
19454 DOUBLE *WORK,
19455 const INTEGER *LWORK,
19456 INTEGER *INFO)
19457 {
19458 DEBUG_LAPACK_STUB("dormlq");
19459 LAPACK_IMPL(dormlq)(SIDE,
19460 TRANS,
19461 M,
19462 N,
19463 K,
19464 A,
19465 LDA,
19466 TAU,
19467 C,
19468 LDC,
19469 WORK,
19470 LWORK,
19471 INFO);
19472 }
19473
19474 //-- dormql --------------------------------------------------------------------
19475 void
LAPACK_DECL(dormql)19476 LAPACK_DECL(dormql)(const char *SIDE,
19477 const char *TRANS,
19478 const INTEGER *M,
19479 const INTEGER *N,
19480 const INTEGER *K,
19481 const DOUBLE *A,
19482 const INTEGER *LDA,
19483 const DOUBLE *TAU,
19484 DOUBLE *C,
19485 const INTEGER *LDC,
19486 DOUBLE *WORK,
19487 const INTEGER *LWORK,
19488 INTEGER *INFO)
19489 {
19490 DEBUG_LAPACK_STUB("dormql");
19491 LAPACK_IMPL(dormql)(SIDE,
19492 TRANS,
19493 M,
19494 N,
19495 K,
19496 A,
19497 LDA,
19498 TAU,
19499 C,
19500 LDC,
19501 WORK,
19502 LWORK,
19503 INFO);
19504 }
19505
19506 //-- dormqr --------------------------------------------------------------------
19507 void
LAPACK_DECL(dormqr)19508 LAPACK_DECL(dormqr)(const char *SIDE,
19509 const char *TRANS,
19510 const INTEGER *M,
19511 const INTEGER *N,
19512 const INTEGER *K,
19513 const DOUBLE *A,
19514 const INTEGER *LDA,
19515 const DOUBLE *TAU,
19516 DOUBLE *C,
19517 const INTEGER *LDC,
19518 DOUBLE *WORK,
19519 const INTEGER *LWORK,
19520 INTEGER *INFO)
19521 {
19522 DEBUG_LAPACK_STUB("dormqr");
19523 LAPACK_IMPL(dormqr)(SIDE,
19524 TRANS,
19525 M,
19526 N,
19527 K,
19528 A,
19529 LDA,
19530 TAU,
19531 C,
19532 LDC,
19533 WORK,
19534 LWORK,
19535 INFO);
19536 }
19537
19538 //-- dormr2 --------------------------------------------------------------------
19539 void
LAPACK_DECL(dormr2)19540 LAPACK_DECL(dormr2)(const char *SIDE,
19541 const char *TRANS,
19542 const INTEGER *M,
19543 const INTEGER *N,
19544 const INTEGER *K,
19545 const DOUBLE *A,
19546 const INTEGER *LDA,
19547 const DOUBLE *TAU,
19548 DOUBLE *C,
19549 const INTEGER *LDC,
19550 DOUBLE *WORK,
19551 INTEGER *INFO)
19552 {
19553 DEBUG_LAPACK_STUB("dormr2");
19554 LAPACK_IMPL(dormr2)(SIDE,
19555 TRANS,
19556 M,
19557 N,
19558 K,
19559 A,
19560 LDA,
19561 TAU,
19562 C,
19563 LDC,
19564 WORK,
19565 INFO);
19566 }
19567
19568 //-- dormr3 --------------------------------------------------------------------
19569 void
LAPACK_DECL(dormr3)19570 LAPACK_DECL(dormr3)(const char *SIDE,
19571 const char *TRANS,
19572 const INTEGER *M,
19573 const INTEGER *N,
19574 const INTEGER *K,
19575 const INTEGER *L,
19576 const DOUBLE *A,
19577 const INTEGER *LDA,
19578 const DOUBLE *TAU,
19579 DOUBLE *C,
19580 const INTEGER *LDC,
19581 DOUBLE *WORK,
19582 INTEGER *INFO)
19583 {
19584 DEBUG_LAPACK_STUB("dormr3");
19585 LAPACK_IMPL(dormr3)(SIDE,
19586 TRANS,
19587 M,
19588 N,
19589 K,
19590 L,
19591 A,
19592 LDA,
19593 TAU,
19594 C,
19595 LDC,
19596 WORK,
19597 INFO);
19598 }
19599
19600 //-- dormrq --------------------------------------------------------------------
19601 void
LAPACK_DECL(dormrq)19602 LAPACK_DECL(dormrq)(const char *SIDE,
19603 const char *TRANS,
19604 const INTEGER *M,
19605 const INTEGER *N,
19606 const INTEGER *K,
19607 const DOUBLE *A,
19608 const INTEGER *LDA,
19609 const DOUBLE *TAU,
19610 DOUBLE *C,
19611 const INTEGER *LDC,
19612 DOUBLE *WORK,
19613 const INTEGER *LWORK,
19614 INTEGER *INFO)
19615 {
19616 DEBUG_LAPACK_STUB("dormrq");
19617 LAPACK_IMPL(dormrq)(SIDE,
19618 TRANS,
19619 M,
19620 N,
19621 K,
19622 A,
19623 LDA,
19624 TAU,
19625 C,
19626 LDC,
19627 WORK,
19628 LWORK,
19629 INFO);
19630 }
19631
19632 //-- dormrz --------------------------------------------------------------------
19633 void
LAPACK_DECL(dormrz)19634 LAPACK_DECL(dormrz)(const char *SIDE,
19635 const char *TRANS,
19636 const INTEGER *M,
19637 const INTEGER *N,
19638 const INTEGER *K,
19639 const INTEGER *L,
19640 const DOUBLE *A,
19641 const INTEGER *LDA,
19642 const DOUBLE *TAU,
19643 DOUBLE *C,
19644 const INTEGER *LDC,
19645 DOUBLE *WORK,
19646 const INTEGER *LWORK,
19647 INTEGER *INFO)
19648 {
19649 DEBUG_LAPACK_STUB("dormrz");
19650 LAPACK_IMPL(dormrz)(SIDE,
19651 TRANS,
19652 M,
19653 N,
19654 K,
19655 L,
19656 A,
19657 LDA,
19658 TAU,
19659 C,
19660 LDC,
19661 WORK,
19662 LWORK,
19663 INFO);
19664 }
19665
19666 //-- dormtr --------------------------------------------------------------------
19667 void
LAPACK_DECL(dormtr)19668 LAPACK_DECL(dormtr)(const char *SIDE,
19669 const char *UPLO,
19670 const char *TRANS,
19671 const INTEGER *M,
19672 const INTEGER *N,
19673 const DOUBLE *A,
19674 const INTEGER *LDA,
19675 const DOUBLE *TAU,
19676 DOUBLE *C,
19677 const INTEGER *LDC,
19678 DOUBLE *WORK,
19679 const INTEGER *LWORK,
19680 INTEGER *INFO)
19681 {
19682 DEBUG_LAPACK_STUB("dormtr");
19683 LAPACK_IMPL(dormtr)(SIDE,
19684 UPLO,
19685 TRANS,
19686 M,
19687 N,
19688 A,
19689 LDA,
19690 TAU,
19691 C,
19692 LDC,
19693 WORK,
19694 LWORK,
19695 INFO);
19696 }
19697
19698 //-- dpbcon --------------------------------------------------------------------
19699 void
LAPACK_DECL(dpbcon)19700 LAPACK_DECL(dpbcon)(const char *UPLO,
19701 const INTEGER *N,
19702 const INTEGER *KD,
19703 const DOUBLE *AB,
19704 const INTEGER *LDAB,
19705 const DOUBLE *ANORM,
19706 DOUBLE *RCOND,
19707 DOUBLE *WORK,
19708 INTEGER *IWORK,
19709 INTEGER *INFO)
19710 {
19711 DEBUG_LAPACK_STUB("dpbcon");
19712 LAPACK_IMPL(dpbcon)(UPLO,
19713 N,
19714 KD,
19715 AB,
19716 LDAB,
19717 ANORM,
19718 RCOND,
19719 WORK,
19720 IWORK,
19721 INFO);
19722 }
19723
19724 //-- dpbequ --------------------------------------------------------------------
19725 void
LAPACK_DECL(dpbequ)19726 LAPACK_DECL(dpbequ)(const char *UPLO,
19727 const INTEGER *N,
19728 const INTEGER *KD,
19729 const DOUBLE *AB,
19730 const INTEGER *LDAB,
19731 DOUBLE *S,
19732 DOUBLE *SCOND,
19733 DOUBLE *AMAX,
19734 INTEGER *INFO)
19735 {
19736 DEBUG_LAPACK_STUB("dpbequ");
19737 LAPACK_IMPL(dpbequ)(UPLO,
19738 N,
19739 KD,
19740 AB,
19741 LDAB,
19742 S,
19743 SCOND,
19744 AMAX,
19745 INFO);
19746 }
19747
19748 //-- dpbrfs --------------------------------------------------------------------
19749 void
LAPACK_DECL(dpbrfs)19750 LAPACK_DECL(dpbrfs)(const char *UPLO,
19751 const INTEGER *N,
19752 const INTEGER *KD,
19753 const INTEGER *NRHS,
19754 const DOUBLE *AB,
19755 const INTEGER *LDAB,
19756 const DOUBLE *AFB,
19757 const INTEGER *LDAFB,
19758 const DOUBLE *B,
19759 const INTEGER *LDB,
19760 DOUBLE *X,
19761 const INTEGER *LDX,
19762 DOUBLE *FERR,
19763 DOUBLE *BERR,
19764 DOUBLE *WORK,
19765 INTEGER *IWORK,
19766 INTEGER *INFO)
19767 {
19768 DEBUG_LAPACK_STUB("dpbrfs");
19769 LAPACK_IMPL(dpbrfs)(UPLO,
19770 N,
19771 KD,
19772 NRHS,
19773 AB,
19774 LDAB,
19775 AFB,
19776 LDAFB,
19777 B,
19778 LDB,
19779 X,
19780 LDX,
19781 FERR,
19782 BERR,
19783 WORK,
19784 IWORK,
19785 INFO);
19786 }
19787
19788 //-- dpbstf --------------------------------------------------------------------
19789 void
LAPACK_DECL(dpbstf)19790 LAPACK_DECL(dpbstf)(const char *UPLO,
19791 const INTEGER *N,
19792 const INTEGER *KD,
19793 DOUBLE *AB,
19794 const INTEGER *LDAB,
19795 INTEGER *INFO)
19796 {
19797 DEBUG_LAPACK_STUB("dpbstf");
19798 LAPACK_IMPL(dpbstf)(UPLO,
19799 N,
19800 KD,
19801 AB,
19802 LDAB,
19803 INFO);
19804 }
19805
19806 //-- dpbsv ---------------------------------------------------------------------
19807 void
LAPACK_DECL(dpbsv)19808 LAPACK_DECL(dpbsv)(const char *UPLO,
19809 const INTEGER *N,
19810 const INTEGER *KD,
19811 const INTEGER *NRHS,
19812 DOUBLE *AB,
19813 const INTEGER *LDAB,
19814 DOUBLE *B,
19815 const INTEGER *LDB,
19816 INTEGER *INFO)
19817 {
19818 DEBUG_LAPACK_STUB("dpbsv");
19819 LAPACK_IMPL(dpbsv)(UPLO,
19820 N,
19821 KD,
19822 NRHS,
19823 AB,
19824 LDAB,
19825 B,
19826 LDB,
19827 INFO);
19828 }
19829
19830 //-- dpbsvx --------------------------------------------------------------------
19831 void
LAPACK_DECL(dpbsvx)19832 LAPACK_DECL(dpbsvx)(const char *FACT,
19833 const char *UPLO,
19834 const INTEGER *N,
19835 const INTEGER *KD,
19836 const INTEGER *NRHS,
19837 DOUBLE *AB,
19838 const INTEGER *LDAB,
19839 DOUBLE *AFB,
19840 const INTEGER *LDAFB,
19841 char *EQUED,
19842 DOUBLE *S,
19843 DOUBLE *B,
19844 const INTEGER *LDB,
19845 DOUBLE *X,
19846 const INTEGER *LDX,
19847 DOUBLE *RCOND,
19848 DOUBLE *FERR,
19849 DOUBLE *BERR,
19850 DOUBLE *WORK,
19851 INTEGER *IWORK,
19852 INTEGER *INFO)
19853 {
19854 DEBUG_LAPACK_STUB("dpbsvx");
19855 LAPACK_IMPL(dpbsvx)(FACT,
19856 UPLO,
19857 N,
19858 KD,
19859 NRHS,
19860 AB,
19861 LDAB,
19862 AFB,
19863 LDAFB,
19864 EQUED,
19865 S,
19866 B,
19867 LDB,
19868 X,
19869 LDX,
19870 RCOND,
19871 FERR,
19872 BERR,
19873 WORK,
19874 IWORK,
19875 INFO);
19876 }
19877
19878 //-- dpbtf2 --------------------------------------------------------------------
19879 void
LAPACK_DECL(dpbtf2)19880 LAPACK_DECL(dpbtf2)(const char *UPLO,
19881 const INTEGER *N,
19882 const INTEGER *KD,
19883 DOUBLE *AB,
19884 const INTEGER *LDAB,
19885 INTEGER *INFO)
19886 {
19887 DEBUG_LAPACK_STUB("dpbtf2");
19888 LAPACK_IMPL(dpbtf2)(UPLO,
19889 N,
19890 KD,
19891 AB,
19892 LDAB,
19893 INFO);
19894 }
19895
19896 //-- dpbtrf --------------------------------------------------------------------
19897 void
LAPACK_DECL(dpbtrf)19898 LAPACK_DECL(dpbtrf)(const char *UPLO,
19899 const INTEGER *N,
19900 const INTEGER *KD,
19901 DOUBLE *AB,
19902 const INTEGER *LDAB,
19903 INTEGER *INFO)
19904 {
19905 DEBUG_LAPACK_STUB("dpbtrf");
19906 LAPACK_IMPL(dpbtrf)(UPLO,
19907 N,
19908 KD,
19909 AB,
19910 LDAB,
19911 INFO);
19912 }
19913
19914 //-- dpbtrs --------------------------------------------------------------------
19915 void
LAPACK_DECL(dpbtrs)19916 LAPACK_DECL(dpbtrs)(const char *UPLO,
19917 const INTEGER *N,
19918 const INTEGER *KD,
19919 const INTEGER *NRHS,
19920 const DOUBLE *AB,
19921 const INTEGER *LDAB,
19922 DOUBLE *B,
19923 const INTEGER *LDB,
19924 INTEGER *INFO)
19925 {
19926 DEBUG_LAPACK_STUB("dpbtrs");
19927 LAPACK_IMPL(dpbtrs)(UPLO,
19928 N,
19929 KD,
19930 NRHS,
19931 AB,
19932 LDAB,
19933 B,
19934 LDB,
19935 INFO);
19936 }
19937
19938 //-- dpftrf --------------------------------------------------------------------
19939 void
LAPACK_DECL(dpftrf)19940 LAPACK_DECL(dpftrf)(const char *TRANSR,
19941 const char *UPLO,
19942 const INTEGER *N,
19943 DOUBLE *A,
19944 INTEGER *INFO)
19945 {
19946 DEBUG_LAPACK_STUB("dpftrf");
19947 LAPACK_IMPL(dpftrf)(TRANSR,
19948 UPLO,
19949 N,
19950 A,
19951 INFO);
19952 }
19953
19954 //-- dpftri --------------------------------------------------------------------
19955 void
LAPACK_DECL(dpftri)19956 LAPACK_DECL(dpftri)(const char *TRANSR,
19957 const char *UPLO,
19958 const INTEGER *N,
19959 DOUBLE *A,
19960 INTEGER *INFO)
19961 {
19962 DEBUG_LAPACK_STUB("dpftri");
19963 LAPACK_IMPL(dpftri)(TRANSR,
19964 UPLO,
19965 N,
19966 A,
19967 INFO);
19968 }
19969
19970 //-- dpftrs --------------------------------------------------------------------
19971 void
LAPACK_DECL(dpftrs)19972 LAPACK_DECL(dpftrs)(const char *TRANSR,
19973 const char *UPLO,
19974 const INTEGER *N,
19975 const INTEGER *NRHS,
19976 const DOUBLE *A,
19977 DOUBLE *B,
19978 const INTEGER *LDB,
19979 INTEGER *INFO)
19980 {
19981 DEBUG_LAPACK_STUB("dpftrs");
19982 LAPACK_IMPL(dpftrs)(TRANSR,
19983 UPLO,
19984 N,
19985 NRHS,
19986 A,
19987 B,
19988 LDB,
19989 INFO);
19990 }
19991
19992 //-- dpocon --------------------------------------------------------------------
19993 void
LAPACK_DECL(dpocon)19994 LAPACK_DECL(dpocon)(const char *UPLO,
19995 const INTEGER *N,
19996 const DOUBLE *A,
19997 const INTEGER *LDA,
19998 const DOUBLE *ANORM,
19999 DOUBLE *RCOND,
20000 DOUBLE *WORK,
20001 INTEGER *IWORK,
20002 INTEGER *INFO)
20003 {
20004 DEBUG_LAPACK_STUB("dpocon");
20005 LAPACK_IMPL(dpocon)(UPLO,
20006 N,
20007 A,
20008 LDA,
20009 ANORM,
20010 RCOND,
20011 WORK,
20012 IWORK,
20013 INFO);
20014 }
20015
20016 //-- dpoequ --------------------------------------------------------------------
20017 void
LAPACK_DECL(dpoequ)20018 LAPACK_DECL(dpoequ)(const INTEGER *N,
20019 const DOUBLE *A,
20020 const INTEGER *LDA,
20021 DOUBLE *S,
20022 DOUBLE *SCOND,
20023 DOUBLE *AMAX,
20024 INTEGER *INFO)
20025 {
20026 DEBUG_LAPACK_STUB("dpoequ");
20027 LAPACK_IMPL(dpoequ)(N,
20028 A,
20029 LDA,
20030 S,
20031 SCOND,
20032 AMAX,
20033 INFO);
20034 }
20035
20036 //-- dpoequb -------------------------------------------------------------------
20037 void
LAPACK_DECL(dpoequb)20038 LAPACK_DECL(dpoequb)(const INTEGER *N,
20039 const DOUBLE *A,
20040 const INTEGER *LDA,
20041 DOUBLE *S,
20042 DOUBLE *SCOND,
20043 DOUBLE *AMAX,
20044 INTEGER *INFO)
20045 {
20046 DEBUG_LAPACK_STUB("dpoequb");
20047 LAPACK_IMPL(dpoequb)(N,
20048 A,
20049 LDA,
20050 S,
20051 SCOND,
20052 AMAX,
20053 INFO);
20054 }
20055
20056 //-- dporfs --------------------------------------------------------------------
20057 void
LAPACK_DECL(dporfs)20058 LAPACK_DECL(dporfs)(const char *UPLO,
20059 const INTEGER *N,
20060 const INTEGER *NRHS,
20061 const DOUBLE *A,
20062 const INTEGER *LDA,
20063 const DOUBLE *AF,
20064 const INTEGER *LDAF,
20065 const DOUBLE *B,
20066 const INTEGER *LDB,
20067 DOUBLE *X,
20068 const INTEGER *LDX,
20069 DOUBLE *FERR,
20070 DOUBLE *BERR,
20071 DOUBLE *WORK,
20072 INTEGER *IWORK,
20073 INTEGER *INFO)
20074 {
20075 DEBUG_LAPACK_STUB("dporfs");
20076 LAPACK_IMPL(dporfs)(UPLO,
20077 N,
20078 NRHS,
20079 A,
20080 LDA,
20081 AF,
20082 LDAF,
20083 B,
20084 LDB,
20085 X,
20086 LDX,
20087 FERR,
20088 BERR,
20089 WORK,
20090 IWORK,
20091 INFO);
20092 }
20093
20094 //-- dporfsx -------------------------------------------------------------------
20095 void
LAPACK_DECL(dporfsx)20096 LAPACK_DECL(dporfsx)(const char *UPLO,
20097 const char *EQUED,
20098 const INTEGER *N,
20099 const INTEGER *NRHS,
20100 const DOUBLE *A,
20101 const INTEGER *LDA,
20102 const DOUBLE *AF,
20103 const INTEGER *LDAF,
20104 DOUBLE *S,
20105 const DOUBLE *B,
20106 const INTEGER *LDB,
20107 DOUBLE *X,
20108 const INTEGER *LDX,
20109 DOUBLE *RCOND,
20110 DOUBLE *BERR,
20111 const INTEGER *N_ERR_BNDS,
20112 DOUBLE *ERR_BNDS_NORM,
20113 DOUBLE *ERR_BNDS_COMP,
20114 const INTEGER *NPARAMS,
20115 DOUBLE *PARAMS,
20116 DOUBLE *WORK,
20117 INTEGER *IWORK,
20118 INTEGER *INFO)
20119 {
20120 DEBUG_LAPACK_STUB("dporfsx");
20121 LAPACK_IMPL(dporfsx)(UPLO,
20122 EQUED,
20123 N,
20124 NRHS,
20125 A,
20126 LDA,
20127 AF,
20128 LDAF,
20129 S,
20130 B,
20131 LDB,
20132 X,
20133 LDX,
20134 RCOND,
20135 BERR,
20136 N_ERR_BNDS,
20137 ERR_BNDS_NORM,
20138 ERR_BNDS_COMP,
20139 NPARAMS,
20140 PARAMS,
20141 WORK,
20142 IWORK,
20143 INFO);
20144 }
20145
20146 //-- dposv ---------------------------------------------------------------------
20147 void
LAPACK_DECL(dposv)20148 LAPACK_DECL(dposv)(const char *UPLO,
20149 const INTEGER *N,
20150 const INTEGER *NRHS,
20151 DOUBLE *A,
20152 const INTEGER *LDA,
20153 DOUBLE *B,
20154 const INTEGER *LDB,
20155 INTEGER *INFO)
20156 {
20157 DEBUG_LAPACK_STUB("dposv");
20158 LAPACK_IMPL(dposv)(UPLO,
20159 N,
20160 NRHS,
20161 A,
20162 LDA,
20163 B,
20164 LDB,
20165 INFO);
20166 }
20167
20168 //-- dposvx --------------------------------------------------------------------
20169 void
LAPACK_DECL(dposvx)20170 LAPACK_DECL(dposvx)(const char *FACT,
20171 const char *UPLO,
20172 const INTEGER *N,
20173 const INTEGER *NRHS,
20174 DOUBLE *A,
20175 const INTEGER *LDA,
20176 DOUBLE *AF,
20177 const INTEGER *LDAF,
20178 char *EQUED,
20179 DOUBLE *S,
20180 DOUBLE *B,
20181 const INTEGER *LDB,
20182 DOUBLE *X,
20183 const INTEGER *LDX,
20184 DOUBLE *RCOND,
20185 DOUBLE *FERR,
20186 DOUBLE *BERR,
20187 DOUBLE *WORK,
20188 INTEGER *IWORK,
20189 INTEGER *INFO)
20190 {
20191 DEBUG_LAPACK_STUB("dposvx");
20192 LAPACK_IMPL(dposvx)(FACT,
20193 UPLO,
20194 N,
20195 NRHS,
20196 A,
20197 LDA,
20198 AF,
20199 LDAF,
20200 EQUED,
20201 S,
20202 B,
20203 LDB,
20204 X,
20205 LDX,
20206 RCOND,
20207 FERR,
20208 BERR,
20209 WORK,
20210 IWORK,
20211 INFO);
20212 }
20213
20214 //-- dposvxx -------------------------------------------------------------------
20215 void
LAPACK_DECL(dposvxx)20216 LAPACK_DECL(dposvxx)(const char *FACT,
20217 const char *UPLO,
20218 const INTEGER *N,
20219 const INTEGER *NRHS,
20220 DOUBLE *A,
20221 const INTEGER *LDA,
20222 DOUBLE *AF,
20223 const INTEGER *LDAF,
20224 char *EQUED,
20225 DOUBLE *S,
20226 DOUBLE *B,
20227 const INTEGER *LDB,
20228 DOUBLE *X,
20229 const INTEGER *LDX,
20230 DOUBLE *RCOND,
20231 DOUBLE *RPVGRW,
20232 DOUBLE *BERR,
20233 const INTEGER *N_ERR_BNDS,
20234 DOUBLE *ERR_BNDS_NORM,
20235 DOUBLE *ERR_BNDS_COMP,
20236 const INTEGER *NPARAMS,
20237 DOUBLE *PARAMS,
20238 DOUBLE *WORK,
20239 INTEGER *IWORK,
20240 INTEGER *INFO)
20241 {
20242 DEBUG_LAPACK_STUB("dposvxx");
20243 LAPACK_IMPL(dposvxx)(FACT,
20244 UPLO,
20245 N,
20246 NRHS,
20247 A,
20248 LDA,
20249 AF,
20250 LDAF,
20251 EQUED,
20252 S,
20253 B,
20254 LDB,
20255 X,
20256 LDX,
20257 RCOND,
20258 RPVGRW,
20259 BERR,
20260 N_ERR_BNDS,
20261 ERR_BNDS_NORM,
20262 ERR_BNDS_COMP,
20263 NPARAMS,
20264 PARAMS,
20265 WORK,
20266 IWORK,
20267 INFO);
20268 }
20269
20270 //-- dpotf2 --------------------------------------------------------------------
20271 void
LAPACK_DECL(dpotf2)20272 LAPACK_DECL(dpotf2)(const char *UPLO,
20273 const INTEGER *N,
20274 DOUBLE *A,
20275 const INTEGER *LDA,
20276 INTEGER *INFO)
20277 {
20278 DEBUG_LAPACK_STUB("dpotf2");
20279 LAPACK_IMPL(dpotf2)(UPLO,
20280 N,
20281 A,
20282 LDA,
20283 INFO);
20284 }
20285
20286 //-- dpotrf --------------------------------------------------------------------
20287 void
LAPACK_DECL(dpotrf)20288 LAPACK_DECL(dpotrf)(const char *UPLO,
20289 const INTEGER *N,
20290 DOUBLE *A,
20291 const INTEGER *LDA,
20292 INTEGER *INFO)
20293 {
20294 DEBUG_LAPACK_STUB("dpotrf");
20295 LAPACK_IMPL(dpotrf)(UPLO,
20296 N,
20297 A,
20298 LDA,
20299 INFO);
20300 }
20301
20302 //-- dpotri --------------------------------------------------------------------
20303 void
LAPACK_DECL(dpotri)20304 LAPACK_DECL(dpotri)(const char *UPLO,
20305 const INTEGER *N,
20306 DOUBLE *A,
20307 const INTEGER *LDA,
20308 INTEGER *INFO)
20309 {
20310 DEBUG_LAPACK_STUB("dpotri");
20311 LAPACK_IMPL(dpotri)(UPLO,
20312 N,
20313 A,
20314 LDA,
20315 INFO);
20316 }
20317
20318 //-- dpotrs --------------------------------------------------------------------
20319 void
LAPACK_DECL(dpotrs)20320 LAPACK_DECL(dpotrs)(const char *UPLO,
20321 const INTEGER *N,
20322 const INTEGER *NRHS,
20323 const DOUBLE *A,
20324 const INTEGER *LDA,
20325 DOUBLE *B,
20326 const INTEGER *LDB,
20327 INTEGER *INFO)
20328 {
20329 DEBUG_LAPACK_STUB("dpotrs");
20330 LAPACK_IMPL(dpotrs)(UPLO,
20331 N,
20332 NRHS,
20333 A,
20334 LDA,
20335 B,
20336 LDB,
20337 INFO);
20338 }
20339
20340 //-- dppcon --------------------------------------------------------------------
20341 void
LAPACK_DECL(dppcon)20342 LAPACK_DECL(dppcon)(const char *UPLO,
20343 const INTEGER *N,
20344 const DOUBLE *AP,
20345 const DOUBLE *ANORM,
20346 DOUBLE *RCOND,
20347 DOUBLE *WORK,
20348 INTEGER *IWORK,
20349 INTEGER *INFO)
20350 {
20351 DEBUG_LAPACK_STUB("dppcon");
20352 LAPACK_IMPL(dppcon)(UPLO,
20353 N,
20354 AP,
20355 ANORM,
20356 RCOND,
20357 WORK,
20358 IWORK,
20359 INFO);
20360 }
20361
20362 //-- dppequ --------------------------------------------------------------------
20363 void
LAPACK_DECL(dppequ)20364 LAPACK_DECL(dppequ)(const char *UPLO,
20365 const INTEGER *N,
20366 const DOUBLE *AP,
20367 DOUBLE *S,
20368 DOUBLE *SCOND,
20369 DOUBLE *AMAX,
20370 INTEGER *INFO)
20371 {
20372 DEBUG_LAPACK_STUB("dppequ");
20373 LAPACK_IMPL(dppequ)(UPLO,
20374 N,
20375 AP,
20376 S,
20377 SCOND,
20378 AMAX,
20379 INFO);
20380 }
20381
20382 //-- dpprfs --------------------------------------------------------------------
20383 void
LAPACK_DECL(dpprfs)20384 LAPACK_DECL(dpprfs)(const char *UPLO,
20385 const INTEGER *N,
20386 const INTEGER *NRHS,
20387 const DOUBLE *AP,
20388 const DOUBLE *AFP,
20389 const DOUBLE *B,
20390 const INTEGER *LDB,
20391 DOUBLE *X,
20392 const INTEGER *LDX,
20393 DOUBLE *FERR,
20394 DOUBLE *BERR,
20395 DOUBLE *WORK,
20396 INTEGER *IWORK,
20397 INTEGER *INFO)
20398 {
20399 DEBUG_LAPACK_STUB("dpprfs");
20400 LAPACK_IMPL(dpprfs)(UPLO,
20401 N,
20402 NRHS,
20403 AP,
20404 AFP,
20405 B,
20406 LDB,
20407 X,
20408 LDX,
20409 FERR,
20410 BERR,
20411 WORK,
20412 IWORK,
20413 INFO);
20414 }
20415
20416 //-- dppsv ---------------------------------------------------------------------
20417 void
LAPACK_DECL(dppsv)20418 LAPACK_DECL(dppsv)(const char *UPLO,
20419 const INTEGER *N,
20420 const INTEGER *NRHS,
20421 DOUBLE *AP,
20422 DOUBLE *B,
20423 const INTEGER *LDB,
20424 INTEGER *INFO)
20425 {
20426 DEBUG_LAPACK_STUB("dppsv");
20427 LAPACK_IMPL(dppsv)(UPLO,
20428 N,
20429 NRHS,
20430 AP,
20431 B,
20432 LDB,
20433 INFO);
20434 }
20435
20436 //-- dppsvx --------------------------------------------------------------------
20437 void
LAPACK_DECL(dppsvx)20438 LAPACK_DECL(dppsvx)(const char *FACT,
20439 const char *UPLO,
20440 const INTEGER *N,
20441 const INTEGER *NRHS,
20442 DOUBLE *AP,
20443 DOUBLE *AFP,
20444 char *EQUED,
20445 DOUBLE *S,
20446 DOUBLE *B,
20447 const INTEGER *LDB,
20448 DOUBLE *X,
20449 const INTEGER *LDX,
20450 DOUBLE *RCOND,
20451 DOUBLE *FERR,
20452 DOUBLE *BERR,
20453 DOUBLE *WORK,
20454 INTEGER *IWORK,
20455 INTEGER *INFO)
20456 {
20457 DEBUG_LAPACK_STUB("dppsvx");
20458 LAPACK_IMPL(dppsvx)(FACT,
20459 UPLO,
20460 N,
20461 NRHS,
20462 AP,
20463 AFP,
20464 EQUED,
20465 S,
20466 B,
20467 LDB,
20468 X,
20469 LDX,
20470 RCOND,
20471 FERR,
20472 BERR,
20473 WORK,
20474 IWORK,
20475 INFO);
20476 }
20477
20478 //-- dpptrf --------------------------------------------------------------------
20479 void
LAPACK_DECL(dpptrf)20480 LAPACK_DECL(dpptrf)(const char *UPLO,
20481 const INTEGER *N,
20482 DOUBLE *AP,
20483 INTEGER *INFO)
20484 {
20485 DEBUG_LAPACK_STUB("dpptrf");
20486 LAPACK_IMPL(dpptrf)(UPLO,
20487 N,
20488 AP,
20489 INFO);
20490 }
20491
20492 //-- dpptri --------------------------------------------------------------------
20493 void
LAPACK_DECL(dpptri)20494 LAPACK_DECL(dpptri)(const char *UPLO,
20495 const INTEGER *N,
20496 DOUBLE *AP,
20497 INTEGER *INFO)
20498 {
20499 DEBUG_LAPACK_STUB("dpptri");
20500 LAPACK_IMPL(dpptri)(UPLO,
20501 N,
20502 AP,
20503 INFO);
20504 }
20505
20506 //-- dpptrs --------------------------------------------------------------------
20507 void
LAPACK_DECL(dpptrs)20508 LAPACK_DECL(dpptrs)(const char *UPLO,
20509 const INTEGER *N,
20510 const INTEGER *NRHS,
20511 const DOUBLE *AP,
20512 DOUBLE *B,
20513 const INTEGER *LDB,
20514 INTEGER *INFO)
20515 {
20516 DEBUG_LAPACK_STUB("dpptrs");
20517 LAPACK_IMPL(dpptrs)(UPLO,
20518 N,
20519 NRHS,
20520 AP,
20521 B,
20522 LDB,
20523 INFO);
20524 }
20525
20526 //-- dpstf2 --------------------------------------------------------------------
20527 void
LAPACK_DECL(dpstf2)20528 LAPACK_DECL(dpstf2)(const char *UPLO,
20529 const INTEGER *N,
20530 DOUBLE *A,
20531 const INTEGER *LDA,
20532 INTEGER *PIV,
20533 INTEGER *RANK,
20534 const DOUBLE *TOL,
20535 DOUBLE *WORK,
20536 INTEGER *INFO)
20537 {
20538 DEBUG_LAPACK_STUB("dpstf2");
20539 LAPACK_IMPL(dpstf2)(UPLO,
20540 N,
20541 A,
20542 LDA,
20543 PIV,
20544 RANK,
20545 TOL,
20546 WORK,
20547 INFO);
20548 }
20549
20550 //-- dpstrf --------------------------------------------------------------------
20551 void
LAPACK_DECL(dpstrf)20552 LAPACK_DECL(dpstrf)(const char *UPLO,
20553 const INTEGER *N,
20554 DOUBLE *A,
20555 const INTEGER *LDA,
20556 INTEGER *PIV,
20557 INTEGER *RANK,
20558 const DOUBLE *TOL,
20559 DOUBLE *WORK,
20560 INTEGER *INFO)
20561 {
20562 DEBUG_LAPACK_STUB("dpstrf");
20563 LAPACK_IMPL(dpstrf)(UPLO,
20564 N,
20565 A,
20566 LDA,
20567 PIV,
20568 RANK,
20569 TOL,
20570 WORK,
20571 INFO);
20572 }
20573
20574 //-- dptcon --------------------------------------------------------------------
20575 void
LAPACK_DECL(dptcon)20576 LAPACK_DECL(dptcon)(const INTEGER *N,
20577 const DOUBLE *D,
20578 const DOUBLE *E,
20579 const DOUBLE *ANORM,
20580 DOUBLE *RCOND,
20581 DOUBLE *WORK,
20582 INTEGER *INFO)
20583 {
20584 DEBUG_LAPACK_STUB("dptcon");
20585 LAPACK_IMPL(dptcon)(N,
20586 D,
20587 E,
20588 ANORM,
20589 RCOND,
20590 WORK,
20591 INFO);
20592 }
20593
20594 //-- dpteqr --------------------------------------------------------------------
20595 void
LAPACK_DECL(dpteqr)20596 LAPACK_DECL(dpteqr)(const char *COMPZ,
20597 const INTEGER *N,
20598 DOUBLE *D,
20599 DOUBLE *E,
20600 DOUBLE *Z,
20601 const INTEGER *LDZ,
20602 DOUBLE *WORK,
20603 INTEGER *INFO)
20604 {
20605 DEBUG_LAPACK_STUB("dpteqr");
20606 LAPACK_IMPL(dpteqr)(COMPZ,
20607 N,
20608 D,
20609 E,
20610 Z,
20611 LDZ,
20612 WORK,
20613 INFO);
20614 }
20615
20616 //-- dptrfs --------------------------------------------------------------------
20617 void
LAPACK_DECL(dptrfs)20618 LAPACK_DECL(dptrfs)(const INTEGER *N,
20619 const INTEGER *NRHS,
20620 const DOUBLE *D,
20621 const DOUBLE *E,
20622 const DOUBLE *DF,
20623 const DOUBLE *EF,
20624 const DOUBLE *B,
20625 const INTEGER *LDB,
20626 DOUBLE *X,
20627 const INTEGER *LDX,
20628 DOUBLE *FERR,
20629 DOUBLE *BERR,
20630 DOUBLE *WORK,
20631 INTEGER *INFO)
20632 {
20633 DEBUG_LAPACK_STUB("dptrfs");
20634 LAPACK_IMPL(dptrfs)(N,
20635 NRHS,
20636 D,
20637 E,
20638 DF,
20639 EF,
20640 B,
20641 LDB,
20642 X,
20643 LDX,
20644 FERR,
20645 BERR,
20646 WORK,
20647 INFO);
20648 }
20649
20650 //-- dptsv ---------------------------------------------------------------------
20651 void
LAPACK_DECL(dptsv)20652 LAPACK_DECL(dptsv)(const INTEGER *N,
20653 const INTEGER *NRHS,
20654 DOUBLE *D,
20655 DOUBLE *E,
20656 DOUBLE *B,
20657 const INTEGER *LDB,
20658 INTEGER *INFO)
20659 {
20660 DEBUG_LAPACK_STUB("dptsv");
20661 LAPACK_IMPL(dptsv)(N,
20662 NRHS,
20663 D,
20664 E,
20665 B,
20666 LDB,
20667 INFO);
20668 }
20669
20670 //-- dptsvx --------------------------------------------------------------------
20671 void
LAPACK_DECL(dptsvx)20672 LAPACK_DECL(dptsvx)(const char *FACT,
20673 const INTEGER *N,
20674 const INTEGER *NRHS,
20675 const DOUBLE *D,
20676 const DOUBLE *E,
20677 DOUBLE *DF,
20678 DOUBLE *EF,
20679 const DOUBLE *B,
20680 const INTEGER *LDB,
20681 DOUBLE *X,
20682 const INTEGER *LDX,
20683 DOUBLE *RCOND,
20684 DOUBLE *FERR,
20685 DOUBLE *BERR,
20686 DOUBLE *WORK,
20687 INTEGER *INFO)
20688 {
20689 DEBUG_LAPACK_STUB("dptsvx");
20690 LAPACK_IMPL(dptsvx)(FACT,
20691 N,
20692 NRHS,
20693 D,
20694 E,
20695 DF,
20696 EF,
20697 B,
20698 LDB,
20699 X,
20700 LDX,
20701 RCOND,
20702 FERR,
20703 BERR,
20704 WORK,
20705 INFO);
20706 }
20707
20708 //-- dpttrf --------------------------------------------------------------------
20709 void
LAPACK_DECL(dpttrf)20710 LAPACK_DECL(dpttrf)(const INTEGER *N,
20711 DOUBLE *D,
20712 DOUBLE *E,
20713 INTEGER *INFO)
20714 {
20715 DEBUG_LAPACK_STUB("dpttrf");
20716 LAPACK_IMPL(dpttrf)(N,
20717 D,
20718 E,
20719 INFO);
20720 }
20721
20722 //-- dpttrs --------------------------------------------------------------------
20723 void
LAPACK_DECL(dpttrs)20724 LAPACK_DECL(dpttrs)(const INTEGER *N,
20725 const INTEGER *NRHS,
20726 const DOUBLE *D,
20727 const DOUBLE *E,
20728 DOUBLE *B,
20729 const INTEGER *LDB,
20730 INTEGER *INFO)
20731 {
20732 DEBUG_LAPACK_STUB("dpttrs");
20733 LAPACK_IMPL(dpttrs)(N,
20734 NRHS,
20735 D,
20736 E,
20737 B,
20738 LDB,
20739 INFO);
20740 }
20741
20742 //-- dptts2 --------------------------------------------------------------------
20743 void
LAPACK_DECL(dptts2)20744 LAPACK_DECL(dptts2)(const INTEGER *N,
20745 const INTEGER *NRHS,
20746 const DOUBLE *D,
20747 const DOUBLE *E,
20748 DOUBLE *B,
20749 const INTEGER *LDB)
20750 {
20751 DEBUG_LAPACK_STUB("dptts2");
20752 LAPACK_IMPL(dptts2)(N,
20753 NRHS,
20754 D,
20755 E,
20756 B,
20757 LDB);
20758 }
20759
20760 //-- drscl ---------------------------------------------------------------------
20761 void
LAPACK_DECL(drscl)20762 LAPACK_DECL(drscl)(const INTEGER *N,
20763 const DOUBLE *SA,
20764 DOUBLE *SX,
20765 const INTEGER *INCX)
20766 {
20767 DEBUG_LAPACK_STUB("drscl");
20768 LAPACK_IMPL(drscl)(N,
20769 SA,
20770 SX,
20771 INCX);
20772 }
20773
20774 //-- dsbev ---------------------------------------------------------------------
20775 void
LAPACK_DECL(dsbev)20776 LAPACK_DECL(dsbev)(const char *JOBZ,
20777 const char *UPLO,
20778 const INTEGER *N,
20779 const INTEGER *KD,
20780 DOUBLE *AB,
20781 const INTEGER *LDAB,
20782 DOUBLE *W,
20783 DOUBLE *Z,
20784 const INTEGER *LDZ,
20785 DOUBLE *WORK,
20786 INTEGER *INFO)
20787 {
20788 DEBUG_LAPACK_STUB("dsbev");
20789 LAPACK_IMPL(dsbev)(JOBZ,
20790 UPLO,
20791 N,
20792 KD,
20793 AB,
20794 LDAB,
20795 W,
20796 Z,
20797 LDZ,
20798 WORK,
20799 INFO);
20800 }
20801
20802 //-- dsbevd --------------------------------------------------------------------
20803 void
LAPACK_DECL(dsbevd)20804 LAPACK_DECL(dsbevd)(const char *JOBZ,
20805 const char *UPLO,
20806 const INTEGER *N,
20807 const INTEGER *KD,
20808 DOUBLE *AB,
20809 const INTEGER *LDAB,
20810 DOUBLE *W,
20811 DOUBLE *Z,
20812 const INTEGER *LDZ,
20813 DOUBLE *WORK,
20814 const INTEGER *LWORK,
20815 INTEGER *IWORK,
20816 const INTEGER *LIWORK,
20817 INTEGER *INFO)
20818 {
20819 DEBUG_LAPACK_STUB("dsbevd");
20820 LAPACK_IMPL(dsbevd)(JOBZ,
20821 UPLO,
20822 N,
20823 KD,
20824 AB,
20825 LDAB,
20826 W,
20827 Z,
20828 LDZ,
20829 WORK,
20830 LWORK,
20831 IWORK,
20832 LIWORK,
20833 INFO);
20834 }
20835
20836 //-- dsbevx --------------------------------------------------------------------
20837 void
LAPACK_DECL(dsbevx)20838 LAPACK_DECL(dsbevx)(const char *JOBZ,
20839 const char *RANGE,
20840 const char *UPLO,
20841 const INTEGER *N,
20842 const INTEGER *KD,
20843 DOUBLE *AB,
20844 const INTEGER *LDAB,
20845 DOUBLE *Q,
20846 const INTEGER *LDQ,
20847 const DOUBLE *VL,
20848 const DOUBLE *VU,
20849 const INTEGER *IL,
20850 const INTEGER *IU,
20851 const DOUBLE *ABSTOL,
20852 INTEGER *M,
20853 DOUBLE *W,
20854 DOUBLE *Z,
20855 const INTEGER *LDZ,
20856 DOUBLE *WORK,
20857 INTEGER *IWORK,
20858 INTEGER *IFAIL,
20859 INTEGER *INFO)
20860 {
20861 DEBUG_LAPACK_STUB("dsbevx");
20862 LAPACK_IMPL(dsbevx)(JOBZ,
20863 RANGE,
20864 UPLO,
20865 N,
20866 KD,
20867 AB,
20868 LDAB,
20869 Q,
20870 LDQ,
20871 VL,
20872 VU,
20873 IL,
20874 IU,
20875 ABSTOL,
20876 M,
20877 W,
20878 Z,
20879 LDZ,
20880 WORK,
20881 IWORK,
20882 IFAIL,
20883 INFO);
20884 }
20885
20886 //-- dsbgst --------------------------------------------------------------------
20887 void
LAPACK_DECL(dsbgst)20888 LAPACK_DECL(dsbgst)(const char *VECT,
20889 const char *UPLO,
20890 const INTEGER *N,
20891 const INTEGER *KA,
20892 const INTEGER *KB,
20893 DOUBLE *AB,
20894 const INTEGER *LDAB,
20895 const DOUBLE *BB,
20896 const INTEGER *LDBB,
20897 DOUBLE *X,
20898 const INTEGER *LDX,
20899 DOUBLE *WORK,
20900 INTEGER *INFO)
20901 {
20902 DEBUG_LAPACK_STUB("dsbgst");
20903 LAPACK_IMPL(dsbgst)(VECT,
20904 UPLO,
20905 N,
20906 KA,
20907 KB,
20908 AB,
20909 LDAB,
20910 BB,
20911 LDBB,
20912 X,
20913 LDX,
20914 WORK,
20915 INFO);
20916 }
20917
20918 //-- dsbgv ---------------------------------------------------------------------
20919 void
LAPACK_DECL(dsbgv)20920 LAPACK_DECL(dsbgv)(const char *JOBZ,
20921 const char *UPLO,
20922 const INTEGER *N,
20923 const INTEGER *KA,
20924 const INTEGER *KB,
20925 DOUBLE *AB,
20926 const INTEGER *LDAB,
20927 DOUBLE *BB,
20928 const INTEGER *LDBB,
20929 DOUBLE *W,
20930 DOUBLE *Z,
20931 const INTEGER *LDZ,
20932 DOUBLE *WORK,
20933 INTEGER *INFO)
20934 {
20935 DEBUG_LAPACK_STUB("dsbgv");
20936 LAPACK_IMPL(dsbgv)(JOBZ,
20937 UPLO,
20938 N,
20939 KA,
20940 KB,
20941 AB,
20942 LDAB,
20943 BB,
20944 LDBB,
20945 W,
20946 Z,
20947 LDZ,
20948 WORK,
20949 INFO);
20950 }
20951
20952 //-- dsbgvd --------------------------------------------------------------------
20953 void
LAPACK_DECL(dsbgvd)20954 LAPACK_DECL(dsbgvd)(const char *JOBZ,
20955 const char *UPLO,
20956 const INTEGER *N,
20957 const INTEGER *KA,
20958 const INTEGER *KB,
20959 DOUBLE *AB,
20960 const INTEGER *LDAB,
20961 DOUBLE *BB,
20962 const INTEGER *LDBB,
20963 DOUBLE *W,
20964 DOUBLE *Z,
20965 const INTEGER *LDZ,
20966 DOUBLE *WORK,
20967 const INTEGER *LWORK,
20968 INTEGER *IWORK,
20969 const INTEGER *LIWORK,
20970 INTEGER *INFO)
20971 {
20972 DEBUG_LAPACK_STUB("dsbgvd");
20973 LAPACK_IMPL(dsbgvd)(JOBZ,
20974 UPLO,
20975 N,
20976 KA,
20977 KB,
20978 AB,
20979 LDAB,
20980 BB,
20981 LDBB,
20982 W,
20983 Z,
20984 LDZ,
20985 WORK,
20986 LWORK,
20987 IWORK,
20988 LIWORK,
20989 INFO);
20990 }
20991
20992 //-- dsbgvx --------------------------------------------------------------------
20993 void
LAPACK_DECL(dsbgvx)20994 LAPACK_DECL(dsbgvx)(const char *JOBZ,
20995 const char *RANGE,
20996 const char *UPLO,
20997 const INTEGER *N,
20998 const INTEGER *KA,
20999 const INTEGER *KB,
21000 DOUBLE *AB,
21001 const INTEGER *LDAB,
21002 DOUBLE *BB,
21003 const INTEGER *LDBB,
21004 DOUBLE *Q,
21005 const INTEGER *LDQ,
21006 const DOUBLE *VL,
21007 const DOUBLE *VU,
21008 const INTEGER *IL,
21009 const INTEGER *IU,
21010 const DOUBLE *ABSTOL,
21011 INTEGER *M,
21012 DOUBLE *W,
21013 DOUBLE *Z,
21014 const INTEGER *LDZ,
21015 DOUBLE *WORK,
21016 INTEGER *IWORK,
21017 INTEGER *IFAIL,
21018 INTEGER *INFO)
21019 {
21020 DEBUG_LAPACK_STUB("dsbgvx");
21021 LAPACK_IMPL(dsbgvx)(JOBZ,
21022 RANGE,
21023 UPLO,
21024 N,
21025 KA,
21026 KB,
21027 AB,
21028 LDAB,
21029 BB,
21030 LDBB,
21031 Q,
21032 LDQ,
21033 VL,
21034 VU,
21035 IL,
21036 IU,
21037 ABSTOL,
21038 M,
21039 W,
21040 Z,
21041 LDZ,
21042 WORK,
21043 IWORK,
21044 IFAIL,
21045 INFO);
21046 }
21047
21048 //-- dsbtrd --------------------------------------------------------------------
21049 void
LAPACK_DECL(dsbtrd)21050 LAPACK_DECL(dsbtrd)(const char *VECT,
21051 const char *UPLO,
21052 const INTEGER *N,
21053 const INTEGER *KD,
21054 DOUBLE *AB,
21055 const INTEGER *LDAB,
21056 DOUBLE *D,
21057 DOUBLE *E,
21058 DOUBLE *Q,
21059 const INTEGER *LDQ,
21060 DOUBLE *WORK,
21061 INTEGER *INFO)
21062 {
21063 DEBUG_LAPACK_STUB("dsbtrd");
21064 LAPACK_IMPL(dsbtrd)(VECT,
21065 UPLO,
21066 N,
21067 KD,
21068 AB,
21069 LDAB,
21070 D,
21071 E,
21072 Q,
21073 LDQ,
21074 WORK,
21075 INFO);
21076 }
21077
21078 //-- dsfrk ---------------------------------------------------------------------
21079 void
LAPACK_DECL(dsfrk)21080 LAPACK_DECL(dsfrk)(const char *TRANSR,
21081 const char *UPLO,
21082 const char *TRANS,
21083 const INTEGER *N,
21084 const INTEGER *K,
21085 const DOUBLE *ALPHA,
21086 const DOUBLE *A,
21087 const INTEGER *LDA,
21088 const DOUBLE *BETA,
21089 DOUBLE *C)
21090 {
21091 DEBUG_LAPACK_STUB("dsfrk");
21092 LAPACK_IMPL(dsfrk)(TRANSR,
21093 UPLO,
21094 TRANS,
21095 N,
21096 K,
21097 ALPHA,
21098 A,
21099 LDA,
21100 BETA,
21101 C);
21102 }
21103
21104 //-- dsgesv --------------------------------------------------------------------
21105 void
LAPACK_DECL(dsgesv)21106 LAPACK_DECL(dsgesv)(const INTEGER *N,
21107 const INTEGER *NRHS,
21108 DOUBLE *A,
21109 const INTEGER *LDA,
21110 INTEGER *IPIV,
21111 const DOUBLE *B,
21112 const INTEGER *LDB,
21113 DOUBLE *X,
21114 const INTEGER *LDX,
21115 DOUBLE *WORK,
21116 FLOAT *SWORK,
21117 INTEGER *ITER,
21118 INTEGER *INFO)
21119 {
21120 DEBUG_LAPACK_STUB("dsgesv");
21121 LAPACK_IMPL(dsgesv)(N,
21122 NRHS,
21123 A,
21124 LDA,
21125 IPIV,
21126 B,
21127 LDB,
21128 X,
21129 LDX,
21130 WORK,
21131 SWORK,
21132 ITER,
21133 INFO);
21134 }
21135
21136 //-- dspcon --------------------------------------------------------------------
21137 void
LAPACK_DECL(dspcon)21138 LAPACK_DECL(dspcon)(const char *UPLO,
21139 const INTEGER *N,
21140 const DOUBLE *AP,
21141 const INTEGER *IPIV,
21142 const DOUBLE *ANORM,
21143 DOUBLE *RCOND,
21144 DOUBLE *WORK,
21145 INTEGER *IWORK,
21146 INTEGER *INFO)
21147 {
21148 DEBUG_LAPACK_STUB("dspcon");
21149 LAPACK_IMPL(dspcon)(UPLO,
21150 N,
21151 AP,
21152 IPIV,
21153 ANORM,
21154 RCOND,
21155 WORK,
21156 IWORK,
21157 INFO);
21158 }
21159
21160 //-- dspev ---------------------------------------------------------------------
21161 void
LAPACK_DECL(dspev)21162 LAPACK_DECL(dspev)(const char *JOBZ,
21163 const char *UPLO,
21164 const INTEGER *N,
21165 DOUBLE *AP,
21166 DOUBLE *W,
21167 DOUBLE *Z,
21168 const INTEGER *LDZ,
21169 DOUBLE *WORK,
21170 INTEGER *INFO)
21171 {
21172 DEBUG_LAPACK_STUB("dspev");
21173 LAPACK_IMPL(dspev)(JOBZ,
21174 UPLO,
21175 N,
21176 AP,
21177 W,
21178 Z,
21179 LDZ,
21180 WORK,
21181 INFO);
21182 }
21183
21184 //-- dspevd --------------------------------------------------------------------
21185 void
LAPACK_DECL(dspevd)21186 LAPACK_DECL(dspevd)(const char *JOBZ,
21187 const char *UPLO,
21188 const INTEGER *N,
21189 DOUBLE *AP,
21190 DOUBLE *W,
21191 DOUBLE *Z,
21192 const INTEGER *LDZ,
21193 DOUBLE *WORK,
21194 const INTEGER *LWORK,
21195 INTEGER *IWORK,
21196 const INTEGER *LIWORK,
21197 INTEGER *INFO)
21198 {
21199 DEBUG_LAPACK_STUB("dspevd");
21200 LAPACK_IMPL(dspevd)(JOBZ,
21201 UPLO,
21202 N,
21203 AP,
21204 W,
21205 Z,
21206 LDZ,
21207 WORK,
21208 LWORK,
21209 IWORK,
21210 LIWORK,
21211 INFO);
21212 }
21213
21214 //-- dspevx --------------------------------------------------------------------
21215 void
LAPACK_DECL(dspevx)21216 LAPACK_DECL(dspevx)(const char *JOBZ,
21217 const char *RANGE,
21218 const char *UPLO,
21219 const INTEGER *N,
21220 DOUBLE *AP,
21221 const DOUBLE *VL,
21222 const DOUBLE *VU,
21223 const INTEGER *IL,
21224 const INTEGER *IU,
21225 const DOUBLE *ABSTOL,
21226 INTEGER *M,
21227 DOUBLE *W,
21228 DOUBLE *Z,
21229 const INTEGER *LDZ,
21230 DOUBLE *WORK,
21231 INTEGER *IWORK,
21232 INTEGER *IFAIL,
21233 INTEGER *INFO)
21234 {
21235 DEBUG_LAPACK_STUB("dspevx");
21236 LAPACK_IMPL(dspevx)(JOBZ,
21237 RANGE,
21238 UPLO,
21239 N,
21240 AP,
21241 VL,
21242 VU,
21243 IL,
21244 IU,
21245 ABSTOL,
21246 M,
21247 W,
21248 Z,
21249 LDZ,
21250 WORK,
21251 IWORK,
21252 IFAIL,
21253 INFO);
21254 }
21255
21256 //-- dspgst --------------------------------------------------------------------
21257 void
LAPACK_DECL(dspgst)21258 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
21259 const char *UPLO,
21260 const INTEGER *N,
21261 DOUBLE *AP,
21262 const DOUBLE *BP,
21263 INTEGER *INFO)
21264 {
21265 DEBUG_LAPACK_STUB("dspgst");
21266 LAPACK_IMPL(dspgst)(ITYPE,
21267 UPLO,
21268 N,
21269 AP,
21270 BP,
21271 INFO);
21272 }
21273
21274 //-- dspgv ---------------------------------------------------------------------
21275 void
LAPACK_DECL(dspgv)21276 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
21277 const char *JOBZ,
21278 const char *UPLO,
21279 const INTEGER *N,
21280 DOUBLE *AP,
21281 DOUBLE *BP,
21282 DOUBLE *W,
21283 DOUBLE *Z,
21284 const INTEGER *LDZ,
21285 DOUBLE *WORK,
21286 INTEGER *INFO)
21287 {
21288 DEBUG_LAPACK_STUB("dspgv");
21289 LAPACK_IMPL(dspgv)(ITYPE,
21290 JOBZ,
21291 UPLO,
21292 N,
21293 AP,
21294 BP,
21295 W,
21296 Z,
21297 LDZ,
21298 WORK,
21299 INFO);
21300 }
21301
21302 //-- dspgvd --------------------------------------------------------------------
21303 void
LAPACK_DECL(dspgvd)21304 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
21305 const char *JOBZ,
21306 const char *UPLO,
21307 const INTEGER *N,
21308 DOUBLE *AP,
21309 DOUBLE *BP,
21310 DOUBLE *W,
21311 DOUBLE *Z,
21312 const INTEGER *LDZ,
21313 DOUBLE *WORK,
21314 const INTEGER *LWORK,
21315 INTEGER *IWORK,
21316 const INTEGER *LIWORK,
21317 INTEGER *INFO)
21318 {
21319 DEBUG_LAPACK_STUB("dspgvd");
21320 LAPACK_IMPL(dspgvd)(ITYPE,
21321 JOBZ,
21322 UPLO,
21323 N,
21324 AP,
21325 BP,
21326 W,
21327 Z,
21328 LDZ,
21329 WORK,
21330 LWORK,
21331 IWORK,
21332 LIWORK,
21333 INFO);
21334 }
21335
21336 //-- dspgvx --------------------------------------------------------------------
21337 void
LAPACK_DECL(dspgvx)21338 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
21339 const char *JOBZ,
21340 const char *RANGE,
21341 const char *UPLO,
21342 const INTEGER *N,
21343 DOUBLE *AP,
21344 DOUBLE *BP,
21345 const DOUBLE *VL,
21346 const DOUBLE *VU,
21347 const INTEGER *IL,
21348 const INTEGER *IU,
21349 const DOUBLE *ABSTOL,
21350 INTEGER *M,
21351 DOUBLE *W,
21352 DOUBLE *Z,
21353 const INTEGER *LDZ,
21354 DOUBLE *WORK,
21355 INTEGER *IWORK,
21356 INTEGER *IFAIL,
21357 INTEGER *INFO)
21358 {
21359 DEBUG_LAPACK_STUB("dspgvx");
21360 LAPACK_IMPL(dspgvx)(ITYPE,
21361 JOBZ,
21362 RANGE,
21363 UPLO,
21364 N,
21365 AP,
21366 BP,
21367 VL,
21368 VU,
21369 IL,
21370 IU,
21371 ABSTOL,
21372 M,
21373 W,
21374 Z,
21375 LDZ,
21376 WORK,
21377 IWORK,
21378 IFAIL,
21379 INFO);
21380 }
21381
21382 //-- dsposv --------------------------------------------------------------------
21383 void
LAPACK_DECL(dsposv)21384 LAPACK_DECL(dsposv)(const char *UPLO,
21385 const INTEGER *N,
21386 const INTEGER *NRHS,
21387 DOUBLE *A,
21388 const INTEGER *LDA,
21389 const DOUBLE *B,
21390 const INTEGER *LDB,
21391 DOUBLE *X,
21392 const INTEGER *LDX,
21393 DOUBLE *WORK,
21394 FLOAT *SWORK,
21395 INTEGER *ITER,
21396 INTEGER *INFO)
21397 {
21398 DEBUG_LAPACK_STUB("dsposv");
21399 LAPACK_IMPL(dsposv)(UPLO,
21400 N,
21401 NRHS,
21402 A,
21403 LDA,
21404 B,
21405 LDB,
21406 X,
21407 LDX,
21408 WORK,
21409 SWORK,
21410 ITER,
21411 INFO);
21412 }
21413
21414 //-- dsprfs --------------------------------------------------------------------
21415 void
LAPACK_DECL(dsprfs)21416 LAPACK_DECL(dsprfs)(const char *UPLO,
21417 const INTEGER *N,
21418 const INTEGER *NRHS,
21419 const DOUBLE *AP,
21420 const DOUBLE *AFP,
21421 const INTEGER *IPIV,
21422 const DOUBLE *B,
21423 const INTEGER *LDB,
21424 DOUBLE *X,
21425 const INTEGER *LDX,
21426 DOUBLE *FERR,
21427 DOUBLE *BERR,
21428 DOUBLE *WORK,
21429 INTEGER *IWORK,
21430 INTEGER *INFO)
21431 {
21432 DEBUG_LAPACK_STUB("dsprfs");
21433 LAPACK_IMPL(dsprfs)(UPLO,
21434 N,
21435 NRHS,
21436 AP,
21437 AFP,
21438 IPIV,
21439 B,
21440 LDB,
21441 X,
21442 LDX,
21443 FERR,
21444 BERR,
21445 WORK,
21446 IWORK,
21447 INFO);
21448 }
21449
21450 //-- dspsv ---------------------------------------------------------------------
21451 void
LAPACK_DECL(dspsv)21452 LAPACK_DECL(dspsv)(const char *UPLO,
21453 const INTEGER *N,
21454 const INTEGER *NRHS,
21455 DOUBLE *AP,
21456 INTEGER *IPIV,
21457 DOUBLE *B,
21458 const INTEGER *LDB,
21459 INTEGER *INFO)
21460 {
21461 DEBUG_LAPACK_STUB("dspsv");
21462 LAPACK_IMPL(dspsv)(UPLO,
21463 N,
21464 NRHS,
21465 AP,
21466 IPIV,
21467 B,
21468 LDB,
21469 INFO);
21470 }
21471
21472 //-- dspsvx --------------------------------------------------------------------
21473 void
LAPACK_DECL(dspsvx)21474 LAPACK_DECL(dspsvx)(const char *FACT,
21475 const char *UPLO,
21476 const INTEGER *N,
21477 const INTEGER *NRHS,
21478 const DOUBLE *AP,
21479 DOUBLE *AFP,
21480 INTEGER *IPIV,
21481 const DOUBLE *B,
21482 const INTEGER *LDB,
21483 DOUBLE *X,
21484 const INTEGER *LDX,
21485 DOUBLE *RCOND,
21486 DOUBLE *FERR,
21487 DOUBLE *BERR,
21488 DOUBLE *WORK,
21489 INTEGER *IWORK,
21490 INTEGER *INFO)
21491 {
21492 DEBUG_LAPACK_STUB("dspsvx");
21493 LAPACK_IMPL(dspsvx)(FACT,
21494 UPLO,
21495 N,
21496 NRHS,
21497 AP,
21498 AFP,
21499 IPIV,
21500 B,
21501 LDB,
21502 X,
21503 LDX,
21504 RCOND,
21505 FERR,
21506 BERR,
21507 WORK,
21508 IWORK,
21509 INFO);
21510 }
21511
21512 //-- dsptrd --------------------------------------------------------------------
21513 void
LAPACK_DECL(dsptrd)21514 LAPACK_DECL(dsptrd)(const char *UPLO,
21515 const INTEGER *N,
21516 DOUBLE *AP,
21517 DOUBLE *D,
21518 DOUBLE *E,
21519 DOUBLE *TAU,
21520 INTEGER *INFO)
21521 {
21522 DEBUG_LAPACK_STUB("dsptrd");
21523 LAPACK_IMPL(dsptrd)(UPLO,
21524 N,
21525 AP,
21526 D,
21527 E,
21528 TAU,
21529 INFO);
21530 }
21531
21532 //-- dsptrf --------------------------------------------------------------------
21533 void
LAPACK_DECL(dsptrf)21534 LAPACK_DECL(dsptrf)(const char *UPLO,
21535 const INTEGER *N,
21536 DOUBLE *AP,
21537 INTEGER *IPIV,
21538 INTEGER *INFO)
21539 {
21540 DEBUG_LAPACK_STUB("dsptrf");
21541 LAPACK_IMPL(dsptrf)(UPLO,
21542 N,
21543 AP,
21544 IPIV,
21545 INFO);
21546 }
21547
21548 //-- dsptri --------------------------------------------------------------------
21549 void
LAPACK_DECL(dsptri)21550 LAPACK_DECL(dsptri)(const char *UPLO,
21551 const INTEGER *N,
21552 DOUBLE *AP,
21553 const INTEGER *IPIV,
21554 DOUBLE *WORK,
21555 INTEGER *INFO)
21556 {
21557 DEBUG_LAPACK_STUB("dsptri");
21558 LAPACK_IMPL(dsptri)(UPLO,
21559 N,
21560 AP,
21561 IPIV,
21562 WORK,
21563 INFO);
21564 }
21565
21566 //-- dsptrs --------------------------------------------------------------------
21567 void
LAPACK_DECL(dsptrs)21568 LAPACK_DECL(dsptrs)(const char *UPLO,
21569 const INTEGER *N,
21570 const INTEGER *NRHS,
21571 const DOUBLE *AP,
21572 const INTEGER *IPIV,
21573 DOUBLE *B,
21574 const INTEGER *LDB,
21575 INTEGER *INFO)
21576 {
21577 DEBUG_LAPACK_STUB("dsptrs");
21578 LAPACK_IMPL(dsptrs)(UPLO,
21579 N,
21580 NRHS,
21581 AP,
21582 IPIV,
21583 B,
21584 LDB,
21585 INFO);
21586 }
21587
21588 //-- dstebz --------------------------------------------------------------------
21589 void
LAPACK_DECL(dstebz)21590 LAPACK_DECL(dstebz)(const char *RANGE,
21591 const char *ORDER,
21592 const INTEGER *N,
21593 const DOUBLE *VL,
21594 const DOUBLE *VU,
21595 const INTEGER *IL,
21596 const INTEGER *IU,
21597 const DOUBLE *ABSTOL,
21598 const DOUBLE *D,
21599 const DOUBLE *E,
21600 INTEGER *M,
21601 INTEGER *NSPLIT,
21602 DOUBLE *W,
21603 INTEGER *IBLOCK,
21604 INTEGER *ISPLIT,
21605 DOUBLE *WORK,
21606 INTEGER *IWORK,
21607 INTEGER *INFO)
21608 {
21609 DEBUG_LAPACK_STUB("dstebz");
21610 LAPACK_IMPL(dstebz)(RANGE,
21611 ORDER,
21612 N,
21613 VL,
21614 VU,
21615 IL,
21616 IU,
21617 ABSTOL,
21618 D,
21619 E,
21620 M,
21621 NSPLIT,
21622 W,
21623 IBLOCK,
21624 ISPLIT,
21625 WORK,
21626 IWORK,
21627 INFO);
21628 }
21629
21630 //-- dstedc --------------------------------------------------------------------
21631 void
LAPACK_DECL(dstedc)21632 LAPACK_DECL(dstedc)(const char *COMPZ,
21633 const INTEGER *N,
21634 DOUBLE *D,
21635 DOUBLE *E,
21636 DOUBLE *Z,
21637 const INTEGER *LDZ,
21638 DOUBLE *WORK,
21639 const INTEGER *LWORK,
21640 INTEGER *IWORK,
21641 const INTEGER *LIWORK,
21642 INTEGER *INFO)
21643 {
21644 DEBUG_LAPACK_STUB("dstedc");
21645 LAPACK_IMPL(dstedc)(COMPZ,
21646 N,
21647 D,
21648 E,
21649 Z,
21650 LDZ,
21651 WORK,
21652 LWORK,
21653 IWORK,
21654 LIWORK,
21655 INFO);
21656 }
21657
21658 //-- dstegr --------------------------------------------------------------------
21659 void
LAPACK_DECL(dstegr)21660 LAPACK_DECL(dstegr)(const char *JOBZ,
21661 const char *RANGE,
21662 const INTEGER *N,
21663 DOUBLE *D,
21664 DOUBLE *E,
21665 const DOUBLE *VL,
21666 const DOUBLE *VU,
21667 const INTEGER *IL,
21668 const INTEGER *IU,
21669 const DOUBLE *ABSTOL,
21670 INTEGER *M,
21671 DOUBLE *W,
21672 DOUBLE *Z,
21673 const INTEGER *LDZ,
21674 INTEGER *ISUPPZ,
21675 DOUBLE *WORK,
21676 const INTEGER *LWORK,
21677 INTEGER *IWORK,
21678 const INTEGER *LIWORK,
21679 INTEGER *INFO)
21680 {
21681 DEBUG_LAPACK_STUB("dstegr");
21682 LAPACK_IMPL(dstegr)(JOBZ,
21683 RANGE,
21684 N,
21685 D,
21686 E,
21687 VL,
21688 VU,
21689 IL,
21690 IU,
21691 ABSTOL,
21692 M,
21693 W,
21694 Z,
21695 LDZ,
21696 ISUPPZ,
21697 WORK,
21698 LWORK,
21699 IWORK,
21700 LIWORK,
21701 INFO);
21702 }
21703
21704 //-- dstein --------------------------------------------------------------------
21705 void
LAPACK_DECL(dstein)21706 LAPACK_DECL(dstein)(const INTEGER *N,
21707 const DOUBLE *D,
21708 const DOUBLE *E,
21709 const INTEGER *M,
21710 const DOUBLE *W,
21711 const INTEGER *IBLOCK,
21712 const INTEGER *ISPLIT,
21713 DOUBLE *Z,
21714 const INTEGER *LDZ,
21715 DOUBLE *WORK,
21716 INTEGER *IWORK,
21717 INTEGER *IFAIL,
21718 INTEGER *INFO)
21719 {
21720 DEBUG_LAPACK_STUB("dstein");
21721 LAPACK_IMPL(dstein)(N,
21722 D,
21723 E,
21724 M,
21725 W,
21726 IBLOCK,
21727 ISPLIT,
21728 Z,
21729 LDZ,
21730 WORK,
21731 IWORK,
21732 IFAIL,
21733 INFO);
21734 }
21735
21736 //-- dstemr --------------------------------------------------------------------
21737 void
LAPACK_DECL(dstemr)21738 LAPACK_DECL(dstemr)(const char *JOBZ,
21739 const char *RANGE,
21740 const INTEGER *N,
21741 DOUBLE *D,
21742 DOUBLE *E,
21743 const DOUBLE *VL,
21744 const DOUBLE *VU,
21745 const INTEGER *IL,
21746 const INTEGER *IU,
21747 INTEGER *M,
21748 DOUBLE *W,
21749 DOUBLE *Z,
21750 const INTEGER *LDZ,
21751 const INTEGER *NZC,
21752 INTEGER *ISUPPZ,
21753 LOGICAL *TRYRAC,
21754 DOUBLE *WORK,
21755 const INTEGER *LWORK,
21756 INTEGER *IWORK,
21757 const INTEGER *LIWORK,
21758 INTEGER *INFO)
21759 {
21760 DEBUG_LAPACK_STUB("dstemr");
21761 LAPACK_IMPL(dstemr)(JOBZ,
21762 RANGE,
21763 N,
21764 D,
21765 E,
21766 VL,
21767 VU,
21768 IL,
21769 IU,
21770 M,
21771 W,
21772 Z,
21773 LDZ,
21774 NZC,
21775 ISUPPZ,
21776 TRYRAC,
21777 WORK,
21778 LWORK,
21779 IWORK,
21780 LIWORK,
21781 INFO);
21782 }
21783
21784 //-- dsteqr --------------------------------------------------------------------
21785 void
LAPACK_DECL(dsteqr)21786 LAPACK_DECL(dsteqr)(const char *COMPZ,
21787 const INTEGER *N,
21788 DOUBLE *D,
21789 DOUBLE *E,
21790 DOUBLE *Z,
21791 const INTEGER *LDZ,
21792 DOUBLE *WORK,
21793 INTEGER *INFO)
21794 {
21795 DEBUG_LAPACK_STUB("dsteqr");
21796 LAPACK_IMPL(dsteqr)(COMPZ,
21797 N,
21798 D,
21799 E,
21800 Z,
21801 LDZ,
21802 WORK,
21803 INFO);
21804 }
21805
21806 //-- dsterf --------------------------------------------------------------------
21807 void
LAPACK_DECL(dsterf)21808 LAPACK_DECL(dsterf)(const INTEGER *N,
21809 DOUBLE *D,
21810 DOUBLE *E,
21811 INTEGER *INFO)
21812 {
21813 DEBUG_LAPACK_STUB("dsterf");
21814 LAPACK_IMPL(dsterf)(N,
21815 D,
21816 E,
21817 INFO);
21818 }
21819
21820 //-- dstev ---------------------------------------------------------------------
21821 void
LAPACK_DECL(dstev)21822 LAPACK_DECL(dstev)(const char *JOBZ,
21823 const INTEGER *N,
21824 DOUBLE *D,
21825 DOUBLE *E,
21826 DOUBLE *Z,
21827 const INTEGER *LDZ,
21828 DOUBLE *WORK,
21829 INTEGER *INFO)
21830 {
21831 DEBUG_LAPACK_STUB("dstev");
21832 LAPACK_IMPL(dstev)(JOBZ,
21833 N,
21834 D,
21835 E,
21836 Z,
21837 LDZ,
21838 WORK,
21839 INFO);
21840 }
21841
21842 //-- dstevd --------------------------------------------------------------------
21843 void
LAPACK_DECL(dstevd)21844 LAPACK_DECL(dstevd)(const char *JOBZ,
21845 const INTEGER *N,
21846 DOUBLE *D,
21847 DOUBLE *E,
21848 DOUBLE *Z,
21849 const INTEGER *LDZ,
21850 DOUBLE *WORK,
21851 const INTEGER *LWORK,
21852 INTEGER *IWORK,
21853 const INTEGER *LIWORK,
21854 INTEGER *INFO)
21855 {
21856 DEBUG_LAPACK_STUB("dstevd");
21857 LAPACK_IMPL(dstevd)(JOBZ,
21858 N,
21859 D,
21860 E,
21861 Z,
21862 LDZ,
21863 WORK,
21864 LWORK,
21865 IWORK,
21866 LIWORK,
21867 INFO);
21868 }
21869
21870 //-- dstevr --------------------------------------------------------------------
21871 void
LAPACK_DECL(dstevr)21872 LAPACK_DECL(dstevr)(const char *JOBZ,
21873 const char *RANGE,
21874 const INTEGER *N,
21875 DOUBLE *D,
21876 DOUBLE *E,
21877 const DOUBLE *VL,
21878 const DOUBLE *VU,
21879 const INTEGER *IL,
21880 const INTEGER *IU,
21881 const DOUBLE *ABSTOL,
21882 INTEGER *M,
21883 DOUBLE *W,
21884 DOUBLE *Z,
21885 const INTEGER *LDZ,
21886 INTEGER *ISUPPZ,
21887 DOUBLE *WORK,
21888 const INTEGER *LWORK,
21889 INTEGER *IWORK,
21890 const INTEGER *LIWORK,
21891 INTEGER *INFO)
21892 {
21893 DEBUG_LAPACK_STUB("dstevr");
21894 LAPACK_IMPL(dstevr)(JOBZ,
21895 RANGE,
21896 N,
21897 D,
21898 E,
21899 VL,
21900 VU,
21901 IL,
21902 IU,
21903 ABSTOL,
21904 M,
21905 W,
21906 Z,
21907 LDZ,
21908 ISUPPZ,
21909 WORK,
21910 LWORK,
21911 IWORK,
21912 LIWORK,
21913 INFO);
21914 }
21915
21916 //-- dstevx --------------------------------------------------------------------
21917 void
LAPACK_DECL(dstevx)21918 LAPACK_DECL(dstevx)(const char *JOBZ,
21919 const char *RANGE,
21920 const INTEGER *N,
21921 DOUBLE *D,
21922 DOUBLE *E,
21923 const DOUBLE *VL,
21924 const DOUBLE *VU,
21925 const INTEGER *IL,
21926 const INTEGER *IU,
21927 const DOUBLE *ABSTOL,
21928 INTEGER *M,
21929 DOUBLE *W,
21930 DOUBLE *Z,
21931 const INTEGER *LDZ,
21932 DOUBLE *WORK,
21933 INTEGER *IWORK,
21934 INTEGER *IFAIL,
21935 INTEGER *INFO)
21936 {
21937 DEBUG_LAPACK_STUB("dstevx");
21938 LAPACK_IMPL(dstevx)(JOBZ,
21939 RANGE,
21940 N,
21941 D,
21942 E,
21943 VL,
21944 VU,
21945 IL,
21946 IU,
21947 ABSTOL,
21948 M,
21949 W,
21950 Z,
21951 LDZ,
21952 WORK,
21953 IWORK,
21954 IFAIL,
21955 INFO);
21956 }
21957
21958 //-- dsycon --------------------------------------------------------------------
21959 void
LAPACK_DECL(dsycon)21960 LAPACK_DECL(dsycon)(const char *UPLO,
21961 const INTEGER *N,
21962 const DOUBLE *A,
21963 const INTEGER *LDA,
21964 const INTEGER *IPIV,
21965 const DOUBLE *ANORM,
21966 DOUBLE *RCOND,
21967 DOUBLE *WORK,
21968 INTEGER *IWORK,
21969 INTEGER *INFO)
21970 {
21971 DEBUG_LAPACK_STUB("dsycon");
21972 LAPACK_IMPL(dsycon)(UPLO,
21973 N,
21974 A,
21975 LDA,
21976 IPIV,
21977 ANORM,
21978 RCOND,
21979 WORK,
21980 IWORK,
21981 INFO);
21982 }
21983
21984 //-- dsyconv -------------------------------------------------------------------
21985 void
LAPACK_DECL(dsyconv)21986 LAPACK_DECL(dsyconv)(const char *UPLO,
21987 const char *WAY,
21988 const INTEGER *N,
21989 const DOUBLE *A,
21990 const INTEGER *LDA,
21991 const INTEGER *IPIV,
21992 DOUBLE *WORK,
21993 INTEGER *INFO)
21994 {
21995 DEBUG_LAPACK_STUB("dsyconv");
21996 LAPACK_IMPL(dsyconv)(UPLO,
21997 WAY,
21998 N,
21999 A,
22000 LDA,
22001 IPIV,
22002 WORK,
22003 INFO);
22004 }
22005
22006 //-- dsyequb -------------------------------------------------------------------
22007 void
LAPACK_DECL(dsyequb)22008 LAPACK_DECL(dsyequb)(const char *UPLO,
22009 const INTEGER *N,
22010 const DOUBLE *A,
22011 const INTEGER *LDA,
22012 DOUBLE *S,
22013 DOUBLE *SCOND,
22014 DOUBLE *AMAX,
22015 DOUBLE *WORK,
22016 INTEGER *INFO)
22017 {
22018 DEBUG_LAPACK_STUB("dsyequb");
22019 LAPACK_IMPL(dsyequb)(UPLO,
22020 N,
22021 A,
22022 LDA,
22023 S,
22024 SCOND,
22025 AMAX,
22026 WORK,
22027 INFO);
22028 }
22029
22030 //-- dsyev ---------------------------------------------------------------------
22031 void
LAPACK_DECL(dsyev)22032 LAPACK_DECL(dsyev)(const char *JOBZ,
22033 const char *UPLO,
22034 const INTEGER *N,
22035 DOUBLE *A,
22036 const INTEGER *LDA,
22037 DOUBLE *W,
22038 DOUBLE *WORK,
22039 const INTEGER *LWORK,
22040 INTEGER *INFO)
22041 {
22042 DEBUG_LAPACK_STUB("dsyev");
22043 LAPACK_IMPL(dsyev)(JOBZ,
22044 UPLO,
22045 N,
22046 A,
22047 LDA,
22048 W,
22049 WORK,
22050 LWORK,
22051 INFO);
22052 }
22053
22054 //-- dsyevd --------------------------------------------------------------------
22055 void
LAPACK_DECL(dsyevd)22056 LAPACK_DECL(dsyevd)(const char *JOBZ,
22057 const char *UPLO,
22058 const INTEGER *N,
22059 DOUBLE *A,
22060 const INTEGER *LDA,
22061 DOUBLE *W,
22062 DOUBLE *WORK,
22063 const INTEGER *LWORK,
22064 INTEGER *IWORK,
22065 const INTEGER *LIWORK,
22066 INTEGER *INFO)
22067 {
22068 DEBUG_LAPACK_STUB("dsyevd");
22069 LAPACK_IMPL(dsyevd)(JOBZ,
22070 UPLO,
22071 N,
22072 A,
22073 LDA,
22074 W,
22075 WORK,
22076 LWORK,
22077 IWORK,
22078 LIWORK,
22079 INFO);
22080 }
22081
22082 //-- dsyevr --------------------------------------------------------------------
22083 void
LAPACK_DECL(dsyevr)22084 LAPACK_DECL(dsyevr)(const char *JOBZ,
22085 const char *RANGE,
22086 const char *UPLO,
22087 const INTEGER *N,
22088 DOUBLE *A,
22089 const INTEGER *LDA,
22090 const DOUBLE *VL,
22091 const DOUBLE *VU,
22092 const INTEGER *IL,
22093 const INTEGER *IU,
22094 const DOUBLE *ABSTOL,
22095 INTEGER *M,
22096 DOUBLE *W,
22097 DOUBLE *Z,
22098 const INTEGER *LDZ,
22099 INTEGER *ISUPPZ,
22100 DOUBLE *WORK,
22101 const INTEGER *LWORK,
22102 INTEGER *IWORK,
22103 const INTEGER *LIWORK,
22104 INTEGER *INFO)
22105 {
22106 DEBUG_LAPACK_STUB("dsyevr");
22107 LAPACK_IMPL(dsyevr)(JOBZ,
22108 RANGE,
22109 UPLO,
22110 N,
22111 A,
22112 LDA,
22113 VL,
22114 VU,
22115 IL,
22116 IU,
22117 ABSTOL,
22118 M,
22119 W,
22120 Z,
22121 LDZ,
22122 ISUPPZ,
22123 WORK,
22124 LWORK,
22125 IWORK,
22126 LIWORK,
22127 INFO);
22128 }
22129
22130 //-- dsyevx --------------------------------------------------------------------
22131 void
LAPACK_DECL(dsyevx)22132 LAPACK_DECL(dsyevx)(const char *JOBZ,
22133 const char *RANGE,
22134 const char *UPLO,
22135 const INTEGER *N,
22136 DOUBLE *A,
22137 const INTEGER *LDA,
22138 const DOUBLE *VL,
22139 const DOUBLE *VU,
22140 const INTEGER *IL,
22141 const INTEGER *IU,
22142 const DOUBLE *ABSTOL,
22143 INTEGER *M,
22144 DOUBLE *W,
22145 DOUBLE *Z,
22146 const INTEGER *LDZ,
22147 DOUBLE *WORK,
22148 const INTEGER *LWORK,
22149 INTEGER *IWORK,
22150 INTEGER *IFAIL,
22151 INTEGER *INFO)
22152 {
22153 DEBUG_LAPACK_STUB("dsyevx");
22154 LAPACK_IMPL(dsyevx)(JOBZ,
22155 RANGE,
22156 UPLO,
22157 N,
22158 A,
22159 LDA,
22160 VL,
22161 VU,
22162 IL,
22163 IU,
22164 ABSTOL,
22165 M,
22166 W,
22167 Z,
22168 LDZ,
22169 WORK,
22170 LWORK,
22171 IWORK,
22172 IFAIL,
22173 INFO);
22174 }
22175
22176 //-- dsygs2 --------------------------------------------------------------------
22177 void
LAPACK_DECL(dsygs2)22178 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
22179 const char *UPLO,
22180 const INTEGER *N,
22181 DOUBLE *A,
22182 const INTEGER *LDA,
22183 const DOUBLE *B,
22184 const INTEGER *LDB,
22185 INTEGER *INFO)
22186 {
22187 DEBUG_LAPACK_STUB("dsygs2");
22188 LAPACK_IMPL(dsygs2)(ITYPE,
22189 UPLO,
22190 N,
22191 A,
22192 LDA,
22193 B,
22194 LDB,
22195 INFO);
22196 }
22197
22198 //-- dsygst --------------------------------------------------------------------
22199 void
LAPACK_DECL(dsygst)22200 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
22201 const char *UPLO,
22202 const INTEGER *N,
22203 DOUBLE *A,
22204 const INTEGER *LDA,
22205 const DOUBLE *B,
22206 const INTEGER *LDB,
22207 INTEGER *INFO)
22208 {
22209 DEBUG_LAPACK_STUB("dsygst");
22210 LAPACK_IMPL(dsygst)(ITYPE,
22211 UPLO,
22212 N,
22213 A,
22214 LDA,
22215 B,
22216 LDB,
22217 INFO);
22218 }
22219
22220 //-- dsygv ---------------------------------------------------------------------
22221 void
LAPACK_DECL(dsygv)22222 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
22223 const char *JOBZ,
22224 const char *UPLO,
22225 const INTEGER *N,
22226 DOUBLE *A,
22227 const INTEGER *LDA,
22228 DOUBLE *B,
22229 const INTEGER *LDB,
22230 DOUBLE *W,
22231 DOUBLE *WORK,
22232 const INTEGER *LWORK,
22233 INTEGER *INFO)
22234 {
22235 DEBUG_LAPACK_STUB("dsygv");
22236 LAPACK_IMPL(dsygv)(ITYPE,
22237 JOBZ,
22238 UPLO,
22239 N,
22240 A,
22241 LDA,
22242 B,
22243 LDB,
22244 W,
22245 WORK,
22246 LWORK,
22247 INFO);
22248 }
22249
22250 //-- dsygvd --------------------------------------------------------------------
22251 void
LAPACK_DECL(dsygvd)22252 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
22253 const char *JOBZ,
22254 const char *UPLO,
22255 const INTEGER *N,
22256 DOUBLE *A,
22257 const INTEGER *LDA,
22258 DOUBLE *B,
22259 const INTEGER *LDB,
22260 DOUBLE *W,
22261 DOUBLE *WORK,
22262 const INTEGER *LWORK,
22263 INTEGER *IWORK,
22264 const INTEGER *LIWORK,
22265 INTEGER *INFO)
22266 {
22267 DEBUG_LAPACK_STUB("dsygvd");
22268 LAPACK_IMPL(dsygvd)(ITYPE,
22269 JOBZ,
22270 UPLO,
22271 N,
22272 A,
22273 LDA,
22274 B,
22275 LDB,
22276 W,
22277 WORK,
22278 LWORK,
22279 IWORK,
22280 LIWORK,
22281 INFO);
22282 }
22283
22284 //-- dsygvx --------------------------------------------------------------------
22285 void
LAPACK_DECL(dsygvx)22286 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
22287 const char *JOBZ,
22288 const char *RANGE,
22289 const char *UPLO,
22290 const INTEGER *N,
22291 DOUBLE *A,
22292 const INTEGER *LDA,
22293 DOUBLE *B,
22294 const INTEGER *LDB,
22295 const DOUBLE *VL,
22296 const DOUBLE *VU,
22297 const INTEGER *IL,
22298 const INTEGER *IU,
22299 const DOUBLE *ABSTOL,
22300 INTEGER *M,
22301 DOUBLE *W,
22302 DOUBLE *Z,
22303 const INTEGER *LDZ,
22304 DOUBLE *WORK,
22305 const INTEGER *LWORK,
22306 INTEGER *IWORK,
22307 INTEGER *IFAIL,
22308 INTEGER *INFO)
22309 {
22310 DEBUG_LAPACK_STUB("dsygvx");
22311 LAPACK_IMPL(dsygvx)(ITYPE,
22312 JOBZ,
22313 RANGE,
22314 UPLO,
22315 N,
22316 A,
22317 LDA,
22318 B,
22319 LDB,
22320 VL,
22321 VU,
22322 IL,
22323 IU,
22324 ABSTOL,
22325 M,
22326 W,
22327 Z,
22328 LDZ,
22329 WORK,
22330 LWORK,
22331 IWORK,
22332 IFAIL,
22333 INFO);
22334 }
22335
22336 //-- dsyrfs --------------------------------------------------------------------
22337 void
LAPACK_DECL(dsyrfs)22338 LAPACK_DECL(dsyrfs)(const char *UPLO,
22339 const INTEGER *N,
22340 const INTEGER *NRHS,
22341 const DOUBLE *A,
22342 const INTEGER *LDA,
22343 const DOUBLE *AF,
22344 const INTEGER *LDAF,
22345 const INTEGER *IPIV,
22346 const DOUBLE *B,
22347 const INTEGER *LDB,
22348 DOUBLE *X,
22349 const INTEGER *LDX,
22350 DOUBLE *FERR,
22351 DOUBLE *BERR,
22352 DOUBLE *WORK,
22353 INTEGER *IWORK,
22354 INTEGER *INFO)
22355 {
22356 DEBUG_LAPACK_STUB("dsyrfs");
22357 LAPACK_IMPL(dsyrfs)(UPLO,
22358 N,
22359 NRHS,
22360 A,
22361 LDA,
22362 AF,
22363 LDAF,
22364 IPIV,
22365 B,
22366 LDB,
22367 X,
22368 LDX,
22369 FERR,
22370 BERR,
22371 WORK,
22372 IWORK,
22373 INFO);
22374 }
22375
22376 //-- dsyrfsx -------------------------------------------------------------------
22377 void
LAPACK_DECL(dsyrfsx)22378 LAPACK_DECL(dsyrfsx)(const char *UPLO,
22379 const char *EQUED,
22380 const INTEGER *N,
22381 const INTEGER *NRHS,
22382 const DOUBLE *A,
22383 const INTEGER *LDA,
22384 const DOUBLE *AF,
22385 const INTEGER *LDAF,
22386 const INTEGER *IPIV,
22387 DOUBLE *S,
22388 const DOUBLE *B,
22389 const INTEGER *LDB,
22390 DOUBLE *X,
22391 const INTEGER *LDX,
22392 DOUBLE *RCOND,
22393 DOUBLE *BERR,
22394 const INTEGER *N_ERR_BNDS,
22395 DOUBLE *ERR_BNDS_NORM,
22396 DOUBLE *ERR_BNDS_COMP,
22397 const INTEGER *NPARAMS,
22398 DOUBLE *PARAMS,
22399 DOUBLE *WORK,
22400 INTEGER *IWORK,
22401 INTEGER *INFO)
22402 {
22403 DEBUG_LAPACK_STUB("dsyrfsx");
22404 LAPACK_IMPL(dsyrfsx)(UPLO,
22405 EQUED,
22406 N,
22407 NRHS,
22408 A,
22409 LDA,
22410 AF,
22411 LDAF,
22412 IPIV,
22413 S,
22414 B,
22415 LDB,
22416 X,
22417 LDX,
22418 RCOND,
22419 BERR,
22420 N_ERR_BNDS,
22421 ERR_BNDS_NORM,
22422 ERR_BNDS_COMP,
22423 NPARAMS,
22424 PARAMS,
22425 WORK,
22426 IWORK,
22427 INFO);
22428 }
22429
22430 //-- dsysv ---------------------------------------------------------------------
22431 void
LAPACK_DECL(dsysv)22432 LAPACK_DECL(dsysv)(const char *UPLO,
22433 const INTEGER *N,
22434 const INTEGER *NRHS,
22435 DOUBLE *A,
22436 const INTEGER *LDA,
22437 INTEGER *IPIV,
22438 DOUBLE *B,
22439 const INTEGER *LDB,
22440 DOUBLE *WORK,
22441 const INTEGER *LWORK,
22442 INTEGER *INFO)
22443 {
22444 DEBUG_LAPACK_STUB("dsysv");
22445 LAPACK_IMPL(dsysv)(UPLO,
22446 N,
22447 NRHS,
22448 A,
22449 LDA,
22450 IPIV,
22451 B,
22452 LDB,
22453 WORK,
22454 LWORK,
22455 INFO);
22456 }
22457
22458 //-- dsysvx --------------------------------------------------------------------
22459 void
LAPACK_DECL(dsysvx)22460 LAPACK_DECL(dsysvx)(const char *FACT,
22461 const char *UPLO,
22462 const INTEGER *N,
22463 const INTEGER *NRHS,
22464 const DOUBLE *A,
22465 const INTEGER *LDA,
22466 DOUBLE *AF,
22467 const INTEGER *LDAF,
22468 INTEGER *IPIV,
22469 const DOUBLE *B,
22470 const INTEGER *LDB,
22471 DOUBLE *X,
22472 const INTEGER *LDX,
22473 DOUBLE *RCOND,
22474 DOUBLE *FERR,
22475 DOUBLE *BERR,
22476 DOUBLE *WORK,
22477 const INTEGER *LWORK,
22478 INTEGER *IWORK,
22479 INTEGER *INFO)
22480 {
22481 DEBUG_LAPACK_STUB("dsysvx");
22482 LAPACK_IMPL(dsysvx)(FACT,
22483 UPLO,
22484 N,
22485 NRHS,
22486 A,
22487 LDA,
22488 AF,
22489 LDAF,
22490 IPIV,
22491 B,
22492 LDB,
22493 X,
22494 LDX,
22495 RCOND,
22496 FERR,
22497 BERR,
22498 WORK,
22499 LWORK,
22500 IWORK,
22501 INFO);
22502 }
22503
22504 //-- dsysvxx -------------------------------------------------------------------
22505 void
LAPACK_DECL(dsysvxx)22506 LAPACK_DECL(dsysvxx)(const char *FACT,
22507 const char *UPLO,
22508 const INTEGER *N,
22509 const INTEGER *NRHS,
22510 DOUBLE *A,
22511 const INTEGER *LDA,
22512 DOUBLE *AF,
22513 const INTEGER *LDAF,
22514 INTEGER *IPIV,
22515 char *EQUED,
22516 DOUBLE *S,
22517 DOUBLE *B,
22518 const INTEGER *LDB,
22519 DOUBLE *X,
22520 const INTEGER *LDX,
22521 DOUBLE *RCOND,
22522 DOUBLE *RPVGRW,
22523 DOUBLE *BERR,
22524 const INTEGER *N_ERR_BNDS,
22525 DOUBLE *ERR_BNDS_NORM,
22526 DOUBLE *ERR_BNDS_COMP,
22527 const INTEGER *NPARAMS,
22528 DOUBLE *PARAMS,
22529 DOUBLE *WORK,
22530 INTEGER *IWORK,
22531 INTEGER *INFO)
22532 {
22533 DEBUG_LAPACK_STUB("dsysvxx");
22534 LAPACK_IMPL(dsysvxx)(FACT,
22535 UPLO,
22536 N,
22537 NRHS,
22538 A,
22539 LDA,
22540 AF,
22541 LDAF,
22542 IPIV,
22543 EQUED,
22544 S,
22545 B,
22546 LDB,
22547 X,
22548 LDX,
22549 RCOND,
22550 RPVGRW,
22551 BERR,
22552 N_ERR_BNDS,
22553 ERR_BNDS_NORM,
22554 ERR_BNDS_COMP,
22555 NPARAMS,
22556 PARAMS,
22557 WORK,
22558 IWORK,
22559 INFO);
22560 }
22561
22562 //-- dsyswapr ------------------------------------------------------------------
22563 void
LAPACK_DECL(dsyswapr)22564 LAPACK_DECL(dsyswapr)(const char *UPLO,
22565 const INTEGER *N,
22566 DOUBLE *A,
22567 const INTEGER *LDA,
22568 const INTEGER *I1,
22569 const INTEGER *I2)
22570 {
22571 DEBUG_LAPACK_STUB("dsyswapr");
22572 LAPACK_IMPL(dsyswapr)(UPLO,
22573 N,
22574 A,
22575 LDA,
22576 I1,
22577 I2);
22578 }
22579
22580 //-- dsytd2 --------------------------------------------------------------------
22581 void
LAPACK_DECL(dsytd2)22582 LAPACK_DECL(dsytd2)(const char *UPLO,
22583 const INTEGER *N,
22584 DOUBLE *A,
22585 const INTEGER *LDA,
22586 DOUBLE *D,
22587 DOUBLE *E,
22588 DOUBLE *TAU,
22589 INTEGER *INFO)
22590 {
22591 DEBUG_LAPACK_STUB("dsytd2");
22592 LAPACK_IMPL(dsytd2)(UPLO,
22593 N,
22594 A,
22595 LDA,
22596 D,
22597 E,
22598 TAU,
22599 INFO);
22600 }
22601
22602 //-- dsytf2 --------------------------------------------------------------------
22603 void
LAPACK_DECL(dsytf2)22604 LAPACK_DECL(dsytf2)(const char *UPLO,
22605 const INTEGER *N,
22606 DOUBLE *A,
22607 const INTEGER *LDA,
22608 INTEGER *IPIV,
22609 INTEGER *INFO)
22610 {
22611 DEBUG_LAPACK_STUB("dsytf2");
22612 LAPACK_IMPL(dsytf2)(UPLO,
22613 N,
22614 A,
22615 LDA,
22616 IPIV,
22617 INFO);
22618 }
22619
22620 //-- dsytrd --------------------------------------------------------------------
22621 void
LAPACK_DECL(dsytrd)22622 LAPACK_DECL(dsytrd)(const char *UPLO,
22623 const INTEGER *N,
22624 DOUBLE *A,
22625 const INTEGER *LDA,
22626 DOUBLE *D,
22627 DOUBLE *E,
22628 DOUBLE *TAU,
22629 DOUBLE *WORK,
22630 const INTEGER *LWORK,
22631 INTEGER *INFO)
22632 {
22633 DEBUG_LAPACK_STUB("dsytrd");
22634 LAPACK_IMPL(dsytrd)(UPLO,
22635 N,
22636 A,
22637 LDA,
22638 D,
22639 E,
22640 TAU,
22641 WORK,
22642 LWORK,
22643 INFO);
22644 }
22645
22646 //-- dsytrf --------------------------------------------------------------------
22647 void
LAPACK_DECL(dsytrf)22648 LAPACK_DECL(dsytrf)(const char *UPLO,
22649 const INTEGER *N,
22650 DOUBLE *A,
22651 const INTEGER *LDA,
22652 INTEGER *IPIV,
22653 DOUBLE *WORK,
22654 const INTEGER *LWORK,
22655 INTEGER *INFO)
22656 {
22657 DEBUG_LAPACK_STUB("dsytrf");
22658 LAPACK_IMPL(dsytrf)(UPLO,
22659 N,
22660 A,
22661 LDA,
22662 IPIV,
22663 WORK,
22664 LWORK,
22665 INFO);
22666 }
22667
22668 //-- dsytri --------------------------------------------------------------------
22669 void
LAPACK_DECL(dsytri)22670 LAPACK_DECL(dsytri)(const char *UPLO,
22671 const INTEGER *N,
22672 DOUBLE *A,
22673 const INTEGER *LDA,
22674 const INTEGER *IPIV,
22675 DOUBLE *WORK,
22676 INTEGER *INFO)
22677 {
22678 DEBUG_LAPACK_STUB("dsytri");
22679 LAPACK_IMPL(dsytri)(UPLO,
22680 N,
22681 A,
22682 LDA,
22683 IPIV,
22684 WORK,
22685 INFO);
22686 }
22687
22688 //-- dsytri2 -------------------------------------------------------------------
22689 void
LAPACK_DECL(dsytri2)22690 LAPACK_DECL(dsytri2)(const char *UPLO,
22691 const INTEGER *N,
22692 DOUBLE *A,
22693 const INTEGER *LDA,
22694 const INTEGER *IPIV,
22695 DOUBLE *WORK,
22696 const INTEGER *LWORK,
22697 INTEGER *INFO)
22698 {
22699 DEBUG_LAPACK_STUB("dsytri2");
22700 LAPACK_IMPL(dsytri2)(UPLO,
22701 N,
22702 A,
22703 LDA,
22704 IPIV,
22705 WORK,
22706 LWORK,
22707 INFO);
22708 }
22709
22710 //-- dsytri2x ------------------------------------------------------------------
22711 void
LAPACK_DECL(dsytri2x)22712 LAPACK_DECL(dsytri2x)(const char *UPLO,
22713 const INTEGER *N,
22714 DOUBLE *A,
22715 const INTEGER *LDA,
22716 const INTEGER *IPIV,
22717 DOUBLE *WORK,
22718 const INTEGER *NB,
22719 INTEGER *INFO)
22720 {
22721 DEBUG_LAPACK_STUB("dsytri2x");
22722 LAPACK_IMPL(dsytri2x)(UPLO,
22723 N,
22724 A,
22725 LDA,
22726 IPIV,
22727 WORK,
22728 NB,
22729 INFO);
22730 }
22731
22732 //-- dsytrs --------------------------------------------------------------------
22733 void
LAPACK_DECL(dsytrs)22734 LAPACK_DECL(dsytrs)(const char *UPLO,
22735 const INTEGER *N,
22736 const INTEGER *NRHS,
22737 const DOUBLE *A,
22738 const INTEGER *LDA,
22739 const INTEGER *IPIV,
22740 DOUBLE *B,
22741 const INTEGER *LDB,
22742 INTEGER *INFO)
22743 {
22744 DEBUG_LAPACK_STUB("dsytrs");
22745 LAPACK_IMPL(dsytrs)(UPLO,
22746 N,
22747 NRHS,
22748 A,
22749 LDA,
22750 IPIV,
22751 B,
22752 LDB,
22753 INFO);
22754 }
22755
22756 //-- dsytrs2 -------------------------------------------------------------------
22757 void
LAPACK_DECL(dsytrs2)22758 LAPACK_DECL(dsytrs2)(const char *UPLO,
22759 const INTEGER *N,
22760 const INTEGER *NRHS,
22761 const DOUBLE *A,
22762 const INTEGER *LDA,
22763 const INTEGER *IPIV,
22764 DOUBLE *B,
22765 const INTEGER *LDB,
22766 DOUBLE *WORK,
22767 INTEGER *INFO)
22768 {
22769 DEBUG_LAPACK_STUB("dsytrs2");
22770 LAPACK_IMPL(dsytrs2)(UPLO,
22771 N,
22772 NRHS,
22773 A,
22774 LDA,
22775 IPIV,
22776 B,
22777 LDB,
22778 WORK,
22779 INFO);
22780 }
22781
22782 //-- dtbcon --------------------------------------------------------------------
22783 void
LAPACK_DECL(dtbcon)22784 LAPACK_DECL(dtbcon)(const char *NORM,
22785 const char *UPLO,
22786 const char *DIAG,
22787 const INTEGER *N,
22788 const INTEGER *KD,
22789 const DOUBLE *AB,
22790 const INTEGER *LDAB,
22791 DOUBLE *RCOND,
22792 DOUBLE *WORK,
22793 INTEGER *IWORK,
22794 INTEGER *INFO)
22795 {
22796 DEBUG_LAPACK_STUB("dtbcon");
22797 LAPACK_IMPL(dtbcon)(NORM,
22798 UPLO,
22799 DIAG,
22800 N,
22801 KD,
22802 AB,
22803 LDAB,
22804 RCOND,
22805 WORK,
22806 IWORK,
22807 INFO);
22808 }
22809
22810 //-- dtbrfs --------------------------------------------------------------------
22811 void
LAPACK_DECL(dtbrfs)22812 LAPACK_DECL(dtbrfs)(const char *UPLO,
22813 const char *TRANS,
22814 const char *DIAG,
22815 const INTEGER *N,
22816 const INTEGER *KD,
22817 const INTEGER *NRHS,
22818 const DOUBLE *AB,
22819 const INTEGER *LDAB,
22820 const DOUBLE *B,
22821 const INTEGER *LDB,
22822 const DOUBLE *X,
22823 const INTEGER *LDX,
22824 DOUBLE *FERR,
22825 DOUBLE *BERR,
22826 DOUBLE *WORK,
22827 INTEGER *IWORK,
22828 INTEGER *INFO)
22829 {
22830 DEBUG_LAPACK_STUB("dtbrfs");
22831 LAPACK_IMPL(dtbrfs)(UPLO,
22832 TRANS,
22833 DIAG,
22834 N,
22835 KD,
22836 NRHS,
22837 AB,
22838 LDAB,
22839 B,
22840 LDB,
22841 X,
22842 LDX,
22843 FERR,
22844 BERR,
22845 WORK,
22846 IWORK,
22847 INFO);
22848 }
22849
22850 //-- dtbtrs --------------------------------------------------------------------
22851 void
LAPACK_DECL(dtbtrs)22852 LAPACK_DECL(dtbtrs)(const char *UPLO,
22853 const char *TRANS,
22854 const char *DIAG,
22855 const INTEGER *N,
22856 const INTEGER *KD,
22857 const INTEGER *NRHS,
22858 const DOUBLE *AB,
22859 const INTEGER *LDAB,
22860 DOUBLE *B,
22861 const INTEGER *LDB,
22862 INTEGER *INFO)
22863 {
22864 DEBUG_LAPACK_STUB("dtbtrs");
22865 LAPACK_IMPL(dtbtrs)(UPLO,
22866 TRANS,
22867 DIAG,
22868 N,
22869 KD,
22870 NRHS,
22871 AB,
22872 LDAB,
22873 B,
22874 LDB,
22875 INFO);
22876 }
22877
22878 //-- dtfsm ---------------------------------------------------------------------
22879 void
LAPACK_DECL(dtfsm)22880 LAPACK_DECL(dtfsm)(const char *TRANSR,
22881 const char *SIDE,
22882 const char *UPLO,
22883 const char *TRANS,
22884 const char *DIAG,
22885 const INTEGER *M,
22886 const INTEGER *N,
22887 const DOUBLE *ALPHA,
22888 const DOUBLE *A,
22889 DOUBLE *B,
22890 const INTEGER *LDB)
22891 {
22892 DEBUG_LAPACK_STUB("dtfsm");
22893 LAPACK_IMPL(dtfsm)(TRANSR,
22894 SIDE,
22895 UPLO,
22896 TRANS,
22897 DIAG,
22898 M,
22899 N,
22900 ALPHA,
22901 A,
22902 B,
22903 LDB);
22904 }
22905
22906 //-- dtftri --------------------------------------------------------------------
22907 void
LAPACK_DECL(dtftri)22908 LAPACK_DECL(dtftri)(const char *TRANSR,
22909 const char *UPLO,
22910 const char *DIAG,
22911 const INTEGER *N,
22912 DOUBLE *A,
22913 INTEGER *INFO)
22914 {
22915 DEBUG_LAPACK_STUB("dtftri");
22916 LAPACK_IMPL(dtftri)(TRANSR,
22917 UPLO,
22918 DIAG,
22919 N,
22920 A,
22921 INFO);
22922 }
22923
22924 //-- dtfttp --------------------------------------------------------------------
22925 void
LAPACK_DECL(dtfttp)22926 LAPACK_DECL(dtfttp)(const char *TRANSR,
22927 const char *UPLO,
22928 const INTEGER *N,
22929 const DOUBLE *ARF,
22930 DOUBLE *AP,
22931 INTEGER *INFO)
22932 {
22933 DEBUG_LAPACK_STUB("dtfttp");
22934 LAPACK_IMPL(dtfttp)(TRANSR,
22935 UPLO,
22936 N,
22937 ARF,
22938 AP,
22939 INFO);
22940 }
22941
22942 //-- dtfttr --------------------------------------------------------------------
22943 void
LAPACK_DECL(dtfttr)22944 LAPACK_DECL(dtfttr)(const char *TRANSR,
22945 const char *UPLO,
22946 const INTEGER *N,
22947 const DOUBLE *ARF,
22948 DOUBLE *A,
22949 const INTEGER *LDA,
22950 INTEGER *INFO)
22951 {
22952 DEBUG_LAPACK_STUB("dtfttr");
22953 LAPACK_IMPL(dtfttr)(TRANSR,
22954 UPLO,
22955 N,
22956 ARF,
22957 A,
22958 LDA,
22959 INFO);
22960 }
22961
22962 //-- dtgevc --------------------------------------------------------------------
22963 void
LAPACK_DECL(dtgevc)22964 LAPACK_DECL(dtgevc)(const char *SIDE,
22965 const char *HOWMNY,
22966 const LOGICAL *SELECT,
22967 const INTEGER *N,
22968 const DOUBLE *S,
22969 const INTEGER *LDS,
22970 const DOUBLE *P,
22971 const INTEGER *LDP,
22972 DOUBLE *VL,
22973 const INTEGER *LDVL,
22974 DOUBLE *VR,
22975 const INTEGER *LDVR,
22976 const INTEGER *MM,
22977 INTEGER *M,
22978 DOUBLE *WORK,
22979 INTEGER *INFO)
22980 {
22981 DEBUG_LAPACK_STUB("dtgevc");
22982 LAPACK_IMPL(dtgevc)(SIDE,
22983 HOWMNY,
22984 SELECT,
22985 N,
22986 S,
22987 LDS,
22988 P,
22989 LDP,
22990 VL,
22991 LDVL,
22992 VR,
22993 LDVR,
22994 MM,
22995 M,
22996 WORK,
22997 INFO);
22998 }
22999
23000 //-- dtgex2 --------------------------------------------------------------------
23001 void
LAPACK_DECL(dtgex2)23002 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
23003 const LOGICAL *WANTZ,
23004 const INTEGER *N,
23005 DOUBLE *A,
23006 const INTEGER *LDA,
23007 DOUBLE *B,
23008 const INTEGER *LDB,
23009 DOUBLE *Q,
23010 const INTEGER *LDQ,
23011 DOUBLE *Z,
23012 const INTEGER *LDZ,
23013 const INTEGER *J1,
23014 const INTEGER *N1,
23015 const INTEGER *N2,
23016 DOUBLE *WORK,
23017 const INTEGER *LWORK,
23018 INTEGER *INFO)
23019 {
23020 DEBUG_LAPACK_STUB("dtgex2");
23021 LAPACK_IMPL(dtgex2)(WANTQ,
23022 WANTZ,
23023 N,
23024 A,
23025 LDA,
23026 B,
23027 LDB,
23028 Q,
23029 LDQ,
23030 Z,
23031 LDZ,
23032 J1,
23033 N1,
23034 N2,
23035 WORK,
23036 LWORK,
23037 INFO);
23038 }
23039
23040 //-- dtgexc --------------------------------------------------------------------
23041 void
LAPACK_DECL(dtgexc)23042 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
23043 const LOGICAL *WANTZ,
23044 const INTEGER *N,
23045 DOUBLE *A,
23046 const INTEGER *LDA,
23047 DOUBLE *B,
23048 const INTEGER *LDB,
23049 DOUBLE *Q,
23050 const INTEGER *LDQ,
23051 DOUBLE *Z,
23052 const INTEGER *LDZ,
23053 INTEGER *IFST,
23054 INTEGER *ILST,
23055 DOUBLE *WORK,
23056 const INTEGER *LWORK,
23057 INTEGER *INFO)
23058 {
23059 DEBUG_LAPACK_STUB("dtgexc");
23060 LAPACK_IMPL(dtgexc)(WANTQ,
23061 WANTZ,
23062 N,
23063 A,
23064 LDA,
23065 B,
23066 LDB,
23067 Q,
23068 LDQ,
23069 Z,
23070 LDZ,
23071 IFST,
23072 ILST,
23073 WORK,
23074 LWORK,
23075 INFO);
23076 }
23077
23078 //-- dtgsen --------------------------------------------------------------------
23079 void
LAPACK_DECL(dtgsen)23080 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
23081 const LOGICAL *WANTQ,
23082 const LOGICAL *WANTZ,
23083 const LOGICAL *SELECT,
23084 const INTEGER *N,
23085 DOUBLE *A,
23086 const INTEGER *LDA,
23087 DOUBLE *B,
23088 const INTEGER *LDB,
23089 DOUBLE *ALPHAR,
23090 DOUBLE *ALPHAI,
23091 DOUBLE *BETA,
23092 DOUBLE *Q,
23093 const INTEGER *LDQ,
23094 DOUBLE *Z,
23095 const INTEGER *LDZ,
23096 INTEGER *M,
23097 DOUBLE *PL,
23098 DOUBLE *PR,
23099 DOUBLE *DIF,
23100 DOUBLE *WORK,
23101 const INTEGER *LWORK,
23102 INTEGER *IWORK,
23103 const INTEGER *LIWORK,
23104 INTEGER *INFO)
23105 {
23106 DEBUG_LAPACK_STUB("dtgsen");
23107 LAPACK_IMPL(dtgsen)(IJOB,
23108 WANTQ,
23109 WANTZ,
23110 SELECT,
23111 N,
23112 A,
23113 LDA,
23114 B,
23115 LDB,
23116 ALPHAR,
23117 ALPHAI,
23118 BETA,
23119 Q,
23120 LDQ,
23121 Z,
23122 LDZ,
23123 M,
23124 PL,
23125 PR,
23126 DIF,
23127 WORK,
23128 LWORK,
23129 IWORK,
23130 LIWORK,
23131 INFO);
23132 }
23133
23134 //-- dtgsja --------------------------------------------------------------------
23135 void
LAPACK_DECL(dtgsja)23136 LAPACK_DECL(dtgsja)(const char *JOBU,
23137 const char *JOBV,
23138 const char *JOBQ,
23139 const INTEGER *M,
23140 const INTEGER *P,
23141 const INTEGER *N,
23142 const INTEGER *K,
23143 const INTEGER *L,
23144 DOUBLE *A,
23145 const INTEGER *LDA,
23146 DOUBLE *B,
23147 const INTEGER *LDB,
23148 const DOUBLE *TOLA,
23149 const DOUBLE *TOLB,
23150 DOUBLE *ALPHA,
23151 DOUBLE *BETA,
23152 DOUBLE *U,
23153 const INTEGER *LDU,
23154 DOUBLE *V,
23155 const INTEGER *LDV,
23156 DOUBLE *Q,
23157 const INTEGER *LDQ,
23158 DOUBLE *WORK,
23159 INTEGER *NCYCLE,
23160 INTEGER *INFO)
23161 {
23162 DEBUG_LAPACK_STUB("dtgsja");
23163 LAPACK_IMPL(dtgsja)(JOBU,
23164 JOBV,
23165 JOBQ,
23166 M,
23167 P,
23168 N,
23169 K,
23170 L,
23171 A,
23172 LDA,
23173 B,
23174 LDB,
23175 TOLA,
23176 TOLB,
23177 ALPHA,
23178 BETA,
23179 U,
23180 LDU,
23181 V,
23182 LDV,
23183 Q,
23184 LDQ,
23185 WORK,
23186 NCYCLE,
23187 INFO);
23188 }
23189
23190 //-- dtgsna --------------------------------------------------------------------
23191 void
LAPACK_DECL(dtgsna)23192 LAPACK_DECL(dtgsna)(const char *JOB,
23193 const char *HOWMNY,
23194 const LOGICAL *SELECT,
23195 const INTEGER *N,
23196 const DOUBLE *A,
23197 const INTEGER *LDA,
23198 const DOUBLE *B,
23199 const INTEGER *LDB,
23200 const DOUBLE *VL,
23201 const INTEGER *LDVL,
23202 const DOUBLE *VR,
23203 const INTEGER *LDVR,
23204 DOUBLE *S,
23205 DOUBLE *DIF,
23206 const INTEGER *MM,
23207 INTEGER *M,
23208 DOUBLE *WORK,
23209 const INTEGER *LWORK,
23210 INTEGER *IWORK,
23211 INTEGER *INFO)
23212 {
23213 DEBUG_LAPACK_STUB("dtgsna");
23214 LAPACK_IMPL(dtgsna)(JOB,
23215 HOWMNY,
23216 SELECT,
23217 N,
23218 A,
23219 LDA,
23220 B,
23221 LDB,
23222 VL,
23223 LDVL,
23224 VR,
23225 LDVR,
23226 S,
23227 DIF,
23228 MM,
23229 M,
23230 WORK,
23231 LWORK,
23232 IWORK,
23233 INFO);
23234 }
23235
23236 //-- dtgsy2 --------------------------------------------------------------------
23237 void
LAPACK_DECL(dtgsy2)23238 LAPACK_DECL(dtgsy2)(const char *TRANS,
23239 const INTEGER *IJOB,
23240 const INTEGER *M,
23241 const INTEGER *N,
23242 const DOUBLE *A,
23243 const INTEGER *LDA,
23244 const DOUBLE *B,
23245 const INTEGER *LDB,
23246 DOUBLE *C,
23247 const INTEGER *LDC,
23248 const DOUBLE *D,
23249 const INTEGER *LDD,
23250 const DOUBLE *E,
23251 const INTEGER *LDE,
23252 DOUBLE *F,
23253 const INTEGER *LDF,
23254 DOUBLE *SCALE,
23255 DOUBLE *RDSUM,
23256 DOUBLE *RDSCAL,
23257 INTEGER *IWORK,
23258 INTEGER *PQ,
23259 INTEGER *INFO)
23260 {
23261 DEBUG_LAPACK_STUB("dtgsy2");
23262 LAPACK_IMPL(dtgsy2)(TRANS,
23263 IJOB,
23264 M,
23265 N,
23266 A,
23267 LDA,
23268 B,
23269 LDB,
23270 C,
23271 LDC,
23272 D,
23273 LDD,
23274 E,
23275 LDE,
23276 F,
23277 LDF,
23278 SCALE,
23279 RDSUM,
23280 RDSCAL,
23281 IWORK,
23282 PQ,
23283 INFO);
23284 }
23285
23286 //-- dtgsyl --------------------------------------------------------------------
23287 void
LAPACK_DECL(dtgsyl)23288 LAPACK_DECL(dtgsyl)(const char *TRANS,
23289 const INTEGER *IJOB,
23290 const INTEGER *M,
23291 const INTEGER *N,
23292 const DOUBLE *A,
23293 const INTEGER *LDA,
23294 const DOUBLE *B,
23295 const INTEGER *LDB,
23296 DOUBLE *C,
23297 const INTEGER *LDC,
23298 const DOUBLE *D,
23299 const INTEGER *LDD,
23300 const DOUBLE *E,
23301 const INTEGER *LDE,
23302 DOUBLE *F,
23303 const INTEGER *LDF,
23304 DOUBLE *SCALE,
23305 DOUBLE *DIF,
23306 DOUBLE *WORK,
23307 const INTEGER *LWORK,
23308 INTEGER *IWORK,
23309 INTEGER *INFO)
23310 {
23311 DEBUG_LAPACK_STUB("dtgsyl");
23312 LAPACK_IMPL(dtgsyl)(TRANS,
23313 IJOB,
23314 M,
23315 N,
23316 A,
23317 LDA,
23318 B,
23319 LDB,
23320 C,
23321 LDC,
23322 D,
23323 LDD,
23324 E,
23325 LDE,
23326 F,
23327 LDF,
23328 SCALE,
23329 DIF,
23330 WORK,
23331 LWORK,
23332 IWORK,
23333 INFO);
23334 }
23335
23336 //-- dtpcon --------------------------------------------------------------------
23337 void
LAPACK_DECL(dtpcon)23338 LAPACK_DECL(dtpcon)(const char *NORM,
23339 const char *UPLO,
23340 const char *DIAG,
23341 const INTEGER *N,
23342 const DOUBLE *AP,
23343 DOUBLE *RCOND,
23344 DOUBLE *WORK,
23345 INTEGER *IWORK,
23346 INTEGER *INFO)
23347 {
23348 DEBUG_LAPACK_STUB("dtpcon");
23349 LAPACK_IMPL(dtpcon)(NORM,
23350 UPLO,
23351 DIAG,
23352 N,
23353 AP,
23354 RCOND,
23355 WORK,
23356 IWORK,
23357 INFO);
23358 }
23359
23360 //-- dtprfs --------------------------------------------------------------------
23361 void
LAPACK_DECL(dtprfs)23362 LAPACK_DECL(dtprfs)(const char *UPLO,
23363 const char *TRANS,
23364 const char *DIAG,
23365 const INTEGER *N,
23366 const INTEGER *NRHS,
23367 const DOUBLE *AP,
23368 const DOUBLE *B,
23369 const INTEGER *LDB,
23370 const DOUBLE *X,
23371 const INTEGER *LDX,
23372 DOUBLE *FERR,
23373 DOUBLE *BERR,
23374 DOUBLE *WORK,
23375 INTEGER *IWORK,
23376 INTEGER *INFO)
23377 {
23378 DEBUG_LAPACK_STUB("dtprfs");
23379 LAPACK_IMPL(dtprfs)(UPLO,
23380 TRANS,
23381 DIAG,
23382 N,
23383 NRHS,
23384 AP,
23385 B,
23386 LDB,
23387 X,
23388 LDX,
23389 FERR,
23390 BERR,
23391 WORK,
23392 IWORK,
23393 INFO);
23394 }
23395
23396 //-- dtptri --------------------------------------------------------------------
23397 void
LAPACK_DECL(dtptri)23398 LAPACK_DECL(dtptri)(const char *UPLO,
23399 const char *DIAG,
23400 const INTEGER *N,
23401 DOUBLE *AP,
23402 INTEGER *INFO)
23403 {
23404 DEBUG_LAPACK_STUB("dtptri");
23405 LAPACK_IMPL(dtptri)(UPLO,
23406 DIAG,
23407 N,
23408 AP,
23409 INFO);
23410 }
23411
23412 //-- dtptrs --------------------------------------------------------------------
23413 void
LAPACK_DECL(dtptrs)23414 LAPACK_DECL(dtptrs)(const char *UPLO,
23415 const char *TRANS,
23416 const char *DIAG,
23417 const INTEGER *N,
23418 const INTEGER *NRHS,
23419 const DOUBLE *AP,
23420 DOUBLE *B,
23421 const INTEGER *LDB,
23422 INTEGER *INFO)
23423 {
23424 DEBUG_LAPACK_STUB("dtptrs");
23425 LAPACK_IMPL(dtptrs)(UPLO,
23426 TRANS,
23427 DIAG,
23428 N,
23429 NRHS,
23430 AP,
23431 B,
23432 LDB,
23433 INFO);
23434 }
23435
23436 //-- dtpttf --------------------------------------------------------------------
23437 void
LAPACK_DECL(dtpttf)23438 LAPACK_DECL(dtpttf)(const char *TRANSR,
23439 const char *UPLO,
23440 const INTEGER *N,
23441 const DOUBLE *AP,
23442 DOUBLE *ARF,
23443 INTEGER *INFO)
23444 {
23445 DEBUG_LAPACK_STUB("dtpttf");
23446 LAPACK_IMPL(dtpttf)(TRANSR,
23447 UPLO,
23448 N,
23449 AP,
23450 ARF,
23451 INFO);
23452 }
23453
23454 //-- dtpttr --------------------------------------------------------------------
23455 void
LAPACK_DECL(dtpttr)23456 LAPACK_DECL(dtpttr)(const char *UPLO,
23457 const INTEGER *N,
23458 const DOUBLE *AP,
23459 DOUBLE *A,
23460 const INTEGER *LDA,
23461 INTEGER *INFO)
23462 {
23463 DEBUG_LAPACK_STUB("dtpttr");
23464 LAPACK_IMPL(dtpttr)(UPLO,
23465 N,
23466 AP,
23467 A,
23468 LDA,
23469 INFO);
23470 }
23471
23472 //-- dtrcon --------------------------------------------------------------------
23473 void
LAPACK_DECL(dtrcon)23474 LAPACK_DECL(dtrcon)(const char *NORM,
23475 const char *UPLO,
23476 const char *DIAG,
23477 const INTEGER *N,
23478 const DOUBLE *A,
23479 const INTEGER *LDA,
23480 DOUBLE *RCOND,
23481 DOUBLE *WORK,
23482 INTEGER *IWORK,
23483 INTEGER *INFO)
23484 {
23485 DEBUG_LAPACK_STUB("dtrcon");
23486 LAPACK_IMPL(dtrcon)(NORM,
23487 UPLO,
23488 DIAG,
23489 N,
23490 A,
23491 LDA,
23492 RCOND,
23493 WORK,
23494 IWORK,
23495 INFO);
23496 }
23497
23498 //-- dtrevc --------------------------------------------------------------------
23499 void
LAPACK_DECL(dtrevc)23500 LAPACK_DECL(dtrevc)(const char *SIDE,
23501 const char *HOWMNY,
23502 LOGICAL *SELECT,
23503 const INTEGER *N,
23504 const DOUBLE *T,
23505 const INTEGER *LDT,
23506 DOUBLE *VL,
23507 const INTEGER *LDVL,
23508 DOUBLE *VR,
23509 const INTEGER *LDVR,
23510 const INTEGER *MM,
23511 INTEGER *M,
23512 DOUBLE *WORK,
23513 INTEGER *INFO)
23514 {
23515 DEBUG_LAPACK_STUB("dtrevc");
23516 LAPACK_IMPL(dtrevc)(SIDE,
23517 HOWMNY,
23518 SELECT,
23519 N,
23520 T,
23521 LDT,
23522 VL,
23523 LDVL,
23524 VR,
23525 LDVR,
23526 MM,
23527 M,
23528 WORK,
23529 INFO);
23530 }
23531
23532 //-- dtrexc --------------------------------------------------------------------
23533 void
LAPACK_DECL(dtrexc)23534 LAPACK_DECL(dtrexc)(const char *COMPQ,
23535 const INTEGER *N,
23536 DOUBLE *T,
23537 const INTEGER *LDT,
23538 DOUBLE *Q,
23539 const INTEGER *LDQ,
23540 INTEGER *IFST,
23541 INTEGER *ILST,
23542 DOUBLE *WORK,
23543 INTEGER *INFO)
23544 {
23545 DEBUG_LAPACK_STUB("dtrexc");
23546 LAPACK_IMPL(dtrexc)(COMPQ,
23547 N,
23548 T,
23549 LDT,
23550 Q,
23551 LDQ,
23552 IFST,
23553 ILST,
23554 WORK,
23555 INFO);
23556 }
23557
23558 //-- dtrrfs --------------------------------------------------------------------
23559 void
LAPACK_DECL(dtrrfs)23560 LAPACK_DECL(dtrrfs)(const char *UPLO,
23561 const char *TRANS,
23562 const char *DIAG,
23563 const INTEGER *N,
23564 const INTEGER *NRHS,
23565 const DOUBLE *A,
23566 const INTEGER *LDA,
23567 const DOUBLE *B,
23568 const INTEGER *LDB,
23569 const DOUBLE *X,
23570 const INTEGER *LDX,
23571 DOUBLE *FERR,
23572 DOUBLE *BERR,
23573 DOUBLE *WORK,
23574 INTEGER *IWORK,
23575 INTEGER *INFO)
23576 {
23577 DEBUG_LAPACK_STUB("dtrrfs");
23578 LAPACK_IMPL(dtrrfs)(UPLO,
23579 TRANS,
23580 DIAG,
23581 N,
23582 NRHS,
23583 A,
23584 LDA,
23585 B,
23586 LDB,
23587 X,
23588 LDX,
23589 FERR,
23590 BERR,
23591 WORK,
23592 IWORK,
23593 INFO);
23594 }
23595
23596 //-- dtrsen --------------------------------------------------------------------
23597 void
LAPACK_DECL(dtrsen)23598 LAPACK_DECL(dtrsen)(const char *JOB,
23599 const char *COMPQ,
23600 const LOGICAL *SELECT,
23601 const INTEGER *N,
23602 DOUBLE *T,
23603 const INTEGER *LDT,
23604 DOUBLE *Q,
23605 const INTEGER *LDQ,
23606 DOUBLE *WR,
23607 DOUBLE *WI,
23608 INTEGER *M,
23609 DOUBLE *S,
23610 DOUBLE *SEP,
23611 DOUBLE *WORK,
23612 const INTEGER *LWORK,
23613 INTEGER *IWORK,
23614 const INTEGER *LIWORK,
23615 INTEGER *INFO)
23616 {
23617 DEBUG_LAPACK_STUB("dtrsen");
23618 LAPACK_IMPL(dtrsen)(JOB,
23619 COMPQ,
23620 SELECT,
23621 N,
23622 T,
23623 LDT,
23624 Q,
23625 LDQ,
23626 WR,
23627 WI,
23628 M,
23629 S,
23630 SEP,
23631 WORK,
23632 LWORK,
23633 IWORK,
23634 LIWORK,
23635 INFO);
23636 }
23637
23638 //-- dtrsna --------------------------------------------------------------------
23639 void
LAPACK_DECL(dtrsna)23640 LAPACK_DECL(dtrsna)(const char *JOB,
23641 const char *HOWMNY,
23642 const LOGICAL *SELECT,
23643 const INTEGER *N,
23644 const DOUBLE *T,
23645 const INTEGER *LDT,
23646 const DOUBLE *VL,
23647 const INTEGER *LDVL,
23648 const DOUBLE *VR,
23649 const INTEGER *LDVR,
23650 DOUBLE *S,
23651 DOUBLE *SEP,
23652 const INTEGER *MM,
23653 INTEGER *M,
23654 DOUBLE *WORK,
23655 const INTEGER *LDWORK,
23656 INTEGER *IWORK,
23657 INTEGER *INFO)
23658 {
23659 DEBUG_LAPACK_STUB("dtrsna");
23660 LAPACK_IMPL(dtrsna)(JOB,
23661 HOWMNY,
23662 SELECT,
23663 N,
23664 T,
23665 LDT,
23666 VL,
23667 LDVL,
23668 VR,
23669 LDVR,
23670 S,
23671 SEP,
23672 MM,
23673 M,
23674 WORK,
23675 LDWORK,
23676 IWORK,
23677 INFO);
23678 }
23679
23680 //-- dtrsyl --------------------------------------------------------------------
23681 void
LAPACK_DECL(dtrsyl)23682 LAPACK_DECL(dtrsyl)(const char *TRANA,
23683 const char *TRANB,
23684 const INTEGER *ISGN,
23685 const INTEGER *M,
23686 const INTEGER *N,
23687 const DOUBLE *A,
23688 const INTEGER *LDA,
23689 const DOUBLE *B,
23690 const INTEGER *LDB,
23691 DOUBLE *C,
23692 const INTEGER *LDC,
23693 DOUBLE *SCALE,
23694 INTEGER *INFO)
23695 {
23696 DEBUG_LAPACK_STUB("dtrsyl");
23697 LAPACK_IMPL(dtrsyl)(TRANA,
23698 TRANB,
23699 ISGN,
23700 M,
23701 N,
23702 A,
23703 LDA,
23704 B,
23705 LDB,
23706 C,
23707 LDC,
23708 SCALE,
23709 INFO);
23710 }
23711
23712 //-- dtrti2 --------------------------------------------------------------------
23713 void
LAPACK_DECL(dtrti2)23714 LAPACK_DECL(dtrti2)(const char *UPLO,
23715 const char *DIAG,
23716 const INTEGER *N,
23717 DOUBLE *A,
23718 const INTEGER *LDA,
23719 INTEGER *INFO)
23720 {
23721 DEBUG_LAPACK_STUB("dtrti2");
23722 LAPACK_IMPL(dtrti2)(UPLO,
23723 DIAG,
23724 N,
23725 A,
23726 LDA,
23727 INFO);
23728 }
23729
23730 //-- dtrtri --------------------------------------------------------------------
23731 void
LAPACK_DECL(dtrtri)23732 LAPACK_DECL(dtrtri)(const char *UPLO,
23733 const char *DIAG,
23734 const INTEGER *N,
23735 DOUBLE *A,
23736 const INTEGER *LDA,
23737 INTEGER *INFO)
23738 {
23739 DEBUG_LAPACK_STUB("dtrtri");
23740 LAPACK_IMPL(dtrtri)(UPLO,
23741 DIAG,
23742 N,
23743 A,
23744 LDA,
23745 INFO);
23746 }
23747
23748 //-- dtrtrs --------------------------------------------------------------------
23749 void
LAPACK_DECL(dtrtrs)23750 LAPACK_DECL(dtrtrs)(const char *UPLO,
23751 const char *TRANS,
23752 const char *DIAG,
23753 const INTEGER *N,
23754 const INTEGER *NRHS,
23755 const DOUBLE *A,
23756 const INTEGER *LDA,
23757 DOUBLE *B,
23758 const INTEGER *LDB,
23759 INTEGER *INFO)
23760 {
23761 DEBUG_LAPACK_STUB("dtrtrs");
23762 LAPACK_IMPL(dtrtrs)(UPLO,
23763 TRANS,
23764 DIAG,
23765 N,
23766 NRHS,
23767 A,
23768 LDA,
23769 B,
23770 LDB,
23771 INFO);
23772 }
23773
23774 //-- dtrttf --------------------------------------------------------------------
23775 void
LAPACK_DECL(dtrttf)23776 LAPACK_DECL(dtrttf)(const char *TRANSR,
23777 const char *UPLO,
23778 const INTEGER *N,
23779 const DOUBLE *A,
23780 const INTEGER *LDA,
23781 DOUBLE *ARF,
23782 INTEGER *INFO)
23783 {
23784 DEBUG_LAPACK_STUB("dtrttf");
23785 LAPACK_IMPL(dtrttf)(TRANSR,
23786 UPLO,
23787 N,
23788 A,
23789 LDA,
23790 ARF,
23791 INFO);
23792 }
23793
23794 //-- dtrttp --------------------------------------------------------------------
23795 void
LAPACK_DECL(dtrttp)23796 LAPACK_DECL(dtrttp)(const char *UPLO,
23797 const INTEGER *N,
23798 const DOUBLE *A,
23799 const INTEGER *LDA,
23800 DOUBLE *AP,
23801 INTEGER *INFO)
23802 {
23803 DEBUG_LAPACK_STUB("dtrttp");
23804 LAPACK_IMPL(dtrttp)(UPLO,
23805 N,
23806 A,
23807 LDA,
23808 AP,
23809 INFO);
23810 }
23811
23812 //-- dtzrqf --------------------------------------------------------------------
23813 void
LAPACK_DECL(dtzrqf)23814 LAPACK_DECL(dtzrqf)(const INTEGER *M,
23815 const INTEGER *N,
23816 DOUBLE *A,
23817 const INTEGER *LDA,
23818 DOUBLE *TAU,
23819 INTEGER *INFO)
23820 {
23821 DEBUG_LAPACK_STUB("dtzrqf");
23822 LAPACK_IMPL(dtzrqf)(M,
23823 N,
23824 A,
23825 LDA,
23826 TAU,
23827 INFO);
23828 }
23829
23830 //-- dtzrzf --------------------------------------------------------------------
23831 void
LAPACK_DECL(dtzrzf)23832 LAPACK_DECL(dtzrzf)(const INTEGER *M,
23833 const INTEGER *N,
23834 DOUBLE *A,
23835 const INTEGER *LDA,
23836 DOUBLE *TAU,
23837 DOUBLE *WORK,
23838 const INTEGER *LWORK,
23839 INTEGER *INFO)
23840 {
23841 DEBUG_LAPACK_STUB("dtzrzf");
23842 LAPACK_IMPL(dtzrzf)(M,
23843 N,
23844 A,
23845 LDA,
23846 TAU,
23847 WORK,
23848 LWORK,
23849 INFO);
23850 }
23851
23852 //-- dzsum1 --------------------------------------------------------------------
23853 DOUBLE
LAPACK_DECL(dzsum1)23854 LAPACK_DECL(dzsum1)(const INTEGER *N,
23855 const DOUBLE_COMPLEX *CX,
23856 const INTEGER *INCX)
23857 {
23858 DEBUG_LAPACK_STUB("dzsum1");
23859 return LAPACK_IMPL(dzsum1)(N,
23860 CX,
23861 INCX);
23862 }
23863
23864 //-- icmax1 --------------------------------------------------------------------
23865 INTEGER
LAPACK_DECL(icmax1)23866 LAPACK_DECL(icmax1)(const INTEGER *N,
23867 const FLOAT_COMPLEX *CX,
23868 const INTEGER *INCX)
23869 {
23870 DEBUG_LAPACK_STUB("icmax1");
23871 return LAPACK_IMPL(icmax1)(N,
23872 CX,
23873 INCX);
23874 }
23875
23876 //-- ieeeck --------------------------------------------------------------------
23877 INTEGER
LAPACK_DECL(ieeeck)23878 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
23879 const FLOAT *ZERO,
23880 const FLOAT *ONE)
23881 {
23882 DEBUG_LAPACK_STUB("ieeeck");
23883 return LAPACK_IMPL(ieeeck)(ISPEC,
23884 ZERO,
23885 ONE);
23886 }
23887
23888 //-- ilaclc --------------------------------------------------------------------
23889 INTEGER
LAPACK_DECL(ilaclc)23890 LAPACK_DECL(ilaclc)(const INTEGER *M,
23891 const INTEGER *N,
23892 const FLOAT_COMPLEX *A,
23893 const INTEGER *LDA)
23894 {
23895 DEBUG_LAPACK_STUB("ilaclc");
23896 return LAPACK_IMPL(ilaclc)(M,
23897 N,
23898 A,
23899 LDA);
23900 }
23901
23902 //-- ilaclr --------------------------------------------------------------------
23903 INTEGER
LAPACK_DECL(ilaclr)23904 LAPACK_DECL(ilaclr)(const INTEGER *M,
23905 const INTEGER *N,
23906 const FLOAT_COMPLEX *A,
23907 const INTEGER *LDA)
23908 {
23909 DEBUG_LAPACK_STUB("ilaclr");
23910 return LAPACK_IMPL(ilaclr)(M,
23911 N,
23912 A,
23913 LDA);
23914 }
23915
23916 //-- iladiag -------------------------------------------------------------------
23917 INTEGER
LAPACK_DECL(iladiag)23918 LAPACK_DECL(iladiag)(const char *DIAG)
23919 {
23920 DEBUG_LAPACK_STUB("iladiag");
23921 return LAPACK_IMPL(iladiag)(DIAG);
23922 }
23923
23924 //-- iladlc --------------------------------------------------------------------
23925 INTEGER
LAPACK_DECL(iladlc)23926 LAPACK_DECL(iladlc)(const INTEGER *M,
23927 const INTEGER *N,
23928 const DOUBLE *A,
23929 const INTEGER *LDA)
23930 {
23931 DEBUG_LAPACK_STUB("iladlc");
23932 return LAPACK_IMPL(iladlc)(M,
23933 N,
23934 A,
23935 LDA);
23936 }
23937
23938 //-- iladlr --------------------------------------------------------------------
23939 INTEGER
LAPACK_DECL(iladlr)23940 LAPACK_DECL(iladlr)(const INTEGER *M,
23941 const INTEGER *N,
23942 const DOUBLE *A,
23943 const INTEGER *LDA)
23944 {
23945 DEBUG_LAPACK_STUB("iladlr");
23946 return LAPACK_IMPL(iladlr)(M,
23947 N,
23948 A,
23949 LDA);
23950 }
23951
23952 //-- ilaprec -------------------------------------------------------------------
23953 INTEGER
LAPACK_DECL(ilaprec)23954 LAPACK_DECL(ilaprec)(const char *PREC)
23955 {
23956 DEBUG_LAPACK_STUB("ilaprec");
23957 return LAPACK_IMPL(ilaprec)(PREC);
23958 }
23959
23960 //-- ilaslc --------------------------------------------------------------------
23961 INTEGER
LAPACK_DECL(ilaslc)23962 LAPACK_DECL(ilaslc)(const INTEGER *M,
23963 const INTEGER *N,
23964 const FLOAT *A,
23965 const INTEGER *LDA)
23966 {
23967 DEBUG_LAPACK_STUB("ilaslc");
23968 return LAPACK_IMPL(ilaslc)(M,
23969 N,
23970 A,
23971 LDA);
23972 }
23973
23974 //-- ilaslr --------------------------------------------------------------------
23975 INTEGER
LAPACK_DECL(ilaslr)23976 LAPACK_DECL(ilaslr)(const INTEGER *M,
23977 const INTEGER *N,
23978 const FLOAT *A,
23979 const INTEGER *LDA)
23980 {
23981 DEBUG_LAPACK_STUB("ilaslr");
23982 return LAPACK_IMPL(ilaslr)(M,
23983 N,
23984 A,
23985 LDA);
23986 }
23987
23988 //-- ilatrans ------------------------------------------------------------------
23989 INTEGER
LAPACK_DECL(ilatrans)23990 LAPACK_DECL(ilatrans)(const char *TRANS)
23991 {
23992 DEBUG_LAPACK_STUB("ilatrans");
23993 return LAPACK_IMPL(ilatrans)(TRANS);
23994 }
23995
23996 //-- ilauplo -------------------------------------------------------------------
23997 INTEGER
LAPACK_DECL(ilauplo)23998 LAPACK_DECL(ilauplo)(const char *UPLO)
23999 {
24000 DEBUG_LAPACK_STUB("ilauplo");
24001 return LAPACK_IMPL(ilauplo)(UPLO);
24002 }
24003
24004 //-- ilaver --------------------------------------------------------------------
24005 void
LAPACK_DECL(ilaver)24006 LAPACK_DECL(ilaver)(INTEGER *VERS_MAJOR,
24007 INTEGER *VERS_MINOR,
24008 INTEGER *VERS_PATCH)
24009 {
24010 DEBUG_LAPACK_STUB("ilaver");
24011 LAPACK_IMPL(ilaver)(VERS_MAJOR,
24012 VERS_MINOR,
24013 VERS_PATCH);
24014 }
24015
24016 //-- ilazlc --------------------------------------------------------------------
24017 INTEGER
LAPACK_DECL(ilazlc)24018 LAPACK_DECL(ilazlc)(const INTEGER *M,
24019 const INTEGER *N,
24020 const DOUBLE_COMPLEX *A,
24021 const INTEGER *LDA)
24022 {
24023 DEBUG_LAPACK_STUB("ilazlc");
24024 return LAPACK_IMPL(ilazlc)(M,
24025 N,
24026 A,
24027 LDA);
24028 }
24029
24030 //-- ilazlr --------------------------------------------------------------------
24031 INTEGER
LAPACK_DECL(ilazlr)24032 LAPACK_DECL(ilazlr)(const INTEGER *M,
24033 const INTEGER *N,
24034 const DOUBLE_COMPLEX *A,
24035 const INTEGER *LDA)
24036 {
24037 DEBUG_LAPACK_STUB("ilazlr");
24038 return LAPACK_IMPL(ilazlr)(M,
24039 N,
24040 A,
24041 LDA);
24042 }
24043
24044 //-- izmax1 --------------------------------------------------------------------
24045 INTEGER
LAPACK_DECL(izmax1)24046 LAPACK_DECL(izmax1)(const INTEGER *N,
24047 const DOUBLE_COMPLEX *CX,
24048 const INTEGER *INCX)
24049 {
24050 DEBUG_LAPACK_STUB("izmax1");
24051 return LAPACK_IMPL(izmax1)(N,
24052 CX,
24053 INCX);
24054 }
24055
24056 //-- lsamen --------------------------------------------------------------------
24057 LOGICAL
LAPACK_DECL(lsamen)24058 LAPACK_DECL(lsamen)(const INTEGER *N,
24059 const char *CA,
24060 const char *CB)
24061 {
24062 DEBUG_LAPACK_STUB("lsamen");
24063 return LAPACK_IMPL(lsamen)(N,
24064 CA,
24065 CB);
24066 }
24067
24068 //-- sbbcsd --------------------------------------------------------------------
24069 void
LAPACK_DECL(sbbcsd)24070 LAPACK_DECL(sbbcsd)(const char *JOBU1,
24071 const char *JOBU2,
24072 const char *JOBV1T,
24073 const char *JOBV2T,
24074 const char *TRANS,
24075 const INTEGER *M,
24076 const INTEGER *P,
24077 const INTEGER *Q,
24078 FLOAT *THETA,
24079 FLOAT *PHI,
24080 FLOAT *U1,
24081 const INTEGER *LDU1,
24082 FLOAT *U2,
24083 const INTEGER *LDU2,
24084 FLOAT *V1T,
24085 const INTEGER *LDV1T,
24086 FLOAT *V2T,
24087 const INTEGER *LDV2T,
24088 FLOAT *B11D,
24089 FLOAT *B11E,
24090 FLOAT *B12D,
24091 FLOAT *B12E,
24092 const FLOAT *B21D,
24093 const FLOAT *B21E,
24094 const FLOAT *B22D,
24095 const FLOAT *B22E,
24096 FLOAT *WORK,
24097 const INTEGER *LWORK,
24098 INTEGER *INFO)
24099 {
24100 DEBUG_LAPACK_STUB("sbbcsd");
24101 LAPACK_IMPL(sbbcsd)(JOBU1,
24102 JOBU2,
24103 JOBV1T,
24104 JOBV2T,
24105 TRANS,
24106 M,
24107 P,
24108 Q,
24109 THETA,
24110 PHI,
24111 U1,
24112 LDU1,
24113 U2,
24114 LDU2,
24115 V1T,
24116 LDV1T,
24117 V2T,
24118 LDV2T,
24119 B11D,
24120 B11E,
24121 B12D,
24122 B12E,
24123 B21D,
24124 B21E,
24125 B22D,
24126 B22E,
24127 WORK,
24128 LWORK,
24129 INFO);
24130 }
24131
24132 //-- sbdsdc --------------------------------------------------------------------
24133 void
LAPACK_DECL(sbdsdc)24134 LAPACK_DECL(sbdsdc)(const char *UPLO,
24135 const char *COMPQ,
24136 const INTEGER *N,
24137 FLOAT *D,
24138 FLOAT *E,
24139 FLOAT *U,
24140 const INTEGER *LDU,
24141 FLOAT *VT,
24142 const INTEGER *LDVT,
24143 FLOAT *Q,
24144 INTEGER *IQ,
24145 FLOAT *WORK,
24146 INTEGER *IWORK,
24147 INTEGER *INFO)
24148 {
24149 DEBUG_LAPACK_STUB("sbdsdc");
24150 LAPACK_IMPL(sbdsdc)(UPLO,
24151 COMPQ,
24152 N,
24153 D,
24154 E,
24155 U,
24156 LDU,
24157 VT,
24158 LDVT,
24159 Q,
24160 IQ,
24161 WORK,
24162 IWORK,
24163 INFO);
24164 }
24165
24166 //-- sbdsqr --------------------------------------------------------------------
24167 void
LAPACK_DECL(sbdsqr)24168 LAPACK_DECL(sbdsqr)(const char *UPLO,
24169 const INTEGER *N,
24170 const INTEGER *NCVT,
24171 const INTEGER *NRU,
24172 const INTEGER *NCC,
24173 FLOAT *D,
24174 FLOAT *E,
24175 FLOAT *VT,
24176 const INTEGER *LDVT,
24177 FLOAT *U,
24178 const INTEGER *LDU,
24179 FLOAT *C,
24180 const INTEGER *LDC,
24181 FLOAT *WORK,
24182 INTEGER *INFO)
24183 {
24184 DEBUG_LAPACK_STUB("sbdsqr");
24185 LAPACK_IMPL(sbdsqr)(UPLO,
24186 N,
24187 NCVT,
24188 NRU,
24189 NCC,
24190 D,
24191 E,
24192 VT,
24193 LDVT,
24194 U,
24195 LDU,
24196 C,
24197 LDC,
24198 WORK,
24199 INFO);
24200 }
24201
24202 //-- scsum1 --------------------------------------------------------------------
24203 FLOAT
LAPACK_DECL(scsum1)24204 LAPACK_DECL(scsum1)(const INTEGER *N,
24205 const FLOAT_COMPLEX *CX,
24206 const INTEGER *INCX)
24207 {
24208 DEBUG_LAPACK_STUB("scsum1");
24209 return LAPACK_IMPL(scsum1)(N,
24210 CX,
24211 INCX);
24212 }
24213
24214 //-- sdisna --------------------------------------------------------------------
24215 void
LAPACK_DECL(sdisna)24216 LAPACK_DECL(sdisna)(const char *JOB,
24217 const INTEGER *M,
24218 const INTEGER *N,
24219 const FLOAT *D,
24220 FLOAT *SEP,
24221 INTEGER *INFO)
24222 {
24223 DEBUG_LAPACK_STUB("sdisna");
24224 LAPACK_IMPL(sdisna)(JOB,
24225 M,
24226 N,
24227 D,
24228 SEP,
24229 INFO);
24230 }
24231
24232 //-- sgbbrd --------------------------------------------------------------------
24233 void
LAPACK_DECL(sgbbrd)24234 LAPACK_DECL(sgbbrd)(const char *VECT,
24235 const INTEGER *M,
24236 const INTEGER *N,
24237 const INTEGER *NCC,
24238 const INTEGER *KL,
24239 const INTEGER *KU,
24240 FLOAT *AB,
24241 const INTEGER *LDAB,
24242 FLOAT *D,
24243 FLOAT *E,
24244 FLOAT *Q,
24245 const INTEGER *LDQ,
24246 FLOAT *PT,
24247 const INTEGER *LDPT,
24248 FLOAT *C,
24249 const INTEGER *LDC,
24250 FLOAT *WORK,
24251 INTEGER *INFO)
24252 {
24253 DEBUG_LAPACK_STUB("sgbbrd");
24254 LAPACK_IMPL(sgbbrd)(VECT,
24255 M,
24256 N,
24257 NCC,
24258 KL,
24259 KU,
24260 AB,
24261 LDAB,
24262 D,
24263 E,
24264 Q,
24265 LDQ,
24266 PT,
24267 LDPT,
24268 C,
24269 LDC,
24270 WORK,
24271 INFO);
24272 }
24273
24274 //-- sgbcon --------------------------------------------------------------------
24275 void
LAPACK_DECL(sgbcon)24276 LAPACK_DECL(sgbcon)(const char *NORM,
24277 const INTEGER *N,
24278 const INTEGER *KL,
24279 const INTEGER *KU,
24280 const FLOAT *AB,
24281 const INTEGER *LDAB,
24282 const INTEGER *IPIV,
24283 const FLOAT *ANORM,
24284 FLOAT *RCOND,
24285 FLOAT *WORK,
24286 INTEGER *IWORK,
24287 INTEGER *INFO)
24288 {
24289 DEBUG_LAPACK_STUB("sgbcon");
24290 LAPACK_IMPL(sgbcon)(NORM,
24291 N,
24292 KL,
24293 KU,
24294 AB,
24295 LDAB,
24296 IPIV,
24297 ANORM,
24298 RCOND,
24299 WORK,
24300 IWORK,
24301 INFO);
24302 }
24303
24304 //-- sgbequ --------------------------------------------------------------------
24305 void
LAPACK_DECL(sgbequ)24306 LAPACK_DECL(sgbequ)(const INTEGER *M,
24307 const INTEGER *N,
24308 const INTEGER *KL,
24309 const INTEGER *KU,
24310 const FLOAT *AB,
24311 const INTEGER *LDAB,
24312 FLOAT *R,
24313 FLOAT *C,
24314 FLOAT *ROWCND,
24315 FLOAT *COLCND,
24316 FLOAT *AMAX,
24317 INTEGER *INFO)
24318 {
24319 DEBUG_LAPACK_STUB("sgbequ");
24320 LAPACK_IMPL(sgbequ)(M,
24321 N,
24322 KL,
24323 KU,
24324 AB,
24325 LDAB,
24326 R,
24327 C,
24328 ROWCND,
24329 COLCND,
24330 AMAX,
24331 INFO);
24332 }
24333
24334 //-- sgbequb -------------------------------------------------------------------
24335 void
LAPACK_DECL(sgbequb)24336 LAPACK_DECL(sgbequb)(const INTEGER *M,
24337 const INTEGER *N,
24338 const INTEGER *KL,
24339 const INTEGER *KU,
24340 const FLOAT *AB,
24341 const INTEGER *LDAB,
24342 FLOAT *R,
24343 FLOAT *C,
24344 FLOAT *ROWCND,
24345 FLOAT *COLCND,
24346 FLOAT *AMAX,
24347 INTEGER *INFO)
24348 {
24349 DEBUG_LAPACK_STUB("sgbequb");
24350 LAPACK_IMPL(sgbequb)(M,
24351 N,
24352 KL,
24353 KU,
24354 AB,
24355 LDAB,
24356 R,
24357 C,
24358 ROWCND,
24359 COLCND,
24360 AMAX,
24361 INFO);
24362 }
24363
24364 //-- sgbrfs --------------------------------------------------------------------
24365 void
LAPACK_DECL(sgbrfs)24366 LAPACK_DECL(sgbrfs)(const char *TRANS,
24367 const INTEGER *N,
24368 const INTEGER *KL,
24369 const INTEGER *KU,
24370 const INTEGER *NRHS,
24371 const FLOAT *AB,
24372 const INTEGER *LDAB,
24373 const FLOAT *AFB,
24374 const INTEGER *LDAFB,
24375 const INTEGER *IPIV,
24376 const FLOAT *B,
24377 const INTEGER *LDB,
24378 FLOAT *X,
24379 const INTEGER *LDX,
24380 FLOAT *FERR,
24381 FLOAT *BERR,
24382 FLOAT *WORK,
24383 INTEGER *IWORK,
24384 INTEGER *INFO)
24385 {
24386 DEBUG_LAPACK_STUB("sgbrfs");
24387 LAPACK_IMPL(sgbrfs)(TRANS,
24388 N,
24389 KL,
24390 KU,
24391 NRHS,
24392 AB,
24393 LDAB,
24394 AFB,
24395 LDAFB,
24396 IPIV,
24397 B,
24398 LDB,
24399 X,
24400 LDX,
24401 FERR,
24402 BERR,
24403 WORK,
24404 IWORK,
24405 INFO);
24406 }
24407
24408 //-- sgbrfsx -------------------------------------------------------------------
24409 void
LAPACK_DECL(sgbrfsx)24410 LAPACK_DECL(sgbrfsx)(const char *TRANS,
24411 const char *EQUED,
24412 const INTEGER *N,
24413 const INTEGER *KL,
24414 const INTEGER *KU,
24415 const INTEGER *NRHS,
24416 const FLOAT *AB,
24417 const INTEGER *LDAB,
24418 const FLOAT *AFB,
24419 const INTEGER *LDAFB,
24420 const INTEGER *IPIV,
24421 FLOAT *R,
24422 FLOAT *C,
24423 const FLOAT *B,
24424 const INTEGER *LDB,
24425 FLOAT *X,
24426 const INTEGER *LDX,
24427 FLOAT *RCOND,
24428 FLOAT *BERR,
24429 const INTEGER *N_ERR_BNDS,
24430 FLOAT *ERR_BNDS_NORM,
24431 FLOAT *ERR_BNDS_COMP,
24432 const INTEGER *NPARAMS,
24433 FLOAT *PARAMS,
24434 FLOAT *WORK,
24435 INTEGER *IWORK,
24436 INTEGER *INFO)
24437 {
24438 DEBUG_LAPACK_STUB("sgbrfsx");
24439 LAPACK_IMPL(sgbrfsx)(TRANS,
24440 EQUED,
24441 N,
24442 KL,
24443 KU,
24444 NRHS,
24445 AB,
24446 LDAB,
24447 AFB,
24448 LDAFB,
24449 IPIV,
24450 R,
24451 C,
24452 B,
24453 LDB,
24454 X,
24455 LDX,
24456 RCOND,
24457 BERR,
24458 N_ERR_BNDS,
24459 ERR_BNDS_NORM,
24460 ERR_BNDS_COMP,
24461 NPARAMS,
24462 PARAMS,
24463 WORK,
24464 IWORK,
24465 INFO);
24466 }
24467
24468 //-- sgbsv ---------------------------------------------------------------------
24469 void
LAPACK_DECL(sgbsv)24470 LAPACK_DECL(sgbsv)(const INTEGER *N,
24471 const INTEGER *KL,
24472 const INTEGER *KU,
24473 const INTEGER *NRHS,
24474 FLOAT *AB,
24475 const INTEGER *LDAB,
24476 INTEGER *IPIV,
24477 FLOAT *B,
24478 const INTEGER *LDB,
24479 INTEGER *INFO)
24480 {
24481 DEBUG_LAPACK_STUB("sgbsv");
24482 LAPACK_IMPL(sgbsv)(N,
24483 KL,
24484 KU,
24485 NRHS,
24486 AB,
24487 LDAB,
24488 IPIV,
24489 B,
24490 LDB,
24491 INFO);
24492 }
24493
24494 //-- sgbsvx --------------------------------------------------------------------
24495 void
LAPACK_DECL(sgbsvx)24496 LAPACK_DECL(sgbsvx)(const char *FACT,
24497 const char *TRANS,
24498 const INTEGER *N,
24499 const INTEGER *KL,
24500 const INTEGER *KU,
24501 const INTEGER *NRHS,
24502 FLOAT *AB,
24503 const INTEGER *LDAB,
24504 FLOAT *AFB,
24505 const INTEGER *LDAFB,
24506 INTEGER *IPIV,
24507 char *EQUED,
24508 FLOAT *R,
24509 FLOAT *C,
24510 FLOAT *B,
24511 const INTEGER *LDB,
24512 FLOAT *X,
24513 const INTEGER *LDX,
24514 FLOAT *RCOND,
24515 FLOAT *FERR,
24516 FLOAT *BERR,
24517 FLOAT *WORK,
24518 INTEGER *IWORK,
24519 INTEGER *INFO)
24520 {
24521 DEBUG_LAPACK_STUB("sgbsvx");
24522 LAPACK_IMPL(sgbsvx)(FACT,
24523 TRANS,
24524 N,
24525 KL,
24526 KU,
24527 NRHS,
24528 AB,
24529 LDAB,
24530 AFB,
24531 LDAFB,
24532 IPIV,
24533 EQUED,
24534 R,
24535 C,
24536 B,
24537 LDB,
24538 X,
24539 LDX,
24540 RCOND,
24541 FERR,
24542 BERR,
24543 WORK,
24544 IWORK,
24545 INFO);
24546 }
24547
24548 //-- sgbtf2 --------------------------------------------------------------------
24549 void
LAPACK_DECL(sgbtf2)24550 LAPACK_DECL(sgbtf2)(const INTEGER *M,
24551 const INTEGER *N,
24552 const INTEGER *KL,
24553 const INTEGER *KU,
24554 FLOAT *AB,
24555 const INTEGER *LDAB,
24556 INTEGER *IPIV,
24557 INTEGER *INFO)
24558 {
24559 DEBUG_LAPACK_STUB("sgbtf2");
24560 LAPACK_IMPL(sgbtf2)(M,
24561 N,
24562 KL,
24563 KU,
24564 AB,
24565 LDAB,
24566 IPIV,
24567 INFO);
24568 }
24569
24570 //-- sgbtrf --------------------------------------------------------------------
24571 void
LAPACK_DECL(sgbtrf)24572 LAPACK_DECL(sgbtrf)(const INTEGER *M,
24573 const INTEGER *N,
24574 const INTEGER *KL,
24575 const INTEGER *KU,
24576 FLOAT *AB,
24577 const INTEGER *LDAB,
24578 INTEGER *IPIV,
24579 INTEGER *INFO)
24580 {
24581 DEBUG_LAPACK_STUB("sgbtrf");
24582 LAPACK_IMPL(sgbtrf)(M,
24583 N,
24584 KL,
24585 KU,
24586 AB,
24587 LDAB,
24588 IPIV,
24589 INFO);
24590 }
24591
24592 //-- sgbtrs --------------------------------------------------------------------
24593 void
LAPACK_DECL(sgbtrs)24594 LAPACK_DECL(sgbtrs)(const char *TRANS,
24595 const INTEGER *N,
24596 const INTEGER *KL,
24597 const INTEGER *KU,
24598 const INTEGER *NRHS,
24599 const FLOAT *AB,
24600 const INTEGER *LDAB,
24601 const INTEGER *IPIV,
24602 FLOAT *B,
24603 const INTEGER *LDB,
24604 INTEGER *INFO)
24605 {
24606 DEBUG_LAPACK_STUB("sgbtrs");
24607 LAPACK_IMPL(sgbtrs)(TRANS,
24608 N,
24609 KL,
24610 KU,
24611 NRHS,
24612 AB,
24613 LDAB,
24614 IPIV,
24615 B,
24616 LDB,
24617 INFO);
24618 }
24619
24620 //-- sgebak --------------------------------------------------------------------
24621 void
LAPACK_DECL(sgebak)24622 LAPACK_DECL(sgebak)(const char *JOB,
24623 const char *SIDE,
24624 const INTEGER *N,
24625 const INTEGER *ILO,
24626 const INTEGER *IHI,
24627 const FLOAT *SCALE,
24628 const INTEGER *M,
24629 FLOAT *V,
24630 const INTEGER *LDV,
24631 INTEGER *INFO)
24632 {
24633 DEBUG_LAPACK_STUB("sgebak");
24634 LAPACK_IMPL(sgebak)(JOB,
24635 SIDE,
24636 N,
24637 ILO,
24638 IHI,
24639 SCALE,
24640 M,
24641 V,
24642 LDV,
24643 INFO);
24644 }
24645
24646 //-- sgebal --------------------------------------------------------------------
24647 void
LAPACK_DECL(sgebal)24648 LAPACK_DECL(sgebal)(const char *JOB,
24649 const INTEGER *N,
24650 FLOAT *A,
24651 const INTEGER *LDA,
24652 INTEGER *ILO,
24653 INTEGER *IHI,
24654 FLOAT *SCALE,
24655 INTEGER *INFO)
24656 {
24657 DEBUG_LAPACK_STUB("sgebal");
24658 LAPACK_IMPL(sgebal)(JOB,
24659 N,
24660 A,
24661 LDA,
24662 ILO,
24663 IHI,
24664 SCALE,
24665 INFO);
24666 }
24667
24668 //-- sgebd2 --------------------------------------------------------------------
24669 void
LAPACK_DECL(sgebd2)24670 LAPACK_DECL(sgebd2)(const INTEGER *M,
24671 const INTEGER *N,
24672 FLOAT *A,
24673 const INTEGER *LDA,
24674 FLOAT *D,
24675 FLOAT *E,
24676 FLOAT *TAUQ,
24677 FLOAT *TAUP,
24678 FLOAT *WORK,
24679 INTEGER *INFO)
24680 {
24681 DEBUG_LAPACK_STUB("sgebd2");
24682 LAPACK_IMPL(sgebd2)(M,
24683 N,
24684 A,
24685 LDA,
24686 D,
24687 E,
24688 TAUQ,
24689 TAUP,
24690 WORK,
24691 INFO);
24692 }
24693
24694 //-- sgebrd --------------------------------------------------------------------
24695 void
LAPACK_DECL(sgebrd)24696 LAPACK_DECL(sgebrd)(const INTEGER *M,
24697 const INTEGER *N,
24698 FLOAT *A,
24699 const INTEGER *LDA,
24700 FLOAT *D,
24701 FLOAT *E,
24702 FLOAT *TAUQ,
24703 FLOAT *TAUP,
24704 FLOAT *WORK,
24705 const INTEGER *LWORK,
24706 INTEGER *INFO)
24707 {
24708 DEBUG_LAPACK_STUB("sgebrd");
24709 LAPACK_IMPL(sgebrd)(M,
24710 N,
24711 A,
24712 LDA,
24713 D,
24714 E,
24715 TAUQ,
24716 TAUP,
24717 WORK,
24718 LWORK,
24719 INFO);
24720 }
24721
24722 //-- sgecon --------------------------------------------------------------------
24723 void
LAPACK_DECL(sgecon)24724 LAPACK_DECL(sgecon)(const char *NORM,
24725 const INTEGER *N,
24726 const FLOAT *A,
24727 const INTEGER *LDA,
24728 const FLOAT *ANORM,
24729 FLOAT *RCOND,
24730 FLOAT *WORK,
24731 INTEGER *IWORK,
24732 INTEGER *INFO)
24733 {
24734 DEBUG_LAPACK_STUB("sgecon");
24735 LAPACK_IMPL(sgecon)(NORM,
24736 N,
24737 A,
24738 LDA,
24739 ANORM,
24740 RCOND,
24741 WORK,
24742 IWORK,
24743 INFO);
24744 }
24745
24746 //-- sgeequ --------------------------------------------------------------------
24747 void
LAPACK_DECL(sgeequ)24748 LAPACK_DECL(sgeequ)(const INTEGER *M,
24749 const INTEGER *N,
24750 const FLOAT *A,
24751 const INTEGER *LDA,
24752 FLOAT *R,
24753 FLOAT *C,
24754 FLOAT *ROWCND,
24755 FLOAT *COLCND,
24756 FLOAT *AMAX,
24757 INTEGER *INFO)
24758 {
24759 DEBUG_LAPACK_STUB("sgeequ");
24760 LAPACK_IMPL(sgeequ)(M,
24761 N,
24762 A,
24763 LDA,
24764 R,
24765 C,
24766 ROWCND,
24767 COLCND,
24768 AMAX,
24769 INFO);
24770 }
24771
24772 //-- sgeequb -------------------------------------------------------------------
24773 void
LAPACK_DECL(sgeequb)24774 LAPACK_DECL(sgeequb)(const INTEGER *M,
24775 const INTEGER *N,
24776 const FLOAT *A,
24777 const INTEGER *LDA,
24778 FLOAT *R,
24779 FLOAT *C,
24780 FLOAT *ROWCND,
24781 FLOAT *COLCND,
24782 FLOAT *AMAX,
24783 INTEGER *INFO)
24784 {
24785 DEBUG_LAPACK_STUB("sgeequb");
24786 LAPACK_IMPL(sgeequb)(M,
24787 N,
24788 A,
24789 LDA,
24790 R,
24791 C,
24792 ROWCND,
24793 COLCND,
24794 AMAX,
24795 INFO);
24796 }
24797
24798 //-- sgees ---------------------------------------------------------------------
24799 void
LAPACK_DECL(sgees)24800 LAPACK_DECL(sgees)(const char *JOBVS,
24801 const char *SORT,
24802 const LOGICAL *SELECT,
24803 const INTEGER *N,
24804 FLOAT *A,
24805 const INTEGER *LDA,
24806 INTEGER *SDIM,
24807 FLOAT *WR,
24808 FLOAT *WI,
24809 FLOAT *VS,
24810 const INTEGER *LDVS,
24811 FLOAT *WORK,
24812 const INTEGER *LWORK,
24813 LOGICAL *BWORK,
24814 INTEGER *INFO)
24815 {
24816 DEBUG_LAPACK_STUB("sgees");
24817 LAPACK_IMPL(sgees)(JOBVS,
24818 SORT,
24819 SELECT,
24820 N,
24821 A,
24822 LDA,
24823 SDIM,
24824 WR,
24825 WI,
24826 VS,
24827 LDVS,
24828 WORK,
24829 LWORK,
24830 BWORK,
24831 INFO);
24832 }
24833
24834 //-- sgeesx --------------------------------------------------------------------
24835 void
LAPACK_DECL(sgeesx)24836 LAPACK_DECL(sgeesx)(const char *JOBVS,
24837 const char *SORT,
24838 const LOGICAL *SELECT,
24839 const char *SENSE,
24840 const INTEGER *N,
24841 FLOAT *A,
24842 const INTEGER *LDA,
24843 INTEGER *SDIM,
24844 FLOAT *WR,
24845 FLOAT *WI,
24846 FLOAT *VS,
24847 const INTEGER *LDVS,
24848 FLOAT *RCONDE,
24849 FLOAT *RCONDV,
24850 FLOAT *WORK,
24851 const INTEGER *LWORK,
24852 INTEGER *IWORK,
24853 const INTEGER *LIWORK,
24854 LOGICAL *BWORK,
24855 INTEGER *INFO)
24856 {
24857 DEBUG_LAPACK_STUB("sgeesx");
24858 LAPACK_IMPL(sgeesx)(JOBVS,
24859 SORT,
24860 SELECT,
24861 SENSE,
24862 N,
24863 A,
24864 LDA,
24865 SDIM,
24866 WR,
24867 WI,
24868 VS,
24869 LDVS,
24870 RCONDE,
24871 RCONDV,
24872 WORK,
24873 LWORK,
24874 IWORK,
24875 LIWORK,
24876 BWORK,
24877 INFO);
24878 }
24879
24880 //-- sgeev ---------------------------------------------------------------------
24881 void
LAPACK_DECL(sgeev)24882 LAPACK_DECL(sgeev)(const char *JOBVL,
24883 const char *JOBVR,
24884 const INTEGER *N,
24885 FLOAT *A,
24886 const INTEGER *LDA,
24887 FLOAT *WR,
24888 FLOAT *WI,
24889 FLOAT *VL,
24890 const INTEGER *LDVL,
24891 FLOAT *VR,
24892 const INTEGER *LDVR,
24893 FLOAT *WORK,
24894 const INTEGER *LWORK,
24895 INTEGER *INFO)
24896 {
24897 DEBUG_LAPACK_STUB("sgeev");
24898 LAPACK_IMPL(sgeev)(JOBVL,
24899 JOBVR,
24900 N,
24901 A,
24902 LDA,
24903 WR,
24904 WI,
24905 VL,
24906 LDVL,
24907 VR,
24908 LDVR,
24909 WORK,
24910 LWORK,
24911 INFO);
24912 }
24913
24914 //-- sgeevx --------------------------------------------------------------------
24915 void
LAPACK_DECL(sgeevx)24916 LAPACK_DECL(sgeevx)(const char *BALANC,
24917 const char *JOBVL,
24918 const char *JOBVR,
24919 const char *SENSE,
24920 const INTEGER *N,
24921 FLOAT *A,
24922 const INTEGER *LDA,
24923 FLOAT *WR,
24924 FLOAT *WI,
24925 FLOAT *VL,
24926 const INTEGER *LDVL,
24927 FLOAT *VR,
24928 const INTEGER *LDVR,
24929 INTEGER *ILO,
24930 INTEGER *IHI,
24931 FLOAT *SCALE,
24932 FLOAT *ABNRM,
24933 FLOAT *RCONDE,
24934 FLOAT *RCONDV,
24935 FLOAT *WORK,
24936 const INTEGER *LWORK,
24937 INTEGER *IWORK,
24938 INTEGER *INFO)
24939 {
24940 DEBUG_LAPACK_STUB("sgeevx");
24941 LAPACK_IMPL(sgeevx)(BALANC,
24942 JOBVL,
24943 JOBVR,
24944 SENSE,
24945 N,
24946 A,
24947 LDA,
24948 WR,
24949 WI,
24950 VL,
24951 LDVL,
24952 VR,
24953 LDVR,
24954 ILO,
24955 IHI,
24956 SCALE,
24957 ABNRM,
24958 RCONDE,
24959 RCONDV,
24960 WORK,
24961 LWORK,
24962 IWORK,
24963 INFO);
24964 }
24965
24966 //-- sgegs ---------------------------------------------------------------------
24967 void
LAPACK_DECL(sgegs)24968 LAPACK_DECL(sgegs)(const char *JOBVSL,
24969 const char *JOBVSR,
24970 const INTEGER *N,
24971 FLOAT *A,
24972 const INTEGER *LDA,
24973 FLOAT *B,
24974 const INTEGER *LDB,
24975 FLOAT *ALPHAR,
24976 FLOAT *ALPHAI,
24977 FLOAT *BETA,
24978 FLOAT *VSL,
24979 const INTEGER *LDVSL,
24980 FLOAT *VSR,
24981 const INTEGER *LDVSR,
24982 FLOAT *WORK,
24983 const INTEGER *LWORK,
24984 INTEGER *INFO)
24985 {
24986 DEBUG_LAPACK_STUB("sgegs");
24987 LAPACK_IMPL(sgegs)(JOBVSL,
24988 JOBVSR,
24989 N,
24990 A,
24991 LDA,
24992 B,
24993 LDB,
24994 ALPHAR,
24995 ALPHAI,
24996 BETA,
24997 VSL,
24998 LDVSL,
24999 VSR,
25000 LDVSR,
25001 WORK,
25002 LWORK,
25003 INFO);
25004 }
25005
25006 //-- sgegv ---------------------------------------------------------------------
25007 void
LAPACK_DECL(sgegv)25008 LAPACK_DECL(sgegv)(const char *JOBVL,
25009 const char *JOBVR,
25010 const INTEGER *N,
25011 FLOAT *A,
25012 const INTEGER *LDA,
25013 FLOAT *B,
25014 const INTEGER *LDB,
25015 FLOAT *ALPHAR,
25016 FLOAT *ALPHAI,
25017 FLOAT *BETA,
25018 FLOAT *VL,
25019 const INTEGER *LDVL,
25020 FLOAT *VR,
25021 const INTEGER *LDVR,
25022 FLOAT *WORK,
25023 const INTEGER *LWORK,
25024 INTEGER *INFO)
25025 {
25026 DEBUG_LAPACK_STUB("sgegv");
25027 LAPACK_IMPL(sgegv)(JOBVL,
25028 JOBVR,
25029 N,
25030 A,
25031 LDA,
25032 B,
25033 LDB,
25034 ALPHAR,
25035 ALPHAI,
25036 BETA,
25037 VL,
25038 LDVL,
25039 VR,
25040 LDVR,
25041 WORK,
25042 LWORK,
25043 INFO);
25044 }
25045
25046 //-- sgehd2 --------------------------------------------------------------------
25047 void
LAPACK_DECL(sgehd2)25048 LAPACK_DECL(sgehd2)(const INTEGER *N,
25049 const INTEGER *ILO,
25050 const INTEGER *IHI,
25051 FLOAT *A,
25052 const INTEGER *LDA,
25053 FLOAT *TAU,
25054 FLOAT *WORK,
25055 INTEGER *INFO)
25056 {
25057 DEBUG_LAPACK_STUB("sgehd2");
25058 LAPACK_IMPL(sgehd2)(N,
25059 ILO,
25060 IHI,
25061 A,
25062 LDA,
25063 TAU,
25064 WORK,
25065 INFO);
25066 }
25067
25068 //-- sgehrd --------------------------------------------------------------------
25069 void
LAPACK_DECL(sgehrd)25070 LAPACK_DECL(sgehrd)(const INTEGER *N,
25071 const INTEGER *ILO,
25072 const INTEGER *IHI,
25073 FLOAT *A,
25074 const INTEGER *LDA,
25075 FLOAT *TAU,
25076 FLOAT *WORK,
25077 const INTEGER *LWORK,
25078 INTEGER *INFO)
25079 {
25080 DEBUG_LAPACK_STUB("sgehrd");
25081 LAPACK_IMPL(sgehrd)(N,
25082 ILO,
25083 IHI,
25084 A,
25085 LDA,
25086 TAU,
25087 WORK,
25088 LWORK,
25089 INFO);
25090 }
25091
25092 //-- sgejsv --------------------------------------------------------------------
25093 void
LAPACK_DECL(sgejsv)25094 LAPACK_DECL(sgejsv)(const char *JOBA,
25095 const char *JOBU,
25096 const char *JOBV,
25097 const char *JOBR,
25098 const char *JOBT,
25099 const char *JOBP,
25100 const INTEGER *M,
25101 const INTEGER *N,
25102 const FLOAT *A,
25103 const INTEGER *LDA,
25104 const FLOAT *SVA,
25105 const FLOAT *U,
25106 const INTEGER *LDU,
25107 const FLOAT *V,
25108 const INTEGER *LDV,
25109 const FLOAT *WORK,
25110 const INTEGER *LWORK,
25111 const INTEGER *IWORK,
25112 const INTEGER *INFO)
25113 {
25114 DEBUG_LAPACK_STUB("sgejsv");
25115 LAPACK_IMPL(sgejsv)(JOBA,
25116 JOBU,
25117 JOBV,
25118 JOBR,
25119 JOBT,
25120 JOBP,
25121 M,
25122 N,
25123 A,
25124 LDA,
25125 SVA,
25126 U,
25127 LDU,
25128 V,
25129 LDV,
25130 WORK,
25131 LWORK,
25132 IWORK,
25133 INFO);
25134 }
25135
25136 //-- sgelq2 --------------------------------------------------------------------
25137 void
LAPACK_DECL(sgelq2)25138 LAPACK_DECL(sgelq2)(const INTEGER *M,
25139 const INTEGER *N,
25140 FLOAT *A,
25141 const INTEGER *LDA,
25142 FLOAT *TAU,
25143 FLOAT *WORK,
25144 INTEGER *INFO)
25145 {
25146 DEBUG_LAPACK_STUB("sgelq2");
25147 LAPACK_IMPL(sgelq2)(M,
25148 N,
25149 A,
25150 LDA,
25151 TAU,
25152 WORK,
25153 INFO);
25154 }
25155
25156 //-- sgelqf --------------------------------------------------------------------
25157 void
LAPACK_DECL(sgelqf)25158 LAPACK_DECL(sgelqf)(const INTEGER *M,
25159 const INTEGER *N,
25160 FLOAT *A,
25161 const INTEGER *LDA,
25162 FLOAT *TAU,
25163 FLOAT *WORK,
25164 const INTEGER *LWORK,
25165 INTEGER *INFO)
25166 {
25167 DEBUG_LAPACK_STUB("sgelqf");
25168 LAPACK_IMPL(sgelqf)(M,
25169 N,
25170 A,
25171 LDA,
25172 TAU,
25173 WORK,
25174 LWORK,
25175 INFO);
25176 }
25177
25178 //-- sgels ---------------------------------------------------------------------
25179 void
LAPACK_DECL(sgels)25180 LAPACK_DECL(sgels)(const char *TRANS,
25181 const INTEGER *M,
25182 const INTEGER *N,
25183 const INTEGER *NRHS,
25184 FLOAT *A,
25185 const INTEGER *LDA,
25186 FLOAT *B,
25187 const INTEGER *LDB,
25188 FLOAT *WORK,
25189 const INTEGER *LWORK,
25190 INTEGER *INFO)
25191 {
25192 DEBUG_LAPACK_STUB("sgels");
25193 LAPACK_IMPL(sgels)(TRANS,
25194 M,
25195 N,
25196 NRHS,
25197 A,
25198 LDA,
25199 B,
25200 LDB,
25201 WORK,
25202 LWORK,
25203 INFO);
25204 }
25205
25206 //-- sgelsd --------------------------------------------------------------------
25207 void
LAPACK_DECL(sgelsd)25208 LAPACK_DECL(sgelsd)(const INTEGER *M,
25209 const INTEGER *N,
25210 const INTEGER *NRHS,
25211 const FLOAT *A,
25212 const INTEGER *LDA,
25213 FLOAT *B,
25214 const INTEGER *LDB,
25215 FLOAT *S,
25216 const FLOAT *RCOND,
25217 INTEGER *RANK,
25218 FLOAT *WORK,
25219 const INTEGER *LWORK,
25220 INTEGER *IWORK,
25221 INTEGER *INFO)
25222 {
25223 DEBUG_LAPACK_STUB("sgelsd");
25224 LAPACK_IMPL(sgelsd)(M,
25225 N,
25226 NRHS,
25227 A,
25228 LDA,
25229 B,
25230 LDB,
25231 S,
25232 RCOND,
25233 RANK,
25234 WORK,
25235 LWORK,
25236 IWORK,
25237 INFO);
25238 }
25239
25240 //-- sgelss --------------------------------------------------------------------
25241 void
LAPACK_DECL(sgelss)25242 LAPACK_DECL(sgelss)(const INTEGER *M,
25243 const INTEGER *N,
25244 const INTEGER *NRHS,
25245 FLOAT *A,
25246 const INTEGER *LDA,
25247 FLOAT *B,
25248 const INTEGER *LDB,
25249 FLOAT *S,
25250 const FLOAT *RCOND,
25251 INTEGER *RANK,
25252 FLOAT *WORK,
25253 const INTEGER *LWORK,
25254 INTEGER *INFO)
25255 {
25256 DEBUG_LAPACK_STUB("sgelss");
25257 LAPACK_IMPL(sgelss)(M,
25258 N,
25259 NRHS,
25260 A,
25261 LDA,
25262 B,
25263 LDB,
25264 S,
25265 RCOND,
25266 RANK,
25267 WORK,
25268 LWORK,
25269 INFO);
25270 }
25271
25272 //-- sgelsx --------------------------------------------------------------------
25273 void
LAPACK_DECL(sgelsx)25274 LAPACK_DECL(sgelsx)(const INTEGER *M,
25275 const INTEGER *N,
25276 const INTEGER *NRHS,
25277 FLOAT *A,
25278 const INTEGER *LDA,
25279 FLOAT *B,
25280 const INTEGER *LDB,
25281 INTEGER *JPVT,
25282 const FLOAT *RCOND,
25283 INTEGER *RANK,
25284 FLOAT *WORK,
25285 INTEGER *INFO)
25286 {
25287 DEBUG_LAPACK_STUB("sgelsx");
25288 LAPACK_IMPL(sgelsx)(M,
25289 N,
25290 NRHS,
25291 A,
25292 LDA,
25293 B,
25294 LDB,
25295 JPVT,
25296 RCOND,
25297 RANK,
25298 WORK,
25299 INFO);
25300 }
25301
25302 //-- sgelsy --------------------------------------------------------------------
25303 void
LAPACK_DECL(sgelsy)25304 LAPACK_DECL(sgelsy)(const INTEGER *M,
25305 const INTEGER *N,
25306 const INTEGER *NRHS,
25307 FLOAT *A,
25308 const INTEGER *LDA,
25309 FLOAT *B,
25310 const INTEGER *LDB,
25311 INTEGER *JPVT,
25312 const FLOAT *RCOND,
25313 INTEGER *RANK,
25314 FLOAT *WORK,
25315 const INTEGER *LWORK,
25316 INTEGER *INFO)
25317 {
25318 DEBUG_LAPACK_STUB("sgelsy");
25319 LAPACK_IMPL(sgelsy)(M,
25320 N,
25321 NRHS,
25322 A,
25323 LDA,
25324 B,
25325 LDB,
25326 JPVT,
25327 RCOND,
25328 RANK,
25329 WORK,
25330 LWORK,
25331 INFO);
25332 }
25333
25334 //-- sgeql2 --------------------------------------------------------------------
25335 void
LAPACK_DECL(sgeql2)25336 LAPACK_DECL(sgeql2)(const INTEGER *M,
25337 const INTEGER *N,
25338 FLOAT *A,
25339 const INTEGER *LDA,
25340 FLOAT *TAU,
25341 FLOAT *WORK,
25342 INTEGER *INFO)
25343 {
25344 DEBUG_LAPACK_STUB("sgeql2");
25345 LAPACK_IMPL(sgeql2)(M,
25346 N,
25347 A,
25348 LDA,
25349 TAU,
25350 WORK,
25351 INFO);
25352 }
25353
25354 //-- sgeqlf --------------------------------------------------------------------
25355 void
LAPACK_DECL(sgeqlf)25356 LAPACK_DECL(sgeqlf)(const INTEGER *M,
25357 const INTEGER *N,
25358 FLOAT *A,
25359 const INTEGER *LDA,
25360 FLOAT *TAU,
25361 FLOAT *WORK,
25362 const INTEGER *LWORK,
25363 INTEGER *INFO)
25364 {
25365 DEBUG_LAPACK_STUB("sgeqlf");
25366 LAPACK_IMPL(sgeqlf)(M,
25367 N,
25368 A,
25369 LDA,
25370 TAU,
25371 WORK,
25372 LWORK,
25373 INFO);
25374 }
25375
25376 //-- sgeqp3 --------------------------------------------------------------------
25377 void
LAPACK_DECL(sgeqp3)25378 LAPACK_DECL(sgeqp3)(const INTEGER *M,
25379 const INTEGER *N,
25380 FLOAT *A,
25381 const INTEGER *LDA,
25382 INTEGER *JPVT,
25383 FLOAT *TAU,
25384 FLOAT *WORK,
25385 const INTEGER *LWORK,
25386 INTEGER *INFO)
25387 {
25388 DEBUG_LAPACK_STUB("sgeqp3");
25389 LAPACK_IMPL(sgeqp3)(M,
25390 N,
25391 A,
25392 LDA,
25393 JPVT,
25394 TAU,
25395 WORK,
25396 LWORK,
25397 INFO);
25398 }
25399
25400 //-- sgeqpf --------------------------------------------------------------------
25401 void
LAPACK_DECL(sgeqpf)25402 LAPACK_DECL(sgeqpf)(const INTEGER *M,
25403 const INTEGER *N,
25404 FLOAT *A,
25405 const INTEGER *LDA,
25406 INTEGER *JPVT,
25407 FLOAT *TAU,
25408 FLOAT *WORK,
25409 INTEGER *INFO)
25410 {
25411 DEBUG_LAPACK_STUB("sgeqpf");
25412 LAPACK_IMPL(sgeqpf)(M,
25413 N,
25414 A,
25415 LDA,
25416 JPVT,
25417 TAU,
25418 WORK,
25419 INFO);
25420 }
25421
25422 //-- sgeqr2 --------------------------------------------------------------------
25423 void
LAPACK_DECL(sgeqr2)25424 LAPACK_DECL(sgeqr2)(const INTEGER *M,
25425 const INTEGER *N,
25426 FLOAT *A,
25427 const INTEGER *LDA,
25428 FLOAT *TAU,
25429 FLOAT *WORK,
25430 INTEGER *INFO)
25431 {
25432 DEBUG_LAPACK_STUB("sgeqr2");
25433 LAPACK_IMPL(sgeqr2)(M,
25434 N,
25435 A,
25436 LDA,
25437 TAU,
25438 WORK,
25439 INFO);
25440 }
25441
25442 //-- sgeqr2p -------------------------------------------------------------------
25443 void
LAPACK_DECL(sgeqr2p)25444 LAPACK_DECL(sgeqr2p)(const INTEGER *M,
25445 const INTEGER *N,
25446 FLOAT *A,
25447 const INTEGER *LDA,
25448 FLOAT *TAU,
25449 FLOAT *WORK,
25450 INTEGER *INFO)
25451 {
25452 DEBUG_LAPACK_STUB("sgeqr2p");
25453 LAPACK_IMPL(sgeqr2p)(M,
25454 N,
25455 A,
25456 LDA,
25457 TAU,
25458 WORK,
25459 INFO);
25460 }
25461
25462 //-- sgeqrf --------------------------------------------------------------------
25463 void
LAPACK_DECL(sgeqrf)25464 LAPACK_DECL(sgeqrf)(const INTEGER *M,
25465 const INTEGER *N,
25466 FLOAT *A,
25467 const INTEGER *LDA,
25468 FLOAT *TAU,
25469 FLOAT *WORK,
25470 const INTEGER *LWORK,
25471 INTEGER *INFO)
25472 {
25473 DEBUG_LAPACK_STUB("sgeqrf");
25474 LAPACK_IMPL(sgeqrf)(M,
25475 N,
25476 A,
25477 LDA,
25478 TAU,
25479 WORK,
25480 LWORK,
25481 INFO);
25482 }
25483
25484 //-- sgeqrfp -------------------------------------------------------------------
25485 void
LAPACK_DECL(sgeqrfp)25486 LAPACK_DECL(sgeqrfp)(const INTEGER *M,
25487 const INTEGER *N,
25488 FLOAT *A,
25489 const INTEGER *LDA,
25490 FLOAT *TAU,
25491 FLOAT *WORK,
25492 const INTEGER *LWORK,
25493 INTEGER *INFO)
25494 {
25495 DEBUG_LAPACK_STUB("sgeqrfp");
25496 LAPACK_IMPL(sgeqrfp)(M,
25497 N,
25498 A,
25499 LDA,
25500 TAU,
25501 WORK,
25502 LWORK,
25503 INFO);
25504 }
25505
25506 //-- sgerfs --------------------------------------------------------------------
25507 void
LAPACK_DECL(sgerfs)25508 LAPACK_DECL(sgerfs)(const char *TRANS,
25509 const INTEGER *N,
25510 const INTEGER *NRHS,
25511 const FLOAT *A,
25512 const INTEGER *LDA,
25513 const FLOAT *AF,
25514 const INTEGER *LDAF,
25515 const INTEGER *IPIV,
25516 const FLOAT *B,
25517 const INTEGER *LDB,
25518 FLOAT *X,
25519 const INTEGER *LDX,
25520 FLOAT *FERR,
25521 FLOAT *BERR,
25522 FLOAT *WORK,
25523 INTEGER *IWORK,
25524 INTEGER *INFO)
25525 {
25526 DEBUG_LAPACK_STUB("sgerfs");
25527 LAPACK_IMPL(sgerfs)(TRANS,
25528 N,
25529 NRHS,
25530 A,
25531 LDA,
25532 AF,
25533 LDAF,
25534 IPIV,
25535 B,
25536 LDB,
25537 X,
25538 LDX,
25539 FERR,
25540 BERR,
25541 WORK,
25542 IWORK,
25543 INFO);
25544 }
25545
25546 //-- sgerfsx -------------------------------------------------------------------
25547 void
LAPACK_DECL(sgerfsx)25548 LAPACK_DECL(sgerfsx)(const char *TRANS,
25549 const char *EQUED,
25550 const INTEGER *N,
25551 const INTEGER *NRHS,
25552 const FLOAT *A,
25553 const INTEGER *LDA,
25554 const FLOAT *AF,
25555 const INTEGER *LDAF,
25556 const INTEGER *IPIV,
25557 const FLOAT *R,
25558 const FLOAT *C,
25559 const FLOAT *B,
25560 const INTEGER *LDB,
25561 FLOAT *X,
25562 const INTEGER *LDX,
25563 FLOAT *RCOND,
25564 FLOAT *BERR,
25565 const INTEGER *N_ERR_BNDS,
25566 FLOAT *ERR_BNDS_NORM,
25567 FLOAT *ERR_BNDS_COMP,
25568 const INTEGER *NPARAMS,
25569 FLOAT *PARAMS,
25570 FLOAT *WORK,
25571 INTEGER *IWORK,
25572 INTEGER *INFO)
25573 {
25574 DEBUG_LAPACK_STUB("sgerfsx");
25575 LAPACK_IMPL(sgerfsx)(TRANS,
25576 EQUED,
25577 N,
25578 NRHS,
25579 A,
25580 LDA,
25581 AF,
25582 LDAF,
25583 IPIV,
25584 R,
25585 C,
25586 B,
25587 LDB,
25588 X,
25589 LDX,
25590 RCOND,
25591 BERR,
25592 N_ERR_BNDS,
25593 ERR_BNDS_NORM,
25594 ERR_BNDS_COMP,
25595 NPARAMS,
25596 PARAMS,
25597 WORK,
25598 IWORK,
25599 INFO);
25600 }
25601
25602 //-- sgerq2 --------------------------------------------------------------------
25603 void
LAPACK_DECL(sgerq2)25604 LAPACK_DECL(sgerq2)(const INTEGER *M,
25605 const INTEGER *N,
25606 FLOAT *A,
25607 const INTEGER *LDA,
25608 FLOAT *TAU,
25609 FLOAT *WORK,
25610 INTEGER *INFO)
25611 {
25612 DEBUG_LAPACK_STUB("sgerq2");
25613 LAPACK_IMPL(sgerq2)(M,
25614 N,
25615 A,
25616 LDA,
25617 TAU,
25618 WORK,
25619 INFO);
25620 }
25621
25622 //-- sgerqf --------------------------------------------------------------------
25623 void
LAPACK_DECL(sgerqf)25624 LAPACK_DECL(sgerqf)(const INTEGER *M,
25625 const INTEGER *N,
25626 FLOAT *A,
25627 const INTEGER *LDA,
25628 FLOAT *TAU,
25629 FLOAT *WORK,
25630 const INTEGER *LWORK,
25631 INTEGER *INFO)
25632 {
25633 DEBUG_LAPACK_STUB("sgerqf");
25634 LAPACK_IMPL(sgerqf)(M,
25635 N,
25636 A,
25637 LDA,
25638 TAU,
25639 WORK,
25640 LWORK,
25641 INFO);
25642 }
25643
25644 //-- sgesc2 --------------------------------------------------------------------
25645 void
LAPACK_DECL(sgesc2)25646 LAPACK_DECL(sgesc2)(const INTEGER *N,
25647 const FLOAT *A,
25648 const INTEGER *LDA,
25649 FLOAT *RHS,
25650 const INTEGER *IPIV,
25651 const INTEGER *JPIV,
25652 FLOAT *SCALE)
25653 {
25654 DEBUG_LAPACK_STUB("sgesc2");
25655 LAPACK_IMPL(sgesc2)(N,
25656 A,
25657 LDA,
25658 RHS,
25659 IPIV,
25660 JPIV,
25661 SCALE);
25662 }
25663
25664 //-- sgesdd --------------------------------------------------------------------
25665 void
LAPACK_DECL(sgesdd)25666 LAPACK_DECL(sgesdd)(const char *JOBZ,
25667 const INTEGER *M,
25668 const INTEGER *N,
25669 FLOAT *A,
25670 const INTEGER *LDA,
25671 FLOAT *S,
25672 FLOAT *U,
25673 const INTEGER *LDU,
25674 FLOAT *VT,
25675 const INTEGER *LDVT,
25676 FLOAT *WORK,
25677 const INTEGER *LWORK,
25678 INTEGER *IWORK,
25679 INTEGER *INFO)
25680 {
25681 DEBUG_LAPACK_STUB("sgesdd");
25682 LAPACK_IMPL(sgesdd)(JOBZ,
25683 M,
25684 N,
25685 A,
25686 LDA,
25687 S,
25688 U,
25689 LDU,
25690 VT,
25691 LDVT,
25692 WORK,
25693 LWORK,
25694 IWORK,
25695 INFO);
25696 }
25697
25698 //-- sgesv ---------------------------------------------------------------------
25699 void
LAPACK_DECL(sgesv)25700 LAPACK_DECL(sgesv)(const INTEGER *N,
25701 const INTEGER *NRHS,
25702 FLOAT *A,
25703 const INTEGER *LDA,
25704 INTEGER *IPIV,
25705 FLOAT *B,
25706 const INTEGER *LDB,
25707 INTEGER *INFO)
25708 {
25709 DEBUG_LAPACK_STUB("sgesv");
25710 LAPACK_IMPL(sgesv)(N,
25711 NRHS,
25712 A,
25713 LDA,
25714 IPIV,
25715 B,
25716 LDB,
25717 INFO);
25718 }
25719
25720 //-- sgesvd --------------------------------------------------------------------
25721 void
LAPACK_DECL(sgesvd)25722 LAPACK_DECL(sgesvd)(const char *JOBU,
25723 const char *JOBVT,
25724 const INTEGER *M,
25725 const INTEGER *N,
25726 FLOAT *A,
25727 const INTEGER *LDA,
25728 FLOAT *S,
25729 FLOAT *U,
25730 const INTEGER *LDU,
25731 FLOAT *VT,
25732 const INTEGER *LDVT,
25733 FLOAT *WORK,
25734 const INTEGER *LWORK,
25735 INTEGER *INFO)
25736 {
25737 DEBUG_LAPACK_STUB("sgesvd");
25738 LAPACK_IMPL(sgesvd)(JOBU,
25739 JOBVT,
25740 M,
25741 N,
25742 A,
25743 LDA,
25744 S,
25745 U,
25746 LDU,
25747 VT,
25748 LDVT,
25749 WORK,
25750 LWORK,
25751 INFO);
25752 }
25753
25754 //-- sgesvj --------------------------------------------------------------------
25755 void
LAPACK_DECL(sgesvj)25756 LAPACK_DECL(sgesvj)(const char *JOBA,
25757 const char *JOBU,
25758 const char *JOBV,
25759 const INTEGER *M,
25760 const INTEGER *N,
25761 FLOAT *A,
25762 const INTEGER *LDA,
25763 FLOAT *SVA,
25764 const INTEGER *MV,
25765 FLOAT *V,
25766 const INTEGER *LDV,
25767 FLOAT *WORK,
25768 const INTEGER *LWORK,
25769 INTEGER *INFO)
25770 {
25771 DEBUG_LAPACK_STUB("sgesvj");
25772 LAPACK_IMPL(sgesvj)(JOBA,
25773 JOBU,
25774 JOBV,
25775 M,
25776 N,
25777 A,
25778 LDA,
25779 SVA,
25780 MV,
25781 V,
25782 LDV,
25783 WORK,
25784 LWORK,
25785 INFO);
25786 }
25787
25788 //-- sgesvx --------------------------------------------------------------------
25789 void
LAPACK_DECL(sgesvx)25790 LAPACK_DECL(sgesvx)(const char *FACT,
25791 const char *TRANS,
25792 const INTEGER *N,
25793 const INTEGER *NRHS,
25794 FLOAT *A,
25795 const INTEGER *LDA,
25796 FLOAT *AF,
25797 const INTEGER *LDAF,
25798 INTEGER *IPIV,
25799 char *EQUED,
25800 FLOAT *R,
25801 FLOAT *C,
25802 FLOAT *B,
25803 const INTEGER *LDB,
25804 FLOAT *X,
25805 const INTEGER *LDX,
25806 FLOAT *RCOND,
25807 FLOAT *FERR,
25808 FLOAT *BERR,
25809 FLOAT *WORK,
25810 INTEGER *IWORK,
25811 INTEGER *INFO)
25812 {
25813 DEBUG_LAPACK_STUB("sgesvx");
25814 LAPACK_IMPL(sgesvx)(FACT,
25815 TRANS,
25816 N,
25817 NRHS,
25818 A,
25819 LDA,
25820 AF,
25821 LDAF,
25822 IPIV,
25823 EQUED,
25824 R,
25825 C,
25826 B,
25827 LDB,
25828 X,
25829 LDX,
25830 RCOND,
25831 FERR,
25832 BERR,
25833 WORK,
25834 IWORK,
25835 INFO);
25836 }
25837
25838 //-- sgesvxx -------------------------------------------------------------------
25839 void
LAPACK_DECL(sgesvxx)25840 LAPACK_DECL(sgesvxx)(const char *FACT,
25841 const char *TRANS,
25842 const INTEGER *N,
25843 const INTEGER *NRHS,
25844 FLOAT *A,
25845 const INTEGER *LDA,
25846 FLOAT *AF,
25847 const INTEGER *LDAF,
25848 INTEGER *IPIV,
25849 char *EQUED,
25850 FLOAT *R,
25851 FLOAT *C,
25852 FLOAT *B,
25853 const INTEGER *LDB,
25854 FLOAT *X,
25855 const INTEGER *LDX,
25856 FLOAT *RCOND,
25857 FLOAT *RPVGRW,
25858 FLOAT *BERR,
25859 const INTEGER *N_ERR_BNDS,
25860 FLOAT *ERR_BNDS_NORM,
25861 FLOAT *ERR_BNDS_COMP,
25862 const INTEGER *NPARAMS,
25863 FLOAT *PARAMS,
25864 FLOAT *WORK,
25865 INTEGER *IWORK,
25866 INTEGER *INFO)
25867 {
25868 DEBUG_LAPACK_STUB("sgesvxx");
25869 LAPACK_IMPL(sgesvxx)(FACT,
25870 TRANS,
25871 N,
25872 NRHS,
25873 A,
25874 LDA,
25875 AF,
25876 LDAF,
25877 IPIV,
25878 EQUED,
25879 R,
25880 C,
25881 B,
25882 LDB,
25883 X,
25884 LDX,
25885 RCOND,
25886 RPVGRW,
25887 BERR,
25888 N_ERR_BNDS,
25889 ERR_BNDS_NORM,
25890 ERR_BNDS_COMP,
25891 NPARAMS,
25892 PARAMS,
25893 WORK,
25894 IWORK,
25895 INFO);
25896 }
25897
25898 //-- sgetc2 --------------------------------------------------------------------
25899 void
LAPACK_DECL(sgetc2)25900 LAPACK_DECL(sgetc2)(const INTEGER *N,
25901 FLOAT *A,
25902 const INTEGER *LDA,
25903 INTEGER *IPIV,
25904 INTEGER *JPIV,
25905 INTEGER *INFO)
25906 {
25907 DEBUG_LAPACK_STUB("sgetc2");
25908 LAPACK_IMPL(sgetc2)(N,
25909 A,
25910 LDA,
25911 IPIV,
25912 JPIV,
25913 INFO);
25914 }
25915
25916 //-- sgetf2 --------------------------------------------------------------------
25917 void
LAPACK_DECL(sgetf2)25918 LAPACK_DECL(sgetf2)(const INTEGER *M,
25919 const INTEGER *N,
25920 FLOAT *A,
25921 const INTEGER *LDA,
25922 INTEGER *IPIV,
25923 INTEGER *INFO)
25924 {
25925 DEBUG_LAPACK_STUB("sgetf2");
25926 LAPACK_IMPL(sgetf2)(M,
25927 N,
25928 A,
25929 LDA,
25930 IPIV,
25931 INFO);
25932 }
25933
25934 //-- sgetrf --------------------------------------------------------------------
25935 void
LAPACK_DECL(sgetrf)25936 LAPACK_DECL(sgetrf)(const INTEGER *M,
25937 const INTEGER *N,
25938 FLOAT *A,
25939 const INTEGER *LDA,
25940 INTEGER *IPIV,
25941 INTEGER *INFO)
25942 {
25943 DEBUG_LAPACK_STUB("sgetrf");
25944 LAPACK_IMPL(sgetrf)(M,
25945 N,
25946 A,
25947 LDA,
25948 IPIV,
25949 INFO);
25950 }
25951
25952 //-- sgetri --------------------------------------------------------------------
25953 void
LAPACK_DECL(sgetri)25954 LAPACK_DECL(sgetri)(const INTEGER *N,
25955 FLOAT *A,
25956 const INTEGER *LDA,
25957 const INTEGER *IPIV,
25958 FLOAT *WORK,
25959 const INTEGER *LWORK,
25960 INTEGER *INFO)
25961 {
25962 DEBUG_LAPACK_STUB("sgetri");
25963 LAPACK_IMPL(sgetri)(N,
25964 A,
25965 LDA,
25966 IPIV,
25967 WORK,
25968 LWORK,
25969 INFO);
25970 }
25971
25972 //-- sgetrs --------------------------------------------------------------------
25973 void
LAPACK_DECL(sgetrs)25974 LAPACK_DECL(sgetrs)(const char *TRANS,
25975 const INTEGER *N,
25976 const INTEGER *NRHS,
25977 const FLOAT *A,
25978 const INTEGER *LDA,
25979 const INTEGER *IPIV,
25980 FLOAT *B,
25981 const INTEGER *LDB,
25982 INTEGER *INFO)
25983 {
25984 DEBUG_LAPACK_STUB("sgetrs");
25985 LAPACK_IMPL(sgetrs)(TRANS,
25986 N,
25987 NRHS,
25988 A,
25989 LDA,
25990 IPIV,
25991 B,
25992 LDB,
25993 INFO);
25994 }
25995
25996 //-- sggbak --------------------------------------------------------------------
25997 void
LAPACK_DECL(sggbak)25998 LAPACK_DECL(sggbak)(const char *JOB,
25999 const char *SIDE,
26000 const INTEGER *N,
26001 const INTEGER *ILO,
26002 const INTEGER *IHI,
26003 const FLOAT *LSCALE,
26004 const FLOAT *RSCALE,
26005 const INTEGER *M,
26006 FLOAT *V,
26007 const INTEGER *LDV,
26008 INTEGER *INFO)
26009 {
26010 DEBUG_LAPACK_STUB("sggbak");
26011 LAPACK_IMPL(sggbak)(JOB,
26012 SIDE,
26013 N,
26014 ILO,
26015 IHI,
26016 LSCALE,
26017 RSCALE,
26018 M,
26019 V,
26020 LDV,
26021 INFO);
26022 }
26023
26024 //-- sggbal --------------------------------------------------------------------
26025 void
LAPACK_DECL(sggbal)26026 LAPACK_DECL(sggbal)(const char *JOB,
26027 const INTEGER *N,
26028 FLOAT *A,
26029 const INTEGER *LDA,
26030 FLOAT *B,
26031 const INTEGER *LDB,
26032 INTEGER *ILO,
26033 INTEGER *IHI,
26034 FLOAT *LSCALE,
26035 FLOAT *RSCALE,
26036 FLOAT *WORK,
26037 INTEGER *INFO)
26038 {
26039 DEBUG_LAPACK_STUB("sggbal");
26040 LAPACK_IMPL(sggbal)(JOB,
26041 N,
26042 A,
26043 LDA,
26044 B,
26045 LDB,
26046 ILO,
26047 IHI,
26048 LSCALE,
26049 RSCALE,
26050 WORK,
26051 INFO);
26052 }
26053
26054 //-- sgges ---------------------------------------------------------------------
26055 void
LAPACK_DECL(sgges)26056 LAPACK_DECL(sgges)(const char *JOBVSL,
26057 const char *JOBVSR,
26058 const char *SORT,
26059 const LOGICAL *SELCTG,
26060 const INTEGER *N,
26061 FLOAT *A,
26062 const INTEGER *LDA,
26063 FLOAT *B,
26064 const INTEGER *LDB,
26065 INTEGER *SDIM,
26066 FLOAT *ALPHAR,
26067 FLOAT *ALPHAI,
26068 FLOAT *BETA,
26069 FLOAT *VSL,
26070 const INTEGER *LDVSL,
26071 FLOAT *VSR,
26072 const INTEGER *LDVSR,
26073 FLOAT *WORK,
26074 const INTEGER *LWORK,
26075 LOGICAL *BWORK,
26076 INTEGER *INFO)
26077 {
26078 DEBUG_LAPACK_STUB("sgges");
26079 LAPACK_IMPL(sgges)(JOBVSL,
26080 JOBVSR,
26081 SORT,
26082 SELCTG,
26083 N,
26084 A,
26085 LDA,
26086 B,
26087 LDB,
26088 SDIM,
26089 ALPHAR,
26090 ALPHAI,
26091 BETA,
26092 VSL,
26093 LDVSL,
26094 VSR,
26095 LDVSR,
26096 WORK,
26097 LWORK,
26098 BWORK,
26099 INFO);
26100 }
26101
26102 //-- sggesx --------------------------------------------------------------------
26103 void
LAPACK_DECL(sggesx)26104 LAPACK_DECL(sggesx)(const char *JOBVSL,
26105 const char *JOBVSR,
26106 const char *SORT,
26107 const LOGICAL *SELCTG,
26108 const char *SENSE,
26109 const INTEGER *N,
26110 FLOAT *A,
26111 const INTEGER *LDA,
26112 FLOAT *B,
26113 const INTEGER *LDB,
26114 INTEGER *SDIM,
26115 FLOAT *ALPHAR,
26116 FLOAT *ALPHAI,
26117 FLOAT *BETA,
26118 FLOAT *VSL,
26119 const INTEGER *LDVSL,
26120 FLOAT *VSR,
26121 const INTEGER *LDVSR,
26122 FLOAT *RCONDE,
26123 FLOAT *RCONDV,
26124 FLOAT *WORK,
26125 const INTEGER *LWORK,
26126 INTEGER *IWORK,
26127 const INTEGER *LIWORK,
26128 LOGICAL *BWORK,
26129 INTEGER *INFO)
26130 {
26131 DEBUG_LAPACK_STUB("sggesx");
26132 LAPACK_IMPL(sggesx)(JOBVSL,
26133 JOBVSR,
26134 SORT,
26135 SELCTG,
26136 SENSE,
26137 N,
26138 A,
26139 LDA,
26140 B,
26141 LDB,
26142 SDIM,
26143 ALPHAR,
26144 ALPHAI,
26145 BETA,
26146 VSL,
26147 LDVSL,
26148 VSR,
26149 LDVSR,
26150 RCONDE,
26151 RCONDV,
26152 WORK,
26153 LWORK,
26154 IWORK,
26155 LIWORK,
26156 BWORK,
26157 INFO);
26158 }
26159
26160 //-- sggev ---------------------------------------------------------------------
26161 void
LAPACK_DECL(sggev)26162 LAPACK_DECL(sggev)(const char *JOBVL,
26163 const char *JOBVR,
26164 const INTEGER *N,
26165 FLOAT *A,
26166 const INTEGER *LDA,
26167 FLOAT *B,
26168 const INTEGER *LDB,
26169 FLOAT *ALPHAR,
26170 FLOAT *ALPHAI,
26171 FLOAT *BETA,
26172 FLOAT *VL,
26173 const INTEGER *LDVL,
26174 FLOAT *VR,
26175 const INTEGER *LDVR,
26176 FLOAT *WORK,
26177 const INTEGER *LWORK,
26178 INTEGER *INFO)
26179 {
26180 DEBUG_LAPACK_STUB("sggev");
26181 LAPACK_IMPL(sggev)(JOBVL,
26182 JOBVR,
26183 N,
26184 A,
26185 LDA,
26186 B,
26187 LDB,
26188 ALPHAR,
26189 ALPHAI,
26190 BETA,
26191 VL,
26192 LDVL,
26193 VR,
26194 LDVR,
26195 WORK,
26196 LWORK,
26197 INFO);
26198 }
26199
26200 //-- sggevx --------------------------------------------------------------------
26201 void
LAPACK_DECL(sggevx)26202 LAPACK_DECL(sggevx)(const char *BALANC,
26203 const char *JOBVL,
26204 const char *JOBVR,
26205 const char *SENSE,
26206 const INTEGER *N,
26207 FLOAT *A,
26208 const INTEGER *LDA,
26209 FLOAT *B,
26210 const INTEGER *LDB,
26211 FLOAT *ALPHAR,
26212 FLOAT *ALPHAI,
26213 FLOAT *BETA,
26214 FLOAT *VL,
26215 const INTEGER *LDVL,
26216 FLOAT *VR,
26217 const INTEGER *LDVR,
26218 INTEGER *ILO,
26219 INTEGER *IHI,
26220 FLOAT *LSCALE,
26221 FLOAT *RSCALE,
26222 FLOAT *ABNRM,
26223 FLOAT *BBNRM,
26224 FLOAT *RCONDE,
26225 FLOAT *RCONDV,
26226 FLOAT *WORK,
26227 const INTEGER *LWORK,
26228 INTEGER *IWORK,
26229 LOGICAL *BWORK,
26230 INTEGER *INFO)
26231 {
26232 DEBUG_LAPACK_STUB("sggevx");
26233 LAPACK_IMPL(sggevx)(BALANC,
26234 JOBVL,
26235 JOBVR,
26236 SENSE,
26237 N,
26238 A,
26239 LDA,
26240 B,
26241 LDB,
26242 ALPHAR,
26243 ALPHAI,
26244 BETA,
26245 VL,
26246 LDVL,
26247 VR,
26248 LDVR,
26249 ILO,
26250 IHI,
26251 LSCALE,
26252 RSCALE,
26253 ABNRM,
26254 BBNRM,
26255 RCONDE,
26256 RCONDV,
26257 WORK,
26258 LWORK,
26259 IWORK,
26260 BWORK,
26261 INFO);
26262 }
26263
26264 //-- sggglm --------------------------------------------------------------------
26265 void
LAPACK_DECL(sggglm)26266 LAPACK_DECL(sggglm)(const INTEGER *N,
26267 const INTEGER *M,
26268 const INTEGER *P,
26269 FLOAT *A,
26270 const INTEGER *LDA,
26271 FLOAT *B,
26272 const INTEGER *LDB,
26273 FLOAT *D,
26274 FLOAT *X,
26275 FLOAT *Y,
26276 FLOAT *WORK,
26277 const INTEGER *LWORK,
26278 INTEGER *INFO)
26279 {
26280 DEBUG_LAPACK_STUB("sggglm");
26281 LAPACK_IMPL(sggglm)(N,
26282 M,
26283 P,
26284 A,
26285 LDA,
26286 B,
26287 LDB,
26288 D,
26289 X,
26290 Y,
26291 WORK,
26292 LWORK,
26293 INFO);
26294 }
26295
26296 //-- sgghrd --------------------------------------------------------------------
26297 void
LAPACK_DECL(sgghrd)26298 LAPACK_DECL(sgghrd)(const char *COMPQ,
26299 const char *COMPZ,
26300 const INTEGER *N,
26301 const INTEGER *ILO,
26302 const INTEGER *IHI,
26303 FLOAT *A,
26304 const INTEGER *LDA,
26305 FLOAT *B,
26306 const INTEGER *LDB,
26307 FLOAT *Q,
26308 const INTEGER *LDQ,
26309 FLOAT *Z,
26310 const INTEGER *LDZ,
26311 INTEGER *INFO)
26312 {
26313 DEBUG_LAPACK_STUB("sgghrd");
26314 LAPACK_IMPL(sgghrd)(COMPQ,
26315 COMPZ,
26316 N,
26317 ILO,
26318 IHI,
26319 A,
26320 LDA,
26321 B,
26322 LDB,
26323 Q,
26324 LDQ,
26325 Z,
26326 LDZ,
26327 INFO);
26328 }
26329
26330 //-- sgglse --------------------------------------------------------------------
26331 void
LAPACK_DECL(sgglse)26332 LAPACK_DECL(sgglse)(const INTEGER *M,
26333 const INTEGER *N,
26334 const INTEGER *P,
26335 FLOAT *A,
26336 const INTEGER *LDA,
26337 FLOAT *B,
26338 const INTEGER *LDB,
26339 FLOAT *C,
26340 FLOAT *D,
26341 FLOAT *X,
26342 FLOAT *WORK,
26343 const INTEGER *LWORK,
26344 INTEGER *INFO)
26345 {
26346 DEBUG_LAPACK_STUB("sgglse");
26347 LAPACK_IMPL(sgglse)(M,
26348 N,
26349 P,
26350 A,
26351 LDA,
26352 B,
26353 LDB,
26354 C,
26355 D,
26356 X,
26357 WORK,
26358 LWORK,
26359 INFO);
26360 }
26361
26362 //-- sggqrf --------------------------------------------------------------------
26363 void
LAPACK_DECL(sggqrf)26364 LAPACK_DECL(sggqrf)(const INTEGER *N,
26365 const INTEGER *M,
26366 const INTEGER *P,
26367 FLOAT *A,
26368 const INTEGER *LDA,
26369 FLOAT *TAUA,
26370 FLOAT *B,
26371 const INTEGER *LDB,
26372 FLOAT *TAUB,
26373 FLOAT *WORK,
26374 const INTEGER *LWORK,
26375 INTEGER *INFO)
26376 {
26377 DEBUG_LAPACK_STUB("sggqrf");
26378 LAPACK_IMPL(sggqrf)(N,
26379 M,
26380 P,
26381 A,
26382 LDA,
26383 TAUA,
26384 B,
26385 LDB,
26386 TAUB,
26387 WORK,
26388 LWORK,
26389 INFO);
26390 }
26391
26392 //-- sggrqf --------------------------------------------------------------------
26393 void
LAPACK_DECL(sggrqf)26394 LAPACK_DECL(sggrqf)(const INTEGER *M,
26395 const INTEGER *P,
26396 const INTEGER *N,
26397 FLOAT *A,
26398 const INTEGER *LDA,
26399 FLOAT *TAUA,
26400 FLOAT *B,
26401 const INTEGER *LDB,
26402 FLOAT *TAUB,
26403 FLOAT *WORK,
26404 const INTEGER *LWORK,
26405 INTEGER *INFO)
26406 {
26407 DEBUG_LAPACK_STUB("sggrqf");
26408 LAPACK_IMPL(sggrqf)(M,
26409 P,
26410 N,
26411 A,
26412 LDA,
26413 TAUA,
26414 B,
26415 LDB,
26416 TAUB,
26417 WORK,
26418 LWORK,
26419 INFO);
26420 }
26421
26422 //-- sggsvd --------------------------------------------------------------------
26423 void
LAPACK_DECL(sggsvd)26424 LAPACK_DECL(sggsvd)(const char *JOBU,
26425 const char *JOBV,
26426 const char *JOBQ,
26427 const INTEGER *M,
26428 const INTEGER *N,
26429 const INTEGER *P,
26430 INTEGER *K,
26431 INTEGER *L,
26432 FLOAT *A,
26433 const INTEGER *LDA,
26434 FLOAT *B,
26435 const INTEGER *LDB,
26436 FLOAT *ALPHA,
26437 FLOAT *BETA,
26438 FLOAT *U,
26439 const INTEGER *LDU,
26440 FLOAT *V,
26441 const INTEGER *LDV,
26442 FLOAT *Q,
26443 const INTEGER *LDQ,
26444 FLOAT *WORK,
26445 INTEGER *IWORK,
26446 INTEGER *INFO)
26447 {
26448 DEBUG_LAPACK_STUB("sggsvd");
26449 LAPACK_IMPL(sggsvd)(JOBU,
26450 JOBV,
26451 JOBQ,
26452 M,
26453 N,
26454 P,
26455 K,
26456 L,
26457 A,
26458 LDA,
26459 B,
26460 LDB,
26461 ALPHA,
26462 BETA,
26463 U,
26464 LDU,
26465 V,
26466 LDV,
26467 Q,
26468 LDQ,
26469 WORK,
26470 IWORK,
26471 INFO);
26472 }
26473
26474 //-- sggsvp --------------------------------------------------------------------
26475 void
LAPACK_DECL(sggsvp)26476 LAPACK_DECL(sggsvp)(const char *JOBU,
26477 const char *JOBV,
26478 const char *JOBQ,
26479 const INTEGER *M,
26480 const INTEGER *P,
26481 const INTEGER *N,
26482 FLOAT *A,
26483 const INTEGER *LDA,
26484 FLOAT *B,
26485 const INTEGER *LDB,
26486 const FLOAT *TOLA,
26487 const FLOAT *TOLB,
26488 INTEGER *K,
26489 INTEGER *L,
26490 FLOAT *U,
26491 const INTEGER *LDU,
26492 FLOAT *V,
26493 const INTEGER *LDV,
26494 FLOAT *Q,
26495 const INTEGER *LDQ,
26496 INTEGER *IWORK,
26497 FLOAT *TAU,
26498 FLOAT *WORK,
26499 INTEGER *INFO)
26500 {
26501 DEBUG_LAPACK_STUB("sggsvp");
26502 LAPACK_IMPL(sggsvp)(JOBU,
26503 JOBV,
26504 JOBQ,
26505 M,
26506 P,
26507 N,
26508 A,
26509 LDA,
26510 B,
26511 LDB,
26512 TOLA,
26513 TOLB,
26514 K,
26515 L,
26516 U,
26517 LDU,
26518 V,
26519 LDV,
26520 Q,
26521 LDQ,
26522 IWORK,
26523 TAU,
26524 WORK,
26525 INFO);
26526 }
26527
26528 //-- sgsvj0 --------------------------------------------------------------------
26529 void
LAPACK_DECL(sgsvj0)26530 LAPACK_DECL(sgsvj0)(const char *JOBV,
26531 const INTEGER *M,
26532 const INTEGER *N,
26533 FLOAT *A,
26534 const INTEGER *LDA,
26535 FLOAT *D,
26536 FLOAT *SVA,
26537 const INTEGER *MV,
26538 FLOAT *V,
26539 const INTEGER *LDV,
26540 const FLOAT *EPS,
26541 const FLOAT *SFMIN,
26542 const FLOAT *TOL,
26543 const INTEGER *NSWEEP,
26544 FLOAT *WORK,
26545 const INTEGER *LWORK,
26546 INTEGER *INFO)
26547 {
26548 DEBUG_LAPACK_STUB("sgsvj0");
26549 LAPACK_IMPL(sgsvj0)(JOBV,
26550 M,
26551 N,
26552 A,
26553 LDA,
26554 D,
26555 SVA,
26556 MV,
26557 V,
26558 LDV,
26559 EPS,
26560 SFMIN,
26561 TOL,
26562 NSWEEP,
26563 WORK,
26564 LWORK,
26565 INFO);
26566 }
26567
26568 //-- sgsvj1 --------------------------------------------------------------------
26569 void
LAPACK_DECL(sgsvj1)26570 LAPACK_DECL(sgsvj1)(const char *JOBV,
26571 const INTEGER *M,
26572 const INTEGER *N,
26573 const INTEGER *N1,
26574 FLOAT *A,
26575 const INTEGER *LDA,
26576 FLOAT *D,
26577 FLOAT *SVA,
26578 const INTEGER *MV,
26579 FLOAT *V,
26580 const INTEGER *LDV,
26581 const FLOAT *EPS,
26582 const FLOAT *SFMIN,
26583 const FLOAT *TOL,
26584 const INTEGER *NSWEEP,
26585 FLOAT *WORK,
26586 const INTEGER *LWORK,
26587 INTEGER *INFO)
26588 {
26589 DEBUG_LAPACK_STUB("sgsvj1");
26590 LAPACK_IMPL(sgsvj1)(JOBV,
26591 M,
26592 N,
26593 N1,
26594 A,
26595 LDA,
26596 D,
26597 SVA,
26598 MV,
26599 V,
26600 LDV,
26601 EPS,
26602 SFMIN,
26603 TOL,
26604 NSWEEP,
26605 WORK,
26606 LWORK,
26607 INFO);
26608 }
26609
26610 //-- sgtcon --------------------------------------------------------------------
26611 void
LAPACK_DECL(sgtcon)26612 LAPACK_DECL(sgtcon)(const char *NORM,
26613 const INTEGER *N,
26614 const FLOAT *DL,
26615 const FLOAT *D,
26616 const FLOAT *DU,
26617 const FLOAT *DU2,
26618 const INTEGER *IPIV,
26619 const FLOAT *ANORM,
26620 FLOAT *RCOND,
26621 FLOAT *WORK,
26622 INTEGER *IWORK,
26623 INTEGER *INFO)
26624 {
26625 DEBUG_LAPACK_STUB("sgtcon");
26626 LAPACK_IMPL(sgtcon)(NORM,
26627 N,
26628 DL,
26629 D,
26630 DU,
26631 DU2,
26632 IPIV,
26633 ANORM,
26634 RCOND,
26635 WORK,
26636 IWORK,
26637 INFO);
26638 }
26639
26640 //-- sgtrfs --------------------------------------------------------------------
26641 void
LAPACK_DECL(sgtrfs)26642 LAPACK_DECL(sgtrfs)(const char *TRANS,
26643 const INTEGER *N,
26644 const INTEGER *NRHS,
26645 const FLOAT *DL,
26646 const FLOAT *D,
26647 const FLOAT *DU,
26648 const FLOAT *DLF,
26649 const FLOAT *DF,
26650 const FLOAT *DUF,
26651 const FLOAT *DU2,
26652 const INTEGER *IPIV,
26653 const FLOAT *B,
26654 const INTEGER *LDB,
26655 FLOAT *X,
26656 const INTEGER *LDX,
26657 FLOAT *FERR,
26658 FLOAT *BERR,
26659 FLOAT *WORK,
26660 INTEGER *IWORK,
26661 INTEGER *INFO)
26662 {
26663 DEBUG_LAPACK_STUB("sgtrfs");
26664 LAPACK_IMPL(sgtrfs)(TRANS,
26665 N,
26666 NRHS,
26667 DL,
26668 D,
26669 DU,
26670 DLF,
26671 DF,
26672 DUF,
26673 DU2,
26674 IPIV,
26675 B,
26676 LDB,
26677 X,
26678 LDX,
26679 FERR,
26680 BERR,
26681 WORK,
26682 IWORK,
26683 INFO);
26684 }
26685
26686 //-- sgtsv ---------------------------------------------------------------------
26687 void
LAPACK_DECL(sgtsv)26688 LAPACK_DECL(sgtsv)(const INTEGER *N,
26689 const INTEGER *NRHS,
26690 FLOAT *DL,
26691 FLOAT *D,
26692 FLOAT *DU,
26693 FLOAT *B,
26694 const INTEGER *LDB,
26695 INTEGER *INFO)
26696 {
26697 DEBUG_LAPACK_STUB("sgtsv");
26698 LAPACK_IMPL(sgtsv)(N,
26699 NRHS,
26700 DL,
26701 D,
26702 DU,
26703 B,
26704 LDB,
26705 INFO);
26706 }
26707
26708 //-- sgtsvx --------------------------------------------------------------------
26709 void
LAPACK_DECL(sgtsvx)26710 LAPACK_DECL(sgtsvx)(const char *FACT,
26711 const char *TRANS,
26712 const INTEGER *N,
26713 const INTEGER *NRHS,
26714 const FLOAT *DL,
26715 const FLOAT *D,
26716 const FLOAT *DU,
26717 FLOAT *DLF,
26718 FLOAT *DF,
26719 FLOAT *DUF,
26720 FLOAT *DU2,
26721 INTEGER *IPIV,
26722 const FLOAT *B,
26723 const INTEGER *LDB,
26724 FLOAT *X,
26725 const INTEGER *LDX,
26726 FLOAT *RCOND,
26727 FLOAT *FERR,
26728 FLOAT *BERR,
26729 FLOAT *WORK,
26730 INTEGER *IWORK,
26731 INTEGER *INFO)
26732 {
26733 DEBUG_LAPACK_STUB("sgtsvx");
26734 LAPACK_IMPL(sgtsvx)(FACT,
26735 TRANS,
26736 N,
26737 NRHS,
26738 DL,
26739 D,
26740 DU,
26741 DLF,
26742 DF,
26743 DUF,
26744 DU2,
26745 IPIV,
26746 B,
26747 LDB,
26748 X,
26749 LDX,
26750 RCOND,
26751 FERR,
26752 BERR,
26753 WORK,
26754 IWORK,
26755 INFO);
26756 }
26757
26758 //-- sgttrf --------------------------------------------------------------------
26759 void
LAPACK_DECL(sgttrf)26760 LAPACK_DECL(sgttrf)(const INTEGER *N,
26761 FLOAT *DL,
26762 FLOAT *D,
26763 FLOAT *DU,
26764 FLOAT *DU2,
26765 INTEGER *IPIV,
26766 INTEGER *INFO)
26767 {
26768 DEBUG_LAPACK_STUB("sgttrf");
26769 LAPACK_IMPL(sgttrf)(N,
26770 DL,
26771 D,
26772 DU,
26773 DU2,
26774 IPIV,
26775 INFO);
26776 }
26777
26778 //-- sgttrs --------------------------------------------------------------------
26779 void
LAPACK_DECL(sgttrs)26780 LAPACK_DECL(sgttrs)(const char *TRANS,
26781 const INTEGER *N,
26782 const INTEGER *NRHS,
26783 const FLOAT *DL,
26784 const FLOAT *D,
26785 const FLOAT *DU,
26786 const FLOAT *DU2,
26787 const INTEGER *IPIV,
26788 FLOAT *B,
26789 const INTEGER *LDB,
26790 INTEGER *INFO)
26791 {
26792 DEBUG_LAPACK_STUB("sgttrs");
26793 LAPACK_IMPL(sgttrs)(TRANS,
26794 N,
26795 NRHS,
26796 DL,
26797 D,
26798 DU,
26799 DU2,
26800 IPIV,
26801 B,
26802 LDB,
26803 INFO);
26804 }
26805
26806 //-- sgtts2 --------------------------------------------------------------------
26807 void
LAPACK_DECL(sgtts2)26808 LAPACK_DECL(sgtts2)(const INTEGER *ITRANS,
26809 const INTEGER *N,
26810 const INTEGER *NRHS,
26811 const FLOAT *DL,
26812 const FLOAT *D,
26813 const FLOAT *DU,
26814 const FLOAT *DU2,
26815 const INTEGER *IPIV,
26816 FLOAT *B,
26817 const INTEGER *LDB)
26818 {
26819 DEBUG_LAPACK_STUB("sgtts2");
26820 LAPACK_IMPL(sgtts2)(ITRANS,
26821 N,
26822 NRHS,
26823 DL,
26824 D,
26825 DU,
26826 DU2,
26827 IPIV,
26828 B,
26829 LDB);
26830 }
26831
26832 //-- shgeqz --------------------------------------------------------------------
26833 void
LAPACK_DECL(shgeqz)26834 LAPACK_DECL(shgeqz)(const char *JOB,
26835 const char *COMPQ,
26836 const char *COMPZ,
26837 const INTEGER *N,
26838 const INTEGER *ILO,
26839 const INTEGER *IHI,
26840 FLOAT *H,
26841 const INTEGER *LDH,
26842 FLOAT *T,
26843 const INTEGER *LDT,
26844 FLOAT *ALPHAR,
26845 FLOAT *ALPHAI,
26846 FLOAT *BETA,
26847 FLOAT *Q,
26848 const INTEGER *LDQ,
26849 FLOAT *Z,
26850 const INTEGER *LDZ,
26851 FLOAT *WORK,
26852 const INTEGER *LWORK,
26853 INTEGER *INFO)
26854 {
26855 DEBUG_LAPACK_STUB("shgeqz");
26856 LAPACK_IMPL(shgeqz)(JOB,
26857 COMPQ,
26858 COMPZ,
26859 N,
26860 ILO,
26861 IHI,
26862 H,
26863 LDH,
26864 T,
26865 LDT,
26866 ALPHAR,
26867 ALPHAI,
26868 BETA,
26869 Q,
26870 LDQ,
26871 Z,
26872 LDZ,
26873 WORK,
26874 LWORK,
26875 INFO);
26876 }
26877
26878 //-- shsein --------------------------------------------------------------------
26879 void
LAPACK_DECL(shsein)26880 LAPACK_DECL(shsein)(const char *SIDE,
26881 const char *EIGSRC,
26882 const char *INITV,
26883 LOGICAL *SELECT,
26884 const INTEGER *N,
26885 const FLOAT *H,
26886 const INTEGER *LDH,
26887 FLOAT *WR,
26888 const FLOAT *WI,
26889 FLOAT *VL,
26890 const INTEGER *LDVL,
26891 FLOAT *VR,
26892 const INTEGER *LDVR,
26893 const INTEGER *MM,
26894 INTEGER *M,
26895 FLOAT *WORK,
26896 INTEGER *IFAILL,
26897 INTEGER *IFAILR,
26898 INTEGER *INFO)
26899 {
26900 DEBUG_LAPACK_STUB("shsein");
26901 LAPACK_IMPL(shsein)(SIDE,
26902 EIGSRC,
26903 INITV,
26904 SELECT,
26905 N,
26906 H,
26907 LDH,
26908 WR,
26909 WI,
26910 VL,
26911 LDVL,
26912 VR,
26913 LDVR,
26914 MM,
26915 M,
26916 WORK,
26917 IFAILL,
26918 IFAILR,
26919 INFO);
26920 }
26921
26922 //-- shseqr --------------------------------------------------------------------
26923 void
LAPACK_DECL(shseqr)26924 LAPACK_DECL(shseqr)(const char *JOB,
26925 const char *COMPZ,
26926 const INTEGER *N,
26927 const INTEGER *ILO,
26928 const INTEGER *IHI,
26929 FLOAT *H,
26930 const INTEGER *LDH,
26931 FLOAT *WR,
26932 FLOAT *WI,
26933 FLOAT *Z,
26934 const INTEGER *LDZ,
26935 FLOAT *WORK,
26936 const INTEGER *LWORK,
26937 INTEGER *INFO)
26938 {
26939 DEBUG_LAPACK_STUB("shseqr");
26940 LAPACK_IMPL(shseqr)(JOB,
26941 COMPZ,
26942 N,
26943 ILO,
26944 IHI,
26945 H,
26946 LDH,
26947 WR,
26948 WI,
26949 Z,
26950 LDZ,
26951 WORK,
26952 LWORK,
26953 INFO);
26954 }
26955
26956 //-- sisnan --------------------------------------------------------------------
26957 LOGICAL
LAPACK_DECL(sisnan)26958 LAPACK_DECL(sisnan)(const FLOAT *SIN)
26959 {
26960 DEBUG_LAPACK_STUB("sisnan");
26961 return LAPACK_IMPL(sisnan)(SIN);
26962 }
26963
26964 //-- sla_gbamv -----------------------------------------------------------------
26965 void
LAPACK_DECL(sla_gbamv)26966 LAPACK_DECL(sla_gbamv)(const INTEGER *TRANS,
26967 const INTEGER *M,
26968 const INTEGER *N,
26969 const INTEGER *KL,
26970 const INTEGER *KU,
26971 const FLOAT *ALPHA,
26972 const FLOAT *AB,
26973 const INTEGER *LDAB,
26974 const FLOAT *X,
26975 const INTEGER *INCX,
26976 const FLOAT *BETA,
26977 FLOAT *Y,
26978 const INTEGER *INCY)
26979 {
26980 DEBUG_LAPACK_STUB("sla_gbamv");
26981 LAPACK_IMPL(sla_gbamv)(TRANS,
26982 M,
26983 N,
26984 KL,
26985 KU,
26986 ALPHA,
26987 AB,
26988 LDAB,
26989 X,
26990 INCX,
26991 BETA,
26992 Y,
26993 INCY);
26994 }
26995
26996 //-- sla_gbrcond ---------------------------------------------------------------
26997 FLOAT
LAPACK_DECL(sla_gbrcond)26998 LAPACK_DECL(sla_gbrcond)(const char *TRANS,
26999 const INTEGER *N,
27000 const INTEGER *KL,
27001 const INTEGER *KU,
27002 const FLOAT *AB,
27003 const INTEGER *LDAB,
27004 const FLOAT *AFB,
27005 const INTEGER *LDAFB,
27006 const INTEGER *IPIV,
27007 const INTEGER *CMODE,
27008 const FLOAT *C,
27009 INTEGER *INFO,
27010 const FLOAT *WORK,
27011 const INTEGER *IWORK)
27012 {
27013 DEBUG_LAPACK_STUB("sla_gbrcond");
27014 return LAPACK_IMPL(sla_gbrcond)(TRANS,
27015 N,
27016 KL,
27017 KU,
27018 AB,
27019 LDAB,
27020 AFB,
27021 LDAFB,
27022 IPIV,
27023 CMODE,
27024 C,
27025 INFO,
27026 WORK,
27027 IWORK);
27028 }
27029
27030 //-- sla_gbrfsx_extended -------------------------------------------------------
27031 void
LAPACK_DECL(sla_gbrfsx_extended)27032 LAPACK_DECL(sla_gbrfsx_extended)(const INTEGER *PREC_TYPE,
27033 const INTEGER *TRANS_TYPE,
27034 const INTEGER *N,
27035 const INTEGER *KL,
27036 const INTEGER *KU,
27037 const INTEGER *NRHS,
27038 const FLOAT *AB,
27039 const INTEGER *LDAB,
27040 const FLOAT *AFB,
27041 const INTEGER *LDAFB,
27042 const INTEGER *IPIV,
27043 const LOGICAL *COLEQU,
27044 const FLOAT *C,
27045 const FLOAT *B,
27046 const INTEGER *LDB,
27047 FLOAT *Y,
27048 const INTEGER *LDY,
27049 FLOAT *BERR_OUT,
27050 const INTEGER *N_NORMS,
27051 FLOAT *ERR_BNDS_NORM,
27052 FLOAT *ERR_BNDS_COMP,
27053 const FLOAT *RES,
27054 const FLOAT *AYB,
27055 const FLOAT *DY,
27056 const FLOAT *Y_TAIL,
27057 const FLOAT *RCOND,
27058 const INTEGER *ITHRESH,
27059 const FLOAT *RTHRESH,
27060 const FLOAT *DZ_UB,
27061 const LOGICAL *IGNORE_CWISE,
27062 INTEGER *INFO)
27063 {
27064 DEBUG_LAPACK_STUB("sla_gbrfsx_extended");
27065 ASSERT(0);
27066 /*
27067 LAPACK_IMPL(sla_gbrfsx_extended)(PREC_TYPE,
27068 TRANS_TYPE,
27069 N,
27070 KL,
27071 KU,
27072 NRHS,
27073 AB,
27074 LDAB,
27075 AFB,
27076 LDAFB,
27077 IPIV,
27078 COLEQU,
27079 C,
27080 B,
27081 LDB,
27082 Y,
27083 LDY,
27084 BERR_OUT,
27085 N_NORMS,
27086 ERR_BNDS_NORM,
27087 ERR_BNDS_COMP,
27088 RES,
27089 AYB,
27090 DY,
27091 Y_TAIL,
27092 RCOND,
27093 ITHRESH,
27094 RTHRESH,
27095 DZ_UB,
27096 IGNORE_CWISE,
27097 INFO);
27098 */
27099 }
27100
27101 //-- sla_gbrpvgrw --------------------------------------------------------------
27102 FLOAT
LAPACK_DECL(sla_gbrpvgrw)27103 LAPACK_DECL(sla_gbrpvgrw)(const INTEGER *N,
27104 const INTEGER *KL,
27105 const INTEGER *KU,
27106 const INTEGER *NCOLS,
27107 const FLOAT *AB,
27108 const INTEGER *LDAB,
27109 const FLOAT *AFB,
27110 const INTEGER *LDAFB)
27111 {
27112 DEBUG_LAPACK_STUB("sla_gbrpvgrw");
27113 return LAPACK_IMPL(sla_gbrpvgrw)(N,
27114 KL,
27115 KU,
27116 NCOLS,
27117 AB,
27118 LDAB,
27119 AFB,
27120 LDAFB);
27121 }
27122
27123 //-- sla_geamv -----------------------------------------------------------------
27124 void
LAPACK_DECL(sla_geamv)27125 LAPACK_DECL(sla_geamv)(const INTEGER *TRANS,
27126 const INTEGER *M,
27127 const INTEGER *N,
27128 const FLOAT *ALPHA,
27129 const FLOAT *A,
27130 const INTEGER *LDA,
27131 const FLOAT *X,
27132 const INTEGER *INCX,
27133 const FLOAT *BETA,
27134 FLOAT *Y,
27135 const INTEGER *INCY)
27136 {
27137 DEBUG_LAPACK_STUB("sla_geamv");
27138 LAPACK_IMPL(sla_geamv)(TRANS,
27139 M,
27140 N,
27141 ALPHA,
27142 A,
27143 LDA,
27144 X,
27145 INCX,
27146 BETA,
27147 Y,
27148 INCY);
27149 }
27150
27151 //-- sla_gercond ---------------------------------------------------------------
27152 FLOAT
LAPACK_DECL(sla_gercond)27153 LAPACK_DECL(sla_gercond)(const char *TRANS,
27154 const INTEGER *N,
27155 const FLOAT *A,
27156 const INTEGER *LDA,
27157 const FLOAT *AF,
27158 const INTEGER *LDAF,
27159 const INTEGER *IPIV,
27160 const INTEGER *CMODE,
27161 const FLOAT *C,
27162 INTEGER *INFO,
27163 const FLOAT *WORK,
27164 const INTEGER *IWORK)
27165 {
27166 DEBUG_LAPACK_STUB("sla_gercond");
27167 return LAPACK_IMPL(sla_gercond)(TRANS,
27168 N,
27169 A,
27170 LDA,
27171 AF,
27172 LDAF,
27173 IPIV,
27174 CMODE,
27175 C,
27176 INFO,
27177 WORK,
27178 IWORK);
27179 }
27180
27181 //-- sla_gerfsx_extended -------------------------------------------------------
27182 void
LAPACK_DECL(sla_gerfsx_extended)27183 LAPACK_DECL(sla_gerfsx_extended)(const INTEGER *PREC_TYPE,
27184 const INTEGER *TRANS_TYPE,
27185 const INTEGER *N,
27186 const INTEGER *NRHS,
27187 const FLOAT *A,
27188 const INTEGER *LDA,
27189 const FLOAT *AF,
27190 const INTEGER *LDAF,
27191 const INTEGER *IPIV,
27192 const LOGICAL *COLEQU,
27193 const FLOAT *C,
27194 const FLOAT *B,
27195 const INTEGER *LDB,
27196 FLOAT *Y,
27197 const INTEGER *LDY,
27198 FLOAT *BERR_OUT,
27199 const INTEGER *N_NORMS,
27200 FLOAT *ERR_BNDS_NORM,
27201 FLOAT *ERR_BNDS_COMP,
27202 const FLOAT *RES,
27203 const FLOAT *AYB,
27204 const FLOAT *DY,
27205 const FLOAT *Y_TAIL,
27206 const FLOAT *RCOND,
27207 const INTEGER *ITHRESH,
27208 const FLOAT *RTHRESH,
27209 const FLOAT *DZ_UB,
27210 const LOGICAL *IGNORE_CWISE,
27211 INTEGER *INFO)
27212 {
27213 DEBUG_LAPACK_STUB("sla_gerfsx_extended");
27214 ASSERT(0);
27215 /*
27216 LAPACK_IMPL(sla_gerfsx_extended)(PREC_TYPE,
27217 TRANS_TYPE,
27218 N,
27219 NRHS,
27220 A,
27221 LDA,
27222 AF,
27223 LDAF,
27224 IPIV,
27225 COLEQU,
27226 C,
27227 B,
27228 LDB,
27229 Y,
27230 LDY,
27231 BERR_OUT,
27232 N_NORMS,
27233 ERR_BNDS_NORM,
27234 ERR_BNDS_COMP,
27235 RES,
27236 AYB,
27237 DY,
27238 Y_TAIL,
27239 RCOND,
27240 ITHRESH,
27241 RTHRESH,
27242 DZ_UB,
27243 IGNORE_CWISE,
27244 INFO);
27245 */
27246 }
27247
27248 //-- sla_lin_berr --------------------------------------------------------------
27249 void
LAPACK_DECL(sla_lin_berr)27250 LAPACK_DECL(sla_lin_berr)(const INTEGER *N,
27251 const INTEGER *NZ,
27252 const INTEGER *NRHS,
27253 const FLOAT *RES,
27254 const FLOAT *AYB,
27255 FLOAT *BERR)
27256 {
27257 DEBUG_LAPACK_STUB("sla_lin_berr");
27258 LAPACK_IMPL(sla_lin_berr)(N,
27259 NZ,
27260 NRHS,
27261 RES,
27262 AYB,
27263 BERR);
27264 }
27265
27266 //-- sla_porcond ---------------------------------------------------------------
27267 FLOAT
LAPACK_DECL(sla_porcond)27268 LAPACK_DECL(sla_porcond)(const char *UPLO,
27269 const INTEGER *N,
27270 const FLOAT *A,
27271 const INTEGER *LDA,
27272 const FLOAT *AF,
27273 const INTEGER *LDAF,
27274 const INTEGER *CMODE,
27275 const FLOAT *C,
27276 INTEGER *INFO,
27277 const FLOAT *WORK,
27278 const INTEGER *IWORK)
27279 {
27280 DEBUG_LAPACK_STUB("sla_porcond");
27281 return LAPACK_IMPL(sla_porcond)(UPLO,
27282 N,
27283 A,
27284 LDA,
27285 AF,
27286 LDAF,
27287 CMODE,
27288 C,
27289 INFO,
27290 WORK,
27291 IWORK);
27292 }
27293
27294 //-- sla_porfsx_extended -------------------------------------------------------
27295 void
LAPACK_DECL(sla_porfsx_extended)27296 LAPACK_DECL(sla_porfsx_extended)(const INTEGER *PREC_TYPE,
27297 const char *UPLO,
27298 const INTEGER *N,
27299 const INTEGER *NRHS,
27300 const FLOAT *A,
27301 const INTEGER *LDA,
27302 const FLOAT *AF,
27303 const INTEGER *LDAF,
27304 const LOGICAL *COLEQU,
27305 const FLOAT *C,
27306 const FLOAT *B,
27307 const INTEGER *LDB,
27308 FLOAT *Y,
27309 const INTEGER *LDY,
27310 FLOAT *BERR_OUT,
27311 const INTEGER *N_NORMS,
27312 FLOAT *ERR_BNDS_NORM,
27313 FLOAT *ERR_BNDS_COMP,
27314 const FLOAT *RES,
27315 const FLOAT *AYB,
27316 const FLOAT *DY,
27317 const FLOAT *Y_TAIL,
27318 const FLOAT *RCOND,
27319 const INTEGER *ITHRESH,
27320 const FLOAT *RTHRESH,
27321 const FLOAT *DZ_UB,
27322 const LOGICAL *IGNORE_CWISE,
27323 INTEGER *INFO)
27324 {
27325 DEBUG_LAPACK_STUB("sla_porfsx_extended");
27326 ASSERT(0);
27327 /*
27328 LAPACK_IMPL(sla_porfsx_extended)(PREC_TYPE,
27329 UPLO,
27330 N,
27331 NRHS,
27332 A,
27333 LDA,
27334 AF,
27335 LDAF,
27336 COLEQU,
27337 C,
27338 B,
27339 LDB,
27340 Y,
27341 LDY,
27342 BERR_OUT,
27343 N_NORMS,
27344 ERR_BNDS_NORM,
27345 ERR_BNDS_COMP,
27346 RES,
27347 AYB,
27348 DY,
27349 Y_TAIL,
27350 RCOND,
27351 ITHRESH,
27352 RTHRESH,
27353 DZ_UB,
27354 IGNORE_CWISE,
27355 INFO);
27356 */
27357 }
27358
27359 //-- sla_porpvgrw --------------------------------------------------------------
27360 FLOAT
LAPACK_DECL(sla_porpvgrw)27361 LAPACK_DECL(sla_porpvgrw)(const char *UPLO,
27362 const INTEGER *NCOLS,
27363 const FLOAT *A,
27364 const INTEGER *LDA,
27365 const FLOAT *AF,
27366 const INTEGER *LDAF,
27367 const FLOAT *WORK)
27368 {
27369 DEBUG_LAPACK_STUB("sla_porpvgrw");
27370 return LAPACK_IMPL(sla_porpvgrw)(UPLO,
27371 NCOLS,
27372 A,
27373 LDA,
27374 AF,
27375 LDAF,
27376 WORK);
27377 }
27378
27379 //-- sla_rpvgrw ----------------------------------------------------------------
27380 FLOAT
LAPACK_DECL(sla_rpvgrw)27381 LAPACK_DECL(sla_rpvgrw)(const INTEGER *N,
27382 const INTEGER *NCOLS,
27383 const FLOAT *A,
27384 const INTEGER *LDA,
27385 const FLOAT *AF,
27386 const INTEGER *LDAF)
27387 {
27388 DEBUG_LAPACK_STUB("sla_rpvgrw");
27389 return LAPACK_IMPL(sla_rpvgrw)(N,
27390 NCOLS,
27391 A,
27392 LDA,
27393 AF,
27394 LDAF);
27395 }
27396
27397 //-- sla_syamv -----------------------------------------------------------------
27398 void
LAPACK_DECL(sla_syamv)27399 LAPACK_DECL(sla_syamv)(const INTEGER *UPLO,
27400 const INTEGER *N,
27401 const FLOAT *ALPHA,
27402 const FLOAT *A,
27403 const INTEGER *LDA,
27404 const FLOAT *X,
27405 const INTEGER *INCX,
27406 const FLOAT *BETA,
27407 FLOAT *Y,
27408 const INTEGER *INCY)
27409 {
27410 DEBUG_LAPACK_STUB("sla_syamv");
27411 LAPACK_IMPL(sla_syamv)(UPLO,
27412 N,
27413 ALPHA,
27414 A,
27415 LDA,
27416 X,
27417 INCX,
27418 BETA,
27419 Y,
27420 INCY);
27421 }
27422
27423 //-- sla_syrcond ---------------------------------------------------------------
27424 FLOAT
LAPACK_DECL(sla_syrcond)27425 LAPACK_DECL(sla_syrcond)(const char *UPLO,
27426 const INTEGER *N,
27427 const FLOAT *A,
27428 const INTEGER *LDA,
27429 const FLOAT *AF,
27430 const INTEGER *LDAF,
27431 const INTEGER *IPIV,
27432 const INTEGER *CMODE,
27433 const FLOAT *C,
27434 INTEGER *INFO,
27435 const FLOAT *WORK,
27436 const INTEGER *IWORK)
27437 {
27438 DEBUG_LAPACK_STUB("sla_syrcond");
27439 return LAPACK_IMPL(sla_syrcond)(UPLO,
27440 N,
27441 A,
27442 LDA,
27443 AF,
27444 LDAF,
27445 IPIV,
27446 CMODE,
27447 C,
27448 INFO,
27449 WORK,
27450 IWORK);
27451 }
27452
27453 //-- sla_syrfsx_extended -------------------------------------------------------
27454 void
LAPACK_DECL(sla_syrfsx_extended)27455 LAPACK_DECL(sla_syrfsx_extended)(const INTEGER *PREC_TYPE,
27456 const char *UPLO,
27457 const INTEGER *N,
27458 const INTEGER *NRHS,
27459 const FLOAT *A,
27460 const INTEGER *LDA,
27461 const FLOAT *AF,
27462 const INTEGER *LDAF,
27463 const INTEGER *IPIV,
27464 const LOGICAL *COLEQU,
27465 const FLOAT *C,
27466 const FLOAT *B,
27467 const INTEGER *LDB,
27468 FLOAT *Y,
27469 const INTEGER *LDY,
27470 FLOAT *BERR_OUT,
27471 const INTEGER *N_NORMS,
27472 FLOAT *ERR_BNDS_NORM,
27473 FLOAT *ERR_BNDS_COMP,
27474 const FLOAT *RES,
27475 const FLOAT *AYB,
27476 const FLOAT *DY,
27477 const FLOAT *Y_TAIL,
27478 const FLOAT *RCOND,
27479 const INTEGER *ITHRESH,
27480 const FLOAT *RTHRESH,
27481 const FLOAT *DZ_UB,
27482 const LOGICAL *IGNORE_CWISE,
27483 INTEGER *INFO)
27484 {
27485 DEBUG_LAPACK_STUB("sla_syrfsx_extended");
27486 ASSERT(0);
27487 /*
27488 LAPACK_IMPL(sla_syrfsx_extended)(PREC_TYPE,
27489 UPLO,
27490 N,
27491 NRHS,
27492 A,
27493 LDA,
27494 AF,
27495 LDAF,
27496 IPIV,
27497 COLEQU,
27498 C,
27499 B,
27500 LDB,
27501 Y,
27502 LDY,
27503 BERR_OUT,
27504 N_NORMS,
27505 ERR_BNDS_NORM,
27506 ERR_BNDS_COMP,
27507 RES,
27508 AYB,
27509 DY,
27510 Y_TAIL,
27511 RCOND,
27512 ITHRESH,
27513 RTHRESH,
27514 DZ_UB,
27515 IGNORE_CWISE,
27516 INFO);
27517 */
27518 }
27519
27520 //-- sla_syrpvgrw --------------------------------------------------------------
27521 FLOAT
LAPACK_DECL(sla_syrpvgrw)27522 LAPACK_DECL(sla_syrpvgrw)(const char *UPLO,
27523 const INTEGER *N,
27524 const INTEGER *INFO,
27525 const FLOAT *A,
27526 const INTEGER *LDA,
27527 const FLOAT *AF,
27528 const INTEGER *LDAF,
27529 const INTEGER *IPIV,
27530 const FLOAT *WORK)
27531 {
27532 DEBUG_LAPACK_STUB("sla_syrpvgrw");
27533 return LAPACK_IMPL(sla_syrpvgrw)(UPLO,
27534 N,
27535 INFO,
27536 A,
27537 LDA,
27538 AF,
27539 LDAF,
27540 IPIV,
27541 WORK);
27542 }
27543
27544 //-- sla_wwaddw ----------------------------------------------------------------
27545 void
LAPACK_DECL(sla_wwaddw)27546 LAPACK_DECL(sla_wwaddw)(const INTEGER *N,
27547 FLOAT *X,
27548 FLOAT *Y,
27549 const FLOAT *W)
27550 {
27551 DEBUG_LAPACK_STUB("sla_wwaddw");
27552 LAPACK_IMPL(sla_wwaddw)(N,
27553 X,
27554 Y,
27555 W);
27556 }
27557
27558 //-- slabad --------------------------------------------------------------------
27559 void
LAPACK_DECL(slabad)27560 LAPACK_DECL(slabad)(FLOAT *SMALL,
27561 FLOAT *LARGE)
27562 {
27563 DEBUG_LAPACK_STUB("slabad");
27564 LAPACK_IMPL(slabad)(SMALL,
27565 LARGE);
27566 }
27567
27568 //-- slabrd --------------------------------------------------------------------
27569 void
LAPACK_DECL(slabrd)27570 LAPACK_DECL(slabrd)(const INTEGER *M,
27571 const INTEGER *N,
27572 const INTEGER *NB,
27573 FLOAT *A,
27574 const INTEGER *LDA,
27575 FLOAT *D,
27576 FLOAT *E,
27577 FLOAT *TAUQ,
27578 FLOAT *TAUP,
27579 FLOAT *X,
27580 const INTEGER *LDX,
27581 FLOAT *Y,
27582 const INTEGER *LDY)
27583 {
27584 DEBUG_LAPACK_STUB("slabrd");
27585 LAPACK_IMPL(slabrd)(M,
27586 N,
27587 NB,
27588 A,
27589 LDA,
27590 D,
27591 E,
27592 TAUQ,
27593 TAUP,
27594 X,
27595 LDX,
27596 Y,
27597 LDY);
27598 }
27599
27600 //-- slacn2 --------------------------------------------------------------------
27601 void
LAPACK_DECL(slacn2)27602 LAPACK_DECL(slacn2)(const INTEGER *N,
27603 FLOAT *V,
27604 FLOAT *X,
27605 INTEGER *ISGN,
27606 FLOAT *EST,
27607 INTEGER *KASE,
27608 INTEGER *ISAVE)
27609 {
27610 DEBUG_LAPACK_STUB("slacn2");
27611 LAPACK_IMPL(slacn2)(N,
27612 V,
27613 X,
27614 ISGN,
27615 EST,
27616 KASE,
27617 ISAVE);
27618 }
27619
27620 //-- slacon --------------------------------------------------------------------
27621 void
LAPACK_DECL(slacon)27622 LAPACK_DECL(slacon)(const INTEGER *N,
27623 FLOAT *V,
27624 FLOAT *X,
27625 INTEGER *ISGN,
27626 FLOAT *EST,
27627 INTEGER *KASE)
27628 {
27629 DEBUG_LAPACK_STUB("slacon");
27630 LAPACK_IMPL(slacon)(N,
27631 V,
27632 X,
27633 ISGN,
27634 EST,
27635 KASE);
27636 }
27637
27638 //-- slacpy --------------------------------------------------------------------
27639 void
LAPACK_DECL(slacpy)27640 LAPACK_DECL(slacpy)(const char *UPLO,
27641 const INTEGER *M,
27642 const INTEGER *N,
27643 const FLOAT *A,
27644 const INTEGER *LDA,
27645 FLOAT *B,
27646 const INTEGER *LDB)
27647 {
27648 DEBUG_LAPACK_STUB("slacpy");
27649 LAPACK_IMPL(slacpy)(UPLO,
27650 M,
27651 N,
27652 A,
27653 LDA,
27654 B,
27655 LDB);
27656 }
27657
27658 //-- sladiv --------------------------------------------------------------------
27659 void
LAPACK_DECL(sladiv)27660 LAPACK_DECL(sladiv)(const FLOAT *A,
27661 const FLOAT *B,
27662 const FLOAT *C,
27663 const FLOAT *D,
27664 FLOAT *P,
27665 FLOAT *Q)
27666 {
27667 DEBUG_LAPACK_STUB("sladiv");
27668 LAPACK_IMPL(sladiv)(A,
27669 B,
27670 C,
27671 D,
27672 P,
27673 Q);
27674 }
27675
27676 //-- slae2 ---------------------------------------------------------------------
27677 void
LAPACK_DECL(slae2)27678 LAPACK_DECL(slae2)(const FLOAT *A,
27679 const FLOAT *B,
27680 const FLOAT *C,
27681 FLOAT *RT1,
27682 FLOAT *RT2)
27683 {
27684 DEBUG_LAPACK_STUB("slae2");
27685 LAPACK_IMPL(slae2)(A,
27686 B,
27687 C,
27688 RT1,
27689 RT2);
27690 }
27691
27692 //-- slaebz --------------------------------------------------------------------
27693 void
LAPACK_DECL(slaebz)27694 LAPACK_DECL(slaebz)(const INTEGER *IJOB,
27695 const INTEGER *NITMAX,
27696 const INTEGER *N,
27697 const INTEGER *MMAX,
27698 const INTEGER *MINP,
27699 const INTEGER *NBMIN,
27700 const FLOAT *ABSTOL,
27701 const FLOAT *RELTOL,
27702 const FLOAT *PIVMIN,
27703 const FLOAT *D,
27704 const FLOAT *E,
27705 const FLOAT *E2,
27706 INTEGER *NVAL,
27707 FLOAT *AB,
27708 FLOAT *C,
27709 INTEGER *MOUT,
27710 INTEGER *NAB,
27711 FLOAT *WORK,
27712 INTEGER *IWORK,
27713 INTEGER *INFO)
27714 {
27715 DEBUG_LAPACK_STUB("slaebz");
27716 LAPACK_IMPL(slaebz)(IJOB,
27717 NITMAX,
27718 N,
27719 MMAX,
27720 MINP,
27721 NBMIN,
27722 ABSTOL,
27723 RELTOL,
27724 PIVMIN,
27725 D,
27726 E,
27727 E2,
27728 NVAL,
27729 AB,
27730 C,
27731 MOUT,
27732 NAB,
27733 WORK,
27734 IWORK,
27735 INFO);
27736 }
27737
27738 //-- slaed0 --------------------------------------------------------------------
27739 void
LAPACK_DECL(slaed0)27740 LAPACK_DECL(slaed0)(const INTEGER *ICOMPQ,
27741 const INTEGER *QSIZ,
27742 const INTEGER *N,
27743 FLOAT *D,
27744 const FLOAT *E,
27745 FLOAT *Q,
27746 const INTEGER *LDQ,
27747 FLOAT *QSTORE,
27748 const INTEGER *LDQS,
27749 FLOAT *WORK,
27750 INTEGER *IWORK,
27751 INTEGER *INFO)
27752 {
27753 DEBUG_LAPACK_STUB("slaed0");
27754 LAPACK_IMPL(slaed0)(ICOMPQ,
27755 QSIZ,
27756 N,
27757 D,
27758 E,
27759 Q,
27760 LDQ,
27761 QSTORE,
27762 LDQS,
27763 WORK,
27764 IWORK,
27765 INFO);
27766 }
27767
27768 //-- slaed1 --------------------------------------------------------------------
27769 void
LAPACK_DECL(slaed1)27770 LAPACK_DECL(slaed1)(const INTEGER *N,
27771 FLOAT *D,
27772 FLOAT *Q,
27773 const INTEGER *LDQ,
27774 INTEGER *INDXQ,
27775 const FLOAT *RHO,
27776 const INTEGER *CUTPNT,
27777 FLOAT *WORK,
27778 INTEGER *IWORK,
27779 INTEGER *INFO)
27780 {
27781 DEBUG_LAPACK_STUB("slaed1");
27782 LAPACK_IMPL(slaed1)(N,
27783 D,
27784 Q,
27785 LDQ,
27786 INDXQ,
27787 RHO,
27788 CUTPNT,
27789 WORK,
27790 IWORK,
27791 INFO);
27792 }
27793
27794 //-- slaed2 --------------------------------------------------------------------
27795 void
LAPACK_DECL(slaed2)27796 LAPACK_DECL(slaed2)(INTEGER *K,
27797 const INTEGER *N,
27798 const INTEGER *N1,
27799 FLOAT *D,
27800 FLOAT *Q,
27801 const INTEGER *LDQ,
27802 INTEGER *INDXQ,
27803 FLOAT *RHO,
27804 const FLOAT *Z,
27805 FLOAT *DLAMDA,
27806 FLOAT *W,
27807 FLOAT *Q2,
27808 INTEGER *INDX,
27809 INTEGER *INDXC,
27810 INTEGER *INDXP,
27811 INTEGER *COLTYP,
27812 INTEGER *INFO)
27813 {
27814 DEBUG_LAPACK_STUB("slaed2");
27815 LAPACK_IMPL(slaed2)(K,
27816 N,
27817 N1,
27818 D,
27819 Q,
27820 LDQ,
27821 INDXQ,
27822 RHO,
27823 Z,
27824 DLAMDA,
27825 W,
27826 Q2,
27827 INDX,
27828 INDXC,
27829 INDXP,
27830 COLTYP,
27831 INFO);
27832 }
27833
27834 //-- slaed3 --------------------------------------------------------------------
27835 void
LAPACK_DECL(slaed3)27836 LAPACK_DECL(slaed3)(const INTEGER *K,
27837 const INTEGER *N,
27838 const INTEGER *N1,
27839 FLOAT *D,
27840 FLOAT *Q,
27841 const INTEGER *LDQ,
27842 const FLOAT *RHO,
27843 FLOAT *DLAMDA,
27844 const FLOAT *Q2,
27845 const INTEGER *INDX,
27846 const INTEGER *CTOT,
27847 FLOAT *W,
27848 FLOAT *S,
27849 INTEGER *INFO)
27850 {
27851 DEBUG_LAPACK_STUB("slaed3");
27852 LAPACK_IMPL(slaed3)(K,
27853 N,
27854 N1,
27855 D,
27856 Q,
27857 LDQ,
27858 RHO,
27859 DLAMDA,
27860 Q2,
27861 INDX,
27862 CTOT,
27863 W,
27864 S,
27865 INFO);
27866 }
27867
27868 //-- slaed4 --------------------------------------------------------------------
27869 void
LAPACK_DECL(slaed4)27870 LAPACK_DECL(slaed4)(const INTEGER *N,
27871 const INTEGER *I,
27872 const FLOAT *D,
27873 const FLOAT *Z,
27874 FLOAT *DELTA,
27875 const FLOAT *RHO,
27876 FLOAT *DLAM,
27877 INTEGER *INFO)
27878 {
27879 DEBUG_LAPACK_STUB("slaed4");
27880 LAPACK_IMPL(slaed4)(N,
27881 I,
27882 D,
27883 Z,
27884 DELTA,
27885 RHO,
27886 DLAM,
27887 INFO);
27888 }
27889
27890 //-- slaed5 --------------------------------------------------------------------
27891 void
LAPACK_DECL(slaed5)27892 LAPACK_DECL(slaed5)(const INTEGER *I,
27893 const FLOAT *D,
27894 const FLOAT *Z,
27895 FLOAT *DELTA,
27896 const FLOAT *RHO,
27897 FLOAT *DLAM)
27898 {
27899 DEBUG_LAPACK_STUB("slaed5");
27900 LAPACK_IMPL(slaed5)(I,
27901 D,
27902 Z,
27903 DELTA,
27904 RHO,
27905 DLAM);
27906 }
27907
27908 //-- slaed6 --------------------------------------------------------------------
27909 void
LAPACK_DECL(slaed6)27910 LAPACK_DECL(slaed6)(const INTEGER *KNITER,
27911 const LOGICAL *ORGATI,
27912 const FLOAT *RHO,
27913 const FLOAT *D,
27914 const FLOAT *Z,
27915 const FLOAT *FINIT,
27916 FLOAT *TAU,
27917 INTEGER *INFO)
27918 {
27919 DEBUG_LAPACK_STUB("slaed6");
27920 LAPACK_IMPL(slaed6)(KNITER,
27921 ORGATI,
27922 RHO,
27923 D,
27924 Z,
27925 FINIT,
27926 TAU,
27927 INFO);
27928 }
27929
27930 //-- slaed7 --------------------------------------------------------------------
27931 void
LAPACK_DECL(slaed7)27932 LAPACK_DECL(slaed7)(const INTEGER *ICOMPQ,
27933 const INTEGER *N,
27934 const INTEGER *QSIZ,
27935 const INTEGER *TLVLS,
27936 const INTEGER *CURLVL,
27937 const INTEGER *CURPBM,
27938 FLOAT *D,
27939 FLOAT *Q,
27940 const INTEGER *LDQ,
27941 INTEGER *INDXQ,
27942 const FLOAT *RHO,
27943 const INTEGER *CUTPNT,
27944 FLOAT *QSTORE,
27945 INTEGER *QPTR,
27946 const INTEGER *PRMPTR,
27947 const INTEGER *PERM,
27948 const INTEGER *GIVPTR,
27949 const INTEGER *GIVCOL,
27950 const FLOAT *GIVNUM,
27951 FLOAT *WORK,
27952 INTEGER *IWORK,
27953 INTEGER *INFO)
27954 {
27955 DEBUG_LAPACK_STUB("slaed7");
27956 LAPACK_IMPL(slaed7)(ICOMPQ,
27957 N,
27958 QSIZ,
27959 TLVLS,
27960 CURLVL,
27961 CURPBM,
27962 D,
27963 Q,
27964 LDQ,
27965 INDXQ,
27966 RHO,
27967 CUTPNT,
27968 QSTORE,
27969 QPTR,
27970 PRMPTR,
27971 PERM,
27972 GIVPTR,
27973 GIVCOL,
27974 GIVNUM,
27975 WORK,
27976 IWORK,
27977 INFO);
27978 }
27979
27980 //-- slaed8 --------------------------------------------------------------------
27981 void
LAPACK_DECL(slaed8)27982 LAPACK_DECL(slaed8)(const INTEGER *ICOMPQ,
27983 INTEGER *K,
27984 const INTEGER *N,
27985 const INTEGER *QSIZ,
27986 FLOAT *D,
27987 FLOAT *Q,
27988 const INTEGER *LDQ,
27989 const INTEGER *INDXQ,
27990 FLOAT *RHO,
27991 const INTEGER *CUTPNT,
27992 const FLOAT *Z,
27993 FLOAT *DLAMDA,
27994 FLOAT *Q2,
27995 const INTEGER *LDQ2,
27996 FLOAT *W,
27997 INTEGER *PERM,
27998 INTEGER *GIVPTR,
27999 INTEGER *GIVCOL,
28000 FLOAT *GIVNUM,
28001 INTEGER *INDXP,
28002 INTEGER *INDX,
28003 INTEGER *INFO)
28004 {
28005 DEBUG_LAPACK_STUB("slaed8");
28006 LAPACK_IMPL(slaed8)(ICOMPQ,
28007 K,
28008 N,
28009 QSIZ,
28010 D,
28011 Q,
28012 LDQ,
28013 INDXQ,
28014 RHO,
28015 CUTPNT,
28016 Z,
28017 DLAMDA,
28018 Q2,
28019 LDQ2,
28020 W,
28021 PERM,
28022 GIVPTR,
28023 GIVCOL,
28024 GIVNUM,
28025 INDXP,
28026 INDX,
28027 INFO);
28028 }
28029
28030 //-- slaed9 --------------------------------------------------------------------
28031 void
LAPACK_DECL(slaed9)28032 LAPACK_DECL(slaed9)(const INTEGER *K,
28033 const INTEGER *KSTART,
28034 const INTEGER *KSTOP,
28035 const INTEGER *N,
28036 FLOAT *D,
28037 FLOAT *Q,
28038 const INTEGER *LDQ,
28039 const FLOAT *RHO,
28040 const FLOAT *DLAMDA,
28041 const FLOAT *W,
28042 FLOAT *S,
28043 const INTEGER *LDS,
28044 INTEGER *INFO)
28045 {
28046 DEBUG_LAPACK_STUB("slaed9");
28047 LAPACK_IMPL(slaed9)(K,
28048 KSTART,
28049 KSTOP,
28050 N,
28051 D,
28052 Q,
28053 LDQ,
28054 RHO,
28055 DLAMDA,
28056 W,
28057 S,
28058 LDS,
28059 INFO);
28060 }
28061
28062 //-- slaeda --------------------------------------------------------------------
28063 void
LAPACK_DECL(slaeda)28064 LAPACK_DECL(slaeda)(const INTEGER *N,
28065 const INTEGER *TLVLS,
28066 const INTEGER *CURLVL,
28067 const INTEGER *CURPBM,
28068 const INTEGER *PRMPTR,
28069 const INTEGER *PERM,
28070 const INTEGER *GIVPTR,
28071 const INTEGER *GIVCOL,
28072 const FLOAT *GIVNUM,
28073 const FLOAT *Q,
28074 const INTEGER *QPTR,
28075 FLOAT *Z,
28076 FLOAT *ZTEMP,
28077 INTEGER *INFO)
28078 {
28079 DEBUG_LAPACK_STUB("slaeda");
28080 LAPACK_IMPL(slaeda)(N,
28081 TLVLS,
28082 CURLVL,
28083 CURPBM,
28084 PRMPTR,
28085 PERM,
28086 GIVPTR,
28087 GIVCOL,
28088 GIVNUM,
28089 Q,
28090 QPTR,
28091 Z,
28092 ZTEMP,
28093 INFO);
28094 }
28095
28096 //-- slaein --------------------------------------------------------------------
28097 void
LAPACK_DECL(slaein)28098 LAPACK_DECL(slaein)(const LOGICAL *RIGHTV,
28099 const LOGICAL *NOINIT,
28100 const INTEGER *N,
28101 const FLOAT *H,
28102 const INTEGER *LDH,
28103 const FLOAT *WR,
28104 const FLOAT *WI,
28105 FLOAT *VR,
28106 FLOAT *VI,
28107 FLOAT *B,
28108 const INTEGER *LDB,
28109 FLOAT *WORK,
28110 const FLOAT *EPS3,
28111 const FLOAT *SMLNUM,
28112 const FLOAT *BIGNUM,
28113 INTEGER *INFO)
28114 {
28115 DEBUG_LAPACK_STUB("slaein");
28116 LAPACK_IMPL(slaein)(RIGHTV,
28117 NOINIT,
28118 N,
28119 H,
28120 LDH,
28121 WR,
28122 WI,
28123 VR,
28124 VI,
28125 B,
28126 LDB,
28127 WORK,
28128 EPS3,
28129 SMLNUM,
28130 BIGNUM,
28131 INFO);
28132 }
28133
28134 //-- slaev2 --------------------------------------------------------------------
28135 void
LAPACK_DECL(slaev2)28136 LAPACK_DECL(slaev2)(const FLOAT *A,
28137 const FLOAT *B,
28138 const FLOAT *C,
28139 FLOAT *RT1,
28140 FLOAT *RT2,
28141 FLOAT *CS1,
28142 FLOAT *SN1)
28143 {
28144 DEBUG_LAPACK_STUB("slaev2");
28145 LAPACK_IMPL(slaev2)(A,
28146 B,
28147 C,
28148 RT1,
28149 RT2,
28150 CS1,
28151 SN1);
28152 }
28153
28154 //-- slaexc --------------------------------------------------------------------
28155 void
LAPACK_DECL(slaexc)28156 LAPACK_DECL(slaexc)(const LOGICAL *WANTQ,
28157 const INTEGER *N,
28158 FLOAT *T,
28159 const INTEGER *LDT,
28160 FLOAT *Q,
28161 const INTEGER *LDQ,
28162 const INTEGER *J1,
28163 const INTEGER *N1,
28164 const INTEGER *N2,
28165 FLOAT *WORK,
28166 INTEGER *INFO)
28167 {
28168 DEBUG_LAPACK_STUB("slaexc");
28169 LAPACK_IMPL(slaexc)(WANTQ,
28170 N,
28171 T,
28172 LDT,
28173 Q,
28174 LDQ,
28175 J1,
28176 N1,
28177 N2,
28178 WORK,
28179 INFO);
28180 }
28181
28182 //-- slag2 ---------------------------------------------------------------------
28183 void
LAPACK_DECL(slag2)28184 LAPACK_DECL(slag2)(const FLOAT *A,
28185 const INTEGER *LDA,
28186 const FLOAT *B,
28187 const INTEGER *LDB,
28188 const FLOAT *SAFMIN,
28189 FLOAT *SCALE1,
28190 FLOAT *SCALE2,
28191 FLOAT *WR1,
28192 FLOAT *WR2,
28193 FLOAT *WI)
28194 {
28195 DEBUG_LAPACK_STUB("slag2");
28196 LAPACK_IMPL(slag2)(A,
28197 LDA,
28198 B,
28199 LDB,
28200 SAFMIN,
28201 SCALE1,
28202 SCALE2,
28203 WR1,
28204 WR2,
28205 WI);
28206 }
28207
28208 //-- slag2d --------------------------------------------------------------------
28209 void
LAPACK_DECL(slag2d)28210 LAPACK_DECL(slag2d)(const INTEGER *M,
28211 const INTEGER *N,
28212 const FLOAT *SA,
28213 const INTEGER *LDSA,
28214 DOUBLE *A,
28215 const INTEGER *LDA,
28216 INTEGER *INFO)
28217 {
28218 DEBUG_LAPACK_STUB("slag2d");
28219 LAPACK_IMPL(slag2d)(M,
28220 N,
28221 SA,
28222 LDSA,
28223 A,
28224 LDA,
28225 INFO);
28226 }
28227
28228 //-- slags2 --------------------------------------------------------------------
28229 void
LAPACK_DECL(slags2)28230 LAPACK_DECL(slags2)(const LOGICAL *UPPER,
28231 const FLOAT *A1,
28232 const FLOAT *A2,
28233 const FLOAT *A3,
28234 const FLOAT *B1,
28235 const FLOAT *B2,
28236 const FLOAT *B3,
28237 FLOAT *CSU,
28238 FLOAT *SNU,
28239 FLOAT *CSV,
28240 FLOAT *SNV,
28241 FLOAT *CSQ,
28242 FLOAT *SNQ)
28243 {
28244 DEBUG_LAPACK_STUB("slags2");
28245 LAPACK_IMPL(slags2)(UPPER,
28246 A1,
28247 A2,
28248 A3,
28249 B1,
28250 B2,
28251 B3,
28252 CSU,
28253 SNU,
28254 CSV,
28255 SNV,
28256 CSQ,
28257 SNQ);
28258 }
28259
28260 //-- slagtf --------------------------------------------------------------------
28261 void
LAPACK_DECL(slagtf)28262 LAPACK_DECL(slagtf)(const INTEGER *N,
28263 FLOAT *A,
28264 const FLOAT *LAMBDA,
28265 FLOAT *B,
28266 FLOAT *C,
28267 const FLOAT *TOL,
28268 FLOAT *D,
28269 INTEGER *IN,
28270 INTEGER *INFO)
28271 {
28272 DEBUG_LAPACK_STUB("slagtf");
28273 LAPACK_IMPL(slagtf)(N,
28274 A,
28275 LAMBDA,
28276 B,
28277 C,
28278 TOL,
28279 D,
28280 IN,
28281 INFO);
28282 }
28283
28284 //-- slagtm --------------------------------------------------------------------
28285 void
LAPACK_DECL(slagtm)28286 LAPACK_DECL(slagtm)(const char *TRANS,
28287 const INTEGER *N,
28288 const INTEGER *NRHS,
28289 const FLOAT *ALPHA,
28290 const FLOAT *DL,
28291 const FLOAT *D,
28292 const FLOAT *DU,
28293 const FLOAT *X,
28294 const INTEGER *LDX,
28295 const FLOAT *BETA,
28296 FLOAT *B,
28297 const INTEGER *LDB)
28298 {
28299 DEBUG_LAPACK_STUB("slagtm");
28300 LAPACK_IMPL(slagtm)(TRANS,
28301 N,
28302 NRHS,
28303 ALPHA,
28304 DL,
28305 D,
28306 DU,
28307 X,
28308 LDX,
28309 BETA,
28310 B,
28311 LDB);
28312 }
28313
28314 //-- slagts --------------------------------------------------------------------
28315 void
LAPACK_DECL(slagts)28316 LAPACK_DECL(slagts)(const INTEGER *JOB,
28317 const INTEGER *N,
28318 const FLOAT *A,
28319 const FLOAT *B,
28320 const FLOAT *C,
28321 const FLOAT *D,
28322 const INTEGER *IN,
28323 FLOAT *Y,
28324 FLOAT *TOL,
28325 INTEGER *INFO)
28326 {
28327 DEBUG_LAPACK_STUB("slagts");
28328 LAPACK_IMPL(slagts)(JOB,
28329 N,
28330 A,
28331 B,
28332 C,
28333 D,
28334 IN,
28335 Y,
28336 TOL,
28337 INFO);
28338 }
28339
28340 //-- slagv2 --------------------------------------------------------------------
28341 void
LAPACK_DECL(slagv2)28342 LAPACK_DECL(slagv2)(FLOAT *A,
28343 const INTEGER *LDA,
28344 FLOAT *B,
28345 const INTEGER *LDB,
28346 FLOAT *ALPHAR,
28347 FLOAT *ALPHAI,
28348 FLOAT *BETA,
28349 FLOAT *CSL,
28350 FLOAT *SNL,
28351 FLOAT *CSR,
28352 FLOAT *SNR)
28353 {
28354 DEBUG_LAPACK_STUB("slagv2");
28355 LAPACK_IMPL(slagv2)(A,
28356 LDA,
28357 B,
28358 LDB,
28359 ALPHAR,
28360 ALPHAI,
28361 BETA,
28362 CSL,
28363 SNL,
28364 CSR,
28365 SNR);
28366 }
28367
28368 //-- slahqr --------------------------------------------------------------------
28369 void
LAPACK_DECL(slahqr)28370 LAPACK_DECL(slahqr)(const LOGICAL *WANTT,
28371 const LOGICAL *WANTZ,
28372 const INTEGER *N,
28373 const INTEGER *ILO,
28374 const INTEGER *IHI,
28375 FLOAT *H,
28376 const INTEGER *LDH,
28377 FLOAT *WR,
28378 FLOAT *WI,
28379 const INTEGER *ILOZ,
28380 const INTEGER *IHIZ,
28381 FLOAT *Z,
28382 const INTEGER *LDZ,
28383 INTEGER *INFO)
28384 {
28385 DEBUG_LAPACK_STUB("slahqr");
28386 LAPACK_IMPL(slahqr)(WANTT,
28387 WANTZ,
28388 N,
28389 ILO,
28390 IHI,
28391 H,
28392 LDH,
28393 WR,
28394 WI,
28395 ILOZ,
28396 IHIZ,
28397 Z,
28398 LDZ,
28399 INFO);
28400 }
28401
28402 //-- slahr2 --------------------------------------------------------------------
28403 void
LAPACK_DECL(slahr2)28404 LAPACK_DECL(slahr2)(const INTEGER *N,
28405 const INTEGER *K,
28406 const INTEGER *NB,
28407 FLOAT *A,
28408 const INTEGER *LDA,
28409 FLOAT *TAU,
28410 FLOAT *T,
28411 const INTEGER *LDT,
28412 FLOAT *Y,
28413 const INTEGER *LDY)
28414 {
28415 DEBUG_LAPACK_STUB("slahr2");
28416 LAPACK_IMPL(slahr2)(N,
28417 K,
28418 NB,
28419 A,
28420 LDA,
28421 TAU,
28422 T,
28423 LDT,
28424 Y,
28425 LDY);
28426 }
28427
28428 //-- slahrd --------------------------------------------------------------------
28429 void
LAPACK_DECL(slahrd)28430 LAPACK_DECL(slahrd)(const INTEGER *N,
28431 const INTEGER *K,
28432 const INTEGER *NB,
28433 FLOAT *A,
28434 const INTEGER *LDA,
28435 FLOAT *TAU,
28436 FLOAT *T,
28437 const INTEGER *LDT,
28438 FLOAT *Y,
28439 const INTEGER *LDY)
28440 {
28441 DEBUG_LAPACK_STUB("slahrd");
28442 LAPACK_IMPL(slahrd)(N,
28443 K,
28444 NB,
28445 A,
28446 LDA,
28447 TAU,
28448 T,
28449 LDT,
28450 Y,
28451 LDY);
28452 }
28453
28454 //-- slaic1 --------------------------------------------------------------------
28455 void
LAPACK_DECL(slaic1)28456 LAPACK_DECL(slaic1)(const INTEGER *JOB,
28457 const INTEGER *J,
28458 const FLOAT *X,
28459 const FLOAT *SEST,
28460 const FLOAT *W,
28461 const FLOAT *GAMMA,
28462 FLOAT *SESTPR,
28463 FLOAT *S,
28464 FLOAT *C)
28465 {
28466 DEBUG_LAPACK_STUB("slaic1");
28467 LAPACK_IMPL(slaic1)(JOB,
28468 J,
28469 X,
28470 SEST,
28471 W,
28472 GAMMA,
28473 SESTPR,
28474 S,
28475 C);
28476 }
28477
28478 //-- slaisnan ------------------------------------------------------------------
28479 LOGICAL
LAPACK_DECL(slaisnan)28480 LAPACK_DECL(slaisnan)(const FLOAT *SIN1,
28481 const FLOAT *SIN2)
28482 {
28483 DEBUG_LAPACK_STUB("slaisnan");
28484 return LAPACK_IMPL(slaisnan)(SIN1,
28485 SIN2);
28486 }
28487
28488 //-- slaln2 --------------------------------------------------------------------
28489 void
LAPACK_DECL(slaln2)28490 LAPACK_DECL(slaln2)(const LOGICAL *LTRANS,
28491 const INTEGER *NA,
28492 const INTEGER *NW,
28493 const FLOAT *SMIN,
28494 const FLOAT *CA,
28495 const FLOAT *A,
28496 const INTEGER *LDA,
28497 const FLOAT *D1,
28498 const FLOAT *D2,
28499 const FLOAT *B,
28500 const INTEGER *LDB,
28501 const FLOAT *WR,
28502 const FLOAT *WI,
28503 FLOAT *X,
28504 const INTEGER *LDX,
28505 FLOAT *SCALE,
28506 FLOAT *XNORM,
28507 INTEGER *INFO)
28508 {
28509 DEBUG_LAPACK_STUB("slaln2");
28510 LAPACK_IMPL(slaln2)(LTRANS,
28511 NA,
28512 NW,
28513 SMIN,
28514 CA,
28515 A,
28516 LDA,
28517 D1,
28518 D2,
28519 B,
28520 LDB,
28521 WR,
28522 WI,
28523 X,
28524 LDX,
28525 SCALE,
28526 XNORM,
28527 INFO);
28528 }
28529
28530 //-- slals0 --------------------------------------------------------------------
28531 void
LAPACK_DECL(slals0)28532 LAPACK_DECL(slals0)(const INTEGER *ICOMPQ,
28533 const INTEGER *NL,
28534 const INTEGER *NR,
28535 const INTEGER *SQRE,
28536 const INTEGER *NRHS,
28537 FLOAT *B,
28538 const INTEGER *LDB,
28539 FLOAT *BX,
28540 const INTEGER *LDBX,
28541 const INTEGER *PERM,
28542 const INTEGER *GIVPTR,
28543 const INTEGER *GIVCOL,
28544 const INTEGER *LDGCOL,
28545 const FLOAT *GIVNUM,
28546 const INTEGER *LDGNUM,
28547 const FLOAT *POLES,
28548 const FLOAT *DIFL,
28549 const FLOAT *DIFR,
28550 const FLOAT *Z,
28551 const INTEGER *K,
28552 const FLOAT *C,
28553 const FLOAT *S,
28554 FLOAT *WORK,
28555 INTEGER *INFO)
28556 {
28557 DEBUG_LAPACK_STUB("slals0");
28558 LAPACK_IMPL(slals0)(ICOMPQ,
28559 NL,
28560 NR,
28561 SQRE,
28562 NRHS,
28563 B,
28564 LDB,
28565 BX,
28566 LDBX,
28567 PERM,
28568 GIVPTR,
28569 GIVCOL,
28570 LDGCOL,
28571 GIVNUM,
28572 LDGNUM,
28573 POLES,
28574 DIFL,
28575 DIFR,
28576 Z,
28577 K,
28578 C,
28579 S,
28580 WORK,
28581 INFO);
28582 }
28583
28584 //-- slalsa --------------------------------------------------------------------
28585 void
LAPACK_DECL(slalsa)28586 LAPACK_DECL(slalsa)(const INTEGER *ICOMPQ,
28587 const INTEGER *SMLSIZ,
28588 const INTEGER *N,
28589 const INTEGER *NRHS,
28590 FLOAT *B,
28591 const INTEGER *LDB,
28592 FLOAT *BX,
28593 const INTEGER *LDBX,
28594 const FLOAT *U,
28595 const INTEGER *LDU,
28596 const FLOAT *VT,
28597 const INTEGER *K,
28598 const FLOAT *DIFL,
28599 const FLOAT *DIFR,
28600 const FLOAT *Z,
28601 const FLOAT *POLES,
28602 const INTEGER *GIVPTR,
28603 const INTEGER *GIVCOL,
28604 const INTEGER *LDGCOL,
28605 const INTEGER *PERM,
28606 const FLOAT *GIVNUM,
28607 const FLOAT *C,
28608 const FLOAT *S,
28609 FLOAT *WORK,
28610 INTEGER *IWORK,
28611 INTEGER *INFO)
28612 {
28613 DEBUG_LAPACK_STUB("slalsa");
28614 LAPACK_IMPL(slalsa)(ICOMPQ,
28615 SMLSIZ,
28616 N,
28617 NRHS,
28618 B,
28619 LDB,
28620 BX,
28621 LDBX,
28622 U,
28623 LDU,
28624 VT,
28625 K,
28626 DIFL,
28627 DIFR,
28628 Z,
28629 POLES,
28630 GIVPTR,
28631 GIVCOL,
28632 LDGCOL,
28633 PERM,
28634 GIVNUM,
28635 C,
28636 S,
28637 WORK,
28638 IWORK,
28639 INFO);
28640 }
28641
28642 //-- slalsd --------------------------------------------------------------------
28643 void
LAPACK_DECL(slalsd)28644 LAPACK_DECL(slalsd)(const char *UPLO,
28645 const INTEGER *SMLSIZ,
28646 const INTEGER *N,
28647 const INTEGER *NRHS,
28648 FLOAT *D,
28649 FLOAT *E,
28650 FLOAT *B,
28651 const INTEGER *LDB,
28652 const FLOAT *RCOND,
28653 INTEGER *RANK,
28654 FLOAT *WORK,
28655 INTEGER *IWORK,
28656 INTEGER *INFO)
28657 {
28658 DEBUG_LAPACK_STUB("slalsd");
28659 LAPACK_IMPL(slalsd)(UPLO,
28660 SMLSIZ,
28661 N,
28662 NRHS,
28663 D,
28664 E,
28665 B,
28666 LDB,
28667 RCOND,
28668 RANK,
28669 WORK,
28670 IWORK,
28671 INFO);
28672 }
28673
28674 //-- slamrg --------------------------------------------------------------------
28675 void
LAPACK_DECL(slamrg)28676 LAPACK_DECL(slamrg)(const INTEGER *N1,
28677 const INTEGER *N2,
28678 const FLOAT *A,
28679 const INTEGER *STRD1,
28680 const INTEGER *STRD2,
28681 INTEGER *INDEX)
28682 {
28683 DEBUG_LAPACK_STUB("slamrg");
28684 LAPACK_IMPL(slamrg)(N1,
28685 N2,
28686 A,
28687 STRD1,
28688 STRD2,
28689 INDEX);
28690 }
28691
28692 //-- slaneg --------------------------------------------------------------------
28693 INTEGER
LAPACK_DECL(slaneg)28694 LAPACK_DECL(slaneg)(const INTEGER *N,
28695 const FLOAT *D,
28696 const FLOAT *LLD,
28697 const FLOAT *SIGMA,
28698 const FLOAT *PIVMIN,
28699 const INTEGER *R)
28700 {
28701 DEBUG_LAPACK_STUB("slaneg");
28702 return LAPACK_IMPL(slaneg)(N,
28703 D,
28704 LLD,
28705 SIGMA,
28706 PIVMIN,
28707 R);
28708 }
28709
28710 //-- slangb --------------------------------------------------------------------
28711 FLOAT
LAPACK_DECL(slangb)28712 LAPACK_DECL(slangb)(const char *NORM,
28713 const INTEGER *N,
28714 const INTEGER *KL,
28715 const INTEGER *KU,
28716 const FLOAT *AB,
28717 const INTEGER *LDAB,
28718 FLOAT *WORK)
28719 {
28720 DEBUG_LAPACK_STUB("slangb");
28721 return LAPACK_IMPL(slangb)(NORM,
28722 N,
28723 KL,
28724 KU,
28725 AB,
28726 LDAB,
28727 WORK);
28728 }
28729
28730 //-- slange --------------------------------------------------------------------
28731 FLOAT
LAPACK_DECL(slange)28732 LAPACK_DECL(slange)(const char *NORM,
28733 const INTEGER *M,
28734 const INTEGER *N,
28735 const FLOAT *A,
28736 const INTEGER *LDA,
28737 FLOAT *WORK)
28738 {
28739 DEBUG_LAPACK_STUB("slange");
28740 return LAPACK_IMPL(slange)(NORM,
28741 M,
28742 N,
28743 A,
28744 LDA,
28745 WORK);
28746 }
28747
28748 //-- slangt --------------------------------------------------------------------
28749 FLOAT
LAPACK_DECL(slangt)28750 LAPACK_DECL(slangt)(const char *NORM,
28751 const INTEGER *N,
28752 const FLOAT *DL,
28753 const FLOAT *D,
28754 const FLOAT *DU)
28755 {
28756 DEBUG_LAPACK_STUB("slangt");
28757 return LAPACK_IMPL(slangt)(NORM,
28758 N,
28759 DL,
28760 D,
28761 DU);
28762 }
28763
28764 //-- slanhs --------------------------------------------------------------------
28765 FLOAT
LAPACK_DECL(slanhs)28766 LAPACK_DECL(slanhs)(const char *NORM,
28767 const INTEGER *N,
28768 const FLOAT *A,
28769 const INTEGER *LDA,
28770 FLOAT *WORK)
28771 {
28772 DEBUG_LAPACK_STUB("slanhs");
28773 return LAPACK_IMPL(slanhs)(NORM,
28774 N,
28775 A,
28776 LDA,
28777 WORK);
28778 }
28779
28780 //-- slansb --------------------------------------------------------------------
28781 FLOAT
LAPACK_DECL(slansb)28782 LAPACK_DECL(slansb)(const char *NORM,
28783 const char *UPLO,
28784 const INTEGER *N,
28785 const INTEGER *K,
28786 const FLOAT *AB,
28787 const INTEGER *LDAB,
28788 FLOAT *WORK)
28789 {
28790 DEBUG_LAPACK_STUB("slansb");
28791 return LAPACK_IMPL(slansb)(NORM,
28792 UPLO,
28793 N,
28794 K,
28795 AB,
28796 LDAB,
28797 WORK);
28798 }
28799
28800 //-- slansf --------------------------------------------------------------------
28801 FLOAT
LAPACK_DECL(slansf)28802 LAPACK_DECL(slansf)(const char *NORM,
28803 const char *TRANSR,
28804 const char *UPLO,
28805 const INTEGER *N,
28806 const FLOAT *A,
28807 FLOAT *WORK)
28808 {
28809 DEBUG_LAPACK_STUB("slansf");
28810 return LAPACK_IMPL(slansf)(NORM,
28811 TRANSR,
28812 UPLO,
28813 N,
28814 A,
28815 WORK);
28816 }
28817
28818 //-- slansp --------------------------------------------------------------------
28819 FLOAT
LAPACK_DECL(slansp)28820 LAPACK_DECL(slansp)(const char *NORM,
28821 const char *UPLO,
28822 const INTEGER *N,
28823 const FLOAT *AP,
28824 FLOAT *WORK)
28825 {
28826 DEBUG_LAPACK_STUB("slansp");
28827 return LAPACK_IMPL(slansp)(NORM,
28828 UPLO,
28829 N,
28830 AP,
28831 WORK);
28832 }
28833
28834 //-- slanst --------------------------------------------------------------------
28835 FLOAT
LAPACK_DECL(slanst)28836 LAPACK_DECL(slanst)(const char *NORM,
28837 const INTEGER *N,
28838 const FLOAT *D,
28839 const FLOAT *E)
28840 {
28841 DEBUG_LAPACK_STUB("slanst");
28842 return LAPACK_IMPL(slanst)(NORM,
28843 N,
28844 D,
28845 E);
28846 }
28847
28848 //-- slansy --------------------------------------------------------------------
28849 FLOAT
LAPACK_DECL(slansy)28850 LAPACK_DECL(slansy)(const char *NORM,
28851 const char *UPLO,
28852 const INTEGER *N,
28853 const FLOAT *A,
28854 const INTEGER *LDA,
28855 FLOAT *WORK)
28856 {
28857 DEBUG_LAPACK_STUB("slansy");
28858 return LAPACK_IMPL(slansy)(NORM,
28859 UPLO,
28860 N,
28861 A,
28862 LDA,
28863 WORK);
28864 }
28865
28866 //-- slantb --------------------------------------------------------------------
28867 FLOAT
LAPACK_DECL(slantb)28868 LAPACK_DECL(slantb)(const char *NORM,
28869 const char *UPLO,
28870 const char *DIAG,
28871 const INTEGER *N,
28872 const INTEGER *K,
28873 const FLOAT *AB,
28874 const INTEGER *LDAB,
28875 FLOAT *WORK)
28876 {
28877 DEBUG_LAPACK_STUB("slantb");
28878 return LAPACK_IMPL(slantb)(NORM,
28879 UPLO,
28880 DIAG,
28881 N,
28882 K,
28883 AB,
28884 LDAB,
28885 WORK);
28886 }
28887
28888 //-- slantp --------------------------------------------------------------------
28889 FLOAT
LAPACK_DECL(slantp)28890 LAPACK_DECL(slantp)(const char *NORM,
28891 const char *UPLO,
28892 const char *DIAG,
28893 const INTEGER *N,
28894 const FLOAT *AP,
28895 FLOAT *WORK)
28896 {
28897 DEBUG_LAPACK_STUB("slantp");
28898 return LAPACK_IMPL(slantp)(NORM,
28899 UPLO,
28900 DIAG,
28901 N,
28902 AP,
28903 WORK);
28904 }
28905
28906 //-- slantr --------------------------------------------------------------------
28907 FLOAT
LAPACK_DECL(slantr)28908 LAPACK_DECL(slantr)(const char *NORM,
28909 const char *UPLO,
28910 const char *DIAG,
28911 const INTEGER *M,
28912 const INTEGER *N,
28913 const FLOAT *A,
28914 const INTEGER *LDA,
28915 FLOAT *WORK)
28916 {
28917 DEBUG_LAPACK_STUB("slantr");
28918 return LAPACK_IMPL(slantr)(NORM,
28919 UPLO,
28920 DIAG,
28921 M,
28922 N,
28923 A,
28924 LDA,
28925 WORK);
28926 }
28927
28928 //-- slanv2 --------------------------------------------------------------------
28929 void
LAPACK_DECL(slanv2)28930 LAPACK_DECL(slanv2)(FLOAT *A,
28931 FLOAT *B,
28932 FLOAT *C,
28933 FLOAT *D,
28934 FLOAT *RT1R,
28935 FLOAT *RT1I,
28936 FLOAT *RT2R,
28937 FLOAT *RT2I,
28938 FLOAT *CS,
28939 FLOAT *SN)
28940 {
28941 DEBUG_LAPACK_STUB("slanv2");
28942 LAPACK_IMPL(slanv2)(A,
28943 B,
28944 C,
28945 D,
28946 RT1R,
28947 RT1I,
28948 RT2R,
28949 RT2I,
28950 CS,
28951 SN);
28952 }
28953
28954 //-- slapll --------------------------------------------------------------------
28955 void
LAPACK_DECL(slapll)28956 LAPACK_DECL(slapll)(const INTEGER *N,
28957 FLOAT *X,
28958 const INTEGER *INCX,
28959 FLOAT *Y,
28960 const INTEGER *INCY,
28961 FLOAT *SSMIN)
28962 {
28963 DEBUG_LAPACK_STUB("slapll");
28964 LAPACK_IMPL(slapll)(N,
28965 X,
28966 INCX,
28967 Y,
28968 INCY,
28969 SSMIN);
28970 }
28971
28972 //-- slapmr --------------------------------------------------------------------
28973 void
LAPACK_DECL(slapmr)28974 LAPACK_DECL(slapmr)(const LOGICAL *FORWRD,
28975 const INTEGER *M,
28976 const INTEGER *N,
28977 FLOAT *X,
28978 const INTEGER *LDX,
28979 INTEGER *K)
28980 {
28981 DEBUG_LAPACK_STUB("slapmr");
28982 LAPACK_IMPL(slapmr)(FORWRD,
28983 M,
28984 N,
28985 X,
28986 LDX,
28987 K);
28988 }
28989
28990 //-- slapmt --------------------------------------------------------------------
28991 void
LAPACK_DECL(slapmt)28992 LAPACK_DECL(slapmt)(const LOGICAL *FORWRD,
28993 const INTEGER *M,
28994 const INTEGER *N,
28995 FLOAT *X,
28996 const INTEGER *LDX,
28997 INTEGER *K)
28998 {
28999 DEBUG_LAPACK_STUB("slapmt");
29000 LAPACK_IMPL(slapmt)(FORWRD,
29001 M,
29002 N,
29003 X,
29004 LDX,
29005 K);
29006 }
29007
29008 //-- slapy2 --------------------------------------------------------------------
29009 FLOAT
LAPACK_DECL(slapy2)29010 LAPACK_DECL(slapy2)(const FLOAT *X,
29011 const FLOAT *Y)
29012 {
29013 DEBUG_LAPACK_STUB("slapy2");
29014 return LAPACK_IMPL(slapy2)(X,
29015 Y);
29016 }
29017
29018 //-- slapy3 --------------------------------------------------------------------
29019 FLOAT
LAPACK_DECL(slapy3)29020 LAPACK_DECL(slapy3)(const FLOAT *X,
29021 const FLOAT *Y,
29022 const FLOAT *Z)
29023 {
29024 DEBUG_LAPACK_STUB("slapy3");
29025 return LAPACK_IMPL(slapy3)(X,
29026 Y,
29027 Z);
29028 }
29029
29030 //-- slaqgb --------------------------------------------------------------------
29031 void
LAPACK_DECL(slaqgb)29032 LAPACK_DECL(slaqgb)(const INTEGER *M,
29033 const INTEGER *N,
29034 const INTEGER *KL,
29035 const INTEGER *KU,
29036 FLOAT *AB,
29037 const INTEGER *LDAB,
29038 const FLOAT *R,
29039 const FLOAT *C,
29040 const FLOAT *ROWCND,
29041 const FLOAT *COLCND,
29042 const FLOAT *AMAX,
29043 char *EQUED)
29044 {
29045 DEBUG_LAPACK_STUB("slaqgb");
29046 LAPACK_IMPL(slaqgb)(M,
29047 N,
29048 KL,
29049 KU,
29050 AB,
29051 LDAB,
29052 R,
29053 C,
29054 ROWCND,
29055 COLCND,
29056 AMAX,
29057 EQUED);
29058 }
29059
29060 //-- slaqge --------------------------------------------------------------------
29061 void
LAPACK_DECL(slaqge)29062 LAPACK_DECL(slaqge)(const INTEGER *M,
29063 const INTEGER *N,
29064 FLOAT *A,
29065 const INTEGER *LDA,
29066 const FLOAT *R,
29067 const FLOAT *C,
29068 const FLOAT *ROWCND,
29069 const FLOAT *COLCND,
29070 const FLOAT *AMAX,
29071 char *EQUED)
29072 {
29073 DEBUG_LAPACK_STUB("slaqge");
29074 LAPACK_IMPL(slaqge)(M,
29075 N,
29076 A,
29077 LDA,
29078 R,
29079 C,
29080 ROWCND,
29081 COLCND,
29082 AMAX,
29083 EQUED);
29084 }
29085
29086 //-- slaqp2 --------------------------------------------------------------------
29087 void
LAPACK_DECL(slaqp2)29088 LAPACK_DECL(slaqp2)(const INTEGER *M,
29089 const INTEGER *N,
29090 const INTEGER *OFFSET,
29091 FLOAT *A,
29092 const INTEGER *LDA,
29093 INTEGER *JPVT,
29094 FLOAT *TAU,
29095 FLOAT *VN1,
29096 FLOAT *VN2,
29097 FLOAT *WORK)
29098 {
29099 DEBUG_LAPACK_STUB("slaqp2");
29100 LAPACK_IMPL(slaqp2)(M,
29101 N,
29102 OFFSET,
29103 A,
29104 LDA,
29105 JPVT,
29106 TAU,
29107 VN1,
29108 VN2,
29109 WORK);
29110 }
29111
29112 //-- slaqps --------------------------------------------------------------------
29113 void
LAPACK_DECL(slaqps)29114 LAPACK_DECL(slaqps)(const INTEGER *M,
29115 const INTEGER *N,
29116 const INTEGER *OFFSET,
29117 const INTEGER *NB,
29118 INTEGER *KB,
29119 FLOAT *A,
29120 const INTEGER *LDA,
29121 INTEGER *JPVT,
29122 FLOAT *TAU,
29123 FLOAT *VN1,
29124 FLOAT *VN2,
29125 FLOAT *AUXV,
29126 FLOAT *F,
29127 const INTEGER *LDF)
29128 {
29129 DEBUG_LAPACK_STUB("slaqps");
29130 LAPACK_IMPL(slaqps)(M,
29131 N,
29132 OFFSET,
29133 NB,
29134 KB,
29135 A,
29136 LDA,
29137 JPVT,
29138 TAU,
29139 VN1,
29140 VN2,
29141 AUXV,
29142 F,
29143 LDF);
29144 }
29145
29146 //-- slaqr0 --------------------------------------------------------------------
29147 void
LAPACK_DECL(slaqr0)29148 LAPACK_DECL(slaqr0)(const LOGICAL *WANTT,
29149 const LOGICAL *WANTZ,
29150 const INTEGER *N,
29151 const INTEGER *ILO,
29152 const INTEGER *IHI,
29153 FLOAT *H,
29154 const INTEGER *LDH,
29155 FLOAT *WR,
29156 FLOAT *WI,
29157 const INTEGER *ILOZ,
29158 const INTEGER *IHIZ,
29159 FLOAT *Z,
29160 const INTEGER *LDZ,
29161 FLOAT *WORK,
29162 const INTEGER *LWORK,
29163 INTEGER *INFO)
29164 {
29165 DEBUG_LAPACK_STUB("slaqr0");
29166 LAPACK_IMPL(slaqr0)(WANTT,
29167 WANTZ,
29168 N,
29169 ILO,
29170 IHI,
29171 H,
29172 LDH,
29173 WR,
29174 WI,
29175 ILOZ,
29176 IHIZ,
29177 Z,
29178 LDZ,
29179 WORK,
29180 LWORK,
29181 INFO);
29182 }
29183
29184 //-- slaqr1 --------------------------------------------------------------------
29185 void
LAPACK_DECL(slaqr1)29186 LAPACK_DECL(slaqr1)(const INTEGER *N,
29187 const FLOAT *H,
29188 const INTEGER *LDH,
29189 const FLOAT *SR1,
29190 const FLOAT *SI1,
29191 const FLOAT *SR2,
29192 const FLOAT *SI2,
29193 FLOAT *V)
29194 {
29195 DEBUG_LAPACK_STUB("slaqr1");
29196 LAPACK_IMPL(slaqr1)(N,
29197 H,
29198 LDH,
29199 SR1,
29200 SI1,
29201 SR2,
29202 SI2,
29203 V);
29204 }
29205
29206 //-- slaqr2 --------------------------------------------------------------------
29207 void
LAPACK_DECL(slaqr2)29208 LAPACK_DECL(slaqr2)(const LOGICAL *WANTT,
29209 const LOGICAL *WANTZ,
29210 const INTEGER *N,
29211 const INTEGER *KTOP,
29212 const INTEGER *KBOT,
29213 const INTEGER *NW,
29214 FLOAT *H,
29215 const INTEGER *LDH,
29216 const INTEGER *ILOZ,
29217 const INTEGER *IHIZ,
29218 FLOAT *Z,
29219 const INTEGER *LDZ,
29220 INTEGER *NS,
29221 INTEGER *ND,
29222 FLOAT *SR,
29223 FLOAT *SI,
29224 FLOAT *V,
29225 const INTEGER *LDV,
29226 const INTEGER *NH,
29227 FLOAT *T,
29228 const INTEGER *LDT,
29229 const INTEGER *NV,
29230 FLOAT *WV,
29231 const INTEGER *LDWV,
29232 FLOAT *WORK,
29233 const INTEGER *LWORK)
29234 {
29235 DEBUG_LAPACK_STUB("slaqr2");
29236 LAPACK_IMPL(slaqr2)(WANTT,
29237 WANTZ,
29238 N,
29239 KTOP,
29240 KBOT,
29241 NW,
29242 H,
29243 LDH,
29244 ILOZ,
29245 IHIZ,
29246 Z,
29247 LDZ,
29248 NS,
29249 ND,
29250 SR,
29251 SI,
29252 V,
29253 LDV,
29254 NH,
29255 T,
29256 LDT,
29257 NV,
29258 WV,
29259 LDWV,
29260 WORK,
29261 LWORK);
29262 }
29263
29264 //-- slaqr3 --------------------------------------------------------------------
29265 void
LAPACK_DECL(slaqr3)29266 LAPACK_DECL(slaqr3)(const LOGICAL *WANTT,
29267 const LOGICAL *WANTZ,
29268 const INTEGER *N,
29269 const INTEGER *KTOP,
29270 const INTEGER *KBOT,
29271 const INTEGER *NW,
29272 FLOAT *H,
29273 const INTEGER *LDH,
29274 const INTEGER *ILOZ,
29275 const INTEGER *IHIZ,
29276 FLOAT *Z,
29277 const INTEGER *LDZ,
29278 INTEGER *NS,
29279 INTEGER *ND,
29280 FLOAT *SR,
29281 FLOAT *SI,
29282 FLOAT *V,
29283 const INTEGER *LDV,
29284 const INTEGER *NH,
29285 FLOAT *T,
29286 const INTEGER *LDT,
29287 const INTEGER *NV,
29288 FLOAT *WV,
29289 const INTEGER *LDWV,
29290 FLOAT *WORK,
29291 const INTEGER *LWORK)
29292 {
29293 DEBUG_LAPACK_STUB("slaqr3");
29294 LAPACK_IMPL(slaqr3)(WANTT,
29295 WANTZ,
29296 N,
29297 KTOP,
29298 KBOT,
29299 NW,
29300 H,
29301 LDH,
29302 ILOZ,
29303 IHIZ,
29304 Z,
29305 LDZ,
29306 NS,
29307 ND,
29308 SR,
29309 SI,
29310 V,
29311 LDV,
29312 NH,
29313 T,
29314 LDT,
29315 NV,
29316 WV,
29317 LDWV,
29318 WORK,
29319 LWORK);
29320 }
29321
29322 //-- slaqr4 --------------------------------------------------------------------
29323 void
LAPACK_DECL(slaqr4)29324 LAPACK_DECL(slaqr4)(const LOGICAL *WANTT,
29325 const LOGICAL *WANTZ,
29326 const INTEGER *N,
29327 const INTEGER *ILO,
29328 const INTEGER *IHI,
29329 FLOAT *H,
29330 const INTEGER *LDH,
29331 FLOAT *WR,
29332 FLOAT *WI,
29333 const INTEGER *ILOZ,
29334 const INTEGER *IHIZ,
29335 FLOAT *Z,
29336 const INTEGER *LDZ,
29337 FLOAT *WORK,
29338 const INTEGER *LWORK,
29339 INTEGER *INFO)
29340 {
29341 DEBUG_LAPACK_STUB("slaqr4");
29342 LAPACK_IMPL(slaqr4)(WANTT,
29343 WANTZ,
29344 N,
29345 ILO,
29346 IHI,
29347 H,
29348 LDH,
29349 WR,
29350 WI,
29351 ILOZ,
29352 IHIZ,
29353 Z,
29354 LDZ,
29355 WORK,
29356 LWORK,
29357 INFO);
29358 }
29359
29360 //-- slaqr5 --------------------------------------------------------------------
29361 void
LAPACK_DECL(slaqr5)29362 LAPACK_DECL(slaqr5)(const LOGICAL *WANTT,
29363 const LOGICAL *WANTZ,
29364 const INTEGER *KACC22,
29365 const INTEGER *N,
29366 const INTEGER *KTOP,
29367 const INTEGER *KBOT,
29368 const INTEGER *NSHFTS,
29369 FLOAT *SR,
29370 FLOAT *SI,
29371 FLOAT *H,
29372 const INTEGER *LDH,
29373 const INTEGER *ILOZ,
29374 const INTEGER *IHIZ,
29375 FLOAT *Z,
29376 const INTEGER *LDZ,
29377 FLOAT *V,
29378 const INTEGER *LDV,
29379 FLOAT *U,
29380 const INTEGER *LDU,
29381 const INTEGER *NV,
29382 FLOAT *WV,
29383 const INTEGER *LDWV,
29384 const INTEGER *NH,
29385 FLOAT *WH,
29386 const INTEGER *LDWH)
29387 {
29388 DEBUG_LAPACK_STUB("slaqr5");
29389 LAPACK_IMPL(slaqr5)(WANTT,
29390 WANTZ,
29391 KACC22,
29392 N,
29393 KTOP,
29394 KBOT,
29395 NSHFTS,
29396 SR,
29397 SI,
29398 H,
29399 LDH,
29400 ILOZ,
29401 IHIZ,
29402 Z,
29403 LDZ,
29404 V,
29405 LDV,
29406 U,
29407 LDU,
29408 NV,
29409 WV,
29410 LDWV,
29411 NH,
29412 WH,
29413 LDWH);
29414 }
29415
29416 //-- slaqsb --------------------------------------------------------------------
29417 void
LAPACK_DECL(slaqsb)29418 LAPACK_DECL(slaqsb)(const char *UPLO,
29419 const INTEGER *N,
29420 const INTEGER *KD,
29421 FLOAT *AB,
29422 const INTEGER *LDAB,
29423 const FLOAT *S,
29424 const FLOAT *SCOND,
29425 const FLOAT *AMAX,
29426 char *EQUED)
29427 {
29428 DEBUG_LAPACK_STUB("slaqsb");
29429 LAPACK_IMPL(slaqsb)(UPLO,
29430 N,
29431 KD,
29432 AB,
29433 LDAB,
29434 S,
29435 SCOND,
29436 AMAX,
29437 EQUED);
29438 }
29439
29440 //-- slaqsp --------------------------------------------------------------------
29441 void
LAPACK_DECL(slaqsp)29442 LAPACK_DECL(slaqsp)(const char *UPLO,
29443 const INTEGER *N,
29444 FLOAT *AP,
29445 const FLOAT *S,
29446 const FLOAT *SCOND,
29447 const FLOAT *AMAX,
29448 char *EQUED)
29449 {
29450 DEBUG_LAPACK_STUB("slaqsp");
29451 LAPACK_IMPL(slaqsp)(UPLO,
29452 N,
29453 AP,
29454 S,
29455 SCOND,
29456 AMAX,
29457 EQUED);
29458 }
29459
29460 //-- slaqsy --------------------------------------------------------------------
29461 void
LAPACK_DECL(slaqsy)29462 LAPACK_DECL(slaqsy)(const char *UPLO,
29463 const INTEGER *N,
29464 FLOAT *A,
29465 const INTEGER *LDA,
29466 const FLOAT *S,
29467 const FLOAT *SCOND,
29468 const FLOAT *AMAX,
29469 char *EQUED)
29470 {
29471 DEBUG_LAPACK_STUB("slaqsy");
29472 LAPACK_IMPL(slaqsy)(UPLO,
29473 N,
29474 A,
29475 LDA,
29476 S,
29477 SCOND,
29478 AMAX,
29479 EQUED);
29480 }
29481
29482 //-- slaqtr --------------------------------------------------------------------
29483 void
LAPACK_DECL(slaqtr)29484 LAPACK_DECL(slaqtr)(const LOGICAL *LTRAN,
29485 const LOGICAL *LREAL,
29486 const INTEGER *N,
29487 const FLOAT *T,
29488 const INTEGER *LDT,
29489 const FLOAT *B,
29490 const FLOAT *W,
29491 FLOAT *SCALE,
29492 FLOAT *X,
29493 FLOAT *WORK,
29494 INTEGER *INFO)
29495 {
29496 DEBUG_LAPACK_STUB("slaqtr");
29497 LAPACK_IMPL(slaqtr)(LTRAN,
29498 LREAL,
29499 N,
29500 T,
29501 LDT,
29502 B,
29503 W,
29504 SCALE,
29505 X,
29506 WORK,
29507 INFO);
29508 }
29509
29510 //-- slar1v --------------------------------------------------------------------
29511 void
LAPACK_DECL(slar1v)29512 LAPACK_DECL(slar1v)(const INTEGER *N,
29513 const INTEGER *B1,
29514 const INTEGER *BN,
29515 const FLOAT *LAMBDA,
29516 const FLOAT *D,
29517 const FLOAT *L,
29518 const FLOAT *LD,
29519 const FLOAT *LLD,
29520 const FLOAT *PIVMIN,
29521 const FLOAT *GAPTOL,
29522 FLOAT *Z,
29523 const LOGICAL *WANTNC,
29524 INTEGER *NEGCNT,
29525 FLOAT *ZTZ,
29526 FLOAT *MINGMA,
29527 INTEGER *R,
29528 INTEGER *ISUPPZ,
29529 FLOAT *NRMINV,
29530 FLOAT *RESID,
29531 FLOAT *RQCORR,
29532 FLOAT *WORK)
29533 {
29534 DEBUG_LAPACK_STUB("slar1v");
29535 LAPACK_IMPL(slar1v)(N,
29536 B1,
29537 BN,
29538 LAMBDA,
29539 D,
29540 L,
29541 LD,
29542 LLD,
29543 PIVMIN,
29544 GAPTOL,
29545 Z,
29546 WANTNC,
29547 NEGCNT,
29548 ZTZ,
29549 MINGMA,
29550 R,
29551 ISUPPZ,
29552 NRMINV,
29553 RESID,
29554 RQCORR,
29555 WORK);
29556 }
29557
29558 //-- slar2v --------------------------------------------------------------------
29559 void
LAPACK_DECL(slar2v)29560 LAPACK_DECL(slar2v)(const INTEGER *N,
29561 FLOAT *X,
29562 FLOAT *Y,
29563 FLOAT *Z,
29564 const INTEGER *INCX,
29565 const FLOAT *C,
29566 const FLOAT *S,
29567 const INTEGER *INCC)
29568 {
29569 DEBUG_LAPACK_STUB("slar2v");
29570 LAPACK_IMPL(slar2v)(N,
29571 X,
29572 Y,
29573 Z,
29574 INCX,
29575 C,
29576 S,
29577 INCC);
29578 }
29579
29580 //-- slarf ---------------------------------------------------------------------
29581 void
LAPACK_DECL(slarf)29582 LAPACK_DECL(slarf)(const char *SIDE,
29583 const INTEGER *M,
29584 const INTEGER *N,
29585 const FLOAT *V,
29586 const INTEGER *INCV,
29587 const FLOAT *TAU,
29588 FLOAT *C,
29589 const INTEGER *LDC,
29590 FLOAT *WORK)
29591 {
29592 DEBUG_LAPACK_STUB("slarf");
29593 LAPACK_IMPL(slarf)(SIDE,
29594 M,
29595 N,
29596 V,
29597 INCV,
29598 TAU,
29599 C,
29600 LDC,
29601 WORK);
29602 }
29603
29604 //-- slarfb --------------------------------------------------------------------
29605 void
LAPACK_DECL(slarfb)29606 LAPACK_DECL(slarfb)(const char *SIDE,
29607 const char *TRANS,
29608 const char *DIRECT,
29609 const char *STOREV,
29610 const INTEGER *M,
29611 const INTEGER *N,
29612 const INTEGER *K,
29613 const FLOAT *V,
29614 const INTEGER *LDV,
29615 const FLOAT *T,
29616 const INTEGER *LDT,
29617 FLOAT *C,
29618 const INTEGER *LDC,
29619 FLOAT *WORK,
29620 const INTEGER *LDWORK)
29621 {
29622 DEBUG_LAPACK_STUB("slarfb");
29623 LAPACK_IMPL(slarfb)(SIDE,
29624 TRANS,
29625 DIRECT,
29626 STOREV,
29627 M,
29628 N,
29629 K,
29630 V,
29631 LDV,
29632 T,
29633 LDT,
29634 C,
29635 LDC,
29636 WORK,
29637 LDWORK);
29638 }
29639
29640 //-- slarfg --------------------------------------------------------------------
29641 void
LAPACK_DECL(slarfg)29642 LAPACK_DECL(slarfg)(const INTEGER *N,
29643 FLOAT *ALPHA,
29644 FLOAT *X,
29645 const INTEGER *INCX,
29646 FLOAT *TAU)
29647 {
29648 DEBUG_LAPACK_STUB("slarfg");
29649 LAPACK_IMPL(slarfg)(N,
29650 ALPHA,
29651 X,
29652 INCX,
29653 TAU);
29654 }
29655
29656 //-- slarfgp -------------------------------------------------------------------
29657 void
LAPACK_DECL(slarfgp)29658 LAPACK_DECL(slarfgp)(const INTEGER *N,
29659 FLOAT *ALPHA,
29660 FLOAT *X,
29661 const INTEGER *INCX,
29662 FLOAT *TAU)
29663 {
29664 DEBUG_LAPACK_STUB("slarfgp");
29665 LAPACK_IMPL(slarfgp)(N,
29666 ALPHA,
29667 X,
29668 INCX,
29669 TAU);
29670 }
29671
29672 //-- slarft --------------------------------------------------------------------
29673 void
LAPACK_DECL(slarft)29674 LAPACK_DECL(slarft)(const char *DIRECT,
29675 const char *STOREV,
29676 const INTEGER *N,
29677 const INTEGER *K,
29678 FLOAT *V,
29679 const INTEGER *LDV,
29680 const FLOAT *TAU,
29681 FLOAT *T,
29682 const INTEGER *LDT)
29683 {
29684 DEBUG_LAPACK_STUB("slarft");
29685 LAPACK_IMPL(slarft)(DIRECT,
29686 STOREV,
29687 N,
29688 K,
29689 V,
29690 LDV,
29691 TAU,
29692 T,
29693 LDT);
29694 }
29695
29696 //-- slarfx --------------------------------------------------------------------
29697 void
LAPACK_DECL(slarfx)29698 LAPACK_DECL(slarfx)(const char *SIDE,
29699 const INTEGER *M,
29700 const INTEGER *N,
29701 const FLOAT *V,
29702 const FLOAT *TAU,
29703 FLOAT *C,
29704 const INTEGER *LDC,
29705 FLOAT *WORK)
29706 {
29707 DEBUG_LAPACK_STUB("slarfx");
29708 LAPACK_IMPL(slarfx)(SIDE,
29709 M,
29710 N,
29711 V,
29712 TAU,
29713 C,
29714 LDC,
29715 WORK);
29716 }
29717
29718 //-- slargv --------------------------------------------------------------------
29719 void
LAPACK_DECL(slargv)29720 LAPACK_DECL(slargv)(const INTEGER *N,
29721 FLOAT *X,
29722 const INTEGER *INCX,
29723 FLOAT *Y,
29724 const INTEGER *INCY,
29725 FLOAT *C,
29726 const INTEGER *INCC)
29727 {
29728 DEBUG_LAPACK_STUB("slargv");
29729 LAPACK_IMPL(slargv)(N,
29730 X,
29731 INCX,
29732 Y,
29733 INCY,
29734 C,
29735 INCC);
29736 }
29737
29738 //-- slarnv --------------------------------------------------------------------
29739 void
LAPACK_DECL(slarnv)29740 LAPACK_DECL(slarnv)(const INTEGER *IDIST,
29741 INTEGER *ISEED,
29742 const INTEGER *N,
29743 FLOAT *X)
29744 {
29745 DEBUG_LAPACK_STUB("slarnv");
29746 LAPACK_IMPL(slarnv)(IDIST,
29747 ISEED,
29748 N,
29749 X);
29750 }
29751
29752 //-- slarra --------------------------------------------------------------------
29753 void
LAPACK_DECL(slarra)29754 LAPACK_DECL(slarra)(const INTEGER *N,
29755 const FLOAT *D,
29756 FLOAT *E,
29757 FLOAT *E2,
29758 const FLOAT *SPLTOL,
29759 const FLOAT *TNRM,
29760 INTEGER *NSPLIT,
29761 INTEGER *ISPLIT,
29762 INTEGER *INFO)
29763 {
29764 DEBUG_LAPACK_STUB("slarra");
29765 LAPACK_IMPL(slarra)(N,
29766 D,
29767 E,
29768 E2,
29769 SPLTOL,
29770 TNRM,
29771 NSPLIT,
29772 ISPLIT,
29773 INFO);
29774 }
29775
29776 //-- slarrb --------------------------------------------------------------------
29777 void
LAPACK_DECL(slarrb)29778 LAPACK_DECL(slarrb)(const INTEGER *N,
29779 const FLOAT *D,
29780 const FLOAT *LLD,
29781 const INTEGER *IFIRST,
29782 const INTEGER *ILAST,
29783 const FLOAT *RTOL1,
29784 const FLOAT *RTOL2,
29785 const INTEGER *OFFSET,
29786 FLOAT *W,
29787 FLOAT *WGAP,
29788 FLOAT *WERR,
29789 FLOAT *WORK,
29790 INTEGER *IWORK,
29791 const FLOAT *PIVMIN,
29792 const FLOAT *SPDIAM,
29793 const INTEGER *TWIST,
29794 INTEGER *INFO)
29795 {
29796 DEBUG_LAPACK_STUB("slarrb");
29797 LAPACK_IMPL(slarrb)(N,
29798 D,
29799 LLD,
29800 IFIRST,
29801 ILAST,
29802 RTOL1,
29803 RTOL2,
29804 OFFSET,
29805 W,
29806 WGAP,
29807 WERR,
29808 WORK,
29809 IWORK,
29810 PIVMIN,
29811 SPDIAM,
29812 TWIST,
29813 INFO);
29814 }
29815
29816 //-- slarrc --------------------------------------------------------------------
29817 void
LAPACK_DECL(slarrc)29818 LAPACK_DECL(slarrc)(const char *JOBT,
29819 const INTEGER *N,
29820 const FLOAT *VL,
29821 const FLOAT *VU,
29822 const FLOAT *D,
29823 const FLOAT *E,
29824 const FLOAT *PIVMIN,
29825 INTEGER *EIGCNT,
29826 INTEGER *LCNT,
29827 INTEGER *RCNT,
29828 INTEGER *INFO)
29829 {
29830 DEBUG_LAPACK_STUB("slarrc");
29831 LAPACK_IMPL(slarrc)(JOBT,
29832 N,
29833 VL,
29834 VU,
29835 D,
29836 E,
29837 PIVMIN,
29838 EIGCNT,
29839 LCNT,
29840 RCNT,
29841 INFO);
29842 }
29843
29844 //-- slarrd --------------------------------------------------------------------
29845 void
LAPACK_DECL(slarrd)29846 LAPACK_DECL(slarrd)(const char *RANGE,
29847 const char *ORDER,
29848 const INTEGER *N,
29849 const FLOAT *VL,
29850 const FLOAT *VU,
29851 const INTEGER *IL,
29852 const INTEGER *IU,
29853 const FLOAT *GERS,
29854 const FLOAT *RELTOL,
29855 const FLOAT *D,
29856 const FLOAT *E,
29857 const FLOAT *E2,
29858 const FLOAT *PIVMIN,
29859 const INTEGER *NSPLIT,
29860 const INTEGER *ISPLIT,
29861 INTEGER *M,
29862 FLOAT *W,
29863 FLOAT *WERR,
29864 FLOAT *WL,
29865 FLOAT *WU,
29866 INTEGER *IBLOCK,
29867 INTEGER *INDEXW,
29868 FLOAT *WORK,
29869 INTEGER *IWORK,
29870 INTEGER *INFO)
29871 {
29872 DEBUG_LAPACK_STUB("slarrd");
29873 LAPACK_IMPL(slarrd)(RANGE,
29874 ORDER,
29875 N,
29876 VL,
29877 VU,
29878 IL,
29879 IU,
29880 GERS,
29881 RELTOL,
29882 D,
29883 E,
29884 E2,
29885 PIVMIN,
29886 NSPLIT,
29887 ISPLIT,
29888 M,
29889 W,
29890 WERR,
29891 WL,
29892 WU,
29893 IBLOCK,
29894 INDEXW,
29895 WORK,
29896 IWORK,
29897 INFO);
29898 }
29899
29900 //-- slarre --------------------------------------------------------------------
29901 void
LAPACK_DECL(slarre)29902 LAPACK_DECL(slarre)(const char *RANGE,
29903 const INTEGER *N,
29904 FLOAT *VL,
29905 FLOAT *VU,
29906 const INTEGER *IL,
29907 const INTEGER *IU,
29908 FLOAT *D,
29909 FLOAT *E,
29910 FLOAT *E2,
29911 const FLOAT *RTOL1,
29912 const FLOAT *RTOL2,
29913 const FLOAT *SPLTOL,
29914 INTEGER *NSPLIT,
29915 INTEGER *ISPLIT,
29916 INTEGER *M,
29917 FLOAT *W,
29918 FLOAT *WERR,
29919 FLOAT *WGAP,
29920 INTEGER *IBLOCK,
29921 INTEGER *INDEXW,
29922 FLOAT *GERS,
29923 FLOAT *PIVMIN,
29924 FLOAT *WORK,
29925 INTEGER *IWORK,
29926 INTEGER *INFO)
29927 {
29928 DEBUG_LAPACK_STUB("slarre");
29929 LAPACK_IMPL(slarre)(RANGE,
29930 N,
29931 VL,
29932 VU,
29933 IL,
29934 IU,
29935 D,
29936 E,
29937 E2,
29938 RTOL1,
29939 RTOL2,
29940 SPLTOL,
29941 NSPLIT,
29942 ISPLIT,
29943 M,
29944 W,
29945 WERR,
29946 WGAP,
29947 IBLOCK,
29948 INDEXW,
29949 GERS,
29950 PIVMIN,
29951 WORK,
29952 IWORK,
29953 INFO);
29954 }
29955
29956 //-- slarrf --------------------------------------------------------------------
29957 void
LAPACK_DECL(slarrf)29958 LAPACK_DECL(slarrf)(const INTEGER *N,
29959 const FLOAT *D,
29960 const FLOAT *L,
29961 const FLOAT *LD,
29962 const INTEGER *CLSTRT,
29963 const INTEGER *CLEND,
29964 const FLOAT *W,
29965 FLOAT *WGAP,
29966 const FLOAT *WERR,
29967 const FLOAT *SPDIAM,
29968 const FLOAT *CLGAPL,
29969 const FLOAT *CLGAPR,
29970 const FLOAT *PIVMIN,
29971 FLOAT *SIGMA,
29972 FLOAT *DPLUS,
29973 FLOAT *LPLUS,
29974 FLOAT *WORK,
29975 const INTEGER *INFO)
29976 {
29977 DEBUG_LAPACK_STUB("slarrf");
29978 LAPACK_IMPL(slarrf)(N,
29979 D,
29980 L,
29981 LD,
29982 CLSTRT,
29983 CLEND,
29984 W,
29985 WGAP,
29986 WERR,
29987 SPDIAM,
29988 CLGAPL,
29989 CLGAPR,
29990 PIVMIN,
29991 SIGMA,
29992 DPLUS,
29993 LPLUS,
29994 WORK,
29995 INFO);
29996 }
29997
29998 //-- slarrj --------------------------------------------------------------------
29999 void
LAPACK_DECL(slarrj)30000 LAPACK_DECL(slarrj)(const INTEGER *N,
30001 const FLOAT *D,
30002 const FLOAT *E2,
30003 const INTEGER *IFIRST,
30004 const INTEGER *ILAST,
30005 const FLOAT *RTOL,
30006 const INTEGER *OFFSET,
30007 FLOAT *W,
30008 FLOAT *WERR,
30009 FLOAT *WORK,
30010 INTEGER *IWORK,
30011 const FLOAT *PIVMIN,
30012 const FLOAT *SPDIAM,
30013 INTEGER *INFO)
30014 {
30015 DEBUG_LAPACK_STUB("slarrj");
30016 LAPACK_IMPL(slarrj)(N,
30017 D,
30018 E2,
30019 IFIRST,
30020 ILAST,
30021 RTOL,
30022 OFFSET,
30023 W,
30024 WERR,
30025 WORK,
30026 IWORK,
30027 PIVMIN,
30028 SPDIAM,
30029 INFO);
30030 }
30031
30032 //-- slarrk --------------------------------------------------------------------
30033 void
LAPACK_DECL(slarrk)30034 LAPACK_DECL(slarrk)(const INTEGER *N,
30035 const INTEGER *IW,
30036 const FLOAT *GL,
30037 const FLOAT *GU,
30038 const FLOAT *D,
30039 const FLOAT *E2,
30040 const FLOAT *PIVMIN,
30041 const FLOAT *RELTOL,
30042 FLOAT *W,
30043 FLOAT *WERR,
30044 INTEGER *INFO)
30045 {
30046 DEBUG_LAPACK_STUB("slarrk");
30047 LAPACK_IMPL(slarrk)(N,
30048 IW,
30049 GL,
30050 GU,
30051 D,
30052 E2,
30053 PIVMIN,
30054 RELTOL,
30055 W,
30056 WERR,
30057 INFO);
30058 }
30059
30060 //-- slarrr --------------------------------------------------------------------
30061 void
LAPACK_DECL(slarrr)30062 LAPACK_DECL(slarrr)(const INTEGER *N,
30063 const FLOAT *D,
30064 FLOAT *E,
30065 INTEGER *INFO)
30066 {
30067 DEBUG_LAPACK_STUB("slarrr");
30068 LAPACK_IMPL(slarrr)(N,
30069 D,
30070 E,
30071 INFO);
30072 }
30073
30074 //-- slarrv --------------------------------------------------------------------
30075 void
LAPACK_DECL(slarrv)30076 LAPACK_DECL(slarrv)(const INTEGER *N,
30077 const FLOAT *VL,
30078 const FLOAT *VU,
30079 FLOAT *D,
30080 FLOAT *L,
30081 const FLOAT *PIVMIN,
30082 const INTEGER *ISPLIT,
30083 const INTEGER *M,
30084 const INTEGER *DOL,
30085 const INTEGER *DOU,
30086 const FLOAT *MINRGP,
30087 const FLOAT *RTOL1,
30088 const FLOAT *RTOL2,
30089 FLOAT *W,
30090 FLOAT *WERR,
30091 FLOAT *WGAP,
30092 const INTEGER *IBLOCK,
30093 const INTEGER *INDEXW,
30094 const FLOAT *GERS,
30095 FLOAT *Z,
30096 const INTEGER *LDZ,
30097 INTEGER *ISUPPZ,
30098 FLOAT *WORK,
30099 INTEGER *IWORK,
30100 INTEGER *INFO)
30101 {
30102 DEBUG_LAPACK_STUB("slarrv");
30103 LAPACK_IMPL(slarrv)(N,
30104 VL,
30105 VU,
30106 D,
30107 L,
30108 PIVMIN,
30109 ISPLIT,
30110 M,
30111 DOL,
30112 DOU,
30113 MINRGP,
30114 RTOL1,
30115 RTOL2,
30116 W,
30117 WERR,
30118 WGAP,
30119 IBLOCK,
30120 INDEXW,
30121 GERS,
30122 Z,
30123 LDZ,
30124 ISUPPZ,
30125 WORK,
30126 IWORK,
30127 INFO);
30128 }
30129
30130 //-- slarscl2 ------------------------------------------------------------------
30131 void
LAPACK_DECL(slarscl2)30132 LAPACK_DECL(slarscl2)(const INTEGER *M,
30133 const INTEGER *N,
30134 const FLOAT *D,
30135 FLOAT *X,
30136 const INTEGER *LDX)
30137 {
30138 DEBUG_LAPACK_STUB("slarscl2");
30139 LAPACK_IMPL(slarscl2)(M,
30140 N,
30141 D,
30142 X,
30143 LDX);
30144 }
30145
30146 //-- slartg --------------------------------------------------------------------
30147 void
LAPACK_DECL(slartg)30148 LAPACK_DECL(slartg)(const FLOAT *F,
30149 const FLOAT *G,
30150 FLOAT *CS,
30151 FLOAT *SN,
30152 FLOAT *R)
30153 {
30154 DEBUG_LAPACK_STUB("slartg");
30155 LAPACK_IMPL(slartg)(F,
30156 G,
30157 CS,
30158 SN,
30159 R);
30160 }
30161
30162 //-- slartgp -------------------------------------------------------------------
30163 void
LAPACK_DECL(slartgp)30164 LAPACK_DECL(slartgp)(const FLOAT *F,
30165 const FLOAT *G,
30166 FLOAT *CS,
30167 FLOAT *SN,
30168 FLOAT *R)
30169 {
30170 DEBUG_LAPACK_STUB("slartgp");
30171 LAPACK_IMPL(slartgp)(F,
30172 G,
30173 CS,
30174 SN,
30175 R);
30176 }
30177
30178 //-- slartgs -------------------------------------------------------------------
30179 void
LAPACK_DECL(slartgs)30180 LAPACK_DECL(slartgs)(const FLOAT *X,
30181 const FLOAT *Y,
30182 const FLOAT *SIGMA,
30183 FLOAT *CS,
30184 FLOAT *SN)
30185 {
30186 DEBUG_LAPACK_STUB("slartgs");
30187 LAPACK_IMPL(slartgs)(X,
30188 Y,
30189 SIGMA,
30190 CS,
30191 SN);
30192 }
30193
30194 //-- slartv --------------------------------------------------------------------
30195 void
LAPACK_DECL(slartv)30196 LAPACK_DECL(slartv)(const INTEGER *N,
30197 FLOAT *X,
30198 const INTEGER *INCX,
30199 FLOAT *Y,
30200 const INTEGER *INCY,
30201 const FLOAT *C,
30202 const FLOAT *S,
30203 const INTEGER *INCC)
30204 {
30205 DEBUG_LAPACK_STUB("slartv");
30206 LAPACK_IMPL(slartv)(N,
30207 X,
30208 INCX,
30209 Y,
30210 INCY,
30211 C,
30212 S,
30213 INCC);
30214 }
30215
30216 //-- slaruv --------------------------------------------------------------------
30217 void
LAPACK_DECL(slaruv)30218 LAPACK_DECL(slaruv)(INTEGER *ISEED,
30219 const INTEGER *N,
30220 FLOAT *X)
30221 {
30222 DEBUG_LAPACK_STUB("slaruv");
30223 LAPACK_IMPL(slaruv)(ISEED,
30224 N,
30225 X);
30226 }
30227
30228 //-- slarz ---------------------------------------------------------------------
30229 void
LAPACK_DECL(slarz)30230 LAPACK_DECL(slarz)(const char *SIDE,
30231 const INTEGER *M,
30232 const INTEGER *N,
30233 const INTEGER *L,
30234 const FLOAT *V,
30235 const INTEGER *INCV,
30236 const FLOAT *TAU,
30237 FLOAT *C,
30238 const INTEGER *LDC,
30239 FLOAT *WORK)
30240 {
30241 DEBUG_LAPACK_STUB("slarz");
30242 LAPACK_IMPL(slarz)(SIDE,
30243 M,
30244 N,
30245 L,
30246 V,
30247 INCV,
30248 TAU,
30249 C,
30250 LDC,
30251 WORK);
30252 }
30253
30254 //-- slarzb --------------------------------------------------------------------
30255 void
LAPACK_DECL(slarzb)30256 LAPACK_DECL(slarzb)(const char *SIDE,
30257 const char *TRANS,
30258 const char *DIRECT,
30259 const char *STOREV,
30260 const INTEGER *M,
30261 const INTEGER *N,
30262 const INTEGER *K,
30263 const INTEGER *L,
30264 const FLOAT *V,
30265 const INTEGER *LDV,
30266 const FLOAT *T,
30267 const INTEGER *LDT,
30268 FLOAT *C,
30269 const INTEGER *LDC,
30270 FLOAT *WORK,
30271 const INTEGER *LDWORK)
30272 {
30273 DEBUG_LAPACK_STUB("slarzb");
30274 LAPACK_IMPL(slarzb)(SIDE,
30275 TRANS,
30276 DIRECT,
30277 STOREV,
30278 M,
30279 N,
30280 K,
30281 L,
30282 V,
30283 LDV,
30284 T,
30285 LDT,
30286 C,
30287 LDC,
30288 WORK,
30289 LDWORK);
30290 }
30291
30292 //-- slarzt --------------------------------------------------------------------
30293 void
LAPACK_DECL(slarzt)30294 LAPACK_DECL(slarzt)(const char *DIRECT,
30295 const char *STOREV,
30296 const INTEGER *N,
30297 const INTEGER *K,
30298 FLOAT *V,
30299 const INTEGER *LDV,
30300 const FLOAT *TAU,
30301 FLOAT *T,
30302 const INTEGER *LDT)
30303 {
30304 DEBUG_LAPACK_STUB("slarzt");
30305 LAPACK_IMPL(slarzt)(DIRECT,
30306 STOREV,
30307 N,
30308 K,
30309 V,
30310 LDV,
30311 TAU,
30312 T,
30313 LDT);
30314 }
30315
30316 //-- slas2 ---------------------------------------------------------------------
30317 void
LAPACK_DECL(slas2)30318 LAPACK_DECL(slas2)(const FLOAT *F,
30319 const FLOAT *G,
30320 const FLOAT *H,
30321 FLOAT *SSMIN,
30322 FLOAT *SSMAX)
30323 {
30324 DEBUG_LAPACK_STUB("slas2");
30325 LAPACK_IMPL(slas2)(F,
30326 G,
30327 H,
30328 SSMIN,
30329 SSMAX);
30330 }
30331
30332 //-- slascl --------------------------------------------------------------------
30333 void
LAPACK_DECL(slascl)30334 LAPACK_DECL(slascl)(const char *TYPE,
30335 const INTEGER *KL,
30336 const INTEGER *KU,
30337 const FLOAT *CFROM,
30338 const FLOAT *CTO,
30339 const INTEGER *M,
30340 const INTEGER *N,
30341 FLOAT *A,
30342 const INTEGER *LDA,
30343 INTEGER *INFO)
30344 {
30345 DEBUG_LAPACK_STUB("slascl");
30346 LAPACK_IMPL(slascl)(TYPE,
30347 KL,
30348 KU,
30349 CFROM,
30350 CTO,
30351 M,
30352 N,
30353 A,
30354 LDA,
30355 INFO);
30356 }
30357
30358 //-- slascl2 -------------------------------------------------------------------
30359 void
LAPACK_DECL(slascl2)30360 LAPACK_DECL(slascl2)(const INTEGER *M,
30361 const INTEGER *N,
30362 const FLOAT *D,
30363 FLOAT *X,
30364 const INTEGER *LDX)
30365 {
30366 DEBUG_LAPACK_STUB("slascl2");
30367 LAPACK_IMPL(slascl2)(M,
30368 N,
30369 D,
30370 X,
30371 LDX);
30372 }
30373
30374 //-- slasd0 --------------------------------------------------------------------
30375 void
LAPACK_DECL(slasd0)30376 LAPACK_DECL(slasd0)(const INTEGER *N,
30377 const INTEGER *SQRE,
30378 FLOAT *D,
30379 const FLOAT *E,
30380 FLOAT *U,
30381 const INTEGER *LDU,
30382 FLOAT *VT,
30383 const INTEGER *LDVT,
30384 const INTEGER *SMLSIZ,
30385 INTEGER *IWORK,
30386 FLOAT *WORK,
30387 INTEGER *INFO)
30388 {
30389 DEBUG_LAPACK_STUB("slasd0");
30390 LAPACK_IMPL(slasd0)(N,
30391 SQRE,
30392 D,
30393 E,
30394 U,
30395 LDU,
30396 VT,
30397 LDVT,
30398 SMLSIZ,
30399 IWORK,
30400 WORK,
30401 INFO);
30402 }
30403
30404 //-- slasd1 --------------------------------------------------------------------
30405 void
LAPACK_DECL(slasd1)30406 LAPACK_DECL(slasd1)(const INTEGER *NL,
30407 const INTEGER *NR,
30408 const INTEGER *SQRE,
30409 FLOAT *D,
30410 FLOAT *ALPHA,
30411 FLOAT *BETA,
30412 FLOAT *U,
30413 const INTEGER *LDU,
30414 FLOAT *VT,
30415 const INTEGER *LDVT,
30416 INTEGER *IDXQ,
30417 INTEGER *IWORK,
30418 FLOAT *WORK,
30419 INTEGER *INFO)
30420 {
30421 DEBUG_LAPACK_STUB("slasd1");
30422 LAPACK_IMPL(slasd1)(NL,
30423 NR,
30424 SQRE,
30425 D,
30426 ALPHA,
30427 BETA,
30428 U,
30429 LDU,
30430 VT,
30431 LDVT,
30432 IDXQ,
30433 IWORK,
30434 WORK,
30435 INFO);
30436 }
30437
30438 //-- slasd2 --------------------------------------------------------------------
30439 void
LAPACK_DECL(slasd2)30440 LAPACK_DECL(slasd2)(const INTEGER *NL,
30441 const INTEGER *NR,
30442 const INTEGER *SQRE,
30443 INTEGER *K,
30444 FLOAT *D,
30445 FLOAT *Z,
30446 const FLOAT *ALPHA,
30447 const FLOAT *BETA,
30448 FLOAT *U,
30449 const INTEGER *LDU,
30450 FLOAT *VT,
30451 const INTEGER *LDVT,
30452 FLOAT *DSIGMA,
30453 FLOAT *U2,
30454 const INTEGER *LDU2,
30455 FLOAT *VT2,
30456 const INTEGER *LDVT2,
30457 INTEGER *IDXP,
30458 INTEGER *IDX,
30459 INTEGER *IDXC,
30460 INTEGER *IDXQ,
30461 INTEGER *COLTYP,
30462 INTEGER *INFO)
30463 {
30464 DEBUG_LAPACK_STUB("slasd2");
30465 LAPACK_IMPL(slasd2)(NL,
30466 NR,
30467 SQRE,
30468 K,
30469 D,
30470 Z,
30471 ALPHA,
30472 BETA,
30473 U,
30474 LDU,
30475 VT,
30476 LDVT,
30477 DSIGMA,
30478 U2,
30479 LDU2,
30480 VT2,
30481 LDVT2,
30482 IDXP,
30483 IDX,
30484 IDXC,
30485 IDXQ,
30486 COLTYP,
30487 INFO);
30488 }
30489
30490 //-- slasd3 --------------------------------------------------------------------
30491 void
LAPACK_DECL(slasd3)30492 LAPACK_DECL(slasd3)(const INTEGER *NL,
30493 const INTEGER *NR,
30494 const INTEGER *SQRE,
30495 const INTEGER *K,
30496 FLOAT *D,
30497 FLOAT *Q,
30498 const INTEGER *LDQ,
30499 FLOAT *DSIGMA,
30500 FLOAT *U,
30501 const INTEGER *LDU,
30502 const FLOAT *U2,
30503 const INTEGER *LDU2,
30504 FLOAT *VT,
30505 const INTEGER *LDVT,
30506 FLOAT *VT2,
30507 const INTEGER *LDVT2,
30508 const INTEGER *IDXC,
30509 const INTEGER *CTOT,
30510 FLOAT *Z,
30511 INTEGER *INFO)
30512 {
30513 DEBUG_LAPACK_STUB("slasd3");
30514 LAPACK_IMPL(slasd3)(NL,
30515 NR,
30516 SQRE,
30517 K,
30518 D,
30519 Q,
30520 LDQ,
30521 DSIGMA,
30522 U,
30523 LDU,
30524 U2,
30525 LDU2,
30526 VT,
30527 LDVT,
30528 VT2,
30529 LDVT2,
30530 IDXC,
30531 CTOT,
30532 Z,
30533 INFO);
30534 }
30535
30536 //-- slasd4 --------------------------------------------------------------------
30537 void
LAPACK_DECL(slasd4)30538 LAPACK_DECL(slasd4)(const INTEGER *N,
30539 const INTEGER *I,
30540 const FLOAT *D,
30541 const FLOAT *Z,
30542 FLOAT *DELTA,
30543 const FLOAT *RHO,
30544 FLOAT *SIGMA,
30545 FLOAT *WORK,
30546 INTEGER *INFO)
30547 {
30548 DEBUG_LAPACK_STUB("slasd4");
30549 LAPACK_IMPL(slasd4)(N,
30550 I,
30551 D,
30552 Z,
30553 DELTA,
30554 RHO,
30555 SIGMA,
30556 WORK,
30557 INFO);
30558 }
30559
30560 //-- slasd5 --------------------------------------------------------------------
30561 void
LAPACK_DECL(slasd5)30562 LAPACK_DECL(slasd5)(const INTEGER *I,
30563 const FLOAT *D,
30564 const FLOAT *Z,
30565 FLOAT *DELTA,
30566 const FLOAT *RHO,
30567 FLOAT *DSIGMA,
30568 FLOAT *WORK)
30569 {
30570 DEBUG_LAPACK_STUB("slasd5");
30571 LAPACK_IMPL(slasd5)(I,
30572 D,
30573 Z,
30574 DELTA,
30575 RHO,
30576 DSIGMA,
30577 WORK);
30578 }
30579
30580 //-- slasd6 --------------------------------------------------------------------
30581 void
LAPACK_DECL(slasd6)30582 LAPACK_DECL(slasd6)(const INTEGER *ICOMPQ,
30583 const INTEGER *NL,
30584 const INTEGER *NR,
30585 const INTEGER *SQRE,
30586 FLOAT *D,
30587 FLOAT *VF,
30588 FLOAT *VL,
30589 FLOAT *ALPHA,
30590 FLOAT *BETA,
30591 INTEGER *IDXQ,
30592 INTEGER *PERM,
30593 INTEGER *GIVPTR,
30594 INTEGER *GIVCOL,
30595 const INTEGER *LDGCOL,
30596 FLOAT *GIVNUM,
30597 const INTEGER *LDGNUM,
30598 FLOAT *POLES,
30599 FLOAT *DIFL,
30600 FLOAT *DIFR,
30601 FLOAT *Z,
30602 INTEGER *K,
30603 FLOAT *C,
30604 FLOAT *S,
30605 FLOAT *WORK,
30606 INTEGER *IWORK,
30607 INTEGER *INFO)
30608 {
30609 DEBUG_LAPACK_STUB("slasd6");
30610 LAPACK_IMPL(slasd6)(ICOMPQ,
30611 NL,
30612 NR,
30613 SQRE,
30614 D,
30615 VF,
30616 VL,
30617 ALPHA,
30618 BETA,
30619 IDXQ,
30620 PERM,
30621 GIVPTR,
30622 GIVCOL,
30623 LDGCOL,
30624 GIVNUM,
30625 LDGNUM,
30626 POLES,
30627 DIFL,
30628 DIFR,
30629 Z,
30630 K,
30631 C,
30632 S,
30633 WORK,
30634 IWORK,
30635 INFO);
30636 }
30637
30638 //-- slasd7 --------------------------------------------------------------------
30639 void
LAPACK_DECL(slasd7)30640 LAPACK_DECL(slasd7)(const INTEGER *ICOMPQ,
30641 const INTEGER *NL,
30642 const INTEGER *NR,
30643 const INTEGER *SQRE,
30644 INTEGER *K,
30645 FLOAT *D,
30646 FLOAT *Z,
30647 FLOAT *ZW,
30648 FLOAT *VF,
30649 FLOAT *VFW,
30650 FLOAT *VL,
30651 FLOAT *VLW,
30652 const FLOAT *ALPHA,
30653 const FLOAT *BETA,
30654 FLOAT *DSIGMA,
30655 INTEGER *IDX,
30656 INTEGER *IDXP,
30657 const INTEGER *IDXQ,
30658 INTEGER *PERM,
30659 INTEGER *GIVPTR,
30660 INTEGER *GIVCOL,
30661 const INTEGER *LDGCOL,
30662 FLOAT *GIVNUM,
30663 const INTEGER *LDGNUM,
30664 FLOAT *C,
30665 FLOAT *S,
30666 INTEGER *INFO)
30667 {
30668 DEBUG_LAPACK_STUB("slasd7");
30669 LAPACK_IMPL(slasd7)(ICOMPQ,
30670 NL,
30671 NR,
30672 SQRE,
30673 K,
30674 D,
30675 Z,
30676 ZW,
30677 VF,
30678 VFW,
30679 VL,
30680 VLW,
30681 ALPHA,
30682 BETA,
30683 DSIGMA,
30684 IDX,
30685 IDXP,
30686 IDXQ,
30687 PERM,
30688 GIVPTR,
30689 GIVCOL,
30690 LDGCOL,
30691 GIVNUM,
30692 LDGNUM,
30693 C,
30694 S,
30695 INFO);
30696 }
30697
30698 //-- slasd8 --------------------------------------------------------------------
30699 void
LAPACK_DECL(slasd8)30700 LAPACK_DECL(slasd8)(const INTEGER *ICOMPQ,
30701 const INTEGER *K,
30702 FLOAT *D,
30703 FLOAT *Z,
30704 FLOAT *VF,
30705 FLOAT *VL,
30706 FLOAT *DIFL,
30707 FLOAT *DIFR,
30708 const INTEGER *LDDIFR,
30709 FLOAT *DSIGMA,
30710 FLOAT *WORK,
30711 INTEGER *INFO)
30712 {
30713 DEBUG_LAPACK_STUB("slasd8");
30714 LAPACK_IMPL(slasd8)(ICOMPQ,
30715 K,
30716 D,
30717 Z,
30718 VF,
30719 VL,
30720 DIFL,
30721 DIFR,
30722 LDDIFR,
30723 DSIGMA,
30724 WORK,
30725 INFO);
30726 }
30727
30728 //-- slasda --------------------------------------------------------------------
30729 void
LAPACK_DECL(slasda)30730 LAPACK_DECL(slasda)(const INTEGER *ICOMPQ,
30731 const INTEGER *SMLSIZ,
30732 const INTEGER *N,
30733 const INTEGER *SQRE,
30734 FLOAT *D,
30735 const FLOAT *E,
30736 FLOAT *U,
30737 const INTEGER *LDU,
30738 FLOAT *VT,
30739 INTEGER *K,
30740 FLOAT *DIFL,
30741 FLOAT *DIFR,
30742 FLOAT *Z,
30743 FLOAT *POLES,
30744 INTEGER *GIVPTR,
30745 INTEGER *GIVCOL,
30746 const INTEGER *LDGCOL,
30747 INTEGER *PERM,
30748 FLOAT *GIVNUM,
30749 FLOAT *C,
30750 FLOAT *S,
30751 FLOAT *WORK,
30752 INTEGER *IWORK,
30753 INTEGER *INFO)
30754 {
30755 DEBUG_LAPACK_STUB("slasda");
30756 LAPACK_IMPL(slasda)(ICOMPQ,
30757 SMLSIZ,
30758 N,
30759 SQRE,
30760 D,
30761 E,
30762 U,
30763 LDU,
30764 VT,
30765 K,
30766 DIFL,
30767 DIFR,
30768 Z,
30769 POLES,
30770 GIVPTR,
30771 GIVCOL,
30772 LDGCOL,
30773 PERM,
30774 GIVNUM,
30775 C,
30776 S,
30777 WORK,
30778 IWORK,
30779 INFO);
30780 }
30781
30782 //-- slasdq --------------------------------------------------------------------
30783 void
LAPACK_DECL(slasdq)30784 LAPACK_DECL(slasdq)(const char *UPLO,
30785 const INTEGER *SQRE,
30786 const INTEGER *N,
30787 const INTEGER *NCVT,
30788 const INTEGER *NRU,
30789 const INTEGER *NCC,
30790 FLOAT *D,
30791 FLOAT *E,
30792 FLOAT *VT,
30793 const INTEGER *LDVT,
30794 FLOAT *U,
30795 const INTEGER *LDU,
30796 FLOAT *C,
30797 const INTEGER *LDC,
30798 FLOAT *WORK,
30799 INTEGER *INFO)
30800 {
30801 DEBUG_LAPACK_STUB("slasdq");
30802 LAPACK_IMPL(slasdq)(UPLO,
30803 SQRE,
30804 N,
30805 NCVT,
30806 NRU,
30807 NCC,
30808 D,
30809 E,
30810 VT,
30811 LDVT,
30812 U,
30813 LDU,
30814 C,
30815 LDC,
30816 WORK,
30817 INFO);
30818 }
30819
30820 //-- slasdt --------------------------------------------------------------------
30821 void
LAPACK_DECL(slasdt)30822 LAPACK_DECL(slasdt)(const INTEGER *N,
30823 INTEGER *LVL,
30824 INTEGER *ND,
30825 INTEGER *INODE,
30826 INTEGER *NDIML,
30827 INTEGER *NDIMR,
30828 const INTEGER *MSUB)
30829 {
30830 DEBUG_LAPACK_STUB("slasdt");
30831 LAPACK_IMPL(slasdt)(N,
30832 LVL,
30833 ND,
30834 INODE,
30835 NDIML,
30836 NDIMR,
30837 MSUB);
30838 }
30839
30840 //-- slaset --------------------------------------------------------------------
30841 void
LAPACK_DECL(slaset)30842 LAPACK_DECL(slaset)(const char *UPLO,
30843 const INTEGER *M,
30844 const INTEGER *N,
30845 const FLOAT *ALPHA,
30846 const FLOAT *BETA,
30847 FLOAT *A,
30848 const INTEGER *LDA)
30849 {
30850 DEBUG_LAPACK_STUB("slaset");
30851 LAPACK_IMPL(slaset)(UPLO,
30852 M,
30853 N,
30854 ALPHA,
30855 BETA,
30856 A,
30857 LDA);
30858 }
30859
30860 //-- slasq1 --------------------------------------------------------------------
30861 void
LAPACK_DECL(slasq1)30862 LAPACK_DECL(slasq1)(const INTEGER *N,
30863 FLOAT *D,
30864 FLOAT *E,
30865 FLOAT *WORK,
30866 INTEGER *INFO)
30867 {
30868 DEBUG_LAPACK_STUB("slasq1");
30869 LAPACK_IMPL(slasq1)(N,
30870 D,
30871 E,
30872 WORK,
30873 INFO);
30874 }
30875
30876 //-- slasq2 --------------------------------------------------------------------
30877 void
LAPACK_DECL(slasq2)30878 LAPACK_DECL(slasq2)(const INTEGER *N,
30879 FLOAT *Z,
30880 INTEGER *INFO)
30881 {
30882 DEBUG_LAPACK_STUB("slasq2");
30883 LAPACK_IMPL(slasq2)(N,
30884 Z,
30885 INFO);
30886 }
30887
30888 //-- slasq3 --------------------------------------------------------------------
30889 void
LAPACK_DECL(slasq3)30890 LAPACK_DECL(slasq3)(const INTEGER *I0,
30891 INTEGER *N0,
30892 const FLOAT *Z,
30893 INTEGER *PP,
30894 FLOAT *DMIN,
30895 FLOAT *SIGMA,
30896 FLOAT *DESIG,
30897 const FLOAT *QMAX,
30898 INTEGER *NFAIL,
30899 INTEGER *ITER,
30900 INTEGER *NDIV,
30901 const LOGICAL *IEEE,
30902 INTEGER *TTYPE,
30903 FLOAT *DMIN1,
30904 FLOAT *DMIN2,
30905 FLOAT *DN,
30906 FLOAT *DN1,
30907 FLOAT *DN2,
30908 FLOAT *G,
30909 FLOAT *TAU)
30910 {
30911 DEBUG_LAPACK_STUB("slasq3");
30912 LAPACK_IMPL(slasq3)(I0,
30913 N0,
30914 Z,
30915 PP,
30916 DMIN,
30917 SIGMA,
30918 DESIG,
30919 QMAX,
30920 NFAIL,
30921 ITER,
30922 NDIV,
30923 IEEE,
30924 TTYPE,
30925 DMIN1,
30926 DMIN2,
30927 DN,
30928 DN1,
30929 DN2,
30930 G,
30931 TAU);
30932 }
30933
30934 //-- slasq4 --------------------------------------------------------------------
30935 void
LAPACK_DECL(slasq4)30936 LAPACK_DECL(slasq4)(const INTEGER *I0,
30937 const INTEGER *N0,
30938 const FLOAT *Z,
30939 const INTEGER *PP,
30940 const INTEGER *N0IN,
30941 const FLOAT *DMIN,
30942 const FLOAT *DMIN1,
30943 const FLOAT *DMIN2,
30944 const FLOAT *DN,
30945 const FLOAT *DN1,
30946 const FLOAT *DN2,
30947 FLOAT *TAU,
30948 INTEGER *TTYPE,
30949 FLOAT *G)
30950 {
30951 DEBUG_LAPACK_STUB("slasq4");
30952 LAPACK_IMPL(slasq4)(I0,
30953 N0,
30954 Z,
30955 PP,
30956 N0IN,
30957 DMIN,
30958 DMIN1,
30959 DMIN2,
30960 DN,
30961 DN1,
30962 DN2,
30963 TAU,
30964 TTYPE,
30965 G);
30966 }
30967
30968 //-- slasq5 --------------------------------------------------------------------
30969 void
LAPACK_DECL(slasq5)30970 LAPACK_DECL(slasq5)(const INTEGER *I0,
30971 const INTEGER *N0,
30972 const FLOAT *Z,
30973 const INTEGER *PP,
30974 const FLOAT *TAU,
30975 FLOAT *DMIN,
30976 FLOAT *DMIN1,
30977 FLOAT *DMIN2,
30978 FLOAT *DN,
30979 FLOAT *DNM1,
30980 FLOAT *DNM2,
30981 const LOGICAL *IEEE)
30982 {
30983 DEBUG_LAPACK_STUB("slasq5");
30984 LAPACK_IMPL(slasq5)(I0,
30985 N0,
30986 Z,
30987 PP,
30988 TAU,
30989 DMIN,
30990 DMIN1,
30991 DMIN2,
30992 DN,
30993 DNM1,
30994 DNM2,
30995 IEEE);
30996 }
30997
30998 //-- slasq6 --------------------------------------------------------------------
30999 void
LAPACK_DECL(slasq6)31000 LAPACK_DECL(slasq6)(const INTEGER *I0,
31001 const INTEGER *N0,
31002 const FLOAT *Z,
31003 const INTEGER *PP,
31004 FLOAT *DMIN,
31005 FLOAT *DMIN1,
31006 FLOAT *DMIN2,
31007 FLOAT *DN,
31008 FLOAT *DNM1,
31009 FLOAT *DNM2)
31010 {
31011 DEBUG_LAPACK_STUB("slasq6");
31012 LAPACK_IMPL(slasq6)(I0,
31013 N0,
31014 Z,
31015 PP,
31016 DMIN,
31017 DMIN1,
31018 DMIN2,
31019 DN,
31020 DNM1,
31021 DNM2);
31022 }
31023
31024 //-- slasr ---------------------------------------------------------------------
31025 void
LAPACK_DECL(slasr)31026 LAPACK_DECL(slasr)(const char *SIDE,
31027 const char *PIVOT,
31028 const char *DIRECT,
31029 const INTEGER *M,
31030 const INTEGER *N,
31031 const FLOAT *C,
31032 const FLOAT *S,
31033 FLOAT *A,
31034 const INTEGER *LDA)
31035 {
31036 DEBUG_LAPACK_STUB("slasr");
31037 LAPACK_IMPL(slasr)(SIDE,
31038 PIVOT,
31039 DIRECT,
31040 M,
31041 N,
31042 C,
31043 S,
31044 A,
31045 LDA);
31046 }
31047
31048 //-- slasrt --------------------------------------------------------------------
31049 void
LAPACK_DECL(slasrt)31050 LAPACK_DECL(slasrt)(const char *ID,
31051 const INTEGER *N,
31052 FLOAT *D,
31053 INTEGER *INFO)
31054 {
31055 DEBUG_LAPACK_STUB("slasrt");
31056 LAPACK_IMPL(slasrt)(ID,
31057 N,
31058 D,
31059 INFO);
31060 }
31061
31062 //-- slassq --------------------------------------------------------------------
31063 void
LAPACK_DECL(slassq)31064 LAPACK_DECL(slassq)(const INTEGER *N,
31065 const FLOAT *X,
31066 const INTEGER *INCX,
31067 FLOAT *SCALE,
31068 FLOAT *SUMSQ)
31069 {
31070 DEBUG_LAPACK_STUB("slassq");
31071 LAPACK_IMPL(slassq)(N,
31072 X,
31073 INCX,
31074 SCALE,
31075 SUMSQ);
31076 }
31077
31078 //-- slasv2 --------------------------------------------------------------------
31079 void
LAPACK_DECL(slasv2)31080 LAPACK_DECL(slasv2)(const FLOAT *F,
31081 const FLOAT *G,
31082 const FLOAT *H,
31083 FLOAT *SSMIN,
31084 FLOAT *SSMAX,
31085 FLOAT *SNR,
31086 FLOAT *CSR,
31087 FLOAT *SNL,
31088 FLOAT *CSL)
31089 {
31090 DEBUG_LAPACK_STUB("slasv2");
31091 LAPACK_IMPL(slasv2)(F,
31092 G,
31093 H,
31094 SSMIN,
31095 SSMAX,
31096 SNR,
31097 CSR,
31098 SNL,
31099 CSL);
31100 }
31101
31102 //-- slaswp --------------------------------------------------------------------
31103 void
LAPACK_DECL(slaswp)31104 LAPACK_DECL(slaswp)(const INTEGER *N,
31105 FLOAT *A,
31106 const INTEGER *LDA,
31107 const INTEGER *K1,
31108 const INTEGER *K2,
31109 const INTEGER *IPIV,
31110 const INTEGER *INCX)
31111 {
31112 DEBUG_LAPACK_STUB("slaswp");
31113 LAPACK_IMPL(slaswp)(N,
31114 A,
31115 LDA,
31116 K1,
31117 K2,
31118 IPIV,
31119 INCX);
31120 }
31121
31122 //-- slasy2 --------------------------------------------------------------------
31123 void
LAPACK_DECL(slasy2)31124 LAPACK_DECL(slasy2)(const LOGICAL *LTRANL,
31125 const LOGICAL *LTRANR,
31126 const INTEGER *ISGN,
31127 const INTEGER *N1,
31128 const INTEGER *N2,
31129 const FLOAT *TL,
31130 const INTEGER *LDTL,
31131 const FLOAT *TR,
31132 const INTEGER *LDTR,
31133 const FLOAT *B,
31134 const INTEGER *LDB,
31135 FLOAT *SCALE,
31136 FLOAT *X,
31137 const INTEGER *LDX,
31138 FLOAT *XNORM,
31139 INTEGER *INFO)
31140 {
31141 DEBUG_LAPACK_STUB("slasy2");
31142 LAPACK_IMPL(slasy2)(LTRANL,
31143 LTRANR,
31144 ISGN,
31145 N1,
31146 N2,
31147 TL,
31148 LDTL,
31149 TR,
31150 LDTR,
31151 B,
31152 LDB,
31153 SCALE,
31154 X,
31155 LDX,
31156 XNORM,
31157 INFO);
31158 }
31159
31160 //-- slasyf --------------------------------------------------------------------
31161 void
LAPACK_DECL(slasyf)31162 LAPACK_DECL(slasyf)(const char *UPLO,
31163 const INTEGER *N,
31164 const INTEGER *NB,
31165 INTEGER *KB,
31166 FLOAT *A,
31167 const INTEGER *LDA,
31168 INTEGER *IPIV,
31169 FLOAT *W,
31170 const INTEGER *LDW,
31171 INTEGER *INFO)
31172 {
31173 DEBUG_LAPACK_STUB("slasyf");
31174 LAPACK_IMPL(slasyf)(UPLO,
31175 N,
31176 NB,
31177 KB,
31178 A,
31179 LDA,
31180 IPIV,
31181 W,
31182 LDW,
31183 INFO);
31184 }
31185
31186 //-- slatbs --------------------------------------------------------------------
31187 void
LAPACK_DECL(slatbs)31188 LAPACK_DECL(slatbs)(const char *UPLO,
31189 const char *TRANS,
31190 const char *DIAG,
31191 const char *NORMIN,
31192 const INTEGER *N,
31193 const INTEGER *KD,
31194 const FLOAT *AB,
31195 const INTEGER *LDAB,
31196 FLOAT *X,
31197 FLOAT *SCALE,
31198 FLOAT *CNORM,
31199 INTEGER *INFO)
31200 {
31201 DEBUG_LAPACK_STUB("slatbs");
31202 LAPACK_IMPL(slatbs)(UPLO,
31203 TRANS,
31204 DIAG,
31205 NORMIN,
31206 N,
31207 KD,
31208 AB,
31209 LDAB,
31210 X,
31211 SCALE,
31212 CNORM,
31213 INFO);
31214 }
31215
31216 //-- slatdf --------------------------------------------------------------------
31217 void
LAPACK_DECL(slatdf)31218 LAPACK_DECL(slatdf)(const INTEGER *IJOB,
31219 const INTEGER *N,
31220 const FLOAT *Z,
31221 const INTEGER *LDZ,
31222 FLOAT *RHS,
31223 FLOAT *RDSUM,
31224 FLOAT *RDSCAL,
31225 const INTEGER *IPIV,
31226 const INTEGER *JPIV)
31227 {
31228 DEBUG_LAPACK_STUB("slatdf");
31229 LAPACK_IMPL(slatdf)(IJOB,
31230 N,
31231 Z,
31232 LDZ,
31233 RHS,
31234 RDSUM,
31235 RDSCAL,
31236 IPIV,
31237 JPIV);
31238 }
31239
31240 //-- slatps --------------------------------------------------------------------
31241 void
LAPACK_DECL(slatps)31242 LAPACK_DECL(slatps)(const char *UPLO,
31243 const char *TRANS,
31244 const char *DIAG,
31245 const char *NORMIN,
31246 const INTEGER *N,
31247 const FLOAT *AP,
31248 FLOAT *X,
31249 FLOAT *SCALE,
31250 FLOAT *CNORM,
31251 INTEGER *INFO)
31252 {
31253 DEBUG_LAPACK_STUB("slatps");
31254 LAPACK_IMPL(slatps)(UPLO,
31255 TRANS,
31256 DIAG,
31257 NORMIN,
31258 N,
31259 AP,
31260 X,
31261 SCALE,
31262 CNORM,
31263 INFO);
31264 }
31265
31266 //-- slatrd --------------------------------------------------------------------
31267 void
LAPACK_DECL(slatrd)31268 LAPACK_DECL(slatrd)(const char *UPLO,
31269 const INTEGER *N,
31270 const INTEGER *NB,
31271 FLOAT *A,
31272 const INTEGER *LDA,
31273 FLOAT *E,
31274 FLOAT *TAU,
31275 FLOAT *W,
31276 const INTEGER *LDW)
31277 {
31278 DEBUG_LAPACK_STUB("slatrd");
31279 LAPACK_IMPL(slatrd)(UPLO,
31280 N,
31281 NB,
31282 A,
31283 LDA,
31284 E,
31285 TAU,
31286 W,
31287 LDW);
31288 }
31289
31290 //-- slatrs --------------------------------------------------------------------
31291 void
LAPACK_DECL(slatrs)31292 LAPACK_DECL(slatrs)(const char *UPLO,
31293 const char *TRANS,
31294 const char *DIAG,
31295 const char *NORMIN,
31296 const INTEGER *N,
31297 const FLOAT *A,
31298 const INTEGER *LDA,
31299 FLOAT *X,
31300 FLOAT *SCALE,
31301 FLOAT *CNORM,
31302 INTEGER *INFO)
31303 {
31304 DEBUG_LAPACK_STUB("slatrs");
31305 LAPACK_IMPL(slatrs)(UPLO,
31306 TRANS,
31307 DIAG,
31308 NORMIN,
31309 N,
31310 A,
31311 LDA,
31312 X,
31313 SCALE,
31314 CNORM,
31315 INFO);
31316 }
31317
31318 //-- slatrz --------------------------------------------------------------------
31319 void
LAPACK_DECL(slatrz)31320 LAPACK_DECL(slatrz)(const INTEGER *M,
31321 const INTEGER *N,
31322 const INTEGER *L,
31323 FLOAT *A,
31324 const INTEGER *LDA,
31325 FLOAT *TAU,
31326 FLOAT *WORK)
31327 {
31328 DEBUG_LAPACK_STUB("slatrz");
31329 LAPACK_IMPL(slatrz)(M,
31330 N,
31331 L,
31332 A,
31333 LDA,
31334 TAU,
31335 WORK);
31336 }
31337
31338 //-- slatzm --------------------------------------------------------------------
31339 void
LAPACK_DECL(slatzm)31340 LAPACK_DECL(slatzm)(const char *SIDE,
31341 const INTEGER *M,
31342 const INTEGER *N,
31343 const FLOAT *V,
31344 const INTEGER *INCV,
31345 const FLOAT *TAU,
31346 FLOAT *C1,
31347 FLOAT *C2,
31348 const INTEGER *LDC,
31349 FLOAT *WORK)
31350 {
31351 DEBUG_LAPACK_STUB("slatzm");
31352 LAPACK_IMPL(slatzm)(SIDE,
31353 M,
31354 N,
31355 V,
31356 INCV,
31357 TAU,
31358 C1,
31359 C2,
31360 LDC,
31361 WORK);
31362 }
31363
31364 //-- slauu2 --------------------------------------------------------------------
31365 void
LAPACK_DECL(slauu2)31366 LAPACK_DECL(slauu2)(const char *UPLO,
31367 const INTEGER *N,
31368 FLOAT *A,
31369 const INTEGER *LDA,
31370 INTEGER *INFO)
31371 {
31372 DEBUG_LAPACK_STUB("slauu2");
31373 LAPACK_IMPL(slauu2)(UPLO,
31374 N,
31375 A,
31376 LDA,
31377 INFO);
31378 }
31379
31380 //-- slauum --------------------------------------------------------------------
31381 void
LAPACK_DECL(slauum)31382 LAPACK_DECL(slauum)(const char *UPLO,
31383 const INTEGER *N,
31384 FLOAT *A,
31385 const INTEGER *LDA,
31386 INTEGER *INFO)
31387 {
31388 DEBUG_LAPACK_STUB("slauum");
31389 LAPACK_IMPL(slauum)(UPLO,
31390 N,
31391 A,
31392 LDA,
31393 INFO);
31394 }
31395
31396 //-- sopgtr --------------------------------------------------------------------
31397 void
LAPACK_DECL(sopgtr)31398 LAPACK_DECL(sopgtr)(const char *UPLO,
31399 const INTEGER *N,
31400 const FLOAT *AP,
31401 const FLOAT *TAU,
31402 FLOAT *Q,
31403 const INTEGER *LDQ,
31404 FLOAT *WORK,
31405 INTEGER *INFO)
31406 {
31407 DEBUG_LAPACK_STUB("sopgtr");
31408 LAPACK_IMPL(sopgtr)(UPLO,
31409 N,
31410 AP,
31411 TAU,
31412 Q,
31413 LDQ,
31414 WORK,
31415 INFO);
31416 }
31417
31418 //-- sopmtr --------------------------------------------------------------------
31419 void
LAPACK_DECL(sopmtr)31420 LAPACK_DECL(sopmtr)(const char *SIDE,
31421 const char *UPLO,
31422 const char *TRANS,
31423 const INTEGER *M,
31424 const INTEGER *N,
31425 const FLOAT *AP,
31426 const FLOAT *TAU,
31427 FLOAT *C,
31428 const INTEGER *LDC,
31429 FLOAT *WORK,
31430 INTEGER *INFO)
31431 {
31432 DEBUG_LAPACK_STUB("sopmtr");
31433 LAPACK_IMPL(sopmtr)(SIDE,
31434 UPLO,
31435 TRANS,
31436 M,
31437 N,
31438 AP,
31439 TAU,
31440 C,
31441 LDC,
31442 WORK,
31443 INFO);
31444 }
31445
31446 //-- sorbdb --------------------------------------------------------------------
31447 void
LAPACK_DECL(sorbdb)31448 LAPACK_DECL(sorbdb)(const char *TRANS,
31449 const char *SIGNS,
31450 const INTEGER *M,
31451 const INTEGER *P,
31452 const INTEGER *Q,
31453 FLOAT *X11,
31454 const INTEGER *LDX11,
31455 FLOAT *X12,
31456 const INTEGER *LDX12,
31457 FLOAT *X21,
31458 const INTEGER *LDX21,
31459 FLOAT *X22,
31460 const INTEGER *LDX22,
31461 FLOAT *THETA,
31462 FLOAT *PHI,
31463 FLOAT *TAUP1,
31464 FLOAT *TAUP2,
31465 FLOAT *TAUQ1,
31466 FLOAT *TAUQ2,
31467 FLOAT *WORK,
31468 const INTEGER *LWORK,
31469 INTEGER *INFO)
31470 {
31471 DEBUG_LAPACK_STUB("sorbdb");
31472 LAPACK_IMPL(sorbdb)(TRANS,
31473 SIGNS,
31474 M,
31475 P,
31476 Q,
31477 X11,
31478 LDX11,
31479 X12,
31480 LDX12,
31481 X21,
31482 LDX21,
31483 X22,
31484 LDX22,
31485 THETA,
31486 PHI,
31487 TAUP1,
31488 TAUP2,
31489 TAUQ1,
31490 TAUQ2,
31491 WORK,
31492 LWORK,
31493 INFO);
31494 }
31495
31496 //-- sorcsd --------------------------------------------------------------------
31497 void
LAPACK_DECL(sorcsd)31498 LAPACK_DECL(sorcsd)(const char *JOBU1,
31499 const char *JOBU2,
31500 const char *JOBV1T,
31501 const char *JOBV2T,
31502 const char *TRANS,
31503 const char *SIGNS,
31504 const INTEGER *M,
31505 const INTEGER *P,
31506 const INTEGER *Q,
31507 const FLOAT *X11,
31508 const INTEGER *LDX11,
31509 const FLOAT *X12,
31510 const INTEGER *LDX12,
31511 const FLOAT *X21,
31512 const INTEGER *LDX21,
31513 const FLOAT *X22,
31514 const INTEGER *LDX22,
31515 FLOAT *THETA,
31516 FLOAT *U1,
31517 const INTEGER *LDU1,
31518 FLOAT *U2,
31519 const INTEGER *LDU2,
31520 FLOAT *V1T,
31521 const INTEGER *LDV1T,
31522 FLOAT *V2T,
31523 const INTEGER *LDV2T,
31524 FLOAT *WORK,
31525 const INTEGER *LWORK,
31526 INTEGER *IWORK,
31527 INTEGER *INFO)
31528 {
31529 DEBUG_LAPACK_STUB("sorcsd");
31530 LAPACK_IMPL(sorcsd)(JOBU1,
31531 JOBU2,
31532 JOBV1T,
31533 JOBV2T,
31534 TRANS,
31535 SIGNS,
31536 M,
31537 P,
31538 Q,
31539 X11,
31540 LDX11,
31541 X12,
31542 LDX12,
31543 X21,
31544 LDX21,
31545 X22,
31546 LDX22,
31547 THETA,
31548 U1,
31549 LDU1,
31550 U2,
31551 LDU2,
31552 V1T,
31553 LDV1T,
31554 V2T,
31555 LDV2T,
31556 WORK,
31557 LWORK,
31558 IWORK,
31559 INFO);
31560 }
31561
31562 //-- sorg2l --------------------------------------------------------------------
31563 void
LAPACK_DECL(sorg2l)31564 LAPACK_DECL(sorg2l)(const INTEGER *M,
31565 const INTEGER *N,
31566 const INTEGER *K,
31567 FLOAT *A,
31568 const INTEGER *LDA,
31569 const FLOAT *TAU,
31570 FLOAT *WORK,
31571 INTEGER *INFO)
31572 {
31573 DEBUG_LAPACK_STUB("sorg2l");
31574 LAPACK_IMPL(sorg2l)(M,
31575 N,
31576 K,
31577 A,
31578 LDA,
31579 TAU,
31580 WORK,
31581 INFO);
31582 }
31583
31584 //-- sorg2r --------------------------------------------------------------------
31585 void
LAPACK_DECL(sorg2r)31586 LAPACK_DECL(sorg2r)(const INTEGER *M,
31587 const INTEGER *N,
31588 const INTEGER *K,
31589 FLOAT *A,
31590 const INTEGER *LDA,
31591 const FLOAT *TAU,
31592 FLOAT *WORK,
31593 INTEGER *INFO)
31594 {
31595 DEBUG_LAPACK_STUB("sorg2r");
31596 LAPACK_IMPL(sorg2r)(M,
31597 N,
31598 K,
31599 A,
31600 LDA,
31601 TAU,
31602 WORK,
31603 INFO);
31604 }
31605
31606 //-- sorgbr --------------------------------------------------------------------
31607 void
LAPACK_DECL(sorgbr)31608 LAPACK_DECL(sorgbr)(const char *VECT,
31609 const INTEGER *M,
31610 const INTEGER *N,
31611 const INTEGER *K,
31612 FLOAT *A,
31613 const INTEGER *LDA,
31614 const FLOAT *TAU,
31615 FLOAT *WORK,
31616 const INTEGER *LWORK,
31617 INTEGER *INFO)
31618 {
31619 DEBUG_LAPACK_STUB("sorgbr");
31620 LAPACK_IMPL(sorgbr)(VECT,
31621 M,
31622 N,
31623 K,
31624 A,
31625 LDA,
31626 TAU,
31627 WORK,
31628 LWORK,
31629 INFO);
31630 }
31631
31632 //-- sorghr --------------------------------------------------------------------
31633 void
LAPACK_DECL(sorghr)31634 LAPACK_DECL(sorghr)(const INTEGER *N,
31635 const INTEGER *ILO,
31636 const INTEGER *IHI,
31637 FLOAT *A,
31638 const INTEGER *LDA,
31639 const FLOAT *TAU,
31640 FLOAT *WORK,
31641 const INTEGER *LWORK,
31642 INTEGER *INFO)
31643 {
31644 DEBUG_LAPACK_STUB("sorghr");
31645 LAPACK_IMPL(sorghr)(N,
31646 ILO,
31647 IHI,
31648 A,
31649 LDA,
31650 TAU,
31651 WORK,
31652 LWORK,
31653 INFO);
31654 }
31655
31656 //-- sorgl2 --------------------------------------------------------------------
31657 void
LAPACK_DECL(sorgl2)31658 LAPACK_DECL(sorgl2)(const INTEGER *M,
31659 const INTEGER *N,
31660 const INTEGER *K,
31661 FLOAT *A,
31662 const INTEGER *LDA,
31663 const FLOAT *TAU,
31664 FLOAT *WORK,
31665 INTEGER *INFO)
31666 {
31667 DEBUG_LAPACK_STUB("sorgl2");
31668 LAPACK_IMPL(sorgl2)(M,
31669 N,
31670 K,
31671 A,
31672 LDA,
31673 TAU,
31674 WORK,
31675 INFO);
31676 }
31677
31678 //-- sorglq --------------------------------------------------------------------
31679 void
LAPACK_DECL(sorglq)31680 LAPACK_DECL(sorglq)(const INTEGER *M,
31681 const INTEGER *N,
31682 const INTEGER *K,
31683 FLOAT *A,
31684 const INTEGER *LDA,
31685 const FLOAT *TAU,
31686 FLOAT *WORK,
31687 const INTEGER *LWORK,
31688 INTEGER *INFO)
31689 {
31690 DEBUG_LAPACK_STUB("sorglq");
31691 LAPACK_IMPL(sorglq)(M,
31692 N,
31693 K,
31694 A,
31695 LDA,
31696 TAU,
31697 WORK,
31698 LWORK,
31699 INFO);
31700 }
31701
31702 //-- sorgql --------------------------------------------------------------------
31703 void
LAPACK_DECL(sorgql)31704 LAPACK_DECL(sorgql)(const INTEGER *M,
31705 const INTEGER *N,
31706 const INTEGER *K,
31707 FLOAT *A,
31708 const INTEGER *LDA,
31709 const FLOAT *TAU,
31710 FLOAT *WORK,
31711 const INTEGER *LWORK,
31712 INTEGER *INFO)
31713 {
31714 DEBUG_LAPACK_STUB("sorgql");
31715 LAPACK_IMPL(sorgql)(M,
31716 N,
31717 K,
31718 A,
31719 LDA,
31720 TAU,
31721 WORK,
31722 LWORK,
31723 INFO);
31724 }
31725
31726 //-- sorgqr --------------------------------------------------------------------
31727 void
LAPACK_DECL(sorgqr)31728 LAPACK_DECL(sorgqr)(const INTEGER *M,
31729 const INTEGER *N,
31730 const INTEGER *K,
31731 FLOAT *A,
31732 const INTEGER *LDA,
31733 const FLOAT *TAU,
31734 FLOAT *WORK,
31735 const INTEGER *LWORK,
31736 INTEGER *INFO)
31737 {
31738 DEBUG_LAPACK_STUB("sorgqr");
31739 LAPACK_IMPL(sorgqr)(M,
31740 N,
31741 K,
31742 A,
31743 LDA,
31744 TAU,
31745 WORK,
31746 LWORK,
31747 INFO);
31748 }
31749
31750 //-- sorgr2 --------------------------------------------------------------------
31751 void
LAPACK_DECL(sorgr2)31752 LAPACK_DECL(sorgr2)(const INTEGER *M,
31753 const INTEGER *N,
31754 const INTEGER *K,
31755 FLOAT *A,
31756 const INTEGER *LDA,
31757 const FLOAT *TAU,
31758 FLOAT *WORK,
31759 INTEGER *INFO)
31760 {
31761 DEBUG_LAPACK_STUB("sorgr2");
31762 LAPACK_IMPL(sorgr2)(M,
31763 N,
31764 K,
31765 A,
31766 LDA,
31767 TAU,
31768 WORK,
31769 INFO);
31770 }
31771
31772 //-- sorgrq --------------------------------------------------------------------
31773 void
LAPACK_DECL(sorgrq)31774 LAPACK_DECL(sorgrq)(const INTEGER *M,
31775 const INTEGER *N,
31776 const INTEGER *K,
31777 FLOAT *A,
31778 const INTEGER *LDA,
31779 const FLOAT *TAU,
31780 FLOAT *WORK,
31781 const INTEGER *LWORK,
31782 INTEGER *INFO)
31783 {
31784 DEBUG_LAPACK_STUB("sorgrq");
31785 LAPACK_IMPL(sorgrq)(M,
31786 N,
31787 K,
31788 A,
31789 LDA,
31790 TAU,
31791 WORK,
31792 LWORK,
31793 INFO);
31794 }
31795
31796 //-- sorgtr --------------------------------------------------------------------
31797 void
LAPACK_DECL(sorgtr)31798 LAPACK_DECL(sorgtr)(const char *UPLO,
31799 const INTEGER *N,
31800 FLOAT *A,
31801 const INTEGER *LDA,
31802 const FLOAT *TAU,
31803 FLOAT *WORK,
31804 const INTEGER *LWORK,
31805 INTEGER *INFO)
31806 {
31807 DEBUG_LAPACK_STUB("sorgtr");
31808 LAPACK_IMPL(sorgtr)(UPLO,
31809 N,
31810 A,
31811 LDA,
31812 TAU,
31813 WORK,
31814 LWORK,
31815 INFO);
31816 }
31817
31818 //-- sorm2l --------------------------------------------------------------------
31819 void
LAPACK_DECL(sorm2l)31820 LAPACK_DECL(sorm2l)(const char *SIDE,
31821 const char *TRANS,
31822 const INTEGER *M,
31823 const INTEGER *N,
31824 const INTEGER *K,
31825 const FLOAT *A,
31826 const INTEGER *LDA,
31827 const FLOAT *TAU,
31828 FLOAT *C,
31829 const INTEGER *LDC,
31830 FLOAT *WORK,
31831 INTEGER *INFO)
31832 {
31833 DEBUG_LAPACK_STUB("sorm2l");
31834 LAPACK_IMPL(sorm2l)(SIDE,
31835 TRANS,
31836 M,
31837 N,
31838 K,
31839 A,
31840 LDA,
31841 TAU,
31842 C,
31843 LDC,
31844 WORK,
31845 INFO);
31846 }
31847
31848 //-- sorm2r --------------------------------------------------------------------
31849 void
LAPACK_DECL(sorm2r)31850 LAPACK_DECL(sorm2r)(const char *SIDE,
31851 const char *TRANS,
31852 const INTEGER *M,
31853 const INTEGER *N,
31854 const INTEGER *K,
31855 const FLOAT *A,
31856 const INTEGER *LDA,
31857 const FLOAT *TAU,
31858 FLOAT *C,
31859 const INTEGER *LDC,
31860 FLOAT *WORK,
31861 INTEGER *INFO)
31862 {
31863 DEBUG_LAPACK_STUB("sorm2r");
31864 LAPACK_IMPL(sorm2r)(SIDE,
31865 TRANS,
31866 M,
31867 N,
31868 K,
31869 A,
31870 LDA,
31871 TAU,
31872 C,
31873 LDC,
31874 WORK,
31875 INFO);
31876 }
31877
31878 //-- sormbr --------------------------------------------------------------------
31879 void
LAPACK_DECL(sormbr)31880 LAPACK_DECL(sormbr)(const char *VECT,
31881 const char *SIDE,
31882 const char *TRANS,
31883 const INTEGER *M,
31884 const INTEGER *N,
31885 const INTEGER *K,
31886 const FLOAT *A,
31887 const INTEGER *LDA,
31888 const FLOAT *TAU,
31889 FLOAT *C,
31890 const INTEGER *LDC,
31891 FLOAT *WORK,
31892 const INTEGER *LWORK,
31893 INTEGER *INFO)
31894 {
31895 DEBUG_LAPACK_STUB("sormbr");
31896 LAPACK_IMPL(sormbr)(VECT,
31897 SIDE,
31898 TRANS,
31899 M,
31900 N,
31901 K,
31902 A,
31903 LDA,
31904 TAU,
31905 C,
31906 LDC,
31907 WORK,
31908 LWORK,
31909 INFO);
31910 }
31911
31912 //-- sormhr --------------------------------------------------------------------
31913 void
LAPACK_DECL(sormhr)31914 LAPACK_DECL(sormhr)(const char *SIDE,
31915 const char *TRANS,
31916 const INTEGER *M,
31917 const INTEGER *N,
31918 const INTEGER *ILO,
31919 const INTEGER *IHI,
31920 const FLOAT *A,
31921 const INTEGER *LDA,
31922 const FLOAT *TAU,
31923 FLOAT *C,
31924 const INTEGER *LDC,
31925 FLOAT *WORK,
31926 const INTEGER *LWORK,
31927 INTEGER *INFO)
31928 {
31929 DEBUG_LAPACK_STUB("sormhr");
31930 LAPACK_IMPL(sormhr)(SIDE,
31931 TRANS,
31932 M,
31933 N,
31934 ILO,
31935 IHI,
31936 A,
31937 LDA,
31938 TAU,
31939 C,
31940 LDC,
31941 WORK,
31942 LWORK,
31943 INFO);
31944 }
31945
31946 //-- sorml2 --------------------------------------------------------------------
31947 void
LAPACK_DECL(sorml2)31948 LAPACK_DECL(sorml2)(const char *SIDE,
31949 const char *TRANS,
31950 const INTEGER *M,
31951 const INTEGER *N,
31952 const INTEGER *K,
31953 const FLOAT *A,
31954 const INTEGER *LDA,
31955 const FLOAT *TAU,
31956 FLOAT *C,
31957 const INTEGER *LDC,
31958 FLOAT *WORK,
31959 INTEGER *INFO)
31960 {
31961 DEBUG_LAPACK_STUB("sorml2");
31962 LAPACK_IMPL(sorml2)(SIDE,
31963 TRANS,
31964 M,
31965 N,
31966 K,
31967 A,
31968 LDA,
31969 TAU,
31970 C,
31971 LDC,
31972 WORK,
31973 INFO);
31974 }
31975
31976 //-- sormlq --------------------------------------------------------------------
31977 void
LAPACK_DECL(sormlq)31978 LAPACK_DECL(sormlq)(const char *SIDE,
31979 const char *TRANS,
31980 const INTEGER *M,
31981 const INTEGER *N,
31982 const INTEGER *K,
31983 const FLOAT *A,
31984 const INTEGER *LDA,
31985 const FLOAT *TAU,
31986 FLOAT *C,
31987 const INTEGER *LDC,
31988 FLOAT *WORK,
31989 const INTEGER *LWORK,
31990 INTEGER *INFO)
31991 {
31992 DEBUG_LAPACK_STUB("sormlq");
31993 LAPACK_IMPL(sormlq)(SIDE,
31994 TRANS,
31995 M,
31996 N,
31997 K,
31998 A,
31999 LDA,
32000 TAU,
32001 C,
32002 LDC,
32003 WORK,
32004 LWORK,
32005 INFO);
32006 }
32007
32008 //-- sormql --------------------------------------------------------------------
32009 void
LAPACK_DECL(sormql)32010 LAPACK_DECL(sormql)(const char *SIDE,
32011 const char *TRANS,
32012 const INTEGER *M,
32013 const INTEGER *N,
32014 const INTEGER *K,
32015 const FLOAT *A,
32016 const INTEGER *LDA,
32017 const FLOAT *TAU,
32018 FLOAT *C,
32019 const INTEGER *LDC,
32020 FLOAT *WORK,
32021 const INTEGER *LWORK,
32022 INTEGER *INFO)
32023 {
32024 DEBUG_LAPACK_STUB("sormql");
32025 LAPACK_IMPL(sormql)(SIDE,
32026 TRANS,
32027 M,
32028 N,
32029 K,
32030 A,
32031 LDA,
32032 TAU,
32033 C,
32034 LDC,
32035 WORK,
32036 LWORK,
32037 INFO);
32038 }
32039
32040 //-- sormqr --------------------------------------------------------------------
32041 void
LAPACK_DECL(sormqr)32042 LAPACK_DECL(sormqr)(const char *SIDE,
32043 const char *TRANS,
32044 const INTEGER *M,
32045 const INTEGER *N,
32046 const INTEGER *K,
32047 const FLOAT *A,
32048 const INTEGER *LDA,
32049 const FLOAT *TAU,
32050 FLOAT *C,
32051 const INTEGER *LDC,
32052 FLOAT *WORK,
32053 const INTEGER *LWORK,
32054 INTEGER *INFO)
32055 {
32056 DEBUG_LAPACK_STUB("sormqr");
32057 LAPACK_IMPL(sormqr)(SIDE,
32058 TRANS,
32059 M,
32060 N,
32061 K,
32062 A,
32063 LDA,
32064 TAU,
32065 C,
32066 LDC,
32067 WORK,
32068 LWORK,
32069 INFO);
32070 }
32071
32072 //-- sormr2 --------------------------------------------------------------------
32073 void
LAPACK_DECL(sormr2)32074 LAPACK_DECL(sormr2)(const char *SIDE,
32075 const char *TRANS,
32076 const INTEGER *M,
32077 const INTEGER *N,
32078 const INTEGER *K,
32079 const FLOAT *A,
32080 const INTEGER *LDA,
32081 const FLOAT *TAU,
32082 FLOAT *C,
32083 const INTEGER *LDC,
32084 FLOAT *WORK,
32085 INTEGER *INFO)
32086 {
32087 DEBUG_LAPACK_STUB("sormr2");
32088 LAPACK_IMPL(sormr2)(SIDE,
32089 TRANS,
32090 M,
32091 N,
32092 K,
32093 A,
32094 LDA,
32095 TAU,
32096 C,
32097 LDC,
32098 WORK,
32099 INFO);
32100 }
32101
32102 //-- sormr3 --------------------------------------------------------------------
32103 void
LAPACK_DECL(sormr3)32104 LAPACK_DECL(sormr3)(const char *SIDE,
32105 const char *TRANS,
32106 const INTEGER *M,
32107 const INTEGER *N,
32108 const INTEGER *K,
32109 const INTEGER *L,
32110 const FLOAT *A,
32111 const INTEGER *LDA,
32112 const FLOAT *TAU,
32113 FLOAT *C,
32114 const INTEGER *LDC,
32115 FLOAT *WORK,
32116 INTEGER *INFO)
32117 {
32118 DEBUG_LAPACK_STUB("sormr3");
32119 LAPACK_IMPL(sormr3)(SIDE,
32120 TRANS,
32121 M,
32122 N,
32123 K,
32124 L,
32125 A,
32126 LDA,
32127 TAU,
32128 C,
32129 LDC,
32130 WORK,
32131 INFO);
32132 }
32133
32134 //-- sormrq --------------------------------------------------------------------
32135 void
LAPACK_DECL(sormrq)32136 LAPACK_DECL(sormrq)(const char *SIDE,
32137 const char *TRANS,
32138 const INTEGER *M,
32139 const INTEGER *N,
32140 const INTEGER *K,
32141 const FLOAT *A,
32142 const INTEGER *LDA,
32143 const FLOAT *TAU,
32144 FLOAT *C,
32145 const INTEGER *LDC,
32146 FLOAT *WORK,
32147 const INTEGER *LWORK,
32148 INTEGER *INFO)
32149 {
32150 DEBUG_LAPACK_STUB("sormrq");
32151 LAPACK_IMPL(sormrq)(SIDE,
32152 TRANS,
32153 M,
32154 N,
32155 K,
32156 A,
32157 LDA,
32158 TAU,
32159 C,
32160 LDC,
32161 WORK,
32162 LWORK,
32163 INFO);
32164 }
32165
32166 //-- sormrz --------------------------------------------------------------------
32167 void
LAPACK_DECL(sormrz)32168 LAPACK_DECL(sormrz)(const char *SIDE,
32169 const char *TRANS,
32170 const INTEGER *M,
32171 const INTEGER *N,
32172 const INTEGER *K,
32173 const INTEGER *L,
32174 const FLOAT *A,
32175 const INTEGER *LDA,
32176 const FLOAT *TAU,
32177 FLOAT *C,
32178 const INTEGER *LDC,
32179 FLOAT *WORK,
32180 const INTEGER *LWORK,
32181 INTEGER *INFO)
32182 {
32183 DEBUG_LAPACK_STUB("sormrz");
32184 LAPACK_IMPL(sormrz)(SIDE,
32185 TRANS,
32186 M,
32187 N,
32188 K,
32189 L,
32190 A,
32191 LDA,
32192 TAU,
32193 C,
32194 LDC,
32195 WORK,
32196 LWORK,
32197 INFO);
32198 }
32199
32200 //-- sormtr --------------------------------------------------------------------
32201 void
LAPACK_DECL(sormtr)32202 LAPACK_DECL(sormtr)(const char *SIDE,
32203 const char *UPLO,
32204 const char *TRANS,
32205 const INTEGER *M,
32206 const INTEGER *N,
32207 const FLOAT *A,
32208 const INTEGER *LDA,
32209 const FLOAT *TAU,
32210 FLOAT *C,
32211 const INTEGER *LDC,
32212 FLOAT *WORK,
32213 const INTEGER *LWORK,
32214 INTEGER *INFO)
32215 {
32216 DEBUG_LAPACK_STUB("sormtr");
32217 LAPACK_IMPL(sormtr)(SIDE,
32218 UPLO,
32219 TRANS,
32220 M,
32221 N,
32222 A,
32223 LDA,
32224 TAU,
32225 C,
32226 LDC,
32227 WORK,
32228 LWORK,
32229 INFO);
32230 }
32231
32232 //-- spbcon --------------------------------------------------------------------
32233 void
LAPACK_DECL(spbcon)32234 LAPACK_DECL(spbcon)(const char *UPLO,
32235 const INTEGER *N,
32236 const INTEGER *KD,
32237 const FLOAT *AB,
32238 const INTEGER *LDAB,
32239 const FLOAT *ANORM,
32240 FLOAT *RCOND,
32241 FLOAT *WORK,
32242 INTEGER *IWORK,
32243 INTEGER *INFO)
32244 {
32245 DEBUG_LAPACK_STUB("spbcon");
32246 LAPACK_IMPL(spbcon)(UPLO,
32247 N,
32248 KD,
32249 AB,
32250 LDAB,
32251 ANORM,
32252 RCOND,
32253 WORK,
32254 IWORK,
32255 INFO);
32256 }
32257
32258 //-- spbequ --------------------------------------------------------------------
32259 void
LAPACK_DECL(spbequ)32260 LAPACK_DECL(spbequ)(const char *UPLO,
32261 const INTEGER *N,
32262 const INTEGER *KD,
32263 const FLOAT *AB,
32264 const INTEGER *LDAB,
32265 FLOAT *S,
32266 FLOAT *SCOND,
32267 FLOAT *AMAX,
32268 INTEGER *INFO)
32269 {
32270 DEBUG_LAPACK_STUB("spbequ");
32271 LAPACK_IMPL(spbequ)(UPLO,
32272 N,
32273 KD,
32274 AB,
32275 LDAB,
32276 S,
32277 SCOND,
32278 AMAX,
32279 INFO);
32280 }
32281
32282 //-- spbrfs --------------------------------------------------------------------
32283 void
LAPACK_DECL(spbrfs)32284 LAPACK_DECL(spbrfs)(const char *UPLO,
32285 const INTEGER *N,
32286 const INTEGER *KD,
32287 const INTEGER *NRHS,
32288 const FLOAT *AB,
32289 const INTEGER *LDAB,
32290 const FLOAT *AFB,
32291 const INTEGER *LDAFB,
32292 const FLOAT *B,
32293 const INTEGER *LDB,
32294 FLOAT *X,
32295 const INTEGER *LDX,
32296 FLOAT *FERR,
32297 FLOAT *BERR,
32298 FLOAT *WORK,
32299 INTEGER *IWORK,
32300 INTEGER *INFO)
32301 {
32302 DEBUG_LAPACK_STUB("spbrfs");
32303 LAPACK_IMPL(spbrfs)(UPLO,
32304 N,
32305 KD,
32306 NRHS,
32307 AB,
32308 LDAB,
32309 AFB,
32310 LDAFB,
32311 B,
32312 LDB,
32313 X,
32314 LDX,
32315 FERR,
32316 BERR,
32317 WORK,
32318 IWORK,
32319 INFO);
32320 }
32321
32322 //-- spbstf --------------------------------------------------------------------
32323 void
LAPACK_DECL(spbstf)32324 LAPACK_DECL(spbstf)(const char *UPLO,
32325 const INTEGER *N,
32326 const INTEGER *KD,
32327 FLOAT *AB,
32328 const INTEGER *LDAB,
32329 INTEGER *INFO)
32330 {
32331 DEBUG_LAPACK_STUB("spbstf");
32332 LAPACK_IMPL(spbstf)(UPLO,
32333 N,
32334 KD,
32335 AB,
32336 LDAB,
32337 INFO);
32338 }
32339
32340 //-- spbsv ---------------------------------------------------------------------
32341 void
LAPACK_DECL(spbsv)32342 LAPACK_DECL(spbsv)(const char *UPLO,
32343 const INTEGER *N,
32344 const INTEGER *KD,
32345 const INTEGER *NRHS,
32346 FLOAT *AB,
32347 const INTEGER *LDAB,
32348 FLOAT *B,
32349 const INTEGER *LDB,
32350 INTEGER *INFO)
32351 {
32352 DEBUG_LAPACK_STUB("spbsv");
32353 LAPACK_IMPL(spbsv)(UPLO,
32354 N,
32355 KD,
32356 NRHS,
32357 AB,
32358 LDAB,
32359 B,
32360 LDB,
32361 INFO);
32362 }
32363
32364 //-- spbsvx --------------------------------------------------------------------
32365 void
LAPACK_DECL(spbsvx)32366 LAPACK_DECL(spbsvx)(const char *FACT,
32367 const char *UPLO,
32368 const INTEGER *N,
32369 const INTEGER *KD,
32370 const INTEGER *NRHS,
32371 FLOAT *AB,
32372 const INTEGER *LDAB,
32373 FLOAT *AFB,
32374 const INTEGER *LDAFB,
32375 char *EQUED,
32376 FLOAT *S,
32377 FLOAT *B,
32378 const INTEGER *LDB,
32379 FLOAT *X,
32380 const INTEGER *LDX,
32381 FLOAT *RCOND,
32382 FLOAT *FERR,
32383 FLOAT *BERR,
32384 FLOAT *WORK,
32385 INTEGER *IWORK,
32386 INTEGER *INFO)
32387 {
32388 DEBUG_LAPACK_STUB("spbsvx");
32389 LAPACK_IMPL(spbsvx)(FACT,
32390 UPLO,
32391 N,
32392 KD,
32393 NRHS,
32394 AB,
32395 LDAB,
32396 AFB,
32397 LDAFB,
32398 EQUED,
32399 S,
32400 B,
32401 LDB,
32402 X,
32403 LDX,
32404 RCOND,
32405 FERR,
32406 BERR,
32407 WORK,
32408 IWORK,
32409 INFO);
32410 }
32411
32412 //-- spbtf2 --------------------------------------------------------------------
32413 void
LAPACK_DECL(spbtf2)32414 LAPACK_DECL(spbtf2)(const char *UPLO,
32415 const INTEGER *N,
32416 const INTEGER *KD,
32417 FLOAT *AB,
32418 const INTEGER *LDAB,
32419 INTEGER *INFO)
32420 {
32421 DEBUG_LAPACK_STUB("spbtf2");
32422 LAPACK_IMPL(spbtf2)(UPLO,
32423 N,
32424 KD,
32425 AB,
32426 LDAB,
32427 INFO);
32428 }
32429
32430 //-- spbtrf --------------------------------------------------------------------
32431 void
LAPACK_DECL(spbtrf)32432 LAPACK_DECL(spbtrf)(const char *UPLO,
32433 const INTEGER *N,
32434 const INTEGER *KD,
32435 FLOAT *AB,
32436 const INTEGER *LDAB,
32437 INTEGER *INFO)
32438 {
32439 DEBUG_LAPACK_STUB("spbtrf");
32440 LAPACK_IMPL(spbtrf)(UPLO,
32441 N,
32442 KD,
32443 AB,
32444 LDAB,
32445 INFO);
32446 }
32447
32448 //-- spbtrs --------------------------------------------------------------------
32449 void
LAPACK_DECL(spbtrs)32450 LAPACK_DECL(spbtrs)(const char *UPLO,
32451 const INTEGER *N,
32452 const INTEGER *KD,
32453 const INTEGER *NRHS,
32454 const FLOAT *AB,
32455 const INTEGER *LDAB,
32456 FLOAT *B,
32457 const INTEGER *LDB,
32458 INTEGER *INFO)
32459 {
32460 DEBUG_LAPACK_STUB("spbtrs");
32461 LAPACK_IMPL(spbtrs)(UPLO,
32462 N,
32463 KD,
32464 NRHS,
32465 AB,
32466 LDAB,
32467 B,
32468 LDB,
32469 INFO);
32470 }
32471
32472 //-- spftrf --------------------------------------------------------------------
32473 void
LAPACK_DECL(spftrf)32474 LAPACK_DECL(spftrf)(const char *TRANSR,
32475 const char *UPLO,
32476 const INTEGER *N,
32477 FLOAT *A,
32478 INTEGER *INFO)
32479 {
32480 DEBUG_LAPACK_STUB("spftrf");
32481 LAPACK_IMPL(spftrf)(TRANSR,
32482 UPLO,
32483 N,
32484 A,
32485 INFO);
32486 }
32487
32488 //-- spftri --------------------------------------------------------------------
32489 void
LAPACK_DECL(spftri)32490 LAPACK_DECL(spftri)(const char *TRANSR,
32491 const char *UPLO,
32492 const INTEGER *N,
32493 FLOAT *A,
32494 INTEGER *INFO)
32495 {
32496 DEBUG_LAPACK_STUB("spftri");
32497 LAPACK_IMPL(spftri)(TRANSR,
32498 UPLO,
32499 N,
32500 A,
32501 INFO);
32502 }
32503
32504 //-- spftrs --------------------------------------------------------------------
32505 void
LAPACK_DECL(spftrs)32506 LAPACK_DECL(spftrs)(const char *TRANSR,
32507 const char *UPLO,
32508 const INTEGER *N,
32509 const INTEGER *NRHS,
32510 const FLOAT *A,
32511 FLOAT *B,
32512 const INTEGER *LDB,
32513 INTEGER *INFO)
32514 {
32515 DEBUG_LAPACK_STUB("spftrs");
32516 LAPACK_IMPL(spftrs)(TRANSR,
32517 UPLO,
32518 N,
32519 NRHS,
32520 A,
32521 B,
32522 LDB,
32523 INFO);
32524 }
32525
32526 //-- spocon --------------------------------------------------------------------
32527 void
LAPACK_DECL(spocon)32528 LAPACK_DECL(spocon)(const char *UPLO,
32529 const INTEGER *N,
32530 const FLOAT *A,
32531 const INTEGER *LDA,
32532 const FLOAT *ANORM,
32533 FLOAT *RCOND,
32534 FLOAT *WORK,
32535 INTEGER *IWORK,
32536 INTEGER *INFO)
32537 {
32538 DEBUG_LAPACK_STUB("spocon");
32539 LAPACK_IMPL(spocon)(UPLO,
32540 N,
32541 A,
32542 LDA,
32543 ANORM,
32544 RCOND,
32545 WORK,
32546 IWORK,
32547 INFO);
32548 }
32549
32550 //-- spoequ --------------------------------------------------------------------
32551 void
LAPACK_DECL(spoequ)32552 LAPACK_DECL(spoequ)(const INTEGER *N,
32553 const FLOAT *A,
32554 const INTEGER *LDA,
32555 FLOAT *S,
32556 FLOAT *SCOND,
32557 FLOAT *AMAX,
32558 INTEGER *INFO)
32559 {
32560 DEBUG_LAPACK_STUB("spoequ");
32561 LAPACK_IMPL(spoequ)(N,
32562 A,
32563 LDA,
32564 S,
32565 SCOND,
32566 AMAX,
32567 INFO);
32568 }
32569
32570 //-- spoequb -------------------------------------------------------------------
32571 void
LAPACK_DECL(spoequb)32572 LAPACK_DECL(spoequb)(const INTEGER *N,
32573 const FLOAT *A,
32574 const INTEGER *LDA,
32575 FLOAT *S,
32576 FLOAT *SCOND,
32577 FLOAT *AMAX,
32578 INTEGER *INFO)
32579 {
32580 DEBUG_LAPACK_STUB("spoequb");
32581 LAPACK_IMPL(spoequb)(N,
32582 A,
32583 LDA,
32584 S,
32585 SCOND,
32586 AMAX,
32587 INFO);
32588 }
32589
32590 //-- sporfs --------------------------------------------------------------------
32591 void
LAPACK_DECL(sporfs)32592 LAPACK_DECL(sporfs)(const char *UPLO,
32593 const INTEGER *N,
32594 const INTEGER *NRHS,
32595 const FLOAT *A,
32596 const INTEGER *LDA,
32597 const FLOAT *AF,
32598 const INTEGER *LDAF,
32599 const FLOAT *B,
32600 const INTEGER *LDB,
32601 FLOAT *X,
32602 const INTEGER *LDX,
32603 FLOAT *FERR,
32604 FLOAT *BERR,
32605 FLOAT *WORK,
32606 INTEGER *IWORK,
32607 INTEGER *INFO)
32608 {
32609 DEBUG_LAPACK_STUB("sporfs");
32610 LAPACK_IMPL(sporfs)(UPLO,
32611 N,
32612 NRHS,
32613 A,
32614 LDA,
32615 AF,
32616 LDAF,
32617 B,
32618 LDB,
32619 X,
32620 LDX,
32621 FERR,
32622 BERR,
32623 WORK,
32624 IWORK,
32625 INFO);
32626 }
32627
32628 //-- sporfsx -------------------------------------------------------------------
32629 void
LAPACK_DECL(sporfsx)32630 LAPACK_DECL(sporfsx)(const char *UPLO,
32631 const char *EQUED,
32632 const INTEGER *N,
32633 const INTEGER *NRHS,
32634 const FLOAT *A,
32635 const INTEGER *LDA,
32636 const FLOAT *AF,
32637 const INTEGER *LDAF,
32638 FLOAT *S,
32639 const FLOAT *B,
32640 const INTEGER *LDB,
32641 FLOAT *X,
32642 const INTEGER *LDX,
32643 FLOAT *RCOND,
32644 FLOAT *BERR,
32645 const INTEGER *N_ERR_BNDS,
32646 FLOAT *ERR_BNDS_NORM,
32647 FLOAT *ERR_BNDS_COMP,
32648 const INTEGER *NPARAMS,
32649 FLOAT *PARAMS,
32650 FLOAT *WORK,
32651 INTEGER *IWORK,
32652 INTEGER *INFO)
32653 {
32654 DEBUG_LAPACK_STUB("sporfsx");
32655 LAPACK_IMPL(sporfsx)(UPLO,
32656 EQUED,
32657 N,
32658 NRHS,
32659 A,
32660 LDA,
32661 AF,
32662 LDAF,
32663 S,
32664 B,
32665 LDB,
32666 X,
32667 LDX,
32668 RCOND,
32669 BERR,
32670 N_ERR_BNDS,
32671 ERR_BNDS_NORM,
32672 ERR_BNDS_COMP,
32673 NPARAMS,
32674 PARAMS,
32675 WORK,
32676 IWORK,
32677 INFO);
32678 }
32679
32680 //-- sposv ---------------------------------------------------------------------
32681 void
LAPACK_DECL(sposv)32682 LAPACK_DECL(sposv)(const char *UPLO,
32683 const INTEGER *N,
32684 const INTEGER *NRHS,
32685 FLOAT *A,
32686 const INTEGER *LDA,
32687 FLOAT *B,
32688 const INTEGER *LDB,
32689 INTEGER *INFO)
32690 {
32691 DEBUG_LAPACK_STUB("sposv");
32692 LAPACK_IMPL(sposv)(UPLO,
32693 N,
32694 NRHS,
32695 A,
32696 LDA,
32697 B,
32698 LDB,
32699 INFO);
32700 }
32701
32702 //-- sposvx --------------------------------------------------------------------
32703 void
LAPACK_DECL(sposvx)32704 LAPACK_DECL(sposvx)(const char *FACT,
32705 const char *UPLO,
32706 const INTEGER *N,
32707 const INTEGER *NRHS,
32708 FLOAT *A,
32709 const INTEGER *LDA,
32710 FLOAT *AF,
32711 const INTEGER *LDAF,
32712 char *EQUED,
32713 FLOAT *S,
32714 FLOAT *B,
32715 const INTEGER *LDB,
32716 FLOAT *X,
32717 const INTEGER *LDX,
32718 FLOAT *RCOND,
32719 FLOAT *FERR,
32720 FLOAT *BERR,
32721 FLOAT *WORK,
32722 INTEGER *IWORK,
32723 INTEGER *INFO)
32724 {
32725 DEBUG_LAPACK_STUB("sposvx");
32726 LAPACK_IMPL(sposvx)(FACT,
32727 UPLO,
32728 N,
32729 NRHS,
32730 A,
32731 LDA,
32732 AF,
32733 LDAF,
32734 EQUED,
32735 S,
32736 B,
32737 LDB,
32738 X,
32739 LDX,
32740 RCOND,
32741 FERR,
32742 BERR,
32743 WORK,
32744 IWORK,
32745 INFO);
32746 }
32747
32748 //-- sposvxx -------------------------------------------------------------------
32749 void
LAPACK_DECL(sposvxx)32750 LAPACK_DECL(sposvxx)(const char *FACT,
32751 const char *UPLO,
32752 const INTEGER *N,
32753 const INTEGER *NRHS,
32754 FLOAT *A,
32755 const INTEGER *LDA,
32756 FLOAT *AF,
32757 const INTEGER *LDAF,
32758 char *EQUED,
32759 FLOAT *S,
32760 FLOAT *B,
32761 const INTEGER *LDB,
32762 FLOAT *X,
32763 const INTEGER *LDX,
32764 FLOAT *RCOND,
32765 FLOAT *RPVGRW,
32766 FLOAT *BERR,
32767 const INTEGER *N_ERR_BNDS,
32768 FLOAT *ERR_BNDS_NORM,
32769 FLOAT *ERR_BNDS_COMP,
32770 const INTEGER *NPARAMS,
32771 FLOAT *PARAMS,
32772 FLOAT *WORK,
32773 INTEGER *IWORK,
32774 INTEGER *INFO)
32775 {
32776 DEBUG_LAPACK_STUB("sposvxx");
32777 LAPACK_IMPL(sposvxx)(FACT,
32778 UPLO,
32779 N,
32780 NRHS,
32781 A,
32782 LDA,
32783 AF,
32784 LDAF,
32785 EQUED,
32786 S,
32787 B,
32788 LDB,
32789 X,
32790 LDX,
32791 RCOND,
32792 RPVGRW,
32793 BERR,
32794 N_ERR_BNDS,
32795 ERR_BNDS_NORM,
32796 ERR_BNDS_COMP,
32797 NPARAMS,
32798 PARAMS,
32799 WORK,
32800 IWORK,
32801 INFO);
32802 }
32803
32804 //-- spotf2 --------------------------------------------------------------------
32805 void
LAPACK_DECL(spotf2)32806 LAPACK_DECL(spotf2)(const char *UPLO,
32807 const INTEGER *N,
32808 FLOAT *A,
32809 const INTEGER *LDA,
32810 INTEGER *INFO)
32811 {
32812 DEBUG_LAPACK_STUB("spotf2");
32813 LAPACK_IMPL(spotf2)(UPLO,
32814 N,
32815 A,
32816 LDA,
32817 INFO);
32818 }
32819
32820 //-- spotrf --------------------------------------------------------------------
32821 void
LAPACK_DECL(spotrf)32822 LAPACK_DECL(spotrf)(const char *UPLO,
32823 const INTEGER *N,
32824 FLOAT *A,
32825 const INTEGER *LDA,
32826 INTEGER *INFO)
32827 {
32828 DEBUG_LAPACK_STUB("spotrf");
32829 LAPACK_IMPL(spotrf)(UPLO,
32830 N,
32831 A,
32832 LDA,
32833 INFO);
32834 }
32835
32836 //-- spotri --------------------------------------------------------------------
32837 void
LAPACK_DECL(spotri)32838 LAPACK_DECL(spotri)(const char *UPLO,
32839 const INTEGER *N,
32840 FLOAT *A,
32841 const INTEGER *LDA,
32842 INTEGER *INFO)
32843 {
32844 DEBUG_LAPACK_STUB("spotri");
32845 LAPACK_IMPL(spotri)(UPLO,
32846 N,
32847 A,
32848 LDA,
32849 INFO);
32850 }
32851
32852 //-- spotrs --------------------------------------------------------------------
32853 void
LAPACK_DECL(spotrs)32854 LAPACK_DECL(spotrs)(const char *UPLO,
32855 const INTEGER *N,
32856 const INTEGER *NRHS,
32857 const FLOAT *A,
32858 const INTEGER *LDA,
32859 FLOAT *B,
32860 const INTEGER *LDB,
32861 INTEGER *INFO)
32862 {
32863 DEBUG_LAPACK_STUB("spotrs");
32864 LAPACK_IMPL(spotrs)(UPLO,
32865 N,
32866 NRHS,
32867 A,
32868 LDA,
32869 B,
32870 LDB,
32871 INFO);
32872 }
32873
32874 //-- sppcon --------------------------------------------------------------------
32875 void
LAPACK_DECL(sppcon)32876 LAPACK_DECL(sppcon)(const char *UPLO,
32877 const INTEGER *N,
32878 const FLOAT *AP,
32879 const FLOAT *ANORM,
32880 FLOAT *RCOND,
32881 FLOAT *WORK,
32882 INTEGER *IWORK,
32883 INTEGER *INFO)
32884 {
32885 DEBUG_LAPACK_STUB("sppcon");
32886 LAPACK_IMPL(sppcon)(UPLO,
32887 N,
32888 AP,
32889 ANORM,
32890 RCOND,
32891 WORK,
32892 IWORK,
32893 INFO);
32894 }
32895
32896 //-- sppequ --------------------------------------------------------------------
32897 void
LAPACK_DECL(sppequ)32898 LAPACK_DECL(sppequ)(const char *UPLO,
32899 const INTEGER *N,
32900 const FLOAT *AP,
32901 FLOAT *S,
32902 FLOAT *SCOND,
32903 FLOAT *AMAX,
32904 INTEGER *INFO)
32905 {
32906 DEBUG_LAPACK_STUB("sppequ");
32907 LAPACK_IMPL(sppequ)(UPLO,
32908 N,
32909 AP,
32910 S,
32911 SCOND,
32912 AMAX,
32913 INFO);
32914 }
32915
32916 //-- spprfs --------------------------------------------------------------------
32917 void
LAPACK_DECL(spprfs)32918 LAPACK_DECL(spprfs)(const char *UPLO,
32919 const INTEGER *N,
32920 const INTEGER *NRHS,
32921 const FLOAT *AP,
32922 const FLOAT *AFP,
32923 const FLOAT *B,
32924 const INTEGER *LDB,
32925 FLOAT *X,
32926 const INTEGER *LDX,
32927 FLOAT *FERR,
32928 FLOAT *BERR,
32929 FLOAT *WORK,
32930 INTEGER *IWORK,
32931 INTEGER *INFO)
32932 {
32933 DEBUG_LAPACK_STUB("spprfs");
32934 LAPACK_IMPL(spprfs)(UPLO,
32935 N,
32936 NRHS,
32937 AP,
32938 AFP,
32939 B,
32940 LDB,
32941 X,
32942 LDX,
32943 FERR,
32944 BERR,
32945 WORK,
32946 IWORK,
32947 INFO);
32948 }
32949
32950 //-- sppsv ---------------------------------------------------------------------
32951 void
LAPACK_DECL(sppsv)32952 LAPACK_DECL(sppsv)(const char *UPLO,
32953 const INTEGER *N,
32954 const INTEGER *NRHS,
32955 FLOAT *AP,
32956 FLOAT *B,
32957 const INTEGER *LDB,
32958 INTEGER *INFO)
32959 {
32960 DEBUG_LAPACK_STUB("sppsv");
32961 LAPACK_IMPL(sppsv)(UPLO,
32962 N,
32963 NRHS,
32964 AP,
32965 B,
32966 LDB,
32967 INFO);
32968 }
32969
32970 //-- sppsvx --------------------------------------------------------------------
32971 void
LAPACK_DECL(sppsvx)32972 LAPACK_DECL(sppsvx)(const char *FACT,
32973 const char *UPLO,
32974 const INTEGER *N,
32975 const INTEGER *NRHS,
32976 FLOAT *AP,
32977 FLOAT *AFP,
32978 char *EQUED,
32979 FLOAT *S,
32980 FLOAT *B,
32981 const INTEGER *LDB,
32982 FLOAT *X,
32983 const INTEGER *LDX,
32984 FLOAT *RCOND,
32985 FLOAT *FERR,
32986 FLOAT *BERR,
32987 FLOAT *WORK,
32988 INTEGER *IWORK,
32989 INTEGER *INFO)
32990 {
32991 DEBUG_LAPACK_STUB("sppsvx");
32992 LAPACK_IMPL(sppsvx)(FACT,
32993 UPLO,
32994 N,
32995 NRHS,
32996 AP,
32997 AFP,
32998 EQUED,
32999 S,
33000 B,
33001 LDB,
33002 X,
33003 LDX,
33004 RCOND,
33005 FERR,
33006 BERR,
33007 WORK,
33008 IWORK,
33009 INFO);
33010 }
33011
33012 //-- spptrf --------------------------------------------------------------------
33013 void
LAPACK_DECL(spptrf)33014 LAPACK_DECL(spptrf)(const char *UPLO,
33015 const INTEGER *N,
33016 FLOAT *AP,
33017 INTEGER *INFO)
33018 {
33019 DEBUG_LAPACK_STUB("spptrf");
33020 LAPACK_IMPL(spptrf)(UPLO,
33021 N,
33022 AP,
33023 INFO);
33024 }
33025
33026 //-- spptri --------------------------------------------------------------------
33027 void
LAPACK_DECL(spptri)33028 LAPACK_DECL(spptri)(const char *UPLO,
33029 const INTEGER *N,
33030 FLOAT *AP,
33031 INTEGER *INFO)
33032 {
33033 DEBUG_LAPACK_STUB("spptri");
33034 LAPACK_IMPL(spptri)(UPLO,
33035 N,
33036 AP,
33037 INFO);
33038 }
33039
33040 //-- spptrs --------------------------------------------------------------------
33041 void
LAPACK_DECL(spptrs)33042 LAPACK_DECL(spptrs)(const char *UPLO,
33043 const INTEGER *N,
33044 const INTEGER *NRHS,
33045 const FLOAT *AP,
33046 FLOAT *B,
33047 const INTEGER *LDB,
33048 INTEGER *INFO)
33049 {
33050 DEBUG_LAPACK_STUB("spptrs");
33051 LAPACK_IMPL(spptrs)(UPLO,
33052 N,
33053 NRHS,
33054 AP,
33055 B,
33056 LDB,
33057 INFO);
33058 }
33059
33060 //-- spstf2 --------------------------------------------------------------------
33061 void
LAPACK_DECL(spstf2)33062 LAPACK_DECL(spstf2)(const char *UPLO,
33063 const INTEGER *N,
33064 FLOAT *A,
33065 const INTEGER *LDA,
33066 INTEGER *PIV,
33067 INTEGER *RANK,
33068 const FLOAT *TOL,
33069 FLOAT *WORK,
33070 INTEGER *INFO)
33071 {
33072 DEBUG_LAPACK_STUB("spstf2");
33073 LAPACK_IMPL(spstf2)(UPLO,
33074 N,
33075 A,
33076 LDA,
33077 PIV,
33078 RANK,
33079 TOL,
33080 WORK,
33081 INFO);
33082 }
33083
33084 //-- spstrf --------------------------------------------------------------------
33085 void
LAPACK_DECL(spstrf)33086 LAPACK_DECL(spstrf)(const char *UPLO,
33087 const INTEGER *N,
33088 FLOAT *A,
33089 const INTEGER *LDA,
33090 INTEGER *PIV,
33091 INTEGER *RANK,
33092 const FLOAT *TOL,
33093 FLOAT *WORK,
33094 INTEGER *INFO)
33095 {
33096 DEBUG_LAPACK_STUB("spstrf");
33097 LAPACK_IMPL(spstrf)(UPLO,
33098 N,
33099 A,
33100 LDA,
33101 PIV,
33102 RANK,
33103 TOL,
33104 WORK,
33105 INFO);
33106 }
33107
33108 //-- sptcon --------------------------------------------------------------------
33109 void
LAPACK_DECL(sptcon)33110 LAPACK_DECL(sptcon)(const INTEGER *N,
33111 const FLOAT *D,
33112 const FLOAT *E,
33113 const FLOAT *ANORM,
33114 FLOAT *RCOND,
33115 FLOAT *WORK,
33116 INTEGER *INFO)
33117 {
33118 DEBUG_LAPACK_STUB("sptcon");
33119 LAPACK_IMPL(sptcon)(N,
33120 D,
33121 E,
33122 ANORM,
33123 RCOND,
33124 WORK,
33125 INFO);
33126 }
33127
33128 //-- spteqr --------------------------------------------------------------------
33129 void
LAPACK_DECL(spteqr)33130 LAPACK_DECL(spteqr)(const char *COMPZ,
33131 const INTEGER *N,
33132 FLOAT *D,
33133 FLOAT *E,
33134 FLOAT *Z,
33135 const INTEGER *LDZ,
33136 FLOAT *WORK,
33137 INTEGER *INFO)
33138 {
33139 DEBUG_LAPACK_STUB("spteqr");
33140 LAPACK_IMPL(spteqr)(COMPZ,
33141 N,
33142 D,
33143 E,
33144 Z,
33145 LDZ,
33146 WORK,
33147 INFO);
33148 }
33149
33150 //-- sptrfs --------------------------------------------------------------------
33151 void
LAPACK_DECL(sptrfs)33152 LAPACK_DECL(sptrfs)(const INTEGER *N,
33153 const INTEGER *NRHS,
33154 const FLOAT *D,
33155 const FLOAT *E,
33156 const FLOAT *DF,
33157 const FLOAT *EF,
33158 const FLOAT *B,
33159 const INTEGER *LDB,
33160 FLOAT *X,
33161 const INTEGER *LDX,
33162 FLOAT *FERR,
33163 FLOAT *BERR,
33164 FLOAT *WORK,
33165 INTEGER *INFO)
33166 {
33167 DEBUG_LAPACK_STUB("sptrfs");
33168 LAPACK_IMPL(sptrfs)(N,
33169 NRHS,
33170 D,
33171 E,
33172 DF,
33173 EF,
33174 B,
33175 LDB,
33176 X,
33177 LDX,
33178 FERR,
33179 BERR,
33180 WORK,
33181 INFO);
33182 }
33183
33184 //-- sptsv ---------------------------------------------------------------------
33185 void
LAPACK_DECL(sptsv)33186 LAPACK_DECL(sptsv)(const INTEGER *N,
33187 const INTEGER *NRHS,
33188 FLOAT *D,
33189 FLOAT *E,
33190 FLOAT *B,
33191 const INTEGER *LDB,
33192 INTEGER *INFO)
33193 {
33194 DEBUG_LAPACK_STUB("sptsv");
33195 LAPACK_IMPL(sptsv)(N,
33196 NRHS,
33197 D,
33198 E,
33199 B,
33200 LDB,
33201 INFO);
33202 }
33203
33204 //-- sptsvx --------------------------------------------------------------------
33205 void
LAPACK_DECL(sptsvx)33206 LAPACK_DECL(sptsvx)(const char *FACT,
33207 const INTEGER *N,
33208 const INTEGER *NRHS,
33209 const FLOAT *D,
33210 const FLOAT *E,
33211 FLOAT *DF,
33212 FLOAT *EF,
33213 const FLOAT *B,
33214 const INTEGER *LDB,
33215 FLOAT *X,
33216 const INTEGER *LDX,
33217 FLOAT *RCOND,
33218 FLOAT *FERR,
33219 FLOAT *BERR,
33220 FLOAT *WORK,
33221 INTEGER *INFO)
33222 {
33223 DEBUG_LAPACK_STUB("sptsvx");
33224 LAPACK_IMPL(sptsvx)(FACT,
33225 N,
33226 NRHS,
33227 D,
33228 E,
33229 DF,
33230 EF,
33231 B,
33232 LDB,
33233 X,
33234 LDX,
33235 RCOND,
33236 FERR,
33237 BERR,
33238 WORK,
33239 INFO);
33240 }
33241
33242 //-- spttrf --------------------------------------------------------------------
33243 void
LAPACK_DECL(spttrf)33244 LAPACK_DECL(spttrf)(const INTEGER *N,
33245 FLOAT *D,
33246 FLOAT *E,
33247 INTEGER *INFO)
33248 {
33249 DEBUG_LAPACK_STUB("spttrf");
33250 LAPACK_IMPL(spttrf)(N,
33251 D,
33252 E,
33253 INFO);
33254 }
33255
33256 //-- spttrs --------------------------------------------------------------------
33257 void
LAPACK_DECL(spttrs)33258 LAPACK_DECL(spttrs)(const INTEGER *N,
33259 const INTEGER *NRHS,
33260 const FLOAT *D,
33261 const FLOAT *E,
33262 FLOAT *B,
33263 const INTEGER *LDB,
33264 INTEGER *INFO)
33265 {
33266 DEBUG_LAPACK_STUB("spttrs");
33267 LAPACK_IMPL(spttrs)(N,
33268 NRHS,
33269 D,
33270 E,
33271 B,
33272 LDB,
33273 INFO);
33274 }
33275
33276 //-- sptts2 --------------------------------------------------------------------
33277 void
LAPACK_DECL(sptts2)33278 LAPACK_DECL(sptts2)(const INTEGER *N,
33279 const INTEGER *NRHS,
33280 const FLOAT *D,
33281 const FLOAT *E,
33282 FLOAT *B,
33283 const INTEGER *LDB)
33284 {
33285 DEBUG_LAPACK_STUB("sptts2");
33286 LAPACK_IMPL(sptts2)(N,
33287 NRHS,
33288 D,
33289 E,
33290 B,
33291 LDB);
33292 }
33293
33294 //-- srscl ---------------------------------------------------------------------
33295 void
LAPACK_DECL(srscl)33296 LAPACK_DECL(srscl)(const INTEGER *N,
33297 const FLOAT *SA,
33298 FLOAT *SX,
33299 const INTEGER *INCX)
33300 {
33301 DEBUG_LAPACK_STUB("srscl");
33302 LAPACK_IMPL(srscl)(N,
33303 SA,
33304 SX,
33305 INCX);
33306 }
33307
33308 //-- ssbev ---------------------------------------------------------------------
33309 void
LAPACK_DECL(ssbev)33310 LAPACK_DECL(ssbev)(const char *JOBZ,
33311 const char *UPLO,
33312 const INTEGER *N,
33313 const INTEGER *KD,
33314 FLOAT *AB,
33315 const INTEGER *LDAB,
33316 FLOAT *W,
33317 FLOAT *Z,
33318 const INTEGER *LDZ,
33319 FLOAT *WORK,
33320 INTEGER *INFO)
33321 {
33322 DEBUG_LAPACK_STUB("ssbev");
33323 LAPACK_IMPL(ssbev)(JOBZ,
33324 UPLO,
33325 N,
33326 KD,
33327 AB,
33328 LDAB,
33329 W,
33330 Z,
33331 LDZ,
33332 WORK,
33333 INFO);
33334 }
33335
33336 //-- ssbevd --------------------------------------------------------------------
33337 void
LAPACK_DECL(ssbevd)33338 LAPACK_DECL(ssbevd)(const char *JOBZ,
33339 const char *UPLO,
33340 const INTEGER *N,
33341 const INTEGER *KD,
33342 FLOAT *AB,
33343 const INTEGER *LDAB,
33344 FLOAT *W,
33345 FLOAT *Z,
33346 const INTEGER *LDZ,
33347 FLOAT *WORK,
33348 const INTEGER *LWORK,
33349 INTEGER *IWORK,
33350 const INTEGER *LIWORK,
33351 INTEGER *INFO)
33352 {
33353 DEBUG_LAPACK_STUB("ssbevd");
33354 LAPACK_IMPL(ssbevd)(JOBZ,
33355 UPLO,
33356 N,
33357 KD,
33358 AB,
33359 LDAB,
33360 W,
33361 Z,
33362 LDZ,
33363 WORK,
33364 LWORK,
33365 IWORK,
33366 LIWORK,
33367 INFO);
33368 }
33369
33370 //-- ssbevx --------------------------------------------------------------------
33371 void
LAPACK_DECL(ssbevx)33372 LAPACK_DECL(ssbevx)(const char *JOBZ,
33373 const char *RANGE,
33374 const char *UPLO,
33375 const INTEGER *N,
33376 const INTEGER *KD,
33377 FLOAT *AB,
33378 const INTEGER *LDAB,
33379 FLOAT *Q,
33380 const INTEGER *LDQ,
33381 const FLOAT *VL,
33382 const FLOAT *VU,
33383 const INTEGER *IL,
33384 const INTEGER *IU,
33385 const FLOAT *ABSTOL,
33386 INTEGER *M,
33387 FLOAT *W,
33388 FLOAT *Z,
33389 const INTEGER *LDZ,
33390 FLOAT *WORK,
33391 INTEGER *IWORK,
33392 INTEGER *IFAIL,
33393 INTEGER *INFO)
33394 {
33395 DEBUG_LAPACK_STUB("ssbevx");
33396 LAPACK_IMPL(ssbevx)(JOBZ,
33397 RANGE,
33398 UPLO,
33399 N,
33400 KD,
33401 AB,
33402 LDAB,
33403 Q,
33404 LDQ,
33405 VL,
33406 VU,
33407 IL,
33408 IU,
33409 ABSTOL,
33410 M,
33411 W,
33412 Z,
33413 LDZ,
33414 WORK,
33415 IWORK,
33416 IFAIL,
33417 INFO);
33418 }
33419
33420 //-- ssbgst --------------------------------------------------------------------
33421 void
LAPACK_DECL(ssbgst)33422 LAPACK_DECL(ssbgst)(const char *VECT,
33423 const char *UPLO,
33424 const INTEGER *N,
33425 const INTEGER *KA,
33426 const INTEGER *KB,
33427 FLOAT *AB,
33428 const INTEGER *LDAB,
33429 const FLOAT *BB,
33430 const INTEGER *LDBB,
33431 FLOAT *X,
33432 const INTEGER *LDX,
33433 FLOAT *WORK,
33434 INTEGER *INFO)
33435 {
33436 DEBUG_LAPACK_STUB("ssbgst");
33437 LAPACK_IMPL(ssbgst)(VECT,
33438 UPLO,
33439 N,
33440 KA,
33441 KB,
33442 AB,
33443 LDAB,
33444 BB,
33445 LDBB,
33446 X,
33447 LDX,
33448 WORK,
33449 INFO);
33450 }
33451
33452 //-- ssbgv ---------------------------------------------------------------------
33453 void
LAPACK_DECL(ssbgv)33454 LAPACK_DECL(ssbgv)(const char *JOBZ,
33455 const char *UPLO,
33456 const INTEGER *N,
33457 const INTEGER *KA,
33458 const INTEGER *KB,
33459 FLOAT *AB,
33460 const INTEGER *LDAB,
33461 FLOAT *BB,
33462 const INTEGER *LDBB,
33463 FLOAT *W,
33464 FLOAT *Z,
33465 const INTEGER *LDZ,
33466 FLOAT *WORK,
33467 INTEGER *INFO)
33468 {
33469 DEBUG_LAPACK_STUB("ssbgv");
33470 LAPACK_IMPL(ssbgv)(JOBZ,
33471 UPLO,
33472 N,
33473 KA,
33474 KB,
33475 AB,
33476 LDAB,
33477 BB,
33478 LDBB,
33479 W,
33480 Z,
33481 LDZ,
33482 WORK,
33483 INFO);
33484 }
33485
33486 //-- ssbgvd --------------------------------------------------------------------
33487 void
LAPACK_DECL(ssbgvd)33488 LAPACK_DECL(ssbgvd)(const char *JOBZ,
33489 const char *UPLO,
33490 const INTEGER *N,
33491 const INTEGER *KA,
33492 const INTEGER *KB,
33493 FLOAT *AB,
33494 const INTEGER *LDAB,
33495 FLOAT *BB,
33496 const INTEGER *LDBB,
33497 FLOAT *W,
33498 FLOAT *Z,
33499 const INTEGER *LDZ,
33500 FLOAT *WORK,
33501 const INTEGER *LWORK,
33502 INTEGER *IWORK,
33503 const INTEGER *LIWORK,
33504 INTEGER *INFO)
33505 {
33506 DEBUG_LAPACK_STUB("ssbgvd");
33507 LAPACK_IMPL(ssbgvd)(JOBZ,
33508 UPLO,
33509 N,
33510 KA,
33511 KB,
33512 AB,
33513 LDAB,
33514 BB,
33515 LDBB,
33516 W,
33517 Z,
33518 LDZ,
33519 WORK,
33520 LWORK,
33521 IWORK,
33522 LIWORK,
33523 INFO);
33524 }
33525
33526 //-- ssbgvx --------------------------------------------------------------------
33527 void
LAPACK_DECL(ssbgvx)33528 LAPACK_DECL(ssbgvx)(const char *JOBZ,
33529 const char *RANGE,
33530 const char *UPLO,
33531 const INTEGER *N,
33532 const INTEGER *KA,
33533 const INTEGER *KB,
33534 FLOAT *AB,
33535 const INTEGER *LDAB,
33536 FLOAT *BB,
33537 const INTEGER *LDBB,
33538 FLOAT *Q,
33539 const INTEGER *LDQ,
33540 const FLOAT *VL,
33541 const FLOAT *VU,
33542 const INTEGER *IL,
33543 const INTEGER *IU,
33544 const FLOAT *ABSTOL,
33545 INTEGER *M,
33546 FLOAT *W,
33547 FLOAT *Z,
33548 const INTEGER *LDZ,
33549 FLOAT *WORK,
33550 INTEGER *IWORK,
33551 INTEGER *IFAIL,
33552 INTEGER *INFO)
33553 {
33554 DEBUG_LAPACK_STUB("ssbgvx");
33555 LAPACK_IMPL(ssbgvx)(JOBZ,
33556 RANGE,
33557 UPLO,
33558 N,
33559 KA,
33560 KB,
33561 AB,
33562 LDAB,
33563 BB,
33564 LDBB,
33565 Q,
33566 LDQ,
33567 VL,
33568 VU,
33569 IL,
33570 IU,
33571 ABSTOL,
33572 M,
33573 W,
33574 Z,
33575 LDZ,
33576 WORK,
33577 IWORK,
33578 IFAIL,
33579 INFO);
33580 }
33581
33582 //-- ssbtrd --------------------------------------------------------------------
33583 void
LAPACK_DECL(ssbtrd)33584 LAPACK_DECL(ssbtrd)(const char *VECT,
33585 const char *UPLO,
33586 const INTEGER *N,
33587 const INTEGER *KD,
33588 FLOAT *AB,
33589 const INTEGER *LDAB,
33590 FLOAT *D,
33591 FLOAT *E,
33592 FLOAT *Q,
33593 const INTEGER *LDQ,
33594 FLOAT *WORK,
33595 INTEGER *INFO)
33596 {
33597 DEBUG_LAPACK_STUB("ssbtrd");
33598 LAPACK_IMPL(ssbtrd)(VECT,
33599 UPLO,
33600 N,
33601 KD,
33602 AB,
33603 LDAB,
33604 D,
33605 E,
33606 Q,
33607 LDQ,
33608 WORK,
33609 INFO);
33610 }
33611
33612 //-- ssfrk ---------------------------------------------------------------------
33613 void
LAPACK_DECL(ssfrk)33614 LAPACK_DECL(ssfrk)(const char *TRANSR,
33615 const char *UPLO,
33616 const char *TRANS,
33617 const INTEGER *N,
33618 const INTEGER *K,
33619 const FLOAT *ALPHA,
33620 const FLOAT *A,
33621 const INTEGER *LDA,
33622 const FLOAT *BETA,
33623 FLOAT *C)
33624 {
33625 DEBUG_LAPACK_STUB("ssfrk");
33626 LAPACK_IMPL(ssfrk)(TRANSR,
33627 UPLO,
33628 TRANS,
33629 N,
33630 K,
33631 ALPHA,
33632 A,
33633 LDA,
33634 BETA,
33635 C);
33636 }
33637
33638 //-- sspcon --------------------------------------------------------------------
33639 void
LAPACK_DECL(sspcon)33640 LAPACK_DECL(sspcon)(const char *UPLO,
33641 const INTEGER *N,
33642 const FLOAT *AP,
33643 const INTEGER *IPIV,
33644 const FLOAT *ANORM,
33645 FLOAT *RCOND,
33646 FLOAT *WORK,
33647 INTEGER *IWORK,
33648 INTEGER *INFO)
33649 {
33650 DEBUG_LAPACK_STUB("sspcon");
33651 LAPACK_IMPL(sspcon)(UPLO,
33652 N,
33653 AP,
33654 IPIV,
33655 ANORM,
33656 RCOND,
33657 WORK,
33658 IWORK,
33659 INFO);
33660 }
33661
33662 //-- sspev ---------------------------------------------------------------------
33663 void
LAPACK_DECL(sspev)33664 LAPACK_DECL(sspev)(const char *JOBZ,
33665 const char *UPLO,
33666 const INTEGER *N,
33667 FLOAT *AP,
33668 FLOAT *W,
33669 FLOAT *Z,
33670 const INTEGER *LDZ,
33671 FLOAT *WORK,
33672 INTEGER *INFO)
33673 {
33674 DEBUG_LAPACK_STUB("sspev");
33675 LAPACK_IMPL(sspev)(JOBZ,
33676 UPLO,
33677 N,
33678 AP,
33679 W,
33680 Z,
33681 LDZ,
33682 WORK,
33683 INFO);
33684 }
33685
33686 //-- sspevd --------------------------------------------------------------------
33687 void
LAPACK_DECL(sspevd)33688 LAPACK_DECL(sspevd)(const char *JOBZ,
33689 const char *UPLO,
33690 const INTEGER *N,
33691 FLOAT *AP,
33692 FLOAT *W,
33693 FLOAT *Z,
33694 const INTEGER *LDZ,
33695 FLOAT *WORK,
33696 const INTEGER *LWORK,
33697 INTEGER *IWORK,
33698 const INTEGER *LIWORK,
33699 INTEGER *INFO)
33700 {
33701 DEBUG_LAPACK_STUB("sspevd");
33702 LAPACK_IMPL(sspevd)(JOBZ,
33703 UPLO,
33704 N,
33705 AP,
33706 W,
33707 Z,
33708 LDZ,
33709 WORK,
33710 LWORK,
33711 IWORK,
33712 LIWORK,
33713 INFO);
33714 }
33715
33716 //-- sspevx --------------------------------------------------------------------
33717 void
LAPACK_DECL(sspevx)33718 LAPACK_DECL(sspevx)(const char *JOBZ,
33719 const char *RANGE,
33720 const char *UPLO,
33721 const INTEGER *N,
33722 FLOAT *AP,
33723 const FLOAT *VL,
33724 const FLOAT *VU,
33725 const INTEGER *IL,
33726 const INTEGER *IU,
33727 const FLOAT *ABSTOL,
33728 INTEGER *M,
33729 FLOAT *W,
33730 FLOAT *Z,
33731 const INTEGER *LDZ,
33732 FLOAT *WORK,
33733 INTEGER *IWORK,
33734 INTEGER *IFAIL,
33735 INTEGER *INFO)
33736 {
33737 DEBUG_LAPACK_STUB("sspevx");
33738 LAPACK_IMPL(sspevx)(JOBZ,
33739 RANGE,
33740 UPLO,
33741 N,
33742 AP,
33743 VL,
33744 VU,
33745 IL,
33746 IU,
33747 ABSTOL,
33748 M,
33749 W,
33750 Z,
33751 LDZ,
33752 WORK,
33753 IWORK,
33754 IFAIL,
33755 INFO);
33756 }
33757
33758 //-- sspgst --------------------------------------------------------------------
33759 void
LAPACK_DECL(sspgst)33760 LAPACK_DECL(sspgst)(const INTEGER *ITYPE,
33761 const char *UPLO,
33762 const INTEGER *N,
33763 FLOAT *AP,
33764 const FLOAT *BP,
33765 INTEGER *INFO)
33766 {
33767 DEBUG_LAPACK_STUB("sspgst");
33768 LAPACK_IMPL(sspgst)(ITYPE,
33769 UPLO,
33770 N,
33771 AP,
33772 BP,
33773 INFO);
33774 }
33775
33776 //-- sspgv ---------------------------------------------------------------------
33777 void
LAPACK_DECL(sspgv)33778 LAPACK_DECL(sspgv)(const INTEGER *ITYPE,
33779 const char *JOBZ,
33780 const char *UPLO,
33781 const INTEGER *N,
33782 FLOAT *AP,
33783 FLOAT *BP,
33784 FLOAT *W,
33785 FLOAT *Z,
33786 const INTEGER *LDZ,
33787 FLOAT *WORK,
33788 INTEGER *INFO)
33789 {
33790 DEBUG_LAPACK_STUB("sspgv");
33791 LAPACK_IMPL(sspgv)(ITYPE,
33792 JOBZ,
33793 UPLO,
33794 N,
33795 AP,
33796 BP,
33797 W,
33798 Z,
33799 LDZ,
33800 WORK,
33801 INFO);
33802 }
33803
33804 //-- sspgvd --------------------------------------------------------------------
33805 void
LAPACK_DECL(sspgvd)33806 LAPACK_DECL(sspgvd)(const INTEGER *ITYPE,
33807 const char *JOBZ,
33808 const char *UPLO,
33809 const INTEGER *N,
33810 FLOAT *AP,
33811 FLOAT *BP,
33812 FLOAT *W,
33813 FLOAT *Z,
33814 const INTEGER *LDZ,
33815 FLOAT *WORK,
33816 const INTEGER *LWORK,
33817 INTEGER *IWORK,
33818 const INTEGER *LIWORK,
33819 INTEGER *INFO)
33820 {
33821 DEBUG_LAPACK_STUB("sspgvd");
33822 LAPACK_IMPL(sspgvd)(ITYPE,
33823 JOBZ,
33824 UPLO,
33825 N,
33826 AP,
33827 BP,
33828 W,
33829 Z,
33830 LDZ,
33831 WORK,
33832 LWORK,
33833 IWORK,
33834 LIWORK,
33835 INFO);
33836 }
33837
33838 //-- sspgvx --------------------------------------------------------------------
33839 void
LAPACK_DECL(sspgvx)33840 LAPACK_DECL(sspgvx)(const INTEGER *ITYPE,
33841 const char *JOBZ,
33842 const char *RANGE,
33843 const char *UPLO,
33844 const INTEGER *N,
33845 FLOAT *AP,
33846 FLOAT *BP,
33847 const FLOAT *VL,
33848 const FLOAT *VU,
33849 const INTEGER *IL,
33850 const INTEGER *IU,
33851 const FLOAT *ABSTOL,
33852 INTEGER *M,
33853 FLOAT *W,
33854 FLOAT *Z,
33855 const INTEGER *LDZ,
33856 FLOAT *WORK,
33857 INTEGER *IWORK,
33858 INTEGER *IFAIL,
33859 INTEGER *INFO)
33860 {
33861 DEBUG_LAPACK_STUB("sspgvx");
33862 LAPACK_IMPL(sspgvx)(ITYPE,
33863 JOBZ,
33864 RANGE,
33865 UPLO,
33866 N,
33867 AP,
33868 BP,
33869 VL,
33870 VU,
33871 IL,
33872 IU,
33873 ABSTOL,
33874 M,
33875 W,
33876 Z,
33877 LDZ,
33878 WORK,
33879 IWORK,
33880 IFAIL,
33881 INFO);
33882 }
33883
33884 //-- ssprfs --------------------------------------------------------------------
33885 void
LAPACK_DECL(ssprfs)33886 LAPACK_DECL(ssprfs)(const char *UPLO,
33887 const INTEGER *N,
33888 const INTEGER *NRHS,
33889 const FLOAT *AP,
33890 const FLOAT *AFP,
33891 const INTEGER *IPIV,
33892 const FLOAT *B,
33893 const INTEGER *LDB,
33894 FLOAT *X,
33895 const INTEGER *LDX,
33896 FLOAT *FERR,
33897 FLOAT *BERR,
33898 FLOAT *WORK,
33899 INTEGER *IWORK,
33900 INTEGER *INFO)
33901 {
33902 DEBUG_LAPACK_STUB("ssprfs");
33903 LAPACK_IMPL(ssprfs)(UPLO,
33904 N,
33905 NRHS,
33906 AP,
33907 AFP,
33908 IPIV,
33909 B,
33910 LDB,
33911 X,
33912 LDX,
33913 FERR,
33914 BERR,
33915 WORK,
33916 IWORK,
33917 INFO);
33918 }
33919
33920 //-- sspsv ---------------------------------------------------------------------
33921 void
LAPACK_DECL(sspsv)33922 LAPACK_DECL(sspsv)(const char *UPLO,
33923 const INTEGER *N,
33924 const INTEGER *NRHS,
33925 FLOAT *AP,
33926 INTEGER *IPIV,
33927 FLOAT *B,
33928 const INTEGER *LDB,
33929 INTEGER *INFO)
33930 {
33931 DEBUG_LAPACK_STUB("sspsv");
33932 LAPACK_IMPL(sspsv)(UPLO,
33933 N,
33934 NRHS,
33935 AP,
33936 IPIV,
33937 B,
33938 LDB,
33939 INFO);
33940 }
33941
33942 //-- sspsvx --------------------------------------------------------------------
33943 void
LAPACK_DECL(sspsvx)33944 LAPACK_DECL(sspsvx)(const char *FACT,
33945 const char *UPLO,
33946 const INTEGER *N,
33947 const INTEGER *NRHS,
33948 const FLOAT *AP,
33949 FLOAT *AFP,
33950 INTEGER *IPIV,
33951 const FLOAT *B,
33952 const INTEGER *LDB,
33953 FLOAT *X,
33954 const INTEGER *LDX,
33955 FLOAT *RCOND,
33956 FLOAT *FERR,
33957 FLOAT *BERR,
33958 FLOAT *WORK,
33959 INTEGER *IWORK,
33960 INTEGER *INFO)
33961 {
33962 DEBUG_LAPACK_STUB("sspsvx");
33963 LAPACK_IMPL(sspsvx)(FACT,
33964 UPLO,
33965 N,
33966 NRHS,
33967 AP,
33968 AFP,
33969 IPIV,
33970 B,
33971 LDB,
33972 X,
33973 LDX,
33974 RCOND,
33975 FERR,
33976 BERR,
33977 WORK,
33978 IWORK,
33979 INFO);
33980 }
33981
33982 //-- ssptrd --------------------------------------------------------------------
33983 void
LAPACK_DECL(ssptrd)33984 LAPACK_DECL(ssptrd)(const char *UPLO,
33985 const INTEGER *N,
33986 FLOAT *AP,
33987 FLOAT *D,
33988 FLOAT *E,
33989 FLOAT *TAU,
33990 INTEGER *INFO)
33991 {
33992 DEBUG_LAPACK_STUB("ssptrd");
33993 LAPACK_IMPL(ssptrd)(UPLO,
33994 N,
33995 AP,
33996 D,
33997 E,
33998 TAU,
33999 INFO);
34000 }
34001
34002 //-- ssptrf --------------------------------------------------------------------
34003 void
LAPACK_DECL(ssptrf)34004 LAPACK_DECL(ssptrf)(const char *UPLO,
34005 const INTEGER *N,
34006 FLOAT *AP,
34007 INTEGER *IPIV,
34008 INTEGER *INFO)
34009 {
34010 DEBUG_LAPACK_STUB("ssptrf");
34011 LAPACK_IMPL(ssptrf)(UPLO,
34012 N,
34013 AP,
34014 IPIV,
34015 INFO);
34016 }
34017
34018 //-- ssptri --------------------------------------------------------------------
34019 void
LAPACK_DECL(ssptri)34020 LAPACK_DECL(ssptri)(const char *UPLO,
34021 const INTEGER *N,
34022 FLOAT *AP,
34023 const INTEGER *IPIV,
34024 FLOAT *WORK,
34025 INTEGER *INFO)
34026 {
34027 DEBUG_LAPACK_STUB("ssptri");
34028 LAPACK_IMPL(ssptri)(UPLO,
34029 N,
34030 AP,
34031 IPIV,
34032 WORK,
34033 INFO);
34034 }
34035
34036 //-- ssptrs --------------------------------------------------------------------
34037 void
LAPACK_DECL(ssptrs)34038 LAPACK_DECL(ssptrs)(const char *UPLO,
34039 const INTEGER *N,
34040 const INTEGER *NRHS,
34041 const FLOAT *AP,
34042 const INTEGER *IPIV,
34043 FLOAT *B,
34044 const INTEGER *LDB,
34045 INTEGER *INFO)
34046 {
34047 DEBUG_LAPACK_STUB("ssptrs");
34048 LAPACK_IMPL(ssptrs)(UPLO,
34049 N,
34050 NRHS,
34051 AP,
34052 IPIV,
34053 B,
34054 LDB,
34055 INFO);
34056 }
34057
34058 //-- sstebz --------------------------------------------------------------------
34059 void
LAPACK_DECL(sstebz)34060 LAPACK_DECL(sstebz)(const char *RANGE,
34061 const char *ORDER,
34062 const INTEGER *N,
34063 const FLOAT *VL,
34064 const FLOAT *VU,
34065 const INTEGER *IL,
34066 const INTEGER *IU,
34067 const FLOAT *ABSTOL,
34068 const FLOAT *D,
34069 const FLOAT *E,
34070 INTEGER *M,
34071 INTEGER *NSPLIT,
34072 FLOAT *W,
34073 INTEGER *IBLOCK,
34074 INTEGER *ISPLIT,
34075 FLOAT *WORK,
34076 INTEGER *IWORK,
34077 INTEGER *INFO)
34078 {
34079 DEBUG_LAPACK_STUB("sstebz");
34080 LAPACK_IMPL(sstebz)(RANGE,
34081 ORDER,
34082 N,
34083 VL,
34084 VU,
34085 IL,
34086 IU,
34087 ABSTOL,
34088 D,
34089 E,
34090 M,
34091 NSPLIT,
34092 W,
34093 IBLOCK,
34094 ISPLIT,
34095 WORK,
34096 IWORK,
34097 INFO);
34098 }
34099
34100 //-- sstedc --------------------------------------------------------------------
34101 void
LAPACK_DECL(sstedc)34102 LAPACK_DECL(sstedc)(const char *COMPZ,
34103 const INTEGER *N,
34104 FLOAT *D,
34105 FLOAT *E,
34106 FLOAT *Z,
34107 const INTEGER *LDZ,
34108 FLOAT *WORK,
34109 const INTEGER *LWORK,
34110 INTEGER *IWORK,
34111 const INTEGER *LIWORK,
34112 INTEGER *INFO)
34113 {
34114 DEBUG_LAPACK_STUB("sstedc");
34115 LAPACK_IMPL(sstedc)(COMPZ,
34116 N,
34117 D,
34118 E,
34119 Z,
34120 LDZ,
34121 WORK,
34122 LWORK,
34123 IWORK,
34124 LIWORK,
34125 INFO);
34126 }
34127
34128 //-- sstegr --------------------------------------------------------------------
34129 void
LAPACK_DECL(sstegr)34130 LAPACK_DECL(sstegr)(const char *JOBZ,
34131 const char *RANGE,
34132 const INTEGER *N,
34133 FLOAT *D,
34134 FLOAT *E,
34135 const FLOAT *VL,
34136 const FLOAT *VU,
34137 const INTEGER *IL,
34138 const INTEGER *IU,
34139 const FLOAT *ABSTOL,
34140 INTEGER *M,
34141 FLOAT *W,
34142 FLOAT *Z,
34143 const INTEGER *LDZ,
34144 INTEGER *ISUPPZ,
34145 FLOAT *WORK,
34146 const INTEGER *LWORK,
34147 INTEGER *IWORK,
34148 const INTEGER *LIWORK,
34149 INTEGER *INFO)
34150 {
34151 DEBUG_LAPACK_STUB("sstegr");
34152 LAPACK_IMPL(sstegr)(JOBZ,
34153 RANGE,
34154 N,
34155 D,
34156 E,
34157 VL,
34158 VU,
34159 IL,
34160 IU,
34161 ABSTOL,
34162 M,
34163 W,
34164 Z,
34165 LDZ,
34166 ISUPPZ,
34167 WORK,
34168 LWORK,
34169 IWORK,
34170 LIWORK,
34171 INFO);
34172 }
34173
34174 //-- sstein --------------------------------------------------------------------
34175 void
LAPACK_DECL(sstein)34176 LAPACK_DECL(sstein)(const INTEGER *N,
34177 const FLOAT *D,
34178 const FLOAT *E,
34179 const INTEGER *M,
34180 const FLOAT *W,
34181 const INTEGER *IBLOCK,
34182 const INTEGER *ISPLIT,
34183 FLOAT *Z,
34184 const INTEGER *LDZ,
34185 FLOAT *WORK,
34186 INTEGER *IWORK,
34187 INTEGER *IFAIL,
34188 INTEGER *INFO)
34189 {
34190 DEBUG_LAPACK_STUB("sstein");
34191 LAPACK_IMPL(sstein)(N,
34192 D,
34193 E,
34194 M,
34195 W,
34196 IBLOCK,
34197 ISPLIT,
34198 Z,
34199 LDZ,
34200 WORK,
34201 IWORK,
34202 IFAIL,
34203 INFO);
34204 }
34205
34206 //-- sstemr --------------------------------------------------------------------
34207 void
LAPACK_DECL(sstemr)34208 LAPACK_DECL(sstemr)(const char *JOBZ,
34209 const char *RANGE,
34210 const INTEGER *N,
34211 FLOAT *D,
34212 FLOAT *E,
34213 const FLOAT *VL,
34214 const FLOAT *VU,
34215 const INTEGER *IL,
34216 const INTEGER *IU,
34217 INTEGER *M,
34218 FLOAT *W,
34219 FLOAT *Z,
34220 const INTEGER *LDZ,
34221 const INTEGER *NZC,
34222 INTEGER *ISUPPZ,
34223 LOGICAL *TRYRAC,
34224 FLOAT *WORK,
34225 const INTEGER *LWORK,
34226 INTEGER *IWORK,
34227 const INTEGER *LIWORK,
34228 INTEGER *INFO)
34229 {
34230 DEBUG_LAPACK_STUB("sstemr");
34231 LAPACK_IMPL(sstemr)(JOBZ,
34232 RANGE,
34233 N,
34234 D,
34235 E,
34236 VL,
34237 VU,
34238 IL,
34239 IU,
34240 M,
34241 W,
34242 Z,
34243 LDZ,
34244 NZC,
34245 ISUPPZ,
34246 TRYRAC,
34247 WORK,
34248 LWORK,
34249 IWORK,
34250 LIWORK,
34251 INFO);
34252 }
34253
34254 //-- ssteqr --------------------------------------------------------------------
34255 void
LAPACK_DECL(ssteqr)34256 LAPACK_DECL(ssteqr)(const char *COMPZ,
34257 const INTEGER *N,
34258 FLOAT *D,
34259 FLOAT *E,
34260 FLOAT *Z,
34261 const INTEGER *LDZ,
34262 FLOAT *WORK,
34263 INTEGER *INFO)
34264 {
34265 DEBUG_LAPACK_STUB("ssteqr");
34266 LAPACK_IMPL(ssteqr)(COMPZ,
34267 N,
34268 D,
34269 E,
34270 Z,
34271 LDZ,
34272 WORK,
34273 INFO);
34274 }
34275
34276 //-- ssterf --------------------------------------------------------------------
34277 void
LAPACK_DECL(ssterf)34278 LAPACK_DECL(ssterf)(const INTEGER *N,
34279 FLOAT *D,
34280 FLOAT *E,
34281 INTEGER *INFO)
34282 {
34283 DEBUG_LAPACK_STUB("ssterf");
34284 LAPACK_IMPL(ssterf)(N,
34285 D,
34286 E,
34287 INFO);
34288 }
34289
34290 //-- sstev ---------------------------------------------------------------------
34291 void
LAPACK_DECL(sstev)34292 LAPACK_DECL(sstev)(const char *JOBZ,
34293 const INTEGER *N,
34294 FLOAT *D,
34295 FLOAT *E,
34296 FLOAT *Z,
34297 const INTEGER *LDZ,
34298 FLOAT *WORK,
34299 INTEGER *INFO)
34300 {
34301 DEBUG_LAPACK_STUB("sstev");
34302 LAPACK_IMPL(sstev)(JOBZ,
34303 N,
34304 D,
34305 E,
34306 Z,
34307 LDZ,
34308 WORK,
34309 INFO);
34310 }
34311
34312 //-- sstevd --------------------------------------------------------------------
34313 void
LAPACK_DECL(sstevd)34314 LAPACK_DECL(sstevd)(const char *JOBZ,
34315 const INTEGER *N,
34316 FLOAT *D,
34317 FLOAT *E,
34318 FLOAT *Z,
34319 const INTEGER *LDZ,
34320 FLOAT *WORK,
34321 const INTEGER *LWORK,
34322 INTEGER *IWORK,
34323 const INTEGER *LIWORK,
34324 INTEGER *INFO)
34325 {
34326 DEBUG_LAPACK_STUB("sstevd");
34327 LAPACK_IMPL(sstevd)(JOBZ,
34328 N,
34329 D,
34330 E,
34331 Z,
34332 LDZ,
34333 WORK,
34334 LWORK,
34335 IWORK,
34336 LIWORK,
34337 INFO);
34338 }
34339
34340 //-- sstevr --------------------------------------------------------------------
34341 void
LAPACK_DECL(sstevr)34342 LAPACK_DECL(sstevr)(const char *JOBZ,
34343 const char *RANGE,
34344 const INTEGER *N,
34345 FLOAT *D,
34346 FLOAT *E,
34347 const FLOAT *VL,
34348 const FLOAT *VU,
34349 const INTEGER *IL,
34350 const INTEGER *IU,
34351 const FLOAT *ABSTOL,
34352 INTEGER *M,
34353 FLOAT *W,
34354 FLOAT *Z,
34355 const INTEGER *LDZ,
34356 INTEGER *ISUPPZ,
34357 FLOAT *WORK,
34358 const INTEGER *LWORK,
34359 INTEGER *IWORK,
34360 const INTEGER *LIWORK,
34361 INTEGER *INFO)
34362 {
34363 DEBUG_LAPACK_STUB("sstevr");
34364 LAPACK_IMPL(sstevr)(JOBZ,
34365 RANGE,
34366 N,
34367 D,
34368 E,
34369 VL,
34370 VU,
34371 IL,
34372 IU,
34373 ABSTOL,
34374 M,
34375 W,
34376 Z,
34377 LDZ,
34378 ISUPPZ,
34379 WORK,
34380 LWORK,
34381 IWORK,
34382 LIWORK,
34383 INFO);
34384 }
34385
34386 //-- sstevx --------------------------------------------------------------------
34387 void
LAPACK_DECL(sstevx)34388 LAPACK_DECL(sstevx)(const char *JOBZ,
34389 const char *RANGE,
34390 const INTEGER *N,
34391 FLOAT *D,
34392 FLOAT *E,
34393 const FLOAT *VL,
34394 const FLOAT *VU,
34395 const INTEGER *IL,
34396 const INTEGER *IU,
34397 const FLOAT *ABSTOL,
34398 INTEGER *M,
34399 FLOAT *W,
34400 FLOAT *Z,
34401 const INTEGER *LDZ,
34402 FLOAT *WORK,
34403 INTEGER *IWORK,
34404 INTEGER *IFAIL,
34405 INTEGER *INFO)
34406 {
34407 DEBUG_LAPACK_STUB("sstevx");
34408 LAPACK_IMPL(sstevx)(JOBZ,
34409 RANGE,
34410 N,
34411 D,
34412 E,
34413 VL,
34414 VU,
34415 IL,
34416 IU,
34417 ABSTOL,
34418 M,
34419 W,
34420 Z,
34421 LDZ,
34422 WORK,
34423 IWORK,
34424 IFAIL,
34425 INFO);
34426 }
34427
34428 //-- ssycon --------------------------------------------------------------------
34429 void
LAPACK_DECL(ssycon)34430 LAPACK_DECL(ssycon)(const char *UPLO,
34431 const INTEGER *N,
34432 const FLOAT *A,
34433 const INTEGER *LDA,
34434 const INTEGER *IPIV,
34435 const FLOAT *ANORM,
34436 FLOAT *RCOND,
34437 FLOAT *WORK,
34438 INTEGER *IWORK,
34439 INTEGER *INFO)
34440 {
34441 DEBUG_LAPACK_STUB("ssycon");
34442 LAPACK_IMPL(ssycon)(UPLO,
34443 N,
34444 A,
34445 LDA,
34446 IPIV,
34447 ANORM,
34448 RCOND,
34449 WORK,
34450 IWORK,
34451 INFO);
34452 }
34453
34454 //-- ssyconv -------------------------------------------------------------------
34455 void
LAPACK_DECL(ssyconv)34456 LAPACK_DECL(ssyconv)(const char *UPLO,
34457 const char *WAY,
34458 const INTEGER *N,
34459 const FLOAT *A,
34460 const INTEGER *LDA,
34461 const INTEGER *IPIV,
34462 FLOAT *WORK,
34463 INTEGER *INFO)
34464 {
34465 DEBUG_LAPACK_STUB("ssyconv");
34466 LAPACK_IMPL(ssyconv)(UPLO,
34467 WAY,
34468 N,
34469 A,
34470 LDA,
34471 IPIV,
34472 WORK,
34473 INFO);
34474 }
34475
34476 //-- ssyequb -------------------------------------------------------------------
34477 void
LAPACK_DECL(ssyequb)34478 LAPACK_DECL(ssyequb)(const char *UPLO,
34479 const INTEGER *N,
34480 const FLOAT *A,
34481 const INTEGER *LDA,
34482 FLOAT *S,
34483 FLOAT *SCOND,
34484 FLOAT *AMAX,
34485 FLOAT *WORK,
34486 INTEGER *INFO)
34487 {
34488 DEBUG_LAPACK_STUB("ssyequb");
34489 LAPACK_IMPL(ssyequb)(UPLO,
34490 N,
34491 A,
34492 LDA,
34493 S,
34494 SCOND,
34495 AMAX,
34496 WORK,
34497 INFO);
34498 }
34499
34500 //-- ssyev ---------------------------------------------------------------------
34501 void
LAPACK_DECL(ssyev)34502 LAPACK_DECL(ssyev)(const char *JOBZ,
34503 const char *UPLO,
34504 const INTEGER *N,
34505 FLOAT *A,
34506 const INTEGER *LDA,
34507 FLOAT *W,
34508 FLOAT *WORK,
34509 const INTEGER *LWORK,
34510 INTEGER *INFO)
34511 {
34512 DEBUG_LAPACK_STUB("ssyev");
34513 LAPACK_IMPL(ssyev)(JOBZ,
34514 UPLO,
34515 N,
34516 A,
34517 LDA,
34518 W,
34519 WORK,
34520 LWORK,
34521 INFO);
34522 }
34523
34524 //-- ssyevd --------------------------------------------------------------------
34525 void
LAPACK_DECL(ssyevd)34526 LAPACK_DECL(ssyevd)(const char *JOBZ,
34527 const char *UPLO,
34528 const INTEGER *N,
34529 FLOAT *A,
34530 const INTEGER *LDA,
34531 FLOAT *W,
34532 FLOAT *WORK,
34533 const INTEGER *LWORK,
34534 INTEGER *IWORK,
34535 const INTEGER *LIWORK,
34536 INTEGER *INFO)
34537 {
34538 DEBUG_LAPACK_STUB("ssyevd");
34539 LAPACK_IMPL(ssyevd)(JOBZ,
34540 UPLO,
34541 N,
34542 A,
34543 LDA,
34544 W,
34545 WORK,
34546 LWORK,
34547 IWORK,
34548 LIWORK,
34549 INFO);
34550 }
34551
34552 //-- ssyevr --------------------------------------------------------------------
34553 void
LAPACK_DECL(ssyevr)34554 LAPACK_DECL(ssyevr)(const char *JOBZ,
34555 const char *RANGE,
34556 const char *UPLO,
34557 const INTEGER *N,
34558 FLOAT *A,
34559 const INTEGER *LDA,
34560 const FLOAT *VL,
34561 const FLOAT *VU,
34562 const INTEGER *IL,
34563 const INTEGER *IU,
34564 const FLOAT *ABSTOL,
34565 INTEGER *M,
34566 FLOAT *W,
34567 FLOAT *Z,
34568 const INTEGER *LDZ,
34569 INTEGER *ISUPPZ,
34570 FLOAT *WORK,
34571 const INTEGER *LWORK,
34572 INTEGER *IWORK,
34573 const INTEGER *LIWORK,
34574 INTEGER *INFO)
34575 {
34576 DEBUG_LAPACK_STUB("ssyevr");
34577 LAPACK_IMPL(ssyevr)(JOBZ,
34578 RANGE,
34579 UPLO,
34580 N,
34581 A,
34582 LDA,
34583 VL,
34584 VU,
34585 IL,
34586 IU,
34587 ABSTOL,
34588 M,
34589 W,
34590 Z,
34591 LDZ,
34592 ISUPPZ,
34593 WORK,
34594 LWORK,
34595 IWORK,
34596 LIWORK,
34597 INFO);
34598 }
34599
34600 //-- ssyevx --------------------------------------------------------------------
34601 void
LAPACK_DECL(ssyevx)34602 LAPACK_DECL(ssyevx)(const char *JOBZ,
34603 const char *RANGE,
34604 const char *UPLO,
34605 const INTEGER *N,
34606 FLOAT *A,
34607 const INTEGER *LDA,
34608 const FLOAT *VL,
34609 const FLOAT *VU,
34610 const INTEGER *IL,
34611 const INTEGER *IU,
34612 const FLOAT *ABSTOL,
34613 INTEGER *M,
34614 FLOAT *W,
34615 FLOAT *Z,
34616 const INTEGER *LDZ,
34617 FLOAT *WORK,
34618 const INTEGER *LWORK,
34619 INTEGER *IWORK,
34620 INTEGER *IFAIL,
34621 INTEGER *INFO)
34622 {
34623 DEBUG_LAPACK_STUB("ssyevx");
34624 LAPACK_IMPL(ssyevx)(JOBZ,
34625 RANGE,
34626 UPLO,
34627 N,
34628 A,
34629 LDA,
34630 VL,
34631 VU,
34632 IL,
34633 IU,
34634 ABSTOL,
34635 M,
34636 W,
34637 Z,
34638 LDZ,
34639 WORK,
34640 LWORK,
34641 IWORK,
34642 IFAIL,
34643 INFO);
34644 }
34645
34646 //-- ssygs2 --------------------------------------------------------------------
34647 void
LAPACK_DECL(ssygs2)34648 LAPACK_DECL(ssygs2)(const INTEGER *ITYPE,
34649 const char *UPLO,
34650 const INTEGER *N,
34651 FLOAT *A,
34652 const INTEGER *LDA,
34653 const FLOAT *B,
34654 const INTEGER *LDB,
34655 INTEGER *INFO)
34656 {
34657 DEBUG_LAPACK_STUB("ssygs2");
34658 LAPACK_IMPL(ssygs2)(ITYPE,
34659 UPLO,
34660 N,
34661 A,
34662 LDA,
34663 B,
34664 LDB,
34665 INFO);
34666 }
34667
34668 //-- ssygst --------------------------------------------------------------------
34669 void
LAPACK_DECL(ssygst)34670 LAPACK_DECL(ssygst)(const INTEGER *ITYPE,
34671 const char *UPLO,
34672 const INTEGER *N,
34673 FLOAT *A,
34674 const INTEGER *LDA,
34675 const FLOAT *B,
34676 const INTEGER *LDB,
34677 INTEGER *INFO)
34678 {
34679 DEBUG_LAPACK_STUB("ssygst");
34680 LAPACK_IMPL(ssygst)(ITYPE,
34681 UPLO,
34682 N,
34683 A,
34684 LDA,
34685 B,
34686 LDB,
34687 INFO);
34688 }
34689
34690 //-- ssygv ---------------------------------------------------------------------
34691 void
LAPACK_DECL(ssygv)34692 LAPACK_DECL(ssygv)(const INTEGER *ITYPE,
34693 const char *JOBZ,
34694 const char *UPLO,
34695 const INTEGER *N,
34696 FLOAT *A,
34697 const INTEGER *LDA,
34698 FLOAT *B,
34699 const INTEGER *LDB,
34700 FLOAT *W,
34701 FLOAT *WORK,
34702 const INTEGER *LWORK,
34703 INTEGER *INFO)
34704 {
34705 DEBUG_LAPACK_STUB("ssygv");
34706 LAPACK_IMPL(ssygv)(ITYPE,
34707 JOBZ,
34708 UPLO,
34709 N,
34710 A,
34711 LDA,
34712 B,
34713 LDB,
34714 W,
34715 WORK,
34716 LWORK,
34717 INFO);
34718 }
34719
34720 //-- ssygvd --------------------------------------------------------------------
34721 void
LAPACK_DECL(ssygvd)34722 LAPACK_DECL(ssygvd)(const INTEGER *ITYPE,
34723 const char *JOBZ,
34724 const char *UPLO,
34725 const INTEGER *N,
34726 FLOAT *A,
34727 const INTEGER *LDA,
34728 FLOAT *B,
34729 const INTEGER *LDB,
34730 FLOAT *W,
34731 FLOAT *WORK,
34732 const INTEGER *LWORK,
34733 INTEGER *IWORK,
34734 const INTEGER *LIWORK,
34735 INTEGER *INFO)
34736 {
34737 DEBUG_LAPACK_STUB("ssygvd");
34738 LAPACK_IMPL(ssygvd)(ITYPE,
34739 JOBZ,
34740 UPLO,
34741 N,
34742 A,
34743 LDA,
34744 B,
34745 LDB,
34746 W,
34747 WORK,
34748 LWORK,
34749 IWORK,
34750 LIWORK,
34751 INFO);
34752 }
34753
34754 //-- ssygvx --------------------------------------------------------------------
34755 void
LAPACK_DECL(ssygvx)34756 LAPACK_DECL(ssygvx)(const INTEGER *ITYPE,
34757 const char *JOBZ,
34758 const char *RANGE,
34759 const char *UPLO,
34760 const INTEGER *N,
34761 FLOAT *A,
34762 const INTEGER *LDA,
34763 FLOAT *B,
34764 const INTEGER *LDB,
34765 const FLOAT *VL,
34766 const FLOAT *VU,
34767 const INTEGER *IL,
34768 const INTEGER *IU,
34769 const FLOAT *ABSTOL,
34770 INTEGER *M,
34771 FLOAT *W,
34772 FLOAT *Z,
34773 const INTEGER *LDZ,
34774 FLOAT *WORK,
34775 const INTEGER *LWORK,
34776 INTEGER *IWORK,
34777 INTEGER *IFAIL,
34778 INTEGER *INFO)
34779 {
34780 DEBUG_LAPACK_STUB("ssygvx");
34781 LAPACK_IMPL(ssygvx)(ITYPE,
34782 JOBZ,
34783 RANGE,
34784 UPLO,
34785 N,
34786 A,
34787 LDA,
34788 B,
34789 LDB,
34790 VL,
34791 VU,
34792 IL,
34793 IU,
34794 ABSTOL,
34795 M,
34796 W,
34797 Z,
34798 LDZ,
34799 WORK,
34800 LWORK,
34801 IWORK,
34802 IFAIL,
34803 INFO);
34804 }
34805
34806 //-- ssyrfs --------------------------------------------------------------------
34807 void
LAPACK_DECL(ssyrfs)34808 LAPACK_DECL(ssyrfs)(const char *UPLO,
34809 const INTEGER *N,
34810 const INTEGER *NRHS,
34811 const FLOAT *A,
34812 const INTEGER *LDA,
34813 const FLOAT *AF,
34814 const INTEGER *LDAF,
34815 const INTEGER *IPIV,
34816 const FLOAT *B,
34817 const INTEGER *LDB,
34818 FLOAT *X,
34819 const INTEGER *LDX,
34820 FLOAT *FERR,
34821 FLOAT *BERR,
34822 FLOAT *WORK,
34823 INTEGER *IWORK,
34824 INTEGER *INFO)
34825 {
34826 DEBUG_LAPACK_STUB("ssyrfs");
34827 LAPACK_IMPL(ssyrfs)(UPLO,
34828 N,
34829 NRHS,
34830 A,
34831 LDA,
34832 AF,
34833 LDAF,
34834 IPIV,
34835 B,
34836 LDB,
34837 X,
34838 LDX,
34839 FERR,
34840 BERR,
34841 WORK,
34842 IWORK,
34843 INFO);
34844 }
34845
34846 //-- ssyrfsx -------------------------------------------------------------------
34847 void
LAPACK_DECL(ssyrfsx)34848 LAPACK_DECL(ssyrfsx)(const char *UPLO,
34849 const char *EQUED,
34850 const INTEGER *N,
34851 const INTEGER *NRHS,
34852 const FLOAT *A,
34853 const INTEGER *LDA,
34854 const FLOAT *AF,
34855 const INTEGER *LDAF,
34856 const INTEGER *IPIV,
34857 FLOAT *S,
34858 const FLOAT *B,
34859 const INTEGER *LDB,
34860 FLOAT *X,
34861 const INTEGER *LDX,
34862 FLOAT *RCOND,
34863 FLOAT *BERR,
34864 const INTEGER *N_ERR_BNDS,
34865 FLOAT *ERR_BNDS_NORM,
34866 FLOAT *ERR_BNDS_COMP,
34867 const INTEGER *NPARAMS,
34868 FLOAT *PARAMS,
34869 FLOAT *WORK,
34870 INTEGER *IWORK,
34871 INTEGER *INFO)
34872 {
34873 DEBUG_LAPACK_STUB("ssyrfsx");
34874 LAPACK_IMPL(ssyrfsx)(UPLO,
34875 EQUED,
34876 N,
34877 NRHS,
34878 A,
34879 LDA,
34880 AF,
34881 LDAF,
34882 IPIV,
34883 S,
34884 B,
34885 LDB,
34886 X,
34887 LDX,
34888 RCOND,
34889 BERR,
34890 N_ERR_BNDS,
34891 ERR_BNDS_NORM,
34892 ERR_BNDS_COMP,
34893 NPARAMS,
34894 PARAMS,
34895 WORK,
34896 IWORK,
34897 INFO);
34898 }
34899
34900 //-- ssysv ---------------------------------------------------------------------
34901 void
LAPACK_DECL(ssysv)34902 LAPACK_DECL(ssysv)(const char *UPLO,
34903 const INTEGER *N,
34904 const INTEGER *NRHS,
34905 FLOAT *A,
34906 const INTEGER *LDA,
34907 INTEGER *IPIV,
34908 FLOAT *B,
34909 const INTEGER *LDB,
34910 FLOAT *WORK,
34911 const INTEGER *LWORK,
34912 INTEGER *INFO)
34913 {
34914 DEBUG_LAPACK_STUB("ssysv");
34915 LAPACK_IMPL(ssysv)(UPLO,
34916 N,
34917 NRHS,
34918 A,
34919 LDA,
34920 IPIV,
34921 B,
34922 LDB,
34923 WORK,
34924 LWORK,
34925 INFO);
34926 }
34927
34928 //-- ssysvx --------------------------------------------------------------------
34929 void
LAPACK_DECL(ssysvx)34930 LAPACK_DECL(ssysvx)(const char *FACT,
34931 const char *UPLO,
34932 const INTEGER *N,
34933 const INTEGER *NRHS,
34934 const FLOAT *A,
34935 const INTEGER *LDA,
34936 FLOAT *AF,
34937 const INTEGER *LDAF,
34938 INTEGER *IPIV,
34939 const FLOAT *B,
34940 const INTEGER *LDB,
34941 FLOAT *X,
34942 const INTEGER *LDX,
34943 FLOAT *RCOND,
34944 FLOAT *FERR,
34945 FLOAT *BERR,
34946 FLOAT *WORK,
34947 const INTEGER *LWORK,
34948 INTEGER *IWORK,
34949 INTEGER *INFO)
34950 {
34951 DEBUG_LAPACK_STUB("ssysvx");
34952 LAPACK_IMPL(ssysvx)(FACT,
34953 UPLO,
34954 N,
34955 NRHS,
34956 A,
34957 LDA,
34958 AF,
34959 LDAF,
34960 IPIV,
34961 B,
34962 LDB,
34963 X,
34964 LDX,
34965 RCOND,
34966 FERR,
34967 BERR,
34968 WORK,
34969 LWORK,
34970 IWORK,
34971 INFO);
34972 }
34973
34974 //-- ssysvxx -------------------------------------------------------------------
34975 void
LAPACK_DECL(ssysvxx)34976 LAPACK_DECL(ssysvxx)(const char *FACT,
34977 const char *UPLO,
34978 const INTEGER *N,
34979 const INTEGER *NRHS,
34980 FLOAT *A,
34981 const INTEGER *LDA,
34982 FLOAT *AF,
34983 const INTEGER *LDAF,
34984 INTEGER *IPIV,
34985 char *EQUED,
34986 FLOAT *S,
34987 FLOAT *B,
34988 const INTEGER *LDB,
34989 FLOAT *X,
34990 const INTEGER *LDX,
34991 FLOAT *RCOND,
34992 FLOAT *RPVGRW,
34993 FLOAT *BERR,
34994 const INTEGER *N_ERR_BNDS,
34995 FLOAT *ERR_BNDS_NORM,
34996 FLOAT *ERR_BNDS_COMP,
34997 const INTEGER *NPARAMS,
34998 FLOAT *PARAMS,
34999 FLOAT *WORK,
35000 INTEGER *IWORK,
35001 INTEGER *INFO)
35002 {
35003 DEBUG_LAPACK_STUB("ssysvxx");
35004 LAPACK_IMPL(ssysvxx)(FACT,
35005 UPLO,
35006 N,
35007 NRHS,
35008 A,
35009 LDA,
35010 AF,
35011 LDAF,
35012 IPIV,
35013 EQUED,
35014 S,
35015 B,
35016 LDB,
35017 X,
35018 LDX,
35019 RCOND,
35020 RPVGRW,
35021 BERR,
35022 N_ERR_BNDS,
35023 ERR_BNDS_NORM,
35024 ERR_BNDS_COMP,
35025 NPARAMS,
35026 PARAMS,
35027 WORK,
35028 IWORK,
35029 INFO);
35030 }
35031
35032 //-- ssyswapr ------------------------------------------------------------------
35033 void
LAPACK_DECL(ssyswapr)35034 LAPACK_DECL(ssyswapr)(const char *UPLO,
35035 const INTEGER *N,
35036 FLOAT *A,
35037 const INTEGER *LDA,
35038 const INTEGER *I1,
35039 const INTEGER *I2)
35040 {
35041 DEBUG_LAPACK_STUB("ssyswapr");
35042 LAPACK_IMPL(ssyswapr)(UPLO,
35043 N,
35044 A,
35045 LDA,
35046 I1,
35047 I2);
35048 }
35049
35050 //-- ssytd2 --------------------------------------------------------------------
35051 void
LAPACK_DECL(ssytd2)35052 LAPACK_DECL(ssytd2)(const char *UPLO,
35053 const INTEGER *N,
35054 FLOAT *A,
35055 const INTEGER *LDA,
35056 FLOAT *D,
35057 FLOAT *E,
35058 FLOAT *TAU,
35059 INTEGER *INFO)
35060 {
35061 DEBUG_LAPACK_STUB("ssytd2");
35062 LAPACK_IMPL(ssytd2)(UPLO,
35063 N,
35064 A,
35065 LDA,
35066 D,
35067 E,
35068 TAU,
35069 INFO);
35070 }
35071
35072 //-- ssytf2 --------------------------------------------------------------------
35073 void
LAPACK_DECL(ssytf2)35074 LAPACK_DECL(ssytf2)(const char *UPLO,
35075 const INTEGER *N,
35076 FLOAT *A,
35077 const INTEGER *LDA,
35078 INTEGER *IPIV,
35079 INTEGER *INFO)
35080 {
35081 DEBUG_LAPACK_STUB("ssytf2");
35082 LAPACK_IMPL(ssytf2)(UPLO,
35083 N,
35084 A,
35085 LDA,
35086 IPIV,
35087 INFO);
35088 }
35089
35090 //-- ssytrd --------------------------------------------------------------------
35091 void
LAPACK_DECL(ssytrd)35092 LAPACK_DECL(ssytrd)(const char *UPLO,
35093 const INTEGER *N,
35094 FLOAT *A,
35095 const INTEGER *LDA,
35096 FLOAT *D,
35097 FLOAT *E,
35098 FLOAT *TAU,
35099 FLOAT *WORK,
35100 const INTEGER *LWORK,
35101 INTEGER *INFO)
35102 {
35103 DEBUG_LAPACK_STUB("ssytrd");
35104 LAPACK_IMPL(ssytrd)(UPLO,
35105 N,
35106 A,
35107 LDA,
35108 D,
35109 E,
35110 TAU,
35111 WORK,
35112 LWORK,
35113 INFO);
35114 }
35115
35116 //-- ssytrf --------------------------------------------------------------------
35117 void
LAPACK_DECL(ssytrf)35118 LAPACK_DECL(ssytrf)(const char *UPLO,
35119 const INTEGER *N,
35120 FLOAT *A,
35121 const INTEGER *LDA,
35122 INTEGER *IPIV,
35123 FLOAT *WORK,
35124 const INTEGER *LWORK,
35125 INTEGER *INFO)
35126 {
35127 DEBUG_LAPACK_STUB("ssytrf");
35128 LAPACK_IMPL(ssytrf)(UPLO,
35129 N,
35130 A,
35131 LDA,
35132 IPIV,
35133 WORK,
35134 LWORK,
35135 INFO);
35136 }
35137
35138 //-- ssytri --------------------------------------------------------------------
35139 void
LAPACK_DECL(ssytri)35140 LAPACK_DECL(ssytri)(const char *UPLO,
35141 const INTEGER *N,
35142 FLOAT *A,
35143 const INTEGER *LDA,
35144 const INTEGER *IPIV,
35145 FLOAT *WORK,
35146 INTEGER *INFO)
35147 {
35148 DEBUG_LAPACK_STUB("ssytri");
35149 LAPACK_IMPL(ssytri)(UPLO,
35150 N,
35151 A,
35152 LDA,
35153 IPIV,
35154 WORK,
35155 INFO);
35156 }
35157
35158 //-- ssytri2 -------------------------------------------------------------------
35159 void
LAPACK_DECL(ssytri2)35160 LAPACK_DECL(ssytri2)(const char *UPLO,
35161 const INTEGER *N,
35162 FLOAT *A,
35163 const INTEGER *LDA,
35164 const INTEGER *IPIV,
35165 FLOAT *WORK,
35166 const INTEGER *LWORK,
35167 INTEGER *INFO)
35168 {
35169 DEBUG_LAPACK_STUB("ssytri2");
35170 LAPACK_IMPL(ssytri2)(UPLO,
35171 N,
35172 A,
35173 LDA,
35174 IPIV,
35175 WORK,
35176 LWORK,
35177 INFO);
35178 }
35179
35180 //-- ssytri2x ------------------------------------------------------------------
35181 void
LAPACK_DECL(ssytri2x)35182 LAPACK_DECL(ssytri2x)(const char *UPLO,
35183 const INTEGER *N,
35184 FLOAT *A,
35185 const INTEGER *LDA,
35186 const INTEGER *IPIV,
35187 FLOAT *WORK,
35188 const INTEGER *NB,
35189 INTEGER *INFO)
35190 {
35191 DEBUG_LAPACK_STUB("ssytri2x");
35192 LAPACK_IMPL(ssytri2x)(UPLO,
35193 N,
35194 A,
35195 LDA,
35196 IPIV,
35197 WORK,
35198 NB,
35199 INFO);
35200 }
35201
35202 //-- ssytrs --------------------------------------------------------------------
35203 void
LAPACK_DECL(ssytrs)35204 LAPACK_DECL(ssytrs)(const char *UPLO,
35205 const INTEGER *N,
35206 const INTEGER *NRHS,
35207 const FLOAT *A,
35208 const INTEGER *LDA,
35209 const INTEGER *IPIV,
35210 FLOAT *B,
35211 const INTEGER *LDB,
35212 INTEGER *INFO)
35213 {
35214 DEBUG_LAPACK_STUB("ssytrs");
35215 LAPACK_IMPL(ssytrs)(UPLO,
35216 N,
35217 NRHS,
35218 A,
35219 LDA,
35220 IPIV,
35221 B,
35222 LDB,
35223 INFO);
35224 }
35225
35226 //-- ssytrs2 -------------------------------------------------------------------
35227 void
LAPACK_DECL(ssytrs2)35228 LAPACK_DECL(ssytrs2)(const char *UPLO,
35229 const INTEGER *N,
35230 const INTEGER *NRHS,
35231 const FLOAT *A,
35232 const INTEGER *LDA,
35233 const INTEGER *IPIV,
35234 FLOAT *B,
35235 const INTEGER *LDB,
35236 FLOAT *WORK,
35237 INTEGER *INFO)
35238 {
35239 DEBUG_LAPACK_STUB("ssytrs2");
35240 LAPACK_IMPL(ssytrs2)(UPLO,
35241 N,
35242 NRHS,
35243 A,
35244 LDA,
35245 IPIV,
35246 B,
35247 LDB,
35248 WORK,
35249 INFO);
35250 }
35251
35252 //-- stbcon --------------------------------------------------------------------
35253 void
LAPACK_DECL(stbcon)35254 LAPACK_DECL(stbcon)(const char *NORM,
35255 const char *UPLO,
35256 const char *DIAG,
35257 const INTEGER *N,
35258 const INTEGER *KD,
35259 const FLOAT *AB,
35260 const INTEGER *LDAB,
35261 FLOAT *RCOND,
35262 FLOAT *WORK,
35263 INTEGER *IWORK,
35264 INTEGER *INFO)
35265 {
35266 DEBUG_LAPACK_STUB("stbcon");
35267 LAPACK_IMPL(stbcon)(NORM,
35268 UPLO,
35269 DIAG,
35270 N,
35271 KD,
35272 AB,
35273 LDAB,
35274 RCOND,
35275 WORK,
35276 IWORK,
35277 INFO);
35278 }
35279
35280 //-- stbrfs --------------------------------------------------------------------
35281 void
LAPACK_DECL(stbrfs)35282 LAPACK_DECL(stbrfs)(const char *UPLO,
35283 const char *TRANS,
35284 const char *DIAG,
35285 const INTEGER *N,
35286 const INTEGER *KD,
35287 const INTEGER *NRHS,
35288 const FLOAT *AB,
35289 const INTEGER *LDAB,
35290 const FLOAT *B,
35291 const INTEGER *LDB,
35292 const FLOAT *X,
35293 const INTEGER *LDX,
35294 FLOAT *FERR,
35295 FLOAT *BERR,
35296 FLOAT *WORK,
35297 INTEGER *IWORK,
35298 INTEGER *INFO)
35299 {
35300 DEBUG_LAPACK_STUB("stbrfs");
35301 LAPACK_IMPL(stbrfs)(UPLO,
35302 TRANS,
35303 DIAG,
35304 N,
35305 KD,
35306 NRHS,
35307 AB,
35308 LDAB,
35309 B,
35310 LDB,
35311 X,
35312 LDX,
35313 FERR,
35314 BERR,
35315 WORK,
35316 IWORK,
35317 INFO);
35318 }
35319
35320 //-- stbtrs --------------------------------------------------------------------
35321 void
LAPACK_DECL(stbtrs)35322 LAPACK_DECL(stbtrs)(const char *UPLO,
35323 const char *TRANS,
35324 const char *DIAG,
35325 const INTEGER *N,
35326 const INTEGER *KD,
35327 const INTEGER *NRHS,
35328 const FLOAT *AB,
35329 const INTEGER *LDAB,
35330 FLOAT *B,
35331 const INTEGER *LDB,
35332 INTEGER *INFO)
35333 {
35334 DEBUG_LAPACK_STUB("stbtrs");
35335 LAPACK_IMPL(stbtrs)(UPLO,
35336 TRANS,
35337 DIAG,
35338 N,
35339 KD,
35340 NRHS,
35341 AB,
35342 LDAB,
35343 B,
35344 LDB,
35345 INFO);
35346 }
35347
35348 //-- stfsm ---------------------------------------------------------------------
35349 void
LAPACK_DECL(stfsm)35350 LAPACK_DECL(stfsm)(const char *TRANSR,
35351 const char *SIDE,
35352 const char *UPLO,
35353 const char *TRANS,
35354 const char *DIAG,
35355 const INTEGER *M,
35356 const INTEGER *N,
35357 const FLOAT *ALPHA,
35358 const FLOAT *A,
35359 FLOAT *B,
35360 const INTEGER *LDB)
35361 {
35362 DEBUG_LAPACK_STUB("stfsm");
35363 LAPACK_IMPL(stfsm)(TRANSR,
35364 SIDE,
35365 UPLO,
35366 TRANS,
35367 DIAG,
35368 M,
35369 N,
35370 ALPHA,
35371 A,
35372 B,
35373 LDB);
35374 }
35375
35376 //-- stftri --------------------------------------------------------------------
35377 void
LAPACK_DECL(stftri)35378 LAPACK_DECL(stftri)(const char *TRANSR,
35379 const char *UPLO,
35380 const char *DIAG,
35381 const INTEGER *N,
35382 FLOAT *A,
35383 INTEGER *INFO)
35384 {
35385 DEBUG_LAPACK_STUB("stftri");
35386 LAPACK_IMPL(stftri)(TRANSR,
35387 UPLO,
35388 DIAG,
35389 N,
35390 A,
35391 INFO);
35392 }
35393
35394 //-- stfttp --------------------------------------------------------------------
35395 void
LAPACK_DECL(stfttp)35396 LAPACK_DECL(stfttp)(const char *TRANSR,
35397 const char *UPLO,
35398 const INTEGER *N,
35399 const FLOAT *ARF,
35400 FLOAT *AP,
35401 INTEGER *INFO)
35402 {
35403 DEBUG_LAPACK_STUB("stfttp");
35404 LAPACK_IMPL(stfttp)(TRANSR,
35405 UPLO,
35406 N,
35407 ARF,
35408 AP,
35409 INFO);
35410 }
35411
35412 //-- stfttr --------------------------------------------------------------------
35413 void
LAPACK_DECL(stfttr)35414 LAPACK_DECL(stfttr)(const char *TRANSR,
35415 const char *UPLO,
35416 const INTEGER *N,
35417 const FLOAT *ARF,
35418 FLOAT *A,
35419 const INTEGER *LDA,
35420 INTEGER *INFO)
35421 {
35422 DEBUG_LAPACK_STUB("stfttr");
35423 LAPACK_IMPL(stfttr)(TRANSR,
35424 UPLO,
35425 N,
35426 ARF,
35427 A,
35428 LDA,
35429 INFO);
35430 }
35431
35432 //-- stgevc --------------------------------------------------------------------
35433 void
LAPACK_DECL(stgevc)35434 LAPACK_DECL(stgevc)(const char *SIDE,
35435 const char *HOWMNY,
35436 const LOGICAL *SELECT,
35437 const INTEGER *N,
35438 const FLOAT *S,
35439 const INTEGER *LDS,
35440 const FLOAT *P,
35441 const INTEGER *LDP,
35442 FLOAT *VL,
35443 const INTEGER *LDVL,
35444 FLOAT *VR,
35445 const INTEGER *LDVR,
35446 const INTEGER *MM,
35447 INTEGER *M,
35448 FLOAT *WORK,
35449 INTEGER *INFO)
35450 {
35451 DEBUG_LAPACK_STUB("stgevc");
35452 LAPACK_IMPL(stgevc)(SIDE,
35453 HOWMNY,
35454 SELECT,
35455 N,
35456 S,
35457 LDS,
35458 P,
35459 LDP,
35460 VL,
35461 LDVL,
35462 VR,
35463 LDVR,
35464 MM,
35465 M,
35466 WORK,
35467 INFO);
35468 }
35469
35470 //-- stgex2 --------------------------------------------------------------------
35471 void
LAPACK_DECL(stgex2)35472 LAPACK_DECL(stgex2)(const LOGICAL *WANTQ,
35473 const LOGICAL *WANTZ,
35474 const INTEGER *N,
35475 FLOAT *A,
35476 const INTEGER *LDA,
35477 FLOAT *B,
35478 const INTEGER *LDB,
35479 FLOAT *Q,
35480 const INTEGER *LDQ,
35481 FLOAT *Z,
35482 const INTEGER *LDZ,
35483 const INTEGER *J1,
35484 const INTEGER *N1,
35485 const INTEGER *N2,
35486 FLOAT *WORK,
35487 const INTEGER *LWORK,
35488 INTEGER *INFO)
35489 {
35490 DEBUG_LAPACK_STUB("stgex2");
35491 LAPACK_IMPL(stgex2)(WANTQ,
35492 WANTZ,
35493 N,
35494 A,
35495 LDA,
35496 B,
35497 LDB,
35498 Q,
35499 LDQ,
35500 Z,
35501 LDZ,
35502 J1,
35503 N1,
35504 N2,
35505 WORK,
35506 LWORK,
35507 INFO);
35508 }
35509
35510 //-- stgexc --------------------------------------------------------------------
35511 void
LAPACK_DECL(stgexc)35512 LAPACK_DECL(stgexc)(const LOGICAL *WANTQ,
35513 const LOGICAL *WANTZ,
35514 const INTEGER *N,
35515 FLOAT *A,
35516 const INTEGER *LDA,
35517 FLOAT *B,
35518 const INTEGER *LDB,
35519 FLOAT *Q,
35520 const INTEGER *LDQ,
35521 FLOAT *Z,
35522 const INTEGER *LDZ,
35523 INTEGER *IFST,
35524 INTEGER *ILST,
35525 FLOAT *WORK,
35526 const INTEGER *LWORK,
35527 INTEGER *INFO)
35528 {
35529 DEBUG_LAPACK_STUB("stgexc");
35530 LAPACK_IMPL(stgexc)(WANTQ,
35531 WANTZ,
35532 N,
35533 A,
35534 LDA,
35535 B,
35536 LDB,
35537 Q,
35538 LDQ,
35539 Z,
35540 LDZ,
35541 IFST,
35542 ILST,
35543 WORK,
35544 LWORK,
35545 INFO);
35546 }
35547
35548 //-- stgsen --------------------------------------------------------------------
35549 void
LAPACK_DECL(stgsen)35550 LAPACK_DECL(stgsen)(const INTEGER *IJOB,
35551 const LOGICAL *WANTQ,
35552 const LOGICAL *WANTZ,
35553 const LOGICAL *SELECT,
35554 const INTEGER *N,
35555 FLOAT *A,
35556 const INTEGER *LDA,
35557 FLOAT *B,
35558 const INTEGER *LDB,
35559 FLOAT *ALPHAR,
35560 FLOAT *ALPHAI,
35561 FLOAT *BETA,
35562 FLOAT *Q,
35563 const INTEGER *LDQ,
35564 FLOAT *Z,
35565 const INTEGER *LDZ,
35566 INTEGER *M,
35567 FLOAT *PL,
35568 FLOAT *PR,
35569 FLOAT *DIF,
35570 FLOAT *WORK,
35571 const INTEGER *LWORK,
35572 INTEGER *IWORK,
35573 const INTEGER *LIWORK,
35574 INTEGER *INFO)
35575 {
35576 DEBUG_LAPACK_STUB("stgsen");
35577 LAPACK_IMPL(stgsen)(IJOB,
35578 WANTQ,
35579 WANTZ,
35580 SELECT,
35581 N,
35582 A,
35583 LDA,
35584 B,
35585 LDB,
35586 ALPHAR,
35587 ALPHAI,
35588 BETA,
35589 Q,
35590 LDQ,
35591 Z,
35592 LDZ,
35593 M,
35594 PL,
35595 PR,
35596 DIF,
35597 WORK,
35598 LWORK,
35599 IWORK,
35600 LIWORK,
35601 INFO);
35602 }
35603
35604 //-- stgsja --------------------------------------------------------------------
35605 void
LAPACK_DECL(stgsja)35606 LAPACK_DECL(stgsja)(const char *JOBU,
35607 const char *JOBV,
35608 const char *JOBQ,
35609 const INTEGER *M,
35610 const INTEGER *P,
35611 const INTEGER *N,
35612 const INTEGER *K,
35613 const INTEGER *L,
35614 FLOAT *A,
35615 const INTEGER *LDA,
35616 FLOAT *B,
35617 const INTEGER *LDB,
35618 const FLOAT *TOLA,
35619 const FLOAT *TOLB,
35620 FLOAT *ALPHA,
35621 FLOAT *BETA,
35622 FLOAT *U,
35623 const INTEGER *LDU,
35624 FLOAT *V,
35625 const INTEGER *LDV,
35626 FLOAT *Q,
35627 const INTEGER *LDQ,
35628 FLOAT *WORK,
35629 INTEGER *NCYCLE,
35630 INTEGER *INFO)
35631 {
35632 DEBUG_LAPACK_STUB("stgsja");
35633 LAPACK_IMPL(stgsja)(JOBU,
35634 JOBV,
35635 JOBQ,
35636 M,
35637 P,
35638 N,
35639 K,
35640 L,
35641 A,
35642 LDA,
35643 B,
35644 LDB,
35645 TOLA,
35646 TOLB,
35647 ALPHA,
35648 BETA,
35649 U,
35650 LDU,
35651 V,
35652 LDV,
35653 Q,
35654 LDQ,
35655 WORK,
35656 NCYCLE,
35657 INFO);
35658 }
35659
35660 //-- stgsna --------------------------------------------------------------------
35661 void
LAPACK_DECL(stgsna)35662 LAPACK_DECL(stgsna)(const char *JOB,
35663 const char *HOWMNY,
35664 const LOGICAL *SELECT,
35665 const INTEGER *N,
35666 const FLOAT *A,
35667 const INTEGER *LDA,
35668 const FLOAT *B,
35669 const INTEGER *LDB,
35670 const FLOAT *VL,
35671 const INTEGER *LDVL,
35672 const FLOAT *VR,
35673 const INTEGER *LDVR,
35674 FLOAT *S,
35675 FLOAT *DIF,
35676 const INTEGER *MM,
35677 INTEGER *M,
35678 FLOAT *WORK,
35679 const INTEGER *LWORK,
35680 INTEGER *IWORK,
35681 INTEGER *INFO)
35682 {
35683 DEBUG_LAPACK_STUB("stgsna");
35684 LAPACK_IMPL(stgsna)(JOB,
35685 HOWMNY,
35686 SELECT,
35687 N,
35688 A,
35689 LDA,
35690 B,
35691 LDB,
35692 VL,
35693 LDVL,
35694 VR,
35695 LDVR,
35696 S,
35697 DIF,
35698 MM,
35699 M,
35700 WORK,
35701 LWORK,
35702 IWORK,
35703 INFO);
35704 }
35705
35706 //-- stgsy2 --------------------------------------------------------------------
35707 void
LAPACK_DECL(stgsy2)35708 LAPACK_DECL(stgsy2)(const char *TRANS,
35709 const INTEGER *IJOB,
35710 const INTEGER *M,
35711 const INTEGER *N,
35712 const FLOAT *A,
35713 const INTEGER *LDA,
35714 const FLOAT *B,
35715 const INTEGER *LDB,
35716 FLOAT *C,
35717 const INTEGER *LDC,
35718 const FLOAT *D,
35719 const INTEGER *LDD,
35720 const FLOAT *E,
35721 const INTEGER *LDE,
35722 FLOAT *F,
35723 const INTEGER *LDF,
35724 FLOAT *SCALE,
35725 FLOAT *RDSUM,
35726 FLOAT *RDSCAL,
35727 INTEGER *IWORK,
35728 INTEGER *PQ,
35729 INTEGER *INFO)
35730 {
35731 DEBUG_LAPACK_STUB("stgsy2");
35732 LAPACK_IMPL(stgsy2)(TRANS,
35733 IJOB,
35734 M,
35735 N,
35736 A,
35737 LDA,
35738 B,
35739 LDB,
35740 C,
35741 LDC,
35742 D,
35743 LDD,
35744 E,
35745 LDE,
35746 F,
35747 LDF,
35748 SCALE,
35749 RDSUM,
35750 RDSCAL,
35751 IWORK,
35752 PQ,
35753 INFO);
35754 }
35755
35756 //-- stgsyl --------------------------------------------------------------------
35757 void
LAPACK_DECL(stgsyl)35758 LAPACK_DECL(stgsyl)(const char *TRANS,
35759 const INTEGER *IJOB,
35760 const INTEGER *M,
35761 const INTEGER *N,
35762 const FLOAT *A,
35763 const INTEGER *LDA,
35764 const FLOAT *B,
35765 const INTEGER *LDB,
35766 FLOAT *C,
35767 const INTEGER *LDC,
35768 const FLOAT *D,
35769 const INTEGER *LDD,
35770 const FLOAT *E,
35771 const INTEGER *LDE,
35772 FLOAT *F,
35773 const INTEGER *LDF,
35774 FLOAT *SCALE,
35775 FLOAT *DIF,
35776 FLOAT *WORK,
35777 const INTEGER *LWORK,
35778 INTEGER *IWORK,
35779 INTEGER *INFO)
35780 {
35781 DEBUG_LAPACK_STUB("stgsyl");
35782 LAPACK_IMPL(stgsyl)(TRANS,
35783 IJOB,
35784 M,
35785 N,
35786 A,
35787 LDA,
35788 B,
35789 LDB,
35790 C,
35791 LDC,
35792 D,
35793 LDD,
35794 E,
35795 LDE,
35796 F,
35797 LDF,
35798 SCALE,
35799 DIF,
35800 WORK,
35801 LWORK,
35802 IWORK,
35803 INFO);
35804 }
35805
35806 //-- stpcon --------------------------------------------------------------------
35807 void
LAPACK_DECL(stpcon)35808 LAPACK_DECL(stpcon)(const char *NORM,
35809 const char *UPLO,
35810 const char *DIAG,
35811 const INTEGER *N,
35812 const FLOAT *AP,
35813 FLOAT *RCOND,
35814 FLOAT *WORK,
35815 INTEGER *IWORK,
35816 INTEGER *INFO)
35817 {
35818 DEBUG_LAPACK_STUB("stpcon");
35819 LAPACK_IMPL(stpcon)(NORM,
35820 UPLO,
35821 DIAG,
35822 N,
35823 AP,
35824 RCOND,
35825 WORK,
35826 IWORK,
35827 INFO);
35828 }
35829
35830 //-- stprfs --------------------------------------------------------------------
35831 void
LAPACK_DECL(stprfs)35832 LAPACK_DECL(stprfs)(const char *UPLO,
35833 const char *TRANS,
35834 const char *DIAG,
35835 const INTEGER *N,
35836 const INTEGER *NRHS,
35837 const FLOAT *AP,
35838 const FLOAT *B,
35839 const INTEGER *LDB,
35840 const FLOAT *X,
35841 const INTEGER *LDX,
35842 FLOAT *FERR,
35843 FLOAT *BERR,
35844 FLOAT *WORK,
35845 INTEGER *IWORK,
35846 INTEGER *INFO)
35847 {
35848 DEBUG_LAPACK_STUB("stprfs");
35849 LAPACK_IMPL(stprfs)(UPLO,
35850 TRANS,
35851 DIAG,
35852 N,
35853 NRHS,
35854 AP,
35855 B,
35856 LDB,
35857 X,
35858 LDX,
35859 FERR,
35860 BERR,
35861 WORK,
35862 IWORK,
35863 INFO);
35864 }
35865
35866 //-- stptri --------------------------------------------------------------------
35867 void
LAPACK_DECL(stptri)35868 LAPACK_DECL(stptri)(const char *UPLO,
35869 const char *DIAG,
35870 const INTEGER *N,
35871 FLOAT *AP,
35872 INTEGER *INFO)
35873 {
35874 DEBUG_LAPACK_STUB("stptri");
35875 LAPACK_IMPL(stptri)(UPLO,
35876 DIAG,
35877 N,
35878 AP,
35879 INFO);
35880 }
35881
35882 //-- stptrs --------------------------------------------------------------------
35883 void
LAPACK_DECL(stptrs)35884 LAPACK_DECL(stptrs)(const char *UPLO,
35885 const char *TRANS,
35886 const char *DIAG,
35887 const INTEGER *N,
35888 const INTEGER *NRHS,
35889 const FLOAT *AP,
35890 FLOAT *B,
35891 const INTEGER *LDB,
35892 INTEGER *INFO)
35893 {
35894 DEBUG_LAPACK_STUB("stptrs");
35895 LAPACK_IMPL(stptrs)(UPLO,
35896 TRANS,
35897 DIAG,
35898 N,
35899 NRHS,
35900 AP,
35901 B,
35902 LDB,
35903 INFO);
35904 }
35905
35906 //-- stpttf --------------------------------------------------------------------
35907 void
LAPACK_DECL(stpttf)35908 LAPACK_DECL(stpttf)(const char *TRANSR,
35909 const char *UPLO,
35910 const INTEGER *N,
35911 const FLOAT *AP,
35912 FLOAT *ARF,
35913 INTEGER *INFO)
35914 {
35915 DEBUG_LAPACK_STUB("stpttf");
35916 LAPACK_IMPL(stpttf)(TRANSR,
35917 UPLO,
35918 N,
35919 AP,
35920 ARF,
35921 INFO);
35922 }
35923
35924 //-- stpttr --------------------------------------------------------------------
35925 void
LAPACK_DECL(stpttr)35926 LAPACK_DECL(stpttr)(const char *UPLO,
35927 const INTEGER *N,
35928 const FLOAT *AP,
35929 FLOAT *A,
35930 const INTEGER *LDA,
35931 INTEGER *INFO)
35932 {
35933 DEBUG_LAPACK_STUB("stpttr");
35934 LAPACK_IMPL(stpttr)(UPLO,
35935 N,
35936 AP,
35937 A,
35938 LDA,
35939 INFO);
35940 }
35941
35942 //-- strcon --------------------------------------------------------------------
35943 void
LAPACK_DECL(strcon)35944 LAPACK_DECL(strcon)(const char *NORM,
35945 const char *UPLO,
35946 const char *DIAG,
35947 const INTEGER *N,
35948 const FLOAT *A,
35949 const INTEGER *LDA,
35950 FLOAT *RCOND,
35951 FLOAT *WORK,
35952 INTEGER *IWORK,
35953 INTEGER *INFO)
35954 {
35955 DEBUG_LAPACK_STUB("strcon");
35956 LAPACK_IMPL(strcon)(NORM,
35957 UPLO,
35958 DIAG,
35959 N,
35960 A,
35961 LDA,
35962 RCOND,
35963 WORK,
35964 IWORK,
35965 INFO);
35966 }
35967
35968 //-- strevc --------------------------------------------------------------------
35969 void
LAPACK_DECL(strevc)35970 LAPACK_DECL(strevc)(const char *SIDE,
35971 const char *HOWMNY,
35972 LOGICAL *SELECT,
35973 const INTEGER *N,
35974 const FLOAT *T,
35975 const INTEGER *LDT,
35976 FLOAT *VL,
35977 const INTEGER *LDVL,
35978 FLOAT *VR,
35979 const INTEGER *LDVR,
35980 const INTEGER *MM,
35981 INTEGER *M,
35982 FLOAT *WORK,
35983 INTEGER *INFO)
35984 {
35985 DEBUG_LAPACK_STUB("strevc");
35986 LAPACK_IMPL(strevc)(SIDE,
35987 HOWMNY,
35988 SELECT,
35989 N,
35990 T,
35991 LDT,
35992 VL,
35993 LDVL,
35994 VR,
35995 LDVR,
35996 MM,
35997 M,
35998 WORK,
35999 INFO);
36000 }
36001
36002 //-- strexc --------------------------------------------------------------------
36003 void
LAPACK_DECL(strexc)36004 LAPACK_DECL(strexc)(const char *COMPQ,
36005 const INTEGER *N,
36006 FLOAT *T,
36007 const INTEGER *LDT,
36008 FLOAT *Q,
36009 const INTEGER *LDQ,
36010 INTEGER *IFST,
36011 INTEGER *ILST,
36012 FLOAT *WORK,
36013 INTEGER *INFO)
36014 {
36015 DEBUG_LAPACK_STUB("strexc");
36016 LAPACK_IMPL(strexc)(COMPQ,
36017 N,
36018 T,
36019 LDT,
36020 Q,
36021 LDQ,
36022 IFST,
36023 ILST,
36024 WORK,
36025 INFO);
36026 }
36027
36028 //-- strrfs --------------------------------------------------------------------
36029 void
LAPACK_DECL(strrfs)36030 LAPACK_DECL(strrfs)(const char *UPLO,
36031 const char *TRANS,
36032 const char *DIAG,
36033 const INTEGER *N,
36034 const INTEGER *NRHS,
36035 const FLOAT *A,
36036 const INTEGER *LDA,
36037 const FLOAT *B,
36038 const INTEGER *LDB,
36039 const FLOAT *X,
36040 const INTEGER *LDX,
36041 FLOAT *FERR,
36042 FLOAT *BERR,
36043 FLOAT *WORK,
36044 INTEGER *IWORK,
36045 INTEGER *INFO)
36046 {
36047 DEBUG_LAPACK_STUB("strrfs");
36048 LAPACK_IMPL(strrfs)(UPLO,
36049 TRANS,
36050 DIAG,
36051 N,
36052 NRHS,
36053 A,
36054 LDA,
36055 B,
36056 LDB,
36057 X,
36058 LDX,
36059 FERR,
36060 BERR,
36061 WORK,
36062 IWORK,
36063 INFO);
36064 }
36065
36066 //-- strsen --------------------------------------------------------------------
36067 void
LAPACK_DECL(strsen)36068 LAPACK_DECL(strsen)(const char *JOB,
36069 const char *COMPQ,
36070 const LOGICAL *SELECT,
36071 const INTEGER *N,
36072 FLOAT *T,
36073 const INTEGER *LDT,
36074 FLOAT *Q,
36075 const INTEGER *LDQ,
36076 FLOAT *WR,
36077 FLOAT *WI,
36078 INTEGER *M,
36079 FLOAT *S,
36080 FLOAT *SEP,
36081 FLOAT *WORK,
36082 const INTEGER *LWORK,
36083 INTEGER *IWORK,
36084 const INTEGER *LIWORK,
36085 INTEGER *INFO)
36086 {
36087 DEBUG_LAPACK_STUB("strsen");
36088 LAPACK_IMPL(strsen)(JOB,
36089 COMPQ,
36090 SELECT,
36091 N,
36092 T,
36093 LDT,
36094 Q,
36095 LDQ,
36096 WR,
36097 WI,
36098 M,
36099 S,
36100 SEP,
36101 WORK,
36102 LWORK,
36103 IWORK,
36104 LIWORK,
36105 INFO);
36106 }
36107
36108 //-- strsna --------------------------------------------------------------------
36109 void
LAPACK_DECL(strsna)36110 LAPACK_DECL(strsna)(const char *JOB,
36111 const char *HOWMNY,
36112 const LOGICAL *SELECT,
36113 const INTEGER *N,
36114 const FLOAT *T,
36115 const INTEGER *LDT,
36116 const FLOAT *VL,
36117 const INTEGER *LDVL,
36118 const FLOAT *VR,
36119 const INTEGER *LDVR,
36120 FLOAT *S,
36121 FLOAT *SEP,
36122 const INTEGER *MM,
36123 INTEGER *M,
36124 FLOAT *WORK,
36125 const INTEGER *LDWORK,
36126 INTEGER *IWORK,
36127 INTEGER *INFO)
36128 {
36129 DEBUG_LAPACK_STUB("strsna");
36130 LAPACK_IMPL(strsna)(JOB,
36131 HOWMNY,
36132 SELECT,
36133 N,
36134 T,
36135 LDT,
36136 VL,
36137 LDVL,
36138 VR,
36139 LDVR,
36140 S,
36141 SEP,
36142 MM,
36143 M,
36144 WORK,
36145 LDWORK,
36146 IWORK,
36147 INFO);
36148 }
36149
36150 //-- strsyl --------------------------------------------------------------------
36151 void
LAPACK_DECL(strsyl)36152 LAPACK_DECL(strsyl)(const char *TRANA,
36153 const char *TRANB,
36154 const INTEGER *ISGN,
36155 const INTEGER *M,
36156 const INTEGER *N,
36157 const FLOAT *A,
36158 const INTEGER *LDA,
36159 const FLOAT *B,
36160 const INTEGER *LDB,
36161 FLOAT *C,
36162 const INTEGER *LDC,
36163 FLOAT *SCALE,
36164 INTEGER *INFO)
36165 {
36166 DEBUG_LAPACK_STUB("strsyl");
36167 LAPACK_IMPL(strsyl)(TRANA,
36168 TRANB,
36169 ISGN,
36170 M,
36171 N,
36172 A,
36173 LDA,
36174 B,
36175 LDB,
36176 C,
36177 LDC,
36178 SCALE,
36179 INFO);
36180 }
36181
36182 //-- strti2 --------------------------------------------------------------------
36183 void
LAPACK_DECL(strti2)36184 LAPACK_DECL(strti2)(const char *UPLO,
36185 const char *DIAG,
36186 const INTEGER *N,
36187 FLOAT *A,
36188 const INTEGER *LDA,
36189 INTEGER *INFO)
36190 {
36191 DEBUG_LAPACK_STUB("strti2");
36192 LAPACK_IMPL(strti2)(UPLO,
36193 DIAG,
36194 N,
36195 A,
36196 LDA,
36197 INFO);
36198 }
36199
36200 //-- strtri --------------------------------------------------------------------
36201 void
LAPACK_DECL(strtri)36202 LAPACK_DECL(strtri)(const char *UPLO,
36203 const char *DIAG,
36204 const INTEGER *N,
36205 FLOAT *A,
36206 const INTEGER *LDA,
36207 INTEGER *INFO)
36208 {
36209 DEBUG_LAPACK_STUB("strtri");
36210 LAPACK_IMPL(strtri)(UPLO,
36211 DIAG,
36212 N,
36213 A,
36214 LDA,
36215 INFO);
36216 }
36217
36218 //-- strtrs --------------------------------------------------------------------
36219 void
LAPACK_DECL(strtrs)36220 LAPACK_DECL(strtrs)(const char *UPLO,
36221 const char *TRANS,
36222 const char *DIAG,
36223 const INTEGER *N,
36224 const INTEGER *NRHS,
36225 const FLOAT *A,
36226 const INTEGER *LDA,
36227 FLOAT *B,
36228 const INTEGER *LDB,
36229 INTEGER *INFO)
36230 {
36231 DEBUG_LAPACK_STUB("strtrs");
36232 LAPACK_IMPL(strtrs)(UPLO,
36233 TRANS,
36234 DIAG,
36235 N,
36236 NRHS,
36237 A,
36238 LDA,
36239 B,
36240 LDB,
36241 INFO);
36242 }
36243
36244 //-- strttf --------------------------------------------------------------------
36245 void
LAPACK_DECL(strttf)36246 LAPACK_DECL(strttf)(const char *TRANSR,
36247 const char *UPLO,
36248 const INTEGER *N,
36249 const FLOAT *A,
36250 const INTEGER *LDA,
36251 FLOAT *ARF,
36252 INTEGER *INFO)
36253 {
36254 DEBUG_LAPACK_STUB("strttf");
36255 LAPACK_IMPL(strttf)(TRANSR,
36256 UPLO,
36257 N,
36258 A,
36259 LDA,
36260 ARF,
36261 INFO);
36262 }
36263
36264 //-- strttp --------------------------------------------------------------------
36265 void
LAPACK_DECL(strttp)36266 LAPACK_DECL(strttp)(const char *UPLO,
36267 const INTEGER *N,
36268 const FLOAT *A,
36269 const INTEGER *LDA,
36270 FLOAT *AP,
36271 INTEGER *INFO)
36272 {
36273 DEBUG_LAPACK_STUB("strttp");
36274 LAPACK_IMPL(strttp)(UPLO,
36275 N,
36276 A,
36277 LDA,
36278 AP,
36279 INFO);
36280 }
36281
36282 //-- stzrqf --------------------------------------------------------------------
36283 void
LAPACK_DECL(stzrqf)36284 LAPACK_DECL(stzrqf)(const INTEGER *M,
36285 const INTEGER *N,
36286 FLOAT *A,
36287 const INTEGER *LDA,
36288 FLOAT *TAU,
36289 INTEGER *INFO)
36290 {
36291 DEBUG_LAPACK_STUB("stzrqf");
36292 LAPACK_IMPL(stzrqf)(M,
36293 N,
36294 A,
36295 LDA,
36296 TAU,
36297 INFO);
36298 }
36299
36300 //-- stzrzf --------------------------------------------------------------------
36301 void
LAPACK_DECL(stzrzf)36302 LAPACK_DECL(stzrzf)(const INTEGER *M,
36303 const INTEGER *N,
36304 FLOAT *A,
36305 const INTEGER *LDA,
36306 FLOAT *TAU,
36307 FLOAT *WORK,
36308 const INTEGER *LWORK,
36309 INTEGER *INFO)
36310 {
36311 DEBUG_LAPACK_STUB("stzrzf");
36312 LAPACK_IMPL(stzrzf)(M,
36313 N,
36314 A,
36315 LDA,
36316 TAU,
36317 WORK,
36318 LWORK,
36319 INFO);
36320 }
36321
36322 //-- zbbcsd --------------------------------------------------------------------
36323 void
LAPACK_DECL(zbbcsd)36324 LAPACK_DECL(zbbcsd)(const char *JOBU1,
36325 const char *JOBU2,
36326 const char *JOBV1T,
36327 const char *JOBV2T,
36328 const char *TRANS,
36329 const INTEGER *M,
36330 const INTEGER *P,
36331 const INTEGER *Q,
36332 DOUBLE *THETA,
36333 DOUBLE *PHI,
36334 DOUBLE_COMPLEX *U1,
36335 const INTEGER *LDU1,
36336 DOUBLE_COMPLEX *U2,
36337 const INTEGER *LDU2,
36338 DOUBLE_COMPLEX *V1T,
36339 const INTEGER *LDV1T,
36340 DOUBLE_COMPLEX *V2T,
36341 const INTEGER *LDV2T,
36342 DOUBLE *B11D,
36343 DOUBLE *B11E,
36344 DOUBLE *B12D,
36345 DOUBLE *B12E,
36346 const DOUBLE *B21D,
36347 const DOUBLE *B21E,
36348 const DOUBLE *B22D,
36349 const DOUBLE *B22E,
36350 DOUBLE *RWORK,
36351 const INTEGER *LRWORK,
36352 INTEGER *INFO)
36353 {
36354 DEBUG_LAPACK_STUB("zbbcsd");
36355 LAPACK_IMPL(zbbcsd)(JOBU1,
36356 JOBU2,
36357 JOBV1T,
36358 JOBV2T,
36359 TRANS,
36360 M,
36361 P,
36362 Q,
36363 THETA,
36364 PHI,
36365 U1,
36366 LDU1,
36367 U2,
36368 LDU2,
36369 V1T,
36370 LDV1T,
36371 V2T,
36372 LDV2T,
36373 B11D,
36374 B11E,
36375 B12D,
36376 B12E,
36377 B21D,
36378 B21E,
36379 B22D,
36380 B22E,
36381 RWORK,
36382 LRWORK,
36383 INFO);
36384 }
36385
36386 //-- zbdsqr --------------------------------------------------------------------
36387 void
LAPACK_DECL(zbdsqr)36388 LAPACK_DECL(zbdsqr)(const char *UPLO,
36389 const INTEGER *N,
36390 const INTEGER *NCVT,
36391 const INTEGER *NRU,
36392 const INTEGER *NCC,
36393 DOUBLE *D,
36394 DOUBLE *E,
36395 DOUBLE_COMPLEX *VT,
36396 const INTEGER *LDVT,
36397 DOUBLE_COMPLEX *U,
36398 const INTEGER *LDU,
36399 DOUBLE_COMPLEX *C,
36400 const INTEGER *LDC,
36401 DOUBLE *RWORK,
36402 INTEGER *INFO)
36403 {
36404 DEBUG_LAPACK_STUB("zbdsqr");
36405 LAPACK_IMPL(zbdsqr)(UPLO,
36406 N,
36407 NCVT,
36408 NRU,
36409 NCC,
36410 D,
36411 E,
36412 VT,
36413 LDVT,
36414 U,
36415 LDU,
36416 C,
36417 LDC,
36418 RWORK,
36419 INFO);
36420 }
36421
36422 //-- zcgesv --------------------------------------------------------------------
36423 void
LAPACK_DECL(zcgesv)36424 LAPACK_DECL(zcgesv)(const INTEGER *N,
36425 const INTEGER *NRHS,
36426 DOUBLE_COMPLEX *A,
36427 const INTEGER *LDA,
36428 INTEGER *IPIV,
36429 const DOUBLE_COMPLEX *B,
36430 const INTEGER *LDB,
36431 DOUBLE_COMPLEX *X,
36432 const INTEGER *LDX,
36433 DOUBLE_COMPLEX *WORK,
36434 FLOAT_COMPLEX *SWORK,
36435 DOUBLE *RWORK,
36436 INTEGER *ITER,
36437 INTEGER *INFO)
36438 {
36439 DEBUG_LAPACK_STUB("zcgesv");
36440 LAPACK_IMPL(zcgesv)(N,
36441 NRHS,
36442 A,
36443 LDA,
36444 IPIV,
36445 B,
36446 LDB,
36447 X,
36448 LDX,
36449 WORK,
36450 SWORK,
36451 RWORK,
36452 ITER,
36453 INFO);
36454 }
36455
36456 //-- zcposv --------------------------------------------------------------------
36457 void
LAPACK_DECL(zcposv)36458 LAPACK_DECL(zcposv)(const char *UPLO,
36459 const INTEGER *N,
36460 const INTEGER *NRHS,
36461 DOUBLE_COMPLEX *A,
36462 const INTEGER *LDA,
36463 const DOUBLE_COMPLEX *B,
36464 const INTEGER *LDB,
36465 DOUBLE_COMPLEX *X,
36466 const INTEGER *LDX,
36467 DOUBLE_COMPLEX *WORK,
36468 FLOAT_COMPLEX *SWORK,
36469 DOUBLE *RWORK,
36470 INTEGER *ITER,
36471 INTEGER *INFO)
36472 {
36473 DEBUG_LAPACK_STUB("zcposv");
36474 LAPACK_IMPL(zcposv)(UPLO,
36475 N,
36476 NRHS,
36477 A,
36478 LDA,
36479 B,
36480 LDB,
36481 X,
36482 LDX,
36483 WORK,
36484 SWORK,
36485 RWORK,
36486 ITER,
36487 INFO);
36488 }
36489
36490 //-- zdrscl --------------------------------------------------------------------
36491 void
LAPACK_DECL(zdrscl)36492 LAPACK_DECL(zdrscl)(const INTEGER *N,
36493 const DOUBLE *SA,
36494 DOUBLE_COMPLEX *SX,
36495 const INTEGER *INCX)
36496 {
36497 DEBUG_LAPACK_STUB("zdrscl");
36498 LAPACK_IMPL(zdrscl)(N,
36499 SA,
36500 SX,
36501 INCX);
36502 }
36503
36504 //-- zgbbrd --------------------------------------------------------------------
36505 void
LAPACK_DECL(zgbbrd)36506 LAPACK_DECL(zgbbrd)(const char *VECT,
36507 const INTEGER *M,
36508 const INTEGER *N,
36509 const INTEGER *NCC,
36510 const INTEGER *KL,
36511 const INTEGER *KU,
36512 DOUBLE_COMPLEX *AB,
36513 const INTEGER *LDAB,
36514 DOUBLE *D,
36515 DOUBLE *E,
36516 DOUBLE_COMPLEX *Q,
36517 const INTEGER *LDQ,
36518 DOUBLE_COMPLEX *PT,
36519 const INTEGER *LDPT,
36520 DOUBLE_COMPLEX *C,
36521 const INTEGER *LDC,
36522 DOUBLE_COMPLEX *WORK,
36523 DOUBLE *RWORK,
36524 INTEGER *INFO)
36525 {
36526 DEBUG_LAPACK_STUB("zgbbrd");
36527 LAPACK_IMPL(zgbbrd)(VECT,
36528 M,
36529 N,
36530 NCC,
36531 KL,
36532 KU,
36533 AB,
36534 LDAB,
36535 D,
36536 E,
36537 Q,
36538 LDQ,
36539 PT,
36540 LDPT,
36541 C,
36542 LDC,
36543 WORK,
36544 RWORK,
36545 INFO);
36546 }
36547
36548 //-- zgbcon --------------------------------------------------------------------
36549 void
LAPACK_DECL(zgbcon)36550 LAPACK_DECL(zgbcon)(const char *NORM,
36551 const INTEGER *N,
36552 const INTEGER *KL,
36553 const INTEGER *KU,
36554 const DOUBLE_COMPLEX *AB,
36555 const INTEGER *LDAB,
36556 const INTEGER *IPIV,
36557 const DOUBLE *ANORM,
36558 DOUBLE *RCOND,
36559 DOUBLE_COMPLEX *WORK,
36560 DOUBLE *RWORK,
36561 INTEGER *INFO)
36562 {
36563 DEBUG_LAPACK_STUB("zgbcon");
36564 LAPACK_IMPL(zgbcon)(NORM,
36565 N,
36566 KL,
36567 KU,
36568 AB,
36569 LDAB,
36570 IPIV,
36571 ANORM,
36572 RCOND,
36573 WORK,
36574 RWORK,
36575 INFO);
36576 }
36577
36578 //-- zgbequ --------------------------------------------------------------------
36579 void
LAPACK_DECL(zgbequ)36580 LAPACK_DECL(zgbequ)(const INTEGER *M,
36581 const INTEGER *N,
36582 const INTEGER *KL,
36583 const INTEGER *KU,
36584 const DOUBLE_COMPLEX *AB,
36585 const INTEGER *LDAB,
36586 DOUBLE *R,
36587 DOUBLE *C,
36588 DOUBLE *ROWCND,
36589 DOUBLE *COLCND,
36590 DOUBLE *AMAX,
36591 INTEGER *INFO)
36592 {
36593 DEBUG_LAPACK_STUB("zgbequ");
36594 LAPACK_IMPL(zgbequ)(M,
36595 N,
36596 KL,
36597 KU,
36598 AB,
36599 LDAB,
36600 R,
36601 C,
36602 ROWCND,
36603 COLCND,
36604 AMAX,
36605 INFO);
36606 }
36607
36608 //-- zgbequb -------------------------------------------------------------------
36609 void
LAPACK_DECL(zgbequb)36610 LAPACK_DECL(zgbequb)(const INTEGER *M,
36611 const INTEGER *N,
36612 const INTEGER *KL,
36613 const INTEGER *KU,
36614 const DOUBLE_COMPLEX *AB,
36615 const INTEGER *LDAB,
36616 DOUBLE *R,
36617 DOUBLE *C,
36618 DOUBLE *ROWCND,
36619 DOUBLE *COLCND,
36620 DOUBLE *AMAX,
36621 INTEGER *INFO)
36622 {
36623 DEBUG_LAPACK_STUB("zgbequb");
36624 LAPACK_IMPL(zgbequb)(M,
36625 N,
36626 KL,
36627 KU,
36628 AB,
36629 LDAB,
36630 R,
36631 C,
36632 ROWCND,
36633 COLCND,
36634 AMAX,
36635 INFO);
36636 }
36637
36638 //-- zgbrfs --------------------------------------------------------------------
36639 void
LAPACK_DECL(zgbrfs)36640 LAPACK_DECL(zgbrfs)(const char *TRANS,
36641 const INTEGER *N,
36642 const INTEGER *KL,
36643 const INTEGER *KU,
36644 const INTEGER *NRHS,
36645 const DOUBLE_COMPLEX *AB,
36646 const INTEGER *LDAB,
36647 const DOUBLE_COMPLEX *AFB,
36648 const INTEGER *LDAFB,
36649 const INTEGER *IPIV,
36650 const DOUBLE_COMPLEX *B,
36651 const INTEGER *LDB,
36652 DOUBLE_COMPLEX *X,
36653 const INTEGER *LDX,
36654 DOUBLE *FERR,
36655 DOUBLE *BERR,
36656 DOUBLE_COMPLEX *WORK,
36657 DOUBLE *RWORK,
36658 INTEGER *INFO)
36659 {
36660 DEBUG_LAPACK_STUB("zgbrfs");
36661 LAPACK_IMPL(zgbrfs)(TRANS,
36662 N,
36663 KL,
36664 KU,
36665 NRHS,
36666 AB,
36667 LDAB,
36668 AFB,
36669 LDAFB,
36670 IPIV,
36671 B,
36672 LDB,
36673 X,
36674 LDX,
36675 FERR,
36676 BERR,
36677 WORK,
36678 RWORK,
36679 INFO);
36680 }
36681
36682 //-- zgbrfsx -------------------------------------------------------------------
36683 void
LAPACK_DECL(zgbrfsx)36684 LAPACK_DECL(zgbrfsx)(const char *TRANS,
36685 const char *EQUED,
36686 const INTEGER *N,
36687 const INTEGER *KL,
36688 const INTEGER *KU,
36689 const INTEGER *NRHS,
36690 const DOUBLE_COMPLEX *AB,
36691 const INTEGER *LDAB,
36692 const DOUBLE_COMPLEX *AFB,
36693 const INTEGER *LDAFB,
36694 const INTEGER *IPIV,
36695 DOUBLE *R,
36696 DOUBLE *C,
36697 const DOUBLE_COMPLEX *B,
36698 const INTEGER *LDB,
36699 DOUBLE_COMPLEX *X,
36700 const INTEGER *LDX,
36701 DOUBLE *RCOND,
36702 DOUBLE *BERR,
36703 const INTEGER *N_ERR_BNDS,
36704 DOUBLE *ERR_BNDS_NORM,
36705 DOUBLE *ERR_BNDS_COMP,
36706 const INTEGER *NPARAMS,
36707 DOUBLE *PARAMS,
36708 DOUBLE_COMPLEX *WORK,
36709 DOUBLE *RWORK,
36710 INTEGER *INFO)
36711 {
36712 DEBUG_LAPACK_STUB("zgbrfsx");
36713 LAPACK_IMPL(zgbrfsx)(TRANS,
36714 EQUED,
36715 N,
36716 KL,
36717 KU,
36718 NRHS,
36719 AB,
36720 LDAB,
36721 AFB,
36722 LDAFB,
36723 IPIV,
36724 R,
36725 C,
36726 B,
36727 LDB,
36728 X,
36729 LDX,
36730 RCOND,
36731 BERR,
36732 N_ERR_BNDS,
36733 ERR_BNDS_NORM,
36734 ERR_BNDS_COMP,
36735 NPARAMS,
36736 PARAMS,
36737 WORK,
36738 RWORK,
36739 INFO);
36740 }
36741
36742 //-- zgbsv ---------------------------------------------------------------------
36743 void
LAPACK_DECL(zgbsv)36744 LAPACK_DECL(zgbsv)(const INTEGER *N,
36745 const INTEGER *KL,
36746 const INTEGER *KU,
36747 const INTEGER *NRHS,
36748 DOUBLE_COMPLEX *AB,
36749 const INTEGER *LDAB,
36750 INTEGER *IPIV,
36751 DOUBLE_COMPLEX *B,
36752 const INTEGER *LDB,
36753 INTEGER *INFO)
36754 {
36755 DEBUG_LAPACK_STUB("zgbsv");
36756 LAPACK_IMPL(zgbsv)(N,
36757 KL,
36758 KU,
36759 NRHS,
36760 AB,
36761 LDAB,
36762 IPIV,
36763 B,
36764 LDB,
36765 INFO);
36766 }
36767
36768 //-- zgbsvx --------------------------------------------------------------------
36769 void
LAPACK_DECL(zgbsvx)36770 LAPACK_DECL(zgbsvx)(const char *FACT,
36771 const char *TRANS,
36772 const INTEGER *N,
36773 const INTEGER *KL,
36774 const INTEGER *KU,
36775 const INTEGER *NRHS,
36776 DOUBLE_COMPLEX *AB,
36777 const INTEGER *LDAB,
36778 DOUBLE_COMPLEX *AFB,
36779 const INTEGER *LDAFB,
36780 INTEGER *IPIV,
36781 char *EQUED,
36782 DOUBLE *R,
36783 DOUBLE *C,
36784 DOUBLE_COMPLEX *B,
36785 const INTEGER *LDB,
36786 DOUBLE_COMPLEX *X,
36787 const INTEGER *LDX,
36788 DOUBLE *RCOND,
36789 DOUBLE *FERR,
36790 DOUBLE *BERR,
36791 DOUBLE_COMPLEX *WORK,
36792 DOUBLE *RWORK,
36793 INTEGER *INFO)
36794 {
36795 DEBUG_LAPACK_STUB("zgbsvx");
36796 LAPACK_IMPL(zgbsvx)(FACT,
36797 TRANS,
36798 N,
36799 KL,
36800 KU,
36801 NRHS,
36802 AB,
36803 LDAB,
36804 AFB,
36805 LDAFB,
36806 IPIV,
36807 EQUED,
36808 R,
36809 C,
36810 B,
36811 LDB,
36812 X,
36813 LDX,
36814 RCOND,
36815 FERR,
36816 BERR,
36817 WORK,
36818 RWORK,
36819 INFO);
36820 }
36821
36822 //-- zgbtf2 --------------------------------------------------------------------
36823 void
LAPACK_DECL(zgbtf2)36824 LAPACK_DECL(zgbtf2)(const INTEGER *M,
36825 const INTEGER *N,
36826 const INTEGER *KL,
36827 const INTEGER *KU,
36828 DOUBLE_COMPLEX *AB,
36829 const INTEGER *LDAB,
36830 INTEGER *IPIV,
36831 INTEGER *INFO)
36832 {
36833 DEBUG_LAPACK_STUB("zgbtf2");
36834 LAPACK_IMPL(zgbtf2)(M,
36835 N,
36836 KL,
36837 KU,
36838 AB,
36839 LDAB,
36840 IPIV,
36841 INFO);
36842 }
36843
36844 //-- zgbtrf --------------------------------------------------------------------
36845 void
LAPACK_DECL(zgbtrf)36846 LAPACK_DECL(zgbtrf)(const INTEGER *M,
36847 const INTEGER *N,
36848 const INTEGER *KL,
36849 const INTEGER *KU,
36850 DOUBLE_COMPLEX *AB,
36851 const INTEGER *LDAB,
36852 INTEGER *IPIV,
36853 INTEGER *INFO)
36854 {
36855 DEBUG_LAPACK_STUB("zgbtrf");
36856 LAPACK_IMPL(zgbtrf)(M,
36857 N,
36858 KL,
36859 KU,
36860 AB,
36861 LDAB,
36862 IPIV,
36863 INFO);
36864 }
36865
36866 //-- zgbtrs --------------------------------------------------------------------
36867 void
LAPACK_DECL(zgbtrs)36868 LAPACK_DECL(zgbtrs)(const char *TRANS,
36869 const INTEGER *N,
36870 const INTEGER *KL,
36871 const INTEGER *KU,
36872 const INTEGER *NRHS,
36873 const DOUBLE_COMPLEX *AB,
36874 const INTEGER *LDAB,
36875 const INTEGER *IPIV,
36876 DOUBLE_COMPLEX *B,
36877 const INTEGER *LDB,
36878 INTEGER *INFO)
36879 {
36880 DEBUG_LAPACK_STUB("zgbtrs");
36881 LAPACK_IMPL(zgbtrs)(TRANS,
36882 N,
36883 KL,
36884 KU,
36885 NRHS,
36886 AB,
36887 LDAB,
36888 IPIV,
36889 B,
36890 LDB,
36891 INFO);
36892 }
36893
36894 //-- zgebak --------------------------------------------------------------------
36895 void
LAPACK_DECL(zgebak)36896 LAPACK_DECL(zgebak)(const char *JOB,
36897 const char *SIDE,
36898 const INTEGER *N,
36899 const INTEGER *ILO,
36900 const INTEGER *IHI,
36901 const DOUBLE *SCALE,
36902 const INTEGER *M,
36903 DOUBLE_COMPLEX *V,
36904 const INTEGER *LDV,
36905 INTEGER *INFO)
36906 {
36907 DEBUG_LAPACK_STUB("zgebak");
36908 LAPACK_IMPL(zgebak)(JOB,
36909 SIDE,
36910 N,
36911 ILO,
36912 IHI,
36913 SCALE,
36914 M,
36915 V,
36916 LDV,
36917 INFO);
36918 }
36919
36920 //-- zgebal --------------------------------------------------------------------
36921 void
LAPACK_DECL(zgebal)36922 LAPACK_DECL(zgebal)(const char *JOB,
36923 const INTEGER *N,
36924 DOUBLE_COMPLEX *A,
36925 const INTEGER *LDA,
36926 INTEGER *ILO,
36927 INTEGER *IHI,
36928 DOUBLE *SCALE,
36929 INTEGER *INFO)
36930 {
36931 DEBUG_LAPACK_STUB("zgebal");
36932 LAPACK_IMPL(zgebal)(JOB,
36933 N,
36934 A,
36935 LDA,
36936 ILO,
36937 IHI,
36938 SCALE,
36939 INFO);
36940 }
36941
36942 //-- zgebd2 --------------------------------------------------------------------
36943 void
LAPACK_DECL(zgebd2)36944 LAPACK_DECL(zgebd2)(const INTEGER *M,
36945 const INTEGER *N,
36946 DOUBLE_COMPLEX *A,
36947 const INTEGER *LDA,
36948 DOUBLE *D,
36949 DOUBLE *E,
36950 DOUBLE_COMPLEX *TAUQ,
36951 DOUBLE_COMPLEX *TAUP,
36952 DOUBLE_COMPLEX *WORK,
36953 INTEGER *INFO)
36954 {
36955 DEBUG_LAPACK_STUB("zgebd2");
36956 LAPACK_IMPL(zgebd2)(M,
36957 N,
36958 A,
36959 LDA,
36960 D,
36961 E,
36962 TAUQ,
36963 TAUP,
36964 WORK,
36965 INFO);
36966 }
36967
36968 //-- zgebrd --------------------------------------------------------------------
36969 void
LAPACK_DECL(zgebrd)36970 LAPACK_DECL(zgebrd)(const INTEGER *M,
36971 const INTEGER *N,
36972 DOUBLE_COMPLEX *A,
36973 const INTEGER *LDA,
36974 DOUBLE *D,
36975 DOUBLE *E,
36976 DOUBLE_COMPLEX *TAUQ,
36977 DOUBLE_COMPLEX *TAUP,
36978 DOUBLE_COMPLEX *WORK,
36979 const INTEGER *LWORK,
36980 INTEGER *INFO)
36981 {
36982 DEBUG_LAPACK_STUB("zgebrd");
36983 LAPACK_IMPL(zgebrd)(M,
36984 N,
36985 A,
36986 LDA,
36987 D,
36988 E,
36989 TAUQ,
36990 TAUP,
36991 WORK,
36992 LWORK,
36993 INFO);
36994 }
36995
36996 //-- zgecon --------------------------------------------------------------------
36997 void
LAPACK_DECL(zgecon)36998 LAPACK_DECL(zgecon)(const char *NORM,
36999 const INTEGER *N,
37000 const DOUBLE_COMPLEX *A,
37001 const INTEGER *LDA,
37002 const DOUBLE *ANORM,
37003 DOUBLE *RCOND,
37004 DOUBLE_COMPLEX *WORK,
37005 DOUBLE *RWORK,
37006 INTEGER *INFO)
37007 {
37008 DEBUG_LAPACK_STUB("zgecon");
37009 LAPACK_IMPL(zgecon)(NORM,
37010 N,
37011 A,
37012 LDA,
37013 ANORM,
37014 RCOND,
37015 WORK,
37016 RWORK,
37017 INFO);
37018 }
37019
37020 //-- zgeequ --------------------------------------------------------------------
37021 void
LAPACK_DECL(zgeequ)37022 LAPACK_DECL(zgeequ)(const INTEGER *M,
37023 const INTEGER *N,
37024 const DOUBLE_COMPLEX *A,
37025 const INTEGER *LDA,
37026 DOUBLE *R,
37027 DOUBLE *C,
37028 DOUBLE *ROWCND,
37029 DOUBLE *COLCND,
37030 DOUBLE *AMAX,
37031 INTEGER *INFO)
37032 {
37033 DEBUG_LAPACK_STUB("zgeequ");
37034 LAPACK_IMPL(zgeequ)(M,
37035 N,
37036 A,
37037 LDA,
37038 R,
37039 C,
37040 ROWCND,
37041 COLCND,
37042 AMAX,
37043 INFO);
37044 }
37045
37046 //-- zgeequb -------------------------------------------------------------------
37047 void
LAPACK_DECL(zgeequb)37048 LAPACK_DECL(zgeequb)(const INTEGER *M,
37049 const INTEGER *N,
37050 const DOUBLE_COMPLEX *A,
37051 const INTEGER *LDA,
37052 DOUBLE *R,
37053 DOUBLE *C,
37054 DOUBLE *ROWCND,
37055 DOUBLE *COLCND,
37056 DOUBLE *AMAX,
37057 INTEGER *INFO)
37058 {
37059 DEBUG_LAPACK_STUB("zgeequb");
37060 LAPACK_IMPL(zgeequb)(M,
37061 N,
37062 A,
37063 LDA,
37064 R,
37065 C,
37066 ROWCND,
37067 COLCND,
37068 AMAX,
37069 INFO);
37070 }
37071
37072 //-- zgees ---------------------------------------------------------------------
37073 void
LAPACK_DECL(zgees)37074 LAPACK_DECL(zgees)(const char *JOBVS,
37075 const char *SORT,
37076 const LOGICAL *SELECT,
37077 const INTEGER *N,
37078 DOUBLE_COMPLEX *A,
37079 const INTEGER *LDA,
37080 INTEGER *SDIM,
37081 DOUBLE_COMPLEX *W,
37082 DOUBLE_COMPLEX *VS,
37083 const INTEGER *LDVS,
37084 DOUBLE_COMPLEX *WORK,
37085 const INTEGER *LWORK,
37086 DOUBLE *RWORK,
37087 LOGICAL *BWORK,
37088 INTEGER *INFO)
37089 {
37090 DEBUG_LAPACK_STUB("zgees");
37091 LAPACK_IMPL(zgees)(JOBVS,
37092 SORT,
37093 SELECT,
37094 N,
37095 A,
37096 LDA,
37097 SDIM,
37098 W,
37099 VS,
37100 LDVS,
37101 WORK,
37102 LWORK,
37103 RWORK,
37104 BWORK,
37105 INFO);
37106 }
37107
37108 //-- zgeesx --------------------------------------------------------------------
37109 void
LAPACK_DECL(zgeesx)37110 LAPACK_DECL(zgeesx)(const char *JOBVS,
37111 const char *SORT,
37112 const LOGICAL *SELECT,
37113 const char *SENSE,
37114 const INTEGER *N,
37115 DOUBLE_COMPLEX *A,
37116 const INTEGER *LDA,
37117 INTEGER *SDIM,
37118 DOUBLE_COMPLEX *W,
37119 DOUBLE_COMPLEX *VS,
37120 const INTEGER *LDVS,
37121 DOUBLE *RCONDE,
37122 DOUBLE *RCONDV,
37123 DOUBLE_COMPLEX *WORK,
37124 const INTEGER *LWORK,
37125 DOUBLE *RWORK,
37126 LOGICAL *BWORK,
37127 INTEGER *INFO)
37128 {
37129 DEBUG_LAPACK_STUB("zgeesx");
37130 LAPACK_IMPL(zgeesx)(JOBVS,
37131 SORT,
37132 SELECT,
37133 SENSE,
37134 N,
37135 A,
37136 LDA,
37137 SDIM,
37138 W,
37139 VS,
37140 LDVS,
37141 RCONDE,
37142 RCONDV,
37143 WORK,
37144 LWORK,
37145 RWORK,
37146 BWORK,
37147 INFO);
37148 }
37149
37150 //-- zgeev ---------------------------------------------------------------------
37151 void
LAPACK_DECL(zgeev)37152 LAPACK_DECL(zgeev)(const char *JOBVL,
37153 const char *JOBVR,
37154 const INTEGER *N,
37155 DOUBLE_COMPLEX *A,
37156 const INTEGER *LDA,
37157 DOUBLE_COMPLEX *W,
37158 DOUBLE_COMPLEX *VL,
37159 const INTEGER *LDVL,
37160 DOUBLE_COMPLEX *VR,
37161 const INTEGER *LDVR,
37162 DOUBLE_COMPLEX *WORK,
37163 const INTEGER *LWORK,
37164 DOUBLE *RWORK,
37165 INTEGER *INFO)
37166 {
37167 DEBUG_LAPACK_STUB("zgeev");
37168 LAPACK_IMPL(zgeev)(JOBVL,
37169 JOBVR,
37170 N,
37171 A,
37172 LDA,
37173 W,
37174 VL,
37175 LDVL,
37176 VR,
37177 LDVR,
37178 WORK,
37179 LWORK,
37180 RWORK,
37181 INFO);
37182 }
37183
37184 //-- zgeevx --------------------------------------------------------------------
37185 void
LAPACK_DECL(zgeevx)37186 LAPACK_DECL(zgeevx)(const char *BALANC,
37187 const char *JOBVL,
37188 const char *JOBVR,
37189 const char *SENSE,
37190 const INTEGER *N,
37191 DOUBLE_COMPLEX *A,
37192 const INTEGER *LDA,
37193 DOUBLE_COMPLEX *W,
37194 DOUBLE_COMPLEX *VL,
37195 const INTEGER *LDVL,
37196 DOUBLE_COMPLEX *VR,
37197 const INTEGER *LDVR,
37198 INTEGER *ILO,
37199 INTEGER *IHI,
37200 DOUBLE *SCALE,
37201 DOUBLE *ABNRM,
37202 DOUBLE *RCONDE,
37203 DOUBLE *RCONDV,
37204 DOUBLE_COMPLEX *WORK,
37205 const INTEGER *LWORK,
37206 DOUBLE *RWORK,
37207 INTEGER *INFO)
37208 {
37209 DEBUG_LAPACK_STUB("zgeevx");
37210 LAPACK_IMPL(zgeevx)(BALANC,
37211 JOBVL,
37212 JOBVR,
37213 SENSE,
37214 N,
37215 A,
37216 LDA,
37217 W,
37218 VL,
37219 LDVL,
37220 VR,
37221 LDVR,
37222 ILO,
37223 IHI,
37224 SCALE,
37225 ABNRM,
37226 RCONDE,
37227 RCONDV,
37228 WORK,
37229 LWORK,
37230 RWORK,
37231 INFO);
37232 }
37233
37234 //-- zgegs ---------------------------------------------------------------------
37235 void
LAPACK_DECL(zgegs)37236 LAPACK_DECL(zgegs)(const char *JOBVSL,
37237 const char *JOBVSR,
37238 const INTEGER *N,
37239 DOUBLE_COMPLEX *A,
37240 const INTEGER *LDA,
37241 DOUBLE_COMPLEX *B,
37242 const INTEGER *LDB,
37243 DOUBLE_COMPLEX *ALPHA,
37244 DOUBLE_COMPLEX *BETA,
37245 DOUBLE_COMPLEX *VSL,
37246 const INTEGER *LDVSL,
37247 DOUBLE_COMPLEX *VSR,
37248 const INTEGER *LDVSR,
37249 DOUBLE_COMPLEX *WORK,
37250 const INTEGER *LWORK,
37251 DOUBLE *RWORK,
37252 INTEGER *INFO)
37253 {
37254 DEBUG_LAPACK_STUB("zgegs");
37255 LAPACK_IMPL(zgegs)(JOBVSL,
37256 JOBVSR,
37257 N,
37258 A,
37259 LDA,
37260 B,
37261 LDB,
37262 ALPHA,
37263 BETA,
37264 VSL,
37265 LDVSL,
37266 VSR,
37267 LDVSR,
37268 WORK,
37269 LWORK,
37270 RWORK,
37271 INFO);
37272 }
37273
37274 //-- zgegv ---------------------------------------------------------------------
37275 void
LAPACK_DECL(zgegv)37276 LAPACK_DECL(zgegv)(const char *JOBVL,
37277 const char *JOBVR,
37278 const INTEGER *N,
37279 DOUBLE_COMPLEX *A,
37280 const INTEGER *LDA,
37281 DOUBLE_COMPLEX *B,
37282 const INTEGER *LDB,
37283 DOUBLE_COMPLEX *ALPHA,
37284 DOUBLE_COMPLEX *BETA,
37285 DOUBLE_COMPLEX *VL,
37286 const INTEGER *LDVL,
37287 DOUBLE_COMPLEX *VR,
37288 const INTEGER *LDVR,
37289 DOUBLE_COMPLEX *WORK,
37290 const INTEGER *LWORK,
37291 DOUBLE *RWORK,
37292 INTEGER *INFO)
37293 {
37294 DEBUG_LAPACK_STUB("zgegv");
37295 LAPACK_IMPL(zgegv)(JOBVL,
37296 JOBVR,
37297 N,
37298 A,
37299 LDA,
37300 B,
37301 LDB,
37302 ALPHA,
37303 BETA,
37304 VL,
37305 LDVL,
37306 VR,
37307 LDVR,
37308 WORK,
37309 LWORK,
37310 RWORK,
37311 INFO);
37312 }
37313
37314 //-- zgehd2 --------------------------------------------------------------------
37315 void
LAPACK_DECL(zgehd2)37316 LAPACK_DECL(zgehd2)(const INTEGER *N,
37317 const INTEGER *ILO,
37318 const INTEGER *IHI,
37319 DOUBLE_COMPLEX *A,
37320 const INTEGER *LDA,
37321 DOUBLE_COMPLEX *TAU,
37322 DOUBLE_COMPLEX *WORK,
37323 INTEGER *INFO)
37324 {
37325 DEBUG_LAPACK_STUB("zgehd2");
37326 LAPACK_IMPL(zgehd2)(N,
37327 ILO,
37328 IHI,
37329 A,
37330 LDA,
37331 TAU,
37332 WORK,
37333 INFO);
37334 }
37335
37336 //-- zgehrd --------------------------------------------------------------------
37337 void
LAPACK_DECL(zgehrd)37338 LAPACK_DECL(zgehrd)(const INTEGER *N,
37339 const INTEGER *ILO,
37340 const INTEGER *IHI,
37341 DOUBLE_COMPLEX *A,
37342 const INTEGER *LDA,
37343 DOUBLE_COMPLEX *TAU,
37344 DOUBLE_COMPLEX *WORK,
37345 const INTEGER *LWORK,
37346 INTEGER *INFO)
37347 {
37348 DEBUG_LAPACK_STUB("zgehrd");
37349 LAPACK_IMPL(zgehrd)(N,
37350 ILO,
37351 IHI,
37352 A,
37353 LDA,
37354 TAU,
37355 WORK,
37356 LWORK,
37357 INFO);
37358 }
37359
37360 //-- zgelq2 --------------------------------------------------------------------
37361 void
LAPACK_DECL(zgelq2)37362 LAPACK_DECL(zgelq2)(const INTEGER *M,
37363 const INTEGER *N,
37364 DOUBLE_COMPLEX *A,
37365 const INTEGER *LDA,
37366 DOUBLE_COMPLEX *TAU,
37367 DOUBLE_COMPLEX *WORK,
37368 INTEGER *INFO)
37369 {
37370 DEBUG_LAPACK_STUB("zgelq2");
37371 LAPACK_IMPL(zgelq2)(M,
37372 N,
37373 A,
37374 LDA,
37375 TAU,
37376 WORK,
37377 INFO);
37378 }
37379
37380 //-- zgelqf --------------------------------------------------------------------
37381 void
LAPACK_DECL(zgelqf)37382 LAPACK_DECL(zgelqf)(const INTEGER *M,
37383 const INTEGER *N,
37384 DOUBLE_COMPLEX *A,
37385 const INTEGER *LDA,
37386 DOUBLE_COMPLEX *TAU,
37387 DOUBLE_COMPLEX *WORK,
37388 const INTEGER *LWORK,
37389 INTEGER *INFO)
37390 {
37391 DEBUG_LAPACK_STUB("zgelqf");
37392 LAPACK_IMPL(zgelqf)(M,
37393 N,
37394 A,
37395 LDA,
37396 TAU,
37397 WORK,
37398 LWORK,
37399 INFO);
37400 }
37401
37402 //-- zgels ---------------------------------------------------------------------
37403 void
LAPACK_DECL(zgels)37404 LAPACK_DECL(zgels)(const char *TRANS,
37405 const INTEGER *M,
37406 const INTEGER *N,
37407 const INTEGER *NRHS,
37408 DOUBLE_COMPLEX *A,
37409 const INTEGER *LDA,
37410 DOUBLE_COMPLEX *B,
37411 const INTEGER *LDB,
37412 DOUBLE_COMPLEX *WORK,
37413 const INTEGER *LWORK,
37414 INTEGER *INFO)
37415 {
37416 DEBUG_LAPACK_STUB("zgels");
37417 LAPACK_IMPL(zgels)(TRANS,
37418 M,
37419 N,
37420 NRHS,
37421 A,
37422 LDA,
37423 B,
37424 LDB,
37425 WORK,
37426 LWORK,
37427 INFO);
37428 }
37429
37430 //-- zgelsd --------------------------------------------------------------------
37431 void
LAPACK_DECL(zgelsd)37432 LAPACK_DECL(zgelsd)(const INTEGER *M,
37433 const INTEGER *N,
37434 const INTEGER *NRHS,
37435 const DOUBLE_COMPLEX *A,
37436 const INTEGER *LDA,
37437 DOUBLE_COMPLEX *B,
37438 const INTEGER *LDB,
37439 DOUBLE *S,
37440 const DOUBLE *RCOND,
37441 INTEGER *RANK,
37442 DOUBLE_COMPLEX *WORK,
37443 const INTEGER *LWORK,
37444 DOUBLE *RWORK,
37445 INTEGER *IWORK,
37446 INTEGER *INFO)
37447 {
37448 DEBUG_LAPACK_STUB("zgelsd");
37449 LAPACK_IMPL(zgelsd)(M,
37450 N,
37451 NRHS,
37452 A,
37453 LDA,
37454 B,
37455 LDB,
37456 S,
37457 RCOND,
37458 RANK,
37459 WORK,
37460 LWORK,
37461 RWORK,
37462 IWORK,
37463 INFO);
37464 }
37465
37466 //-- zgelss --------------------------------------------------------------------
37467 void
LAPACK_DECL(zgelss)37468 LAPACK_DECL(zgelss)(const INTEGER *M,
37469 const INTEGER *N,
37470 const INTEGER *NRHS,
37471 DOUBLE_COMPLEX *A,
37472 const INTEGER *LDA,
37473 DOUBLE_COMPLEX *B,
37474 const INTEGER *LDB,
37475 DOUBLE *S,
37476 const DOUBLE *RCOND,
37477 INTEGER *RANK,
37478 DOUBLE_COMPLEX *WORK,
37479 const INTEGER *LWORK,
37480 DOUBLE *RWORK,
37481 INTEGER *INFO)
37482 {
37483 DEBUG_LAPACK_STUB("zgelss");
37484 LAPACK_IMPL(zgelss)(M,
37485 N,
37486 NRHS,
37487 A,
37488 LDA,
37489 B,
37490 LDB,
37491 S,
37492 RCOND,
37493 RANK,
37494 WORK,
37495 LWORK,
37496 RWORK,
37497 INFO);
37498 }
37499
37500 //-- zgelsx --------------------------------------------------------------------
37501 void
LAPACK_DECL(zgelsx)37502 LAPACK_DECL(zgelsx)(const INTEGER *M,
37503 const INTEGER *N,
37504 const INTEGER *NRHS,
37505 DOUBLE_COMPLEX *A,
37506 const INTEGER *LDA,
37507 DOUBLE_COMPLEX *B,
37508 const INTEGER *LDB,
37509 INTEGER *JPVT,
37510 const DOUBLE *RCOND,
37511 INTEGER *RANK,
37512 DOUBLE_COMPLEX *WORK,
37513 DOUBLE *RWORK,
37514 INTEGER *INFO)
37515 {
37516 DEBUG_LAPACK_STUB("zgelsx");
37517 LAPACK_IMPL(zgelsx)(M,
37518 N,
37519 NRHS,
37520 A,
37521 LDA,
37522 B,
37523 LDB,
37524 JPVT,
37525 RCOND,
37526 RANK,
37527 WORK,
37528 RWORK,
37529 INFO);
37530 }
37531
37532 //-- zgelsy --------------------------------------------------------------------
37533 void
LAPACK_DECL(zgelsy)37534 LAPACK_DECL(zgelsy)(const INTEGER *M,
37535 const INTEGER *N,
37536 const INTEGER *NRHS,
37537 DOUBLE_COMPLEX *A,
37538 const INTEGER *LDA,
37539 DOUBLE_COMPLEX *B,
37540 const INTEGER *LDB,
37541 INTEGER *JPVT,
37542 const DOUBLE *RCOND,
37543 INTEGER *RANK,
37544 DOUBLE_COMPLEX *WORK,
37545 const INTEGER *LWORK,
37546 DOUBLE *RWORK,
37547 INTEGER *INFO)
37548 {
37549 DEBUG_LAPACK_STUB("zgelsy");
37550 LAPACK_IMPL(zgelsy)(M,
37551 N,
37552 NRHS,
37553 A,
37554 LDA,
37555 B,
37556 LDB,
37557 JPVT,
37558 RCOND,
37559 RANK,
37560 WORK,
37561 LWORK,
37562 RWORK,
37563 INFO);
37564 }
37565
37566 //-- zgeql2 --------------------------------------------------------------------
37567 void
LAPACK_DECL(zgeql2)37568 LAPACK_DECL(zgeql2)(const INTEGER *M,
37569 const INTEGER *N,
37570 DOUBLE_COMPLEX *A,
37571 const INTEGER *LDA,
37572 DOUBLE_COMPLEX *TAU,
37573 DOUBLE_COMPLEX *WORK,
37574 INTEGER *INFO)
37575 {
37576 DEBUG_LAPACK_STUB("zgeql2");
37577 LAPACK_IMPL(zgeql2)(M,
37578 N,
37579 A,
37580 LDA,
37581 TAU,
37582 WORK,
37583 INFO);
37584 }
37585
37586 //-- zgeqlf --------------------------------------------------------------------
37587 void
LAPACK_DECL(zgeqlf)37588 LAPACK_DECL(zgeqlf)(const INTEGER *M,
37589 const INTEGER *N,
37590 DOUBLE_COMPLEX *A,
37591 const INTEGER *LDA,
37592 DOUBLE_COMPLEX *TAU,
37593 DOUBLE_COMPLEX *WORK,
37594 const INTEGER *LWORK,
37595 INTEGER *INFO)
37596 {
37597 DEBUG_LAPACK_STUB("zgeqlf");
37598 LAPACK_IMPL(zgeqlf)(M,
37599 N,
37600 A,
37601 LDA,
37602 TAU,
37603 WORK,
37604 LWORK,
37605 INFO);
37606 }
37607
37608 //-- zgeqp3 --------------------------------------------------------------------
37609 void
LAPACK_DECL(zgeqp3)37610 LAPACK_DECL(zgeqp3)(const INTEGER *M,
37611 const INTEGER *N,
37612 DOUBLE_COMPLEX *A,
37613 const INTEGER *LDA,
37614 INTEGER *JPVT,
37615 DOUBLE_COMPLEX *TAU,
37616 DOUBLE_COMPLEX *WORK,
37617 const INTEGER *LWORK,
37618 DOUBLE *RWORK,
37619 INTEGER *INFO)
37620 {
37621 DEBUG_LAPACK_STUB("zgeqp3");
37622 LAPACK_IMPL(zgeqp3)(M,
37623 N,
37624 A,
37625 LDA,
37626 JPVT,
37627 TAU,
37628 WORK,
37629 LWORK,
37630 RWORK,
37631 INFO);
37632 }
37633
37634 //-- zgeqpf --------------------------------------------------------------------
37635 void
LAPACK_DECL(zgeqpf)37636 LAPACK_DECL(zgeqpf)(const INTEGER *M,
37637 const INTEGER *N,
37638 DOUBLE_COMPLEX *A,
37639 const INTEGER *LDA,
37640 INTEGER *JPVT,
37641 DOUBLE_COMPLEX *TAU,
37642 DOUBLE_COMPLEX *WORK,
37643 DOUBLE *RWORK,
37644 INTEGER *INFO)
37645 {
37646 DEBUG_LAPACK_STUB("zgeqpf");
37647 LAPACK_IMPL(zgeqpf)(M,
37648 N,
37649 A,
37650 LDA,
37651 JPVT,
37652 TAU,
37653 WORK,
37654 RWORK,
37655 INFO);
37656 }
37657
37658 //-- zgeqr2 --------------------------------------------------------------------
37659 void
LAPACK_DECL(zgeqr2)37660 LAPACK_DECL(zgeqr2)(const INTEGER *M,
37661 const INTEGER *N,
37662 DOUBLE_COMPLEX *A,
37663 const INTEGER *LDA,
37664 DOUBLE_COMPLEX *TAU,
37665 DOUBLE_COMPLEX *WORK,
37666 INTEGER *INFO)
37667 {
37668 DEBUG_LAPACK_STUB("zgeqr2");
37669 LAPACK_IMPL(zgeqr2)(M,
37670 N,
37671 A,
37672 LDA,
37673 TAU,
37674 WORK,
37675 INFO);
37676 }
37677
37678 //-- zgeqr2p -------------------------------------------------------------------
37679 void
LAPACK_DECL(zgeqr2p)37680 LAPACK_DECL(zgeqr2p)(const INTEGER *M,
37681 const INTEGER *N,
37682 DOUBLE_COMPLEX *A,
37683 const INTEGER *LDA,
37684 DOUBLE_COMPLEX *TAU,
37685 DOUBLE_COMPLEX *WORK,
37686 INTEGER *INFO)
37687 {
37688 DEBUG_LAPACK_STUB("zgeqr2p");
37689 LAPACK_IMPL(zgeqr2p)(M,
37690 N,
37691 A,
37692 LDA,
37693 TAU,
37694 WORK,
37695 INFO);
37696 }
37697
37698 //-- zgeqrf --------------------------------------------------------------------
37699 void
LAPACK_DECL(zgeqrf)37700 LAPACK_DECL(zgeqrf)(const INTEGER *M,
37701 const INTEGER *N,
37702 DOUBLE_COMPLEX *A,
37703 const INTEGER *LDA,
37704 DOUBLE_COMPLEX *TAU,
37705 DOUBLE_COMPLEX *WORK,
37706 const INTEGER *LWORK,
37707 INTEGER *INFO)
37708 {
37709 DEBUG_LAPACK_STUB("zgeqrf");
37710 LAPACK_IMPL(zgeqrf)(M,
37711 N,
37712 A,
37713 LDA,
37714 TAU,
37715 WORK,
37716 LWORK,
37717 INFO);
37718 }
37719
37720 //-- zgeqrfp -------------------------------------------------------------------
37721 void
LAPACK_DECL(zgeqrfp)37722 LAPACK_DECL(zgeqrfp)(const INTEGER *M,
37723 const INTEGER *N,
37724 DOUBLE_COMPLEX *A,
37725 const INTEGER *LDA,
37726 DOUBLE_COMPLEX *TAU,
37727 DOUBLE_COMPLEX *WORK,
37728 const INTEGER *LWORK,
37729 INTEGER *INFO)
37730 {
37731 DEBUG_LAPACK_STUB("zgeqrfp");
37732 LAPACK_IMPL(zgeqrfp)(M,
37733 N,
37734 A,
37735 LDA,
37736 TAU,
37737 WORK,
37738 LWORK,
37739 INFO);
37740 }
37741
37742 //-- zgerfs --------------------------------------------------------------------
37743 void
LAPACK_DECL(zgerfs)37744 LAPACK_DECL(zgerfs)(const char *TRANS,
37745 const INTEGER *N,
37746 const INTEGER *NRHS,
37747 const DOUBLE_COMPLEX *A,
37748 const INTEGER *LDA,
37749 const DOUBLE_COMPLEX *AF,
37750 const INTEGER *LDAF,
37751 const INTEGER *IPIV,
37752 const DOUBLE_COMPLEX *B,
37753 const INTEGER *LDB,
37754 DOUBLE_COMPLEX *X,
37755 const INTEGER *LDX,
37756 DOUBLE *FERR,
37757 DOUBLE *BERR,
37758 DOUBLE_COMPLEX *WORK,
37759 DOUBLE *RWORK,
37760 INTEGER *INFO)
37761 {
37762 DEBUG_LAPACK_STUB("zgerfs");
37763 LAPACK_IMPL(zgerfs)(TRANS,
37764 N,
37765 NRHS,
37766 A,
37767 LDA,
37768 AF,
37769 LDAF,
37770 IPIV,
37771 B,
37772 LDB,
37773 X,
37774 LDX,
37775 FERR,
37776 BERR,
37777 WORK,
37778 RWORK,
37779 INFO);
37780 }
37781
37782 //-- zgerfsx -------------------------------------------------------------------
37783 void
LAPACK_DECL(zgerfsx)37784 LAPACK_DECL(zgerfsx)(const char *TRANS,
37785 const char *EQUED,
37786 const INTEGER *N,
37787 const INTEGER *NRHS,
37788 const DOUBLE_COMPLEX *A,
37789 const INTEGER *LDA,
37790 const DOUBLE_COMPLEX *AF,
37791 const INTEGER *LDAF,
37792 const INTEGER *IPIV,
37793 const DOUBLE *R,
37794 const DOUBLE *C,
37795 const DOUBLE_COMPLEX *B,
37796 const INTEGER *LDB,
37797 DOUBLE_COMPLEX *X,
37798 const INTEGER *LDX,
37799 DOUBLE *RCOND,
37800 DOUBLE *BERR,
37801 const INTEGER *N_ERR_BNDS,
37802 DOUBLE *ERR_BNDS_NORM,
37803 DOUBLE *ERR_BNDS_COMP,
37804 const INTEGER *NPARAMS,
37805 DOUBLE *PARAMS,
37806 DOUBLE_COMPLEX *WORK,
37807 DOUBLE *RWORK,
37808 INTEGER *INFO)
37809 {
37810 DEBUG_LAPACK_STUB("zgerfsx");
37811 LAPACK_IMPL(zgerfsx)(TRANS,
37812 EQUED,
37813 N,
37814 NRHS,
37815 A,
37816 LDA,
37817 AF,
37818 LDAF,
37819 IPIV,
37820 R,
37821 C,
37822 B,
37823 LDB,
37824 X,
37825 LDX,
37826 RCOND,
37827 BERR,
37828 N_ERR_BNDS,
37829 ERR_BNDS_NORM,
37830 ERR_BNDS_COMP,
37831 NPARAMS,
37832 PARAMS,
37833 WORK,
37834 RWORK,
37835 INFO);
37836 }
37837
37838 //-- zgerq2 --------------------------------------------------------------------
37839 void
LAPACK_DECL(zgerq2)37840 LAPACK_DECL(zgerq2)(const INTEGER *M,
37841 const INTEGER *N,
37842 DOUBLE_COMPLEX *A,
37843 const INTEGER *LDA,
37844 DOUBLE_COMPLEX *TAU,
37845 DOUBLE_COMPLEX *WORK,
37846 INTEGER *INFO)
37847 {
37848 DEBUG_LAPACK_STUB("zgerq2");
37849 LAPACK_IMPL(zgerq2)(M,
37850 N,
37851 A,
37852 LDA,
37853 TAU,
37854 WORK,
37855 INFO);
37856 }
37857
37858 //-- zgerqf --------------------------------------------------------------------
37859 void
LAPACK_DECL(zgerqf)37860 LAPACK_DECL(zgerqf)(const INTEGER *M,
37861 const INTEGER *N,
37862 DOUBLE_COMPLEX *A,
37863 const INTEGER *LDA,
37864 DOUBLE_COMPLEX *TAU,
37865 DOUBLE_COMPLEX *WORK,
37866 const INTEGER *LWORK,
37867 INTEGER *INFO)
37868 {
37869 DEBUG_LAPACK_STUB("zgerqf");
37870 LAPACK_IMPL(zgerqf)(M,
37871 N,
37872 A,
37873 LDA,
37874 TAU,
37875 WORK,
37876 LWORK,
37877 INFO);
37878 }
37879
37880 //-- zgesc2 --------------------------------------------------------------------
37881 void
LAPACK_DECL(zgesc2)37882 LAPACK_DECL(zgesc2)(const INTEGER *N,
37883 const DOUBLE_COMPLEX *A,
37884 const INTEGER *LDA,
37885 DOUBLE_COMPLEX *RHS,
37886 const INTEGER *IPIV,
37887 const INTEGER *JPIV,
37888 DOUBLE *SCALE)
37889 {
37890 DEBUG_LAPACK_STUB("zgesc2");
37891 LAPACK_IMPL(zgesc2)(N,
37892 A,
37893 LDA,
37894 RHS,
37895 IPIV,
37896 JPIV,
37897 SCALE);
37898 }
37899
37900 //-- zgesdd --------------------------------------------------------------------
37901 void
LAPACK_DECL(zgesdd)37902 LAPACK_DECL(zgesdd)(const char *JOBZ,
37903 const INTEGER *M,
37904 const INTEGER *N,
37905 DOUBLE_COMPLEX *A,
37906 const INTEGER *LDA,
37907 DOUBLE *S,
37908 DOUBLE_COMPLEX *U,
37909 const INTEGER *LDU,
37910 DOUBLE_COMPLEX *VT,
37911 const INTEGER *LDVT,
37912 DOUBLE_COMPLEX *WORK,
37913 const INTEGER *LWORK,
37914 DOUBLE *RWORK,
37915 INTEGER *IWORK,
37916 INTEGER *INFO)
37917 {
37918 DEBUG_LAPACK_STUB("zgesdd");
37919 LAPACK_IMPL(zgesdd)(JOBZ,
37920 M,
37921 N,
37922 A,
37923 LDA,
37924 S,
37925 U,
37926 LDU,
37927 VT,
37928 LDVT,
37929 WORK,
37930 LWORK,
37931 RWORK,
37932 IWORK,
37933 INFO);
37934 }
37935
37936 //-- zgesv ---------------------------------------------------------------------
37937 void
LAPACK_DECL(zgesv)37938 LAPACK_DECL(zgesv)(const INTEGER *N,
37939 const INTEGER *NRHS,
37940 DOUBLE_COMPLEX *A,
37941 const INTEGER *LDA,
37942 INTEGER *IPIV,
37943 DOUBLE_COMPLEX *B,
37944 const INTEGER *LDB,
37945 INTEGER *INFO)
37946 {
37947 DEBUG_LAPACK_STUB("zgesv");
37948 LAPACK_IMPL(zgesv)(N,
37949 NRHS,
37950 A,
37951 LDA,
37952 IPIV,
37953 B,
37954 LDB,
37955 INFO);
37956 }
37957
37958 //-- zgesvd --------------------------------------------------------------------
37959 void
LAPACK_DECL(zgesvd)37960 LAPACK_DECL(zgesvd)(const char *JOBU,
37961 const char *JOBVT,
37962 const INTEGER *M,
37963 const INTEGER *N,
37964 DOUBLE_COMPLEX *A,
37965 const INTEGER *LDA,
37966 DOUBLE *S,
37967 DOUBLE_COMPLEX *U,
37968 const INTEGER *LDU,
37969 DOUBLE_COMPLEX *VT,
37970 const INTEGER *LDVT,
37971 DOUBLE_COMPLEX *WORK,
37972 const INTEGER *LWORK,
37973 DOUBLE *RWORK,
37974 INTEGER *INFO)
37975 {
37976 DEBUG_LAPACK_STUB("zgesvd");
37977 LAPACK_IMPL(zgesvd)(JOBU,
37978 JOBVT,
37979 M,
37980 N,
37981 A,
37982 LDA,
37983 S,
37984 U,
37985 LDU,
37986 VT,
37987 LDVT,
37988 WORK,
37989 LWORK,
37990 RWORK,
37991 INFO);
37992 }
37993
37994 //-- zgesvx --------------------------------------------------------------------
37995 void
LAPACK_DECL(zgesvx)37996 LAPACK_DECL(zgesvx)(const char *FACT,
37997 const char *TRANS,
37998 const INTEGER *N,
37999 const INTEGER *NRHS,
38000 DOUBLE_COMPLEX *A,
38001 const INTEGER *LDA,
38002 DOUBLE_COMPLEX *AF,
38003 const INTEGER *LDAF,
38004 INTEGER *IPIV,
38005 char *EQUED,
38006 DOUBLE *R,
38007 DOUBLE *C,
38008 DOUBLE_COMPLEX *B,
38009 const INTEGER *LDB,
38010 DOUBLE_COMPLEX *X,
38011 const INTEGER *LDX,
38012 DOUBLE *RCOND,
38013 DOUBLE *FERR,
38014 DOUBLE *BERR,
38015 DOUBLE_COMPLEX *WORK,
38016 DOUBLE *RWORK,
38017 INTEGER *INFO)
38018 {
38019 DEBUG_LAPACK_STUB("zgesvx");
38020 LAPACK_IMPL(zgesvx)(FACT,
38021 TRANS,
38022 N,
38023 NRHS,
38024 A,
38025 LDA,
38026 AF,
38027 LDAF,
38028 IPIV,
38029 EQUED,
38030 R,
38031 C,
38032 B,
38033 LDB,
38034 X,
38035 LDX,
38036 RCOND,
38037 FERR,
38038 BERR,
38039 WORK,
38040 RWORK,
38041 INFO);
38042 }
38043
38044 //-- zgesvxx -------------------------------------------------------------------
38045 void
LAPACK_DECL(zgesvxx)38046 LAPACK_DECL(zgesvxx)(const char *FACT,
38047 const char *TRANS,
38048 const INTEGER *N,
38049 const INTEGER *NRHS,
38050 DOUBLE_COMPLEX *A,
38051 const INTEGER *LDA,
38052 DOUBLE_COMPLEX *AF,
38053 const INTEGER *LDAF,
38054 INTEGER *IPIV,
38055 char *EQUED,
38056 DOUBLE *R,
38057 DOUBLE *C,
38058 DOUBLE_COMPLEX *B,
38059 const INTEGER *LDB,
38060 DOUBLE_COMPLEX *X,
38061 const INTEGER *LDX,
38062 DOUBLE *RCOND,
38063 DOUBLE *RPVGRW,
38064 DOUBLE *BERR,
38065 const INTEGER *N_ERR_BNDS,
38066 DOUBLE *ERR_BNDS_NORM,
38067 DOUBLE *ERR_BNDS_COMP,
38068 const INTEGER *NPARAMS,
38069 DOUBLE *PARAMS,
38070 DOUBLE_COMPLEX *WORK,
38071 DOUBLE *RWORK,
38072 INTEGER *INFO)
38073 {
38074 DEBUG_LAPACK_STUB("zgesvxx");
38075 LAPACK_IMPL(zgesvxx)(FACT,
38076 TRANS,
38077 N,
38078 NRHS,
38079 A,
38080 LDA,
38081 AF,
38082 LDAF,
38083 IPIV,
38084 EQUED,
38085 R,
38086 C,
38087 B,
38088 LDB,
38089 X,
38090 LDX,
38091 RCOND,
38092 RPVGRW,
38093 BERR,
38094 N_ERR_BNDS,
38095 ERR_BNDS_NORM,
38096 ERR_BNDS_COMP,
38097 NPARAMS,
38098 PARAMS,
38099 WORK,
38100 RWORK,
38101 INFO);
38102 }
38103
38104 //-- zgetc2 --------------------------------------------------------------------
38105 void
LAPACK_DECL(zgetc2)38106 LAPACK_DECL(zgetc2)(const INTEGER *N,
38107 DOUBLE_COMPLEX *A,
38108 const INTEGER *LDA,
38109 INTEGER *IPIV,
38110 INTEGER *JPIV,
38111 INTEGER *INFO)
38112 {
38113 DEBUG_LAPACK_STUB("zgetc2");
38114 LAPACK_IMPL(zgetc2)(N,
38115 A,
38116 LDA,
38117 IPIV,
38118 JPIV,
38119 INFO);
38120 }
38121
38122 //-- zgetf2 --------------------------------------------------------------------
38123 void
LAPACK_DECL(zgetf2)38124 LAPACK_DECL(zgetf2)(const INTEGER *M,
38125 const INTEGER *N,
38126 DOUBLE_COMPLEX *A,
38127 const INTEGER *LDA,
38128 INTEGER *IPIV,
38129 INTEGER *INFO)
38130 {
38131 DEBUG_LAPACK_STUB("zgetf2");
38132 LAPACK_IMPL(zgetf2)(M,
38133 N,
38134 A,
38135 LDA,
38136 IPIV,
38137 INFO);
38138 }
38139
38140 //-- zgetrf --------------------------------------------------------------------
38141 void
LAPACK_DECL(zgetrf)38142 LAPACK_DECL(zgetrf)(const INTEGER *M,
38143 const INTEGER *N,
38144 DOUBLE_COMPLEX *A,
38145 const INTEGER *LDA,
38146 INTEGER *IPIV,
38147 INTEGER *INFO)
38148 {
38149 DEBUG_LAPACK_STUB("zgetrf");
38150 LAPACK_IMPL(zgetrf)(M,
38151 N,
38152 A,
38153 LDA,
38154 IPIV,
38155 INFO);
38156 }
38157
38158 //-- zgetri --------------------------------------------------------------------
38159 void
LAPACK_DECL(zgetri)38160 LAPACK_DECL(zgetri)(const INTEGER *N,
38161 DOUBLE_COMPLEX *A,
38162 const INTEGER *LDA,
38163 const INTEGER *IPIV,
38164 DOUBLE_COMPLEX *WORK,
38165 const INTEGER *LWORK,
38166 INTEGER *INFO)
38167 {
38168 DEBUG_LAPACK_STUB("zgetri");
38169 LAPACK_IMPL(zgetri)(N,
38170 A,
38171 LDA,
38172 IPIV,
38173 WORK,
38174 LWORK,
38175 INFO);
38176 }
38177
38178 //-- zgetrs --------------------------------------------------------------------
38179 void
LAPACK_DECL(zgetrs)38180 LAPACK_DECL(zgetrs)(const char *TRANS,
38181 const INTEGER *N,
38182 const INTEGER *NRHS,
38183 const DOUBLE_COMPLEX *A,
38184 const INTEGER *LDA,
38185 const INTEGER *IPIV,
38186 DOUBLE_COMPLEX *B,
38187 const INTEGER *LDB,
38188 INTEGER *INFO)
38189 {
38190 DEBUG_LAPACK_STUB("zgetrs");
38191 LAPACK_IMPL(zgetrs)(TRANS,
38192 N,
38193 NRHS,
38194 A,
38195 LDA,
38196 IPIV,
38197 B,
38198 LDB,
38199 INFO);
38200 }
38201
38202 //-- zggbak --------------------------------------------------------------------
38203 void
LAPACK_DECL(zggbak)38204 LAPACK_DECL(zggbak)(const char *JOB,
38205 const char *SIDE,
38206 const INTEGER *N,
38207 const INTEGER *ILO,
38208 const INTEGER *IHI,
38209 const DOUBLE *LSCALE,
38210 const DOUBLE *RSCALE,
38211 const INTEGER *M,
38212 DOUBLE_COMPLEX *V,
38213 const INTEGER *LDV,
38214 INTEGER *INFO)
38215 {
38216 DEBUG_LAPACK_STUB("zggbak");
38217 LAPACK_IMPL(zggbak)(JOB,
38218 SIDE,
38219 N,
38220 ILO,
38221 IHI,
38222 LSCALE,
38223 RSCALE,
38224 M,
38225 V,
38226 LDV,
38227 INFO);
38228 }
38229
38230 //-- zggbal --------------------------------------------------------------------
38231 void
LAPACK_DECL(zggbal)38232 LAPACK_DECL(zggbal)(const char *JOB,
38233 const INTEGER *N,
38234 DOUBLE_COMPLEX *A,
38235 const INTEGER *LDA,
38236 DOUBLE_COMPLEX *B,
38237 const INTEGER *LDB,
38238 INTEGER *ILO,
38239 INTEGER *IHI,
38240 DOUBLE *LSCALE,
38241 DOUBLE *RSCALE,
38242 DOUBLE *WORK,
38243 INTEGER *INFO)
38244 {
38245 DEBUG_LAPACK_STUB("zggbal");
38246 LAPACK_IMPL(zggbal)(JOB,
38247 N,
38248 A,
38249 LDA,
38250 B,
38251 LDB,
38252 ILO,
38253 IHI,
38254 LSCALE,
38255 RSCALE,
38256 WORK,
38257 INFO);
38258 }
38259
38260 //-- zgges ---------------------------------------------------------------------
38261 void
LAPACK_DECL(zgges)38262 LAPACK_DECL(zgges)(const char *JOBVSL,
38263 const char *JOBVSR,
38264 const char *SORT,
38265 const LOGICAL *SELCTG,
38266 const INTEGER *N,
38267 DOUBLE_COMPLEX *A,
38268 const INTEGER *LDA,
38269 DOUBLE_COMPLEX *B,
38270 const INTEGER *LDB,
38271 INTEGER *SDIM,
38272 DOUBLE_COMPLEX *ALPHA,
38273 DOUBLE_COMPLEX *BETA,
38274 DOUBLE_COMPLEX *VSL,
38275 const INTEGER *LDVSL,
38276 DOUBLE_COMPLEX *VSR,
38277 const INTEGER *LDVSR,
38278 DOUBLE_COMPLEX *WORK,
38279 const INTEGER *LWORK,
38280 DOUBLE *RWORK,
38281 LOGICAL *BWORK,
38282 INTEGER *INFO)
38283 {
38284 DEBUG_LAPACK_STUB("zgges");
38285 LAPACK_IMPL(zgges)(JOBVSL,
38286 JOBVSR,
38287 SORT,
38288 SELCTG,
38289 N,
38290 A,
38291 LDA,
38292 B,
38293 LDB,
38294 SDIM,
38295 ALPHA,
38296 BETA,
38297 VSL,
38298 LDVSL,
38299 VSR,
38300 LDVSR,
38301 WORK,
38302 LWORK,
38303 RWORK,
38304 BWORK,
38305 INFO);
38306 }
38307
38308 //-- zggesx --------------------------------------------------------------------
38309 void
LAPACK_DECL(zggesx)38310 LAPACK_DECL(zggesx)(const char *JOBVSL,
38311 const char *JOBVSR,
38312 const char *SORT,
38313 const LOGICAL *SELCTG,
38314 const char *SENSE,
38315 const INTEGER *N,
38316 DOUBLE_COMPLEX *A,
38317 const INTEGER *LDA,
38318 DOUBLE_COMPLEX *B,
38319 const INTEGER *LDB,
38320 INTEGER *SDIM,
38321 DOUBLE_COMPLEX *ALPHA,
38322 DOUBLE_COMPLEX *BETA,
38323 DOUBLE_COMPLEX *VSL,
38324 const INTEGER *LDVSL,
38325 DOUBLE_COMPLEX *VSR,
38326 const INTEGER *LDVSR,
38327 DOUBLE *RCONDE,
38328 DOUBLE *RCONDV,
38329 DOUBLE_COMPLEX *WORK,
38330 const INTEGER *LWORK,
38331 DOUBLE *RWORK,
38332 INTEGER *IWORK,
38333 const INTEGER *LIWORK,
38334 LOGICAL *BWORK,
38335 INTEGER *INFO)
38336 {
38337 DEBUG_LAPACK_STUB("zggesx");
38338 LAPACK_IMPL(zggesx)(JOBVSL,
38339 JOBVSR,
38340 SORT,
38341 SELCTG,
38342 SENSE,
38343 N,
38344 A,
38345 LDA,
38346 B,
38347 LDB,
38348 SDIM,
38349 ALPHA,
38350 BETA,
38351 VSL,
38352 LDVSL,
38353 VSR,
38354 LDVSR,
38355 RCONDE,
38356 RCONDV,
38357 WORK,
38358 LWORK,
38359 RWORK,
38360 IWORK,
38361 LIWORK,
38362 BWORK,
38363 INFO);
38364 }
38365
38366 //-- zggev ---------------------------------------------------------------------
38367 void
LAPACK_DECL(zggev)38368 LAPACK_DECL(zggev)(const char *JOBVL,
38369 const char *JOBVR,
38370 const INTEGER *N,
38371 DOUBLE_COMPLEX *A,
38372 const INTEGER *LDA,
38373 DOUBLE_COMPLEX *B,
38374 const INTEGER *LDB,
38375 DOUBLE_COMPLEX *ALPHA,
38376 DOUBLE_COMPLEX *BETA,
38377 DOUBLE_COMPLEX *VL,
38378 const INTEGER *LDVL,
38379 DOUBLE_COMPLEX *VR,
38380 const INTEGER *LDVR,
38381 DOUBLE_COMPLEX *WORK,
38382 const INTEGER *LWORK,
38383 DOUBLE *RWORK,
38384 INTEGER *INFO)
38385 {
38386 DEBUG_LAPACK_STUB("zggev");
38387 LAPACK_IMPL(zggev)(JOBVL,
38388 JOBVR,
38389 N,
38390 A,
38391 LDA,
38392 B,
38393 LDB,
38394 ALPHA,
38395 BETA,
38396 VL,
38397 LDVL,
38398 VR,
38399 LDVR,
38400 WORK,
38401 LWORK,
38402 RWORK,
38403 INFO);
38404 }
38405
38406 //-- zggevx --------------------------------------------------------------------
38407 void
LAPACK_DECL(zggevx)38408 LAPACK_DECL(zggevx)(const char *BALANC,
38409 const char *JOBVL,
38410 const char *JOBVR,
38411 const char *SENSE,
38412 const INTEGER *N,
38413 DOUBLE_COMPLEX *A,
38414 const INTEGER *LDA,
38415 DOUBLE_COMPLEX *B,
38416 const INTEGER *LDB,
38417 DOUBLE_COMPLEX *ALPHA,
38418 DOUBLE_COMPLEX *BETA,
38419 DOUBLE_COMPLEX *VL,
38420 const INTEGER *LDVL,
38421 DOUBLE_COMPLEX *VR,
38422 const INTEGER *LDVR,
38423 INTEGER *ILO,
38424 INTEGER *IHI,
38425 DOUBLE *LSCALE,
38426 DOUBLE *RSCALE,
38427 DOUBLE *ABNRM,
38428 DOUBLE *BBNRM,
38429 DOUBLE *RCONDE,
38430 DOUBLE *RCONDV,
38431 DOUBLE_COMPLEX *WORK,
38432 const INTEGER *LWORK,
38433 DOUBLE *RWORK,
38434 INTEGER *IWORK,
38435 LOGICAL *BWORK,
38436 INTEGER *INFO)
38437 {
38438 DEBUG_LAPACK_STUB("zggevx");
38439 LAPACK_IMPL(zggevx)(BALANC,
38440 JOBVL,
38441 JOBVR,
38442 SENSE,
38443 N,
38444 A,
38445 LDA,
38446 B,
38447 LDB,
38448 ALPHA,
38449 BETA,
38450 VL,
38451 LDVL,
38452 VR,
38453 LDVR,
38454 ILO,
38455 IHI,
38456 LSCALE,
38457 RSCALE,
38458 ABNRM,
38459 BBNRM,
38460 RCONDE,
38461 RCONDV,
38462 WORK,
38463 LWORK,
38464 RWORK,
38465 IWORK,
38466 BWORK,
38467 INFO);
38468 }
38469
38470 //-- zggglm --------------------------------------------------------------------
38471 void
LAPACK_DECL(zggglm)38472 LAPACK_DECL(zggglm)(const INTEGER *N,
38473 const INTEGER *M,
38474 const INTEGER *P,
38475 DOUBLE_COMPLEX *A,
38476 const INTEGER *LDA,
38477 DOUBLE_COMPLEX *B,
38478 const INTEGER *LDB,
38479 DOUBLE_COMPLEX *D,
38480 DOUBLE_COMPLEX *X,
38481 DOUBLE_COMPLEX *Y,
38482 DOUBLE_COMPLEX *WORK,
38483 const INTEGER *LWORK,
38484 INTEGER *INFO)
38485 {
38486 DEBUG_LAPACK_STUB("zggglm");
38487 LAPACK_IMPL(zggglm)(N,
38488 M,
38489 P,
38490 A,
38491 LDA,
38492 B,
38493 LDB,
38494 D,
38495 X,
38496 Y,
38497 WORK,
38498 LWORK,
38499 INFO);
38500 }
38501
38502 //-- zgghrd --------------------------------------------------------------------
38503 void
LAPACK_DECL(zgghrd)38504 LAPACK_DECL(zgghrd)(const char *COMPQ,
38505 const char *COMPZ,
38506 const INTEGER *N,
38507 const INTEGER *ILO,
38508 const INTEGER *IHI,
38509 DOUBLE_COMPLEX *A,
38510 const INTEGER *LDA,
38511 DOUBLE_COMPLEX *B,
38512 const INTEGER *LDB,
38513 DOUBLE_COMPLEX *Q,
38514 const INTEGER *LDQ,
38515 DOUBLE_COMPLEX *Z,
38516 const INTEGER *LDZ,
38517 INTEGER *INFO)
38518 {
38519 DEBUG_LAPACK_STUB("zgghrd");
38520 LAPACK_IMPL(zgghrd)(COMPQ,
38521 COMPZ,
38522 N,
38523 ILO,
38524 IHI,
38525 A,
38526 LDA,
38527 B,
38528 LDB,
38529 Q,
38530 LDQ,
38531 Z,
38532 LDZ,
38533 INFO);
38534 }
38535
38536 //-- zgglse --------------------------------------------------------------------
38537 void
LAPACK_DECL(zgglse)38538 LAPACK_DECL(zgglse)(const INTEGER *M,
38539 const INTEGER *N,
38540 const INTEGER *P,
38541 DOUBLE_COMPLEX *A,
38542 const INTEGER *LDA,
38543 DOUBLE_COMPLEX *B,
38544 const INTEGER *LDB,
38545 DOUBLE_COMPLEX *C,
38546 DOUBLE_COMPLEX *D,
38547 DOUBLE_COMPLEX *X,
38548 DOUBLE_COMPLEX *WORK,
38549 const INTEGER *LWORK,
38550 INTEGER *INFO)
38551 {
38552 DEBUG_LAPACK_STUB("zgglse");
38553 LAPACK_IMPL(zgglse)(M,
38554 N,
38555 P,
38556 A,
38557 LDA,
38558 B,
38559 LDB,
38560 C,
38561 D,
38562 X,
38563 WORK,
38564 LWORK,
38565 INFO);
38566 }
38567
38568 //-- zggqrf --------------------------------------------------------------------
38569 void
LAPACK_DECL(zggqrf)38570 LAPACK_DECL(zggqrf)(const INTEGER *N,
38571 const INTEGER *M,
38572 const INTEGER *P,
38573 DOUBLE_COMPLEX *A,
38574 const INTEGER *LDA,
38575 DOUBLE_COMPLEX *TAUA,
38576 DOUBLE_COMPLEX *B,
38577 const INTEGER *LDB,
38578 DOUBLE_COMPLEX *TAUB,
38579 DOUBLE_COMPLEX *WORK,
38580 const INTEGER *LWORK,
38581 INTEGER *INFO)
38582 {
38583 DEBUG_LAPACK_STUB("zggqrf");
38584 LAPACK_IMPL(zggqrf)(N,
38585 M,
38586 P,
38587 A,
38588 LDA,
38589 TAUA,
38590 B,
38591 LDB,
38592 TAUB,
38593 WORK,
38594 LWORK,
38595 INFO);
38596 }
38597
38598 //-- zggrqf --------------------------------------------------------------------
38599 void
LAPACK_DECL(zggrqf)38600 LAPACK_DECL(zggrqf)(const INTEGER *M,
38601 const INTEGER *P,
38602 const INTEGER *N,
38603 DOUBLE_COMPLEX *A,
38604 const INTEGER *LDA,
38605 DOUBLE_COMPLEX *TAUA,
38606 DOUBLE_COMPLEX *B,
38607 const INTEGER *LDB,
38608 DOUBLE_COMPLEX *TAUB,
38609 DOUBLE_COMPLEX *WORK,
38610 const INTEGER *LWORK,
38611 INTEGER *INFO)
38612 {
38613 DEBUG_LAPACK_STUB("zggrqf");
38614 LAPACK_IMPL(zggrqf)(M,
38615 P,
38616 N,
38617 A,
38618 LDA,
38619 TAUA,
38620 B,
38621 LDB,
38622 TAUB,
38623 WORK,
38624 LWORK,
38625 INFO);
38626 }
38627
38628 //-- zggsvd --------------------------------------------------------------------
38629 void
LAPACK_DECL(zggsvd)38630 LAPACK_DECL(zggsvd)(const char *JOBU,
38631 const char *JOBV,
38632 const char *JOBQ,
38633 const INTEGER *M,
38634 const INTEGER *N,
38635 const INTEGER *P,
38636 INTEGER *K,
38637 INTEGER *L,
38638 DOUBLE_COMPLEX *A,
38639 const INTEGER *LDA,
38640 DOUBLE_COMPLEX *B,
38641 const INTEGER *LDB,
38642 DOUBLE *ALPHA,
38643 DOUBLE *BETA,
38644 DOUBLE_COMPLEX *U,
38645 const INTEGER *LDU,
38646 DOUBLE_COMPLEX *V,
38647 const INTEGER *LDV,
38648 DOUBLE_COMPLEX *Q,
38649 const INTEGER *LDQ,
38650 DOUBLE_COMPLEX *WORK,
38651 DOUBLE *RWORK,
38652 INTEGER *IWORK,
38653 INTEGER *INFO)
38654 {
38655 DEBUG_LAPACK_STUB("zggsvd");
38656 LAPACK_IMPL(zggsvd)(JOBU,
38657 JOBV,
38658 JOBQ,
38659 M,
38660 N,
38661 P,
38662 K,
38663 L,
38664 A,
38665 LDA,
38666 B,
38667 LDB,
38668 ALPHA,
38669 BETA,
38670 U,
38671 LDU,
38672 V,
38673 LDV,
38674 Q,
38675 LDQ,
38676 WORK,
38677 RWORK,
38678 IWORK,
38679 INFO);
38680 }
38681
38682 //-- zggsvp --------------------------------------------------------------------
38683 void
LAPACK_DECL(zggsvp)38684 LAPACK_DECL(zggsvp)(const char *JOBU,
38685 const char *JOBV,
38686 const char *JOBQ,
38687 const INTEGER *M,
38688 const INTEGER *P,
38689 const INTEGER *N,
38690 DOUBLE_COMPLEX *A,
38691 const INTEGER *LDA,
38692 DOUBLE_COMPLEX *B,
38693 const INTEGER *LDB,
38694 const DOUBLE *TOLA,
38695 const DOUBLE *TOLB,
38696 INTEGER *K,
38697 INTEGER *L,
38698 DOUBLE_COMPLEX *U,
38699 const INTEGER *LDU,
38700 DOUBLE_COMPLEX *V,
38701 const INTEGER *LDV,
38702 DOUBLE_COMPLEX *Q,
38703 const INTEGER *LDQ,
38704 INTEGER *IWORK,
38705 DOUBLE *RWORK,
38706 DOUBLE_COMPLEX *TAU,
38707 DOUBLE_COMPLEX *WORK,
38708 INTEGER *INFO)
38709 {
38710 DEBUG_LAPACK_STUB("zggsvp");
38711 LAPACK_IMPL(zggsvp)(JOBU,
38712 JOBV,
38713 JOBQ,
38714 M,
38715 P,
38716 N,
38717 A,
38718 LDA,
38719 B,
38720 LDB,
38721 TOLA,
38722 TOLB,
38723 K,
38724 L,
38725 U,
38726 LDU,
38727 V,
38728 LDV,
38729 Q,
38730 LDQ,
38731 IWORK,
38732 RWORK,
38733 TAU,
38734 WORK,
38735 INFO);
38736 }
38737
38738 //-- zgtcon --------------------------------------------------------------------
38739 void
LAPACK_DECL(zgtcon)38740 LAPACK_DECL(zgtcon)(const char *NORM,
38741 const INTEGER *N,
38742 const DOUBLE_COMPLEX *DL,
38743 const DOUBLE_COMPLEX *D,
38744 const DOUBLE_COMPLEX *DU,
38745 const DOUBLE_COMPLEX *DU2,
38746 const INTEGER *IPIV,
38747 const DOUBLE *ANORM,
38748 DOUBLE *RCOND,
38749 DOUBLE_COMPLEX *WORK,
38750 INTEGER *INFO)
38751 {
38752 DEBUG_LAPACK_STUB("zgtcon");
38753 LAPACK_IMPL(zgtcon)(NORM,
38754 N,
38755 DL,
38756 D,
38757 DU,
38758 DU2,
38759 IPIV,
38760 ANORM,
38761 RCOND,
38762 WORK,
38763 INFO);
38764 }
38765
38766 //-- zgtrfs --------------------------------------------------------------------
38767 void
LAPACK_DECL(zgtrfs)38768 LAPACK_DECL(zgtrfs)(const char *TRANS,
38769 const INTEGER *N,
38770 const INTEGER *NRHS,
38771 const DOUBLE_COMPLEX *DL,
38772 const DOUBLE_COMPLEX *D,
38773 const DOUBLE_COMPLEX *DU,
38774 const DOUBLE_COMPLEX *DLF,
38775 const DOUBLE_COMPLEX *DF,
38776 const DOUBLE_COMPLEX *DUF,
38777 const DOUBLE_COMPLEX *DU2,
38778 const INTEGER *IPIV,
38779 const DOUBLE_COMPLEX *B,
38780 const INTEGER *LDB,
38781 DOUBLE_COMPLEX *X,
38782 const INTEGER *LDX,
38783 DOUBLE *FERR,
38784 DOUBLE *BERR,
38785 DOUBLE_COMPLEX *WORK,
38786 DOUBLE *RWORK,
38787 INTEGER *INFO)
38788 {
38789 DEBUG_LAPACK_STUB("zgtrfs");
38790 LAPACK_IMPL(zgtrfs)(TRANS,
38791 N,
38792 NRHS,
38793 DL,
38794 D,
38795 DU,
38796 DLF,
38797 DF,
38798 DUF,
38799 DU2,
38800 IPIV,
38801 B,
38802 LDB,
38803 X,
38804 LDX,
38805 FERR,
38806 BERR,
38807 WORK,
38808 RWORK,
38809 INFO);
38810 }
38811
38812 //-- zgtsv ---------------------------------------------------------------------
38813 void
LAPACK_DECL(zgtsv)38814 LAPACK_DECL(zgtsv)(const INTEGER *N,
38815 const INTEGER *NRHS,
38816 DOUBLE_COMPLEX *DL,
38817 DOUBLE_COMPLEX *D,
38818 DOUBLE_COMPLEX *DU,
38819 DOUBLE_COMPLEX *B,
38820 const INTEGER *LDB,
38821 INTEGER *INFO)
38822 {
38823 DEBUG_LAPACK_STUB("zgtsv");
38824 LAPACK_IMPL(zgtsv)(N,
38825 NRHS,
38826 DL,
38827 D,
38828 DU,
38829 B,
38830 LDB,
38831 INFO);
38832 }
38833
38834 //-- zgtsvx --------------------------------------------------------------------
38835 void
LAPACK_DECL(zgtsvx)38836 LAPACK_DECL(zgtsvx)(const char *FACT,
38837 const char *TRANS,
38838 const INTEGER *N,
38839 const INTEGER *NRHS,
38840 const DOUBLE_COMPLEX *DL,
38841 const DOUBLE_COMPLEX *D,
38842 const DOUBLE_COMPLEX *DU,
38843 DOUBLE_COMPLEX *DLF,
38844 DOUBLE_COMPLEX *DF,
38845 DOUBLE_COMPLEX *DUF,
38846 DOUBLE_COMPLEX *DU2,
38847 INTEGER *IPIV,
38848 const DOUBLE_COMPLEX *B,
38849 const INTEGER *LDB,
38850 DOUBLE_COMPLEX *X,
38851 const INTEGER *LDX,
38852 DOUBLE *RCOND,
38853 DOUBLE *FERR,
38854 DOUBLE *BERR,
38855 DOUBLE_COMPLEX *WORK,
38856 DOUBLE *RWORK,
38857 INTEGER *INFO)
38858 {
38859 DEBUG_LAPACK_STUB("zgtsvx");
38860 LAPACK_IMPL(zgtsvx)(FACT,
38861 TRANS,
38862 N,
38863 NRHS,
38864 DL,
38865 D,
38866 DU,
38867 DLF,
38868 DF,
38869 DUF,
38870 DU2,
38871 IPIV,
38872 B,
38873 LDB,
38874 X,
38875 LDX,
38876 RCOND,
38877 FERR,
38878 BERR,
38879 WORK,
38880 RWORK,
38881 INFO);
38882 }
38883
38884 //-- zgttrf --------------------------------------------------------------------
38885 void
LAPACK_DECL(zgttrf)38886 LAPACK_DECL(zgttrf)(const INTEGER *N,
38887 DOUBLE_COMPLEX *DL,
38888 DOUBLE_COMPLEX *D,
38889 DOUBLE_COMPLEX *DU,
38890 DOUBLE_COMPLEX *DU2,
38891 INTEGER *IPIV,
38892 INTEGER *INFO)
38893 {
38894 DEBUG_LAPACK_STUB("zgttrf");
38895 LAPACK_IMPL(zgttrf)(N,
38896 DL,
38897 D,
38898 DU,
38899 DU2,
38900 IPIV,
38901 INFO);
38902 }
38903
38904 //-- zgttrs --------------------------------------------------------------------
38905 void
LAPACK_DECL(zgttrs)38906 LAPACK_DECL(zgttrs)(const char *TRANS,
38907 const INTEGER *N,
38908 const INTEGER *NRHS,
38909 const DOUBLE_COMPLEX *DL,
38910 const DOUBLE_COMPLEX *D,
38911 const DOUBLE_COMPLEX *DU,
38912 const DOUBLE_COMPLEX *DU2,
38913 const INTEGER *IPIV,
38914 DOUBLE_COMPLEX *B,
38915 const INTEGER *LDB,
38916 INTEGER *INFO)
38917 {
38918 DEBUG_LAPACK_STUB("zgttrs");
38919 LAPACK_IMPL(zgttrs)(TRANS,
38920 N,
38921 NRHS,
38922 DL,
38923 D,
38924 DU,
38925 DU2,
38926 IPIV,
38927 B,
38928 LDB,
38929 INFO);
38930 }
38931
38932 //-- zgtts2 --------------------------------------------------------------------
38933 void
LAPACK_DECL(zgtts2)38934 LAPACK_DECL(zgtts2)(const INTEGER *ITRANS,
38935 const INTEGER *N,
38936 const INTEGER *NRHS,
38937 const DOUBLE_COMPLEX *DL,
38938 const DOUBLE_COMPLEX *D,
38939 const DOUBLE_COMPLEX *DU,
38940 const DOUBLE_COMPLEX *DU2,
38941 const INTEGER *IPIV,
38942 DOUBLE_COMPLEX *B,
38943 const INTEGER *LDB)
38944 {
38945 DEBUG_LAPACK_STUB("zgtts2");
38946 LAPACK_IMPL(zgtts2)(ITRANS,
38947 N,
38948 NRHS,
38949 DL,
38950 D,
38951 DU,
38952 DU2,
38953 IPIV,
38954 B,
38955 LDB);
38956 }
38957
38958 //-- zhbev ---------------------------------------------------------------------
38959 void
LAPACK_DECL(zhbev)38960 LAPACK_DECL(zhbev)(const char *JOBZ,
38961 const char *UPLO,
38962 const INTEGER *N,
38963 const INTEGER *KD,
38964 DOUBLE_COMPLEX *AB,
38965 const INTEGER *LDAB,
38966 DOUBLE *W,
38967 DOUBLE_COMPLEX *Z,
38968 const INTEGER *LDZ,
38969 DOUBLE_COMPLEX *WORK,
38970 DOUBLE *RWORK,
38971 INTEGER *INFO)
38972 {
38973 DEBUG_LAPACK_STUB("zhbev");
38974 LAPACK_IMPL(zhbev)(JOBZ,
38975 UPLO,
38976 N,
38977 KD,
38978 AB,
38979 LDAB,
38980 W,
38981 Z,
38982 LDZ,
38983 WORK,
38984 RWORK,
38985 INFO);
38986 }
38987
38988 //-- zhbevd --------------------------------------------------------------------
38989 void
LAPACK_DECL(zhbevd)38990 LAPACK_DECL(zhbevd)(const char *JOBZ,
38991 const char *UPLO,
38992 const INTEGER *N,
38993 const INTEGER *KD,
38994 DOUBLE_COMPLEX *AB,
38995 const INTEGER *LDAB,
38996 DOUBLE *W,
38997 DOUBLE_COMPLEX *Z,
38998 const INTEGER *LDZ,
38999 DOUBLE_COMPLEX *WORK,
39000 const INTEGER *LWORK,
39001 DOUBLE *RWORK,
39002 const INTEGER *LRWORK,
39003 INTEGER *IWORK,
39004 const INTEGER *LIWORK,
39005 INTEGER *INFO)
39006 {
39007 DEBUG_LAPACK_STUB("zhbevd");
39008 LAPACK_IMPL(zhbevd)(JOBZ,
39009 UPLO,
39010 N,
39011 KD,
39012 AB,
39013 LDAB,
39014 W,
39015 Z,
39016 LDZ,
39017 WORK,
39018 LWORK,
39019 RWORK,
39020 LRWORK,
39021 IWORK,
39022 LIWORK,
39023 INFO);
39024 }
39025
39026 //-- zhbevx --------------------------------------------------------------------
39027 void
LAPACK_DECL(zhbevx)39028 LAPACK_DECL(zhbevx)(const char *JOBZ,
39029 const char *RANGE,
39030 const char *UPLO,
39031 const INTEGER *N,
39032 const INTEGER *KD,
39033 DOUBLE_COMPLEX *AB,
39034 const INTEGER *LDAB,
39035 DOUBLE_COMPLEX *Q,
39036 const INTEGER *LDQ,
39037 const DOUBLE *VL,
39038 const DOUBLE *VU,
39039 const INTEGER *IL,
39040 const INTEGER *IU,
39041 const DOUBLE *ABSTOL,
39042 INTEGER *M,
39043 DOUBLE *W,
39044 DOUBLE_COMPLEX *Z,
39045 const INTEGER *LDZ,
39046 DOUBLE_COMPLEX *WORK,
39047 DOUBLE *RWORK,
39048 INTEGER *IWORK,
39049 INTEGER *IFAIL,
39050 INTEGER *INFO)
39051 {
39052 DEBUG_LAPACK_STUB("zhbevx");
39053 LAPACK_IMPL(zhbevx)(JOBZ,
39054 RANGE,
39055 UPLO,
39056 N,
39057 KD,
39058 AB,
39059 LDAB,
39060 Q,
39061 LDQ,
39062 VL,
39063 VU,
39064 IL,
39065 IU,
39066 ABSTOL,
39067 M,
39068 W,
39069 Z,
39070 LDZ,
39071 WORK,
39072 RWORK,
39073 IWORK,
39074 IFAIL,
39075 INFO);
39076 }
39077
39078 //-- zhbgst --------------------------------------------------------------------
39079 void
LAPACK_DECL(zhbgst)39080 LAPACK_DECL(zhbgst)(const char *VECT,
39081 const char *UPLO,
39082 const INTEGER *N,
39083 const INTEGER *KA,
39084 const INTEGER *KB,
39085 DOUBLE_COMPLEX *AB,
39086 const INTEGER *LDAB,
39087 const DOUBLE_COMPLEX *BB,
39088 const INTEGER *LDBB,
39089 DOUBLE_COMPLEX *X,
39090 const INTEGER *LDX,
39091 DOUBLE_COMPLEX *WORK,
39092 DOUBLE *RWORK,
39093 INTEGER *INFO)
39094 {
39095 DEBUG_LAPACK_STUB("zhbgst");
39096 LAPACK_IMPL(zhbgst)(VECT,
39097 UPLO,
39098 N,
39099 KA,
39100 KB,
39101 AB,
39102 LDAB,
39103 BB,
39104 LDBB,
39105 X,
39106 LDX,
39107 WORK,
39108 RWORK,
39109 INFO);
39110 }
39111
39112 //-- zhbgv ---------------------------------------------------------------------
39113 void
LAPACK_DECL(zhbgv)39114 LAPACK_DECL(zhbgv)(const char *JOBZ,
39115 const char *UPLO,
39116 const INTEGER *N,
39117 const INTEGER *KA,
39118 const INTEGER *KB,
39119 DOUBLE_COMPLEX *AB,
39120 const INTEGER *LDAB,
39121 DOUBLE_COMPLEX *BB,
39122 const INTEGER *LDBB,
39123 DOUBLE *W,
39124 DOUBLE_COMPLEX *Z,
39125 const INTEGER *LDZ,
39126 DOUBLE_COMPLEX *WORK,
39127 DOUBLE *RWORK,
39128 INTEGER *INFO)
39129 {
39130 DEBUG_LAPACK_STUB("zhbgv");
39131 LAPACK_IMPL(zhbgv)(JOBZ,
39132 UPLO,
39133 N,
39134 KA,
39135 KB,
39136 AB,
39137 LDAB,
39138 BB,
39139 LDBB,
39140 W,
39141 Z,
39142 LDZ,
39143 WORK,
39144 RWORK,
39145 INFO);
39146 }
39147
39148 //-- zhbgvd --------------------------------------------------------------------
39149 void
LAPACK_DECL(zhbgvd)39150 LAPACK_DECL(zhbgvd)(const char *JOBZ,
39151 const char *UPLO,
39152 const INTEGER *N,
39153 const INTEGER *KA,
39154 const INTEGER *KB,
39155 DOUBLE_COMPLEX *AB,
39156 const INTEGER *LDAB,
39157 DOUBLE_COMPLEX *BB,
39158 const INTEGER *LDBB,
39159 DOUBLE *W,
39160 DOUBLE_COMPLEX *Z,
39161 const INTEGER *LDZ,
39162 DOUBLE_COMPLEX *WORK,
39163 const INTEGER *LWORK,
39164 DOUBLE *RWORK,
39165 const INTEGER *LRWORK,
39166 INTEGER *IWORK,
39167 const INTEGER *LIWORK,
39168 INTEGER *INFO)
39169 {
39170 DEBUG_LAPACK_STUB("zhbgvd");
39171 LAPACK_IMPL(zhbgvd)(JOBZ,
39172 UPLO,
39173 N,
39174 KA,
39175 KB,
39176 AB,
39177 LDAB,
39178 BB,
39179 LDBB,
39180 W,
39181 Z,
39182 LDZ,
39183 WORK,
39184 LWORK,
39185 RWORK,
39186 LRWORK,
39187 IWORK,
39188 LIWORK,
39189 INFO);
39190 }
39191
39192 //-- zhbgvx --------------------------------------------------------------------
39193 void
LAPACK_DECL(zhbgvx)39194 LAPACK_DECL(zhbgvx)(const char *JOBZ,
39195 const char *RANGE,
39196 const char *UPLO,
39197 const INTEGER *N,
39198 const INTEGER *KA,
39199 const INTEGER *KB,
39200 DOUBLE_COMPLEX *AB,
39201 const INTEGER *LDAB,
39202 DOUBLE_COMPLEX *BB,
39203 const INTEGER *LDBB,
39204 DOUBLE_COMPLEX *Q,
39205 const INTEGER *LDQ,
39206 const DOUBLE *VL,
39207 const DOUBLE *VU,
39208 const INTEGER *IL,
39209 const INTEGER *IU,
39210 const DOUBLE *ABSTOL,
39211 INTEGER *M,
39212 DOUBLE *W,
39213 DOUBLE_COMPLEX *Z,
39214 const INTEGER *LDZ,
39215 DOUBLE_COMPLEX *WORK,
39216 DOUBLE *RWORK,
39217 INTEGER *IWORK,
39218 INTEGER *IFAIL,
39219 INTEGER *INFO)
39220 {
39221 DEBUG_LAPACK_STUB("zhbgvx");
39222 LAPACK_IMPL(zhbgvx)(JOBZ,
39223 RANGE,
39224 UPLO,
39225 N,
39226 KA,
39227 KB,
39228 AB,
39229 LDAB,
39230 BB,
39231 LDBB,
39232 Q,
39233 LDQ,
39234 VL,
39235 VU,
39236 IL,
39237 IU,
39238 ABSTOL,
39239 M,
39240 W,
39241 Z,
39242 LDZ,
39243 WORK,
39244 RWORK,
39245 IWORK,
39246 IFAIL,
39247 INFO);
39248 }
39249
39250 //-- zhbtrd --------------------------------------------------------------------
39251 void
LAPACK_DECL(zhbtrd)39252 LAPACK_DECL(zhbtrd)(const char *VECT,
39253 const char *UPLO,
39254 const INTEGER *N,
39255 const INTEGER *KD,
39256 DOUBLE_COMPLEX *AB,
39257 const INTEGER *LDAB,
39258 DOUBLE *D,
39259 DOUBLE *E,
39260 DOUBLE_COMPLEX *Q,
39261 const INTEGER *LDQ,
39262 DOUBLE_COMPLEX *WORK,
39263 INTEGER *INFO)
39264 {
39265 DEBUG_LAPACK_STUB("zhbtrd");
39266 LAPACK_IMPL(zhbtrd)(VECT,
39267 UPLO,
39268 N,
39269 KD,
39270 AB,
39271 LDAB,
39272 D,
39273 E,
39274 Q,
39275 LDQ,
39276 WORK,
39277 INFO);
39278 }
39279
39280 //-- zhecon --------------------------------------------------------------------
39281 void
LAPACK_DECL(zhecon)39282 LAPACK_DECL(zhecon)(const char *UPLO,
39283 const INTEGER *N,
39284 const DOUBLE_COMPLEX *A,
39285 const INTEGER *LDA,
39286 const INTEGER *IPIV,
39287 const DOUBLE *ANORM,
39288 DOUBLE *RCOND,
39289 DOUBLE_COMPLEX *WORK,
39290 INTEGER *INFO)
39291 {
39292 DEBUG_LAPACK_STUB("zhecon");
39293 LAPACK_IMPL(zhecon)(UPLO,
39294 N,
39295 A,
39296 LDA,
39297 IPIV,
39298 ANORM,
39299 RCOND,
39300 WORK,
39301 INFO);
39302 }
39303
39304 //-- zheequb -------------------------------------------------------------------
39305 void
LAPACK_DECL(zheequb)39306 LAPACK_DECL(zheequb)(const char *UPLO,
39307 const INTEGER *N,
39308 const DOUBLE_COMPLEX *A,
39309 const INTEGER *LDA,
39310 DOUBLE *S,
39311 DOUBLE *SCOND,
39312 DOUBLE *AMAX,
39313 const DOUBLE_COMPLEX *WORK,
39314 INTEGER *INFO)
39315 {
39316 DEBUG_LAPACK_STUB("zheequb");
39317 LAPACK_IMPL(zheequb)(UPLO,
39318 N,
39319 A,
39320 LDA,
39321 S,
39322 SCOND,
39323 AMAX,
39324 WORK,
39325 INFO);
39326 }
39327
39328 //-- zheev ---------------------------------------------------------------------
39329 void
LAPACK_DECL(zheev)39330 LAPACK_DECL(zheev)(const char *JOBZ,
39331 const char *UPLO,
39332 const INTEGER *N,
39333 DOUBLE_COMPLEX *A,
39334 const INTEGER *LDA,
39335 DOUBLE *W,
39336 DOUBLE_COMPLEX *WORK,
39337 const INTEGER *LWORK,
39338 DOUBLE *RWORK,
39339 INTEGER *INFO)
39340 {
39341 DEBUG_LAPACK_STUB("zheev");
39342 LAPACK_IMPL(zheev)(JOBZ,
39343 UPLO,
39344 N,
39345 A,
39346 LDA,
39347 W,
39348 WORK,
39349 LWORK,
39350 RWORK,
39351 INFO);
39352 }
39353
39354 //-- zheevd --------------------------------------------------------------------
39355 void
LAPACK_DECL(zheevd)39356 LAPACK_DECL(zheevd)(const char *JOBZ,
39357 const char *UPLO,
39358 const INTEGER *N,
39359 DOUBLE_COMPLEX *A,
39360 const INTEGER *LDA,
39361 DOUBLE *W,
39362 DOUBLE_COMPLEX *WORK,
39363 const INTEGER *LWORK,
39364 DOUBLE *RWORK,
39365 const INTEGER *LRWORK,
39366 INTEGER *IWORK,
39367 const INTEGER *LIWORK,
39368 INTEGER *INFO)
39369 {
39370 DEBUG_LAPACK_STUB("zheevd");
39371 LAPACK_IMPL(zheevd)(JOBZ,
39372 UPLO,
39373 N,
39374 A,
39375 LDA,
39376 W,
39377 WORK,
39378 LWORK,
39379 RWORK,
39380 LRWORK,
39381 IWORK,
39382 LIWORK,
39383 INFO);
39384 }
39385
39386 //-- zheevr --------------------------------------------------------------------
39387 void
LAPACK_DECL(zheevr)39388 LAPACK_DECL(zheevr)(const char *JOBZ,
39389 const char *RANGE,
39390 const char *UPLO,
39391 const INTEGER *N,
39392 DOUBLE_COMPLEX *A,
39393 const INTEGER *LDA,
39394 const DOUBLE *VL,
39395 const DOUBLE *VU,
39396 const INTEGER *IL,
39397 const INTEGER *IU,
39398 const DOUBLE *ABSTOL,
39399 INTEGER *M,
39400 DOUBLE *W,
39401 DOUBLE_COMPLEX *Z,
39402 const INTEGER *LDZ,
39403 INTEGER *ISUPPZ,
39404 DOUBLE_COMPLEX *WORK,
39405 const INTEGER *LWORK,
39406 DOUBLE *RWORK,
39407 const INTEGER *LRWORK,
39408 INTEGER *IWORK,
39409 const INTEGER *LIWORK,
39410 INTEGER *INFO)
39411 {
39412 DEBUG_LAPACK_STUB("zheevr");
39413 LAPACK_IMPL(zheevr)(JOBZ,
39414 RANGE,
39415 UPLO,
39416 N,
39417 A,
39418 LDA,
39419 VL,
39420 VU,
39421 IL,
39422 IU,
39423 ABSTOL,
39424 M,
39425 W,
39426 Z,
39427 LDZ,
39428 ISUPPZ,
39429 WORK,
39430 LWORK,
39431 RWORK,
39432 LRWORK,
39433 IWORK,
39434 LIWORK,
39435 INFO);
39436 }
39437
39438 //-- zheevx --------------------------------------------------------------------
39439 void
LAPACK_DECL(zheevx)39440 LAPACK_DECL(zheevx)(const char *JOBZ,
39441 const char *RANGE,
39442 const char *UPLO,
39443 const INTEGER *N,
39444 DOUBLE_COMPLEX *A,
39445 const INTEGER *LDA,
39446 const DOUBLE *VL,
39447 const DOUBLE *VU,
39448 const INTEGER *IL,
39449 const INTEGER *IU,
39450 const DOUBLE *ABSTOL,
39451 INTEGER *M,
39452 DOUBLE *W,
39453 DOUBLE_COMPLEX *Z,
39454 const INTEGER *LDZ,
39455 DOUBLE_COMPLEX *WORK,
39456 const INTEGER *LWORK,
39457 DOUBLE *RWORK,
39458 INTEGER *IWORK,
39459 INTEGER *IFAIL,
39460 INTEGER *INFO)
39461 {
39462 DEBUG_LAPACK_STUB("zheevx");
39463 LAPACK_IMPL(zheevx)(JOBZ,
39464 RANGE,
39465 UPLO,
39466 N,
39467 A,
39468 LDA,
39469 VL,
39470 VU,
39471 IL,
39472 IU,
39473 ABSTOL,
39474 M,
39475 W,
39476 Z,
39477 LDZ,
39478 WORK,
39479 LWORK,
39480 RWORK,
39481 IWORK,
39482 IFAIL,
39483 INFO);
39484 }
39485
39486 //-- zhegs2 --------------------------------------------------------------------
39487 void
LAPACK_DECL(zhegs2)39488 LAPACK_DECL(zhegs2)(const INTEGER *ITYPE,
39489 const char *UPLO,
39490 const INTEGER *N,
39491 DOUBLE_COMPLEX *A,
39492 const INTEGER *LDA,
39493 const DOUBLE_COMPLEX *B,
39494 const INTEGER *LDB,
39495 INTEGER *INFO)
39496 {
39497 DEBUG_LAPACK_STUB("zhegs2");
39498 LAPACK_IMPL(zhegs2)(ITYPE,
39499 UPLO,
39500 N,
39501 A,
39502 LDA,
39503 B,
39504 LDB,
39505 INFO);
39506 }
39507
39508 //-- zhegst --------------------------------------------------------------------
39509 void
LAPACK_DECL(zhegst)39510 LAPACK_DECL(zhegst)(const INTEGER *ITYPE,
39511 const char *UPLO,
39512 const INTEGER *N,
39513 DOUBLE_COMPLEX *A,
39514 const INTEGER *LDA,
39515 const DOUBLE_COMPLEX *B,
39516 const INTEGER *LDB,
39517 INTEGER *INFO)
39518 {
39519 DEBUG_LAPACK_STUB("zhegst");
39520 LAPACK_IMPL(zhegst)(ITYPE,
39521 UPLO,
39522 N,
39523 A,
39524 LDA,
39525 B,
39526 LDB,
39527 INFO);
39528 }
39529
39530 //-- zhegv ---------------------------------------------------------------------
39531 void
LAPACK_DECL(zhegv)39532 LAPACK_DECL(zhegv)(const INTEGER *ITYPE,
39533 const char *JOBZ,
39534 const char *UPLO,
39535 const INTEGER *N,
39536 DOUBLE_COMPLEX *A,
39537 const INTEGER *LDA,
39538 DOUBLE_COMPLEX *B,
39539 const INTEGER *LDB,
39540 DOUBLE *W,
39541 DOUBLE_COMPLEX *WORK,
39542 const INTEGER *LWORK,
39543 DOUBLE *RWORK,
39544 INTEGER *INFO)
39545 {
39546 DEBUG_LAPACK_STUB("zhegv");
39547 LAPACK_IMPL(zhegv)(ITYPE,
39548 JOBZ,
39549 UPLO,
39550 N,
39551 A,
39552 LDA,
39553 B,
39554 LDB,
39555 W,
39556 WORK,
39557 LWORK,
39558 RWORK,
39559 INFO);
39560 }
39561
39562 //-- zhegvd --------------------------------------------------------------------
39563 void
LAPACK_DECL(zhegvd)39564 LAPACK_DECL(zhegvd)(const INTEGER *ITYPE,
39565 const char *JOBZ,
39566 const char *UPLO,
39567 const INTEGER *N,
39568 DOUBLE_COMPLEX *A,
39569 const INTEGER *LDA,
39570 DOUBLE_COMPLEX *B,
39571 const INTEGER *LDB,
39572 DOUBLE *W,
39573 DOUBLE_COMPLEX *WORK,
39574 const INTEGER *LWORK,
39575 DOUBLE *RWORK,
39576 const INTEGER *LRWORK,
39577 INTEGER *IWORK,
39578 const INTEGER *LIWORK,
39579 INTEGER *INFO)
39580 {
39581 DEBUG_LAPACK_STUB("zhegvd");
39582 LAPACK_IMPL(zhegvd)(ITYPE,
39583 JOBZ,
39584 UPLO,
39585 N,
39586 A,
39587 LDA,
39588 B,
39589 LDB,
39590 W,
39591 WORK,
39592 LWORK,
39593 RWORK,
39594 LRWORK,
39595 IWORK,
39596 LIWORK,
39597 INFO);
39598 }
39599
39600 //-- zhegvx --------------------------------------------------------------------
39601 void
LAPACK_DECL(zhegvx)39602 LAPACK_DECL(zhegvx)(const INTEGER *ITYPE,
39603 const char *JOBZ,
39604 const char *RANGE,
39605 const char *UPLO,
39606 const INTEGER *N,
39607 DOUBLE_COMPLEX *A,
39608 const INTEGER *LDA,
39609 DOUBLE_COMPLEX *B,
39610 const INTEGER *LDB,
39611 const DOUBLE *VL,
39612 const DOUBLE *VU,
39613 const INTEGER *IL,
39614 const INTEGER *IU,
39615 const DOUBLE *ABSTOL,
39616 INTEGER *M,
39617 DOUBLE *W,
39618 DOUBLE_COMPLEX *Z,
39619 const INTEGER *LDZ,
39620 DOUBLE_COMPLEX *WORK,
39621 const INTEGER *LWORK,
39622 DOUBLE *RWORK,
39623 INTEGER *IWORK,
39624 INTEGER *IFAIL,
39625 INTEGER *INFO)
39626 {
39627 DEBUG_LAPACK_STUB("zhegvx");
39628 LAPACK_IMPL(zhegvx)(ITYPE,
39629 JOBZ,
39630 RANGE,
39631 UPLO,
39632 N,
39633 A,
39634 LDA,
39635 B,
39636 LDB,
39637 VL,
39638 VU,
39639 IL,
39640 IU,
39641 ABSTOL,
39642 M,
39643 W,
39644 Z,
39645 LDZ,
39646 WORK,
39647 LWORK,
39648 RWORK,
39649 IWORK,
39650 IFAIL,
39651 INFO);
39652 }
39653
39654 //-- zherfs --------------------------------------------------------------------
39655 void
LAPACK_DECL(zherfs)39656 LAPACK_DECL(zherfs)(const char *UPLO,
39657 const INTEGER *N,
39658 const INTEGER *NRHS,
39659 const DOUBLE_COMPLEX *A,
39660 const INTEGER *LDA,
39661 const DOUBLE_COMPLEX *AF,
39662 const INTEGER *LDAF,
39663 const INTEGER *IPIV,
39664 const DOUBLE_COMPLEX *B,
39665 const INTEGER *LDB,
39666 DOUBLE_COMPLEX *X,
39667 const INTEGER *LDX,
39668 DOUBLE *FERR,
39669 DOUBLE *BERR,
39670 DOUBLE_COMPLEX *WORK,
39671 DOUBLE *RWORK,
39672 INTEGER *INFO)
39673 {
39674 DEBUG_LAPACK_STUB("zherfs");
39675 LAPACK_IMPL(zherfs)(UPLO,
39676 N,
39677 NRHS,
39678 A,
39679 LDA,
39680 AF,
39681 LDAF,
39682 IPIV,
39683 B,
39684 LDB,
39685 X,
39686 LDX,
39687 FERR,
39688 BERR,
39689 WORK,
39690 RWORK,
39691 INFO);
39692 }
39693
39694 //-- zherfsx -------------------------------------------------------------------
39695 void
LAPACK_DECL(zherfsx)39696 LAPACK_DECL(zherfsx)(const char *UPLO,
39697 const char *EQUED,
39698 const INTEGER *N,
39699 const INTEGER *NRHS,
39700 const DOUBLE_COMPLEX *A,
39701 const INTEGER *LDA,
39702 const DOUBLE_COMPLEX *AF,
39703 const INTEGER *LDAF,
39704 const INTEGER *IPIV,
39705 DOUBLE *S,
39706 const DOUBLE_COMPLEX *B,
39707 const INTEGER *LDB,
39708 DOUBLE_COMPLEX *X,
39709 const INTEGER *LDX,
39710 DOUBLE *RCOND,
39711 DOUBLE *BERR,
39712 const INTEGER *N_ERR_BNDS,
39713 DOUBLE *ERR_BNDS_NORM,
39714 DOUBLE *ERR_BNDS_COMP,
39715 const INTEGER *NPARAMS,
39716 DOUBLE *PARAMS,
39717 DOUBLE_COMPLEX *WORK,
39718 DOUBLE *RWORK,
39719 INTEGER *INFO)
39720 {
39721 DEBUG_LAPACK_STUB("zherfsx");
39722 LAPACK_IMPL(zherfsx)(UPLO,
39723 EQUED,
39724 N,
39725 NRHS,
39726 A,
39727 LDA,
39728 AF,
39729 LDAF,
39730 IPIV,
39731 S,
39732 B,
39733 LDB,
39734 X,
39735 LDX,
39736 RCOND,
39737 BERR,
39738 N_ERR_BNDS,
39739 ERR_BNDS_NORM,
39740 ERR_BNDS_COMP,
39741 NPARAMS,
39742 PARAMS,
39743 WORK,
39744 RWORK,
39745 INFO);
39746 }
39747
39748 //-- zhesv ---------------------------------------------------------------------
39749 void
LAPACK_DECL(zhesv)39750 LAPACK_DECL(zhesv)(const char *UPLO,
39751 const INTEGER *N,
39752 const INTEGER *NRHS,
39753 DOUBLE_COMPLEX *A,
39754 const INTEGER *LDA,
39755 INTEGER *IPIV,
39756 DOUBLE_COMPLEX *B,
39757 const INTEGER *LDB,
39758 DOUBLE_COMPLEX *WORK,
39759 const INTEGER *LWORK,
39760 INTEGER *INFO)
39761 {
39762 DEBUG_LAPACK_STUB("zhesv");
39763 LAPACK_IMPL(zhesv)(UPLO,
39764 N,
39765 NRHS,
39766 A,
39767 LDA,
39768 IPIV,
39769 B,
39770 LDB,
39771 WORK,
39772 LWORK,
39773 INFO);
39774 }
39775
39776 //-- zhesvx --------------------------------------------------------------------
39777 void
LAPACK_DECL(zhesvx)39778 LAPACK_DECL(zhesvx)(const char *FACT,
39779 const char *UPLO,
39780 const INTEGER *N,
39781 const INTEGER *NRHS,
39782 const DOUBLE_COMPLEX *A,
39783 const INTEGER *LDA,
39784 DOUBLE_COMPLEX *AF,
39785 const INTEGER *LDAF,
39786 INTEGER *IPIV,
39787 const DOUBLE_COMPLEX *B,
39788 const INTEGER *LDB,
39789 DOUBLE_COMPLEX *X,
39790 const INTEGER *LDX,
39791 DOUBLE *RCOND,
39792 DOUBLE *FERR,
39793 DOUBLE *BERR,
39794 DOUBLE_COMPLEX *WORK,
39795 const INTEGER *LWORK,
39796 DOUBLE *RWORK,
39797 INTEGER *INFO)
39798 {
39799 DEBUG_LAPACK_STUB("zhesvx");
39800 LAPACK_IMPL(zhesvx)(FACT,
39801 UPLO,
39802 N,
39803 NRHS,
39804 A,
39805 LDA,
39806 AF,
39807 LDAF,
39808 IPIV,
39809 B,
39810 LDB,
39811 X,
39812 LDX,
39813 RCOND,
39814 FERR,
39815 BERR,
39816 WORK,
39817 LWORK,
39818 RWORK,
39819 INFO);
39820 }
39821
39822 //-- zhesvxx -------------------------------------------------------------------
39823 void
LAPACK_DECL(zhesvxx)39824 LAPACK_DECL(zhesvxx)(const char *FACT,
39825 const char *UPLO,
39826 const INTEGER *N,
39827 const INTEGER *NRHS,
39828 DOUBLE_COMPLEX *A,
39829 const INTEGER *LDA,
39830 DOUBLE_COMPLEX *AF,
39831 const INTEGER *LDAF,
39832 INTEGER *IPIV,
39833 char *EQUED,
39834 DOUBLE *S,
39835 DOUBLE_COMPLEX *B,
39836 const INTEGER *LDB,
39837 DOUBLE_COMPLEX *X,
39838 const INTEGER *LDX,
39839 DOUBLE *RCOND,
39840 DOUBLE *RPVGRW,
39841 DOUBLE *BERR,
39842 const INTEGER *N_ERR_BNDS,
39843 DOUBLE *ERR_BNDS_NORM,
39844 DOUBLE *ERR_BNDS_COMP,
39845 const INTEGER *NPARAMS,
39846 DOUBLE *PARAMS,
39847 DOUBLE_COMPLEX *WORK,
39848 DOUBLE *RWORK,
39849 INTEGER *INFO)
39850 {
39851 DEBUG_LAPACK_STUB("zhesvxx");
39852 LAPACK_IMPL(zhesvxx)(FACT,
39853 UPLO,
39854 N,
39855 NRHS,
39856 A,
39857 LDA,
39858 AF,
39859 LDAF,
39860 IPIV,
39861 EQUED,
39862 S,
39863 B,
39864 LDB,
39865 X,
39866 LDX,
39867 RCOND,
39868 RPVGRW,
39869 BERR,
39870 N_ERR_BNDS,
39871 ERR_BNDS_NORM,
39872 ERR_BNDS_COMP,
39873 NPARAMS,
39874 PARAMS,
39875 WORK,
39876 RWORK,
39877 INFO);
39878 }
39879
39880 //-- zheswapr ------------------------------------------------------------------
39881 void
LAPACK_DECL(zheswapr)39882 LAPACK_DECL(zheswapr)(const char *UPLO,
39883 const INTEGER *N,
39884 DOUBLE_COMPLEX *A,
39885 const INTEGER *LDA,
39886 const INTEGER *I1,
39887 const INTEGER *I2)
39888 {
39889 DEBUG_LAPACK_STUB("zheswapr");
39890 LAPACK_IMPL(zheswapr)(UPLO,
39891 N,
39892 A,
39893 LDA,
39894 I1,
39895 I2);
39896 }
39897
39898 //-- zhetd2 --------------------------------------------------------------------
39899 void
LAPACK_DECL(zhetd2)39900 LAPACK_DECL(zhetd2)(const char *UPLO,
39901 const INTEGER *N,
39902 DOUBLE_COMPLEX *A,
39903 const INTEGER *LDA,
39904 DOUBLE *D,
39905 DOUBLE *E,
39906 DOUBLE_COMPLEX *TAU,
39907 INTEGER *INFO)
39908 {
39909 DEBUG_LAPACK_STUB("zhetd2");
39910 LAPACK_IMPL(zhetd2)(UPLO,
39911 N,
39912 A,
39913 LDA,
39914 D,
39915 E,
39916 TAU,
39917 INFO);
39918 }
39919
39920 //-- zhetf2 --------------------------------------------------------------------
39921 void
LAPACK_DECL(zhetf2)39922 LAPACK_DECL(zhetf2)(const char *UPLO,
39923 const INTEGER *N,
39924 DOUBLE_COMPLEX *A,
39925 const INTEGER *LDA,
39926 INTEGER *IPIV,
39927 INTEGER *INFO)
39928 {
39929 DEBUG_LAPACK_STUB("zhetf2");
39930 LAPACK_IMPL(zhetf2)(UPLO,
39931 N,
39932 A,
39933 LDA,
39934 IPIV,
39935 INFO);
39936 }
39937
39938 //-- zhetrd --------------------------------------------------------------------
39939 void
LAPACK_DECL(zhetrd)39940 LAPACK_DECL(zhetrd)(const char *UPLO,
39941 const INTEGER *N,
39942 DOUBLE_COMPLEX *A,
39943 const INTEGER *LDA,
39944 DOUBLE *D,
39945 DOUBLE *E,
39946 DOUBLE_COMPLEX *TAU,
39947 DOUBLE_COMPLEX *WORK,
39948 const INTEGER *LWORK,
39949 INTEGER *INFO)
39950 {
39951 DEBUG_LAPACK_STUB("zhetrd");
39952 LAPACK_IMPL(zhetrd)(UPLO,
39953 N,
39954 A,
39955 LDA,
39956 D,
39957 E,
39958 TAU,
39959 WORK,
39960 LWORK,
39961 INFO);
39962 }
39963
39964 //-- zhetrf --------------------------------------------------------------------
39965 void
LAPACK_DECL(zhetrf)39966 LAPACK_DECL(zhetrf)(const char *UPLO,
39967 const INTEGER *N,
39968 DOUBLE_COMPLEX *A,
39969 const INTEGER *LDA,
39970 INTEGER *IPIV,
39971 DOUBLE_COMPLEX *WORK,
39972 const INTEGER *LWORK,
39973 INTEGER *INFO)
39974 {
39975 DEBUG_LAPACK_STUB("zhetrf");
39976 LAPACK_IMPL(zhetrf)(UPLO,
39977 N,
39978 A,
39979 LDA,
39980 IPIV,
39981 WORK,
39982 LWORK,
39983 INFO);
39984 }
39985
39986 //-- zhetri --------------------------------------------------------------------
39987 void
LAPACK_DECL(zhetri)39988 LAPACK_DECL(zhetri)(const char *UPLO,
39989 const INTEGER *N,
39990 DOUBLE_COMPLEX *A,
39991 const INTEGER *LDA,
39992 const INTEGER *IPIV,
39993 DOUBLE_COMPLEX *WORK,
39994 INTEGER *INFO)
39995 {
39996 DEBUG_LAPACK_STUB("zhetri");
39997 LAPACK_IMPL(zhetri)(UPLO,
39998 N,
39999 A,
40000 LDA,
40001 IPIV,
40002 WORK,
40003 INFO);
40004 }
40005
40006 //-- zhetri2 -------------------------------------------------------------------
40007 void
LAPACK_DECL(zhetri2)40008 LAPACK_DECL(zhetri2)(const char *UPLO,
40009 const INTEGER *N,
40010 DOUBLE_COMPLEX *A,
40011 const INTEGER *LDA,
40012 const INTEGER *IPIV,
40013 DOUBLE_COMPLEX *WORK,
40014 const INTEGER *LWORK,
40015 INTEGER *INFO)
40016 {
40017 DEBUG_LAPACK_STUB("zhetri2");
40018 LAPACK_IMPL(zhetri2)(UPLO,
40019 N,
40020 A,
40021 LDA,
40022 IPIV,
40023 WORK,
40024 LWORK,
40025 INFO);
40026 }
40027
40028 //-- zhetri2x ------------------------------------------------------------------
40029 void
LAPACK_DECL(zhetri2x)40030 LAPACK_DECL(zhetri2x)(const char *UPLO,
40031 const INTEGER *N,
40032 DOUBLE_COMPLEX *A,
40033 const INTEGER *LDA,
40034 const INTEGER *IPIV,
40035 DOUBLE_COMPLEX *WORK,
40036 const INTEGER *NB,
40037 INTEGER *INFO)
40038 {
40039 DEBUG_LAPACK_STUB("zhetri2x");
40040 LAPACK_IMPL(zhetri2x)(UPLO,
40041 N,
40042 A,
40043 LDA,
40044 IPIV,
40045 WORK,
40046 NB,
40047 INFO);
40048 }
40049
40050 //-- zhetrs --------------------------------------------------------------------
40051 void
LAPACK_DECL(zhetrs)40052 LAPACK_DECL(zhetrs)(const char *UPLO,
40053 const INTEGER *N,
40054 const INTEGER *NRHS,
40055 const DOUBLE_COMPLEX *A,
40056 const INTEGER *LDA,
40057 const INTEGER *IPIV,
40058 DOUBLE_COMPLEX *B,
40059 const INTEGER *LDB,
40060 INTEGER *INFO)
40061 {
40062 DEBUG_LAPACK_STUB("zhetrs");
40063 LAPACK_IMPL(zhetrs)(UPLO,
40064 N,
40065 NRHS,
40066 A,
40067 LDA,
40068 IPIV,
40069 B,
40070 LDB,
40071 INFO);
40072 }
40073
40074 //-- zhetrs2 -------------------------------------------------------------------
40075 void
LAPACK_DECL(zhetrs2)40076 LAPACK_DECL(zhetrs2)(const char *UPLO,
40077 const INTEGER *N,
40078 const INTEGER *NRHS,
40079 DOUBLE_COMPLEX *A,
40080 const INTEGER *LDA,
40081 const INTEGER *IPIV,
40082 DOUBLE_COMPLEX *B,
40083 const INTEGER *LDB,
40084 DOUBLE_COMPLEX *WORK,
40085 INTEGER *INFO)
40086 {
40087 DEBUG_LAPACK_STUB("zhetrs2");
40088 LAPACK_IMPL(zhetrs2)(UPLO,
40089 N,
40090 NRHS,
40091 A,
40092 LDA,
40093 IPIV,
40094 B,
40095 LDB,
40096 WORK,
40097 INFO);
40098 }
40099
40100 //-- zhfrk ---------------------------------------------------------------------
40101 void
LAPACK_DECL(zhfrk)40102 LAPACK_DECL(zhfrk)(const char *TRANSR,
40103 const char *UPLO,
40104 const char *TRANS,
40105 const INTEGER *N,
40106 const INTEGER *K,
40107 const DOUBLE *ALPHA,
40108 const DOUBLE_COMPLEX *A,
40109 const INTEGER *LDA,
40110 const DOUBLE *BETA,
40111 DOUBLE_COMPLEX *C)
40112 {
40113 DEBUG_LAPACK_STUB("zhfrk");
40114 LAPACK_IMPL(zhfrk)(TRANSR,
40115 UPLO,
40116 TRANS,
40117 N,
40118 K,
40119 ALPHA,
40120 A,
40121 LDA,
40122 BETA,
40123 C);
40124 }
40125
40126 //-- zhgeqz --------------------------------------------------------------------
40127 void
LAPACK_DECL(zhgeqz)40128 LAPACK_DECL(zhgeqz)(const char *JOB,
40129 const char *COMPQ,
40130 const char *COMPZ,
40131 const INTEGER *N,
40132 const INTEGER *ILO,
40133 const INTEGER *IHI,
40134 DOUBLE_COMPLEX *H,
40135 const INTEGER *LDH,
40136 DOUBLE_COMPLEX *T,
40137 const INTEGER *LDT,
40138 DOUBLE_COMPLEX *ALPHA,
40139 DOUBLE_COMPLEX *BETA,
40140 DOUBLE_COMPLEX *Q,
40141 const INTEGER *LDQ,
40142 DOUBLE_COMPLEX *Z,
40143 const INTEGER *LDZ,
40144 DOUBLE_COMPLEX *WORK,
40145 const INTEGER *LWORK,
40146 DOUBLE *RWORK,
40147 INTEGER *INFO)
40148 {
40149 DEBUG_LAPACK_STUB("zhgeqz");
40150 LAPACK_IMPL(zhgeqz)(JOB,
40151 COMPQ,
40152 COMPZ,
40153 N,
40154 ILO,
40155 IHI,
40156 H,
40157 LDH,
40158 T,
40159 LDT,
40160 ALPHA,
40161 BETA,
40162 Q,
40163 LDQ,
40164 Z,
40165 LDZ,
40166 WORK,
40167 LWORK,
40168 RWORK,
40169 INFO);
40170 }
40171
40172 //-- zhpcon --------------------------------------------------------------------
40173 void
LAPACK_DECL(zhpcon)40174 LAPACK_DECL(zhpcon)(const char *UPLO,
40175 const INTEGER *N,
40176 const DOUBLE_COMPLEX *AP,
40177 const INTEGER *IPIV,
40178 const DOUBLE *ANORM,
40179 DOUBLE *RCOND,
40180 DOUBLE_COMPLEX *WORK,
40181 INTEGER *INFO)
40182 {
40183 DEBUG_LAPACK_STUB("zhpcon");
40184 LAPACK_IMPL(zhpcon)(UPLO,
40185 N,
40186 AP,
40187 IPIV,
40188 ANORM,
40189 RCOND,
40190 WORK,
40191 INFO);
40192 }
40193
40194 //-- zhpev ---------------------------------------------------------------------
40195 void
LAPACK_DECL(zhpev)40196 LAPACK_DECL(zhpev)(const char *JOBZ,
40197 const char *UPLO,
40198 const INTEGER *N,
40199 DOUBLE_COMPLEX *AP,
40200 DOUBLE *W,
40201 DOUBLE_COMPLEX *Z,
40202 const INTEGER *LDZ,
40203 DOUBLE_COMPLEX *WORK,
40204 DOUBLE *RWORK,
40205 INTEGER *INFO)
40206 {
40207 DEBUG_LAPACK_STUB("zhpev");
40208 LAPACK_IMPL(zhpev)(JOBZ,
40209 UPLO,
40210 N,
40211 AP,
40212 W,
40213 Z,
40214 LDZ,
40215 WORK,
40216 RWORK,
40217 INFO);
40218 }
40219
40220 //-- zhpevd --------------------------------------------------------------------
40221 void
LAPACK_DECL(zhpevd)40222 LAPACK_DECL(zhpevd)(const char *JOBZ,
40223 const char *UPLO,
40224 const INTEGER *N,
40225 DOUBLE_COMPLEX *AP,
40226 DOUBLE *W,
40227 DOUBLE_COMPLEX *Z,
40228 const INTEGER *LDZ,
40229 DOUBLE_COMPLEX *WORK,
40230 const INTEGER *LWORK,
40231 DOUBLE *RWORK,
40232 const INTEGER *LRWORK,
40233 INTEGER *IWORK,
40234 const INTEGER *LIWORK,
40235 INTEGER *INFO)
40236 {
40237 DEBUG_LAPACK_STUB("zhpevd");
40238 LAPACK_IMPL(zhpevd)(JOBZ,
40239 UPLO,
40240 N,
40241 AP,
40242 W,
40243 Z,
40244 LDZ,
40245 WORK,
40246 LWORK,
40247 RWORK,
40248 LRWORK,
40249 IWORK,
40250 LIWORK,
40251 INFO);
40252 }
40253
40254 //-- zhpevx --------------------------------------------------------------------
40255 void
LAPACK_DECL(zhpevx)40256 LAPACK_DECL(zhpevx)(const char *JOBZ,
40257 const char *RANGE,
40258 const char *UPLO,
40259 const INTEGER *N,
40260 DOUBLE_COMPLEX *AP,
40261 const DOUBLE *VL,
40262 const DOUBLE *VU,
40263 const INTEGER *IL,
40264 const INTEGER *IU,
40265 const DOUBLE *ABSTOL,
40266 INTEGER *M,
40267 DOUBLE *W,
40268 DOUBLE_COMPLEX *Z,
40269 const INTEGER *LDZ,
40270 DOUBLE_COMPLEX *WORK,
40271 DOUBLE *RWORK,
40272 INTEGER *IWORK,
40273 INTEGER *IFAIL,
40274 INTEGER *INFO)
40275 {
40276 DEBUG_LAPACK_STUB("zhpevx");
40277 LAPACK_IMPL(zhpevx)(JOBZ,
40278 RANGE,
40279 UPLO,
40280 N,
40281 AP,
40282 VL,
40283 VU,
40284 IL,
40285 IU,
40286 ABSTOL,
40287 M,
40288 W,
40289 Z,
40290 LDZ,
40291 WORK,
40292 RWORK,
40293 IWORK,
40294 IFAIL,
40295 INFO);
40296 }
40297
40298 //-- zhpgst --------------------------------------------------------------------
40299 void
LAPACK_DECL(zhpgst)40300 LAPACK_DECL(zhpgst)(const INTEGER *ITYPE,
40301 const char *UPLO,
40302 const INTEGER *N,
40303 DOUBLE_COMPLEX *AP,
40304 const DOUBLE_COMPLEX *BP,
40305 INTEGER *INFO)
40306 {
40307 DEBUG_LAPACK_STUB("zhpgst");
40308 LAPACK_IMPL(zhpgst)(ITYPE,
40309 UPLO,
40310 N,
40311 AP,
40312 BP,
40313 INFO);
40314 }
40315
40316 //-- zhpgv ---------------------------------------------------------------------
40317 void
LAPACK_DECL(zhpgv)40318 LAPACK_DECL(zhpgv)(const INTEGER *ITYPE,
40319 const char *JOBZ,
40320 const char *UPLO,
40321 const INTEGER *N,
40322 DOUBLE_COMPLEX *AP,
40323 DOUBLE_COMPLEX *BP,
40324 DOUBLE *W,
40325 DOUBLE_COMPLEX *Z,
40326 const INTEGER *LDZ,
40327 DOUBLE_COMPLEX *WORK,
40328 DOUBLE *RWORK,
40329 INTEGER *INFO)
40330 {
40331 DEBUG_LAPACK_STUB("zhpgv");
40332 LAPACK_IMPL(zhpgv)(ITYPE,
40333 JOBZ,
40334 UPLO,
40335 N,
40336 AP,
40337 BP,
40338 W,
40339 Z,
40340 LDZ,
40341 WORK,
40342 RWORK,
40343 INFO);
40344 }
40345
40346 //-- zhpgvd --------------------------------------------------------------------
40347 void
LAPACK_DECL(zhpgvd)40348 LAPACK_DECL(zhpgvd)(const INTEGER *ITYPE,
40349 const char *JOBZ,
40350 const char *UPLO,
40351 const INTEGER *N,
40352 DOUBLE_COMPLEX *AP,
40353 DOUBLE_COMPLEX *BP,
40354 DOUBLE *W,
40355 DOUBLE_COMPLEX *Z,
40356 const INTEGER *LDZ,
40357 DOUBLE_COMPLEX *WORK,
40358 const INTEGER *LWORK,
40359 DOUBLE *RWORK,
40360 const INTEGER *LRWORK,
40361 INTEGER *IWORK,
40362 const INTEGER *LIWORK,
40363 INTEGER *INFO)
40364 {
40365 DEBUG_LAPACK_STUB("zhpgvd");
40366 LAPACK_IMPL(zhpgvd)(ITYPE,
40367 JOBZ,
40368 UPLO,
40369 N,
40370 AP,
40371 BP,
40372 W,
40373 Z,
40374 LDZ,
40375 WORK,
40376 LWORK,
40377 RWORK,
40378 LRWORK,
40379 IWORK,
40380 LIWORK,
40381 INFO);
40382 }
40383
40384 //-- zhpgvx --------------------------------------------------------------------
40385 void
LAPACK_DECL(zhpgvx)40386 LAPACK_DECL(zhpgvx)(const INTEGER *ITYPE,
40387 const char *JOBZ,
40388 const char *RANGE,
40389 const char *UPLO,
40390 const INTEGER *N,
40391 DOUBLE_COMPLEX *AP,
40392 DOUBLE_COMPLEX *BP,
40393 const DOUBLE *VL,
40394 const DOUBLE *VU,
40395 const INTEGER *IL,
40396 const INTEGER *IU,
40397 const DOUBLE *ABSTOL,
40398 INTEGER *M,
40399 DOUBLE *W,
40400 DOUBLE_COMPLEX *Z,
40401 const INTEGER *LDZ,
40402 DOUBLE_COMPLEX *WORK,
40403 DOUBLE *RWORK,
40404 INTEGER *IWORK,
40405 INTEGER *IFAIL,
40406 INTEGER *INFO)
40407 {
40408 DEBUG_LAPACK_STUB("zhpgvx");
40409 LAPACK_IMPL(zhpgvx)(ITYPE,
40410 JOBZ,
40411 RANGE,
40412 UPLO,
40413 N,
40414 AP,
40415 BP,
40416 VL,
40417 VU,
40418 IL,
40419 IU,
40420 ABSTOL,
40421 M,
40422 W,
40423 Z,
40424 LDZ,
40425 WORK,
40426 RWORK,
40427 IWORK,
40428 IFAIL,
40429 INFO);
40430 }
40431
40432 //-- zhprfs --------------------------------------------------------------------
40433 void
LAPACK_DECL(zhprfs)40434 LAPACK_DECL(zhprfs)(const char *UPLO,
40435 const INTEGER *N,
40436 const INTEGER *NRHS,
40437 const DOUBLE_COMPLEX *AP,
40438 const DOUBLE_COMPLEX *AFP,
40439 const INTEGER *IPIV,
40440 const DOUBLE_COMPLEX *B,
40441 const INTEGER *LDB,
40442 DOUBLE_COMPLEX *X,
40443 const INTEGER *LDX,
40444 DOUBLE *FERR,
40445 DOUBLE *BERR,
40446 DOUBLE_COMPLEX *WORK,
40447 DOUBLE *RWORK,
40448 INTEGER *INFO)
40449 {
40450 DEBUG_LAPACK_STUB("zhprfs");
40451 LAPACK_IMPL(zhprfs)(UPLO,
40452 N,
40453 NRHS,
40454 AP,
40455 AFP,
40456 IPIV,
40457 B,
40458 LDB,
40459 X,
40460 LDX,
40461 FERR,
40462 BERR,
40463 WORK,
40464 RWORK,
40465 INFO);
40466 }
40467
40468 //-- zhpsv ---------------------------------------------------------------------
40469 void
LAPACK_DECL(zhpsv)40470 LAPACK_DECL(zhpsv)(const char *UPLO,
40471 const INTEGER *N,
40472 const INTEGER *NRHS,
40473 DOUBLE_COMPLEX *AP,
40474 INTEGER *IPIV,
40475 DOUBLE_COMPLEX *B,
40476 const INTEGER *LDB,
40477 INTEGER *INFO)
40478 {
40479 DEBUG_LAPACK_STUB("zhpsv");
40480 LAPACK_IMPL(zhpsv)(UPLO,
40481 N,
40482 NRHS,
40483 AP,
40484 IPIV,
40485 B,
40486 LDB,
40487 INFO);
40488 }
40489
40490 //-- zhpsvx --------------------------------------------------------------------
40491 void
LAPACK_DECL(zhpsvx)40492 LAPACK_DECL(zhpsvx)(const char *FACT,
40493 const char *UPLO,
40494 const INTEGER *N,
40495 const INTEGER *NRHS,
40496 const DOUBLE_COMPLEX *AP,
40497 DOUBLE_COMPLEX *AFP,
40498 INTEGER *IPIV,
40499 const DOUBLE_COMPLEX *B,
40500 const INTEGER *LDB,
40501 DOUBLE_COMPLEX *X,
40502 const INTEGER *LDX,
40503 DOUBLE *RCOND,
40504 DOUBLE *FERR,
40505 DOUBLE *BERR,
40506 DOUBLE_COMPLEX *WORK,
40507 DOUBLE *RWORK,
40508 INTEGER *INFO)
40509 {
40510 DEBUG_LAPACK_STUB("zhpsvx");
40511 LAPACK_IMPL(zhpsvx)(FACT,
40512 UPLO,
40513 N,
40514 NRHS,
40515 AP,
40516 AFP,
40517 IPIV,
40518 B,
40519 LDB,
40520 X,
40521 LDX,
40522 RCOND,
40523 FERR,
40524 BERR,
40525 WORK,
40526 RWORK,
40527 INFO);
40528 }
40529
40530 //-- zhptrd --------------------------------------------------------------------
40531 void
LAPACK_DECL(zhptrd)40532 LAPACK_DECL(zhptrd)(const char *UPLO,
40533 const INTEGER *N,
40534 DOUBLE_COMPLEX *AP,
40535 DOUBLE *D,
40536 DOUBLE *E,
40537 DOUBLE_COMPLEX *TAU,
40538 INTEGER *INFO)
40539 {
40540 DEBUG_LAPACK_STUB("zhptrd");
40541 LAPACK_IMPL(zhptrd)(UPLO,
40542 N,
40543 AP,
40544 D,
40545 E,
40546 TAU,
40547 INFO);
40548 }
40549
40550 //-- zhptrf --------------------------------------------------------------------
40551 void
LAPACK_DECL(zhptrf)40552 LAPACK_DECL(zhptrf)(const char *UPLO,
40553 const INTEGER *N,
40554 DOUBLE_COMPLEX *AP,
40555 INTEGER *IPIV,
40556 INTEGER *INFO)
40557 {
40558 DEBUG_LAPACK_STUB("zhptrf");
40559 LAPACK_IMPL(zhptrf)(UPLO,
40560 N,
40561 AP,
40562 IPIV,
40563 INFO);
40564 }
40565
40566 //-- zhptri --------------------------------------------------------------------
40567 void
LAPACK_DECL(zhptri)40568 LAPACK_DECL(zhptri)(const char *UPLO,
40569 const INTEGER *N,
40570 DOUBLE_COMPLEX *AP,
40571 const INTEGER *IPIV,
40572 DOUBLE_COMPLEX *WORK,
40573 INTEGER *INFO)
40574 {
40575 DEBUG_LAPACK_STUB("zhptri");
40576 LAPACK_IMPL(zhptri)(UPLO,
40577 N,
40578 AP,
40579 IPIV,
40580 WORK,
40581 INFO);
40582 }
40583
40584 //-- zhptrs --------------------------------------------------------------------
40585 void
LAPACK_DECL(zhptrs)40586 LAPACK_DECL(zhptrs)(const char *UPLO,
40587 const INTEGER *N,
40588 const INTEGER *NRHS,
40589 const DOUBLE_COMPLEX *AP,
40590 const INTEGER *IPIV,
40591 DOUBLE_COMPLEX *B,
40592 const INTEGER *LDB,
40593 INTEGER *INFO)
40594 {
40595 DEBUG_LAPACK_STUB("zhptrs");
40596 LAPACK_IMPL(zhptrs)(UPLO,
40597 N,
40598 NRHS,
40599 AP,
40600 IPIV,
40601 B,
40602 LDB,
40603 INFO);
40604 }
40605
40606 //-- zhsein --------------------------------------------------------------------
40607 void
LAPACK_DECL(zhsein)40608 LAPACK_DECL(zhsein)(const char *SIDE,
40609 const char *EIGSRC,
40610 const char *INITV,
40611 const LOGICAL *SELECT,
40612 const INTEGER *N,
40613 const DOUBLE_COMPLEX *H,
40614 const INTEGER *LDH,
40615 DOUBLE_COMPLEX *W,
40616 DOUBLE_COMPLEX *VL,
40617 const INTEGER *LDVL,
40618 DOUBLE_COMPLEX *VR,
40619 const INTEGER *LDVR,
40620 const INTEGER *MM,
40621 INTEGER *M,
40622 DOUBLE_COMPLEX *WORK,
40623 DOUBLE *RWORK,
40624 INTEGER *IFAILL,
40625 INTEGER *IFAILR,
40626 INTEGER *INFO)
40627 {
40628 DEBUG_LAPACK_STUB("zhsein");
40629 LAPACK_IMPL(zhsein)(SIDE,
40630 EIGSRC,
40631 INITV,
40632 SELECT,
40633 N,
40634 H,
40635 LDH,
40636 W,
40637 VL,
40638 LDVL,
40639 VR,
40640 LDVR,
40641 MM,
40642 M,
40643 WORK,
40644 RWORK,
40645 IFAILL,
40646 IFAILR,
40647 INFO);
40648 }
40649
40650 //-- zhseqr --------------------------------------------------------------------
40651 void
LAPACK_DECL(zhseqr)40652 LAPACK_DECL(zhseqr)(const char *JOB,
40653 const char *COMPZ,
40654 const INTEGER *N,
40655 const INTEGER *ILO,
40656 const INTEGER *IHI,
40657 DOUBLE_COMPLEX *H,
40658 const INTEGER *LDH,
40659 DOUBLE_COMPLEX *W,
40660 DOUBLE_COMPLEX *Z,
40661 const INTEGER *LDZ,
40662 DOUBLE_COMPLEX *WORK,
40663 const INTEGER *LWORK,
40664 INTEGER *INFO)
40665 {
40666 DEBUG_LAPACK_STUB("zhseqr");
40667 LAPACK_IMPL(zhseqr)(JOB,
40668 COMPZ,
40669 N,
40670 ILO,
40671 IHI,
40672 H,
40673 LDH,
40674 W,
40675 Z,
40676 LDZ,
40677 WORK,
40678 LWORK,
40679 INFO);
40680 }
40681
40682 //-- zla_gbamv -----------------------------------------------------------------
40683 void
LAPACK_DECL(zla_gbamv)40684 LAPACK_DECL(zla_gbamv)(const INTEGER *TRANS,
40685 const INTEGER *M,
40686 const INTEGER *N,
40687 const INTEGER *KL,
40688 const INTEGER *KU,
40689 const DOUBLE *ALPHA,
40690 const DOUBLE_COMPLEX *AB,
40691 const INTEGER *LDAB,
40692 const DOUBLE_COMPLEX *X,
40693 const INTEGER *INCX,
40694 const DOUBLE *BETA,
40695 DOUBLE *Y,
40696 const INTEGER *INCY)
40697 {
40698 DEBUG_LAPACK_STUB("zla_gbamv");
40699 LAPACK_IMPL(zla_gbamv)(TRANS,
40700 M,
40701 N,
40702 KL,
40703 KU,
40704 ALPHA,
40705 AB,
40706 LDAB,
40707 X,
40708 INCX,
40709 BETA,
40710 Y,
40711 INCY);
40712 }
40713
40714 //-- zla_gbrcond_c -------------------------------------------------------------
40715 DOUBLE
LAPACK_DECL(zla_gbrcond_c)40716 LAPACK_DECL(zla_gbrcond_c)(const char *TRANS,
40717 const INTEGER *N,
40718 const INTEGER *KL,
40719 const INTEGER *KU,
40720 const DOUBLE_COMPLEX *AB,
40721 const INTEGER *LDAB,
40722 const DOUBLE_COMPLEX *AFB,
40723 const INTEGER *LDAFB,
40724 const INTEGER *IPIV,
40725 const DOUBLE *C,
40726 const LOGICAL *CAPPLY,
40727 INTEGER *INFO,
40728 const DOUBLE_COMPLEX *WORK,
40729 const DOUBLE *RWORK)
40730 {
40731 DEBUG_LAPACK_STUB("zla_gbrcond_c");
40732 return LAPACK_IMPL(zla_gbrcond_c)(TRANS,
40733 N,
40734 KL,
40735 KU,
40736 AB,
40737 LDAB,
40738 AFB,
40739 LDAFB,
40740 IPIV,
40741 C,
40742 CAPPLY,
40743 INFO,
40744 WORK,
40745 RWORK);
40746 }
40747
40748 //-- zla_gbrcond_x -------------------------------------------------------------
40749 DOUBLE
LAPACK_DECL(zla_gbrcond_x)40750 LAPACK_DECL(zla_gbrcond_x)(const char *TRANS,
40751 const INTEGER *N,
40752 const INTEGER *KL,
40753 const INTEGER *KU,
40754 const DOUBLE_COMPLEX *AB,
40755 const INTEGER *LDAB,
40756 const DOUBLE_COMPLEX *AFB,
40757 const INTEGER *LDAFB,
40758 const INTEGER *IPIV,
40759 const DOUBLE_COMPLEX *X,
40760 INTEGER *INFO,
40761 const DOUBLE_COMPLEX *WORK,
40762 const DOUBLE *RWORK)
40763 {
40764 DEBUG_LAPACK_STUB("zla_gbrcond_x");
40765 return LAPACK_IMPL(zla_gbrcond_x)(TRANS,
40766 N,
40767 KL,
40768 KU,
40769 AB,
40770 LDAB,
40771 AFB,
40772 LDAFB,
40773 IPIV,
40774 X,
40775 INFO,
40776 WORK,
40777 RWORK);
40778 }
40779
40780 //-- zla_gbrfsx_extended -------------------------------------------------------
40781 void
LAPACK_DECL(zla_gbrfsx_extended)40782 LAPACK_DECL(zla_gbrfsx_extended)(const INTEGER *PREC_TYPE,
40783 const INTEGER *TRANS_TYPE,
40784 const INTEGER *N,
40785 const INTEGER *KL,
40786 const INTEGER *KU,
40787 const INTEGER *NRHS,
40788 const DOUBLE_COMPLEX *AB,
40789 const INTEGER *LDAB,
40790 const DOUBLE_COMPLEX *AFB,
40791 const INTEGER *LDAFB,
40792 const INTEGER *IPIV,
40793 const LOGICAL *COLEQU,
40794 const DOUBLE *C,
40795 const DOUBLE_COMPLEX *B,
40796 const INTEGER *LDB,
40797 DOUBLE_COMPLEX *Y,
40798 const INTEGER *LDY,
40799 DOUBLE *BERR_OUT,
40800 const INTEGER *N_NORMS,
40801 DOUBLE *ERR_BNDS_NORM,
40802 DOUBLE *ERR_BNDS_COMP,
40803 const DOUBLE_COMPLEX *RES,
40804 const DOUBLE *AYB,
40805 const DOUBLE_COMPLEX *DY,
40806 const DOUBLE_COMPLEX *Y_TAIL,
40807 const DOUBLE *RCOND,
40808 const INTEGER *ITHRESH,
40809 const DOUBLE *RTHRESH,
40810 const DOUBLE *DZ_UB,
40811 const LOGICAL *IGNORE_CWISE,
40812 INTEGER *INFO)
40813 {
40814 DEBUG_LAPACK_STUB("zla_gbrfsx_extended");
40815 ASSERT(0);
40816 /*
40817 LAPACK_IMPL(zla_gbrfsx_extended)(PREC_TYPE,
40818 TRANS_TYPE,
40819 N,
40820 KL,
40821 KU,
40822 NRHS,
40823 AB,
40824 LDAB,
40825 AFB,
40826 LDAFB,
40827 IPIV,
40828 COLEQU,
40829 C,
40830 B,
40831 LDB,
40832 Y,
40833 LDY,
40834 BERR_OUT,
40835 N_NORMS,
40836 ERR_BNDS_NORM,
40837 ERR_BNDS_COMP,
40838 RES,
40839 AYB,
40840 DY,
40841 Y_TAIL,
40842 RCOND,
40843 ITHRESH,
40844 RTHRESH,
40845 DZ_UB,
40846 IGNORE_CWISE,
40847 INFO);
40848 */
40849 }
40850
40851 //-- zla_gbrpvgrw --------------------------------------------------------------
40852 DOUBLE
LAPACK_DECL(zla_gbrpvgrw)40853 LAPACK_DECL(zla_gbrpvgrw)(const INTEGER *N,
40854 const INTEGER *KL,
40855 const INTEGER *KU,
40856 const INTEGER *NCOLS,
40857 const DOUBLE_COMPLEX *AB,
40858 const INTEGER *LDAB,
40859 const DOUBLE_COMPLEX *AFB,
40860 const INTEGER *LDAFB)
40861 {
40862 DEBUG_LAPACK_STUB("zla_gbrpvgrw");
40863 return LAPACK_IMPL(zla_gbrpvgrw)(N,
40864 KL,
40865 KU,
40866 NCOLS,
40867 AB,
40868 LDAB,
40869 AFB,
40870 LDAFB);
40871 }
40872
40873 //-- zla_geamv -----------------------------------------------------------------
40874 void
LAPACK_DECL(zla_geamv)40875 LAPACK_DECL(zla_geamv)(const INTEGER *TRANS,
40876 const INTEGER *M,
40877 const INTEGER *N,
40878 const DOUBLE *ALPHA,
40879 const DOUBLE_COMPLEX *A,
40880 const INTEGER *LDA,
40881 const DOUBLE_COMPLEX *X,
40882 const INTEGER *INCX,
40883 const DOUBLE *BETA,
40884 DOUBLE *Y,
40885 const INTEGER *INCY)
40886 {
40887 DEBUG_LAPACK_STUB("zla_geamv");
40888 LAPACK_IMPL(zla_geamv)(TRANS,
40889 M,
40890 N,
40891 ALPHA,
40892 A,
40893 LDA,
40894 X,
40895 INCX,
40896 BETA,
40897 Y,
40898 INCY);
40899 }
40900
40901 //-- zla_gercond_c -------------------------------------------------------------
40902 DOUBLE
LAPACK_DECL(zla_gercond_c)40903 LAPACK_DECL(zla_gercond_c)(const char *TRANS,
40904 const INTEGER *N,
40905 const DOUBLE_COMPLEX *A,
40906 const INTEGER *LDA,
40907 const DOUBLE_COMPLEX *AF,
40908 const INTEGER *LDAF,
40909 const INTEGER *IPIV,
40910 const DOUBLE *C,
40911 const LOGICAL *CAPPLY,
40912 INTEGER *INFO,
40913 const DOUBLE_COMPLEX *WORK,
40914 const DOUBLE *RWORK)
40915 {
40916 DEBUG_LAPACK_STUB("zla_gercond_c");
40917 return LAPACK_IMPL(zla_gercond_c)(TRANS,
40918 N,
40919 A,
40920 LDA,
40921 AF,
40922 LDAF,
40923 IPIV,
40924 C,
40925 CAPPLY,
40926 INFO,
40927 WORK,
40928 RWORK);
40929 }
40930
40931 //-- zla_gercond_x -------------------------------------------------------------
40932 DOUBLE
LAPACK_DECL(zla_gercond_x)40933 LAPACK_DECL(zla_gercond_x)(const char *TRANS,
40934 const INTEGER *N,
40935 const DOUBLE_COMPLEX *A,
40936 const INTEGER *LDA,
40937 const DOUBLE_COMPLEX *AF,
40938 const INTEGER *LDAF,
40939 const INTEGER *IPIV,
40940 const DOUBLE_COMPLEX *X,
40941 INTEGER *INFO,
40942 const DOUBLE_COMPLEX *WORK,
40943 const DOUBLE *RWORK)
40944 {
40945 DEBUG_LAPACK_STUB("zla_gercond_x");
40946 return LAPACK_IMPL(zla_gercond_x)(TRANS,
40947 N,
40948 A,
40949 LDA,
40950 AF,
40951 LDAF,
40952 IPIV,
40953 X,
40954 INFO,
40955 WORK,
40956 RWORK);
40957 }
40958
40959 //-- zla_gerfsx_extended -------------------------------------------------------
40960 void
LAPACK_DECL(zla_gerfsx_extended)40961 LAPACK_DECL(zla_gerfsx_extended)(const INTEGER *PREC_TYPE,
40962 const INTEGER *TRANS_TYPE,
40963 const INTEGER *N,
40964 const INTEGER *NRHS,
40965 const DOUBLE_COMPLEX *A,
40966 const INTEGER *LDA,
40967 const DOUBLE_COMPLEX *AF,
40968 const INTEGER *LDAF,
40969 const INTEGER *IPIV,
40970 const LOGICAL *COLEQU,
40971 const DOUBLE *C,
40972 const DOUBLE_COMPLEX *B,
40973 const INTEGER *LDB,
40974 DOUBLE_COMPLEX *Y,
40975 const INTEGER *LDY,
40976 DOUBLE *BERR_OUT,
40977 const INTEGER *N_NORMS,
40978 const DOUBLE *ERRS_N,
40979 const DOUBLE *ERRS_C,
40980 const DOUBLE_COMPLEX *RES,
40981 const DOUBLE *AYB,
40982 const DOUBLE_COMPLEX *DY,
40983 const DOUBLE_COMPLEX *Y_TAIL,
40984 const DOUBLE *RCOND,
40985 const INTEGER *ITHRESH,
40986 const DOUBLE *RTHRESH,
40987 const DOUBLE *DZ_UB,
40988 const LOGICAL *IGNORE_CWISE,
40989 INTEGER *INFO)
40990 {
40991 DEBUG_LAPACK_STUB("zla_gerfsx_extended");
40992 ASSERT(0);
40993 /*
40994 LAPACK_IMPL(zla_gerfsx_extended)(PREC_TYPE,
40995 TRANS_TYPE,
40996 N,
40997 NRHS,
40998 A,
40999 LDA,
41000 AF,
41001 LDAF,
41002 IPIV,
41003 COLEQU,
41004 C,
41005 B,
41006 LDB,
41007 Y,
41008 LDY,
41009 BERR_OUT,
41010 N_NORMS,
41011 ERRS_N,
41012 ERRS_C,
41013 RES,
41014 AYB,
41015 DY,
41016 Y_TAIL,
41017 RCOND,
41018 ITHRESH,
41019 RTHRESH,
41020 DZ_UB,
41021 IGNORE_CWISE,
41022 INFO);
41023 */
41024 }
41025
41026 //-- zla_heamv -----------------------------------------------------------------
41027 void
LAPACK_DECL(zla_heamv)41028 LAPACK_DECL(zla_heamv)(const INTEGER *UPLO,
41029 const INTEGER *N,
41030 const DOUBLE *ALPHA,
41031 const DOUBLE_COMPLEX *A,
41032 const INTEGER *LDA,
41033 const DOUBLE_COMPLEX *X,
41034 const INTEGER *INCX,
41035 const DOUBLE *BETA,
41036 DOUBLE *Y,
41037 const INTEGER *INCY)
41038 {
41039 DEBUG_LAPACK_STUB("zla_heamv");
41040 LAPACK_IMPL(zla_heamv)(UPLO,
41041 N,
41042 ALPHA,
41043 A,
41044 LDA,
41045 X,
41046 INCX,
41047 BETA,
41048 Y,
41049 INCY);
41050 }
41051
41052 //-- zla_hercond_c -------------------------------------------------------------
41053 DOUBLE
LAPACK_DECL(zla_hercond_c)41054 LAPACK_DECL(zla_hercond_c)(const char *UPLO,
41055 const INTEGER *N,
41056 const DOUBLE_COMPLEX *A,
41057 const INTEGER *LDA,
41058 const DOUBLE_COMPLEX *AF,
41059 const INTEGER *LDAF,
41060 const INTEGER *IPIV,
41061 const DOUBLE *C,
41062 const LOGICAL *CAPPLY,
41063 INTEGER *INFO,
41064 const DOUBLE_COMPLEX *WORK,
41065 const DOUBLE *RWORK)
41066 {
41067 DEBUG_LAPACK_STUB("zla_hercond_c");
41068 return LAPACK_IMPL(zla_hercond_c)(UPLO,
41069 N,
41070 A,
41071 LDA,
41072 AF,
41073 LDAF,
41074 IPIV,
41075 C,
41076 CAPPLY,
41077 INFO,
41078 WORK,
41079 RWORK);
41080 }
41081
41082 //-- zla_hercond_x -------------------------------------------------------------
41083 DOUBLE
LAPACK_DECL(zla_hercond_x)41084 LAPACK_DECL(zla_hercond_x)(const char *UPLO,
41085 const INTEGER *N,
41086 const DOUBLE_COMPLEX *A,
41087 const INTEGER *LDA,
41088 const DOUBLE_COMPLEX *AF,
41089 const INTEGER *LDAF,
41090 const INTEGER *IPIV,
41091 const DOUBLE_COMPLEX *X,
41092 INTEGER *INFO,
41093 const DOUBLE_COMPLEX *WORK,
41094 const DOUBLE *RWORK)
41095 {
41096 DEBUG_LAPACK_STUB("zla_hercond_x");
41097 return LAPACK_IMPL(zla_hercond_x)(UPLO,
41098 N,
41099 A,
41100 LDA,
41101 AF,
41102 LDAF,
41103 IPIV,
41104 X,
41105 INFO,
41106 WORK,
41107 RWORK);
41108 }
41109
41110 //-- zla_herfsx_extended -------------------------------------------------------
41111 void
LAPACK_DECL(zla_herfsx_extended)41112 LAPACK_DECL(zla_herfsx_extended)(const INTEGER *PREC_TYPE,
41113 const char *UPLO,
41114 const INTEGER *N,
41115 const INTEGER *NRHS,
41116 const DOUBLE_COMPLEX *A,
41117 const INTEGER *LDA,
41118 const DOUBLE_COMPLEX *AF,
41119 const INTEGER *LDAF,
41120 const INTEGER *IPIV,
41121 const LOGICAL *COLEQU,
41122 const DOUBLE *C,
41123 const DOUBLE_COMPLEX *B,
41124 const INTEGER *LDB,
41125 DOUBLE_COMPLEX *Y,
41126 const INTEGER *LDY,
41127 DOUBLE *BERR_OUT,
41128 const INTEGER *N_NORMS,
41129 DOUBLE *ERR_BNDS_NORM,
41130 DOUBLE *ERR_BNDS_COMP,
41131 const DOUBLE_COMPLEX *RES,
41132 const DOUBLE *AYB,
41133 const DOUBLE_COMPLEX *DY,
41134 const DOUBLE_COMPLEX *Y_TAIL,
41135 const DOUBLE *RCOND,
41136 const INTEGER *ITHRESH,
41137 const DOUBLE *RTHRESH,
41138 const DOUBLE *DZ_UB,
41139 const LOGICAL *IGNORE_CWISE,
41140 INTEGER *INFO)
41141 {
41142 DEBUG_LAPACK_STUB("zla_herfsx_extended");
41143 ASSERT(0);
41144 /*
41145 LAPACK_IMPL(zla_herfsx_extended)(PREC_TYPE,
41146 UPLO,
41147 N,
41148 NRHS,
41149 A,
41150 LDA,
41151 AF,
41152 LDAF,
41153 IPIV,
41154 COLEQU,
41155 C,
41156 B,
41157 LDB,
41158 Y,
41159 LDY,
41160 BERR_OUT,
41161 N_NORMS,
41162 ERR_BNDS_NORM,
41163 ERR_BNDS_COMP,
41164 RES,
41165 AYB,
41166 DY,
41167 Y_TAIL,
41168 RCOND,
41169 ITHRESH,
41170 RTHRESH,
41171 DZ_UB,
41172 IGNORE_CWISE,
41173 INFO);
41174 */
41175 }
41176
41177 //-- zla_herpvgrw --------------------------------------------------------------
41178 DOUBLE
LAPACK_DECL(zla_herpvgrw)41179 LAPACK_DECL(zla_herpvgrw)(const char *UPLO,
41180 const INTEGER *N,
41181 const INTEGER *INFO,
41182 const DOUBLE_COMPLEX *A,
41183 const INTEGER *LDA,
41184 const DOUBLE_COMPLEX *AF,
41185 const INTEGER *LDAF,
41186 const INTEGER *IPIV,
41187 const DOUBLE *WORK)
41188 {
41189 DEBUG_LAPACK_STUB("zla_herpvgrw");
41190 return LAPACK_IMPL(zla_herpvgrw)(UPLO,
41191 N,
41192 INFO,
41193 A,
41194 LDA,
41195 AF,
41196 LDAF,
41197 IPIV,
41198 WORK);
41199 }
41200
41201 //-- zla_lin_berr --------------------------------------------------------------
41202 void
LAPACK_DECL(zla_lin_berr)41203 LAPACK_DECL(zla_lin_berr)(const INTEGER *N,
41204 const INTEGER *NZ,
41205 const INTEGER *NRHS,
41206 const DOUBLE_COMPLEX *RES,
41207 const DOUBLE *AYB,
41208 DOUBLE *BERR)
41209 {
41210 DEBUG_LAPACK_STUB("zla_lin_berr");
41211 LAPACK_IMPL(zla_lin_berr)(N,
41212 NZ,
41213 NRHS,
41214 RES,
41215 AYB,
41216 BERR);
41217 }
41218
41219 //-- zla_porcond_c -------------------------------------------------------------
41220 DOUBLE
LAPACK_DECL(zla_porcond_c)41221 LAPACK_DECL(zla_porcond_c)(const char *UPLO,
41222 const INTEGER *N,
41223 const DOUBLE_COMPLEX *A,
41224 const INTEGER *LDA,
41225 const DOUBLE_COMPLEX *AF,
41226 const INTEGER *LDAF,
41227 const DOUBLE *C,
41228 const LOGICAL *CAPPLY,
41229 INTEGER *INFO,
41230 const DOUBLE_COMPLEX *WORK,
41231 const DOUBLE *RWORK)
41232 {
41233 DEBUG_LAPACK_STUB("zla_porcond_c");
41234 return LAPACK_IMPL(zla_porcond_c)(UPLO,
41235 N,
41236 A,
41237 LDA,
41238 AF,
41239 LDAF,
41240 C,
41241 CAPPLY,
41242 INFO,
41243 WORK,
41244 RWORK);
41245 }
41246
41247 //-- zla_porcond_x -------------------------------------------------------------
41248 DOUBLE
LAPACK_DECL(zla_porcond_x)41249 LAPACK_DECL(zla_porcond_x)(const char *UPLO,
41250 const INTEGER *N,
41251 const DOUBLE_COMPLEX *A,
41252 const INTEGER *LDA,
41253 const DOUBLE_COMPLEX *AF,
41254 const INTEGER *LDAF,
41255 const DOUBLE_COMPLEX *X,
41256 INTEGER *INFO,
41257 const DOUBLE_COMPLEX *WORK,
41258 const DOUBLE *RWORK)
41259 {
41260 DEBUG_LAPACK_STUB("zla_porcond_x");
41261 return LAPACK_IMPL(zla_porcond_x)(UPLO,
41262 N,
41263 A,
41264 LDA,
41265 AF,
41266 LDAF,
41267 X,
41268 INFO,
41269 WORK,
41270 RWORK);
41271 }
41272
41273 //-- zla_porfsx_extended -------------------------------------------------------
41274 void
LAPACK_DECL(zla_porfsx_extended)41275 LAPACK_DECL(zla_porfsx_extended)(const INTEGER *PREC_TYPE,
41276 const char *UPLO,
41277 const INTEGER *N,
41278 const INTEGER *NRHS,
41279 const DOUBLE_COMPLEX *A,
41280 const INTEGER *LDA,
41281 const DOUBLE_COMPLEX *AF,
41282 const INTEGER *LDAF,
41283 const LOGICAL *COLEQU,
41284 const DOUBLE *C,
41285 const DOUBLE_COMPLEX *B,
41286 const INTEGER *LDB,
41287 DOUBLE_COMPLEX *Y,
41288 const INTEGER *LDY,
41289 DOUBLE *BERR_OUT,
41290 const INTEGER *N_NORMS,
41291 DOUBLE *ERR_BNDS_NORM,
41292 DOUBLE *ERR_BNDS_COMP,
41293 const DOUBLE_COMPLEX *RES,
41294 const DOUBLE *AYB,
41295 const DOUBLE_COMPLEX *DY,
41296 const DOUBLE_COMPLEX *Y_TAIL,
41297 const DOUBLE *RCOND,
41298 const INTEGER *ITHRESH,
41299 const DOUBLE *RTHRESH,
41300 const DOUBLE *DZ_UB,
41301 const LOGICAL *IGNORE_CWISE,
41302 INTEGER *INFO)
41303 {
41304 DEBUG_LAPACK_STUB("zla_porfsx_extended");
41305 ASSERT(0);
41306 /*
41307 LAPACK_IMPL(zla_porfsx_extended)(PREC_TYPE,
41308 UPLO,
41309 N,
41310 NRHS,
41311 A,
41312 LDA,
41313 AF,
41314 LDAF,
41315 COLEQU,
41316 C,
41317 B,
41318 LDB,
41319 Y,
41320 LDY,
41321 BERR_OUT,
41322 N_NORMS,
41323 ERR_BNDS_NORM,
41324 ERR_BNDS_COMP,
41325 RES,
41326 AYB,
41327 DY,
41328 Y_TAIL,
41329 RCOND,
41330 ITHRESH,
41331 RTHRESH,
41332 DZ_UB,
41333 IGNORE_CWISE,
41334 INFO);
41335 */
41336 }
41337
41338 //-- zla_porpvgrw --------------------------------------------------------------
41339 DOUBLE
LAPACK_DECL(zla_porpvgrw)41340 LAPACK_DECL(zla_porpvgrw)(const char *UPLO,
41341 const INTEGER *NCOLS,
41342 const DOUBLE_COMPLEX *A,
41343 const INTEGER *LDA,
41344 const DOUBLE_COMPLEX *AF,
41345 const INTEGER *LDAF,
41346 const DOUBLE *WORK)
41347 {
41348 DEBUG_LAPACK_STUB("zla_porpvgrw");
41349 return LAPACK_IMPL(zla_porpvgrw)(UPLO,
41350 NCOLS,
41351 A,
41352 LDA,
41353 AF,
41354 LDAF,
41355 WORK);
41356 }
41357
41358 //-- zla_rpvgrw ----------------------------------------------------------------
41359 DOUBLE
LAPACK_DECL(zla_rpvgrw)41360 LAPACK_DECL(zla_rpvgrw)(const INTEGER *N,
41361 const INTEGER *NCOLS,
41362 const DOUBLE_COMPLEX *A,
41363 const INTEGER *LDA,
41364 const DOUBLE_COMPLEX *AF,
41365 const INTEGER *LDAF)
41366 {
41367 DEBUG_LAPACK_STUB("zla_rpvgrw");
41368 return LAPACK_IMPL(zla_rpvgrw)(N,
41369 NCOLS,
41370 A,
41371 LDA,
41372 AF,
41373 LDAF);
41374 }
41375
41376 //-- zla_syamv -----------------------------------------------------------------
41377 void
LAPACK_DECL(zla_syamv)41378 LAPACK_DECL(zla_syamv)(const INTEGER *UPLO,
41379 const INTEGER *N,
41380 const DOUBLE *ALPHA,
41381 const DOUBLE_COMPLEX *A,
41382 const INTEGER *LDA,
41383 const DOUBLE_COMPLEX *X,
41384 const INTEGER *INCX,
41385 const DOUBLE *BETA,
41386 DOUBLE *Y,
41387 const INTEGER *INCY)
41388 {
41389 DEBUG_LAPACK_STUB("zla_syamv");
41390 LAPACK_IMPL(zla_syamv)(UPLO,
41391 N,
41392 ALPHA,
41393 A,
41394 LDA,
41395 X,
41396 INCX,
41397 BETA,
41398 Y,
41399 INCY);
41400 }
41401
41402 //-- zla_syrcond_c -------------------------------------------------------------
41403 DOUBLE
LAPACK_DECL(zla_syrcond_c)41404 LAPACK_DECL(zla_syrcond_c)(const char *UPLO,
41405 const INTEGER *N,
41406 const DOUBLE_COMPLEX *A,
41407 const INTEGER *LDA,
41408 const DOUBLE_COMPLEX *AF,
41409 const INTEGER *LDAF,
41410 const INTEGER *IPIV,
41411 const DOUBLE *C,
41412 const LOGICAL *CAPPLY,
41413 INTEGER *INFO,
41414 const DOUBLE_COMPLEX *WORK,
41415 const DOUBLE *RWORK)
41416 {
41417 DEBUG_LAPACK_STUB("zla_syrcond_c");
41418 return LAPACK_IMPL(zla_syrcond_c)(UPLO,
41419 N,
41420 A,
41421 LDA,
41422 AF,
41423 LDAF,
41424 IPIV,
41425 C,
41426 CAPPLY,
41427 INFO,
41428 WORK,
41429 RWORK);
41430 }
41431
41432 //-- zla_syrcond_x -------------------------------------------------------------
41433 DOUBLE
LAPACK_DECL(zla_syrcond_x)41434 LAPACK_DECL(zla_syrcond_x)(const char *UPLO,
41435 const INTEGER *N,
41436 const DOUBLE_COMPLEX *A,
41437 const INTEGER *LDA,
41438 const DOUBLE_COMPLEX *AF,
41439 const INTEGER *LDAF,
41440 const INTEGER *IPIV,
41441 const DOUBLE_COMPLEX *X,
41442 INTEGER *INFO,
41443 const DOUBLE_COMPLEX *WORK,
41444 const DOUBLE *RWORK)
41445 {
41446 DEBUG_LAPACK_STUB("zla_syrcond_x");
41447 return LAPACK_IMPL(zla_syrcond_x)(UPLO,
41448 N,
41449 A,
41450 LDA,
41451 AF,
41452 LDAF,
41453 IPIV,
41454 X,
41455 INFO,
41456 WORK,
41457 RWORK);
41458 }
41459
41460 //-- zla_syrfsx_extended -------------------------------------------------------
41461 void
LAPACK_DECL(zla_syrfsx_extended)41462 LAPACK_DECL(zla_syrfsx_extended)(const INTEGER *PREC_TYPE,
41463 const char *UPLO,
41464 const INTEGER *N,
41465 const INTEGER *NRHS,
41466 const DOUBLE_COMPLEX *A,
41467 const INTEGER *LDA,
41468 const DOUBLE_COMPLEX *AF,
41469 const INTEGER *LDAF,
41470 const INTEGER *IPIV,
41471 const LOGICAL *COLEQU,
41472 const DOUBLE *C,
41473 const DOUBLE_COMPLEX *B,
41474 const INTEGER *LDB,
41475 DOUBLE_COMPLEX *Y,
41476 const INTEGER *LDY,
41477 DOUBLE *BERR_OUT,
41478 const INTEGER *N_NORMS,
41479 DOUBLE *ERR_BNDS_NORM,
41480 DOUBLE *ERR_BNDS_COMP,
41481 const DOUBLE_COMPLEX *RES,
41482 const DOUBLE *AYB,
41483 const DOUBLE_COMPLEX *DY,
41484 const DOUBLE_COMPLEX *Y_TAIL,
41485 const DOUBLE *RCOND,
41486 const INTEGER *ITHRESH,
41487 const DOUBLE *RTHRESH,
41488 const DOUBLE *DZ_UB,
41489 const LOGICAL *IGNORE_CWISE,
41490 INTEGER *INFO)
41491 {
41492 DEBUG_LAPACK_STUB("zla_syrfsx_extended");
41493 ASSERT(0);
41494 /*
41495 LAPACK_IMPL(zla_syrfsx_extended)(PREC_TYPE,
41496 UPLO,
41497 N,
41498 NRHS,
41499 A,
41500 LDA,
41501 AF,
41502 LDAF,
41503 IPIV,
41504 COLEQU,
41505 C,
41506 B,
41507 LDB,
41508 Y,
41509 LDY,
41510 BERR_OUT,
41511 N_NORMS,
41512 ERR_BNDS_NORM,
41513 ERR_BNDS_COMP,
41514 RES,
41515 AYB,
41516 DY,
41517 Y_TAIL,
41518 RCOND,
41519 ITHRESH,
41520 RTHRESH,
41521 DZ_UB,
41522 IGNORE_CWISE,
41523 INFO);
41524 */
41525 }
41526
41527 //-- zla_syrpvgrw --------------------------------------------------------------
41528 DOUBLE
LAPACK_DECL(zla_syrpvgrw)41529 LAPACK_DECL(zla_syrpvgrw)(const char *UPLO,
41530 const INTEGER *N,
41531 const INTEGER *INFO,
41532 const DOUBLE_COMPLEX *A,
41533 const INTEGER *LDA,
41534 const DOUBLE_COMPLEX *AF,
41535 const INTEGER *LDAF,
41536 const INTEGER *IPIV,
41537 const DOUBLE *WORK)
41538 {
41539 DEBUG_LAPACK_STUB("zla_syrpvgrw");
41540 return LAPACK_IMPL(zla_syrpvgrw)(UPLO,
41541 N,
41542 INFO,
41543 A,
41544 LDA,
41545 AF,
41546 LDAF,
41547 IPIV,
41548 WORK);
41549 }
41550
41551 //-- zla_wwaddw ----------------------------------------------------------------
41552 void
LAPACK_DECL(zla_wwaddw)41553 LAPACK_DECL(zla_wwaddw)(const INTEGER *N,
41554 DOUBLE_COMPLEX *X,
41555 DOUBLE_COMPLEX *Y,
41556 const DOUBLE_COMPLEX *W)
41557 {
41558 DEBUG_LAPACK_STUB("zla_wwaddw");
41559 LAPACK_IMPL(zla_wwaddw)(N,
41560 X,
41561 Y,
41562 W);
41563 }
41564
41565 //-- zlabrd --------------------------------------------------------------------
41566 void
LAPACK_DECL(zlabrd)41567 LAPACK_DECL(zlabrd)(const INTEGER *M,
41568 const INTEGER *N,
41569 const INTEGER *NB,
41570 DOUBLE_COMPLEX *A,
41571 const INTEGER *LDA,
41572 DOUBLE *D,
41573 DOUBLE *E,
41574 DOUBLE_COMPLEX *TAUQ,
41575 DOUBLE_COMPLEX *TAUP,
41576 DOUBLE_COMPLEX *X,
41577 const INTEGER *LDX,
41578 DOUBLE_COMPLEX *Y,
41579 const INTEGER *LDY)
41580 {
41581 DEBUG_LAPACK_STUB("zlabrd");
41582 LAPACK_IMPL(zlabrd)(M,
41583 N,
41584 NB,
41585 A,
41586 LDA,
41587 D,
41588 E,
41589 TAUQ,
41590 TAUP,
41591 X,
41592 LDX,
41593 Y,
41594 LDY);
41595 }
41596
41597 //-- zlacgv --------------------------------------------------------------------
41598 void
LAPACK_DECL(zlacgv)41599 LAPACK_DECL(zlacgv)(const INTEGER *N,
41600 DOUBLE_COMPLEX *X,
41601 const INTEGER *INCX)
41602 {
41603 DEBUG_LAPACK_STUB("zlacgv");
41604 LAPACK_IMPL(zlacgv)(N,
41605 X,
41606 INCX);
41607 }
41608
41609 //-- zlacn2 --------------------------------------------------------------------
41610 void
LAPACK_DECL(zlacn2)41611 LAPACK_DECL(zlacn2)(const INTEGER *N,
41612 DOUBLE_COMPLEX *V,
41613 DOUBLE_COMPLEX *X,
41614 DOUBLE *EST,
41615 INTEGER *KASE,
41616 INTEGER *ISAVE)
41617 {
41618 DEBUG_LAPACK_STUB("zlacn2");
41619 LAPACK_IMPL(zlacn2)(N,
41620 V,
41621 X,
41622 EST,
41623 KASE,
41624 ISAVE);
41625 }
41626
41627 //-- zlacon --------------------------------------------------------------------
41628 void
LAPACK_DECL(zlacon)41629 LAPACK_DECL(zlacon)(const INTEGER *N,
41630 DOUBLE_COMPLEX *V,
41631 DOUBLE_COMPLEX *X,
41632 DOUBLE *EST,
41633 INTEGER *KASE)
41634 {
41635 DEBUG_LAPACK_STUB("zlacon");
41636 LAPACK_IMPL(zlacon)(N,
41637 V,
41638 X,
41639 EST,
41640 KASE);
41641 }
41642
41643 //-- zlacp2 --------------------------------------------------------------------
41644 void
LAPACK_DECL(zlacp2)41645 LAPACK_DECL(zlacp2)(const char *UPLO,
41646 const INTEGER *M,
41647 const INTEGER *N,
41648 const DOUBLE *A,
41649 const INTEGER *LDA,
41650 DOUBLE_COMPLEX *B,
41651 const INTEGER *LDB)
41652 {
41653 DEBUG_LAPACK_STUB("zlacp2");
41654 LAPACK_IMPL(zlacp2)(UPLO,
41655 M,
41656 N,
41657 A,
41658 LDA,
41659 B,
41660 LDB);
41661 }
41662
41663 //-- zlacpy --------------------------------------------------------------------
41664 void
LAPACK_DECL(zlacpy)41665 LAPACK_DECL(zlacpy)(const char *UPLO,
41666 const INTEGER *M,
41667 const INTEGER *N,
41668 const DOUBLE_COMPLEX *A,
41669 const INTEGER *LDA,
41670 DOUBLE_COMPLEX *B,
41671 const INTEGER *LDB)
41672 {
41673 DEBUG_LAPACK_STUB("zlacpy");
41674 LAPACK_IMPL(zlacpy)(UPLO,
41675 M,
41676 N,
41677 A,
41678 LDA,
41679 B,
41680 LDB);
41681 }
41682
41683 //-- zlacrm --------------------------------------------------------------------
41684 void
LAPACK_DECL(zlacrm)41685 LAPACK_DECL(zlacrm)(const INTEGER *M,
41686 const INTEGER *N,
41687 const DOUBLE_COMPLEX *A,
41688 const INTEGER *LDA,
41689 const DOUBLE *B,
41690 const INTEGER *LDB,
41691 const DOUBLE_COMPLEX *C,
41692 const INTEGER *LDC,
41693 DOUBLE *RWORK)
41694 {
41695 DEBUG_LAPACK_STUB("zlacrm");
41696 LAPACK_IMPL(zlacrm)(M,
41697 N,
41698 A,
41699 LDA,
41700 B,
41701 LDB,
41702 C,
41703 LDC,
41704 RWORK);
41705 }
41706
41707 //-- zlacrt --------------------------------------------------------------------
41708 void
LAPACK_DECL(zlacrt)41709 LAPACK_DECL(zlacrt)(const INTEGER *N,
41710 DOUBLE_COMPLEX *CX,
41711 const INTEGER *INCX,
41712 DOUBLE_COMPLEX *CY,
41713 const INTEGER *INCY,
41714 const DOUBLE_COMPLEX *C,
41715 const DOUBLE_COMPLEX *S)
41716 {
41717 DEBUG_LAPACK_STUB("zlacrt");
41718 LAPACK_IMPL(zlacrt)(N,
41719 CX,
41720 INCX,
41721 CY,
41722 INCY,
41723 C,
41724 S);
41725 }
41726
41727 //-- zladiv --------------------------------------------------------------------
41728 UNKNOWN
LAPACK_DECL(zladiv)41729 LAPACK_DECL(zladiv)(const DOUBLE_COMPLEX *X,
41730 const DOUBLE_COMPLEX *Y)
41731 {
41732 DEBUG_LAPACK_STUB("zladiv");
41733 return LAPACK_IMPL(zladiv)(X,
41734 Y);
41735 }
41736
41737 //-- zlaed0 --------------------------------------------------------------------
41738 void
LAPACK_DECL(zlaed0)41739 LAPACK_DECL(zlaed0)(const INTEGER *QSIZ,
41740 const INTEGER *N,
41741 DOUBLE *D,
41742 DOUBLE *E,
41743 DOUBLE_COMPLEX *Q,
41744 const INTEGER *LDQ,
41745 DOUBLE_COMPLEX *QSTORE,
41746 const INTEGER *LDQS,
41747 DOUBLE *RWORK,
41748 INTEGER *IWORK,
41749 INTEGER *INFO)
41750 {
41751 DEBUG_LAPACK_STUB("zlaed0");
41752 LAPACK_IMPL(zlaed0)(QSIZ,
41753 N,
41754 D,
41755 E,
41756 Q,
41757 LDQ,
41758 QSTORE,
41759 LDQS,
41760 RWORK,
41761 IWORK,
41762 INFO);
41763 }
41764
41765 //-- zlaed7 --------------------------------------------------------------------
41766 void
LAPACK_DECL(zlaed7)41767 LAPACK_DECL(zlaed7)(const INTEGER *N,
41768 const INTEGER *CUTPNT,
41769 const INTEGER *QSIZ,
41770 const INTEGER *TLVLS,
41771 const INTEGER *CURLVL,
41772 const INTEGER *CURPBM,
41773 DOUBLE *D,
41774 DOUBLE_COMPLEX *Q,
41775 const INTEGER *LDQ,
41776 const DOUBLE *RHO,
41777 INTEGER *INDXQ,
41778 DOUBLE *QSTORE,
41779 INTEGER *QPTR,
41780 const INTEGER *PRMPTR,
41781 const INTEGER *PERM,
41782 const INTEGER *GIVPTR,
41783 const INTEGER *GIVCOL,
41784 const DOUBLE *GIVNUM,
41785 DOUBLE_COMPLEX *WORK,
41786 DOUBLE *RWORK,
41787 INTEGER *IWORK,
41788 INTEGER *INFO)
41789 {
41790 DEBUG_LAPACK_STUB("zlaed7");
41791 LAPACK_IMPL(zlaed7)(N,
41792 CUTPNT,
41793 QSIZ,
41794 TLVLS,
41795 CURLVL,
41796 CURPBM,
41797 D,
41798 Q,
41799 LDQ,
41800 RHO,
41801 INDXQ,
41802 QSTORE,
41803 QPTR,
41804 PRMPTR,
41805 PERM,
41806 GIVPTR,
41807 GIVCOL,
41808 GIVNUM,
41809 WORK,
41810 RWORK,
41811 IWORK,
41812 INFO);
41813 }
41814
41815 //-- zlaed8 --------------------------------------------------------------------
41816 void
LAPACK_DECL(zlaed8)41817 LAPACK_DECL(zlaed8)(INTEGER *K,
41818 const INTEGER *N,
41819 const INTEGER *QSIZ,
41820 DOUBLE_COMPLEX *Q,
41821 const INTEGER *LDQ,
41822 DOUBLE *D,
41823 DOUBLE *RHO,
41824 const INTEGER *CUTPNT,
41825 const DOUBLE *Z,
41826 DOUBLE *DLAMDA,
41827 DOUBLE_COMPLEX *Q2,
41828 const INTEGER *LDQ2,
41829 DOUBLE *W,
41830 INTEGER *INDXP,
41831 INTEGER *INDX,
41832 const INTEGER *INDXQ,
41833 INTEGER *PERM,
41834 INTEGER *GIVPTR,
41835 INTEGER *GIVCOL,
41836 DOUBLE *GIVNUM,
41837 INTEGER *INFO)
41838 {
41839 DEBUG_LAPACK_STUB("zlaed8");
41840 LAPACK_IMPL(zlaed8)(K,
41841 N,
41842 QSIZ,
41843 Q,
41844 LDQ,
41845 D,
41846 RHO,
41847 CUTPNT,
41848 Z,
41849 DLAMDA,
41850 Q2,
41851 LDQ2,
41852 W,
41853 INDXP,
41854 INDX,
41855 INDXQ,
41856 PERM,
41857 GIVPTR,
41858 GIVCOL,
41859 GIVNUM,
41860 INFO);
41861 }
41862
41863 //-- zlaein --------------------------------------------------------------------
41864 void
LAPACK_DECL(zlaein)41865 LAPACK_DECL(zlaein)(const LOGICAL *RIGHTV,
41866 const LOGICAL *NOINIT,
41867 const INTEGER *N,
41868 const DOUBLE_COMPLEX *H,
41869 const INTEGER *LDH,
41870 const DOUBLE_COMPLEX *W,
41871 DOUBLE_COMPLEX *V,
41872 DOUBLE_COMPLEX *B,
41873 const INTEGER *LDB,
41874 DOUBLE *RWORK,
41875 const DOUBLE *EPS3,
41876 const DOUBLE *SMLNUM,
41877 INTEGER *INFO)
41878 {
41879 DEBUG_LAPACK_STUB("zlaein");
41880 LAPACK_IMPL(zlaein)(RIGHTV,
41881 NOINIT,
41882 N,
41883 H,
41884 LDH,
41885 W,
41886 V,
41887 B,
41888 LDB,
41889 RWORK,
41890 EPS3,
41891 SMLNUM,
41892 INFO);
41893 }
41894
41895 //-- zlaesy --------------------------------------------------------------------
41896 void
LAPACK_DECL(zlaesy)41897 LAPACK_DECL(zlaesy)(const DOUBLE_COMPLEX *A,
41898 const DOUBLE_COMPLEX *B,
41899 const DOUBLE_COMPLEX *C,
41900 DOUBLE_COMPLEX *RT1,
41901 DOUBLE_COMPLEX *RT2,
41902 DOUBLE_COMPLEX *EVSCAL,
41903 DOUBLE_COMPLEX *CS1,
41904 DOUBLE_COMPLEX *SN1)
41905 {
41906 DEBUG_LAPACK_STUB("zlaesy");
41907 LAPACK_IMPL(zlaesy)(A,
41908 B,
41909 C,
41910 RT1,
41911 RT2,
41912 EVSCAL,
41913 CS1,
41914 SN1);
41915 }
41916
41917 //-- zlaev2 --------------------------------------------------------------------
41918 void
LAPACK_DECL(zlaev2)41919 LAPACK_DECL(zlaev2)(const DOUBLE_COMPLEX *A,
41920 const DOUBLE_COMPLEX *B,
41921 const DOUBLE_COMPLEX *C,
41922 DOUBLE *RT1,
41923 DOUBLE *RT2,
41924 DOUBLE *CS1,
41925 DOUBLE_COMPLEX *SN1)
41926 {
41927 DEBUG_LAPACK_STUB("zlaev2");
41928 LAPACK_IMPL(zlaev2)(A,
41929 B,
41930 C,
41931 RT1,
41932 RT2,
41933 CS1,
41934 SN1);
41935 }
41936
41937 //-- zlag2c --------------------------------------------------------------------
41938 void
LAPACK_DECL(zlag2c)41939 LAPACK_DECL(zlag2c)(const INTEGER *M,
41940 const INTEGER *N,
41941 const DOUBLE_COMPLEX *A,
41942 const INTEGER *LDA,
41943 FLOAT_COMPLEX *SA,
41944 const INTEGER *LDSA,
41945 INTEGER *INFO)
41946 {
41947 DEBUG_LAPACK_STUB("zlag2c");
41948 LAPACK_IMPL(zlag2c)(M,
41949 N,
41950 A,
41951 LDA,
41952 SA,
41953 LDSA,
41954 INFO);
41955 }
41956
41957 //-- zlags2 --------------------------------------------------------------------
41958 void
LAPACK_DECL(zlags2)41959 LAPACK_DECL(zlags2)(const LOGICAL *UPPER,
41960 const DOUBLE *A1,
41961 const DOUBLE_COMPLEX *A2,
41962 const DOUBLE *A3,
41963 const DOUBLE *B1,
41964 const DOUBLE_COMPLEX *B2,
41965 const DOUBLE *B3,
41966 DOUBLE *CSU,
41967 DOUBLE_COMPLEX *SNU,
41968 DOUBLE *CSV,
41969 DOUBLE_COMPLEX *SNV,
41970 DOUBLE *CSQ,
41971 DOUBLE_COMPLEX *SNQ)
41972 {
41973 DEBUG_LAPACK_STUB("zlags2");
41974 LAPACK_IMPL(zlags2)(UPPER,
41975 A1,
41976 A2,
41977 A3,
41978 B1,
41979 B2,
41980 B3,
41981 CSU,
41982 SNU,
41983 CSV,
41984 SNV,
41985 CSQ,
41986 SNQ);
41987 }
41988
41989 //-- zlagtm --------------------------------------------------------------------
41990 void
LAPACK_DECL(zlagtm)41991 LAPACK_DECL(zlagtm)(const char *TRANS,
41992 const INTEGER *N,
41993 const INTEGER *NRHS,
41994 const DOUBLE *ALPHA,
41995 const DOUBLE_COMPLEX *DL,
41996 const DOUBLE_COMPLEX *D,
41997 const DOUBLE_COMPLEX *DU,
41998 const DOUBLE_COMPLEX *X,
41999 const INTEGER *LDX,
42000 const DOUBLE *BETA,
42001 DOUBLE_COMPLEX *B,
42002 const INTEGER *LDB)
42003 {
42004 DEBUG_LAPACK_STUB("zlagtm");
42005 LAPACK_IMPL(zlagtm)(TRANS,
42006 N,
42007 NRHS,
42008 ALPHA,
42009 DL,
42010 D,
42011 DU,
42012 X,
42013 LDX,
42014 BETA,
42015 B,
42016 LDB);
42017 }
42018
42019 //-- zlahef --------------------------------------------------------------------
42020 void
LAPACK_DECL(zlahef)42021 LAPACK_DECL(zlahef)(const char *UPLO,
42022 const INTEGER *N,
42023 const INTEGER *NB,
42024 INTEGER *KB,
42025 DOUBLE_COMPLEX *A,
42026 const INTEGER *LDA,
42027 INTEGER *IPIV,
42028 DOUBLE_COMPLEX *W,
42029 const INTEGER *LDW,
42030 INTEGER *INFO)
42031 {
42032 DEBUG_LAPACK_STUB("zlahef");
42033 LAPACK_IMPL(zlahef)(UPLO,
42034 N,
42035 NB,
42036 KB,
42037 A,
42038 LDA,
42039 IPIV,
42040 W,
42041 LDW,
42042 INFO);
42043 }
42044
42045 //-- zlahqr --------------------------------------------------------------------
42046 void
LAPACK_DECL(zlahqr)42047 LAPACK_DECL(zlahqr)(const LOGICAL *WANTT,
42048 const LOGICAL *WANTZ,
42049 const INTEGER *N,
42050 const INTEGER *ILO,
42051 const INTEGER *IHI,
42052 DOUBLE_COMPLEX *H,
42053 const INTEGER *LDH,
42054 DOUBLE_COMPLEX *W,
42055 const INTEGER *ILOZ,
42056 const INTEGER *IHIZ,
42057 DOUBLE_COMPLEX *Z,
42058 const INTEGER *LDZ,
42059 INTEGER *INFO)
42060 {
42061 DEBUG_LAPACK_STUB("zlahqr");
42062 LAPACK_IMPL(zlahqr)(WANTT,
42063 WANTZ,
42064 N,
42065 ILO,
42066 IHI,
42067 H,
42068 LDH,
42069 W,
42070 ILOZ,
42071 IHIZ,
42072 Z,
42073 LDZ,
42074 INFO);
42075 }
42076
42077 //-- zlahr2 --------------------------------------------------------------------
42078 void
LAPACK_DECL(zlahr2)42079 LAPACK_DECL(zlahr2)(const INTEGER *N,
42080 const INTEGER *K,
42081 const INTEGER *NB,
42082 DOUBLE_COMPLEX *A,
42083 const INTEGER *LDA,
42084 DOUBLE_COMPLEX *TAU,
42085 DOUBLE_COMPLEX *T,
42086 const INTEGER *LDT,
42087 DOUBLE_COMPLEX *Y,
42088 const INTEGER *LDY)
42089 {
42090 DEBUG_LAPACK_STUB("zlahr2");
42091 LAPACK_IMPL(zlahr2)(N,
42092 K,
42093 NB,
42094 A,
42095 LDA,
42096 TAU,
42097 T,
42098 LDT,
42099 Y,
42100 LDY);
42101 }
42102
42103 //-- zlahrd --------------------------------------------------------------------
42104 void
LAPACK_DECL(zlahrd)42105 LAPACK_DECL(zlahrd)(const INTEGER *N,
42106 const INTEGER *K,
42107 const INTEGER *NB,
42108 DOUBLE_COMPLEX *A,
42109 const INTEGER *LDA,
42110 DOUBLE_COMPLEX *TAU,
42111 DOUBLE_COMPLEX *T,
42112 const INTEGER *LDT,
42113 DOUBLE_COMPLEX *Y,
42114 const INTEGER *LDY)
42115 {
42116 DEBUG_LAPACK_STUB("zlahrd");
42117 LAPACK_IMPL(zlahrd)(N,
42118 K,
42119 NB,
42120 A,
42121 LDA,
42122 TAU,
42123 T,
42124 LDT,
42125 Y,
42126 LDY);
42127 }
42128
42129 //-- zlaic1 --------------------------------------------------------------------
42130 void
LAPACK_DECL(zlaic1)42131 LAPACK_DECL(zlaic1)(const INTEGER *JOB,
42132 const INTEGER *J,
42133 const DOUBLE_COMPLEX *X,
42134 const DOUBLE *SEST,
42135 const DOUBLE_COMPLEX *W,
42136 const DOUBLE_COMPLEX *GAMMA,
42137 DOUBLE *SESTPR,
42138 DOUBLE_COMPLEX *S,
42139 DOUBLE_COMPLEX *C)
42140 {
42141 DEBUG_LAPACK_STUB("zlaic1");
42142 LAPACK_IMPL(zlaic1)(JOB,
42143 J,
42144 X,
42145 SEST,
42146 W,
42147 GAMMA,
42148 SESTPR,
42149 S,
42150 C);
42151 }
42152
42153 //-- zlals0 --------------------------------------------------------------------
42154 void
LAPACK_DECL(zlals0)42155 LAPACK_DECL(zlals0)(const INTEGER *ICOMPQ,
42156 const INTEGER *NL,
42157 const INTEGER *NR,
42158 const INTEGER *SQRE,
42159 const INTEGER *NRHS,
42160 DOUBLE_COMPLEX *B,
42161 const INTEGER *LDB,
42162 DOUBLE_COMPLEX *BX,
42163 const INTEGER *LDBX,
42164 const INTEGER *PERM,
42165 const INTEGER *GIVPTR,
42166 const INTEGER *GIVCOL,
42167 const INTEGER *LDGCOL,
42168 const DOUBLE *GIVNUM,
42169 const INTEGER *LDGNUM,
42170 const DOUBLE *POLES,
42171 const DOUBLE *DIFL,
42172 const DOUBLE *DIFR,
42173 const DOUBLE *Z,
42174 const INTEGER *K,
42175 const DOUBLE *C,
42176 const DOUBLE *S,
42177 DOUBLE *RWORK,
42178 INTEGER *INFO)
42179 {
42180 DEBUG_LAPACK_STUB("zlals0");
42181 LAPACK_IMPL(zlals0)(ICOMPQ,
42182 NL,
42183 NR,
42184 SQRE,
42185 NRHS,
42186 B,
42187 LDB,
42188 BX,
42189 LDBX,
42190 PERM,
42191 GIVPTR,
42192 GIVCOL,
42193 LDGCOL,
42194 GIVNUM,
42195 LDGNUM,
42196 POLES,
42197 DIFL,
42198 DIFR,
42199 Z,
42200 K,
42201 C,
42202 S,
42203 RWORK,
42204 INFO);
42205 }
42206
42207 //-- zlalsa --------------------------------------------------------------------
42208 void
LAPACK_DECL(zlalsa)42209 LAPACK_DECL(zlalsa)(const INTEGER *ICOMPQ,
42210 const INTEGER *SMLSIZ,
42211 const INTEGER *N,
42212 const INTEGER *NRHS,
42213 DOUBLE_COMPLEX *B,
42214 const INTEGER *LDB,
42215 DOUBLE_COMPLEX *BX,
42216 const INTEGER *LDBX,
42217 const DOUBLE *U,
42218 const INTEGER *LDU,
42219 const DOUBLE *VT,
42220 const INTEGER *K,
42221 const DOUBLE *DIFL,
42222 const DOUBLE *DIFR,
42223 const DOUBLE *Z,
42224 const DOUBLE *POLES,
42225 const INTEGER *GIVPTR,
42226 const INTEGER *GIVCOL,
42227 const INTEGER *LDGCOL,
42228 const INTEGER *PERM,
42229 const DOUBLE *GIVNUM,
42230 const DOUBLE *C,
42231 const DOUBLE *S,
42232 DOUBLE *RWORK,
42233 INTEGER *IWORK,
42234 INTEGER *INFO)
42235 {
42236 DEBUG_LAPACK_STUB("zlalsa");
42237 LAPACK_IMPL(zlalsa)(ICOMPQ,
42238 SMLSIZ,
42239 N,
42240 NRHS,
42241 B,
42242 LDB,
42243 BX,
42244 LDBX,
42245 U,
42246 LDU,
42247 VT,
42248 K,
42249 DIFL,
42250 DIFR,
42251 Z,
42252 POLES,
42253 GIVPTR,
42254 GIVCOL,
42255 LDGCOL,
42256 PERM,
42257 GIVNUM,
42258 C,
42259 S,
42260 RWORK,
42261 IWORK,
42262 INFO);
42263 }
42264
42265 //-- zlalsd --------------------------------------------------------------------
42266 void
LAPACK_DECL(zlalsd)42267 LAPACK_DECL(zlalsd)(const char *UPLO,
42268 const INTEGER *SMLSIZ,
42269 const INTEGER *N,
42270 const INTEGER *NRHS,
42271 DOUBLE *D,
42272 DOUBLE *E,
42273 DOUBLE_COMPLEX *B,
42274 const INTEGER *LDB,
42275 const DOUBLE *RCOND,
42276 INTEGER *RANK,
42277 DOUBLE_COMPLEX *WORK,
42278 DOUBLE *RWORK,
42279 INTEGER *IWORK,
42280 INTEGER *INFO)
42281 {
42282 DEBUG_LAPACK_STUB("zlalsd");
42283 LAPACK_IMPL(zlalsd)(UPLO,
42284 SMLSIZ,
42285 N,
42286 NRHS,
42287 D,
42288 E,
42289 B,
42290 LDB,
42291 RCOND,
42292 RANK,
42293 WORK,
42294 RWORK,
42295 IWORK,
42296 INFO);
42297 }
42298
42299 //-- zlangb --------------------------------------------------------------------
42300 DOUBLE
LAPACK_DECL(zlangb)42301 LAPACK_DECL(zlangb)(const char *NORM,
42302 const INTEGER *N,
42303 const INTEGER *KL,
42304 const INTEGER *KU,
42305 const DOUBLE_COMPLEX *AB,
42306 const INTEGER *LDAB,
42307 DOUBLE *WORK)
42308 {
42309 DEBUG_LAPACK_STUB("zlangb");
42310 return LAPACK_IMPL(zlangb)(NORM,
42311 N,
42312 KL,
42313 KU,
42314 AB,
42315 LDAB,
42316 WORK);
42317 }
42318
42319 //-- zlange --------------------------------------------------------------------
42320 DOUBLE
LAPACK_DECL(zlange)42321 LAPACK_DECL(zlange)(const char *NORM,
42322 const INTEGER *M,
42323 const INTEGER *N,
42324 const DOUBLE_COMPLEX *A,
42325 const INTEGER *LDA,
42326 DOUBLE *WORK)
42327 {
42328 DEBUG_LAPACK_STUB("zlange");
42329 return LAPACK_IMPL(zlange)(NORM,
42330 M,
42331 N,
42332 A,
42333 LDA,
42334 WORK);
42335 }
42336
42337 //-- zlangt --------------------------------------------------------------------
42338 DOUBLE
LAPACK_DECL(zlangt)42339 LAPACK_DECL(zlangt)(const char *NORM,
42340 const INTEGER *N,
42341 const DOUBLE_COMPLEX *DL,
42342 const DOUBLE_COMPLEX *D,
42343 const DOUBLE_COMPLEX *DU)
42344 {
42345 DEBUG_LAPACK_STUB("zlangt");
42346 return LAPACK_IMPL(zlangt)(NORM,
42347 N,
42348 DL,
42349 D,
42350 DU);
42351 }
42352
42353 //-- zlanhb --------------------------------------------------------------------
42354 DOUBLE
LAPACK_DECL(zlanhb)42355 LAPACK_DECL(zlanhb)(const char *NORM,
42356 const char *UPLO,
42357 const INTEGER *N,
42358 const INTEGER *K,
42359 const DOUBLE_COMPLEX *AB,
42360 const INTEGER *LDAB,
42361 DOUBLE *WORK)
42362 {
42363 DEBUG_LAPACK_STUB("zlanhb");
42364 return LAPACK_IMPL(zlanhb)(NORM,
42365 UPLO,
42366 N,
42367 K,
42368 AB,
42369 LDAB,
42370 WORK);
42371 }
42372
42373 //-- zlanhe --------------------------------------------------------------------
42374 DOUBLE
LAPACK_DECL(zlanhe)42375 LAPACK_DECL(zlanhe)(const char *NORM,
42376 const char *UPLO,
42377 const INTEGER *N,
42378 const DOUBLE_COMPLEX *A,
42379 const INTEGER *LDA,
42380 DOUBLE *WORK)
42381 {
42382 DEBUG_LAPACK_STUB("zlanhe");
42383 return LAPACK_IMPL(zlanhe)(NORM,
42384 UPLO,
42385 N,
42386 A,
42387 LDA,
42388 WORK);
42389 }
42390
42391 //-- zlanhf --------------------------------------------------------------------
42392 DOUBLE
LAPACK_DECL(zlanhf)42393 LAPACK_DECL(zlanhf)(const char *NORM,
42394 const char *TRANSR,
42395 const char *UPLO,
42396 const INTEGER *N,
42397 const DOUBLE_COMPLEX *A,
42398 DOUBLE *WORK)
42399 {
42400 DEBUG_LAPACK_STUB("zlanhf");
42401 return LAPACK_IMPL(zlanhf)(NORM,
42402 TRANSR,
42403 UPLO,
42404 N,
42405 A,
42406 WORK);
42407 }
42408
42409 //-- zlanhp --------------------------------------------------------------------
42410 DOUBLE
LAPACK_DECL(zlanhp)42411 LAPACK_DECL(zlanhp)(const char *NORM,
42412 const char *UPLO,
42413 const INTEGER *N,
42414 const DOUBLE_COMPLEX *AP,
42415 DOUBLE *WORK)
42416 {
42417 DEBUG_LAPACK_STUB("zlanhp");
42418 return LAPACK_IMPL(zlanhp)(NORM,
42419 UPLO,
42420 N,
42421 AP,
42422 WORK);
42423 }
42424
42425 //-- zlanhs --------------------------------------------------------------------
42426 DOUBLE
LAPACK_DECL(zlanhs)42427 LAPACK_DECL(zlanhs)(const char *NORM,
42428 const INTEGER *N,
42429 const DOUBLE_COMPLEX *A,
42430 const INTEGER *LDA,
42431 DOUBLE *WORK)
42432 {
42433 DEBUG_LAPACK_STUB("zlanhs");
42434 return LAPACK_IMPL(zlanhs)(NORM,
42435 N,
42436 A,
42437 LDA,
42438 WORK);
42439 }
42440
42441 //-- zlanht --------------------------------------------------------------------
42442 DOUBLE
LAPACK_DECL(zlanht)42443 LAPACK_DECL(zlanht)(const char *NORM,
42444 const INTEGER *N,
42445 const DOUBLE *D,
42446 const DOUBLE_COMPLEX *E)
42447 {
42448 DEBUG_LAPACK_STUB("zlanht");
42449 return LAPACK_IMPL(zlanht)(NORM,
42450 N,
42451 D,
42452 E);
42453 }
42454
42455 //-- zlansb --------------------------------------------------------------------
42456 DOUBLE
LAPACK_DECL(zlansb)42457 LAPACK_DECL(zlansb)(const char *NORM,
42458 const char *UPLO,
42459 const INTEGER *N,
42460 const INTEGER *K,
42461 const DOUBLE_COMPLEX *AB,
42462 const INTEGER *LDAB,
42463 DOUBLE *WORK)
42464 {
42465 DEBUG_LAPACK_STUB("zlansb");
42466 return LAPACK_IMPL(zlansb)(NORM,
42467 UPLO,
42468 N,
42469 K,
42470 AB,
42471 LDAB,
42472 WORK);
42473 }
42474
42475 //-- zlansp --------------------------------------------------------------------
42476 DOUBLE
LAPACK_DECL(zlansp)42477 LAPACK_DECL(zlansp)(const char *NORM,
42478 const char *UPLO,
42479 const INTEGER *N,
42480 const DOUBLE_COMPLEX *AP,
42481 DOUBLE *WORK)
42482 {
42483 DEBUG_LAPACK_STUB("zlansp");
42484 return LAPACK_IMPL(zlansp)(NORM,
42485 UPLO,
42486 N,
42487 AP,
42488 WORK);
42489 }
42490
42491 //-- zlansy --------------------------------------------------------------------
42492 DOUBLE
LAPACK_DECL(zlansy)42493 LAPACK_DECL(zlansy)(const char *NORM,
42494 const char *UPLO,
42495 const INTEGER *N,
42496 const DOUBLE_COMPLEX *A,
42497 const INTEGER *LDA,
42498 DOUBLE *WORK)
42499 {
42500 DEBUG_LAPACK_STUB("zlansy");
42501 return LAPACK_IMPL(zlansy)(NORM,
42502 UPLO,
42503 N,
42504 A,
42505 LDA,
42506 WORK);
42507 }
42508
42509 //-- zlantb --------------------------------------------------------------------
42510 DOUBLE
LAPACK_DECL(zlantb)42511 LAPACK_DECL(zlantb)(const char *NORM,
42512 const char *UPLO,
42513 const char *DIAG,
42514 const INTEGER *N,
42515 const INTEGER *K,
42516 const DOUBLE_COMPLEX *AB,
42517 const INTEGER *LDAB,
42518 DOUBLE *WORK)
42519 {
42520 DEBUG_LAPACK_STUB("zlantb");
42521 return LAPACK_IMPL(zlantb)(NORM,
42522 UPLO,
42523 DIAG,
42524 N,
42525 K,
42526 AB,
42527 LDAB,
42528 WORK);
42529 }
42530
42531 //-- zlantp --------------------------------------------------------------------
42532 DOUBLE
LAPACK_DECL(zlantp)42533 LAPACK_DECL(zlantp)(const char *NORM,
42534 const char *UPLO,
42535 const char *DIAG,
42536 const INTEGER *N,
42537 const DOUBLE_COMPLEX *AP,
42538 DOUBLE *WORK)
42539 {
42540 DEBUG_LAPACK_STUB("zlantp");
42541 return LAPACK_IMPL(zlantp)(NORM,
42542 UPLO,
42543 DIAG,
42544 N,
42545 AP,
42546 WORK);
42547 }
42548
42549 //-- zlantr --------------------------------------------------------------------
42550 DOUBLE
LAPACK_DECL(zlantr)42551 LAPACK_DECL(zlantr)(const char *NORM,
42552 const char *UPLO,
42553 const char *DIAG,
42554 const INTEGER *M,
42555 const INTEGER *N,
42556 const DOUBLE_COMPLEX *A,
42557 const INTEGER *LDA,
42558 DOUBLE *WORK)
42559 {
42560 DEBUG_LAPACK_STUB("zlantr");
42561 return LAPACK_IMPL(zlantr)(NORM,
42562 UPLO,
42563 DIAG,
42564 M,
42565 N,
42566 A,
42567 LDA,
42568 WORK);
42569 }
42570
42571 //-- zlapll --------------------------------------------------------------------
42572 void
LAPACK_DECL(zlapll)42573 LAPACK_DECL(zlapll)(const INTEGER *N,
42574 DOUBLE_COMPLEX *X,
42575 const INTEGER *INCX,
42576 DOUBLE_COMPLEX *Y,
42577 const INTEGER *INCY,
42578 DOUBLE *SSMIN)
42579 {
42580 DEBUG_LAPACK_STUB("zlapll");
42581 LAPACK_IMPL(zlapll)(N,
42582 X,
42583 INCX,
42584 Y,
42585 INCY,
42586 SSMIN);
42587 }
42588
42589 //-- zlapmr --------------------------------------------------------------------
42590 void
LAPACK_DECL(zlapmr)42591 LAPACK_DECL(zlapmr)(const LOGICAL *FORWRD,
42592 const INTEGER *M,
42593 const INTEGER *N,
42594 DOUBLE_COMPLEX *X,
42595 const INTEGER *LDX,
42596 INTEGER *K)
42597 {
42598 DEBUG_LAPACK_STUB("zlapmr");
42599 LAPACK_IMPL(zlapmr)(FORWRD,
42600 M,
42601 N,
42602 X,
42603 LDX,
42604 K);
42605 }
42606
42607 //-- zlapmt --------------------------------------------------------------------
42608 void
LAPACK_DECL(zlapmt)42609 LAPACK_DECL(zlapmt)(const LOGICAL *FORWRD,
42610 const INTEGER *M,
42611 const INTEGER *N,
42612 DOUBLE_COMPLEX *X,
42613 const INTEGER *LDX,
42614 INTEGER *K)
42615 {
42616 DEBUG_LAPACK_STUB("zlapmt");
42617 LAPACK_IMPL(zlapmt)(FORWRD,
42618 M,
42619 N,
42620 X,
42621 LDX,
42622 K);
42623 }
42624
42625 //-- zlaqgb --------------------------------------------------------------------
42626 void
LAPACK_DECL(zlaqgb)42627 LAPACK_DECL(zlaqgb)(const INTEGER *M,
42628 const INTEGER *N,
42629 const INTEGER *KL,
42630 const INTEGER *KU,
42631 DOUBLE_COMPLEX *AB,
42632 const INTEGER *LDAB,
42633 const DOUBLE *R,
42634 const DOUBLE *C,
42635 const DOUBLE *ROWCND,
42636 const DOUBLE *COLCND,
42637 const DOUBLE *AMAX,
42638 char *EQUED)
42639 {
42640 DEBUG_LAPACK_STUB("zlaqgb");
42641 LAPACK_IMPL(zlaqgb)(M,
42642 N,
42643 KL,
42644 KU,
42645 AB,
42646 LDAB,
42647 R,
42648 C,
42649 ROWCND,
42650 COLCND,
42651 AMAX,
42652 EQUED);
42653 }
42654
42655 //-- zlaqge --------------------------------------------------------------------
42656 void
LAPACK_DECL(zlaqge)42657 LAPACK_DECL(zlaqge)(const INTEGER *M,
42658 const INTEGER *N,
42659 DOUBLE_COMPLEX *A,
42660 const INTEGER *LDA,
42661 const DOUBLE *R,
42662 const DOUBLE *C,
42663 const DOUBLE *ROWCND,
42664 const DOUBLE *COLCND,
42665 const DOUBLE *AMAX,
42666 char *EQUED)
42667 {
42668 DEBUG_LAPACK_STUB("zlaqge");
42669 LAPACK_IMPL(zlaqge)(M,
42670 N,
42671 A,
42672 LDA,
42673 R,
42674 C,
42675 ROWCND,
42676 COLCND,
42677 AMAX,
42678 EQUED);
42679 }
42680
42681 //-- zlaqhb --------------------------------------------------------------------
42682 void
LAPACK_DECL(zlaqhb)42683 LAPACK_DECL(zlaqhb)(const char *UPLO,
42684 const INTEGER *N,
42685 const INTEGER *KD,
42686 DOUBLE_COMPLEX *AB,
42687 const INTEGER *LDAB,
42688 DOUBLE *S,
42689 const DOUBLE *SCOND,
42690 const DOUBLE *AMAX,
42691 char *EQUED)
42692 {
42693 DEBUG_LAPACK_STUB("zlaqhb");
42694 LAPACK_IMPL(zlaqhb)(UPLO,
42695 N,
42696 KD,
42697 AB,
42698 LDAB,
42699 S,
42700 SCOND,
42701 AMAX,
42702 EQUED);
42703 }
42704
42705 //-- zlaqhe --------------------------------------------------------------------
42706 void
LAPACK_DECL(zlaqhe)42707 LAPACK_DECL(zlaqhe)(const char *UPLO,
42708 const INTEGER *N,
42709 DOUBLE_COMPLEX *A,
42710 const INTEGER *LDA,
42711 const DOUBLE *S,
42712 const DOUBLE *SCOND,
42713 const DOUBLE *AMAX,
42714 char *EQUED)
42715 {
42716 DEBUG_LAPACK_STUB("zlaqhe");
42717 LAPACK_IMPL(zlaqhe)(UPLO,
42718 N,
42719 A,
42720 LDA,
42721 S,
42722 SCOND,
42723 AMAX,
42724 EQUED);
42725 }
42726
42727 //-- zlaqhp --------------------------------------------------------------------
42728 void
LAPACK_DECL(zlaqhp)42729 LAPACK_DECL(zlaqhp)(const char *UPLO,
42730 const INTEGER *N,
42731 DOUBLE_COMPLEX *AP,
42732 const DOUBLE *S,
42733 const DOUBLE *SCOND,
42734 const DOUBLE *AMAX,
42735 char *EQUED)
42736 {
42737 DEBUG_LAPACK_STUB("zlaqhp");
42738 LAPACK_IMPL(zlaqhp)(UPLO,
42739 N,
42740 AP,
42741 S,
42742 SCOND,
42743 AMAX,
42744 EQUED);
42745 }
42746
42747 //-- zlaqp2 --------------------------------------------------------------------
42748 void
LAPACK_DECL(zlaqp2)42749 LAPACK_DECL(zlaqp2)(const INTEGER *M,
42750 const INTEGER *N,
42751 const INTEGER *OFFSET,
42752 DOUBLE_COMPLEX *A,
42753 const INTEGER *LDA,
42754 INTEGER *JPVT,
42755 DOUBLE_COMPLEX *TAU,
42756 DOUBLE *VN1,
42757 DOUBLE *VN2,
42758 DOUBLE_COMPLEX *WORK)
42759 {
42760 DEBUG_LAPACK_STUB("zlaqp2");
42761 LAPACK_IMPL(zlaqp2)(M,
42762 N,
42763 OFFSET,
42764 A,
42765 LDA,
42766 JPVT,
42767 TAU,
42768 VN1,
42769 VN2,
42770 WORK);
42771 }
42772
42773 //-- zlaqps --------------------------------------------------------------------
42774 void
LAPACK_DECL(zlaqps)42775 LAPACK_DECL(zlaqps)(const INTEGER *M,
42776 const INTEGER *N,
42777 const INTEGER *OFFSET,
42778 const INTEGER *NB,
42779 INTEGER *KB,
42780 DOUBLE_COMPLEX *A,
42781 const INTEGER *LDA,
42782 INTEGER *JPVT,
42783 DOUBLE_COMPLEX *TAU,
42784 DOUBLE *VN1,
42785 DOUBLE *VN2,
42786 DOUBLE_COMPLEX *AUXV,
42787 DOUBLE_COMPLEX *F,
42788 const INTEGER *LDF)
42789 {
42790 DEBUG_LAPACK_STUB("zlaqps");
42791 LAPACK_IMPL(zlaqps)(M,
42792 N,
42793 OFFSET,
42794 NB,
42795 KB,
42796 A,
42797 LDA,
42798 JPVT,
42799 TAU,
42800 VN1,
42801 VN2,
42802 AUXV,
42803 F,
42804 LDF);
42805 }
42806
42807 //-- zlaqr0 --------------------------------------------------------------------
42808 void
LAPACK_DECL(zlaqr0)42809 LAPACK_DECL(zlaqr0)(const LOGICAL *WANTT,
42810 const LOGICAL *WANTZ,
42811 const INTEGER *N,
42812 const INTEGER *ILO,
42813 const INTEGER *IHI,
42814 DOUBLE_COMPLEX *H,
42815 const INTEGER *LDH,
42816 DOUBLE_COMPLEX *W,
42817 const INTEGER *ILOZ,
42818 const INTEGER *IHIZ,
42819 DOUBLE_COMPLEX *Z,
42820 const INTEGER *LDZ,
42821 DOUBLE_COMPLEX *WORK,
42822 const INTEGER *LWORK,
42823 INTEGER *INFO)
42824 {
42825 DEBUG_LAPACK_STUB("zlaqr0");
42826 LAPACK_IMPL(zlaqr0)(WANTT,
42827 WANTZ,
42828 N,
42829 ILO,
42830 IHI,
42831 H,
42832 LDH,
42833 W,
42834 ILOZ,
42835 IHIZ,
42836 Z,
42837 LDZ,
42838 WORK,
42839 LWORK,
42840 INFO);
42841 }
42842
42843 //-- zlaqr1 --------------------------------------------------------------------
42844 void
LAPACK_DECL(zlaqr1)42845 LAPACK_DECL(zlaqr1)(const INTEGER *N,
42846 const DOUBLE_COMPLEX *H,
42847 const INTEGER *LDH,
42848 const DOUBLE_COMPLEX *S1,
42849 const DOUBLE_COMPLEX *S2,
42850 DOUBLE_COMPLEX *V)
42851 {
42852 DEBUG_LAPACK_STUB("zlaqr1");
42853 LAPACK_IMPL(zlaqr1)(N,
42854 H,
42855 LDH,
42856 S1,
42857 S2,
42858 V);
42859 }
42860
42861 //-- zlaqr2 --------------------------------------------------------------------
42862 void
LAPACK_DECL(zlaqr2)42863 LAPACK_DECL(zlaqr2)(const LOGICAL *WANTT,
42864 const LOGICAL *WANTZ,
42865 const INTEGER *N,
42866 const INTEGER *KTOP,
42867 const INTEGER *KBOT,
42868 const INTEGER *NW,
42869 DOUBLE_COMPLEX *H,
42870 const INTEGER *LDH,
42871 const INTEGER *ILOZ,
42872 const INTEGER *IHIZ,
42873 DOUBLE_COMPLEX *Z,
42874 const INTEGER *LDZ,
42875 INTEGER *NS,
42876 INTEGER *ND,
42877 DOUBLE_COMPLEX *SH,
42878 DOUBLE_COMPLEX *V,
42879 const INTEGER *LDV,
42880 const INTEGER *NH,
42881 DOUBLE_COMPLEX *T,
42882 const INTEGER *LDT,
42883 const INTEGER *NV,
42884 DOUBLE_COMPLEX *WV,
42885 const INTEGER *LDWV,
42886 DOUBLE_COMPLEX *WORK,
42887 const INTEGER *LWORK)
42888 {
42889 DEBUG_LAPACK_STUB("zlaqr2");
42890 LAPACK_IMPL(zlaqr2)(WANTT,
42891 WANTZ,
42892 N,
42893 KTOP,
42894 KBOT,
42895 NW,
42896 H,
42897 LDH,
42898 ILOZ,
42899 IHIZ,
42900 Z,
42901 LDZ,
42902 NS,
42903 ND,
42904 SH,
42905 V,
42906 LDV,
42907 NH,
42908 T,
42909 LDT,
42910 NV,
42911 WV,
42912 LDWV,
42913 WORK,
42914 LWORK);
42915 }
42916
42917 //-- zlaqr3 --------------------------------------------------------------------
42918 void
LAPACK_DECL(zlaqr3)42919 LAPACK_DECL(zlaqr3)(const LOGICAL *WANTT,
42920 const LOGICAL *WANTZ,
42921 const INTEGER *N,
42922 const INTEGER *KTOP,
42923 const INTEGER *KBOT,
42924 const INTEGER *NW,
42925 DOUBLE_COMPLEX *H,
42926 const INTEGER *LDH,
42927 const INTEGER *ILOZ,
42928 const INTEGER *IHIZ,
42929 DOUBLE_COMPLEX *Z,
42930 const INTEGER *LDZ,
42931 INTEGER *NS,
42932 INTEGER *ND,
42933 DOUBLE_COMPLEX *SH,
42934 DOUBLE_COMPLEX *V,
42935 const INTEGER *LDV,
42936 const INTEGER *NH,
42937 DOUBLE_COMPLEX *T,
42938 const INTEGER *LDT,
42939 const INTEGER *NV,
42940 DOUBLE_COMPLEX *WV,
42941 const INTEGER *LDWV,
42942 DOUBLE_COMPLEX *WORK,
42943 const INTEGER *LWORK)
42944 {
42945 DEBUG_LAPACK_STUB("zlaqr3");
42946 LAPACK_IMPL(zlaqr3)(WANTT,
42947 WANTZ,
42948 N,
42949 KTOP,
42950 KBOT,
42951 NW,
42952 H,
42953 LDH,
42954 ILOZ,
42955 IHIZ,
42956 Z,
42957 LDZ,
42958 NS,
42959 ND,
42960 SH,
42961 V,
42962 LDV,
42963 NH,
42964 T,
42965 LDT,
42966 NV,
42967 WV,
42968 LDWV,
42969 WORK,
42970 LWORK);
42971 }
42972
42973 //-- zlaqr4 --------------------------------------------------------------------
42974 void
LAPACK_DECL(zlaqr4)42975 LAPACK_DECL(zlaqr4)(const LOGICAL *WANTT,
42976 const LOGICAL *WANTZ,
42977 const INTEGER *N,
42978 const INTEGER *ILO,
42979 const INTEGER *IHI,
42980 DOUBLE_COMPLEX *H,
42981 const INTEGER *LDH,
42982 DOUBLE_COMPLEX *W,
42983 const INTEGER *ILOZ,
42984 const INTEGER *IHIZ,
42985 DOUBLE_COMPLEX *Z,
42986 const INTEGER *LDZ,
42987 DOUBLE_COMPLEX *WORK,
42988 const INTEGER *LWORK,
42989 INTEGER *INFO)
42990 {
42991 DEBUG_LAPACK_STUB("zlaqr4");
42992 LAPACK_IMPL(zlaqr4)(WANTT,
42993 WANTZ,
42994 N,
42995 ILO,
42996 IHI,
42997 H,
42998 LDH,
42999 W,
43000 ILOZ,
43001 IHIZ,
43002 Z,
43003 LDZ,
43004 WORK,
43005 LWORK,
43006 INFO);
43007 }
43008
43009 //-- zlaqr5 --------------------------------------------------------------------
43010 void
LAPACK_DECL(zlaqr5)43011 LAPACK_DECL(zlaqr5)(const LOGICAL *WANTT,
43012 const LOGICAL *WANTZ,
43013 const INTEGER *KACC22,
43014 const INTEGER *N,
43015 const INTEGER *KTOP,
43016 const INTEGER *KBOT,
43017 const INTEGER *NSHFTS,
43018 DOUBLE_COMPLEX *S,
43019 DOUBLE_COMPLEX *H,
43020 const INTEGER *LDH,
43021 const INTEGER *ILOZ,
43022 const INTEGER *IHIZ,
43023 DOUBLE_COMPLEX *Z,
43024 const INTEGER *LDZ,
43025 DOUBLE_COMPLEX *V,
43026 const INTEGER *LDV,
43027 DOUBLE_COMPLEX *U,
43028 const INTEGER *LDU,
43029 const INTEGER *NV,
43030 DOUBLE_COMPLEX *WV,
43031 const INTEGER *LDWV,
43032 const INTEGER *NH,
43033 DOUBLE_COMPLEX *WH,
43034 const INTEGER *LDWH)
43035 {
43036 DEBUG_LAPACK_STUB("zlaqr5");
43037 LAPACK_IMPL(zlaqr5)(WANTT,
43038 WANTZ,
43039 KACC22,
43040 N,
43041 KTOP,
43042 KBOT,
43043 NSHFTS,
43044 S,
43045 H,
43046 LDH,
43047 ILOZ,
43048 IHIZ,
43049 Z,
43050 LDZ,
43051 V,
43052 LDV,
43053 U,
43054 LDU,
43055 NV,
43056 WV,
43057 LDWV,
43058 NH,
43059 WH,
43060 LDWH);
43061 }
43062
43063 //-- zlaqsb --------------------------------------------------------------------
43064 void
LAPACK_DECL(zlaqsb)43065 LAPACK_DECL(zlaqsb)(const char *UPLO,
43066 const INTEGER *N,
43067 const INTEGER *KD,
43068 DOUBLE_COMPLEX *AB,
43069 const INTEGER *LDAB,
43070 const DOUBLE *S,
43071 const DOUBLE *SCOND,
43072 const DOUBLE *AMAX,
43073 char *EQUED)
43074 {
43075 DEBUG_LAPACK_STUB("zlaqsb");
43076 LAPACK_IMPL(zlaqsb)(UPLO,
43077 N,
43078 KD,
43079 AB,
43080 LDAB,
43081 S,
43082 SCOND,
43083 AMAX,
43084 EQUED);
43085 }
43086
43087 //-- zlaqsp --------------------------------------------------------------------
43088 void
LAPACK_DECL(zlaqsp)43089 LAPACK_DECL(zlaqsp)(const char *UPLO,
43090 const INTEGER *N,
43091 DOUBLE_COMPLEX *AP,
43092 const DOUBLE *S,
43093 const DOUBLE *SCOND,
43094 const DOUBLE *AMAX,
43095 char *EQUED)
43096 {
43097 DEBUG_LAPACK_STUB("zlaqsp");
43098 LAPACK_IMPL(zlaqsp)(UPLO,
43099 N,
43100 AP,
43101 S,
43102 SCOND,
43103 AMAX,
43104 EQUED);
43105 }
43106
43107 //-- zlaqsy --------------------------------------------------------------------
43108 void
LAPACK_DECL(zlaqsy)43109 LAPACK_DECL(zlaqsy)(const char *UPLO,
43110 const INTEGER *N,
43111 DOUBLE_COMPLEX *A,
43112 const INTEGER *LDA,
43113 const DOUBLE *S,
43114 const DOUBLE *SCOND,
43115 const DOUBLE *AMAX,
43116 char *EQUED)
43117 {
43118 DEBUG_LAPACK_STUB("zlaqsy");
43119 LAPACK_IMPL(zlaqsy)(UPLO,
43120 N,
43121 A,
43122 LDA,
43123 S,
43124 SCOND,
43125 AMAX,
43126 EQUED);
43127 }
43128
43129 //-- zlar1v --------------------------------------------------------------------
43130 void
LAPACK_DECL(zlar1v)43131 LAPACK_DECL(zlar1v)(const INTEGER *N,
43132 const INTEGER *B1,
43133 const INTEGER *BN,
43134 const DOUBLE *LAMBDA,
43135 const DOUBLE *D,
43136 const DOUBLE *L,
43137 const DOUBLE *LD,
43138 const DOUBLE *LLD,
43139 const DOUBLE *PIVMIN,
43140 const DOUBLE *GAPTOL,
43141 DOUBLE_COMPLEX *Z,
43142 const LOGICAL *WANTNC,
43143 INTEGER *NEGCNT,
43144 DOUBLE *ZTZ,
43145 DOUBLE *MINGMA,
43146 INTEGER *R,
43147 INTEGER *ISUPPZ,
43148 DOUBLE *NRMINV,
43149 DOUBLE *RESID,
43150 DOUBLE *RQCORR,
43151 DOUBLE *WORK)
43152 {
43153 DEBUG_LAPACK_STUB("zlar1v");
43154 LAPACK_IMPL(zlar1v)(N,
43155 B1,
43156 BN,
43157 LAMBDA,
43158 D,
43159 L,
43160 LD,
43161 LLD,
43162 PIVMIN,
43163 GAPTOL,
43164 Z,
43165 WANTNC,
43166 NEGCNT,
43167 ZTZ,
43168 MINGMA,
43169 R,
43170 ISUPPZ,
43171 NRMINV,
43172 RESID,
43173 RQCORR,
43174 WORK);
43175 }
43176
43177 //-- zlar2v --------------------------------------------------------------------
43178 void
LAPACK_DECL(zlar2v)43179 LAPACK_DECL(zlar2v)(const INTEGER *N,
43180 DOUBLE_COMPLEX *X,
43181 DOUBLE_COMPLEX *Y,
43182 DOUBLE_COMPLEX *Z,
43183 const INTEGER *INCX,
43184 const DOUBLE *C,
43185 const DOUBLE_COMPLEX *S,
43186 const INTEGER *INCC)
43187 {
43188 DEBUG_LAPACK_STUB("zlar2v");
43189 LAPACK_IMPL(zlar2v)(N,
43190 X,
43191 Y,
43192 Z,
43193 INCX,
43194 C,
43195 S,
43196 INCC);
43197 }
43198
43199 //-- zlarcm --------------------------------------------------------------------
43200 void
LAPACK_DECL(zlarcm)43201 LAPACK_DECL(zlarcm)(const INTEGER *M,
43202 const INTEGER *N,
43203 const DOUBLE *A,
43204 const INTEGER *LDA,
43205 const DOUBLE_COMPLEX *B,
43206 const INTEGER *LDB,
43207 const DOUBLE_COMPLEX *C,
43208 const INTEGER *LDC,
43209 DOUBLE *RWORK)
43210 {
43211 DEBUG_LAPACK_STUB("zlarcm");
43212 LAPACK_IMPL(zlarcm)(M,
43213 N,
43214 A,
43215 LDA,
43216 B,
43217 LDB,
43218 C,
43219 LDC,
43220 RWORK);
43221 }
43222
43223 //-- zlarf ---------------------------------------------------------------------
43224 void
LAPACK_DECL(zlarf)43225 LAPACK_DECL(zlarf)(const char *SIDE,
43226 const INTEGER *M,
43227 const INTEGER *N,
43228 const DOUBLE_COMPLEX *V,
43229 const INTEGER *INCV,
43230 const DOUBLE_COMPLEX *TAU,
43231 DOUBLE_COMPLEX *C,
43232 const INTEGER *LDC,
43233 DOUBLE_COMPLEX *WORK)
43234 {
43235 DEBUG_LAPACK_STUB("zlarf");
43236 LAPACK_IMPL(zlarf)(SIDE,
43237 M,
43238 N,
43239 V,
43240 INCV,
43241 TAU,
43242 C,
43243 LDC,
43244 WORK);
43245 }
43246
43247 //-- zlarfb --------------------------------------------------------------------
43248 void
LAPACK_DECL(zlarfb)43249 LAPACK_DECL(zlarfb)(const char *SIDE,
43250 const char *TRANS,
43251 const char *DIRECT,
43252 const char *STOREV,
43253 const INTEGER *M,
43254 const INTEGER *N,
43255 const INTEGER *K,
43256 const DOUBLE_COMPLEX *V,
43257 const INTEGER *LDV,
43258 const DOUBLE_COMPLEX *T,
43259 const INTEGER *LDT,
43260 DOUBLE_COMPLEX *C,
43261 const INTEGER *LDC,
43262 DOUBLE_COMPLEX *WORK,
43263 const INTEGER *LDWORK)
43264 {
43265 DEBUG_LAPACK_STUB("zlarfb");
43266 LAPACK_IMPL(zlarfb)(SIDE,
43267 TRANS,
43268 DIRECT,
43269 STOREV,
43270 M,
43271 N,
43272 K,
43273 V,
43274 LDV,
43275 T,
43276 LDT,
43277 C,
43278 LDC,
43279 WORK,
43280 LDWORK);
43281 }
43282
43283 //-- zlarfg --------------------------------------------------------------------
43284 void
LAPACK_DECL(zlarfg)43285 LAPACK_DECL(zlarfg)(const INTEGER *N,
43286 DOUBLE_COMPLEX *ALPHA,
43287 DOUBLE_COMPLEX *X,
43288 const INTEGER *INCX,
43289 DOUBLE_COMPLEX *TAU)
43290 {
43291 DEBUG_LAPACK_STUB("zlarfg");
43292 LAPACK_IMPL(zlarfg)(N,
43293 ALPHA,
43294 X,
43295 INCX,
43296 TAU);
43297 }
43298
43299 //-- zlarfgp -------------------------------------------------------------------
43300 void
LAPACK_DECL(zlarfgp)43301 LAPACK_DECL(zlarfgp)(const INTEGER *N,
43302 DOUBLE_COMPLEX *ALPHA,
43303 DOUBLE_COMPLEX *X,
43304 const INTEGER *INCX,
43305 DOUBLE_COMPLEX *TAU)
43306 {
43307 DEBUG_LAPACK_STUB("zlarfgp");
43308 LAPACK_IMPL(zlarfgp)(N,
43309 ALPHA,
43310 X,
43311 INCX,
43312 TAU);
43313 }
43314
43315 //-- zlarft --------------------------------------------------------------------
43316 void
LAPACK_DECL(zlarft)43317 LAPACK_DECL(zlarft)(const char *DIRECT,
43318 const char *STOREV,
43319 const INTEGER *N,
43320 const INTEGER *K,
43321 DOUBLE_COMPLEX *V,
43322 const INTEGER *LDV,
43323 const DOUBLE_COMPLEX *TAU,
43324 DOUBLE_COMPLEX *T,
43325 const INTEGER *LDT)
43326 {
43327 DEBUG_LAPACK_STUB("zlarft");
43328 LAPACK_IMPL(zlarft)(DIRECT,
43329 STOREV,
43330 N,
43331 K,
43332 V,
43333 LDV,
43334 TAU,
43335 T,
43336 LDT);
43337 }
43338
43339 //-- zlarfx --------------------------------------------------------------------
43340 void
LAPACK_DECL(zlarfx)43341 LAPACK_DECL(zlarfx)(const char *SIDE,
43342 const INTEGER *M,
43343 const INTEGER *N,
43344 const DOUBLE_COMPLEX *V,
43345 const DOUBLE_COMPLEX *TAU,
43346 DOUBLE_COMPLEX *C,
43347 const INTEGER *LDC,
43348 DOUBLE_COMPLEX *WORK)
43349 {
43350 DEBUG_LAPACK_STUB("zlarfx");
43351 LAPACK_IMPL(zlarfx)(SIDE,
43352 M,
43353 N,
43354 V,
43355 TAU,
43356 C,
43357 LDC,
43358 WORK);
43359 }
43360
43361 //-- zlargv --------------------------------------------------------------------
43362 void
LAPACK_DECL(zlargv)43363 LAPACK_DECL(zlargv)(const INTEGER *N,
43364 DOUBLE_COMPLEX *X,
43365 const INTEGER *INCX,
43366 DOUBLE_COMPLEX *Y,
43367 const INTEGER *INCY,
43368 DOUBLE *C,
43369 const INTEGER *INCC)
43370 {
43371 DEBUG_LAPACK_STUB("zlargv");
43372 LAPACK_IMPL(zlargv)(N,
43373 X,
43374 INCX,
43375 Y,
43376 INCY,
43377 C,
43378 INCC);
43379 }
43380
43381 //-- zlarnv --------------------------------------------------------------------
43382 void
LAPACK_DECL(zlarnv)43383 LAPACK_DECL(zlarnv)(const INTEGER *IDIST,
43384 INTEGER *ISEED,
43385 const INTEGER *N,
43386 DOUBLE_COMPLEX *X)
43387 {
43388 DEBUG_LAPACK_STUB("zlarnv");
43389 LAPACK_IMPL(zlarnv)(IDIST,
43390 ISEED,
43391 N,
43392 X);
43393 }
43394
43395 //-- zlarrv --------------------------------------------------------------------
43396 void
LAPACK_DECL(zlarrv)43397 LAPACK_DECL(zlarrv)(const INTEGER *N,
43398 const DOUBLE *VL,
43399 const DOUBLE *VU,
43400 DOUBLE *D,
43401 DOUBLE *L,
43402 const DOUBLE *PIVMIN,
43403 const INTEGER *ISPLIT,
43404 const INTEGER *M,
43405 const INTEGER *DOL,
43406 const INTEGER *DOU,
43407 const DOUBLE *MINRGP,
43408 const DOUBLE *RTOL1,
43409 const DOUBLE *RTOL2,
43410 DOUBLE *W,
43411 DOUBLE *WERR,
43412 DOUBLE *WGAP,
43413 const INTEGER *IBLOCK,
43414 const INTEGER *INDEXW,
43415 const DOUBLE *GERS,
43416 DOUBLE_COMPLEX *Z,
43417 const INTEGER *LDZ,
43418 INTEGER *ISUPPZ,
43419 DOUBLE *WORK,
43420 INTEGER *IWORK,
43421 INTEGER *INFO)
43422 {
43423 DEBUG_LAPACK_STUB("zlarrv");
43424 LAPACK_IMPL(zlarrv)(N,
43425 VL,
43426 VU,
43427 D,
43428 L,
43429 PIVMIN,
43430 ISPLIT,
43431 M,
43432 DOL,
43433 DOU,
43434 MINRGP,
43435 RTOL1,
43436 RTOL2,
43437 W,
43438 WERR,
43439 WGAP,
43440 IBLOCK,
43441 INDEXW,
43442 GERS,
43443 Z,
43444 LDZ,
43445 ISUPPZ,
43446 WORK,
43447 IWORK,
43448 INFO);
43449 }
43450
43451 //-- zlarscl2 ------------------------------------------------------------------
43452 void
LAPACK_DECL(zlarscl2)43453 LAPACK_DECL(zlarscl2)(const INTEGER *M,
43454 const INTEGER *N,
43455 const DOUBLE *D,
43456 DOUBLE_COMPLEX *X,
43457 const INTEGER *LDX)
43458 {
43459 DEBUG_LAPACK_STUB("zlarscl2");
43460 LAPACK_IMPL(zlarscl2)(M,
43461 N,
43462 D,
43463 X,
43464 LDX);
43465 }
43466
43467 //-- zlartg --------------------------------------------------------------------
43468 void
LAPACK_DECL(zlartg)43469 LAPACK_DECL(zlartg)(const DOUBLE_COMPLEX *F,
43470 const DOUBLE_COMPLEX *G,
43471 DOUBLE *CS,
43472 DOUBLE_COMPLEX *SN,
43473 DOUBLE_COMPLEX *R)
43474 {
43475 DEBUG_LAPACK_STUB("zlartg");
43476 LAPACK_IMPL(zlartg)(F,
43477 G,
43478 CS,
43479 SN,
43480 R);
43481 }
43482
43483 //-- zlartv --------------------------------------------------------------------
43484 void
LAPACK_DECL(zlartv)43485 LAPACK_DECL(zlartv)(const INTEGER *N,
43486 DOUBLE_COMPLEX *X,
43487 const INTEGER *INCX,
43488 DOUBLE_COMPLEX *Y,
43489 const INTEGER *INCY,
43490 const DOUBLE *C,
43491 const DOUBLE_COMPLEX *S,
43492 const INTEGER *INCC)
43493 {
43494 DEBUG_LAPACK_STUB("zlartv");
43495 LAPACK_IMPL(zlartv)(N,
43496 X,
43497 INCX,
43498 Y,
43499 INCY,
43500 C,
43501 S,
43502 INCC);
43503 }
43504
43505 //-- zlarz ---------------------------------------------------------------------
43506 void
LAPACK_DECL(zlarz)43507 LAPACK_DECL(zlarz)(const char *SIDE,
43508 const INTEGER *M,
43509 const INTEGER *N,
43510 const INTEGER *L,
43511 const DOUBLE_COMPLEX *V,
43512 const INTEGER *INCV,
43513 const DOUBLE_COMPLEX *TAU,
43514 DOUBLE_COMPLEX *C,
43515 const INTEGER *LDC,
43516 DOUBLE_COMPLEX *WORK)
43517 {
43518 DEBUG_LAPACK_STUB("zlarz");
43519 LAPACK_IMPL(zlarz)(SIDE,
43520 M,
43521 N,
43522 L,
43523 V,
43524 INCV,
43525 TAU,
43526 C,
43527 LDC,
43528 WORK);
43529 }
43530
43531 //-- zlarzb --------------------------------------------------------------------
43532 void
LAPACK_DECL(zlarzb)43533 LAPACK_DECL(zlarzb)(const char *SIDE,
43534 const char *TRANS,
43535 const char *DIRECT,
43536 const char *STOREV,
43537 const INTEGER *M,
43538 const INTEGER *N,
43539 const INTEGER *K,
43540 const INTEGER *L,
43541 const DOUBLE_COMPLEX *V,
43542 const INTEGER *LDV,
43543 const DOUBLE_COMPLEX *T,
43544 const INTEGER *LDT,
43545 DOUBLE_COMPLEX *C,
43546 const INTEGER *LDC,
43547 DOUBLE_COMPLEX *WORK,
43548 const INTEGER *LDWORK)
43549 {
43550 DEBUG_LAPACK_STUB("zlarzb");
43551 LAPACK_IMPL(zlarzb)(SIDE,
43552 TRANS,
43553 DIRECT,
43554 STOREV,
43555 M,
43556 N,
43557 K,
43558 L,
43559 V,
43560 LDV,
43561 T,
43562 LDT,
43563 C,
43564 LDC,
43565 WORK,
43566 LDWORK);
43567 }
43568
43569 //-- zlarzt --------------------------------------------------------------------
43570 void
LAPACK_DECL(zlarzt)43571 LAPACK_DECL(zlarzt)(const char *DIRECT,
43572 const char *STOREV,
43573 const INTEGER *N,
43574 const INTEGER *K,
43575 DOUBLE_COMPLEX *V,
43576 const INTEGER *LDV,
43577 const DOUBLE_COMPLEX *TAU,
43578 DOUBLE_COMPLEX *T,
43579 const INTEGER *LDT)
43580 {
43581 DEBUG_LAPACK_STUB("zlarzt");
43582 LAPACK_IMPL(zlarzt)(DIRECT,
43583 STOREV,
43584 N,
43585 K,
43586 V,
43587 LDV,
43588 TAU,
43589 T,
43590 LDT);
43591 }
43592
43593 //-- zlascl --------------------------------------------------------------------
43594 void
LAPACK_DECL(zlascl)43595 LAPACK_DECL(zlascl)(const char *TYPE,
43596 const INTEGER *KL,
43597 const INTEGER *KU,
43598 const DOUBLE *CFROM,
43599 const DOUBLE *CTO,
43600 const INTEGER *M,
43601 const INTEGER *N,
43602 DOUBLE_COMPLEX *A,
43603 const INTEGER *LDA,
43604 INTEGER *INFO)
43605 {
43606 DEBUG_LAPACK_STUB("zlascl");
43607 LAPACK_IMPL(zlascl)(TYPE,
43608 KL,
43609 KU,
43610 CFROM,
43611 CTO,
43612 M,
43613 N,
43614 A,
43615 LDA,
43616 INFO);
43617 }
43618
43619 //-- zlascl2 -------------------------------------------------------------------
43620 void
LAPACK_DECL(zlascl2)43621 LAPACK_DECL(zlascl2)(const INTEGER *M,
43622 const INTEGER *N,
43623 const DOUBLE *D,
43624 DOUBLE_COMPLEX *X,
43625 const INTEGER *LDX)
43626 {
43627 DEBUG_LAPACK_STUB("zlascl2");
43628 LAPACK_IMPL(zlascl2)(M,
43629 N,
43630 D,
43631 X,
43632 LDX);
43633 }
43634
43635 //-- zlaset --------------------------------------------------------------------
43636 void
LAPACK_DECL(zlaset)43637 LAPACK_DECL(zlaset)(const char *UPLO,
43638 const INTEGER *M,
43639 const INTEGER *N,
43640 const DOUBLE_COMPLEX *ALPHA,
43641 const DOUBLE_COMPLEX *BETA,
43642 DOUBLE_COMPLEX *A,
43643 const INTEGER *LDA)
43644 {
43645 DEBUG_LAPACK_STUB("zlaset");
43646 LAPACK_IMPL(zlaset)(UPLO,
43647 M,
43648 N,
43649 ALPHA,
43650 BETA,
43651 A,
43652 LDA);
43653 }
43654
43655 //-- zlasr ---------------------------------------------------------------------
43656 void
LAPACK_DECL(zlasr)43657 LAPACK_DECL(zlasr)(const char *SIDE,
43658 const char *PIVOT,
43659 const char *DIRECT,
43660 const INTEGER *M,
43661 const INTEGER *N,
43662 const DOUBLE *C,
43663 const DOUBLE *S,
43664 DOUBLE_COMPLEX *A,
43665 const INTEGER *LDA)
43666 {
43667 DEBUG_LAPACK_STUB("zlasr");
43668 LAPACK_IMPL(zlasr)(SIDE,
43669 PIVOT,
43670 DIRECT,
43671 M,
43672 N,
43673 C,
43674 S,
43675 A,
43676 LDA);
43677 }
43678
43679 //-- zlassq --------------------------------------------------------------------
43680 void
LAPACK_DECL(zlassq)43681 LAPACK_DECL(zlassq)(const INTEGER *N,
43682 const DOUBLE_COMPLEX *X,
43683 const INTEGER *INCX,
43684 DOUBLE *SCALE,
43685 DOUBLE *SUMSQ)
43686 {
43687 DEBUG_LAPACK_STUB("zlassq");
43688 LAPACK_IMPL(zlassq)(N,
43689 X,
43690 INCX,
43691 SCALE,
43692 SUMSQ);
43693 }
43694
43695 //-- zlaswp --------------------------------------------------------------------
43696 void
LAPACK_DECL(zlaswp)43697 LAPACK_DECL(zlaswp)(const INTEGER *N,
43698 DOUBLE_COMPLEX *A,
43699 const INTEGER *LDA,
43700 const INTEGER *K1,
43701 const INTEGER *K2,
43702 const INTEGER *IPIV,
43703 const INTEGER *INCX)
43704 {
43705 DEBUG_LAPACK_STUB("zlaswp");
43706 LAPACK_IMPL(zlaswp)(N,
43707 A,
43708 LDA,
43709 K1,
43710 K2,
43711 IPIV,
43712 INCX);
43713 }
43714
43715 //-- zlasyf --------------------------------------------------------------------
43716 void
LAPACK_DECL(zlasyf)43717 LAPACK_DECL(zlasyf)(const char *UPLO,
43718 const INTEGER *N,
43719 const INTEGER *NB,
43720 INTEGER *KB,
43721 DOUBLE_COMPLEX *A,
43722 const INTEGER *LDA,
43723 INTEGER *IPIV,
43724 DOUBLE_COMPLEX *W,
43725 const INTEGER *LDW,
43726 INTEGER *INFO)
43727 {
43728 DEBUG_LAPACK_STUB("zlasyf");
43729 LAPACK_IMPL(zlasyf)(UPLO,
43730 N,
43731 NB,
43732 KB,
43733 A,
43734 LDA,
43735 IPIV,
43736 W,
43737 LDW,
43738 INFO);
43739 }
43740
43741 //-- zlat2c --------------------------------------------------------------------
43742 void
LAPACK_DECL(zlat2c)43743 LAPACK_DECL(zlat2c)(const char *UPLO,
43744 const INTEGER *N,
43745 const DOUBLE_COMPLEX *A,
43746 const INTEGER *LDA,
43747 FLOAT_COMPLEX *SA,
43748 const INTEGER *LDSA,
43749 INTEGER *INFO)
43750 {
43751 DEBUG_LAPACK_STUB("zlat2c");
43752 LAPACK_IMPL(zlat2c)(UPLO,
43753 N,
43754 A,
43755 LDA,
43756 SA,
43757 LDSA,
43758 INFO);
43759 }
43760
43761 //-- zlatbs --------------------------------------------------------------------
43762 void
LAPACK_DECL(zlatbs)43763 LAPACK_DECL(zlatbs)(const char *UPLO,
43764 const char *TRANS,
43765 const char *DIAG,
43766 const char *NORMIN,
43767 const INTEGER *N,
43768 const INTEGER *KD,
43769 const DOUBLE_COMPLEX *AB,
43770 const INTEGER *LDAB,
43771 DOUBLE_COMPLEX *X,
43772 DOUBLE *SCALE,
43773 DOUBLE *CNORM,
43774 INTEGER *INFO)
43775 {
43776 DEBUG_LAPACK_STUB("zlatbs");
43777 LAPACK_IMPL(zlatbs)(UPLO,
43778 TRANS,
43779 DIAG,
43780 NORMIN,
43781 N,
43782 KD,
43783 AB,
43784 LDAB,
43785 X,
43786 SCALE,
43787 CNORM,
43788 INFO);
43789 }
43790
43791 //-- zlatdf --------------------------------------------------------------------
43792 void
LAPACK_DECL(zlatdf)43793 LAPACK_DECL(zlatdf)(const INTEGER *IJOB,
43794 const INTEGER *N,
43795 const DOUBLE_COMPLEX *Z,
43796 const INTEGER *LDZ,
43797 DOUBLE_COMPLEX *RHS,
43798 DOUBLE *RDSUM,
43799 DOUBLE *RDSCAL,
43800 const INTEGER *IPIV,
43801 const INTEGER *JPIV)
43802 {
43803 DEBUG_LAPACK_STUB("zlatdf");
43804 LAPACK_IMPL(zlatdf)(IJOB,
43805 N,
43806 Z,
43807 LDZ,
43808 RHS,
43809 RDSUM,
43810 RDSCAL,
43811 IPIV,
43812 JPIV);
43813 }
43814
43815 //-- zlatps --------------------------------------------------------------------
43816 void
LAPACK_DECL(zlatps)43817 LAPACK_DECL(zlatps)(const char *UPLO,
43818 const char *TRANS,
43819 const char *DIAG,
43820 const char *NORMIN,
43821 const INTEGER *N,
43822 const DOUBLE_COMPLEX *AP,
43823 DOUBLE_COMPLEX *X,
43824 DOUBLE *SCALE,
43825 DOUBLE *CNORM,
43826 INTEGER *INFO)
43827 {
43828 DEBUG_LAPACK_STUB("zlatps");
43829 LAPACK_IMPL(zlatps)(UPLO,
43830 TRANS,
43831 DIAG,
43832 NORMIN,
43833 N,
43834 AP,
43835 X,
43836 SCALE,
43837 CNORM,
43838 INFO);
43839 }
43840
43841 //-- zlatrd --------------------------------------------------------------------
43842 void
LAPACK_DECL(zlatrd)43843 LAPACK_DECL(zlatrd)(const char *UPLO,
43844 const INTEGER *N,
43845 const INTEGER *NB,
43846 DOUBLE_COMPLEX *A,
43847 const INTEGER *LDA,
43848 DOUBLE *E,
43849 DOUBLE_COMPLEX *TAU,
43850 DOUBLE_COMPLEX *W,
43851 const INTEGER *LDW)
43852 {
43853 DEBUG_LAPACK_STUB("zlatrd");
43854 LAPACK_IMPL(zlatrd)(UPLO,
43855 N,
43856 NB,
43857 A,
43858 LDA,
43859 E,
43860 TAU,
43861 W,
43862 LDW);
43863 }
43864
43865 //-- zlatrs --------------------------------------------------------------------
43866 void
LAPACK_DECL(zlatrs)43867 LAPACK_DECL(zlatrs)(const char *UPLO,
43868 const char *TRANS,
43869 const char *DIAG,
43870 const char *NORMIN,
43871 const INTEGER *N,
43872 const DOUBLE_COMPLEX *A,
43873 const INTEGER *LDA,
43874 DOUBLE_COMPLEX *X,
43875 DOUBLE *SCALE,
43876 DOUBLE *CNORM,
43877 INTEGER *INFO)
43878 {
43879 DEBUG_LAPACK_STUB("zlatrs");
43880 LAPACK_IMPL(zlatrs)(UPLO,
43881 TRANS,
43882 DIAG,
43883 NORMIN,
43884 N,
43885 A,
43886 LDA,
43887 X,
43888 SCALE,
43889 CNORM,
43890 INFO);
43891 }
43892
43893 //-- zlatrz --------------------------------------------------------------------
43894 void
LAPACK_DECL(zlatrz)43895 LAPACK_DECL(zlatrz)(const INTEGER *M,
43896 const INTEGER *N,
43897 const INTEGER *L,
43898 DOUBLE_COMPLEX *A,
43899 const INTEGER *LDA,
43900 DOUBLE_COMPLEX *TAU,
43901 DOUBLE_COMPLEX *WORK)
43902 {
43903 DEBUG_LAPACK_STUB("zlatrz");
43904 LAPACK_IMPL(zlatrz)(M,
43905 N,
43906 L,
43907 A,
43908 LDA,
43909 TAU,
43910 WORK);
43911 }
43912
43913 //-- zlatzm --------------------------------------------------------------------
43914 void
LAPACK_DECL(zlatzm)43915 LAPACK_DECL(zlatzm)(const char *SIDE,
43916 const INTEGER *M,
43917 const INTEGER *N,
43918 const DOUBLE_COMPLEX *V,
43919 const INTEGER *INCV,
43920 const DOUBLE_COMPLEX *TAU,
43921 DOUBLE_COMPLEX *C1,
43922 DOUBLE_COMPLEX *C2,
43923 const INTEGER *LDC,
43924 DOUBLE_COMPLEX *WORK)
43925 {
43926 DEBUG_LAPACK_STUB("zlatzm");
43927 LAPACK_IMPL(zlatzm)(SIDE,
43928 M,
43929 N,
43930 V,
43931 INCV,
43932 TAU,
43933 C1,
43934 C2,
43935 LDC,
43936 WORK);
43937 }
43938
43939 //-- zlauu2 --------------------------------------------------------------------
43940 void
LAPACK_DECL(zlauu2)43941 LAPACK_DECL(zlauu2)(const char *UPLO,
43942 const INTEGER *N,
43943 DOUBLE_COMPLEX *A,
43944 const INTEGER *LDA,
43945 INTEGER *INFO)
43946 {
43947 DEBUG_LAPACK_STUB("zlauu2");
43948 LAPACK_IMPL(zlauu2)(UPLO,
43949 N,
43950 A,
43951 LDA,
43952 INFO);
43953 }
43954
43955 //-- zlauum --------------------------------------------------------------------
43956 void
LAPACK_DECL(zlauum)43957 LAPACK_DECL(zlauum)(const char *UPLO,
43958 const INTEGER *N,
43959 DOUBLE_COMPLEX *A,
43960 const INTEGER *LDA,
43961 INTEGER *INFO)
43962 {
43963 DEBUG_LAPACK_STUB("zlauum");
43964 LAPACK_IMPL(zlauum)(UPLO,
43965 N,
43966 A,
43967 LDA,
43968 INFO);
43969 }
43970
43971 //-- zpbcon --------------------------------------------------------------------
43972 void
LAPACK_DECL(zpbcon)43973 LAPACK_DECL(zpbcon)(const char *UPLO,
43974 const INTEGER *N,
43975 const INTEGER *KD,
43976 const DOUBLE_COMPLEX *AB,
43977 const INTEGER *LDAB,
43978 const DOUBLE *ANORM,
43979 DOUBLE *RCOND,
43980 DOUBLE_COMPLEX *WORK,
43981 DOUBLE *RWORK,
43982 INTEGER *INFO)
43983 {
43984 DEBUG_LAPACK_STUB("zpbcon");
43985 LAPACK_IMPL(zpbcon)(UPLO,
43986 N,
43987 KD,
43988 AB,
43989 LDAB,
43990 ANORM,
43991 RCOND,
43992 WORK,
43993 RWORK,
43994 INFO);
43995 }
43996
43997 //-- zpbequ --------------------------------------------------------------------
43998 void
LAPACK_DECL(zpbequ)43999 LAPACK_DECL(zpbequ)(const char *UPLO,
44000 const INTEGER *N,
44001 const INTEGER *KD,
44002 const DOUBLE_COMPLEX *AB,
44003 const INTEGER *LDAB,
44004 DOUBLE *S,
44005 DOUBLE *SCOND,
44006 DOUBLE *AMAX,
44007 INTEGER *INFO)
44008 {
44009 DEBUG_LAPACK_STUB("zpbequ");
44010 LAPACK_IMPL(zpbequ)(UPLO,
44011 N,
44012 KD,
44013 AB,
44014 LDAB,
44015 S,
44016 SCOND,
44017 AMAX,
44018 INFO);
44019 }
44020
44021 //-- zpbrfs --------------------------------------------------------------------
44022 void
LAPACK_DECL(zpbrfs)44023 LAPACK_DECL(zpbrfs)(const char *UPLO,
44024 const INTEGER *N,
44025 const INTEGER *KD,
44026 const INTEGER *NRHS,
44027 const DOUBLE_COMPLEX *AB,
44028 const INTEGER *LDAB,
44029 const DOUBLE_COMPLEX *AFB,
44030 const INTEGER *LDAFB,
44031 const DOUBLE_COMPLEX *B,
44032 const INTEGER *LDB,
44033 DOUBLE_COMPLEX *X,
44034 const INTEGER *LDX,
44035 DOUBLE *FERR,
44036 DOUBLE *BERR,
44037 DOUBLE_COMPLEX *WORK,
44038 DOUBLE *RWORK,
44039 INTEGER *INFO)
44040 {
44041 DEBUG_LAPACK_STUB("zpbrfs");
44042 LAPACK_IMPL(zpbrfs)(UPLO,
44043 N,
44044 KD,
44045 NRHS,
44046 AB,
44047 LDAB,
44048 AFB,
44049 LDAFB,
44050 B,
44051 LDB,
44052 X,
44053 LDX,
44054 FERR,
44055 BERR,
44056 WORK,
44057 RWORK,
44058 INFO);
44059 }
44060
44061 //-- zpbstf --------------------------------------------------------------------
44062 void
LAPACK_DECL(zpbstf)44063 LAPACK_DECL(zpbstf)(const char *UPLO,
44064 const INTEGER *N,
44065 const INTEGER *KD,
44066 DOUBLE_COMPLEX *AB,
44067 const INTEGER *LDAB,
44068 INTEGER *INFO)
44069 {
44070 DEBUG_LAPACK_STUB("zpbstf");
44071 LAPACK_IMPL(zpbstf)(UPLO,
44072 N,
44073 KD,
44074 AB,
44075 LDAB,
44076 INFO);
44077 }
44078
44079 //-- zpbsv ---------------------------------------------------------------------
44080 void
LAPACK_DECL(zpbsv)44081 LAPACK_DECL(zpbsv)(const char *UPLO,
44082 const INTEGER *N,
44083 const INTEGER *KD,
44084 const INTEGER *NRHS,
44085 DOUBLE_COMPLEX *AB,
44086 const INTEGER *LDAB,
44087 DOUBLE_COMPLEX *B,
44088 const INTEGER *LDB,
44089 INTEGER *INFO)
44090 {
44091 DEBUG_LAPACK_STUB("zpbsv");
44092 LAPACK_IMPL(zpbsv)(UPLO,
44093 N,
44094 KD,
44095 NRHS,
44096 AB,
44097 LDAB,
44098 B,
44099 LDB,
44100 INFO);
44101 }
44102
44103 //-- zpbsvx --------------------------------------------------------------------
44104 void
LAPACK_DECL(zpbsvx)44105 LAPACK_DECL(zpbsvx)(const char *FACT,
44106 const char *UPLO,
44107 const INTEGER *N,
44108 const INTEGER *KD,
44109 const INTEGER *NRHS,
44110 DOUBLE_COMPLEX *AB,
44111 const INTEGER *LDAB,
44112 DOUBLE_COMPLEX *AFB,
44113 const INTEGER *LDAFB,
44114 char *EQUED,
44115 DOUBLE *S,
44116 DOUBLE_COMPLEX *B,
44117 const INTEGER *LDB,
44118 DOUBLE_COMPLEX *X,
44119 const INTEGER *LDX,
44120 DOUBLE *RCOND,
44121 DOUBLE *FERR,
44122 DOUBLE *BERR,
44123 DOUBLE_COMPLEX *WORK,
44124 DOUBLE *RWORK,
44125 INTEGER *INFO)
44126 {
44127 DEBUG_LAPACK_STUB("zpbsvx");
44128 LAPACK_IMPL(zpbsvx)(FACT,
44129 UPLO,
44130 N,
44131 KD,
44132 NRHS,
44133 AB,
44134 LDAB,
44135 AFB,
44136 LDAFB,
44137 EQUED,
44138 S,
44139 B,
44140 LDB,
44141 X,
44142 LDX,
44143 RCOND,
44144 FERR,
44145 BERR,
44146 WORK,
44147 RWORK,
44148 INFO);
44149 }
44150
44151 //-- zpbtf2 --------------------------------------------------------------------
44152 void
LAPACK_DECL(zpbtf2)44153 LAPACK_DECL(zpbtf2)(const char *UPLO,
44154 const INTEGER *N,
44155 const INTEGER *KD,
44156 DOUBLE_COMPLEX *AB,
44157 const INTEGER *LDAB,
44158 INTEGER *INFO)
44159 {
44160 DEBUG_LAPACK_STUB("zpbtf2");
44161 LAPACK_IMPL(zpbtf2)(UPLO,
44162 N,
44163 KD,
44164 AB,
44165 LDAB,
44166 INFO);
44167 }
44168
44169 //-- zpbtrf --------------------------------------------------------------------
44170 void
LAPACK_DECL(zpbtrf)44171 LAPACK_DECL(zpbtrf)(const char *UPLO,
44172 const INTEGER *N,
44173 const INTEGER *KD,
44174 DOUBLE_COMPLEX *AB,
44175 const INTEGER *LDAB,
44176 INTEGER *INFO)
44177 {
44178 DEBUG_LAPACK_STUB("zpbtrf");
44179 LAPACK_IMPL(zpbtrf)(UPLO,
44180 N,
44181 KD,
44182 AB,
44183 LDAB,
44184 INFO);
44185 }
44186
44187 //-- zpbtrs --------------------------------------------------------------------
44188 void
LAPACK_DECL(zpbtrs)44189 LAPACK_DECL(zpbtrs)(const char *UPLO,
44190 const INTEGER *N,
44191 const INTEGER *KD,
44192 const INTEGER *NRHS,
44193 const DOUBLE_COMPLEX *AB,
44194 const INTEGER *LDAB,
44195 DOUBLE_COMPLEX *B,
44196 const INTEGER *LDB,
44197 INTEGER *INFO)
44198 {
44199 DEBUG_LAPACK_STUB("zpbtrs");
44200 LAPACK_IMPL(zpbtrs)(UPLO,
44201 N,
44202 KD,
44203 NRHS,
44204 AB,
44205 LDAB,
44206 B,
44207 LDB,
44208 INFO);
44209 }
44210
44211 //-- zpftrf --------------------------------------------------------------------
44212 void
LAPACK_DECL(zpftrf)44213 LAPACK_DECL(zpftrf)(const char *TRANSR,
44214 const char *UPLO,
44215 const INTEGER *N,
44216 DOUBLE_COMPLEX *A,
44217 INTEGER *INFO)
44218 {
44219 DEBUG_LAPACK_STUB("zpftrf");
44220 LAPACK_IMPL(zpftrf)(TRANSR,
44221 UPLO,
44222 N,
44223 A,
44224 INFO);
44225 }
44226
44227 //-- zpftri --------------------------------------------------------------------
44228 void
LAPACK_DECL(zpftri)44229 LAPACK_DECL(zpftri)(const char *TRANSR,
44230 const char *UPLO,
44231 const INTEGER *N,
44232 DOUBLE_COMPLEX *A,
44233 INTEGER *INFO)
44234 {
44235 DEBUG_LAPACK_STUB("zpftri");
44236 LAPACK_IMPL(zpftri)(TRANSR,
44237 UPLO,
44238 N,
44239 A,
44240 INFO);
44241 }
44242
44243 //-- zpftrs --------------------------------------------------------------------
44244 void
LAPACK_DECL(zpftrs)44245 LAPACK_DECL(zpftrs)(const char *TRANSR,
44246 const char *UPLO,
44247 const INTEGER *N,
44248 const INTEGER *NRHS,
44249 const DOUBLE_COMPLEX *A,
44250 DOUBLE_COMPLEX *B,
44251 const INTEGER *LDB,
44252 INTEGER *INFO)
44253 {
44254 DEBUG_LAPACK_STUB("zpftrs");
44255 LAPACK_IMPL(zpftrs)(TRANSR,
44256 UPLO,
44257 N,
44258 NRHS,
44259 A,
44260 B,
44261 LDB,
44262 INFO);
44263 }
44264
44265 //-- zpocon --------------------------------------------------------------------
44266 void
LAPACK_DECL(zpocon)44267 LAPACK_DECL(zpocon)(const char *UPLO,
44268 const INTEGER *N,
44269 const DOUBLE_COMPLEX *A,
44270 const INTEGER *LDA,
44271 const DOUBLE *ANORM,
44272 DOUBLE *RCOND,
44273 DOUBLE_COMPLEX *WORK,
44274 DOUBLE *RWORK,
44275 INTEGER *INFO)
44276 {
44277 DEBUG_LAPACK_STUB("zpocon");
44278 LAPACK_IMPL(zpocon)(UPLO,
44279 N,
44280 A,
44281 LDA,
44282 ANORM,
44283 RCOND,
44284 WORK,
44285 RWORK,
44286 INFO);
44287 }
44288
44289 //-- zpoequ --------------------------------------------------------------------
44290 void
LAPACK_DECL(zpoequ)44291 LAPACK_DECL(zpoequ)(const INTEGER *N,
44292 const DOUBLE_COMPLEX *A,
44293 const INTEGER *LDA,
44294 DOUBLE *S,
44295 DOUBLE *SCOND,
44296 DOUBLE *AMAX,
44297 INTEGER *INFO)
44298 {
44299 DEBUG_LAPACK_STUB("zpoequ");
44300 LAPACK_IMPL(zpoequ)(N,
44301 A,
44302 LDA,
44303 S,
44304 SCOND,
44305 AMAX,
44306 INFO);
44307 }
44308
44309 //-- zpoequb -------------------------------------------------------------------
44310 void
LAPACK_DECL(zpoequb)44311 LAPACK_DECL(zpoequb)(const INTEGER *N,
44312 const DOUBLE_COMPLEX *A,
44313 const INTEGER *LDA,
44314 DOUBLE *S,
44315 DOUBLE *SCOND,
44316 DOUBLE *AMAX,
44317 INTEGER *INFO)
44318 {
44319 DEBUG_LAPACK_STUB("zpoequb");
44320 LAPACK_IMPL(zpoequb)(N,
44321 A,
44322 LDA,
44323 S,
44324 SCOND,
44325 AMAX,
44326 INFO);
44327 }
44328
44329 //-- zporfs --------------------------------------------------------------------
44330 void
LAPACK_DECL(zporfs)44331 LAPACK_DECL(zporfs)(const char *UPLO,
44332 const INTEGER *N,
44333 const INTEGER *NRHS,
44334 const DOUBLE_COMPLEX *A,
44335 const INTEGER *LDA,
44336 const DOUBLE_COMPLEX *AF,
44337 const INTEGER *LDAF,
44338 const DOUBLE_COMPLEX *B,
44339 const INTEGER *LDB,
44340 DOUBLE_COMPLEX *X,
44341 const INTEGER *LDX,
44342 DOUBLE *FERR,
44343 DOUBLE *BERR,
44344 DOUBLE_COMPLEX *WORK,
44345 DOUBLE *RWORK,
44346 INTEGER *INFO)
44347 {
44348 DEBUG_LAPACK_STUB("zporfs");
44349 LAPACK_IMPL(zporfs)(UPLO,
44350 N,
44351 NRHS,
44352 A,
44353 LDA,
44354 AF,
44355 LDAF,
44356 B,
44357 LDB,
44358 X,
44359 LDX,
44360 FERR,
44361 BERR,
44362 WORK,
44363 RWORK,
44364 INFO);
44365 }
44366
44367 //-- zporfsx -------------------------------------------------------------------
44368 void
LAPACK_DECL(zporfsx)44369 LAPACK_DECL(zporfsx)(const char *UPLO,
44370 const char *EQUED,
44371 const INTEGER *N,
44372 const INTEGER *NRHS,
44373 const DOUBLE_COMPLEX *A,
44374 const INTEGER *LDA,
44375 const DOUBLE_COMPLEX *AF,
44376 const INTEGER *LDAF,
44377 DOUBLE *S,
44378 const DOUBLE_COMPLEX *B,
44379 const INTEGER *LDB,
44380 DOUBLE_COMPLEX *X,
44381 const INTEGER *LDX,
44382 DOUBLE *RCOND,
44383 DOUBLE *BERR,
44384 const INTEGER *N_ERR_BNDS,
44385 DOUBLE *ERR_BNDS_NORM,
44386 DOUBLE *ERR_BNDS_COMP,
44387 const INTEGER *NPARAMS,
44388 DOUBLE *PARAMS,
44389 DOUBLE_COMPLEX *WORK,
44390 DOUBLE *RWORK,
44391 INTEGER *INFO)
44392 {
44393 DEBUG_LAPACK_STUB("zporfsx");
44394 LAPACK_IMPL(zporfsx)(UPLO,
44395 EQUED,
44396 N,
44397 NRHS,
44398 A,
44399 LDA,
44400 AF,
44401 LDAF,
44402 S,
44403 B,
44404 LDB,
44405 X,
44406 LDX,
44407 RCOND,
44408 BERR,
44409 N_ERR_BNDS,
44410 ERR_BNDS_NORM,
44411 ERR_BNDS_COMP,
44412 NPARAMS,
44413 PARAMS,
44414 WORK,
44415 RWORK,
44416 INFO);
44417 }
44418
44419 //-- zposv ---------------------------------------------------------------------
44420 void
LAPACK_DECL(zposv)44421 LAPACK_DECL(zposv)(const char *UPLO,
44422 const INTEGER *N,
44423 const INTEGER *NRHS,
44424 DOUBLE_COMPLEX *A,
44425 const INTEGER *LDA,
44426 DOUBLE_COMPLEX *B,
44427 const INTEGER *LDB,
44428 INTEGER *INFO)
44429 {
44430 DEBUG_LAPACK_STUB("zposv");
44431 LAPACK_IMPL(zposv)(UPLO,
44432 N,
44433 NRHS,
44434 A,
44435 LDA,
44436 B,
44437 LDB,
44438 INFO);
44439 }
44440
44441 //-- zposvx --------------------------------------------------------------------
44442 void
LAPACK_DECL(zposvx)44443 LAPACK_DECL(zposvx)(const char *FACT,
44444 const char *UPLO,
44445 const INTEGER *N,
44446 const INTEGER *NRHS,
44447 DOUBLE_COMPLEX *A,
44448 const INTEGER *LDA,
44449 DOUBLE_COMPLEX *AF,
44450 const INTEGER *LDAF,
44451 char *EQUED,
44452 DOUBLE *S,
44453 DOUBLE_COMPLEX *B,
44454 const INTEGER *LDB,
44455 DOUBLE_COMPLEX *X,
44456 const INTEGER *LDX,
44457 DOUBLE *RCOND,
44458 DOUBLE *FERR,
44459 DOUBLE *BERR,
44460 DOUBLE_COMPLEX *WORK,
44461 DOUBLE *RWORK,
44462 INTEGER *INFO)
44463 {
44464 DEBUG_LAPACK_STUB("zposvx");
44465 LAPACK_IMPL(zposvx)(FACT,
44466 UPLO,
44467 N,
44468 NRHS,
44469 A,
44470 LDA,
44471 AF,
44472 LDAF,
44473 EQUED,
44474 S,
44475 B,
44476 LDB,
44477 X,
44478 LDX,
44479 RCOND,
44480 FERR,
44481 BERR,
44482 WORK,
44483 RWORK,
44484 INFO);
44485 }
44486
44487 //-- zposvxx -------------------------------------------------------------------
44488 void
LAPACK_DECL(zposvxx)44489 LAPACK_DECL(zposvxx)(const char *FACT,
44490 const char *UPLO,
44491 const INTEGER *N,
44492 const INTEGER *NRHS,
44493 DOUBLE_COMPLEX *A,
44494 const INTEGER *LDA,
44495 DOUBLE_COMPLEX *AF,
44496 const INTEGER *LDAF,
44497 char *EQUED,
44498 DOUBLE *S,
44499 DOUBLE_COMPLEX *B,
44500 const INTEGER *LDB,
44501 DOUBLE_COMPLEX *X,
44502 const INTEGER *LDX,
44503 DOUBLE *RCOND,
44504 DOUBLE *RPVGRW,
44505 DOUBLE *BERR,
44506 const INTEGER *N_ERR_BNDS,
44507 DOUBLE *ERR_BNDS_NORM,
44508 DOUBLE *ERR_BNDS_COMP,
44509 const INTEGER *NPARAMS,
44510 DOUBLE *PARAMS,
44511 DOUBLE_COMPLEX *WORK,
44512 DOUBLE *RWORK,
44513 INTEGER *INFO)
44514 {
44515 DEBUG_LAPACK_STUB("zposvxx");
44516 LAPACK_IMPL(zposvxx)(FACT,
44517 UPLO,
44518 N,
44519 NRHS,
44520 A,
44521 LDA,
44522 AF,
44523 LDAF,
44524 EQUED,
44525 S,
44526 B,
44527 LDB,
44528 X,
44529 LDX,
44530 RCOND,
44531 RPVGRW,
44532 BERR,
44533 N_ERR_BNDS,
44534 ERR_BNDS_NORM,
44535 ERR_BNDS_COMP,
44536 NPARAMS,
44537 PARAMS,
44538 WORK,
44539 RWORK,
44540 INFO);
44541 }
44542
44543 //-- zpotf2 --------------------------------------------------------------------
44544 void
LAPACK_DECL(zpotf2)44545 LAPACK_DECL(zpotf2)(const char *UPLO,
44546 const INTEGER *N,
44547 DOUBLE_COMPLEX *A,
44548 const INTEGER *LDA,
44549 INTEGER *INFO)
44550 {
44551 DEBUG_LAPACK_STUB("zpotf2");
44552 LAPACK_IMPL(zpotf2)(UPLO,
44553 N,
44554 A,
44555 LDA,
44556 INFO);
44557 }
44558
44559 //-- zpotrf --------------------------------------------------------------------
44560 void
LAPACK_DECL(zpotrf)44561 LAPACK_DECL(zpotrf)(const char *UPLO,
44562 const INTEGER *N,
44563 DOUBLE_COMPLEX *A,
44564 const INTEGER *LDA,
44565 INTEGER *INFO)
44566 {
44567 DEBUG_LAPACK_STUB("zpotrf");
44568 LAPACK_IMPL(zpotrf)(UPLO,
44569 N,
44570 A,
44571 LDA,
44572 INFO);
44573 }
44574
44575 //-- zpotri --------------------------------------------------------------------
44576 void
LAPACK_DECL(zpotri)44577 LAPACK_DECL(zpotri)(const char *UPLO,
44578 const INTEGER *N,
44579 DOUBLE_COMPLEX *A,
44580 const INTEGER *LDA,
44581 INTEGER *INFO)
44582 {
44583 DEBUG_LAPACK_STUB("zpotri");
44584 LAPACK_IMPL(zpotri)(UPLO,
44585 N,
44586 A,
44587 LDA,
44588 INFO);
44589 }
44590
44591 //-- zpotrs --------------------------------------------------------------------
44592 void
LAPACK_DECL(zpotrs)44593 LAPACK_DECL(zpotrs)(const char *UPLO,
44594 const INTEGER *N,
44595 const INTEGER *NRHS,
44596 const DOUBLE_COMPLEX *A,
44597 const INTEGER *LDA,
44598 DOUBLE_COMPLEX *B,
44599 const INTEGER *LDB,
44600 INTEGER *INFO)
44601 {
44602 DEBUG_LAPACK_STUB("zpotrs");
44603 LAPACK_IMPL(zpotrs)(UPLO,
44604 N,
44605 NRHS,
44606 A,
44607 LDA,
44608 B,
44609 LDB,
44610 INFO);
44611 }
44612
44613 //-- zppcon --------------------------------------------------------------------
44614 void
LAPACK_DECL(zppcon)44615 LAPACK_DECL(zppcon)(const char *UPLO,
44616 const INTEGER *N,
44617 const DOUBLE_COMPLEX *AP,
44618 const DOUBLE *ANORM,
44619 DOUBLE *RCOND,
44620 DOUBLE_COMPLEX *WORK,
44621 DOUBLE *RWORK,
44622 INTEGER *INFO)
44623 {
44624 DEBUG_LAPACK_STUB("zppcon");
44625 LAPACK_IMPL(zppcon)(UPLO,
44626 N,
44627 AP,
44628 ANORM,
44629 RCOND,
44630 WORK,
44631 RWORK,
44632 INFO);
44633 }
44634
44635 //-- zppequ --------------------------------------------------------------------
44636 void
LAPACK_DECL(zppequ)44637 LAPACK_DECL(zppequ)(const char *UPLO,
44638 const INTEGER *N,
44639 const DOUBLE_COMPLEX *AP,
44640 DOUBLE *S,
44641 DOUBLE *SCOND,
44642 DOUBLE *AMAX,
44643 INTEGER *INFO)
44644 {
44645 DEBUG_LAPACK_STUB("zppequ");
44646 LAPACK_IMPL(zppequ)(UPLO,
44647 N,
44648 AP,
44649 S,
44650 SCOND,
44651 AMAX,
44652 INFO);
44653 }
44654
44655 //-- zpprfs --------------------------------------------------------------------
44656 void
LAPACK_DECL(zpprfs)44657 LAPACK_DECL(zpprfs)(const char *UPLO,
44658 const INTEGER *N,
44659 const INTEGER *NRHS,
44660 const DOUBLE_COMPLEX *AP,
44661 const DOUBLE_COMPLEX *AFP,
44662 const DOUBLE_COMPLEX *B,
44663 const INTEGER *LDB,
44664 DOUBLE_COMPLEX *X,
44665 const INTEGER *LDX,
44666 DOUBLE *FERR,
44667 DOUBLE *BERR,
44668 DOUBLE_COMPLEX *WORK,
44669 DOUBLE *RWORK,
44670 INTEGER *INFO)
44671 {
44672 DEBUG_LAPACK_STUB("zpprfs");
44673 LAPACK_IMPL(zpprfs)(UPLO,
44674 N,
44675 NRHS,
44676 AP,
44677 AFP,
44678 B,
44679 LDB,
44680 X,
44681 LDX,
44682 FERR,
44683 BERR,
44684 WORK,
44685 RWORK,
44686 INFO);
44687 }
44688
44689 //-- zppsv ---------------------------------------------------------------------
44690 void
LAPACK_DECL(zppsv)44691 LAPACK_DECL(zppsv)(const char *UPLO,
44692 const INTEGER *N,
44693 const INTEGER *NRHS,
44694 DOUBLE_COMPLEX *AP,
44695 DOUBLE_COMPLEX *B,
44696 const INTEGER *LDB,
44697 INTEGER *INFO)
44698 {
44699 DEBUG_LAPACK_STUB("zppsv");
44700 LAPACK_IMPL(zppsv)(UPLO,
44701 N,
44702 NRHS,
44703 AP,
44704 B,
44705 LDB,
44706 INFO);
44707 }
44708
44709 //-- zppsvx --------------------------------------------------------------------
44710 void
LAPACK_DECL(zppsvx)44711 LAPACK_DECL(zppsvx)(const char *FACT,
44712 const char *UPLO,
44713 const INTEGER *N,
44714 const INTEGER *NRHS,
44715 DOUBLE_COMPLEX *AP,
44716 DOUBLE_COMPLEX *AFP,
44717 char *EQUED,
44718 DOUBLE *S,
44719 DOUBLE_COMPLEX *B,
44720 const INTEGER *LDB,
44721 DOUBLE_COMPLEX *X,
44722 const INTEGER *LDX,
44723 DOUBLE *RCOND,
44724 DOUBLE *FERR,
44725 DOUBLE *BERR,
44726 DOUBLE_COMPLEX *WORK,
44727 DOUBLE *RWORK,
44728 INTEGER *INFO)
44729 {
44730 DEBUG_LAPACK_STUB("zppsvx");
44731 LAPACK_IMPL(zppsvx)(FACT,
44732 UPLO,
44733 N,
44734 NRHS,
44735 AP,
44736 AFP,
44737 EQUED,
44738 S,
44739 B,
44740 LDB,
44741 X,
44742 LDX,
44743 RCOND,
44744 FERR,
44745 BERR,
44746 WORK,
44747 RWORK,
44748 INFO);
44749 }
44750
44751 //-- zpptrf --------------------------------------------------------------------
44752 void
LAPACK_DECL(zpptrf)44753 LAPACK_DECL(zpptrf)(const char *UPLO,
44754 const INTEGER *N,
44755 DOUBLE_COMPLEX *AP,
44756 INTEGER *INFO)
44757 {
44758 DEBUG_LAPACK_STUB("zpptrf");
44759 LAPACK_IMPL(zpptrf)(UPLO,
44760 N,
44761 AP,
44762 INFO);
44763 }
44764
44765 //-- zpptri --------------------------------------------------------------------
44766 void
LAPACK_DECL(zpptri)44767 LAPACK_DECL(zpptri)(const char *UPLO,
44768 const INTEGER *N,
44769 DOUBLE_COMPLEX *AP,
44770 INTEGER *INFO)
44771 {
44772 DEBUG_LAPACK_STUB("zpptri");
44773 LAPACK_IMPL(zpptri)(UPLO,
44774 N,
44775 AP,
44776 INFO);
44777 }
44778
44779 //-- zpptrs --------------------------------------------------------------------
44780 void
LAPACK_DECL(zpptrs)44781 LAPACK_DECL(zpptrs)(const char *UPLO,
44782 const INTEGER *N,
44783 const INTEGER *NRHS,
44784 const DOUBLE_COMPLEX *AP,
44785 DOUBLE_COMPLEX *B,
44786 const INTEGER *LDB,
44787 INTEGER *INFO)
44788 {
44789 DEBUG_LAPACK_STUB("zpptrs");
44790 LAPACK_IMPL(zpptrs)(UPLO,
44791 N,
44792 NRHS,
44793 AP,
44794 B,
44795 LDB,
44796 INFO);
44797 }
44798
44799 //-- zpstf2 --------------------------------------------------------------------
44800 void
LAPACK_DECL(zpstf2)44801 LAPACK_DECL(zpstf2)(const char *UPLO,
44802 const INTEGER *N,
44803 DOUBLE_COMPLEX *A,
44804 const INTEGER *LDA,
44805 INTEGER *PIV,
44806 INTEGER *RANK,
44807 const DOUBLE *TOL,
44808 DOUBLE *WORK,
44809 INTEGER *INFO)
44810 {
44811 DEBUG_LAPACK_STUB("zpstf2");
44812 LAPACK_IMPL(zpstf2)(UPLO,
44813 N,
44814 A,
44815 LDA,
44816 PIV,
44817 RANK,
44818 TOL,
44819 WORK,
44820 INFO);
44821 }
44822
44823 //-- zpstrf --------------------------------------------------------------------
44824 void
LAPACK_DECL(zpstrf)44825 LAPACK_DECL(zpstrf)(const char *UPLO,
44826 const INTEGER *N,
44827 DOUBLE_COMPLEX *A,
44828 const INTEGER *LDA,
44829 INTEGER *PIV,
44830 INTEGER *RANK,
44831 const DOUBLE *TOL,
44832 DOUBLE *WORK,
44833 INTEGER *INFO)
44834 {
44835 DEBUG_LAPACK_STUB("zpstrf");
44836 LAPACK_IMPL(zpstrf)(UPLO,
44837 N,
44838 A,
44839 LDA,
44840 PIV,
44841 RANK,
44842 TOL,
44843 WORK,
44844 INFO);
44845 }
44846
44847 //-- zptcon --------------------------------------------------------------------
44848 void
LAPACK_DECL(zptcon)44849 LAPACK_DECL(zptcon)(const INTEGER *N,
44850 const DOUBLE *D,
44851 const DOUBLE_COMPLEX *E,
44852 const DOUBLE *ANORM,
44853 DOUBLE *RCOND,
44854 DOUBLE *RWORK,
44855 INTEGER *INFO)
44856 {
44857 DEBUG_LAPACK_STUB("zptcon");
44858 LAPACK_IMPL(zptcon)(N,
44859 D,
44860 E,
44861 ANORM,
44862 RCOND,
44863 RWORK,
44864 INFO);
44865 }
44866
44867 //-- zpteqr --------------------------------------------------------------------
44868 void
LAPACK_DECL(zpteqr)44869 LAPACK_DECL(zpteqr)(const char *COMPZ,
44870 const INTEGER *N,
44871 DOUBLE *D,
44872 DOUBLE *E,
44873 DOUBLE_COMPLEX *Z,
44874 const INTEGER *LDZ,
44875 DOUBLE *WORK,
44876 INTEGER *INFO)
44877 {
44878 DEBUG_LAPACK_STUB("zpteqr");
44879 LAPACK_IMPL(zpteqr)(COMPZ,
44880 N,
44881 D,
44882 E,
44883 Z,
44884 LDZ,
44885 WORK,
44886 INFO);
44887 }
44888
44889 //-- zptrfs --------------------------------------------------------------------
44890 void
LAPACK_DECL(zptrfs)44891 LAPACK_DECL(zptrfs)(const char *UPLO,
44892 const INTEGER *N,
44893 const INTEGER *NRHS,
44894 const DOUBLE *D,
44895 const DOUBLE_COMPLEX *E,
44896 const DOUBLE *DF,
44897 const DOUBLE_COMPLEX *EF,
44898 const DOUBLE_COMPLEX *B,
44899 const INTEGER *LDB,
44900 DOUBLE_COMPLEX *X,
44901 const INTEGER *LDX,
44902 DOUBLE *FERR,
44903 DOUBLE *BERR,
44904 DOUBLE_COMPLEX *WORK,
44905 DOUBLE *RWORK,
44906 INTEGER *INFO)
44907 {
44908 DEBUG_LAPACK_STUB("zptrfs");
44909 LAPACK_IMPL(zptrfs)(UPLO,
44910 N,
44911 NRHS,
44912 D,
44913 E,
44914 DF,
44915 EF,
44916 B,
44917 LDB,
44918 X,
44919 LDX,
44920 FERR,
44921 BERR,
44922 WORK,
44923 RWORK,
44924 INFO);
44925 }
44926
44927 //-- zptsv ---------------------------------------------------------------------
44928 void
LAPACK_DECL(zptsv)44929 LAPACK_DECL(zptsv)(const INTEGER *N,
44930 const INTEGER *NRHS,
44931 DOUBLE *D,
44932 DOUBLE_COMPLEX *E,
44933 DOUBLE_COMPLEX *B,
44934 const INTEGER *LDB,
44935 INTEGER *INFO)
44936 {
44937 DEBUG_LAPACK_STUB("zptsv");
44938 LAPACK_IMPL(zptsv)(N,
44939 NRHS,
44940 D,
44941 E,
44942 B,
44943 LDB,
44944 INFO);
44945 }
44946
44947 //-- zptsvx --------------------------------------------------------------------
44948 void
LAPACK_DECL(zptsvx)44949 LAPACK_DECL(zptsvx)(const char *FACT,
44950 const INTEGER *N,
44951 const INTEGER *NRHS,
44952 const DOUBLE *D,
44953 const DOUBLE_COMPLEX *E,
44954 DOUBLE *DF,
44955 DOUBLE_COMPLEX *EF,
44956 const DOUBLE_COMPLEX *B,
44957 const INTEGER *LDB,
44958 DOUBLE_COMPLEX *X,
44959 const INTEGER *LDX,
44960 DOUBLE *RCOND,
44961 DOUBLE *FERR,
44962 DOUBLE *BERR,
44963 DOUBLE_COMPLEX *WORK,
44964 DOUBLE *RWORK,
44965 INTEGER *INFO)
44966 {
44967 DEBUG_LAPACK_STUB("zptsvx");
44968 LAPACK_IMPL(zptsvx)(FACT,
44969 N,
44970 NRHS,
44971 D,
44972 E,
44973 DF,
44974 EF,
44975 B,
44976 LDB,
44977 X,
44978 LDX,
44979 RCOND,
44980 FERR,
44981 BERR,
44982 WORK,
44983 RWORK,
44984 INFO);
44985 }
44986
44987 //-- zpttrf --------------------------------------------------------------------
44988 void
LAPACK_DECL(zpttrf)44989 LAPACK_DECL(zpttrf)(const INTEGER *N,
44990 DOUBLE *D,
44991 DOUBLE_COMPLEX *E,
44992 INTEGER *INFO)
44993 {
44994 DEBUG_LAPACK_STUB("zpttrf");
44995 LAPACK_IMPL(zpttrf)(N,
44996 D,
44997 E,
44998 INFO);
44999 }
45000
45001 //-- zpttrs --------------------------------------------------------------------
45002 void
LAPACK_DECL(zpttrs)45003 LAPACK_DECL(zpttrs)(const char *UPLO,
45004 const INTEGER *N,
45005 const INTEGER *NRHS,
45006 const DOUBLE *D,
45007 const DOUBLE_COMPLEX *E,
45008 DOUBLE_COMPLEX *B,
45009 const INTEGER *LDB,
45010 INTEGER *INFO)
45011 {
45012 DEBUG_LAPACK_STUB("zpttrs");
45013 LAPACK_IMPL(zpttrs)(UPLO,
45014 N,
45015 NRHS,
45016 D,
45017 E,
45018 B,
45019 LDB,
45020 INFO);
45021 }
45022
45023 //-- zptts2 --------------------------------------------------------------------
45024 void
LAPACK_DECL(zptts2)45025 LAPACK_DECL(zptts2)(const INTEGER *IUPLO,
45026 const INTEGER *N,
45027 const INTEGER *NRHS,
45028 const DOUBLE *D,
45029 const DOUBLE_COMPLEX *E,
45030 DOUBLE_COMPLEX *B,
45031 const INTEGER *LDB)
45032 {
45033 DEBUG_LAPACK_STUB("zptts2");
45034 LAPACK_IMPL(zptts2)(IUPLO,
45035 N,
45036 NRHS,
45037 D,
45038 E,
45039 B,
45040 LDB);
45041 }
45042
45043 //-- zrot ----------------------------------------------------------------------
45044 void
LAPACK_DECL(zrot)45045 LAPACK_DECL(zrot)(const INTEGER *N,
45046 DOUBLE_COMPLEX *CX,
45047 const INTEGER *INCX,
45048 DOUBLE_COMPLEX *CY,
45049 const INTEGER *INCY,
45050 const DOUBLE *C,
45051 const DOUBLE_COMPLEX *S)
45052 {
45053 DEBUG_LAPACK_STUB("zrot");
45054 LAPACK_IMPL(zrot)(N,
45055 CX,
45056 INCX,
45057 CY,
45058 INCY,
45059 C,
45060 S);
45061 }
45062
45063 //-- zspcon --------------------------------------------------------------------
45064 void
LAPACK_DECL(zspcon)45065 LAPACK_DECL(zspcon)(const char *UPLO,
45066 const INTEGER *N,
45067 const DOUBLE_COMPLEX *AP,
45068 const INTEGER *IPIV,
45069 const DOUBLE *ANORM,
45070 DOUBLE *RCOND,
45071 DOUBLE_COMPLEX *WORK,
45072 INTEGER *INFO)
45073 {
45074 DEBUG_LAPACK_STUB("zspcon");
45075 LAPACK_IMPL(zspcon)(UPLO,
45076 N,
45077 AP,
45078 IPIV,
45079 ANORM,
45080 RCOND,
45081 WORK,
45082 INFO);
45083 }
45084
45085 //-- zspmv ---------------------------------------------------------------------
45086 void
LAPACK_DECL(zspmv)45087 LAPACK_DECL(zspmv)(const char *UPLO,
45088 const INTEGER *N,
45089 const DOUBLE_COMPLEX *ALPHA,
45090 const DOUBLE_COMPLEX *AP,
45091 const DOUBLE_COMPLEX *X,
45092 const INTEGER *INCX,
45093 const DOUBLE_COMPLEX *BETA,
45094 DOUBLE_COMPLEX *Y,
45095 const INTEGER *INCY)
45096 {
45097 DEBUG_LAPACK_STUB("zspmv");
45098 LAPACK_IMPL(zspmv)(UPLO,
45099 N,
45100 ALPHA,
45101 AP,
45102 X,
45103 INCX,
45104 BETA,
45105 Y,
45106 INCY);
45107 }
45108
45109 //-- zspr ----------------------------------------------------------------------
45110 void
LAPACK_DECL(zspr)45111 LAPACK_DECL(zspr)(const char *UPLO,
45112 const INTEGER *N,
45113 const DOUBLE_COMPLEX *ALPHA,
45114 const DOUBLE_COMPLEX *X,
45115 const INTEGER *INCX,
45116 DOUBLE_COMPLEX *AP)
45117 {
45118 DEBUG_LAPACK_STUB("zspr");
45119 LAPACK_IMPL(zspr)(UPLO,
45120 N,
45121 ALPHA,
45122 X,
45123 INCX,
45124 AP);
45125 }
45126
45127 //-- zsprfs --------------------------------------------------------------------
45128 void
LAPACK_DECL(zsprfs)45129 LAPACK_DECL(zsprfs)(const char *UPLO,
45130 const INTEGER *N,
45131 const INTEGER *NRHS,
45132 const DOUBLE_COMPLEX *AP,
45133 const DOUBLE_COMPLEX *AFP,
45134 const INTEGER *IPIV,
45135 const DOUBLE_COMPLEX *B,
45136 const INTEGER *LDB,
45137 DOUBLE_COMPLEX *X,
45138 const INTEGER *LDX,
45139 DOUBLE *FERR,
45140 DOUBLE *BERR,
45141 DOUBLE_COMPLEX *WORK,
45142 DOUBLE *RWORK,
45143 INTEGER *INFO)
45144 {
45145 DEBUG_LAPACK_STUB("zsprfs");
45146 LAPACK_IMPL(zsprfs)(UPLO,
45147 N,
45148 NRHS,
45149 AP,
45150 AFP,
45151 IPIV,
45152 B,
45153 LDB,
45154 X,
45155 LDX,
45156 FERR,
45157 BERR,
45158 WORK,
45159 RWORK,
45160 INFO);
45161 }
45162
45163 //-- zspsv ---------------------------------------------------------------------
45164 void
LAPACK_DECL(zspsv)45165 LAPACK_DECL(zspsv)(const char *UPLO,
45166 const INTEGER *N,
45167 const INTEGER *NRHS,
45168 DOUBLE_COMPLEX *AP,
45169 INTEGER *IPIV,
45170 DOUBLE_COMPLEX *B,
45171 const INTEGER *LDB,
45172 INTEGER *INFO)
45173 {
45174 DEBUG_LAPACK_STUB("zspsv");
45175 LAPACK_IMPL(zspsv)(UPLO,
45176 N,
45177 NRHS,
45178 AP,
45179 IPIV,
45180 B,
45181 LDB,
45182 INFO);
45183 }
45184
45185 //-- zspsvx --------------------------------------------------------------------
45186 void
LAPACK_DECL(zspsvx)45187 LAPACK_DECL(zspsvx)(const char *FACT,
45188 const char *UPLO,
45189 const INTEGER *N,
45190 const INTEGER *NRHS,
45191 const DOUBLE_COMPLEX *AP,
45192 DOUBLE_COMPLEX *AFP,
45193 INTEGER *IPIV,
45194 const DOUBLE_COMPLEX *B,
45195 const INTEGER *LDB,
45196 DOUBLE_COMPLEX *X,
45197 const INTEGER *LDX,
45198 DOUBLE *RCOND,
45199 DOUBLE *FERR,
45200 DOUBLE *BERR,
45201 DOUBLE_COMPLEX *WORK,
45202 DOUBLE *RWORK,
45203 INTEGER *INFO)
45204 {
45205 DEBUG_LAPACK_STUB("zspsvx");
45206 LAPACK_IMPL(zspsvx)(FACT,
45207 UPLO,
45208 N,
45209 NRHS,
45210 AP,
45211 AFP,
45212 IPIV,
45213 B,
45214 LDB,
45215 X,
45216 LDX,
45217 RCOND,
45218 FERR,
45219 BERR,
45220 WORK,
45221 RWORK,
45222 INFO);
45223 }
45224
45225 //-- zsptrf --------------------------------------------------------------------
45226 void
LAPACK_DECL(zsptrf)45227 LAPACK_DECL(zsptrf)(const char *UPLO,
45228 const INTEGER *N,
45229 DOUBLE_COMPLEX *AP,
45230 INTEGER *IPIV,
45231 INTEGER *INFO)
45232 {
45233 DEBUG_LAPACK_STUB("zsptrf");
45234 LAPACK_IMPL(zsptrf)(UPLO,
45235 N,
45236 AP,
45237 IPIV,
45238 INFO);
45239 }
45240
45241 //-- zsptri --------------------------------------------------------------------
45242 void
LAPACK_DECL(zsptri)45243 LAPACK_DECL(zsptri)(const char *UPLO,
45244 const INTEGER *N,
45245 DOUBLE_COMPLEX *AP,
45246 const INTEGER *IPIV,
45247 DOUBLE_COMPLEX *WORK,
45248 INTEGER *INFO)
45249 {
45250 DEBUG_LAPACK_STUB("zsptri");
45251 LAPACK_IMPL(zsptri)(UPLO,
45252 N,
45253 AP,
45254 IPIV,
45255 WORK,
45256 INFO);
45257 }
45258
45259 //-- zsptrs --------------------------------------------------------------------
45260 void
LAPACK_DECL(zsptrs)45261 LAPACK_DECL(zsptrs)(const char *UPLO,
45262 const INTEGER *N,
45263 const INTEGER *NRHS,
45264 const DOUBLE_COMPLEX *AP,
45265 const INTEGER *IPIV,
45266 DOUBLE_COMPLEX *B,
45267 const INTEGER *LDB,
45268 INTEGER *INFO)
45269 {
45270 DEBUG_LAPACK_STUB("zsptrs");
45271 LAPACK_IMPL(zsptrs)(UPLO,
45272 N,
45273 NRHS,
45274 AP,
45275 IPIV,
45276 B,
45277 LDB,
45278 INFO);
45279 }
45280
45281 //-- zstedc --------------------------------------------------------------------
45282 void
LAPACK_DECL(zstedc)45283 LAPACK_DECL(zstedc)(const char *COMPZ,
45284 const INTEGER *N,
45285 DOUBLE *D,
45286 DOUBLE *E,
45287 DOUBLE_COMPLEX *Z,
45288 const INTEGER *LDZ,
45289 DOUBLE_COMPLEX *WORK,
45290 const INTEGER *LWORK,
45291 DOUBLE *RWORK,
45292 const INTEGER *LRWORK,
45293 INTEGER *IWORK,
45294 const INTEGER *LIWORK,
45295 INTEGER *INFO)
45296 {
45297 DEBUG_LAPACK_STUB("zstedc");
45298 LAPACK_IMPL(zstedc)(COMPZ,
45299 N,
45300 D,
45301 E,
45302 Z,
45303 LDZ,
45304 WORK,
45305 LWORK,
45306 RWORK,
45307 LRWORK,
45308 IWORK,
45309 LIWORK,
45310 INFO);
45311 }
45312
45313 //-- zstegr --------------------------------------------------------------------
45314 void
LAPACK_DECL(zstegr)45315 LAPACK_DECL(zstegr)(const char *JOBZ,
45316 const char *RANGE,
45317 const INTEGER *N,
45318 DOUBLE *D,
45319 DOUBLE *E,
45320 const DOUBLE *VL,
45321 const DOUBLE *VU,
45322 const INTEGER *IL,
45323 const INTEGER *IU,
45324 const DOUBLE *ABSTOL,
45325 INTEGER *M,
45326 DOUBLE *W,
45327 DOUBLE_COMPLEX *Z,
45328 const INTEGER *LDZ,
45329 INTEGER *ISUPPZ,
45330 DOUBLE *WORK,
45331 const INTEGER *LWORK,
45332 INTEGER *IWORK,
45333 const INTEGER *LIWORK,
45334 INTEGER *INFO)
45335 {
45336 DEBUG_LAPACK_STUB("zstegr");
45337 LAPACK_IMPL(zstegr)(JOBZ,
45338 RANGE,
45339 N,
45340 D,
45341 E,
45342 VL,
45343 VU,
45344 IL,
45345 IU,
45346 ABSTOL,
45347 M,
45348 W,
45349 Z,
45350 LDZ,
45351 ISUPPZ,
45352 WORK,
45353 LWORK,
45354 IWORK,
45355 LIWORK,
45356 INFO);
45357 }
45358
45359 //-- zstein --------------------------------------------------------------------
45360 void
LAPACK_DECL(zstein)45361 LAPACK_DECL(zstein)(const INTEGER *N,
45362 const DOUBLE *D,
45363 const DOUBLE *E,
45364 const INTEGER *M,
45365 const DOUBLE *W,
45366 const INTEGER *IBLOCK,
45367 const INTEGER *ISPLIT,
45368 DOUBLE_COMPLEX *Z,
45369 const INTEGER *LDZ,
45370 DOUBLE *WORK,
45371 INTEGER *IWORK,
45372 INTEGER *IFAIL,
45373 INTEGER *INFO)
45374 {
45375 DEBUG_LAPACK_STUB("zstein");
45376 LAPACK_IMPL(zstein)(N,
45377 D,
45378 E,
45379 M,
45380 W,
45381 IBLOCK,
45382 ISPLIT,
45383 Z,
45384 LDZ,
45385 WORK,
45386 IWORK,
45387 IFAIL,
45388 INFO);
45389 }
45390
45391 //-- zstemr --------------------------------------------------------------------
45392 void
LAPACK_DECL(zstemr)45393 LAPACK_DECL(zstemr)(const char *JOBZ,
45394 const char *RANGE,
45395 const INTEGER *N,
45396 DOUBLE *D,
45397 DOUBLE *E,
45398 const DOUBLE *VL,
45399 const DOUBLE *VU,
45400 const INTEGER *IL,
45401 const INTEGER *IU,
45402 INTEGER *M,
45403 DOUBLE *W,
45404 DOUBLE_COMPLEX *Z,
45405 const INTEGER *LDZ,
45406 const INTEGER *NZC,
45407 INTEGER *ISUPPZ,
45408 LOGICAL *TRYRAC,
45409 DOUBLE *WORK,
45410 const INTEGER *LWORK,
45411 INTEGER *IWORK,
45412 const INTEGER *LIWORK,
45413 INTEGER *INFO)
45414 {
45415 DEBUG_LAPACK_STUB("zstemr");
45416 LAPACK_IMPL(zstemr)(JOBZ,
45417 RANGE,
45418 N,
45419 D,
45420 E,
45421 VL,
45422 VU,
45423 IL,
45424 IU,
45425 M,
45426 W,
45427 Z,
45428 LDZ,
45429 NZC,
45430 ISUPPZ,
45431 TRYRAC,
45432 WORK,
45433 LWORK,
45434 IWORK,
45435 LIWORK,
45436 INFO);
45437 }
45438
45439 //-- zsteqr --------------------------------------------------------------------
45440 void
LAPACK_DECL(zsteqr)45441 LAPACK_DECL(zsteqr)(const char *COMPZ,
45442 const INTEGER *N,
45443 DOUBLE *D,
45444 DOUBLE *E,
45445 DOUBLE_COMPLEX *Z,
45446 const INTEGER *LDZ,
45447 DOUBLE *WORK,
45448 INTEGER *INFO)
45449 {
45450 DEBUG_LAPACK_STUB("zsteqr");
45451 LAPACK_IMPL(zsteqr)(COMPZ,
45452 N,
45453 D,
45454 E,
45455 Z,
45456 LDZ,
45457 WORK,
45458 INFO);
45459 }
45460
45461 //-- zsycon --------------------------------------------------------------------
45462 void
LAPACK_DECL(zsycon)45463 LAPACK_DECL(zsycon)(const char *UPLO,
45464 const INTEGER *N,
45465 const DOUBLE_COMPLEX *A,
45466 const INTEGER *LDA,
45467 const INTEGER *IPIV,
45468 const DOUBLE *ANORM,
45469 DOUBLE *RCOND,
45470 DOUBLE_COMPLEX *WORK,
45471 INTEGER *INFO)
45472 {
45473 DEBUG_LAPACK_STUB("zsycon");
45474 LAPACK_IMPL(zsycon)(UPLO,
45475 N,
45476 A,
45477 LDA,
45478 IPIV,
45479 ANORM,
45480 RCOND,
45481 WORK,
45482 INFO);
45483 }
45484
45485 //-- zsyconv -------------------------------------------------------------------
45486 void
LAPACK_DECL(zsyconv)45487 LAPACK_DECL(zsyconv)(const char *UPLO,
45488 const char *WAY,
45489 const INTEGER *N,
45490 DOUBLE_COMPLEX *A,
45491 const INTEGER *LDA,
45492 const INTEGER *IPIV,
45493 DOUBLE_COMPLEX *WORK,
45494 INTEGER *INFO)
45495 {
45496 DEBUG_LAPACK_STUB("zsyconv");
45497 LAPACK_IMPL(zsyconv)(UPLO,
45498 WAY,
45499 N,
45500 A,
45501 LDA,
45502 IPIV,
45503 WORK,
45504 INFO);
45505 }
45506
45507 //-- zsyequb -------------------------------------------------------------------
45508 void
LAPACK_DECL(zsyequb)45509 LAPACK_DECL(zsyequb)(const char *UPLO,
45510 const INTEGER *N,
45511 const DOUBLE_COMPLEX *A,
45512 const INTEGER *LDA,
45513 DOUBLE *S,
45514 DOUBLE *SCOND,
45515 DOUBLE *AMAX,
45516 DOUBLE_COMPLEX *WORK,
45517 INTEGER *INFO)
45518 {
45519 DEBUG_LAPACK_STUB("zsyequb");
45520 LAPACK_IMPL(zsyequb)(UPLO,
45521 N,
45522 A,
45523 LDA,
45524 S,
45525 SCOND,
45526 AMAX,
45527 WORK,
45528 INFO);
45529 }
45530
45531 //-- zsymv ---------------------------------------------------------------------
45532 void
LAPACK_DECL(zsymv)45533 LAPACK_DECL(zsymv)(const char *UPLO,
45534 const INTEGER *N,
45535 const DOUBLE_COMPLEX *ALPHA,
45536 const DOUBLE_COMPLEX *A,
45537 const INTEGER *LDA,
45538 const DOUBLE_COMPLEX *X,
45539 const INTEGER *INCX,
45540 const DOUBLE_COMPLEX *BETA,
45541 DOUBLE_COMPLEX *Y,
45542 const INTEGER *INCY)
45543 {
45544 DEBUG_LAPACK_STUB("zsymv");
45545 LAPACK_IMPL(zsymv)(UPLO,
45546 N,
45547 ALPHA,
45548 A,
45549 LDA,
45550 X,
45551 INCX,
45552 BETA,
45553 Y,
45554 INCY);
45555 }
45556
45557 //-- zsyr ----------------------------------------------------------------------
45558 void
LAPACK_DECL(zsyr)45559 LAPACK_DECL(zsyr)(const char *UPLO,
45560 const INTEGER *N,
45561 const DOUBLE_COMPLEX *ALPHA,
45562 const DOUBLE_COMPLEX *X,
45563 const INTEGER *INCX,
45564 DOUBLE_COMPLEX *A,
45565 const INTEGER *LDA)
45566 {
45567 DEBUG_LAPACK_STUB("zsyr");
45568 LAPACK_IMPL(zsyr)(UPLO,
45569 N,
45570 ALPHA,
45571 X,
45572 INCX,
45573 A,
45574 LDA);
45575 }
45576
45577 //-- zsyrfs --------------------------------------------------------------------
45578 void
LAPACK_DECL(zsyrfs)45579 LAPACK_DECL(zsyrfs)(const char *UPLO,
45580 const INTEGER *N,
45581 const INTEGER *NRHS,
45582 const DOUBLE_COMPLEX *A,
45583 const INTEGER *LDA,
45584 const DOUBLE_COMPLEX *AF,
45585 const INTEGER *LDAF,
45586 const INTEGER *IPIV,
45587 const DOUBLE_COMPLEX *B,
45588 const INTEGER *LDB,
45589 DOUBLE_COMPLEX *X,
45590 const INTEGER *LDX,
45591 DOUBLE *FERR,
45592 DOUBLE *BERR,
45593 DOUBLE_COMPLEX *WORK,
45594 DOUBLE *RWORK,
45595 INTEGER *INFO)
45596 {
45597 DEBUG_LAPACK_STUB("zsyrfs");
45598 LAPACK_IMPL(zsyrfs)(UPLO,
45599 N,
45600 NRHS,
45601 A,
45602 LDA,
45603 AF,
45604 LDAF,
45605 IPIV,
45606 B,
45607 LDB,
45608 X,
45609 LDX,
45610 FERR,
45611 BERR,
45612 WORK,
45613 RWORK,
45614 INFO);
45615 }
45616
45617 //-- zsyrfsx -------------------------------------------------------------------
45618 void
LAPACK_DECL(zsyrfsx)45619 LAPACK_DECL(zsyrfsx)(const char *UPLO,
45620 const char *EQUED,
45621 const INTEGER *N,
45622 const INTEGER *NRHS,
45623 const DOUBLE_COMPLEX *A,
45624 const INTEGER *LDA,
45625 const DOUBLE_COMPLEX *AF,
45626 const INTEGER *LDAF,
45627 const INTEGER *IPIV,
45628 DOUBLE *S,
45629 const DOUBLE_COMPLEX *B,
45630 const INTEGER *LDB,
45631 DOUBLE_COMPLEX *X,
45632 const INTEGER *LDX,
45633 DOUBLE *RCOND,
45634 DOUBLE *BERR,
45635 const INTEGER *N_ERR_BNDS,
45636 DOUBLE *ERR_BNDS_NORM,
45637 DOUBLE *ERR_BNDS_COMP,
45638 const INTEGER *NPARAMS,
45639 DOUBLE *PARAMS,
45640 DOUBLE_COMPLEX *WORK,
45641 DOUBLE *RWORK,
45642 INTEGER *INFO)
45643 {
45644 DEBUG_LAPACK_STUB("zsyrfsx");
45645 LAPACK_IMPL(zsyrfsx)(UPLO,
45646 EQUED,
45647 N,
45648 NRHS,
45649 A,
45650 LDA,
45651 AF,
45652 LDAF,
45653 IPIV,
45654 S,
45655 B,
45656 LDB,
45657 X,
45658 LDX,
45659 RCOND,
45660 BERR,
45661 N_ERR_BNDS,
45662 ERR_BNDS_NORM,
45663 ERR_BNDS_COMP,
45664 NPARAMS,
45665 PARAMS,
45666 WORK,
45667 RWORK,
45668 INFO);
45669 }
45670
45671 //-- zsysv ---------------------------------------------------------------------
45672 void
LAPACK_DECL(zsysv)45673 LAPACK_DECL(zsysv)(const char *UPLO,
45674 const INTEGER *N,
45675 const INTEGER *NRHS,
45676 DOUBLE_COMPLEX *A,
45677 const INTEGER *LDA,
45678 INTEGER *IPIV,
45679 DOUBLE_COMPLEX *B,
45680 const INTEGER *LDB,
45681 DOUBLE_COMPLEX *WORK,
45682 const INTEGER *LWORK,
45683 INTEGER *INFO)
45684 {
45685 DEBUG_LAPACK_STUB("zsysv");
45686 LAPACK_IMPL(zsysv)(UPLO,
45687 N,
45688 NRHS,
45689 A,
45690 LDA,
45691 IPIV,
45692 B,
45693 LDB,
45694 WORK,
45695 LWORK,
45696 INFO);
45697 }
45698
45699 //-- zsysvx --------------------------------------------------------------------
45700 void
LAPACK_DECL(zsysvx)45701 LAPACK_DECL(zsysvx)(const char *FACT,
45702 const char *UPLO,
45703 const INTEGER *N,
45704 const INTEGER *NRHS,
45705 const DOUBLE_COMPLEX *A,
45706 const INTEGER *LDA,
45707 DOUBLE_COMPLEX *AF,
45708 const INTEGER *LDAF,
45709 INTEGER *IPIV,
45710 const DOUBLE_COMPLEX *B,
45711 const INTEGER *LDB,
45712 DOUBLE_COMPLEX *X,
45713 const INTEGER *LDX,
45714 DOUBLE *RCOND,
45715 DOUBLE *FERR,
45716 DOUBLE *BERR,
45717 DOUBLE_COMPLEX *WORK,
45718 const INTEGER *LWORK,
45719 DOUBLE *RWORK,
45720 INTEGER *INFO)
45721 {
45722 DEBUG_LAPACK_STUB("zsysvx");
45723 LAPACK_IMPL(zsysvx)(FACT,
45724 UPLO,
45725 N,
45726 NRHS,
45727 A,
45728 LDA,
45729 AF,
45730 LDAF,
45731 IPIV,
45732 B,
45733 LDB,
45734 X,
45735 LDX,
45736 RCOND,
45737 FERR,
45738 BERR,
45739 WORK,
45740 LWORK,
45741 RWORK,
45742 INFO);
45743 }
45744
45745 //-- zsysvxx -------------------------------------------------------------------
45746 void
LAPACK_DECL(zsysvxx)45747 LAPACK_DECL(zsysvxx)(const char *FACT,
45748 const char *UPLO,
45749 const INTEGER *N,
45750 const INTEGER *NRHS,
45751 DOUBLE_COMPLEX *A,
45752 const INTEGER *LDA,
45753 DOUBLE_COMPLEX *AF,
45754 const INTEGER *LDAF,
45755 INTEGER *IPIV,
45756 char *EQUED,
45757 DOUBLE *S,
45758 DOUBLE_COMPLEX *B,
45759 const INTEGER *LDB,
45760 DOUBLE_COMPLEX *X,
45761 const INTEGER *LDX,
45762 DOUBLE *RCOND,
45763 DOUBLE *RPVGRW,
45764 DOUBLE *BERR,
45765 const INTEGER *N_ERR_BNDS,
45766 DOUBLE *ERR_BNDS_NORM,
45767 DOUBLE *ERR_BNDS_COMP,
45768 const INTEGER *NPARAMS,
45769 DOUBLE *PARAMS,
45770 DOUBLE_COMPLEX *WORK,
45771 DOUBLE *RWORK,
45772 INTEGER *INFO)
45773 {
45774 DEBUG_LAPACK_STUB("zsysvxx");
45775 LAPACK_IMPL(zsysvxx)(FACT,
45776 UPLO,
45777 N,
45778 NRHS,
45779 A,
45780 LDA,
45781 AF,
45782 LDAF,
45783 IPIV,
45784 EQUED,
45785 S,
45786 B,
45787 LDB,
45788 X,
45789 LDX,
45790 RCOND,
45791 RPVGRW,
45792 BERR,
45793 N_ERR_BNDS,
45794 ERR_BNDS_NORM,
45795 ERR_BNDS_COMP,
45796 NPARAMS,
45797 PARAMS,
45798 WORK,
45799 RWORK,
45800 INFO);
45801 }
45802
45803 //-- zsyswapr ------------------------------------------------------------------
45804 void
LAPACK_DECL(zsyswapr)45805 LAPACK_DECL(zsyswapr)(const char *UPLO,
45806 const INTEGER *N,
45807 DOUBLE_COMPLEX *A,
45808 const INTEGER *LDA,
45809 const INTEGER *I1,
45810 const INTEGER *I2)
45811 {
45812 DEBUG_LAPACK_STUB("zsyswapr");
45813 LAPACK_IMPL(zsyswapr)(UPLO,
45814 N,
45815 A,
45816 LDA,
45817 I1,
45818 I2);
45819 }
45820
45821 //-- zsytf2 --------------------------------------------------------------------
45822 void
LAPACK_DECL(zsytf2)45823 LAPACK_DECL(zsytf2)(const char *UPLO,
45824 const INTEGER *N,
45825 DOUBLE_COMPLEX *A,
45826 const INTEGER *LDA,
45827 INTEGER *IPIV,
45828 INTEGER *INFO)
45829 {
45830 DEBUG_LAPACK_STUB("zsytf2");
45831 LAPACK_IMPL(zsytf2)(UPLO,
45832 N,
45833 A,
45834 LDA,
45835 IPIV,
45836 INFO);
45837 }
45838
45839 //-- zsytrf --------------------------------------------------------------------
45840 void
LAPACK_DECL(zsytrf)45841 LAPACK_DECL(zsytrf)(const char *UPLO,
45842 const INTEGER *N,
45843 DOUBLE_COMPLEX *A,
45844 const INTEGER *LDA,
45845 INTEGER *IPIV,
45846 DOUBLE_COMPLEX *WORK,
45847 const INTEGER *LWORK,
45848 INTEGER *INFO)
45849 {
45850 DEBUG_LAPACK_STUB("zsytrf");
45851 LAPACK_IMPL(zsytrf)(UPLO,
45852 N,
45853 A,
45854 LDA,
45855 IPIV,
45856 WORK,
45857 LWORK,
45858 INFO);
45859 }
45860
45861 //-- zsytri --------------------------------------------------------------------
45862 void
LAPACK_DECL(zsytri)45863 LAPACK_DECL(zsytri)(const char *UPLO,
45864 const INTEGER *N,
45865 DOUBLE_COMPLEX *A,
45866 const INTEGER *LDA,
45867 const INTEGER *IPIV,
45868 DOUBLE_COMPLEX *WORK,
45869 INTEGER *INFO)
45870 {
45871 DEBUG_LAPACK_STUB("zsytri");
45872 LAPACK_IMPL(zsytri)(UPLO,
45873 N,
45874 A,
45875 LDA,
45876 IPIV,
45877 WORK,
45878 INFO);
45879 }
45880
45881 //-- zsytri2 -------------------------------------------------------------------
45882 void
LAPACK_DECL(zsytri2)45883 LAPACK_DECL(zsytri2)(const char *UPLO,
45884 const INTEGER *N,
45885 DOUBLE_COMPLEX *A,
45886 const INTEGER *LDA,
45887 const INTEGER *IPIV,
45888 DOUBLE_COMPLEX *WORK,
45889 const INTEGER *LWORK,
45890 INTEGER *INFO)
45891 {
45892 DEBUG_LAPACK_STUB("zsytri2");
45893 LAPACK_IMPL(zsytri2)(UPLO,
45894 N,
45895 A,
45896 LDA,
45897 IPIV,
45898 WORK,
45899 LWORK,
45900 INFO);
45901 }
45902
45903 //-- zsytri2x ------------------------------------------------------------------
45904 void
LAPACK_DECL(zsytri2x)45905 LAPACK_DECL(zsytri2x)(const char *UPLO,
45906 const INTEGER *N,
45907 DOUBLE_COMPLEX *A,
45908 const INTEGER *LDA,
45909 const INTEGER *IPIV,
45910 DOUBLE_COMPLEX *WORK,
45911 const INTEGER *NB,
45912 INTEGER *INFO)
45913 {
45914 DEBUG_LAPACK_STUB("zsytri2x");
45915 LAPACK_IMPL(zsytri2x)(UPLO,
45916 N,
45917 A,
45918 LDA,
45919 IPIV,
45920 WORK,
45921 NB,
45922 INFO);
45923 }
45924
45925 //-- zsytrs --------------------------------------------------------------------
45926 void
LAPACK_DECL(zsytrs)45927 LAPACK_DECL(zsytrs)(const char *UPLO,
45928 const INTEGER *N,
45929 const INTEGER *NRHS,
45930 const DOUBLE_COMPLEX *A,
45931 const INTEGER *LDA,
45932 const INTEGER *IPIV,
45933 DOUBLE_COMPLEX *B,
45934 const INTEGER *LDB,
45935 INTEGER *INFO)
45936 {
45937 DEBUG_LAPACK_STUB("zsytrs");
45938 LAPACK_IMPL(zsytrs)(UPLO,
45939 N,
45940 NRHS,
45941 A,
45942 LDA,
45943 IPIV,
45944 B,
45945 LDB,
45946 INFO);
45947 }
45948
45949 //-- zsytrs2 -------------------------------------------------------------------
45950 void
LAPACK_DECL(zsytrs2)45951 LAPACK_DECL(zsytrs2)(const char *UPLO,
45952 const INTEGER *N,
45953 const INTEGER *NRHS,
45954 DOUBLE_COMPLEX *A,
45955 const INTEGER *LDA,
45956 const INTEGER *IPIV,
45957 DOUBLE_COMPLEX *B,
45958 const INTEGER *LDB,
45959 UNKNOWN *WORK,
45960 INTEGER *INFO)
45961 {
45962 DEBUG_LAPACK_STUB("zsytrs2");
45963 LAPACK_IMPL(zsytrs2)(UPLO,
45964 N,
45965 NRHS,
45966 A,
45967 LDA,
45968 IPIV,
45969 B,
45970 LDB,
45971 WORK,
45972 INFO);
45973 }
45974
45975 //-- ztbcon --------------------------------------------------------------------
45976 void
LAPACK_DECL(ztbcon)45977 LAPACK_DECL(ztbcon)(const char *NORM,
45978 const char *UPLO,
45979 const char *DIAG,
45980 const INTEGER *N,
45981 const INTEGER *KD,
45982 const DOUBLE_COMPLEX *AB,
45983 const INTEGER *LDAB,
45984 DOUBLE *RCOND,
45985 DOUBLE_COMPLEX *WORK,
45986 DOUBLE *RWORK,
45987 INTEGER *INFO)
45988 {
45989 DEBUG_LAPACK_STUB("ztbcon");
45990 LAPACK_IMPL(ztbcon)(NORM,
45991 UPLO,
45992 DIAG,
45993 N,
45994 KD,
45995 AB,
45996 LDAB,
45997 RCOND,
45998 WORK,
45999 RWORK,
46000 INFO);
46001 }
46002
46003 //-- ztbrfs --------------------------------------------------------------------
46004 void
LAPACK_DECL(ztbrfs)46005 LAPACK_DECL(ztbrfs)(const char *UPLO,
46006 const char *TRANS,
46007 const char *DIAG,
46008 const INTEGER *N,
46009 const INTEGER *KD,
46010 const INTEGER *NRHS,
46011 const DOUBLE_COMPLEX *AB,
46012 const INTEGER *LDAB,
46013 const DOUBLE_COMPLEX *B,
46014 const INTEGER *LDB,
46015 const DOUBLE_COMPLEX *X,
46016 const INTEGER *LDX,
46017 DOUBLE *FERR,
46018 DOUBLE *BERR,
46019 DOUBLE_COMPLEX *WORK,
46020 DOUBLE *RWORK,
46021 INTEGER *INFO)
46022 {
46023 DEBUG_LAPACK_STUB("ztbrfs");
46024 LAPACK_IMPL(ztbrfs)(UPLO,
46025 TRANS,
46026 DIAG,
46027 N,
46028 KD,
46029 NRHS,
46030 AB,
46031 LDAB,
46032 B,
46033 LDB,
46034 X,
46035 LDX,
46036 FERR,
46037 BERR,
46038 WORK,
46039 RWORK,
46040 INFO);
46041 }
46042
46043 //-- ztbtrs --------------------------------------------------------------------
46044 void
LAPACK_DECL(ztbtrs)46045 LAPACK_DECL(ztbtrs)(const char *UPLO,
46046 const char *TRANS,
46047 const char *DIAG,
46048 const INTEGER *N,
46049 const INTEGER *KD,
46050 const INTEGER *NRHS,
46051 const DOUBLE_COMPLEX *AB,
46052 const INTEGER *LDAB,
46053 DOUBLE_COMPLEX *B,
46054 const INTEGER *LDB,
46055 INTEGER *INFO)
46056 {
46057 DEBUG_LAPACK_STUB("ztbtrs");
46058 LAPACK_IMPL(ztbtrs)(UPLO,
46059 TRANS,
46060 DIAG,
46061 N,
46062 KD,
46063 NRHS,
46064 AB,
46065 LDAB,
46066 B,
46067 LDB,
46068 INFO);
46069 }
46070
46071 //-- ztfsm ---------------------------------------------------------------------
46072 void
LAPACK_DECL(ztfsm)46073 LAPACK_DECL(ztfsm)(const char *TRANSR,
46074 const char *SIDE,
46075 const char *UPLO,
46076 const char *TRANS,
46077 const char *DIAG,
46078 const INTEGER *M,
46079 const INTEGER *N,
46080 const DOUBLE_COMPLEX *ALPHA,
46081 const DOUBLE_COMPLEX *A,
46082 DOUBLE_COMPLEX *B,
46083 const INTEGER *LDB)
46084 {
46085 DEBUG_LAPACK_STUB("ztfsm");
46086 LAPACK_IMPL(ztfsm)(TRANSR,
46087 SIDE,
46088 UPLO,
46089 TRANS,
46090 DIAG,
46091 M,
46092 N,
46093 ALPHA,
46094 A,
46095 B,
46096 LDB);
46097 }
46098
46099 //-- ztftri --------------------------------------------------------------------
46100 void
LAPACK_DECL(ztftri)46101 LAPACK_DECL(ztftri)(const char *TRANSR,
46102 const char *UPLO,
46103 const char *DIAG,
46104 const INTEGER *N,
46105 DOUBLE_COMPLEX *A,
46106 INTEGER *INFO)
46107 {
46108 DEBUG_LAPACK_STUB("ztftri");
46109 LAPACK_IMPL(ztftri)(TRANSR,
46110 UPLO,
46111 DIAG,
46112 N,
46113 A,
46114 INFO);
46115 }
46116
46117 //-- ztfttp --------------------------------------------------------------------
46118 void
LAPACK_DECL(ztfttp)46119 LAPACK_DECL(ztfttp)(const char *TRANSR,
46120 const char *UPLO,
46121 const INTEGER *N,
46122 const DOUBLE_COMPLEX *ARF,
46123 DOUBLE_COMPLEX *AP,
46124 INTEGER *INFO)
46125 {
46126 DEBUG_LAPACK_STUB("ztfttp");
46127 LAPACK_IMPL(ztfttp)(TRANSR,
46128 UPLO,
46129 N,
46130 ARF,
46131 AP,
46132 INFO);
46133 }
46134
46135 //-- ztfttr --------------------------------------------------------------------
46136 void
LAPACK_DECL(ztfttr)46137 LAPACK_DECL(ztfttr)(const char *TRANSR,
46138 const char *UPLO,
46139 const INTEGER *N,
46140 const DOUBLE_COMPLEX *ARF,
46141 DOUBLE_COMPLEX *A,
46142 const INTEGER *LDA,
46143 INTEGER *INFO)
46144 {
46145 DEBUG_LAPACK_STUB("ztfttr");
46146 LAPACK_IMPL(ztfttr)(TRANSR,
46147 UPLO,
46148 N,
46149 ARF,
46150 A,
46151 LDA,
46152 INFO);
46153 }
46154
46155 //-- ztgevc --------------------------------------------------------------------
46156 void
LAPACK_DECL(ztgevc)46157 LAPACK_DECL(ztgevc)(const char *SIDE,
46158 const char *HOWMNY,
46159 const LOGICAL *SELECT,
46160 const INTEGER *N,
46161 const DOUBLE_COMPLEX *S,
46162 const INTEGER *LDS,
46163 const DOUBLE_COMPLEX *P,
46164 const INTEGER *LDP,
46165 DOUBLE_COMPLEX *VL,
46166 const INTEGER *LDVL,
46167 DOUBLE_COMPLEX *VR,
46168 const INTEGER *LDVR,
46169 const INTEGER *MM,
46170 INTEGER *M,
46171 DOUBLE_COMPLEX *WORK,
46172 DOUBLE *RWORK,
46173 INTEGER *INFO)
46174 {
46175 DEBUG_LAPACK_STUB("ztgevc");
46176 LAPACK_IMPL(ztgevc)(SIDE,
46177 HOWMNY,
46178 SELECT,
46179 N,
46180 S,
46181 LDS,
46182 P,
46183 LDP,
46184 VL,
46185 LDVL,
46186 VR,
46187 LDVR,
46188 MM,
46189 M,
46190 WORK,
46191 RWORK,
46192 INFO);
46193 }
46194
46195 //-- ztgex2 --------------------------------------------------------------------
46196 void
LAPACK_DECL(ztgex2)46197 LAPACK_DECL(ztgex2)(const LOGICAL *WANTQ,
46198 const LOGICAL *WANTZ,
46199 const INTEGER *N,
46200 DOUBLE_COMPLEX *A,
46201 const INTEGER *LDA,
46202 DOUBLE_COMPLEX *B,
46203 const INTEGER *LDB,
46204 DOUBLE_COMPLEX *Q,
46205 const INTEGER *LDQ,
46206 DOUBLE_COMPLEX *Z,
46207 const INTEGER *LDZ,
46208 const INTEGER *J1,
46209 INTEGER *INFO)
46210 {
46211 DEBUG_LAPACK_STUB("ztgex2");
46212 LAPACK_IMPL(ztgex2)(WANTQ,
46213 WANTZ,
46214 N,
46215 A,
46216 LDA,
46217 B,
46218 LDB,
46219 Q,
46220 LDQ,
46221 Z,
46222 LDZ,
46223 J1,
46224 INFO);
46225 }
46226
46227 //-- ztgexc --------------------------------------------------------------------
46228 void
LAPACK_DECL(ztgexc)46229 LAPACK_DECL(ztgexc)(const LOGICAL *WANTQ,
46230 const LOGICAL *WANTZ,
46231 const INTEGER *N,
46232 DOUBLE_COMPLEX *A,
46233 const INTEGER *LDA,
46234 DOUBLE_COMPLEX *B,
46235 const INTEGER *LDB,
46236 DOUBLE_COMPLEX *Q,
46237 const INTEGER *LDQ,
46238 DOUBLE_COMPLEX *Z,
46239 const INTEGER *LDZ,
46240 const INTEGER *IFST,
46241 INTEGER *ILST,
46242 INTEGER *INFO)
46243 {
46244 DEBUG_LAPACK_STUB("ztgexc");
46245 LAPACK_IMPL(ztgexc)(WANTQ,
46246 WANTZ,
46247 N,
46248 A,
46249 LDA,
46250 B,
46251 LDB,
46252 Q,
46253 LDQ,
46254 Z,
46255 LDZ,
46256 IFST,
46257 ILST,
46258 INFO);
46259 }
46260
46261 //-- ztgsen --------------------------------------------------------------------
46262 void
LAPACK_DECL(ztgsen)46263 LAPACK_DECL(ztgsen)(const INTEGER *IJOB,
46264 const LOGICAL *WANTQ,
46265 const LOGICAL *WANTZ,
46266 const LOGICAL *SELECT,
46267 const INTEGER *N,
46268 DOUBLE_COMPLEX *A,
46269 const INTEGER *LDA,
46270 DOUBLE_COMPLEX *B,
46271 const INTEGER *LDB,
46272 DOUBLE_COMPLEX *ALPHA,
46273 DOUBLE_COMPLEX *BETA,
46274 DOUBLE_COMPLEX *Q,
46275 const INTEGER *LDQ,
46276 DOUBLE_COMPLEX *Z,
46277 const INTEGER *LDZ,
46278 INTEGER *M,
46279 DOUBLE *PL,
46280 DOUBLE *PR,
46281 DOUBLE *DIF,
46282 DOUBLE_COMPLEX *WORK,
46283 const INTEGER *LWORK,
46284 INTEGER *IWORK,
46285 const INTEGER *LIWORK,
46286 INTEGER *INFO)
46287 {
46288 DEBUG_LAPACK_STUB("ztgsen");
46289 LAPACK_IMPL(ztgsen)(IJOB,
46290 WANTQ,
46291 WANTZ,
46292 SELECT,
46293 N,
46294 A,
46295 LDA,
46296 B,
46297 LDB,
46298 ALPHA,
46299 BETA,
46300 Q,
46301 LDQ,
46302 Z,
46303 LDZ,
46304 M,
46305 PL,
46306 PR,
46307 DIF,
46308 WORK,
46309 LWORK,
46310 IWORK,
46311 LIWORK,
46312 INFO);
46313 }
46314
46315 //-- ztgsja --------------------------------------------------------------------
46316 void
LAPACK_DECL(ztgsja)46317 LAPACK_DECL(ztgsja)(const char *JOBU,
46318 const char *JOBV,
46319 const char *JOBQ,
46320 const INTEGER *M,
46321 const INTEGER *P,
46322 const INTEGER *N,
46323 const INTEGER *K,
46324 const INTEGER *L,
46325 DOUBLE_COMPLEX *A,
46326 const INTEGER *LDA,
46327 DOUBLE_COMPLEX *B,
46328 const INTEGER *LDB,
46329 const DOUBLE *TOLA,
46330 const DOUBLE *TOLB,
46331 DOUBLE *ALPHA,
46332 DOUBLE *BETA,
46333 DOUBLE_COMPLEX *U,
46334 const INTEGER *LDU,
46335 DOUBLE_COMPLEX *V,
46336 const INTEGER *LDV,
46337 DOUBLE_COMPLEX *Q,
46338 const INTEGER *LDQ,
46339 DOUBLE_COMPLEX *WORK,
46340 INTEGER *NCYCLE,
46341 INTEGER *INFO)
46342 {
46343 DEBUG_LAPACK_STUB("ztgsja");
46344 LAPACK_IMPL(ztgsja)(JOBU,
46345 JOBV,
46346 JOBQ,
46347 M,
46348 P,
46349 N,
46350 K,
46351 L,
46352 A,
46353 LDA,
46354 B,
46355 LDB,
46356 TOLA,
46357 TOLB,
46358 ALPHA,
46359 BETA,
46360 U,
46361 LDU,
46362 V,
46363 LDV,
46364 Q,
46365 LDQ,
46366 WORK,
46367 NCYCLE,
46368 INFO);
46369 }
46370
46371 //-- ztgsna --------------------------------------------------------------------
46372 void
LAPACK_DECL(ztgsna)46373 LAPACK_DECL(ztgsna)(const char *JOB,
46374 const char *HOWMNY,
46375 const LOGICAL *SELECT,
46376 const INTEGER *N,
46377 const DOUBLE_COMPLEX *A,
46378 const INTEGER *LDA,
46379 const DOUBLE_COMPLEX *B,
46380 const INTEGER *LDB,
46381 const DOUBLE_COMPLEX *VL,
46382 const INTEGER *LDVL,
46383 const DOUBLE_COMPLEX *VR,
46384 const INTEGER *LDVR,
46385 DOUBLE *S,
46386 DOUBLE *DIF,
46387 const INTEGER *MM,
46388 INTEGER *M,
46389 DOUBLE_COMPLEX *WORK,
46390 const INTEGER *LWORK,
46391 INTEGER *IWORK,
46392 INTEGER *INFO)
46393 {
46394 DEBUG_LAPACK_STUB("ztgsna");
46395 LAPACK_IMPL(ztgsna)(JOB,
46396 HOWMNY,
46397 SELECT,
46398 N,
46399 A,
46400 LDA,
46401 B,
46402 LDB,
46403 VL,
46404 LDVL,
46405 VR,
46406 LDVR,
46407 S,
46408 DIF,
46409 MM,
46410 M,
46411 WORK,
46412 LWORK,
46413 IWORK,
46414 INFO);
46415 }
46416
46417 //-- ztgsy2 --------------------------------------------------------------------
46418 void
LAPACK_DECL(ztgsy2)46419 LAPACK_DECL(ztgsy2)(const char *TRANS,
46420 const INTEGER *IJOB,
46421 const INTEGER *M,
46422 const INTEGER *N,
46423 const DOUBLE_COMPLEX *A,
46424 const INTEGER *LDA,
46425 const DOUBLE_COMPLEX *B,
46426 const INTEGER *LDB,
46427 DOUBLE_COMPLEX *C,
46428 const INTEGER *LDC,
46429 const DOUBLE_COMPLEX *D,
46430 const INTEGER *LDD,
46431 const DOUBLE_COMPLEX *E,
46432 const INTEGER *LDE,
46433 DOUBLE_COMPLEX *F,
46434 const INTEGER *LDF,
46435 DOUBLE *SCALE,
46436 DOUBLE *RDSUM,
46437 DOUBLE *RDSCAL,
46438 INTEGER *INFO)
46439 {
46440 DEBUG_LAPACK_STUB("ztgsy2");
46441 LAPACK_IMPL(ztgsy2)(TRANS,
46442 IJOB,
46443 M,
46444 N,
46445 A,
46446 LDA,
46447 B,
46448 LDB,
46449 C,
46450 LDC,
46451 D,
46452 LDD,
46453 E,
46454 LDE,
46455 F,
46456 LDF,
46457 SCALE,
46458 RDSUM,
46459 RDSCAL,
46460 INFO);
46461 }
46462
46463 //-- ztgsyl --------------------------------------------------------------------
46464 void
LAPACK_DECL(ztgsyl)46465 LAPACK_DECL(ztgsyl)(const char *TRANS,
46466 const INTEGER *IJOB,
46467 const INTEGER *M,
46468 const INTEGER *N,
46469 const DOUBLE_COMPLEX *A,
46470 const INTEGER *LDA,
46471 const DOUBLE_COMPLEX *B,
46472 const INTEGER *LDB,
46473 DOUBLE_COMPLEX *C,
46474 const INTEGER *LDC,
46475 const DOUBLE_COMPLEX *D,
46476 const INTEGER *LDD,
46477 const DOUBLE_COMPLEX *E,
46478 const INTEGER *LDE,
46479 DOUBLE_COMPLEX *F,
46480 const INTEGER *LDF,
46481 DOUBLE *SCALE,
46482 DOUBLE *DIF,
46483 DOUBLE_COMPLEX *WORK,
46484 const INTEGER *LWORK,
46485 INTEGER *IWORK,
46486 INTEGER *INFO)
46487 {
46488 DEBUG_LAPACK_STUB("ztgsyl");
46489 LAPACK_IMPL(ztgsyl)(TRANS,
46490 IJOB,
46491 M,
46492 N,
46493 A,
46494 LDA,
46495 B,
46496 LDB,
46497 C,
46498 LDC,
46499 D,
46500 LDD,
46501 E,
46502 LDE,
46503 F,
46504 LDF,
46505 SCALE,
46506 DIF,
46507 WORK,
46508 LWORK,
46509 IWORK,
46510 INFO);
46511 }
46512
46513 //-- ztpcon --------------------------------------------------------------------
46514 void
LAPACK_DECL(ztpcon)46515 LAPACK_DECL(ztpcon)(const char *NORM,
46516 const char *UPLO,
46517 const char *DIAG,
46518 const INTEGER *N,
46519 const DOUBLE_COMPLEX *AP,
46520 DOUBLE *RCOND,
46521 DOUBLE_COMPLEX *WORK,
46522 DOUBLE *RWORK,
46523 INTEGER *INFO)
46524 {
46525 DEBUG_LAPACK_STUB("ztpcon");
46526 LAPACK_IMPL(ztpcon)(NORM,
46527 UPLO,
46528 DIAG,
46529 N,
46530 AP,
46531 RCOND,
46532 WORK,
46533 RWORK,
46534 INFO);
46535 }
46536
46537 //-- ztprfs --------------------------------------------------------------------
46538 void
LAPACK_DECL(ztprfs)46539 LAPACK_DECL(ztprfs)(const char *UPLO,
46540 const char *TRANS,
46541 const char *DIAG,
46542 const INTEGER *N,
46543 const INTEGER *NRHS,
46544 const DOUBLE_COMPLEX *AP,
46545 const DOUBLE_COMPLEX *B,
46546 const INTEGER *LDB,
46547 const DOUBLE_COMPLEX *X,
46548 const INTEGER *LDX,
46549 DOUBLE *FERR,
46550 DOUBLE *BERR,
46551 DOUBLE_COMPLEX *WORK,
46552 DOUBLE *RWORK,
46553 INTEGER *INFO)
46554 {
46555 DEBUG_LAPACK_STUB("ztprfs");
46556 LAPACK_IMPL(ztprfs)(UPLO,
46557 TRANS,
46558 DIAG,
46559 N,
46560 NRHS,
46561 AP,
46562 B,
46563 LDB,
46564 X,
46565 LDX,
46566 FERR,
46567 BERR,
46568 WORK,
46569 RWORK,
46570 INFO);
46571 }
46572
46573 //-- ztptri --------------------------------------------------------------------
46574 void
LAPACK_DECL(ztptri)46575 LAPACK_DECL(ztptri)(const char *UPLO,
46576 const char *DIAG,
46577 const INTEGER *N,
46578 DOUBLE_COMPLEX *AP,
46579 INTEGER *INFO)
46580 {
46581 DEBUG_LAPACK_STUB("ztptri");
46582 LAPACK_IMPL(ztptri)(UPLO,
46583 DIAG,
46584 N,
46585 AP,
46586 INFO);
46587 }
46588
46589 //-- ztptrs --------------------------------------------------------------------
46590 void
LAPACK_DECL(ztptrs)46591 LAPACK_DECL(ztptrs)(const char *UPLO,
46592 const char *TRANS,
46593 const char *DIAG,
46594 const INTEGER *N,
46595 const INTEGER *NRHS,
46596 const DOUBLE_COMPLEX *AP,
46597 DOUBLE_COMPLEX *B,
46598 const INTEGER *LDB,
46599 INTEGER *INFO)
46600 {
46601 DEBUG_LAPACK_STUB("ztptrs");
46602 LAPACK_IMPL(ztptrs)(UPLO,
46603 TRANS,
46604 DIAG,
46605 N,
46606 NRHS,
46607 AP,
46608 B,
46609 LDB,
46610 INFO);
46611 }
46612
46613 //-- ztpttf --------------------------------------------------------------------
46614 void
LAPACK_DECL(ztpttf)46615 LAPACK_DECL(ztpttf)(const char *TRANSR,
46616 const char *UPLO,
46617 const INTEGER *N,
46618 const DOUBLE_COMPLEX *AP,
46619 DOUBLE_COMPLEX *ARF,
46620 INTEGER *INFO)
46621 {
46622 DEBUG_LAPACK_STUB("ztpttf");
46623 LAPACK_IMPL(ztpttf)(TRANSR,
46624 UPLO,
46625 N,
46626 AP,
46627 ARF,
46628 INFO);
46629 }
46630
46631 //-- ztpttr --------------------------------------------------------------------
46632 void
LAPACK_DECL(ztpttr)46633 LAPACK_DECL(ztpttr)(const char *UPLO,
46634 const INTEGER *N,
46635 const DOUBLE_COMPLEX *AP,
46636 DOUBLE_COMPLEX *A,
46637 const INTEGER *LDA,
46638 INTEGER *INFO)
46639 {
46640 DEBUG_LAPACK_STUB("ztpttr");
46641 LAPACK_IMPL(ztpttr)(UPLO,
46642 N,
46643 AP,
46644 A,
46645 LDA,
46646 INFO);
46647 }
46648
46649 //-- ztrcon --------------------------------------------------------------------
46650 void
LAPACK_DECL(ztrcon)46651 LAPACK_DECL(ztrcon)(const char *NORM,
46652 const char *UPLO,
46653 const char *DIAG,
46654 const INTEGER *N,
46655 const DOUBLE_COMPLEX *A,
46656 const INTEGER *LDA,
46657 DOUBLE *RCOND,
46658 DOUBLE_COMPLEX *WORK,
46659 DOUBLE *RWORK,
46660 INTEGER *INFO)
46661 {
46662 DEBUG_LAPACK_STUB("ztrcon");
46663 LAPACK_IMPL(ztrcon)(NORM,
46664 UPLO,
46665 DIAG,
46666 N,
46667 A,
46668 LDA,
46669 RCOND,
46670 WORK,
46671 RWORK,
46672 INFO);
46673 }
46674
46675 //-- ztrevc --------------------------------------------------------------------
46676 void
LAPACK_DECL(ztrevc)46677 LAPACK_DECL(ztrevc)(const char *SIDE,
46678 const char *HOWMNY,
46679 const LOGICAL *SELECT,
46680 const INTEGER *N,
46681 DOUBLE_COMPLEX *T,
46682 const INTEGER *LDT,
46683 DOUBLE_COMPLEX *VL,
46684 const INTEGER *LDVL,
46685 DOUBLE_COMPLEX *VR,
46686 const INTEGER *LDVR,
46687 const INTEGER *MM,
46688 INTEGER *M,
46689 DOUBLE_COMPLEX *WORK,
46690 DOUBLE *RWORK,
46691 INTEGER *INFO)
46692 {
46693 DEBUG_LAPACK_STUB("ztrevc");
46694 LAPACK_IMPL(ztrevc)(SIDE,
46695 HOWMNY,
46696 SELECT,
46697 N,
46698 T,
46699 LDT,
46700 VL,
46701 LDVL,
46702 VR,
46703 LDVR,
46704 MM,
46705 M,
46706 WORK,
46707 RWORK,
46708 INFO);
46709 }
46710
46711 //-- ztrexc --------------------------------------------------------------------
46712 void
LAPACK_DECL(ztrexc)46713 LAPACK_DECL(ztrexc)(const char *COMPQ,
46714 const INTEGER *N,
46715 DOUBLE_COMPLEX *T,
46716 const INTEGER *LDT,
46717 DOUBLE_COMPLEX *Q,
46718 const INTEGER *LDQ,
46719 const INTEGER *IFST,
46720 const INTEGER *ILST,
46721 INTEGER *INFO)
46722 {
46723 DEBUG_LAPACK_STUB("ztrexc");
46724 LAPACK_IMPL(ztrexc)(COMPQ,
46725 N,
46726 T,
46727 LDT,
46728 Q,
46729 LDQ,
46730 IFST,
46731 ILST,
46732 INFO);
46733 }
46734
46735 //-- ztrrfs --------------------------------------------------------------------
46736 void
LAPACK_DECL(ztrrfs)46737 LAPACK_DECL(ztrrfs)(const char *UPLO,
46738 const char *TRANS,
46739 const char *DIAG,
46740 const INTEGER *N,
46741 const INTEGER *NRHS,
46742 const DOUBLE_COMPLEX *A,
46743 const INTEGER *LDA,
46744 const DOUBLE_COMPLEX *B,
46745 const INTEGER *LDB,
46746 const DOUBLE_COMPLEX *X,
46747 const INTEGER *LDX,
46748 DOUBLE *FERR,
46749 DOUBLE *BERR,
46750 DOUBLE_COMPLEX *WORK,
46751 DOUBLE *RWORK,
46752 INTEGER *INFO)
46753 {
46754 DEBUG_LAPACK_STUB("ztrrfs");
46755 LAPACK_IMPL(ztrrfs)(UPLO,
46756 TRANS,
46757 DIAG,
46758 N,
46759 NRHS,
46760 A,
46761 LDA,
46762 B,
46763 LDB,
46764 X,
46765 LDX,
46766 FERR,
46767 BERR,
46768 WORK,
46769 RWORK,
46770 INFO);
46771 }
46772
46773 //-- ztrsen --------------------------------------------------------------------
46774 void
LAPACK_DECL(ztrsen)46775 LAPACK_DECL(ztrsen)(const char *JOB,
46776 const char *COMPQ,
46777 const LOGICAL *SELECT,
46778 const INTEGER *N,
46779 DOUBLE_COMPLEX *T,
46780 const INTEGER *LDT,
46781 DOUBLE_COMPLEX *Q,
46782 const INTEGER *LDQ,
46783 DOUBLE_COMPLEX *W,
46784 INTEGER *M,
46785 DOUBLE *S,
46786 DOUBLE *SEP,
46787 DOUBLE_COMPLEX *WORK,
46788 const INTEGER *LWORK,
46789 INTEGER *INFO)
46790 {
46791 DEBUG_LAPACK_STUB("ztrsen");
46792 LAPACK_IMPL(ztrsen)(JOB,
46793 COMPQ,
46794 SELECT,
46795 N,
46796 T,
46797 LDT,
46798 Q,
46799 LDQ,
46800 W,
46801 M,
46802 S,
46803 SEP,
46804 WORK,
46805 LWORK,
46806 INFO);
46807 }
46808
46809 //-- ztrsna --------------------------------------------------------------------
46810 void
LAPACK_DECL(ztrsna)46811 LAPACK_DECL(ztrsna)(const char *JOB,
46812 const char *HOWMNY,
46813 const LOGICAL *SELECT,
46814 const INTEGER *N,
46815 const DOUBLE_COMPLEX *T,
46816 const INTEGER *LDT,
46817 const DOUBLE_COMPLEX *VL,
46818 const INTEGER *LDVL,
46819 const DOUBLE_COMPLEX *VR,
46820 const INTEGER *LDVR,
46821 DOUBLE *S,
46822 DOUBLE *SEP,
46823 const INTEGER *MM,
46824 INTEGER *M,
46825 DOUBLE_COMPLEX *WORK,
46826 const INTEGER *LDWORK,
46827 DOUBLE *RWORK,
46828 INTEGER *INFO)
46829 {
46830 DEBUG_LAPACK_STUB("ztrsna");
46831 LAPACK_IMPL(ztrsna)(JOB,
46832 HOWMNY,
46833 SELECT,
46834 N,
46835 T,
46836 LDT,
46837 VL,
46838 LDVL,
46839 VR,
46840 LDVR,
46841 S,
46842 SEP,
46843 MM,
46844 M,
46845 WORK,
46846 LDWORK,
46847 RWORK,
46848 INFO);
46849 }
46850
46851 //-- ztrsyl --------------------------------------------------------------------
46852 void
LAPACK_DECL(ztrsyl)46853 LAPACK_DECL(ztrsyl)(const char *TRANA,
46854 const char *TRANB,
46855 const INTEGER *ISGN,
46856 const INTEGER *M,
46857 const INTEGER *N,
46858 const DOUBLE_COMPLEX *A,
46859 const INTEGER *LDA,
46860 const DOUBLE_COMPLEX *B,
46861 const INTEGER *LDB,
46862 DOUBLE_COMPLEX *C,
46863 const INTEGER *LDC,
46864 DOUBLE *SCALE,
46865 INTEGER *INFO)
46866 {
46867 DEBUG_LAPACK_STUB("ztrsyl");
46868 LAPACK_IMPL(ztrsyl)(TRANA,
46869 TRANB,
46870 ISGN,
46871 M,
46872 N,
46873 A,
46874 LDA,
46875 B,
46876 LDB,
46877 C,
46878 LDC,
46879 SCALE,
46880 INFO);
46881 }
46882
46883 //-- ztrti2 --------------------------------------------------------------------
46884 void
LAPACK_DECL(ztrti2)46885 LAPACK_DECL(ztrti2)(const char *UPLO,
46886 const char *DIAG,
46887 const INTEGER *N,
46888 DOUBLE_COMPLEX *A,
46889 const INTEGER *LDA,
46890 INTEGER *INFO)
46891 {
46892 DEBUG_LAPACK_STUB("ztrti2");
46893 LAPACK_IMPL(ztrti2)(UPLO,
46894 DIAG,
46895 N,
46896 A,
46897 LDA,
46898 INFO);
46899 }
46900
46901 //-- ztrtri --------------------------------------------------------------------
46902 void
LAPACK_DECL(ztrtri)46903 LAPACK_DECL(ztrtri)(const char *UPLO,
46904 const char *DIAG,
46905 const INTEGER *N,
46906 DOUBLE_COMPLEX *A,
46907 const INTEGER *LDA,
46908 INTEGER *INFO)
46909 {
46910 DEBUG_LAPACK_STUB("ztrtri");
46911 LAPACK_IMPL(ztrtri)(UPLO,
46912 DIAG,
46913 N,
46914 A,
46915 LDA,
46916 INFO);
46917 }
46918
46919 //-- ztrtrs --------------------------------------------------------------------
46920 void
LAPACK_DECL(ztrtrs)46921 LAPACK_DECL(ztrtrs)(const char *UPLO,
46922 const char *TRANS,
46923 const char *DIAG,
46924 const INTEGER *N,
46925 const INTEGER *NRHS,
46926 const DOUBLE_COMPLEX *A,
46927 const INTEGER *LDA,
46928 DOUBLE_COMPLEX *B,
46929 const INTEGER *LDB,
46930 INTEGER *INFO)
46931 {
46932 DEBUG_LAPACK_STUB("ztrtrs");
46933 LAPACK_IMPL(ztrtrs)(UPLO,
46934 TRANS,
46935 DIAG,
46936 N,
46937 NRHS,
46938 A,
46939 LDA,
46940 B,
46941 LDB,
46942 INFO);
46943 }
46944
46945 //-- ztrttf --------------------------------------------------------------------
46946 void
LAPACK_DECL(ztrttf)46947 LAPACK_DECL(ztrttf)(const char *TRANSR,
46948 const char *UPLO,
46949 const INTEGER *N,
46950 const DOUBLE_COMPLEX *A,
46951 const INTEGER *LDA,
46952 DOUBLE_COMPLEX *ARF,
46953 INTEGER *INFO)
46954 {
46955 DEBUG_LAPACK_STUB("ztrttf");
46956 LAPACK_IMPL(ztrttf)(TRANSR,
46957 UPLO,
46958 N,
46959 A,
46960 LDA,
46961 ARF,
46962 INFO);
46963 }
46964
46965 //-- ztrttp --------------------------------------------------------------------
46966 void
LAPACK_DECL(ztrttp)46967 LAPACK_DECL(ztrttp)(const char *UPLO,
46968 const INTEGER *N,
46969 const DOUBLE_COMPLEX *A,
46970 const INTEGER *LDA,
46971 DOUBLE_COMPLEX *AP,
46972 INTEGER *INFO)
46973 {
46974 DEBUG_LAPACK_STUB("ztrttp");
46975 LAPACK_IMPL(ztrttp)(UPLO,
46976 N,
46977 A,
46978 LDA,
46979 AP,
46980 INFO);
46981 }
46982
46983 //-- ztzrqf --------------------------------------------------------------------
46984 void
LAPACK_DECL(ztzrqf)46985 LAPACK_DECL(ztzrqf)(const INTEGER *M,
46986 const INTEGER *N,
46987 DOUBLE_COMPLEX *A,
46988 const INTEGER *LDA,
46989 DOUBLE_COMPLEX *TAU,
46990 INTEGER *INFO)
46991 {
46992 DEBUG_LAPACK_STUB("ztzrqf");
46993 LAPACK_IMPL(ztzrqf)(M,
46994 N,
46995 A,
46996 LDA,
46997 TAU,
46998 INFO);
46999 }
47000
47001 //-- ztzrzf --------------------------------------------------------------------
47002 void
LAPACK_DECL(ztzrzf)47003 LAPACK_DECL(ztzrzf)(const INTEGER *M,
47004 const INTEGER *N,
47005 DOUBLE_COMPLEX *A,
47006 const INTEGER *LDA,
47007 DOUBLE_COMPLEX *TAU,
47008 DOUBLE_COMPLEX *WORK,
47009 const INTEGER *LWORK,
47010 INTEGER *INFO)
47011 {
47012 DEBUG_LAPACK_STUB("ztzrzf");
47013 LAPACK_IMPL(ztzrzf)(M,
47014 N,
47015 A,
47016 LDA,
47017 TAU,
47018 WORK,
47019 LWORK,
47020 INFO);
47021 }
47022
47023 //-- zunbdb --------------------------------------------------------------------
47024 void
LAPACK_DECL(zunbdb)47025 LAPACK_DECL(zunbdb)(const char *TRANS,
47026 const char *SIGNS,
47027 const INTEGER *M,
47028 const INTEGER *P,
47029 const INTEGER *Q,
47030 DOUBLE_COMPLEX *X11,
47031 const INTEGER *LDX11,
47032 DOUBLE_COMPLEX *X12,
47033 const INTEGER *LDX12,
47034 DOUBLE_COMPLEX *X21,
47035 const INTEGER *LDX21,
47036 DOUBLE_COMPLEX *X22,
47037 const INTEGER *LDX22,
47038 DOUBLE *THETA,
47039 DOUBLE *PHI,
47040 DOUBLE_COMPLEX *TAUP1,
47041 DOUBLE_COMPLEX *TAUP2,
47042 DOUBLE_COMPLEX *TAUQ1,
47043 DOUBLE_COMPLEX *TAUQ2,
47044 DOUBLE_COMPLEX *WORK,
47045 const INTEGER *LWORK,
47046 INTEGER *INFO)
47047 {
47048 DEBUG_LAPACK_STUB("zunbdb");
47049 LAPACK_IMPL(zunbdb)(TRANS,
47050 SIGNS,
47051 M,
47052 P,
47053 Q,
47054 X11,
47055 LDX11,
47056 X12,
47057 LDX12,
47058 X21,
47059 LDX21,
47060 X22,
47061 LDX22,
47062 THETA,
47063 PHI,
47064 TAUP1,
47065 TAUP2,
47066 TAUQ1,
47067 TAUQ2,
47068 WORK,
47069 LWORK,
47070 INFO);
47071 }
47072
47073 //-- zuncsd --------------------------------------------------------------------
47074 void
LAPACK_DECL(zuncsd)47075 LAPACK_DECL(zuncsd)(const char *JOBU1,
47076 const char *JOBU2,
47077 const char *JOBV1T,
47078 const char *JOBV2T,
47079 const char *TRANS,
47080 const char *SIGNS,
47081 const INTEGER *M,
47082 const INTEGER *P,
47083 const INTEGER *Q,
47084 const DOUBLE_COMPLEX *X11,
47085 const INTEGER *LDX11,
47086 const DOUBLE_COMPLEX *X12,
47087 const INTEGER *LDX12,
47088 const DOUBLE_COMPLEX *X21,
47089 const INTEGER *LDX21,
47090 const DOUBLE_COMPLEX *X22,
47091 const INTEGER *LDX22,
47092 DOUBLE *THETA,
47093 DOUBLE_COMPLEX *U1,
47094 const INTEGER *LDU1,
47095 DOUBLE_COMPLEX *U2,
47096 const INTEGER *LDU2,
47097 DOUBLE_COMPLEX *V1T,
47098 const INTEGER *LDV1T,
47099 DOUBLE_COMPLEX *V2T,
47100 const INTEGER *LDV2T,
47101 DOUBLE_COMPLEX *WORK,
47102 const INTEGER *LWORK,
47103 DOUBLE *RWORK,
47104 const INTEGER *LRWORK,
47105 INTEGER *IWORK,
47106 INTEGER *INFO)
47107 {
47108 DEBUG_LAPACK_STUB("zuncsd");
47109 LAPACK_IMPL(zuncsd)(JOBU1,
47110 JOBU2,
47111 JOBV1T,
47112 JOBV2T,
47113 TRANS,
47114 SIGNS,
47115 M,
47116 P,
47117 Q,
47118 X11,
47119 LDX11,
47120 X12,
47121 LDX12,
47122 X21,
47123 LDX21,
47124 X22,
47125 LDX22,
47126 THETA,
47127 U1,
47128 LDU1,
47129 U2,
47130 LDU2,
47131 V1T,
47132 LDV1T,
47133 V2T,
47134 LDV2T,
47135 WORK,
47136 LWORK,
47137 RWORK,
47138 LRWORK,
47139 IWORK,
47140 INFO);
47141 }
47142
47143 //-- zung2l --------------------------------------------------------------------
47144 void
LAPACK_DECL(zung2l)47145 LAPACK_DECL(zung2l)(const INTEGER *M,
47146 const INTEGER *N,
47147 const INTEGER *K,
47148 DOUBLE_COMPLEX *A,
47149 const INTEGER *LDA,
47150 const DOUBLE_COMPLEX *TAU,
47151 DOUBLE_COMPLEX *WORK,
47152 INTEGER *INFO)
47153 {
47154 DEBUG_LAPACK_STUB("zung2l");
47155 LAPACK_IMPL(zung2l)(M,
47156 N,
47157 K,
47158 A,
47159 LDA,
47160 TAU,
47161 WORK,
47162 INFO);
47163 }
47164
47165 //-- zung2r --------------------------------------------------------------------
47166 void
LAPACK_DECL(zung2r)47167 LAPACK_DECL(zung2r)(const INTEGER *M,
47168 const INTEGER *N,
47169 const INTEGER *K,
47170 DOUBLE_COMPLEX *A,
47171 const INTEGER *LDA,
47172 const DOUBLE_COMPLEX *TAU,
47173 DOUBLE_COMPLEX *WORK,
47174 INTEGER *INFO)
47175 {
47176 DEBUG_LAPACK_STUB("zung2r");
47177 LAPACK_IMPL(zung2r)(M,
47178 N,
47179 K,
47180 A,
47181 LDA,
47182 TAU,
47183 WORK,
47184 INFO);
47185 }
47186
47187 //-- zungbr --------------------------------------------------------------------
47188 void
LAPACK_DECL(zungbr)47189 LAPACK_DECL(zungbr)(const char *VECT,
47190 const INTEGER *M,
47191 const INTEGER *N,
47192 const INTEGER *K,
47193 DOUBLE_COMPLEX *A,
47194 const INTEGER *LDA,
47195 const DOUBLE_COMPLEX *TAU,
47196 DOUBLE_COMPLEX *WORK,
47197 const INTEGER *LWORK,
47198 INTEGER *INFO)
47199 {
47200 DEBUG_LAPACK_STUB("zungbr");
47201 LAPACK_IMPL(zungbr)(VECT,
47202 M,
47203 N,
47204 K,
47205 A,
47206 LDA,
47207 TAU,
47208 WORK,
47209 LWORK,
47210 INFO);
47211 }
47212
47213 //-- zunghr --------------------------------------------------------------------
47214 void
LAPACK_DECL(zunghr)47215 LAPACK_DECL(zunghr)(const INTEGER *N,
47216 const INTEGER *ILO,
47217 const INTEGER *IHI,
47218 DOUBLE_COMPLEX *A,
47219 const INTEGER *LDA,
47220 const DOUBLE_COMPLEX *TAU,
47221 DOUBLE_COMPLEX *WORK,
47222 const INTEGER *LWORK,
47223 INTEGER *INFO)
47224 {
47225 DEBUG_LAPACK_STUB("zunghr");
47226 LAPACK_IMPL(zunghr)(N,
47227 ILO,
47228 IHI,
47229 A,
47230 LDA,
47231 TAU,
47232 WORK,
47233 LWORK,
47234 INFO);
47235 }
47236
47237 //-- zungl2 --------------------------------------------------------------------
47238 void
LAPACK_DECL(zungl2)47239 LAPACK_DECL(zungl2)(const INTEGER *M,
47240 const INTEGER *N,
47241 const INTEGER *K,
47242 DOUBLE_COMPLEX *A,
47243 const INTEGER *LDA,
47244 const DOUBLE_COMPLEX *TAU,
47245 DOUBLE_COMPLEX *WORK,
47246 INTEGER *INFO)
47247 {
47248 DEBUG_LAPACK_STUB("zungl2");
47249 LAPACK_IMPL(zungl2)(M,
47250 N,
47251 K,
47252 A,
47253 LDA,
47254 TAU,
47255 WORK,
47256 INFO);
47257 }
47258
47259 //-- zunglq --------------------------------------------------------------------
47260 void
LAPACK_DECL(zunglq)47261 LAPACK_DECL(zunglq)(const INTEGER *M,
47262 const INTEGER *N,
47263 const INTEGER *K,
47264 DOUBLE_COMPLEX *A,
47265 const INTEGER *LDA,
47266 const DOUBLE_COMPLEX *TAU,
47267 DOUBLE_COMPLEX *WORK,
47268 const INTEGER *LWORK,
47269 INTEGER *INFO)
47270 {
47271 DEBUG_LAPACK_STUB("zunglq");
47272 LAPACK_IMPL(zunglq)(M,
47273 N,
47274 K,
47275 A,
47276 LDA,
47277 TAU,
47278 WORK,
47279 LWORK,
47280 INFO);
47281 }
47282
47283 //-- zungql --------------------------------------------------------------------
47284 void
LAPACK_DECL(zungql)47285 LAPACK_DECL(zungql)(const INTEGER *M,
47286 const INTEGER *N,
47287 const INTEGER *K,
47288 DOUBLE_COMPLEX *A,
47289 const INTEGER *LDA,
47290 const DOUBLE_COMPLEX *TAU,
47291 DOUBLE_COMPLEX *WORK,
47292 const INTEGER *LWORK,
47293 INTEGER *INFO)
47294 {
47295 DEBUG_LAPACK_STUB("zungql");
47296 LAPACK_IMPL(zungql)(M,
47297 N,
47298 K,
47299 A,
47300 LDA,
47301 TAU,
47302 WORK,
47303 LWORK,
47304 INFO);
47305 }
47306
47307 //-- zungqr --------------------------------------------------------------------
47308 void
LAPACK_DECL(zungqr)47309 LAPACK_DECL(zungqr)(const INTEGER *M,
47310 const INTEGER *N,
47311 const INTEGER *K,
47312 DOUBLE_COMPLEX *A,
47313 const INTEGER *LDA,
47314 const DOUBLE_COMPLEX *TAU,
47315 DOUBLE_COMPLEX *WORK,
47316 const INTEGER *LWORK,
47317 INTEGER *INFO)
47318 {
47319 DEBUG_LAPACK_STUB("zungqr");
47320 LAPACK_IMPL(zungqr)(M,
47321 N,
47322 K,
47323 A,
47324 LDA,
47325 TAU,
47326 WORK,
47327 LWORK,
47328 INFO);
47329 }
47330
47331 //-- zungr2 --------------------------------------------------------------------
47332 void
LAPACK_DECL(zungr2)47333 LAPACK_DECL(zungr2)(const INTEGER *M,
47334 const INTEGER *N,
47335 const INTEGER *K,
47336 DOUBLE_COMPLEX *A,
47337 const INTEGER *LDA,
47338 const DOUBLE_COMPLEX *TAU,
47339 DOUBLE_COMPLEX *WORK,
47340 INTEGER *INFO)
47341 {
47342 DEBUG_LAPACK_STUB("zungr2");
47343 LAPACK_IMPL(zungr2)(M,
47344 N,
47345 K,
47346 A,
47347 LDA,
47348 TAU,
47349 WORK,
47350 INFO);
47351 }
47352
47353 //-- zungrq --------------------------------------------------------------------
47354 void
LAPACK_DECL(zungrq)47355 LAPACK_DECL(zungrq)(const INTEGER *M,
47356 const INTEGER *N,
47357 const INTEGER *K,
47358 DOUBLE_COMPLEX *A,
47359 const INTEGER *LDA,
47360 const DOUBLE_COMPLEX *TAU,
47361 DOUBLE_COMPLEX *WORK,
47362 const INTEGER *LWORK,
47363 INTEGER *INFO)
47364 {
47365 DEBUG_LAPACK_STUB("zungrq");
47366 LAPACK_IMPL(zungrq)(M,
47367 N,
47368 K,
47369 A,
47370 LDA,
47371 TAU,
47372 WORK,
47373 LWORK,
47374 INFO);
47375 }
47376
47377 //-- zungtr --------------------------------------------------------------------
47378 void
LAPACK_DECL(zungtr)47379 LAPACK_DECL(zungtr)(const char *UPLO,
47380 const INTEGER *N,
47381 DOUBLE_COMPLEX *A,
47382 const INTEGER *LDA,
47383 const DOUBLE_COMPLEX *TAU,
47384 DOUBLE_COMPLEX *WORK,
47385 const INTEGER *LWORK,
47386 INTEGER *INFO)
47387 {
47388 DEBUG_LAPACK_STUB("zungtr");
47389 LAPACK_IMPL(zungtr)(UPLO,
47390 N,
47391 A,
47392 LDA,
47393 TAU,
47394 WORK,
47395 LWORK,
47396 INFO);
47397 }
47398
47399 //-- zunm2l --------------------------------------------------------------------
47400 void
LAPACK_DECL(zunm2l)47401 LAPACK_DECL(zunm2l)(const char *SIDE,
47402 const char *TRANS,
47403 const INTEGER *M,
47404 const INTEGER *N,
47405 const INTEGER *K,
47406 const DOUBLE_COMPLEX *A,
47407 const INTEGER *LDA,
47408 const DOUBLE_COMPLEX *TAU,
47409 DOUBLE_COMPLEX *C,
47410 const INTEGER *LDC,
47411 DOUBLE_COMPLEX *WORK,
47412 INTEGER *INFO)
47413 {
47414 DEBUG_LAPACK_STUB("zunm2l");
47415 LAPACK_IMPL(zunm2l)(SIDE,
47416 TRANS,
47417 M,
47418 N,
47419 K,
47420 A,
47421 LDA,
47422 TAU,
47423 C,
47424 LDC,
47425 WORK,
47426 INFO);
47427 }
47428
47429 //-- zunm2r --------------------------------------------------------------------
47430 void
LAPACK_DECL(zunm2r)47431 LAPACK_DECL(zunm2r)(const char *SIDE,
47432 const char *TRANS,
47433 const INTEGER *M,
47434 const INTEGER *N,
47435 const INTEGER *K,
47436 const DOUBLE_COMPLEX *A,
47437 const INTEGER *LDA,
47438 const DOUBLE_COMPLEX *TAU,
47439 DOUBLE_COMPLEX *C,
47440 const INTEGER *LDC,
47441 DOUBLE_COMPLEX *WORK,
47442 INTEGER *INFO)
47443 {
47444 DEBUG_LAPACK_STUB("zunm2r");
47445 LAPACK_IMPL(zunm2r)(SIDE,
47446 TRANS,
47447 M,
47448 N,
47449 K,
47450 A,
47451 LDA,
47452 TAU,
47453 C,
47454 LDC,
47455 WORK,
47456 INFO);
47457 }
47458
47459 //-- zunmbr --------------------------------------------------------------------
47460 void
LAPACK_DECL(zunmbr)47461 LAPACK_DECL(zunmbr)(const char *VECT,
47462 const char *SIDE,
47463 const char *TRANS,
47464 const INTEGER *M,
47465 const INTEGER *N,
47466 const INTEGER *K,
47467 const DOUBLE_COMPLEX *A,
47468 const INTEGER *LDA,
47469 const DOUBLE_COMPLEX *TAU,
47470 DOUBLE_COMPLEX *C,
47471 const INTEGER *LDC,
47472 DOUBLE_COMPLEX *WORK,
47473 const INTEGER *LWORK,
47474 INTEGER *INFO)
47475 {
47476 DEBUG_LAPACK_STUB("zunmbr");
47477 LAPACK_IMPL(zunmbr)(VECT,
47478 SIDE,
47479 TRANS,
47480 M,
47481 N,
47482 K,
47483 A,
47484 LDA,
47485 TAU,
47486 C,
47487 LDC,
47488 WORK,
47489 LWORK,
47490 INFO);
47491 }
47492
47493 //-- zunmhr --------------------------------------------------------------------
47494 void
LAPACK_DECL(zunmhr)47495 LAPACK_DECL(zunmhr)(const char *SIDE,
47496 const char *TRANS,
47497 const INTEGER *M,
47498 const INTEGER *N,
47499 const INTEGER *ILO,
47500 const INTEGER *IHI,
47501 const DOUBLE_COMPLEX *A,
47502 const INTEGER *LDA,
47503 const DOUBLE_COMPLEX *TAU,
47504 DOUBLE_COMPLEX *C,
47505 const INTEGER *LDC,
47506 DOUBLE_COMPLEX *WORK,
47507 const INTEGER *LWORK,
47508 INTEGER *INFO)
47509 {
47510 DEBUG_LAPACK_STUB("zunmhr");
47511 LAPACK_IMPL(zunmhr)(SIDE,
47512 TRANS,
47513 M,
47514 N,
47515 ILO,
47516 IHI,
47517 A,
47518 LDA,
47519 TAU,
47520 C,
47521 LDC,
47522 WORK,
47523 LWORK,
47524 INFO);
47525 }
47526
47527 //-- zunml2 --------------------------------------------------------------------
47528 void
LAPACK_DECL(zunml2)47529 LAPACK_DECL(zunml2)(const char *SIDE,
47530 const char *TRANS,
47531 const INTEGER *M,
47532 const INTEGER *N,
47533 const INTEGER *K,
47534 const DOUBLE_COMPLEX *A,
47535 const INTEGER *LDA,
47536 const DOUBLE_COMPLEX *TAU,
47537 DOUBLE_COMPLEX *C,
47538 const INTEGER *LDC,
47539 DOUBLE_COMPLEX *WORK,
47540 INTEGER *INFO)
47541 {
47542 DEBUG_LAPACK_STUB("zunml2");
47543 LAPACK_IMPL(zunml2)(SIDE,
47544 TRANS,
47545 M,
47546 N,
47547 K,
47548 A,
47549 LDA,
47550 TAU,
47551 C,
47552 LDC,
47553 WORK,
47554 INFO);
47555 }
47556
47557 //-- zunmlq --------------------------------------------------------------------
47558 void
LAPACK_DECL(zunmlq)47559 LAPACK_DECL(zunmlq)(const char *SIDE,
47560 const char *TRANS,
47561 const INTEGER *M,
47562 const INTEGER *N,
47563 const INTEGER *K,
47564 const DOUBLE_COMPLEX *A,
47565 const INTEGER *LDA,
47566 const DOUBLE_COMPLEX *TAU,
47567 DOUBLE_COMPLEX *C,
47568 const INTEGER *LDC,
47569 DOUBLE_COMPLEX *WORK,
47570 const INTEGER *LWORK,
47571 INTEGER *INFO)
47572 {
47573 DEBUG_LAPACK_STUB("zunmlq");
47574 LAPACK_IMPL(zunmlq)(SIDE,
47575 TRANS,
47576 M,
47577 N,
47578 K,
47579 A,
47580 LDA,
47581 TAU,
47582 C,
47583 LDC,
47584 WORK,
47585 LWORK,
47586 INFO);
47587 }
47588
47589 //-- zunmql --------------------------------------------------------------------
47590 void
LAPACK_DECL(zunmql)47591 LAPACK_DECL(zunmql)(const char *SIDE,
47592 const char *TRANS,
47593 const INTEGER *M,
47594 const INTEGER *N,
47595 const INTEGER *K,
47596 const DOUBLE_COMPLEX *A,
47597 const INTEGER *LDA,
47598 const DOUBLE_COMPLEX *TAU,
47599 DOUBLE_COMPLEX *C,
47600 const INTEGER *LDC,
47601 DOUBLE_COMPLEX *WORK,
47602 const INTEGER *LWORK,
47603 INTEGER *INFO)
47604 {
47605 DEBUG_LAPACK_STUB("zunmql");
47606 LAPACK_IMPL(zunmql)(SIDE,
47607 TRANS,
47608 M,
47609 N,
47610 K,
47611 A,
47612 LDA,
47613 TAU,
47614 C,
47615 LDC,
47616 WORK,
47617 LWORK,
47618 INFO);
47619 }
47620
47621 //-- zunmqr --------------------------------------------------------------------
47622 void
LAPACK_DECL(zunmqr)47623 LAPACK_DECL(zunmqr)(const char *SIDE,
47624 const char *TRANS,
47625 const INTEGER *M,
47626 const INTEGER *N,
47627 const INTEGER *K,
47628 const DOUBLE_COMPLEX *A,
47629 const INTEGER *LDA,
47630 const DOUBLE_COMPLEX *TAU,
47631 DOUBLE_COMPLEX *C,
47632 const INTEGER *LDC,
47633 DOUBLE_COMPLEX *WORK,
47634 const INTEGER *LWORK,
47635 INTEGER *INFO)
47636 {
47637 DEBUG_LAPACK_STUB("zunmqr");
47638 LAPACK_IMPL(zunmqr)(SIDE,
47639 TRANS,
47640 M,
47641 N,
47642 K,
47643 A,
47644 LDA,
47645 TAU,
47646 C,
47647 LDC,
47648 WORK,
47649 LWORK,
47650 INFO);
47651 }
47652
47653 //-- zunmr2 --------------------------------------------------------------------
47654 void
LAPACK_DECL(zunmr2)47655 LAPACK_DECL(zunmr2)(const char *SIDE,
47656 const char *TRANS,
47657 const INTEGER *M,
47658 const INTEGER *N,
47659 const INTEGER *K,
47660 const DOUBLE_COMPLEX *A,
47661 const INTEGER *LDA,
47662 const DOUBLE_COMPLEX *TAU,
47663 DOUBLE_COMPLEX *C,
47664 const INTEGER *LDC,
47665 DOUBLE_COMPLEX *WORK,
47666 INTEGER *INFO)
47667 {
47668 DEBUG_LAPACK_STUB("zunmr2");
47669 LAPACK_IMPL(zunmr2)(SIDE,
47670 TRANS,
47671 M,
47672 N,
47673 K,
47674 A,
47675 LDA,
47676 TAU,
47677 C,
47678 LDC,
47679 WORK,
47680 INFO);
47681 }
47682
47683 //-- zunmr3 --------------------------------------------------------------------
47684 void
LAPACK_DECL(zunmr3)47685 LAPACK_DECL(zunmr3)(const char *SIDE,
47686 const char *TRANS,
47687 const INTEGER *M,
47688 const INTEGER *N,
47689 const INTEGER *K,
47690 const INTEGER *L,
47691 const DOUBLE_COMPLEX *A,
47692 const INTEGER *LDA,
47693 const DOUBLE_COMPLEX *TAU,
47694 DOUBLE_COMPLEX *C,
47695 const INTEGER *LDC,
47696 DOUBLE_COMPLEX *WORK,
47697 INTEGER *INFO)
47698 {
47699 DEBUG_LAPACK_STUB("zunmr3");
47700 LAPACK_IMPL(zunmr3)(SIDE,
47701 TRANS,
47702 M,
47703 N,
47704 K,
47705 L,
47706 A,
47707 LDA,
47708 TAU,
47709 C,
47710 LDC,
47711 WORK,
47712 INFO);
47713 }
47714
47715 //-- zunmrq --------------------------------------------------------------------
47716 void
LAPACK_DECL(zunmrq)47717 LAPACK_DECL(zunmrq)(const char *SIDE,
47718 const char *TRANS,
47719 const INTEGER *M,
47720 const INTEGER *N,
47721 const INTEGER *K,
47722 const DOUBLE_COMPLEX *A,
47723 const INTEGER *LDA,
47724 const DOUBLE_COMPLEX *TAU,
47725 DOUBLE_COMPLEX *C,
47726 const INTEGER *LDC,
47727 DOUBLE_COMPLEX *WORK,
47728 const INTEGER *LWORK,
47729 INTEGER *INFO)
47730 {
47731 DEBUG_LAPACK_STUB("zunmrq");
47732 LAPACK_IMPL(zunmrq)(SIDE,
47733 TRANS,
47734 M,
47735 N,
47736 K,
47737 A,
47738 LDA,
47739 TAU,
47740 C,
47741 LDC,
47742 WORK,
47743 LWORK,
47744 INFO);
47745 }
47746
47747 //-- zunmrz --------------------------------------------------------------------
47748 void
LAPACK_DECL(zunmrz)47749 LAPACK_DECL(zunmrz)(const char *SIDE,
47750 const char *TRANS,
47751 const INTEGER *M,
47752 const INTEGER *N,
47753 const INTEGER *K,
47754 const INTEGER *L,
47755 const DOUBLE_COMPLEX *A,
47756 const INTEGER *LDA,
47757 const DOUBLE_COMPLEX *TAU,
47758 DOUBLE_COMPLEX *C,
47759 const INTEGER *LDC,
47760 DOUBLE_COMPLEX *WORK,
47761 const INTEGER *LWORK,
47762 INTEGER *INFO)
47763 {
47764 DEBUG_LAPACK_STUB("zunmrz");
47765 LAPACK_IMPL(zunmrz)(SIDE,
47766 TRANS,
47767 M,
47768 N,
47769 K,
47770 L,
47771 A,
47772 LDA,
47773 TAU,
47774 C,
47775 LDC,
47776 WORK,
47777 LWORK,
47778 INFO);
47779 }
47780
47781 //-- zunmtr --------------------------------------------------------------------
47782 void
LAPACK_DECL(zunmtr)47783 LAPACK_DECL(zunmtr)(const char *SIDE,
47784 const char *UPLO,
47785 const char *TRANS,
47786 const INTEGER *M,
47787 const INTEGER *N,
47788 const DOUBLE_COMPLEX *A,
47789 const INTEGER *LDA,
47790 const DOUBLE_COMPLEX *TAU,
47791 DOUBLE_COMPLEX *C,
47792 const INTEGER *LDC,
47793 DOUBLE_COMPLEX *WORK,
47794 const INTEGER *LWORK,
47795 INTEGER *INFO)
47796 {
47797 DEBUG_LAPACK_STUB("zunmtr");
47798 LAPACK_IMPL(zunmtr)(SIDE,
47799 UPLO,
47800 TRANS,
47801 M,
47802 N,
47803 A,
47804 LDA,
47805 TAU,
47806 C,
47807 LDC,
47808 WORK,
47809 LWORK,
47810 INFO);
47811 }
47812
47813 //-- zupgtr --------------------------------------------------------------------
47814 void
LAPACK_DECL(zupgtr)47815 LAPACK_DECL(zupgtr)(const char *UPLO,
47816 const INTEGER *N,
47817 const DOUBLE_COMPLEX *AP,
47818 const DOUBLE_COMPLEX *TAU,
47819 DOUBLE_COMPLEX *Q,
47820 const INTEGER *LDQ,
47821 DOUBLE_COMPLEX *WORK,
47822 INTEGER *INFO)
47823 {
47824 DEBUG_LAPACK_STUB("zupgtr");
47825 LAPACK_IMPL(zupgtr)(UPLO,
47826 N,
47827 AP,
47828 TAU,
47829 Q,
47830 LDQ,
47831 WORK,
47832 INFO);
47833 }
47834
47835 //-- zupmtr --------------------------------------------------------------------
47836 void
LAPACK_DECL(zupmtr)47837 LAPACK_DECL(zupmtr)(const char *SIDE,
47838 const char *UPLO,
47839 const char *TRANS,
47840 const INTEGER *M,
47841 const INTEGER *N,
47842 const DOUBLE_COMPLEX *AP,
47843 const DOUBLE_COMPLEX *TAU,
47844 DOUBLE_COMPLEX *C,
47845 const INTEGER *LDC,
47846 DOUBLE_COMPLEX *WORK,
47847 INTEGER *INFO)
47848 {
47849 DEBUG_LAPACK_STUB("zupmtr");
47850 LAPACK_IMPL(zupmtr)(SIDE,
47851 UPLO,
47852 TRANS,
47853 M,
47854 N,
47855 AP,
47856 TAU,
47857 C,
47858 LDC,
47859 WORK,
47860 INFO);
47861 }
47862
47863