1 extern "C" {
2
3 //-- dbbcsd --------------------------------------------------------------------
4 void
5 LAPACK_DECL(dbbcsd)(const char *JOBU1,
6 const char *JOBU2,
7 const char *JOBV1T,
8 const char *JOBV2T,
9 const char *TRANS,
10 const INTEGER *M,
11 const INTEGER *P,
12 const INTEGER *Q,
13 DOUBLE *THETA,
14 const DOUBLE *PHI,
15 DOUBLE *U1,
16 const INTEGER *LDU1,
17 DOUBLE *U2,
18 const INTEGER *LDU2,
19 DOUBLE *V1T,
20 const INTEGER *LDV1T,
21 DOUBLE *V2T,
22 const INTEGER *LDV2T,
23 DOUBLE *B11D,
24 DOUBLE *B11E,
25 DOUBLE *B12D,
26 DOUBLE *B12E,
27 const DOUBLE *B21D,
28 const DOUBLE *B21E,
29 const DOUBLE *B22D,
30 const DOUBLE *B22E,
31 const DOUBLE *WORK,
32 const INTEGER *LWORK,
33 INTEGER *INFO)
34 {
35 DEBUG_LAPACK_STUB("dbbcsd");
36 LAPACK_IMPL(dbbcsd)(JOBU1,
37 JOBU2,
38 JOBV1T,
39 JOBV2T,
40 TRANS,
41 M,
42 P,
43 Q,
44 THETA,
45 PHI,
46 U1,
47 LDU1,
48 U2,
49 LDU2,
50 V1T,
51 LDV1T,
52 V2T,
53 LDV2T,
54 B11D,
55 B11E,
56 B12D,
57 B12E,
58 B21D,
59 B21E,
60 B22D,
61 B22E,
62 WORK,
63 LWORK,
64 INFO);
65 }
66
67 //-- dbdsdc --------------------------------------------------------------------
68 void
69 LAPACK_DECL(dbdsdc)(const char *UPLO,
70 const char *COMPQ,
71 const INTEGER *N,
72 DOUBLE *D,
73 DOUBLE *E,
74 DOUBLE *U,
75 const INTEGER *LDU,
76 DOUBLE *VT,
77 const INTEGER *LDVT,
78 DOUBLE *Q,
79 INTEGER *IQ,
80 const DOUBLE *WORK,
81 const INTEGER *IWORK,
82 INTEGER *INFO)
83 {
84 DEBUG_LAPACK_STUB("dbdsdc");
85 LAPACK_IMPL(dbdsdc)(UPLO,
86 COMPQ,
87 N,
88 D,
89 E,
90 U,
91 LDU,
92 VT,
93 LDVT,
94 Q,
95 IQ,
96 WORK,
97 IWORK,
98 INFO);
99 }
100
101 //-- dbdsqr --------------------------------------------------------------------
102 void
103 LAPACK_DECL(dbdsqr)(const char *UPLO,
104 const INTEGER *N,
105 const INTEGER *NCVT,
106 const INTEGER *NRU,
107 const INTEGER *NCC,
108 DOUBLE *D,
109 DOUBLE *E,
110 DOUBLE *VT,
111 const INTEGER *LDVT,
112 DOUBLE *U,
113 const INTEGER *LDU,
114 DOUBLE *C,
115 const INTEGER *LDC,
116 const DOUBLE *WORK,
117 INTEGER *INFO)
118 {
119 DEBUG_LAPACK_STUB("dbdsqr");
120 LAPACK_IMPL(dbdsqr)(UPLO,
121 N,
122 NCVT,
123 NRU,
124 NCC,
125 D,
126 E,
127 VT,
128 LDVT,
129 U,
130 LDU,
131 C,
132 LDC,
133 WORK,
134 INFO);
135 }
136
137 //-- ddisna --------------------------------------------------------------------
138 void
139 LAPACK_DECL(ddisna)(const char *JOB,
140 const INTEGER *M,
141 const INTEGER *N,
142 const DOUBLE *D,
143 DOUBLE *SEP,
144 INTEGER *INFO)
145 {
146 DEBUG_LAPACK_STUB("ddisna");
147 LAPACK_IMPL(ddisna)(JOB,
148 M,
149 N,
150 D,
151 SEP,
152 INFO);
153 }
154
155 //-- dgbbrd --------------------------------------------------------------------
156 void
157 LAPACK_DECL(dgbbrd)(const char *VECT,
158 const INTEGER *M,
159 const INTEGER *N,
160 const INTEGER *NCC,
161 const INTEGER *KL,
162 const INTEGER *KU,
163 DOUBLE *AB,
164 const INTEGER *LDAB,
165 DOUBLE *D,
166 DOUBLE *E,
167 DOUBLE *Q,
168 const INTEGER *LDQ,
169 DOUBLE *PT,
170 const INTEGER *LDPT,
171 DOUBLE *C,
172 const INTEGER *LDC,
173 const DOUBLE *WORK,
174 INTEGER *INFO)
175 {
176 DEBUG_LAPACK_STUB("dgbbrd");
177 LAPACK_IMPL(dgbbrd)(VECT,
178 M,
179 N,
180 NCC,
181 KL,
182 KU,
183 AB,
184 LDAB,
185 D,
186 E,
187 Q,
188 LDQ,
189 PT,
190 LDPT,
191 C,
192 LDC,
193 WORK,
194 INFO);
195 }
196
197 //-- dgbcon --------------------------------------------------------------------
198 void
199 LAPACK_DECL(dgbcon)(const char *NORM,
200 const INTEGER *N,
201 const INTEGER *KL,
202 const INTEGER *KU,
203 const DOUBLE *AB,
204 const INTEGER *LDAB,
205 const INTEGER *IPIV,
206 const DOUBLE *ANORM,
207 DOUBLE *RCOND,
208 const DOUBLE *WORK,
209 const INTEGER *IWORK,
210 INTEGER *INFO)
211 {
212 DEBUG_LAPACK_STUB("dgbcon");
213 LAPACK_IMPL(dgbcon)(NORM,
214 N,
215 KL,
216 KU,
217 AB,
218 LDAB,
219 IPIV,
220 ANORM,
221 RCOND,
222 WORK,
223 IWORK,
224 INFO);
225 }
226
227 //-- dgbequ --------------------------------------------------------------------
228 void
229 LAPACK_DECL(dgbequ)(const INTEGER *M,
230 const INTEGER *N,
231 const INTEGER *KL,
232 const INTEGER *KU,
233 const DOUBLE *AB,
234 const INTEGER *LDAB,
235 DOUBLE *R,
236 DOUBLE *C,
237 DOUBLE *ROWCND,
238 DOUBLE *COLCND,
239 DOUBLE *AMAX,
240 INTEGER *INFO)
241 {
242 DEBUG_LAPACK_STUB("dgbequ");
243 LAPACK_IMPL(dgbequ)(M,
244 N,
245 KL,
246 KU,
247 AB,
248 LDAB,
249 R,
250 C,
251 ROWCND,
252 COLCND,
253 AMAX,
254 INFO);
255 }
256
257 //-- dgbequb -------------------------------------------------------------------
258 void
259 LAPACK_DECL(dgbequb)(const INTEGER *M,
260 const INTEGER *N,
261 const INTEGER *KL,
262 const INTEGER *KU,
263 const DOUBLE *AB,
264 const INTEGER *LDAB,
265 DOUBLE *R,
266 DOUBLE *C,
267 DOUBLE *ROWCND,
268 DOUBLE *COLCND,
269 DOUBLE *AMAX,
270 INTEGER *INFO)
271 {
272 DEBUG_LAPACK_STUB("dgbequb");
273 LAPACK_IMPL(dgbequb)(M,
274 N,
275 KL,
276 KU,
277 AB,
278 LDAB,
279 R,
280 C,
281 ROWCND,
282 COLCND,
283 AMAX,
284 INFO);
285 }
286
287 //-- dgbrfs --------------------------------------------------------------------
288 void
289 LAPACK_DECL(dgbrfs)(const char *TRANS,
290 const INTEGER *N,
291 const INTEGER *KL,
292 const INTEGER *KU,
293 const INTEGER *NRHS,
294 const DOUBLE *AB,
295 const INTEGER *LDAB,
296 const DOUBLE *AFB,
297 const INTEGER *LDAFB,
298 const INTEGER *IPIV,
299 const DOUBLE *B,
300 const INTEGER *LDB,
301 DOUBLE *X,
302 const INTEGER *LDX,
303 DOUBLE *FERR,
304 DOUBLE *BERR,
305 const DOUBLE *WORK,
306 const INTEGER *IWORK,
307 INTEGER *INFO)
308 {
309 DEBUG_LAPACK_STUB("dgbrfs");
310 LAPACK_IMPL(dgbrfs)(TRANS,
311 N,
312 KL,
313 KU,
314 NRHS,
315 AB,
316 LDAB,
317 AFB,
318 LDAFB,
319 IPIV,
320 B,
321 LDB,
322 X,
323 LDX,
324 FERR,
325 BERR,
326 WORK,
327 IWORK,
328 INFO);
329 }
330
331 //-- dgbrfsx -------------------------------------------------------------------
332 void
333 LAPACK_DECL(dgbrfsx)(const char *TRANS,
334 const char *EQUED,
335 const INTEGER *N,
336 const INTEGER *KL,
337 const INTEGER *KU,
338 const INTEGER *NRHS,
339 const DOUBLE *AB,
340 const INTEGER *LDAB,
341 const DOUBLE *AFB,
342 const INTEGER *LDAFB,
343 const INTEGER *IPIV,
344 DOUBLE *R,
345 DOUBLE *C,
346 const DOUBLE *B,
347 const INTEGER *LDB,
348 DOUBLE *X,
349 const INTEGER *LDX,
350 DOUBLE *RCOND,
351 DOUBLE *BERR,
352 const INTEGER *N_ERR_BNDS,
353 DOUBLE *ERR_BNDS_NORM,
354 DOUBLE *ERR_BNDS_COMP,
355 const INTEGER *NPARAMS,
356 DOUBLE *PARAMS,
357 const DOUBLE *WORK,
358 const INTEGER *IWORK,
359 INTEGER *INFO)
360 {
361 DEBUG_LAPACK_STUB("dgbrfsx");
362 LAPACK_IMPL(dgbrfsx)(TRANS,
363 EQUED,
364 N,
365 KL,
366 KU,
367 NRHS,
368 AB,
369 LDAB,
370 AFB,
371 LDAFB,
372 IPIV,
373 R,
374 C,
375 B,
376 LDB,
377 X,
378 LDX,
379 RCOND,
380 BERR,
381 N_ERR_BNDS,
382 ERR_BNDS_NORM,
383 ERR_BNDS_COMP,
384 NPARAMS,
385 PARAMS,
386 WORK,
387 IWORK,
388 INFO);
389 }
390
391 //-- dgbsv ---------------------------------------------------------------------
392 void
393 LAPACK_DECL(dgbsv)(const INTEGER *N,
394 const INTEGER *KL,
395 const INTEGER *KU,
396 const INTEGER *NRHS,
397 DOUBLE *AB,
398 const INTEGER *LDAB,
399 INTEGER *IPIV,
400 DOUBLE *B,
401 const INTEGER *LDB,
402 INTEGER *INFO)
403 {
404 DEBUG_LAPACK_STUB("dgbsv");
405 LAPACK_IMPL(dgbsv)(N,
406 KL,
407 KU,
408 NRHS,
409 AB,
410 LDAB,
411 IPIV,
412 B,
413 LDB,
414 INFO);
415 }
416
417 //-- dgbsvx --------------------------------------------------------------------
418 void
419 LAPACK_DECL(dgbsvx)(const char *FACT,
420 const char *TRANS,
421 const INTEGER *N,
422 const INTEGER *KL,
423 const INTEGER *KU,
424 const INTEGER *NRHS,
425 DOUBLE *AB,
426 const INTEGER *LDAB,
427 DOUBLE *AFB,
428 const INTEGER *LDAFB,
429 INTEGER *IPIV,
430 char *EQUED,
431 DOUBLE *R,
432 DOUBLE *C,
433 DOUBLE *B,
434 const INTEGER *LDB,
435 DOUBLE *X,
436 const INTEGER *LDX,
437 DOUBLE *RCOND,
438 DOUBLE *FERR,
439 DOUBLE *BERR,
440 DOUBLE *WORK,
441 const INTEGER *IWORK,
442 INTEGER *INFO)
443 {
444 DEBUG_LAPACK_STUB("dgbsvx");
445 LAPACK_IMPL(dgbsvx)(FACT,
446 TRANS,
447 N,
448 KL,
449 KU,
450 NRHS,
451 AB,
452 LDAB,
453 AFB,
454 LDAFB,
455 IPIV,
456 EQUED,
457 R,
458 C,
459 B,
460 LDB,
461 X,
462 LDX,
463 RCOND,
464 FERR,
465 BERR,
466 WORK,
467 IWORK,
468 INFO);
469 }
470
471 //-- dgbsvxx -------------------------------------------------------------------
472 void
473 LAPACK_DECL(dgbsvxx)(const char *FACT,
474 const char *TRANS,
475 const INTEGER *N,
476 const INTEGER *KL,
477 const INTEGER *KU,
478 const INTEGER *NRHS,
479 DOUBLE *AB,
480 const INTEGER *LDAB,
481 DOUBLE *AFB,
482 const INTEGER *LDAFB,
483 INTEGER *IPIV,
484 char *EQUED,
485 DOUBLE *R,
486 DOUBLE *C,
487 DOUBLE *B,
488 const INTEGER *LDB,
489 DOUBLE *X,
490 const INTEGER *LDX,
491 DOUBLE *RCOND,
492 DOUBLE *RPVGRW,
493 DOUBLE *BERR,
494 const INTEGER *N_ERR_BNDS,
495 DOUBLE *ERR_BNDS_NORM,
496 DOUBLE *ERR_BNDS_COMP,
497 const INTEGER *NPARAMS,
498 DOUBLE *PARAMS,
499 const DOUBLE *WORK,
500 const INTEGER *IWORK,
501 INTEGER *INFO)
502 {
503 DEBUG_LAPACK_STUB("dgbsvxx");
504 LAPACK_IMPL(dgbsvxx)(FACT,
505 TRANS,
506 N,
507 KL,
508 KU,
509 NRHS,
510 AB,
511 LDAB,
512 AFB,
513 LDAFB,
514 IPIV,
515 EQUED,
516 R,
517 C,
518 B,
519 LDB,
520 X,
521 LDX,
522 RCOND,
523 RPVGRW,
524 BERR,
525 N_ERR_BNDS,
526 ERR_BNDS_NORM,
527 ERR_BNDS_COMP,
528 NPARAMS,
529 PARAMS,
530 WORK,
531 IWORK,
532 INFO);
533 }
534
535 //-- dgbtf2 --------------------------------------------------------------------
536 void
537 LAPACK_DECL(dgbtf2)(const INTEGER *M,
538 const INTEGER *N,
539 const INTEGER *KL,
540 const INTEGER *KU,
541 DOUBLE *AB,
542 const INTEGER *LDAB,
543 INTEGER *IPIV,
544 INTEGER *INFO)
545 {
546 DEBUG_LAPACK_STUB("dgbtf2");
547 LAPACK_IMPL(dgbtf2)(M,
548 N,
549 KL,
550 KU,
551 AB,
552 LDAB,
553 IPIV,
554 INFO);
555 }
556
557 //-- dgbtrf --------------------------------------------------------------------
558 void
559 LAPACK_DECL(dgbtrf)(const INTEGER *M,
560 const INTEGER *N,
561 const INTEGER *KL,
562 const INTEGER *KU,
563 DOUBLE *AB,
564 const INTEGER *LDAB,
565 INTEGER *IPIV,
566 INTEGER *INFO)
567 {
568 DEBUG_LAPACK_STUB("dgbtrf");
569 LAPACK_IMPL(dgbtrf)(M,
570 N,
571 KL,
572 KU,
573 AB,
574 LDAB,
575 IPIV,
576 INFO);
577 }
578
579 //-- dgbtrs --------------------------------------------------------------------
580 void
581 LAPACK_DECL(dgbtrs)(const char *TRANS,
582 const INTEGER *N,
583 const INTEGER *KL,
584 const INTEGER *KU,
585 const INTEGER *NRHS,
586 const DOUBLE *AB,
587 const INTEGER *LDAB,
588 const INTEGER *IPIV,
589 DOUBLE *B,
590 const INTEGER *LDB,
591 INTEGER *INFO)
592 {
593 DEBUG_LAPACK_STUB("dgbtrs");
594 LAPACK_IMPL(dgbtrs)(TRANS,
595 N,
596 KL,
597 KU,
598 NRHS,
599 AB,
600 LDAB,
601 IPIV,
602 B,
603 LDB,
604 INFO);
605 }
606
607 //-- dgebak --------------------------------------------------------------------
608 void
609 LAPACK_DECL(dgebak)(const char *JOB,
610 const char *SIDE,
611 const INTEGER *N,
612 const INTEGER *ILO,
613 const INTEGER *IHI,
614 const DOUBLE *SCALE,
615 const INTEGER *M,
616 DOUBLE *V,
617 const INTEGER *LDV,
618 INTEGER *INFO)
619 {
620 DEBUG_LAPACK_STUB("dgebak");
621 LAPACK_IMPL(dgebak)(JOB,
622 SIDE,
623 N,
624 ILO,
625 IHI,
626 SCALE,
627 M,
628 V,
629 LDV,
630 INFO);
631 }
632
633 //-- dgebal --------------------------------------------------------------------
634 void
635 LAPACK_DECL(dgebal)(const char *JOB,
636 const INTEGER *N,
637 DOUBLE *A,
638 const INTEGER *LDA,
639 INTEGER *ILO,
640 INTEGER *IHI,
641 DOUBLE *SCALE,
642 INTEGER *INFO)
643 {
644 DEBUG_LAPACK_STUB("dgebal");
645 LAPACK_IMPL(dgebal)(JOB,
646 N,
647 A,
648 LDA,
649 ILO,
650 IHI,
651 SCALE,
652 INFO);
653 }
654
655 //-- dgebd2 --------------------------------------------------------------------
656 void
657 LAPACK_DECL(dgebd2)(const INTEGER *M,
658 const INTEGER *N,
659 DOUBLE *A,
660 const INTEGER *LDA,
661 DOUBLE *D,
662 DOUBLE *E,
663 DOUBLE *TAUQ,
664 DOUBLE *TAUP,
665 const DOUBLE *WORK,
666 INTEGER *INFO)
667 {
668 DEBUG_LAPACK_STUB("dgebd2");
669 LAPACK_IMPL(dgebd2)(M,
670 N,
671 A,
672 LDA,
673 D,
674 E,
675 TAUQ,
676 TAUP,
677 WORK,
678 INFO);
679 }
680
681 //-- dgebrd --------------------------------------------------------------------
682 void
683 LAPACK_DECL(dgebrd)(const INTEGER *M,
684 const INTEGER *N,
685 DOUBLE *A,
686 const INTEGER *LDA,
687 DOUBLE *D,
688 DOUBLE *E,
689 DOUBLE *TAUQ,
690 DOUBLE *TAUP,
691 DOUBLE *WORK,
692 const INTEGER *LWORK,
693 INTEGER *INFO)
694 {
695 DEBUG_LAPACK_STUB("dgebrd");
696 LAPACK_IMPL(dgebrd)(M,
697 N,
698 A,
699 LDA,
700 D,
701 E,
702 TAUQ,
703 TAUP,
704 WORK,
705 LWORK,
706 INFO);
707 }
708
709 //-- dgecon --------------------------------------------------------------------
710 void
711 LAPACK_DECL(dgecon)(const char *NORM,
712 const INTEGER *N,
713 const DOUBLE *A,
714 const INTEGER *LDA,
715 const DOUBLE *ANORM,
716 DOUBLE *RCOND,
717 const DOUBLE *WORK,
718 const INTEGER *IWORK,
719 INTEGER *INFO)
720 {
721 DEBUG_LAPACK_STUB("dgecon");
722 LAPACK_IMPL(dgecon)(NORM,
723 N,
724 A,
725 LDA,
726 ANORM,
727 RCOND,
728 WORK,
729 IWORK,
730 INFO);
731 }
732
733 //-- dgeequ --------------------------------------------------------------------
734 void
735 LAPACK_DECL(dgeequ)(const INTEGER *M,
736 const INTEGER *N,
737 const DOUBLE *A,
738 const INTEGER *LDA,
739 DOUBLE *R,
740 DOUBLE *C,
741 DOUBLE *ROWCND,
742 DOUBLE *COLCND,
743 DOUBLE *AMAX,
744 INTEGER *INFO)
745 {
746 DEBUG_LAPACK_STUB("dgeequ");
747 LAPACK_IMPL(dgeequ)(M,
748 N,
749 A,
750 LDA,
751 R,
752 C,
753 ROWCND,
754 COLCND,
755 AMAX,
756 INFO);
757 }
758
759 //-- dgeequb -------------------------------------------------------------------
760 void
761 LAPACK_DECL(dgeequb)(const INTEGER *M,
762 const INTEGER *N,
763 const DOUBLE *A,
764 const INTEGER *LDA,
765 DOUBLE *R,
766 DOUBLE *C,
767 DOUBLE *ROWCND,
768 DOUBLE *COLCND,
769 DOUBLE *AMAX,
770 INTEGER *INFO)
771 {
772 DEBUG_LAPACK_STUB("dgeequb");
773 LAPACK_IMPL(dgeequb)(M,
774 N,
775 A,
776 LDA,
777 R,
778 C,
779 ROWCND,
780 COLCND,
781 AMAX,
782 INFO);
783 }
784
785 //-- dgees ---------------------------------------------------------------------
786 void
787 LAPACK_DECL(dgees)(const char *JOBVS,
788 const char *SORT,
789 const LOGICAL *SELECT,
790 const INTEGER *N,
791 DOUBLE *A,
792 const INTEGER *LDA,
793 INTEGER *SDIM,
794 DOUBLE *WR,
795 DOUBLE *WI,
796 DOUBLE *VS,
797 const INTEGER *LDVS,
798 DOUBLE *WORK,
799 const INTEGER *LWORK,
800 const LOGICAL *BWORK,
801 INTEGER *INFO)
802 {
803 DEBUG_LAPACK_STUB("dgees");
804 LAPACK_IMPL(dgees)(JOBVS,
805 SORT,
806 SELECT,
807 N,
808 A,
809 LDA,
810 SDIM,
811 WR,
812 WI,
813 VS,
814 LDVS,
815 WORK,
816 LWORK,
817 BWORK,
818 INFO);
819 }
820
821 //-- dgeesx --------------------------------------------------------------------
822 void
823 LAPACK_DECL(dgeesx)(const char *JOBVS,
824 const char *SORT,
825 const LOGICAL *SELECT,
826 const char *SENSE,
827 const INTEGER *N,
828 DOUBLE *A,
829 const INTEGER *LDA,
830 INTEGER *SDIM,
831 DOUBLE *WR,
832 DOUBLE *WI,
833 DOUBLE *VS,
834 const INTEGER *LDVS,
835 DOUBLE *RCONDE,
836 DOUBLE *RCONDV,
837 DOUBLE *WORK,
838 const INTEGER *LWORK,
839 INTEGER *IWORK,
840 const INTEGER *LIWORK,
841 const LOGICAL *BWORK,
842 INTEGER *INFO)
843 {
844 DEBUG_LAPACK_STUB("dgeesx");
845 LAPACK_IMPL(dgeesx)(JOBVS,
846 SORT,
847 SELECT,
848 SENSE,
849 N,
850 A,
851 LDA,
852 SDIM,
853 WR,
854 WI,
855 VS,
856 LDVS,
857 RCONDE,
858 RCONDV,
859 WORK,
860 LWORK,
861 IWORK,
862 LIWORK,
863 BWORK,
864 INFO);
865 }
866
867 //-- dgeev ---------------------------------------------------------------------
868 void
869 LAPACK_DECL(dgeev)(const char *JOBVL,
870 const char *JOBVR,
871 const INTEGER *N,
872 DOUBLE *A,
873 const INTEGER *LDA,
874 DOUBLE *WR,
875 DOUBLE *WI,
876 DOUBLE *VL,
877 const INTEGER *LDVL,
878 DOUBLE *VR,
879 const INTEGER *LDVR,
880 DOUBLE *WORK,
881 const INTEGER *LWORK,
882 INTEGER *INFO)
883 {
884 DEBUG_LAPACK_STUB("dgeev");
885 LAPACK_IMPL(dgeev)(JOBVL,
886 JOBVR,
887 N,
888 A,
889 LDA,
890 WR,
891 WI,
892 VL,
893 LDVL,
894 VR,
895 LDVR,
896 WORK,
897 LWORK,
898 INFO);
899 }
900
901 //-- dgeevx --------------------------------------------------------------------
902 void
903 LAPACK_DECL(dgeevx)(const char *BALANC,
904 const char *JOBVL,
905 const char *JOBVR,
906 const char *SENSE,
907 const INTEGER *N,
908 DOUBLE *A,
909 const INTEGER *LDA,
910 DOUBLE *WR,
911 DOUBLE *WI,
912 DOUBLE *VL,
913 const INTEGER *LDVL,
914 DOUBLE *VR,
915 const INTEGER *LDVR,
916 INTEGER *ILO,
917 INTEGER *IHI,
918 DOUBLE *SCALE,
919 DOUBLE *ABNRM,
920 DOUBLE *RCONDE,
921 DOUBLE *RCONDV,
922 DOUBLE *WORK,
923 const INTEGER *LWORK,
924 const INTEGER *IWORK,
925 INTEGER *INFO)
926 {
927 DEBUG_LAPACK_STUB("dgeevx");
928 LAPACK_IMPL(dgeevx)(BALANC,
929 JOBVL,
930 JOBVR,
931 SENSE,
932 N,
933 A,
934 LDA,
935 WR,
936 WI,
937 VL,
938 LDVL,
939 VR,
940 LDVR,
941 ILO,
942 IHI,
943 SCALE,
944 ABNRM,
945 RCONDE,
946 RCONDV,
947 WORK,
948 LWORK,
949 IWORK,
950 INFO);
951 }
952
953 //-- dgegs ---------------------------------------------------------------------
954 void
955 LAPACK_DECL(dgegs)(const char *JOBVSL,
956 const char *JOBVSR,
957 const INTEGER *N,
958 DOUBLE *A,
959 const INTEGER *LDA,
960 DOUBLE *B,
961 const INTEGER *LDB,
962 DOUBLE *ALPHAR,
963 DOUBLE *ALPHAI,
964 DOUBLE *BETA,
965 DOUBLE *VSL,
966 const INTEGER *LDVSL,
967 DOUBLE *VSR,
968 const INTEGER *LDVSR,
969 DOUBLE *WORK,
970 const INTEGER *LWORK,
971 INTEGER *INFO)
972 {
973 DEBUG_LAPACK_STUB("dgegs");
974 LAPACK_IMPL(dgegs)(JOBVSL,
975 JOBVSR,
976 N,
977 A,
978 LDA,
979 B,
980 LDB,
981 ALPHAR,
982 ALPHAI,
983 BETA,
984 VSL,
985 LDVSL,
986 VSR,
987 LDVSR,
988 WORK,
989 LWORK,
990 INFO);
991 }
992
993 //-- dgegv ---------------------------------------------------------------------
994 void
995 LAPACK_DECL(dgegv)(const char *JOBVL,
996 const char *JOBVR,
997 const INTEGER *N,
998 DOUBLE *A,
999 const INTEGER *LDA,
1000 DOUBLE *B,
1001 const INTEGER *LDB,
1002 DOUBLE *ALPHAR,
1003 DOUBLE *ALPHAI,
1004 DOUBLE *BETA,
1005 DOUBLE *VL,
1006 const INTEGER *LDVL,
1007 DOUBLE *VR,
1008 const INTEGER *LDVR,
1009 DOUBLE *WORK,
1010 const INTEGER *LWORK,
1011 INTEGER *INFO)
1012 {
1013 DEBUG_LAPACK_STUB("dgegv");
1014 LAPACK_IMPL(dgegv)(JOBVL,
1015 JOBVR,
1016 N,
1017 A,
1018 LDA,
1019 B,
1020 LDB,
1021 ALPHAR,
1022 ALPHAI,
1023 BETA,
1024 VL,
1025 LDVL,
1026 VR,
1027 LDVR,
1028 WORK,
1029 LWORK,
1030 INFO);
1031 }
1032
1033 //-- dgehd2 --------------------------------------------------------------------
1034 void
1035 LAPACK_DECL(dgehd2)(const INTEGER *N,
1036 const INTEGER *ILO,
1037 const INTEGER *IHI,
1038 DOUBLE *A,
1039 const INTEGER *LDA,
1040 DOUBLE *TAU,
1041 const DOUBLE *WORK,
1042 INTEGER *INFO)
1043 {
1044 DEBUG_LAPACK_STUB("dgehd2");
1045 LAPACK_IMPL(dgehd2)(N,
1046 ILO,
1047 IHI,
1048 A,
1049 LDA,
1050 TAU,
1051 WORK,
1052 INFO);
1053 }
1054
1055 //-- dgehrd --------------------------------------------------------------------
1056 void
1057 LAPACK_DECL(dgehrd)(const INTEGER *N,
1058 const INTEGER *ILO,
1059 const INTEGER *IHI,
1060 DOUBLE *A,
1061 const INTEGER *LDA,
1062 DOUBLE *TAU,
1063 DOUBLE *WORK,
1064 const INTEGER *LWORK,
1065 INTEGER *INFO)
1066 {
1067 DEBUG_LAPACK_STUB("dgehrd");
1068 LAPACK_IMPL(dgehrd)(N,
1069 ILO,
1070 IHI,
1071 A,
1072 LDA,
1073 TAU,
1074 WORK,
1075 LWORK,
1076 INFO);
1077 }
1078
1079 //-- dgejsv --------------------------------------------------------------------
1080 void
1081 LAPACK_DECL(dgejsv)(const char *JOBA,
1082 const char *JOBU,
1083 const char *JOBV,
1084 const char *JOBR,
1085 const char *JOBT,
1086 const char *JOBP,
1087 const INTEGER *M,
1088 const INTEGER *N,
1089 const DOUBLE *A,
1090 const INTEGER *LDA,
1091 DOUBLE *SVA,
1092 DOUBLE *U,
1093 const INTEGER *LDU,
1094 DOUBLE *V,
1095 const INTEGER *LDV,
1096 DOUBLE *WORK,
1097 const INTEGER *LWORK,
1098 INTEGER *IWORK,
1099 INTEGER *INFO)
1100 {
1101 DEBUG_LAPACK_STUB("dgejsv");
1102 LAPACK_IMPL(dgejsv)(JOBA,
1103 JOBU,
1104 JOBV,
1105 JOBR,
1106 JOBT,
1107 JOBP,
1108 M,
1109 N,
1110 A,
1111 LDA,
1112 SVA,
1113 U,
1114 LDU,
1115 V,
1116 LDV,
1117 WORK,
1118 LWORK,
1119 IWORK,
1120 INFO);
1121 }
1122
1123 //-- dgelq2 --------------------------------------------------------------------
1124 void
1125 LAPACK_DECL(dgelq2)(const INTEGER *M,
1126 const INTEGER *N,
1127 DOUBLE *A,
1128 const INTEGER *LDA,
1129 DOUBLE *TAU,
1130 const DOUBLE *WORK,
1131 INTEGER *INFO)
1132 {
1133 DEBUG_LAPACK_STUB("dgelq2");
1134 LAPACK_IMPL(dgelq2)(M,
1135 N,
1136 A,
1137 LDA,
1138 TAU,
1139 WORK,
1140 INFO);
1141 }
1142
1143 //-- dgelqf --------------------------------------------------------------------
1144 void
1145 LAPACK_DECL(dgelqf)(const INTEGER *M,
1146 const INTEGER *N,
1147 DOUBLE *A,
1148 const INTEGER *LDA,
1149 DOUBLE *TAU,
1150 DOUBLE *WORK,
1151 const INTEGER *LWORK,
1152 INTEGER *INFO)
1153 {
1154 DEBUG_LAPACK_STUB("dgelqf");
1155 LAPACK_IMPL(dgelqf)(M,
1156 N,
1157 A,
1158 LDA,
1159 TAU,
1160 WORK,
1161 LWORK,
1162 INFO);
1163 }
1164
1165 //-- dgels ---------------------------------------------------------------------
1166 void
1167 LAPACK_DECL(dgels)(const char *TRANS,
1168 const INTEGER *M,
1169 const INTEGER *N,
1170 const INTEGER *NRHS,
1171 DOUBLE *A,
1172 const INTEGER *LDA,
1173 DOUBLE *B,
1174 const INTEGER *LDB,
1175 DOUBLE *WORK,
1176 const INTEGER *LWORK,
1177 INTEGER *INFO)
1178 {
1179 DEBUG_LAPACK_STUB("dgels");
1180 LAPACK_IMPL(dgels)(TRANS,
1181 M,
1182 N,
1183 NRHS,
1184 A,
1185 LDA,
1186 B,
1187 LDB,
1188 WORK,
1189 LWORK,
1190 INFO);
1191 }
1192
1193 //-- dgelsd --------------------------------------------------------------------
1194 void
1195 LAPACK_DECL(dgelsd)(const INTEGER *M,
1196 const INTEGER *N,
1197 const INTEGER *NRHS,
1198 const DOUBLE *A,
1199 const INTEGER *LDA,
1200 DOUBLE *B,
1201 const INTEGER *LDB,
1202 DOUBLE *S,
1203 const DOUBLE *RCOND,
1204 INTEGER *RANK,
1205 DOUBLE *WORK,
1206 const INTEGER *LWORK,
1207 const INTEGER *IWORK,
1208 INTEGER *INFO)
1209 {
1210 DEBUG_LAPACK_STUB("dgelsd");
1211 LAPACK_IMPL(dgelsd)(M,
1212 N,
1213 NRHS,
1214 A,
1215 LDA,
1216 B,
1217 LDB,
1218 S,
1219 RCOND,
1220 RANK,
1221 WORK,
1222 LWORK,
1223 IWORK,
1224 INFO);
1225 }
1226
1227 //-- dgelss --------------------------------------------------------------------
1228 void
1229 LAPACK_DECL(dgelss)(const INTEGER *M,
1230 const INTEGER *N,
1231 const INTEGER *NRHS,
1232 DOUBLE *A,
1233 const INTEGER *LDA,
1234 DOUBLE *B,
1235 const INTEGER *LDB,
1236 DOUBLE *S,
1237 const DOUBLE *RCOND,
1238 INTEGER *RANK,
1239 DOUBLE *WORK,
1240 const INTEGER *LWORK,
1241 INTEGER *INFO)
1242 {
1243 DEBUG_LAPACK_STUB("dgelss");
1244 LAPACK_IMPL(dgelss)(M,
1245 N,
1246 NRHS,
1247 A,
1248 LDA,
1249 B,
1250 LDB,
1251 S,
1252 RCOND,
1253 RANK,
1254 WORK,
1255 LWORK,
1256 INFO);
1257 }
1258
1259 //-- dgelsx --------------------------------------------------------------------
1260 void
1261 LAPACK_DECL(dgelsx)(const INTEGER *M,
1262 const INTEGER *N,
1263 const INTEGER *NRHS,
1264 DOUBLE *A,
1265 const INTEGER *LDA,
1266 DOUBLE *B,
1267 const INTEGER *LDB,
1268 INTEGER *JPVT,
1269 const DOUBLE *RCOND,
1270 INTEGER *RANK,
1271 const DOUBLE *WORK,
1272 INTEGER *INFO)
1273 {
1274 DEBUG_LAPACK_STUB("dgelsx");
1275 LAPACK_IMPL(dgelsx)(M,
1276 N,
1277 NRHS,
1278 A,
1279 LDA,
1280 B,
1281 LDB,
1282 JPVT,
1283 RCOND,
1284 RANK,
1285 WORK,
1286 INFO);
1287 }
1288
1289 //-- dgelsy --------------------------------------------------------------------
1290 void
1291 LAPACK_DECL(dgelsy)(const INTEGER *M,
1292 const INTEGER *N,
1293 const INTEGER *NRHS,
1294 DOUBLE *A,
1295 const INTEGER *LDA,
1296 DOUBLE *B,
1297 const INTEGER *LDB,
1298 INTEGER *JPVT,
1299 const DOUBLE *RCOND,
1300 INTEGER *RANK,
1301 DOUBLE *WORK,
1302 const INTEGER *LWORK,
1303 INTEGER *INFO)
1304 {
1305 DEBUG_LAPACK_STUB("dgelsy");
1306 LAPACK_IMPL(dgelsy)(M,
1307 N,
1308 NRHS,
1309 A,
1310 LDA,
1311 B,
1312 LDB,
1313 JPVT,
1314 RCOND,
1315 RANK,
1316 WORK,
1317 LWORK,
1318 INFO);
1319 }
1320
1321 //-- dgeql2 --------------------------------------------------------------------
1322 void
1323 LAPACK_DECL(dgeql2)(const INTEGER *M,
1324 const INTEGER *N,
1325 DOUBLE *A,
1326 const INTEGER *LDA,
1327 DOUBLE *TAU,
1328 const DOUBLE *WORK,
1329 INTEGER *INFO)
1330 {
1331 DEBUG_LAPACK_STUB("dgeql2");
1332 LAPACK_IMPL(dgeql2)(M,
1333 N,
1334 A,
1335 LDA,
1336 TAU,
1337 WORK,
1338 INFO);
1339 }
1340
1341 //-- dgeqlf --------------------------------------------------------------------
1342 void
1343 LAPACK_DECL(dgeqlf)(const INTEGER *M,
1344 const INTEGER *N,
1345 DOUBLE *A,
1346 const INTEGER *LDA,
1347 DOUBLE *TAU,
1348 DOUBLE *WORK,
1349 const INTEGER *LWORK,
1350 INTEGER *INFO)
1351 {
1352 DEBUG_LAPACK_STUB("dgeqlf");
1353 LAPACK_IMPL(dgeqlf)(M,
1354 N,
1355 A,
1356 LDA,
1357 TAU,
1358 WORK,
1359 LWORK,
1360 INFO);
1361 }
1362
1363 //-- dgeqp3 --------------------------------------------------------------------
1364 void
1365 LAPACK_DECL(dgeqp3)(const INTEGER *M,
1366 const INTEGER *N,
1367 DOUBLE *A,
1368 const INTEGER *LDA,
1369 INTEGER *JPVT,
1370 DOUBLE *TAU,
1371 DOUBLE *WORK,
1372 const INTEGER *LWORK,
1373 INTEGER *INFO)
1374 {
1375 DEBUG_LAPACK_STUB("dgeqp3");
1376 LAPACK_IMPL(dgeqp3)(M,
1377 N,
1378 A,
1379 LDA,
1380 JPVT,
1381 TAU,
1382 WORK,
1383 LWORK,
1384 INFO);
1385 }
1386
1387 //-- dgeqpf --------------------------------------------------------------------
1388 void
1389 LAPACK_DECL(dgeqpf)(const INTEGER *M,
1390 const INTEGER *N,
1391 DOUBLE *A,
1392 const INTEGER *LDA,
1393 INTEGER *JPVT,
1394 DOUBLE *TAU,
1395 const DOUBLE *WORK,
1396 INTEGER *INFO)
1397 {
1398 DEBUG_LAPACK_STUB("dgeqpf");
1399 LAPACK_IMPL(dgeqpf)(M,
1400 N,
1401 A,
1402 LDA,
1403 JPVT,
1404 TAU,
1405 WORK,
1406 INFO);
1407 }
1408
1409 //-- dgeqr2 --------------------------------------------------------------------
1410 void
1411 LAPACK_DECL(dgeqr2)(const INTEGER *M,
1412 const INTEGER *N,
1413 DOUBLE *A,
1414 const INTEGER *LDA,
1415 DOUBLE *TAU,
1416 const DOUBLE *WORK,
1417 INTEGER *INFO)
1418 {
1419 DEBUG_LAPACK_STUB("dgeqr2");
1420 LAPACK_IMPL(dgeqr2)(M,
1421 N,
1422 A,
1423 LDA,
1424 TAU,
1425 WORK,
1426 INFO);
1427 }
1428
1429 //-- dgeqr2p -------------------------------------------------------------------
1430 void
1431 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
1432 const INTEGER *N,
1433 DOUBLE *A,
1434 const INTEGER *LDA,
1435 DOUBLE *TAU,
1436 const DOUBLE *WORK,
1437 INTEGER *INFO)
1438 {
1439 DEBUG_LAPACK_STUB("dgeqr2p");
1440 LAPACK_IMPL(dgeqr2p)(M,
1441 N,
1442 A,
1443 LDA,
1444 TAU,
1445 WORK,
1446 INFO);
1447 }
1448
1449 //-- dgeqrf --------------------------------------------------------------------
1450 void
1451 LAPACK_DECL(dgeqrf)(const INTEGER *M,
1452 const INTEGER *N,
1453 DOUBLE *A,
1454 const INTEGER *LDA,
1455 DOUBLE *TAU,
1456 DOUBLE *WORK,
1457 const INTEGER *LWORK,
1458 INTEGER *INFO)
1459 {
1460 DEBUG_LAPACK_STUB("dgeqrf");
1461 LAPACK_IMPL(dgeqrf)(M,
1462 N,
1463 A,
1464 LDA,
1465 TAU,
1466 WORK,
1467 LWORK,
1468 INFO);
1469 }
1470
1471 //-- dgeqrfp -------------------------------------------------------------------
1472 void
1473 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
1474 const INTEGER *N,
1475 DOUBLE *A,
1476 const INTEGER *LDA,
1477 DOUBLE *TAU,
1478 DOUBLE *WORK,
1479 const INTEGER *LWORK,
1480 INTEGER *INFO)
1481 {
1482 DEBUG_LAPACK_STUB("dgeqrfp");
1483 LAPACK_IMPL(dgeqrfp)(M,
1484 N,
1485 A,
1486 LDA,
1487 TAU,
1488 WORK,
1489 LWORK,
1490 INFO);
1491 }
1492
1493 //-- dgerfs --------------------------------------------------------------------
1494 void
1495 LAPACK_DECL(dgerfs)(const char *TRANS,
1496 const INTEGER *N,
1497 const INTEGER *NRHS,
1498 const DOUBLE *A,
1499 const INTEGER *LDA,
1500 const DOUBLE *AF,
1501 const INTEGER *LDAF,
1502 const INTEGER *IPIV,
1503 const DOUBLE *B,
1504 const INTEGER *LDB,
1505 DOUBLE *X,
1506 const INTEGER *LDX,
1507 DOUBLE *FERR,
1508 DOUBLE *BERR,
1509 const DOUBLE *WORK,
1510 const INTEGER *IWORK,
1511 INTEGER *INFO)
1512 {
1513 DEBUG_LAPACK_STUB("dgerfs");
1514 LAPACK_IMPL(dgerfs)(TRANS,
1515 N,
1516 NRHS,
1517 A,
1518 LDA,
1519 AF,
1520 LDAF,
1521 IPIV,
1522 B,
1523 LDB,
1524 X,
1525 LDX,
1526 FERR,
1527 BERR,
1528 WORK,
1529 IWORK,
1530 INFO);
1531 }
1532
1533 //-- dgerfsx -------------------------------------------------------------------
1534 void
1535 LAPACK_DECL(dgerfsx)(const char *TRANS,
1536 const char *EQUED,
1537 const INTEGER *N,
1538 const INTEGER *NRHS,
1539 const DOUBLE *A,
1540 const INTEGER *LDA,
1541 const DOUBLE *AF,
1542 const INTEGER *LDAF,
1543 const INTEGER *IPIV,
1544 const DOUBLE *R,
1545 const DOUBLE *C,
1546 const DOUBLE *B,
1547 const INTEGER *LDB,
1548 DOUBLE *X,
1549 const INTEGER *LDX,
1550 DOUBLE *RCOND,
1551 DOUBLE *BERR,
1552 const INTEGER *N_ERR_BNDS,
1553 DOUBLE *ERR_BNDS_NORM,
1554 DOUBLE *ERR_BNDS_COMP,
1555 const INTEGER *NPARAMS,
1556 DOUBLE *PARAMS,
1557 const DOUBLE *WORK,
1558 const INTEGER *IWORK,
1559 INTEGER *INFO)
1560 {
1561 DEBUG_LAPACK_STUB("dgerfsx");
1562 LAPACK_IMPL(dgerfsx)(TRANS,
1563 EQUED,
1564 N,
1565 NRHS,
1566 A,
1567 LDA,
1568 AF,
1569 LDAF,
1570 IPIV,
1571 R,
1572 C,
1573 B,
1574 LDB,
1575 X,
1576 LDX,
1577 RCOND,
1578 BERR,
1579 N_ERR_BNDS,
1580 ERR_BNDS_NORM,
1581 ERR_BNDS_COMP,
1582 NPARAMS,
1583 PARAMS,
1584 WORK,
1585 IWORK,
1586 INFO);
1587 }
1588
1589 //-- dgerq2 --------------------------------------------------------------------
1590 void
1591 LAPACK_DECL(dgerq2)(const INTEGER *M,
1592 const INTEGER *N,
1593 DOUBLE *A,
1594 const INTEGER *LDA,
1595 DOUBLE *TAU,
1596 const DOUBLE *WORK,
1597 INTEGER *INFO)
1598 {
1599 DEBUG_LAPACK_STUB("dgerq2");
1600 LAPACK_IMPL(dgerq2)(M,
1601 N,
1602 A,
1603 LDA,
1604 TAU,
1605 WORK,
1606 INFO);
1607 }
1608
1609 //-- dgerqf --------------------------------------------------------------------
1610 void
1611 LAPACK_DECL(dgerqf)(const INTEGER *M,
1612 const INTEGER *N,
1613 DOUBLE *A,
1614 const INTEGER *LDA,
1615 DOUBLE *TAU,
1616 DOUBLE *WORK,
1617 const INTEGER *LWORK,
1618 INTEGER *INFO)
1619 {
1620 DEBUG_LAPACK_STUB("dgerqf");
1621 LAPACK_IMPL(dgerqf)(M,
1622 N,
1623 A,
1624 LDA,
1625 TAU,
1626 WORK,
1627 LWORK,
1628 INFO);
1629 }
1630
1631 //-- dgesc2 --------------------------------------------------------------------
1632 void
1633 LAPACK_DECL(dgesc2)(const INTEGER *N,
1634 const DOUBLE *A,
1635 const INTEGER *LDA,
1636 DOUBLE *RHS,
1637 const INTEGER *IPIV,
1638 const INTEGER *JPIV,
1639 DOUBLE *SCALE)
1640 {
1641 DEBUG_LAPACK_STUB("dgesc2");
1642 LAPACK_IMPL(dgesc2)(N,
1643 A,
1644 LDA,
1645 RHS,
1646 IPIV,
1647 JPIV,
1648 SCALE);
1649 }
1650
1651 //-- dgesdd --------------------------------------------------------------------
1652 void
1653 LAPACK_DECL(dgesdd)(const char *JOBZ,
1654 const INTEGER *M,
1655 const INTEGER *N,
1656 DOUBLE *A,
1657 const INTEGER *LDA,
1658 DOUBLE *S,
1659 DOUBLE *U,
1660 const INTEGER *LDU,
1661 DOUBLE *VT,
1662 const INTEGER *LDVT,
1663 DOUBLE *WORK,
1664 const INTEGER *LWORK,
1665 const INTEGER *IWORK,
1666 INTEGER *INFO)
1667 {
1668 DEBUG_LAPACK_STUB("dgesdd");
1669 LAPACK_IMPL(dgesdd)(JOBZ,
1670 M,
1671 N,
1672 A,
1673 LDA,
1674 S,
1675 U,
1676 LDU,
1677 VT,
1678 LDVT,
1679 WORK,
1680 LWORK,
1681 IWORK,
1682 INFO);
1683 }
1684
1685 //-- dgesv ---------------------------------------------------------------------
1686 void
1687 LAPACK_DECL(dgesv)(const INTEGER *N,
1688 const INTEGER *NRHS,
1689 DOUBLE *A,
1690 const INTEGER *LDA,
1691 INTEGER *IPIV,
1692 DOUBLE *B,
1693 const INTEGER *LDB,
1694 INTEGER *INFO)
1695 {
1696 DEBUG_LAPACK_STUB("dgesv");
1697 LAPACK_IMPL(dgesv)(N,
1698 NRHS,
1699 A,
1700 LDA,
1701 IPIV,
1702 B,
1703 LDB,
1704 INFO);
1705 }
1706
1707 //-- dgesvd --------------------------------------------------------------------
1708 void
1709 LAPACK_DECL(dgesvd)(const char *JOBU,
1710 const char *JOBVT,
1711 const INTEGER *M,
1712 const INTEGER *N,
1713 DOUBLE *A,
1714 const INTEGER *LDA,
1715 DOUBLE *S,
1716 DOUBLE *U,
1717 const INTEGER *LDU,
1718 DOUBLE *VT,
1719 const INTEGER *LDVT,
1720 DOUBLE *WORK,
1721 const INTEGER *LWORK,
1722 INTEGER *INFO)
1723 {
1724 DEBUG_LAPACK_STUB("dgesvd");
1725 LAPACK_IMPL(dgesvd)(JOBU,
1726 JOBVT,
1727 M,
1728 N,
1729 A,
1730 LDA,
1731 S,
1732 U,
1733 LDU,
1734 VT,
1735 LDVT,
1736 WORK,
1737 LWORK,
1738 INFO);
1739 }
1740
1741 //-- dgesvj --------------------------------------------------------------------
1742 void
1743 LAPACK_DECL(dgesvj)(const char *JOBA,
1744 const char *JOBU,
1745 const char *JOBV,
1746 const INTEGER *M,
1747 const INTEGER *N,
1748 DOUBLE *A,
1749 const INTEGER *LDA,
1750 DOUBLE *SVA,
1751 const INTEGER *MV,
1752 DOUBLE *V,
1753 const INTEGER *LDV,
1754 DOUBLE *WORK,
1755 const INTEGER *LWORK,
1756 INTEGER *INFO)
1757 {
1758 DEBUG_LAPACK_STUB("dgesvj");
1759 LAPACK_IMPL(dgesvj)(JOBA,
1760 JOBU,
1761 JOBV,
1762 M,
1763 N,
1764 A,
1765 LDA,
1766 SVA,
1767 MV,
1768 V,
1769 LDV,
1770 WORK,
1771 LWORK,
1772 INFO);
1773 }
1774
1775 //-- dgesvx --------------------------------------------------------------------
1776 void
1777 LAPACK_DECL(dgesvx)(const char *FACT,
1778 const char *TRANS,
1779 const INTEGER *N,
1780 const INTEGER *NRHS,
1781 DOUBLE *A,
1782 const INTEGER *LDA,
1783 DOUBLE *AF,
1784 const INTEGER *LDAF,
1785 INTEGER *IPIV,
1786 char *EQUED,
1787 DOUBLE *R,
1788 DOUBLE *C,
1789 DOUBLE *B,
1790 const INTEGER *LDB,
1791 DOUBLE *X,
1792 const INTEGER *LDX,
1793 DOUBLE *RCOND,
1794 DOUBLE *FERR,
1795 DOUBLE *BERR,
1796 DOUBLE *WORK,
1797 const INTEGER *IWORK,
1798 INTEGER *INFO)
1799 {
1800 DEBUG_LAPACK_STUB("dgesvx");
1801 LAPACK_IMPL(dgesvx)(FACT,
1802 TRANS,
1803 N,
1804 NRHS,
1805 A,
1806 LDA,
1807 AF,
1808 LDAF,
1809 IPIV,
1810 EQUED,
1811 R,
1812 C,
1813 B,
1814 LDB,
1815 X,
1816 LDX,
1817 RCOND,
1818 FERR,
1819 BERR,
1820 WORK,
1821 IWORK,
1822 INFO);
1823 }
1824
1825 //-- dgesvxx -------------------------------------------------------------------
1826 void
1827 LAPACK_DECL(dgesvxx)(const char *FACT,
1828 const char *TRANS,
1829 const INTEGER *N,
1830 const INTEGER *NRHS,
1831 DOUBLE *A,
1832 const INTEGER *LDA,
1833 DOUBLE *AF,
1834 const INTEGER *LDAF,
1835 INTEGER *IPIV,
1836 char *EQUED,
1837 DOUBLE *R,
1838 DOUBLE *C,
1839 DOUBLE *B,
1840 const INTEGER *LDB,
1841 DOUBLE *X,
1842 const INTEGER *LDX,
1843 DOUBLE *RCOND,
1844 DOUBLE *RPVGRW,
1845 DOUBLE *BERR,
1846 const INTEGER *N_ERR_BNDS,
1847 DOUBLE *ERR_BNDS_NORM,
1848 DOUBLE *ERR_BNDS_COMP,
1849 const INTEGER *NPARAMS,
1850 DOUBLE *PARAMS,
1851 const DOUBLE *WORK,
1852 const INTEGER *IWORK,
1853 INTEGER *INFO)
1854 {
1855 DEBUG_LAPACK_STUB("dgesvxx");
1856 LAPACK_IMPL(dgesvxx)(FACT,
1857 TRANS,
1858 N,
1859 NRHS,
1860 A,
1861 LDA,
1862 AF,
1863 LDAF,
1864 IPIV,
1865 EQUED,
1866 R,
1867 C,
1868 B,
1869 LDB,
1870 X,
1871 LDX,
1872 RCOND,
1873 RPVGRW,
1874 BERR,
1875 N_ERR_BNDS,
1876 ERR_BNDS_NORM,
1877 ERR_BNDS_COMP,
1878 NPARAMS,
1879 PARAMS,
1880 WORK,
1881 IWORK,
1882 INFO);
1883 }
1884
1885 //-- dgetc2 --------------------------------------------------------------------
1886 void
1887 LAPACK_DECL(dgetc2)(const INTEGER *N,
1888 DOUBLE *A,
1889 const INTEGER *LDA,
1890 INTEGER *IPIV,
1891 INTEGER *JPIV,
1892 INTEGER *INFO)
1893 {
1894 DEBUG_LAPACK_STUB("dgetc2");
1895 LAPACK_IMPL(dgetc2)(N,
1896 A,
1897 LDA,
1898 IPIV,
1899 JPIV,
1900 INFO);
1901 }
1902
1903 //-- dgetf2 --------------------------------------------------------------------
1904 void
1905 LAPACK_DECL(dgetf2)(const INTEGER *M,
1906 const INTEGER *N,
1907 DOUBLE *A,
1908 const INTEGER *LDA,
1909 INTEGER *IPIV,
1910 INTEGER *INFO)
1911 {
1912 DEBUG_LAPACK_STUB("dgetf2");
1913 LAPACK_IMPL(dgetf2)(M,
1914 N,
1915 A,
1916 LDA,
1917 IPIV,
1918 INFO);
1919 }
1920
1921 //-- dgetrf --------------------------------------------------------------------
1922 void
1923 LAPACK_DECL(dgetrf)(const INTEGER *M,
1924 const INTEGER *N,
1925 DOUBLE *A,
1926 const INTEGER *LDA,
1927 INTEGER *IPIV,
1928 INTEGER *INFO)
1929 {
1930 DEBUG_LAPACK_STUB("dgetrf");
1931 LAPACK_IMPL(dgetrf)(M,
1932 N,
1933 A,
1934 LDA,
1935 IPIV,
1936 INFO);
1937 }
1938
1939 //-- dgetri --------------------------------------------------------------------
1940 void
1941 LAPACK_DECL(dgetri)(const INTEGER *N,
1942 DOUBLE *A,
1943 const INTEGER *LDA,
1944 const INTEGER *IPIV,
1945 DOUBLE *WORK,
1946 const INTEGER *LWORK,
1947 INTEGER *INFO)
1948 {
1949 DEBUG_LAPACK_STUB("dgetri");
1950 LAPACK_IMPL(dgetri)(N,
1951 A,
1952 LDA,
1953 IPIV,
1954 WORK,
1955 LWORK,
1956 INFO);
1957 }
1958
1959 //-- dgetrs --------------------------------------------------------------------
1960 void
1961 LAPACK_DECL(dgetrs)(const char *TRANS,
1962 const INTEGER *N,
1963 const INTEGER *NRHS,
1964 const DOUBLE *A,
1965 const INTEGER *LDA,
1966 const INTEGER *IPIV,
1967 DOUBLE *B,
1968 const INTEGER *LDB,
1969 INTEGER *INFO)
1970 {
1971 DEBUG_LAPACK_STUB("dgetrs");
1972 LAPACK_IMPL(dgetrs)(TRANS,
1973 N,
1974 NRHS,
1975 A,
1976 LDA,
1977 IPIV,
1978 B,
1979 LDB,
1980 INFO);
1981 }
1982
1983 //-- dggbak --------------------------------------------------------------------
1984 void
1985 LAPACK_DECL(dggbak)(const char *JOB,
1986 const char *SIDE,
1987 const INTEGER *N,
1988 const INTEGER *ILO,
1989 const INTEGER *IHI,
1990 const DOUBLE *LSCALE,
1991 const DOUBLE *RSCALE,
1992 const INTEGER *M,
1993 DOUBLE *V,
1994 const INTEGER *LDV,
1995 INTEGER *INFO)
1996 {
1997 DEBUG_LAPACK_STUB("dggbak");
1998 LAPACK_IMPL(dggbak)(JOB,
1999 SIDE,
2000 N,
2001 ILO,
2002 IHI,
2003 LSCALE,
2004 RSCALE,
2005 M,
2006 V,
2007 LDV,
2008 INFO);
2009 }
2010
2011 //-- dggbal --------------------------------------------------------------------
2012 void
2013 LAPACK_DECL(dggbal)(const char *JOB,
2014 const INTEGER *N,
2015 DOUBLE *A,
2016 const INTEGER *LDA,
2017 DOUBLE *B,
2018 const INTEGER *LDB,
2019 INTEGER *ILO,
2020 INTEGER *IHI,
2021 DOUBLE *LSCALE,
2022 DOUBLE *RSCALE,
2023 const DOUBLE *WORK,
2024 INTEGER *INFO)
2025 {
2026 DEBUG_LAPACK_STUB("dggbal");
2027 LAPACK_IMPL(dggbal)(JOB,
2028 N,
2029 A,
2030 LDA,
2031 B,
2032 LDB,
2033 ILO,
2034 IHI,
2035 LSCALE,
2036 RSCALE,
2037 WORK,
2038 INFO);
2039 }
2040
2041 //-- dgges ---------------------------------------------------------------------
2042 void
2043 LAPACK_DECL(dgges)(const char *JOBVSL,
2044 const char *JOBVSR,
2045 const char *SORT,
2046 const LOGICAL *SELCTG,
2047 const INTEGER *N,
2048 DOUBLE *A,
2049 const INTEGER *LDA,
2050 DOUBLE *B,
2051 const INTEGER *LDB,
2052 INTEGER *SDIM,
2053 DOUBLE *ALPHAR,
2054 DOUBLE *ALPHAI,
2055 DOUBLE *BETA,
2056 DOUBLE *VSL,
2057 const INTEGER *LDVSL,
2058 DOUBLE *VSR,
2059 const INTEGER *LDVSR,
2060 DOUBLE *WORK,
2061 const INTEGER *LWORK,
2062 const LOGICAL *BWORK,
2063 INTEGER *INFO)
2064 {
2065 DEBUG_LAPACK_STUB("dgges");
2066 LAPACK_IMPL(dgges)(JOBVSL,
2067 JOBVSR,
2068 SORT,
2069 SELCTG,
2070 N,
2071 A,
2072 LDA,
2073 B,
2074 LDB,
2075 SDIM,
2076 ALPHAR,
2077 ALPHAI,
2078 BETA,
2079 VSL,
2080 LDVSL,
2081 VSR,
2082 LDVSR,
2083 WORK,
2084 LWORK,
2085 BWORK,
2086 INFO);
2087 }
2088
2089 //-- dggesx --------------------------------------------------------------------
2090 void
2091 LAPACK_DECL(dggesx)(const char *JOBVSL,
2092 const char *JOBVSR,
2093 const char *SORT,
2094 const LOGICAL *SELCTG,
2095 const char *SENSE,
2096 const INTEGER *N,
2097 DOUBLE *A,
2098 const INTEGER *LDA,
2099 DOUBLE *B,
2100 const INTEGER *LDB,
2101 INTEGER *SDIM,
2102 DOUBLE *ALPHAR,
2103 DOUBLE *ALPHAI,
2104 DOUBLE *BETA,
2105 DOUBLE *VSL,
2106 const INTEGER *LDVSL,
2107 DOUBLE *VSR,
2108 const INTEGER *LDVSR,
2109 DOUBLE *RCONDE,
2110 DOUBLE *RCONDV,
2111 DOUBLE *WORK,
2112 const INTEGER *LWORK,
2113 const INTEGER *IWORK,
2114 const INTEGER *LIWORK,
2115 const LOGICAL *BWORK,
2116 INTEGER *INFO)
2117 {
2118 DEBUG_LAPACK_STUB("dggesx");
2119 LAPACK_IMPL(dggesx)(JOBVSL,
2120 JOBVSR,
2121 SORT,
2122 SELCTG,
2123 SENSE,
2124 N,
2125 A,
2126 LDA,
2127 B,
2128 LDB,
2129 SDIM,
2130 ALPHAR,
2131 ALPHAI,
2132 BETA,
2133 VSL,
2134 LDVSL,
2135 VSR,
2136 LDVSR,
2137 RCONDE,
2138 RCONDV,
2139 WORK,
2140 LWORK,
2141 IWORK,
2142 LIWORK,
2143 BWORK,
2144 INFO);
2145 }
2146
2147 //-- dggev ---------------------------------------------------------------------
2148 void
2149 LAPACK_DECL(dggev)(const char *JOBVL,
2150 const char *JOBVR,
2151 const INTEGER *N,
2152 DOUBLE *A,
2153 const INTEGER *LDA,
2154 DOUBLE *B,
2155 const INTEGER *LDB,
2156 DOUBLE *ALPHAR,
2157 DOUBLE *ALPHAI,
2158 DOUBLE *BETA,
2159 DOUBLE *VL,
2160 const INTEGER *LDVL,
2161 DOUBLE *VR,
2162 const INTEGER *LDVR,
2163 DOUBLE *WORK,
2164 const INTEGER *LWORK,
2165 INTEGER *INFO)
2166 {
2167 DEBUG_LAPACK_STUB("dggev");
2168 LAPACK_IMPL(dggev)(JOBVL,
2169 JOBVR,
2170 N,
2171 A,
2172 LDA,
2173 B,
2174 LDB,
2175 ALPHAR,
2176 ALPHAI,
2177 BETA,
2178 VL,
2179 LDVL,
2180 VR,
2181 LDVR,
2182 WORK,
2183 LWORK,
2184 INFO);
2185 }
2186
2187 //-- dggevx --------------------------------------------------------------------
2188 void
2189 LAPACK_DECL(dggevx)(const char *BALANC,
2190 const char *JOBVL,
2191 const char *JOBVR,
2192 const char *SENSE,
2193 const INTEGER *N,
2194 DOUBLE *A,
2195 const INTEGER *LDA,
2196 DOUBLE *B,
2197 const INTEGER *LDB,
2198 DOUBLE *ALPHAR,
2199 DOUBLE *ALPHAI,
2200 DOUBLE *BETA,
2201 DOUBLE *VL,
2202 const INTEGER *LDVL,
2203 DOUBLE *VR,
2204 const INTEGER *LDVR,
2205 INTEGER *ILO,
2206 INTEGER *IHI,
2207 DOUBLE *LSCALE,
2208 DOUBLE *RSCALE,
2209 DOUBLE *ABNRM,
2210 DOUBLE *BBNRM,
2211 DOUBLE *RCONDE,
2212 DOUBLE *RCONDV,
2213 DOUBLE *WORK,
2214 const INTEGER *LWORK,
2215 const INTEGER *IWORK,
2216 const LOGICAL *BWORK,
2217 INTEGER *INFO)
2218 {
2219 DEBUG_LAPACK_STUB("dggevx");
2220 LAPACK_IMPL(dggevx)(BALANC,
2221 JOBVL,
2222 JOBVR,
2223 SENSE,
2224 N,
2225 A,
2226 LDA,
2227 B,
2228 LDB,
2229 ALPHAR,
2230 ALPHAI,
2231 BETA,
2232 VL,
2233 LDVL,
2234 VR,
2235 LDVR,
2236 ILO,
2237 IHI,
2238 LSCALE,
2239 RSCALE,
2240 ABNRM,
2241 BBNRM,
2242 RCONDE,
2243 RCONDV,
2244 WORK,
2245 LWORK,
2246 IWORK,
2247 BWORK,
2248 INFO);
2249 }
2250
2251 //-- dggglm --------------------------------------------------------------------
2252 void
2253 LAPACK_DECL(dggglm)(const INTEGER *N,
2254 const INTEGER *M,
2255 const INTEGER *P,
2256 DOUBLE *A,
2257 const INTEGER *LDA,
2258 DOUBLE *B,
2259 const INTEGER *LDB,
2260 DOUBLE *D,
2261 DOUBLE *X,
2262 DOUBLE *Y,
2263 DOUBLE *WORK,
2264 const INTEGER *LWORK,
2265 INTEGER *INFO)
2266 {
2267 DEBUG_LAPACK_STUB("dggglm");
2268 LAPACK_IMPL(dggglm)(N,
2269 M,
2270 P,
2271 A,
2272 LDA,
2273 B,
2274 LDB,
2275 D,
2276 X,
2277 Y,
2278 WORK,
2279 LWORK,
2280 INFO);
2281 }
2282
2283 //-- dgghrd --------------------------------------------------------------------
2284 void
2285 LAPACK_DECL(dgghrd)(const char *COMPQ,
2286 const char *COMPZ,
2287 const INTEGER *N,
2288 const INTEGER *ILO,
2289 const INTEGER *IHI,
2290 DOUBLE *A,
2291 const INTEGER *LDA,
2292 DOUBLE *B,
2293 const INTEGER *LDB,
2294 DOUBLE *Q,
2295 const INTEGER *LDQ,
2296 DOUBLE *Z,
2297 const INTEGER *LDZ,
2298 INTEGER *INFO)
2299 {
2300 DEBUG_LAPACK_STUB("dgghrd");
2301 LAPACK_IMPL(dgghrd)(COMPQ,
2302 COMPZ,
2303 N,
2304 ILO,
2305 IHI,
2306 A,
2307 LDA,
2308 B,
2309 LDB,
2310 Q,
2311 LDQ,
2312 Z,
2313 LDZ,
2314 INFO);
2315 }
2316
2317 //-- dgglse --------------------------------------------------------------------
2318 void
2319 LAPACK_DECL(dgglse)(const INTEGER *M,
2320 const INTEGER *N,
2321 const INTEGER *P,
2322 DOUBLE *A,
2323 const INTEGER *LDA,
2324 DOUBLE *B,
2325 const INTEGER *LDB,
2326 DOUBLE *C,
2327 DOUBLE *D,
2328 DOUBLE *X,
2329 DOUBLE *WORK,
2330 const INTEGER *LWORK,
2331 INTEGER *INFO)
2332 {
2333 DEBUG_LAPACK_STUB("dgglse");
2334 LAPACK_IMPL(dgglse)(M,
2335 N,
2336 P,
2337 A,
2338 LDA,
2339 B,
2340 LDB,
2341 C,
2342 D,
2343 X,
2344 WORK,
2345 LWORK,
2346 INFO);
2347 }
2348
2349 //-- dggqrf --------------------------------------------------------------------
2350 void
2351 LAPACK_DECL(dggqrf)(const INTEGER *N,
2352 const INTEGER *M,
2353 const INTEGER *P,
2354 DOUBLE *A,
2355 const INTEGER *LDA,
2356 DOUBLE *TAUA,
2357 DOUBLE *B,
2358 const INTEGER *LDB,
2359 DOUBLE *TAUB,
2360 DOUBLE *WORK,
2361 const INTEGER *LWORK,
2362 INTEGER *INFO)
2363 {
2364 DEBUG_LAPACK_STUB("dggqrf");
2365 LAPACK_IMPL(dggqrf)(N,
2366 M,
2367 P,
2368 A,
2369 LDA,
2370 TAUA,
2371 B,
2372 LDB,
2373 TAUB,
2374 WORK,
2375 LWORK,
2376 INFO);
2377 }
2378
2379 //-- dggrqf --------------------------------------------------------------------
2380 void
2381 LAPACK_DECL(dggrqf)(const INTEGER *M,
2382 const INTEGER *P,
2383 const INTEGER *N,
2384 DOUBLE *A,
2385 const INTEGER *LDA,
2386 DOUBLE *TAUA,
2387 DOUBLE *B,
2388 const INTEGER *LDB,
2389 DOUBLE *TAUB,
2390 DOUBLE *WORK,
2391 const INTEGER *LWORK,
2392 INTEGER *INFO)
2393 {
2394 DEBUG_LAPACK_STUB("dggrqf");
2395 LAPACK_IMPL(dggrqf)(M,
2396 P,
2397 N,
2398 A,
2399 LDA,
2400 TAUA,
2401 B,
2402 LDB,
2403 TAUB,
2404 WORK,
2405 LWORK,
2406 INFO);
2407 }
2408
2409 //-- dggsvd --------------------------------------------------------------------
2410 void
2411 LAPACK_DECL(dggsvd)(const char *JOBU,
2412 const char *JOBV,
2413 const char *JOBQ,
2414 const INTEGER *M,
2415 const INTEGER *N,
2416 const INTEGER *P,
2417 INTEGER *K,
2418 INTEGER *L,
2419 DOUBLE *A,
2420 const INTEGER *LDA,
2421 DOUBLE *B,
2422 const INTEGER *LDB,
2423 DOUBLE *ALPHA,
2424 DOUBLE *BETA,
2425 DOUBLE *U,
2426 const INTEGER *LDU,
2427 DOUBLE *V,
2428 const INTEGER *LDV,
2429 DOUBLE *Q,
2430 const INTEGER *LDQ,
2431 const DOUBLE *WORK,
2432 INTEGER *IWORK,
2433 INTEGER *INFO)
2434 {
2435 DEBUG_LAPACK_STUB("dggsvd");
2436 LAPACK_IMPL(dggsvd)(JOBU,
2437 JOBV,
2438 JOBQ,
2439 M,
2440 N,
2441 P,
2442 K,
2443 L,
2444 A,
2445 LDA,
2446 B,
2447 LDB,
2448 ALPHA,
2449 BETA,
2450 U,
2451 LDU,
2452 V,
2453 LDV,
2454 Q,
2455 LDQ,
2456 WORK,
2457 IWORK,
2458 INFO);
2459 }
2460
2461 //-- dggsvp --------------------------------------------------------------------
2462 void
2463 LAPACK_DECL(dggsvp)(const char *JOBU,
2464 const char *JOBV,
2465 const char *JOBQ,
2466 const INTEGER *M,
2467 const INTEGER *P,
2468 const INTEGER *N,
2469 DOUBLE *A,
2470 const INTEGER *LDA,
2471 DOUBLE *B,
2472 const INTEGER *LDB,
2473 const DOUBLE *TOLA,
2474 const DOUBLE *TOLB,
2475 INTEGER *K,
2476 INTEGER *L,
2477 DOUBLE *U,
2478 const INTEGER *LDU,
2479 DOUBLE *V,
2480 const INTEGER *LDV,
2481 DOUBLE *Q,
2482 const INTEGER *LDQ,
2483 const INTEGER *IWORK,
2484 const DOUBLE *TAU,
2485 const DOUBLE *WORK,
2486 INTEGER *INFO)
2487 {
2488 DEBUG_LAPACK_STUB("dggsvp");
2489 LAPACK_IMPL(dggsvp)(JOBU,
2490 JOBV,
2491 JOBQ,
2492 M,
2493 P,
2494 N,
2495 A,
2496 LDA,
2497 B,
2498 LDB,
2499 TOLA,
2500 TOLB,
2501 K,
2502 L,
2503 U,
2504 LDU,
2505 V,
2506 LDV,
2507 Q,
2508 LDQ,
2509 IWORK,
2510 TAU,
2511 WORK,
2512 INFO);
2513 }
2514
2515 //-- dgsvj0 --------------------------------------------------------------------
2516 void
2517 LAPACK_DECL(dgsvj0)(const char *JOBV,
2518 const INTEGER *M,
2519 const INTEGER *N,
2520 DOUBLE *A,
2521 const INTEGER *LDA,
2522 DOUBLE *D,
2523 DOUBLE *SVA,
2524 const INTEGER *MV,
2525 DOUBLE *V,
2526 const INTEGER *LDV,
2527 const DOUBLE *EPS,
2528 const DOUBLE *SFMIN,
2529 const DOUBLE *TOL,
2530 const INTEGER *NSWEEP,
2531 const DOUBLE *WORK,
2532 const INTEGER *LWORK,
2533 INTEGER *INFO)
2534 {
2535 DEBUG_LAPACK_STUB("dgsvj0");
2536 LAPACK_IMPL(dgsvj0)(JOBV,
2537 M,
2538 N,
2539 A,
2540 LDA,
2541 D,
2542 SVA,
2543 MV,
2544 V,
2545 LDV,
2546 EPS,
2547 SFMIN,
2548 TOL,
2549 NSWEEP,
2550 WORK,
2551 LWORK,
2552 INFO);
2553 }
2554
2555 //-- dgsvj1 --------------------------------------------------------------------
2556 void
2557 LAPACK_DECL(dgsvj1)(const char *JOBV,
2558 const INTEGER *M,
2559 const INTEGER *N,
2560 const INTEGER *N1,
2561 DOUBLE *A,
2562 const INTEGER *LDA,
2563 DOUBLE *D,
2564 DOUBLE *SVA,
2565 const INTEGER *MV,
2566 DOUBLE *V,
2567 const INTEGER *LDV,
2568 const DOUBLE *EPS,
2569 const DOUBLE *SFMIN,
2570 const DOUBLE *TOL,
2571 const INTEGER *NSWEEP,
2572 const DOUBLE *WORK,
2573 const INTEGER *LWORK,
2574 INTEGER *INFO)
2575 {
2576 DEBUG_LAPACK_STUB("dgsvj1");
2577 LAPACK_IMPL(dgsvj1)(JOBV,
2578 M,
2579 N,
2580 N1,
2581 A,
2582 LDA,
2583 D,
2584 SVA,
2585 MV,
2586 V,
2587 LDV,
2588 EPS,
2589 SFMIN,
2590 TOL,
2591 NSWEEP,
2592 WORK,
2593 LWORK,
2594 INFO);
2595 }
2596
2597 //-- dgtcon --------------------------------------------------------------------
2598 void
2599 LAPACK_DECL(dgtcon)(const char *NORM,
2600 const INTEGER *N,
2601 const DOUBLE *DL,
2602 const DOUBLE *D,
2603 const DOUBLE *DU,
2604 const DOUBLE *DU2,
2605 const INTEGER *IPIV,
2606 const DOUBLE *ANORM,
2607 DOUBLE *RCOND,
2608 const DOUBLE *WORK,
2609 const INTEGER *IWORK,
2610 INTEGER *INFO)
2611 {
2612 DEBUG_LAPACK_STUB("dgtcon");
2613 LAPACK_IMPL(dgtcon)(NORM,
2614 N,
2615 DL,
2616 D,
2617 DU,
2618 DU2,
2619 IPIV,
2620 ANORM,
2621 RCOND,
2622 WORK,
2623 IWORK,
2624 INFO);
2625 }
2626
2627 //-- dgtrfs --------------------------------------------------------------------
2628 void
2629 LAPACK_DECL(dgtrfs)(const char *TRANS,
2630 const INTEGER *N,
2631 const INTEGER *NRHS,
2632 const DOUBLE *DL,
2633 const DOUBLE *D,
2634 const DOUBLE *DU,
2635 const DOUBLE *DLF,
2636 const DOUBLE *DF,
2637 const DOUBLE *DUF,
2638 const DOUBLE *DU2,
2639 const INTEGER *IPIV,
2640 const DOUBLE *B,
2641 const INTEGER *LDB,
2642 DOUBLE *X,
2643 const INTEGER *LDX,
2644 DOUBLE *FERR,
2645 DOUBLE *BERR,
2646 const DOUBLE *WORK,
2647 const INTEGER *IWORK,
2648 INTEGER *INFO)
2649 {
2650 DEBUG_LAPACK_STUB("dgtrfs");
2651 LAPACK_IMPL(dgtrfs)(TRANS,
2652 N,
2653 NRHS,
2654 DL,
2655 D,
2656 DU,
2657 DLF,
2658 DF,
2659 DUF,
2660 DU2,
2661 IPIV,
2662 B,
2663 LDB,
2664 X,
2665 LDX,
2666 FERR,
2667 BERR,
2668 WORK,
2669 IWORK,
2670 INFO);
2671 }
2672
2673 //-- dgtsv ---------------------------------------------------------------------
2674 void
2675 LAPACK_DECL(dgtsv)(const INTEGER *N,
2676 const INTEGER *NRHS,
2677 DOUBLE *DL,
2678 DOUBLE *D,
2679 DOUBLE *DU,
2680 DOUBLE *B,
2681 const INTEGER *LDB,
2682 INTEGER *INFO)
2683 {
2684 DEBUG_LAPACK_STUB("dgtsv");
2685 LAPACK_IMPL(dgtsv)(N,
2686 NRHS,
2687 DL,
2688 D,
2689 DU,
2690 B,
2691 LDB,
2692 INFO);
2693 }
2694
2695 //-- dgtsvx --------------------------------------------------------------------
2696 void
2697 LAPACK_DECL(dgtsvx)(const char *FACT,
2698 const char *TRANS,
2699 const INTEGER *N,
2700 const INTEGER *NRHS,
2701 const DOUBLE *DL,
2702 const DOUBLE *D,
2703 const DOUBLE *DU,
2704 DOUBLE *DLF,
2705 DOUBLE *DF,
2706 DOUBLE *DUF,
2707 DOUBLE *DU2,
2708 INTEGER *IPIV,
2709 const DOUBLE *B,
2710 const INTEGER *LDB,
2711 DOUBLE *X,
2712 const INTEGER *LDX,
2713 DOUBLE *RCOND,
2714 DOUBLE *FERR,
2715 DOUBLE *BERR,
2716 const DOUBLE *WORK,
2717 const INTEGER *IWORK,
2718 INTEGER *INFO)
2719 {
2720 DEBUG_LAPACK_STUB("dgtsvx");
2721 LAPACK_IMPL(dgtsvx)(FACT,
2722 TRANS,
2723 N,
2724 NRHS,
2725 DL,
2726 D,
2727 DU,
2728 DLF,
2729 DF,
2730 DUF,
2731 DU2,
2732 IPIV,
2733 B,
2734 LDB,
2735 X,
2736 LDX,
2737 RCOND,
2738 FERR,
2739 BERR,
2740 WORK,
2741 IWORK,
2742 INFO);
2743 }
2744
2745 //-- dgttrf --------------------------------------------------------------------
2746 void
2747 LAPACK_DECL(dgttrf)(const INTEGER *N,
2748 DOUBLE *DL,
2749 DOUBLE *D,
2750 DOUBLE *DU,
2751 DOUBLE *DU2,
2752 INTEGER *IPIV,
2753 INTEGER *INFO)
2754 {
2755 DEBUG_LAPACK_STUB("dgttrf");
2756 LAPACK_IMPL(dgttrf)(N,
2757 DL,
2758 D,
2759 DU,
2760 DU2,
2761 IPIV,
2762 INFO);
2763 }
2764
2765 //-- dgttrs --------------------------------------------------------------------
2766 void
2767 LAPACK_DECL(dgttrs)(const char *TRANS,
2768 const INTEGER *N,
2769 const INTEGER *NRHS,
2770 const DOUBLE *DL,
2771 const DOUBLE *D,
2772 const DOUBLE *DU,
2773 const DOUBLE *DU2,
2774 const INTEGER *IPIV,
2775 DOUBLE *B,
2776 const INTEGER *LDB,
2777 INTEGER *INFO)
2778 {
2779 DEBUG_LAPACK_STUB("dgttrs");
2780 LAPACK_IMPL(dgttrs)(TRANS,
2781 N,
2782 NRHS,
2783 DL,
2784 D,
2785 DU,
2786 DU2,
2787 IPIV,
2788 B,
2789 LDB,
2790 INFO);
2791 }
2792
2793 //-- dgtts2 --------------------------------------------------------------------
2794 void
2795 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
2796 const INTEGER *N,
2797 const INTEGER *NRHS,
2798 const DOUBLE *DL,
2799 const DOUBLE *D,
2800 const DOUBLE *DU,
2801 const DOUBLE *DU2,
2802 const INTEGER *IPIV,
2803 DOUBLE *B,
2804 const INTEGER *LDB)
2805 {
2806 DEBUG_LAPACK_STUB("dgtts2");
2807 LAPACK_IMPL(dgtts2)(ITRANS,
2808 N,
2809 NRHS,
2810 DL,
2811 D,
2812 DU,
2813 DU2,
2814 IPIV,
2815 B,
2816 LDB);
2817 }
2818
2819 //-- dhgeqz --------------------------------------------------------------------
2820 void
2821 LAPACK_DECL(dhgeqz)(const char *JOB,
2822 const char *COMPQ,
2823 const char *COMPZ,
2824 const INTEGER *N,
2825 const INTEGER *ILO,
2826 const INTEGER *IHI,
2827 DOUBLE *H,
2828 const INTEGER *LDH,
2829 DOUBLE *T,
2830 const INTEGER *LDT,
2831 DOUBLE *ALPHAR,
2832 DOUBLE *ALPHAI,
2833 DOUBLE *BETA,
2834 DOUBLE *Q,
2835 const INTEGER *LDQ,
2836 DOUBLE *Z,
2837 const INTEGER *LDZ,
2838 DOUBLE *WORK,
2839 const INTEGER *LWORK,
2840 INTEGER *INFO)
2841 {
2842 DEBUG_LAPACK_STUB("dhgeqz");
2843 LAPACK_IMPL(dhgeqz)(JOB,
2844 COMPQ,
2845 COMPZ,
2846 N,
2847 ILO,
2848 IHI,
2849 H,
2850 LDH,
2851 T,
2852 LDT,
2853 ALPHAR,
2854 ALPHAI,
2855 BETA,
2856 Q,
2857 LDQ,
2858 Z,
2859 LDZ,
2860 WORK,
2861 LWORK,
2862 INFO);
2863 }
2864
2865 //-- dhsein --------------------------------------------------------------------
2866 void
2867 LAPACK_DECL(dhsein)(const char *SIDE,
2868 const char *EIGSRC,
2869 const char *INITV,
2870 LOGICAL *SELECT,
2871 const INTEGER *N,
2872 const DOUBLE *H,
2873 const INTEGER *LDH,
2874 DOUBLE *WR,
2875 const DOUBLE *WI,
2876 DOUBLE *VL,
2877 const INTEGER *LDVL,
2878 DOUBLE *VR,
2879 const INTEGER *LDVR,
2880 const INTEGER *MM,
2881 INTEGER *M,
2882 const DOUBLE *WORK,
2883 INTEGER *IFAILL,
2884 INTEGER *IFAILR,
2885 INTEGER *INFO)
2886 {
2887 DEBUG_LAPACK_STUB("dhsein");
2888 LAPACK_IMPL(dhsein)(SIDE,
2889 EIGSRC,
2890 INITV,
2891 SELECT,
2892 N,
2893 H,
2894 LDH,
2895 WR,
2896 WI,
2897 VL,
2898 LDVL,
2899 VR,
2900 LDVR,
2901 MM,
2902 M,
2903 WORK,
2904 IFAILL,
2905 IFAILR,
2906 INFO);
2907 }
2908
2909 //-- dhseqr --------------------------------------------------------------------
2910 void
2911 LAPACK_DECL(dhseqr)(const char *JOB,
2912 const char *COMPZ,
2913 const INTEGER *N,
2914 const INTEGER *ILO,
2915 const INTEGER *IHI,
2916 DOUBLE *H,
2917 const INTEGER *LDH,
2918 DOUBLE *WR,
2919 DOUBLE *WI,
2920 DOUBLE *Z,
2921 const INTEGER *LDZ,
2922 DOUBLE *WORK,
2923 const INTEGER *LWORK,
2924 INTEGER *INFO)
2925 {
2926 DEBUG_LAPACK_STUB("dhseqr");
2927 LAPACK_IMPL(dhseqr)(JOB,
2928 COMPZ,
2929 N,
2930 ILO,
2931 IHI,
2932 H,
2933 LDH,
2934 WR,
2935 WI,
2936 Z,
2937 LDZ,
2938 WORK,
2939 LWORK,
2940 INFO);
2941 }
2942
2943 //-- disnan --------------------------------------------------------------------
2944 LOGICAL
2945 LAPACK_DECL(disnan)(const DOUBLE *DIN)
2946 {
2947 DEBUG_LAPACK_STUB("disnan");
2948 return LAPACK_IMPL(disnan)(DIN);
2949 }
2950
2951 //-- dla_gbamv -----------------------------------------------------------------
2952 void
2953 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
2954 const INTEGER *M,
2955 const INTEGER *N,
2956 const INTEGER *KL,
2957 const INTEGER *KU,
2958 const DOUBLE *ALPHA,
2959 const DOUBLE *AB,
2960 const INTEGER *LDAB,
2961 const DOUBLE *X,
2962 const INTEGER *INCX,
2963 const DOUBLE *BETA,
2964 DOUBLE *Y,
2965 const INTEGER *INCY)
2966 {
2967 DEBUG_LAPACK_STUB("dla_gbamv");
2968 LAPACK_IMPL(dla_gbamv)(TRANS,
2969 M,
2970 N,
2971 KL,
2972 KU,
2973 ALPHA,
2974 AB,
2975 LDAB,
2976 X,
2977 INCX,
2978 BETA,
2979 Y,
2980 INCY);
2981 }
2982
2983 //-- dla_gbrcond ---------------------------------------------------------------
2984 DOUBLE
2985 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
2986 const INTEGER *N,
2987 const INTEGER *KL,
2988 const INTEGER *KU,
2989 const DOUBLE *AB,
2990 const INTEGER *LDAB,
2991 const DOUBLE *AFB,
2992 const INTEGER *LDAFB,
2993 const INTEGER *IPIV,
2994 const INTEGER *CMODE,
2995 const DOUBLE *C,
2996 INTEGER *INFO,
2997 const DOUBLE *WORK,
2998 const INTEGER *IWORK)
2999 {
3000 DEBUG_LAPACK_STUB("dla_gbrcond");
3001 return LAPACK_IMPL(dla_gbrcond)(TRANS,
3002 N,
3003 KL,
3004 KU,
3005 AB,
3006 LDAB,
3007 AFB,
3008 LDAFB,
3009 IPIV,
3010 CMODE,
3011 C,
3012 INFO,
3013 WORK,
3014 IWORK);
3015 }
3016
3017 //-- dla_gbrfsx_extended -------------------------------------------------------
3018 void
3019 LAPACK_DECL(dla_gbrfsx_extended)(const INTEGER *PREC_TYPE,
3020 const INTEGER *TRANS_TYPE,
3021 const INTEGER *N,
3022 const INTEGER *KL,
3023 const INTEGER *KU,
3024 const INTEGER *NRHS,
3025 const DOUBLE *AB,
3026 const INTEGER *LDAB,
3027 const DOUBLE *AFB,
3028 const INTEGER *LDAFB,
3029 const INTEGER *IPIV,
3030 const LOGICAL *COLEQU,
3031 const DOUBLE *C,
3032 const DOUBLE *B,
3033 const INTEGER *LDB,
3034 DOUBLE *Y,
3035 const INTEGER *LDY,
3036 DOUBLE *BERR_OUT,
3037 const INTEGER *N_NORMS,
3038 DOUBLE *ERR_BNDS_NORM,
3039 DOUBLE *ERR_BNDS_COMP,
3040 const DOUBLE *RES,
3041 const DOUBLE *AYB,
3042 const DOUBLE *DY,
3043 const DOUBLE *Y_TAIL,
3044 const DOUBLE *RCOND,
3045 const INTEGER *ITHRESH,
3046 const DOUBLE *RTHRESH,
3047 const DOUBLE *DZ_UB,
3048 const LOGICAL *IGNORE_CWISE,
3049 INTEGER *INFO)
3050 {
3051 DEBUG_LAPACK_STUB("dla_gbrfsx_extended");
3052 LAPACK_IMPL(dla_gbrfsx_extended)(PREC_TYPE,
3053 TRANS_TYPE,
3054 N,
3055 KL,
3056 KU,
3057 NRHS,
3058 AB,
3059 LDAB,
3060 AFB,
3061 LDAFB,
3062 IPIV,
3063 COLEQU,
3064 C,
3065 B,
3066 LDB,
3067 Y,
3068 LDY,
3069 BERR_OUT,
3070 N_NORMS,
3071 ERR_BNDS_NORM,
3072 ERR_BNDS_COMP,
3073 RES,
3074 AYB,
3075 DY,
3076 Y_TAIL,
3077 RCOND,
3078 ITHRESH,
3079 RTHRESH,
3080 DZ_UB,
3081 IGNORE_CWISE,
3082 INFO);
3083 }
3084
3085 //-- dla_gbrpvgrw --------------------------------------------------------------
3086 DOUBLE
3087 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
3088 const INTEGER *KL,
3089 const INTEGER *KU,
3090 const INTEGER *NCOLS,
3091 const DOUBLE *AB,
3092 const INTEGER *LDAB,
3093 const DOUBLE *AFB,
3094 const INTEGER *LDAFB)
3095 {
3096 DEBUG_LAPACK_STUB("dla_gbrpvgrw");
3097 return LAPACK_IMPL(dla_gbrpvgrw)(N,
3098 KL,
3099 KU,
3100 NCOLS,
3101 AB,
3102 LDAB,
3103 AFB,
3104 LDAFB);
3105 }
3106
3107 //-- dla_geamv -----------------------------------------------------------------
3108 void
3109 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
3110 const INTEGER *M,
3111 const INTEGER *N,
3112 const DOUBLE *ALPHA,
3113 const DOUBLE *A,
3114 const INTEGER *LDA,
3115 const DOUBLE *X,
3116 const INTEGER *INCX,
3117 const DOUBLE *BETA,
3118 DOUBLE *Y,
3119 const INTEGER *INCY)
3120 {
3121 DEBUG_LAPACK_STUB("dla_geamv");
3122 LAPACK_IMPL(dla_geamv)(TRANS,
3123 M,
3124 N,
3125 ALPHA,
3126 A,
3127 LDA,
3128 X,
3129 INCX,
3130 BETA,
3131 Y,
3132 INCY);
3133 }
3134
3135 //-- dla_gercond ---------------------------------------------------------------
3136 DOUBLE
3137 LAPACK_DECL(dla_gercond)(const char *TRANS,
3138 const INTEGER *N,
3139 const DOUBLE *A,
3140 const INTEGER *LDA,
3141 const DOUBLE *AF,
3142 const INTEGER *LDAF,
3143 const INTEGER *IPIV,
3144 const INTEGER *CMODE,
3145 const DOUBLE *C,
3146 INTEGER *INFO,
3147 const DOUBLE *WORK,
3148 const INTEGER *IWORK)
3149 {
3150 DEBUG_LAPACK_STUB("dla_gercond");
3151 return LAPACK_IMPL(dla_gercond)(TRANS,
3152 N,
3153 A,
3154 LDA,
3155 AF,
3156 LDAF,
3157 IPIV,
3158 CMODE,
3159 C,
3160 INFO,
3161 WORK,
3162 IWORK);
3163 }
3164
3165 //-- dla_gerfsx_extended -------------------------------------------------------
3166 void
3167 LAPACK_DECL(dla_gerfsx_extended)(const INTEGER *PREC_TYPE,
3168 const INTEGER *TRANS_TYPE,
3169 const INTEGER *N,
3170 const INTEGER *NRHS,
3171 const DOUBLE *A,
3172 const INTEGER *LDA,
3173 const DOUBLE *AF,
3174 const INTEGER *LDAF,
3175 const INTEGER *IPIV,
3176 const LOGICAL *COLEQU,
3177 const DOUBLE *C,
3178 const DOUBLE *B,
3179 const INTEGER *LDB,
3180 DOUBLE *Y,
3181 const INTEGER *LDY,
3182 DOUBLE *BERR_OUT,
3183 const INTEGER *N_NORMS,
3184 const DOUBLE *ERRS_N,
3185 const DOUBLE *ERRS_C,
3186 const DOUBLE *RES,
3187 const DOUBLE *AYB,
3188 const DOUBLE *DY,
3189 const DOUBLE *Y_TAIL,
3190 const DOUBLE *RCOND,
3191 const INTEGER *ITHRESH,
3192 const DOUBLE *RTHRESH,
3193 const DOUBLE *DZ_UB,
3194 const LOGICAL *IGNORE_CWISE,
3195 INTEGER *INFO)
3196 {
3197 DEBUG_LAPACK_STUB("dla_gerfsx_extended");
3198 LAPACK_IMPL(dla_gerfsx_extended)(PREC_TYPE,
3199 TRANS_TYPE,
3200 N,
3201 NRHS,
3202 A,
3203 LDA,
3204 AF,
3205 LDAF,
3206 IPIV,
3207 COLEQU,
3208 C,
3209 B,
3210 LDB,
3211 Y,
3212 LDY,
3213 BERR_OUT,
3214 N_NORMS,
3215 ERRS_N,
3216 ERRS_C,
3217 RES,
3218 AYB,
3219 DY,
3220 Y_TAIL,
3221 RCOND,
3222 ITHRESH,
3223 RTHRESH,
3224 DZ_UB,
3225 IGNORE_CWISE,
3226 INFO);
3227 }
3228
3229 //-- dla_lin_berr --------------------------------------------------------------
3230 void
3231 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
3232 const INTEGER *NZ,
3233 const INTEGER *NRHS,
3234 const DOUBLE *RES,
3235 const DOUBLE *AYB,
3236 DOUBLE *BERR)
3237 {
3238 DEBUG_LAPACK_STUB("dla_lin_berr");
3239 LAPACK_IMPL(dla_lin_berr)(N,
3240 NZ,
3241 NRHS,
3242 RES,
3243 AYB,
3244 BERR);
3245 }
3246
3247 //-- dla_porcond ---------------------------------------------------------------
3248 DOUBLE
3249 LAPACK_DECL(dla_porcond)(const char *UPLO,
3250 const INTEGER *N,
3251 const DOUBLE *A,
3252 const INTEGER *LDA,
3253 const DOUBLE *AF,
3254 const INTEGER *LDAF,
3255 const INTEGER *CMODE,
3256 const DOUBLE *C,
3257 INTEGER *INFO,
3258 const DOUBLE *WORK,
3259 const INTEGER *IWORK)
3260 {
3261 DEBUG_LAPACK_STUB("dla_porcond");
3262 return LAPACK_IMPL(dla_porcond)(UPLO,
3263 N,
3264 A,
3265 LDA,
3266 AF,
3267 LDAF,
3268 CMODE,
3269 C,
3270 INFO,
3271 WORK,
3272 IWORK);
3273 }
3274
3275 //-- dla_porfsx_extended -------------------------------------------------------
3276 void
3277 LAPACK_DECL(dla_porfsx_extended)(const INTEGER *PREC_TYPE,
3278 const char *UPLO,
3279 const INTEGER *N,
3280 const INTEGER *NRHS,
3281 const DOUBLE *A,
3282 const INTEGER *LDA,
3283 const DOUBLE *AF,
3284 const INTEGER *LDAF,
3285 const LOGICAL *COLEQU,
3286 const DOUBLE *C,
3287 const DOUBLE *B,
3288 const INTEGER *LDB,
3289 DOUBLE *Y,
3290 const INTEGER *LDY,
3291 DOUBLE *BERR_OUT,
3292 const INTEGER *N_NORMS,
3293 DOUBLE *ERR_BNDS_NORM,
3294 DOUBLE *ERR_BNDS_COMP,
3295 const DOUBLE *RES,
3296 const DOUBLE *AYB,
3297 const DOUBLE *DY,
3298 const DOUBLE *Y_TAIL,
3299 const DOUBLE *RCOND,
3300 const INTEGER *ITHRESH,
3301 const DOUBLE *RTHRESH,
3302 const DOUBLE *DZ_UB,
3303 const LOGICAL *IGNORE_CWISE,
3304 INTEGER *INFO)
3305 {
3306 DEBUG_LAPACK_STUB("dla_porfsx_extended");
3307 LAPACK_IMPL(dla_porfsx_extended)(PREC_TYPE,
3308 UPLO,
3309 N,
3310 NRHS,
3311 A,
3312 LDA,
3313 AF,
3314 LDAF,
3315 COLEQU,
3316 C,
3317 B,
3318 LDB,
3319 Y,
3320 LDY,
3321 BERR_OUT,
3322 N_NORMS,
3323 ERR_BNDS_NORM,
3324 ERR_BNDS_COMP,
3325 RES,
3326 AYB,
3327 DY,
3328 Y_TAIL,
3329 RCOND,
3330 ITHRESH,
3331 RTHRESH,
3332 DZ_UB,
3333 IGNORE_CWISE,
3334 INFO);
3335 }
3336
3337 //-- dla_porpvgrw --------------------------------------------------------------
3338 DOUBLE
3339 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
3340 const INTEGER *NCOLS,
3341 const DOUBLE *A,
3342 const INTEGER *LDA,
3343 const DOUBLE *AF,
3344 const INTEGER *LDAF,
3345 const DOUBLE *WORK)
3346 {
3347 DEBUG_LAPACK_STUB("dla_porpvgrw");
3348 return LAPACK_IMPL(dla_porpvgrw)(UPLO,
3349 NCOLS,
3350 A,
3351 LDA,
3352 AF,
3353 LDAF,
3354 WORK);
3355 }
3356
3357 //-- dla_rpvgrw ----------------------------------------------------------------
3358 DOUBLE
3359 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
3360 const INTEGER *NCOLS,
3361 const DOUBLE *A,
3362 const INTEGER *LDA,
3363 const DOUBLE *AF,
3364 const INTEGER *LDAF)
3365 {
3366 DEBUG_LAPACK_STUB("dla_rpvgrw");
3367 return LAPACK_IMPL(dla_rpvgrw)(N,
3368 NCOLS,
3369 A,
3370 LDA,
3371 AF,
3372 LDAF);
3373 }
3374
3375 //-- dla_syamv -----------------------------------------------------------------
3376 void
3377 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
3378 const INTEGER *N,
3379 const DOUBLE *ALPHA,
3380 const DOUBLE *A,
3381 const INTEGER *LDA,
3382 const DOUBLE *X,
3383 const INTEGER *INCX,
3384 const DOUBLE *BETA,
3385 DOUBLE *Y,
3386 const INTEGER *INCY)
3387 {
3388 DEBUG_LAPACK_STUB("dla_syamv");
3389 LAPACK_IMPL(dla_syamv)(UPLO,
3390 N,
3391 ALPHA,
3392 A,
3393 LDA,
3394 X,
3395 INCX,
3396 BETA,
3397 Y,
3398 INCY);
3399 }
3400
3401 //-- dla_syrcond ---------------------------------------------------------------
3402 DOUBLE
3403 LAPACK_DECL(dla_syrcond)(const char *UPLO,
3404 const INTEGER *N,
3405 const DOUBLE *A,
3406 const INTEGER *LDA,
3407 const DOUBLE *AF,
3408 const INTEGER *LDAF,
3409 const INTEGER *IPIV,
3410 const INTEGER *CMODE,
3411 const DOUBLE *C,
3412 INTEGER *INFO,
3413 const DOUBLE *WORK,
3414 const INTEGER *IWORK)
3415 {
3416 DEBUG_LAPACK_STUB("dla_syrcond");
3417 return LAPACK_IMPL(dla_syrcond)(UPLO,
3418 N,
3419 A,
3420 LDA,
3421 AF,
3422 LDAF,
3423 IPIV,
3424 CMODE,
3425 C,
3426 INFO,
3427 WORK,
3428 IWORK);
3429 }
3430
3431 //-- dla_syrfsx_extended -------------------------------------------------------
3432 void
3433 LAPACK_DECL(dla_syrfsx_extended)(const INTEGER *PREC_TYPE,
3434 const char *UPLO,
3435 const INTEGER *N,
3436 const INTEGER *NRHS,
3437 const DOUBLE *A,
3438 const INTEGER *LDA,
3439 const DOUBLE *AF,
3440 const INTEGER *LDAF,
3441 const INTEGER *IPIV,
3442 const LOGICAL *COLEQU,
3443 const DOUBLE *C,
3444 const DOUBLE *B,
3445 const INTEGER *LDB,
3446 DOUBLE *Y,
3447 const INTEGER *LDY,
3448 DOUBLE *BERR_OUT,
3449 const INTEGER *N_NORMS,
3450 DOUBLE *ERR_BNDS_NORM,
3451 DOUBLE *ERR_BNDS_COMP,
3452 const DOUBLE *RES,
3453 const DOUBLE *AYB,
3454 const DOUBLE *DY,
3455 const DOUBLE *Y_TAIL,
3456 const DOUBLE *RCOND,
3457 const INTEGER *ITHRESH,
3458 const DOUBLE *RTHRESH,
3459 const DOUBLE *DZ_UB,
3460 const LOGICAL *IGNORE_CWISE,
3461 INTEGER *INFO)
3462 {
3463 DEBUG_LAPACK_STUB("dla_syrfsx_extended");
3464 LAPACK_IMPL(dla_syrfsx_extended)(PREC_TYPE,
3465 UPLO,
3466 N,
3467 NRHS,
3468 A,
3469 LDA,
3470 AF,
3471 LDAF,
3472 IPIV,
3473 COLEQU,
3474 C,
3475 B,
3476 LDB,
3477 Y,
3478 LDY,
3479 BERR_OUT,
3480 N_NORMS,
3481 ERR_BNDS_NORM,
3482 ERR_BNDS_COMP,
3483 RES,
3484 AYB,
3485 DY,
3486 Y_TAIL,
3487 RCOND,
3488 ITHRESH,
3489 RTHRESH,
3490 DZ_UB,
3491 IGNORE_CWISE,
3492 INFO);
3493 }
3494
3495 //-- dla_syrpvgrw --------------------------------------------------------------
3496 DOUBLE
3497 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
3498 const INTEGER *N,
3499 const INTEGER *INFO,
3500 const DOUBLE *A,
3501 const INTEGER *LDA,
3502 const DOUBLE *AF,
3503 const INTEGER *LDAF,
3504 const INTEGER *IPIV,
3505 const DOUBLE *WORK)
3506 {
3507 DEBUG_LAPACK_STUB("dla_syrpvgrw");
3508 return LAPACK_IMPL(dla_syrpvgrw)(UPLO,
3509 N,
3510 INFO,
3511 A,
3512 LDA,
3513 AF,
3514 LDAF,
3515 IPIV,
3516 WORK);
3517 }
3518
3519 //-- dla_wwaddw ----------------------------------------------------------------
3520 void
3521 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
3522 DOUBLE *X,
3523 DOUBLE *Y,
3524 const DOUBLE *W)
3525 {
3526 DEBUG_LAPACK_STUB("dla_wwaddw");
3527 LAPACK_IMPL(dla_wwaddw)(N,
3528 X,
3529 Y,
3530 W);
3531 }
3532
3533 //-- dlabad --------------------------------------------------------------------
3534 void
3535 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
3536 DOUBLE *LARGE)
3537 {
3538 DEBUG_LAPACK_STUB("dlabad");
3539 LAPACK_IMPL(dlabad)(SMALL,
3540 LARGE);
3541 }
3542
3543 //-- dlabrd --------------------------------------------------------------------
3544 void
3545 LAPACK_DECL(dlabrd)(const INTEGER *M,
3546 const INTEGER *N,
3547 const INTEGER *NB,
3548 DOUBLE *A,
3549 const INTEGER *LDA,
3550 DOUBLE *D,
3551 DOUBLE *E,
3552 DOUBLE *TAUQ,
3553 DOUBLE *TAUP,
3554 DOUBLE *X,
3555 const INTEGER *LDX,
3556 DOUBLE *Y,
3557 const INTEGER *LDY)
3558 {
3559 DEBUG_LAPACK_STUB("dlabrd");
3560 LAPACK_IMPL(dlabrd)(M,
3561 N,
3562 NB,
3563 A,
3564 LDA,
3565 D,
3566 E,
3567 TAUQ,
3568 TAUP,
3569 X,
3570 LDX,
3571 Y,
3572 LDY);
3573 }
3574
3575 //-- dlacn2 --------------------------------------------------------------------
3576 void
3577 LAPACK_DECL(dlacn2)(const INTEGER *N,
3578 const DOUBLE *V,
3579 DOUBLE *X,
3580 const INTEGER *ISGN,
3581 DOUBLE *EST,
3582 INTEGER *KASE,
3583 INTEGER *ISAVE)
3584 {
3585 DEBUG_LAPACK_STUB("dlacn2");
3586 LAPACK_IMPL(dlacn2)(N,
3587 V,
3588 X,
3589 ISGN,
3590 EST,
3591 KASE,
3592 ISAVE);
3593 }
3594
3595 //-- dlacon --------------------------------------------------------------------
3596 void
3597 LAPACK_DECL(dlacon)(const INTEGER *N,
3598 const DOUBLE *V,
3599 DOUBLE *X,
3600 const INTEGER *ISGN,
3601 DOUBLE *EST,
3602 INTEGER *KASE)
3603 {
3604 DEBUG_LAPACK_STUB("dlacon");
3605 LAPACK_IMPL(dlacon)(N,
3606 V,
3607 X,
3608 ISGN,
3609 EST,
3610 KASE);
3611 }
3612
3613 //-- dlacpy --------------------------------------------------------------------
3614 void
3615 LAPACK_DECL(dlacpy)(const char *UPLO,
3616 const INTEGER *M,
3617 const INTEGER *N,
3618 const DOUBLE *A,
3619 const INTEGER *LDA,
3620 DOUBLE *B,
3621 const INTEGER *LDB)
3622 {
3623 DEBUG_LAPACK_STUB("dlacpy");
3624 LAPACK_IMPL(dlacpy)(UPLO,
3625 M,
3626 N,
3627 A,
3628 LDA,
3629 B,
3630 LDB);
3631 }
3632
3633 //-- dladiv --------------------------------------------------------------------
3634 void
3635 LAPACK_DECL(dladiv)(const DOUBLE *A,
3636 const DOUBLE *B,
3637 const DOUBLE *C,
3638 const DOUBLE *D,
3639 DOUBLE *P,
3640 DOUBLE *Q)
3641 {
3642 DEBUG_LAPACK_STUB("dladiv");
3643 LAPACK_IMPL(dladiv)(A,
3644 B,
3645 C,
3646 D,
3647 P,
3648 Q);
3649 }
3650
3651 //-- dlae2 ---------------------------------------------------------------------
3652 void
3653 LAPACK_DECL(dlae2)(const DOUBLE *A,
3654 const DOUBLE *B,
3655 const DOUBLE *C,
3656 DOUBLE *RT1,
3657 DOUBLE *RT2)
3658 {
3659 DEBUG_LAPACK_STUB("dlae2");
3660 LAPACK_IMPL(dlae2)(A,
3661 B,
3662 C,
3663 RT1,
3664 RT2);
3665 }
3666
3667 //-- dlaebz --------------------------------------------------------------------
3668 void
3669 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
3670 const INTEGER *NITMAX,
3671 const INTEGER *N,
3672 const INTEGER *MMAX,
3673 const INTEGER *MINP,
3674 const INTEGER *NBMIN,
3675 const DOUBLE *ABSTOL,
3676 const DOUBLE *RELTOL,
3677 const DOUBLE *PIVMIN,
3678 const DOUBLE *D,
3679 const DOUBLE *E,
3680 const DOUBLE *E2,
3681 INTEGER *NVAL,
3682 DOUBLE *AB,
3683 DOUBLE *C,
3684 INTEGER *MOUT,
3685 INTEGER *NAB,
3686 const DOUBLE *WORK,
3687 const INTEGER *IWORK,
3688 INTEGER *INFO)
3689 {
3690 DEBUG_LAPACK_STUB("dlaebz");
3691 LAPACK_IMPL(dlaebz)(IJOB,
3692 NITMAX,
3693 N,
3694 MMAX,
3695 MINP,
3696 NBMIN,
3697 ABSTOL,
3698 RELTOL,
3699 PIVMIN,
3700 D,
3701 E,
3702 E2,
3703 NVAL,
3704 AB,
3705 C,
3706 MOUT,
3707 NAB,
3708 WORK,
3709 IWORK,
3710 INFO);
3711 }
3712
3713 //-- dlaed0 --------------------------------------------------------------------
3714 void
3715 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
3716 const INTEGER *QSIZ,
3717 const INTEGER *N,
3718 DOUBLE *D,
3719 const DOUBLE *E,
3720 DOUBLE *Q,
3721 const INTEGER *LDQ,
3722 const DOUBLE *QSTORE,
3723 const INTEGER *LDQS,
3724 const DOUBLE *WORK,
3725 const INTEGER *IWORK,
3726 INTEGER *INFO)
3727 {
3728 DEBUG_LAPACK_STUB("dlaed0");
3729 LAPACK_IMPL(dlaed0)(ICOMPQ,
3730 QSIZ,
3731 N,
3732 D,
3733 E,
3734 Q,
3735 LDQ,
3736 QSTORE,
3737 LDQS,
3738 WORK,
3739 IWORK,
3740 INFO);
3741 }
3742
3743 //-- dlaed1 --------------------------------------------------------------------
3744 void
3745 LAPACK_DECL(dlaed1)(const INTEGER *N,
3746 DOUBLE *D,
3747 DOUBLE *Q,
3748 const INTEGER *LDQ,
3749 INTEGER *INDXQ,
3750 const DOUBLE *RHO,
3751 const INTEGER *CUTPNT,
3752 const DOUBLE *WORK,
3753 const INTEGER *IWORK,
3754 INTEGER *INFO)
3755 {
3756 DEBUG_LAPACK_STUB("dlaed1");
3757 LAPACK_IMPL(dlaed1)(N,
3758 D,
3759 Q,
3760 LDQ,
3761 INDXQ,
3762 RHO,
3763 CUTPNT,
3764 WORK,
3765 IWORK,
3766 INFO);
3767 }
3768
3769 //-- dlaed2 --------------------------------------------------------------------
3770 void
3771 LAPACK_DECL(dlaed2)(INTEGER *K,
3772 const INTEGER *N,
3773 const INTEGER *N1,
3774 DOUBLE *D,
3775 DOUBLE *Q,
3776 const INTEGER *LDQ,
3777 INTEGER *INDXQ,
3778 DOUBLE *RHO,
3779 const DOUBLE *Z,
3780 DOUBLE *DLAMDA,
3781 DOUBLE *W,
3782 DOUBLE *Q2,
3783 const INTEGER *INDX,
3784 INTEGER *INDXC,
3785 const INTEGER *INDXP,
3786 INTEGER *COLTYP,
3787 INTEGER *INFO)
3788 {
3789 DEBUG_LAPACK_STUB("dlaed2");
3790 LAPACK_IMPL(dlaed2)(K,
3791 N,
3792 N1,
3793 D,
3794 Q,
3795 LDQ,
3796 INDXQ,
3797 RHO,
3798 Z,
3799 DLAMDA,
3800 W,
3801 Q2,
3802 INDX,
3803 INDXC,
3804 INDXP,
3805 COLTYP,
3806 INFO);
3807 }
3808
3809 //-- dlaed3 --------------------------------------------------------------------
3810 void
3811 LAPACK_DECL(dlaed3)(const INTEGER *K,
3812 const INTEGER *N,
3813 const INTEGER *N1,
3814 DOUBLE *D,
3815 DOUBLE *Q,
3816 const INTEGER *LDQ,
3817 const DOUBLE *RHO,
3818 DOUBLE *DLAMDA,
3819 const DOUBLE *Q2,
3820 const INTEGER *INDX,
3821 const INTEGER *CTOT,
3822 DOUBLE *W,
3823 const DOUBLE *S,
3824 INTEGER *INFO)
3825 {
3826 DEBUG_LAPACK_STUB("dlaed3");
3827 LAPACK_IMPL(dlaed3)(K,
3828 N,
3829 N1,
3830 D,
3831 Q,
3832 LDQ,
3833 RHO,
3834 DLAMDA,
3835 Q2,
3836 INDX,
3837 CTOT,
3838 W,
3839 S,
3840 INFO);
3841 }
3842
3843 //-- dlaed4 --------------------------------------------------------------------
3844 void
3845 LAPACK_DECL(dlaed4)(const INTEGER *N,
3846 const INTEGER *I,
3847 const DOUBLE *D,
3848 const DOUBLE *Z,
3849 DOUBLE *DELTA,
3850 const DOUBLE *RHO,
3851 DOUBLE *DLAM,
3852 INTEGER *INFO)
3853 {
3854 DEBUG_LAPACK_STUB("dlaed4");
3855 LAPACK_IMPL(dlaed4)(N,
3856 I,
3857 D,
3858 Z,
3859 DELTA,
3860 RHO,
3861 DLAM,
3862 INFO);
3863 }
3864
3865 //-- dlaed5 --------------------------------------------------------------------
3866 void
3867 LAPACK_DECL(dlaed5)(const INTEGER *I,
3868 const DOUBLE *D,
3869 const DOUBLE *Z,
3870 DOUBLE *DELTA,
3871 const DOUBLE *RHO,
3872 DOUBLE *DLAM)
3873 {
3874 DEBUG_LAPACK_STUB("dlaed5");
3875 LAPACK_IMPL(dlaed5)(I,
3876 D,
3877 Z,
3878 DELTA,
3879 RHO,
3880 DLAM);
3881 }
3882
3883 //-- dlaed6 --------------------------------------------------------------------
3884 void
3885 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
3886 const LOGICAL *ORGATI,
3887 const DOUBLE *RHO,
3888 const DOUBLE *D,
3889 const DOUBLE *Z,
3890 const DOUBLE *FINIT,
3891 DOUBLE *TAU,
3892 INTEGER *INFO)
3893 {
3894 DEBUG_LAPACK_STUB("dlaed6");
3895 LAPACK_IMPL(dlaed6)(KNITER,
3896 ORGATI,
3897 RHO,
3898 D,
3899 Z,
3900 FINIT,
3901 TAU,
3902 INFO);
3903 }
3904
3905 //-- dlaed7 --------------------------------------------------------------------
3906 void
3907 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
3908 const INTEGER *N,
3909 const INTEGER *QSIZ,
3910 const INTEGER *TLVLS,
3911 const INTEGER *CURLVL,
3912 const INTEGER *CURPBM,
3913 DOUBLE *D,
3914 DOUBLE *Q,
3915 const INTEGER *LDQ,
3916 INTEGER *INDXQ,
3917 const DOUBLE *RHO,
3918 const INTEGER *CUTPNT,
3919 DOUBLE *QSTORE,
3920 INTEGER *QPTR,
3921 const INTEGER *PRMPTR,
3922 const INTEGER *PERM,
3923 const INTEGER *GIVPTR,
3924 const INTEGER *GIVCOL,
3925 const DOUBLE *GIVNUM,
3926 const DOUBLE *WORK,
3927 const INTEGER *IWORK,
3928 INTEGER *INFO)
3929 {
3930 DEBUG_LAPACK_STUB("dlaed7");
3931 LAPACK_IMPL(dlaed7)(ICOMPQ,
3932 N,
3933 QSIZ,
3934 TLVLS,
3935 CURLVL,
3936 CURPBM,
3937 D,
3938 Q,
3939 LDQ,
3940 INDXQ,
3941 RHO,
3942 CUTPNT,
3943 QSTORE,
3944 QPTR,
3945 PRMPTR,
3946 PERM,
3947 GIVPTR,
3948 GIVCOL,
3949 GIVNUM,
3950 WORK,
3951 IWORK,
3952 INFO);
3953 }
3954
3955 //-- dlaed8 --------------------------------------------------------------------
3956 void
3957 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
3958 INTEGER *K,
3959 const INTEGER *N,
3960 const INTEGER *QSIZ,
3961 DOUBLE *D,
3962 DOUBLE *Q,
3963 const INTEGER *LDQ,
3964 const INTEGER *INDXQ,
3965 DOUBLE *RHO,
3966 const INTEGER *CUTPNT,
3967 const DOUBLE *Z,
3968 DOUBLE *DLAMDA,
3969 DOUBLE *Q2,
3970 const INTEGER *LDQ2,
3971 DOUBLE *W,
3972 INTEGER *PERM,
3973 INTEGER *GIVPTR,
3974 INTEGER *GIVCOL,
3975 DOUBLE *GIVNUM,
3976 const INTEGER *INDXP,
3977 const INTEGER *INDX,
3978 INTEGER *INFO)
3979 {
3980 DEBUG_LAPACK_STUB("dlaed8");
3981 LAPACK_IMPL(dlaed8)(ICOMPQ,
3982 K,
3983 N,
3984 QSIZ,
3985 D,
3986 Q,
3987 LDQ,
3988 INDXQ,
3989 RHO,
3990 CUTPNT,
3991 Z,
3992 DLAMDA,
3993 Q2,
3994 LDQ2,
3995 W,
3996 PERM,
3997 GIVPTR,
3998 GIVCOL,
3999 GIVNUM,
4000 INDXP,
4001 INDX,
4002 INFO);
4003 }
4004
4005 //-- dlaed9 --------------------------------------------------------------------
4006 void
4007 LAPACK_DECL(dlaed9)(const INTEGER *K,
4008 const INTEGER *KSTART,
4009 const INTEGER *KSTOP,
4010 const INTEGER *N,
4011 DOUBLE *D,
4012 const DOUBLE *Q,
4013 const INTEGER *LDQ,
4014 const DOUBLE *RHO,
4015 const DOUBLE *DLAMDA,
4016 const DOUBLE *W,
4017 DOUBLE *S,
4018 const INTEGER *LDS,
4019 INTEGER *INFO)
4020 {
4021 DEBUG_LAPACK_STUB("dlaed9");
4022 LAPACK_IMPL(dlaed9)(K,
4023 KSTART,
4024 KSTOP,
4025 N,
4026 D,
4027 Q,
4028 LDQ,
4029 RHO,
4030 DLAMDA,
4031 W,
4032 S,
4033 LDS,
4034 INFO);
4035 }
4036
4037 //-- dlaeda --------------------------------------------------------------------
4038 void
4039 LAPACK_DECL(dlaeda)(const INTEGER *N,
4040 const INTEGER *TLVLS,
4041 const INTEGER *CURLVL,
4042 const INTEGER *CURPBM,
4043 const INTEGER *PRMPTR,
4044 const INTEGER *PERM,
4045 const INTEGER *GIVPTR,
4046 const INTEGER *GIVCOL,
4047 const DOUBLE *GIVNUM,
4048 const DOUBLE *Q,
4049 const INTEGER *QPTR,
4050 DOUBLE *Z,
4051 const DOUBLE *ZTEMP,
4052 INTEGER *INFO)
4053 {
4054 DEBUG_LAPACK_STUB("dlaeda");
4055 LAPACK_IMPL(dlaeda)(N,
4056 TLVLS,
4057 CURLVL,
4058 CURPBM,
4059 PRMPTR,
4060 PERM,
4061 GIVPTR,
4062 GIVCOL,
4063 GIVNUM,
4064 Q,
4065 QPTR,
4066 Z,
4067 ZTEMP,
4068 INFO);
4069 }
4070
4071 //-- dlaein --------------------------------------------------------------------
4072 void
4073 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
4074 const LOGICAL *NOINIT,
4075 const INTEGER *N,
4076 const DOUBLE *H,
4077 const INTEGER *LDH,
4078 const DOUBLE *WR,
4079 const DOUBLE *WI,
4080 DOUBLE *VR,
4081 DOUBLE *VI,
4082 const DOUBLE *B,
4083 const INTEGER *LDB,
4084 const DOUBLE *WORK,
4085 const DOUBLE *EPS3,
4086 const DOUBLE *SMLNUM,
4087 const DOUBLE *BIGNUM,
4088 INTEGER *INFO)
4089 {
4090 DEBUG_LAPACK_STUB("dlaein");
4091 LAPACK_IMPL(dlaein)(RIGHTV,
4092 NOINIT,
4093 N,
4094 H,
4095 LDH,
4096 WR,
4097 WI,
4098 VR,
4099 VI,
4100 B,
4101 LDB,
4102 WORK,
4103 EPS3,
4104 SMLNUM,
4105 BIGNUM,
4106 INFO);
4107 }
4108
4109 //-- dlaev2 --------------------------------------------------------------------
4110 void
4111 LAPACK_DECL(dlaev2)(const DOUBLE *A,
4112 const DOUBLE *B,
4113 const DOUBLE *C,
4114 DOUBLE *RT1,
4115 DOUBLE *RT2,
4116 DOUBLE *CS1,
4117 DOUBLE *SN1)
4118 {
4119 DEBUG_LAPACK_STUB("dlaev2");
4120 LAPACK_IMPL(dlaev2)(A,
4121 B,
4122 C,
4123 RT1,
4124 RT2,
4125 CS1,
4126 SN1);
4127 }
4128
4129 //-- dlaexc --------------------------------------------------------------------
4130 void
4131 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
4132 const INTEGER *N,
4133 DOUBLE *T,
4134 const INTEGER *LDT,
4135 DOUBLE *Q,
4136 const INTEGER *LDQ,
4137 const INTEGER *J1,
4138 const INTEGER *N1,
4139 const INTEGER *N2,
4140 const DOUBLE *WORK,
4141 INTEGER *INFO)
4142 {
4143 DEBUG_LAPACK_STUB("dlaexc");
4144 LAPACK_IMPL(dlaexc)(WANTQ,
4145 N,
4146 T,
4147 LDT,
4148 Q,
4149 LDQ,
4150 J1,
4151 N1,
4152 N2,
4153 WORK,
4154 INFO);
4155 }
4156
4157 //-- dlag2 ---------------------------------------------------------------------
4158 void
4159 LAPACK_DECL(dlag2)(const DOUBLE *A,
4160 const INTEGER *LDA,
4161 const DOUBLE *B,
4162 const INTEGER *LDB,
4163 const DOUBLE *SAFMIN,
4164 DOUBLE *SCALE1,
4165 DOUBLE *SCALE2,
4166 DOUBLE *WR1,
4167 DOUBLE *WR2,
4168 DOUBLE *WI)
4169 {
4170 DEBUG_LAPACK_STUB("dlag2");
4171 LAPACK_IMPL(dlag2)(A,
4172 LDA,
4173 B,
4174 LDB,
4175 SAFMIN,
4176 SCALE1,
4177 SCALE2,
4178 WR1,
4179 WR2,
4180 WI);
4181 }
4182
4183 //-- dlag2s --------------------------------------------------------------------
4184 void
4185 LAPACK_DECL(dlag2s)(const INTEGER *M,
4186 const INTEGER *N,
4187 const DOUBLE *A,
4188 const INTEGER *LDA,
4189 FLOAT *SA,
4190 const INTEGER *LDSA,
4191 INTEGER *INFO)
4192 {
4193 DEBUG_LAPACK_STUB("dlag2s");
4194 LAPACK_IMPL(dlag2s)(M,
4195 N,
4196 A,
4197 LDA,
4198 SA,
4199 LDSA,
4200 INFO);
4201 }
4202
4203 //-- dlags2 --------------------------------------------------------------------
4204 void
4205 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
4206 const DOUBLE *A1,
4207 const DOUBLE *A2,
4208 const DOUBLE *A3,
4209 const DOUBLE *B1,
4210 const DOUBLE *B2,
4211 const DOUBLE *B3,
4212 DOUBLE *CSU,
4213 DOUBLE *SNU,
4214 DOUBLE *CSV,
4215 DOUBLE *SNV,
4216 DOUBLE *CSQ,
4217 DOUBLE *SNQ)
4218 {
4219 DEBUG_LAPACK_STUB("dlags2");
4220 LAPACK_IMPL(dlags2)(UPPER,
4221 A1,
4222 A2,
4223 A3,
4224 B1,
4225 B2,
4226 B3,
4227 CSU,
4228 SNU,
4229 CSV,
4230 SNV,
4231 CSQ,
4232 SNQ);
4233 }
4234
4235 //-- dlagtf --------------------------------------------------------------------
4236 void
4237 LAPACK_DECL(dlagtf)(const INTEGER *N,
4238 DOUBLE *A,
4239 const DOUBLE *LAMBDA,
4240 DOUBLE *B,
4241 DOUBLE *C,
4242 const DOUBLE *TOL,
4243 DOUBLE *D,
4244 INTEGER *IN,
4245 INTEGER *INFO)
4246 {
4247 DEBUG_LAPACK_STUB("dlagtf");
4248 LAPACK_IMPL(dlagtf)(N,
4249 A,
4250 LAMBDA,
4251 B,
4252 C,
4253 TOL,
4254 D,
4255 IN,
4256 INFO);
4257 }
4258
4259 //-- dlagtm --------------------------------------------------------------------
4260 void
4261 LAPACK_DECL(dlagtm)(const char *TRANS,
4262 const INTEGER *N,
4263 const INTEGER *NRHS,
4264 const DOUBLE *ALPHA,
4265 const DOUBLE *DL,
4266 const DOUBLE *D,
4267 const DOUBLE *DU,
4268 const DOUBLE *X,
4269 const INTEGER *LDX,
4270 const DOUBLE *BETA,
4271 DOUBLE *B,
4272 const INTEGER *LDB)
4273 {
4274 DEBUG_LAPACK_STUB("dlagtm");
4275 LAPACK_IMPL(dlagtm)(TRANS,
4276 N,
4277 NRHS,
4278 ALPHA,
4279 DL,
4280 D,
4281 DU,
4282 X,
4283 LDX,
4284 BETA,
4285 B,
4286 LDB);
4287 }
4288
4289 //-- dlagts --------------------------------------------------------------------
4290 void
4291 LAPACK_DECL(dlagts)(const INTEGER *JOB,
4292 const INTEGER *N,
4293 const DOUBLE *A,
4294 const DOUBLE *B,
4295 const DOUBLE *C,
4296 const DOUBLE *D,
4297 const INTEGER *IN,
4298 DOUBLE *Y,
4299 DOUBLE *TOL,
4300 INTEGER *INFO)
4301 {
4302 DEBUG_LAPACK_STUB("dlagts");
4303 LAPACK_IMPL(dlagts)(JOB,
4304 N,
4305 A,
4306 B,
4307 C,
4308 D,
4309 IN,
4310 Y,
4311 TOL,
4312 INFO);
4313 }
4314
4315 //-- dlagv2 --------------------------------------------------------------------
4316 void
4317 LAPACK_DECL(dlagv2)(DOUBLE *A,
4318 const INTEGER *LDA,
4319 DOUBLE *B,
4320 const INTEGER *LDB,
4321 DOUBLE *ALPHAR,
4322 DOUBLE *ALPHAI,
4323 DOUBLE *BETA,
4324 DOUBLE *CSL,
4325 DOUBLE *SNL,
4326 DOUBLE *CSR,
4327 DOUBLE *SNR)
4328 {
4329 DEBUG_LAPACK_STUB("dlagv2");
4330 LAPACK_IMPL(dlagv2)(A,
4331 LDA,
4332 B,
4333 LDB,
4334 ALPHAR,
4335 ALPHAI,
4336 BETA,
4337 CSL,
4338 SNL,
4339 CSR,
4340 SNR);
4341 }
4342
4343 //-- dlahqr --------------------------------------------------------------------
4344 void
4345 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
4346 const LOGICAL *WANTZ,
4347 const INTEGER *N,
4348 const INTEGER *ILO,
4349 const INTEGER *IHI,
4350 DOUBLE *H,
4351 const INTEGER *LDH,
4352 DOUBLE *WR,
4353 DOUBLE *WI,
4354 const INTEGER *ILOZ,
4355 const INTEGER *IHIZ,
4356 DOUBLE *Z,
4357 const INTEGER *LDZ,
4358 INTEGER *INFO)
4359 {
4360 DEBUG_LAPACK_STUB("dlahqr");
4361 LAPACK_IMPL(dlahqr)(WANTT,
4362 WANTZ,
4363 N,
4364 ILO,
4365 IHI,
4366 H,
4367 LDH,
4368 WR,
4369 WI,
4370 ILOZ,
4371 IHIZ,
4372 Z,
4373 LDZ,
4374 INFO);
4375 }
4376
4377 //-- dlahr2 --------------------------------------------------------------------
4378 void
4379 LAPACK_DECL(dlahr2)(const INTEGER *N,
4380 const INTEGER *K,
4381 const INTEGER *NB,
4382 DOUBLE *A,
4383 const INTEGER *LDA,
4384 DOUBLE *TAU,
4385 DOUBLE *T,
4386 const INTEGER *LDT,
4387 DOUBLE *Y,
4388 const INTEGER *LDY)
4389 {
4390 DEBUG_LAPACK_STUB("dlahr2");
4391 LAPACK_IMPL(dlahr2)(N,
4392 K,
4393 NB,
4394 A,
4395 LDA,
4396 TAU,
4397 T,
4398 LDT,
4399 Y,
4400 LDY);
4401 }
4402
4403 //-- dlahrd --------------------------------------------------------------------
4404 void
4405 LAPACK_DECL(dlahrd)(const INTEGER *N,
4406 const INTEGER *K,
4407 const INTEGER *NB,
4408 DOUBLE *A,
4409 const INTEGER *LDA,
4410 DOUBLE *TAU,
4411 DOUBLE *T,
4412 const INTEGER *LDT,
4413 DOUBLE *Y,
4414 const INTEGER *LDY)
4415 {
4416 DEBUG_LAPACK_STUB("dlahrd");
4417 LAPACK_IMPL(dlahrd)(N,
4418 K,
4419 NB,
4420 A,
4421 LDA,
4422 TAU,
4423 T,
4424 LDT,
4425 Y,
4426 LDY);
4427 }
4428
4429 //-- dlaic1 --------------------------------------------------------------------
4430 void
4431 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
4432 const INTEGER *J,
4433 const DOUBLE *X,
4434 const DOUBLE *SEST,
4435 const DOUBLE *W,
4436 const DOUBLE *GAMMA,
4437 DOUBLE *SESTPR,
4438 DOUBLE *S,
4439 DOUBLE *C)
4440 {
4441 DEBUG_LAPACK_STUB("dlaic1");
4442 LAPACK_IMPL(dlaic1)(JOB,
4443 J,
4444 X,
4445 SEST,
4446 W,
4447 GAMMA,
4448 SESTPR,
4449 S,
4450 C);
4451 }
4452
4453 //-- dlaisnan ------------------------------------------------------------------
4454 LOGICAL
4455 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
4456 const DOUBLE *DIN2)
4457 {
4458 DEBUG_LAPACK_STUB("dlaisnan");
4459 return LAPACK_IMPL(dlaisnan)(DIN1,
4460 DIN2);
4461 }
4462
4463 //-- dlaln2 --------------------------------------------------------------------
4464 void
4465 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
4466 const INTEGER *NA,
4467 const INTEGER *NW,
4468 const DOUBLE *SMIN,
4469 const DOUBLE *CA,
4470 const DOUBLE *A,
4471 const INTEGER *LDA,
4472 const DOUBLE *D1,
4473 const DOUBLE *D2,
4474 const DOUBLE *B,
4475 const INTEGER *LDB,
4476 const DOUBLE *WR,
4477 const DOUBLE *WI,
4478 DOUBLE *X,
4479 const INTEGER *LDX,
4480 DOUBLE *SCALE,
4481 DOUBLE *XNORM,
4482 INTEGER *INFO)
4483 {
4484 DEBUG_LAPACK_STUB("dlaln2");
4485 LAPACK_IMPL(dlaln2)(LTRANS,
4486 NA,
4487 NW,
4488 SMIN,
4489 CA,
4490 A,
4491 LDA,
4492 D1,
4493 D2,
4494 B,
4495 LDB,
4496 WR,
4497 WI,
4498 X,
4499 LDX,
4500 SCALE,
4501 XNORM,
4502 INFO);
4503 }
4504
4505 //-- dlals0 --------------------------------------------------------------------
4506 void
4507 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
4508 const INTEGER *NL,
4509 const INTEGER *NR,
4510 const INTEGER *SQRE,
4511 const INTEGER *NRHS,
4512 DOUBLE *B,
4513 const INTEGER *LDB,
4514 const DOUBLE *BX,
4515 const INTEGER *LDBX,
4516 const INTEGER *PERM,
4517 const INTEGER *GIVPTR,
4518 const INTEGER *GIVCOL,
4519 const INTEGER *LDGCOL,
4520 const DOUBLE *GIVNUM,
4521 const INTEGER *LDGNUM,
4522 const DOUBLE *POLES,
4523 const DOUBLE *DIFL,
4524 const DOUBLE *DIFR,
4525 const DOUBLE *Z,
4526 const INTEGER *K,
4527 const DOUBLE *C,
4528 const DOUBLE *S,
4529 const DOUBLE *WORK,
4530 INTEGER *INFO)
4531 {
4532 DEBUG_LAPACK_STUB("dlals0");
4533 LAPACK_IMPL(dlals0)(ICOMPQ,
4534 NL,
4535 NR,
4536 SQRE,
4537 NRHS,
4538 B,
4539 LDB,
4540 BX,
4541 LDBX,
4542 PERM,
4543 GIVPTR,
4544 GIVCOL,
4545 LDGCOL,
4546 GIVNUM,
4547 LDGNUM,
4548 POLES,
4549 DIFL,
4550 DIFR,
4551 Z,
4552 K,
4553 C,
4554 S,
4555 WORK,
4556 INFO);
4557 }
4558
4559 //-- dlalsa --------------------------------------------------------------------
4560 void
4561 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
4562 const INTEGER *SMLSIZ,
4563 const INTEGER *N,
4564 const INTEGER *NRHS,
4565 DOUBLE *B,
4566 const INTEGER *LDB,
4567 DOUBLE *BX,
4568 const INTEGER *LDBX,
4569 const DOUBLE *U,
4570 const INTEGER *LDU,
4571 const DOUBLE *VT,
4572 const INTEGER *K,
4573 const DOUBLE *DIFL,
4574 const DOUBLE *DIFR,
4575 const DOUBLE *Z,
4576 const DOUBLE *POLES,
4577 const INTEGER *GIVPTR,
4578 const INTEGER *GIVCOL,
4579 const INTEGER *LDGCOL,
4580 const INTEGER *PERM,
4581 const DOUBLE *GIVNUM,
4582 const DOUBLE *C,
4583 const DOUBLE *S,
4584 const DOUBLE *WORK,
4585 const INTEGER *IWORK,
4586 INTEGER *INFO)
4587 {
4588 DEBUG_LAPACK_STUB("dlalsa");
4589 LAPACK_IMPL(dlalsa)(ICOMPQ,
4590 SMLSIZ,
4591 N,
4592 NRHS,
4593 B,
4594 LDB,
4595 BX,
4596 LDBX,
4597 U,
4598 LDU,
4599 VT,
4600 K,
4601 DIFL,
4602 DIFR,
4603 Z,
4604 POLES,
4605 GIVPTR,
4606 GIVCOL,
4607 LDGCOL,
4608 PERM,
4609 GIVNUM,
4610 C,
4611 S,
4612 WORK,
4613 IWORK,
4614 INFO);
4615 }
4616
4617 //-- dlalsd --------------------------------------------------------------------
4618 void
4619 LAPACK_DECL(dlalsd)(const char *UPLO,
4620 const INTEGER *SMLSIZ,
4621 const INTEGER *N,
4622 const INTEGER *NRHS,
4623 DOUBLE *D,
4624 DOUBLE *E,
4625 DOUBLE *B,
4626 const INTEGER *LDB,
4627 const DOUBLE *RCOND,
4628 INTEGER *RANK,
4629 const DOUBLE *WORK,
4630 const INTEGER *IWORK,
4631 INTEGER *INFO)
4632 {
4633 DEBUG_LAPACK_STUB("dlalsd");
4634 LAPACK_IMPL(dlalsd)(UPLO,
4635 SMLSIZ,
4636 N,
4637 NRHS,
4638 D,
4639 E,
4640 B,
4641 LDB,
4642 RCOND,
4643 RANK,
4644 WORK,
4645 IWORK,
4646 INFO);
4647 }
4648
4649 //-- dlamch --------------------------------------------------------------------
4650 DOUBLE
4651 LAPACK_DECL(dlamch)(const char *CMACH)
4652 {
4653 DEBUG_LAPACK_STUB("dlamch");
4654 return LAPACK_IMPL(dlamch)(CMACH);
4655 }
4656
4657 //-- dlamrg --------------------------------------------------------------------
4658 void
4659 LAPACK_DECL(dlamrg)(const INTEGER *N1,
4660 const INTEGER *N2,
4661 const DOUBLE *A,
4662 const INTEGER *DTRD1,
4663 const INTEGER *DTRD2,
4664 INTEGER *INDEX)
4665 {
4666 DEBUG_LAPACK_STUB("dlamrg");
4667 LAPACK_IMPL(dlamrg)(N1,
4668 N2,
4669 A,
4670 DTRD1,
4671 DTRD2,
4672 INDEX);
4673 }
4674
4675 //-- dlaneg --------------------------------------------------------------------
4676 INTEGER
4677 LAPACK_DECL(dlaneg)(const INTEGER *N,
4678 const DOUBLE *D,
4679 const DOUBLE *LLD,
4680 const DOUBLE *SIGMA,
4681 const DOUBLE *PIVMIN,
4682 const INTEGER *R)
4683 {
4684 DEBUG_LAPACK_STUB("dlaneg");
4685 return LAPACK_IMPL(dlaneg)(N,
4686 D,
4687 LLD,
4688 SIGMA,
4689 PIVMIN,
4690 R);
4691 }
4692
4693 //-- dlangb --------------------------------------------------------------------
4694 DOUBLE
4695 LAPACK_DECL(dlangb)(const char *NORM,
4696 const INTEGER *N,
4697 const INTEGER *KL,
4698 const INTEGER *KU,
4699 const DOUBLE *AB,
4700 const INTEGER *LDAB,
4701 const DOUBLE *WORK)
4702 {
4703 DEBUG_LAPACK_STUB("dlangb");
4704 return LAPACK_IMPL(dlangb)(NORM,
4705 N,
4706 KL,
4707 KU,
4708 AB,
4709 LDAB,
4710 WORK);
4711 }
4712
4713 //-- dlange --------------------------------------------------------------------
4714 DOUBLE
4715 LAPACK_DECL(dlange)(const char *NORM,
4716 const INTEGER *M,
4717 const INTEGER *N,
4718 const DOUBLE *A,
4719 const INTEGER *LDA,
4720 const DOUBLE *WORK)
4721 {
4722 DEBUG_LAPACK_STUB("dlange");
4723 return LAPACK_IMPL(dlange)(NORM,
4724 M,
4725 N,
4726 A,
4727 LDA,
4728 WORK);
4729 }
4730
4731 //-- dlangt --------------------------------------------------------------------
4732 DOUBLE
4733 LAPACK_DECL(dlangt)(const char *NORM,
4734 const INTEGER *N,
4735 const DOUBLE *DL,
4736 const DOUBLE *D,
4737 const DOUBLE *DU)
4738 {
4739 DEBUG_LAPACK_STUB("dlangt");
4740 return LAPACK_IMPL(dlangt)(NORM,
4741 N,
4742 DL,
4743 D,
4744 DU);
4745 }
4746
4747 //-- dlanhs --------------------------------------------------------------------
4748 DOUBLE
4749 LAPACK_DECL(dlanhs)(const char *NORM,
4750 const INTEGER *N,
4751 const DOUBLE *A,
4752 const INTEGER *LDA,
4753 const DOUBLE *WORK)
4754 {
4755 DEBUG_LAPACK_STUB("dlanhs");
4756 return LAPACK_IMPL(dlanhs)(NORM,
4757 N,
4758 A,
4759 LDA,
4760 WORK);
4761 }
4762
4763 //-- dlansb --------------------------------------------------------------------
4764 DOUBLE
4765 LAPACK_DECL(dlansb)(const char *NORM,
4766 const char *UPLO,
4767 const INTEGER *N,
4768 const INTEGER *K,
4769 const DOUBLE *AB,
4770 const INTEGER *LDAB,
4771 const DOUBLE *WORK)
4772 {
4773 DEBUG_LAPACK_STUB("dlansb");
4774 return LAPACK_IMPL(dlansb)(NORM,
4775 UPLO,
4776 N,
4777 K,
4778 AB,
4779 LDAB,
4780 WORK);
4781 }
4782
4783 //-- dlansf --------------------------------------------------------------------
4784 DOUBLE
4785 LAPACK_DECL(dlansf)(const char *NORM,
4786 const char *TRANSR,
4787 const char *UPLO,
4788 const INTEGER *N,
4789 const DOUBLE *A,
4790 const DOUBLE *WORK)
4791 {
4792 DEBUG_LAPACK_STUB("dlansf");
4793 return LAPACK_IMPL(dlansf)(NORM,
4794 TRANSR,
4795 UPLO,
4796 N,
4797 A,
4798 WORK);
4799 }
4800
4801 //-- dlansp --------------------------------------------------------------------
4802 DOUBLE
4803 LAPACK_DECL(dlansp)(const char *NORM,
4804 const char *UPLO,
4805 const INTEGER *N,
4806 const DOUBLE *AP,
4807 const DOUBLE *WORK)
4808 {
4809 DEBUG_LAPACK_STUB("dlansp");
4810 return LAPACK_IMPL(dlansp)(NORM,
4811 UPLO,
4812 N,
4813 AP,
4814 WORK);
4815 }
4816
4817 //-- dlanst --------------------------------------------------------------------
4818 DOUBLE
4819 LAPACK_DECL(dlanst)(const char *NORM,
4820 const INTEGER *N,
4821 const DOUBLE *D,
4822 const DOUBLE *E)
4823 {
4824 DEBUG_LAPACK_STUB("dlanst");
4825 return LAPACK_IMPL(dlanst)(NORM,
4826 N,
4827 D,
4828 E);
4829 }
4830
4831 //-- dlansy --------------------------------------------------------------------
4832 DOUBLE
4833 LAPACK_DECL(dlansy)(const char *NORM,
4834 const char *UPLO,
4835 const INTEGER *N,
4836 const DOUBLE *A,
4837 const INTEGER *LDA,
4838 const DOUBLE *WORK)
4839 {
4840 DEBUG_LAPACK_STUB("dlansy");
4841 return LAPACK_IMPL(dlansy)(NORM,
4842 UPLO,
4843 N,
4844 A,
4845 LDA,
4846 WORK);
4847 }
4848
4849 //-- dlantb --------------------------------------------------------------------
4850 DOUBLE
4851 LAPACK_DECL(dlantb)(const char *NORM,
4852 const char *UPLO,
4853 const char *DIAG,
4854 const INTEGER *N,
4855 const INTEGER *K,
4856 const DOUBLE *AB,
4857 const INTEGER *LDAB,
4858 const DOUBLE *WORK)
4859 {
4860 DEBUG_LAPACK_STUB("dlantb");
4861 return LAPACK_IMPL(dlantb)(NORM,
4862 UPLO,
4863 DIAG,
4864 N,
4865 K,
4866 AB,
4867 LDAB,
4868 WORK);
4869 }
4870
4871 //-- dlantp --------------------------------------------------------------------
4872 DOUBLE
4873 LAPACK_DECL(dlantp)(const char *NORM,
4874 const char *UPLO,
4875 const char *DIAG,
4876 const INTEGER *N,
4877 const DOUBLE *AP,
4878 const DOUBLE *WORK)
4879 {
4880 DEBUG_LAPACK_STUB("dlantp");
4881 return LAPACK_IMPL(dlantp)(NORM,
4882 UPLO,
4883 DIAG,
4884 N,
4885 AP,
4886 WORK);
4887 }
4888
4889 //-- dlantr --------------------------------------------------------------------
4890 DOUBLE
4891 LAPACK_DECL(dlantr)(const char *NORM,
4892 const char *UPLO,
4893 const char *DIAG,
4894 const INTEGER *M,
4895 const INTEGER *N,
4896 const DOUBLE *A,
4897 const INTEGER *LDA,
4898 const DOUBLE *WORK)
4899 {
4900 DEBUG_LAPACK_STUB("dlantr");
4901 return LAPACK_IMPL(dlantr)(NORM,
4902 UPLO,
4903 DIAG,
4904 M,
4905 N,
4906 A,
4907 LDA,
4908 WORK);
4909 }
4910
4911 //-- dlanv2 --------------------------------------------------------------------
4912 void
4913 LAPACK_DECL(dlanv2)(DOUBLE *A,
4914 DOUBLE *B,
4915 DOUBLE *C,
4916 DOUBLE *D,
4917 DOUBLE *RT1R,
4918 DOUBLE *RT1I,
4919 DOUBLE *RT2R,
4920 DOUBLE *RT2I,
4921 DOUBLE *CS,
4922 DOUBLE *SN)
4923 {
4924 DEBUG_LAPACK_STUB("dlanv2");
4925 LAPACK_IMPL(dlanv2)(A,
4926 B,
4927 C,
4928 D,
4929 RT1R,
4930 RT1I,
4931 RT2R,
4932 RT2I,
4933 CS,
4934 SN);
4935 }
4936
4937 //-- dlapll --------------------------------------------------------------------
4938 void
4939 LAPACK_DECL(dlapll)(const INTEGER *N,
4940 DOUBLE *X,
4941 const INTEGER *INCX,
4942 DOUBLE *Y,
4943 const INTEGER *INCY,
4944 DOUBLE *SSMIN)
4945 {
4946 DEBUG_LAPACK_STUB("dlapll");
4947 LAPACK_IMPL(dlapll)(N,
4948 X,
4949 INCX,
4950 Y,
4951 INCY,
4952 SSMIN);
4953 }
4954
4955 //-- dlapmr --------------------------------------------------------------------
4956 void
4957 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
4958 const INTEGER *M,
4959 const INTEGER *N,
4960 DOUBLE *X,
4961 const INTEGER *LDX,
4962 INTEGER *K)
4963 {
4964 DEBUG_LAPACK_STUB("dlapmr");
4965 LAPACK_IMPL(dlapmr)(FORWRD,
4966 M,
4967 N,
4968 X,
4969 LDX,
4970 K);
4971 }
4972
4973 //-- dlapmt --------------------------------------------------------------------
4974 void
4975 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
4976 const INTEGER *M,
4977 const INTEGER *N,
4978 DOUBLE *X,
4979 const INTEGER *LDX,
4980 INTEGER *K)
4981 {
4982 DEBUG_LAPACK_STUB("dlapmt");
4983 LAPACK_IMPL(dlapmt)(FORWRD,
4984 M,
4985 N,
4986 X,
4987 LDX,
4988 K);
4989 }
4990
4991 //-- dlapy2 --------------------------------------------------------------------
4992 DOUBLE
4993 LAPACK_DECL(dlapy2)(const DOUBLE *X,
4994 const DOUBLE *Y)
4995 {
4996 DEBUG_LAPACK_STUB("dlapy2");
4997 return LAPACK_IMPL(dlapy2)(X,
4998 Y);
4999 }
5000
5001 //-- dlapy3 --------------------------------------------------------------------
5002 DOUBLE
5003 LAPACK_DECL(dlapy3)(const DOUBLE *X,
5004 const DOUBLE *Y,
5005 const DOUBLE *Z)
5006 {
5007 DEBUG_LAPACK_STUB("dlapy3");
5008 return LAPACK_IMPL(dlapy3)(X,
5009 Y,
5010 Z);
5011 }
5012
5013 //-- dlaqgb --------------------------------------------------------------------
5014 void
5015 LAPACK_DECL(dlaqgb)(const INTEGER *M,
5016 const INTEGER *N,
5017 const INTEGER *KL,
5018 const INTEGER *KU,
5019 DOUBLE *AB,
5020 const INTEGER *LDAB,
5021 const DOUBLE *R,
5022 const DOUBLE *C,
5023 const DOUBLE *ROWCND,
5024 const DOUBLE *COLCND,
5025 const DOUBLE *AMAX,
5026 char *EQUED)
5027 {
5028 DEBUG_LAPACK_STUB("dlaqgb");
5029 LAPACK_IMPL(dlaqgb)(M,
5030 N,
5031 KL,
5032 KU,
5033 AB,
5034 LDAB,
5035 R,
5036 C,
5037 ROWCND,
5038 COLCND,
5039 AMAX,
5040 EQUED);
5041 }
5042
5043 //-- dlaqge --------------------------------------------------------------------
5044 void
5045 LAPACK_DECL(dlaqge)(const INTEGER *M,
5046 const INTEGER *N,
5047 DOUBLE *A,
5048 const INTEGER *LDA,
5049 const DOUBLE *R,
5050 const DOUBLE *C,
5051 const DOUBLE *ROWCND,
5052 const DOUBLE *COLCND,
5053 const DOUBLE *AMAX,
5054 char *EQUED)
5055 {
5056 DEBUG_LAPACK_STUB("dlaqge");
5057 LAPACK_IMPL(dlaqge)(M,
5058 N,
5059 A,
5060 LDA,
5061 R,
5062 C,
5063 ROWCND,
5064 COLCND,
5065 AMAX,
5066 EQUED);
5067 }
5068
5069 //-- dlaqp2 --------------------------------------------------------------------
5070 void
5071 LAPACK_DECL(dlaqp2)(const INTEGER *M,
5072 const INTEGER *N,
5073 const INTEGER *OFFSET,
5074 DOUBLE *A,
5075 const INTEGER *LDA,
5076 INTEGER *JPVT,
5077 DOUBLE *TAU,
5078 DOUBLE *VN1,
5079 DOUBLE *VN2,
5080 const DOUBLE *WORK)
5081 {
5082 DEBUG_LAPACK_STUB("dlaqp2");
5083 LAPACK_IMPL(dlaqp2)(M,
5084 N,
5085 OFFSET,
5086 A,
5087 LDA,
5088 JPVT,
5089 TAU,
5090 VN1,
5091 VN2,
5092 WORK);
5093 }
5094
5095 //-- dlaqps --------------------------------------------------------------------
5096 void
5097 LAPACK_DECL(dlaqps)(const INTEGER *M,
5098 const INTEGER *N,
5099 const INTEGER *OFFSET,
5100 const INTEGER *NB,
5101 INTEGER *KB,
5102 DOUBLE *A,
5103 const INTEGER *LDA,
5104 INTEGER *JPVT,
5105 DOUBLE *TAU,
5106 DOUBLE *VN1,
5107 DOUBLE *VN2,
5108 DOUBLE *AUXV,
5109 DOUBLE *F,
5110 const INTEGER *LDF)
5111 {
5112 DEBUG_LAPACK_STUB("dlaqps");
5113 LAPACK_IMPL(dlaqps)(M,
5114 N,
5115 OFFSET,
5116 NB,
5117 KB,
5118 A,
5119 LDA,
5120 JPVT,
5121 TAU,
5122 VN1,
5123 VN2,
5124 AUXV,
5125 F,
5126 LDF);
5127 }
5128
5129 //-- dlaqr0 --------------------------------------------------------------------
5130 void
5131 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
5132 const LOGICAL *WANTZ,
5133 const INTEGER *N,
5134 const INTEGER *ILO,
5135 const INTEGER *IHI,
5136 DOUBLE *H,
5137 const INTEGER *LDH,
5138 DOUBLE *WR,
5139 DOUBLE *WI,
5140 const INTEGER *ILOZ,
5141 const INTEGER *IHIZ,
5142 DOUBLE *Z,
5143 const INTEGER *LDZ,
5144 DOUBLE *WORK,
5145 const INTEGER *LWORK,
5146 INTEGER *INFO)
5147 {
5148 DEBUG_LAPACK_STUB("dlaqr0");
5149 LAPACK_IMPL(dlaqr0)(WANTT,
5150 WANTZ,
5151 N,
5152 ILO,
5153 IHI,
5154 H,
5155 LDH,
5156 WR,
5157 WI,
5158 ILOZ,
5159 IHIZ,
5160 Z,
5161 LDZ,
5162 WORK,
5163 LWORK,
5164 INFO);
5165 }
5166
5167 //-- dlaqr1 --------------------------------------------------------------------
5168 void
5169 LAPACK_DECL(dlaqr1)(const INTEGER *N,
5170 const DOUBLE *H,
5171 const INTEGER *LDH,
5172 const DOUBLE *SR1,
5173 const DOUBLE *SI1,
5174 const DOUBLE *SR2,
5175 const DOUBLE *SI2,
5176 DOUBLE *V)
5177 {
5178 DEBUG_LAPACK_STUB("dlaqr1");
5179 LAPACK_IMPL(dlaqr1)(N,
5180 H,
5181 LDH,
5182 SR1,
5183 SI1,
5184 SR2,
5185 SI2,
5186 V);
5187 }
5188
5189 //-- dlaqr2 --------------------------------------------------------------------
5190 void
5191 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
5192 const LOGICAL *WANTZ,
5193 const INTEGER *N,
5194 const INTEGER *KTOP,
5195 const INTEGER *KBOT,
5196 const INTEGER *NW,
5197 DOUBLE *H,
5198 const INTEGER *LDH,
5199 const INTEGER *ILOZ,
5200 const INTEGER *IHIZ,
5201 DOUBLE *Z,
5202 const INTEGER *LDZ,
5203 INTEGER *NS,
5204 INTEGER *ND,
5205 DOUBLE *SR,
5206 DOUBLE *SI,
5207 const DOUBLE *V,
5208 const INTEGER *LDV,
5209 const INTEGER *NH,
5210 const DOUBLE *T,
5211 const INTEGER *LDT,
5212 const INTEGER *NV,
5213 const DOUBLE *WV,
5214 const INTEGER *LDWV,
5215 const DOUBLE *WORK,
5216 const INTEGER *LWORK)
5217 {
5218 DEBUG_LAPACK_STUB("dlaqr2");
5219 LAPACK_IMPL(dlaqr2)(WANTT,
5220 WANTZ,
5221 N,
5222 KTOP,
5223 KBOT,
5224 NW,
5225 H,
5226 LDH,
5227 ILOZ,
5228 IHIZ,
5229 Z,
5230 LDZ,
5231 NS,
5232 ND,
5233 SR,
5234 SI,
5235 V,
5236 LDV,
5237 NH,
5238 T,
5239 LDT,
5240 NV,
5241 WV,
5242 LDWV,
5243 WORK,
5244 LWORK);
5245 }
5246
5247 //-- dlaqr3 --------------------------------------------------------------------
5248 void
5249 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
5250 const LOGICAL *WANTZ,
5251 const INTEGER *N,
5252 const INTEGER *KTOP,
5253 const INTEGER *KBOT,
5254 const INTEGER *NW,
5255 DOUBLE *H,
5256 const INTEGER *LDH,
5257 const INTEGER *ILOZ,
5258 const INTEGER *IHIZ,
5259 DOUBLE *Z,
5260 const INTEGER *LDZ,
5261 INTEGER *NS,
5262 INTEGER *ND,
5263 DOUBLE *SR,
5264 DOUBLE *SI,
5265 const DOUBLE *V,
5266 const INTEGER *LDV,
5267 const INTEGER *NH,
5268 const DOUBLE *T,
5269 const INTEGER *LDT,
5270 const INTEGER *NV,
5271 const DOUBLE *WV,
5272 const INTEGER *LDWV,
5273 const DOUBLE *WORK,
5274 const INTEGER *LWORK)
5275 {
5276 DEBUG_LAPACK_STUB("dlaqr3");
5277 LAPACK_IMPL(dlaqr3)(WANTT,
5278 WANTZ,
5279 N,
5280 KTOP,
5281 KBOT,
5282 NW,
5283 H,
5284 LDH,
5285 ILOZ,
5286 IHIZ,
5287 Z,
5288 LDZ,
5289 NS,
5290 ND,
5291 SR,
5292 SI,
5293 V,
5294 LDV,
5295 NH,
5296 T,
5297 LDT,
5298 NV,
5299 WV,
5300 LDWV,
5301 WORK,
5302 LWORK);
5303 }
5304
5305 //-- dlaqr4 --------------------------------------------------------------------
5306 void
5307 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
5308 const LOGICAL *WANTZ,
5309 const INTEGER *N,
5310 const INTEGER *ILO,
5311 const INTEGER *IHI,
5312 DOUBLE *H,
5313 const INTEGER *LDH,
5314 DOUBLE *WR,
5315 DOUBLE *WI,
5316 const INTEGER *ILOZ,
5317 const INTEGER *IHIZ,
5318 DOUBLE *Z,
5319 const INTEGER *LDZ,
5320 DOUBLE *WORK,
5321 const INTEGER *LWORK,
5322 INTEGER *INFO)
5323 {
5324 DEBUG_LAPACK_STUB("dlaqr4");
5325 LAPACK_IMPL(dlaqr4)(WANTT,
5326 WANTZ,
5327 N,
5328 ILO,
5329 IHI,
5330 H,
5331 LDH,
5332 WR,
5333 WI,
5334 ILOZ,
5335 IHIZ,
5336 Z,
5337 LDZ,
5338 WORK,
5339 LWORK,
5340 INFO);
5341 }
5342
5343 //-- dlaqr5 --------------------------------------------------------------------
5344 void
5345 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
5346 const LOGICAL *WANTZ,
5347 const INTEGER *KACC22,
5348 const INTEGER *N,
5349 const INTEGER *KTOP,
5350 const INTEGER *KBOT,
5351 const INTEGER *NSHFTS,
5352 DOUBLE *SR,
5353 DOUBLE *SI,
5354 DOUBLE *H,
5355 const INTEGER *LDH,
5356 const INTEGER *ILOZ,
5357 const INTEGER *IHIZ,
5358 DOUBLE *Z,
5359 const INTEGER *LDZ,
5360 const DOUBLE *V,
5361 const INTEGER *LDV,
5362 const DOUBLE *U,
5363 const INTEGER *LDU,
5364 const INTEGER *NV,
5365 const DOUBLE *WV,
5366 const INTEGER *LDWV,
5367 const INTEGER *NH,
5368 const DOUBLE *WH,
5369 const INTEGER *LDWH)
5370 {
5371 DEBUG_LAPACK_STUB("dlaqr5");
5372 LAPACK_IMPL(dlaqr5)(WANTT,
5373 WANTZ,
5374 KACC22,
5375 N,
5376 KTOP,
5377 KBOT,
5378 NSHFTS,
5379 SR,
5380 SI,
5381 H,
5382 LDH,
5383 ILOZ,
5384 IHIZ,
5385 Z,
5386 LDZ,
5387 V,
5388 LDV,
5389 U,
5390 LDU,
5391 NV,
5392 WV,
5393 LDWV,
5394 NH,
5395 WH,
5396 LDWH);
5397 }
5398
5399 //-- dlaqsb --------------------------------------------------------------------
5400 void
5401 LAPACK_DECL(dlaqsb)(const char *UPLO,
5402 const INTEGER *N,
5403 const INTEGER *KD,
5404 DOUBLE *AB,
5405 const INTEGER *LDAB,
5406 const DOUBLE *S,
5407 const DOUBLE *SCOND,
5408 const DOUBLE *AMAX,
5409 char *EQUED)
5410 {
5411 DEBUG_LAPACK_STUB("dlaqsb");
5412 LAPACK_IMPL(dlaqsb)(UPLO,
5413 N,
5414 KD,
5415 AB,
5416 LDAB,
5417 S,
5418 SCOND,
5419 AMAX,
5420 EQUED);
5421 }
5422
5423 //-- dlaqsp --------------------------------------------------------------------
5424 void
5425 LAPACK_DECL(dlaqsp)(const char *UPLO,
5426 const INTEGER *N,
5427 DOUBLE *AP,
5428 const DOUBLE *S,
5429 const DOUBLE *SCOND,
5430 const DOUBLE *AMAX,
5431 char *EQUED)
5432 {
5433 DEBUG_LAPACK_STUB("dlaqsp");
5434 LAPACK_IMPL(dlaqsp)(UPLO,
5435 N,
5436 AP,
5437 S,
5438 SCOND,
5439 AMAX,
5440 EQUED);
5441 }
5442
5443 //-- dlaqsy --------------------------------------------------------------------
5444 void
5445 LAPACK_DECL(dlaqsy)(const char *UPLO,
5446 const INTEGER *N,
5447 DOUBLE *A,
5448 const INTEGER *LDA,
5449 const DOUBLE *S,
5450 const DOUBLE *SCOND,
5451 const DOUBLE *AMAX,
5452 char *EQUED)
5453 {
5454 DEBUG_LAPACK_STUB("dlaqsy");
5455 LAPACK_IMPL(dlaqsy)(UPLO,
5456 N,
5457 A,
5458 LDA,
5459 S,
5460 SCOND,
5461 AMAX,
5462 EQUED);
5463 }
5464
5465 //-- dlaqtr --------------------------------------------------------------------
5466 void
5467 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
5468 const LOGICAL *LREAL,
5469 const INTEGER *N,
5470 const DOUBLE *T,
5471 const INTEGER *LDT,
5472 const DOUBLE *B,
5473 const DOUBLE *W,
5474 DOUBLE *SCALE,
5475 DOUBLE *X,
5476 const DOUBLE *WORK,
5477 INTEGER *INFO)
5478 {
5479 DEBUG_LAPACK_STUB("dlaqtr");
5480 LAPACK_IMPL(dlaqtr)(LTRAN,
5481 LREAL,
5482 N,
5483 T,
5484 LDT,
5485 B,
5486 W,
5487 SCALE,
5488 X,
5489 WORK,
5490 INFO);
5491 }
5492
5493 //-- dlar1v --------------------------------------------------------------------
5494 void
5495 LAPACK_DECL(dlar1v)(const INTEGER *N,
5496 const INTEGER *B1,
5497 const INTEGER *BN,
5498 const DOUBLE *LAMBDA,
5499 const DOUBLE *D,
5500 const DOUBLE *L,
5501 const DOUBLE *LD,
5502 const DOUBLE *LLD,
5503 const DOUBLE *PIVMIN,
5504 const DOUBLE *GAPTOL,
5505 DOUBLE *Z,
5506 const LOGICAL *WANTNC,
5507 INTEGER *NEGCNT,
5508 DOUBLE *ZTZ,
5509 DOUBLE *MINGMA,
5510 INTEGER *R,
5511 INTEGER *ISUPPZ,
5512 DOUBLE *NRMINV,
5513 DOUBLE *RESID,
5514 DOUBLE *RQCORR,
5515 const DOUBLE *WORK)
5516 {
5517 DEBUG_LAPACK_STUB("dlar1v");
5518 LAPACK_IMPL(dlar1v)(N,
5519 B1,
5520 BN,
5521 LAMBDA,
5522 D,
5523 L,
5524 LD,
5525 LLD,
5526 PIVMIN,
5527 GAPTOL,
5528 Z,
5529 WANTNC,
5530 NEGCNT,
5531 ZTZ,
5532 MINGMA,
5533 R,
5534 ISUPPZ,
5535 NRMINV,
5536 RESID,
5537 RQCORR,
5538 WORK);
5539 }
5540
5541 //-- dlar2v --------------------------------------------------------------------
5542 void
5543 LAPACK_DECL(dlar2v)(const INTEGER *N,
5544 DOUBLE *X,
5545 DOUBLE *Y,
5546 DOUBLE *Z,
5547 const INTEGER *INCX,
5548 const DOUBLE *C,
5549 const DOUBLE *S,
5550 const INTEGER *INCC)
5551 {
5552 DEBUG_LAPACK_STUB("dlar2v");
5553 LAPACK_IMPL(dlar2v)(N,
5554 X,
5555 Y,
5556 Z,
5557 INCX,
5558 C,
5559 S,
5560 INCC);
5561 }
5562
5563 //-- dlarf ---------------------------------------------------------------------
5564 void
5565 LAPACK_DECL(dlarf)(const char *SIDE,
5566 const INTEGER *M,
5567 const INTEGER *N,
5568 const DOUBLE *V,
5569 const INTEGER *INCV,
5570 const DOUBLE *TAU,
5571 DOUBLE *C,
5572 const INTEGER *LDC,
5573 const DOUBLE *WORK)
5574 {
5575 DEBUG_LAPACK_STUB("dlarf");
5576 LAPACK_IMPL(dlarf)(SIDE,
5577 M,
5578 N,
5579 V,
5580 INCV,
5581 TAU,
5582 C,
5583 LDC,
5584 WORK);
5585 }
5586
5587 //-- dlarfb --------------------------------------------------------------------
5588 void
5589 LAPACK_DECL(dlarfb)(const char *SIDE,
5590 const char *TRANS,
5591 const char *DIRECT,
5592 const char *STOREV,
5593 const INTEGER *M,
5594 const INTEGER *N,
5595 const INTEGER *K,
5596 const DOUBLE *V,
5597 const INTEGER *LDV,
5598 const DOUBLE *T,
5599 const INTEGER *LDT,
5600 DOUBLE *C,
5601 const INTEGER *LDC,
5602 const DOUBLE *WORK,
5603 const INTEGER *LDWORK)
5604 {
5605 DEBUG_LAPACK_STUB("dlarfb");
5606 LAPACK_IMPL(dlarfb)(SIDE,
5607 TRANS,
5608 DIRECT,
5609 STOREV,
5610 M,
5611 N,
5612 K,
5613 V,
5614 LDV,
5615 T,
5616 LDT,
5617 C,
5618 LDC,
5619 WORK,
5620 LDWORK);
5621 }
5622
5623 //-- dlarfg --------------------------------------------------------------------
5624 void
5625 LAPACK_DECL(dlarfg)(const INTEGER *N,
5626 DOUBLE *ALPHA,
5627 DOUBLE *X,
5628 const INTEGER *INCX,
5629 DOUBLE *TAU)
5630 {
5631 DEBUG_LAPACK_STUB("dlarfg");
5632 LAPACK_IMPL(dlarfg)(N,
5633 ALPHA,
5634 X,
5635 INCX,
5636 TAU);
5637 }
5638
5639 //-- dlarfgp -------------------------------------------------------------------
5640 void
5641 LAPACK_DECL(dlarfgp)(const INTEGER *N,
5642 DOUBLE *ALPHA,
5643 DOUBLE *X,
5644 const INTEGER *INCX,
5645 DOUBLE *TAU)
5646 {
5647 DEBUG_LAPACK_STUB("dlarfgp");
5648 LAPACK_IMPL(dlarfgp)(N,
5649 ALPHA,
5650 X,
5651 INCX,
5652 TAU);
5653 }
5654
5655 //-- dlarft --------------------------------------------------------------------
5656 void
5657 LAPACK_DECL(dlarft)(const char *DIRECT,
5658 const char *STOREV,
5659 const INTEGER *N,
5660 const INTEGER *K,
5661 DOUBLE *V,
5662 const INTEGER *LDV,
5663 const DOUBLE *TAU,
5664 DOUBLE *T,
5665 const INTEGER *LDT)
5666 {
5667 DEBUG_LAPACK_STUB("dlarft");
5668 LAPACK_IMPL(dlarft)(DIRECT,
5669 STOREV,
5670 N,
5671 K,
5672 V,
5673 LDV,
5674 TAU,
5675 T,
5676 LDT);
5677 }
5678
5679 //-- dlarfx --------------------------------------------------------------------
5680 void
5681 LAPACK_DECL(dlarfx)(const char *SIDE,
5682 const INTEGER *M,
5683 const INTEGER *N,
5684 const DOUBLE *V,
5685 const DOUBLE *TAU,
5686 DOUBLE *C,
5687 const INTEGER *LDC,
5688 const DOUBLE *WORK)
5689 {
5690 DEBUG_LAPACK_STUB("dlarfx");
5691 LAPACK_IMPL(dlarfx)(SIDE,
5692 M,
5693 N,
5694 V,
5695 TAU,
5696 C,
5697 LDC,
5698 WORK);
5699 }
5700
5701 //-- dlargv --------------------------------------------------------------------
5702 void
5703 LAPACK_DECL(dlargv)(const INTEGER *N,
5704 DOUBLE *X,
5705 const INTEGER *INCX,
5706 DOUBLE *Y,
5707 const INTEGER *INCY,
5708 DOUBLE *C,
5709 const INTEGER *INCC)
5710 {
5711 DEBUG_LAPACK_STUB("dlargv");
5712 LAPACK_IMPL(dlargv)(N,
5713 X,
5714 INCX,
5715 Y,
5716 INCY,
5717 C,
5718 INCC);
5719 }
5720
5721 //-- dlarnv --------------------------------------------------------------------
5722 void
5723 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
5724 INTEGER *ISEED,
5725 const INTEGER *N,
5726 DOUBLE *X)
5727 {
5728 DEBUG_LAPACK_STUB("dlarnv");
5729 LAPACK_IMPL(dlarnv)(IDIST,
5730 ISEED,
5731 N,
5732 X);
5733 }
5734
5735 //-- dlarra --------------------------------------------------------------------
5736 void
5737 LAPACK_DECL(dlarra)(const INTEGER *N,
5738 const DOUBLE *D,
5739 DOUBLE *E,
5740 DOUBLE *E2,
5741 const DOUBLE *SPLTOL,
5742 const DOUBLE *TNRM,
5743 INTEGER *NSPLIT,
5744 INTEGER *ISPLIT,
5745 INTEGER *INFO)
5746 {
5747 DEBUG_LAPACK_STUB("dlarra");
5748 LAPACK_IMPL(dlarra)(N,
5749 D,
5750 E,
5751 E2,
5752 SPLTOL,
5753 TNRM,
5754 NSPLIT,
5755 ISPLIT,
5756 INFO);
5757 }
5758
5759 //-- dlarrb --------------------------------------------------------------------
5760 void
5761 LAPACK_DECL(dlarrb)(const INTEGER *N,
5762 const DOUBLE *D,
5763 const DOUBLE *LLD,
5764 const INTEGER *IFIRST,
5765 const INTEGER *ILAST,
5766 const DOUBLE *RTOL1,
5767 const DOUBLE *RTOL2,
5768 const INTEGER *OFFSET,
5769 DOUBLE *W,
5770 DOUBLE *WGAP,
5771 DOUBLE *WERR,
5772 const DOUBLE *WORK,
5773 const INTEGER *IWORK,
5774 const DOUBLE *PIVMIN,
5775 const DOUBLE *SPDIAM,
5776 const INTEGER *TWIST,
5777 INTEGER *INFO)
5778 {
5779 DEBUG_LAPACK_STUB("dlarrb");
5780 LAPACK_IMPL(dlarrb)(N,
5781 D,
5782 LLD,
5783 IFIRST,
5784 ILAST,
5785 RTOL1,
5786 RTOL2,
5787 OFFSET,
5788 W,
5789 WGAP,
5790 WERR,
5791 WORK,
5792 IWORK,
5793 PIVMIN,
5794 SPDIAM,
5795 TWIST,
5796 INFO);
5797 }
5798
5799 //-- dlarrc --------------------------------------------------------------------
5800 void
5801 LAPACK_DECL(dlarrc)(const char *JOBT,
5802 const INTEGER *N,
5803 const DOUBLE *VL,
5804 const DOUBLE *VU,
5805 const DOUBLE *D,
5806 const DOUBLE *E,
5807 const DOUBLE *PIVMIN,
5808 INTEGER *EIGCNT,
5809 INTEGER *LCNT,
5810 INTEGER *RCNT,
5811 INTEGER *INFO)
5812 {
5813 DEBUG_LAPACK_STUB("dlarrc");
5814 LAPACK_IMPL(dlarrc)(JOBT,
5815 N,
5816 VL,
5817 VU,
5818 D,
5819 E,
5820 PIVMIN,
5821 EIGCNT,
5822 LCNT,
5823 RCNT,
5824 INFO);
5825 }
5826
5827 //-- dlarrd --------------------------------------------------------------------
5828 void
5829 LAPACK_DECL(dlarrd)(const char *RANGE,
5830 const char *ORDER,
5831 const INTEGER *N,
5832 const DOUBLE *VL,
5833 const DOUBLE *VU,
5834 const INTEGER *IL,
5835 const INTEGER *IU,
5836 const DOUBLE *GERS,
5837 const DOUBLE *RELTOL,
5838 const DOUBLE *D,
5839 const DOUBLE *E,
5840 const DOUBLE *E2,
5841 const DOUBLE *PIVMIN,
5842 const INTEGER *NSPLIT,
5843 const INTEGER *ISPLIT,
5844 INTEGER *M,
5845 DOUBLE *W,
5846 DOUBLE *WERR,
5847 DOUBLE *WL,
5848 DOUBLE *WU,
5849 INTEGER *IBLOCK,
5850 INTEGER *INDEXW,
5851 const DOUBLE *WORK,
5852 const INTEGER *IWORK,
5853 INTEGER *INFO)
5854 {
5855 DEBUG_LAPACK_STUB("dlarrd");
5856 LAPACK_IMPL(dlarrd)(RANGE,
5857 ORDER,
5858 N,
5859 VL,
5860 VU,
5861 IL,
5862 IU,
5863 GERS,
5864 RELTOL,
5865 D,
5866 E,
5867 E2,
5868 PIVMIN,
5869 NSPLIT,
5870 ISPLIT,
5871 M,
5872 W,
5873 WERR,
5874 WL,
5875 WU,
5876 IBLOCK,
5877 INDEXW,
5878 WORK,
5879 IWORK,
5880 INFO);
5881 }
5882
5883 //-- dlarre --------------------------------------------------------------------
5884 void
5885 LAPACK_DECL(dlarre)(const char *RANGE,
5886 const INTEGER *N,
5887 DOUBLE *VL,
5888 DOUBLE *VU,
5889 const INTEGER *IL,
5890 const INTEGER *IU,
5891 DOUBLE *D,
5892 DOUBLE *E,
5893 DOUBLE *E2,
5894 const DOUBLE *RTOL1,
5895 const DOUBLE *RTOL2,
5896 const DOUBLE *SPLTOL,
5897 INTEGER *NSPLIT,
5898 INTEGER *ISPLIT,
5899 INTEGER *M,
5900 DOUBLE *W,
5901 DOUBLE *WERR,
5902 DOUBLE *WGAP,
5903 INTEGER *IBLOCK,
5904 INTEGER *INDEXW,
5905 DOUBLE *GERS,
5906 DOUBLE *PIVMIN,
5907 const DOUBLE *WORK,
5908 const INTEGER *IWORK,
5909 INTEGER *INFO)
5910 {
5911 DEBUG_LAPACK_STUB("dlarre");
5912 LAPACK_IMPL(dlarre)(RANGE,
5913 N,
5914 VL,
5915 VU,
5916 IL,
5917 IU,
5918 D,
5919 E,
5920 E2,
5921 RTOL1,
5922 RTOL2,
5923 SPLTOL,
5924 NSPLIT,
5925 ISPLIT,
5926 M,
5927 W,
5928 WERR,
5929 WGAP,
5930 IBLOCK,
5931 INDEXW,
5932 GERS,
5933 PIVMIN,
5934 WORK,
5935 IWORK,
5936 INFO);
5937 }
5938
5939 //-- dlarrf --------------------------------------------------------------------
5940 void
5941 LAPACK_DECL(dlarrf)(const INTEGER *N,
5942 const DOUBLE *D,
5943 const DOUBLE *L,
5944 const DOUBLE *LD,
5945 const INTEGER *CLSTRT,
5946 const INTEGER *CLEND,
5947 const DOUBLE *W,
5948 DOUBLE *WGAP,
5949 const DOUBLE *WERR,
5950 const DOUBLE *SPDIAM,
5951 const DOUBLE *CLGAPL,
5952 const DOUBLE *CLGAPR,
5953 const DOUBLE *PIVMIN,
5954 DOUBLE *SIGMA,
5955 DOUBLE *DPLUS,
5956 DOUBLE *LPLUS,
5957 const DOUBLE *WORK,
5958 INTEGER *INFO)
5959 {
5960 DEBUG_LAPACK_STUB("dlarrf");
5961 LAPACK_IMPL(dlarrf)(N,
5962 D,
5963 L,
5964 LD,
5965 CLSTRT,
5966 CLEND,
5967 W,
5968 WGAP,
5969 WERR,
5970 SPDIAM,
5971 CLGAPL,
5972 CLGAPR,
5973 PIVMIN,
5974 SIGMA,
5975 DPLUS,
5976 LPLUS,
5977 WORK,
5978 INFO);
5979 }
5980
5981 //-- dlarrj --------------------------------------------------------------------
5982 void
5983 LAPACK_DECL(dlarrj)(const INTEGER *N,
5984 const DOUBLE *D,
5985 const DOUBLE *E2,
5986 const INTEGER *IFIRST,
5987 const INTEGER *ILAST,
5988 const DOUBLE *RTOL,
5989 const INTEGER *OFFSET,
5990 DOUBLE *W,
5991 DOUBLE *WERR,
5992 const DOUBLE *WORK,
5993 const INTEGER *IWORK,
5994 const DOUBLE *PIVMIN,
5995 const DOUBLE *SPDIAM,
5996 INTEGER *INFO)
5997 {
5998 DEBUG_LAPACK_STUB("dlarrj");
5999 LAPACK_IMPL(dlarrj)(N,
6000 D,
6001 E2,
6002 IFIRST,
6003 ILAST,
6004 RTOL,
6005 OFFSET,
6006 W,
6007 WERR,
6008 WORK,
6009 IWORK,
6010 PIVMIN,
6011 SPDIAM,
6012 INFO);
6013 }
6014
6015 //-- dlarrk --------------------------------------------------------------------
6016 void
6017 LAPACK_DECL(dlarrk)(const INTEGER *N,
6018 const INTEGER *IW,
6019 const DOUBLE *GL,
6020 const DOUBLE *GU,
6021 const DOUBLE *D,
6022 const DOUBLE *E2,
6023 const DOUBLE *PIVMIN,
6024 const DOUBLE *RELTOL,
6025 DOUBLE *W,
6026 DOUBLE *WERR,
6027 INTEGER *INFO)
6028 {
6029 DEBUG_LAPACK_STUB("dlarrk");
6030 LAPACK_IMPL(dlarrk)(N,
6031 IW,
6032 GL,
6033 GU,
6034 D,
6035 E2,
6036 PIVMIN,
6037 RELTOL,
6038 W,
6039 WERR,
6040 INFO);
6041 }
6042
6043 //-- dlarrr --------------------------------------------------------------------
6044 void
6045 LAPACK_DECL(dlarrr)(const INTEGER *N,
6046 const DOUBLE *D,
6047 DOUBLE *E,
6048 INTEGER *INFO)
6049 {
6050 DEBUG_LAPACK_STUB("dlarrr");
6051 LAPACK_IMPL(dlarrr)(N,
6052 D,
6053 E,
6054 INFO);
6055 }
6056
6057 //-- dlarrv --------------------------------------------------------------------
6058 void
6059 LAPACK_DECL(dlarrv)(const INTEGER *N,
6060 const DOUBLE *VL,
6061 const DOUBLE *VU,
6062 DOUBLE *D,
6063 DOUBLE *L,
6064 const DOUBLE *PIVMIN,
6065 const INTEGER *ISPLIT,
6066 const INTEGER *M,
6067 const INTEGER *DOL,
6068 const INTEGER *DOU,
6069 const DOUBLE *MINRGP,
6070 const DOUBLE *RTOL1,
6071 const DOUBLE *RTOL2,
6072 DOUBLE *W,
6073 DOUBLE *WERR,
6074 DOUBLE *WGAP,
6075 const INTEGER *IBLOCK,
6076 const INTEGER *INDEXW,
6077 const DOUBLE *GERS,
6078 DOUBLE *Z,
6079 const INTEGER *LDZ,
6080 INTEGER *ISUPPZ,
6081 const DOUBLE *WORK,
6082 const INTEGER *IWORK,
6083 INTEGER *INFO)
6084 {
6085 DEBUG_LAPACK_STUB("dlarrv");
6086 LAPACK_IMPL(dlarrv)(N,
6087 VL,
6088 VU,
6089 D,
6090 L,
6091 PIVMIN,
6092 ISPLIT,
6093 M,
6094 DOL,
6095 DOU,
6096 MINRGP,
6097 RTOL1,
6098 RTOL2,
6099 W,
6100 WERR,
6101 WGAP,
6102 IBLOCK,
6103 INDEXW,
6104 GERS,
6105 Z,
6106 LDZ,
6107 ISUPPZ,
6108 WORK,
6109 IWORK,
6110 INFO);
6111 }
6112
6113 //-- dlarscl2 ------------------------------------------------------------------
6114 void
6115 LAPACK_DECL(dlarscl2)(const INTEGER *M,
6116 const INTEGER *N,
6117 const DOUBLE *D,
6118 DOUBLE *X,
6119 const INTEGER *LDX)
6120 {
6121 DEBUG_LAPACK_STUB("dlarscl2");
6122 LAPACK_IMPL(dlarscl2)(M,
6123 N,
6124 D,
6125 X,
6126 LDX);
6127 }
6128
6129 //-- dlartg --------------------------------------------------------------------
6130 void
6131 LAPACK_DECL(dlartg)(const DOUBLE *F,
6132 const DOUBLE *G,
6133 DOUBLE *CS,
6134 DOUBLE *SN,
6135 DOUBLE *R)
6136 {
6137 DEBUG_LAPACK_STUB("dlartg");
6138 LAPACK_IMPL(dlartg)(F,
6139 G,
6140 CS,
6141 SN,
6142 R);
6143 }
6144
6145 //-- dlartgp -------------------------------------------------------------------
6146 void
6147 LAPACK_DECL(dlartgp)(const DOUBLE *F,
6148 const DOUBLE *G,
6149 DOUBLE *CS,
6150 DOUBLE *SN,
6151 DOUBLE *R)
6152 {
6153 DEBUG_LAPACK_STUB("dlartgp");
6154 LAPACK_IMPL(dlartgp)(F,
6155 G,
6156 CS,
6157 SN,
6158 R);
6159 }
6160
6161 //-- dlartgs -------------------------------------------------------------------
6162 void
6163 LAPACK_DECL(dlartgs)(const DOUBLE *X,
6164 const DOUBLE *Y,
6165 const DOUBLE *SIGMA,
6166 DOUBLE *CS,
6167 DOUBLE *SN)
6168 {
6169 DEBUG_LAPACK_STUB("dlartgs");
6170 LAPACK_IMPL(dlartgs)(X,
6171 Y,
6172 SIGMA,
6173 CS,
6174 SN);
6175 }
6176
6177 //-- dlartv --------------------------------------------------------------------
6178 void
6179 LAPACK_DECL(dlartv)(const INTEGER *N,
6180 DOUBLE *X,
6181 const INTEGER *INCX,
6182 DOUBLE *Y,
6183 const INTEGER *INCY,
6184 const DOUBLE *C,
6185 const DOUBLE *S,
6186 const INTEGER *INCC)
6187 {
6188 DEBUG_LAPACK_STUB("dlartv");
6189 LAPACK_IMPL(dlartv)(N,
6190 X,
6191 INCX,
6192 Y,
6193 INCY,
6194 C,
6195 S,
6196 INCC);
6197 }
6198
6199 //-- dlaruv --------------------------------------------------------------------
6200 void
6201 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
6202 const INTEGER *N,
6203 DOUBLE *X)
6204 {
6205 DEBUG_LAPACK_STUB("dlaruv");
6206 LAPACK_IMPL(dlaruv)(ISEED,
6207 N,
6208 X);
6209 }
6210
6211 //-- dlarz ---------------------------------------------------------------------
6212 void
6213 LAPACK_DECL(dlarz)(const char *SIDE,
6214 const INTEGER *M,
6215 const INTEGER *N,
6216 const INTEGER *L,
6217 const DOUBLE *V,
6218 const INTEGER *INCV,
6219 const DOUBLE *TAU,
6220 DOUBLE *C,
6221 const INTEGER *LDC,
6222 const DOUBLE *WORK)
6223 {
6224 DEBUG_LAPACK_STUB("dlarz");
6225 LAPACK_IMPL(dlarz)(SIDE,
6226 M,
6227 N,
6228 L,
6229 V,
6230 INCV,
6231 TAU,
6232 C,
6233 LDC,
6234 WORK);
6235 }
6236
6237 //-- dlarzb --------------------------------------------------------------------
6238 void
6239 LAPACK_DECL(dlarzb)(const char *SIDE,
6240 const char *TRANS,
6241 const char *DIRECT,
6242 const char *STOREV,
6243 const INTEGER *M,
6244 const INTEGER *N,
6245 const INTEGER *K,
6246 const INTEGER *L,
6247 const DOUBLE *V,
6248 const INTEGER *LDV,
6249 const DOUBLE *T,
6250 const INTEGER *LDT,
6251 DOUBLE *C,
6252 const INTEGER *LDC,
6253 const DOUBLE *WORK,
6254 const INTEGER *LDWORK)
6255 {
6256 DEBUG_LAPACK_STUB("dlarzb");
6257 LAPACK_IMPL(dlarzb)(SIDE,
6258 TRANS,
6259 DIRECT,
6260 STOREV,
6261 M,
6262 N,
6263 K,
6264 L,
6265 V,
6266 LDV,
6267 T,
6268 LDT,
6269 C,
6270 LDC,
6271 WORK,
6272 LDWORK);
6273 }
6274
6275 //-- dlarzt --------------------------------------------------------------------
6276 void
6277 LAPACK_DECL(dlarzt)(const char *DIRECT,
6278 const char *STOREV,
6279 const INTEGER *N,
6280 const INTEGER *K,
6281 DOUBLE *V,
6282 const INTEGER *LDV,
6283 const DOUBLE *TAU,
6284 DOUBLE *T,
6285 const INTEGER *LDT)
6286 {
6287 DEBUG_LAPACK_STUB("dlarzt");
6288 LAPACK_IMPL(dlarzt)(DIRECT,
6289 STOREV,
6290 N,
6291 K,
6292 V,
6293 LDV,
6294 TAU,
6295 T,
6296 LDT);
6297 }
6298
6299 //-- dlas2 ---------------------------------------------------------------------
6300 void
6301 LAPACK_DECL(dlas2)(const DOUBLE *F,
6302 const DOUBLE *G,
6303 const DOUBLE *H,
6304 DOUBLE *SSMIN,
6305 DOUBLE *SSMAX)
6306 {
6307 DEBUG_LAPACK_STUB("dlas2");
6308 LAPACK_IMPL(dlas2)(F,
6309 G,
6310 H,
6311 SSMIN,
6312 SSMAX);
6313 }
6314
6315 //-- dlascl --------------------------------------------------------------------
6316 void
6317 LAPACK_DECL(dlascl)(const char *TYPE,
6318 const INTEGER *KL,
6319 const INTEGER *KU,
6320 const DOUBLE *CFROM,
6321 const DOUBLE *CTO,
6322 const INTEGER *M,
6323 const INTEGER *N,
6324 DOUBLE *A,
6325 const INTEGER *LDA,
6326 INTEGER *INFO)
6327 {
6328 DEBUG_LAPACK_STUB("dlascl");
6329 LAPACK_IMPL(dlascl)(TYPE,
6330 KL,
6331 KU,
6332 CFROM,
6333 CTO,
6334 M,
6335 N,
6336 A,
6337 LDA,
6338 INFO);
6339 }
6340
6341 //-- dlascl2 -------------------------------------------------------------------
6342 void
6343 LAPACK_DECL(dlascl2)(const INTEGER *M,
6344 const INTEGER *N,
6345 const DOUBLE *D,
6346 DOUBLE *X,
6347 const INTEGER *LDX)
6348 {
6349 DEBUG_LAPACK_STUB("dlascl2");
6350 LAPACK_IMPL(dlascl2)(M,
6351 N,
6352 D,
6353 X,
6354 LDX);
6355 }
6356
6357 //-- dlasd0 --------------------------------------------------------------------
6358 void
6359 LAPACK_DECL(dlasd0)(const INTEGER *N,
6360 const INTEGER *SQRE,
6361 DOUBLE *D,
6362 const DOUBLE *E,
6363 DOUBLE *U,
6364 const INTEGER *LDU,
6365 DOUBLE *VT,
6366 const INTEGER *LDVT,
6367 const INTEGER *SMLSIZ,
6368 const INTEGER *IWORK,
6369 const DOUBLE *WORK,
6370 INTEGER *INFO)
6371 {
6372 DEBUG_LAPACK_STUB("dlasd0");
6373 LAPACK_IMPL(dlasd0)(N,
6374 SQRE,
6375 D,
6376 E,
6377 U,
6378 LDU,
6379 VT,
6380 LDVT,
6381 SMLSIZ,
6382 IWORK,
6383 WORK,
6384 INFO);
6385 }
6386
6387 //-- dlasd1 --------------------------------------------------------------------
6388 void
6389 LAPACK_DECL(dlasd1)(const INTEGER *NL,
6390 const INTEGER *NR,
6391 const INTEGER *SQRE,
6392 DOUBLE *D,
6393 DOUBLE *ALPHA,
6394 DOUBLE *BETA,
6395 DOUBLE *U,
6396 const INTEGER *LDU,
6397 DOUBLE *VT,
6398 const INTEGER *LDVT,
6399 INTEGER *IDXQ,
6400 const INTEGER *IWORK,
6401 const DOUBLE *WORK,
6402 INTEGER *INFO)
6403 {
6404 DEBUG_LAPACK_STUB("dlasd1");
6405 LAPACK_IMPL(dlasd1)(NL,
6406 NR,
6407 SQRE,
6408 D,
6409 ALPHA,
6410 BETA,
6411 U,
6412 LDU,
6413 VT,
6414 LDVT,
6415 IDXQ,
6416 IWORK,
6417 WORK,
6418 INFO);
6419 }
6420
6421 //-- dlasd2 --------------------------------------------------------------------
6422 void
6423 LAPACK_DECL(dlasd2)(const INTEGER *NL,
6424 const INTEGER *NR,
6425 const INTEGER *SQRE,
6426 INTEGER *K,
6427 DOUBLE *D,
6428 DOUBLE *Z,
6429 const DOUBLE *ALPHA,
6430 const DOUBLE *BETA,
6431 DOUBLE *U,
6432 const INTEGER *LDU,
6433 DOUBLE *VT,
6434 const INTEGER *LDVT,
6435 DOUBLE *DSIGMA,
6436 DOUBLE *U2,
6437 const INTEGER *LDU2,
6438 DOUBLE *VT2,
6439 const INTEGER *LDVT2,
6440 const INTEGER *IDXP,
6441 const INTEGER *IDX,
6442 INTEGER *IDXC,
6443 INTEGER *IDXQ,
6444 INTEGER *COLTYP,
6445 INTEGER *INFO)
6446 {
6447 DEBUG_LAPACK_STUB("dlasd2");
6448 LAPACK_IMPL(dlasd2)(NL,
6449 NR,
6450 SQRE,
6451 K,
6452 D,
6453 Z,
6454 ALPHA,
6455 BETA,
6456 U,
6457 LDU,
6458 VT,
6459 LDVT,
6460 DSIGMA,
6461 U2,
6462 LDU2,
6463 VT2,
6464 LDVT2,
6465 IDXP,
6466 IDX,
6467 IDXC,
6468 IDXQ,
6469 COLTYP,
6470 INFO);
6471 }
6472
6473 //-- dlasd3 --------------------------------------------------------------------
6474 void
6475 LAPACK_DECL(dlasd3)(const INTEGER *NL,
6476 const INTEGER *NR,
6477 const INTEGER *SQRE,
6478 const INTEGER *K,
6479 DOUBLE *D,
6480 const DOUBLE *Q,
6481 const INTEGER *LDQ,
6482 const DOUBLE *DSIGMA,
6483 DOUBLE *U,
6484 const INTEGER *LDU,
6485 DOUBLE *U2,
6486 const INTEGER *LDU2,
6487 DOUBLE *VT,
6488 const INTEGER *LDVT,
6489 DOUBLE *VT2,
6490 const INTEGER *LDVT2,
6491 const INTEGER *IDXC,
6492 const INTEGER *CTOT,
6493 const DOUBLE *Z,
6494 INTEGER *INFO)
6495 {
6496 DEBUG_LAPACK_STUB("dlasd3");
6497 LAPACK_IMPL(dlasd3)(NL,
6498 NR,
6499 SQRE,
6500 K,
6501 D,
6502 Q,
6503 LDQ,
6504 DSIGMA,
6505 U,
6506 LDU,
6507 U2,
6508 LDU2,
6509 VT,
6510 LDVT,
6511 VT2,
6512 LDVT2,
6513 IDXC,
6514 CTOT,
6515 Z,
6516 INFO);
6517 }
6518
6519 //-- dlasd4 --------------------------------------------------------------------
6520 void
6521 LAPACK_DECL(dlasd4)(const INTEGER *N,
6522 const INTEGER *I,
6523 const DOUBLE *D,
6524 const DOUBLE *Z,
6525 DOUBLE *DELTA,
6526 const DOUBLE *RHO,
6527 DOUBLE *SIGMA,
6528 const DOUBLE *WORK,
6529 INTEGER *INFO)
6530 {
6531 DEBUG_LAPACK_STUB("dlasd4");
6532 LAPACK_IMPL(dlasd4)(N,
6533 I,
6534 D,
6535 Z,
6536 DELTA,
6537 RHO,
6538 SIGMA,
6539 WORK,
6540 INFO);
6541 }
6542
6543 //-- dlasd5 --------------------------------------------------------------------
6544 void
6545 LAPACK_DECL(dlasd5)(const INTEGER *I,
6546 const DOUBLE *D,
6547 const DOUBLE *Z,
6548 DOUBLE *DELTA,
6549 const DOUBLE *RHO,
6550 DOUBLE *DSIGMA,
6551 const DOUBLE *WORK)
6552 {
6553 DEBUG_LAPACK_STUB("dlasd5");
6554 LAPACK_IMPL(dlasd5)(I,
6555 D,
6556 Z,
6557 DELTA,
6558 RHO,
6559 DSIGMA,
6560 WORK);
6561 }
6562
6563 //-- dlasd6 --------------------------------------------------------------------
6564 void
6565 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
6566 const INTEGER *NL,
6567 const INTEGER *NR,
6568 const INTEGER *SQRE,
6569 DOUBLE *D,
6570 DOUBLE *VF,
6571 DOUBLE *VL,
6572 DOUBLE *ALPHA,
6573 DOUBLE *BETA,
6574 INTEGER *IDXQ,
6575 INTEGER *PERM,
6576 INTEGER *GIVPTR,
6577 INTEGER *GIVCOL,
6578 const INTEGER *LDGCOL,
6579 DOUBLE *GIVNUM,
6580 const INTEGER *LDGNUM,
6581 DOUBLE *POLES,
6582 DOUBLE *DIFL,
6583 DOUBLE *DIFR,
6584 DOUBLE *Z,
6585 INTEGER *K,
6586 DOUBLE *C,
6587 DOUBLE *S,
6588 const DOUBLE *WORK,
6589 const INTEGER *IWORK,
6590 INTEGER *INFO)
6591 {
6592 DEBUG_LAPACK_STUB("dlasd6");
6593 LAPACK_IMPL(dlasd6)(ICOMPQ,
6594 NL,
6595 NR,
6596 SQRE,
6597 D,
6598 VF,
6599 VL,
6600 ALPHA,
6601 BETA,
6602 IDXQ,
6603 PERM,
6604 GIVPTR,
6605 GIVCOL,
6606 LDGCOL,
6607 GIVNUM,
6608 LDGNUM,
6609 POLES,
6610 DIFL,
6611 DIFR,
6612 Z,
6613 K,
6614 C,
6615 S,
6616 WORK,
6617 IWORK,
6618 INFO);
6619 }
6620
6621 //-- dlasd7 --------------------------------------------------------------------
6622 void
6623 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
6624 const INTEGER *NL,
6625 const INTEGER *NR,
6626 const INTEGER *SQRE,
6627 INTEGER *K,
6628 DOUBLE *D,
6629 DOUBLE *Z,
6630 const DOUBLE *ZW,
6631 DOUBLE *VF,
6632 const DOUBLE *VFW,
6633 DOUBLE *VL,
6634 const DOUBLE *VLW,
6635 const DOUBLE *ALPHA,
6636 const DOUBLE *BETA,
6637 DOUBLE *DSIGMA,
6638 const INTEGER *IDX,
6639 const INTEGER *IDXP,
6640 const INTEGER *IDXQ,
6641 INTEGER *PERM,
6642 INTEGER *GIVPTR,
6643 INTEGER *GIVCOL,
6644 const INTEGER *LDGCOL,
6645 DOUBLE *GIVNUM,
6646 const INTEGER *LDGNUM,
6647 DOUBLE *C,
6648 DOUBLE *S,
6649 INTEGER *INFO)
6650 {
6651 DEBUG_LAPACK_STUB("dlasd7");
6652 LAPACK_IMPL(dlasd7)(ICOMPQ,
6653 NL,
6654 NR,
6655 SQRE,
6656 K,
6657 D,
6658 Z,
6659 ZW,
6660 VF,
6661 VFW,
6662 VL,
6663 VLW,
6664 ALPHA,
6665 BETA,
6666 DSIGMA,
6667 IDX,
6668 IDXP,
6669 IDXQ,
6670 PERM,
6671 GIVPTR,
6672 GIVCOL,
6673 LDGCOL,
6674 GIVNUM,
6675 LDGNUM,
6676 C,
6677 S,
6678 INFO);
6679 }
6680
6681 //-- dlasd8 --------------------------------------------------------------------
6682 void
6683 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
6684 const INTEGER *K,
6685 DOUBLE *D,
6686 DOUBLE *Z,
6687 DOUBLE *VF,
6688 DOUBLE *VL,
6689 DOUBLE *DIFL,
6690 DOUBLE *DIFR,
6691 const INTEGER *LDDIFR,
6692 DOUBLE *DSIGMA,
6693 const DOUBLE *WORK,
6694 INTEGER *INFO)
6695 {
6696 DEBUG_LAPACK_STUB("dlasd8");
6697 LAPACK_IMPL(dlasd8)(ICOMPQ,
6698 K,
6699 D,
6700 Z,
6701 VF,
6702 VL,
6703 DIFL,
6704 DIFR,
6705 LDDIFR,
6706 DSIGMA,
6707 WORK,
6708 INFO);
6709 }
6710
6711 //-- dlasda --------------------------------------------------------------------
6712 void
6713 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
6714 const INTEGER *SMLSIZ,
6715 const INTEGER *N,
6716 const INTEGER *SQRE,
6717 DOUBLE *D,
6718 const DOUBLE *E,
6719 DOUBLE *U,
6720 const INTEGER *LDU,
6721 DOUBLE *VT,
6722 INTEGER *K,
6723 DOUBLE *DIFL,
6724 DOUBLE *DIFR,
6725 DOUBLE *Z,
6726 DOUBLE *POLES,
6727 INTEGER *GIVPTR,
6728 INTEGER *GIVCOL,
6729 const INTEGER *LDGCOL,
6730 INTEGER *PERM,
6731 DOUBLE *GIVNUM,
6732 DOUBLE *C,
6733 DOUBLE *S,
6734 const DOUBLE *WORK,
6735 const INTEGER *IWORK,
6736 INTEGER *INFO)
6737 {
6738 DEBUG_LAPACK_STUB("dlasda");
6739 LAPACK_IMPL(dlasda)(ICOMPQ,
6740 SMLSIZ,
6741 N,
6742 SQRE,
6743 D,
6744 E,
6745 U,
6746 LDU,
6747 VT,
6748 K,
6749 DIFL,
6750 DIFR,
6751 Z,
6752 POLES,
6753 GIVPTR,
6754 GIVCOL,
6755 LDGCOL,
6756 PERM,
6757 GIVNUM,
6758 C,
6759 S,
6760 WORK,
6761 IWORK,
6762 INFO);
6763 }
6764
6765 //-- dlasdq --------------------------------------------------------------------
6766 void
6767 LAPACK_DECL(dlasdq)(const char *UPLO,
6768 const INTEGER *SQRE,
6769 const INTEGER *N,
6770 const INTEGER *NCVT,
6771 const INTEGER *NRU,
6772 const INTEGER *NCC,
6773 DOUBLE *D,
6774 DOUBLE *E,
6775 DOUBLE *VT,
6776 const INTEGER *LDVT,
6777 DOUBLE *U,
6778 const INTEGER *LDU,
6779 DOUBLE *C,
6780 const INTEGER *LDC,
6781 const DOUBLE *WORK,
6782 INTEGER *INFO)
6783 {
6784 DEBUG_LAPACK_STUB("dlasdq");
6785 LAPACK_IMPL(dlasdq)(UPLO,
6786 SQRE,
6787 N,
6788 NCVT,
6789 NRU,
6790 NCC,
6791 D,
6792 E,
6793 VT,
6794 LDVT,
6795 U,
6796 LDU,
6797 C,
6798 LDC,
6799 WORK,
6800 INFO);
6801 }
6802
6803 //-- dlasdt --------------------------------------------------------------------
6804 void
6805 LAPACK_DECL(dlasdt)(const INTEGER *N,
6806 INTEGER *LVL,
6807 INTEGER *ND,
6808 INTEGER *INODE,
6809 INTEGER *NDIML,
6810 INTEGER *NDIMR,
6811 const INTEGER *MSUB)
6812 {
6813 DEBUG_LAPACK_STUB("dlasdt");
6814 LAPACK_IMPL(dlasdt)(N,
6815 LVL,
6816 ND,
6817 INODE,
6818 NDIML,
6819 NDIMR,
6820 MSUB);
6821 }
6822
6823 //-- dlaset --------------------------------------------------------------------
6824 void
6825 LAPACK_DECL(dlaset)(const char *UPLO,
6826 const INTEGER *M,
6827 const INTEGER *N,
6828 const DOUBLE *ALPHA,
6829 const DOUBLE *BETA,
6830 DOUBLE *A,
6831 const INTEGER *LDA)
6832 {
6833 DEBUG_LAPACK_STUB("dlaset");
6834 LAPACK_IMPL(dlaset)(UPLO,
6835 M,
6836 N,
6837 ALPHA,
6838 BETA,
6839 A,
6840 LDA);
6841 }
6842
6843 //-- dlasq1 --------------------------------------------------------------------
6844 void
6845 LAPACK_DECL(dlasq1)(const INTEGER *N,
6846 DOUBLE *D,
6847 DOUBLE *E,
6848 const DOUBLE *WORK,
6849 INTEGER *INFO)
6850 {
6851 DEBUG_LAPACK_STUB("dlasq1");
6852 LAPACK_IMPL(dlasq1)(N,
6853 D,
6854 E,
6855 WORK,
6856 INFO);
6857 }
6858
6859 //-- dlasq2 --------------------------------------------------------------------
6860 void
6861 LAPACK_DECL(dlasq2)(const INTEGER *N,
6862 DOUBLE *Z,
6863 INTEGER *INFO)
6864 {
6865 DEBUG_LAPACK_STUB("dlasq2");
6866 LAPACK_IMPL(dlasq2)(N,
6867 Z,
6868 INFO);
6869 }
6870
6871 //-- dlasq3 --------------------------------------------------------------------
6872 void
6873 LAPACK_DECL(dlasq3)(const INTEGER *I0,
6874 INTEGER *N0,
6875 const DOUBLE *Z,
6876 INTEGER *PP,
6877 DOUBLE *DMIN,
6878 DOUBLE *SIGMA,
6879 DOUBLE *DESIG,
6880 const DOUBLE *QMAX,
6881 INTEGER *NFAIL,
6882 INTEGER *ITER,
6883 INTEGER *NDIV,
6884 const LOGICAL *IEEE,
6885 INTEGER *TTYPE,
6886 DOUBLE *DMIN1,
6887 DOUBLE *DMIN2,
6888 DOUBLE *DN,
6889 DOUBLE *DN1,
6890 DOUBLE *DN2,
6891 DOUBLE *G,
6892 DOUBLE *TAU)
6893 {
6894 DEBUG_LAPACK_STUB("dlasq3");
6895 LAPACK_IMPL(dlasq3)(I0,
6896 N0,
6897 Z,
6898 PP,
6899 DMIN,
6900 SIGMA,
6901 DESIG,
6902 QMAX,
6903 NFAIL,
6904 ITER,
6905 NDIV,
6906 IEEE,
6907 TTYPE,
6908 DMIN1,
6909 DMIN2,
6910 DN,
6911 DN1,
6912 DN2,
6913 G,
6914 TAU);
6915 }
6916
6917 //-- dlasq4 --------------------------------------------------------------------
6918 void
6919 LAPACK_DECL(dlasq4)(const INTEGER *I0,
6920 const INTEGER *N0,
6921 const DOUBLE *Z,
6922 const INTEGER *PP,
6923 const INTEGER *N0IN,
6924 const DOUBLE *DMIN,
6925 const DOUBLE *DMIN1,
6926 const DOUBLE *DMIN2,
6927 const DOUBLE *DN,
6928 const DOUBLE *DN1,
6929 const DOUBLE *DN2,
6930 DOUBLE *TAU,
6931 INTEGER *TTYPE,
6932 DOUBLE *G)
6933 {
6934 DEBUG_LAPACK_STUB("dlasq4");
6935 LAPACK_IMPL(dlasq4)(I0,
6936 N0,
6937 Z,
6938 PP,
6939 N0IN,
6940 DMIN,
6941 DMIN1,
6942 DMIN2,
6943 DN,
6944 DN1,
6945 DN2,
6946 TAU,
6947 TTYPE,
6948 G);
6949 }
6950
6951 //-- dlasq5 --------------------------------------------------------------------
6952 void
6953 LAPACK_DECL(dlasq5)(const INTEGER *I0,
6954 const INTEGER *N0,
6955 const DOUBLE *Z,
6956 const INTEGER *PP,
6957 const DOUBLE *TAU,
6958 DOUBLE *DMIN,
6959 DOUBLE *DMIN1,
6960 DOUBLE *DMIN2,
6961 DOUBLE *DN,
6962 DOUBLE *DNM1,
6963 DOUBLE *DNM2,
6964 const LOGICAL *IEEE)
6965 {
6966 DEBUG_LAPACK_STUB("dlasq5");
6967 LAPACK_IMPL(dlasq5)(I0,
6968 N0,
6969 Z,
6970 PP,
6971 TAU,
6972 DMIN,
6973 DMIN1,
6974 DMIN2,
6975 DN,
6976 DNM1,
6977 DNM2,
6978 IEEE);
6979 }
6980
6981 //-- dlasq6 --------------------------------------------------------------------
6982 void
6983 LAPACK_DECL(dlasq6)(const INTEGER *I0,
6984 const INTEGER *N0,
6985 const DOUBLE *Z,
6986 const INTEGER *PP,
6987 DOUBLE *DMIN,
6988 DOUBLE *DMIN1,
6989 DOUBLE *DMIN2,
6990 DOUBLE *DN,
6991 DOUBLE *DNM1,
6992 DOUBLE *DNM2)
6993 {
6994 DEBUG_LAPACK_STUB("dlasq6");
6995 LAPACK_IMPL(dlasq6)(I0,
6996 N0,
6997 Z,
6998 PP,
6999 DMIN,
7000 DMIN1,
7001 DMIN2,
7002 DN,
7003 DNM1,
7004 DNM2);
7005 }
7006
7007 //-- dlasr ---------------------------------------------------------------------
7008 void
7009 LAPACK_DECL(dlasr)(const char *SIDE,
7010 const char *PIVOT,
7011 const char *DIRECT,
7012 const INTEGER *M,
7013 const INTEGER *N,
7014 const DOUBLE *C,
7015 const DOUBLE *S,
7016 DOUBLE *A,
7017 const INTEGER *LDA)
7018 {
7019 DEBUG_LAPACK_STUB("dlasr");
7020 LAPACK_IMPL(dlasr)(SIDE,
7021 PIVOT,
7022 DIRECT,
7023 M,
7024 N,
7025 C,
7026 S,
7027 A,
7028 LDA);
7029 }
7030
7031 //-- dlasrt --------------------------------------------------------------------
7032 void
7033 LAPACK_DECL(dlasrt)(const char *ID,
7034 const INTEGER *N,
7035 DOUBLE *D,
7036 INTEGER *INFO)
7037 {
7038 DEBUG_LAPACK_STUB("dlasrt");
7039 LAPACK_IMPL(dlasrt)(ID,
7040 N,
7041 D,
7042 INFO);
7043 }
7044
7045 //-- dlassq --------------------------------------------------------------------
7046 void
7047 LAPACK_DECL(dlassq)(const INTEGER *N,
7048 const DOUBLE *X,
7049 const INTEGER *INCX,
7050 DOUBLE *SCALE,
7051 DOUBLE *SUMSQ)
7052 {
7053 DEBUG_LAPACK_STUB("dlassq");
7054 LAPACK_IMPL(dlassq)(N,
7055 X,
7056 INCX,
7057 SCALE,
7058 SUMSQ);
7059 }
7060
7061 //-- dlasv2 --------------------------------------------------------------------
7062 void
7063 LAPACK_DECL(dlasv2)(const DOUBLE *F,
7064 const DOUBLE *G,
7065 const DOUBLE *H,
7066 DOUBLE *SSMIN,
7067 DOUBLE *SSMAX,
7068 DOUBLE *SNR,
7069 DOUBLE *CSR,
7070 DOUBLE *SNL,
7071 DOUBLE *CSL)
7072 {
7073 DEBUG_LAPACK_STUB("dlasv2");
7074 LAPACK_IMPL(dlasv2)(F,
7075 G,
7076 H,
7077 SSMIN,
7078 SSMAX,
7079 SNR,
7080 CSR,
7081 SNL,
7082 CSL);
7083 }
7084
7085 //-- dlaswp --------------------------------------------------------------------
7086 void
7087 LAPACK_DECL(dlaswp)(const INTEGER *N,
7088 DOUBLE *A,
7089 const INTEGER *LDA,
7090 const INTEGER *K1,
7091 const INTEGER *K2,
7092 const INTEGER *IPIV,
7093 const INTEGER *INCX)
7094 {
7095 DEBUG_LAPACK_STUB("dlaswp");
7096 LAPACK_IMPL(dlaswp)(N,
7097 A,
7098 LDA,
7099 K1,
7100 K2,
7101 IPIV,
7102 INCX);
7103 }
7104
7105 //-- dlasy2 --------------------------------------------------------------------
7106 void
7107 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
7108 const LOGICAL *LTRANR,
7109 const INTEGER *ISGN,
7110 const INTEGER *N1,
7111 const INTEGER *N2,
7112 const DOUBLE *TL,
7113 const INTEGER *LDTL,
7114 const DOUBLE *TR,
7115 const INTEGER *LDTR,
7116 const DOUBLE *B,
7117 const INTEGER *LDB,
7118 DOUBLE *SCALE,
7119 DOUBLE *X,
7120 const INTEGER *LDX,
7121 DOUBLE *XNORM,
7122 INTEGER *INFO)
7123 {
7124 DEBUG_LAPACK_STUB("dlasy2");
7125 LAPACK_IMPL(dlasy2)(LTRANL,
7126 LTRANR,
7127 ISGN,
7128 N1,
7129 N2,
7130 TL,
7131 LDTL,
7132 TR,
7133 LDTR,
7134 B,
7135 LDB,
7136 SCALE,
7137 X,
7138 LDX,
7139 XNORM,
7140 INFO);
7141 }
7142
7143 //-- dlasyf --------------------------------------------------------------------
7144 void
7145 LAPACK_DECL(dlasyf)(const char *UPLO,
7146 const INTEGER *N,
7147 const INTEGER *NB,
7148 INTEGER *KB,
7149 DOUBLE *A,
7150 const INTEGER *LDA,
7151 INTEGER *IPIV,
7152 const DOUBLE *W,
7153 const INTEGER *LDW,
7154 INTEGER *INFO)
7155 {
7156 DEBUG_LAPACK_STUB("dlasyf");
7157 LAPACK_IMPL(dlasyf)(UPLO,
7158 N,
7159 NB,
7160 KB,
7161 A,
7162 LDA,
7163 IPIV,
7164 W,
7165 LDW,
7166 INFO);
7167 }
7168
7169 //-- dlat2s --------------------------------------------------------------------
7170 void
7171 LAPACK_DECL(dlat2s)(const char *UPLO,
7172 const INTEGER *N,
7173 const DOUBLE *A,
7174 const INTEGER *LDA,
7175 FLOAT *SA,
7176 const INTEGER *LDSA,
7177 INTEGER *INFO)
7178 {
7179 DEBUG_LAPACK_STUB("dlat2s");
7180 LAPACK_IMPL(dlat2s)(UPLO,
7181 N,
7182 A,
7183 LDA,
7184 SA,
7185 LDSA,
7186 INFO);
7187 }
7188
7189 //-- dlatbs --------------------------------------------------------------------
7190 void
7191 LAPACK_DECL(dlatbs)(const char *UPLO,
7192 const char *TRANS,
7193 const char *DIAG,
7194 const char *NORMIN,
7195 const INTEGER *N,
7196 const INTEGER *KD,
7197 const DOUBLE *AB,
7198 const INTEGER *LDAB,
7199 DOUBLE *X,
7200 DOUBLE *SCALE,
7201 DOUBLE *CNORM,
7202 INTEGER *INFO)
7203 {
7204 DEBUG_LAPACK_STUB("dlatbs");
7205 LAPACK_IMPL(dlatbs)(UPLO,
7206 TRANS,
7207 DIAG,
7208 NORMIN,
7209 N,
7210 KD,
7211 AB,
7212 LDAB,
7213 X,
7214 SCALE,
7215 CNORM,
7216 INFO);
7217 }
7218
7219 //-- dlatdf --------------------------------------------------------------------
7220 void
7221 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
7222 const INTEGER *N,
7223 const DOUBLE *Z,
7224 const INTEGER *LDZ,
7225 DOUBLE *RHS,
7226 DOUBLE *RDSUM,
7227 DOUBLE *RDSCAL,
7228 const INTEGER *IPIV,
7229 const INTEGER *JPIV)
7230 {
7231 DEBUG_LAPACK_STUB("dlatdf");
7232 LAPACK_IMPL(dlatdf)(IJOB,
7233 N,
7234 Z,
7235 LDZ,
7236 RHS,
7237 RDSUM,
7238 RDSCAL,
7239 IPIV,
7240 JPIV);
7241 }
7242
7243 //-- dlatps --------------------------------------------------------------------
7244 void
7245 LAPACK_DECL(dlatps)(const char *UPLO,
7246 const char *TRANS,
7247 const char *DIAG,
7248 const char *NORMIN,
7249 const INTEGER *N,
7250 const DOUBLE *AP,
7251 DOUBLE *X,
7252 DOUBLE *SCALE,
7253 DOUBLE *CNORM,
7254 INTEGER *INFO)
7255 {
7256 DEBUG_LAPACK_STUB("dlatps");
7257 LAPACK_IMPL(dlatps)(UPLO,
7258 TRANS,
7259 DIAG,
7260 NORMIN,
7261 N,
7262 AP,
7263 X,
7264 SCALE,
7265 CNORM,
7266 INFO);
7267 }
7268
7269 //-- dlatrd --------------------------------------------------------------------
7270 void
7271 LAPACK_DECL(dlatrd)(const char *UPLO,
7272 const INTEGER *N,
7273 const INTEGER *NB,
7274 DOUBLE *A,
7275 const INTEGER *LDA,
7276 DOUBLE *E,
7277 DOUBLE *TAU,
7278 DOUBLE *W,
7279 const INTEGER *LDW)
7280 {
7281 DEBUG_LAPACK_STUB("dlatrd");
7282 LAPACK_IMPL(dlatrd)(UPLO,
7283 N,
7284 NB,
7285 A,
7286 LDA,
7287 E,
7288 TAU,
7289 W,
7290 LDW);
7291 }
7292
7293 //-- dlatrs --------------------------------------------------------------------
7294 void
7295 LAPACK_DECL(dlatrs)(const char *UPLO,
7296 const char *TRANS,
7297 const char *DIAG,
7298 const char *NORMIN,
7299 const INTEGER *N,
7300 const DOUBLE *A,
7301 const INTEGER *LDA,
7302 DOUBLE *X,
7303 DOUBLE *SCALE,
7304 DOUBLE *CNORM,
7305 INTEGER *INFO)
7306 {
7307 DEBUG_LAPACK_STUB("dlatrs");
7308 LAPACK_IMPL(dlatrs)(UPLO,
7309 TRANS,
7310 DIAG,
7311 NORMIN,
7312 N,
7313 A,
7314 LDA,
7315 X,
7316 SCALE,
7317 CNORM,
7318 INFO);
7319 }
7320
7321 //-- dlatrz --------------------------------------------------------------------
7322 void
7323 LAPACK_DECL(dlatrz)(const INTEGER *M,
7324 const INTEGER *N,
7325 const INTEGER *L,
7326 DOUBLE *A,
7327 const INTEGER *LDA,
7328 DOUBLE *TAU,
7329 const DOUBLE *WORK)
7330 {
7331 DEBUG_LAPACK_STUB("dlatrz");
7332 LAPACK_IMPL(dlatrz)(M,
7333 N,
7334 L,
7335 A,
7336 LDA,
7337 TAU,
7338 WORK);
7339 }
7340
7341 //-- dlatzm --------------------------------------------------------------------
7342 void
7343 LAPACK_DECL(dlatzm)(const char *SIDE,
7344 const INTEGER *M,
7345 const INTEGER *N,
7346 const DOUBLE *V,
7347 const INTEGER *INCV,
7348 const DOUBLE *TAU,
7349 DOUBLE *C1,
7350 DOUBLE *C2,
7351 const INTEGER *LDC,
7352 const DOUBLE *WORK)
7353 {
7354 DEBUG_LAPACK_STUB("dlatzm");
7355 LAPACK_IMPL(dlatzm)(SIDE,
7356 M,
7357 N,
7358 V,
7359 INCV,
7360 TAU,
7361 C1,
7362 C2,
7363 LDC,
7364 WORK);
7365 }
7366
7367 //-- dlauu2 --------------------------------------------------------------------
7368 void
7369 LAPACK_DECL(dlauu2)(const char *UPLO,
7370 const INTEGER *N,
7371 DOUBLE *A,
7372 const INTEGER *LDA,
7373 INTEGER *INFO)
7374 {
7375 DEBUG_LAPACK_STUB("dlauu2");
7376 LAPACK_IMPL(dlauu2)(UPLO,
7377 N,
7378 A,
7379 LDA,
7380 INFO);
7381 }
7382
7383 //-- dlauum --------------------------------------------------------------------
7384 void
7385 LAPACK_DECL(dlauum)(const char *UPLO,
7386 const INTEGER *N,
7387 DOUBLE *A,
7388 const INTEGER *LDA,
7389 INTEGER *INFO)
7390 {
7391 DEBUG_LAPACK_STUB("dlauum");
7392 LAPACK_IMPL(dlauum)(UPLO,
7393 N,
7394 A,
7395 LDA,
7396 INFO);
7397 }
7398
7399 //-- dopgtr --------------------------------------------------------------------
7400 void
7401 LAPACK_DECL(dopgtr)(const char *UPLO,
7402 const INTEGER *N,
7403 const DOUBLE *AP,
7404 const DOUBLE *TAU,
7405 DOUBLE *Q,
7406 const INTEGER *LDQ,
7407 const DOUBLE *WORK,
7408 INTEGER *INFO)
7409 {
7410 DEBUG_LAPACK_STUB("dopgtr");
7411 LAPACK_IMPL(dopgtr)(UPLO,
7412 N,
7413 AP,
7414 TAU,
7415 Q,
7416 LDQ,
7417 WORK,
7418 INFO);
7419 }
7420
7421 //-- dopmtr --------------------------------------------------------------------
7422 void
7423 LAPACK_DECL(dopmtr)(const char *SIDE,
7424 const char *UPLO,
7425 const char *TRANS,
7426 const INTEGER *M,
7427 const INTEGER *N,
7428 const DOUBLE *AP,
7429 const DOUBLE *TAU,
7430 DOUBLE *C,
7431 const INTEGER *LDC,
7432 const DOUBLE *WORK,
7433 INTEGER *INFO)
7434 {
7435 DEBUG_LAPACK_STUB("dopmtr");
7436 LAPACK_IMPL(dopmtr)(SIDE,
7437 UPLO,
7438 TRANS,
7439 M,
7440 N,
7441 AP,
7442 TAU,
7443 C,
7444 LDC,
7445 WORK,
7446 INFO);
7447 }
7448
7449 //-- dorbdb --------------------------------------------------------------------
7450 void
7451 LAPACK_DECL(dorbdb)(const char *TRANS,
7452 const char *SIGNS,
7453 const INTEGER *M,
7454 const INTEGER *P,
7455 const INTEGER *Q,
7456 DOUBLE *X11,
7457 const INTEGER *LDX11,
7458 DOUBLE *X12,
7459 const INTEGER *LDX12,
7460 DOUBLE *X21,
7461 const INTEGER *LDX21,
7462 DOUBLE *X22,
7463 const INTEGER *LDX22,
7464 DOUBLE *THETA,
7465 DOUBLE *PHI,
7466 DOUBLE *TAUP1,
7467 DOUBLE *TAUP2,
7468 DOUBLE *TAUQ1,
7469 DOUBLE *TAUQ2,
7470 const DOUBLE *WORK,
7471 const INTEGER *LWORK,
7472 INTEGER *INFO)
7473 {
7474 DEBUG_LAPACK_STUB("dorbdb");
7475 LAPACK_IMPL(dorbdb)(TRANS,
7476 SIGNS,
7477 M,
7478 P,
7479 Q,
7480 X11,
7481 LDX11,
7482 X12,
7483 LDX12,
7484 X21,
7485 LDX21,
7486 X22,
7487 LDX22,
7488 THETA,
7489 PHI,
7490 TAUP1,
7491 TAUP2,
7492 TAUQ1,
7493 TAUQ2,
7494 WORK,
7495 LWORK,
7496 INFO);
7497 }
7498
7499 //-- dorcsd --------------------------------------------------------------------
7500 void
7501 LAPACK_DECL(dorcsd)(const char *JOBU1,
7502 const char *JOBU2,
7503 const char *JOBV1T,
7504 const char *JOBV2T,
7505 const char *TRANS,
7506 const char *SIGNS,
7507 const INTEGER *M,
7508 const INTEGER *P,
7509 const INTEGER *Q,
7510 const DOUBLE *X11,
7511 const INTEGER *LDX11,
7512 const DOUBLE *X12,
7513 const INTEGER *LDX12,
7514 const DOUBLE *X21,
7515 const INTEGER *LDX21,
7516 const DOUBLE *X22,
7517 const INTEGER *LDX22,
7518 DOUBLE *THETA,
7519 DOUBLE *U1,
7520 const INTEGER *LDU1,
7521 DOUBLE *U2,
7522 const INTEGER *LDU2,
7523 DOUBLE *V1T,
7524 const INTEGER *LDV1T,
7525 DOUBLE *V2T,
7526 const INTEGER *LDV2T,
7527 const DOUBLE *WORK,
7528 const INTEGER *LWORK,
7529 const INTEGER *IWORK,
7530 INTEGER *INFO)
7531 {
7532 DEBUG_LAPACK_STUB("dorcsd");
7533 LAPACK_IMPL(dorcsd)(JOBU1,
7534 JOBU2,
7535 JOBV1T,
7536 JOBV2T,
7537 TRANS,
7538 SIGNS,
7539 M,
7540 P,
7541 Q,
7542 X11,
7543 LDX11,
7544 X12,
7545 LDX12,
7546 X21,
7547 LDX21,
7548 X22,
7549 LDX22,
7550 THETA,
7551 U1,
7552 LDU1,
7553 U2,
7554 LDU2,
7555 V1T,
7556 LDV1T,
7557 V2T,
7558 LDV2T,
7559 WORK,
7560 LWORK,
7561 IWORK,
7562 INFO);
7563 }
7564
7565 //-- dorg2l --------------------------------------------------------------------
7566 void
7567 LAPACK_DECL(dorg2l)(const INTEGER *M,
7568 const INTEGER *N,
7569 const INTEGER *K,
7570 DOUBLE *A,
7571 const INTEGER *LDA,
7572 const DOUBLE *TAU,
7573 const DOUBLE *WORK,
7574 INTEGER *INFO)
7575 {
7576 DEBUG_LAPACK_STUB("dorg2l");
7577 LAPACK_IMPL(dorg2l)(M,
7578 N,
7579 K,
7580 A,
7581 LDA,
7582 TAU,
7583 WORK,
7584 INFO);
7585 }
7586
7587 //-- dorg2r --------------------------------------------------------------------
7588 void
7589 LAPACK_DECL(dorg2r)(const INTEGER *M,
7590 const INTEGER *N,
7591 const INTEGER *K,
7592 DOUBLE *A,
7593 const INTEGER *LDA,
7594 const DOUBLE *TAU,
7595 const DOUBLE *WORK,
7596 INTEGER *INFO)
7597 {
7598 DEBUG_LAPACK_STUB("dorg2r");
7599 LAPACK_IMPL(dorg2r)(M,
7600 N,
7601 K,
7602 A,
7603 LDA,
7604 TAU,
7605 WORK,
7606 INFO);
7607 }
7608
7609 //-- dorgbr --------------------------------------------------------------------
7610 void
7611 LAPACK_DECL(dorgbr)(const char *VECT,
7612 const INTEGER *M,
7613 const INTEGER *N,
7614 const INTEGER *K,
7615 DOUBLE *A,
7616 const INTEGER *LDA,
7617 const DOUBLE *TAU,
7618 DOUBLE *WORK,
7619 const INTEGER *LWORK,
7620 INTEGER *INFO)
7621 {
7622 DEBUG_LAPACK_STUB("dorgbr");
7623 LAPACK_IMPL(dorgbr)(VECT,
7624 M,
7625 N,
7626 K,
7627 A,
7628 LDA,
7629 TAU,
7630 WORK,
7631 LWORK,
7632 INFO);
7633 }
7634
7635 //-- dorghr --------------------------------------------------------------------
7636 void
7637 LAPACK_DECL(dorghr)(const INTEGER *N,
7638 const INTEGER *ILO,
7639 const INTEGER *IHI,
7640 DOUBLE *A,
7641 const INTEGER *LDA,
7642 const DOUBLE *TAU,
7643 DOUBLE *WORK,
7644 const INTEGER *LWORK,
7645 INTEGER *INFO)
7646 {
7647 DEBUG_LAPACK_STUB("dorghr");
7648 LAPACK_IMPL(dorghr)(N,
7649 ILO,
7650 IHI,
7651 A,
7652 LDA,
7653 TAU,
7654 WORK,
7655 LWORK,
7656 INFO);
7657 }
7658
7659 //-- dorgl2 --------------------------------------------------------------------
7660 void
7661 LAPACK_DECL(dorgl2)(const INTEGER *M,
7662 const INTEGER *N,
7663 const INTEGER *K,
7664 DOUBLE *A,
7665 const INTEGER *LDA,
7666 const DOUBLE *TAU,
7667 const DOUBLE *WORK,
7668 INTEGER *INFO)
7669 {
7670 DEBUG_LAPACK_STUB("dorgl2");
7671 LAPACK_IMPL(dorgl2)(M,
7672 N,
7673 K,
7674 A,
7675 LDA,
7676 TAU,
7677 WORK,
7678 INFO);
7679 }
7680
7681 //-- dorglq --------------------------------------------------------------------
7682 void
7683 LAPACK_DECL(dorglq)(const INTEGER *M,
7684 const INTEGER *N,
7685 const INTEGER *K,
7686 DOUBLE *A,
7687 const INTEGER *LDA,
7688 const DOUBLE *TAU,
7689 DOUBLE *WORK,
7690 const INTEGER *LWORK,
7691 INTEGER *INFO)
7692 {
7693 DEBUG_LAPACK_STUB("dorglq");
7694 LAPACK_IMPL(dorglq)(M,
7695 N,
7696 K,
7697 A,
7698 LDA,
7699 TAU,
7700 WORK,
7701 LWORK,
7702 INFO);
7703 }
7704
7705 //-- dorgql --------------------------------------------------------------------
7706 void
7707 LAPACK_DECL(dorgql)(const INTEGER *M,
7708 const INTEGER *N,
7709 const INTEGER *K,
7710 DOUBLE *A,
7711 const INTEGER *LDA,
7712 const DOUBLE *TAU,
7713 DOUBLE *WORK,
7714 const INTEGER *LWORK,
7715 INTEGER *INFO)
7716 {
7717 DEBUG_LAPACK_STUB("dorgql");
7718 LAPACK_IMPL(dorgql)(M,
7719 N,
7720 K,
7721 A,
7722 LDA,
7723 TAU,
7724 WORK,
7725 LWORK,
7726 INFO);
7727 }
7728
7729 //-- dorgqr --------------------------------------------------------------------
7730 void
7731 LAPACK_DECL(dorgqr)(const INTEGER *M,
7732 const INTEGER *N,
7733 const INTEGER *K,
7734 DOUBLE *A,
7735 const INTEGER *LDA,
7736 const DOUBLE *TAU,
7737 DOUBLE *WORK,
7738 const INTEGER *LWORK,
7739 INTEGER *INFO)
7740 {
7741 DEBUG_LAPACK_STUB("dorgqr");
7742 LAPACK_IMPL(dorgqr)(M,
7743 N,
7744 K,
7745 A,
7746 LDA,
7747 TAU,
7748 WORK,
7749 LWORK,
7750 INFO);
7751 }
7752
7753 //-- dorgr2 --------------------------------------------------------------------
7754 void
7755 LAPACK_DECL(dorgr2)(const INTEGER *M,
7756 const INTEGER *N,
7757 const INTEGER *K,
7758 DOUBLE *A,
7759 const INTEGER *LDA,
7760 const DOUBLE *TAU,
7761 const DOUBLE *WORK,
7762 INTEGER *INFO)
7763 {
7764 DEBUG_LAPACK_STUB("dorgr2");
7765 LAPACK_IMPL(dorgr2)(M,
7766 N,
7767 K,
7768 A,
7769 LDA,
7770 TAU,
7771 WORK,
7772 INFO);
7773 }
7774
7775 //-- dorgrq --------------------------------------------------------------------
7776 void
7777 LAPACK_DECL(dorgrq)(const INTEGER *M,
7778 const INTEGER *N,
7779 const INTEGER *K,
7780 DOUBLE *A,
7781 const INTEGER *LDA,
7782 const DOUBLE *TAU,
7783 DOUBLE *WORK,
7784 const INTEGER *LWORK,
7785 INTEGER *INFO)
7786 {
7787 DEBUG_LAPACK_STUB("dorgrq");
7788 LAPACK_IMPL(dorgrq)(M,
7789 N,
7790 K,
7791 A,
7792 LDA,
7793 TAU,
7794 WORK,
7795 LWORK,
7796 INFO);
7797 }
7798
7799 //-- dorgtr --------------------------------------------------------------------
7800 void
7801 LAPACK_DECL(dorgtr)(const char *UPLO,
7802 const INTEGER *N,
7803 DOUBLE *A,
7804 const INTEGER *LDA,
7805 const DOUBLE *TAU,
7806 DOUBLE *WORK,
7807 const INTEGER *LWORK,
7808 INTEGER *INFO)
7809 {
7810 DEBUG_LAPACK_STUB("dorgtr");
7811 LAPACK_IMPL(dorgtr)(UPLO,
7812 N,
7813 A,
7814 LDA,
7815 TAU,
7816 WORK,
7817 LWORK,
7818 INFO);
7819 }
7820
7821 //-- dorm2l --------------------------------------------------------------------
7822 void
7823 LAPACK_DECL(dorm2l)(const char *SIDE,
7824 const char *TRANS,
7825 const INTEGER *M,
7826 const INTEGER *N,
7827 const INTEGER *K,
7828 const DOUBLE *A,
7829 const INTEGER *LDA,
7830 const DOUBLE *TAU,
7831 DOUBLE *C,
7832 const INTEGER *LDC,
7833 const DOUBLE *WORK,
7834 INTEGER *INFO)
7835 {
7836 DEBUG_LAPACK_STUB("dorm2l");
7837 LAPACK_IMPL(dorm2l)(SIDE,
7838 TRANS,
7839 M,
7840 N,
7841 K,
7842 A,
7843 LDA,
7844 TAU,
7845 C,
7846 LDC,
7847 WORK,
7848 INFO);
7849 }
7850
7851 //-- dorm2r --------------------------------------------------------------------
7852 void
7853 LAPACK_DECL(dorm2r)(const char *SIDE,
7854 const char *TRANS,
7855 const INTEGER *M,
7856 const INTEGER *N,
7857 const INTEGER *K,
7858 const DOUBLE *A,
7859 const INTEGER *LDA,
7860 const DOUBLE *TAU,
7861 DOUBLE *C,
7862 const INTEGER *LDC,
7863 const DOUBLE *WORK,
7864 INTEGER *INFO)
7865 {
7866 DEBUG_LAPACK_STUB("dorm2r");
7867 LAPACK_IMPL(dorm2r)(SIDE,
7868 TRANS,
7869 M,
7870 N,
7871 K,
7872 A,
7873 LDA,
7874 TAU,
7875 C,
7876 LDC,
7877 WORK,
7878 INFO);
7879 }
7880
7881 //-- dormbr --------------------------------------------------------------------
7882 void
7883 LAPACK_DECL(dormbr)(const char *VECT,
7884 const char *SIDE,
7885 const char *TRANS,
7886 const INTEGER *M,
7887 const INTEGER *N,
7888 const INTEGER *K,
7889 const DOUBLE *A,
7890 const INTEGER *LDA,
7891 const DOUBLE *TAU,
7892 DOUBLE *C,
7893 const INTEGER *LDC,
7894 DOUBLE *WORK,
7895 const INTEGER *LWORK,
7896 INTEGER *INFO)
7897 {
7898 DEBUG_LAPACK_STUB("dormbr");
7899 LAPACK_IMPL(dormbr)(VECT,
7900 SIDE,
7901 TRANS,
7902 M,
7903 N,
7904 K,
7905 A,
7906 LDA,
7907 TAU,
7908 C,
7909 LDC,
7910 WORK,
7911 LWORK,
7912 INFO);
7913 }
7914
7915 //-- dormhr --------------------------------------------------------------------
7916 void
7917 LAPACK_DECL(dormhr)(const char *SIDE,
7918 const char *TRANS,
7919 const INTEGER *M,
7920 const INTEGER *N,
7921 const INTEGER *ILO,
7922 const INTEGER *IHI,
7923 const DOUBLE *A,
7924 const INTEGER *LDA,
7925 const DOUBLE *TAU,
7926 DOUBLE *C,
7927 const INTEGER *LDC,
7928 DOUBLE *WORK,
7929 const INTEGER *LWORK,
7930 INTEGER *INFO)
7931 {
7932 DEBUG_LAPACK_STUB("dormhr");
7933 LAPACK_IMPL(dormhr)(SIDE,
7934 TRANS,
7935 M,
7936 N,
7937 ILO,
7938 IHI,
7939 A,
7940 LDA,
7941 TAU,
7942 C,
7943 LDC,
7944 WORK,
7945 LWORK,
7946 INFO);
7947 }
7948
7949 //-- dorml2 --------------------------------------------------------------------
7950 void
7951 LAPACK_DECL(dorml2)(const char *SIDE,
7952 const char *TRANS,
7953 const INTEGER *M,
7954 const INTEGER *N,
7955 const INTEGER *K,
7956 const DOUBLE *A,
7957 const INTEGER *LDA,
7958 const DOUBLE *TAU,
7959 DOUBLE *C,
7960 const INTEGER *LDC,
7961 const DOUBLE *WORK,
7962 INTEGER *INFO)
7963 {
7964 DEBUG_LAPACK_STUB("dorml2");
7965 LAPACK_IMPL(dorml2)(SIDE,
7966 TRANS,
7967 M,
7968 N,
7969 K,
7970 A,
7971 LDA,
7972 TAU,
7973 C,
7974 LDC,
7975 WORK,
7976 INFO);
7977 }
7978
7979 //-- dormlq --------------------------------------------------------------------
7980 void
7981 LAPACK_DECL(dormlq)(const char *SIDE,
7982 const char *TRANS,
7983 const INTEGER *M,
7984 const INTEGER *N,
7985 const INTEGER *K,
7986 const DOUBLE *A,
7987 const INTEGER *LDA,
7988 const DOUBLE *TAU,
7989 DOUBLE *C,
7990 const INTEGER *LDC,
7991 DOUBLE *WORK,
7992 const INTEGER *LWORK,
7993 INTEGER *INFO)
7994 {
7995 DEBUG_LAPACK_STUB("dormlq");
7996 LAPACK_IMPL(dormlq)(SIDE,
7997 TRANS,
7998 M,
7999 N,
8000 K,
8001 A,
8002 LDA,
8003 TAU,
8004 C,
8005 LDC,
8006 WORK,
8007 LWORK,
8008 INFO);
8009 }
8010
8011 //-- dormql --------------------------------------------------------------------
8012 void
8013 LAPACK_DECL(dormql)(const char *SIDE,
8014 const char *TRANS,
8015 const INTEGER *M,
8016 const INTEGER *N,
8017 const INTEGER *K,
8018 const DOUBLE *A,
8019 const INTEGER *LDA,
8020 const DOUBLE *TAU,
8021 DOUBLE *C,
8022 const INTEGER *LDC,
8023 DOUBLE *WORK,
8024 const INTEGER *LWORK,
8025 INTEGER *INFO)
8026 {
8027 DEBUG_LAPACK_STUB("dormql");
8028 LAPACK_IMPL(dormql)(SIDE,
8029 TRANS,
8030 M,
8031 N,
8032 K,
8033 A,
8034 LDA,
8035 TAU,
8036 C,
8037 LDC,
8038 WORK,
8039 LWORK,
8040 INFO);
8041 }
8042
8043 //-- dormqr --------------------------------------------------------------------
8044 void
8045 LAPACK_DECL(dormqr)(const char *SIDE,
8046 const char *TRANS,
8047 const INTEGER *M,
8048 const INTEGER *N,
8049 const INTEGER *K,
8050 const DOUBLE *A,
8051 const INTEGER *LDA,
8052 const DOUBLE *TAU,
8053 DOUBLE *C,
8054 const INTEGER *LDC,
8055 DOUBLE *WORK,
8056 const INTEGER *LWORK,
8057 INTEGER *INFO)
8058 {
8059 DEBUG_LAPACK_STUB("dormqr");
8060 LAPACK_IMPL(dormqr)(SIDE,
8061 TRANS,
8062 M,
8063 N,
8064 K,
8065 A,
8066 LDA,
8067 TAU,
8068 C,
8069 LDC,
8070 WORK,
8071 LWORK,
8072 INFO);
8073 }
8074
8075 //-- dormr2 --------------------------------------------------------------------
8076 void
8077 LAPACK_DECL(dormr2)(const char *SIDE,
8078 const char *TRANS,
8079 const INTEGER *M,
8080 const INTEGER *N,
8081 const INTEGER *K,
8082 const DOUBLE *A,
8083 const INTEGER *LDA,
8084 const DOUBLE *TAU,
8085 DOUBLE *C,
8086 const INTEGER *LDC,
8087 const DOUBLE *WORK,
8088 INTEGER *INFO)
8089 {
8090 DEBUG_LAPACK_STUB("dormr2");
8091 LAPACK_IMPL(dormr2)(SIDE,
8092 TRANS,
8093 M,
8094 N,
8095 K,
8096 A,
8097 LDA,
8098 TAU,
8099 C,
8100 LDC,
8101 WORK,
8102 INFO);
8103 }
8104
8105 //-- dormr3 --------------------------------------------------------------------
8106 void
8107 LAPACK_DECL(dormr3)(const char *SIDE,
8108 const char *TRANS,
8109 const INTEGER *M,
8110 const INTEGER *N,
8111 const INTEGER *K,
8112 const INTEGER *L,
8113 const DOUBLE *A,
8114 const INTEGER *LDA,
8115 const DOUBLE *TAU,
8116 DOUBLE *C,
8117 const INTEGER *LDC,
8118 const DOUBLE *WORK,
8119 INTEGER *INFO)
8120 {
8121 DEBUG_LAPACK_STUB("dormr3");
8122 LAPACK_IMPL(dormr3)(SIDE,
8123 TRANS,
8124 M,
8125 N,
8126 K,
8127 L,
8128 A,
8129 LDA,
8130 TAU,
8131 C,
8132 LDC,
8133 WORK,
8134 INFO);
8135 }
8136
8137 //-- dormrq --------------------------------------------------------------------
8138 void
8139 LAPACK_DECL(dormrq)(const char *SIDE,
8140 const char *TRANS,
8141 const INTEGER *M,
8142 const INTEGER *N,
8143 const INTEGER *K,
8144 const DOUBLE *A,
8145 const INTEGER *LDA,
8146 const DOUBLE *TAU,
8147 DOUBLE *C,
8148 const INTEGER *LDC,
8149 DOUBLE *WORK,
8150 const INTEGER *LWORK,
8151 INTEGER *INFO)
8152 {
8153 DEBUG_LAPACK_STUB("dormrq");
8154 LAPACK_IMPL(dormrq)(SIDE,
8155 TRANS,
8156 M,
8157 N,
8158 K,
8159 A,
8160 LDA,
8161 TAU,
8162 C,
8163 LDC,
8164 WORK,
8165 LWORK,
8166 INFO);
8167 }
8168
8169 //-- dormrz --------------------------------------------------------------------
8170 void
8171 LAPACK_DECL(dormrz)(const char *SIDE,
8172 const char *TRANS,
8173 const INTEGER *M,
8174 const INTEGER *N,
8175 const INTEGER *K,
8176 const INTEGER *L,
8177 const DOUBLE *A,
8178 const INTEGER *LDA,
8179 const DOUBLE *TAU,
8180 DOUBLE *C,
8181 const INTEGER *LDC,
8182 DOUBLE *WORK,
8183 const INTEGER *LWORK,
8184 INTEGER *INFO)
8185 {
8186 DEBUG_LAPACK_STUB("dormrz");
8187 LAPACK_IMPL(dormrz)(SIDE,
8188 TRANS,
8189 M,
8190 N,
8191 K,
8192 L,
8193 A,
8194 LDA,
8195 TAU,
8196 C,
8197 LDC,
8198 WORK,
8199 LWORK,
8200 INFO);
8201 }
8202
8203 //-- dormtr --------------------------------------------------------------------
8204 void
8205 LAPACK_DECL(dormtr)(const char *SIDE,
8206 const char *UPLO,
8207 const char *TRANS,
8208 const INTEGER *M,
8209 const INTEGER *N,
8210 const DOUBLE *A,
8211 const INTEGER *LDA,
8212 const DOUBLE *TAU,
8213 DOUBLE *C,
8214 const INTEGER *LDC,
8215 DOUBLE *WORK,
8216 const INTEGER *LWORK,
8217 INTEGER *INFO)
8218 {
8219 DEBUG_LAPACK_STUB("dormtr");
8220 LAPACK_IMPL(dormtr)(SIDE,
8221 UPLO,
8222 TRANS,
8223 M,
8224 N,
8225 A,
8226 LDA,
8227 TAU,
8228 C,
8229 LDC,
8230 WORK,
8231 LWORK,
8232 INFO);
8233 }
8234
8235 //-- dpbcon --------------------------------------------------------------------
8236 void
8237 LAPACK_DECL(dpbcon)(const char *UPLO,
8238 const INTEGER *N,
8239 const INTEGER *KD,
8240 const DOUBLE *AB,
8241 const INTEGER *LDAB,
8242 const DOUBLE *ANORM,
8243 DOUBLE *RCOND,
8244 const DOUBLE *WORK,
8245 const INTEGER *IWORK,
8246 INTEGER *INFO)
8247 {
8248 DEBUG_LAPACK_STUB("dpbcon");
8249 LAPACK_IMPL(dpbcon)(UPLO,
8250 N,
8251 KD,
8252 AB,
8253 LDAB,
8254 ANORM,
8255 RCOND,
8256 WORK,
8257 IWORK,
8258 INFO);
8259 }
8260
8261 //-- dpbequ --------------------------------------------------------------------
8262 void
8263 LAPACK_DECL(dpbequ)(const char *UPLO,
8264 const INTEGER *N,
8265 const INTEGER *KD,
8266 const DOUBLE *AB,
8267 const INTEGER *LDAB,
8268 DOUBLE *S,
8269 DOUBLE *SCOND,
8270 DOUBLE *AMAX,
8271 INTEGER *INFO)
8272 {
8273 DEBUG_LAPACK_STUB("dpbequ");
8274 LAPACK_IMPL(dpbequ)(UPLO,
8275 N,
8276 KD,
8277 AB,
8278 LDAB,
8279 S,
8280 SCOND,
8281 AMAX,
8282 INFO);
8283 }
8284
8285 //-- dpbrfs --------------------------------------------------------------------
8286 void
8287 LAPACK_DECL(dpbrfs)(const char *UPLO,
8288 const INTEGER *N,
8289 const INTEGER *KD,
8290 const INTEGER *NRHS,
8291 const DOUBLE *AB,
8292 const INTEGER *LDAB,
8293 const DOUBLE *AFB,
8294 const INTEGER *LDAFB,
8295 const DOUBLE *B,
8296 const INTEGER *LDB,
8297 DOUBLE *X,
8298 const INTEGER *LDX,
8299 DOUBLE *FERR,
8300 DOUBLE *BERR,
8301 const DOUBLE *WORK,
8302 const INTEGER *IWORK,
8303 INTEGER *INFO)
8304 {
8305 DEBUG_LAPACK_STUB("dpbrfs");
8306 LAPACK_IMPL(dpbrfs)(UPLO,
8307 N,
8308 KD,
8309 NRHS,
8310 AB,
8311 LDAB,
8312 AFB,
8313 LDAFB,
8314 B,
8315 LDB,
8316 X,
8317 LDX,
8318 FERR,
8319 BERR,
8320 WORK,
8321 IWORK,
8322 INFO);
8323 }
8324
8325 //-- dpbstf --------------------------------------------------------------------
8326 void
8327 LAPACK_DECL(dpbstf)(const char *UPLO,
8328 const INTEGER *N,
8329 const INTEGER *KD,
8330 DOUBLE *AB,
8331 const INTEGER *LDAB,
8332 INTEGER *INFO)
8333 {
8334 DEBUG_LAPACK_STUB("dpbstf");
8335 LAPACK_IMPL(dpbstf)(UPLO,
8336 N,
8337 KD,
8338 AB,
8339 LDAB,
8340 INFO);
8341 }
8342
8343 //-- dpbsv ---------------------------------------------------------------------
8344 void
8345 LAPACK_DECL(dpbsv)(const char *UPLO,
8346 const INTEGER *N,
8347 const INTEGER *KD,
8348 const INTEGER *NRHS,
8349 DOUBLE *AB,
8350 const INTEGER *LDAB,
8351 DOUBLE *B,
8352 const INTEGER *LDB,
8353 INTEGER *INFO)
8354 {
8355 DEBUG_LAPACK_STUB("dpbsv");
8356 LAPACK_IMPL(dpbsv)(UPLO,
8357 N,
8358 KD,
8359 NRHS,
8360 AB,
8361 LDAB,
8362 B,
8363 LDB,
8364 INFO);
8365 }
8366
8367 //-- dpbsvx --------------------------------------------------------------------
8368 void
8369 LAPACK_DECL(dpbsvx)(const char *FACT,
8370 const char *UPLO,
8371 const INTEGER *N,
8372 const INTEGER *KD,
8373 const INTEGER *NRHS,
8374 DOUBLE *AB,
8375 const INTEGER *LDAB,
8376 DOUBLE *AFB,
8377 const INTEGER *LDAFB,
8378 char *EQUED,
8379 DOUBLE *S,
8380 DOUBLE *B,
8381 const INTEGER *LDB,
8382 DOUBLE *X,
8383 const INTEGER *LDX,
8384 DOUBLE *RCOND,
8385 DOUBLE *FERR,
8386 DOUBLE *BERR,
8387 const DOUBLE *WORK,
8388 const INTEGER *IWORK,
8389 INTEGER *INFO)
8390 {
8391 DEBUG_LAPACK_STUB("dpbsvx");
8392 LAPACK_IMPL(dpbsvx)(FACT,
8393 UPLO,
8394 N,
8395 KD,
8396 NRHS,
8397 AB,
8398 LDAB,
8399 AFB,
8400 LDAFB,
8401 EQUED,
8402 S,
8403 B,
8404 LDB,
8405 X,
8406 LDX,
8407 RCOND,
8408 FERR,
8409 BERR,
8410 WORK,
8411 IWORK,
8412 INFO);
8413 }
8414
8415 //-- dpbtf2 --------------------------------------------------------------------
8416 void
8417 LAPACK_DECL(dpbtf2)(const char *UPLO,
8418 const INTEGER *N,
8419 const INTEGER *KD,
8420 DOUBLE *AB,
8421 const INTEGER *LDAB,
8422 INTEGER *INFO)
8423 {
8424 DEBUG_LAPACK_STUB("dpbtf2");
8425 LAPACK_IMPL(dpbtf2)(UPLO,
8426 N,
8427 KD,
8428 AB,
8429 LDAB,
8430 INFO);
8431 }
8432
8433 //-- dpbtrf --------------------------------------------------------------------
8434 void
8435 LAPACK_DECL(dpbtrf)(const char *UPLO,
8436 const INTEGER *N,
8437 const INTEGER *KD,
8438 DOUBLE *AB,
8439 const INTEGER *LDAB,
8440 INTEGER *INFO)
8441 {
8442 DEBUG_LAPACK_STUB("dpbtrf");
8443 LAPACK_IMPL(dpbtrf)(UPLO,
8444 N,
8445 KD,
8446 AB,
8447 LDAB,
8448 INFO);
8449 }
8450
8451 //-- dpbtrs --------------------------------------------------------------------
8452 void
8453 LAPACK_DECL(dpbtrs)(const char *UPLO,
8454 const INTEGER *N,
8455 const INTEGER *KD,
8456 const INTEGER *NRHS,
8457 const DOUBLE *AB,
8458 const INTEGER *LDAB,
8459 DOUBLE *B,
8460 const INTEGER *LDB,
8461 INTEGER *INFO)
8462 {
8463 DEBUG_LAPACK_STUB("dpbtrs");
8464 LAPACK_IMPL(dpbtrs)(UPLO,
8465 N,
8466 KD,
8467 NRHS,
8468 AB,
8469 LDAB,
8470 B,
8471 LDB,
8472 INFO);
8473 }
8474
8475 //-- dpftrf --------------------------------------------------------------------
8476 void
8477 LAPACK_DECL(dpftrf)(const char *TRANSR,
8478 const char *UPLO,
8479 const INTEGER *N,
8480 DOUBLE *A,
8481 INTEGER *INFO)
8482 {
8483 DEBUG_LAPACK_STUB("dpftrf");
8484 LAPACK_IMPL(dpftrf)(TRANSR,
8485 UPLO,
8486 N,
8487 A,
8488 INFO);
8489 }
8490
8491 //-- dpftri --------------------------------------------------------------------
8492 void
8493 LAPACK_DECL(dpftri)(const char *TRANSR,
8494 const char *UPLO,
8495 const INTEGER *N,
8496 DOUBLE *A,
8497 INTEGER *INFO)
8498 {
8499 DEBUG_LAPACK_STUB("dpftri");
8500 LAPACK_IMPL(dpftri)(TRANSR,
8501 UPLO,
8502 N,
8503 A,
8504 INFO);
8505 }
8506
8507 //-- dpftrs --------------------------------------------------------------------
8508 void
8509 LAPACK_DECL(dpftrs)(const char *TRANSR,
8510 const char *UPLO,
8511 const INTEGER *N,
8512 const INTEGER *NRHS,
8513 const DOUBLE *A,
8514 DOUBLE *B,
8515 const INTEGER *LDB,
8516 INTEGER *INFO)
8517 {
8518 DEBUG_LAPACK_STUB("dpftrs");
8519 LAPACK_IMPL(dpftrs)(TRANSR,
8520 UPLO,
8521 N,
8522 NRHS,
8523 A,
8524 B,
8525 LDB,
8526 INFO);
8527 }
8528
8529 //-- dpocon --------------------------------------------------------------------
8530 void
8531 LAPACK_DECL(dpocon)(const char *UPLO,
8532 const INTEGER *N,
8533 const DOUBLE *A,
8534 const INTEGER *LDA,
8535 const DOUBLE *ANORM,
8536 DOUBLE *RCOND,
8537 const DOUBLE *WORK,
8538 const INTEGER *IWORK,
8539 INTEGER *INFO)
8540 {
8541 DEBUG_LAPACK_STUB("dpocon");
8542 LAPACK_IMPL(dpocon)(UPLO,
8543 N,
8544 A,
8545 LDA,
8546 ANORM,
8547 RCOND,
8548 WORK,
8549 IWORK,
8550 INFO);
8551 }
8552
8553 //-- dpoequ --------------------------------------------------------------------
8554 void
8555 LAPACK_DECL(dpoequ)(const INTEGER *N,
8556 const DOUBLE *A,
8557 const INTEGER *LDA,
8558 DOUBLE *S,
8559 DOUBLE *SCOND,
8560 DOUBLE *AMAX,
8561 INTEGER *INFO)
8562 {
8563 DEBUG_LAPACK_STUB("dpoequ");
8564 LAPACK_IMPL(dpoequ)(N,
8565 A,
8566 LDA,
8567 S,
8568 SCOND,
8569 AMAX,
8570 INFO);
8571 }
8572
8573 //-- dpoequb -------------------------------------------------------------------
8574 void
8575 LAPACK_DECL(dpoequb)(const INTEGER *N,
8576 const DOUBLE *A,
8577 const INTEGER *LDA,
8578 DOUBLE *S,
8579 DOUBLE *SCOND,
8580 DOUBLE *AMAX,
8581 INTEGER *INFO)
8582 {
8583 DEBUG_LAPACK_STUB("dpoequb");
8584 LAPACK_IMPL(dpoequb)(N,
8585 A,
8586 LDA,
8587 S,
8588 SCOND,
8589 AMAX,
8590 INFO);
8591 }
8592
8593 //-- dporfs --------------------------------------------------------------------
8594 void
8595 LAPACK_DECL(dporfs)(const char *UPLO,
8596 const INTEGER *N,
8597 const INTEGER *NRHS,
8598 const DOUBLE *A,
8599 const INTEGER *LDA,
8600 const DOUBLE *AF,
8601 const INTEGER *LDAF,
8602 const DOUBLE *B,
8603 const INTEGER *LDB,
8604 DOUBLE *X,
8605 const INTEGER *LDX,
8606 DOUBLE *FERR,
8607 DOUBLE *BERR,
8608 const DOUBLE *WORK,
8609 const INTEGER *IWORK,
8610 INTEGER *INFO)
8611 {
8612 DEBUG_LAPACK_STUB("dporfs");
8613 LAPACK_IMPL(dporfs)(UPLO,
8614 N,
8615 NRHS,
8616 A,
8617 LDA,
8618 AF,
8619 LDAF,
8620 B,
8621 LDB,
8622 X,
8623 LDX,
8624 FERR,
8625 BERR,
8626 WORK,
8627 IWORK,
8628 INFO);
8629 }
8630
8631 //-- dporfsx -------------------------------------------------------------------
8632 void
8633 LAPACK_DECL(dporfsx)(const char *UPLO,
8634 const char *EQUED,
8635 const INTEGER *N,
8636 const INTEGER *NRHS,
8637 const DOUBLE *A,
8638 const INTEGER *LDA,
8639 const DOUBLE *AF,
8640 const INTEGER *LDAF,
8641 DOUBLE *S,
8642 const DOUBLE *B,
8643 const INTEGER *LDB,
8644 DOUBLE *X,
8645 const INTEGER *LDX,
8646 DOUBLE *RCOND,
8647 DOUBLE *BERR,
8648 const INTEGER *N_ERR_BNDS,
8649 DOUBLE *ERR_BNDS_NORM,
8650 DOUBLE *ERR_BNDS_COMP,
8651 const INTEGER *NPARAMS,
8652 DOUBLE *PARAMS,
8653 const DOUBLE *WORK,
8654 const INTEGER *IWORK,
8655 INTEGER *INFO)
8656 {
8657 DEBUG_LAPACK_STUB("dporfsx");
8658 LAPACK_IMPL(dporfsx)(UPLO,
8659 EQUED,
8660 N,
8661 NRHS,
8662 A,
8663 LDA,
8664 AF,
8665 LDAF,
8666 S,
8667 B,
8668 LDB,
8669 X,
8670 LDX,
8671 RCOND,
8672 BERR,
8673 N_ERR_BNDS,
8674 ERR_BNDS_NORM,
8675 ERR_BNDS_COMP,
8676 NPARAMS,
8677 PARAMS,
8678 WORK,
8679 IWORK,
8680 INFO);
8681 }
8682
8683 //-- dposv ---------------------------------------------------------------------
8684 void
8685 LAPACK_DECL(dposv)(const char *UPLO,
8686 const INTEGER *N,
8687 const INTEGER *NRHS,
8688 DOUBLE *A,
8689 const INTEGER *LDA,
8690 DOUBLE *B,
8691 const INTEGER *LDB,
8692 INTEGER *INFO)
8693 {
8694 DEBUG_LAPACK_STUB("dposv");
8695 LAPACK_IMPL(dposv)(UPLO,
8696 N,
8697 NRHS,
8698 A,
8699 LDA,
8700 B,
8701 LDB,
8702 INFO);
8703 }
8704
8705 //-- dposvx --------------------------------------------------------------------
8706 void
8707 LAPACK_DECL(dposvx)(const char *FACT,
8708 const char *UPLO,
8709 const INTEGER *N,
8710 const INTEGER *NRHS,
8711 DOUBLE *A,
8712 const INTEGER *LDA,
8713 DOUBLE *AF,
8714 const INTEGER *LDAF,
8715 char *EQUED,
8716 DOUBLE *S,
8717 DOUBLE *B,
8718 const INTEGER *LDB,
8719 DOUBLE *X,
8720 const INTEGER *LDX,
8721 DOUBLE *RCOND,
8722 DOUBLE *FERR,
8723 DOUBLE *BERR,
8724 const DOUBLE *WORK,
8725 const INTEGER *IWORK,
8726 INTEGER *INFO)
8727 {
8728 DEBUG_LAPACK_STUB("dposvx");
8729 LAPACK_IMPL(dposvx)(FACT,
8730 UPLO,
8731 N,
8732 NRHS,
8733 A,
8734 LDA,
8735 AF,
8736 LDAF,
8737 EQUED,
8738 S,
8739 B,
8740 LDB,
8741 X,
8742 LDX,
8743 RCOND,
8744 FERR,
8745 BERR,
8746 WORK,
8747 IWORK,
8748 INFO);
8749 }
8750
8751 //-- dposvxx -------------------------------------------------------------------
8752 void
8753 LAPACK_DECL(dposvxx)(const char *FACT,
8754 const char *UPLO,
8755 const INTEGER *N,
8756 const INTEGER *NRHS,
8757 DOUBLE *A,
8758 const INTEGER *LDA,
8759 DOUBLE *AF,
8760 const INTEGER *LDAF,
8761 char *EQUED,
8762 DOUBLE *S,
8763 DOUBLE *B,
8764 const INTEGER *LDB,
8765 DOUBLE *X,
8766 const INTEGER *LDX,
8767 DOUBLE *RCOND,
8768 DOUBLE *RPVGRW,
8769 DOUBLE *BERR,
8770 const INTEGER *N_ERR_BNDS,
8771 DOUBLE *ERR_BNDS_NORM,
8772 DOUBLE *ERR_BNDS_COMP,
8773 const INTEGER *NPARAMS,
8774 DOUBLE *PARAMS,
8775 const DOUBLE *WORK,
8776 const INTEGER *IWORK,
8777 INTEGER *INFO)
8778 {
8779 DEBUG_LAPACK_STUB("dposvxx");
8780 LAPACK_IMPL(dposvxx)(FACT,
8781 UPLO,
8782 N,
8783 NRHS,
8784 A,
8785 LDA,
8786 AF,
8787 LDAF,
8788 EQUED,
8789 S,
8790 B,
8791 LDB,
8792 X,
8793 LDX,
8794 RCOND,
8795 RPVGRW,
8796 BERR,
8797 N_ERR_BNDS,
8798 ERR_BNDS_NORM,
8799 ERR_BNDS_COMP,
8800 NPARAMS,
8801 PARAMS,
8802 WORK,
8803 IWORK,
8804 INFO);
8805 }
8806
8807 //-- dpotf2 --------------------------------------------------------------------
8808 void
8809 LAPACK_DECL(dpotf2)(const char *UPLO,
8810 const INTEGER *N,
8811 DOUBLE *A,
8812 const INTEGER *LDA,
8813 INTEGER *INFO)
8814 {
8815 DEBUG_LAPACK_STUB("dpotf2");
8816 LAPACK_IMPL(dpotf2)(UPLO,
8817 N,
8818 A,
8819 LDA,
8820 INFO);
8821 }
8822
8823 //-- dpotrf --------------------------------------------------------------------
8824 void
8825 LAPACK_DECL(dpotrf)(const char *UPLO,
8826 const INTEGER *N,
8827 DOUBLE *A,
8828 const INTEGER *LDA,
8829 INTEGER *INFO)
8830 {
8831 DEBUG_LAPACK_STUB("dpotrf");
8832 LAPACK_IMPL(dpotrf)(UPLO,
8833 N,
8834 A,
8835 LDA,
8836 INFO);
8837 }
8838
8839 //-- dpotri --------------------------------------------------------------------
8840 void
8841 LAPACK_DECL(dpotri)(const char *UPLO,
8842 const INTEGER *N,
8843 DOUBLE *A,
8844 const INTEGER *LDA,
8845 INTEGER *INFO)
8846 {
8847 DEBUG_LAPACK_STUB("dpotri");
8848 LAPACK_IMPL(dpotri)(UPLO,
8849 N,
8850 A,
8851 LDA,
8852 INFO);
8853 }
8854
8855 //-- dpotrs --------------------------------------------------------------------
8856 void
8857 LAPACK_DECL(dpotrs)(const char *UPLO,
8858 const INTEGER *N,
8859 const INTEGER *NRHS,
8860 const DOUBLE *A,
8861 const INTEGER *LDA,
8862 DOUBLE *B,
8863 const INTEGER *LDB,
8864 INTEGER *INFO)
8865 {
8866 DEBUG_LAPACK_STUB("dpotrs");
8867 LAPACK_IMPL(dpotrs)(UPLO,
8868 N,
8869 NRHS,
8870 A,
8871 LDA,
8872 B,
8873 LDB,
8874 INFO);
8875 }
8876
8877 //-- dppcon --------------------------------------------------------------------
8878 void
8879 LAPACK_DECL(dppcon)(const char *UPLO,
8880 const INTEGER *N,
8881 const DOUBLE *AP,
8882 const DOUBLE *ANORM,
8883 DOUBLE *RCOND,
8884 const DOUBLE *WORK,
8885 const INTEGER *IWORK,
8886 INTEGER *INFO)
8887 {
8888 DEBUG_LAPACK_STUB("dppcon");
8889 LAPACK_IMPL(dppcon)(UPLO,
8890 N,
8891 AP,
8892 ANORM,
8893 RCOND,
8894 WORK,
8895 IWORK,
8896 INFO);
8897 }
8898
8899 //-- dppequ --------------------------------------------------------------------
8900 void
8901 LAPACK_DECL(dppequ)(const char *UPLO,
8902 const INTEGER *N,
8903 const DOUBLE *AP,
8904 DOUBLE *S,
8905 DOUBLE *SCOND,
8906 DOUBLE *AMAX,
8907 INTEGER *INFO)
8908 {
8909 DEBUG_LAPACK_STUB("dppequ");
8910 LAPACK_IMPL(dppequ)(UPLO,
8911 N,
8912 AP,
8913 S,
8914 SCOND,
8915 AMAX,
8916 INFO);
8917 }
8918
8919 //-- dpprfs --------------------------------------------------------------------
8920 void
8921 LAPACK_DECL(dpprfs)(const char *UPLO,
8922 const INTEGER *N,
8923 const INTEGER *NRHS,
8924 const DOUBLE *AP,
8925 const DOUBLE *AFP,
8926 const DOUBLE *B,
8927 const INTEGER *LDB,
8928 DOUBLE *X,
8929 const INTEGER *LDX,
8930 DOUBLE *FERR,
8931 DOUBLE *BERR,
8932 const DOUBLE *WORK,
8933 const INTEGER *IWORK,
8934 INTEGER *INFO)
8935 {
8936 DEBUG_LAPACK_STUB("dpprfs");
8937 LAPACK_IMPL(dpprfs)(UPLO,
8938 N,
8939 NRHS,
8940 AP,
8941 AFP,
8942 B,
8943 LDB,
8944 X,
8945 LDX,
8946 FERR,
8947 BERR,
8948 WORK,
8949 IWORK,
8950 INFO);
8951 }
8952
8953 //-- dppsv ---------------------------------------------------------------------
8954 void
8955 LAPACK_DECL(dppsv)(const char *UPLO,
8956 const INTEGER *N,
8957 const INTEGER *NRHS,
8958 DOUBLE *AP,
8959 DOUBLE *B,
8960 const INTEGER *LDB,
8961 INTEGER *INFO)
8962 {
8963 DEBUG_LAPACK_STUB("dppsv");
8964 LAPACK_IMPL(dppsv)(UPLO,
8965 N,
8966 NRHS,
8967 AP,
8968 B,
8969 LDB,
8970 INFO);
8971 }
8972
8973 //-- dppsvx --------------------------------------------------------------------
8974 void
8975 LAPACK_DECL(dppsvx)(const char *FACT,
8976 const char *UPLO,
8977 const INTEGER *N,
8978 const INTEGER *NRHS,
8979 DOUBLE *AP,
8980 DOUBLE *AFP,
8981 char *EQUED,
8982 DOUBLE *S,
8983 DOUBLE *B,
8984 const INTEGER *LDB,
8985 DOUBLE *X,
8986 const INTEGER *LDX,
8987 DOUBLE *RCOND,
8988 DOUBLE *FERR,
8989 DOUBLE *BERR,
8990 const DOUBLE *WORK,
8991 const INTEGER *IWORK,
8992 INTEGER *INFO)
8993 {
8994 DEBUG_LAPACK_STUB("dppsvx");
8995 LAPACK_IMPL(dppsvx)(FACT,
8996 UPLO,
8997 N,
8998 NRHS,
8999 AP,
9000 AFP,
9001 EQUED,
9002 S,
9003 B,
9004 LDB,
9005 X,
9006 LDX,
9007 RCOND,
9008 FERR,
9009 BERR,
9010 WORK,
9011 IWORK,
9012 INFO);
9013 }
9014
9015 //-- dpptrf --------------------------------------------------------------------
9016 void
9017 LAPACK_DECL(dpptrf)(const char *UPLO,
9018 const INTEGER *N,
9019 DOUBLE *AP,
9020 INTEGER *INFO)
9021 {
9022 DEBUG_LAPACK_STUB("dpptrf");
9023 LAPACK_IMPL(dpptrf)(UPLO,
9024 N,
9025 AP,
9026 INFO);
9027 }
9028
9029 //-- dpptri --------------------------------------------------------------------
9030 void
9031 LAPACK_DECL(dpptri)(const char *UPLO,
9032 const INTEGER *N,
9033 DOUBLE *AP,
9034 INTEGER *INFO)
9035 {
9036 DEBUG_LAPACK_STUB("dpptri");
9037 LAPACK_IMPL(dpptri)(UPLO,
9038 N,
9039 AP,
9040 INFO);
9041 }
9042
9043 //-- dpptrs --------------------------------------------------------------------
9044 void
9045 LAPACK_DECL(dpptrs)(const char *UPLO,
9046 const INTEGER *N,
9047 const INTEGER *NRHS,
9048 const DOUBLE *AP,
9049 DOUBLE *B,
9050 const INTEGER *LDB,
9051 INTEGER *INFO)
9052 {
9053 DEBUG_LAPACK_STUB("dpptrs");
9054 LAPACK_IMPL(dpptrs)(UPLO,
9055 N,
9056 NRHS,
9057 AP,
9058 B,
9059 LDB,
9060 INFO);
9061 }
9062
9063 //-- dpstf2 --------------------------------------------------------------------
9064 void
9065 LAPACK_DECL(dpstf2)(const char *UPLO,
9066 const INTEGER *N,
9067 DOUBLE *A,
9068 const INTEGER *LDA,
9069 INTEGER *PIV,
9070 INTEGER *RANK,
9071 const DOUBLE *TOL,
9072 const DOUBLE *WORK,
9073 INTEGER *INFO)
9074 {
9075 DEBUG_LAPACK_STUB("dpstf2");
9076 LAPACK_IMPL(dpstf2)(UPLO,
9077 N,
9078 A,
9079 LDA,
9080 PIV,
9081 RANK,
9082 TOL,
9083 WORK,
9084 INFO);
9085 }
9086
9087 //-- dpstrf --------------------------------------------------------------------
9088 void
9089 LAPACK_DECL(dpstrf)(const char *UPLO,
9090 const INTEGER *N,
9091 DOUBLE *A,
9092 const INTEGER *LDA,
9093 INTEGER *PIV,
9094 INTEGER *RANK,
9095 const DOUBLE *TOL,
9096 const DOUBLE *WORK,
9097 INTEGER *INFO)
9098 {
9099 DEBUG_LAPACK_STUB("dpstrf");
9100 LAPACK_IMPL(dpstrf)(UPLO,
9101 N,
9102 A,
9103 LDA,
9104 PIV,
9105 RANK,
9106 TOL,
9107 WORK,
9108 INFO);
9109 }
9110
9111 //-- dptcon --------------------------------------------------------------------
9112 void
9113 LAPACK_DECL(dptcon)(const INTEGER *N,
9114 const DOUBLE *D,
9115 const DOUBLE *E,
9116 const DOUBLE *ANORM,
9117 DOUBLE *RCOND,
9118 const DOUBLE *WORK,
9119 INTEGER *INFO)
9120 {
9121 DEBUG_LAPACK_STUB("dptcon");
9122 LAPACK_IMPL(dptcon)(N,
9123 D,
9124 E,
9125 ANORM,
9126 RCOND,
9127 WORK,
9128 INFO);
9129 }
9130
9131 //-- dpteqr --------------------------------------------------------------------
9132 void
9133 LAPACK_DECL(dpteqr)(const char *COMPZ,
9134 const INTEGER *N,
9135 DOUBLE *D,
9136 DOUBLE *E,
9137 DOUBLE *Z,
9138 const INTEGER *LDZ,
9139 const DOUBLE *WORK,
9140 INTEGER *INFO)
9141 {
9142 DEBUG_LAPACK_STUB("dpteqr");
9143 LAPACK_IMPL(dpteqr)(COMPZ,
9144 N,
9145 D,
9146 E,
9147 Z,
9148 LDZ,
9149 WORK,
9150 INFO);
9151 }
9152
9153 //-- dptrfs --------------------------------------------------------------------
9154 void
9155 LAPACK_DECL(dptrfs)(const INTEGER *N,
9156 const INTEGER *NRHS,
9157 const DOUBLE *D,
9158 const DOUBLE *E,
9159 const DOUBLE *DF,
9160 const DOUBLE *EF,
9161 const DOUBLE *B,
9162 const INTEGER *LDB,
9163 DOUBLE *X,
9164 const INTEGER *LDX,
9165 DOUBLE *FERR,
9166 DOUBLE *BERR,
9167 const DOUBLE *WORK,
9168 INTEGER *INFO)
9169 {
9170 DEBUG_LAPACK_STUB("dptrfs");
9171 LAPACK_IMPL(dptrfs)(N,
9172 NRHS,
9173 D,
9174 E,
9175 DF,
9176 EF,
9177 B,
9178 LDB,
9179 X,
9180 LDX,
9181 FERR,
9182 BERR,
9183 WORK,
9184 INFO);
9185 }
9186
9187 //-- dptsv ---------------------------------------------------------------------
9188 void
9189 LAPACK_DECL(dptsv)(const INTEGER *N,
9190 const INTEGER *NRHS,
9191 DOUBLE *D,
9192 DOUBLE *E,
9193 DOUBLE *B,
9194 const INTEGER *LDB,
9195 INTEGER *INFO)
9196 {
9197 DEBUG_LAPACK_STUB("dptsv");
9198 LAPACK_IMPL(dptsv)(N,
9199 NRHS,
9200 D,
9201 E,
9202 B,
9203 LDB,
9204 INFO);
9205 }
9206
9207 //-- dptsvx --------------------------------------------------------------------
9208 void
9209 LAPACK_DECL(dptsvx)(const char *FACT,
9210 const INTEGER *N,
9211 const INTEGER *NRHS,
9212 const DOUBLE *D,
9213 const DOUBLE *E,
9214 DOUBLE *DF,
9215 DOUBLE *EF,
9216 const DOUBLE *B,
9217 const INTEGER *LDB,
9218 DOUBLE *X,
9219 const INTEGER *LDX,
9220 DOUBLE *RCOND,
9221 DOUBLE *FERR,
9222 DOUBLE *BERR,
9223 const DOUBLE *WORK,
9224 INTEGER *INFO)
9225 {
9226 DEBUG_LAPACK_STUB("dptsvx");
9227 LAPACK_IMPL(dptsvx)(FACT,
9228 N,
9229 NRHS,
9230 D,
9231 E,
9232 DF,
9233 EF,
9234 B,
9235 LDB,
9236 X,
9237 LDX,
9238 RCOND,
9239 FERR,
9240 BERR,
9241 WORK,
9242 INFO);
9243 }
9244
9245 //-- dpttrf --------------------------------------------------------------------
9246 void
9247 LAPACK_DECL(dpttrf)(const INTEGER *N,
9248 DOUBLE *D,
9249 DOUBLE *E,
9250 INTEGER *INFO)
9251 {
9252 DEBUG_LAPACK_STUB("dpttrf");
9253 LAPACK_IMPL(dpttrf)(N,
9254 D,
9255 E,
9256 INFO);
9257 }
9258
9259 //-- dpttrs --------------------------------------------------------------------
9260 void
9261 LAPACK_DECL(dpttrs)(const INTEGER *N,
9262 const INTEGER *NRHS,
9263 const DOUBLE *D,
9264 const DOUBLE *E,
9265 DOUBLE *B,
9266 const INTEGER *LDB,
9267 INTEGER *INFO)
9268 {
9269 DEBUG_LAPACK_STUB("dpttrs");
9270 LAPACK_IMPL(dpttrs)(N,
9271 NRHS,
9272 D,
9273 E,
9274 B,
9275 LDB,
9276 INFO);
9277 }
9278
9279 //-- dptts2 --------------------------------------------------------------------
9280 void
9281 LAPACK_DECL(dptts2)(const INTEGER *N,
9282 const INTEGER *NRHS,
9283 const DOUBLE *D,
9284 const DOUBLE *E,
9285 DOUBLE *B,
9286 const INTEGER *LDB)
9287 {
9288 DEBUG_LAPACK_STUB("dptts2");
9289 LAPACK_IMPL(dptts2)(N,
9290 NRHS,
9291 D,
9292 E,
9293 B,
9294 LDB);
9295 }
9296
9297 //-- drscl ---------------------------------------------------------------------
9298 void
9299 LAPACK_DECL(drscl)(const INTEGER *N,
9300 const DOUBLE *SA,
9301 DOUBLE *SX,
9302 const INTEGER *INCX)
9303 {
9304 DEBUG_LAPACK_STUB("drscl");
9305 LAPACK_IMPL(drscl)(N,
9306 SA,
9307 SX,
9308 INCX);
9309 }
9310
9311 //-- dsbev ---------------------------------------------------------------------
9312 void
9313 LAPACK_DECL(dsbev)(const char *JOBZ,
9314 const char *UPLO,
9315 const INTEGER *N,
9316 const INTEGER *KD,
9317 DOUBLE *AB,
9318 const INTEGER *LDAB,
9319 DOUBLE *W,
9320 DOUBLE *Z,
9321 const INTEGER *LDZ,
9322 const DOUBLE *WORK,
9323 INTEGER *INFO)
9324 {
9325 DEBUG_LAPACK_STUB("dsbev");
9326 LAPACK_IMPL(dsbev)(JOBZ,
9327 UPLO,
9328 N,
9329 KD,
9330 AB,
9331 LDAB,
9332 W,
9333 Z,
9334 LDZ,
9335 WORK,
9336 INFO);
9337 }
9338
9339 //-- dsbevd --------------------------------------------------------------------
9340 void
9341 LAPACK_DECL(dsbevd)(const char *JOBZ,
9342 const char *UPLO,
9343 const INTEGER *N,
9344 const INTEGER *KD,
9345 DOUBLE *AB,
9346 const INTEGER *LDAB,
9347 DOUBLE *W,
9348 DOUBLE *Z,
9349 const INTEGER *LDZ,
9350 DOUBLE *WORK,
9351 const INTEGER *LWORK,
9352 INTEGER *IWORK,
9353 const INTEGER *LIWORK,
9354 INTEGER *INFO)
9355 {
9356 DEBUG_LAPACK_STUB("dsbevd");
9357 LAPACK_IMPL(dsbevd)(JOBZ,
9358 UPLO,
9359 N,
9360 KD,
9361 AB,
9362 LDAB,
9363 W,
9364 Z,
9365 LDZ,
9366 WORK,
9367 LWORK,
9368 IWORK,
9369 LIWORK,
9370 INFO);
9371 }
9372
9373 //-- dsbevx --------------------------------------------------------------------
9374 void
9375 LAPACK_DECL(dsbevx)(const char *JOBZ,
9376 const char *RANGE,
9377 const char *UPLO,
9378 const INTEGER *N,
9379 const INTEGER *KD,
9380 DOUBLE *AB,
9381 const INTEGER *LDAB,
9382 DOUBLE *Q,
9383 const INTEGER *LDQ,
9384 const DOUBLE *VL,
9385 const DOUBLE *VU,
9386 const INTEGER *IL,
9387 const INTEGER *IU,
9388 const DOUBLE *ABSTOL,
9389 INTEGER *M,
9390 DOUBLE *W,
9391 DOUBLE *Z,
9392 const INTEGER *LDZ,
9393 const DOUBLE *WORK,
9394 const INTEGER *IWORK,
9395 INTEGER *IFAIL,
9396 INTEGER *INFO)
9397 {
9398 DEBUG_LAPACK_STUB("dsbevx");
9399 LAPACK_IMPL(dsbevx)(JOBZ,
9400 RANGE,
9401 UPLO,
9402 N,
9403 KD,
9404 AB,
9405 LDAB,
9406 Q,
9407 LDQ,
9408 VL,
9409 VU,
9410 IL,
9411 IU,
9412 ABSTOL,
9413 M,
9414 W,
9415 Z,
9416 LDZ,
9417 WORK,
9418 IWORK,
9419 IFAIL,
9420 INFO);
9421 }
9422
9423 //-- dsbgst --------------------------------------------------------------------
9424 void
9425 LAPACK_DECL(dsbgst)(const char *VECT,
9426 const char *UPLO,
9427 const INTEGER *N,
9428 const INTEGER *KA,
9429 const INTEGER *KB,
9430 DOUBLE *AB,
9431 const INTEGER *LDAB,
9432 const DOUBLE *BB,
9433 const INTEGER *LDBB,
9434 DOUBLE *X,
9435 const INTEGER *LDX,
9436 const DOUBLE *WORK,
9437 INTEGER *INFO)
9438 {
9439 DEBUG_LAPACK_STUB("dsbgst");
9440 LAPACK_IMPL(dsbgst)(VECT,
9441 UPLO,
9442 N,
9443 KA,
9444 KB,
9445 AB,
9446 LDAB,
9447 BB,
9448 LDBB,
9449 X,
9450 LDX,
9451 WORK,
9452 INFO);
9453 }
9454
9455 //-- dsbgv ---------------------------------------------------------------------
9456 void
9457 LAPACK_DECL(dsbgv)(const char *JOBZ,
9458 const char *UPLO,
9459 const INTEGER *N,
9460 const INTEGER *KA,
9461 const INTEGER *KB,
9462 DOUBLE *AB,
9463 const INTEGER *LDAB,
9464 DOUBLE *BB,
9465 const INTEGER *LDBB,
9466 DOUBLE *W,
9467 DOUBLE *Z,
9468 const INTEGER *LDZ,
9469 const DOUBLE *WORK,
9470 INTEGER *INFO)
9471 {
9472 DEBUG_LAPACK_STUB("dsbgv");
9473 LAPACK_IMPL(dsbgv)(JOBZ,
9474 UPLO,
9475 N,
9476 KA,
9477 KB,
9478 AB,
9479 LDAB,
9480 BB,
9481 LDBB,
9482 W,
9483 Z,
9484 LDZ,
9485 WORK,
9486 INFO);
9487 }
9488
9489 //-- dsbgvd --------------------------------------------------------------------
9490 void
9491 LAPACK_DECL(dsbgvd)(const char *JOBZ,
9492 const char *UPLO,
9493 const INTEGER *N,
9494 const INTEGER *KA,
9495 const INTEGER *KB,
9496 DOUBLE *AB,
9497 const INTEGER *LDAB,
9498 DOUBLE *BB,
9499 const INTEGER *LDBB,
9500 DOUBLE *W,
9501 DOUBLE *Z,
9502 const INTEGER *LDZ,
9503 DOUBLE *WORK,
9504 const INTEGER *LWORK,
9505 INTEGER *IWORK,
9506 const INTEGER *LIWORK,
9507 INTEGER *INFO)
9508 {
9509 DEBUG_LAPACK_STUB("dsbgvd");
9510 LAPACK_IMPL(dsbgvd)(JOBZ,
9511 UPLO,
9512 N,
9513 KA,
9514 KB,
9515 AB,
9516 LDAB,
9517 BB,
9518 LDBB,
9519 W,
9520 Z,
9521 LDZ,
9522 WORK,
9523 LWORK,
9524 IWORK,
9525 LIWORK,
9526 INFO);
9527 }
9528
9529 //-- dsbgvx --------------------------------------------------------------------
9530 void
9531 LAPACK_DECL(dsbgvx)(const char *JOBZ,
9532 const char *RANGE,
9533 const char *UPLO,
9534 const INTEGER *N,
9535 const INTEGER *KA,
9536 const INTEGER *KB,
9537 DOUBLE *AB,
9538 const INTEGER *LDAB,
9539 DOUBLE *BB,
9540 const INTEGER *LDBB,
9541 DOUBLE *Q,
9542 const INTEGER *LDQ,
9543 const DOUBLE *VL,
9544 const DOUBLE *VU,
9545 const INTEGER *IL,
9546 const INTEGER *IU,
9547 const DOUBLE *ABSTOL,
9548 INTEGER *M,
9549 DOUBLE *W,
9550 DOUBLE *Z,
9551 const INTEGER *LDZ,
9552 DOUBLE *WORK,
9553 INTEGER *IWORK,
9554 INTEGER *IFAIL,
9555 INTEGER *INFO)
9556 {
9557 DEBUG_LAPACK_STUB("dsbgvx");
9558 LAPACK_IMPL(dsbgvx)(JOBZ,
9559 RANGE,
9560 UPLO,
9561 N,
9562 KA,
9563 KB,
9564 AB,
9565 LDAB,
9566 BB,
9567 LDBB,
9568 Q,
9569 LDQ,
9570 VL,
9571 VU,
9572 IL,
9573 IU,
9574 ABSTOL,
9575 M,
9576 W,
9577 Z,
9578 LDZ,
9579 WORK,
9580 IWORK,
9581 IFAIL,
9582 INFO);
9583 }
9584
9585 //-- dsbtrd --------------------------------------------------------------------
9586 void
9587 LAPACK_DECL(dsbtrd)(const char *VECT,
9588 const char *UPLO,
9589 const INTEGER *N,
9590 const INTEGER *KD,
9591 DOUBLE *AB,
9592 const INTEGER *LDAB,
9593 DOUBLE *D,
9594 DOUBLE *E,
9595 DOUBLE *Q,
9596 const INTEGER *LDQ,
9597 const DOUBLE *WORK,
9598 INTEGER *INFO)
9599 {
9600 DEBUG_LAPACK_STUB("dsbtrd");
9601 LAPACK_IMPL(dsbtrd)(VECT,
9602 UPLO,
9603 N,
9604 KD,
9605 AB,
9606 LDAB,
9607 D,
9608 E,
9609 Q,
9610 LDQ,
9611 WORK,
9612 INFO);
9613 }
9614
9615 //-- dsecnd --------------------------------------------------------------------
9616 DOUBLE
9617 LAPACK_DECL(dsecnd)()
9618 {
9619 DEBUG_LAPACK_STUB("dsecnd");
9620 return LAPACK_IMPL(dsecnd)();
9621 }
9622
9623 //-- dsfrk ---------------------------------------------------------------------
9624 void
9625 LAPACK_DECL(dsfrk)(const char *TRANSR,
9626 const char *UPLO,
9627 const char *TRANS,
9628 const INTEGER *N,
9629 const INTEGER *K,
9630 const DOUBLE *ALPHA,
9631 const DOUBLE *A,
9632 const INTEGER *LDA,
9633 const DOUBLE *BETA,
9634 DOUBLE *C)
9635 {
9636 DEBUG_LAPACK_STUB("dsfrk");
9637 LAPACK_IMPL(dsfrk)(TRANSR,
9638 UPLO,
9639 TRANS,
9640 N,
9641 K,
9642 ALPHA,
9643 A,
9644 LDA,
9645 BETA,
9646 C);
9647 }
9648
9649 //-- dsgesv --------------------------------------------------------------------
9650 void
9651 LAPACK_DECL(dsgesv)(const INTEGER *N,
9652 const INTEGER *NRHS,
9653 DOUBLE *A,
9654 const INTEGER *LDA,
9655 INTEGER *IPIV,
9656 const DOUBLE *B,
9657 const INTEGER *LDB,
9658 DOUBLE *X,
9659 const INTEGER *LDX,
9660 const DOUBLE *WORK,
9661 const FLOAT *SWORK,
9662 INTEGER *ITER,
9663 INTEGER *INFO)
9664 {
9665 DEBUG_LAPACK_STUB("dsgesv");
9666 LAPACK_IMPL(dsgesv)(N,
9667 NRHS,
9668 A,
9669 LDA,
9670 IPIV,
9671 B,
9672 LDB,
9673 X,
9674 LDX,
9675 WORK,
9676 SWORK,
9677 ITER,
9678 INFO);
9679 }
9680
9681 //-- dspcon --------------------------------------------------------------------
9682 void
9683 LAPACK_DECL(dspcon)(const char *UPLO,
9684 const INTEGER *N,
9685 const DOUBLE *AP,
9686 const INTEGER *IPIV,
9687 const DOUBLE *ANORM,
9688 DOUBLE *RCOND,
9689 const DOUBLE *WORK,
9690 const INTEGER *IWORK,
9691 INTEGER *INFO)
9692 {
9693 DEBUG_LAPACK_STUB("dspcon");
9694 LAPACK_IMPL(dspcon)(UPLO,
9695 N,
9696 AP,
9697 IPIV,
9698 ANORM,
9699 RCOND,
9700 WORK,
9701 IWORK,
9702 INFO);
9703 }
9704
9705 //-- dspev ---------------------------------------------------------------------
9706 void
9707 LAPACK_DECL(dspev)(const char *JOBZ,
9708 const char *UPLO,
9709 const INTEGER *N,
9710 DOUBLE *AP,
9711 DOUBLE *W,
9712 DOUBLE *Z,
9713 const INTEGER *LDZ,
9714 const DOUBLE *WORK,
9715 INTEGER *INFO)
9716 {
9717 DEBUG_LAPACK_STUB("dspev");
9718 LAPACK_IMPL(dspev)(JOBZ,
9719 UPLO,
9720 N,
9721 AP,
9722 W,
9723 Z,
9724 LDZ,
9725 WORK,
9726 INFO);
9727 }
9728
9729 //-- dspevd --------------------------------------------------------------------
9730 void
9731 LAPACK_DECL(dspevd)(const char *JOBZ,
9732 const char *UPLO,
9733 const INTEGER *N,
9734 DOUBLE *AP,
9735 DOUBLE *W,
9736 DOUBLE *Z,
9737 const INTEGER *LDZ,
9738 DOUBLE *WORK,
9739 const INTEGER *LWORK,
9740 INTEGER *IWORK,
9741 const INTEGER *LIWORK,
9742 INTEGER *INFO)
9743 {
9744 DEBUG_LAPACK_STUB("dspevd");
9745 LAPACK_IMPL(dspevd)(JOBZ,
9746 UPLO,
9747 N,
9748 AP,
9749 W,
9750 Z,
9751 LDZ,
9752 WORK,
9753 LWORK,
9754 IWORK,
9755 LIWORK,
9756 INFO);
9757 }
9758
9759 //-- dspevx --------------------------------------------------------------------
9760 void
9761 LAPACK_DECL(dspevx)(const char *JOBZ,
9762 const char *RANGE,
9763 const char *UPLO,
9764 const INTEGER *N,
9765 DOUBLE *AP,
9766 const DOUBLE *VL,
9767 const DOUBLE *VU,
9768 const INTEGER *IL,
9769 const INTEGER *IU,
9770 const DOUBLE *ABSTOL,
9771 INTEGER *M,
9772 DOUBLE *W,
9773 DOUBLE *Z,
9774 const INTEGER *LDZ,
9775 const DOUBLE *WORK,
9776 const INTEGER *IWORK,
9777 INTEGER *IFAIL,
9778 INTEGER *INFO)
9779 {
9780 DEBUG_LAPACK_STUB("dspevx");
9781 LAPACK_IMPL(dspevx)(JOBZ,
9782 RANGE,
9783 UPLO,
9784 N,
9785 AP,
9786 VL,
9787 VU,
9788 IL,
9789 IU,
9790 ABSTOL,
9791 M,
9792 W,
9793 Z,
9794 LDZ,
9795 WORK,
9796 IWORK,
9797 IFAIL,
9798 INFO);
9799 }
9800
9801 //-- dspgst --------------------------------------------------------------------
9802 void
9803 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
9804 const char *UPLO,
9805 const INTEGER *N,
9806 DOUBLE *AP,
9807 const DOUBLE *BP,
9808 INTEGER *INFO)
9809 {
9810 DEBUG_LAPACK_STUB("dspgst");
9811 LAPACK_IMPL(dspgst)(ITYPE,
9812 UPLO,
9813 N,
9814 AP,
9815 BP,
9816 INFO);
9817 }
9818
9819 //-- dspgv ---------------------------------------------------------------------
9820 void
9821 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
9822 const char *JOBZ,
9823 const char *UPLO,
9824 const INTEGER *N,
9825 DOUBLE *AP,
9826 DOUBLE *BP,
9827 DOUBLE *W,
9828 DOUBLE *Z,
9829 const INTEGER *LDZ,
9830 const DOUBLE *WORK,
9831 INTEGER *INFO)
9832 {
9833 DEBUG_LAPACK_STUB("dspgv");
9834 LAPACK_IMPL(dspgv)(ITYPE,
9835 JOBZ,
9836 UPLO,
9837 N,
9838 AP,
9839 BP,
9840 W,
9841 Z,
9842 LDZ,
9843 WORK,
9844 INFO);
9845 }
9846
9847 //-- dspgvd --------------------------------------------------------------------
9848 void
9849 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
9850 const char *JOBZ,
9851 const char *UPLO,
9852 const INTEGER *N,
9853 DOUBLE *AP,
9854 DOUBLE *BP,
9855 DOUBLE *W,
9856 DOUBLE *Z,
9857 const INTEGER *LDZ,
9858 DOUBLE *WORK,
9859 const INTEGER *LWORK,
9860 INTEGER *IWORK,
9861 const INTEGER *LIWORK,
9862 INTEGER *INFO)
9863 {
9864 DEBUG_LAPACK_STUB("dspgvd");
9865 LAPACK_IMPL(dspgvd)(ITYPE,
9866 JOBZ,
9867 UPLO,
9868 N,
9869 AP,
9870 BP,
9871 W,
9872 Z,
9873 LDZ,
9874 WORK,
9875 LWORK,
9876 IWORK,
9877 LIWORK,
9878 INFO);
9879 }
9880
9881 //-- dspgvx --------------------------------------------------------------------
9882 void
9883 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
9884 const char *JOBZ,
9885 const char *RANGE,
9886 const char *UPLO,
9887 const INTEGER *N,
9888 DOUBLE *AP,
9889 DOUBLE *BP,
9890 const DOUBLE *VL,
9891 const DOUBLE *VU,
9892 const INTEGER *IL,
9893 const INTEGER *IU,
9894 const DOUBLE *ABSTOL,
9895 INTEGER *M,
9896 DOUBLE *W,
9897 DOUBLE *Z,
9898 const INTEGER *LDZ,
9899 const DOUBLE *WORK,
9900 const INTEGER *IWORK,
9901 INTEGER *IFAIL,
9902 INTEGER *INFO)
9903 {
9904 DEBUG_LAPACK_STUB("dspgvx");
9905 LAPACK_IMPL(dspgvx)(ITYPE,
9906 JOBZ,
9907 RANGE,
9908 UPLO,
9909 N,
9910 AP,
9911 BP,
9912 VL,
9913 VU,
9914 IL,
9915 IU,
9916 ABSTOL,
9917 M,
9918 W,
9919 Z,
9920 LDZ,
9921 WORK,
9922 IWORK,
9923 IFAIL,
9924 INFO);
9925 }
9926
9927 //-- dsposv --------------------------------------------------------------------
9928 void
9929 LAPACK_DECL(dsposv)(const char *UPLO,
9930 const INTEGER *N,
9931 const INTEGER *NRHS,
9932 DOUBLE *A,
9933 const INTEGER *LDA,
9934 const DOUBLE *B,
9935 const INTEGER *LDB,
9936 DOUBLE *X,
9937 const INTEGER *LDX,
9938 const DOUBLE *WORK,
9939 const FLOAT *SWORK,
9940 INTEGER *ITER,
9941 INTEGER *INFO)
9942 {
9943 DEBUG_LAPACK_STUB("dsposv");
9944 LAPACK_IMPL(dsposv)(UPLO,
9945 N,
9946 NRHS,
9947 A,
9948 LDA,
9949 B,
9950 LDB,
9951 X,
9952 LDX,
9953 WORK,
9954 SWORK,
9955 ITER,
9956 INFO);
9957 }
9958
9959 //-- dsprfs --------------------------------------------------------------------
9960 void
9961 LAPACK_DECL(dsprfs)(const char *UPLO,
9962 const INTEGER *N,
9963 const INTEGER *NRHS,
9964 const DOUBLE *AP,
9965 const DOUBLE *AFP,
9966 const INTEGER *IPIV,
9967 const DOUBLE *B,
9968 const INTEGER *LDB,
9969 DOUBLE *X,
9970 const INTEGER *LDX,
9971 DOUBLE *FERR,
9972 DOUBLE *BERR,
9973 const DOUBLE *WORK,
9974 const INTEGER *IWORK,
9975 INTEGER *INFO)
9976 {
9977 DEBUG_LAPACK_STUB("dsprfs");
9978 LAPACK_IMPL(dsprfs)(UPLO,
9979 N,
9980 NRHS,
9981 AP,
9982 AFP,
9983 IPIV,
9984 B,
9985 LDB,
9986 X,
9987 LDX,
9988 FERR,
9989 BERR,
9990 WORK,
9991 IWORK,
9992 INFO);
9993 }
9994
9995 //-- dspsv ---------------------------------------------------------------------
9996 void
9997 LAPACK_DECL(dspsv)(const char *UPLO,
9998 const INTEGER *N,
9999 const INTEGER *NRHS,
10000 DOUBLE *AP,
10001 INTEGER *IPIV,
10002 DOUBLE *B,
10003 const INTEGER *LDB,
10004 INTEGER *INFO)
10005 {
10006 DEBUG_LAPACK_STUB("dspsv");
10007 LAPACK_IMPL(dspsv)(UPLO,
10008 N,
10009 NRHS,
10010 AP,
10011 IPIV,
10012 B,
10013 LDB,
10014 INFO);
10015 }
10016
10017 //-- dspsvx --------------------------------------------------------------------
10018 void
10019 LAPACK_DECL(dspsvx)(const char *FACT,
10020 const char *UPLO,
10021 const INTEGER *N,
10022 const INTEGER *NRHS,
10023 const DOUBLE *AP,
10024 DOUBLE *AFP,
10025 INTEGER *IPIV,
10026 const DOUBLE *B,
10027 const INTEGER *LDB,
10028 DOUBLE *X,
10029 const INTEGER *LDX,
10030 DOUBLE *RCOND,
10031 DOUBLE *FERR,
10032 DOUBLE *BERR,
10033 const DOUBLE *WORK,
10034 const INTEGER *IWORK,
10035 INTEGER *INFO)
10036 {
10037 DEBUG_LAPACK_STUB("dspsvx");
10038 LAPACK_IMPL(dspsvx)(FACT,
10039 UPLO,
10040 N,
10041 NRHS,
10042 AP,
10043 AFP,
10044 IPIV,
10045 B,
10046 LDB,
10047 X,
10048 LDX,
10049 RCOND,
10050 FERR,
10051 BERR,
10052 WORK,
10053 IWORK,
10054 INFO);
10055 }
10056
10057 //-- dsptrd --------------------------------------------------------------------
10058 void
10059 LAPACK_DECL(dsptrd)(const char *UPLO,
10060 const INTEGER *N,
10061 DOUBLE *AP,
10062 DOUBLE *D,
10063 DOUBLE *E,
10064 DOUBLE *TAU,
10065 INTEGER *INFO)
10066 {
10067 DEBUG_LAPACK_STUB("dsptrd");
10068 LAPACK_IMPL(dsptrd)(UPLO,
10069 N,
10070 AP,
10071 D,
10072 E,
10073 TAU,
10074 INFO);
10075 }
10076
10077 //-- dsptrf --------------------------------------------------------------------
10078 void
10079 LAPACK_DECL(dsptrf)(const char *UPLO,
10080 const INTEGER *N,
10081 DOUBLE *AP,
10082 INTEGER *IPIV,
10083 INTEGER *INFO)
10084 {
10085 DEBUG_LAPACK_STUB("dsptrf");
10086 LAPACK_IMPL(dsptrf)(UPLO,
10087 N,
10088 AP,
10089 IPIV,
10090 INFO);
10091 }
10092
10093 //-- dsptri --------------------------------------------------------------------
10094 void
10095 LAPACK_DECL(dsptri)(const char *UPLO,
10096 const INTEGER *N,
10097 DOUBLE *AP,
10098 const INTEGER *IPIV,
10099 const DOUBLE *WORK,
10100 INTEGER *INFO)
10101 {
10102 DEBUG_LAPACK_STUB("dsptri");
10103 LAPACK_IMPL(dsptri)(UPLO,
10104 N,
10105 AP,
10106 IPIV,
10107 WORK,
10108 INFO);
10109 }
10110
10111 //-- dsptrs --------------------------------------------------------------------
10112 void
10113 LAPACK_DECL(dsptrs)(const char *UPLO,
10114 const INTEGER *N,
10115 const INTEGER *NRHS,
10116 const DOUBLE *AP,
10117 const INTEGER *IPIV,
10118 DOUBLE *B,
10119 const INTEGER *LDB,
10120 INTEGER *INFO)
10121 {
10122 DEBUG_LAPACK_STUB("dsptrs");
10123 LAPACK_IMPL(dsptrs)(UPLO,
10124 N,
10125 NRHS,
10126 AP,
10127 IPIV,
10128 B,
10129 LDB,
10130 INFO);
10131 }
10132
10133 //-- dstebz --------------------------------------------------------------------
10134 void
10135 LAPACK_DECL(dstebz)(const char *RANGE,
10136 const char *ORDER,
10137 const INTEGER *N,
10138 const DOUBLE *VL,
10139 const DOUBLE *VU,
10140 const INTEGER *IL,
10141 const INTEGER *IU,
10142 const DOUBLE *ABSTOL,
10143 const DOUBLE *D,
10144 const DOUBLE *E,
10145 INTEGER *M,
10146 INTEGER *NSPLIT,
10147 DOUBLE *W,
10148 INTEGER *IBLOCK,
10149 INTEGER *ISPLIT,
10150 const DOUBLE *WORK,
10151 const INTEGER *IWORK,
10152 INTEGER *INFO)
10153 {
10154 DEBUG_LAPACK_STUB("dstebz");
10155 LAPACK_IMPL(dstebz)(RANGE,
10156 ORDER,
10157 N,
10158 VL,
10159 VU,
10160 IL,
10161 IU,
10162 ABSTOL,
10163 D,
10164 E,
10165 M,
10166 NSPLIT,
10167 W,
10168 IBLOCK,
10169 ISPLIT,
10170 WORK,
10171 IWORK,
10172 INFO);
10173 }
10174
10175 //-- dstedc --------------------------------------------------------------------
10176 void
10177 LAPACK_DECL(dstedc)(const char *COMPZ,
10178 const INTEGER *N,
10179 DOUBLE *D,
10180 DOUBLE *E,
10181 DOUBLE *Z,
10182 const INTEGER *LDZ,
10183 DOUBLE *WORK,
10184 const INTEGER *LWORK,
10185 INTEGER *IWORK,
10186 const INTEGER *LIWORK,
10187 INTEGER *INFO)
10188 {
10189 DEBUG_LAPACK_STUB("dstedc");
10190 LAPACK_IMPL(dstedc)(COMPZ,
10191 N,
10192 D,
10193 E,
10194 Z,
10195 LDZ,
10196 WORK,
10197 LWORK,
10198 IWORK,
10199 LIWORK,
10200 INFO);
10201 }
10202
10203 //-- dstegr --------------------------------------------------------------------
10204 void
10205 LAPACK_DECL(dstegr)(const char *JOBZ,
10206 const char *RANGE,
10207 const INTEGER *N,
10208 DOUBLE *D,
10209 DOUBLE *E,
10210 const DOUBLE *VL,
10211 const DOUBLE *VU,
10212 const INTEGER *IL,
10213 const INTEGER *IU,
10214 const DOUBLE *ABSTOL,
10215 INTEGER *M,
10216 DOUBLE *W,
10217 DOUBLE *Z,
10218 const INTEGER *LDZ,
10219 INTEGER *ISUPPZ,
10220 DOUBLE *WORK,
10221 const INTEGER *LWORK,
10222 INTEGER *IWORK,
10223 const INTEGER *LIWORK,
10224 INTEGER *INFO)
10225 {
10226 DEBUG_LAPACK_STUB("dstegr");
10227 LAPACK_IMPL(dstegr)(JOBZ,
10228 RANGE,
10229 N,
10230 D,
10231 E,
10232 VL,
10233 VU,
10234 IL,
10235 IU,
10236 ABSTOL,
10237 M,
10238 W,
10239 Z,
10240 LDZ,
10241 ISUPPZ,
10242 WORK,
10243 LWORK,
10244 IWORK,
10245 LIWORK,
10246 INFO);
10247 }
10248
10249 //-- dstein --------------------------------------------------------------------
10250 void
10251 LAPACK_DECL(dstein)(const INTEGER *N,
10252 const DOUBLE *D,
10253 const DOUBLE *E,
10254 const INTEGER *M,
10255 const DOUBLE *W,
10256 const INTEGER *IBLOCK,
10257 const INTEGER *ISPLIT,
10258 DOUBLE *Z,
10259 const INTEGER *LDZ,
10260 const DOUBLE *WORK,
10261 const INTEGER *IWORK,
10262 INTEGER *IFAIL,
10263 INTEGER *INFO)
10264 {
10265 DEBUG_LAPACK_STUB("dstein");
10266 LAPACK_IMPL(dstein)(N,
10267 D,
10268 E,
10269 M,
10270 W,
10271 IBLOCK,
10272 ISPLIT,
10273 Z,
10274 LDZ,
10275 WORK,
10276 IWORK,
10277 IFAIL,
10278 INFO);
10279 }
10280
10281 //-- dstemr --------------------------------------------------------------------
10282 void
10283 LAPACK_DECL(dstemr)(const char *JOBZ,
10284 const char *RANGE,
10285 const INTEGER *N,
10286 DOUBLE *D,
10287 DOUBLE *E,
10288 const DOUBLE *VL,
10289 const DOUBLE *VU,
10290 const INTEGER *IL,
10291 const INTEGER *IU,
10292 INTEGER *M,
10293 DOUBLE *W,
10294 DOUBLE *Z,
10295 const INTEGER *LDZ,
10296 const INTEGER *NZC,
10297 INTEGER *ISUPPZ,
10298 LOGICAL *TRYRAC,
10299 DOUBLE *WORK,
10300 const INTEGER *LWORK,
10301 INTEGER *IWORK,
10302 const INTEGER *LIWORK,
10303 INTEGER *INFO)
10304 {
10305 DEBUG_LAPACK_STUB("dstemr");
10306 LAPACK_IMPL(dstemr)(JOBZ,
10307 RANGE,
10308 N,
10309 D,
10310 E,
10311 VL,
10312 VU,
10313 IL,
10314 IU,
10315 M,
10316 W,
10317 Z,
10318 LDZ,
10319 NZC,
10320 ISUPPZ,
10321 TRYRAC,
10322 WORK,
10323 LWORK,
10324 IWORK,
10325 LIWORK,
10326 INFO);
10327 }
10328
10329 //-- dsteqr --------------------------------------------------------------------
10330 void
10331 LAPACK_DECL(dsteqr)(const char *COMPZ,
10332 const INTEGER *N,
10333 DOUBLE *D,
10334 DOUBLE *E,
10335 DOUBLE *Z,
10336 const INTEGER *LDZ,
10337 const DOUBLE *WORK,
10338 INTEGER *INFO)
10339 {
10340 DEBUG_LAPACK_STUB("dsteqr");
10341 LAPACK_IMPL(dsteqr)(COMPZ,
10342 N,
10343 D,
10344 E,
10345 Z,
10346 LDZ,
10347 WORK,
10348 INFO);
10349 }
10350
10351 //-- dsterf --------------------------------------------------------------------
10352 void
10353 LAPACK_DECL(dsterf)(const INTEGER *N,
10354 DOUBLE *D,
10355 DOUBLE *E,
10356 INTEGER *INFO)
10357 {
10358 DEBUG_LAPACK_STUB("dsterf");
10359 LAPACK_IMPL(dsterf)(N,
10360 D,
10361 E,
10362 INFO);
10363 }
10364
10365 //-- dstev ---------------------------------------------------------------------
10366 void
10367 LAPACK_DECL(dstev)(const char *JOBZ,
10368 const INTEGER *N,
10369 DOUBLE *D,
10370 DOUBLE *E,
10371 DOUBLE *Z,
10372 const INTEGER *LDZ,
10373 const DOUBLE *WORK,
10374 INTEGER *INFO)
10375 {
10376 DEBUG_LAPACK_STUB("dstev");
10377 LAPACK_IMPL(dstev)(JOBZ,
10378 N,
10379 D,
10380 E,
10381 Z,
10382 LDZ,
10383 WORK,
10384 INFO);
10385 }
10386
10387 //-- dstevd --------------------------------------------------------------------
10388 void
10389 LAPACK_DECL(dstevd)(const char *JOBZ,
10390 const INTEGER *N,
10391 DOUBLE *D,
10392 DOUBLE *E,
10393 DOUBLE *Z,
10394 const INTEGER *LDZ,
10395 DOUBLE *WORK,
10396 const INTEGER *LWORK,
10397 INTEGER *IWORK,
10398 const INTEGER *LIWORK,
10399 INTEGER *INFO)
10400 {
10401 DEBUG_LAPACK_STUB("dstevd");
10402 LAPACK_IMPL(dstevd)(JOBZ,
10403 N,
10404 D,
10405 E,
10406 Z,
10407 LDZ,
10408 WORK,
10409 LWORK,
10410 IWORK,
10411 LIWORK,
10412 INFO);
10413 }
10414
10415 //-- dstevr --------------------------------------------------------------------
10416 void
10417 LAPACK_DECL(dstevr)(const char *JOBZ,
10418 const char *RANGE,
10419 const INTEGER *N,
10420 DOUBLE *D,
10421 DOUBLE *E,
10422 const DOUBLE *VL,
10423 const DOUBLE *VU,
10424 const INTEGER *IL,
10425 const INTEGER *IU,
10426 const DOUBLE *ABSTOL,
10427 INTEGER *M,
10428 DOUBLE *W,
10429 DOUBLE *Z,
10430 const INTEGER *LDZ,
10431 INTEGER *ISUPPZ,
10432 DOUBLE *WORK,
10433 const INTEGER *LWORK,
10434 INTEGER *IWORK,
10435 const INTEGER *LIWORK,
10436 INTEGER *INFO)
10437 {
10438 DEBUG_LAPACK_STUB("dstevr");
10439 LAPACK_IMPL(dstevr)(JOBZ,
10440 RANGE,
10441 N,
10442 D,
10443 E,
10444 VL,
10445 VU,
10446 IL,
10447 IU,
10448 ABSTOL,
10449 M,
10450 W,
10451 Z,
10452 LDZ,
10453 ISUPPZ,
10454 WORK,
10455 LWORK,
10456 IWORK,
10457 LIWORK,
10458 INFO);
10459 }
10460
10461 //-- dstevx --------------------------------------------------------------------
10462 void
10463 LAPACK_DECL(dstevx)(const char *JOBZ,
10464 const char *RANGE,
10465 const INTEGER *N,
10466 DOUBLE *D,
10467 DOUBLE *E,
10468 const DOUBLE *VL,
10469 const DOUBLE *VU,
10470 const INTEGER *IL,
10471 const INTEGER *IU,
10472 const DOUBLE *ABSTOL,
10473 INTEGER *M,
10474 DOUBLE *W,
10475 DOUBLE *Z,
10476 const INTEGER *LDZ,
10477 const DOUBLE *WORK,
10478 const INTEGER *IWORK,
10479 INTEGER *IFAIL,
10480 INTEGER *INFO)
10481 {
10482 DEBUG_LAPACK_STUB("dstevx");
10483 LAPACK_IMPL(dstevx)(JOBZ,
10484 RANGE,
10485 N,
10486 D,
10487 E,
10488 VL,
10489 VU,
10490 IL,
10491 IU,
10492 ABSTOL,
10493 M,
10494 W,
10495 Z,
10496 LDZ,
10497 WORK,
10498 IWORK,
10499 IFAIL,
10500 INFO);
10501 }
10502
10503 //-- dsycon --------------------------------------------------------------------
10504 void
10505 LAPACK_DECL(dsycon)(const char *UPLO,
10506 const INTEGER *N,
10507 const DOUBLE *A,
10508 const INTEGER *LDA,
10509 const INTEGER *IPIV,
10510 const DOUBLE *ANORM,
10511 DOUBLE *RCOND,
10512 const DOUBLE *WORK,
10513 const INTEGER *IWORK,
10514 INTEGER *INFO)
10515 {
10516 DEBUG_LAPACK_STUB("dsycon");
10517 LAPACK_IMPL(dsycon)(UPLO,
10518 N,
10519 A,
10520 LDA,
10521 IPIV,
10522 ANORM,
10523 RCOND,
10524 WORK,
10525 IWORK,
10526 INFO);
10527 }
10528
10529 //-- dsyconv -------------------------------------------------------------------
10530 void
10531 LAPACK_DECL(dsyconv)(const char *UPLO,
10532 const char *WAY,
10533 const INTEGER *N,
10534 const DOUBLE *A,
10535 const INTEGER *LDA,
10536 const INTEGER *IPIV,
10537 const DOUBLE *WORK,
10538 INTEGER *INFO)
10539 {
10540 DEBUG_LAPACK_STUB("dsyconv");
10541 LAPACK_IMPL(dsyconv)(UPLO,
10542 WAY,
10543 N,
10544 A,
10545 LDA,
10546 IPIV,
10547 WORK,
10548 INFO);
10549 }
10550
10551 //-- dsyequb -------------------------------------------------------------------
10552 void
10553 LAPACK_DECL(dsyequb)(const char *UPLO,
10554 const INTEGER *N,
10555 const DOUBLE *A,
10556 const INTEGER *LDA,
10557 DOUBLE *S,
10558 DOUBLE *SCOND,
10559 DOUBLE *AMAX,
10560 const DOUBLE *WORK,
10561 INTEGER *INFO)
10562 {
10563 DEBUG_LAPACK_STUB("dsyequb");
10564 LAPACK_IMPL(dsyequb)(UPLO,
10565 N,
10566 A,
10567 LDA,
10568 S,
10569 SCOND,
10570 AMAX,
10571 WORK,
10572 INFO);
10573 }
10574
10575 //-- dsyev ---------------------------------------------------------------------
10576 void
10577 LAPACK_DECL(dsyev)(const char *JOBZ,
10578 const char *UPLO,
10579 const INTEGER *N,
10580 DOUBLE *A,
10581 const INTEGER *LDA,
10582 DOUBLE *W,
10583 DOUBLE *WORK,
10584 const INTEGER *LWORK,
10585 INTEGER *INFO)
10586 {
10587 DEBUG_LAPACK_STUB("dsyev");
10588 LAPACK_IMPL(dsyev)(JOBZ,
10589 UPLO,
10590 N,
10591 A,
10592 LDA,
10593 W,
10594 WORK,
10595 LWORK,
10596 INFO);
10597 }
10598
10599 //-- dsyevd --------------------------------------------------------------------
10600 void
10601 LAPACK_DECL(dsyevd)(const char *JOBZ,
10602 const char *UPLO,
10603 const INTEGER *N,
10604 DOUBLE *A,
10605 const INTEGER *LDA,
10606 DOUBLE *W,
10607 DOUBLE *WORK,
10608 const INTEGER *LWORK,
10609 INTEGER *IWORK,
10610 const INTEGER *LIWORK,
10611 INTEGER *INFO)
10612 {
10613 DEBUG_LAPACK_STUB("dsyevd");
10614 LAPACK_IMPL(dsyevd)(JOBZ,
10615 UPLO,
10616 N,
10617 A,
10618 LDA,
10619 W,
10620 WORK,
10621 LWORK,
10622 IWORK,
10623 LIWORK,
10624 INFO);
10625 }
10626
10627 //-- dsyevr --------------------------------------------------------------------
10628 void
10629 LAPACK_DECL(dsyevr)(const char *JOBZ,
10630 const char *RANGE,
10631 const char *UPLO,
10632 const INTEGER *N,
10633 DOUBLE *A,
10634 const INTEGER *LDA,
10635 const DOUBLE *VL,
10636 const DOUBLE *VU,
10637 const INTEGER *IL,
10638 const INTEGER *IU,
10639 const DOUBLE *ABSTOL,
10640 INTEGER *M,
10641 DOUBLE *W,
10642 DOUBLE *Z,
10643 const INTEGER *LDZ,
10644 INTEGER *ISUPPZ,
10645 DOUBLE *WORK,
10646 const INTEGER *LWORK,
10647 INTEGER *IWORK,
10648 const INTEGER *LIWORK,
10649 INTEGER *INFO)
10650 {
10651 DEBUG_LAPACK_STUB("dsyevr");
10652 LAPACK_IMPL(dsyevr)(JOBZ,
10653 RANGE,
10654 UPLO,
10655 N,
10656 A,
10657 LDA,
10658 VL,
10659 VU,
10660 IL,
10661 IU,
10662 ABSTOL,
10663 M,
10664 W,
10665 Z,
10666 LDZ,
10667 ISUPPZ,
10668 WORK,
10669 LWORK,
10670 IWORK,
10671 LIWORK,
10672 INFO);
10673 }
10674
10675 //-- dsyevx --------------------------------------------------------------------
10676 void
10677 LAPACK_DECL(dsyevx)(const char *JOBZ,
10678 const char *RANGE,
10679 const char *UPLO,
10680 const INTEGER *N,
10681 DOUBLE *A,
10682 const INTEGER *LDA,
10683 const DOUBLE *VL,
10684 const DOUBLE *VU,
10685 const INTEGER *IL,
10686 const INTEGER *IU,
10687 const DOUBLE *ABSTOL,
10688 INTEGER *M,
10689 DOUBLE *W,
10690 DOUBLE *Z,
10691 const INTEGER *LDZ,
10692 DOUBLE *WORK,
10693 const INTEGER *LWORK,
10694 const INTEGER *IWORK,
10695 INTEGER *IFAIL,
10696 INTEGER *INFO)
10697 {
10698 DEBUG_LAPACK_STUB("dsyevx");
10699 LAPACK_IMPL(dsyevx)(JOBZ,
10700 RANGE,
10701 UPLO,
10702 N,
10703 A,
10704 LDA,
10705 VL,
10706 VU,
10707 IL,
10708 IU,
10709 ABSTOL,
10710 M,
10711 W,
10712 Z,
10713 LDZ,
10714 WORK,
10715 LWORK,
10716 IWORK,
10717 IFAIL,
10718 INFO);
10719 }
10720
10721 //-- dsygs2 --------------------------------------------------------------------
10722 void
10723 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
10724 const char *UPLO,
10725 const INTEGER *N,
10726 DOUBLE *A,
10727 const INTEGER *LDA,
10728 const DOUBLE *B,
10729 const INTEGER *LDB,
10730 INTEGER *INFO)
10731 {
10732 DEBUG_LAPACK_STUB("dsygs2");
10733 LAPACK_IMPL(dsygs2)(ITYPE,
10734 UPLO,
10735 N,
10736 A,
10737 LDA,
10738 B,
10739 LDB,
10740 INFO);
10741 }
10742
10743 //-- dsygst --------------------------------------------------------------------
10744 void
10745 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
10746 const char *UPLO,
10747 const INTEGER *N,
10748 DOUBLE *A,
10749 const INTEGER *LDA,
10750 const DOUBLE *B,
10751 const INTEGER *LDB,
10752 INTEGER *INFO)
10753 {
10754 DEBUG_LAPACK_STUB("dsygst");
10755 LAPACK_IMPL(dsygst)(ITYPE,
10756 UPLO,
10757 N,
10758 A,
10759 LDA,
10760 B,
10761 LDB,
10762 INFO);
10763 }
10764
10765 //-- dsygv ---------------------------------------------------------------------
10766 void
10767 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
10768 const char *JOBZ,
10769 const char *UPLO,
10770 const INTEGER *N,
10771 DOUBLE *A,
10772 const INTEGER *LDA,
10773 DOUBLE *B,
10774 const INTEGER *LDB,
10775 DOUBLE *W,
10776 DOUBLE *WORK,
10777 const INTEGER *LWORK,
10778 INTEGER *INFO)
10779 {
10780 DEBUG_LAPACK_STUB("dsygv");
10781 LAPACK_IMPL(dsygv)(ITYPE,
10782 JOBZ,
10783 UPLO,
10784 N,
10785 A,
10786 LDA,
10787 B,
10788 LDB,
10789 W,
10790 WORK,
10791 LWORK,
10792 INFO);
10793 }
10794
10795 //-- dsygvd --------------------------------------------------------------------
10796 void
10797 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
10798 const char *JOBZ,
10799 const char *UPLO,
10800 const INTEGER *N,
10801 DOUBLE *A,
10802 const INTEGER *LDA,
10803 DOUBLE *B,
10804 const INTEGER *LDB,
10805 DOUBLE *W,
10806 DOUBLE *WORK,
10807 const INTEGER *LWORK,
10808 INTEGER *IWORK,
10809 const INTEGER *LIWORK,
10810 INTEGER *INFO)
10811 {
10812 DEBUG_LAPACK_STUB("dsygvd");
10813 LAPACK_IMPL(dsygvd)(ITYPE,
10814 JOBZ,
10815 UPLO,
10816 N,
10817 A,
10818 LDA,
10819 B,
10820 LDB,
10821 W,
10822 WORK,
10823 LWORK,
10824 IWORK,
10825 LIWORK,
10826 INFO);
10827 }
10828
10829 //-- dsygvx --------------------------------------------------------------------
10830 void
10831 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
10832 const char *JOBZ,
10833 const char *RANGE,
10834 const char *UPLO,
10835 const INTEGER *N,
10836 DOUBLE *A,
10837 const INTEGER *LDA,
10838 DOUBLE *B,
10839 const INTEGER *LDB,
10840 const DOUBLE *VL,
10841 const DOUBLE *VU,
10842 const INTEGER *IL,
10843 const INTEGER *IU,
10844 const DOUBLE *ABSTOL,
10845 INTEGER *M,
10846 DOUBLE *W,
10847 DOUBLE *Z,
10848 const INTEGER *LDZ,
10849 DOUBLE *WORK,
10850 const INTEGER *LWORK,
10851 const INTEGER *IWORK,
10852 INTEGER *IFAIL,
10853 INTEGER *INFO)
10854 {
10855 DEBUG_LAPACK_STUB("dsygvx");
10856 LAPACK_IMPL(dsygvx)(ITYPE,
10857 JOBZ,
10858 RANGE,
10859 UPLO,
10860 N,
10861 A,
10862 LDA,
10863 B,
10864 LDB,
10865 VL,
10866 VU,
10867 IL,
10868 IU,
10869 ABSTOL,
10870 M,
10871 W,
10872 Z,
10873 LDZ,
10874 WORK,
10875 LWORK,
10876 IWORK,
10877 IFAIL,
10878 INFO);
10879 }
10880
10881 //-- dsyrfs --------------------------------------------------------------------
10882 void
10883 LAPACK_DECL(dsyrfs)(const char *UPLO,
10884 const INTEGER *N,
10885 const INTEGER *NRHS,
10886 const DOUBLE *A,
10887 const INTEGER *LDA,
10888 const DOUBLE *AF,
10889 const INTEGER *LDAF,
10890 const INTEGER *IPIV,
10891 const DOUBLE *B,
10892 const INTEGER *LDB,
10893 DOUBLE *X,
10894 const INTEGER *LDX,
10895 DOUBLE *FERR,
10896 DOUBLE *BERR,
10897 const DOUBLE *WORK,
10898 const INTEGER *IWORK,
10899 INTEGER *INFO)
10900 {
10901 DEBUG_LAPACK_STUB("dsyrfs");
10902 LAPACK_IMPL(dsyrfs)(UPLO,
10903 N,
10904 NRHS,
10905 A,
10906 LDA,
10907 AF,
10908 LDAF,
10909 IPIV,
10910 B,
10911 LDB,
10912 X,
10913 LDX,
10914 FERR,
10915 BERR,
10916 WORK,
10917 IWORK,
10918 INFO);
10919 }
10920
10921 //-- dsyrfsx -------------------------------------------------------------------
10922 void
10923 LAPACK_DECL(dsyrfsx)(const char *UPLO,
10924 const char *EQUED,
10925 const INTEGER *N,
10926 const INTEGER *NRHS,
10927 const DOUBLE *A,
10928 const INTEGER *LDA,
10929 const DOUBLE *AF,
10930 const INTEGER *LDAF,
10931 const INTEGER *IPIV,
10932 DOUBLE *S,
10933 const DOUBLE *B,
10934 const INTEGER *LDB,
10935 DOUBLE *X,
10936 const INTEGER *LDX,
10937 DOUBLE *RCOND,
10938 DOUBLE *BERR,
10939 const INTEGER *N_ERR_BNDS,
10940 DOUBLE *ERR_BNDS_NORM,
10941 DOUBLE *ERR_BNDS_COMP,
10942 const INTEGER *NPARAMS,
10943 DOUBLE *PARAMS,
10944 const DOUBLE *WORK,
10945 const INTEGER *IWORK,
10946 INTEGER *INFO)
10947 {
10948 DEBUG_LAPACK_STUB("dsyrfsx");
10949 LAPACK_IMPL(dsyrfsx)(UPLO,
10950 EQUED,
10951 N,
10952 NRHS,
10953 A,
10954 LDA,
10955 AF,
10956 LDAF,
10957 IPIV,
10958 S,
10959 B,
10960 LDB,
10961 X,
10962 LDX,
10963 RCOND,
10964 BERR,
10965 N_ERR_BNDS,
10966 ERR_BNDS_NORM,
10967 ERR_BNDS_COMP,
10968 NPARAMS,
10969 PARAMS,
10970 WORK,
10971 IWORK,
10972 INFO);
10973 }
10974
10975 //-- dsysv ---------------------------------------------------------------------
10976 void
10977 LAPACK_DECL(dsysv)(const char *UPLO,
10978 const INTEGER *N,
10979 const INTEGER *NRHS,
10980 DOUBLE *A,
10981 const INTEGER *LDA,
10982 INTEGER *IPIV,
10983 DOUBLE *B,
10984 const INTEGER *LDB,
10985 DOUBLE *WORK,
10986 const INTEGER *LWORK,
10987 INTEGER *INFO)
10988 {
10989 DEBUG_LAPACK_STUB("dsysv");
10990 LAPACK_IMPL(dsysv)(UPLO,
10991 N,
10992 NRHS,
10993 A,
10994 LDA,
10995 IPIV,
10996 B,
10997 LDB,
10998 WORK,
10999 LWORK,
11000 INFO);
11001 }
11002
11003 //-- dsysvx --------------------------------------------------------------------
11004 void
11005 LAPACK_DECL(dsysvx)(const char *FACT,
11006 const char *UPLO,
11007 const INTEGER *N,
11008 const INTEGER *NRHS,
11009 const DOUBLE *A,
11010 const INTEGER *LDA,
11011 DOUBLE *AF,
11012 const INTEGER *LDAF,
11013 INTEGER *IPIV,
11014 const DOUBLE *B,
11015 const INTEGER *LDB,
11016 DOUBLE *X,
11017 const INTEGER *LDX,
11018 DOUBLE *RCOND,
11019 DOUBLE *FERR,
11020 DOUBLE *BERR,
11021 DOUBLE *WORK,
11022 const INTEGER *LWORK,
11023 const INTEGER *IWORK,
11024 INTEGER *INFO)
11025 {
11026 DEBUG_LAPACK_STUB("dsysvx");
11027 LAPACK_IMPL(dsysvx)(FACT,
11028 UPLO,
11029 N,
11030 NRHS,
11031 A,
11032 LDA,
11033 AF,
11034 LDAF,
11035 IPIV,
11036 B,
11037 LDB,
11038 X,
11039 LDX,
11040 RCOND,
11041 FERR,
11042 BERR,
11043 WORK,
11044 LWORK,
11045 IWORK,
11046 INFO);
11047 }
11048
11049 //-- dsysvxx -------------------------------------------------------------------
11050 void
11051 LAPACK_DECL(dsysvxx)(const char *FACT,
11052 const char *UPLO,
11053 const INTEGER *N,
11054 const INTEGER *NRHS,
11055 DOUBLE *A,
11056 const INTEGER *LDA,
11057 DOUBLE *AF,
11058 const INTEGER *LDAF,
11059 INTEGER *IPIV,
11060 char *EQUED,
11061 DOUBLE *S,
11062 DOUBLE *B,
11063 const INTEGER *LDB,
11064 DOUBLE *X,
11065 const INTEGER *LDX,
11066 DOUBLE *RCOND,
11067 DOUBLE *RPVGRW,
11068 DOUBLE *BERR,
11069 const INTEGER *N_ERR_BNDS,
11070 DOUBLE *ERR_BNDS_NORM,
11071 DOUBLE *ERR_BNDS_COMP,
11072 const INTEGER *NPARAMS,
11073 DOUBLE *PARAMS,
11074 const DOUBLE *WORK,
11075 const INTEGER *IWORK,
11076 INTEGER *INFO)
11077 {
11078 DEBUG_LAPACK_STUB("dsysvxx");
11079 LAPACK_IMPL(dsysvxx)(FACT,
11080 UPLO,
11081 N,
11082 NRHS,
11083 A,
11084 LDA,
11085 AF,
11086 LDAF,
11087 IPIV,
11088 EQUED,
11089 S,
11090 B,
11091 LDB,
11092 X,
11093 LDX,
11094 RCOND,
11095 RPVGRW,
11096 BERR,
11097 N_ERR_BNDS,
11098 ERR_BNDS_NORM,
11099 ERR_BNDS_COMP,
11100 NPARAMS,
11101 PARAMS,
11102 WORK,
11103 IWORK,
11104 INFO);
11105 }
11106
11107 //-- dsyswapr ------------------------------------------------------------------
11108 void
11109 LAPACK_DECL(dsyswapr)(const char *UPLO,
11110 const INTEGER *N,
11111 DOUBLE *A,
11112 const INTEGER *LDA,
11113 const INTEGER *I1,
11114 const INTEGER *I2)
11115 {
11116 DEBUG_LAPACK_STUB("dsyswapr");
11117 LAPACK_IMPL(dsyswapr)(UPLO,
11118 N,
11119 A,
11120 LDA,
11121 I1,
11122 I2);
11123 }
11124
11125 //-- dsytd2 --------------------------------------------------------------------
11126 void
11127 LAPACK_DECL(dsytd2)(const char *UPLO,
11128 const INTEGER *N,
11129 DOUBLE *A,
11130 const INTEGER *LDA,
11131 DOUBLE *D,
11132 DOUBLE *E,
11133 DOUBLE *TAU,
11134 INTEGER *INFO)
11135 {
11136 DEBUG_LAPACK_STUB("dsytd2");
11137 LAPACK_IMPL(dsytd2)(UPLO,
11138 N,
11139 A,
11140 LDA,
11141 D,
11142 E,
11143 TAU,
11144 INFO);
11145 }
11146
11147 //-- dsytf2 --------------------------------------------------------------------
11148 void
11149 LAPACK_DECL(dsytf2)(const char *UPLO,
11150 const INTEGER *N,
11151 DOUBLE *A,
11152 const INTEGER *LDA,
11153 INTEGER *IPIV,
11154 INTEGER *INFO)
11155 {
11156 DEBUG_LAPACK_STUB("dsytf2");
11157 LAPACK_IMPL(dsytf2)(UPLO,
11158 N,
11159 A,
11160 LDA,
11161 IPIV,
11162 INFO);
11163 }
11164
11165 //-- dsytrd --------------------------------------------------------------------
11166 void
11167 LAPACK_DECL(dsytrd)(const char *UPLO,
11168 const INTEGER *N,
11169 DOUBLE *A,
11170 const INTEGER *LDA,
11171 DOUBLE *D,
11172 DOUBLE *E,
11173 DOUBLE *TAU,
11174 DOUBLE *WORK,
11175 const INTEGER *LWORK,
11176 INTEGER *INFO)
11177 {
11178 DEBUG_LAPACK_STUB("dsytrd");
11179 LAPACK_IMPL(dsytrd)(UPLO,
11180 N,
11181 A,
11182 LDA,
11183 D,
11184 E,
11185 TAU,
11186 WORK,
11187 LWORK,
11188 INFO);
11189 }
11190
11191 //-- dsytrf --------------------------------------------------------------------
11192 void
11193 LAPACK_DECL(dsytrf)(const char *UPLO,
11194 const INTEGER *N,
11195 DOUBLE *A,
11196 const INTEGER *LDA,
11197 INTEGER *IPIV,
11198 DOUBLE *WORK,
11199 const INTEGER *LWORK,
11200 INTEGER *INFO)
11201 {
11202 DEBUG_LAPACK_STUB("dsytrf");
11203 LAPACK_IMPL(dsytrf)(UPLO,
11204 N,
11205 A,
11206 LDA,
11207 IPIV,
11208 WORK,
11209 LWORK,
11210 INFO);
11211 }
11212
11213 //-- dsytri --------------------------------------------------------------------
11214 void
11215 LAPACK_DECL(dsytri)(const char *UPLO,
11216 const INTEGER *N,
11217 DOUBLE *A,
11218 const INTEGER *LDA,
11219 const INTEGER *IPIV,
11220 const DOUBLE *WORK,
11221 INTEGER *INFO)
11222 {
11223 DEBUG_LAPACK_STUB("dsytri");
11224 LAPACK_IMPL(dsytri)(UPLO,
11225 N,
11226 A,
11227 LDA,
11228 IPIV,
11229 WORK,
11230 INFO);
11231 }
11232
11233 //-- dsytri2 -------------------------------------------------------------------
11234 void
11235 LAPACK_DECL(dsytri2)(const char *UPLO,
11236 const INTEGER *N,
11237 DOUBLE *A,
11238 const INTEGER *LDA,
11239 const INTEGER *IPIV,
11240 const DOUBLE *WORK,
11241 const INTEGER *LWORK,
11242 INTEGER *INFO)
11243 {
11244 DEBUG_LAPACK_STUB("dsytri2");
11245 LAPACK_IMPL(dsytri2)(UPLO,
11246 N,
11247 A,
11248 LDA,
11249 IPIV,
11250 WORK,
11251 LWORK,
11252 INFO);
11253 }
11254
11255 //-- dsytri2x ------------------------------------------------------------------
11256 void
11257 LAPACK_DECL(dsytri2x)(const char *UPLO,
11258 const INTEGER *N,
11259 DOUBLE *A,
11260 const INTEGER *LDA,
11261 const INTEGER *IPIV,
11262 const DOUBLE *WORK,
11263 const INTEGER *NB,
11264 INTEGER *INFO)
11265 {
11266 DEBUG_LAPACK_STUB("dsytri2x");
11267 LAPACK_IMPL(dsytri2x)(UPLO,
11268 N,
11269 A,
11270 LDA,
11271 IPIV,
11272 WORK,
11273 NB,
11274 INFO);
11275 }
11276
11277 //-- dsytrs --------------------------------------------------------------------
11278 void
11279 LAPACK_DECL(dsytrs)(const char *UPLO,
11280 const INTEGER *N,
11281 const INTEGER *NRHS,
11282 const DOUBLE *A,
11283 const INTEGER *LDA,
11284 const INTEGER *IPIV,
11285 DOUBLE *B,
11286 const INTEGER *LDB,
11287 INTEGER *INFO)
11288 {
11289 DEBUG_LAPACK_STUB("dsytrs");
11290 LAPACK_IMPL(dsytrs)(UPLO,
11291 N,
11292 NRHS,
11293 A,
11294 LDA,
11295 IPIV,
11296 B,
11297 LDB,
11298 INFO);
11299 }
11300
11301 //-- dsytrs2 -------------------------------------------------------------------
11302 void
11303 LAPACK_DECL(dsytrs2)(const char *UPLO,
11304 const INTEGER *N,
11305 const INTEGER *NRHS,
11306 const DOUBLE *A,
11307 const INTEGER *LDA,
11308 const INTEGER *IPIV,
11309 DOUBLE *B,
11310 const INTEGER *LDB,
11311 const DOUBLE *WORK,
11312 INTEGER *INFO)
11313 {
11314 DEBUG_LAPACK_STUB("dsytrs2");
11315 LAPACK_IMPL(dsytrs2)(UPLO,
11316 N,
11317 NRHS,
11318 A,
11319 LDA,
11320 IPIV,
11321 B,
11322 LDB,
11323 WORK,
11324 INFO);
11325 }
11326
11327 //-- dtbcon --------------------------------------------------------------------
11328 void
11329 LAPACK_DECL(dtbcon)(const char *NORM,
11330 const char *UPLO,
11331 const char *DIAG,
11332 const INTEGER *N,
11333 const INTEGER *KD,
11334 const DOUBLE *AB,
11335 const INTEGER *LDAB,
11336 DOUBLE *RCOND,
11337 const DOUBLE *WORK,
11338 const INTEGER *IWORK,
11339 INTEGER *INFO)
11340 {
11341 DEBUG_LAPACK_STUB("dtbcon");
11342 LAPACK_IMPL(dtbcon)(NORM,
11343 UPLO,
11344 DIAG,
11345 N,
11346 KD,
11347 AB,
11348 LDAB,
11349 RCOND,
11350 WORK,
11351 IWORK,
11352 INFO);
11353 }
11354
11355 //-- dtbrfs --------------------------------------------------------------------
11356 void
11357 LAPACK_DECL(dtbrfs)(const char *UPLO,
11358 const char *TRANS,
11359 const char *DIAG,
11360 const INTEGER *N,
11361 const INTEGER *KD,
11362 const INTEGER *NRHS,
11363 const DOUBLE *AB,
11364 const INTEGER *LDAB,
11365 const DOUBLE *B,
11366 const INTEGER *LDB,
11367 const DOUBLE *X,
11368 const INTEGER *LDX,
11369 DOUBLE *FERR,
11370 DOUBLE *BERR,
11371 const DOUBLE *WORK,
11372 const INTEGER *IWORK,
11373 INTEGER *INFO)
11374 {
11375 DEBUG_LAPACK_STUB("dtbrfs");
11376 LAPACK_IMPL(dtbrfs)(UPLO,
11377 TRANS,
11378 DIAG,
11379 N,
11380 KD,
11381 NRHS,
11382 AB,
11383 LDAB,
11384 B,
11385 LDB,
11386 X,
11387 LDX,
11388 FERR,
11389 BERR,
11390 WORK,
11391 IWORK,
11392 INFO);
11393 }
11394
11395 //-- dtbtrs --------------------------------------------------------------------
11396 void
11397 LAPACK_DECL(dtbtrs)(const char *UPLO,
11398 const char *TRANS,
11399 const char *DIAG,
11400 const INTEGER *N,
11401 const INTEGER *KD,
11402 const INTEGER *NRHS,
11403 const DOUBLE *AB,
11404 const INTEGER *LDAB,
11405 DOUBLE *B,
11406 const INTEGER *LDB,
11407 INTEGER *INFO)
11408 {
11409 DEBUG_LAPACK_STUB("dtbtrs");
11410 LAPACK_IMPL(dtbtrs)(UPLO,
11411 TRANS,
11412 DIAG,
11413 N,
11414 KD,
11415 NRHS,
11416 AB,
11417 LDAB,
11418 B,
11419 LDB,
11420 INFO);
11421 }
11422
11423 //-- dtfsm ---------------------------------------------------------------------
11424 void
11425 LAPACK_DECL(dtfsm)(const char *TRANSR,
11426 const char *SIDE,
11427 const char *UPLO,
11428 const char *TRANS,
11429 const char *DIAG,
11430 const INTEGER *M,
11431 const INTEGER *N,
11432 const DOUBLE *ALPHA,
11433 const DOUBLE *A,
11434 DOUBLE *B,
11435 const INTEGER *LDB)
11436 {
11437 DEBUG_LAPACK_STUB("dtfsm");
11438 LAPACK_IMPL(dtfsm)(TRANSR,
11439 SIDE,
11440 UPLO,
11441 TRANS,
11442 DIAG,
11443 M,
11444 N,
11445 ALPHA,
11446 A,
11447 B,
11448 LDB);
11449 }
11450
11451 //-- dtftri --------------------------------------------------------------------
11452 void
11453 LAPACK_DECL(dtftri)(const char *TRANSR,
11454 const char *UPLO,
11455 const char *DIAG,
11456 const INTEGER *N,
11457 DOUBLE *A,
11458 INTEGER *INFO)
11459 {
11460 DEBUG_LAPACK_STUB("dtftri");
11461 LAPACK_IMPL(dtftri)(TRANSR,
11462 UPLO,
11463 DIAG,
11464 N,
11465 A,
11466 INFO);
11467 }
11468
11469 //-- dtfttp --------------------------------------------------------------------
11470 void
11471 LAPACK_DECL(dtfttp)(const char *TRANSR,
11472 const char *UPLO,
11473 const INTEGER *N,
11474 const DOUBLE *ARF,
11475 DOUBLE *AP,
11476 INTEGER *INFO)
11477 {
11478 DEBUG_LAPACK_STUB("dtfttp");
11479 LAPACK_IMPL(dtfttp)(TRANSR,
11480 UPLO,
11481 N,
11482 ARF,
11483 AP,
11484 INFO);
11485 }
11486
11487 //-- dtfttr --------------------------------------------------------------------
11488 void
11489 LAPACK_DECL(dtfttr)(const char *TRANSR,
11490 const char *UPLO,
11491 const INTEGER *N,
11492 const DOUBLE *ARF,
11493 DOUBLE *A,
11494 const INTEGER *LDA,
11495 INTEGER *INFO)
11496 {
11497 DEBUG_LAPACK_STUB("dtfttr");
11498 LAPACK_IMPL(dtfttr)(TRANSR,
11499 UPLO,
11500 N,
11501 ARF,
11502 A,
11503 LDA,
11504 INFO);
11505 }
11506
11507 //-- dtgevc --------------------------------------------------------------------
11508 void
11509 LAPACK_DECL(dtgevc)(const char *SIDE,
11510 const char *HOWMNY,
11511 const LOGICAL *SELECT,
11512 const INTEGER *N,
11513 const DOUBLE *S,
11514 const INTEGER *LDS,
11515 const DOUBLE *P,
11516 const INTEGER *LDP,
11517 DOUBLE *VL,
11518 const INTEGER *LDVL,
11519 DOUBLE *VR,
11520 const INTEGER *LDVR,
11521 const INTEGER *MM,
11522 INTEGER *M,
11523 const DOUBLE *WORK,
11524 INTEGER *INFO)
11525 {
11526 DEBUG_LAPACK_STUB("dtgevc");
11527 LAPACK_IMPL(dtgevc)(SIDE,
11528 HOWMNY,
11529 SELECT,
11530 N,
11531 S,
11532 LDS,
11533 P,
11534 LDP,
11535 VL,
11536 LDVL,
11537 VR,
11538 LDVR,
11539 MM,
11540 M,
11541 WORK,
11542 INFO);
11543 }
11544
11545 //-- dtgex2 --------------------------------------------------------------------
11546 void
11547 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
11548 const LOGICAL *WANTZ,
11549 const INTEGER *N,
11550 DOUBLE *A,
11551 const INTEGER *LDA,
11552 DOUBLE *B,
11553 const INTEGER *LDB,
11554 DOUBLE *Q,
11555 const INTEGER *LDQ,
11556 DOUBLE *Z,
11557 const INTEGER *LDZ,
11558 const INTEGER *J1,
11559 const INTEGER *N1,
11560 const INTEGER *N2,
11561 const DOUBLE *WORK,
11562 const INTEGER *LWORK,
11563 INTEGER *INFO)
11564 {
11565 DEBUG_LAPACK_STUB("dtgex2");
11566 LAPACK_IMPL(dtgex2)(WANTQ,
11567 WANTZ,
11568 N,
11569 A,
11570 LDA,
11571 B,
11572 LDB,
11573 Q,
11574 LDQ,
11575 Z,
11576 LDZ,
11577 J1,
11578 N1,
11579 N2,
11580 WORK,
11581 LWORK,
11582 INFO);
11583 }
11584
11585 //-- dtgexc --------------------------------------------------------------------
11586 void
11587 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
11588 const LOGICAL *WANTZ,
11589 const INTEGER *N,
11590 DOUBLE *A,
11591 const INTEGER *LDA,
11592 DOUBLE *B,
11593 const INTEGER *LDB,
11594 DOUBLE *Q,
11595 const INTEGER *LDQ,
11596 DOUBLE *Z,
11597 const INTEGER *LDZ,
11598 INTEGER *IFST,
11599 INTEGER *ILST,
11600 DOUBLE *WORK,
11601 const INTEGER *LWORK,
11602 INTEGER *INFO)
11603 {
11604 DEBUG_LAPACK_STUB("dtgexc");
11605 LAPACK_IMPL(dtgexc)(WANTQ,
11606 WANTZ,
11607 N,
11608 A,
11609 LDA,
11610 B,
11611 LDB,
11612 Q,
11613 LDQ,
11614 Z,
11615 LDZ,
11616 IFST,
11617 ILST,
11618 WORK,
11619 LWORK,
11620 INFO);
11621 }
11622
11623 //-- dtgsen --------------------------------------------------------------------
11624 void
11625 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
11626 const LOGICAL *WANTQ,
11627 const LOGICAL *WANTZ,
11628 const LOGICAL *SELECT,
11629 const INTEGER *N,
11630 DOUBLE *A,
11631 const INTEGER *LDA,
11632 DOUBLE *B,
11633 const INTEGER *LDB,
11634 DOUBLE *ALPHAR,
11635 DOUBLE *ALPHAI,
11636 DOUBLE *BETA,
11637 DOUBLE *Q,
11638 const INTEGER *LDQ,
11639 DOUBLE *Z,
11640 const INTEGER *LDZ,
11641 INTEGER *M,
11642 DOUBLE *PL,
11643 DOUBLE *PR,
11644 DOUBLE *DIF,
11645 DOUBLE *WORK,
11646 const INTEGER *LWORK,
11647 INTEGER *IWORK,
11648 const INTEGER *LIWORK,
11649 INTEGER *INFO)
11650 {
11651 DEBUG_LAPACK_STUB("dtgsen");
11652 LAPACK_IMPL(dtgsen)(IJOB,
11653 WANTQ,
11654 WANTZ,
11655 SELECT,
11656 N,
11657 A,
11658 LDA,
11659 B,
11660 LDB,
11661 ALPHAR,
11662 ALPHAI,
11663 BETA,
11664 Q,
11665 LDQ,
11666 Z,
11667 LDZ,
11668 M,
11669 PL,
11670 PR,
11671 DIF,
11672 WORK,
11673 LWORK,
11674 IWORK,
11675 LIWORK,
11676 INFO);
11677 }
11678
11679 //-- dtgsja --------------------------------------------------------------------
11680 void
11681 LAPACK_DECL(dtgsja)(const char *JOBU,
11682 const char *JOBV,
11683 const char *JOBQ,
11684 const INTEGER *M,
11685 const INTEGER *P,
11686 const INTEGER *N,
11687 const INTEGER *K,
11688 const INTEGER *L,
11689 DOUBLE *A,
11690 const INTEGER *LDA,
11691 DOUBLE *B,
11692 const INTEGER *LDB,
11693 const DOUBLE *TOLA,
11694 const DOUBLE *TOLB,
11695 DOUBLE *ALPHA,
11696 DOUBLE *BETA,
11697 DOUBLE *U,
11698 const INTEGER *LDU,
11699 DOUBLE *V,
11700 const INTEGER *LDV,
11701 DOUBLE *Q,
11702 const INTEGER *LDQ,
11703 const DOUBLE *WORK,
11704 INTEGER *NCYCLE,
11705 INTEGER *INFO)
11706 {
11707 DEBUG_LAPACK_STUB("dtgsja");
11708 LAPACK_IMPL(dtgsja)(JOBU,
11709 JOBV,
11710 JOBQ,
11711 M,
11712 P,
11713 N,
11714 K,
11715 L,
11716 A,
11717 LDA,
11718 B,
11719 LDB,
11720 TOLA,
11721 TOLB,
11722 ALPHA,
11723 BETA,
11724 U,
11725 LDU,
11726 V,
11727 LDV,
11728 Q,
11729 LDQ,
11730 WORK,
11731 NCYCLE,
11732 INFO);
11733 }
11734
11735 //-- dtgsna --------------------------------------------------------------------
11736 void
11737 LAPACK_DECL(dtgsna)(const char *JOB,
11738 const char *HOWMNY,
11739 const LOGICAL *SELECT,
11740 const INTEGER *N,
11741 const DOUBLE *A,
11742 const INTEGER *LDA,
11743 const DOUBLE *B,
11744 const INTEGER *LDB,
11745 const DOUBLE *VL,
11746 const INTEGER *LDVL,
11747 const DOUBLE *VR,
11748 const INTEGER *LDVR,
11749 DOUBLE *S,
11750 DOUBLE *DIF,
11751 const INTEGER *MM,
11752 INTEGER *M,
11753 DOUBLE *WORK,
11754 const INTEGER *LWORK,
11755 const INTEGER *IWORK,
11756 INTEGER *INFO)
11757 {
11758 DEBUG_LAPACK_STUB("dtgsna");
11759 LAPACK_IMPL(dtgsna)(JOB,
11760 HOWMNY,
11761 SELECT,
11762 N,
11763 A,
11764 LDA,
11765 B,
11766 LDB,
11767 VL,
11768 LDVL,
11769 VR,
11770 LDVR,
11771 S,
11772 DIF,
11773 MM,
11774 M,
11775 WORK,
11776 LWORK,
11777 IWORK,
11778 INFO);
11779 }
11780
11781 //-- dtgsy2 --------------------------------------------------------------------
11782 void
11783 LAPACK_DECL(dtgsy2)(const char *TRANS,
11784 const INTEGER *IJOB,
11785 const INTEGER *M,
11786 const INTEGER *N,
11787 const DOUBLE *A,
11788 const INTEGER *LDA,
11789 const DOUBLE *B,
11790 const INTEGER *LDB,
11791 DOUBLE *C,
11792 const INTEGER *LDC,
11793 const DOUBLE *D,
11794 const INTEGER *LDD,
11795 const DOUBLE *E,
11796 const INTEGER *LDE,
11797 DOUBLE *F,
11798 const INTEGER *LDF,
11799 DOUBLE *SCALE,
11800 DOUBLE *RDSUM,
11801 DOUBLE *RDSCAL,
11802 const INTEGER *IWORK,
11803 INTEGER *PQ,
11804 INTEGER *INFO)
11805 {
11806 DEBUG_LAPACK_STUB("dtgsy2");
11807 LAPACK_IMPL(dtgsy2)(TRANS,
11808 IJOB,
11809 M,
11810 N,
11811 A,
11812 LDA,
11813 B,
11814 LDB,
11815 C,
11816 LDC,
11817 D,
11818 LDD,
11819 E,
11820 LDE,
11821 F,
11822 LDF,
11823 SCALE,
11824 RDSUM,
11825 RDSCAL,
11826 IWORK,
11827 PQ,
11828 INFO);
11829 }
11830
11831 //-- dtgsyl --------------------------------------------------------------------
11832 void
11833 LAPACK_DECL(dtgsyl)(const char *TRANS,
11834 const INTEGER *IJOB,
11835 const INTEGER *M,
11836 const INTEGER *N,
11837 const DOUBLE *A,
11838 const INTEGER *LDA,
11839 const DOUBLE *B,
11840 const INTEGER *LDB,
11841 DOUBLE *C,
11842 const INTEGER *LDC,
11843 const DOUBLE *D,
11844 const INTEGER *LDD,
11845 const DOUBLE *E,
11846 const INTEGER *LDE,
11847 DOUBLE *F,
11848 const INTEGER *LDF,
11849 DOUBLE *SCALE,
11850 DOUBLE *DIF,
11851 DOUBLE *WORK,
11852 const INTEGER *LWORK,
11853 const INTEGER *IWORK,
11854 INTEGER *INFO)
11855 {
11856 DEBUG_LAPACK_STUB("dtgsyl");
11857 LAPACK_IMPL(dtgsyl)(TRANS,
11858 IJOB,
11859 M,
11860 N,
11861 A,
11862 LDA,
11863 B,
11864 LDB,
11865 C,
11866 LDC,
11867 D,
11868 LDD,
11869 E,
11870 LDE,
11871 F,
11872 LDF,
11873 SCALE,
11874 DIF,
11875 WORK,
11876 LWORK,
11877 IWORK,
11878 INFO);
11879 }
11880
11881 //-- dtpcon --------------------------------------------------------------------
11882 void
11883 LAPACK_DECL(dtpcon)(const char *NORM,
11884 const char *UPLO,
11885 const char *DIAG,
11886 const INTEGER *N,
11887 const DOUBLE *AP,
11888 DOUBLE *RCOND,
11889 const DOUBLE *WORK,
11890 const INTEGER *IWORK,
11891 INTEGER *INFO)
11892 {
11893 DEBUG_LAPACK_STUB("dtpcon");
11894 LAPACK_IMPL(dtpcon)(NORM,
11895 UPLO,
11896 DIAG,
11897 N,
11898 AP,
11899 RCOND,
11900 WORK,
11901 IWORK,
11902 INFO);
11903 }
11904
11905 //-- dtprfs --------------------------------------------------------------------
11906 void
11907 LAPACK_DECL(dtprfs)(const char *UPLO,
11908 const char *TRANS,
11909 const char *DIAG,
11910 const INTEGER *N,
11911 const INTEGER *NRHS,
11912 const DOUBLE *AP,
11913 const DOUBLE *B,
11914 const INTEGER *LDB,
11915 const DOUBLE *X,
11916 const INTEGER *LDX,
11917 DOUBLE *FERR,
11918 DOUBLE *BERR,
11919 const DOUBLE *WORK,
11920 const INTEGER *IWORK,
11921 INTEGER *INFO)
11922 {
11923 DEBUG_LAPACK_STUB("dtprfs");
11924 LAPACK_IMPL(dtprfs)(UPLO,
11925 TRANS,
11926 DIAG,
11927 N,
11928 NRHS,
11929 AP,
11930 B,
11931 LDB,
11932 X,
11933 LDX,
11934 FERR,
11935 BERR,
11936 WORK,
11937 IWORK,
11938 INFO);
11939 }
11940
11941 //-- dtptri --------------------------------------------------------------------
11942 void
11943 LAPACK_DECL(dtptri)(const char *UPLO,
11944 const char *DIAG,
11945 const INTEGER *N,
11946 DOUBLE *AP,
11947 INTEGER *INFO)
11948 {
11949 DEBUG_LAPACK_STUB("dtptri");
11950 LAPACK_IMPL(dtptri)(UPLO,
11951 DIAG,
11952 N,
11953 AP,
11954 INFO);
11955 }
11956
11957 //-- dtptrs --------------------------------------------------------------------
11958 void
11959 LAPACK_DECL(dtptrs)(const char *UPLO,
11960 const char *TRANS,
11961 const char *DIAG,
11962 const INTEGER *N,
11963 const INTEGER *NRHS,
11964 const DOUBLE *AP,
11965 DOUBLE *B,
11966 const INTEGER *LDB,
11967 INTEGER *INFO)
11968 {
11969 DEBUG_LAPACK_STUB("dtptrs");
11970 LAPACK_IMPL(dtptrs)(UPLO,
11971 TRANS,
11972 DIAG,
11973 N,
11974 NRHS,
11975 AP,
11976 B,
11977 LDB,
11978 INFO);
11979 }
11980
11981 //-- dtpttf --------------------------------------------------------------------
11982 void
11983 LAPACK_DECL(dtpttf)(const char *TRANSR,
11984 const char *UPLO,
11985 const INTEGER *N,
11986 const DOUBLE *AP,
11987 DOUBLE *ARF,
11988 INTEGER *INFO)
11989 {
11990 DEBUG_LAPACK_STUB("dtpttf");
11991 LAPACK_IMPL(dtpttf)(TRANSR,
11992 UPLO,
11993 N,
11994 AP,
11995 ARF,
11996 INFO);
11997 }
11998
11999 //-- dtpttr --------------------------------------------------------------------
12000 void
12001 LAPACK_DECL(dtpttr)(const char *UPLO,
12002 const INTEGER *N,
12003 const DOUBLE *AP,
12004 DOUBLE *A,
12005 const INTEGER *LDA,
12006 INTEGER *INFO)
12007 {
12008 DEBUG_LAPACK_STUB("dtpttr");
12009 LAPACK_IMPL(dtpttr)(UPLO,
12010 N,
12011 AP,
12012 A,
12013 LDA,
12014 INFO);
12015 }
12016
12017 //-- dtrcon --------------------------------------------------------------------
12018 void
12019 LAPACK_DECL(dtrcon)(const char *NORM,
12020 const char *UPLO,
12021 const char *DIAG,
12022 const INTEGER *N,
12023 const DOUBLE *A,
12024 const INTEGER *LDA,
12025 DOUBLE *RCOND,
12026 const DOUBLE *WORK,
12027 const INTEGER *IWORK,
12028 INTEGER *INFO)
12029 {
12030 DEBUG_LAPACK_STUB("dtrcon");
12031 LAPACK_IMPL(dtrcon)(NORM,
12032 UPLO,
12033 DIAG,
12034 N,
12035 A,
12036 LDA,
12037 RCOND,
12038 WORK,
12039 IWORK,
12040 INFO);
12041 }
12042
12043 //-- dtrevc --------------------------------------------------------------------
12044 void
12045 LAPACK_DECL(dtrevc)(const char *SIDE,
12046 const char *HOWMNY,
12047 LOGICAL *SELECT,
12048 const INTEGER *N,
12049 const DOUBLE *T,
12050 const INTEGER *LDT,
12051 DOUBLE *VL,
12052 const INTEGER *LDVL,
12053 DOUBLE *VR,
12054 const INTEGER *LDVR,
12055 const INTEGER *MM,
12056 INTEGER *M,
12057 const DOUBLE *WORK,
12058 INTEGER *INFO)
12059 {
12060 DEBUG_LAPACK_STUB("dtrevc");
12061 LAPACK_IMPL(dtrevc)(SIDE,
12062 HOWMNY,
12063 SELECT,
12064 N,
12065 T,
12066 LDT,
12067 VL,
12068 LDVL,
12069 VR,
12070 LDVR,
12071 MM,
12072 M,
12073 WORK,
12074 INFO);
12075 }
12076
12077 //-- dtrexc --------------------------------------------------------------------
12078 void
12079 LAPACK_DECL(dtrexc)(const char *COMPQ,
12080 const INTEGER *N,
12081 DOUBLE *T,
12082 const INTEGER *LDT,
12083 DOUBLE *Q,
12084 const INTEGER *LDQ,
12085 INTEGER *IFST,
12086 INTEGER *ILST,
12087 const DOUBLE *WORK,
12088 INTEGER *INFO)
12089 {
12090 DEBUG_LAPACK_STUB("dtrexc");
12091 LAPACK_IMPL(dtrexc)(COMPQ,
12092 N,
12093 T,
12094 LDT,
12095 Q,
12096 LDQ,
12097 IFST,
12098 ILST,
12099 WORK,
12100 INFO);
12101 }
12102
12103 //-- dtrrfs --------------------------------------------------------------------
12104 void
12105 LAPACK_DECL(dtrrfs)(const char *UPLO,
12106 const char *TRANS,
12107 const char *DIAG,
12108 const INTEGER *N,
12109 const INTEGER *NRHS,
12110 const DOUBLE *A,
12111 const INTEGER *LDA,
12112 const DOUBLE *B,
12113 const INTEGER *LDB,
12114 const DOUBLE *X,
12115 const INTEGER *LDX,
12116 DOUBLE *FERR,
12117 DOUBLE *BERR,
12118 const DOUBLE *WORK,
12119 const INTEGER *IWORK,
12120 INTEGER *INFO)
12121 {
12122 DEBUG_LAPACK_STUB("dtrrfs");
12123 LAPACK_IMPL(dtrrfs)(UPLO,
12124 TRANS,
12125 DIAG,
12126 N,
12127 NRHS,
12128 A,
12129 LDA,
12130 B,
12131 LDB,
12132 X,
12133 LDX,
12134 FERR,
12135 BERR,
12136 WORK,
12137 IWORK,
12138 INFO);
12139 }
12140
12141 //-- dtrsen --------------------------------------------------------------------
12142 void
12143 LAPACK_DECL(dtrsen)(const char *JOB,
12144 const char *COMPQ,
12145 const LOGICAL *SELECT,
12146 const INTEGER *N,
12147 DOUBLE *T,
12148 const INTEGER *LDT,
12149 DOUBLE *Q,
12150 const INTEGER *LDQ,
12151 DOUBLE *WR,
12152 DOUBLE *WI,
12153 INTEGER *M,
12154 DOUBLE *S,
12155 DOUBLE *SEP,
12156 DOUBLE *WORK,
12157 const INTEGER *LWORK,
12158 const INTEGER *IWORK,
12159 const INTEGER *LIWORK,
12160 INTEGER *INFO)
12161 {
12162 DEBUG_LAPACK_STUB("dtrsen");
12163 LAPACK_IMPL(dtrsen)(JOB,
12164 COMPQ,
12165 SELECT,
12166 N,
12167 T,
12168 LDT,
12169 Q,
12170 LDQ,
12171 WR,
12172 WI,
12173 M,
12174 S,
12175 SEP,
12176 WORK,
12177 LWORK,
12178 IWORK,
12179 LIWORK,
12180 INFO);
12181 }
12182
12183 //-- dtrsna --------------------------------------------------------------------
12184 void
12185 LAPACK_DECL(dtrsna)(const char *JOB,
12186 const char *HOWMNY,
12187 const LOGICAL *SELECT,
12188 const INTEGER *N,
12189 const DOUBLE *T,
12190 const INTEGER *LDT,
12191 const DOUBLE *VL,
12192 const INTEGER *LDVL,
12193 const DOUBLE *VR,
12194 const INTEGER *LDVR,
12195 DOUBLE *S,
12196 DOUBLE *SEP,
12197 const INTEGER *MM,
12198 INTEGER *M,
12199 const DOUBLE *WORK,
12200 const INTEGER *LDWORK,
12201 const INTEGER *IWORK,
12202 INTEGER *INFO)
12203 {
12204 DEBUG_LAPACK_STUB("dtrsna");
12205 LAPACK_IMPL(dtrsna)(JOB,
12206 HOWMNY,
12207 SELECT,
12208 N,
12209 T,
12210 LDT,
12211 VL,
12212 LDVL,
12213 VR,
12214 LDVR,
12215 S,
12216 SEP,
12217 MM,
12218 M,
12219 WORK,
12220 LDWORK,
12221 IWORK,
12222 INFO);
12223 }
12224
12225 //-- dtrsyl --------------------------------------------------------------------
12226 void
12227 LAPACK_DECL(dtrsyl)(const char *TRANA,
12228 const char *TRANB,
12229 const INTEGER *ISGN,
12230 const INTEGER *M,
12231 const INTEGER *N,
12232 const DOUBLE *A,
12233 const INTEGER *LDA,
12234 const DOUBLE *B,
12235 const INTEGER *LDB,
12236 DOUBLE *C,
12237 const INTEGER *LDC,
12238 DOUBLE *SCALE,
12239 INTEGER *INFO)
12240 {
12241 DEBUG_LAPACK_STUB("dtrsyl");
12242 LAPACK_IMPL(dtrsyl)(TRANA,
12243 TRANB,
12244 ISGN,
12245 M,
12246 N,
12247 A,
12248 LDA,
12249 B,
12250 LDB,
12251 C,
12252 LDC,
12253 SCALE,
12254 INFO);
12255 }
12256
12257 //-- dtrti2 --------------------------------------------------------------------
12258 void
12259 LAPACK_DECL(dtrti2)(const char *UPLO,
12260 const char *DIAG,
12261 const INTEGER *N,
12262 DOUBLE *A,
12263 const INTEGER *LDA,
12264 INTEGER *INFO)
12265 {
12266 DEBUG_LAPACK_STUB("dtrti2");
12267 LAPACK_IMPL(dtrti2)(UPLO,
12268 DIAG,
12269 N,
12270 A,
12271 LDA,
12272 INFO);
12273 }
12274
12275 //-- dtrtri --------------------------------------------------------------------
12276 void
12277 LAPACK_DECL(dtrtri)(const char *UPLO,
12278 const char *DIAG,
12279 const INTEGER *N,
12280 DOUBLE *A,
12281 const INTEGER *LDA,
12282 INTEGER *INFO)
12283 {
12284 DEBUG_LAPACK_STUB("dtrtri");
12285 LAPACK_IMPL(dtrtri)(UPLO,
12286 DIAG,
12287 N,
12288 A,
12289 LDA,
12290 INFO);
12291 }
12292
12293 //-- dtrtrs --------------------------------------------------------------------
12294 void
12295 LAPACK_DECL(dtrtrs)(const char *UPLO,
12296 const char *TRANS,
12297 const char *DIAG,
12298 const INTEGER *N,
12299 const INTEGER *NRHS,
12300 const DOUBLE *A,
12301 const INTEGER *LDA,
12302 DOUBLE *B,
12303 const INTEGER *LDB,
12304 INTEGER *INFO)
12305 {
12306 DEBUG_LAPACK_STUB("dtrtrs");
12307 LAPACK_IMPL(dtrtrs)(UPLO,
12308 TRANS,
12309 DIAG,
12310 N,
12311 NRHS,
12312 A,
12313 LDA,
12314 B,
12315 LDB,
12316 INFO);
12317 }
12318
12319 //-- dtrttf --------------------------------------------------------------------
12320 void
12321 LAPACK_DECL(dtrttf)(const char *TRANSR,
12322 const char *UPLO,
12323 const INTEGER *N,
12324 const DOUBLE *A,
12325 const INTEGER *LDA,
12326 DOUBLE *ARF,
12327 INTEGER *INFO)
12328 {
12329 DEBUG_LAPACK_STUB("dtrttf");
12330 LAPACK_IMPL(dtrttf)(TRANSR,
12331 UPLO,
12332 N,
12333 A,
12334 LDA,
12335 ARF,
12336 INFO);
12337 }
12338
12339 //-- dtrttp --------------------------------------------------------------------
12340 void
12341 LAPACK_DECL(dtrttp)(const char *UPLO,
12342 const INTEGER *N,
12343 const DOUBLE *A,
12344 const INTEGER *LDA,
12345 DOUBLE *AP,
12346 INTEGER *INFO)
12347 {
12348 DEBUG_LAPACK_STUB("dtrttp");
12349 LAPACK_IMPL(dtrttp)(UPLO,
12350 N,
12351 A,
12352 LDA,
12353 AP,
12354 INFO);
12355 }
12356
12357 //-- dtzrqf --------------------------------------------------------------------
12358 void
12359 LAPACK_DECL(dtzrqf)(const INTEGER *M,
12360 const INTEGER *N,
12361 DOUBLE *A,
12362 const INTEGER *LDA,
12363 DOUBLE *TAU,
12364 INTEGER *INFO)
12365 {
12366 DEBUG_LAPACK_STUB("dtzrqf");
12367 LAPACK_IMPL(dtzrqf)(M,
12368 N,
12369 A,
12370 LDA,
12371 TAU,
12372 INFO);
12373 }
12374
12375 //-- dtzrzf --------------------------------------------------------------------
12376 void
12377 LAPACK_DECL(dtzrzf)(const INTEGER *M,
12378 const INTEGER *N,
12379 DOUBLE *A,
12380 const INTEGER *LDA,
12381 DOUBLE *TAU,
12382 DOUBLE *WORK,
12383 const INTEGER *LWORK,
12384 INTEGER *INFO)
12385 {
12386 DEBUG_LAPACK_STUB("dtzrzf");
12387 LAPACK_IMPL(dtzrzf)(M,
12388 N,
12389 A,
12390 LDA,
12391 TAU,
12392 WORK,
12393 LWORK,
12394 INFO);
12395 }
12396
12397 //-- dzsum1 --------------------------------------------------------------------
12398 DOUBLE
12399 LAPACK_DECL(dzsum1)(const INTEGER *N,
12400 const DOUBLE_COMPLEX *CX,
12401 const INTEGER *INCX)
12402 {
12403 DEBUG_LAPACK_STUB("dzsum1");
12404 return LAPACK_IMPL(dzsum1)(N,
12405 CX,
12406 INCX);
12407 }
12408
12409 //-- ieeeck --------------------------------------------------------------------
12410 INTEGER
12411 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
12412 const FLOAT *ZERO,
12413 const FLOAT *ONE)
12414 {
12415 DEBUG_LAPACK_STUB("ieeeck");
12416 return LAPACK_IMPL(ieeeck)(ISPEC,
12417 ZERO,
12418 ONE);
12419 }
12420
12421 //-- iladlc --------------------------------------------------------------------
12422 INTEGER
12423 LAPACK_DECL(iladlc)(const INTEGER *M,
12424 const INTEGER *N,
12425 const DOUBLE *A,
12426 const INTEGER *LDA)
12427 {
12428 DEBUG_LAPACK_STUB("iladlc");
12429 return LAPACK_IMPL(iladlc)(M,
12430 N,
12431 A,
12432 LDA);
12433 }
12434
12435 //-- iladlr --------------------------------------------------------------------
12436 INTEGER
12437 LAPACK_DECL(iladlr)(const INTEGER *M,
12438 const INTEGER *N,
12439 const DOUBLE *A,
12440 const INTEGER *LDA)
12441 {
12442 DEBUG_LAPACK_STUB("iladlr");
12443 return LAPACK_IMPL(iladlr)(M,
12444 N,
12445 A,
12446 LDA);
12447 }
12448
12449 //-- ilaslc --------------------------------------------------------------------
12450 INTEGER
12451 LAPACK_DECL(ilaslc)(const INTEGER *M,
12452 const INTEGER *N,
12453 const FLOAT *A,
12454 const INTEGER *LDA)
12455 {
12456 DEBUG_LAPACK_STUB("ilaslc");
12457 return LAPACK_IMPL(ilaslc)(M,
12458 N,
12459 A,
12460 LDA);
12461 }
12462
12463 //-- ilaslr --------------------------------------------------------------------
12464 INTEGER
12465 LAPACK_DECL(ilaslr)(const INTEGER *M,
12466 const INTEGER *N,
12467 const FLOAT *A,
12468 const INTEGER *LDA)
12469 {
12470 DEBUG_LAPACK_STUB("ilaslr");
12471 return LAPACK_IMPL(ilaslr)(M,
12472 N,
12473 A,
12474 LDA);
12475 }
12476
12477 // warning: NAME has unknown type
12478 // warning: OPTS has unknown type
12479 //-- iparmq --------------------------------------------------------------------
12480 INTEGER
12481 LAPACK_DECL(iparmq)(const INTEGER *ISPEC,
12482 UNKNOWN *NAME,
12483 UNKNOWN *OPTS,
12484 const INTEGER *N,
12485 const INTEGER *ILO,
12486 const INTEGER *IHI,
12487 const INTEGER *LWORK)
12488 {
12489 DEBUG_LAPACK_STUB("iparmq");
12490 return LAPACK_IMPL(iparmq)(ISPEC,
12491 NAME,
12492 OPTS,
12493 N,
12494 ILO,
12495 IHI,
12496 LWORK);
12497 }
12498
12499 //-- lsame ---------------------------------------------------------------------
12500 LOGICAL
12501 LAPACK_DECL(lsame)(const char *CA,
12502 const char *CB)
12503 {
12504 DEBUG_LAPACK_STUB("lsame");
12505 return LAPACK_IMPL(lsame)(CA,
12506 CB);
12507 }
12508
12509 // warning: SRNAME has unknown type
12510 //-- xerbla --------------------------------------------------------------------
12511 void
12512 LAPACK_DECL(xerbla)(UNKNOWN *SRNAME,
12513 const INTEGER *INFO)
12514 {
12515 DEBUG_LAPACK_STUB("xerbla");
12516 LAPACK_IMPL(xerbla)(SRNAME,
12517 INFO);
12518 }
12519
12520 } // extern "C"
2
3 //-- dbbcsd --------------------------------------------------------------------
4 void
5 LAPACK_DECL(dbbcsd)(const char *JOBU1,
6 const char *JOBU2,
7 const char *JOBV1T,
8 const char *JOBV2T,
9 const char *TRANS,
10 const INTEGER *M,
11 const INTEGER *P,
12 const INTEGER *Q,
13 DOUBLE *THETA,
14 const DOUBLE *PHI,
15 DOUBLE *U1,
16 const INTEGER *LDU1,
17 DOUBLE *U2,
18 const INTEGER *LDU2,
19 DOUBLE *V1T,
20 const INTEGER *LDV1T,
21 DOUBLE *V2T,
22 const INTEGER *LDV2T,
23 DOUBLE *B11D,
24 DOUBLE *B11E,
25 DOUBLE *B12D,
26 DOUBLE *B12E,
27 const DOUBLE *B21D,
28 const DOUBLE *B21E,
29 const DOUBLE *B22D,
30 const DOUBLE *B22E,
31 const DOUBLE *WORK,
32 const INTEGER *LWORK,
33 INTEGER *INFO)
34 {
35 DEBUG_LAPACK_STUB("dbbcsd");
36 LAPACK_IMPL(dbbcsd)(JOBU1,
37 JOBU2,
38 JOBV1T,
39 JOBV2T,
40 TRANS,
41 M,
42 P,
43 Q,
44 THETA,
45 PHI,
46 U1,
47 LDU1,
48 U2,
49 LDU2,
50 V1T,
51 LDV1T,
52 V2T,
53 LDV2T,
54 B11D,
55 B11E,
56 B12D,
57 B12E,
58 B21D,
59 B21E,
60 B22D,
61 B22E,
62 WORK,
63 LWORK,
64 INFO);
65 }
66
67 //-- dbdsdc --------------------------------------------------------------------
68 void
69 LAPACK_DECL(dbdsdc)(const char *UPLO,
70 const char *COMPQ,
71 const INTEGER *N,
72 DOUBLE *D,
73 DOUBLE *E,
74 DOUBLE *U,
75 const INTEGER *LDU,
76 DOUBLE *VT,
77 const INTEGER *LDVT,
78 DOUBLE *Q,
79 INTEGER *IQ,
80 const DOUBLE *WORK,
81 const INTEGER *IWORK,
82 INTEGER *INFO)
83 {
84 DEBUG_LAPACK_STUB("dbdsdc");
85 LAPACK_IMPL(dbdsdc)(UPLO,
86 COMPQ,
87 N,
88 D,
89 E,
90 U,
91 LDU,
92 VT,
93 LDVT,
94 Q,
95 IQ,
96 WORK,
97 IWORK,
98 INFO);
99 }
100
101 //-- dbdsqr --------------------------------------------------------------------
102 void
103 LAPACK_DECL(dbdsqr)(const char *UPLO,
104 const INTEGER *N,
105 const INTEGER *NCVT,
106 const INTEGER *NRU,
107 const INTEGER *NCC,
108 DOUBLE *D,
109 DOUBLE *E,
110 DOUBLE *VT,
111 const INTEGER *LDVT,
112 DOUBLE *U,
113 const INTEGER *LDU,
114 DOUBLE *C,
115 const INTEGER *LDC,
116 const DOUBLE *WORK,
117 INTEGER *INFO)
118 {
119 DEBUG_LAPACK_STUB("dbdsqr");
120 LAPACK_IMPL(dbdsqr)(UPLO,
121 N,
122 NCVT,
123 NRU,
124 NCC,
125 D,
126 E,
127 VT,
128 LDVT,
129 U,
130 LDU,
131 C,
132 LDC,
133 WORK,
134 INFO);
135 }
136
137 //-- ddisna --------------------------------------------------------------------
138 void
139 LAPACK_DECL(ddisna)(const char *JOB,
140 const INTEGER *M,
141 const INTEGER *N,
142 const DOUBLE *D,
143 DOUBLE *SEP,
144 INTEGER *INFO)
145 {
146 DEBUG_LAPACK_STUB("ddisna");
147 LAPACK_IMPL(ddisna)(JOB,
148 M,
149 N,
150 D,
151 SEP,
152 INFO);
153 }
154
155 //-- dgbbrd --------------------------------------------------------------------
156 void
157 LAPACK_DECL(dgbbrd)(const char *VECT,
158 const INTEGER *M,
159 const INTEGER *N,
160 const INTEGER *NCC,
161 const INTEGER *KL,
162 const INTEGER *KU,
163 DOUBLE *AB,
164 const INTEGER *LDAB,
165 DOUBLE *D,
166 DOUBLE *E,
167 DOUBLE *Q,
168 const INTEGER *LDQ,
169 DOUBLE *PT,
170 const INTEGER *LDPT,
171 DOUBLE *C,
172 const INTEGER *LDC,
173 const DOUBLE *WORK,
174 INTEGER *INFO)
175 {
176 DEBUG_LAPACK_STUB("dgbbrd");
177 LAPACK_IMPL(dgbbrd)(VECT,
178 M,
179 N,
180 NCC,
181 KL,
182 KU,
183 AB,
184 LDAB,
185 D,
186 E,
187 Q,
188 LDQ,
189 PT,
190 LDPT,
191 C,
192 LDC,
193 WORK,
194 INFO);
195 }
196
197 //-- dgbcon --------------------------------------------------------------------
198 void
199 LAPACK_DECL(dgbcon)(const char *NORM,
200 const INTEGER *N,
201 const INTEGER *KL,
202 const INTEGER *KU,
203 const DOUBLE *AB,
204 const INTEGER *LDAB,
205 const INTEGER *IPIV,
206 const DOUBLE *ANORM,
207 DOUBLE *RCOND,
208 const DOUBLE *WORK,
209 const INTEGER *IWORK,
210 INTEGER *INFO)
211 {
212 DEBUG_LAPACK_STUB("dgbcon");
213 LAPACK_IMPL(dgbcon)(NORM,
214 N,
215 KL,
216 KU,
217 AB,
218 LDAB,
219 IPIV,
220 ANORM,
221 RCOND,
222 WORK,
223 IWORK,
224 INFO);
225 }
226
227 //-- dgbequ --------------------------------------------------------------------
228 void
229 LAPACK_DECL(dgbequ)(const INTEGER *M,
230 const INTEGER *N,
231 const INTEGER *KL,
232 const INTEGER *KU,
233 const DOUBLE *AB,
234 const INTEGER *LDAB,
235 DOUBLE *R,
236 DOUBLE *C,
237 DOUBLE *ROWCND,
238 DOUBLE *COLCND,
239 DOUBLE *AMAX,
240 INTEGER *INFO)
241 {
242 DEBUG_LAPACK_STUB("dgbequ");
243 LAPACK_IMPL(dgbequ)(M,
244 N,
245 KL,
246 KU,
247 AB,
248 LDAB,
249 R,
250 C,
251 ROWCND,
252 COLCND,
253 AMAX,
254 INFO);
255 }
256
257 //-- dgbequb -------------------------------------------------------------------
258 void
259 LAPACK_DECL(dgbequb)(const INTEGER *M,
260 const INTEGER *N,
261 const INTEGER *KL,
262 const INTEGER *KU,
263 const DOUBLE *AB,
264 const INTEGER *LDAB,
265 DOUBLE *R,
266 DOUBLE *C,
267 DOUBLE *ROWCND,
268 DOUBLE *COLCND,
269 DOUBLE *AMAX,
270 INTEGER *INFO)
271 {
272 DEBUG_LAPACK_STUB("dgbequb");
273 LAPACK_IMPL(dgbequb)(M,
274 N,
275 KL,
276 KU,
277 AB,
278 LDAB,
279 R,
280 C,
281 ROWCND,
282 COLCND,
283 AMAX,
284 INFO);
285 }
286
287 //-- dgbrfs --------------------------------------------------------------------
288 void
289 LAPACK_DECL(dgbrfs)(const char *TRANS,
290 const INTEGER *N,
291 const INTEGER *KL,
292 const INTEGER *KU,
293 const INTEGER *NRHS,
294 const DOUBLE *AB,
295 const INTEGER *LDAB,
296 const DOUBLE *AFB,
297 const INTEGER *LDAFB,
298 const INTEGER *IPIV,
299 const DOUBLE *B,
300 const INTEGER *LDB,
301 DOUBLE *X,
302 const INTEGER *LDX,
303 DOUBLE *FERR,
304 DOUBLE *BERR,
305 const DOUBLE *WORK,
306 const INTEGER *IWORK,
307 INTEGER *INFO)
308 {
309 DEBUG_LAPACK_STUB("dgbrfs");
310 LAPACK_IMPL(dgbrfs)(TRANS,
311 N,
312 KL,
313 KU,
314 NRHS,
315 AB,
316 LDAB,
317 AFB,
318 LDAFB,
319 IPIV,
320 B,
321 LDB,
322 X,
323 LDX,
324 FERR,
325 BERR,
326 WORK,
327 IWORK,
328 INFO);
329 }
330
331 //-- dgbrfsx -------------------------------------------------------------------
332 void
333 LAPACK_DECL(dgbrfsx)(const char *TRANS,
334 const char *EQUED,
335 const INTEGER *N,
336 const INTEGER *KL,
337 const INTEGER *KU,
338 const INTEGER *NRHS,
339 const DOUBLE *AB,
340 const INTEGER *LDAB,
341 const DOUBLE *AFB,
342 const INTEGER *LDAFB,
343 const INTEGER *IPIV,
344 DOUBLE *R,
345 DOUBLE *C,
346 const DOUBLE *B,
347 const INTEGER *LDB,
348 DOUBLE *X,
349 const INTEGER *LDX,
350 DOUBLE *RCOND,
351 DOUBLE *BERR,
352 const INTEGER *N_ERR_BNDS,
353 DOUBLE *ERR_BNDS_NORM,
354 DOUBLE *ERR_BNDS_COMP,
355 const INTEGER *NPARAMS,
356 DOUBLE *PARAMS,
357 const DOUBLE *WORK,
358 const INTEGER *IWORK,
359 INTEGER *INFO)
360 {
361 DEBUG_LAPACK_STUB("dgbrfsx");
362 LAPACK_IMPL(dgbrfsx)(TRANS,
363 EQUED,
364 N,
365 KL,
366 KU,
367 NRHS,
368 AB,
369 LDAB,
370 AFB,
371 LDAFB,
372 IPIV,
373 R,
374 C,
375 B,
376 LDB,
377 X,
378 LDX,
379 RCOND,
380 BERR,
381 N_ERR_BNDS,
382 ERR_BNDS_NORM,
383 ERR_BNDS_COMP,
384 NPARAMS,
385 PARAMS,
386 WORK,
387 IWORK,
388 INFO);
389 }
390
391 //-- dgbsv ---------------------------------------------------------------------
392 void
393 LAPACK_DECL(dgbsv)(const INTEGER *N,
394 const INTEGER *KL,
395 const INTEGER *KU,
396 const INTEGER *NRHS,
397 DOUBLE *AB,
398 const INTEGER *LDAB,
399 INTEGER *IPIV,
400 DOUBLE *B,
401 const INTEGER *LDB,
402 INTEGER *INFO)
403 {
404 DEBUG_LAPACK_STUB("dgbsv");
405 LAPACK_IMPL(dgbsv)(N,
406 KL,
407 KU,
408 NRHS,
409 AB,
410 LDAB,
411 IPIV,
412 B,
413 LDB,
414 INFO);
415 }
416
417 //-- dgbsvx --------------------------------------------------------------------
418 void
419 LAPACK_DECL(dgbsvx)(const char *FACT,
420 const char *TRANS,
421 const INTEGER *N,
422 const INTEGER *KL,
423 const INTEGER *KU,
424 const INTEGER *NRHS,
425 DOUBLE *AB,
426 const INTEGER *LDAB,
427 DOUBLE *AFB,
428 const INTEGER *LDAFB,
429 INTEGER *IPIV,
430 char *EQUED,
431 DOUBLE *R,
432 DOUBLE *C,
433 DOUBLE *B,
434 const INTEGER *LDB,
435 DOUBLE *X,
436 const INTEGER *LDX,
437 DOUBLE *RCOND,
438 DOUBLE *FERR,
439 DOUBLE *BERR,
440 DOUBLE *WORK,
441 const INTEGER *IWORK,
442 INTEGER *INFO)
443 {
444 DEBUG_LAPACK_STUB("dgbsvx");
445 LAPACK_IMPL(dgbsvx)(FACT,
446 TRANS,
447 N,
448 KL,
449 KU,
450 NRHS,
451 AB,
452 LDAB,
453 AFB,
454 LDAFB,
455 IPIV,
456 EQUED,
457 R,
458 C,
459 B,
460 LDB,
461 X,
462 LDX,
463 RCOND,
464 FERR,
465 BERR,
466 WORK,
467 IWORK,
468 INFO);
469 }
470
471 //-- dgbsvxx -------------------------------------------------------------------
472 void
473 LAPACK_DECL(dgbsvxx)(const char *FACT,
474 const char *TRANS,
475 const INTEGER *N,
476 const INTEGER *KL,
477 const INTEGER *KU,
478 const INTEGER *NRHS,
479 DOUBLE *AB,
480 const INTEGER *LDAB,
481 DOUBLE *AFB,
482 const INTEGER *LDAFB,
483 INTEGER *IPIV,
484 char *EQUED,
485 DOUBLE *R,
486 DOUBLE *C,
487 DOUBLE *B,
488 const INTEGER *LDB,
489 DOUBLE *X,
490 const INTEGER *LDX,
491 DOUBLE *RCOND,
492 DOUBLE *RPVGRW,
493 DOUBLE *BERR,
494 const INTEGER *N_ERR_BNDS,
495 DOUBLE *ERR_BNDS_NORM,
496 DOUBLE *ERR_BNDS_COMP,
497 const INTEGER *NPARAMS,
498 DOUBLE *PARAMS,
499 const DOUBLE *WORK,
500 const INTEGER *IWORK,
501 INTEGER *INFO)
502 {
503 DEBUG_LAPACK_STUB("dgbsvxx");
504 LAPACK_IMPL(dgbsvxx)(FACT,
505 TRANS,
506 N,
507 KL,
508 KU,
509 NRHS,
510 AB,
511 LDAB,
512 AFB,
513 LDAFB,
514 IPIV,
515 EQUED,
516 R,
517 C,
518 B,
519 LDB,
520 X,
521 LDX,
522 RCOND,
523 RPVGRW,
524 BERR,
525 N_ERR_BNDS,
526 ERR_BNDS_NORM,
527 ERR_BNDS_COMP,
528 NPARAMS,
529 PARAMS,
530 WORK,
531 IWORK,
532 INFO);
533 }
534
535 //-- dgbtf2 --------------------------------------------------------------------
536 void
537 LAPACK_DECL(dgbtf2)(const INTEGER *M,
538 const INTEGER *N,
539 const INTEGER *KL,
540 const INTEGER *KU,
541 DOUBLE *AB,
542 const INTEGER *LDAB,
543 INTEGER *IPIV,
544 INTEGER *INFO)
545 {
546 DEBUG_LAPACK_STUB("dgbtf2");
547 LAPACK_IMPL(dgbtf2)(M,
548 N,
549 KL,
550 KU,
551 AB,
552 LDAB,
553 IPIV,
554 INFO);
555 }
556
557 //-- dgbtrf --------------------------------------------------------------------
558 void
559 LAPACK_DECL(dgbtrf)(const INTEGER *M,
560 const INTEGER *N,
561 const INTEGER *KL,
562 const INTEGER *KU,
563 DOUBLE *AB,
564 const INTEGER *LDAB,
565 INTEGER *IPIV,
566 INTEGER *INFO)
567 {
568 DEBUG_LAPACK_STUB("dgbtrf");
569 LAPACK_IMPL(dgbtrf)(M,
570 N,
571 KL,
572 KU,
573 AB,
574 LDAB,
575 IPIV,
576 INFO);
577 }
578
579 //-- dgbtrs --------------------------------------------------------------------
580 void
581 LAPACK_DECL(dgbtrs)(const char *TRANS,
582 const INTEGER *N,
583 const INTEGER *KL,
584 const INTEGER *KU,
585 const INTEGER *NRHS,
586 const DOUBLE *AB,
587 const INTEGER *LDAB,
588 const INTEGER *IPIV,
589 DOUBLE *B,
590 const INTEGER *LDB,
591 INTEGER *INFO)
592 {
593 DEBUG_LAPACK_STUB("dgbtrs");
594 LAPACK_IMPL(dgbtrs)(TRANS,
595 N,
596 KL,
597 KU,
598 NRHS,
599 AB,
600 LDAB,
601 IPIV,
602 B,
603 LDB,
604 INFO);
605 }
606
607 //-- dgebak --------------------------------------------------------------------
608 void
609 LAPACK_DECL(dgebak)(const char *JOB,
610 const char *SIDE,
611 const INTEGER *N,
612 const INTEGER *ILO,
613 const INTEGER *IHI,
614 const DOUBLE *SCALE,
615 const INTEGER *M,
616 DOUBLE *V,
617 const INTEGER *LDV,
618 INTEGER *INFO)
619 {
620 DEBUG_LAPACK_STUB("dgebak");
621 LAPACK_IMPL(dgebak)(JOB,
622 SIDE,
623 N,
624 ILO,
625 IHI,
626 SCALE,
627 M,
628 V,
629 LDV,
630 INFO);
631 }
632
633 //-- dgebal --------------------------------------------------------------------
634 void
635 LAPACK_DECL(dgebal)(const char *JOB,
636 const INTEGER *N,
637 DOUBLE *A,
638 const INTEGER *LDA,
639 INTEGER *ILO,
640 INTEGER *IHI,
641 DOUBLE *SCALE,
642 INTEGER *INFO)
643 {
644 DEBUG_LAPACK_STUB("dgebal");
645 LAPACK_IMPL(dgebal)(JOB,
646 N,
647 A,
648 LDA,
649 ILO,
650 IHI,
651 SCALE,
652 INFO);
653 }
654
655 //-- dgebd2 --------------------------------------------------------------------
656 void
657 LAPACK_DECL(dgebd2)(const INTEGER *M,
658 const INTEGER *N,
659 DOUBLE *A,
660 const INTEGER *LDA,
661 DOUBLE *D,
662 DOUBLE *E,
663 DOUBLE *TAUQ,
664 DOUBLE *TAUP,
665 const DOUBLE *WORK,
666 INTEGER *INFO)
667 {
668 DEBUG_LAPACK_STUB("dgebd2");
669 LAPACK_IMPL(dgebd2)(M,
670 N,
671 A,
672 LDA,
673 D,
674 E,
675 TAUQ,
676 TAUP,
677 WORK,
678 INFO);
679 }
680
681 //-- dgebrd --------------------------------------------------------------------
682 void
683 LAPACK_DECL(dgebrd)(const INTEGER *M,
684 const INTEGER *N,
685 DOUBLE *A,
686 const INTEGER *LDA,
687 DOUBLE *D,
688 DOUBLE *E,
689 DOUBLE *TAUQ,
690 DOUBLE *TAUP,
691 DOUBLE *WORK,
692 const INTEGER *LWORK,
693 INTEGER *INFO)
694 {
695 DEBUG_LAPACK_STUB("dgebrd");
696 LAPACK_IMPL(dgebrd)(M,
697 N,
698 A,
699 LDA,
700 D,
701 E,
702 TAUQ,
703 TAUP,
704 WORK,
705 LWORK,
706 INFO);
707 }
708
709 //-- dgecon --------------------------------------------------------------------
710 void
711 LAPACK_DECL(dgecon)(const char *NORM,
712 const INTEGER *N,
713 const DOUBLE *A,
714 const INTEGER *LDA,
715 const DOUBLE *ANORM,
716 DOUBLE *RCOND,
717 const DOUBLE *WORK,
718 const INTEGER *IWORK,
719 INTEGER *INFO)
720 {
721 DEBUG_LAPACK_STUB("dgecon");
722 LAPACK_IMPL(dgecon)(NORM,
723 N,
724 A,
725 LDA,
726 ANORM,
727 RCOND,
728 WORK,
729 IWORK,
730 INFO);
731 }
732
733 //-- dgeequ --------------------------------------------------------------------
734 void
735 LAPACK_DECL(dgeequ)(const INTEGER *M,
736 const INTEGER *N,
737 const DOUBLE *A,
738 const INTEGER *LDA,
739 DOUBLE *R,
740 DOUBLE *C,
741 DOUBLE *ROWCND,
742 DOUBLE *COLCND,
743 DOUBLE *AMAX,
744 INTEGER *INFO)
745 {
746 DEBUG_LAPACK_STUB("dgeequ");
747 LAPACK_IMPL(dgeequ)(M,
748 N,
749 A,
750 LDA,
751 R,
752 C,
753 ROWCND,
754 COLCND,
755 AMAX,
756 INFO);
757 }
758
759 //-- dgeequb -------------------------------------------------------------------
760 void
761 LAPACK_DECL(dgeequb)(const INTEGER *M,
762 const INTEGER *N,
763 const DOUBLE *A,
764 const INTEGER *LDA,
765 DOUBLE *R,
766 DOUBLE *C,
767 DOUBLE *ROWCND,
768 DOUBLE *COLCND,
769 DOUBLE *AMAX,
770 INTEGER *INFO)
771 {
772 DEBUG_LAPACK_STUB("dgeequb");
773 LAPACK_IMPL(dgeequb)(M,
774 N,
775 A,
776 LDA,
777 R,
778 C,
779 ROWCND,
780 COLCND,
781 AMAX,
782 INFO);
783 }
784
785 //-- dgees ---------------------------------------------------------------------
786 void
787 LAPACK_DECL(dgees)(const char *JOBVS,
788 const char *SORT,
789 const LOGICAL *SELECT,
790 const INTEGER *N,
791 DOUBLE *A,
792 const INTEGER *LDA,
793 INTEGER *SDIM,
794 DOUBLE *WR,
795 DOUBLE *WI,
796 DOUBLE *VS,
797 const INTEGER *LDVS,
798 DOUBLE *WORK,
799 const INTEGER *LWORK,
800 const LOGICAL *BWORK,
801 INTEGER *INFO)
802 {
803 DEBUG_LAPACK_STUB("dgees");
804 LAPACK_IMPL(dgees)(JOBVS,
805 SORT,
806 SELECT,
807 N,
808 A,
809 LDA,
810 SDIM,
811 WR,
812 WI,
813 VS,
814 LDVS,
815 WORK,
816 LWORK,
817 BWORK,
818 INFO);
819 }
820
821 //-- dgeesx --------------------------------------------------------------------
822 void
823 LAPACK_DECL(dgeesx)(const char *JOBVS,
824 const char *SORT,
825 const LOGICAL *SELECT,
826 const char *SENSE,
827 const INTEGER *N,
828 DOUBLE *A,
829 const INTEGER *LDA,
830 INTEGER *SDIM,
831 DOUBLE *WR,
832 DOUBLE *WI,
833 DOUBLE *VS,
834 const INTEGER *LDVS,
835 DOUBLE *RCONDE,
836 DOUBLE *RCONDV,
837 DOUBLE *WORK,
838 const INTEGER *LWORK,
839 INTEGER *IWORK,
840 const INTEGER *LIWORK,
841 const LOGICAL *BWORK,
842 INTEGER *INFO)
843 {
844 DEBUG_LAPACK_STUB("dgeesx");
845 LAPACK_IMPL(dgeesx)(JOBVS,
846 SORT,
847 SELECT,
848 SENSE,
849 N,
850 A,
851 LDA,
852 SDIM,
853 WR,
854 WI,
855 VS,
856 LDVS,
857 RCONDE,
858 RCONDV,
859 WORK,
860 LWORK,
861 IWORK,
862 LIWORK,
863 BWORK,
864 INFO);
865 }
866
867 //-- dgeev ---------------------------------------------------------------------
868 void
869 LAPACK_DECL(dgeev)(const char *JOBVL,
870 const char *JOBVR,
871 const INTEGER *N,
872 DOUBLE *A,
873 const INTEGER *LDA,
874 DOUBLE *WR,
875 DOUBLE *WI,
876 DOUBLE *VL,
877 const INTEGER *LDVL,
878 DOUBLE *VR,
879 const INTEGER *LDVR,
880 DOUBLE *WORK,
881 const INTEGER *LWORK,
882 INTEGER *INFO)
883 {
884 DEBUG_LAPACK_STUB("dgeev");
885 LAPACK_IMPL(dgeev)(JOBVL,
886 JOBVR,
887 N,
888 A,
889 LDA,
890 WR,
891 WI,
892 VL,
893 LDVL,
894 VR,
895 LDVR,
896 WORK,
897 LWORK,
898 INFO);
899 }
900
901 //-- dgeevx --------------------------------------------------------------------
902 void
903 LAPACK_DECL(dgeevx)(const char *BALANC,
904 const char *JOBVL,
905 const char *JOBVR,
906 const char *SENSE,
907 const INTEGER *N,
908 DOUBLE *A,
909 const INTEGER *LDA,
910 DOUBLE *WR,
911 DOUBLE *WI,
912 DOUBLE *VL,
913 const INTEGER *LDVL,
914 DOUBLE *VR,
915 const INTEGER *LDVR,
916 INTEGER *ILO,
917 INTEGER *IHI,
918 DOUBLE *SCALE,
919 DOUBLE *ABNRM,
920 DOUBLE *RCONDE,
921 DOUBLE *RCONDV,
922 DOUBLE *WORK,
923 const INTEGER *LWORK,
924 const INTEGER *IWORK,
925 INTEGER *INFO)
926 {
927 DEBUG_LAPACK_STUB("dgeevx");
928 LAPACK_IMPL(dgeevx)(BALANC,
929 JOBVL,
930 JOBVR,
931 SENSE,
932 N,
933 A,
934 LDA,
935 WR,
936 WI,
937 VL,
938 LDVL,
939 VR,
940 LDVR,
941 ILO,
942 IHI,
943 SCALE,
944 ABNRM,
945 RCONDE,
946 RCONDV,
947 WORK,
948 LWORK,
949 IWORK,
950 INFO);
951 }
952
953 //-- dgegs ---------------------------------------------------------------------
954 void
955 LAPACK_DECL(dgegs)(const char *JOBVSL,
956 const char *JOBVSR,
957 const INTEGER *N,
958 DOUBLE *A,
959 const INTEGER *LDA,
960 DOUBLE *B,
961 const INTEGER *LDB,
962 DOUBLE *ALPHAR,
963 DOUBLE *ALPHAI,
964 DOUBLE *BETA,
965 DOUBLE *VSL,
966 const INTEGER *LDVSL,
967 DOUBLE *VSR,
968 const INTEGER *LDVSR,
969 DOUBLE *WORK,
970 const INTEGER *LWORK,
971 INTEGER *INFO)
972 {
973 DEBUG_LAPACK_STUB("dgegs");
974 LAPACK_IMPL(dgegs)(JOBVSL,
975 JOBVSR,
976 N,
977 A,
978 LDA,
979 B,
980 LDB,
981 ALPHAR,
982 ALPHAI,
983 BETA,
984 VSL,
985 LDVSL,
986 VSR,
987 LDVSR,
988 WORK,
989 LWORK,
990 INFO);
991 }
992
993 //-- dgegv ---------------------------------------------------------------------
994 void
995 LAPACK_DECL(dgegv)(const char *JOBVL,
996 const char *JOBVR,
997 const INTEGER *N,
998 DOUBLE *A,
999 const INTEGER *LDA,
1000 DOUBLE *B,
1001 const INTEGER *LDB,
1002 DOUBLE *ALPHAR,
1003 DOUBLE *ALPHAI,
1004 DOUBLE *BETA,
1005 DOUBLE *VL,
1006 const INTEGER *LDVL,
1007 DOUBLE *VR,
1008 const INTEGER *LDVR,
1009 DOUBLE *WORK,
1010 const INTEGER *LWORK,
1011 INTEGER *INFO)
1012 {
1013 DEBUG_LAPACK_STUB("dgegv");
1014 LAPACK_IMPL(dgegv)(JOBVL,
1015 JOBVR,
1016 N,
1017 A,
1018 LDA,
1019 B,
1020 LDB,
1021 ALPHAR,
1022 ALPHAI,
1023 BETA,
1024 VL,
1025 LDVL,
1026 VR,
1027 LDVR,
1028 WORK,
1029 LWORK,
1030 INFO);
1031 }
1032
1033 //-- dgehd2 --------------------------------------------------------------------
1034 void
1035 LAPACK_DECL(dgehd2)(const INTEGER *N,
1036 const INTEGER *ILO,
1037 const INTEGER *IHI,
1038 DOUBLE *A,
1039 const INTEGER *LDA,
1040 DOUBLE *TAU,
1041 const DOUBLE *WORK,
1042 INTEGER *INFO)
1043 {
1044 DEBUG_LAPACK_STUB("dgehd2");
1045 LAPACK_IMPL(dgehd2)(N,
1046 ILO,
1047 IHI,
1048 A,
1049 LDA,
1050 TAU,
1051 WORK,
1052 INFO);
1053 }
1054
1055 //-- dgehrd --------------------------------------------------------------------
1056 void
1057 LAPACK_DECL(dgehrd)(const INTEGER *N,
1058 const INTEGER *ILO,
1059 const INTEGER *IHI,
1060 DOUBLE *A,
1061 const INTEGER *LDA,
1062 DOUBLE *TAU,
1063 DOUBLE *WORK,
1064 const INTEGER *LWORK,
1065 INTEGER *INFO)
1066 {
1067 DEBUG_LAPACK_STUB("dgehrd");
1068 LAPACK_IMPL(dgehrd)(N,
1069 ILO,
1070 IHI,
1071 A,
1072 LDA,
1073 TAU,
1074 WORK,
1075 LWORK,
1076 INFO);
1077 }
1078
1079 //-- dgejsv --------------------------------------------------------------------
1080 void
1081 LAPACK_DECL(dgejsv)(const char *JOBA,
1082 const char *JOBU,
1083 const char *JOBV,
1084 const char *JOBR,
1085 const char *JOBT,
1086 const char *JOBP,
1087 const INTEGER *M,
1088 const INTEGER *N,
1089 const DOUBLE *A,
1090 const INTEGER *LDA,
1091 DOUBLE *SVA,
1092 DOUBLE *U,
1093 const INTEGER *LDU,
1094 DOUBLE *V,
1095 const INTEGER *LDV,
1096 DOUBLE *WORK,
1097 const INTEGER *LWORK,
1098 INTEGER *IWORK,
1099 INTEGER *INFO)
1100 {
1101 DEBUG_LAPACK_STUB("dgejsv");
1102 LAPACK_IMPL(dgejsv)(JOBA,
1103 JOBU,
1104 JOBV,
1105 JOBR,
1106 JOBT,
1107 JOBP,
1108 M,
1109 N,
1110 A,
1111 LDA,
1112 SVA,
1113 U,
1114 LDU,
1115 V,
1116 LDV,
1117 WORK,
1118 LWORK,
1119 IWORK,
1120 INFO);
1121 }
1122
1123 //-- dgelq2 --------------------------------------------------------------------
1124 void
1125 LAPACK_DECL(dgelq2)(const INTEGER *M,
1126 const INTEGER *N,
1127 DOUBLE *A,
1128 const INTEGER *LDA,
1129 DOUBLE *TAU,
1130 const DOUBLE *WORK,
1131 INTEGER *INFO)
1132 {
1133 DEBUG_LAPACK_STUB("dgelq2");
1134 LAPACK_IMPL(dgelq2)(M,
1135 N,
1136 A,
1137 LDA,
1138 TAU,
1139 WORK,
1140 INFO);
1141 }
1142
1143 //-- dgelqf --------------------------------------------------------------------
1144 void
1145 LAPACK_DECL(dgelqf)(const INTEGER *M,
1146 const INTEGER *N,
1147 DOUBLE *A,
1148 const INTEGER *LDA,
1149 DOUBLE *TAU,
1150 DOUBLE *WORK,
1151 const INTEGER *LWORK,
1152 INTEGER *INFO)
1153 {
1154 DEBUG_LAPACK_STUB("dgelqf");
1155 LAPACK_IMPL(dgelqf)(M,
1156 N,
1157 A,
1158 LDA,
1159 TAU,
1160 WORK,
1161 LWORK,
1162 INFO);
1163 }
1164
1165 //-- dgels ---------------------------------------------------------------------
1166 void
1167 LAPACK_DECL(dgels)(const char *TRANS,
1168 const INTEGER *M,
1169 const INTEGER *N,
1170 const INTEGER *NRHS,
1171 DOUBLE *A,
1172 const INTEGER *LDA,
1173 DOUBLE *B,
1174 const INTEGER *LDB,
1175 DOUBLE *WORK,
1176 const INTEGER *LWORK,
1177 INTEGER *INFO)
1178 {
1179 DEBUG_LAPACK_STUB("dgels");
1180 LAPACK_IMPL(dgels)(TRANS,
1181 M,
1182 N,
1183 NRHS,
1184 A,
1185 LDA,
1186 B,
1187 LDB,
1188 WORK,
1189 LWORK,
1190 INFO);
1191 }
1192
1193 //-- dgelsd --------------------------------------------------------------------
1194 void
1195 LAPACK_DECL(dgelsd)(const INTEGER *M,
1196 const INTEGER *N,
1197 const INTEGER *NRHS,
1198 const DOUBLE *A,
1199 const INTEGER *LDA,
1200 DOUBLE *B,
1201 const INTEGER *LDB,
1202 DOUBLE *S,
1203 const DOUBLE *RCOND,
1204 INTEGER *RANK,
1205 DOUBLE *WORK,
1206 const INTEGER *LWORK,
1207 const INTEGER *IWORK,
1208 INTEGER *INFO)
1209 {
1210 DEBUG_LAPACK_STUB("dgelsd");
1211 LAPACK_IMPL(dgelsd)(M,
1212 N,
1213 NRHS,
1214 A,
1215 LDA,
1216 B,
1217 LDB,
1218 S,
1219 RCOND,
1220 RANK,
1221 WORK,
1222 LWORK,
1223 IWORK,
1224 INFO);
1225 }
1226
1227 //-- dgelss --------------------------------------------------------------------
1228 void
1229 LAPACK_DECL(dgelss)(const INTEGER *M,
1230 const INTEGER *N,
1231 const INTEGER *NRHS,
1232 DOUBLE *A,
1233 const INTEGER *LDA,
1234 DOUBLE *B,
1235 const INTEGER *LDB,
1236 DOUBLE *S,
1237 const DOUBLE *RCOND,
1238 INTEGER *RANK,
1239 DOUBLE *WORK,
1240 const INTEGER *LWORK,
1241 INTEGER *INFO)
1242 {
1243 DEBUG_LAPACK_STUB("dgelss");
1244 LAPACK_IMPL(dgelss)(M,
1245 N,
1246 NRHS,
1247 A,
1248 LDA,
1249 B,
1250 LDB,
1251 S,
1252 RCOND,
1253 RANK,
1254 WORK,
1255 LWORK,
1256 INFO);
1257 }
1258
1259 //-- dgelsx --------------------------------------------------------------------
1260 void
1261 LAPACK_DECL(dgelsx)(const INTEGER *M,
1262 const INTEGER *N,
1263 const INTEGER *NRHS,
1264 DOUBLE *A,
1265 const INTEGER *LDA,
1266 DOUBLE *B,
1267 const INTEGER *LDB,
1268 INTEGER *JPVT,
1269 const DOUBLE *RCOND,
1270 INTEGER *RANK,
1271 const DOUBLE *WORK,
1272 INTEGER *INFO)
1273 {
1274 DEBUG_LAPACK_STUB("dgelsx");
1275 LAPACK_IMPL(dgelsx)(M,
1276 N,
1277 NRHS,
1278 A,
1279 LDA,
1280 B,
1281 LDB,
1282 JPVT,
1283 RCOND,
1284 RANK,
1285 WORK,
1286 INFO);
1287 }
1288
1289 //-- dgelsy --------------------------------------------------------------------
1290 void
1291 LAPACK_DECL(dgelsy)(const INTEGER *M,
1292 const INTEGER *N,
1293 const INTEGER *NRHS,
1294 DOUBLE *A,
1295 const INTEGER *LDA,
1296 DOUBLE *B,
1297 const INTEGER *LDB,
1298 INTEGER *JPVT,
1299 const DOUBLE *RCOND,
1300 INTEGER *RANK,
1301 DOUBLE *WORK,
1302 const INTEGER *LWORK,
1303 INTEGER *INFO)
1304 {
1305 DEBUG_LAPACK_STUB("dgelsy");
1306 LAPACK_IMPL(dgelsy)(M,
1307 N,
1308 NRHS,
1309 A,
1310 LDA,
1311 B,
1312 LDB,
1313 JPVT,
1314 RCOND,
1315 RANK,
1316 WORK,
1317 LWORK,
1318 INFO);
1319 }
1320
1321 //-- dgeql2 --------------------------------------------------------------------
1322 void
1323 LAPACK_DECL(dgeql2)(const INTEGER *M,
1324 const INTEGER *N,
1325 DOUBLE *A,
1326 const INTEGER *LDA,
1327 DOUBLE *TAU,
1328 const DOUBLE *WORK,
1329 INTEGER *INFO)
1330 {
1331 DEBUG_LAPACK_STUB("dgeql2");
1332 LAPACK_IMPL(dgeql2)(M,
1333 N,
1334 A,
1335 LDA,
1336 TAU,
1337 WORK,
1338 INFO);
1339 }
1340
1341 //-- dgeqlf --------------------------------------------------------------------
1342 void
1343 LAPACK_DECL(dgeqlf)(const INTEGER *M,
1344 const INTEGER *N,
1345 DOUBLE *A,
1346 const INTEGER *LDA,
1347 DOUBLE *TAU,
1348 DOUBLE *WORK,
1349 const INTEGER *LWORK,
1350 INTEGER *INFO)
1351 {
1352 DEBUG_LAPACK_STUB("dgeqlf");
1353 LAPACK_IMPL(dgeqlf)(M,
1354 N,
1355 A,
1356 LDA,
1357 TAU,
1358 WORK,
1359 LWORK,
1360 INFO);
1361 }
1362
1363 //-- dgeqp3 --------------------------------------------------------------------
1364 void
1365 LAPACK_DECL(dgeqp3)(const INTEGER *M,
1366 const INTEGER *N,
1367 DOUBLE *A,
1368 const INTEGER *LDA,
1369 INTEGER *JPVT,
1370 DOUBLE *TAU,
1371 DOUBLE *WORK,
1372 const INTEGER *LWORK,
1373 INTEGER *INFO)
1374 {
1375 DEBUG_LAPACK_STUB("dgeqp3");
1376 LAPACK_IMPL(dgeqp3)(M,
1377 N,
1378 A,
1379 LDA,
1380 JPVT,
1381 TAU,
1382 WORK,
1383 LWORK,
1384 INFO);
1385 }
1386
1387 //-- dgeqpf --------------------------------------------------------------------
1388 void
1389 LAPACK_DECL(dgeqpf)(const INTEGER *M,
1390 const INTEGER *N,
1391 DOUBLE *A,
1392 const INTEGER *LDA,
1393 INTEGER *JPVT,
1394 DOUBLE *TAU,
1395 const DOUBLE *WORK,
1396 INTEGER *INFO)
1397 {
1398 DEBUG_LAPACK_STUB("dgeqpf");
1399 LAPACK_IMPL(dgeqpf)(M,
1400 N,
1401 A,
1402 LDA,
1403 JPVT,
1404 TAU,
1405 WORK,
1406 INFO);
1407 }
1408
1409 //-- dgeqr2 --------------------------------------------------------------------
1410 void
1411 LAPACK_DECL(dgeqr2)(const INTEGER *M,
1412 const INTEGER *N,
1413 DOUBLE *A,
1414 const INTEGER *LDA,
1415 DOUBLE *TAU,
1416 const DOUBLE *WORK,
1417 INTEGER *INFO)
1418 {
1419 DEBUG_LAPACK_STUB("dgeqr2");
1420 LAPACK_IMPL(dgeqr2)(M,
1421 N,
1422 A,
1423 LDA,
1424 TAU,
1425 WORK,
1426 INFO);
1427 }
1428
1429 //-- dgeqr2p -------------------------------------------------------------------
1430 void
1431 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
1432 const INTEGER *N,
1433 DOUBLE *A,
1434 const INTEGER *LDA,
1435 DOUBLE *TAU,
1436 const DOUBLE *WORK,
1437 INTEGER *INFO)
1438 {
1439 DEBUG_LAPACK_STUB("dgeqr2p");
1440 LAPACK_IMPL(dgeqr2p)(M,
1441 N,
1442 A,
1443 LDA,
1444 TAU,
1445 WORK,
1446 INFO);
1447 }
1448
1449 //-- dgeqrf --------------------------------------------------------------------
1450 void
1451 LAPACK_DECL(dgeqrf)(const INTEGER *M,
1452 const INTEGER *N,
1453 DOUBLE *A,
1454 const INTEGER *LDA,
1455 DOUBLE *TAU,
1456 DOUBLE *WORK,
1457 const INTEGER *LWORK,
1458 INTEGER *INFO)
1459 {
1460 DEBUG_LAPACK_STUB("dgeqrf");
1461 LAPACK_IMPL(dgeqrf)(M,
1462 N,
1463 A,
1464 LDA,
1465 TAU,
1466 WORK,
1467 LWORK,
1468 INFO);
1469 }
1470
1471 //-- dgeqrfp -------------------------------------------------------------------
1472 void
1473 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
1474 const INTEGER *N,
1475 DOUBLE *A,
1476 const INTEGER *LDA,
1477 DOUBLE *TAU,
1478 DOUBLE *WORK,
1479 const INTEGER *LWORK,
1480 INTEGER *INFO)
1481 {
1482 DEBUG_LAPACK_STUB("dgeqrfp");
1483 LAPACK_IMPL(dgeqrfp)(M,
1484 N,
1485 A,
1486 LDA,
1487 TAU,
1488 WORK,
1489 LWORK,
1490 INFO);
1491 }
1492
1493 //-- dgerfs --------------------------------------------------------------------
1494 void
1495 LAPACK_DECL(dgerfs)(const char *TRANS,
1496 const INTEGER *N,
1497 const INTEGER *NRHS,
1498 const DOUBLE *A,
1499 const INTEGER *LDA,
1500 const DOUBLE *AF,
1501 const INTEGER *LDAF,
1502 const INTEGER *IPIV,
1503 const DOUBLE *B,
1504 const INTEGER *LDB,
1505 DOUBLE *X,
1506 const INTEGER *LDX,
1507 DOUBLE *FERR,
1508 DOUBLE *BERR,
1509 const DOUBLE *WORK,
1510 const INTEGER *IWORK,
1511 INTEGER *INFO)
1512 {
1513 DEBUG_LAPACK_STUB("dgerfs");
1514 LAPACK_IMPL(dgerfs)(TRANS,
1515 N,
1516 NRHS,
1517 A,
1518 LDA,
1519 AF,
1520 LDAF,
1521 IPIV,
1522 B,
1523 LDB,
1524 X,
1525 LDX,
1526 FERR,
1527 BERR,
1528 WORK,
1529 IWORK,
1530 INFO);
1531 }
1532
1533 //-- dgerfsx -------------------------------------------------------------------
1534 void
1535 LAPACK_DECL(dgerfsx)(const char *TRANS,
1536 const char *EQUED,
1537 const INTEGER *N,
1538 const INTEGER *NRHS,
1539 const DOUBLE *A,
1540 const INTEGER *LDA,
1541 const DOUBLE *AF,
1542 const INTEGER *LDAF,
1543 const INTEGER *IPIV,
1544 const DOUBLE *R,
1545 const DOUBLE *C,
1546 const DOUBLE *B,
1547 const INTEGER *LDB,
1548 DOUBLE *X,
1549 const INTEGER *LDX,
1550 DOUBLE *RCOND,
1551 DOUBLE *BERR,
1552 const INTEGER *N_ERR_BNDS,
1553 DOUBLE *ERR_BNDS_NORM,
1554 DOUBLE *ERR_BNDS_COMP,
1555 const INTEGER *NPARAMS,
1556 DOUBLE *PARAMS,
1557 const DOUBLE *WORK,
1558 const INTEGER *IWORK,
1559 INTEGER *INFO)
1560 {
1561 DEBUG_LAPACK_STUB("dgerfsx");
1562 LAPACK_IMPL(dgerfsx)(TRANS,
1563 EQUED,
1564 N,
1565 NRHS,
1566 A,
1567 LDA,
1568 AF,
1569 LDAF,
1570 IPIV,
1571 R,
1572 C,
1573 B,
1574 LDB,
1575 X,
1576 LDX,
1577 RCOND,
1578 BERR,
1579 N_ERR_BNDS,
1580 ERR_BNDS_NORM,
1581 ERR_BNDS_COMP,
1582 NPARAMS,
1583 PARAMS,
1584 WORK,
1585 IWORK,
1586 INFO);
1587 }
1588
1589 //-- dgerq2 --------------------------------------------------------------------
1590 void
1591 LAPACK_DECL(dgerq2)(const INTEGER *M,
1592 const INTEGER *N,
1593 DOUBLE *A,
1594 const INTEGER *LDA,
1595 DOUBLE *TAU,
1596 const DOUBLE *WORK,
1597 INTEGER *INFO)
1598 {
1599 DEBUG_LAPACK_STUB("dgerq2");
1600 LAPACK_IMPL(dgerq2)(M,
1601 N,
1602 A,
1603 LDA,
1604 TAU,
1605 WORK,
1606 INFO);
1607 }
1608
1609 //-- dgerqf --------------------------------------------------------------------
1610 void
1611 LAPACK_DECL(dgerqf)(const INTEGER *M,
1612 const INTEGER *N,
1613 DOUBLE *A,
1614 const INTEGER *LDA,
1615 DOUBLE *TAU,
1616 DOUBLE *WORK,
1617 const INTEGER *LWORK,
1618 INTEGER *INFO)
1619 {
1620 DEBUG_LAPACK_STUB("dgerqf");
1621 LAPACK_IMPL(dgerqf)(M,
1622 N,
1623 A,
1624 LDA,
1625 TAU,
1626 WORK,
1627 LWORK,
1628 INFO);
1629 }
1630
1631 //-- dgesc2 --------------------------------------------------------------------
1632 void
1633 LAPACK_DECL(dgesc2)(const INTEGER *N,
1634 const DOUBLE *A,
1635 const INTEGER *LDA,
1636 DOUBLE *RHS,
1637 const INTEGER *IPIV,
1638 const INTEGER *JPIV,
1639 DOUBLE *SCALE)
1640 {
1641 DEBUG_LAPACK_STUB("dgesc2");
1642 LAPACK_IMPL(dgesc2)(N,
1643 A,
1644 LDA,
1645 RHS,
1646 IPIV,
1647 JPIV,
1648 SCALE);
1649 }
1650
1651 //-- dgesdd --------------------------------------------------------------------
1652 void
1653 LAPACK_DECL(dgesdd)(const char *JOBZ,
1654 const INTEGER *M,
1655 const INTEGER *N,
1656 DOUBLE *A,
1657 const INTEGER *LDA,
1658 DOUBLE *S,
1659 DOUBLE *U,
1660 const INTEGER *LDU,
1661 DOUBLE *VT,
1662 const INTEGER *LDVT,
1663 DOUBLE *WORK,
1664 const INTEGER *LWORK,
1665 const INTEGER *IWORK,
1666 INTEGER *INFO)
1667 {
1668 DEBUG_LAPACK_STUB("dgesdd");
1669 LAPACK_IMPL(dgesdd)(JOBZ,
1670 M,
1671 N,
1672 A,
1673 LDA,
1674 S,
1675 U,
1676 LDU,
1677 VT,
1678 LDVT,
1679 WORK,
1680 LWORK,
1681 IWORK,
1682 INFO);
1683 }
1684
1685 //-- dgesv ---------------------------------------------------------------------
1686 void
1687 LAPACK_DECL(dgesv)(const INTEGER *N,
1688 const INTEGER *NRHS,
1689 DOUBLE *A,
1690 const INTEGER *LDA,
1691 INTEGER *IPIV,
1692 DOUBLE *B,
1693 const INTEGER *LDB,
1694 INTEGER *INFO)
1695 {
1696 DEBUG_LAPACK_STUB("dgesv");
1697 LAPACK_IMPL(dgesv)(N,
1698 NRHS,
1699 A,
1700 LDA,
1701 IPIV,
1702 B,
1703 LDB,
1704 INFO);
1705 }
1706
1707 //-- dgesvd --------------------------------------------------------------------
1708 void
1709 LAPACK_DECL(dgesvd)(const char *JOBU,
1710 const char *JOBVT,
1711 const INTEGER *M,
1712 const INTEGER *N,
1713 DOUBLE *A,
1714 const INTEGER *LDA,
1715 DOUBLE *S,
1716 DOUBLE *U,
1717 const INTEGER *LDU,
1718 DOUBLE *VT,
1719 const INTEGER *LDVT,
1720 DOUBLE *WORK,
1721 const INTEGER *LWORK,
1722 INTEGER *INFO)
1723 {
1724 DEBUG_LAPACK_STUB("dgesvd");
1725 LAPACK_IMPL(dgesvd)(JOBU,
1726 JOBVT,
1727 M,
1728 N,
1729 A,
1730 LDA,
1731 S,
1732 U,
1733 LDU,
1734 VT,
1735 LDVT,
1736 WORK,
1737 LWORK,
1738 INFO);
1739 }
1740
1741 //-- dgesvj --------------------------------------------------------------------
1742 void
1743 LAPACK_DECL(dgesvj)(const char *JOBA,
1744 const char *JOBU,
1745 const char *JOBV,
1746 const INTEGER *M,
1747 const INTEGER *N,
1748 DOUBLE *A,
1749 const INTEGER *LDA,
1750 DOUBLE *SVA,
1751 const INTEGER *MV,
1752 DOUBLE *V,
1753 const INTEGER *LDV,
1754 DOUBLE *WORK,
1755 const INTEGER *LWORK,
1756 INTEGER *INFO)
1757 {
1758 DEBUG_LAPACK_STUB("dgesvj");
1759 LAPACK_IMPL(dgesvj)(JOBA,
1760 JOBU,
1761 JOBV,
1762 M,
1763 N,
1764 A,
1765 LDA,
1766 SVA,
1767 MV,
1768 V,
1769 LDV,
1770 WORK,
1771 LWORK,
1772 INFO);
1773 }
1774
1775 //-- dgesvx --------------------------------------------------------------------
1776 void
1777 LAPACK_DECL(dgesvx)(const char *FACT,
1778 const char *TRANS,
1779 const INTEGER *N,
1780 const INTEGER *NRHS,
1781 DOUBLE *A,
1782 const INTEGER *LDA,
1783 DOUBLE *AF,
1784 const INTEGER *LDAF,
1785 INTEGER *IPIV,
1786 char *EQUED,
1787 DOUBLE *R,
1788 DOUBLE *C,
1789 DOUBLE *B,
1790 const INTEGER *LDB,
1791 DOUBLE *X,
1792 const INTEGER *LDX,
1793 DOUBLE *RCOND,
1794 DOUBLE *FERR,
1795 DOUBLE *BERR,
1796 DOUBLE *WORK,
1797 const INTEGER *IWORK,
1798 INTEGER *INFO)
1799 {
1800 DEBUG_LAPACK_STUB("dgesvx");
1801 LAPACK_IMPL(dgesvx)(FACT,
1802 TRANS,
1803 N,
1804 NRHS,
1805 A,
1806 LDA,
1807 AF,
1808 LDAF,
1809 IPIV,
1810 EQUED,
1811 R,
1812 C,
1813 B,
1814 LDB,
1815 X,
1816 LDX,
1817 RCOND,
1818 FERR,
1819 BERR,
1820 WORK,
1821 IWORK,
1822 INFO);
1823 }
1824
1825 //-- dgesvxx -------------------------------------------------------------------
1826 void
1827 LAPACK_DECL(dgesvxx)(const char *FACT,
1828 const char *TRANS,
1829 const INTEGER *N,
1830 const INTEGER *NRHS,
1831 DOUBLE *A,
1832 const INTEGER *LDA,
1833 DOUBLE *AF,
1834 const INTEGER *LDAF,
1835 INTEGER *IPIV,
1836 char *EQUED,
1837 DOUBLE *R,
1838 DOUBLE *C,
1839 DOUBLE *B,
1840 const INTEGER *LDB,
1841 DOUBLE *X,
1842 const INTEGER *LDX,
1843 DOUBLE *RCOND,
1844 DOUBLE *RPVGRW,
1845 DOUBLE *BERR,
1846 const INTEGER *N_ERR_BNDS,
1847 DOUBLE *ERR_BNDS_NORM,
1848 DOUBLE *ERR_BNDS_COMP,
1849 const INTEGER *NPARAMS,
1850 DOUBLE *PARAMS,
1851 const DOUBLE *WORK,
1852 const INTEGER *IWORK,
1853 INTEGER *INFO)
1854 {
1855 DEBUG_LAPACK_STUB("dgesvxx");
1856 LAPACK_IMPL(dgesvxx)(FACT,
1857 TRANS,
1858 N,
1859 NRHS,
1860 A,
1861 LDA,
1862 AF,
1863 LDAF,
1864 IPIV,
1865 EQUED,
1866 R,
1867 C,
1868 B,
1869 LDB,
1870 X,
1871 LDX,
1872 RCOND,
1873 RPVGRW,
1874 BERR,
1875 N_ERR_BNDS,
1876 ERR_BNDS_NORM,
1877 ERR_BNDS_COMP,
1878 NPARAMS,
1879 PARAMS,
1880 WORK,
1881 IWORK,
1882 INFO);
1883 }
1884
1885 //-- dgetc2 --------------------------------------------------------------------
1886 void
1887 LAPACK_DECL(dgetc2)(const INTEGER *N,
1888 DOUBLE *A,
1889 const INTEGER *LDA,
1890 INTEGER *IPIV,
1891 INTEGER *JPIV,
1892 INTEGER *INFO)
1893 {
1894 DEBUG_LAPACK_STUB("dgetc2");
1895 LAPACK_IMPL(dgetc2)(N,
1896 A,
1897 LDA,
1898 IPIV,
1899 JPIV,
1900 INFO);
1901 }
1902
1903 //-- dgetf2 --------------------------------------------------------------------
1904 void
1905 LAPACK_DECL(dgetf2)(const INTEGER *M,
1906 const INTEGER *N,
1907 DOUBLE *A,
1908 const INTEGER *LDA,
1909 INTEGER *IPIV,
1910 INTEGER *INFO)
1911 {
1912 DEBUG_LAPACK_STUB("dgetf2");
1913 LAPACK_IMPL(dgetf2)(M,
1914 N,
1915 A,
1916 LDA,
1917 IPIV,
1918 INFO);
1919 }
1920
1921 //-- dgetrf --------------------------------------------------------------------
1922 void
1923 LAPACK_DECL(dgetrf)(const INTEGER *M,
1924 const INTEGER *N,
1925 DOUBLE *A,
1926 const INTEGER *LDA,
1927 INTEGER *IPIV,
1928 INTEGER *INFO)
1929 {
1930 DEBUG_LAPACK_STUB("dgetrf");
1931 LAPACK_IMPL(dgetrf)(M,
1932 N,
1933 A,
1934 LDA,
1935 IPIV,
1936 INFO);
1937 }
1938
1939 //-- dgetri --------------------------------------------------------------------
1940 void
1941 LAPACK_DECL(dgetri)(const INTEGER *N,
1942 DOUBLE *A,
1943 const INTEGER *LDA,
1944 const INTEGER *IPIV,
1945 DOUBLE *WORK,
1946 const INTEGER *LWORK,
1947 INTEGER *INFO)
1948 {
1949 DEBUG_LAPACK_STUB("dgetri");
1950 LAPACK_IMPL(dgetri)(N,
1951 A,
1952 LDA,
1953 IPIV,
1954 WORK,
1955 LWORK,
1956 INFO);
1957 }
1958
1959 //-- dgetrs --------------------------------------------------------------------
1960 void
1961 LAPACK_DECL(dgetrs)(const char *TRANS,
1962 const INTEGER *N,
1963 const INTEGER *NRHS,
1964 const DOUBLE *A,
1965 const INTEGER *LDA,
1966 const INTEGER *IPIV,
1967 DOUBLE *B,
1968 const INTEGER *LDB,
1969 INTEGER *INFO)
1970 {
1971 DEBUG_LAPACK_STUB("dgetrs");
1972 LAPACK_IMPL(dgetrs)(TRANS,
1973 N,
1974 NRHS,
1975 A,
1976 LDA,
1977 IPIV,
1978 B,
1979 LDB,
1980 INFO);
1981 }
1982
1983 //-- dggbak --------------------------------------------------------------------
1984 void
1985 LAPACK_DECL(dggbak)(const char *JOB,
1986 const char *SIDE,
1987 const INTEGER *N,
1988 const INTEGER *ILO,
1989 const INTEGER *IHI,
1990 const DOUBLE *LSCALE,
1991 const DOUBLE *RSCALE,
1992 const INTEGER *M,
1993 DOUBLE *V,
1994 const INTEGER *LDV,
1995 INTEGER *INFO)
1996 {
1997 DEBUG_LAPACK_STUB("dggbak");
1998 LAPACK_IMPL(dggbak)(JOB,
1999 SIDE,
2000 N,
2001 ILO,
2002 IHI,
2003 LSCALE,
2004 RSCALE,
2005 M,
2006 V,
2007 LDV,
2008 INFO);
2009 }
2010
2011 //-- dggbal --------------------------------------------------------------------
2012 void
2013 LAPACK_DECL(dggbal)(const char *JOB,
2014 const INTEGER *N,
2015 DOUBLE *A,
2016 const INTEGER *LDA,
2017 DOUBLE *B,
2018 const INTEGER *LDB,
2019 INTEGER *ILO,
2020 INTEGER *IHI,
2021 DOUBLE *LSCALE,
2022 DOUBLE *RSCALE,
2023 const DOUBLE *WORK,
2024 INTEGER *INFO)
2025 {
2026 DEBUG_LAPACK_STUB("dggbal");
2027 LAPACK_IMPL(dggbal)(JOB,
2028 N,
2029 A,
2030 LDA,
2031 B,
2032 LDB,
2033 ILO,
2034 IHI,
2035 LSCALE,
2036 RSCALE,
2037 WORK,
2038 INFO);
2039 }
2040
2041 //-- dgges ---------------------------------------------------------------------
2042 void
2043 LAPACK_DECL(dgges)(const char *JOBVSL,
2044 const char *JOBVSR,
2045 const char *SORT,
2046 const LOGICAL *SELCTG,
2047 const INTEGER *N,
2048 DOUBLE *A,
2049 const INTEGER *LDA,
2050 DOUBLE *B,
2051 const INTEGER *LDB,
2052 INTEGER *SDIM,
2053 DOUBLE *ALPHAR,
2054 DOUBLE *ALPHAI,
2055 DOUBLE *BETA,
2056 DOUBLE *VSL,
2057 const INTEGER *LDVSL,
2058 DOUBLE *VSR,
2059 const INTEGER *LDVSR,
2060 DOUBLE *WORK,
2061 const INTEGER *LWORK,
2062 const LOGICAL *BWORK,
2063 INTEGER *INFO)
2064 {
2065 DEBUG_LAPACK_STUB("dgges");
2066 LAPACK_IMPL(dgges)(JOBVSL,
2067 JOBVSR,
2068 SORT,
2069 SELCTG,
2070 N,
2071 A,
2072 LDA,
2073 B,
2074 LDB,
2075 SDIM,
2076 ALPHAR,
2077 ALPHAI,
2078 BETA,
2079 VSL,
2080 LDVSL,
2081 VSR,
2082 LDVSR,
2083 WORK,
2084 LWORK,
2085 BWORK,
2086 INFO);
2087 }
2088
2089 //-- dggesx --------------------------------------------------------------------
2090 void
2091 LAPACK_DECL(dggesx)(const char *JOBVSL,
2092 const char *JOBVSR,
2093 const char *SORT,
2094 const LOGICAL *SELCTG,
2095 const char *SENSE,
2096 const INTEGER *N,
2097 DOUBLE *A,
2098 const INTEGER *LDA,
2099 DOUBLE *B,
2100 const INTEGER *LDB,
2101 INTEGER *SDIM,
2102 DOUBLE *ALPHAR,
2103 DOUBLE *ALPHAI,
2104 DOUBLE *BETA,
2105 DOUBLE *VSL,
2106 const INTEGER *LDVSL,
2107 DOUBLE *VSR,
2108 const INTEGER *LDVSR,
2109 DOUBLE *RCONDE,
2110 DOUBLE *RCONDV,
2111 DOUBLE *WORK,
2112 const INTEGER *LWORK,
2113 const INTEGER *IWORK,
2114 const INTEGER *LIWORK,
2115 const LOGICAL *BWORK,
2116 INTEGER *INFO)
2117 {
2118 DEBUG_LAPACK_STUB("dggesx");
2119 LAPACK_IMPL(dggesx)(JOBVSL,
2120 JOBVSR,
2121 SORT,
2122 SELCTG,
2123 SENSE,
2124 N,
2125 A,
2126 LDA,
2127 B,
2128 LDB,
2129 SDIM,
2130 ALPHAR,
2131 ALPHAI,
2132 BETA,
2133 VSL,
2134 LDVSL,
2135 VSR,
2136 LDVSR,
2137 RCONDE,
2138 RCONDV,
2139 WORK,
2140 LWORK,
2141 IWORK,
2142 LIWORK,
2143 BWORK,
2144 INFO);
2145 }
2146
2147 //-- dggev ---------------------------------------------------------------------
2148 void
2149 LAPACK_DECL(dggev)(const char *JOBVL,
2150 const char *JOBVR,
2151 const INTEGER *N,
2152 DOUBLE *A,
2153 const INTEGER *LDA,
2154 DOUBLE *B,
2155 const INTEGER *LDB,
2156 DOUBLE *ALPHAR,
2157 DOUBLE *ALPHAI,
2158 DOUBLE *BETA,
2159 DOUBLE *VL,
2160 const INTEGER *LDVL,
2161 DOUBLE *VR,
2162 const INTEGER *LDVR,
2163 DOUBLE *WORK,
2164 const INTEGER *LWORK,
2165 INTEGER *INFO)
2166 {
2167 DEBUG_LAPACK_STUB("dggev");
2168 LAPACK_IMPL(dggev)(JOBVL,
2169 JOBVR,
2170 N,
2171 A,
2172 LDA,
2173 B,
2174 LDB,
2175 ALPHAR,
2176 ALPHAI,
2177 BETA,
2178 VL,
2179 LDVL,
2180 VR,
2181 LDVR,
2182 WORK,
2183 LWORK,
2184 INFO);
2185 }
2186
2187 //-- dggevx --------------------------------------------------------------------
2188 void
2189 LAPACK_DECL(dggevx)(const char *BALANC,
2190 const char *JOBVL,
2191 const char *JOBVR,
2192 const char *SENSE,
2193 const INTEGER *N,
2194 DOUBLE *A,
2195 const INTEGER *LDA,
2196 DOUBLE *B,
2197 const INTEGER *LDB,
2198 DOUBLE *ALPHAR,
2199 DOUBLE *ALPHAI,
2200 DOUBLE *BETA,
2201 DOUBLE *VL,
2202 const INTEGER *LDVL,
2203 DOUBLE *VR,
2204 const INTEGER *LDVR,
2205 INTEGER *ILO,
2206 INTEGER *IHI,
2207 DOUBLE *LSCALE,
2208 DOUBLE *RSCALE,
2209 DOUBLE *ABNRM,
2210 DOUBLE *BBNRM,
2211 DOUBLE *RCONDE,
2212 DOUBLE *RCONDV,
2213 DOUBLE *WORK,
2214 const INTEGER *LWORK,
2215 const INTEGER *IWORK,
2216 const LOGICAL *BWORK,
2217 INTEGER *INFO)
2218 {
2219 DEBUG_LAPACK_STUB("dggevx");
2220 LAPACK_IMPL(dggevx)(BALANC,
2221 JOBVL,
2222 JOBVR,
2223 SENSE,
2224 N,
2225 A,
2226 LDA,
2227 B,
2228 LDB,
2229 ALPHAR,
2230 ALPHAI,
2231 BETA,
2232 VL,
2233 LDVL,
2234 VR,
2235 LDVR,
2236 ILO,
2237 IHI,
2238 LSCALE,
2239 RSCALE,
2240 ABNRM,
2241 BBNRM,
2242 RCONDE,
2243 RCONDV,
2244 WORK,
2245 LWORK,
2246 IWORK,
2247 BWORK,
2248 INFO);
2249 }
2250
2251 //-- dggglm --------------------------------------------------------------------
2252 void
2253 LAPACK_DECL(dggglm)(const INTEGER *N,
2254 const INTEGER *M,
2255 const INTEGER *P,
2256 DOUBLE *A,
2257 const INTEGER *LDA,
2258 DOUBLE *B,
2259 const INTEGER *LDB,
2260 DOUBLE *D,
2261 DOUBLE *X,
2262 DOUBLE *Y,
2263 DOUBLE *WORK,
2264 const INTEGER *LWORK,
2265 INTEGER *INFO)
2266 {
2267 DEBUG_LAPACK_STUB("dggglm");
2268 LAPACK_IMPL(dggglm)(N,
2269 M,
2270 P,
2271 A,
2272 LDA,
2273 B,
2274 LDB,
2275 D,
2276 X,
2277 Y,
2278 WORK,
2279 LWORK,
2280 INFO);
2281 }
2282
2283 //-- dgghrd --------------------------------------------------------------------
2284 void
2285 LAPACK_DECL(dgghrd)(const char *COMPQ,
2286 const char *COMPZ,
2287 const INTEGER *N,
2288 const INTEGER *ILO,
2289 const INTEGER *IHI,
2290 DOUBLE *A,
2291 const INTEGER *LDA,
2292 DOUBLE *B,
2293 const INTEGER *LDB,
2294 DOUBLE *Q,
2295 const INTEGER *LDQ,
2296 DOUBLE *Z,
2297 const INTEGER *LDZ,
2298 INTEGER *INFO)
2299 {
2300 DEBUG_LAPACK_STUB("dgghrd");
2301 LAPACK_IMPL(dgghrd)(COMPQ,
2302 COMPZ,
2303 N,
2304 ILO,
2305 IHI,
2306 A,
2307 LDA,
2308 B,
2309 LDB,
2310 Q,
2311 LDQ,
2312 Z,
2313 LDZ,
2314 INFO);
2315 }
2316
2317 //-- dgglse --------------------------------------------------------------------
2318 void
2319 LAPACK_DECL(dgglse)(const INTEGER *M,
2320 const INTEGER *N,
2321 const INTEGER *P,
2322 DOUBLE *A,
2323 const INTEGER *LDA,
2324 DOUBLE *B,
2325 const INTEGER *LDB,
2326 DOUBLE *C,
2327 DOUBLE *D,
2328 DOUBLE *X,
2329 DOUBLE *WORK,
2330 const INTEGER *LWORK,
2331 INTEGER *INFO)
2332 {
2333 DEBUG_LAPACK_STUB("dgglse");
2334 LAPACK_IMPL(dgglse)(M,
2335 N,
2336 P,
2337 A,
2338 LDA,
2339 B,
2340 LDB,
2341 C,
2342 D,
2343 X,
2344 WORK,
2345 LWORK,
2346 INFO);
2347 }
2348
2349 //-- dggqrf --------------------------------------------------------------------
2350 void
2351 LAPACK_DECL(dggqrf)(const INTEGER *N,
2352 const INTEGER *M,
2353 const INTEGER *P,
2354 DOUBLE *A,
2355 const INTEGER *LDA,
2356 DOUBLE *TAUA,
2357 DOUBLE *B,
2358 const INTEGER *LDB,
2359 DOUBLE *TAUB,
2360 DOUBLE *WORK,
2361 const INTEGER *LWORK,
2362 INTEGER *INFO)
2363 {
2364 DEBUG_LAPACK_STUB("dggqrf");
2365 LAPACK_IMPL(dggqrf)(N,
2366 M,
2367 P,
2368 A,
2369 LDA,
2370 TAUA,
2371 B,
2372 LDB,
2373 TAUB,
2374 WORK,
2375 LWORK,
2376 INFO);
2377 }
2378
2379 //-- dggrqf --------------------------------------------------------------------
2380 void
2381 LAPACK_DECL(dggrqf)(const INTEGER *M,
2382 const INTEGER *P,
2383 const INTEGER *N,
2384 DOUBLE *A,
2385 const INTEGER *LDA,
2386 DOUBLE *TAUA,
2387 DOUBLE *B,
2388 const INTEGER *LDB,
2389 DOUBLE *TAUB,
2390 DOUBLE *WORK,
2391 const INTEGER *LWORK,
2392 INTEGER *INFO)
2393 {
2394 DEBUG_LAPACK_STUB("dggrqf");
2395 LAPACK_IMPL(dggrqf)(M,
2396 P,
2397 N,
2398 A,
2399 LDA,
2400 TAUA,
2401 B,
2402 LDB,
2403 TAUB,
2404 WORK,
2405 LWORK,
2406 INFO);
2407 }
2408
2409 //-- dggsvd --------------------------------------------------------------------
2410 void
2411 LAPACK_DECL(dggsvd)(const char *JOBU,
2412 const char *JOBV,
2413 const char *JOBQ,
2414 const INTEGER *M,
2415 const INTEGER *N,
2416 const INTEGER *P,
2417 INTEGER *K,
2418 INTEGER *L,
2419 DOUBLE *A,
2420 const INTEGER *LDA,
2421 DOUBLE *B,
2422 const INTEGER *LDB,
2423 DOUBLE *ALPHA,
2424 DOUBLE *BETA,
2425 DOUBLE *U,
2426 const INTEGER *LDU,
2427 DOUBLE *V,
2428 const INTEGER *LDV,
2429 DOUBLE *Q,
2430 const INTEGER *LDQ,
2431 const DOUBLE *WORK,
2432 INTEGER *IWORK,
2433 INTEGER *INFO)
2434 {
2435 DEBUG_LAPACK_STUB("dggsvd");
2436 LAPACK_IMPL(dggsvd)(JOBU,
2437 JOBV,
2438 JOBQ,
2439 M,
2440 N,
2441 P,
2442 K,
2443 L,
2444 A,
2445 LDA,
2446 B,
2447 LDB,
2448 ALPHA,
2449 BETA,
2450 U,
2451 LDU,
2452 V,
2453 LDV,
2454 Q,
2455 LDQ,
2456 WORK,
2457 IWORK,
2458 INFO);
2459 }
2460
2461 //-- dggsvp --------------------------------------------------------------------
2462 void
2463 LAPACK_DECL(dggsvp)(const char *JOBU,
2464 const char *JOBV,
2465 const char *JOBQ,
2466 const INTEGER *M,
2467 const INTEGER *P,
2468 const INTEGER *N,
2469 DOUBLE *A,
2470 const INTEGER *LDA,
2471 DOUBLE *B,
2472 const INTEGER *LDB,
2473 const DOUBLE *TOLA,
2474 const DOUBLE *TOLB,
2475 INTEGER *K,
2476 INTEGER *L,
2477 DOUBLE *U,
2478 const INTEGER *LDU,
2479 DOUBLE *V,
2480 const INTEGER *LDV,
2481 DOUBLE *Q,
2482 const INTEGER *LDQ,
2483 const INTEGER *IWORK,
2484 const DOUBLE *TAU,
2485 const DOUBLE *WORK,
2486 INTEGER *INFO)
2487 {
2488 DEBUG_LAPACK_STUB("dggsvp");
2489 LAPACK_IMPL(dggsvp)(JOBU,
2490 JOBV,
2491 JOBQ,
2492 M,
2493 P,
2494 N,
2495 A,
2496 LDA,
2497 B,
2498 LDB,
2499 TOLA,
2500 TOLB,
2501 K,
2502 L,
2503 U,
2504 LDU,
2505 V,
2506 LDV,
2507 Q,
2508 LDQ,
2509 IWORK,
2510 TAU,
2511 WORK,
2512 INFO);
2513 }
2514
2515 //-- dgsvj0 --------------------------------------------------------------------
2516 void
2517 LAPACK_DECL(dgsvj0)(const char *JOBV,
2518 const INTEGER *M,
2519 const INTEGER *N,
2520 DOUBLE *A,
2521 const INTEGER *LDA,
2522 DOUBLE *D,
2523 DOUBLE *SVA,
2524 const INTEGER *MV,
2525 DOUBLE *V,
2526 const INTEGER *LDV,
2527 const DOUBLE *EPS,
2528 const DOUBLE *SFMIN,
2529 const DOUBLE *TOL,
2530 const INTEGER *NSWEEP,
2531 const DOUBLE *WORK,
2532 const INTEGER *LWORK,
2533 INTEGER *INFO)
2534 {
2535 DEBUG_LAPACK_STUB("dgsvj0");
2536 LAPACK_IMPL(dgsvj0)(JOBV,
2537 M,
2538 N,
2539 A,
2540 LDA,
2541 D,
2542 SVA,
2543 MV,
2544 V,
2545 LDV,
2546 EPS,
2547 SFMIN,
2548 TOL,
2549 NSWEEP,
2550 WORK,
2551 LWORK,
2552 INFO);
2553 }
2554
2555 //-- dgsvj1 --------------------------------------------------------------------
2556 void
2557 LAPACK_DECL(dgsvj1)(const char *JOBV,
2558 const INTEGER *M,
2559 const INTEGER *N,
2560 const INTEGER *N1,
2561 DOUBLE *A,
2562 const INTEGER *LDA,
2563 DOUBLE *D,
2564 DOUBLE *SVA,
2565 const INTEGER *MV,
2566 DOUBLE *V,
2567 const INTEGER *LDV,
2568 const DOUBLE *EPS,
2569 const DOUBLE *SFMIN,
2570 const DOUBLE *TOL,
2571 const INTEGER *NSWEEP,
2572 const DOUBLE *WORK,
2573 const INTEGER *LWORK,
2574 INTEGER *INFO)
2575 {
2576 DEBUG_LAPACK_STUB("dgsvj1");
2577 LAPACK_IMPL(dgsvj1)(JOBV,
2578 M,
2579 N,
2580 N1,
2581 A,
2582 LDA,
2583 D,
2584 SVA,
2585 MV,
2586 V,
2587 LDV,
2588 EPS,
2589 SFMIN,
2590 TOL,
2591 NSWEEP,
2592 WORK,
2593 LWORK,
2594 INFO);
2595 }
2596
2597 //-- dgtcon --------------------------------------------------------------------
2598 void
2599 LAPACK_DECL(dgtcon)(const char *NORM,
2600 const INTEGER *N,
2601 const DOUBLE *DL,
2602 const DOUBLE *D,
2603 const DOUBLE *DU,
2604 const DOUBLE *DU2,
2605 const INTEGER *IPIV,
2606 const DOUBLE *ANORM,
2607 DOUBLE *RCOND,
2608 const DOUBLE *WORK,
2609 const INTEGER *IWORK,
2610 INTEGER *INFO)
2611 {
2612 DEBUG_LAPACK_STUB("dgtcon");
2613 LAPACK_IMPL(dgtcon)(NORM,
2614 N,
2615 DL,
2616 D,
2617 DU,
2618 DU2,
2619 IPIV,
2620 ANORM,
2621 RCOND,
2622 WORK,
2623 IWORK,
2624 INFO);
2625 }
2626
2627 //-- dgtrfs --------------------------------------------------------------------
2628 void
2629 LAPACK_DECL(dgtrfs)(const char *TRANS,
2630 const INTEGER *N,
2631 const INTEGER *NRHS,
2632 const DOUBLE *DL,
2633 const DOUBLE *D,
2634 const DOUBLE *DU,
2635 const DOUBLE *DLF,
2636 const DOUBLE *DF,
2637 const DOUBLE *DUF,
2638 const DOUBLE *DU2,
2639 const INTEGER *IPIV,
2640 const DOUBLE *B,
2641 const INTEGER *LDB,
2642 DOUBLE *X,
2643 const INTEGER *LDX,
2644 DOUBLE *FERR,
2645 DOUBLE *BERR,
2646 const DOUBLE *WORK,
2647 const INTEGER *IWORK,
2648 INTEGER *INFO)
2649 {
2650 DEBUG_LAPACK_STUB("dgtrfs");
2651 LAPACK_IMPL(dgtrfs)(TRANS,
2652 N,
2653 NRHS,
2654 DL,
2655 D,
2656 DU,
2657 DLF,
2658 DF,
2659 DUF,
2660 DU2,
2661 IPIV,
2662 B,
2663 LDB,
2664 X,
2665 LDX,
2666 FERR,
2667 BERR,
2668 WORK,
2669 IWORK,
2670 INFO);
2671 }
2672
2673 //-- dgtsv ---------------------------------------------------------------------
2674 void
2675 LAPACK_DECL(dgtsv)(const INTEGER *N,
2676 const INTEGER *NRHS,
2677 DOUBLE *DL,
2678 DOUBLE *D,
2679 DOUBLE *DU,
2680 DOUBLE *B,
2681 const INTEGER *LDB,
2682 INTEGER *INFO)
2683 {
2684 DEBUG_LAPACK_STUB("dgtsv");
2685 LAPACK_IMPL(dgtsv)(N,
2686 NRHS,
2687 DL,
2688 D,
2689 DU,
2690 B,
2691 LDB,
2692 INFO);
2693 }
2694
2695 //-- dgtsvx --------------------------------------------------------------------
2696 void
2697 LAPACK_DECL(dgtsvx)(const char *FACT,
2698 const char *TRANS,
2699 const INTEGER *N,
2700 const INTEGER *NRHS,
2701 const DOUBLE *DL,
2702 const DOUBLE *D,
2703 const DOUBLE *DU,
2704 DOUBLE *DLF,
2705 DOUBLE *DF,
2706 DOUBLE *DUF,
2707 DOUBLE *DU2,
2708 INTEGER *IPIV,
2709 const DOUBLE *B,
2710 const INTEGER *LDB,
2711 DOUBLE *X,
2712 const INTEGER *LDX,
2713 DOUBLE *RCOND,
2714 DOUBLE *FERR,
2715 DOUBLE *BERR,
2716 const DOUBLE *WORK,
2717 const INTEGER *IWORK,
2718 INTEGER *INFO)
2719 {
2720 DEBUG_LAPACK_STUB("dgtsvx");
2721 LAPACK_IMPL(dgtsvx)(FACT,
2722 TRANS,
2723 N,
2724 NRHS,
2725 DL,
2726 D,
2727 DU,
2728 DLF,
2729 DF,
2730 DUF,
2731 DU2,
2732 IPIV,
2733 B,
2734 LDB,
2735 X,
2736 LDX,
2737 RCOND,
2738 FERR,
2739 BERR,
2740 WORK,
2741 IWORK,
2742 INFO);
2743 }
2744
2745 //-- dgttrf --------------------------------------------------------------------
2746 void
2747 LAPACK_DECL(dgttrf)(const INTEGER *N,
2748 DOUBLE *DL,
2749 DOUBLE *D,
2750 DOUBLE *DU,
2751 DOUBLE *DU2,
2752 INTEGER *IPIV,
2753 INTEGER *INFO)
2754 {
2755 DEBUG_LAPACK_STUB("dgttrf");
2756 LAPACK_IMPL(dgttrf)(N,
2757 DL,
2758 D,
2759 DU,
2760 DU2,
2761 IPIV,
2762 INFO);
2763 }
2764
2765 //-- dgttrs --------------------------------------------------------------------
2766 void
2767 LAPACK_DECL(dgttrs)(const char *TRANS,
2768 const INTEGER *N,
2769 const INTEGER *NRHS,
2770 const DOUBLE *DL,
2771 const DOUBLE *D,
2772 const DOUBLE *DU,
2773 const DOUBLE *DU2,
2774 const INTEGER *IPIV,
2775 DOUBLE *B,
2776 const INTEGER *LDB,
2777 INTEGER *INFO)
2778 {
2779 DEBUG_LAPACK_STUB("dgttrs");
2780 LAPACK_IMPL(dgttrs)(TRANS,
2781 N,
2782 NRHS,
2783 DL,
2784 D,
2785 DU,
2786 DU2,
2787 IPIV,
2788 B,
2789 LDB,
2790 INFO);
2791 }
2792
2793 //-- dgtts2 --------------------------------------------------------------------
2794 void
2795 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
2796 const INTEGER *N,
2797 const INTEGER *NRHS,
2798 const DOUBLE *DL,
2799 const DOUBLE *D,
2800 const DOUBLE *DU,
2801 const DOUBLE *DU2,
2802 const INTEGER *IPIV,
2803 DOUBLE *B,
2804 const INTEGER *LDB)
2805 {
2806 DEBUG_LAPACK_STUB("dgtts2");
2807 LAPACK_IMPL(dgtts2)(ITRANS,
2808 N,
2809 NRHS,
2810 DL,
2811 D,
2812 DU,
2813 DU2,
2814 IPIV,
2815 B,
2816 LDB);
2817 }
2818
2819 //-- dhgeqz --------------------------------------------------------------------
2820 void
2821 LAPACK_DECL(dhgeqz)(const char *JOB,
2822 const char *COMPQ,
2823 const char *COMPZ,
2824 const INTEGER *N,
2825 const INTEGER *ILO,
2826 const INTEGER *IHI,
2827 DOUBLE *H,
2828 const INTEGER *LDH,
2829 DOUBLE *T,
2830 const INTEGER *LDT,
2831 DOUBLE *ALPHAR,
2832 DOUBLE *ALPHAI,
2833 DOUBLE *BETA,
2834 DOUBLE *Q,
2835 const INTEGER *LDQ,
2836 DOUBLE *Z,
2837 const INTEGER *LDZ,
2838 DOUBLE *WORK,
2839 const INTEGER *LWORK,
2840 INTEGER *INFO)
2841 {
2842 DEBUG_LAPACK_STUB("dhgeqz");
2843 LAPACK_IMPL(dhgeqz)(JOB,
2844 COMPQ,
2845 COMPZ,
2846 N,
2847 ILO,
2848 IHI,
2849 H,
2850 LDH,
2851 T,
2852 LDT,
2853 ALPHAR,
2854 ALPHAI,
2855 BETA,
2856 Q,
2857 LDQ,
2858 Z,
2859 LDZ,
2860 WORK,
2861 LWORK,
2862 INFO);
2863 }
2864
2865 //-- dhsein --------------------------------------------------------------------
2866 void
2867 LAPACK_DECL(dhsein)(const char *SIDE,
2868 const char *EIGSRC,
2869 const char *INITV,
2870 LOGICAL *SELECT,
2871 const INTEGER *N,
2872 const DOUBLE *H,
2873 const INTEGER *LDH,
2874 DOUBLE *WR,
2875 const DOUBLE *WI,
2876 DOUBLE *VL,
2877 const INTEGER *LDVL,
2878 DOUBLE *VR,
2879 const INTEGER *LDVR,
2880 const INTEGER *MM,
2881 INTEGER *M,
2882 const DOUBLE *WORK,
2883 INTEGER *IFAILL,
2884 INTEGER *IFAILR,
2885 INTEGER *INFO)
2886 {
2887 DEBUG_LAPACK_STUB("dhsein");
2888 LAPACK_IMPL(dhsein)(SIDE,
2889 EIGSRC,
2890 INITV,
2891 SELECT,
2892 N,
2893 H,
2894 LDH,
2895 WR,
2896 WI,
2897 VL,
2898 LDVL,
2899 VR,
2900 LDVR,
2901 MM,
2902 M,
2903 WORK,
2904 IFAILL,
2905 IFAILR,
2906 INFO);
2907 }
2908
2909 //-- dhseqr --------------------------------------------------------------------
2910 void
2911 LAPACK_DECL(dhseqr)(const char *JOB,
2912 const char *COMPZ,
2913 const INTEGER *N,
2914 const INTEGER *ILO,
2915 const INTEGER *IHI,
2916 DOUBLE *H,
2917 const INTEGER *LDH,
2918 DOUBLE *WR,
2919 DOUBLE *WI,
2920 DOUBLE *Z,
2921 const INTEGER *LDZ,
2922 DOUBLE *WORK,
2923 const INTEGER *LWORK,
2924 INTEGER *INFO)
2925 {
2926 DEBUG_LAPACK_STUB("dhseqr");
2927 LAPACK_IMPL(dhseqr)(JOB,
2928 COMPZ,
2929 N,
2930 ILO,
2931 IHI,
2932 H,
2933 LDH,
2934 WR,
2935 WI,
2936 Z,
2937 LDZ,
2938 WORK,
2939 LWORK,
2940 INFO);
2941 }
2942
2943 //-- disnan --------------------------------------------------------------------
2944 LOGICAL
2945 LAPACK_DECL(disnan)(const DOUBLE *DIN)
2946 {
2947 DEBUG_LAPACK_STUB("disnan");
2948 return LAPACK_IMPL(disnan)(DIN);
2949 }
2950
2951 //-- dla_gbamv -----------------------------------------------------------------
2952 void
2953 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
2954 const INTEGER *M,
2955 const INTEGER *N,
2956 const INTEGER *KL,
2957 const INTEGER *KU,
2958 const DOUBLE *ALPHA,
2959 const DOUBLE *AB,
2960 const INTEGER *LDAB,
2961 const DOUBLE *X,
2962 const INTEGER *INCX,
2963 const DOUBLE *BETA,
2964 DOUBLE *Y,
2965 const INTEGER *INCY)
2966 {
2967 DEBUG_LAPACK_STUB("dla_gbamv");
2968 LAPACK_IMPL(dla_gbamv)(TRANS,
2969 M,
2970 N,
2971 KL,
2972 KU,
2973 ALPHA,
2974 AB,
2975 LDAB,
2976 X,
2977 INCX,
2978 BETA,
2979 Y,
2980 INCY);
2981 }
2982
2983 //-- dla_gbrcond ---------------------------------------------------------------
2984 DOUBLE
2985 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
2986 const INTEGER *N,
2987 const INTEGER *KL,
2988 const INTEGER *KU,
2989 const DOUBLE *AB,
2990 const INTEGER *LDAB,
2991 const DOUBLE *AFB,
2992 const INTEGER *LDAFB,
2993 const INTEGER *IPIV,
2994 const INTEGER *CMODE,
2995 const DOUBLE *C,
2996 INTEGER *INFO,
2997 const DOUBLE *WORK,
2998 const INTEGER *IWORK)
2999 {
3000 DEBUG_LAPACK_STUB("dla_gbrcond");
3001 return LAPACK_IMPL(dla_gbrcond)(TRANS,
3002 N,
3003 KL,
3004 KU,
3005 AB,
3006 LDAB,
3007 AFB,
3008 LDAFB,
3009 IPIV,
3010 CMODE,
3011 C,
3012 INFO,
3013 WORK,
3014 IWORK);
3015 }
3016
3017 //-- dla_gbrfsx_extended -------------------------------------------------------
3018 void
3019 LAPACK_DECL(dla_gbrfsx_extended)(const INTEGER *PREC_TYPE,
3020 const INTEGER *TRANS_TYPE,
3021 const INTEGER *N,
3022 const INTEGER *KL,
3023 const INTEGER *KU,
3024 const INTEGER *NRHS,
3025 const DOUBLE *AB,
3026 const INTEGER *LDAB,
3027 const DOUBLE *AFB,
3028 const INTEGER *LDAFB,
3029 const INTEGER *IPIV,
3030 const LOGICAL *COLEQU,
3031 const DOUBLE *C,
3032 const DOUBLE *B,
3033 const INTEGER *LDB,
3034 DOUBLE *Y,
3035 const INTEGER *LDY,
3036 DOUBLE *BERR_OUT,
3037 const INTEGER *N_NORMS,
3038 DOUBLE *ERR_BNDS_NORM,
3039 DOUBLE *ERR_BNDS_COMP,
3040 const DOUBLE *RES,
3041 const DOUBLE *AYB,
3042 const DOUBLE *DY,
3043 const DOUBLE *Y_TAIL,
3044 const DOUBLE *RCOND,
3045 const INTEGER *ITHRESH,
3046 const DOUBLE *RTHRESH,
3047 const DOUBLE *DZ_UB,
3048 const LOGICAL *IGNORE_CWISE,
3049 INTEGER *INFO)
3050 {
3051 DEBUG_LAPACK_STUB("dla_gbrfsx_extended");
3052 LAPACK_IMPL(dla_gbrfsx_extended)(PREC_TYPE,
3053 TRANS_TYPE,
3054 N,
3055 KL,
3056 KU,
3057 NRHS,
3058 AB,
3059 LDAB,
3060 AFB,
3061 LDAFB,
3062 IPIV,
3063 COLEQU,
3064 C,
3065 B,
3066 LDB,
3067 Y,
3068 LDY,
3069 BERR_OUT,
3070 N_NORMS,
3071 ERR_BNDS_NORM,
3072 ERR_BNDS_COMP,
3073 RES,
3074 AYB,
3075 DY,
3076 Y_TAIL,
3077 RCOND,
3078 ITHRESH,
3079 RTHRESH,
3080 DZ_UB,
3081 IGNORE_CWISE,
3082 INFO);
3083 }
3084
3085 //-- dla_gbrpvgrw --------------------------------------------------------------
3086 DOUBLE
3087 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
3088 const INTEGER *KL,
3089 const INTEGER *KU,
3090 const INTEGER *NCOLS,
3091 const DOUBLE *AB,
3092 const INTEGER *LDAB,
3093 const DOUBLE *AFB,
3094 const INTEGER *LDAFB)
3095 {
3096 DEBUG_LAPACK_STUB("dla_gbrpvgrw");
3097 return LAPACK_IMPL(dla_gbrpvgrw)(N,
3098 KL,
3099 KU,
3100 NCOLS,
3101 AB,
3102 LDAB,
3103 AFB,
3104 LDAFB);
3105 }
3106
3107 //-- dla_geamv -----------------------------------------------------------------
3108 void
3109 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
3110 const INTEGER *M,
3111 const INTEGER *N,
3112 const DOUBLE *ALPHA,
3113 const DOUBLE *A,
3114 const INTEGER *LDA,
3115 const DOUBLE *X,
3116 const INTEGER *INCX,
3117 const DOUBLE *BETA,
3118 DOUBLE *Y,
3119 const INTEGER *INCY)
3120 {
3121 DEBUG_LAPACK_STUB("dla_geamv");
3122 LAPACK_IMPL(dla_geamv)(TRANS,
3123 M,
3124 N,
3125 ALPHA,
3126 A,
3127 LDA,
3128 X,
3129 INCX,
3130 BETA,
3131 Y,
3132 INCY);
3133 }
3134
3135 //-- dla_gercond ---------------------------------------------------------------
3136 DOUBLE
3137 LAPACK_DECL(dla_gercond)(const char *TRANS,
3138 const INTEGER *N,
3139 const DOUBLE *A,
3140 const INTEGER *LDA,
3141 const DOUBLE *AF,
3142 const INTEGER *LDAF,
3143 const INTEGER *IPIV,
3144 const INTEGER *CMODE,
3145 const DOUBLE *C,
3146 INTEGER *INFO,
3147 const DOUBLE *WORK,
3148 const INTEGER *IWORK)
3149 {
3150 DEBUG_LAPACK_STUB("dla_gercond");
3151 return LAPACK_IMPL(dla_gercond)(TRANS,
3152 N,
3153 A,
3154 LDA,
3155 AF,
3156 LDAF,
3157 IPIV,
3158 CMODE,
3159 C,
3160 INFO,
3161 WORK,
3162 IWORK);
3163 }
3164
3165 //-- dla_gerfsx_extended -------------------------------------------------------
3166 void
3167 LAPACK_DECL(dla_gerfsx_extended)(const INTEGER *PREC_TYPE,
3168 const INTEGER *TRANS_TYPE,
3169 const INTEGER *N,
3170 const INTEGER *NRHS,
3171 const DOUBLE *A,
3172 const INTEGER *LDA,
3173 const DOUBLE *AF,
3174 const INTEGER *LDAF,
3175 const INTEGER *IPIV,
3176 const LOGICAL *COLEQU,
3177 const DOUBLE *C,
3178 const DOUBLE *B,
3179 const INTEGER *LDB,
3180 DOUBLE *Y,
3181 const INTEGER *LDY,
3182 DOUBLE *BERR_OUT,
3183 const INTEGER *N_NORMS,
3184 const DOUBLE *ERRS_N,
3185 const DOUBLE *ERRS_C,
3186 const DOUBLE *RES,
3187 const DOUBLE *AYB,
3188 const DOUBLE *DY,
3189 const DOUBLE *Y_TAIL,
3190 const DOUBLE *RCOND,
3191 const INTEGER *ITHRESH,
3192 const DOUBLE *RTHRESH,
3193 const DOUBLE *DZ_UB,
3194 const LOGICAL *IGNORE_CWISE,
3195 INTEGER *INFO)
3196 {
3197 DEBUG_LAPACK_STUB("dla_gerfsx_extended");
3198 LAPACK_IMPL(dla_gerfsx_extended)(PREC_TYPE,
3199 TRANS_TYPE,
3200 N,
3201 NRHS,
3202 A,
3203 LDA,
3204 AF,
3205 LDAF,
3206 IPIV,
3207 COLEQU,
3208 C,
3209 B,
3210 LDB,
3211 Y,
3212 LDY,
3213 BERR_OUT,
3214 N_NORMS,
3215 ERRS_N,
3216 ERRS_C,
3217 RES,
3218 AYB,
3219 DY,
3220 Y_TAIL,
3221 RCOND,
3222 ITHRESH,
3223 RTHRESH,
3224 DZ_UB,
3225 IGNORE_CWISE,
3226 INFO);
3227 }
3228
3229 //-- dla_lin_berr --------------------------------------------------------------
3230 void
3231 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
3232 const INTEGER *NZ,
3233 const INTEGER *NRHS,
3234 const DOUBLE *RES,
3235 const DOUBLE *AYB,
3236 DOUBLE *BERR)
3237 {
3238 DEBUG_LAPACK_STUB("dla_lin_berr");
3239 LAPACK_IMPL(dla_lin_berr)(N,
3240 NZ,
3241 NRHS,
3242 RES,
3243 AYB,
3244 BERR);
3245 }
3246
3247 //-- dla_porcond ---------------------------------------------------------------
3248 DOUBLE
3249 LAPACK_DECL(dla_porcond)(const char *UPLO,
3250 const INTEGER *N,
3251 const DOUBLE *A,
3252 const INTEGER *LDA,
3253 const DOUBLE *AF,
3254 const INTEGER *LDAF,
3255 const INTEGER *CMODE,
3256 const DOUBLE *C,
3257 INTEGER *INFO,
3258 const DOUBLE *WORK,
3259 const INTEGER *IWORK)
3260 {
3261 DEBUG_LAPACK_STUB("dla_porcond");
3262 return LAPACK_IMPL(dla_porcond)(UPLO,
3263 N,
3264 A,
3265 LDA,
3266 AF,
3267 LDAF,
3268 CMODE,
3269 C,
3270 INFO,
3271 WORK,
3272 IWORK);
3273 }
3274
3275 //-- dla_porfsx_extended -------------------------------------------------------
3276 void
3277 LAPACK_DECL(dla_porfsx_extended)(const INTEGER *PREC_TYPE,
3278 const char *UPLO,
3279 const INTEGER *N,
3280 const INTEGER *NRHS,
3281 const DOUBLE *A,
3282 const INTEGER *LDA,
3283 const DOUBLE *AF,
3284 const INTEGER *LDAF,
3285 const LOGICAL *COLEQU,
3286 const DOUBLE *C,
3287 const DOUBLE *B,
3288 const INTEGER *LDB,
3289 DOUBLE *Y,
3290 const INTEGER *LDY,
3291 DOUBLE *BERR_OUT,
3292 const INTEGER *N_NORMS,
3293 DOUBLE *ERR_BNDS_NORM,
3294 DOUBLE *ERR_BNDS_COMP,
3295 const DOUBLE *RES,
3296 const DOUBLE *AYB,
3297 const DOUBLE *DY,
3298 const DOUBLE *Y_TAIL,
3299 const DOUBLE *RCOND,
3300 const INTEGER *ITHRESH,
3301 const DOUBLE *RTHRESH,
3302 const DOUBLE *DZ_UB,
3303 const LOGICAL *IGNORE_CWISE,
3304 INTEGER *INFO)
3305 {
3306 DEBUG_LAPACK_STUB("dla_porfsx_extended");
3307 LAPACK_IMPL(dla_porfsx_extended)(PREC_TYPE,
3308 UPLO,
3309 N,
3310 NRHS,
3311 A,
3312 LDA,
3313 AF,
3314 LDAF,
3315 COLEQU,
3316 C,
3317 B,
3318 LDB,
3319 Y,
3320 LDY,
3321 BERR_OUT,
3322 N_NORMS,
3323 ERR_BNDS_NORM,
3324 ERR_BNDS_COMP,
3325 RES,
3326 AYB,
3327 DY,
3328 Y_TAIL,
3329 RCOND,
3330 ITHRESH,
3331 RTHRESH,
3332 DZ_UB,
3333 IGNORE_CWISE,
3334 INFO);
3335 }
3336
3337 //-- dla_porpvgrw --------------------------------------------------------------
3338 DOUBLE
3339 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
3340 const INTEGER *NCOLS,
3341 const DOUBLE *A,
3342 const INTEGER *LDA,
3343 const DOUBLE *AF,
3344 const INTEGER *LDAF,
3345 const DOUBLE *WORK)
3346 {
3347 DEBUG_LAPACK_STUB("dla_porpvgrw");
3348 return LAPACK_IMPL(dla_porpvgrw)(UPLO,
3349 NCOLS,
3350 A,
3351 LDA,
3352 AF,
3353 LDAF,
3354 WORK);
3355 }
3356
3357 //-- dla_rpvgrw ----------------------------------------------------------------
3358 DOUBLE
3359 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
3360 const INTEGER *NCOLS,
3361 const DOUBLE *A,
3362 const INTEGER *LDA,
3363 const DOUBLE *AF,
3364 const INTEGER *LDAF)
3365 {
3366 DEBUG_LAPACK_STUB("dla_rpvgrw");
3367 return LAPACK_IMPL(dla_rpvgrw)(N,
3368 NCOLS,
3369 A,
3370 LDA,
3371 AF,
3372 LDAF);
3373 }
3374
3375 //-- dla_syamv -----------------------------------------------------------------
3376 void
3377 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
3378 const INTEGER *N,
3379 const DOUBLE *ALPHA,
3380 const DOUBLE *A,
3381 const INTEGER *LDA,
3382 const DOUBLE *X,
3383 const INTEGER *INCX,
3384 const DOUBLE *BETA,
3385 DOUBLE *Y,
3386 const INTEGER *INCY)
3387 {
3388 DEBUG_LAPACK_STUB("dla_syamv");
3389 LAPACK_IMPL(dla_syamv)(UPLO,
3390 N,
3391 ALPHA,
3392 A,
3393 LDA,
3394 X,
3395 INCX,
3396 BETA,
3397 Y,
3398 INCY);
3399 }
3400
3401 //-- dla_syrcond ---------------------------------------------------------------
3402 DOUBLE
3403 LAPACK_DECL(dla_syrcond)(const char *UPLO,
3404 const INTEGER *N,
3405 const DOUBLE *A,
3406 const INTEGER *LDA,
3407 const DOUBLE *AF,
3408 const INTEGER *LDAF,
3409 const INTEGER *IPIV,
3410 const INTEGER *CMODE,
3411 const DOUBLE *C,
3412 INTEGER *INFO,
3413 const DOUBLE *WORK,
3414 const INTEGER *IWORK)
3415 {
3416 DEBUG_LAPACK_STUB("dla_syrcond");
3417 return LAPACK_IMPL(dla_syrcond)(UPLO,
3418 N,
3419 A,
3420 LDA,
3421 AF,
3422 LDAF,
3423 IPIV,
3424 CMODE,
3425 C,
3426 INFO,
3427 WORK,
3428 IWORK);
3429 }
3430
3431 //-- dla_syrfsx_extended -------------------------------------------------------
3432 void
3433 LAPACK_DECL(dla_syrfsx_extended)(const INTEGER *PREC_TYPE,
3434 const char *UPLO,
3435 const INTEGER *N,
3436 const INTEGER *NRHS,
3437 const DOUBLE *A,
3438 const INTEGER *LDA,
3439 const DOUBLE *AF,
3440 const INTEGER *LDAF,
3441 const INTEGER *IPIV,
3442 const LOGICAL *COLEQU,
3443 const DOUBLE *C,
3444 const DOUBLE *B,
3445 const INTEGER *LDB,
3446 DOUBLE *Y,
3447 const INTEGER *LDY,
3448 DOUBLE *BERR_OUT,
3449 const INTEGER *N_NORMS,
3450 DOUBLE *ERR_BNDS_NORM,
3451 DOUBLE *ERR_BNDS_COMP,
3452 const DOUBLE *RES,
3453 const DOUBLE *AYB,
3454 const DOUBLE *DY,
3455 const DOUBLE *Y_TAIL,
3456 const DOUBLE *RCOND,
3457 const INTEGER *ITHRESH,
3458 const DOUBLE *RTHRESH,
3459 const DOUBLE *DZ_UB,
3460 const LOGICAL *IGNORE_CWISE,
3461 INTEGER *INFO)
3462 {
3463 DEBUG_LAPACK_STUB("dla_syrfsx_extended");
3464 LAPACK_IMPL(dla_syrfsx_extended)(PREC_TYPE,
3465 UPLO,
3466 N,
3467 NRHS,
3468 A,
3469 LDA,
3470 AF,
3471 LDAF,
3472 IPIV,
3473 COLEQU,
3474 C,
3475 B,
3476 LDB,
3477 Y,
3478 LDY,
3479 BERR_OUT,
3480 N_NORMS,
3481 ERR_BNDS_NORM,
3482 ERR_BNDS_COMP,
3483 RES,
3484 AYB,
3485 DY,
3486 Y_TAIL,
3487 RCOND,
3488 ITHRESH,
3489 RTHRESH,
3490 DZ_UB,
3491 IGNORE_CWISE,
3492 INFO);
3493 }
3494
3495 //-- dla_syrpvgrw --------------------------------------------------------------
3496 DOUBLE
3497 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
3498 const INTEGER *N,
3499 const INTEGER *INFO,
3500 const DOUBLE *A,
3501 const INTEGER *LDA,
3502 const DOUBLE *AF,
3503 const INTEGER *LDAF,
3504 const INTEGER *IPIV,
3505 const DOUBLE *WORK)
3506 {
3507 DEBUG_LAPACK_STUB("dla_syrpvgrw");
3508 return LAPACK_IMPL(dla_syrpvgrw)(UPLO,
3509 N,
3510 INFO,
3511 A,
3512 LDA,
3513 AF,
3514 LDAF,
3515 IPIV,
3516 WORK);
3517 }
3518
3519 //-- dla_wwaddw ----------------------------------------------------------------
3520 void
3521 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
3522 DOUBLE *X,
3523 DOUBLE *Y,
3524 const DOUBLE *W)
3525 {
3526 DEBUG_LAPACK_STUB("dla_wwaddw");
3527 LAPACK_IMPL(dla_wwaddw)(N,
3528 X,
3529 Y,
3530 W);
3531 }
3532
3533 //-- dlabad --------------------------------------------------------------------
3534 void
3535 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
3536 DOUBLE *LARGE)
3537 {
3538 DEBUG_LAPACK_STUB("dlabad");
3539 LAPACK_IMPL(dlabad)(SMALL,
3540 LARGE);
3541 }
3542
3543 //-- dlabrd --------------------------------------------------------------------
3544 void
3545 LAPACK_DECL(dlabrd)(const INTEGER *M,
3546 const INTEGER *N,
3547 const INTEGER *NB,
3548 DOUBLE *A,
3549 const INTEGER *LDA,
3550 DOUBLE *D,
3551 DOUBLE *E,
3552 DOUBLE *TAUQ,
3553 DOUBLE *TAUP,
3554 DOUBLE *X,
3555 const INTEGER *LDX,
3556 DOUBLE *Y,
3557 const INTEGER *LDY)
3558 {
3559 DEBUG_LAPACK_STUB("dlabrd");
3560 LAPACK_IMPL(dlabrd)(M,
3561 N,
3562 NB,
3563 A,
3564 LDA,
3565 D,
3566 E,
3567 TAUQ,
3568 TAUP,
3569 X,
3570 LDX,
3571 Y,
3572 LDY);
3573 }
3574
3575 //-- dlacn2 --------------------------------------------------------------------
3576 void
3577 LAPACK_DECL(dlacn2)(const INTEGER *N,
3578 const DOUBLE *V,
3579 DOUBLE *X,
3580 const INTEGER *ISGN,
3581 DOUBLE *EST,
3582 INTEGER *KASE,
3583 INTEGER *ISAVE)
3584 {
3585 DEBUG_LAPACK_STUB("dlacn2");
3586 LAPACK_IMPL(dlacn2)(N,
3587 V,
3588 X,
3589 ISGN,
3590 EST,
3591 KASE,
3592 ISAVE);
3593 }
3594
3595 //-- dlacon --------------------------------------------------------------------
3596 void
3597 LAPACK_DECL(dlacon)(const INTEGER *N,
3598 const DOUBLE *V,
3599 DOUBLE *X,
3600 const INTEGER *ISGN,
3601 DOUBLE *EST,
3602 INTEGER *KASE)
3603 {
3604 DEBUG_LAPACK_STUB("dlacon");
3605 LAPACK_IMPL(dlacon)(N,
3606 V,
3607 X,
3608 ISGN,
3609 EST,
3610 KASE);
3611 }
3612
3613 //-- dlacpy --------------------------------------------------------------------
3614 void
3615 LAPACK_DECL(dlacpy)(const char *UPLO,
3616 const INTEGER *M,
3617 const INTEGER *N,
3618 const DOUBLE *A,
3619 const INTEGER *LDA,
3620 DOUBLE *B,
3621 const INTEGER *LDB)
3622 {
3623 DEBUG_LAPACK_STUB("dlacpy");
3624 LAPACK_IMPL(dlacpy)(UPLO,
3625 M,
3626 N,
3627 A,
3628 LDA,
3629 B,
3630 LDB);
3631 }
3632
3633 //-- dladiv --------------------------------------------------------------------
3634 void
3635 LAPACK_DECL(dladiv)(const DOUBLE *A,
3636 const DOUBLE *B,
3637 const DOUBLE *C,
3638 const DOUBLE *D,
3639 DOUBLE *P,
3640 DOUBLE *Q)
3641 {
3642 DEBUG_LAPACK_STUB("dladiv");
3643 LAPACK_IMPL(dladiv)(A,
3644 B,
3645 C,
3646 D,
3647 P,
3648 Q);
3649 }
3650
3651 //-- dlae2 ---------------------------------------------------------------------
3652 void
3653 LAPACK_DECL(dlae2)(const DOUBLE *A,
3654 const DOUBLE *B,
3655 const DOUBLE *C,
3656 DOUBLE *RT1,
3657 DOUBLE *RT2)
3658 {
3659 DEBUG_LAPACK_STUB("dlae2");
3660 LAPACK_IMPL(dlae2)(A,
3661 B,
3662 C,
3663 RT1,
3664 RT2);
3665 }
3666
3667 //-- dlaebz --------------------------------------------------------------------
3668 void
3669 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
3670 const INTEGER *NITMAX,
3671 const INTEGER *N,
3672 const INTEGER *MMAX,
3673 const INTEGER *MINP,
3674 const INTEGER *NBMIN,
3675 const DOUBLE *ABSTOL,
3676 const DOUBLE *RELTOL,
3677 const DOUBLE *PIVMIN,
3678 const DOUBLE *D,
3679 const DOUBLE *E,
3680 const DOUBLE *E2,
3681 INTEGER *NVAL,
3682 DOUBLE *AB,
3683 DOUBLE *C,
3684 INTEGER *MOUT,
3685 INTEGER *NAB,
3686 const DOUBLE *WORK,
3687 const INTEGER *IWORK,
3688 INTEGER *INFO)
3689 {
3690 DEBUG_LAPACK_STUB("dlaebz");
3691 LAPACK_IMPL(dlaebz)(IJOB,
3692 NITMAX,
3693 N,
3694 MMAX,
3695 MINP,
3696 NBMIN,
3697 ABSTOL,
3698 RELTOL,
3699 PIVMIN,
3700 D,
3701 E,
3702 E2,
3703 NVAL,
3704 AB,
3705 C,
3706 MOUT,
3707 NAB,
3708 WORK,
3709 IWORK,
3710 INFO);
3711 }
3712
3713 //-- dlaed0 --------------------------------------------------------------------
3714 void
3715 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
3716 const INTEGER *QSIZ,
3717 const INTEGER *N,
3718 DOUBLE *D,
3719 const DOUBLE *E,
3720 DOUBLE *Q,
3721 const INTEGER *LDQ,
3722 const DOUBLE *QSTORE,
3723 const INTEGER *LDQS,
3724 const DOUBLE *WORK,
3725 const INTEGER *IWORK,
3726 INTEGER *INFO)
3727 {
3728 DEBUG_LAPACK_STUB("dlaed0");
3729 LAPACK_IMPL(dlaed0)(ICOMPQ,
3730 QSIZ,
3731 N,
3732 D,
3733 E,
3734 Q,
3735 LDQ,
3736 QSTORE,
3737 LDQS,
3738 WORK,
3739 IWORK,
3740 INFO);
3741 }
3742
3743 //-- dlaed1 --------------------------------------------------------------------
3744 void
3745 LAPACK_DECL(dlaed1)(const INTEGER *N,
3746 DOUBLE *D,
3747 DOUBLE *Q,
3748 const INTEGER *LDQ,
3749 INTEGER *INDXQ,
3750 const DOUBLE *RHO,
3751 const INTEGER *CUTPNT,
3752 const DOUBLE *WORK,
3753 const INTEGER *IWORK,
3754 INTEGER *INFO)
3755 {
3756 DEBUG_LAPACK_STUB("dlaed1");
3757 LAPACK_IMPL(dlaed1)(N,
3758 D,
3759 Q,
3760 LDQ,
3761 INDXQ,
3762 RHO,
3763 CUTPNT,
3764 WORK,
3765 IWORK,
3766 INFO);
3767 }
3768
3769 //-- dlaed2 --------------------------------------------------------------------
3770 void
3771 LAPACK_DECL(dlaed2)(INTEGER *K,
3772 const INTEGER *N,
3773 const INTEGER *N1,
3774 DOUBLE *D,
3775 DOUBLE *Q,
3776 const INTEGER *LDQ,
3777 INTEGER *INDXQ,
3778 DOUBLE *RHO,
3779 const DOUBLE *Z,
3780 DOUBLE *DLAMDA,
3781 DOUBLE *W,
3782 DOUBLE *Q2,
3783 const INTEGER *INDX,
3784 INTEGER *INDXC,
3785 const INTEGER *INDXP,
3786 INTEGER *COLTYP,
3787 INTEGER *INFO)
3788 {
3789 DEBUG_LAPACK_STUB("dlaed2");
3790 LAPACK_IMPL(dlaed2)(K,
3791 N,
3792 N1,
3793 D,
3794 Q,
3795 LDQ,
3796 INDXQ,
3797 RHO,
3798 Z,
3799 DLAMDA,
3800 W,
3801 Q2,
3802 INDX,
3803 INDXC,
3804 INDXP,
3805 COLTYP,
3806 INFO);
3807 }
3808
3809 //-- dlaed3 --------------------------------------------------------------------
3810 void
3811 LAPACK_DECL(dlaed3)(const INTEGER *K,
3812 const INTEGER *N,
3813 const INTEGER *N1,
3814 DOUBLE *D,
3815 DOUBLE *Q,
3816 const INTEGER *LDQ,
3817 const DOUBLE *RHO,
3818 DOUBLE *DLAMDA,
3819 const DOUBLE *Q2,
3820 const INTEGER *INDX,
3821 const INTEGER *CTOT,
3822 DOUBLE *W,
3823 const DOUBLE *S,
3824 INTEGER *INFO)
3825 {
3826 DEBUG_LAPACK_STUB("dlaed3");
3827 LAPACK_IMPL(dlaed3)(K,
3828 N,
3829 N1,
3830 D,
3831 Q,
3832 LDQ,
3833 RHO,
3834 DLAMDA,
3835 Q2,
3836 INDX,
3837 CTOT,
3838 W,
3839 S,
3840 INFO);
3841 }
3842
3843 //-- dlaed4 --------------------------------------------------------------------
3844 void
3845 LAPACK_DECL(dlaed4)(const INTEGER *N,
3846 const INTEGER *I,
3847 const DOUBLE *D,
3848 const DOUBLE *Z,
3849 DOUBLE *DELTA,
3850 const DOUBLE *RHO,
3851 DOUBLE *DLAM,
3852 INTEGER *INFO)
3853 {
3854 DEBUG_LAPACK_STUB("dlaed4");
3855 LAPACK_IMPL(dlaed4)(N,
3856 I,
3857 D,
3858 Z,
3859 DELTA,
3860 RHO,
3861 DLAM,
3862 INFO);
3863 }
3864
3865 //-- dlaed5 --------------------------------------------------------------------
3866 void
3867 LAPACK_DECL(dlaed5)(const INTEGER *I,
3868 const DOUBLE *D,
3869 const DOUBLE *Z,
3870 DOUBLE *DELTA,
3871 const DOUBLE *RHO,
3872 DOUBLE *DLAM)
3873 {
3874 DEBUG_LAPACK_STUB("dlaed5");
3875 LAPACK_IMPL(dlaed5)(I,
3876 D,
3877 Z,
3878 DELTA,
3879 RHO,
3880 DLAM);
3881 }
3882
3883 //-- dlaed6 --------------------------------------------------------------------
3884 void
3885 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
3886 const LOGICAL *ORGATI,
3887 const DOUBLE *RHO,
3888 const DOUBLE *D,
3889 const DOUBLE *Z,
3890 const DOUBLE *FINIT,
3891 DOUBLE *TAU,
3892 INTEGER *INFO)
3893 {
3894 DEBUG_LAPACK_STUB("dlaed6");
3895 LAPACK_IMPL(dlaed6)(KNITER,
3896 ORGATI,
3897 RHO,
3898 D,
3899 Z,
3900 FINIT,
3901 TAU,
3902 INFO);
3903 }
3904
3905 //-- dlaed7 --------------------------------------------------------------------
3906 void
3907 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
3908 const INTEGER *N,
3909 const INTEGER *QSIZ,
3910 const INTEGER *TLVLS,
3911 const INTEGER *CURLVL,
3912 const INTEGER *CURPBM,
3913 DOUBLE *D,
3914 DOUBLE *Q,
3915 const INTEGER *LDQ,
3916 INTEGER *INDXQ,
3917 const DOUBLE *RHO,
3918 const INTEGER *CUTPNT,
3919 DOUBLE *QSTORE,
3920 INTEGER *QPTR,
3921 const INTEGER *PRMPTR,
3922 const INTEGER *PERM,
3923 const INTEGER *GIVPTR,
3924 const INTEGER *GIVCOL,
3925 const DOUBLE *GIVNUM,
3926 const DOUBLE *WORK,
3927 const INTEGER *IWORK,
3928 INTEGER *INFO)
3929 {
3930 DEBUG_LAPACK_STUB("dlaed7");
3931 LAPACK_IMPL(dlaed7)(ICOMPQ,
3932 N,
3933 QSIZ,
3934 TLVLS,
3935 CURLVL,
3936 CURPBM,
3937 D,
3938 Q,
3939 LDQ,
3940 INDXQ,
3941 RHO,
3942 CUTPNT,
3943 QSTORE,
3944 QPTR,
3945 PRMPTR,
3946 PERM,
3947 GIVPTR,
3948 GIVCOL,
3949 GIVNUM,
3950 WORK,
3951 IWORK,
3952 INFO);
3953 }
3954
3955 //-- dlaed8 --------------------------------------------------------------------
3956 void
3957 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
3958 INTEGER *K,
3959 const INTEGER *N,
3960 const INTEGER *QSIZ,
3961 DOUBLE *D,
3962 DOUBLE *Q,
3963 const INTEGER *LDQ,
3964 const INTEGER *INDXQ,
3965 DOUBLE *RHO,
3966 const INTEGER *CUTPNT,
3967 const DOUBLE *Z,
3968 DOUBLE *DLAMDA,
3969 DOUBLE *Q2,
3970 const INTEGER *LDQ2,
3971 DOUBLE *W,
3972 INTEGER *PERM,
3973 INTEGER *GIVPTR,
3974 INTEGER *GIVCOL,
3975 DOUBLE *GIVNUM,
3976 const INTEGER *INDXP,
3977 const INTEGER *INDX,
3978 INTEGER *INFO)
3979 {
3980 DEBUG_LAPACK_STUB("dlaed8");
3981 LAPACK_IMPL(dlaed8)(ICOMPQ,
3982 K,
3983 N,
3984 QSIZ,
3985 D,
3986 Q,
3987 LDQ,
3988 INDXQ,
3989 RHO,
3990 CUTPNT,
3991 Z,
3992 DLAMDA,
3993 Q2,
3994 LDQ2,
3995 W,
3996 PERM,
3997 GIVPTR,
3998 GIVCOL,
3999 GIVNUM,
4000 INDXP,
4001 INDX,
4002 INFO);
4003 }
4004
4005 //-- dlaed9 --------------------------------------------------------------------
4006 void
4007 LAPACK_DECL(dlaed9)(const INTEGER *K,
4008 const INTEGER *KSTART,
4009 const INTEGER *KSTOP,
4010 const INTEGER *N,
4011 DOUBLE *D,
4012 const DOUBLE *Q,
4013 const INTEGER *LDQ,
4014 const DOUBLE *RHO,
4015 const DOUBLE *DLAMDA,
4016 const DOUBLE *W,
4017 DOUBLE *S,
4018 const INTEGER *LDS,
4019 INTEGER *INFO)
4020 {
4021 DEBUG_LAPACK_STUB("dlaed9");
4022 LAPACK_IMPL(dlaed9)(K,
4023 KSTART,
4024 KSTOP,
4025 N,
4026 D,
4027 Q,
4028 LDQ,
4029 RHO,
4030 DLAMDA,
4031 W,
4032 S,
4033 LDS,
4034 INFO);
4035 }
4036
4037 //-- dlaeda --------------------------------------------------------------------
4038 void
4039 LAPACK_DECL(dlaeda)(const INTEGER *N,
4040 const INTEGER *TLVLS,
4041 const INTEGER *CURLVL,
4042 const INTEGER *CURPBM,
4043 const INTEGER *PRMPTR,
4044 const INTEGER *PERM,
4045 const INTEGER *GIVPTR,
4046 const INTEGER *GIVCOL,
4047 const DOUBLE *GIVNUM,
4048 const DOUBLE *Q,
4049 const INTEGER *QPTR,
4050 DOUBLE *Z,
4051 const DOUBLE *ZTEMP,
4052 INTEGER *INFO)
4053 {
4054 DEBUG_LAPACK_STUB("dlaeda");
4055 LAPACK_IMPL(dlaeda)(N,
4056 TLVLS,
4057 CURLVL,
4058 CURPBM,
4059 PRMPTR,
4060 PERM,
4061 GIVPTR,
4062 GIVCOL,
4063 GIVNUM,
4064 Q,
4065 QPTR,
4066 Z,
4067 ZTEMP,
4068 INFO);
4069 }
4070
4071 //-- dlaein --------------------------------------------------------------------
4072 void
4073 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
4074 const LOGICAL *NOINIT,
4075 const INTEGER *N,
4076 const DOUBLE *H,
4077 const INTEGER *LDH,
4078 const DOUBLE *WR,
4079 const DOUBLE *WI,
4080 DOUBLE *VR,
4081 DOUBLE *VI,
4082 const DOUBLE *B,
4083 const INTEGER *LDB,
4084 const DOUBLE *WORK,
4085 const DOUBLE *EPS3,
4086 const DOUBLE *SMLNUM,
4087 const DOUBLE *BIGNUM,
4088 INTEGER *INFO)
4089 {
4090 DEBUG_LAPACK_STUB("dlaein");
4091 LAPACK_IMPL(dlaein)(RIGHTV,
4092 NOINIT,
4093 N,
4094 H,
4095 LDH,
4096 WR,
4097 WI,
4098 VR,
4099 VI,
4100 B,
4101 LDB,
4102 WORK,
4103 EPS3,
4104 SMLNUM,
4105 BIGNUM,
4106 INFO);
4107 }
4108
4109 //-- dlaev2 --------------------------------------------------------------------
4110 void
4111 LAPACK_DECL(dlaev2)(const DOUBLE *A,
4112 const DOUBLE *B,
4113 const DOUBLE *C,
4114 DOUBLE *RT1,
4115 DOUBLE *RT2,
4116 DOUBLE *CS1,
4117 DOUBLE *SN1)
4118 {
4119 DEBUG_LAPACK_STUB("dlaev2");
4120 LAPACK_IMPL(dlaev2)(A,
4121 B,
4122 C,
4123 RT1,
4124 RT2,
4125 CS1,
4126 SN1);
4127 }
4128
4129 //-- dlaexc --------------------------------------------------------------------
4130 void
4131 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
4132 const INTEGER *N,
4133 DOUBLE *T,
4134 const INTEGER *LDT,
4135 DOUBLE *Q,
4136 const INTEGER *LDQ,
4137 const INTEGER *J1,
4138 const INTEGER *N1,
4139 const INTEGER *N2,
4140 const DOUBLE *WORK,
4141 INTEGER *INFO)
4142 {
4143 DEBUG_LAPACK_STUB("dlaexc");
4144 LAPACK_IMPL(dlaexc)(WANTQ,
4145 N,
4146 T,
4147 LDT,
4148 Q,
4149 LDQ,
4150 J1,
4151 N1,
4152 N2,
4153 WORK,
4154 INFO);
4155 }
4156
4157 //-- dlag2 ---------------------------------------------------------------------
4158 void
4159 LAPACK_DECL(dlag2)(const DOUBLE *A,
4160 const INTEGER *LDA,
4161 const DOUBLE *B,
4162 const INTEGER *LDB,
4163 const DOUBLE *SAFMIN,
4164 DOUBLE *SCALE1,
4165 DOUBLE *SCALE2,
4166 DOUBLE *WR1,
4167 DOUBLE *WR2,
4168 DOUBLE *WI)
4169 {
4170 DEBUG_LAPACK_STUB("dlag2");
4171 LAPACK_IMPL(dlag2)(A,
4172 LDA,
4173 B,
4174 LDB,
4175 SAFMIN,
4176 SCALE1,
4177 SCALE2,
4178 WR1,
4179 WR2,
4180 WI);
4181 }
4182
4183 //-- dlag2s --------------------------------------------------------------------
4184 void
4185 LAPACK_DECL(dlag2s)(const INTEGER *M,
4186 const INTEGER *N,
4187 const DOUBLE *A,
4188 const INTEGER *LDA,
4189 FLOAT *SA,
4190 const INTEGER *LDSA,
4191 INTEGER *INFO)
4192 {
4193 DEBUG_LAPACK_STUB("dlag2s");
4194 LAPACK_IMPL(dlag2s)(M,
4195 N,
4196 A,
4197 LDA,
4198 SA,
4199 LDSA,
4200 INFO);
4201 }
4202
4203 //-- dlags2 --------------------------------------------------------------------
4204 void
4205 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
4206 const DOUBLE *A1,
4207 const DOUBLE *A2,
4208 const DOUBLE *A3,
4209 const DOUBLE *B1,
4210 const DOUBLE *B2,
4211 const DOUBLE *B3,
4212 DOUBLE *CSU,
4213 DOUBLE *SNU,
4214 DOUBLE *CSV,
4215 DOUBLE *SNV,
4216 DOUBLE *CSQ,
4217 DOUBLE *SNQ)
4218 {
4219 DEBUG_LAPACK_STUB("dlags2");
4220 LAPACK_IMPL(dlags2)(UPPER,
4221 A1,
4222 A2,
4223 A3,
4224 B1,
4225 B2,
4226 B3,
4227 CSU,
4228 SNU,
4229 CSV,
4230 SNV,
4231 CSQ,
4232 SNQ);
4233 }
4234
4235 //-- dlagtf --------------------------------------------------------------------
4236 void
4237 LAPACK_DECL(dlagtf)(const INTEGER *N,
4238 DOUBLE *A,
4239 const DOUBLE *LAMBDA,
4240 DOUBLE *B,
4241 DOUBLE *C,
4242 const DOUBLE *TOL,
4243 DOUBLE *D,
4244 INTEGER *IN,
4245 INTEGER *INFO)
4246 {
4247 DEBUG_LAPACK_STUB("dlagtf");
4248 LAPACK_IMPL(dlagtf)(N,
4249 A,
4250 LAMBDA,
4251 B,
4252 C,
4253 TOL,
4254 D,
4255 IN,
4256 INFO);
4257 }
4258
4259 //-- dlagtm --------------------------------------------------------------------
4260 void
4261 LAPACK_DECL(dlagtm)(const char *TRANS,
4262 const INTEGER *N,
4263 const INTEGER *NRHS,
4264 const DOUBLE *ALPHA,
4265 const DOUBLE *DL,
4266 const DOUBLE *D,
4267 const DOUBLE *DU,
4268 const DOUBLE *X,
4269 const INTEGER *LDX,
4270 const DOUBLE *BETA,
4271 DOUBLE *B,
4272 const INTEGER *LDB)
4273 {
4274 DEBUG_LAPACK_STUB("dlagtm");
4275 LAPACK_IMPL(dlagtm)(TRANS,
4276 N,
4277 NRHS,
4278 ALPHA,
4279 DL,
4280 D,
4281 DU,
4282 X,
4283 LDX,
4284 BETA,
4285 B,
4286 LDB);
4287 }
4288
4289 //-- dlagts --------------------------------------------------------------------
4290 void
4291 LAPACK_DECL(dlagts)(const INTEGER *JOB,
4292 const INTEGER *N,
4293 const DOUBLE *A,
4294 const DOUBLE *B,
4295 const DOUBLE *C,
4296 const DOUBLE *D,
4297 const INTEGER *IN,
4298 DOUBLE *Y,
4299 DOUBLE *TOL,
4300 INTEGER *INFO)
4301 {
4302 DEBUG_LAPACK_STUB("dlagts");
4303 LAPACK_IMPL(dlagts)(JOB,
4304 N,
4305 A,
4306 B,
4307 C,
4308 D,
4309 IN,
4310 Y,
4311 TOL,
4312 INFO);
4313 }
4314
4315 //-- dlagv2 --------------------------------------------------------------------
4316 void
4317 LAPACK_DECL(dlagv2)(DOUBLE *A,
4318 const INTEGER *LDA,
4319 DOUBLE *B,
4320 const INTEGER *LDB,
4321 DOUBLE *ALPHAR,
4322 DOUBLE *ALPHAI,
4323 DOUBLE *BETA,
4324 DOUBLE *CSL,
4325 DOUBLE *SNL,
4326 DOUBLE *CSR,
4327 DOUBLE *SNR)
4328 {
4329 DEBUG_LAPACK_STUB("dlagv2");
4330 LAPACK_IMPL(dlagv2)(A,
4331 LDA,
4332 B,
4333 LDB,
4334 ALPHAR,
4335 ALPHAI,
4336 BETA,
4337 CSL,
4338 SNL,
4339 CSR,
4340 SNR);
4341 }
4342
4343 //-- dlahqr --------------------------------------------------------------------
4344 void
4345 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
4346 const LOGICAL *WANTZ,
4347 const INTEGER *N,
4348 const INTEGER *ILO,
4349 const INTEGER *IHI,
4350 DOUBLE *H,
4351 const INTEGER *LDH,
4352 DOUBLE *WR,
4353 DOUBLE *WI,
4354 const INTEGER *ILOZ,
4355 const INTEGER *IHIZ,
4356 DOUBLE *Z,
4357 const INTEGER *LDZ,
4358 INTEGER *INFO)
4359 {
4360 DEBUG_LAPACK_STUB("dlahqr");
4361 LAPACK_IMPL(dlahqr)(WANTT,
4362 WANTZ,
4363 N,
4364 ILO,
4365 IHI,
4366 H,
4367 LDH,
4368 WR,
4369 WI,
4370 ILOZ,
4371 IHIZ,
4372 Z,
4373 LDZ,
4374 INFO);
4375 }
4376
4377 //-- dlahr2 --------------------------------------------------------------------
4378 void
4379 LAPACK_DECL(dlahr2)(const INTEGER *N,
4380 const INTEGER *K,
4381 const INTEGER *NB,
4382 DOUBLE *A,
4383 const INTEGER *LDA,
4384 DOUBLE *TAU,
4385 DOUBLE *T,
4386 const INTEGER *LDT,
4387 DOUBLE *Y,
4388 const INTEGER *LDY)
4389 {
4390 DEBUG_LAPACK_STUB("dlahr2");
4391 LAPACK_IMPL(dlahr2)(N,
4392 K,
4393 NB,
4394 A,
4395 LDA,
4396 TAU,
4397 T,
4398 LDT,
4399 Y,
4400 LDY);
4401 }
4402
4403 //-- dlahrd --------------------------------------------------------------------
4404 void
4405 LAPACK_DECL(dlahrd)(const INTEGER *N,
4406 const INTEGER *K,
4407 const INTEGER *NB,
4408 DOUBLE *A,
4409 const INTEGER *LDA,
4410 DOUBLE *TAU,
4411 DOUBLE *T,
4412 const INTEGER *LDT,
4413 DOUBLE *Y,
4414 const INTEGER *LDY)
4415 {
4416 DEBUG_LAPACK_STUB("dlahrd");
4417 LAPACK_IMPL(dlahrd)(N,
4418 K,
4419 NB,
4420 A,
4421 LDA,
4422 TAU,
4423 T,
4424 LDT,
4425 Y,
4426 LDY);
4427 }
4428
4429 //-- dlaic1 --------------------------------------------------------------------
4430 void
4431 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
4432 const INTEGER *J,
4433 const DOUBLE *X,
4434 const DOUBLE *SEST,
4435 const DOUBLE *W,
4436 const DOUBLE *GAMMA,
4437 DOUBLE *SESTPR,
4438 DOUBLE *S,
4439 DOUBLE *C)
4440 {
4441 DEBUG_LAPACK_STUB("dlaic1");
4442 LAPACK_IMPL(dlaic1)(JOB,
4443 J,
4444 X,
4445 SEST,
4446 W,
4447 GAMMA,
4448 SESTPR,
4449 S,
4450 C);
4451 }
4452
4453 //-- dlaisnan ------------------------------------------------------------------
4454 LOGICAL
4455 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
4456 const DOUBLE *DIN2)
4457 {
4458 DEBUG_LAPACK_STUB("dlaisnan");
4459 return LAPACK_IMPL(dlaisnan)(DIN1,
4460 DIN2);
4461 }
4462
4463 //-- dlaln2 --------------------------------------------------------------------
4464 void
4465 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
4466 const INTEGER *NA,
4467 const INTEGER *NW,
4468 const DOUBLE *SMIN,
4469 const DOUBLE *CA,
4470 const DOUBLE *A,
4471 const INTEGER *LDA,
4472 const DOUBLE *D1,
4473 const DOUBLE *D2,
4474 const DOUBLE *B,
4475 const INTEGER *LDB,
4476 const DOUBLE *WR,
4477 const DOUBLE *WI,
4478 DOUBLE *X,
4479 const INTEGER *LDX,
4480 DOUBLE *SCALE,
4481 DOUBLE *XNORM,
4482 INTEGER *INFO)
4483 {
4484 DEBUG_LAPACK_STUB("dlaln2");
4485 LAPACK_IMPL(dlaln2)(LTRANS,
4486 NA,
4487 NW,
4488 SMIN,
4489 CA,
4490 A,
4491 LDA,
4492 D1,
4493 D2,
4494 B,
4495 LDB,
4496 WR,
4497 WI,
4498 X,
4499 LDX,
4500 SCALE,
4501 XNORM,
4502 INFO);
4503 }
4504
4505 //-- dlals0 --------------------------------------------------------------------
4506 void
4507 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
4508 const INTEGER *NL,
4509 const INTEGER *NR,
4510 const INTEGER *SQRE,
4511 const INTEGER *NRHS,
4512 DOUBLE *B,
4513 const INTEGER *LDB,
4514 const DOUBLE *BX,
4515 const INTEGER *LDBX,
4516 const INTEGER *PERM,
4517 const INTEGER *GIVPTR,
4518 const INTEGER *GIVCOL,
4519 const INTEGER *LDGCOL,
4520 const DOUBLE *GIVNUM,
4521 const INTEGER *LDGNUM,
4522 const DOUBLE *POLES,
4523 const DOUBLE *DIFL,
4524 const DOUBLE *DIFR,
4525 const DOUBLE *Z,
4526 const INTEGER *K,
4527 const DOUBLE *C,
4528 const DOUBLE *S,
4529 const DOUBLE *WORK,
4530 INTEGER *INFO)
4531 {
4532 DEBUG_LAPACK_STUB("dlals0");
4533 LAPACK_IMPL(dlals0)(ICOMPQ,
4534 NL,
4535 NR,
4536 SQRE,
4537 NRHS,
4538 B,
4539 LDB,
4540 BX,
4541 LDBX,
4542 PERM,
4543 GIVPTR,
4544 GIVCOL,
4545 LDGCOL,
4546 GIVNUM,
4547 LDGNUM,
4548 POLES,
4549 DIFL,
4550 DIFR,
4551 Z,
4552 K,
4553 C,
4554 S,
4555 WORK,
4556 INFO);
4557 }
4558
4559 //-- dlalsa --------------------------------------------------------------------
4560 void
4561 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
4562 const INTEGER *SMLSIZ,
4563 const INTEGER *N,
4564 const INTEGER *NRHS,
4565 DOUBLE *B,
4566 const INTEGER *LDB,
4567 DOUBLE *BX,
4568 const INTEGER *LDBX,
4569 const DOUBLE *U,
4570 const INTEGER *LDU,
4571 const DOUBLE *VT,
4572 const INTEGER *K,
4573 const DOUBLE *DIFL,
4574 const DOUBLE *DIFR,
4575 const DOUBLE *Z,
4576 const DOUBLE *POLES,
4577 const INTEGER *GIVPTR,
4578 const INTEGER *GIVCOL,
4579 const INTEGER *LDGCOL,
4580 const INTEGER *PERM,
4581 const DOUBLE *GIVNUM,
4582 const DOUBLE *C,
4583 const DOUBLE *S,
4584 const DOUBLE *WORK,
4585 const INTEGER *IWORK,
4586 INTEGER *INFO)
4587 {
4588 DEBUG_LAPACK_STUB("dlalsa");
4589 LAPACK_IMPL(dlalsa)(ICOMPQ,
4590 SMLSIZ,
4591 N,
4592 NRHS,
4593 B,
4594 LDB,
4595 BX,
4596 LDBX,
4597 U,
4598 LDU,
4599 VT,
4600 K,
4601 DIFL,
4602 DIFR,
4603 Z,
4604 POLES,
4605 GIVPTR,
4606 GIVCOL,
4607 LDGCOL,
4608 PERM,
4609 GIVNUM,
4610 C,
4611 S,
4612 WORK,
4613 IWORK,
4614 INFO);
4615 }
4616
4617 //-- dlalsd --------------------------------------------------------------------
4618 void
4619 LAPACK_DECL(dlalsd)(const char *UPLO,
4620 const INTEGER *SMLSIZ,
4621 const INTEGER *N,
4622 const INTEGER *NRHS,
4623 DOUBLE *D,
4624 DOUBLE *E,
4625 DOUBLE *B,
4626 const INTEGER *LDB,
4627 const DOUBLE *RCOND,
4628 INTEGER *RANK,
4629 const DOUBLE *WORK,
4630 const INTEGER *IWORK,
4631 INTEGER *INFO)
4632 {
4633 DEBUG_LAPACK_STUB("dlalsd");
4634 LAPACK_IMPL(dlalsd)(UPLO,
4635 SMLSIZ,
4636 N,
4637 NRHS,
4638 D,
4639 E,
4640 B,
4641 LDB,
4642 RCOND,
4643 RANK,
4644 WORK,
4645 IWORK,
4646 INFO);
4647 }
4648
4649 //-- dlamch --------------------------------------------------------------------
4650 DOUBLE
4651 LAPACK_DECL(dlamch)(const char *CMACH)
4652 {
4653 DEBUG_LAPACK_STUB("dlamch");
4654 return LAPACK_IMPL(dlamch)(CMACH);
4655 }
4656
4657 //-- dlamrg --------------------------------------------------------------------
4658 void
4659 LAPACK_DECL(dlamrg)(const INTEGER *N1,
4660 const INTEGER *N2,
4661 const DOUBLE *A,
4662 const INTEGER *DTRD1,
4663 const INTEGER *DTRD2,
4664 INTEGER *INDEX)
4665 {
4666 DEBUG_LAPACK_STUB("dlamrg");
4667 LAPACK_IMPL(dlamrg)(N1,
4668 N2,
4669 A,
4670 DTRD1,
4671 DTRD2,
4672 INDEX);
4673 }
4674
4675 //-- dlaneg --------------------------------------------------------------------
4676 INTEGER
4677 LAPACK_DECL(dlaneg)(const INTEGER *N,
4678 const DOUBLE *D,
4679 const DOUBLE *LLD,
4680 const DOUBLE *SIGMA,
4681 const DOUBLE *PIVMIN,
4682 const INTEGER *R)
4683 {
4684 DEBUG_LAPACK_STUB("dlaneg");
4685 return LAPACK_IMPL(dlaneg)(N,
4686 D,
4687 LLD,
4688 SIGMA,
4689 PIVMIN,
4690 R);
4691 }
4692
4693 //-- dlangb --------------------------------------------------------------------
4694 DOUBLE
4695 LAPACK_DECL(dlangb)(const char *NORM,
4696 const INTEGER *N,
4697 const INTEGER *KL,
4698 const INTEGER *KU,
4699 const DOUBLE *AB,
4700 const INTEGER *LDAB,
4701 const DOUBLE *WORK)
4702 {
4703 DEBUG_LAPACK_STUB("dlangb");
4704 return LAPACK_IMPL(dlangb)(NORM,
4705 N,
4706 KL,
4707 KU,
4708 AB,
4709 LDAB,
4710 WORK);
4711 }
4712
4713 //-- dlange --------------------------------------------------------------------
4714 DOUBLE
4715 LAPACK_DECL(dlange)(const char *NORM,
4716 const INTEGER *M,
4717 const INTEGER *N,
4718 const DOUBLE *A,
4719 const INTEGER *LDA,
4720 const DOUBLE *WORK)
4721 {
4722 DEBUG_LAPACK_STUB("dlange");
4723 return LAPACK_IMPL(dlange)(NORM,
4724 M,
4725 N,
4726 A,
4727 LDA,
4728 WORK);
4729 }
4730
4731 //-- dlangt --------------------------------------------------------------------
4732 DOUBLE
4733 LAPACK_DECL(dlangt)(const char *NORM,
4734 const INTEGER *N,
4735 const DOUBLE *DL,
4736 const DOUBLE *D,
4737 const DOUBLE *DU)
4738 {
4739 DEBUG_LAPACK_STUB("dlangt");
4740 return LAPACK_IMPL(dlangt)(NORM,
4741 N,
4742 DL,
4743 D,
4744 DU);
4745 }
4746
4747 //-- dlanhs --------------------------------------------------------------------
4748 DOUBLE
4749 LAPACK_DECL(dlanhs)(const char *NORM,
4750 const INTEGER *N,
4751 const DOUBLE *A,
4752 const INTEGER *LDA,
4753 const DOUBLE *WORK)
4754 {
4755 DEBUG_LAPACK_STUB("dlanhs");
4756 return LAPACK_IMPL(dlanhs)(NORM,
4757 N,
4758 A,
4759 LDA,
4760 WORK);
4761 }
4762
4763 //-- dlansb --------------------------------------------------------------------
4764 DOUBLE
4765 LAPACK_DECL(dlansb)(const char *NORM,
4766 const char *UPLO,
4767 const INTEGER *N,
4768 const INTEGER *K,
4769 const DOUBLE *AB,
4770 const INTEGER *LDAB,
4771 const DOUBLE *WORK)
4772 {
4773 DEBUG_LAPACK_STUB("dlansb");
4774 return LAPACK_IMPL(dlansb)(NORM,
4775 UPLO,
4776 N,
4777 K,
4778 AB,
4779 LDAB,
4780 WORK);
4781 }
4782
4783 //-- dlansf --------------------------------------------------------------------
4784 DOUBLE
4785 LAPACK_DECL(dlansf)(const char *NORM,
4786 const char *TRANSR,
4787 const char *UPLO,
4788 const INTEGER *N,
4789 const DOUBLE *A,
4790 const DOUBLE *WORK)
4791 {
4792 DEBUG_LAPACK_STUB("dlansf");
4793 return LAPACK_IMPL(dlansf)(NORM,
4794 TRANSR,
4795 UPLO,
4796 N,
4797 A,
4798 WORK);
4799 }
4800
4801 //-- dlansp --------------------------------------------------------------------
4802 DOUBLE
4803 LAPACK_DECL(dlansp)(const char *NORM,
4804 const char *UPLO,
4805 const INTEGER *N,
4806 const DOUBLE *AP,
4807 const DOUBLE *WORK)
4808 {
4809 DEBUG_LAPACK_STUB("dlansp");
4810 return LAPACK_IMPL(dlansp)(NORM,
4811 UPLO,
4812 N,
4813 AP,
4814 WORK);
4815 }
4816
4817 //-- dlanst --------------------------------------------------------------------
4818 DOUBLE
4819 LAPACK_DECL(dlanst)(const char *NORM,
4820 const INTEGER *N,
4821 const DOUBLE *D,
4822 const DOUBLE *E)
4823 {
4824 DEBUG_LAPACK_STUB("dlanst");
4825 return LAPACK_IMPL(dlanst)(NORM,
4826 N,
4827 D,
4828 E);
4829 }
4830
4831 //-- dlansy --------------------------------------------------------------------
4832 DOUBLE
4833 LAPACK_DECL(dlansy)(const char *NORM,
4834 const char *UPLO,
4835 const INTEGER *N,
4836 const DOUBLE *A,
4837 const INTEGER *LDA,
4838 const DOUBLE *WORK)
4839 {
4840 DEBUG_LAPACK_STUB("dlansy");
4841 return LAPACK_IMPL(dlansy)(NORM,
4842 UPLO,
4843 N,
4844 A,
4845 LDA,
4846 WORK);
4847 }
4848
4849 //-- dlantb --------------------------------------------------------------------
4850 DOUBLE
4851 LAPACK_DECL(dlantb)(const char *NORM,
4852 const char *UPLO,
4853 const char *DIAG,
4854 const INTEGER *N,
4855 const INTEGER *K,
4856 const DOUBLE *AB,
4857 const INTEGER *LDAB,
4858 const DOUBLE *WORK)
4859 {
4860 DEBUG_LAPACK_STUB("dlantb");
4861 return LAPACK_IMPL(dlantb)(NORM,
4862 UPLO,
4863 DIAG,
4864 N,
4865 K,
4866 AB,
4867 LDAB,
4868 WORK);
4869 }
4870
4871 //-- dlantp --------------------------------------------------------------------
4872 DOUBLE
4873 LAPACK_DECL(dlantp)(const char *NORM,
4874 const char *UPLO,
4875 const char *DIAG,
4876 const INTEGER *N,
4877 const DOUBLE *AP,
4878 const DOUBLE *WORK)
4879 {
4880 DEBUG_LAPACK_STUB("dlantp");
4881 return LAPACK_IMPL(dlantp)(NORM,
4882 UPLO,
4883 DIAG,
4884 N,
4885 AP,
4886 WORK);
4887 }
4888
4889 //-- dlantr --------------------------------------------------------------------
4890 DOUBLE
4891 LAPACK_DECL(dlantr)(const char *NORM,
4892 const char *UPLO,
4893 const char *DIAG,
4894 const INTEGER *M,
4895 const INTEGER *N,
4896 const DOUBLE *A,
4897 const INTEGER *LDA,
4898 const DOUBLE *WORK)
4899 {
4900 DEBUG_LAPACK_STUB("dlantr");
4901 return LAPACK_IMPL(dlantr)(NORM,
4902 UPLO,
4903 DIAG,
4904 M,
4905 N,
4906 A,
4907 LDA,
4908 WORK);
4909 }
4910
4911 //-- dlanv2 --------------------------------------------------------------------
4912 void
4913 LAPACK_DECL(dlanv2)(DOUBLE *A,
4914 DOUBLE *B,
4915 DOUBLE *C,
4916 DOUBLE *D,
4917 DOUBLE *RT1R,
4918 DOUBLE *RT1I,
4919 DOUBLE *RT2R,
4920 DOUBLE *RT2I,
4921 DOUBLE *CS,
4922 DOUBLE *SN)
4923 {
4924 DEBUG_LAPACK_STUB("dlanv2");
4925 LAPACK_IMPL(dlanv2)(A,
4926 B,
4927 C,
4928 D,
4929 RT1R,
4930 RT1I,
4931 RT2R,
4932 RT2I,
4933 CS,
4934 SN);
4935 }
4936
4937 //-- dlapll --------------------------------------------------------------------
4938 void
4939 LAPACK_DECL(dlapll)(const INTEGER *N,
4940 DOUBLE *X,
4941 const INTEGER *INCX,
4942 DOUBLE *Y,
4943 const INTEGER *INCY,
4944 DOUBLE *SSMIN)
4945 {
4946 DEBUG_LAPACK_STUB("dlapll");
4947 LAPACK_IMPL(dlapll)(N,
4948 X,
4949 INCX,
4950 Y,
4951 INCY,
4952 SSMIN);
4953 }
4954
4955 //-- dlapmr --------------------------------------------------------------------
4956 void
4957 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
4958 const INTEGER *M,
4959 const INTEGER *N,
4960 DOUBLE *X,
4961 const INTEGER *LDX,
4962 INTEGER *K)
4963 {
4964 DEBUG_LAPACK_STUB("dlapmr");
4965 LAPACK_IMPL(dlapmr)(FORWRD,
4966 M,
4967 N,
4968 X,
4969 LDX,
4970 K);
4971 }
4972
4973 //-- dlapmt --------------------------------------------------------------------
4974 void
4975 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
4976 const INTEGER *M,
4977 const INTEGER *N,
4978 DOUBLE *X,
4979 const INTEGER *LDX,
4980 INTEGER *K)
4981 {
4982 DEBUG_LAPACK_STUB("dlapmt");
4983 LAPACK_IMPL(dlapmt)(FORWRD,
4984 M,
4985 N,
4986 X,
4987 LDX,
4988 K);
4989 }
4990
4991 //-- dlapy2 --------------------------------------------------------------------
4992 DOUBLE
4993 LAPACK_DECL(dlapy2)(const DOUBLE *X,
4994 const DOUBLE *Y)
4995 {
4996 DEBUG_LAPACK_STUB("dlapy2");
4997 return LAPACK_IMPL(dlapy2)(X,
4998 Y);
4999 }
5000
5001 //-- dlapy3 --------------------------------------------------------------------
5002 DOUBLE
5003 LAPACK_DECL(dlapy3)(const DOUBLE *X,
5004 const DOUBLE *Y,
5005 const DOUBLE *Z)
5006 {
5007 DEBUG_LAPACK_STUB("dlapy3");
5008 return LAPACK_IMPL(dlapy3)(X,
5009 Y,
5010 Z);
5011 }
5012
5013 //-- dlaqgb --------------------------------------------------------------------
5014 void
5015 LAPACK_DECL(dlaqgb)(const INTEGER *M,
5016 const INTEGER *N,
5017 const INTEGER *KL,
5018 const INTEGER *KU,
5019 DOUBLE *AB,
5020 const INTEGER *LDAB,
5021 const DOUBLE *R,
5022 const DOUBLE *C,
5023 const DOUBLE *ROWCND,
5024 const DOUBLE *COLCND,
5025 const DOUBLE *AMAX,
5026 char *EQUED)
5027 {
5028 DEBUG_LAPACK_STUB("dlaqgb");
5029 LAPACK_IMPL(dlaqgb)(M,
5030 N,
5031 KL,
5032 KU,
5033 AB,
5034 LDAB,
5035 R,
5036 C,
5037 ROWCND,
5038 COLCND,
5039 AMAX,
5040 EQUED);
5041 }
5042
5043 //-- dlaqge --------------------------------------------------------------------
5044 void
5045 LAPACK_DECL(dlaqge)(const INTEGER *M,
5046 const INTEGER *N,
5047 DOUBLE *A,
5048 const INTEGER *LDA,
5049 const DOUBLE *R,
5050 const DOUBLE *C,
5051 const DOUBLE *ROWCND,
5052 const DOUBLE *COLCND,
5053 const DOUBLE *AMAX,
5054 char *EQUED)
5055 {
5056 DEBUG_LAPACK_STUB("dlaqge");
5057 LAPACK_IMPL(dlaqge)(M,
5058 N,
5059 A,
5060 LDA,
5061 R,
5062 C,
5063 ROWCND,
5064 COLCND,
5065 AMAX,
5066 EQUED);
5067 }
5068
5069 //-- dlaqp2 --------------------------------------------------------------------
5070 void
5071 LAPACK_DECL(dlaqp2)(const INTEGER *M,
5072 const INTEGER *N,
5073 const INTEGER *OFFSET,
5074 DOUBLE *A,
5075 const INTEGER *LDA,
5076 INTEGER *JPVT,
5077 DOUBLE *TAU,
5078 DOUBLE *VN1,
5079 DOUBLE *VN2,
5080 const DOUBLE *WORK)
5081 {
5082 DEBUG_LAPACK_STUB("dlaqp2");
5083 LAPACK_IMPL(dlaqp2)(M,
5084 N,
5085 OFFSET,
5086 A,
5087 LDA,
5088 JPVT,
5089 TAU,
5090 VN1,
5091 VN2,
5092 WORK);
5093 }
5094
5095 //-- dlaqps --------------------------------------------------------------------
5096 void
5097 LAPACK_DECL(dlaqps)(const INTEGER *M,
5098 const INTEGER *N,
5099 const INTEGER *OFFSET,
5100 const INTEGER *NB,
5101 INTEGER *KB,
5102 DOUBLE *A,
5103 const INTEGER *LDA,
5104 INTEGER *JPVT,
5105 DOUBLE *TAU,
5106 DOUBLE *VN1,
5107 DOUBLE *VN2,
5108 DOUBLE *AUXV,
5109 DOUBLE *F,
5110 const INTEGER *LDF)
5111 {
5112 DEBUG_LAPACK_STUB("dlaqps");
5113 LAPACK_IMPL(dlaqps)(M,
5114 N,
5115 OFFSET,
5116 NB,
5117 KB,
5118 A,
5119 LDA,
5120 JPVT,
5121 TAU,
5122 VN1,
5123 VN2,
5124 AUXV,
5125 F,
5126 LDF);
5127 }
5128
5129 //-- dlaqr0 --------------------------------------------------------------------
5130 void
5131 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
5132 const LOGICAL *WANTZ,
5133 const INTEGER *N,
5134 const INTEGER *ILO,
5135 const INTEGER *IHI,
5136 DOUBLE *H,
5137 const INTEGER *LDH,
5138 DOUBLE *WR,
5139 DOUBLE *WI,
5140 const INTEGER *ILOZ,
5141 const INTEGER *IHIZ,
5142 DOUBLE *Z,
5143 const INTEGER *LDZ,
5144 DOUBLE *WORK,
5145 const INTEGER *LWORK,
5146 INTEGER *INFO)
5147 {
5148 DEBUG_LAPACK_STUB("dlaqr0");
5149 LAPACK_IMPL(dlaqr0)(WANTT,
5150 WANTZ,
5151 N,
5152 ILO,
5153 IHI,
5154 H,
5155 LDH,
5156 WR,
5157 WI,
5158 ILOZ,
5159 IHIZ,
5160 Z,
5161 LDZ,
5162 WORK,
5163 LWORK,
5164 INFO);
5165 }
5166
5167 //-- dlaqr1 --------------------------------------------------------------------
5168 void
5169 LAPACK_DECL(dlaqr1)(const INTEGER *N,
5170 const DOUBLE *H,
5171 const INTEGER *LDH,
5172 const DOUBLE *SR1,
5173 const DOUBLE *SI1,
5174 const DOUBLE *SR2,
5175 const DOUBLE *SI2,
5176 DOUBLE *V)
5177 {
5178 DEBUG_LAPACK_STUB("dlaqr1");
5179 LAPACK_IMPL(dlaqr1)(N,
5180 H,
5181 LDH,
5182 SR1,
5183 SI1,
5184 SR2,
5185 SI2,
5186 V);
5187 }
5188
5189 //-- dlaqr2 --------------------------------------------------------------------
5190 void
5191 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
5192 const LOGICAL *WANTZ,
5193 const INTEGER *N,
5194 const INTEGER *KTOP,
5195 const INTEGER *KBOT,
5196 const INTEGER *NW,
5197 DOUBLE *H,
5198 const INTEGER *LDH,
5199 const INTEGER *ILOZ,
5200 const INTEGER *IHIZ,
5201 DOUBLE *Z,
5202 const INTEGER *LDZ,
5203 INTEGER *NS,
5204 INTEGER *ND,
5205 DOUBLE *SR,
5206 DOUBLE *SI,
5207 const DOUBLE *V,
5208 const INTEGER *LDV,
5209 const INTEGER *NH,
5210 const DOUBLE *T,
5211 const INTEGER *LDT,
5212 const INTEGER *NV,
5213 const DOUBLE *WV,
5214 const INTEGER *LDWV,
5215 const DOUBLE *WORK,
5216 const INTEGER *LWORK)
5217 {
5218 DEBUG_LAPACK_STUB("dlaqr2");
5219 LAPACK_IMPL(dlaqr2)(WANTT,
5220 WANTZ,
5221 N,
5222 KTOP,
5223 KBOT,
5224 NW,
5225 H,
5226 LDH,
5227 ILOZ,
5228 IHIZ,
5229 Z,
5230 LDZ,
5231 NS,
5232 ND,
5233 SR,
5234 SI,
5235 V,
5236 LDV,
5237 NH,
5238 T,
5239 LDT,
5240 NV,
5241 WV,
5242 LDWV,
5243 WORK,
5244 LWORK);
5245 }
5246
5247 //-- dlaqr3 --------------------------------------------------------------------
5248 void
5249 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
5250 const LOGICAL *WANTZ,
5251 const INTEGER *N,
5252 const INTEGER *KTOP,
5253 const INTEGER *KBOT,
5254 const INTEGER *NW,
5255 DOUBLE *H,
5256 const INTEGER *LDH,
5257 const INTEGER *ILOZ,
5258 const INTEGER *IHIZ,
5259 DOUBLE *Z,
5260 const INTEGER *LDZ,
5261 INTEGER *NS,
5262 INTEGER *ND,
5263 DOUBLE *SR,
5264 DOUBLE *SI,
5265 const DOUBLE *V,
5266 const INTEGER *LDV,
5267 const INTEGER *NH,
5268 const DOUBLE *T,
5269 const INTEGER *LDT,
5270 const INTEGER *NV,
5271 const DOUBLE *WV,
5272 const INTEGER *LDWV,
5273 const DOUBLE *WORK,
5274 const INTEGER *LWORK)
5275 {
5276 DEBUG_LAPACK_STUB("dlaqr3");
5277 LAPACK_IMPL(dlaqr3)(WANTT,
5278 WANTZ,
5279 N,
5280 KTOP,
5281 KBOT,
5282 NW,
5283 H,
5284 LDH,
5285 ILOZ,
5286 IHIZ,
5287 Z,
5288 LDZ,
5289 NS,
5290 ND,
5291 SR,
5292 SI,
5293 V,
5294 LDV,
5295 NH,
5296 T,
5297 LDT,
5298 NV,
5299 WV,
5300 LDWV,
5301 WORK,
5302 LWORK);
5303 }
5304
5305 //-- dlaqr4 --------------------------------------------------------------------
5306 void
5307 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
5308 const LOGICAL *WANTZ,
5309 const INTEGER *N,
5310 const INTEGER *ILO,
5311 const INTEGER *IHI,
5312 DOUBLE *H,
5313 const INTEGER *LDH,
5314 DOUBLE *WR,
5315 DOUBLE *WI,
5316 const INTEGER *ILOZ,
5317 const INTEGER *IHIZ,
5318 DOUBLE *Z,
5319 const INTEGER *LDZ,
5320 DOUBLE *WORK,
5321 const INTEGER *LWORK,
5322 INTEGER *INFO)
5323 {
5324 DEBUG_LAPACK_STUB("dlaqr4");
5325 LAPACK_IMPL(dlaqr4)(WANTT,
5326 WANTZ,
5327 N,
5328 ILO,
5329 IHI,
5330 H,
5331 LDH,
5332 WR,
5333 WI,
5334 ILOZ,
5335 IHIZ,
5336 Z,
5337 LDZ,
5338 WORK,
5339 LWORK,
5340 INFO);
5341 }
5342
5343 //-- dlaqr5 --------------------------------------------------------------------
5344 void
5345 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
5346 const LOGICAL *WANTZ,
5347 const INTEGER *KACC22,
5348 const INTEGER *N,
5349 const INTEGER *KTOP,
5350 const INTEGER *KBOT,
5351 const INTEGER *NSHFTS,
5352 DOUBLE *SR,
5353 DOUBLE *SI,
5354 DOUBLE *H,
5355 const INTEGER *LDH,
5356 const INTEGER *ILOZ,
5357 const INTEGER *IHIZ,
5358 DOUBLE *Z,
5359 const INTEGER *LDZ,
5360 const DOUBLE *V,
5361 const INTEGER *LDV,
5362 const DOUBLE *U,
5363 const INTEGER *LDU,
5364 const INTEGER *NV,
5365 const DOUBLE *WV,
5366 const INTEGER *LDWV,
5367 const INTEGER *NH,
5368 const DOUBLE *WH,
5369 const INTEGER *LDWH)
5370 {
5371 DEBUG_LAPACK_STUB("dlaqr5");
5372 LAPACK_IMPL(dlaqr5)(WANTT,
5373 WANTZ,
5374 KACC22,
5375 N,
5376 KTOP,
5377 KBOT,
5378 NSHFTS,
5379 SR,
5380 SI,
5381 H,
5382 LDH,
5383 ILOZ,
5384 IHIZ,
5385 Z,
5386 LDZ,
5387 V,
5388 LDV,
5389 U,
5390 LDU,
5391 NV,
5392 WV,
5393 LDWV,
5394 NH,
5395 WH,
5396 LDWH);
5397 }
5398
5399 //-- dlaqsb --------------------------------------------------------------------
5400 void
5401 LAPACK_DECL(dlaqsb)(const char *UPLO,
5402 const INTEGER *N,
5403 const INTEGER *KD,
5404 DOUBLE *AB,
5405 const INTEGER *LDAB,
5406 const DOUBLE *S,
5407 const DOUBLE *SCOND,
5408 const DOUBLE *AMAX,
5409 char *EQUED)
5410 {
5411 DEBUG_LAPACK_STUB("dlaqsb");
5412 LAPACK_IMPL(dlaqsb)(UPLO,
5413 N,
5414 KD,
5415 AB,
5416 LDAB,
5417 S,
5418 SCOND,
5419 AMAX,
5420 EQUED);
5421 }
5422
5423 //-- dlaqsp --------------------------------------------------------------------
5424 void
5425 LAPACK_DECL(dlaqsp)(const char *UPLO,
5426 const INTEGER *N,
5427 DOUBLE *AP,
5428 const DOUBLE *S,
5429 const DOUBLE *SCOND,
5430 const DOUBLE *AMAX,
5431 char *EQUED)
5432 {
5433 DEBUG_LAPACK_STUB("dlaqsp");
5434 LAPACK_IMPL(dlaqsp)(UPLO,
5435 N,
5436 AP,
5437 S,
5438 SCOND,
5439 AMAX,
5440 EQUED);
5441 }
5442
5443 //-- dlaqsy --------------------------------------------------------------------
5444 void
5445 LAPACK_DECL(dlaqsy)(const char *UPLO,
5446 const INTEGER *N,
5447 DOUBLE *A,
5448 const INTEGER *LDA,
5449 const DOUBLE *S,
5450 const DOUBLE *SCOND,
5451 const DOUBLE *AMAX,
5452 char *EQUED)
5453 {
5454 DEBUG_LAPACK_STUB("dlaqsy");
5455 LAPACK_IMPL(dlaqsy)(UPLO,
5456 N,
5457 A,
5458 LDA,
5459 S,
5460 SCOND,
5461 AMAX,
5462 EQUED);
5463 }
5464
5465 //-- dlaqtr --------------------------------------------------------------------
5466 void
5467 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
5468 const LOGICAL *LREAL,
5469 const INTEGER *N,
5470 const DOUBLE *T,
5471 const INTEGER *LDT,
5472 const DOUBLE *B,
5473 const DOUBLE *W,
5474 DOUBLE *SCALE,
5475 DOUBLE *X,
5476 const DOUBLE *WORK,
5477 INTEGER *INFO)
5478 {
5479 DEBUG_LAPACK_STUB("dlaqtr");
5480 LAPACK_IMPL(dlaqtr)(LTRAN,
5481 LREAL,
5482 N,
5483 T,
5484 LDT,
5485 B,
5486 W,
5487 SCALE,
5488 X,
5489 WORK,
5490 INFO);
5491 }
5492
5493 //-- dlar1v --------------------------------------------------------------------
5494 void
5495 LAPACK_DECL(dlar1v)(const INTEGER *N,
5496 const INTEGER *B1,
5497 const INTEGER *BN,
5498 const DOUBLE *LAMBDA,
5499 const DOUBLE *D,
5500 const DOUBLE *L,
5501 const DOUBLE *LD,
5502 const DOUBLE *LLD,
5503 const DOUBLE *PIVMIN,
5504 const DOUBLE *GAPTOL,
5505 DOUBLE *Z,
5506 const LOGICAL *WANTNC,
5507 INTEGER *NEGCNT,
5508 DOUBLE *ZTZ,
5509 DOUBLE *MINGMA,
5510 INTEGER *R,
5511 INTEGER *ISUPPZ,
5512 DOUBLE *NRMINV,
5513 DOUBLE *RESID,
5514 DOUBLE *RQCORR,
5515 const DOUBLE *WORK)
5516 {
5517 DEBUG_LAPACK_STUB("dlar1v");
5518 LAPACK_IMPL(dlar1v)(N,
5519 B1,
5520 BN,
5521 LAMBDA,
5522 D,
5523 L,
5524 LD,
5525 LLD,
5526 PIVMIN,
5527 GAPTOL,
5528 Z,
5529 WANTNC,
5530 NEGCNT,
5531 ZTZ,
5532 MINGMA,
5533 R,
5534 ISUPPZ,
5535 NRMINV,
5536 RESID,
5537 RQCORR,
5538 WORK);
5539 }
5540
5541 //-- dlar2v --------------------------------------------------------------------
5542 void
5543 LAPACK_DECL(dlar2v)(const INTEGER *N,
5544 DOUBLE *X,
5545 DOUBLE *Y,
5546 DOUBLE *Z,
5547 const INTEGER *INCX,
5548 const DOUBLE *C,
5549 const DOUBLE *S,
5550 const INTEGER *INCC)
5551 {
5552 DEBUG_LAPACK_STUB("dlar2v");
5553 LAPACK_IMPL(dlar2v)(N,
5554 X,
5555 Y,
5556 Z,
5557 INCX,
5558 C,
5559 S,
5560 INCC);
5561 }
5562
5563 //-- dlarf ---------------------------------------------------------------------
5564 void
5565 LAPACK_DECL(dlarf)(const char *SIDE,
5566 const INTEGER *M,
5567 const INTEGER *N,
5568 const DOUBLE *V,
5569 const INTEGER *INCV,
5570 const DOUBLE *TAU,
5571 DOUBLE *C,
5572 const INTEGER *LDC,
5573 const DOUBLE *WORK)
5574 {
5575 DEBUG_LAPACK_STUB("dlarf");
5576 LAPACK_IMPL(dlarf)(SIDE,
5577 M,
5578 N,
5579 V,
5580 INCV,
5581 TAU,
5582 C,
5583 LDC,
5584 WORK);
5585 }
5586
5587 //-- dlarfb --------------------------------------------------------------------
5588 void
5589 LAPACK_DECL(dlarfb)(const char *SIDE,
5590 const char *TRANS,
5591 const char *DIRECT,
5592 const char *STOREV,
5593 const INTEGER *M,
5594 const INTEGER *N,
5595 const INTEGER *K,
5596 const DOUBLE *V,
5597 const INTEGER *LDV,
5598 const DOUBLE *T,
5599 const INTEGER *LDT,
5600 DOUBLE *C,
5601 const INTEGER *LDC,
5602 const DOUBLE *WORK,
5603 const INTEGER *LDWORK)
5604 {
5605 DEBUG_LAPACK_STUB("dlarfb");
5606 LAPACK_IMPL(dlarfb)(SIDE,
5607 TRANS,
5608 DIRECT,
5609 STOREV,
5610 M,
5611 N,
5612 K,
5613 V,
5614 LDV,
5615 T,
5616 LDT,
5617 C,
5618 LDC,
5619 WORK,
5620 LDWORK);
5621 }
5622
5623 //-- dlarfg --------------------------------------------------------------------
5624 void
5625 LAPACK_DECL(dlarfg)(const INTEGER *N,
5626 DOUBLE *ALPHA,
5627 DOUBLE *X,
5628 const INTEGER *INCX,
5629 DOUBLE *TAU)
5630 {
5631 DEBUG_LAPACK_STUB("dlarfg");
5632 LAPACK_IMPL(dlarfg)(N,
5633 ALPHA,
5634 X,
5635 INCX,
5636 TAU);
5637 }
5638
5639 //-- dlarfgp -------------------------------------------------------------------
5640 void
5641 LAPACK_DECL(dlarfgp)(const INTEGER *N,
5642 DOUBLE *ALPHA,
5643 DOUBLE *X,
5644 const INTEGER *INCX,
5645 DOUBLE *TAU)
5646 {
5647 DEBUG_LAPACK_STUB("dlarfgp");
5648 LAPACK_IMPL(dlarfgp)(N,
5649 ALPHA,
5650 X,
5651 INCX,
5652 TAU);
5653 }
5654
5655 //-- dlarft --------------------------------------------------------------------
5656 void
5657 LAPACK_DECL(dlarft)(const char *DIRECT,
5658 const char *STOREV,
5659 const INTEGER *N,
5660 const INTEGER *K,
5661 DOUBLE *V,
5662 const INTEGER *LDV,
5663 const DOUBLE *TAU,
5664 DOUBLE *T,
5665 const INTEGER *LDT)
5666 {
5667 DEBUG_LAPACK_STUB("dlarft");
5668 LAPACK_IMPL(dlarft)(DIRECT,
5669 STOREV,
5670 N,
5671 K,
5672 V,
5673 LDV,
5674 TAU,
5675 T,
5676 LDT);
5677 }
5678
5679 //-- dlarfx --------------------------------------------------------------------
5680 void
5681 LAPACK_DECL(dlarfx)(const char *SIDE,
5682 const INTEGER *M,
5683 const INTEGER *N,
5684 const DOUBLE *V,
5685 const DOUBLE *TAU,
5686 DOUBLE *C,
5687 const INTEGER *LDC,
5688 const DOUBLE *WORK)
5689 {
5690 DEBUG_LAPACK_STUB("dlarfx");
5691 LAPACK_IMPL(dlarfx)(SIDE,
5692 M,
5693 N,
5694 V,
5695 TAU,
5696 C,
5697 LDC,
5698 WORK);
5699 }
5700
5701 //-- dlargv --------------------------------------------------------------------
5702 void
5703 LAPACK_DECL(dlargv)(const INTEGER *N,
5704 DOUBLE *X,
5705 const INTEGER *INCX,
5706 DOUBLE *Y,
5707 const INTEGER *INCY,
5708 DOUBLE *C,
5709 const INTEGER *INCC)
5710 {
5711 DEBUG_LAPACK_STUB("dlargv");
5712 LAPACK_IMPL(dlargv)(N,
5713 X,
5714 INCX,
5715 Y,
5716 INCY,
5717 C,
5718 INCC);
5719 }
5720
5721 //-- dlarnv --------------------------------------------------------------------
5722 void
5723 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
5724 INTEGER *ISEED,
5725 const INTEGER *N,
5726 DOUBLE *X)
5727 {
5728 DEBUG_LAPACK_STUB("dlarnv");
5729 LAPACK_IMPL(dlarnv)(IDIST,
5730 ISEED,
5731 N,
5732 X);
5733 }
5734
5735 //-- dlarra --------------------------------------------------------------------
5736 void
5737 LAPACK_DECL(dlarra)(const INTEGER *N,
5738 const DOUBLE *D,
5739 DOUBLE *E,
5740 DOUBLE *E2,
5741 const DOUBLE *SPLTOL,
5742 const DOUBLE *TNRM,
5743 INTEGER *NSPLIT,
5744 INTEGER *ISPLIT,
5745 INTEGER *INFO)
5746 {
5747 DEBUG_LAPACK_STUB("dlarra");
5748 LAPACK_IMPL(dlarra)(N,
5749 D,
5750 E,
5751 E2,
5752 SPLTOL,
5753 TNRM,
5754 NSPLIT,
5755 ISPLIT,
5756 INFO);
5757 }
5758
5759 //-- dlarrb --------------------------------------------------------------------
5760 void
5761 LAPACK_DECL(dlarrb)(const INTEGER *N,
5762 const DOUBLE *D,
5763 const DOUBLE *LLD,
5764 const INTEGER *IFIRST,
5765 const INTEGER *ILAST,
5766 const DOUBLE *RTOL1,
5767 const DOUBLE *RTOL2,
5768 const INTEGER *OFFSET,
5769 DOUBLE *W,
5770 DOUBLE *WGAP,
5771 DOUBLE *WERR,
5772 const DOUBLE *WORK,
5773 const INTEGER *IWORK,
5774 const DOUBLE *PIVMIN,
5775 const DOUBLE *SPDIAM,
5776 const INTEGER *TWIST,
5777 INTEGER *INFO)
5778 {
5779 DEBUG_LAPACK_STUB("dlarrb");
5780 LAPACK_IMPL(dlarrb)(N,
5781 D,
5782 LLD,
5783 IFIRST,
5784 ILAST,
5785 RTOL1,
5786 RTOL2,
5787 OFFSET,
5788 W,
5789 WGAP,
5790 WERR,
5791 WORK,
5792 IWORK,
5793 PIVMIN,
5794 SPDIAM,
5795 TWIST,
5796 INFO);
5797 }
5798
5799 //-- dlarrc --------------------------------------------------------------------
5800 void
5801 LAPACK_DECL(dlarrc)(const char *JOBT,
5802 const INTEGER *N,
5803 const DOUBLE *VL,
5804 const DOUBLE *VU,
5805 const DOUBLE *D,
5806 const DOUBLE *E,
5807 const DOUBLE *PIVMIN,
5808 INTEGER *EIGCNT,
5809 INTEGER *LCNT,
5810 INTEGER *RCNT,
5811 INTEGER *INFO)
5812 {
5813 DEBUG_LAPACK_STUB("dlarrc");
5814 LAPACK_IMPL(dlarrc)(JOBT,
5815 N,
5816 VL,
5817 VU,
5818 D,
5819 E,
5820 PIVMIN,
5821 EIGCNT,
5822 LCNT,
5823 RCNT,
5824 INFO);
5825 }
5826
5827 //-- dlarrd --------------------------------------------------------------------
5828 void
5829 LAPACK_DECL(dlarrd)(const char *RANGE,
5830 const char *ORDER,
5831 const INTEGER *N,
5832 const DOUBLE *VL,
5833 const DOUBLE *VU,
5834 const INTEGER *IL,
5835 const INTEGER *IU,
5836 const DOUBLE *GERS,
5837 const DOUBLE *RELTOL,
5838 const DOUBLE *D,
5839 const DOUBLE *E,
5840 const DOUBLE *E2,
5841 const DOUBLE *PIVMIN,
5842 const INTEGER *NSPLIT,
5843 const INTEGER *ISPLIT,
5844 INTEGER *M,
5845 DOUBLE *W,
5846 DOUBLE *WERR,
5847 DOUBLE *WL,
5848 DOUBLE *WU,
5849 INTEGER *IBLOCK,
5850 INTEGER *INDEXW,
5851 const DOUBLE *WORK,
5852 const INTEGER *IWORK,
5853 INTEGER *INFO)
5854 {
5855 DEBUG_LAPACK_STUB("dlarrd");
5856 LAPACK_IMPL(dlarrd)(RANGE,
5857 ORDER,
5858 N,
5859 VL,
5860 VU,
5861 IL,
5862 IU,
5863 GERS,
5864 RELTOL,
5865 D,
5866 E,
5867 E2,
5868 PIVMIN,
5869 NSPLIT,
5870 ISPLIT,
5871 M,
5872 W,
5873 WERR,
5874 WL,
5875 WU,
5876 IBLOCK,
5877 INDEXW,
5878 WORK,
5879 IWORK,
5880 INFO);
5881 }
5882
5883 //-- dlarre --------------------------------------------------------------------
5884 void
5885 LAPACK_DECL(dlarre)(const char *RANGE,
5886 const INTEGER *N,
5887 DOUBLE *VL,
5888 DOUBLE *VU,
5889 const INTEGER *IL,
5890 const INTEGER *IU,
5891 DOUBLE *D,
5892 DOUBLE *E,
5893 DOUBLE *E2,
5894 const DOUBLE *RTOL1,
5895 const DOUBLE *RTOL2,
5896 const DOUBLE *SPLTOL,
5897 INTEGER *NSPLIT,
5898 INTEGER *ISPLIT,
5899 INTEGER *M,
5900 DOUBLE *W,
5901 DOUBLE *WERR,
5902 DOUBLE *WGAP,
5903 INTEGER *IBLOCK,
5904 INTEGER *INDEXW,
5905 DOUBLE *GERS,
5906 DOUBLE *PIVMIN,
5907 const DOUBLE *WORK,
5908 const INTEGER *IWORK,
5909 INTEGER *INFO)
5910 {
5911 DEBUG_LAPACK_STUB("dlarre");
5912 LAPACK_IMPL(dlarre)(RANGE,
5913 N,
5914 VL,
5915 VU,
5916 IL,
5917 IU,
5918 D,
5919 E,
5920 E2,
5921 RTOL1,
5922 RTOL2,
5923 SPLTOL,
5924 NSPLIT,
5925 ISPLIT,
5926 M,
5927 W,
5928 WERR,
5929 WGAP,
5930 IBLOCK,
5931 INDEXW,
5932 GERS,
5933 PIVMIN,
5934 WORK,
5935 IWORK,
5936 INFO);
5937 }
5938
5939 //-- dlarrf --------------------------------------------------------------------
5940 void
5941 LAPACK_DECL(dlarrf)(const INTEGER *N,
5942 const DOUBLE *D,
5943 const DOUBLE *L,
5944 const DOUBLE *LD,
5945 const INTEGER *CLSTRT,
5946 const INTEGER *CLEND,
5947 const DOUBLE *W,
5948 DOUBLE *WGAP,
5949 const DOUBLE *WERR,
5950 const DOUBLE *SPDIAM,
5951 const DOUBLE *CLGAPL,
5952 const DOUBLE *CLGAPR,
5953 const DOUBLE *PIVMIN,
5954 DOUBLE *SIGMA,
5955 DOUBLE *DPLUS,
5956 DOUBLE *LPLUS,
5957 const DOUBLE *WORK,
5958 INTEGER *INFO)
5959 {
5960 DEBUG_LAPACK_STUB("dlarrf");
5961 LAPACK_IMPL(dlarrf)(N,
5962 D,
5963 L,
5964 LD,
5965 CLSTRT,
5966 CLEND,
5967 W,
5968 WGAP,
5969 WERR,
5970 SPDIAM,
5971 CLGAPL,
5972 CLGAPR,
5973 PIVMIN,
5974 SIGMA,
5975 DPLUS,
5976 LPLUS,
5977 WORK,
5978 INFO);
5979 }
5980
5981 //-- dlarrj --------------------------------------------------------------------
5982 void
5983 LAPACK_DECL(dlarrj)(const INTEGER *N,
5984 const DOUBLE *D,
5985 const DOUBLE *E2,
5986 const INTEGER *IFIRST,
5987 const INTEGER *ILAST,
5988 const DOUBLE *RTOL,
5989 const INTEGER *OFFSET,
5990 DOUBLE *W,
5991 DOUBLE *WERR,
5992 const DOUBLE *WORK,
5993 const INTEGER *IWORK,
5994 const DOUBLE *PIVMIN,
5995 const DOUBLE *SPDIAM,
5996 INTEGER *INFO)
5997 {
5998 DEBUG_LAPACK_STUB("dlarrj");
5999 LAPACK_IMPL(dlarrj)(N,
6000 D,
6001 E2,
6002 IFIRST,
6003 ILAST,
6004 RTOL,
6005 OFFSET,
6006 W,
6007 WERR,
6008 WORK,
6009 IWORK,
6010 PIVMIN,
6011 SPDIAM,
6012 INFO);
6013 }
6014
6015 //-- dlarrk --------------------------------------------------------------------
6016 void
6017 LAPACK_DECL(dlarrk)(const INTEGER *N,
6018 const INTEGER *IW,
6019 const DOUBLE *GL,
6020 const DOUBLE *GU,
6021 const DOUBLE *D,
6022 const DOUBLE *E2,
6023 const DOUBLE *PIVMIN,
6024 const DOUBLE *RELTOL,
6025 DOUBLE *W,
6026 DOUBLE *WERR,
6027 INTEGER *INFO)
6028 {
6029 DEBUG_LAPACK_STUB("dlarrk");
6030 LAPACK_IMPL(dlarrk)(N,
6031 IW,
6032 GL,
6033 GU,
6034 D,
6035 E2,
6036 PIVMIN,
6037 RELTOL,
6038 W,
6039 WERR,
6040 INFO);
6041 }
6042
6043 //-- dlarrr --------------------------------------------------------------------
6044 void
6045 LAPACK_DECL(dlarrr)(const INTEGER *N,
6046 const DOUBLE *D,
6047 DOUBLE *E,
6048 INTEGER *INFO)
6049 {
6050 DEBUG_LAPACK_STUB("dlarrr");
6051 LAPACK_IMPL(dlarrr)(N,
6052 D,
6053 E,
6054 INFO);
6055 }
6056
6057 //-- dlarrv --------------------------------------------------------------------
6058 void
6059 LAPACK_DECL(dlarrv)(const INTEGER *N,
6060 const DOUBLE *VL,
6061 const DOUBLE *VU,
6062 DOUBLE *D,
6063 DOUBLE *L,
6064 const DOUBLE *PIVMIN,
6065 const INTEGER *ISPLIT,
6066 const INTEGER *M,
6067 const INTEGER *DOL,
6068 const INTEGER *DOU,
6069 const DOUBLE *MINRGP,
6070 const DOUBLE *RTOL1,
6071 const DOUBLE *RTOL2,
6072 DOUBLE *W,
6073 DOUBLE *WERR,
6074 DOUBLE *WGAP,
6075 const INTEGER *IBLOCK,
6076 const INTEGER *INDEXW,
6077 const DOUBLE *GERS,
6078 DOUBLE *Z,
6079 const INTEGER *LDZ,
6080 INTEGER *ISUPPZ,
6081 const DOUBLE *WORK,
6082 const INTEGER *IWORK,
6083 INTEGER *INFO)
6084 {
6085 DEBUG_LAPACK_STUB("dlarrv");
6086 LAPACK_IMPL(dlarrv)(N,
6087 VL,
6088 VU,
6089 D,
6090 L,
6091 PIVMIN,
6092 ISPLIT,
6093 M,
6094 DOL,
6095 DOU,
6096 MINRGP,
6097 RTOL1,
6098 RTOL2,
6099 W,
6100 WERR,
6101 WGAP,
6102 IBLOCK,
6103 INDEXW,
6104 GERS,
6105 Z,
6106 LDZ,
6107 ISUPPZ,
6108 WORK,
6109 IWORK,
6110 INFO);
6111 }
6112
6113 //-- dlarscl2 ------------------------------------------------------------------
6114 void
6115 LAPACK_DECL(dlarscl2)(const INTEGER *M,
6116 const INTEGER *N,
6117 const DOUBLE *D,
6118 DOUBLE *X,
6119 const INTEGER *LDX)
6120 {
6121 DEBUG_LAPACK_STUB("dlarscl2");
6122 LAPACK_IMPL(dlarscl2)(M,
6123 N,
6124 D,
6125 X,
6126 LDX);
6127 }
6128
6129 //-- dlartg --------------------------------------------------------------------
6130 void
6131 LAPACK_DECL(dlartg)(const DOUBLE *F,
6132 const DOUBLE *G,
6133 DOUBLE *CS,
6134 DOUBLE *SN,
6135 DOUBLE *R)
6136 {
6137 DEBUG_LAPACK_STUB("dlartg");
6138 LAPACK_IMPL(dlartg)(F,
6139 G,
6140 CS,
6141 SN,
6142 R);
6143 }
6144
6145 //-- dlartgp -------------------------------------------------------------------
6146 void
6147 LAPACK_DECL(dlartgp)(const DOUBLE *F,
6148 const DOUBLE *G,
6149 DOUBLE *CS,
6150 DOUBLE *SN,
6151 DOUBLE *R)
6152 {
6153 DEBUG_LAPACK_STUB("dlartgp");
6154 LAPACK_IMPL(dlartgp)(F,
6155 G,
6156 CS,
6157 SN,
6158 R);
6159 }
6160
6161 //-- dlartgs -------------------------------------------------------------------
6162 void
6163 LAPACK_DECL(dlartgs)(const DOUBLE *X,
6164 const DOUBLE *Y,
6165 const DOUBLE *SIGMA,
6166 DOUBLE *CS,
6167 DOUBLE *SN)
6168 {
6169 DEBUG_LAPACK_STUB("dlartgs");
6170 LAPACK_IMPL(dlartgs)(X,
6171 Y,
6172 SIGMA,
6173 CS,
6174 SN);
6175 }
6176
6177 //-- dlartv --------------------------------------------------------------------
6178 void
6179 LAPACK_DECL(dlartv)(const INTEGER *N,
6180 DOUBLE *X,
6181 const INTEGER *INCX,
6182 DOUBLE *Y,
6183 const INTEGER *INCY,
6184 const DOUBLE *C,
6185 const DOUBLE *S,
6186 const INTEGER *INCC)
6187 {
6188 DEBUG_LAPACK_STUB("dlartv");
6189 LAPACK_IMPL(dlartv)(N,
6190 X,
6191 INCX,
6192 Y,
6193 INCY,
6194 C,
6195 S,
6196 INCC);
6197 }
6198
6199 //-- dlaruv --------------------------------------------------------------------
6200 void
6201 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
6202 const INTEGER *N,
6203 DOUBLE *X)
6204 {
6205 DEBUG_LAPACK_STUB("dlaruv");
6206 LAPACK_IMPL(dlaruv)(ISEED,
6207 N,
6208 X);
6209 }
6210
6211 //-- dlarz ---------------------------------------------------------------------
6212 void
6213 LAPACK_DECL(dlarz)(const char *SIDE,
6214 const INTEGER *M,
6215 const INTEGER *N,
6216 const INTEGER *L,
6217 const DOUBLE *V,
6218 const INTEGER *INCV,
6219 const DOUBLE *TAU,
6220 DOUBLE *C,
6221 const INTEGER *LDC,
6222 const DOUBLE *WORK)
6223 {
6224 DEBUG_LAPACK_STUB("dlarz");
6225 LAPACK_IMPL(dlarz)(SIDE,
6226 M,
6227 N,
6228 L,
6229 V,
6230 INCV,
6231 TAU,
6232 C,
6233 LDC,
6234 WORK);
6235 }
6236
6237 //-- dlarzb --------------------------------------------------------------------
6238 void
6239 LAPACK_DECL(dlarzb)(const char *SIDE,
6240 const char *TRANS,
6241 const char *DIRECT,
6242 const char *STOREV,
6243 const INTEGER *M,
6244 const INTEGER *N,
6245 const INTEGER *K,
6246 const INTEGER *L,
6247 const DOUBLE *V,
6248 const INTEGER *LDV,
6249 const DOUBLE *T,
6250 const INTEGER *LDT,
6251 DOUBLE *C,
6252 const INTEGER *LDC,
6253 const DOUBLE *WORK,
6254 const INTEGER *LDWORK)
6255 {
6256 DEBUG_LAPACK_STUB("dlarzb");
6257 LAPACK_IMPL(dlarzb)(SIDE,
6258 TRANS,
6259 DIRECT,
6260 STOREV,
6261 M,
6262 N,
6263 K,
6264 L,
6265 V,
6266 LDV,
6267 T,
6268 LDT,
6269 C,
6270 LDC,
6271 WORK,
6272 LDWORK);
6273 }
6274
6275 //-- dlarzt --------------------------------------------------------------------
6276 void
6277 LAPACK_DECL(dlarzt)(const char *DIRECT,
6278 const char *STOREV,
6279 const INTEGER *N,
6280 const INTEGER *K,
6281 DOUBLE *V,
6282 const INTEGER *LDV,
6283 const DOUBLE *TAU,
6284 DOUBLE *T,
6285 const INTEGER *LDT)
6286 {
6287 DEBUG_LAPACK_STUB("dlarzt");
6288 LAPACK_IMPL(dlarzt)(DIRECT,
6289 STOREV,
6290 N,
6291 K,
6292 V,
6293 LDV,
6294 TAU,
6295 T,
6296 LDT);
6297 }
6298
6299 //-- dlas2 ---------------------------------------------------------------------
6300 void
6301 LAPACK_DECL(dlas2)(const DOUBLE *F,
6302 const DOUBLE *G,
6303 const DOUBLE *H,
6304 DOUBLE *SSMIN,
6305 DOUBLE *SSMAX)
6306 {
6307 DEBUG_LAPACK_STUB("dlas2");
6308 LAPACK_IMPL(dlas2)(F,
6309 G,
6310 H,
6311 SSMIN,
6312 SSMAX);
6313 }
6314
6315 //-- dlascl --------------------------------------------------------------------
6316 void
6317 LAPACK_DECL(dlascl)(const char *TYPE,
6318 const INTEGER *KL,
6319 const INTEGER *KU,
6320 const DOUBLE *CFROM,
6321 const DOUBLE *CTO,
6322 const INTEGER *M,
6323 const INTEGER *N,
6324 DOUBLE *A,
6325 const INTEGER *LDA,
6326 INTEGER *INFO)
6327 {
6328 DEBUG_LAPACK_STUB("dlascl");
6329 LAPACK_IMPL(dlascl)(TYPE,
6330 KL,
6331 KU,
6332 CFROM,
6333 CTO,
6334 M,
6335 N,
6336 A,
6337 LDA,
6338 INFO);
6339 }
6340
6341 //-- dlascl2 -------------------------------------------------------------------
6342 void
6343 LAPACK_DECL(dlascl2)(const INTEGER *M,
6344 const INTEGER *N,
6345 const DOUBLE *D,
6346 DOUBLE *X,
6347 const INTEGER *LDX)
6348 {
6349 DEBUG_LAPACK_STUB("dlascl2");
6350 LAPACK_IMPL(dlascl2)(M,
6351 N,
6352 D,
6353 X,
6354 LDX);
6355 }
6356
6357 //-- dlasd0 --------------------------------------------------------------------
6358 void
6359 LAPACK_DECL(dlasd0)(const INTEGER *N,
6360 const INTEGER *SQRE,
6361 DOUBLE *D,
6362 const DOUBLE *E,
6363 DOUBLE *U,
6364 const INTEGER *LDU,
6365 DOUBLE *VT,
6366 const INTEGER *LDVT,
6367 const INTEGER *SMLSIZ,
6368 const INTEGER *IWORK,
6369 const DOUBLE *WORK,
6370 INTEGER *INFO)
6371 {
6372 DEBUG_LAPACK_STUB("dlasd0");
6373 LAPACK_IMPL(dlasd0)(N,
6374 SQRE,
6375 D,
6376 E,
6377 U,
6378 LDU,
6379 VT,
6380 LDVT,
6381 SMLSIZ,
6382 IWORK,
6383 WORK,
6384 INFO);
6385 }
6386
6387 //-- dlasd1 --------------------------------------------------------------------
6388 void
6389 LAPACK_DECL(dlasd1)(const INTEGER *NL,
6390 const INTEGER *NR,
6391 const INTEGER *SQRE,
6392 DOUBLE *D,
6393 DOUBLE *ALPHA,
6394 DOUBLE *BETA,
6395 DOUBLE *U,
6396 const INTEGER *LDU,
6397 DOUBLE *VT,
6398 const INTEGER *LDVT,
6399 INTEGER *IDXQ,
6400 const INTEGER *IWORK,
6401 const DOUBLE *WORK,
6402 INTEGER *INFO)
6403 {
6404 DEBUG_LAPACK_STUB("dlasd1");
6405 LAPACK_IMPL(dlasd1)(NL,
6406 NR,
6407 SQRE,
6408 D,
6409 ALPHA,
6410 BETA,
6411 U,
6412 LDU,
6413 VT,
6414 LDVT,
6415 IDXQ,
6416 IWORK,
6417 WORK,
6418 INFO);
6419 }
6420
6421 //-- dlasd2 --------------------------------------------------------------------
6422 void
6423 LAPACK_DECL(dlasd2)(const INTEGER *NL,
6424 const INTEGER *NR,
6425 const INTEGER *SQRE,
6426 INTEGER *K,
6427 DOUBLE *D,
6428 DOUBLE *Z,
6429 const DOUBLE *ALPHA,
6430 const DOUBLE *BETA,
6431 DOUBLE *U,
6432 const INTEGER *LDU,
6433 DOUBLE *VT,
6434 const INTEGER *LDVT,
6435 DOUBLE *DSIGMA,
6436 DOUBLE *U2,
6437 const INTEGER *LDU2,
6438 DOUBLE *VT2,
6439 const INTEGER *LDVT2,
6440 const INTEGER *IDXP,
6441 const INTEGER *IDX,
6442 INTEGER *IDXC,
6443 INTEGER *IDXQ,
6444 INTEGER *COLTYP,
6445 INTEGER *INFO)
6446 {
6447 DEBUG_LAPACK_STUB("dlasd2");
6448 LAPACK_IMPL(dlasd2)(NL,
6449 NR,
6450 SQRE,
6451 K,
6452 D,
6453 Z,
6454 ALPHA,
6455 BETA,
6456 U,
6457 LDU,
6458 VT,
6459 LDVT,
6460 DSIGMA,
6461 U2,
6462 LDU2,
6463 VT2,
6464 LDVT2,
6465 IDXP,
6466 IDX,
6467 IDXC,
6468 IDXQ,
6469 COLTYP,
6470 INFO);
6471 }
6472
6473 //-- dlasd3 --------------------------------------------------------------------
6474 void
6475 LAPACK_DECL(dlasd3)(const INTEGER *NL,
6476 const INTEGER *NR,
6477 const INTEGER *SQRE,
6478 const INTEGER *K,
6479 DOUBLE *D,
6480 const DOUBLE *Q,
6481 const INTEGER *LDQ,
6482 const DOUBLE *DSIGMA,
6483 DOUBLE *U,
6484 const INTEGER *LDU,
6485 DOUBLE *U2,
6486 const INTEGER *LDU2,
6487 DOUBLE *VT,
6488 const INTEGER *LDVT,
6489 DOUBLE *VT2,
6490 const INTEGER *LDVT2,
6491 const INTEGER *IDXC,
6492 const INTEGER *CTOT,
6493 const DOUBLE *Z,
6494 INTEGER *INFO)
6495 {
6496 DEBUG_LAPACK_STUB("dlasd3");
6497 LAPACK_IMPL(dlasd3)(NL,
6498 NR,
6499 SQRE,
6500 K,
6501 D,
6502 Q,
6503 LDQ,
6504 DSIGMA,
6505 U,
6506 LDU,
6507 U2,
6508 LDU2,
6509 VT,
6510 LDVT,
6511 VT2,
6512 LDVT2,
6513 IDXC,
6514 CTOT,
6515 Z,
6516 INFO);
6517 }
6518
6519 //-- dlasd4 --------------------------------------------------------------------
6520 void
6521 LAPACK_DECL(dlasd4)(const INTEGER *N,
6522 const INTEGER *I,
6523 const DOUBLE *D,
6524 const DOUBLE *Z,
6525 DOUBLE *DELTA,
6526 const DOUBLE *RHO,
6527 DOUBLE *SIGMA,
6528 const DOUBLE *WORK,
6529 INTEGER *INFO)
6530 {
6531 DEBUG_LAPACK_STUB("dlasd4");
6532 LAPACK_IMPL(dlasd4)(N,
6533 I,
6534 D,
6535 Z,
6536 DELTA,
6537 RHO,
6538 SIGMA,
6539 WORK,
6540 INFO);
6541 }
6542
6543 //-- dlasd5 --------------------------------------------------------------------
6544 void
6545 LAPACK_DECL(dlasd5)(const INTEGER *I,
6546 const DOUBLE *D,
6547 const DOUBLE *Z,
6548 DOUBLE *DELTA,
6549 const DOUBLE *RHO,
6550 DOUBLE *DSIGMA,
6551 const DOUBLE *WORK)
6552 {
6553 DEBUG_LAPACK_STUB("dlasd5");
6554 LAPACK_IMPL(dlasd5)(I,
6555 D,
6556 Z,
6557 DELTA,
6558 RHO,
6559 DSIGMA,
6560 WORK);
6561 }
6562
6563 //-- dlasd6 --------------------------------------------------------------------
6564 void
6565 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
6566 const INTEGER *NL,
6567 const INTEGER *NR,
6568 const INTEGER *SQRE,
6569 DOUBLE *D,
6570 DOUBLE *VF,
6571 DOUBLE *VL,
6572 DOUBLE *ALPHA,
6573 DOUBLE *BETA,
6574 INTEGER *IDXQ,
6575 INTEGER *PERM,
6576 INTEGER *GIVPTR,
6577 INTEGER *GIVCOL,
6578 const INTEGER *LDGCOL,
6579 DOUBLE *GIVNUM,
6580 const INTEGER *LDGNUM,
6581 DOUBLE *POLES,
6582 DOUBLE *DIFL,
6583 DOUBLE *DIFR,
6584 DOUBLE *Z,
6585 INTEGER *K,
6586 DOUBLE *C,
6587 DOUBLE *S,
6588 const DOUBLE *WORK,
6589 const INTEGER *IWORK,
6590 INTEGER *INFO)
6591 {
6592 DEBUG_LAPACK_STUB("dlasd6");
6593 LAPACK_IMPL(dlasd6)(ICOMPQ,
6594 NL,
6595 NR,
6596 SQRE,
6597 D,
6598 VF,
6599 VL,
6600 ALPHA,
6601 BETA,
6602 IDXQ,
6603 PERM,
6604 GIVPTR,
6605 GIVCOL,
6606 LDGCOL,
6607 GIVNUM,
6608 LDGNUM,
6609 POLES,
6610 DIFL,
6611 DIFR,
6612 Z,
6613 K,
6614 C,
6615 S,
6616 WORK,
6617 IWORK,
6618 INFO);
6619 }
6620
6621 //-- dlasd7 --------------------------------------------------------------------
6622 void
6623 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
6624 const INTEGER *NL,
6625 const INTEGER *NR,
6626 const INTEGER *SQRE,
6627 INTEGER *K,
6628 DOUBLE *D,
6629 DOUBLE *Z,
6630 const DOUBLE *ZW,
6631 DOUBLE *VF,
6632 const DOUBLE *VFW,
6633 DOUBLE *VL,
6634 const DOUBLE *VLW,
6635 const DOUBLE *ALPHA,
6636 const DOUBLE *BETA,
6637 DOUBLE *DSIGMA,
6638 const INTEGER *IDX,
6639 const INTEGER *IDXP,
6640 const INTEGER *IDXQ,
6641 INTEGER *PERM,
6642 INTEGER *GIVPTR,
6643 INTEGER *GIVCOL,
6644 const INTEGER *LDGCOL,
6645 DOUBLE *GIVNUM,
6646 const INTEGER *LDGNUM,
6647 DOUBLE *C,
6648 DOUBLE *S,
6649 INTEGER *INFO)
6650 {
6651 DEBUG_LAPACK_STUB("dlasd7");
6652 LAPACK_IMPL(dlasd7)(ICOMPQ,
6653 NL,
6654 NR,
6655 SQRE,
6656 K,
6657 D,
6658 Z,
6659 ZW,
6660 VF,
6661 VFW,
6662 VL,
6663 VLW,
6664 ALPHA,
6665 BETA,
6666 DSIGMA,
6667 IDX,
6668 IDXP,
6669 IDXQ,
6670 PERM,
6671 GIVPTR,
6672 GIVCOL,
6673 LDGCOL,
6674 GIVNUM,
6675 LDGNUM,
6676 C,
6677 S,
6678 INFO);
6679 }
6680
6681 //-- dlasd8 --------------------------------------------------------------------
6682 void
6683 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
6684 const INTEGER *K,
6685 DOUBLE *D,
6686 DOUBLE *Z,
6687 DOUBLE *VF,
6688 DOUBLE *VL,
6689 DOUBLE *DIFL,
6690 DOUBLE *DIFR,
6691 const INTEGER *LDDIFR,
6692 DOUBLE *DSIGMA,
6693 const DOUBLE *WORK,
6694 INTEGER *INFO)
6695 {
6696 DEBUG_LAPACK_STUB("dlasd8");
6697 LAPACK_IMPL(dlasd8)(ICOMPQ,
6698 K,
6699 D,
6700 Z,
6701 VF,
6702 VL,
6703 DIFL,
6704 DIFR,
6705 LDDIFR,
6706 DSIGMA,
6707 WORK,
6708 INFO);
6709 }
6710
6711 //-- dlasda --------------------------------------------------------------------
6712 void
6713 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
6714 const INTEGER *SMLSIZ,
6715 const INTEGER *N,
6716 const INTEGER *SQRE,
6717 DOUBLE *D,
6718 const DOUBLE *E,
6719 DOUBLE *U,
6720 const INTEGER *LDU,
6721 DOUBLE *VT,
6722 INTEGER *K,
6723 DOUBLE *DIFL,
6724 DOUBLE *DIFR,
6725 DOUBLE *Z,
6726 DOUBLE *POLES,
6727 INTEGER *GIVPTR,
6728 INTEGER *GIVCOL,
6729 const INTEGER *LDGCOL,
6730 INTEGER *PERM,
6731 DOUBLE *GIVNUM,
6732 DOUBLE *C,
6733 DOUBLE *S,
6734 const DOUBLE *WORK,
6735 const INTEGER *IWORK,
6736 INTEGER *INFO)
6737 {
6738 DEBUG_LAPACK_STUB("dlasda");
6739 LAPACK_IMPL(dlasda)(ICOMPQ,
6740 SMLSIZ,
6741 N,
6742 SQRE,
6743 D,
6744 E,
6745 U,
6746 LDU,
6747 VT,
6748 K,
6749 DIFL,
6750 DIFR,
6751 Z,
6752 POLES,
6753 GIVPTR,
6754 GIVCOL,
6755 LDGCOL,
6756 PERM,
6757 GIVNUM,
6758 C,
6759 S,
6760 WORK,
6761 IWORK,
6762 INFO);
6763 }
6764
6765 //-- dlasdq --------------------------------------------------------------------
6766 void
6767 LAPACK_DECL(dlasdq)(const char *UPLO,
6768 const INTEGER *SQRE,
6769 const INTEGER *N,
6770 const INTEGER *NCVT,
6771 const INTEGER *NRU,
6772 const INTEGER *NCC,
6773 DOUBLE *D,
6774 DOUBLE *E,
6775 DOUBLE *VT,
6776 const INTEGER *LDVT,
6777 DOUBLE *U,
6778 const INTEGER *LDU,
6779 DOUBLE *C,
6780 const INTEGER *LDC,
6781 const DOUBLE *WORK,
6782 INTEGER *INFO)
6783 {
6784 DEBUG_LAPACK_STUB("dlasdq");
6785 LAPACK_IMPL(dlasdq)(UPLO,
6786 SQRE,
6787 N,
6788 NCVT,
6789 NRU,
6790 NCC,
6791 D,
6792 E,
6793 VT,
6794 LDVT,
6795 U,
6796 LDU,
6797 C,
6798 LDC,
6799 WORK,
6800 INFO);
6801 }
6802
6803 //-- dlasdt --------------------------------------------------------------------
6804 void
6805 LAPACK_DECL(dlasdt)(const INTEGER *N,
6806 INTEGER *LVL,
6807 INTEGER *ND,
6808 INTEGER *INODE,
6809 INTEGER *NDIML,
6810 INTEGER *NDIMR,
6811 const INTEGER *MSUB)
6812 {
6813 DEBUG_LAPACK_STUB("dlasdt");
6814 LAPACK_IMPL(dlasdt)(N,
6815 LVL,
6816 ND,
6817 INODE,
6818 NDIML,
6819 NDIMR,
6820 MSUB);
6821 }
6822
6823 //-- dlaset --------------------------------------------------------------------
6824 void
6825 LAPACK_DECL(dlaset)(const char *UPLO,
6826 const INTEGER *M,
6827 const INTEGER *N,
6828 const DOUBLE *ALPHA,
6829 const DOUBLE *BETA,
6830 DOUBLE *A,
6831 const INTEGER *LDA)
6832 {
6833 DEBUG_LAPACK_STUB("dlaset");
6834 LAPACK_IMPL(dlaset)(UPLO,
6835 M,
6836 N,
6837 ALPHA,
6838 BETA,
6839 A,
6840 LDA);
6841 }
6842
6843 //-- dlasq1 --------------------------------------------------------------------
6844 void
6845 LAPACK_DECL(dlasq1)(const INTEGER *N,
6846 DOUBLE *D,
6847 DOUBLE *E,
6848 const DOUBLE *WORK,
6849 INTEGER *INFO)
6850 {
6851 DEBUG_LAPACK_STUB("dlasq1");
6852 LAPACK_IMPL(dlasq1)(N,
6853 D,
6854 E,
6855 WORK,
6856 INFO);
6857 }
6858
6859 //-- dlasq2 --------------------------------------------------------------------
6860 void
6861 LAPACK_DECL(dlasq2)(const INTEGER *N,
6862 DOUBLE *Z,
6863 INTEGER *INFO)
6864 {
6865 DEBUG_LAPACK_STUB("dlasq2");
6866 LAPACK_IMPL(dlasq2)(N,
6867 Z,
6868 INFO);
6869 }
6870
6871 //-- dlasq3 --------------------------------------------------------------------
6872 void
6873 LAPACK_DECL(dlasq3)(const INTEGER *I0,
6874 INTEGER *N0,
6875 const DOUBLE *Z,
6876 INTEGER *PP,
6877 DOUBLE *DMIN,
6878 DOUBLE *SIGMA,
6879 DOUBLE *DESIG,
6880 const DOUBLE *QMAX,
6881 INTEGER *NFAIL,
6882 INTEGER *ITER,
6883 INTEGER *NDIV,
6884 const LOGICAL *IEEE,
6885 INTEGER *TTYPE,
6886 DOUBLE *DMIN1,
6887 DOUBLE *DMIN2,
6888 DOUBLE *DN,
6889 DOUBLE *DN1,
6890 DOUBLE *DN2,
6891 DOUBLE *G,
6892 DOUBLE *TAU)
6893 {
6894 DEBUG_LAPACK_STUB("dlasq3");
6895 LAPACK_IMPL(dlasq3)(I0,
6896 N0,
6897 Z,
6898 PP,
6899 DMIN,
6900 SIGMA,
6901 DESIG,
6902 QMAX,
6903 NFAIL,
6904 ITER,
6905 NDIV,
6906 IEEE,
6907 TTYPE,
6908 DMIN1,
6909 DMIN2,
6910 DN,
6911 DN1,
6912 DN2,
6913 G,
6914 TAU);
6915 }
6916
6917 //-- dlasq4 --------------------------------------------------------------------
6918 void
6919 LAPACK_DECL(dlasq4)(const INTEGER *I0,
6920 const INTEGER *N0,
6921 const DOUBLE *Z,
6922 const INTEGER *PP,
6923 const INTEGER *N0IN,
6924 const DOUBLE *DMIN,
6925 const DOUBLE *DMIN1,
6926 const DOUBLE *DMIN2,
6927 const DOUBLE *DN,
6928 const DOUBLE *DN1,
6929 const DOUBLE *DN2,
6930 DOUBLE *TAU,
6931 INTEGER *TTYPE,
6932 DOUBLE *G)
6933 {
6934 DEBUG_LAPACK_STUB("dlasq4");
6935 LAPACK_IMPL(dlasq4)(I0,
6936 N0,
6937 Z,
6938 PP,
6939 N0IN,
6940 DMIN,
6941 DMIN1,
6942 DMIN2,
6943 DN,
6944 DN1,
6945 DN2,
6946 TAU,
6947 TTYPE,
6948 G);
6949 }
6950
6951 //-- dlasq5 --------------------------------------------------------------------
6952 void
6953 LAPACK_DECL(dlasq5)(const INTEGER *I0,
6954 const INTEGER *N0,
6955 const DOUBLE *Z,
6956 const INTEGER *PP,
6957 const DOUBLE *TAU,
6958 DOUBLE *DMIN,
6959 DOUBLE *DMIN1,
6960 DOUBLE *DMIN2,
6961 DOUBLE *DN,
6962 DOUBLE *DNM1,
6963 DOUBLE *DNM2,
6964 const LOGICAL *IEEE)
6965 {
6966 DEBUG_LAPACK_STUB("dlasq5");
6967 LAPACK_IMPL(dlasq5)(I0,
6968 N0,
6969 Z,
6970 PP,
6971 TAU,
6972 DMIN,
6973 DMIN1,
6974 DMIN2,
6975 DN,
6976 DNM1,
6977 DNM2,
6978 IEEE);
6979 }
6980
6981 //-- dlasq6 --------------------------------------------------------------------
6982 void
6983 LAPACK_DECL(dlasq6)(const INTEGER *I0,
6984 const INTEGER *N0,
6985 const DOUBLE *Z,
6986 const INTEGER *PP,
6987 DOUBLE *DMIN,
6988 DOUBLE *DMIN1,
6989 DOUBLE *DMIN2,
6990 DOUBLE *DN,
6991 DOUBLE *DNM1,
6992 DOUBLE *DNM2)
6993 {
6994 DEBUG_LAPACK_STUB("dlasq6");
6995 LAPACK_IMPL(dlasq6)(I0,
6996 N0,
6997 Z,
6998 PP,
6999 DMIN,
7000 DMIN1,
7001 DMIN2,
7002 DN,
7003 DNM1,
7004 DNM2);
7005 }
7006
7007 //-- dlasr ---------------------------------------------------------------------
7008 void
7009 LAPACK_DECL(dlasr)(const char *SIDE,
7010 const char *PIVOT,
7011 const char *DIRECT,
7012 const INTEGER *M,
7013 const INTEGER *N,
7014 const DOUBLE *C,
7015 const DOUBLE *S,
7016 DOUBLE *A,
7017 const INTEGER *LDA)
7018 {
7019 DEBUG_LAPACK_STUB("dlasr");
7020 LAPACK_IMPL(dlasr)(SIDE,
7021 PIVOT,
7022 DIRECT,
7023 M,
7024 N,
7025 C,
7026 S,
7027 A,
7028 LDA);
7029 }
7030
7031 //-- dlasrt --------------------------------------------------------------------
7032 void
7033 LAPACK_DECL(dlasrt)(const char *ID,
7034 const INTEGER *N,
7035 DOUBLE *D,
7036 INTEGER *INFO)
7037 {
7038 DEBUG_LAPACK_STUB("dlasrt");
7039 LAPACK_IMPL(dlasrt)(ID,
7040 N,
7041 D,
7042 INFO);
7043 }
7044
7045 //-- dlassq --------------------------------------------------------------------
7046 void
7047 LAPACK_DECL(dlassq)(const INTEGER *N,
7048 const DOUBLE *X,
7049 const INTEGER *INCX,
7050 DOUBLE *SCALE,
7051 DOUBLE *SUMSQ)
7052 {
7053 DEBUG_LAPACK_STUB("dlassq");
7054 LAPACK_IMPL(dlassq)(N,
7055 X,
7056 INCX,
7057 SCALE,
7058 SUMSQ);
7059 }
7060
7061 //-- dlasv2 --------------------------------------------------------------------
7062 void
7063 LAPACK_DECL(dlasv2)(const DOUBLE *F,
7064 const DOUBLE *G,
7065 const DOUBLE *H,
7066 DOUBLE *SSMIN,
7067 DOUBLE *SSMAX,
7068 DOUBLE *SNR,
7069 DOUBLE *CSR,
7070 DOUBLE *SNL,
7071 DOUBLE *CSL)
7072 {
7073 DEBUG_LAPACK_STUB("dlasv2");
7074 LAPACK_IMPL(dlasv2)(F,
7075 G,
7076 H,
7077 SSMIN,
7078 SSMAX,
7079 SNR,
7080 CSR,
7081 SNL,
7082 CSL);
7083 }
7084
7085 //-- dlaswp --------------------------------------------------------------------
7086 void
7087 LAPACK_DECL(dlaswp)(const INTEGER *N,
7088 DOUBLE *A,
7089 const INTEGER *LDA,
7090 const INTEGER *K1,
7091 const INTEGER *K2,
7092 const INTEGER *IPIV,
7093 const INTEGER *INCX)
7094 {
7095 DEBUG_LAPACK_STUB("dlaswp");
7096 LAPACK_IMPL(dlaswp)(N,
7097 A,
7098 LDA,
7099 K1,
7100 K2,
7101 IPIV,
7102 INCX);
7103 }
7104
7105 //-- dlasy2 --------------------------------------------------------------------
7106 void
7107 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
7108 const LOGICAL *LTRANR,
7109 const INTEGER *ISGN,
7110 const INTEGER *N1,
7111 const INTEGER *N2,
7112 const DOUBLE *TL,
7113 const INTEGER *LDTL,
7114 const DOUBLE *TR,
7115 const INTEGER *LDTR,
7116 const DOUBLE *B,
7117 const INTEGER *LDB,
7118 DOUBLE *SCALE,
7119 DOUBLE *X,
7120 const INTEGER *LDX,
7121 DOUBLE *XNORM,
7122 INTEGER *INFO)
7123 {
7124 DEBUG_LAPACK_STUB("dlasy2");
7125 LAPACK_IMPL(dlasy2)(LTRANL,
7126 LTRANR,
7127 ISGN,
7128 N1,
7129 N2,
7130 TL,
7131 LDTL,
7132 TR,
7133 LDTR,
7134 B,
7135 LDB,
7136 SCALE,
7137 X,
7138 LDX,
7139 XNORM,
7140 INFO);
7141 }
7142
7143 //-- dlasyf --------------------------------------------------------------------
7144 void
7145 LAPACK_DECL(dlasyf)(const char *UPLO,
7146 const INTEGER *N,
7147 const INTEGER *NB,
7148 INTEGER *KB,
7149 DOUBLE *A,
7150 const INTEGER *LDA,
7151 INTEGER *IPIV,
7152 const DOUBLE *W,
7153 const INTEGER *LDW,
7154 INTEGER *INFO)
7155 {
7156 DEBUG_LAPACK_STUB("dlasyf");
7157 LAPACK_IMPL(dlasyf)(UPLO,
7158 N,
7159 NB,
7160 KB,
7161 A,
7162 LDA,
7163 IPIV,
7164 W,
7165 LDW,
7166 INFO);
7167 }
7168
7169 //-- dlat2s --------------------------------------------------------------------
7170 void
7171 LAPACK_DECL(dlat2s)(const char *UPLO,
7172 const INTEGER *N,
7173 const DOUBLE *A,
7174 const INTEGER *LDA,
7175 FLOAT *SA,
7176 const INTEGER *LDSA,
7177 INTEGER *INFO)
7178 {
7179 DEBUG_LAPACK_STUB("dlat2s");
7180 LAPACK_IMPL(dlat2s)(UPLO,
7181 N,
7182 A,
7183 LDA,
7184 SA,
7185 LDSA,
7186 INFO);
7187 }
7188
7189 //-- dlatbs --------------------------------------------------------------------
7190 void
7191 LAPACK_DECL(dlatbs)(const char *UPLO,
7192 const char *TRANS,
7193 const char *DIAG,
7194 const char *NORMIN,
7195 const INTEGER *N,
7196 const INTEGER *KD,
7197 const DOUBLE *AB,
7198 const INTEGER *LDAB,
7199 DOUBLE *X,
7200 DOUBLE *SCALE,
7201 DOUBLE *CNORM,
7202 INTEGER *INFO)
7203 {
7204 DEBUG_LAPACK_STUB("dlatbs");
7205 LAPACK_IMPL(dlatbs)(UPLO,
7206 TRANS,
7207 DIAG,
7208 NORMIN,
7209 N,
7210 KD,
7211 AB,
7212 LDAB,
7213 X,
7214 SCALE,
7215 CNORM,
7216 INFO);
7217 }
7218
7219 //-- dlatdf --------------------------------------------------------------------
7220 void
7221 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
7222 const INTEGER *N,
7223 const DOUBLE *Z,
7224 const INTEGER *LDZ,
7225 DOUBLE *RHS,
7226 DOUBLE *RDSUM,
7227 DOUBLE *RDSCAL,
7228 const INTEGER *IPIV,
7229 const INTEGER *JPIV)
7230 {
7231 DEBUG_LAPACK_STUB("dlatdf");
7232 LAPACK_IMPL(dlatdf)(IJOB,
7233 N,
7234 Z,
7235 LDZ,
7236 RHS,
7237 RDSUM,
7238 RDSCAL,
7239 IPIV,
7240 JPIV);
7241 }
7242
7243 //-- dlatps --------------------------------------------------------------------
7244 void
7245 LAPACK_DECL(dlatps)(const char *UPLO,
7246 const char *TRANS,
7247 const char *DIAG,
7248 const char *NORMIN,
7249 const INTEGER *N,
7250 const DOUBLE *AP,
7251 DOUBLE *X,
7252 DOUBLE *SCALE,
7253 DOUBLE *CNORM,
7254 INTEGER *INFO)
7255 {
7256 DEBUG_LAPACK_STUB("dlatps");
7257 LAPACK_IMPL(dlatps)(UPLO,
7258 TRANS,
7259 DIAG,
7260 NORMIN,
7261 N,
7262 AP,
7263 X,
7264 SCALE,
7265 CNORM,
7266 INFO);
7267 }
7268
7269 //-- dlatrd --------------------------------------------------------------------
7270 void
7271 LAPACK_DECL(dlatrd)(const char *UPLO,
7272 const INTEGER *N,
7273 const INTEGER *NB,
7274 DOUBLE *A,
7275 const INTEGER *LDA,
7276 DOUBLE *E,
7277 DOUBLE *TAU,
7278 DOUBLE *W,
7279 const INTEGER *LDW)
7280 {
7281 DEBUG_LAPACK_STUB("dlatrd");
7282 LAPACK_IMPL(dlatrd)(UPLO,
7283 N,
7284 NB,
7285 A,
7286 LDA,
7287 E,
7288 TAU,
7289 W,
7290 LDW);
7291 }
7292
7293 //-- dlatrs --------------------------------------------------------------------
7294 void
7295 LAPACK_DECL(dlatrs)(const char *UPLO,
7296 const char *TRANS,
7297 const char *DIAG,
7298 const char *NORMIN,
7299 const INTEGER *N,
7300 const DOUBLE *A,
7301 const INTEGER *LDA,
7302 DOUBLE *X,
7303 DOUBLE *SCALE,
7304 DOUBLE *CNORM,
7305 INTEGER *INFO)
7306 {
7307 DEBUG_LAPACK_STUB("dlatrs");
7308 LAPACK_IMPL(dlatrs)(UPLO,
7309 TRANS,
7310 DIAG,
7311 NORMIN,
7312 N,
7313 A,
7314 LDA,
7315 X,
7316 SCALE,
7317 CNORM,
7318 INFO);
7319 }
7320
7321 //-- dlatrz --------------------------------------------------------------------
7322 void
7323 LAPACK_DECL(dlatrz)(const INTEGER *M,
7324 const INTEGER *N,
7325 const INTEGER *L,
7326 DOUBLE *A,
7327 const INTEGER *LDA,
7328 DOUBLE *TAU,
7329 const DOUBLE *WORK)
7330 {
7331 DEBUG_LAPACK_STUB("dlatrz");
7332 LAPACK_IMPL(dlatrz)(M,
7333 N,
7334 L,
7335 A,
7336 LDA,
7337 TAU,
7338 WORK);
7339 }
7340
7341 //-- dlatzm --------------------------------------------------------------------
7342 void
7343 LAPACK_DECL(dlatzm)(const char *SIDE,
7344 const INTEGER *M,
7345 const INTEGER *N,
7346 const DOUBLE *V,
7347 const INTEGER *INCV,
7348 const DOUBLE *TAU,
7349 DOUBLE *C1,
7350 DOUBLE *C2,
7351 const INTEGER *LDC,
7352 const DOUBLE *WORK)
7353 {
7354 DEBUG_LAPACK_STUB("dlatzm");
7355 LAPACK_IMPL(dlatzm)(SIDE,
7356 M,
7357 N,
7358 V,
7359 INCV,
7360 TAU,
7361 C1,
7362 C2,
7363 LDC,
7364 WORK);
7365 }
7366
7367 //-- dlauu2 --------------------------------------------------------------------
7368 void
7369 LAPACK_DECL(dlauu2)(const char *UPLO,
7370 const INTEGER *N,
7371 DOUBLE *A,
7372 const INTEGER *LDA,
7373 INTEGER *INFO)
7374 {
7375 DEBUG_LAPACK_STUB("dlauu2");
7376 LAPACK_IMPL(dlauu2)(UPLO,
7377 N,
7378 A,
7379 LDA,
7380 INFO);
7381 }
7382
7383 //-- dlauum --------------------------------------------------------------------
7384 void
7385 LAPACK_DECL(dlauum)(const char *UPLO,
7386 const INTEGER *N,
7387 DOUBLE *A,
7388 const INTEGER *LDA,
7389 INTEGER *INFO)
7390 {
7391 DEBUG_LAPACK_STUB("dlauum");
7392 LAPACK_IMPL(dlauum)(UPLO,
7393 N,
7394 A,
7395 LDA,
7396 INFO);
7397 }
7398
7399 //-- dopgtr --------------------------------------------------------------------
7400 void
7401 LAPACK_DECL(dopgtr)(const char *UPLO,
7402 const INTEGER *N,
7403 const DOUBLE *AP,
7404 const DOUBLE *TAU,
7405 DOUBLE *Q,
7406 const INTEGER *LDQ,
7407 const DOUBLE *WORK,
7408 INTEGER *INFO)
7409 {
7410 DEBUG_LAPACK_STUB("dopgtr");
7411 LAPACK_IMPL(dopgtr)(UPLO,
7412 N,
7413 AP,
7414 TAU,
7415 Q,
7416 LDQ,
7417 WORK,
7418 INFO);
7419 }
7420
7421 //-- dopmtr --------------------------------------------------------------------
7422 void
7423 LAPACK_DECL(dopmtr)(const char *SIDE,
7424 const char *UPLO,
7425 const char *TRANS,
7426 const INTEGER *M,
7427 const INTEGER *N,
7428 const DOUBLE *AP,
7429 const DOUBLE *TAU,
7430 DOUBLE *C,
7431 const INTEGER *LDC,
7432 const DOUBLE *WORK,
7433 INTEGER *INFO)
7434 {
7435 DEBUG_LAPACK_STUB("dopmtr");
7436 LAPACK_IMPL(dopmtr)(SIDE,
7437 UPLO,
7438 TRANS,
7439 M,
7440 N,
7441 AP,
7442 TAU,
7443 C,
7444 LDC,
7445 WORK,
7446 INFO);
7447 }
7448
7449 //-- dorbdb --------------------------------------------------------------------
7450 void
7451 LAPACK_DECL(dorbdb)(const char *TRANS,
7452 const char *SIGNS,
7453 const INTEGER *M,
7454 const INTEGER *P,
7455 const INTEGER *Q,
7456 DOUBLE *X11,
7457 const INTEGER *LDX11,
7458 DOUBLE *X12,
7459 const INTEGER *LDX12,
7460 DOUBLE *X21,
7461 const INTEGER *LDX21,
7462 DOUBLE *X22,
7463 const INTEGER *LDX22,
7464 DOUBLE *THETA,
7465 DOUBLE *PHI,
7466 DOUBLE *TAUP1,
7467 DOUBLE *TAUP2,
7468 DOUBLE *TAUQ1,
7469 DOUBLE *TAUQ2,
7470 const DOUBLE *WORK,
7471 const INTEGER *LWORK,
7472 INTEGER *INFO)
7473 {
7474 DEBUG_LAPACK_STUB("dorbdb");
7475 LAPACK_IMPL(dorbdb)(TRANS,
7476 SIGNS,
7477 M,
7478 P,
7479 Q,
7480 X11,
7481 LDX11,
7482 X12,
7483 LDX12,
7484 X21,
7485 LDX21,
7486 X22,
7487 LDX22,
7488 THETA,
7489 PHI,
7490 TAUP1,
7491 TAUP2,
7492 TAUQ1,
7493 TAUQ2,
7494 WORK,
7495 LWORK,
7496 INFO);
7497 }
7498
7499 //-- dorcsd --------------------------------------------------------------------
7500 void
7501 LAPACK_DECL(dorcsd)(const char *JOBU1,
7502 const char *JOBU2,
7503 const char *JOBV1T,
7504 const char *JOBV2T,
7505 const char *TRANS,
7506 const char *SIGNS,
7507 const INTEGER *M,
7508 const INTEGER *P,
7509 const INTEGER *Q,
7510 const DOUBLE *X11,
7511 const INTEGER *LDX11,
7512 const DOUBLE *X12,
7513 const INTEGER *LDX12,
7514 const DOUBLE *X21,
7515 const INTEGER *LDX21,
7516 const DOUBLE *X22,
7517 const INTEGER *LDX22,
7518 DOUBLE *THETA,
7519 DOUBLE *U1,
7520 const INTEGER *LDU1,
7521 DOUBLE *U2,
7522 const INTEGER *LDU2,
7523 DOUBLE *V1T,
7524 const INTEGER *LDV1T,
7525 DOUBLE *V2T,
7526 const INTEGER *LDV2T,
7527 const DOUBLE *WORK,
7528 const INTEGER *LWORK,
7529 const INTEGER *IWORK,
7530 INTEGER *INFO)
7531 {
7532 DEBUG_LAPACK_STUB("dorcsd");
7533 LAPACK_IMPL(dorcsd)(JOBU1,
7534 JOBU2,
7535 JOBV1T,
7536 JOBV2T,
7537 TRANS,
7538 SIGNS,
7539 M,
7540 P,
7541 Q,
7542 X11,
7543 LDX11,
7544 X12,
7545 LDX12,
7546 X21,
7547 LDX21,
7548 X22,
7549 LDX22,
7550 THETA,
7551 U1,
7552 LDU1,
7553 U2,
7554 LDU2,
7555 V1T,
7556 LDV1T,
7557 V2T,
7558 LDV2T,
7559 WORK,
7560 LWORK,
7561 IWORK,
7562 INFO);
7563 }
7564
7565 //-- dorg2l --------------------------------------------------------------------
7566 void
7567 LAPACK_DECL(dorg2l)(const INTEGER *M,
7568 const INTEGER *N,
7569 const INTEGER *K,
7570 DOUBLE *A,
7571 const INTEGER *LDA,
7572 const DOUBLE *TAU,
7573 const DOUBLE *WORK,
7574 INTEGER *INFO)
7575 {
7576 DEBUG_LAPACK_STUB("dorg2l");
7577 LAPACK_IMPL(dorg2l)(M,
7578 N,
7579 K,
7580 A,
7581 LDA,
7582 TAU,
7583 WORK,
7584 INFO);
7585 }
7586
7587 //-- dorg2r --------------------------------------------------------------------
7588 void
7589 LAPACK_DECL(dorg2r)(const INTEGER *M,
7590 const INTEGER *N,
7591 const INTEGER *K,
7592 DOUBLE *A,
7593 const INTEGER *LDA,
7594 const DOUBLE *TAU,
7595 const DOUBLE *WORK,
7596 INTEGER *INFO)
7597 {
7598 DEBUG_LAPACK_STUB("dorg2r");
7599 LAPACK_IMPL(dorg2r)(M,
7600 N,
7601 K,
7602 A,
7603 LDA,
7604 TAU,
7605 WORK,
7606 INFO);
7607 }
7608
7609 //-- dorgbr --------------------------------------------------------------------
7610 void
7611 LAPACK_DECL(dorgbr)(const char *VECT,
7612 const INTEGER *M,
7613 const INTEGER *N,
7614 const INTEGER *K,
7615 DOUBLE *A,
7616 const INTEGER *LDA,
7617 const DOUBLE *TAU,
7618 DOUBLE *WORK,
7619 const INTEGER *LWORK,
7620 INTEGER *INFO)
7621 {
7622 DEBUG_LAPACK_STUB("dorgbr");
7623 LAPACK_IMPL(dorgbr)(VECT,
7624 M,
7625 N,
7626 K,
7627 A,
7628 LDA,
7629 TAU,
7630 WORK,
7631 LWORK,
7632 INFO);
7633 }
7634
7635 //-- dorghr --------------------------------------------------------------------
7636 void
7637 LAPACK_DECL(dorghr)(const INTEGER *N,
7638 const INTEGER *ILO,
7639 const INTEGER *IHI,
7640 DOUBLE *A,
7641 const INTEGER *LDA,
7642 const DOUBLE *TAU,
7643 DOUBLE *WORK,
7644 const INTEGER *LWORK,
7645 INTEGER *INFO)
7646 {
7647 DEBUG_LAPACK_STUB("dorghr");
7648 LAPACK_IMPL(dorghr)(N,
7649 ILO,
7650 IHI,
7651 A,
7652 LDA,
7653 TAU,
7654 WORK,
7655 LWORK,
7656 INFO);
7657 }
7658
7659 //-- dorgl2 --------------------------------------------------------------------
7660 void
7661 LAPACK_DECL(dorgl2)(const INTEGER *M,
7662 const INTEGER *N,
7663 const INTEGER *K,
7664 DOUBLE *A,
7665 const INTEGER *LDA,
7666 const DOUBLE *TAU,
7667 const DOUBLE *WORK,
7668 INTEGER *INFO)
7669 {
7670 DEBUG_LAPACK_STUB("dorgl2");
7671 LAPACK_IMPL(dorgl2)(M,
7672 N,
7673 K,
7674 A,
7675 LDA,
7676 TAU,
7677 WORK,
7678 INFO);
7679 }
7680
7681 //-- dorglq --------------------------------------------------------------------
7682 void
7683 LAPACK_DECL(dorglq)(const INTEGER *M,
7684 const INTEGER *N,
7685 const INTEGER *K,
7686 DOUBLE *A,
7687 const INTEGER *LDA,
7688 const DOUBLE *TAU,
7689 DOUBLE *WORK,
7690 const INTEGER *LWORK,
7691 INTEGER *INFO)
7692 {
7693 DEBUG_LAPACK_STUB("dorglq");
7694 LAPACK_IMPL(dorglq)(M,
7695 N,
7696 K,
7697 A,
7698 LDA,
7699 TAU,
7700 WORK,
7701 LWORK,
7702 INFO);
7703 }
7704
7705 //-- dorgql --------------------------------------------------------------------
7706 void
7707 LAPACK_DECL(dorgql)(const INTEGER *M,
7708 const INTEGER *N,
7709 const INTEGER *K,
7710 DOUBLE *A,
7711 const INTEGER *LDA,
7712 const DOUBLE *TAU,
7713 DOUBLE *WORK,
7714 const INTEGER *LWORK,
7715 INTEGER *INFO)
7716 {
7717 DEBUG_LAPACK_STUB("dorgql");
7718 LAPACK_IMPL(dorgql)(M,
7719 N,
7720 K,
7721 A,
7722 LDA,
7723 TAU,
7724 WORK,
7725 LWORK,
7726 INFO);
7727 }
7728
7729 //-- dorgqr --------------------------------------------------------------------
7730 void
7731 LAPACK_DECL(dorgqr)(const INTEGER *M,
7732 const INTEGER *N,
7733 const INTEGER *K,
7734 DOUBLE *A,
7735 const INTEGER *LDA,
7736 const DOUBLE *TAU,
7737 DOUBLE *WORK,
7738 const INTEGER *LWORK,
7739 INTEGER *INFO)
7740 {
7741 DEBUG_LAPACK_STUB("dorgqr");
7742 LAPACK_IMPL(dorgqr)(M,
7743 N,
7744 K,
7745 A,
7746 LDA,
7747 TAU,
7748 WORK,
7749 LWORK,
7750 INFO);
7751 }
7752
7753 //-- dorgr2 --------------------------------------------------------------------
7754 void
7755 LAPACK_DECL(dorgr2)(const INTEGER *M,
7756 const INTEGER *N,
7757 const INTEGER *K,
7758 DOUBLE *A,
7759 const INTEGER *LDA,
7760 const DOUBLE *TAU,
7761 const DOUBLE *WORK,
7762 INTEGER *INFO)
7763 {
7764 DEBUG_LAPACK_STUB("dorgr2");
7765 LAPACK_IMPL(dorgr2)(M,
7766 N,
7767 K,
7768 A,
7769 LDA,
7770 TAU,
7771 WORK,
7772 INFO);
7773 }
7774
7775 //-- dorgrq --------------------------------------------------------------------
7776 void
7777 LAPACK_DECL(dorgrq)(const INTEGER *M,
7778 const INTEGER *N,
7779 const INTEGER *K,
7780 DOUBLE *A,
7781 const INTEGER *LDA,
7782 const DOUBLE *TAU,
7783 DOUBLE *WORK,
7784 const INTEGER *LWORK,
7785 INTEGER *INFO)
7786 {
7787 DEBUG_LAPACK_STUB("dorgrq");
7788 LAPACK_IMPL(dorgrq)(M,
7789 N,
7790 K,
7791 A,
7792 LDA,
7793 TAU,
7794 WORK,
7795 LWORK,
7796 INFO);
7797 }
7798
7799 //-- dorgtr --------------------------------------------------------------------
7800 void
7801 LAPACK_DECL(dorgtr)(const char *UPLO,
7802 const INTEGER *N,
7803 DOUBLE *A,
7804 const INTEGER *LDA,
7805 const DOUBLE *TAU,
7806 DOUBLE *WORK,
7807 const INTEGER *LWORK,
7808 INTEGER *INFO)
7809 {
7810 DEBUG_LAPACK_STUB("dorgtr");
7811 LAPACK_IMPL(dorgtr)(UPLO,
7812 N,
7813 A,
7814 LDA,
7815 TAU,
7816 WORK,
7817 LWORK,
7818 INFO);
7819 }
7820
7821 //-- dorm2l --------------------------------------------------------------------
7822 void
7823 LAPACK_DECL(dorm2l)(const char *SIDE,
7824 const char *TRANS,
7825 const INTEGER *M,
7826 const INTEGER *N,
7827 const INTEGER *K,
7828 const DOUBLE *A,
7829 const INTEGER *LDA,
7830 const DOUBLE *TAU,
7831 DOUBLE *C,
7832 const INTEGER *LDC,
7833 const DOUBLE *WORK,
7834 INTEGER *INFO)
7835 {
7836 DEBUG_LAPACK_STUB("dorm2l");
7837 LAPACK_IMPL(dorm2l)(SIDE,
7838 TRANS,
7839 M,
7840 N,
7841 K,
7842 A,
7843 LDA,
7844 TAU,
7845 C,
7846 LDC,
7847 WORK,
7848 INFO);
7849 }
7850
7851 //-- dorm2r --------------------------------------------------------------------
7852 void
7853 LAPACK_DECL(dorm2r)(const char *SIDE,
7854 const char *TRANS,
7855 const INTEGER *M,
7856 const INTEGER *N,
7857 const INTEGER *K,
7858 const DOUBLE *A,
7859 const INTEGER *LDA,
7860 const DOUBLE *TAU,
7861 DOUBLE *C,
7862 const INTEGER *LDC,
7863 const DOUBLE *WORK,
7864 INTEGER *INFO)
7865 {
7866 DEBUG_LAPACK_STUB("dorm2r");
7867 LAPACK_IMPL(dorm2r)(SIDE,
7868 TRANS,
7869 M,
7870 N,
7871 K,
7872 A,
7873 LDA,
7874 TAU,
7875 C,
7876 LDC,
7877 WORK,
7878 INFO);
7879 }
7880
7881 //-- dormbr --------------------------------------------------------------------
7882 void
7883 LAPACK_DECL(dormbr)(const char *VECT,
7884 const char *SIDE,
7885 const char *TRANS,
7886 const INTEGER *M,
7887 const INTEGER *N,
7888 const INTEGER *K,
7889 const DOUBLE *A,
7890 const INTEGER *LDA,
7891 const DOUBLE *TAU,
7892 DOUBLE *C,
7893 const INTEGER *LDC,
7894 DOUBLE *WORK,
7895 const INTEGER *LWORK,
7896 INTEGER *INFO)
7897 {
7898 DEBUG_LAPACK_STUB("dormbr");
7899 LAPACK_IMPL(dormbr)(VECT,
7900 SIDE,
7901 TRANS,
7902 M,
7903 N,
7904 K,
7905 A,
7906 LDA,
7907 TAU,
7908 C,
7909 LDC,
7910 WORK,
7911 LWORK,
7912 INFO);
7913 }
7914
7915 //-- dormhr --------------------------------------------------------------------
7916 void
7917 LAPACK_DECL(dormhr)(const char *SIDE,
7918 const char *TRANS,
7919 const INTEGER *M,
7920 const INTEGER *N,
7921 const INTEGER *ILO,
7922 const INTEGER *IHI,
7923 const DOUBLE *A,
7924 const INTEGER *LDA,
7925 const DOUBLE *TAU,
7926 DOUBLE *C,
7927 const INTEGER *LDC,
7928 DOUBLE *WORK,
7929 const INTEGER *LWORK,
7930 INTEGER *INFO)
7931 {
7932 DEBUG_LAPACK_STUB("dormhr");
7933 LAPACK_IMPL(dormhr)(SIDE,
7934 TRANS,
7935 M,
7936 N,
7937 ILO,
7938 IHI,
7939 A,
7940 LDA,
7941 TAU,
7942 C,
7943 LDC,
7944 WORK,
7945 LWORK,
7946 INFO);
7947 }
7948
7949 //-- dorml2 --------------------------------------------------------------------
7950 void
7951 LAPACK_DECL(dorml2)(const char *SIDE,
7952 const char *TRANS,
7953 const INTEGER *M,
7954 const INTEGER *N,
7955 const INTEGER *K,
7956 const DOUBLE *A,
7957 const INTEGER *LDA,
7958 const DOUBLE *TAU,
7959 DOUBLE *C,
7960 const INTEGER *LDC,
7961 const DOUBLE *WORK,
7962 INTEGER *INFO)
7963 {
7964 DEBUG_LAPACK_STUB("dorml2");
7965 LAPACK_IMPL(dorml2)(SIDE,
7966 TRANS,
7967 M,
7968 N,
7969 K,
7970 A,
7971 LDA,
7972 TAU,
7973 C,
7974 LDC,
7975 WORK,
7976 INFO);
7977 }
7978
7979 //-- dormlq --------------------------------------------------------------------
7980 void
7981 LAPACK_DECL(dormlq)(const char *SIDE,
7982 const char *TRANS,
7983 const INTEGER *M,
7984 const INTEGER *N,
7985 const INTEGER *K,
7986 const DOUBLE *A,
7987 const INTEGER *LDA,
7988 const DOUBLE *TAU,
7989 DOUBLE *C,
7990 const INTEGER *LDC,
7991 DOUBLE *WORK,
7992 const INTEGER *LWORK,
7993 INTEGER *INFO)
7994 {
7995 DEBUG_LAPACK_STUB("dormlq");
7996 LAPACK_IMPL(dormlq)(SIDE,
7997 TRANS,
7998 M,
7999 N,
8000 K,
8001 A,
8002 LDA,
8003 TAU,
8004 C,
8005 LDC,
8006 WORK,
8007 LWORK,
8008 INFO);
8009 }
8010
8011 //-- dormql --------------------------------------------------------------------
8012 void
8013 LAPACK_DECL(dormql)(const char *SIDE,
8014 const char *TRANS,
8015 const INTEGER *M,
8016 const INTEGER *N,
8017 const INTEGER *K,
8018 const DOUBLE *A,
8019 const INTEGER *LDA,
8020 const DOUBLE *TAU,
8021 DOUBLE *C,
8022 const INTEGER *LDC,
8023 DOUBLE *WORK,
8024 const INTEGER *LWORK,
8025 INTEGER *INFO)
8026 {
8027 DEBUG_LAPACK_STUB("dormql");
8028 LAPACK_IMPL(dormql)(SIDE,
8029 TRANS,
8030 M,
8031 N,
8032 K,
8033 A,
8034 LDA,
8035 TAU,
8036 C,
8037 LDC,
8038 WORK,
8039 LWORK,
8040 INFO);
8041 }
8042
8043 //-- dormqr --------------------------------------------------------------------
8044 void
8045 LAPACK_DECL(dormqr)(const char *SIDE,
8046 const char *TRANS,
8047 const INTEGER *M,
8048 const INTEGER *N,
8049 const INTEGER *K,
8050 const DOUBLE *A,
8051 const INTEGER *LDA,
8052 const DOUBLE *TAU,
8053 DOUBLE *C,
8054 const INTEGER *LDC,
8055 DOUBLE *WORK,
8056 const INTEGER *LWORK,
8057 INTEGER *INFO)
8058 {
8059 DEBUG_LAPACK_STUB("dormqr");
8060 LAPACK_IMPL(dormqr)(SIDE,
8061 TRANS,
8062 M,
8063 N,
8064 K,
8065 A,
8066 LDA,
8067 TAU,
8068 C,
8069 LDC,
8070 WORK,
8071 LWORK,
8072 INFO);
8073 }
8074
8075 //-- dormr2 --------------------------------------------------------------------
8076 void
8077 LAPACK_DECL(dormr2)(const char *SIDE,
8078 const char *TRANS,
8079 const INTEGER *M,
8080 const INTEGER *N,
8081 const INTEGER *K,
8082 const DOUBLE *A,
8083 const INTEGER *LDA,
8084 const DOUBLE *TAU,
8085 DOUBLE *C,
8086 const INTEGER *LDC,
8087 const DOUBLE *WORK,
8088 INTEGER *INFO)
8089 {
8090 DEBUG_LAPACK_STUB("dormr2");
8091 LAPACK_IMPL(dormr2)(SIDE,
8092 TRANS,
8093 M,
8094 N,
8095 K,
8096 A,
8097 LDA,
8098 TAU,
8099 C,
8100 LDC,
8101 WORK,
8102 INFO);
8103 }
8104
8105 //-- dormr3 --------------------------------------------------------------------
8106 void
8107 LAPACK_DECL(dormr3)(const char *SIDE,
8108 const char *TRANS,
8109 const INTEGER *M,
8110 const INTEGER *N,
8111 const INTEGER *K,
8112 const INTEGER *L,
8113 const DOUBLE *A,
8114 const INTEGER *LDA,
8115 const DOUBLE *TAU,
8116 DOUBLE *C,
8117 const INTEGER *LDC,
8118 const DOUBLE *WORK,
8119 INTEGER *INFO)
8120 {
8121 DEBUG_LAPACK_STUB("dormr3");
8122 LAPACK_IMPL(dormr3)(SIDE,
8123 TRANS,
8124 M,
8125 N,
8126 K,
8127 L,
8128 A,
8129 LDA,
8130 TAU,
8131 C,
8132 LDC,
8133 WORK,
8134 INFO);
8135 }
8136
8137 //-- dormrq --------------------------------------------------------------------
8138 void
8139 LAPACK_DECL(dormrq)(const char *SIDE,
8140 const char *TRANS,
8141 const INTEGER *M,
8142 const INTEGER *N,
8143 const INTEGER *K,
8144 const DOUBLE *A,
8145 const INTEGER *LDA,
8146 const DOUBLE *TAU,
8147 DOUBLE *C,
8148 const INTEGER *LDC,
8149 DOUBLE *WORK,
8150 const INTEGER *LWORK,
8151 INTEGER *INFO)
8152 {
8153 DEBUG_LAPACK_STUB("dormrq");
8154 LAPACK_IMPL(dormrq)(SIDE,
8155 TRANS,
8156 M,
8157 N,
8158 K,
8159 A,
8160 LDA,
8161 TAU,
8162 C,
8163 LDC,
8164 WORK,
8165 LWORK,
8166 INFO);
8167 }
8168
8169 //-- dormrz --------------------------------------------------------------------
8170 void
8171 LAPACK_DECL(dormrz)(const char *SIDE,
8172 const char *TRANS,
8173 const INTEGER *M,
8174 const INTEGER *N,
8175 const INTEGER *K,
8176 const INTEGER *L,
8177 const DOUBLE *A,
8178 const INTEGER *LDA,
8179 const DOUBLE *TAU,
8180 DOUBLE *C,
8181 const INTEGER *LDC,
8182 DOUBLE *WORK,
8183 const INTEGER *LWORK,
8184 INTEGER *INFO)
8185 {
8186 DEBUG_LAPACK_STUB("dormrz");
8187 LAPACK_IMPL(dormrz)(SIDE,
8188 TRANS,
8189 M,
8190 N,
8191 K,
8192 L,
8193 A,
8194 LDA,
8195 TAU,
8196 C,
8197 LDC,
8198 WORK,
8199 LWORK,
8200 INFO);
8201 }
8202
8203 //-- dormtr --------------------------------------------------------------------
8204 void
8205 LAPACK_DECL(dormtr)(const char *SIDE,
8206 const char *UPLO,
8207 const char *TRANS,
8208 const INTEGER *M,
8209 const INTEGER *N,
8210 const DOUBLE *A,
8211 const INTEGER *LDA,
8212 const DOUBLE *TAU,
8213 DOUBLE *C,
8214 const INTEGER *LDC,
8215 DOUBLE *WORK,
8216 const INTEGER *LWORK,
8217 INTEGER *INFO)
8218 {
8219 DEBUG_LAPACK_STUB("dormtr");
8220 LAPACK_IMPL(dormtr)(SIDE,
8221 UPLO,
8222 TRANS,
8223 M,
8224 N,
8225 A,
8226 LDA,
8227 TAU,
8228 C,
8229 LDC,
8230 WORK,
8231 LWORK,
8232 INFO);
8233 }
8234
8235 //-- dpbcon --------------------------------------------------------------------
8236 void
8237 LAPACK_DECL(dpbcon)(const char *UPLO,
8238 const INTEGER *N,
8239 const INTEGER *KD,
8240 const DOUBLE *AB,
8241 const INTEGER *LDAB,
8242 const DOUBLE *ANORM,
8243 DOUBLE *RCOND,
8244 const DOUBLE *WORK,
8245 const INTEGER *IWORK,
8246 INTEGER *INFO)
8247 {
8248 DEBUG_LAPACK_STUB("dpbcon");
8249 LAPACK_IMPL(dpbcon)(UPLO,
8250 N,
8251 KD,
8252 AB,
8253 LDAB,
8254 ANORM,
8255 RCOND,
8256 WORK,
8257 IWORK,
8258 INFO);
8259 }
8260
8261 //-- dpbequ --------------------------------------------------------------------
8262 void
8263 LAPACK_DECL(dpbequ)(const char *UPLO,
8264 const INTEGER *N,
8265 const INTEGER *KD,
8266 const DOUBLE *AB,
8267 const INTEGER *LDAB,
8268 DOUBLE *S,
8269 DOUBLE *SCOND,
8270 DOUBLE *AMAX,
8271 INTEGER *INFO)
8272 {
8273 DEBUG_LAPACK_STUB("dpbequ");
8274 LAPACK_IMPL(dpbequ)(UPLO,
8275 N,
8276 KD,
8277 AB,
8278 LDAB,
8279 S,
8280 SCOND,
8281 AMAX,
8282 INFO);
8283 }
8284
8285 //-- dpbrfs --------------------------------------------------------------------
8286 void
8287 LAPACK_DECL(dpbrfs)(const char *UPLO,
8288 const INTEGER *N,
8289 const INTEGER *KD,
8290 const INTEGER *NRHS,
8291 const DOUBLE *AB,
8292 const INTEGER *LDAB,
8293 const DOUBLE *AFB,
8294 const INTEGER *LDAFB,
8295 const DOUBLE *B,
8296 const INTEGER *LDB,
8297 DOUBLE *X,
8298 const INTEGER *LDX,
8299 DOUBLE *FERR,
8300 DOUBLE *BERR,
8301 const DOUBLE *WORK,
8302 const INTEGER *IWORK,
8303 INTEGER *INFO)
8304 {
8305 DEBUG_LAPACK_STUB("dpbrfs");
8306 LAPACK_IMPL(dpbrfs)(UPLO,
8307 N,
8308 KD,
8309 NRHS,
8310 AB,
8311 LDAB,
8312 AFB,
8313 LDAFB,
8314 B,
8315 LDB,
8316 X,
8317 LDX,
8318 FERR,
8319 BERR,
8320 WORK,
8321 IWORK,
8322 INFO);
8323 }
8324
8325 //-- dpbstf --------------------------------------------------------------------
8326 void
8327 LAPACK_DECL(dpbstf)(const char *UPLO,
8328 const INTEGER *N,
8329 const INTEGER *KD,
8330 DOUBLE *AB,
8331 const INTEGER *LDAB,
8332 INTEGER *INFO)
8333 {
8334 DEBUG_LAPACK_STUB("dpbstf");
8335 LAPACK_IMPL(dpbstf)(UPLO,
8336 N,
8337 KD,
8338 AB,
8339 LDAB,
8340 INFO);
8341 }
8342
8343 //-- dpbsv ---------------------------------------------------------------------
8344 void
8345 LAPACK_DECL(dpbsv)(const char *UPLO,
8346 const INTEGER *N,
8347 const INTEGER *KD,
8348 const INTEGER *NRHS,
8349 DOUBLE *AB,
8350 const INTEGER *LDAB,
8351 DOUBLE *B,
8352 const INTEGER *LDB,
8353 INTEGER *INFO)
8354 {
8355 DEBUG_LAPACK_STUB("dpbsv");
8356 LAPACK_IMPL(dpbsv)(UPLO,
8357 N,
8358 KD,
8359 NRHS,
8360 AB,
8361 LDAB,
8362 B,
8363 LDB,
8364 INFO);
8365 }
8366
8367 //-- dpbsvx --------------------------------------------------------------------
8368 void
8369 LAPACK_DECL(dpbsvx)(const char *FACT,
8370 const char *UPLO,
8371 const INTEGER *N,
8372 const INTEGER *KD,
8373 const INTEGER *NRHS,
8374 DOUBLE *AB,
8375 const INTEGER *LDAB,
8376 DOUBLE *AFB,
8377 const INTEGER *LDAFB,
8378 char *EQUED,
8379 DOUBLE *S,
8380 DOUBLE *B,
8381 const INTEGER *LDB,
8382 DOUBLE *X,
8383 const INTEGER *LDX,
8384 DOUBLE *RCOND,
8385 DOUBLE *FERR,
8386 DOUBLE *BERR,
8387 const DOUBLE *WORK,
8388 const INTEGER *IWORK,
8389 INTEGER *INFO)
8390 {
8391 DEBUG_LAPACK_STUB("dpbsvx");
8392 LAPACK_IMPL(dpbsvx)(FACT,
8393 UPLO,
8394 N,
8395 KD,
8396 NRHS,
8397 AB,
8398 LDAB,
8399 AFB,
8400 LDAFB,
8401 EQUED,
8402 S,
8403 B,
8404 LDB,
8405 X,
8406 LDX,
8407 RCOND,
8408 FERR,
8409 BERR,
8410 WORK,
8411 IWORK,
8412 INFO);
8413 }
8414
8415 //-- dpbtf2 --------------------------------------------------------------------
8416 void
8417 LAPACK_DECL(dpbtf2)(const char *UPLO,
8418 const INTEGER *N,
8419 const INTEGER *KD,
8420 DOUBLE *AB,
8421 const INTEGER *LDAB,
8422 INTEGER *INFO)
8423 {
8424 DEBUG_LAPACK_STUB("dpbtf2");
8425 LAPACK_IMPL(dpbtf2)(UPLO,
8426 N,
8427 KD,
8428 AB,
8429 LDAB,
8430 INFO);
8431 }
8432
8433 //-- dpbtrf --------------------------------------------------------------------
8434 void
8435 LAPACK_DECL(dpbtrf)(const char *UPLO,
8436 const INTEGER *N,
8437 const INTEGER *KD,
8438 DOUBLE *AB,
8439 const INTEGER *LDAB,
8440 INTEGER *INFO)
8441 {
8442 DEBUG_LAPACK_STUB("dpbtrf");
8443 LAPACK_IMPL(dpbtrf)(UPLO,
8444 N,
8445 KD,
8446 AB,
8447 LDAB,
8448 INFO);
8449 }
8450
8451 //-- dpbtrs --------------------------------------------------------------------
8452 void
8453 LAPACK_DECL(dpbtrs)(const char *UPLO,
8454 const INTEGER *N,
8455 const INTEGER *KD,
8456 const INTEGER *NRHS,
8457 const DOUBLE *AB,
8458 const INTEGER *LDAB,
8459 DOUBLE *B,
8460 const INTEGER *LDB,
8461 INTEGER *INFO)
8462 {
8463 DEBUG_LAPACK_STUB("dpbtrs");
8464 LAPACK_IMPL(dpbtrs)(UPLO,
8465 N,
8466 KD,
8467 NRHS,
8468 AB,
8469 LDAB,
8470 B,
8471 LDB,
8472 INFO);
8473 }
8474
8475 //-- dpftrf --------------------------------------------------------------------
8476 void
8477 LAPACK_DECL(dpftrf)(const char *TRANSR,
8478 const char *UPLO,
8479 const INTEGER *N,
8480 DOUBLE *A,
8481 INTEGER *INFO)
8482 {
8483 DEBUG_LAPACK_STUB("dpftrf");
8484 LAPACK_IMPL(dpftrf)(TRANSR,
8485 UPLO,
8486 N,
8487 A,
8488 INFO);
8489 }
8490
8491 //-- dpftri --------------------------------------------------------------------
8492 void
8493 LAPACK_DECL(dpftri)(const char *TRANSR,
8494 const char *UPLO,
8495 const INTEGER *N,
8496 DOUBLE *A,
8497 INTEGER *INFO)
8498 {
8499 DEBUG_LAPACK_STUB("dpftri");
8500 LAPACK_IMPL(dpftri)(TRANSR,
8501 UPLO,
8502 N,
8503 A,
8504 INFO);
8505 }
8506
8507 //-- dpftrs --------------------------------------------------------------------
8508 void
8509 LAPACK_DECL(dpftrs)(const char *TRANSR,
8510 const char *UPLO,
8511 const INTEGER *N,
8512 const INTEGER *NRHS,
8513 const DOUBLE *A,
8514 DOUBLE *B,
8515 const INTEGER *LDB,
8516 INTEGER *INFO)
8517 {
8518 DEBUG_LAPACK_STUB("dpftrs");
8519 LAPACK_IMPL(dpftrs)(TRANSR,
8520 UPLO,
8521 N,
8522 NRHS,
8523 A,
8524 B,
8525 LDB,
8526 INFO);
8527 }
8528
8529 //-- dpocon --------------------------------------------------------------------
8530 void
8531 LAPACK_DECL(dpocon)(const char *UPLO,
8532 const INTEGER *N,
8533 const DOUBLE *A,
8534 const INTEGER *LDA,
8535 const DOUBLE *ANORM,
8536 DOUBLE *RCOND,
8537 const DOUBLE *WORK,
8538 const INTEGER *IWORK,
8539 INTEGER *INFO)
8540 {
8541 DEBUG_LAPACK_STUB("dpocon");
8542 LAPACK_IMPL(dpocon)(UPLO,
8543 N,
8544 A,
8545 LDA,
8546 ANORM,
8547 RCOND,
8548 WORK,
8549 IWORK,
8550 INFO);
8551 }
8552
8553 //-- dpoequ --------------------------------------------------------------------
8554 void
8555 LAPACK_DECL(dpoequ)(const INTEGER *N,
8556 const DOUBLE *A,
8557 const INTEGER *LDA,
8558 DOUBLE *S,
8559 DOUBLE *SCOND,
8560 DOUBLE *AMAX,
8561 INTEGER *INFO)
8562 {
8563 DEBUG_LAPACK_STUB("dpoequ");
8564 LAPACK_IMPL(dpoequ)(N,
8565 A,
8566 LDA,
8567 S,
8568 SCOND,
8569 AMAX,
8570 INFO);
8571 }
8572
8573 //-- dpoequb -------------------------------------------------------------------
8574 void
8575 LAPACK_DECL(dpoequb)(const INTEGER *N,
8576 const DOUBLE *A,
8577 const INTEGER *LDA,
8578 DOUBLE *S,
8579 DOUBLE *SCOND,
8580 DOUBLE *AMAX,
8581 INTEGER *INFO)
8582 {
8583 DEBUG_LAPACK_STUB("dpoequb");
8584 LAPACK_IMPL(dpoequb)(N,
8585 A,
8586 LDA,
8587 S,
8588 SCOND,
8589 AMAX,
8590 INFO);
8591 }
8592
8593 //-- dporfs --------------------------------------------------------------------
8594 void
8595 LAPACK_DECL(dporfs)(const char *UPLO,
8596 const INTEGER *N,
8597 const INTEGER *NRHS,
8598 const DOUBLE *A,
8599 const INTEGER *LDA,
8600 const DOUBLE *AF,
8601 const INTEGER *LDAF,
8602 const DOUBLE *B,
8603 const INTEGER *LDB,
8604 DOUBLE *X,
8605 const INTEGER *LDX,
8606 DOUBLE *FERR,
8607 DOUBLE *BERR,
8608 const DOUBLE *WORK,
8609 const INTEGER *IWORK,
8610 INTEGER *INFO)
8611 {
8612 DEBUG_LAPACK_STUB("dporfs");
8613 LAPACK_IMPL(dporfs)(UPLO,
8614 N,
8615 NRHS,
8616 A,
8617 LDA,
8618 AF,
8619 LDAF,
8620 B,
8621 LDB,
8622 X,
8623 LDX,
8624 FERR,
8625 BERR,
8626 WORK,
8627 IWORK,
8628 INFO);
8629 }
8630
8631 //-- dporfsx -------------------------------------------------------------------
8632 void
8633 LAPACK_DECL(dporfsx)(const char *UPLO,
8634 const char *EQUED,
8635 const INTEGER *N,
8636 const INTEGER *NRHS,
8637 const DOUBLE *A,
8638 const INTEGER *LDA,
8639 const DOUBLE *AF,
8640 const INTEGER *LDAF,
8641 DOUBLE *S,
8642 const DOUBLE *B,
8643 const INTEGER *LDB,
8644 DOUBLE *X,
8645 const INTEGER *LDX,
8646 DOUBLE *RCOND,
8647 DOUBLE *BERR,
8648 const INTEGER *N_ERR_BNDS,
8649 DOUBLE *ERR_BNDS_NORM,
8650 DOUBLE *ERR_BNDS_COMP,
8651 const INTEGER *NPARAMS,
8652 DOUBLE *PARAMS,
8653 const DOUBLE *WORK,
8654 const INTEGER *IWORK,
8655 INTEGER *INFO)
8656 {
8657 DEBUG_LAPACK_STUB("dporfsx");
8658 LAPACK_IMPL(dporfsx)(UPLO,
8659 EQUED,
8660 N,
8661 NRHS,
8662 A,
8663 LDA,
8664 AF,
8665 LDAF,
8666 S,
8667 B,
8668 LDB,
8669 X,
8670 LDX,
8671 RCOND,
8672 BERR,
8673 N_ERR_BNDS,
8674 ERR_BNDS_NORM,
8675 ERR_BNDS_COMP,
8676 NPARAMS,
8677 PARAMS,
8678 WORK,
8679 IWORK,
8680 INFO);
8681 }
8682
8683 //-- dposv ---------------------------------------------------------------------
8684 void
8685 LAPACK_DECL(dposv)(const char *UPLO,
8686 const INTEGER *N,
8687 const INTEGER *NRHS,
8688 DOUBLE *A,
8689 const INTEGER *LDA,
8690 DOUBLE *B,
8691 const INTEGER *LDB,
8692 INTEGER *INFO)
8693 {
8694 DEBUG_LAPACK_STUB("dposv");
8695 LAPACK_IMPL(dposv)(UPLO,
8696 N,
8697 NRHS,
8698 A,
8699 LDA,
8700 B,
8701 LDB,
8702 INFO);
8703 }
8704
8705 //-- dposvx --------------------------------------------------------------------
8706 void
8707 LAPACK_DECL(dposvx)(const char *FACT,
8708 const char *UPLO,
8709 const INTEGER *N,
8710 const INTEGER *NRHS,
8711 DOUBLE *A,
8712 const INTEGER *LDA,
8713 DOUBLE *AF,
8714 const INTEGER *LDAF,
8715 char *EQUED,
8716 DOUBLE *S,
8717 DOUBLE *B,
8718 const INTEGER *LDB,
8719 DOUBLE *X,
8720 const INTEGER *LDX,
8721 DOUBLE *RCOND,
8722 DOUBLE *FERR,
8723 DOUBLE *BERR,
8724 const DOUBLE *WORK,
8725 const INTEGER *IWORK,
8726 INTEGER *INFO)
8727 {
8728 DEBUG_LAPACK_STUB("dposvx");
8729 LAPACK_IMPL(dposvx)(FACT,
8730 UPLO,
8731 N,
8732 NRHS,
8733 A,
8734 LDA,
8735 AF,
8736 LDAF,
8737 EQUED,
8738 S,
8739 B,
8740 LDB,
8741 X,
8742 LDX,
8743 RCOND,
8744 FERR,
8745 BERR,
8746 WORK,
8747 IWORK,
8748 INFO);
8749 }
8750
8751 //-- dposvxx -------------------------------------------------------------------
8752 void
8753 LAPACK_DECL(dposvxx)(const char *FACT,
8754 const char *UPLO,
8755 const INTEGER *N,
8756 const INTEGER *NRHS,
8757 DOUBLE *A,
8758 const INTEGER *LDA,
8759 DOUBLE *AF,
8760 const INTEGER *LDAF,
8761 char *EQUED,
8762 DOUBLE *S,
8763 DOUBLE *B,
8764 const INTEGER *LDB,
8765 DOUBLE *X,
8766 const INTEGER *LDX,
8767 DOUBLE *RCOND,
8768 DOUBLE *RPVGRW,
8769 DOUBLE *BERR,
8770 const INTEGER *N_ERR_BNDS,
8771 DOUBLE *ERR_BNDS_NORM,
8772 DOUBLE *ERR_BNDS_COMP,
8773 const INTEGER *NPARAMS,
8774 DOUBLE *PARAMS,
8775 const DOUBLE *WORK,
8776 const INTEGER *IWORK,
8777 INTEGER *INFO)
8778 {
8779 DEBUG_LAPACK_STUB("dposvxx");
8780 LAPACK_IMPL(dposvxx)(FACT,
8781 UPLO,
8782 N,
8783 NRHS,
8784 A,
8785 LDA,
8786 AF,
8787 LDAF,
8788 EQUED,
8789 S,
8790 B,
8791 LDB,
8792 X,
8793 LDX,
8794 RCOND,
8795 RPVGRW,
8796 BERR,
8797 N_ERR_BNDS,
8798 ERR_BNDS_NORM,
8799 ERR_BNDS_COMP,
8800 NPARAMS,
8801 PARAMS,
8802 WORK,
8803 IWORK,
8804 INFO);
8805 }
8806
8807 //-- dpotf2 --------------------------------------------------------------------
8808 void
8809 LAPACK_DECL(dpotf2)(const char *UPLO,
8810 const INTEGER *N,
8811 DOUBLE *A,
8812 const INTEGER *LDA,
8813 INTEGER *INFO)
8814 {
8815 DEBUG_LAPACK_STUB("dpotf2");
8816 LAPACK_IMPL(dpotf2)(UPLO,
8817 N,
8818 A,
8819 LDA,
8820 INFO);
8821 }
8822
8823 //-- dpotrf --------------------------------------------------------------------
8824 void
8825 LAPACK_DECL(dpotrf)(const char *UPLO,
8826 const INTEGER *N,
8827 DOUBLE *A,
8828 const INTEGER *LDA,
8829 INTEGER *INFO)
8830 {
8831 DEBUG_LAPACK_STUB("dpotrf");
8832 LAPACK_IMPL(dpotrf)(UPLO,
8833 N,
8834 A,
8835 LDA,
8836 INFO);
8837 }
8838
8839 //-- dpotri --------------------------------------------------------------------
8840 void
8841 LAPACK_DECL(dpotri)(const char *UPLO,
8842 const INTEGER *N,
8843 DOUBLE *A,
8844 const INTEGER *LDA,
8845 INTEGER *INFO)
8846 {
8847 DEBUG_LAPACK_STUB("dpotri");
8848 LAPACK_IMPL(dpotri)(UPLO,
8849 N,
8850 A,
8851 LDA,
8852 INFO);
8853 }
8854
8855 //-- dpotrs --------------------------------------------------------------------
8856 void
8857 LAPACK_DECL(dpotrs)(const char *UPLO,
8858 const INTEGER *N,
8859 const INTEGER *NRHS,
8860 const DOUBLE *A,
8861 const INTEGER *LDA,
8862 DOUBLE *B,
8863 const INTEGER *LDB,
8864 INTEGER *INFO)
8865 {
8866 DEBUG_LAPACK_STUB("dpotrs");
8867 LAPACK_IMPL(dpotrs)(UPLO,
8868 N,
8869 NRHS,
8870 A,
8871 LDA,
8872 B,
8873 LDB,
8874 INFO);
8875 }
8876
8877 //-- dppcon --------------------------------------------------------------------
8878 void
8879 LAPACK_DECL(dppcon)(const char *UPLO,
8880 const INTEGER *N,
8881 const DOUBLE *AP,
8882 const DOUBLE *ANORM,
8883 DOUBLE *RCOND,
8884 const DOUBLE *WORK,
8885 const INTEGER *IWORK,
8886 INTEGER *INFO)
8887 {
8888 DEBUG_LAPACK_STUB("dppcon");
8889 LAPACK_IMPL(dppcon)(UPLO,
8890 N,
8891 AP,
8892 ANORM,
8893 RCOND,
8894 WORK,
8895 IWORK,
8896 INFO);
8897 }
8898
8899 //-- dppequ --------------------------------------------------------------------
8900 void
8901 LAPACK_DECL(dppequ)(const char *UPLO,
8902 const INTEGER *N,
8903 const DOUBLE *AP,
8904 DOUBLE *S,
8905 DOUBLE *SCOND,
8906 DOUBLE *AMAX,
8907 INTEGER *INFO)
8908 {
8909 DEBUG_LAPACK_STUB("dppequ");
8910 LAPACK_IMPL(dppequ)(UPLO,
8911 N,
8912 AP,
8913 S,
8914 SCOND,
8915 AMAX,
8916 INFO);
8917 }
8918
8919 //-- dpprfs --------------------------------------------------------------------
8920 void
8921 LAPACK_DECL(dpprfs)(const char *UPLO,
8922 const INTEGER *N,
8923 const INTEGER *NRHS,
8924 const DOUBLE *AP,
8925 const DOUBLE *AFP,
8926 const DOUBLE *B,
8927 const INTEGER *LDB,
8928 DOUBLE *X,
8929 const INTEGER *LDX,
8930 DOUBLE *FERR,
8931 DOUBLE *BERR,
8932 const DOUBLE *WORK,
8933 const INTEGER *IWORK,
8934 INTEGER *INFO)
8935 {
8936 DEBUG_LAPACK_STUB("dpprfs");
8937 LAPACK_IMPL(dpprfs)(UPLO,
8938 N,
8939 NRHS,
8940 AP,
8941 AFP,
8942 B,
8943 LDB,
8944 X,
8945 LDX,
8946 FERR,
8947 BERR,
8948 WORK,
8949 IWORK,
8950 INFO);
8951 }
8952
8953 //-- dppsv ---------------------------------------------------------------------
8954 void
8955 LAPACK_DECL(dppsv)(const char *UPLO,
8956 const INTEGER *N,
8957 const INTEGER *NRHS,
8958 DOUBLE *AP,
8959 DOUBLE *B,
8960 const INTEGER *LDB,
8961 INTEGER *INFO)
8962 {
8963 DEBUG_LAPACK_STUB("dppsv");
8964 LAPACK_IMPL(dppsv)(UPLO,
8965 N,
8966 NRHS,
8967 AP,
8968 B,
8969 LDB,
8970 INFO);
8971 }
8972
8973 //-- dppsvx --------------------------------------------------------------------
8974 void
8975 LAPACK_DECL(dppsvx)(const char *FACT,
8976 const char *UPLO,
8977 const INTEGER *N,
8978 const INTEGER *NRHS,
8979 DOUBLE *AP,
8980 DOUBLE *AFP,
8981 char *EQUED,
8982 DOUBLE *S,
8983 DOUBLE *B,
8984 const INTEGER *LDB,
8985 DOUBLE *X,
8986 const INTEGER *LDX,
8987 DOUBLE *RCOND,
8988 DOUBLE *FERR,
8989 DOUBLE *BERR,
8990 const DOUBLE *WORK,
8991 const INTEGER *IWORK,
8992 INTEGER *INFO)
8993 {
8994 DEBUG_LAPACK_STUB("dppsvx");
8995 LAPACK_IMPL(dppsvx)(FACT,
8996 UPLO,
8997 N,
8998 NRHS,
8999 AP,
9000 AFP,
9001 EQUED,
9002 S,
9003 B,
9004 LDB,
9005 X,
9006 LDX,
9007 RCOND,
9008 FERR,
9009 BERR,
9010 WORK,
9011 IWORK,
9012 INFO);
9013 }
9014
9015 //-- dpptrf --------------------------------------------------------------------
9016 void
9017 LAPACK_DECL(dpptrf)(const char *UPLO,
9018 const INTEGER *N,
9019 DOUBLE *AP,
9020 INTEGER *INFO)
9021 {
9022 DEBUG_LAPACK_STUB("dpptrf");
9023 LAPACK_IMPL(dpptrf)(UPLO,
9024 N,
9025 AP,
9026 INFO);
9027 }
9028
9029 //-- dpptri --------------------------------------------------------------------
9030 void
9031 LAPACK_DECL(dpptri)(const char *UPLO,
9032 const INTEGER *N,
9033 DOUBLE *AP,
9034 INTEGER *INFO)
9035 {
9036 DEBUG_LAPACK_STUB("dpptri");
9037 LAPACK_IMPL(dpptri)(UPLO,
9038 N,
9039 AP,
9040 INFO);
9041 }
9042
9043 //-- dpptrs --------------------------------------------------------------------
9044 void
9045 LAPACK_DECL(dpptrs)(const char *UPLO,
9046 const INTEGER *N,
9047 const INTEGER *NRHS,
9048 const DOUBLE *AP,
9049 DOUBLE *B,
9050 const INTEGER *LDB,
9051 INTEGER *INFO)
9052 {
9053 DEBUG_LAPACK_STUB("dpptrs");
9054 LAPACK_IMPL(dpptrs)(UPLO,
9055 N,
9056 NRHS,
9057 AP,
9058 B,
9059 LDB,
9060 INFO);
9061 }
9062
9063 //-- dpstf2 --------------------------------------------------------------------
9064 void
9065 LAPACK_DECL(dpstf2)(const char *UPLO,
9066 const INTEGER *N,
9067 DOUBLE *A,
9068 const INTEGER *LDA,
9069 INTEGER *PIV,
9070 INTEGER *RANK,
9071 const DOUBLE *TOL,
9072 const DOUBLE *WORK,
9073 INTEGER *INFO)
9074 {
9075 DEBUG_LAPACK_STUB("dpstf2");
9076 LAPACK_IMPL(dpstf2)(UPLO,
9077 N,
9078 A,
9079 LDA,
9080 PIV,
9081 RANK,
9082 TOL,
9083 WORK,
9084 INFO);
9085 }
9086
9087 //-- dpstrf --------------------------------------------------------------------
9088 void
9089 LAPACK_DECL(dpstrf)(const char *UPLO,
9090 const INTEGER *N,
9091 DOUBLE *A,
9092 const INTEGER *LDA,
9093 INTEGER *PIV,
9094 INTEGER *RANK,
9095 const DOUBLE *TOL,
9096 const DOUBLE *WORK,
9097 INTEGER *INFO)
9098 {
9099 DEBUG_LAPACK_STUB("dpstrf");
9100 LAPACK_IMPL(dpstrf)(UPLO,
9101 N,
9102 A,
9103 LDA,
9104 PIV,
9105 RANK,
9106 TOL,
9107 WORK,
9108 INFO);
9109 }
9110
9111 //-- dptcon --------------------------------------------------------------------
9112 void
9113 LAPACK_DECL(dptcon)(const INTEGER *N,
9114 const DOUBLE *D,
9115 const DOUBLE *E,
9116 const DOUBLE *ANORM,
9117 DOUBLE *RCOND,
9118 const DOUBLE *WORK,
9119 INTEGER *INFO)
9120 {
9121 DEBUG_LAPACK_STUB("dptcon");
9122 LAPACK_IMPL(dptcon)(N,
9123 D,
9124 E,
9125 ANORM,
9126 RCOND,
9127 WORK,
9128 INFO);
9129 }
9130
9131 //-- dpteqr --------------------------------------------------------------------
9132 void
9133 LAPACK_DECL(dpteqr)(const char *COMPZ,
9134 const INTEGER *N,
9135 DOUBLE *D,
9136 DOUBLE *E,
9137 DOUBLE *Z,
9138 const INTEGER *LDZ,
9139 const DOUBLE *WORK,
9140 INTEGER *INFO)
9141 {
9142 DEBUG_LAPACK_STUB("dpteqr");
9143 LAPACK_IMPL(dpteqr)(COMPZ,
9144 N,
9145 D,
9146 E,
9147 Z,
9148 LDZ,
9149 WORK,
9150 INFO);
9151 }
9152
9153 //-- dptrfs --------------------------------------------------------------------
9154 void
9155 LAPACK_DECL(dptrfs)(const INTEGER *N,
9156 const INTEGER *NRHS,
9157 const DOUBLE *D,
9158 const DOUBLE *E,
9159 const DOUBLE *DF,
9160 const DOUBLE *EF,
9161 const DOUBLE *B,
9162 const INTEGER *LDB,
9163 DOUBLE *X,
9164 const INTEGER *LDX,
9165 DOUBLE *FERR,
9166 DOUBLE *BERR,
9167 const DOUBLE *WORK,
9168 INTEGER *INFO)
9169 {
9170 DEBUG_LAPACK_STUB("dptrfs");
9171 LAPACK_IMPL(dptrfs)(N,
9172 NRHS,
9173 D,
9174 E,
9175 DF,
9176 EF,
9177 B,
9178 LDB,
9179 X,
9180 LDX,
9181 FERR,
9182 BERR,
9183 WORK,
9184 INFO);
9185 }
9186
9187 //-- dptsv ---------------------------------------------------------------------
9188 void
9189 LAPACK_DECL(dptsv)(const INTEGER *N,
9190 const INTEGER *NRHS,
9191 DOUBLE *D,
9192 DOUBLE *E,
9193 DOUBLE *B,
9194 const INTEGER *LDB,
9195 INTEGER *INFO)
9196 {
9197 DEBUG_LAPACK_STUB("dptsv");
9198 LAPACK_IMPL(dptsv)(N,
9199 NRHS,
9200 D,
9201 E,
9202 B,
9203 LDB,
9204 INFO);
9205 }
9206
9207 //-- dptsvx --------------------------------------------------------------------
9208 void
9209 LAPACK_DECL(dptsvx)(const char *FACT,
9210 const INTEGER *N,
9211 const INTEGER *NRHS,
9212 const DOUBLE *D,
9213 const DOUBLE *E,
9214 DOUBLE *DF,
9215 DOUBLE *EF,
9216 const DOUBLE *B,
9217 const INTEGER *LDB,
9218 DOUBLE *X,
9219 const INTEGER *LDX,
9220 DOUBLE *RCOND,
9221 DOUBLE *FERR,
9222 DOUBLE *BERR,
9223 const DOUBLE *WORK,
9224 INTEGER *INFO)
9225 {
9226 DEBUG_LAPACK_STUB("dptsvx");
9227 LAPACK_IMPL(dptsvx)(FACT,
9228 N,
9229 NRHS,
9230 D,
9231 E,
9232 DF,
9233 EF,
9234 B,
9235 LDB,
9236 X,
9237 LDX,
9238 RCOND,
9239 FERR,
9240 BERR,
9241 WORK,
9242 INFO);
9243 }
9244
9245 //-- dpttrf --------------------------------------------------------------------
9246 void
9247 LAPACK_DECL(dpttrf)(const INTEGER *N,
9248 DOUBLE *D,
9249 DOUBLE *E,
9250 INTEGER *INFO)
9251 {
9252 DEBUG_LAPACK_STUB("dpttrf");
9253 LAPACK_IMPL(dpttrf)(N,
9254 D,
9255 E,
9256 INFO);
9257 }
9258
9259 //-- dpttrs --------------------------------------------------------------------
9260 void
9261 LAPACK_DECL(dpttrs)(const INTEGER *N,
9262 const INTEGER *NRHS,
9263 const DOUBLE *D,
9264 const DOUBLE *E,
9265 DOUBLE *B,
9266 const INTEGER *LDB,
9267 INTEGER *INFO)
9268 {
9269 DEBUG_LAPACK_STUB("dpttrs");
9270 LAPACK_IMPL(dpttrs)(N,
9271 NRHS,
9272 D,
9273 E,
9274 B,
9275 LDB,
9276 INFO);
9277 }
9278
9279 //-- dptts2 --------------------------------------------------------------------
9280 void
9281 LAPACK_DECL(dptts2)(const INTEGER *N,
9282 const INTEGER *NRHS,
9283 const DOUBLE *D,
9284 const DOUBLE *E,
9285 DOUBLE *B,
9286 const INTEGER *LDB)
9287 {
9288 DEBUG_LAPACK_STUB("dptts2");
9289 LAPACK_IMPL(dptts2)(N,
9290 NRHS,
9291 D,
9292 E,
9293 B,
9294 LDB);
9295 }
9296
9297 //-- drscl ---------------------------------------------------------------------
9298 void
9299 LAPACK_DECL(drscl)(const INTEGER *N,
9300 const DOUBLE *SA,
9301 DOUBLE *SX,
9302 const INTEGER *INCX)
9303 {
9304 DEBUG_LAPACK_STUB("drscl");
9305 LAPACK_IMPL(drscl)(N,
9306 SA,
9307 SX,
9308 INCX);
9309 }
9310
9311 //-- dsbev ---------------------------------------------------------------------
9312 void
9313 LAPACK_DECL(dsbev)(const char *JOBZ,
9314 const char *UPLO,
9315 const INTEGER *N,
9316 const INTEGER *KD,
9317 DOUBLE *AB,
9318 const INTEGER *LDAB,
9319 DOUBLE *W,
9320 DOUBLE *Z,
9321 const INTEGER *LDZ,
9322 const DOUBLE *WORK,
9323 INTEGER *INFO)
9324 {
9325 DEBUG_LAPACK_STUB("dsbev");
9326 LAPACK_IMPL(dsbev)(JOBZ,
9327 UPLO,
9328 N,
9329 KD,
9330 AB,
9331 LDAB,
9332 W,
9333 Z,
9334 LDZ,
9335 WORK,
9336 INFO);
9337 }
9338
9339 //-- dsbevd --------------------------------------------------------------------
9340 void
9341 LAPACK_DECL(dsbevd)(const char *JOBZ,
9342 const char *UPLO,
9343 const INTEGER *N,
9344 const INTEGER *KD,
9345 DOUBLE *AB,
9346 const INTEGER *LDAB,
9347 DOUBLE *W,
9348 DOUBLE *Z,
9349 const INTEGER *LDZ,
9350 DOUBLE *WORK,
9351 const INTEGER *LWORK,
9352 INTEGER *IWORK,
9353 const INTEGER *LIWORK,
9354 INTEGER *INFO)
9355 {
9356 DEBUG_LAPACK_STUB("dsbevd");
9357 LAPACK_IMPL(dsbevd)(JOBZ,
9358 UPLO,
9359 N,
9360 KD,
9361 AB,
9362 LDAB,
9363 W,
9364 Z,
9365 LDZ,
9366 WORK,
9367 LWORK,
9368 IWORK,
9369 LIWORK,
9370 INFO);
9371 }
9372
9373 //-- dsbevx --------------------------------------------------------------------
9374 void
9375 LAPACK_DECL(dsbevx)(const char *JOBZ,
9376 const char *RANGE,
9377 const char *UPLO,
9378 const INTEGER *N,
9379 const INTEGER *KD,
9380 DOUBLE *AB,
9381 const INTEGER *LDAB,
9382 DOUBLE *Q,
9383 const INTEGER *LDQ,
9384 const DOUBLE *VL,
9385 const DOUBLE *VU,
9386 const INTEGER *IL,
9387 const INTEGER *IU,
9388 const DOUBLE *ABSTOL,
9389 INTEGER *M,
9390 DOUBLE *W,
9391 DOUBLE *Z,
9392 const INTEGER *LDZ,
9393 const DOUBLE *WORK,
9394 const INTEGER *IWORK,
9395 INTEGER *IFAIL,
9396 INTEGER *INFO)
9397 {
9398 DEBUG_LAPACK_STUB("dsbevx");
9399 LAPACK_IMPL(dsbevx)(JOBZ,
9400 RANGE,
9401 UPLO,
9402 N,
9403 KD,
9404 AB,
9405 LDAB,
9406 Q,
9407 LDQ,
9408 VL,
9409 VU,
9410 IL,
9411 IU,
9412 ABSTOL,
9413 M,
9414 W,
9415 Z,
9416 LDZ,
9417 WORK,
9418 IWORK,
9419 IFAIL,
9420 INFO);
9421 }
9422
9423 //-- dsbgst --------------------------------------------------------------------
9424 void
9425 LAPACK_DECL(dsbgst)(const char *VECT,
9426 const char *UPLO,
9427 const INTEGER *N,
9428 const INTEGER *KA,
9429 const INTEGER *KB,
9430 DOUBLE *AB,
9431 const INTEGER *LDAB,
9432 const DOUBLE *BB,
9433 const INTEGER *LDBB,
9434 DOUBLE *X,
9435 const INTEGER *LDX,
9436 const DOUBLE *WORK,
9437 INTEGER *INFO)
9438 {
9439 DEBUG_LAPACK_STUB("dsbgst");
9440 LAPACK_IMPL(dsbgst)(VECT,
9441 UPLO,
9442 N,
9443 KA,
9444 KB,
9445 AB,
9446 LDAB,
9447 BB,
9448 LDBB,
9449 X,
9450 LDX,
9451 WORK,
9452 INFO);
9453 }
9454
9455 //-- dsbgv ---------------------------------------------------------------------
9456 void
9457 LAPACK_DECL(dsbgv)(const char *JOBZ,
9458 const char *UPLO,
9459 const INTEGER *N,
9460 const INTEGER *KA,
9461 const INTEGER *KB,
9462 DOUBLE *AB,
9463 const INTEGER *LDAB,
9464 DOUBLE *BB,
9465 const INTEGER *LDBB,
9466 DOUBLE *W,
9467 DOUBLE *Z,
9468 const INTEGER *LDZ,
9469 const DOUBLE *WORK,
9470 INTEGER *INFO)
9471 {
9472 DEBUG_LAPACK_STUB("dsbgv");
9473 LAPACK_IMPL(dsbgv)(JOBZ,
9474 UPLO,
9475 N,
9476 KA,
9477 KB,
9478 AB,
9479 LDAB,
9480 BB,
9481 LDBB,
9482 W,
9483 Z,
9484 LDZ,
9485 WORK,
9486 INFO);
9487 }
9488
9489 //-- dsbgvd --------------------------------------------------------------------
9490 void
9491 LAPACK_DECL(dsbgvd)(const char *JOBZ,
9492 const char *UPLO,
9493 const INTEGER *N,
9494 const INTEGER *KA,
9495 const INTEGER *KB,
9496 DOUBLE *AB,
9497 const INTEGER *LDAB,
9498 DOUBLE *BB,
9499 const INTEGER *LDBB,
9500 DOUBLE *W,
9501 DOUBLE *Z,
9502 const INTEGER *LDZ,
9503 DOUBLE *WORK,
9504 const INTEGER *LWORK,
9505 INTEGER *IWORK,
9506 const INTEGER *LIWORK,
9507 INTEGER *INFO)
9508 {
9509 DEBUG_LAPACK_STUB("dsbgvd");
9510 LAPACK_IMPL(dsbgvd)(JOBZ,
9511 UPLO,
9512 N,
9513 KA,
9514 KB,
9515 AB,
9516 LDAB,
9517 BB,
9518 LDBB,
9519 W,
9520 Z,
9521 LDZ,
9522 WORK,
9523 LWORK,
9524 IWORK,
9525 LIWORK,
9526 INFO);
9527 }
9528
9529 //-- dsbgvx --------------------------------------------------------------------
9530 void
9531 LAPACK_DECL(dsbgvx)(const char *JOBZ,
9532 const char *RANGE,
9533 const char *UPLO,
9534 const INTEGER *N,
9535 const INTEGER *KA,
9536 const INTEGER *KB,
9537 DOUBLE *AB,
9538 const INTEGER *LDAB,
9539 DOUBLE *BB,
9540 const INTEGER *LDBB,
9541 DOUBLE *Q,
9542 const INTEGER *LDQ,
9543 const DOUBLE *VL,
9544 const DOUBLE *VU,
9545 const INTEGER *IL,
9546 const INTEGER *IU,
9547 const DOUBLE *ABSTOL,
9548 INTEGER *M,
9549 DOUBLE *W,
9550 DOUBLE *Z,
9551 const INTEGER *LDZ,
9552 DOUBLE *WORK,
9553 INTEGER *IWORK,
9554 INTEGER *IFAIL,
9555 INTEGER *INFO)
9556 {
9557 DEBUG_LAPACK_STUB("dsbgvx");
9558 LAPACK_IMPL(dsbgvx)(JOBZ,
9559 RANGE,
9560 UPLO,
9561 N,
9562 KA,
9563 KB,
9564 AB,
9565 LDAB,
9566 BB,
9567 LDBB,
9568 Q,
9569 LDQ,
9570 VL,
9571 VU,
9572 IL,
9573 IU,
9574 ABSTOL,
9575 M,
9576 W,
9577 Z,
9578 LDZ,
9579 WORK,
9580 IWORK,
9581 IFAIL,
9582 INFO);
9583 }
9584
9585 //-- dsbtrd --------------------------------------------------------------------
9586 void
9587 LAPACK_DECL(dsbtrd)(const char *VECT,
9588 const char *UPLO,
9589 const INTEGER *N,
9590 const INTEGER *KD,
9591 DOUBLE *AB,
9592 const INTEGER *LDAB,
9593 DOUBLE *D,
9594 DOUBLE *E,
9595 DOUBLE *Q,
9596 const INTEGER *LDQ,
9597 const DOUBLE *WORK,
9598 INTEGER *INFO)
9599 {
9600 DEBUG_LAPACK_STUB("dsbtrd");
9601 LAPACK_IMPL(dsbtrd)(VECT,
9602 UPLO,
9603 N,
9604 KD,
9605 AB,
9606 LDAB,
9607 D,
9608 E,
9609 Q,
9610 LDQ,
9611 WORK,
9612 INFO);
9613 }
9614
9615 //-- dsecnd --------------------------------------------------------------------
9616 DOUBLE
9617 LAPACK_DECL(dsecnd)()
9618 {
9619 DEBUG_LAPACK_STUB("dsecnd");
9620 return LAPACK_IMPL(dsecnd)();
9621 }
9622
9623 //-- dsfrk ---------------------------------------------------------------------
9624 void
9625 LAPACK_DECL(dsfrk)(const char *TRANSR,
9626 const char *UPLO,
9627 const char *TRANS,
9628 const INTEGER *N,
9629 const INTEGER *K,
9630 const DOUBLE *ALPHA,
9631 const DOUBLE *A,
9632 const INTEGER *LDA,
9633 const DOUBLE *BETA,
9634 DOUBLE *C)
9635 {
9636 DEBUG_LAPACK_STUB("dsfrk");
9637 LAPACK_IMPL(dsfrk)(TRANSR,
9638 UPLO,
9639 TRANS,
9640 N,
9641 K,
9642 ALPHA,
9643 A,
9644 LDA,
9645 BETA,
9646 C);
9647 }
9648
9649 //-- dsgesv --------------------------------------------------------------------
9650 void
9651 LAPACK_DECL(dsgesv)(const INTEGER *N,
9652 const INTEGER *NRHS,
9653 DOUBLE *A,
9654 const INTEGER *LDA,
9655 INTEGER *IPIV,
9656 const DOUBLE *B,
9657 const INTEGER *LDB,
9658 DOUBLE *X,
9659 const INTEGER *LDX,
9660 const DOUBLE *WORK,
9661 const FLOAT *SWORK,
9662 INTEGER *ITER,
9663 INTEGER *INFO)
9664 {
9665 DEBUG_LAPACK_STUB("dsgesv");
9666 LAPACK_IMPL(dsgesv)(N,
9667 NRHS,
9668 A,
9669 LDA,
9670 IPIV,
9671 B,
9672 LDB,
9673 X,
9674 LDX,
9675 WORK,
9676 SWORK,
9677 ITER,
9678 INFO);
9679 }
9680
9681 //-- dspcon --------------------------------------------------------------------
9682 void
9683 LAPACK_DECL(dspcon)(const char *UPLO,
9684 const INTEGER *N,
9685 const DOUBLE *AP,
9686 const INTEGER *IPIV,
9687 const DOUBLE *ANORM,
9688 DOUBLE *RCOND,
9689 const DOUBLE *WORK,
9690 const INTEGER *IWORK,
9691 INTEGER *INFO)
9692 {
9693 DEBUG_LAPACK_STUB("dspcon");
9694 LAPACK_IMPL(dspcon)(UPLO,
9695 N,
9696 AP,
9697 IPIV,
9698 ANORM,
9699 RCOND,
9700 WORK,
9701 IWORK,
9702 INFO);
9703 }
9704
9705 //-- dspev ---------------------------------------------------------------------
9706 void
9707 LAPACK_DECL(dspev)(const char *JOBZ,
9708 const char *UPLO,
9709 const INTEGER *N,
9710 DOUBLE *AP,
9711 DOUBLE *W,
9712 DOUBLE *Z,
9713 const INTEGER *LDZ,
9714 const DOUBLE *WORK,
9715 INTEGER *INFO)
9716 {
9717 DEBUG_LAPACK_STUB("dspev");
9718 LAPACK_IMPL(dspev)(JOBZ,
9719 UPLO,
9720 N,
9721 AP,
9722 W,
9723 Z,
9724 LDZ,
9725 WORK,
9726 INFO);
9727 }
9728
9729 //-- dspevd --------------------------------------------------------------------
9730 void
9731 LAPACK_DECL(dspevd)(const char *JOBZ,
9732 const char *UPLO,
9733 const INTEGER *N,
9734 DOUBLE *AP,
9735 DOUBLE *W,
9736 DOUBLE *Z,
9737 const INTEGER *LDZ,
9738 DOUBLE *WORK,
9739 const INTEGER *LWORK,
9740 INTEGER *IWORK,
9741 const INTEGER *LIWORK,
9742 INTEGER *INFO)
9743 {
9744 DEBUG_LAPACK_STUB("dspevd");
9745 LAPACK_IMPL(dspevd)(JOBZ,
9746 UPLO,
9747 N,
9748 AP,
9749 W,
9750 Z,
9751 LDZ,
9752 WORK,
9753 LWORK,
9754 IWORK,
9755 LIWORK,
9756 INFO);
9757 }
9758
9759 //-- dspevx --------------------------------------------------------------------
9760 void
9761 LAPACK_DECL(dspevx)(const char *JOBZ,
9762 const char *RANGE,
9763 const char *UPLO,
9764 const INTEGER *N,
9765 DOUBLE *AP,
9766 const DOUBLE *VL,
9767 const DOUBLE *VU,
9768 const INTEGER *IL,
9769 const INTEGER *IU,
9770 const DOUBLE *ABSTOL,
9771 INTEGER *M,
9772 DOUBLE *W,
9773 DOUBLE *Z,
9774 const INTEGER *LDZ,
9775 const DOUBLE *WORK,
9776 const INTEGER *IWORK,
9777 INTEGER *IFAIL,
9778 INTEGER *INFO)
9779 {
9780 DEBUG_LAPACK_STUB("dspevx");
9781 LAPACK_IMPL(dspevx)(JOBZ,
9782 RANGE,
9783 UPLO,
9784 N,
9785 AP,
9786 VL,
9787 VU,
9788 IL,
9789 IU,
9790 ABSTOL,
9791 M,
9792 W,
9793 Z,
9794 LDZ,
9795 WORK,
9796 IWORK,
9797 IFAIL,
9798 INFO);
9799 }
9800
9801 //-- dspgst --------------------------------------------------------------------
9802 void
9803 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
9804 const char *UPLO,
9805 const INTEGER *N,
9806 DOUBLE *AP,
9807 const DOUBLE *BP,
9808 INTEGER *INFO)
9809 {
9810 DEBUG_LAPACK_STUB("dspgst");
9811 LAPACK_IMPL(dspgst)(ITYPE,
9812 UPLO,
9813 N,
9814 AP,
9815 BP,
9816 INFO);
9817 }
9818
9819 //-- dspgv ---------------------------------------------------------------------
9820 void
9821 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
9822 const char *JOBZ,
9823 const char *UPLO,
9824 const INTEGER *N,
9825 DOUBLE *AP,
9826 DOUBLE *BP,
9827 DOUBLE *W,
9828 DOUBLE *Z,
9829 const INTEGER *LDZ,
9830 const DOUBLE *WORK,
9831 INTEGER *INFO)
9832 {
9833 DEBUG_LAPACK_STUB("dspgv");
9834 LAPACK_IMPL(dspgv)(ITYPE,
9835 JOBZ,
9836 UPLO,
9837 N,
9838 AP,
9839 BP,
9840 W,
9841 Z,
9842 LDZ,
9843 WORK,
9844 INFO);
9845 }
9846
9847 //-- dspgvd --------------------------------------------------------------------
9848 void
9849 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
9850 const char *JOBZ,
9851 const char *UPLO,
9852 const INTEGER *N,
9853 DOUBLE *AP,
9854 DOUBLE *BP,
9855 DOUBLE *W,
9856 DOUBLE *Z,
9857 const INTEGER *LDZ,
9858 DOUBLE *WORK,
9859 const INTEGER *LWORK,
9860 INTEGER *IWORK,
9861 const INTEGER *LIWORK,
9862 INTEGER *INFO)
9863 {
9864 DEBUG_LAPACK_STUB("dspgvd");
9865 LAPACK_IMPL(dspgvd)(ITYPE,
9866 JOBZ,
9867 UPLO,
9868 N,
9869 AP,
9870 BP,
9871 W,
9872 Z,
9873 LDZ,
9874 WORK,
9875 LWORK,
9876 IWORK,
9877 LIWORK,
9878 INFO);
9879 }
9880
9881 //-- dspgvx --------------------------------------------------------------------
9882 void
9883 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
9884 const char *JOBZ,
9885 const char *RANGE,
9886 const char *UPLO,
9887 const INTEGER *N,
9888 DOUBLE *AP,
9889 DOUBLE *BP,
9890 const DOUBLE *VL,
9891 const DOUBLE *VU,
9892 const INTEGER *IL,
9893 const INTEGER *IU,
9894 const DOUBLE *ABSTOL,
9895 INTEGER *M,
9896 DOUBLE *W,
9897 DOUBLE *Z,
9898 const INTEGER *LDZ,
9899 const DOUBLE *WORK,
9900 const INTEGER *IWORK,
9901 INTEGER *IFAIL,
9902 INTEGER *INFO)
9903 {
9904 DEBUG_LAPACK_STUB("dspgvx");
9905 LAPACK_IMPL(dspgvx)(ITYPE,
9906 JOBZ,
9907 RANGE,
9908 UPLO,
9909 N,
9910 AP,
9911 BP,
9912 VL,
9913 VU,
9914 IL,
9915 IU,
9916 ABSTOL,
9917 M,
9918 W,
9919 Z,
9920 LDZ,
9921 WORK,
9922 IWORK,
9923 IFAIL,
9924 INFO);
9925 }
9926
9927 //-- dsposv --------------------------------------------------------------------
9928 void
9929 LAPACK_DECL(dsposv)(const char *UPLO,
9930 const INTEGER *N,
9931 const INTEGER *NRHS,
9932 DOUBLE *A,
9933 const INTEGER *LDA,
9934 const DOUBLE *B,
9935 const INTEGER *LDB,
9936 DOUBLE *X,
9937 const INTEGER *LDX,
9938 const DOUBLE *WORK,
9939 const FLOAT *SWORK,
9940 INTEGER *ITER,
9941 INTEGER *INFO)
9942 {
9943 DEBUG_LAPACK_STUB("dsposv");
9944 LAPACK_IMPL(dsposv)(UPLO,
9945 N,
9946 NRHS,
9947 A,
9948 LDA,
9949 B,
9950 LDB,
9951 X,
9952 LDX,
9953 WORK,
9954 SWORK,
9955 ITER,
9956 INFO);
9957 }
9958
9959 //-- dsprfs --------------------------------------------------------------------
9960 void
9961 LAPACK_DECL(dsprfs)(const char *UPLO,
9962 const INTEGER *N,
9963 const INTEGER *NRHS,
9964 const DOUBLE *AP,
9965 const DOUBLE *AFP,
9966 const INTEGER *IPIV,
9967 const DOUBLE *B,
9968 const INTEGER *LDB,
9969 DOUBLE *X,
9970 const INTEGER *LDX,
9971 DOUBLE *FERR,
9972 DOUBLE *BERR,
9973 const DOUBLE *WORK,
9974 const INTEGER *IWORK,
9975 INTEGER *INFO)
9976 {
9977 DEBUG_LAPACK_STUB("dsprfs");
9978 LAPACK_IMPL(dsprfs)(UPLO,
9979 N,
9980 NRHS,
9981 AP,
9982 AFP,
9983 IPIV,
9984 B,
9985 LDB,
9986 X,
9987 LDX,
9988 FERR,
9989 BERR,
9990 WORK,
9991 IWORK,
9992 INFO);
9993 }
9994
9995 //-- dspsv ---------------------------------------------------------------------
9996 void
9997 LAPACK_DECL(dspsv)(const char *UPLO,
9998 const INTEGER *N,
9999 const INTEGER *NRHS,
10000 DOUBLE *AP,
10001 INTEGER *IPIV,
10002 DOUBLE *B,
10003 const INTEGER *LDB,
10004 INTEGER *INFO)
10005 {
10006 DEBUG_LAPACK_STUB("dspsv");
10007 LAPACK_IMPL(dspsv)(UPLO,
10008 N,
10009 NRHS,
10010 AP,
10011 IPIV,
10012 B,
10013 LDB,
10014 INFO);
10015 }
10016
10017 //-- dspsvx --------------------------------------------------------------------
10018 void
10019 LAPACK_DECL(dspsvx)(const char *FACT,
10020 const char *UPLO,
10021 const INTEGER *N,
10022 const INTEGER *NRHS,
10023 const DOUBLE *AP,
10024 DOUBLE *AFP,
10025 INTEGER *IPIV,
10026 const DOUBLE *B,
10027 const INTEGER *LDB,
10028 DOUBLE *X,
10029 const INTEGER *LDX,
10030 DOUBLE *RCOND,
10031 DOUBLE *FERR,
10032 DOUBLE *BERR,
10033 const DOUBLE *WORK,
10034 const INTEGER *IWORK,
10035 INTEGER *INFO)
10036 {
10037 DEBUG_LAPACK_STUB("dspsvx");
10038 LAPACK_IMPL(dspsvx)(FACT,
10039 UPLO,
10040 N,
10041 NRHS,
10042 AP,
10043 AFP,
10044 IPIV,
10045 B,
10046 LDB,
10047 X,
10048 LDX,
10049 RCOND,
10050 FERR,
10051 BERR,
10052 WORK,
10053 IWORK,
10054 INFO);
10055 }
10056
10057 //-- dsptrd --------------------------------------------------------------------
10058 void
10059 LAPACK_DECL(dsptrd)(const char *UPLO,
10060 const INTEGER *N,
10061 DOUBLE *AP,
10062 DOUBLE *D,
10063 DOUBLE *E,
10064 DOUBLE *TAU,
10065 INTEGER *INFO)
10066 {
10067 DEBUG_LAPACK_STUB("dsptrd");
10068 LAPACK_IMPL(dsptrd)(UPLO,
10069 N,
10070 AP,
10071 D,
10072 E,
10073 TAU,
10074 INFO);
10075 }
10076
10077 //-- dsptrf --------------------------------------------------------------------
10078 void
10079 LAPACK_DECL(dsptrf)(const char *UPLO,
10080 const INTEGER *N,
10081 DOUBLE *AP,
10082 INTEGER *IPIV,
10083 INTEGER *INFO)
10084 {
10085 DEBUG_LAPACK_STUB("dsptrf");
10086 LAPACK_IMPL(dsptrf)(UPLO,
10087 N,
10088 AP,
10089 IPIV,
10090 INFO);
10091 }
10092
10093 //-- dsptri --------------------------------------------------------------------
10094 void
10095 LAPACK_DECL(dsptri)(const char *UPLO,
10096 const INTEGER *N,
10097 DOUBLE *AP,
10098 const INTEGER *IPIV,
10099 const DOUBLE *WORK,
10100 INTEGER *INFO)
10101 {
10102 DEBUG_LAPACK_STUB("dsptri");
10103 LAPACK_IMPL(dsptri)(UPLO,
10104 N,
10105 AP,
10106 IPIV,
10107 WORK,
10108 INFO);
10109 }
10110
10111 //-- dsptrs --------------------------------------------------------------------
10112 void
10113 LAPACK_DECL(dsptrs)(const char *UPLO,
10114 const INTEGER *N,
10115 const INTEGER *NRHS,
10116 const DOUBLE *AP,
10117 const INTEGER *IPIV,
10118 DOUBLE *B,
10119 const INTEGER *LDB,
10120 INTEGER *INFO)
10121 {
10122 DEBUG_LAPACK_STUB("dsptrs");
10123 LAPACK_IMPL(dsptrs)(UPLO,
10124 N,
10125 NRHS,
10126 AP,
10127 IPIV,
10128 B,
10129 LDB,
10130 INFO);
10131 }
10132
10133 //-- dstebz --------------------------------------------------------------------
10134 void
10135 LAPACK_DECL(dstebz)(const char *RANGE,
10136 const char *ORDER,
10137 const INTEGER *N,
10138 const DOUBLE *VL,
10139 const DOUBLE *VU,
10140 const INTEGER *IL,
10141 const INTEGER *IU,
10142 const DOUBLE *ABSTOL,
10143 const DOUBLE *D,
10144 const DOUBLE *E,
10145 INTEGER *M,
10146 INTEGER *NSPLIT,
10147 DOUBLE *W,
10148 INTEGER *IBLOCK,
10149 INTEGER *ISPLIT,
10150 const DOUBLE *WORK,
10151 const INTEGER *IWORK,
10152 INTEGER *INFO)
10153 {
10154 DEBUG_LAPACK_STUB("dstebz");
10155 LAPACK_IMPL(dstebz)(RANGE,
10156 ORDER,
10157 N,
10158 VL,
10159 VU,
10160 IL,
10161 IU,
10162 ABSTOL,
10163 D,
10164 E,
10165 M,
10166 NSPLIT,
10167 W,
10168 IBLOCK,
10169 ISPLIT,
10170 WORK,
10171 IWORK,
10172 INFO);
10173 }
10174
10175 //-- dstedc --------------------------------------------------------------------
10176 void
10177 LAPACK_DECL(dstedc)(const char *COMPZ,
10178 const INTEGER *N,
10179 DOUBLE *D,
10180 DOUBLE *E,
10181 DOUBLE *Z,
10182 const INTEGER *LDZ,
10183 DOUBLE *WORK,
10184 const INTEGER *LWORK,
10185 INTEGER *IWORK,
10186 const INTEGER *LIWORK,
10187 INTEGER *INFO)
10188 {
10189 DEBUG_LAPACK_STUB("dstedc");
10190 LAPACK_IMPL(dstedc)(COMPZ,
10191 N,
10192 D,
10193 E,
10194 Z,
10195 LDZ,
10196 WORK,
10197 LWORK,
10198 IWORK,
10199 LIWORK,
10200 INFO);
10201 }
10202
10203 //-- dstegr --------------------------------------------------------------------
10204 void
10205 LAPACK_DECL(dstegr)(const char *JOBZ,
10206 const char *RANGE,
10207 const INTEGER *N,
10208 DOUBLE *D,
10209 DOUBLE *E,
10210 const DOUBLE *VL,
10211 const DOUBLE *VU,
10212 const INTEGER *IL,
10213 const INTEGER *IU,
10214 const DOUBLE *ABSTOL,
10215 INTEGER *M,
10216 DOUBLE *W,
10217 DOUBLE *Z,
10218 const INTEGER *LDZ,
10219 INTEGER *ISUPPZ,
10220 DOUBLE *WORK,
10221 const INTEGER *LWORK,
10222 INTEGER *IWORK,
10223 const INTEGER *LIWORK,
10224 INTEGER *INFO)
10225 {
10226 DEBUG_LAPACK_STUB("dstegr");
10227 LAPACK_IMPL(dstegr)(JOBZ,
10228 RANGE,
10229 N,
10230 D,
10231 E,
10232 VL,
10233 VU,
10234 IL,
10235 IU,
10236 ABSTOL,
10237 M,
10238 W,
10239 Z,
10240 LDZ,
10241 ISUPPZ,
10242 WORK,
10243 LWORK,
10244 IWORK,
10245 LIWORK,
10246 INFO);
10247 }
10248
10249 //-- dstein --------------------------------------------------------------------
10250 void
10251 LAPACK_DECL(dstein)(const INTEGER *N,
10252 const DOUBLE *D,
10253 const DOUBLE *E,
10254 const INTEGER *M,
10255 const DOUBLE *W,
10256 const INTEGER *IBLOCK,
10257 const INTEGER *ISPLIT,
10258 DOUBLE *Z,
10259 const INTEGER *LDZ,
10260 const DOUBLE *WORK,
10261 const INTEGER *IWORK,
10262 INTEGER *IFAIL,
10263 INTEGER *INFO)
10264 {
10265 DEBUG_LAPACK_STUB("dstein");
10266 LAPACK_IMPL(dstein)(N,
10267 D,
10268 E,
10269 M,
10270 W,
10271 IBLOCK,
10272 ISPLIT,
10273 Z,
10274 LDZ,
10275 WORK,
10276 IWORK,
10277 IFAIL,
10278 INFO);
10279 }
10280
10281 //-- dstemr --------------------------------------------------------------------
10282 void
10283 LAPACK_DECL(dstemr)(const char *JOBZ,
10284 const char *RANGE,
10285 const INTEGER *N,
10286 DOUBLE *D,
10287 DOUBLE *E,
10288 const DOUBLE *VL,
10289 const DOUBLE *VU,
10290 const INTEGER *IL,
10291 const INTEGER *IU,
10292 INTEGER *M,
10293 DOUBLE *W,
10294 DOUBLE *Z,
10295 const INTEGER *LDZ,
10296 const INTEGER *NZC,
10297 INTEGER *ISUPPZ,
10298 LOGICAL *TRYRAC,
10299 DOUBLE *WORK,
10300 const INTEGER *LWORK,
10301 INTEGER *IWORK,
10302 const INTEGER *LIWORK,
10303 INTEGER *INFO)
10304 {
10305 DEBUG_LAPACK_STUB("dstemr");
10306 LAPACK_IMPL(dstemr)(JOBZ,
10307 RANGE,
10308 N,
10309 D,
10310 E,
10311 VL,
10312 VU,
10313 IL,
10314 IU,
10315 M,
10316 W,
10317 Z,
10318 LDZ,
10319 NZC,
10320 ISUPPZ,
10321 TRYRAC,
10322 WORK,
10323 LWORK,
10324 IWORK,
10325 LIWORK,
10326 INFO);
10327 }
10328
10329 //-- dsteqr --------------------------------------------------------------------
10330 void
10331 LAPACK_DECL(dsteqr)(const char *COMPZ,
10332 const INTEGER *N,
10333 DOUBLE *D,
10334 DOUBLE *E,
10335 DOUBLE *Z,
10336 const INTEGER *LDZ,
10337 const DOUBLE *WORK,
10338 INTEGER *INFO)
10339 {
10340 DEBUG_LAPACK_STUB("dsteqr");
10341 LAPACK_IMPL(dsteqr)(COMPZ,
10342 N,
10343 D,
10344 E,
10345 Z,
10346 LDZ,
10347 WORK,
10348 INFO);
10349 }
10350
10351 //-- dsterf --------------------------------------------------------------------
10352 void
10353 LAPACK_DECL(dsterf)(const INTEGER *N,
10354 DOUBLE *D,
10355 DOUBLE *E,
10356 INTEGER *INFO)
10357 {
10358 DEBUG_LAPACK_STUB("dsterf");
10359 LAPACK_IMPL(dsterf)(N,
10360 D,
10361 E,
10362 INFO);
10363 }
10364
10365 //-- dstev ---------------------------------------------------------------------
10366 void
10367 LAPACK_DECL(dstev)(const char *JOBZ,
10368 const INTEGER *N,
10369 DOUBLE *D,
10370 DOUBLE *E,
10371 DOUBLE *Z,
10372 const INTEGER *LDZ,
10373 const DOUBLE *WORK,
10374 INTEGER *INFO)
10375 {
10376 DEBUG_LAPACK_STUB("dstev");
10377 LAPACK_IMPL(dstev)(JOBZ,
10378 N,
10379 D,
10380 E,
10381 Z,
10382 LDZ,
10383 WORK,
10384 INFO);
10385 }
10386
10387 //-- dstevd --------------------------------------------------------------------
10388 void
10389 LAPACK_DECL(dstevd)(const char *JOBZ,
10390 const INTEGER *N,
10391 DOUBLE *D,
10392 DOUBLE *E,
10393 DOUBLE *Z,
10394 const INTEGER *LDZ,
10395 DOUBLE *WORK,
10396 const INTEGER *LWORK,
10397 INTEGER *IWORK,
10398 const INTEGER *LIWORK,
10399 INTEGER *INFO)
10400 {
10401 DEBUG_LAPACK_STUB("dstevd");
10402 LAPACK_IMPL(dstevd)(JOBZ,
10403 N,
10404 D,
10405 E,
10406 Z,
10407 LDZ,
10408 WORK,
10409 LWORK,
10410 IWORK,
10411 LIWORK,
10412 INFO);
10413 }
10414
10415 //-- dstevr --------------------------------------------------------------------
10416 void
10417 LAPACK_DECL(dstevr)(const char *JOBZ,
10418 const char *RANGE,
10419 const INTEGER *N,
10420 DOUBLE *D,
10421 DOUBLE *E,
10422 const DOUBLE *VL,
10423 const DOUBLE *VU,
10424 const INTEGER *IL,
10425 const INTEGER *IU,
10426 const DOUBLE *ABSTOL,
10427 INTEGER *M,
10428 DOUBLE *W,
10429 DOUBLE *Z,
10430 const INTEGER *LDZ,
10431 INTEGER *ISUPPZ,
10432 DOUBLE *WORK,
10433 const INTEGER *LWORK,
10434 INTEGER *IWORK,
10435 const INTEGER *LIWORK,
10436 INTEGER *INFO)
10437 {
10438 DEBUG_LAPACK_STUB("dstevr");
10439 LAPACK_IMPL(dstevr)(JOBZ,
10440 RANGE,
10441 N,
10442 D,
10443 E,
10444 VL,
10445 VU,
10446 IL,
10447 IU,
10448 ABSTOL,
10449 M,
10450 W,
10451 Z,
10452 LDZ,
10453 ISUPPZ,
10454 WORK,
10455 LWORK,
10456 IWORK,
10457 LIWORK,
10458 INFO);
10459 }
10460
10461 //-- dstevx --------------------------------------------------------------------
10462 void
10463 LAPACK_DECL(dstevx)(const char *JOBZ,
10464 const char *RANGE,
10465 const INTEGER *N,
10466 DOUBLE *D,
10467 DOUBLE *E,
10468 const DOUBLE *VL,
10469 const DOUBLE *VU,
10470 const INTEGER *IL,
10471 const INTEGER *IU,
10472 const DOUBLE *ABSTOL,
10473 INTEGER *M,
10474 DOUBLE *W,
10475 DOUBLE *Z,
10476 const INTEGER *LDZ,
10477 const DOUBLE *WORK,
10478 const INTEGER *IWORK,
10479 INTEGER *IFAIL,
10480 INTEGER *INFO)
10481 {
10482 DEBUG_LAPACK_STUB("dstevx");
10483 LAPACK_IMPL(dstevx)(JOBZ,
10484 RANGE,
10485 N,
10486 D,
10487 E,
10488 VL,
10489 VU,
10490 IL,
10491 IU,
10492 ABSTOL,
10493 M,
10494 W,
10495 Z,
10496 LDZ,
10497 WORK,
10498 IWORK,
10499 IFAIL,
10500 INFO);
10501 }
10502
10503 //-- dsycon --------------------------------------------------------------------
10504 void
10505 LAPACK_DECL(dsycon)(const char *UPLO,
10506 const INTEGER *N,
10507 const DOUBLE *A,
10508 const INTEGER *LDA,
10509 const INTEGER *IPIV,
10510 const DOUBLE *ANORM,
10511 DOUBLE *RCOND,
10512 const DOUBLE *WORK,
10513 const INTEGER *IWORK,
10514 INTEGER *INFO)
10515 {
10516 DEBUG_LAPACK_STUB("dsycon");
10517 LAPACK_IMPL(dsycon)(UPLO,
10518 N,
10519 A,
10520 LDA,
10521 IPIV,
10522 ANORM,
10523 RCOND,
10524 WORK,
10525 IWORK,
10526 INFO);
10527 }
10528
10529 //-- dsyconv -------------------------------------------------------------------
10530 void
10531 LAPACK_DECL(dsyconv)(const char *UPLO,
10532 const char *WAY,
10533 const INTEGER *N,
10534 const DOUBLE *A,
10535 const INTEGER *LDA,
10536 const INTEGER *IPIV,
10537 const DOUBLE *WORK,
10538 INTEGER *INFO)
10539 {
10540 DEBUG_LAPACK_STUB("dsyconv");
10541 LAPACK_IMPL(dsyconv)(UPLO,
10542 WAY,
10543 N,
10544 A,
10545 LDA,
10546 IPIV,
10547 WORK,
10548 INFO);
10549 }
10550
10551 //-- dsyequb -------------------------------------------------------------------
10552 void
10553 LAPACK_DECL(dsyequb)(const char *UPLO,
10554 const INTEGER *N,
10555 const DOUBLE *A,
10556 const INTEGER *LDA,
10557 DOUBLE *S,
10558 DOUBLE *SCOND,
10559 DOUBLE *AMAX,
10560 const DOUBLE *WORK,
10561 INTEGER *INFO)
10562 {
10563 DEBUG_LAPACK_STUB("dsyequb");
10564 LAPACK_IMPL(dsyequb)(UPLO,
10565 N,
10566 A,
10567 LDA,
10568 S,
10569 SCOND,
10570 AMAX,
10571 WORK,
10572 INFO);
10573 }
10574
10575 //-- dsyev ---------------------------------------------------------------------
10576 void
10577 LAPACK_DECL(dsyev)(const char *JOBZ,
10578 const char *UPLO,
10579 const INTEGER *N,
10580 DOUBLE *A,
10581 const INTEGER *LDA,
10582 DOUBLE *W,
10583 DOUBLE *WORK,
10584 const INTEGER *LWORK,
10585 INTEGER *INFO)
10586 {
10587 DEBUG_LAPACK_STUB("dsyev");
10588 LAPACK_IMPL(dsyev)(JOBZ,
10589 UPLO,
10590 N,
10591 A,
10592 LDA,
10593 W,
10594 WORK,
10595 LWORK,
10596 INFO);
10597 }
10598
10599 //-- dsyevd --------------------------------------------------------------------
10600 void
10601 LAPACK_DECL(dsyevd)(const char *JOBZ,
10602 const char *UPLO,
10603 const INTEGER *N,
10604 DOUBLE *A,
10605 const INTEGER *LDA,
10606 DOUBLE *W,
10607 DOUBLE *WORK,
10608 const INTEGER *LWORK,
10609 INTEGER *IWORK,
10610 const INTEGER *LIWORK,
10611 INTEGER *INFO)
10612 {
10613 DEBUG_LAPACK_STUB("dsyevd");
10614 LAPACK_IMPL(dsyevd)(JOBZ,
10615 UPLO,
10616 N,
10617 A,
10618 LDA,
10619 W,
10620 WORK,
10621 LWORK,
10622 IWORK,
10623 LIWORK,
10624 INFO);
10625 }
10626
10627 //-- dsyevr --------------------------------------------------------------------
10628 void
10629 LAPACK_DECL(dsyevr)(const char *JOBZ,
10630 const char *RANGE,
10631 const char *UPLO,
10632 const INTEGER *N,
10633 DOUBLE *A,
10634 const INTEGER *LDA,
10635 const DOUBLE *VL,
10636 const DOUBLE *VU,
10637 const INTEGER *IL,
10638 const INTEGER *IU,
10639 const DOUBLE *ABSTOL,
10640 INTEGER *M,
10641 DOUBLE *W,
10642 DOUBLE *Z,
10643 const INTEGER *LDZ,
10644 INTEGER *ISUPPZ,
10645 DOUBLE *WORK,
10646 const INTEGER *LWORK,
10647 INTEGER *IWORK,
10648 const INTEGER *LIWORK,
10649 INTEGER *INFO)
10650 {
10651 DEBUG_LAPACK_STUB("dsyevr");
10652 LAPACK_IMPL(dsyevr)(JOBZ,
10653 RANGE,
10654 UPLO,
10655 N,
10656 A,
10657 LDA,
10658 VL,
10659 VU,
10660 IL,
10661 IU,
10662 ABSTOL,
10663 M,
10664 W,
10665 Z,
10666 LDZ,
10667 ISUPPZ,
10668 WORK,
10669 LWORK,
10670 IWORK,
10671 LIWORK,
10672 INFO);
10673 }
10674
10675 //-- dsyevx --------------------------------------------------------------------
10676 void
10677 LAPACK_DECL(dsyevx)(const char *JOBZ,
10678 const char *RANGE,
10679 const char *UPLO,
10680 const INTEGER *N,
10681 DOUBLE *A,
10682 const INTEGER *LDA,
10683 const DOUBLE *VL,
10684 const DOUBLE *VU,
10685 const INTEGER *IL,
10686 const INTEGER *IU,
10687 const DOUBLE *ABSTOL,
10688 INTEGER *M,
10689 DOUBLE *W,
10690 DOUBLE *Z,
10691 const INTEGER *LDZ,
10692 DOUBLE *WORK,
10693 const INTEGER *LWORK,
10694 const INTEGER *IWORK,
10695 INTEGER *IFAIL,
10696 INTEGER *INFO)
10697 {
10698 DEBUG_LAPACK_STUB("dsyevx");
10699 LAPACK_IMPL(dsyevx)(JOBZ,
10700 RANGE,
10701 UPLO,
10702 N,
10703 A,
10704 LDA,
10705 VL,
10706 VU,
10707 IL,
10708 IU,
10709 ABSTOL,
10710 M,
10711 W,
10712 Z,
10713 LDZ,
10714 WORK,
10715 LWORK,
10716 IWORK,
10717 IFAIL,
10718 INFO);
10719 }
10720
10721 //-- dsygs2 --------------------------------------------------------------------
10722 void
10723 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
10724 const char *UPLO,
10725 const INTEGER *N,
10726 DOUBLE *A,
10727 const INTEGER *LDA,
10728 const DOUBLE *B,
10729 const INTEGER *LDB,
10730 INTEGER *INFO)
10731 {
10732 DEBUG_LAPACK_STUB("dsygs2");
10733 LAPACK_IMPL(dsygs2)(ITYPE,
10734 UPLO,
10735 N,
10736 A,
10737 LDA,
10738 B,
10739 LDB,
10740 INFO);
10741 }
10742
10743 //-- dsygst --------------------------------------------------------------------
10744 void
10745 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
10746 const char *UPLO,
10747 const INTEGER *N,
10748 DOUBLE *A,
10749 const INTEGER *LDA,
10750 const DOUBLE *B,
10751 const INTEGER *LDB,
10752 INTEGER *INFO)
10753 {
10754 DEBUG_LAPACK_STUB("dsygst");
10755 LAPACK_IMPL(dsygst)(ITYPE,
10756 UPLO,
10757 N,
10758 A,
10759 LDA,
10760 B,
10761 LDB,
10762 INFO);
10763 }
10764
10765 //-- dsygv ---------------------------------------------------------------------
10766 void
10767 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
10768 const char *JOBZ,
10769 const char *UPLO,
10770 const INTEGER *N,
10771 DOUBLE *A,
10772 const INTEGER *LDA,
10773 DOUBLE *B,
10774 const INTEGER *LDB,
10775 DOUBLE *W,
10776 DOUBLE *WORK,
10777 const INTEGER *LWORK,
10778 INTEGER *INFO)
10779 {
10780 DEBUG_LAPACK_STUB("dsygv");
10781 LAPACK_IMPL(dsygv)(ITYPE,
10782 JOBZ,
10783 UPLO,
10784 N,
10785 A,
10786 LDA,
10787 B,
10788 LDB,
10789 W,
10790 WORK,
10791 LWORK,
10792 INFO);
10793 }
10794
10795 //-- dsygvd --------------------------------------------------------------------
10796 void
10797 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
10798 const char *JOBZ,
10799 const char *UPLO,
10800 const INTEGER *N,
10801 DOUBLE *A,
10802 const INTEGER *LDA,
10803 DOUBLE *B,
10804 const INTEGER *LDB,
10805 DOUBLE *W,
10806 DOUBLE *WORK,
10807 const INTEGER *LWORK,
10808 INTEGER *IWORK,
10809 const INTEGER *LIWORK,
10810 INTEGER *INFO)
10811 {
10812 DEBUG_LAPACK_STUB("dsygvd");
10813 LAPACK_IMPL(dsygvd)(ITYPE,
10814 JOBZ,
10815 UPLO,
10816 N,
10817 A,
10818 LDA,
10819 B,
10820 LDB,
10821 W,
10822 WORK,
10823 LWORK,
10824 IWORK,
10825 LIWORK,
10826 INFO);
10827 }
10828
10829 //-- dsygvx --------------------------------------------------------------------
10830 void
10831 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
10832 const char *JOBZ,
10833 const char *RANGE,
10834 const char *UPLO,
10835 const INTEGER *N,
10836 DOUBLE *A,
10837 const INTEGER *LDA,
10838 DOUBLE *B,
10839 const INTEGER *LDB,
10840 const DOUBLE *VL,
10841 const DOUBLE *VU,
10842 const INTEGER *IL,
10843 const INTEGER *IU,
10844 const DOUBLE *ABSTOL,
10845 INTEGER *M,
10846 DOUBLE *W,
10847 DOUBLE *Z,
10848 const INTEGER *LDZ,
10849 DOUBLE *WORK,
10850 const INTEGER *LWORK,
10851 const INTEGER *IWORK,
10852 INTEGER *IFAIL,
10853 INTEGER *INFO)
10854 {
10855 DEBUG_LAPACK_STUB("dsygvx");
10856 LAPACK_IMPL(dsygvx)(ITYPE,
10857 JOBZ,
10858 RANGE,
10859 UPLO,
10860 N,
10861 A,
10862 LDA,
10863 B,
10864 LDB,
10865 VL,
10866 VU,
10867 IL,
10868 IU,
10869 ABSTOL,
10870 M,
10871 W,
10872 Z,
10873 LDZ,
10874 WORK,
10875 LWORK,
10876 IWORK,
10877 IFAIL,
10878 INFO);
10879 }
10880
10881 //-- dsyrfs --------------------------------------------------------------------
10882 void
10883 LAPACK_DECL(dsyrfs)(const char *UPLO,
10884 const INTEGER *N,
10885 const INTEGER *NRHS,
10886 const DOUBLE *A,
10887 const INTEGER *LDA,
10888 const DOUBLE *AF,
10889 const INTEGER *LDAF,
10890 const INTEGER *IPIV,
10891 const DOUBLE *B,
10892 const INTEGER *LDB,
10893 DOUBLE *X,
10894 const INTEGER *LDX,
10895 DOUBLE *FERR,
10896 DOUBLE *BERR,
10897 const DOUBLE *WORK,
10898 const INTEGER *IWORK,
10899 INTEGER *INFO)
10900 {
10901 DEBUG_LAPACK_STUB("dsyrfs");
10902 LAPACK_IMPL(dsyrfs)(UPLO,
10903 N,
10904 NRHS,
10905 A,
10906 LDA,
10907 AF,
10908 LDAF,
10909 IPIV,
10910 B,
10911 LDB,
10912 X,
10913 LDX,
10914 FERR,
10915 BERR,
10916 WORK,
10917 IWORK,
10918 INFO);
10919 }
10920
10921 //-- dsyrfsx -------------------------------------------------------------------
10922 void
10923 LAPACK_DECL(dsyrfsx)(const char *UPLO,
10924 const char *EQUED,
10925 const INTEGER *N,
10926 const INTEGER *NRHS,
10927 const DOUBLE *A,
10928 const INTEGER *LDA,
10929 const DOUBLE *AF,
10930 const INTEGER *LDAF,
10931 const INTEGER *IPIV,
10932 DOUBLE *S,
10933 const DOUBLE *B,
10934 const INTEGER *LDB,
10935 DOUBLE *X,
10936 const INTEGER *LDX,
10937 DOUBLE *RCOND,
10938 DOUBLE *BERR,
10939 const INTEGER *N_ERR_BNDS,
10940 DOUBLE *ERR_BNDS_NORM,
10941 DOUBLE *ERR_BNDS_COMP,
10942 const INTEGER *NPARAMS,
10943 DOUBLE *PARAMS,
10944 const DOUBLE *WORK,
10945 const INTEGER *IWORK,
10946 INTEGER *INFO)
10947 {
10948 DEBUG_LAPACK_STUB("dsyrfsx");
10949 LAPACK_IMPL(dsyrfsx)(UPLO,
10950 EQUED,
10951 N,
10952 NRHS,
10953 A,
10954 LDA,
10955 AF,
10956 LDAF,
10957 IPIV,
10958 S,
10959 B,
10960 LDB,
10961 X,
10962 LDX,
10963 RCOND,
10964 BERR,
10965 N_ERR_BNDS,
10966 ERR_BNDS_NORM,
10967 ERR_BNDS_COMP,
10968 NPARAMS,
10969 PARAMS,
10970 WORK,
10971 IWORK,
10972 INFO);
10973 }
10974
10975 //-- dsysv ---------------------------------------------------------------------
10976 void
10977 LAPACK_DECL(dsysv)(const char *UPLO,
10978 const INTEGER *N,
10979 const INTEGER *NRHS,
10980 DOUBLE *A,
10981 const INTEGER *LDA,
10982 INTEGER *IPIV,
10983 DOUBLE *B,
10984 const INTEGER *LDB,
10985 DOUBLE *WORK,
10986 const INTEGER *LWORK,
10987 INTEGER *INFO)
10988 {
10989 DEBUG_LAPACK_STUB("dsysv");
10990 LAPACK_IMPL(dsysv)(UPLO,
10991 N,
10992 NRHS,
10993 A,
10994 LDA,
10995 IPIV,
10996 B,
10997 LDB,
10998 WORK,
10999 LWORK,
11000 INFO);
11001 }
11002
11003 //-- dsysvx --------------------------------------------------------------------
11004 void
11005 LAPACK_DECL(dsysvx)(const char *FACT,
11006 const char *UPLO,
11007 const INTEGER *N,
11008 const INTEGER *NRHS,
11009 const DOUBLE *A,
11010 const INTEGER *LDA,
11011 DOUBLE *AF,
11012 const INTEGER *LDAF,
11013 INTEGER *IPIV,
11014 const DOUBLE *B,
11015 const INTEGER *LDB,
11016 DOUBLE *X,
11017 const INTEGER *LDX,
11018 DOUBLE *RCOND,
11019 DOUBLE *FERR,
11020 DOUBLE *BERR,
11021 DOUBLE *WORK,
11022 const INTEGER *LWORK,
11023 const INTEGER *IWORK,
11024 INTEGER *INFO)
11025 {
11026 DEBUG_LAPACK_STUB("dsysvx");
11027 LAPACK_IMPL(dsysvx)(FACT,
11028 UPLO,
11029 N,
11030 NRHS,
11031 A,
11032 LDA,
11033 AF,
11034 LDAF,
11035 IPIV,
11036 B,
11037 LDB,
11038 X,
11039 LDX,
11040 RCOND,
11041 FERR,
11042 BERR,
11043 WORK,
11044 LWORK,
11045 IWORK,
11046 INFO);
11047 }
11048
11049 //-- dsysvxx -------------------------------------------------------------------
11050 void
11051 LAPACK_DECL(dsysvxx)(const char *FACT,
11052 const char *UPLO,
11053 const INTEGER *N,
11054 const INTEGER *NRHS,
11055 DOUBLE *A,
11056 const INTEGER *LDA,
11057 DOUBLE *AF,
11058 const INTEGER *LDAF,
11059 INTEGER *IPIV,
11060 char *EQUED,
11061 DOUBLE *S,
11062 DOUBLE *B,
11063 const INTEGER *LDB,
11064 DOUBLE *X,
11065 const INTEGER *LDX,
11066 DOUBLE *RCOND,
11067 DOUBLE *RPVGRW,
11068 DOUBLE *BERR,
11069 const INTEGER *N_ERR_BNDS,
11070 DOUBLE *ERR_BNDS_NORM,
11071 DOUBLE *ERR_BNDS_COMP,
11072 const INTEGER *NPARAMS,
11073 DOUBLE *PARAMS,
11074 const DOUBLE *WORK,
11075 const INTEGER *IWORK,
11076 INTEGER *INFO)
11077 {
11078 DEBUG_LAPACK_STUB("dsysvxx");
11079 LAPACK_IMPL(dsysvxx)(FACT,
11080 UPLO,
11081 N,
11082 NRHS,
11083 A,
11084 LDA,
11085 AF,
11086 LDAF,
11087 IPIV,
11088 EQUED,
11089 S,
11090 B,
11091 LDB,
11092 X,
11093 LDX,
11094 RCOND,
11095 RPVGRW,
11096 BERR,
11097 N_ERR_BNDS,
11098 ERR_BNDS_NORM,
11099 ERR_BNDS_COMP,
11100 NPARAMS,
11101 PARAMS,
11102 WORK,
11103 IWORK,
11104 INFO);
11105 }
11106
11107 //-- dsyswapr ------------------------------------------------------------------
11108 void
11109 LAPACK_DECL(dsyswapr)(const char *UPLO,
11110 const INTEGER *N,
11111 DOUBLE *A,
11112 const INTEGER *LDA,
11113 const INTEGER *I1,
11114 const INTEGER *I2)
11115 {
11116 DEBUG_LAPACK_STUB("dsyswapr");
11117 LAPACK_IMPL(dsyswapr)(UPLO,
11118 N,
11119 A,
11120 LDA,
11121 I1,
11122 I2);
11123 }
11124
11125 //-- dsytd2 --------------------------------------------------------------------
11126 void
11127 LAPACK_DECL(dsytd2)(const char *UPLO,
11128 const INTEGER *N,
11129 DOUBLE *A,
11130 const INTEGER *LDA,
11131 DOUBLE *D,
11132 DOUBLE *E,
11133 DOUBLE *TAU,
11134 INTEGER *INFO)
11135 {
11136 DEBUG_LAPACK_STUB("dsytd2");
11137 LAPACK_IMPL(dsytd2)(UPLO,
11138 N,
11139 A,
11140 LDA,
11141 D,
11142 E,
11143 TAU,
11144 INFO);
11145 }
11146
11147 //-- dsytf2 --------------------------------------------------------------------
11148 void
11149 LAPACK_DECL(dsytf2)(const char *UPLO,
11150 const INTEGER *N,
11151 DOUBLE *A,
11152 const INTEGER *LDA,
11153 INTEGER *IPIV,
11154 INTEGER *INFO)
11155 {
11156 DEBUG_LAPACK_STUB("dsytf2");
11157 LAPACK_IMPL(dsytf2)(UPLO,
11158 N,
11159 A,
11160 LDA,
11161 IPIV,
11162 INFO);
11163 }
11164
11165 //-- dsytrd --------------------------------------------------------------------
11166 void
11167 LAPACK_DECL(dsytrd)(const char *UPLO,
11168 const INTEGER *N,
11169 DOUBLE *A,
11170 const INTEGER *LDA,
11171 DOUBLE *D,
11172 DOUBLE *E,
11173 DOUBLE *TAU,
11174 DOUBLE *WORK,
11175 const INTEGER *LWORK,
11176 INTEGER *INFO)
11177 {
11178 DEBUG_LAPACK_STUB("dsytrd");
11179 LAPACK_IMPL(dsytrd)(UPLO,
11180 N,
11181 A,
11182 LDA,
11183 D,
11184 E,
11185 TAU,
11186 WORK,
11187 LWORK,
11188 INFO);
11189 }
11190
11191 //-- dsytrf --------------------------------------------------------------------
11192 void
11193 LAPACK_DECL(dsytrf)(const char *UPLO,
11194 const INTEGER *N,
11195 DOUBLE *A,
11196 const INTEGER *LDA,
11197 INTEGER *IPIV,
11198 DOUBLE *WORK,
11199 const INTEGER *LWORK,
11200 INTEGER *INFO)
11201 {
11202 DEBUG_LAPACK_STUB("dsytrf");
11203 LAPACK_IMPL(dsytrf)(UPLO,
11204 N,
11205 A,
11206 LDA,
11207 IPIV,
11208 WORK,
11209 LWORK,
11210 INFO);
11211 }
11212
11213 //-- dsytri --------------------------------------------------------------------
11214 void
11215 LAPACK_DECL(dsytri)(const char *UPLO,
11216 const INTEGER *N,
11217 DOUBLE *A,
11218 const INTEGER *LDA,
11219 const INTEGER *IPIV,
11220 const DOUBLE *WORK,
11221 INTEGER *INFO)
11222 {
11223 DEBUG_LAPACK_STUB("dsytri");
11224 LAPACK_IMPL(dsytri)(UPLO,
11225 N,
11226 A,
11227 LDA,
11228 IPIV,
11229 WORK,
11230 INFO);
11231 }
11232
11233 //-- dsytri2 -------------------------------------------------------------------
11234 void
11235 LAPACK_DECL(dsytri2)(const char *UPLO,
11236 const INTEGER *N,
11237 DOUBLE *A,
11238 const INTEGER *LDA,
11239 const INTEGER *IPIV,
11240 const DOUBLE *WORK,
11241 const INTEGER *LWORK,
11242 INTEGER *INFO)
11243 {
11244 DEBUG_LAPACK_STUB("dsytri2");
11245 LAPACK_IMPL(dsytri2)(UPLO,
11246 N,
11247 A,
11248 LDA,
11249 IPIV,
11250 WORK,
11251 LWORK,
11252 INFO);
11253 }
11254
11255 //-- dsytri2x ------------------------------------------------------------------
11256 void
11257 LAPACK_DECL(dsytri2x)(const char *UPLO,
11258 const INTEGER *N,
11259 DOUBLE *A,
11260 const INTEGER *LDA,
11261 const INTEGER *IPIV,
11262 const DOUBLE *WORK,
11263 const INTEGER *NB,
11264 INTEGER *INFO)
11265 {
11266 DEBUG_LAPACK_STUB("dsytri2x");
11267 LAPACK_IMPL(dsytri2x)(UPLO,
11268 N,
11269 A,
11270 LDA,
11271 IPIV,
11272 WORK,
11273 NB,
11274 INFO);
11275 }
11276
11277 //-- dsytrs --------------------------------------------------------------------
11278 void
11279 LAPACK_DECL(dsytrs)(const char *UPLO,
11280 const INTEGER *N,
11281 const INTEGER *NRHS,
11282 const DOUBLE *A,
11283 const INTEGER *LDA,
11284 const INTEGER *IPIV,
11285 DOUBLE *B,
11286 const INTEGER *LDB,
11287 INTEGER *INFO)
11288 {
11289 DEBUG_LAPACK_STUB("dsytrs");
11290 LAPACK_IMPL(dsytrs)(UPLO,
11291 N,
11292 NRHS,
11293 A,
11294 LDA,
11295 IPIV,
11296 B,
11297 LDB,
11298 INFO);
11299 }
11300
11301 //-- dsytrs2 -------------------------------------------------------------------
11302 void
11303 LAPACK_DECL(dsytrs2)(const char *UPLO,
11304 const INTEGER *N,
11305 const INTEGER *NRHS,
11306 const DOUBLE *A,
11307 const INTEGER *LDA,
11308 const INTEGER *IPIV,
11309 DOUBLE *B,
11310 const INTEGER *LDB,
11311 const DOUBLE *WORK,
11312 INTEGER *INFO)
11313 {
11314 DEBUG_LAPACK_STUB("dsytrs2");
11315 LAPACK_IMPL(dsytrs2)(UPLO,
11316 N,
11317 NRHS,
11318 A,
11319 LDA,
11320 IPIV,
11321 B,
11322 LDB,
11323 WORK,
11324 INFO);
11325 }
11326
11327 //-- dtbcon --------------------------------------------------------------------
11328 void
11329 LAPACK_DECL(dtbcon)(const char *NORM,
11330 const char *UPLO,
11331 const char *DIAG,
11332 const INTEGER *N,
11333 const INTEGER *KD,
11334 const DOUBLE *AB,
11335 const INTEGER *LDAB,
11336 DOUBLE *RCOND,
11337 const DOUBLE *WORK,
11338 const INTEGER *IWORK,
11339 INTEGER *INFO)
11340 {
11341 DEBUG_LAPACK_STUB("dtbcon");
11342 LAPACK_IMPL(dtbcon)(NORM,
11343 UPLO,
11344 DIAG,
11345 N,
11346 KD,
11347 AB,
11348 LDAB,
11349 RCOND,
11350 WORK,
11351 IWORK,
11352 INFO);
11353 }
11354
11355 //-- dtbrfs --------------------------------------------------------------------
11356 void
11357 LAPACK_DECL(dtbrfs)(const char *UPLO,
11358 const char *TRANS,
11359 const char *DIAG,
11360 const INTEGER *N,
11361 const INTEGER *KD,
11362 const INTEGER *NRHS,
11363 const DOUBLE *AB,
11364 const INTEGER *LDAB,
11365 const DOUBLE *B,
11366 const INTEGER *LDB,
11367 const DOUBLE *X,
11368 const INTEGER *LDX,
11369 DOUBLE *FERR,
11370 DOUBLE *BERR,
11371 const DOUBLE *WORK,
11372 const INTEGER *IWORK,
11373 INTEGER *INFO)
11374 {
11375 DEBUG_LAPACK_STUB("dtbrfs");
11376 LAPACK_IMPL(dtbrfs)(UPLO,
11377 TRANS,
11378 DIAG,
11379 N,
11380 KD,
11381 NRHS,
11382 AB,
11383 LDAB,
11384 B,
11385 LDB,
11386 X,
11387 LDX,
11388 FERR,
11389 BERR,
11390 WORK,
11391 IWORK,
11392 INFO);
11393 }
11394
11395 //-- dtbtrs --------------------------------------------------------------------
11396 void
11397 LAPACK_DECL(dtbtrs)(const char *UPLO,
11398 const char *TRANS,
11399 const char *DIAG,
11400 const INTEGER *N,
11401 const INTEGER *KD,
11402 const INTEGER *NRHS,
11403 const DOUBLE *AB,
11404 const INTEGER *LDAB,
11405 DOUBLE *B,
11406 const INTEGER *LDB,
11407 INTEGER *INFO)
11408 {
11409 DEBUG_LAPACK_STUB("dtbtrs");
11410 LAPACK_IMPL(dtbtrs)(UPLO,
11411 TRANS,
11412 DIAG,
11413 N,
11414 KD,
11415 NRHS,
11416 AB,
11417 LDAB,
11418 B,
11419 LDB,
11420 INFO);
11421 }
11422
11423 //-- dtfsm ---------------------------------------------------------------------
11424 void
11425 LAPACK_DECL(dtfsm)(const char *TRANSR,
11426 const char *SIDE,
11427 const char *UPLO,
11428 const char *TRANS,
11429 const char *DIAG,
11430 const INTEGER *M,
11431 const INTEGER *N,
11432 const DOUBLE *ALPHA,
11433 const DOUBLE *A,
11434 DOUBLE *B,
11435 const INTEGER *LDB)
11436 {
11437 DEBUG_LAPACK_STUB("dtfsm");
11438 LAPACK_IMPL(dtfsm)(TRANSR,
11439 SIDE,
11440 UPLO,
11441 TRANS,
11442 DIAG,
11443 M,
11444 N,
11445 ALPHA,
11446 A,
11447 B,
11448 LDB);
11449 }
11450
11451 //-- dtftri --------------------------------------------------------------------
11452 void
11453 LAPACK_DECL(dtftri)(const char *TRANSR,
11454 const char *UPLO,
11455 const char *DIAG,
11456 const INTEGER *N,
11457 DOUBLE *A,
11458 INTEGER *INFO)
11459 {
11460 DEBUG_LAPACK_STUB("dtftri");
11461 LAPACK_IMPL(dtftri)(TRANSR,
11462 UPLO,
11463 DIAG,
11464 N,
11465 A,
11466 INFO);
11467 }
11468
11469 //-- dtfttp --------------------------------------------------------------------
11470 void
11471 LAPACK_DECL(dtfttp)(const char *TRANSR,
11472 const char *UPLO,
11473 const INTEGER *N,
11474 const DOUBLE *ARF,
11475 DOUBLE *AP,
11476 INTEGER *INFO)
11477 {
11478 DEBUG_LAPACK_STUB("dtfttp");
11479 LAPACK_IMPL(dtfttp)(TRANSR,
11480 UPLO,
11481 N,
11482 ARF,
11483 AP,
11484 INFO);
11485 }
11486
11487 //-- dtfttr --------------------------------------------------------------------
11488 void
11489 LAPACK_DECL(dtfttr)(const char *TRANSR,
11490 const char *UPLO,
11491 const INTEGER *N,
11492 const DOUBLE *ARF,
11493 DOUBLE *A,
11494 const INTEGER *LDA,
11495 INTEGER *INFO)
11496 {
11497 DEBUG_LAPACK_STUB("dtfttr");
11498 LAPACK_IMPL(dtfttr)(TRANSR,
11499 UPLO,
11500 N,
11501 ARF,
11502 A,
11503 LDA,
11504 INFO);
11505 }
11506
11507 //-- dtgevc --------------------------------------------------------------------
11508 void
11509 LAPACK_DECL(dtgevc)(const char *SIDE,
11510 const char *HOWMNY,
11511 const LOGICAL *SELECT,
11512 const INTEGER *N,
11513 const DOUBLE *S,
11514 const INTEGER *LDS,
11515 const DOUBLE *P,
11516 const INTEGER *LDP,
11517 DOUBLE *VL,
11518 const INTEGER *LDVL,
11519 DOUBLE *VR,
11520 const INTEGER *LDVR,
11521 const INTEGER *MM,
11522 INTEGER *M,
11523 const DOUBLE *WORK,
11524 INTEGER *INFO)
11525 {
11526 DEBUG_LAPACK_STUB("dtgevc");
11527 LAPACK_IMPL(dtgevc)(SIDE,
11528 HOWMNY,
11529 SELECT,
11530 N,
11531 S,
11532 LDS,
11533 P,
11534 LDP,
11535 VL,
11536 LDVL,
11537 VR,
11538 LDVR,
11539 MM,
11540 M,
11541 WORK,
11542 INFO);
11543 }
11544
11545 //-- dtgex2 --------------------------------------------------------------------
11546 void
11547 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
11548 const LOGICAL *WANTZ,
11549 const INTEGER *N,
11550 DOUBLE *A,
11551 const INTEGER *LDA,
11552 DOUBLE *B,
11553 const INTEGER *LDB,
11554 DOUBLE *Q,
11555 const INTEGER *LDQ,
11556 DOUBLE *Z,
11557 const INTEGER *LDZ,
11558 const INTEGER *J1,
11559 const INTEGER *N1,
11560 const INTEGER *N2,
11561 const DOUBLE *WORK,
11562 const INTEGER *LWORK,
11563 INTEGER *INFO)
11564 {
11565 DEBUG_LAPACK_STUB("dtgex2");
11566 LAPACK_IMPL(dtgex2)(WANTQ,
11567 WANTZ,
11568 N,
11569 A,
11570 LDA,
11571 B,
11572 LDB,
11573 Q,
11574 LDQ,
11575 Z,
11576 LDZ,
11577 J1,
11578 N1,
11579 N2,
11580 WORK,
11581 LWORK,
11582 INFO);
11583 }
11584
11585 //-- dtgexc --------------------------------------------------------------------
11586 void
11587 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
11588 const LOGICAL *WANTZ,
11589 const INTEGER *N,
11590 DOUBLE *A,
11591 const INTEGER *LDA,
11592 DOUBLE *B,
11593 const INTEGER *LDB,
11594 DOUBLE *Q,
11595 const INTEGER *LDQ,
11596 DOUBLE *Z,
11597 const INTEGER *LDZ,
11598 INTEGER *IFST,
11599 INTEGER *ILST,
11600 DOUBLE *WORK,
11601 const INTEGER *LWORK,
11602 INTEGER *INFO)
11603 {
11604 DEBUG_LAPACK_STUB("dtgexc");
11605 LAPACK_IMPL(dtgexc)(WANTQ,
11606 WANTZ,
11607 N,
11608 A,
11609 LDA,
11610 B,
11611 LDB,
11612 Q,
11613 LDQ,
11614 Z,
11615 LDZ,
11616 IFST,
11617 ILST,
11618 WORK,
11619 LWORK,
11620 INFO);
11621 }
11622
11623 //-- dtgsen --------------------------------------------------------------------
11624 void
11625 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
11626 const LOGICAL *WANTQ,
11627 const LOGICAL *WANTZ,
11628 const LOGICAL *SELECT,
11629 const INTEGER *N,
11630 DOUBLE *A,
11631 const INTEGER *LDA,
11632 DOUBLE *B,
11633 const INTEGER *LDB,
11634 DOUBLE *ALPHAR,
11635 DOUBLE *ALPHAI,
11636 DOUBLE *BETA,
11637 DOUBLE *Q,
11638 const INTEGER *LDQ,
11639 DOUBLE *Z,
11640 const INTEGER *LDZ,
11641 INTEGER *M,
11642 DOUBLE *PL,
11643 DOUBLE *PR,
11644 DOUBLE *DIF,
11645 DOUBLE *WORK,
11646 const INTEGER *LWORK,
11647 INTEGER *IWORK,
11648 const INTEGER *LIWORK,
11649 INTEGER *INFO)
11650 {
11651 DEBUG_LAPACK_STUB("dtgsen");
11652 LAPACK_IMPL(dtgsen)(IJOB,
11653 WANTQ,
11654 WANTZ,
11655 SELECT,
11656 N,
11657 A,
11658 LDA,
11659 B,
11660 LDB,
11661 ALPHAR,
11662 ALPHAI,
11663 BETA,
11664 Q,
11665 LDQ,
11666 Z,
11667 LDZ,
11668 M,
11669 PL,
11670 PR,
11671 DIF,
11672 WORK,
11673 LWORK,
11674 IWORK,
11675 LIWORK,
11676 INFO);
11677 }
11678
11679 //-- dtgsja --------------------------------------------------------------------
11680 void
11681 LAPACK_DECL(dtgsja)(const char *JOBU,
11682 const char *JOBV,
11683 const char *JOBQ,
11684 const INTEGER *M,
11685 const INTEGER *P,
11686 const INTEGER *N,
11687 const INTEGER *K,
11688 const INTEGER *L,
11689 DOUBLE *A,
11690 const INTEGER *LDA,
11691 DOUBLE *B,
11692 const INTEGER *LDB,
11693 const DOUBLE *TOLA,
11694 const DOUBLE *TOLB,
11695 DOUBLE *ALPHA,
11696 DOUBLE *BETA,
11697 DOUBLE *U,
11698 const INTEGER *LDU,
11699 DOUBLE *V,
11700 const INTEGER *LDV,
11701 DOUBLE *Q,
11702 const INTEGER *LDQ,
11703 const DOUBLE *WORK,
11704 INTEGER *NCYCLE,
11705 INTEGER *INFO)
11706 {
11707 DEBUG_LAPACK_STUB("dtgsja");
11708 LAPACK_IMPL(dtgsja)(JOBU,
11709 JOBV,
11710 JOBQ,
11711 M,
11712 P,
11713 N,
11714 K,
11715 L,
11716 A,
11717 LDA,
11718 B,
11719 LDB,
11720 TOLA,
11721 TOLB,
11722 ALPHA,
11723 BETA,
11724 U,
11725 LDU,
11726 V,
11727 LDV,
11728 Q,
11729 LDQ,
11730 WORK,
11731 NCYCLE,
11732 INFO);
11733 }
11734
11735 //-- dtgsna --------------------------------------------------------------------
11736 void
11737 LAPACK_DECL(dtgsna)(const char *JOB,
11738 const char *HOWMNY,
11739 const LOGICAL *SELECT,
11740 const INTEGER *N,
11741 const DOUBLE *A,
11742 const INTEGER *LDA,
11743 const DOUBLE *B,
11744 const INTEGER *LDB,
11745 const DOUBLE *VL,
11746 const INTEGER *LDVL,
11747 const DOUBLE *VR,
11748 const INTEGER *LDVR,
11749 DOUBLE *S,
11750 DOUBLE *DIF,
11751 const INTEGER *MM,
11752 INTEGER *M,
11753 DOUBLE *WORK,
11754 const INTEGER *LWORK,
11755 const INTEGER *IWORK,
11756 INTEGER *INFO)
11757 {
11758 DEBUG_LAPACK_STUB("dtgsna");
11759 LAPACK_IMPL(dtgsna)(JOB,
11760 HOWMNY,
11761 SELECT,
11762 N,
11763 A,
11764 LDA,
11765 B,
11766 LDB,
11767 VL,
11768 LDVL,
11769 VR,
11770 LDVR,
11771 S,
11772 DIF,
11773 MM,
11774 M,
11775 WORK,
11776 LWORK,
11777 IWORK,
11778 INFO);
11779 }
11780
11781 //-- dtgsy2 --------------------------------------------------------------------
11782 void
11783 LAPACK_DECL(dtgsy2)(const char *TRANS,
11784 const INTEGER *IJOB,
11785 const INTEGER *M,
11786 const INTEGER *N,
11787 const DOUBLE *A,
11788 const INTEGER *LDA,
11789 const DOUBLE *B,
11790 const INTEGER *LDB,
11791 DOUBLE *C,
11792 const INTEGER *LDC,
11793 const DOUBLE *D,
11794 const INTEGER *LDD,
11795 const DOUBLE *E,
11796 const INTEGER *LDE,
11797 DOUBLE *F,
11798 const INTEGER *LDF,
11799 DOUBLE *SCALE,
11800 DOUBLE *RDSUM,
11801 DOUBLE *RDSCAL,
11802 const INTEGER *IWORK,
11803 INTEGER *PQ,
11804 INTEGER *INFO)
11805 {
11806 DEBUG_LAPACK_STUB("dtgsy2");
11807 LAPACK_IMPL(dtgsy2)(TRANS,
11808 IJOB,
11809 M,
11810 N,
11811 A,
11812 LDA,
11813 B,
11814 LDB,
11815 C,
11816 LDC,
11817 D,
11818 LDD,
11819 E,
11820 LDE,
11821 F,
11822 LDF,
11823 SCALE,
11824 RDSUM,
11825 RDSCAL,
11826 IWORK,
11827 PQ,
11828 INFO);
11829 }
11830
11831 //-- dtgsyl --------------------------------------------------------------------
11832 void
11833 LAPACK_DECL(dtgsyl)(const char *TRANS,
11834 const INTEGER *IJOB,
11835 const INTEGER *M,
11836 const INTEGER *N,
11837 const DOUBLE *A,
11838 const INTEGER *LDA,
11839 const DOUBLE *B,
11840 const INTEGER *LDB,
11841 DOUBLE *C,
11842 const INTEGER *LDC,
11843 const DOUBLE *D,
11844 const INTEGER *LDD,
11845 const DOUBLE *E,
11846 const INTEGER *LDE,
11847 DOUBLE *F,
11848 const INTEGER *LDF,
11849 DOUBLE *SCALE,
11850 DOUBLE *DIF,
11851 DOUBLE *WORK,
11852 const INTEGER *LWORK,
11853 const INTEGER *IWORK,
11854 INTEGER *INFO)
11855 {
11856 DEBUG_LAPACK_STUB("dtgsyl");
11857 LAPACK_IMPL(dtgsyl)(TRANS,
11858 IJOB,
11859 M,
11860 N,
11861 A,
11862 LDA,
11863 B,
11864 LDB,
11865 C,
11866 LDC,
11867 D,
11868 LDD,
11869 E,
11870 LDE,
11871 F,
11872 LDF,
11873 SCALE,
11874 DIF,
11875 WORK,
11876 LWORK,
11877 IWORK,
11878 INFO);
11879 }
11880
11881 //-- dtpcon --------------------------------------------------------------------
11882 void
11883 LAPACK_DECL(dtpcon)(const char *NORM,
11884 const char *UPLO,
11885 const char *DIAG,
11886 const INTEGER *N,
11887 const DOUBLE *AP,
11888 DOUBLE *RCOND,
11889 const DOUBLE *WORK,
11890 const INTEGER *IWORK,
11891 INTEGER *INFO)
11892 {
11893 DEBUG_LAPACK_STUB("dtpcon");
11894 LAPACK_IMPL(dtpcon)(NORM,
11895 UPLO,
11896 DIAG,
11897 N,
11898 AP,
11899 RCOND,
11900 WORK,
11901 IWORK,
11902 INFO);
11903 }
11904
11905 //-- dtprfs --------------------------------------------------------------------
11906 void
11907 LAPACK_DECL(dtprfs)(const char *UPLO,
11908 const char *TRANS,
11909 const char *DIAG,
11910 const INTEGER *N,
11911 const INTEGER *NRHS,
11912 const DOUBLE *AP,
11913 const DOUBLE *B,
11914 const INTEGER *LDB,
11915 const DOUBLE *X,
11916 const INTEGER *LDX,
11917 DOUBLE *FERR,
11918 DOUBLE *BERR,
11919 const DOUBLE *WORK,
11920 const INTEGER *IWORK,
11921 INTEGER *INFO)
11922 {
11923 DEBUG_LAPACK_STUB("dtprfs");
11924 LAPACK_IMPL(dtprfs)(UPLO,
11925 TRANS,
11926 DIAG,
11927 N,
11928 NRHS,
11929 AP,
11930 B,
11931 LDB,
11932 X,
11933 LDX,
11934 FERR,
11935 BERR,
11936 WORK,
11937 IWORK,
11938 INFO);
11939 }
11940
11941 //-- dtptri --------------------------------------------------------------------
11942 void
11943 LAPACK_DECL(dtptri)(const char *UPLO,
11944 const char *DIAG,
11945 const INTEGER *N,
11946 DOUBLE *AP,
11947 INTEGER *INFO)
11948 {
11949 DEBUG_LAPACK_STUB("dtptri");
11950 LAPACK_IMPL(dtptri)(UPLO,
11951 DIAG,
11952 N,
11953 AP,
11954 INFO);
11955 }
11956
11957 //-- dtptrs --------------------------------------------------------------------
11958 void
11959 LAPACK_DECL(dtptrs)(const char *UPLO,
11960 const char *TRANS,
11961 const char *DIAG,
11962 const INTEGER *N,
11963 const INTEGER *NRHS,
11964 const DOUBLE *AP,
11965 DOUBLE *B,
11966 const INTEGER *LDB,
11967 INTEGER *INFO)
11968 {
11969 DEBUG_LAPACK_STUB("dtptrs");
11970 LAPACK_IMPL(dtptrs)(UPLO,
11971 TRANS,
11972 DIAG,
11973 N,
11974 NRHS,
11975 AP,
11976 B,
11977 LDB,
11978 INFO);
11979 }
11980
11981 //-- dtpttf --------------------------------------------------------------------
11982 void
11983 LAPACK_DECL(dtpttf)(const char *TRANSR,
11984 const char *UPLO,
11985 const INTEGER *N,
11986 const DOUBLE *AP,
11987 DOUBLE *ARF,
11988 INTEGER *INFO)
11989 {
11990 DEBUG_LAPACK_STUB("dtpttf");
11991 LAPACK_IMPL(dtpttf)(TRANSR,
11992 UPLO,
11993 N,
11994 AP,
11995 ARF,
11996 INFO);
11997 }
11998
11999 //-- dtpttr --------------------------------------------------------------------
12000 void
12001 LAPACK_DECL(dtpttr)(const char *UPLO,
12002 const INTEGER *N,
12003 const DOUBLE *AP,
12004 DOUBLE *A,
12005 const INTEGER *LDA,
12006 INTEGER *INFO)
12007 {
12008 DEBUG_LAPACK_STUB("dtpttr");
12009 LAPACK_IMPL(dtpttr)(UPLO,
12010 N,
12011 AP,
12012 A,
12013 LDA,
12014 INFO);
12015 }
12016
12017 //-- dtrcon --------------------------------------------------------------------
12018 void
12019 LAPACK_DECL(dtrcon)(const char *NORM,
12020 const char *UPLO,
12021 const char *DIAG,
12022 const INTEGER *N,
12023 const DOUBLE *A,
12024 const INTEGER *LDA,
12025 DOUBLE *RCOND,
12026 const DOUBLE *WORK,
12027 const INTEGER *IWORK,
12028 INTEGER *INFO)
12029 {
12030 DEBUG_LAPACK_STUB("dtrcon");
12031 LAPACK_IMPL(dtrcon)(NORM,
12032 UPLO,
12033 DIAG,
12034 N,
12035 A,
12036 LDA,
12037 RCOND,
12038 WORK,
12039 IWORK,
12040 INFO);
12041 }
12042
12043 //-- dtrevc --------------------------------------------------------------------
12044 void
12045 LAPACK_DECL(dtrevc)(const char *SIDE,
12046 const char *HOWMNY,
12047 LOGICAL *SELECT,
12048 const INTEGER *N,
12049 const DOUBLE *T,
12050 const INTEGER *LDT,
12051 DOUBLE *VL,
12052 const INTEGER *LDVL,
12053 DOUBLE *VR,
12054 const INTEGER *LDVR,
12055 const INTEGER *MM,
12056 INTEGER *M,
12057 const DOUBLE *WORK,
12058 INTEGER *INFO)
12059 {
12060 DEBUG_LAPACK_STUB("dtrevc");
12061 LAPACK_IMPL(dtrevc)(SIDE,
12062 HOWMNY,
12063 SELECT,
12064 N,
12065 T,
12066 LDT,
12067 VL,
12068 LDVL,
12069 VR,
12070 LDVR,
12071 MM,
12072 M,
12073 WORK,
12074 INFO);
12075 }
12076
12077 //-- dtrexc --------------------------------------------------------------------
12078 void
12079 LAPACK_DECL(dtrexc)(const char *COMPQ,
12080 const INTEGER *N,
12081 DOUBLE *T,
12082 const INTEGER *LDT,
12083 DOUBLE *Q,
12084 const INTEGER *LDQ,
12085 INTEGER *IFST,
12086 INTEGER *ILST,
12087 const DOUBLE *WORK,
12088 INTEGER *INFO)
12089 {
12090 DEBUG_LAPACK_STUB("dtrexc");
12091 LAPACK_IMPL(dtrexc)(COMPQ,
12092 N,
12093 T,
12094 LDT,
12095 Q,
12096 LDQ,
12097 IFST,
12098 ILST,
12099 WORK,
12100 INFO);
12101 }
12102
12103 //-- dtrrfs --------------------------------------------------------------------
12104 void
12105 LAPACK_DECL(dtrrfs)(const char *UPLO,
12106 const char *TRANS,
12107 const char *DIAG,
12108 const INTEGER *N,
12109 const INTEGER *NRHS,
12110 const DOUBLE *A,
12111 const INTEGER *LDA,
12112 const DOUBLE *B,
12113 const INTEGER *LDB,
12114 const DOUBLE *X,
12115 const INTEGER *LDX,
12116 DOUBLE *FERR,
12117 DOUBLE *BERR,
12118 const DOUBLE *WORK,
12119 const INTEGER *IWORK,
12120 INTEGER *INFO)
12121 {
12122 DEBUG_LAPACK_STUB("dtrrfs");
12123 LAPACK_IMPL(dtrrfs)(UPLO,
12124 TRANS,
12125 DIAG,
12126 N,
12127 NRHS,
12128 A,
12129 LDA,
12130 B,
12131 LDB,
12132 X,
12133 LDX,
12134 FERR,
12135 BERR,
12136 WORK,
12137 IWORK,
12138 INFO);
12139 }
12140
12141 //-- dtrsen --------------------------------------------------------------------
12142 void
12143 LAPACK_DECL(dtrsen)(const char *JOB,
12144 const char *COMPQ,
12145 const LOGICAL *SELECT,
12146 const INTEGER *N,
12147 DOUBLE *T,
12148 const INTEGER *LDT,
12149 DOUBLE *Q,
12150 const INTEGER *LDQ,
12151 DOUBLE *WR,
12152 DOUBLE *WI,
12153 INTEGER *M,
12154 DOUBLE *S,
12155 DOUBLE *SEP,
12156 DOUBLE *WORK,
12157 const INTEGER *LWORK,
12158 const INTEGER *IWORK,
12159 const INTEGER *LIWORK,
12160 INTEGER *INFO)
12161 {
12162 DEBUG_LAPACK_STUB("dtrsen");
12163 LAPACK_IMPL(dtrsen)(JOB,
12164 COMPQ,
12165 SELECT,
12166 N,
12167 T,
12168 LDT,
12169 Q,
12170 LDQ,
12171 WR,
12172 WI,
12173 M,
12174 S,
12175 SEP,
12176 WORK,
12177 LWORK,
12178 IWORK,
12179 LIWORK,
12180 INFO);
12181 }
12182
12183 //-- dtrsna --------------------------------------------------------------------
12184 void
12185 LAPACK_DECL(dtrsna)(const char *JOB,
12186 const char *HOWMNY,
12187 const LOGICAL *SELECT,
12188 const INTEGER *N,
12189 const DOUBLE *T,
12190 const INTEGER *LDT,
12191 const DOUBLE *VL,
12192 const INTEGER *LDVL,
12193 const DOUBLE *VR,
12194 const INTEGER *LDVR,
12195 DOUBLE *S,
12196 DOUBLE *SEP,
12197 const INTEGER *MM,
12198 INTEGER *M,
12199 const DOUBLE *WORK,
12200 const INTEGER *LDWORK,
12201 const INTEGER *IWORK,
12202 INTEGER *INFO)
12203 {
12204 DEBUG_LAPACK_STUB("dtrsna");
12205 LAPACK_IMPL(dtrsna)(JOB,
12206 HOWMNY,
12207 SELECT,
12208 N,
12209 T,
12210 LDT,
12211 VL,
12212 LDVL,
12213 VR,
12214 LDVR,
12215 S,
12216 SEP,
12217 MM,
12218 M,
12219 WORK,
12220 LDWORK,
12221 IWORK,
12222 INFO);
12223 }
12224
12225 //-- dtrsyl --------------------------------------------------------------------
12226 void
12227 LAPACK_DECL(dtrsyl)(const char *TRANA,
12228 const char *TRANB,
12229 const INTEGER *ISGN,
12230 const INTEGER *M,
12231 const INTEGER *N,
12232 const DOUBLE *A,
12233 const INTEGER *LDA,
12234 const DOUBLE *B,
12235 const INTEGER *LDB,
12236 DOUBLE *C,
12237 const INTEGER *LDC,
12238 DOUBLE *SCALE,
12239 INTEGER *INFO)
12240 {
12241 DEBUG_LAPACK_STUB("dtrsyl");
12242 LAPACK_IMPL(dtrsyl)(TRANA,
12243 TRANB,
12244 ISGN,
12245 M,
12246 N,
12247 A,
12248 LDA,
12249 B,
12250 LDB,
12251 C,
12252 LDC,
12253 SCALE,
12254 INFO);
12255 }
12256
12257 //-- dtrti2 --------------------------------------------------------------------
12258 void
12259 LAPACK_DECL(dtrti2)(const char *UPLO,
12260 const char *DIAG,
12261 const INTEGER *N,
12262 DOUBLE *A,
12263 const INTEGER *LDA,
12264 INTEGER *INFO)
12265 {
12266 DEBUG_LAPACK_STUB("dtrti2");
12267 LAPACK_IMPL(dtrti2)(UPLO,
12268 DIAG,
12269 N,
12270 A,
12271 LDA,
12272 INFO);
12273 }
12274
12275 //-- dtrtri --------------------------------------------------------------------
12276 void
12277 LAPACK_DECL(dtrtri)(const char *UPLO,
12278 const char *DIAG,
12279 const INTEGER *N,
12280 DOUBLE *A,
12281 const INTEGER *LDA,
12282 INTEGER *INFO)
12283 {
12284 DEBUG_LAPACK_STUB("dtrtri");
12285 LAPACK_IMPL(dtrtri)(UPLO,
12286 DIAG,
12287 N,
12288 A,
12289 LDA,
12290 INFO);
12291 }
12292
12293 //-- dtrtrs --------------------------------------------------------------------
12294 void
12295 LAPACK_DECL(dtrtrs)(const char *UPLO,
12296 const char *TRANS,
12297 const char *DIAG,
12298 const INTEGER *N,
12299 const INTEGER *NRHS,
12300 const DOUBLE *A,
12301 const INTEGER *LDA,
12302 DOUBLE *B,
12303 const INTEGER *LDB,
12304 INTEGER *INFO)
12305 {
12306 DEBUG_LAPACK_STUB("dtrtrs");
12307 LAPACK_IMPL(dtrtrs)(UPLO,
12308 TRANS,
12309 DIAG,
12310 N,
12311 NRHS,
12312 A,
12313 LDA,
12314 B,
12315 LDB,
12316 INFO);
12317 }
12318
12319 //-- dtrttf --------------------------------------------------------------------
12320 void
12321 LAPACK_DECL(dtrttf)(const char *TRANSR,
12322 const char *UPLO,
12323 const INTEGER *N,
12324 const DOUBLE *A,
12325 const INTEGER *LDA,
12326 DOUBLE *ARF,
12327 INTEGER *INFO)
12328 {
12329 DEBUG_LAPACK_STUB("dtrttf");
12330 LAPACK_IMPL(dtrttf)(TRANSR,
12331 UPLO,
12332 N,
12333 A,
12334 LDA,
12335 ARF,
12336 INFO);
12337 }
12338
12339 //-- dtrttp --------------------------------------------------------------------
12340 void
12341 LAPACK_DECL(dtrttp)(const char *UPLO,
12342 const INTEGER *N,
12343 const DOUBLE *A,
12344 const INTEGER *LDA,
12345 DOUBLE *AP,
12346 INTEGER *INFO)
12347 {
12348 DEBUG_LAPACK_STUB("dtrttp");
12349 LAPACK_IMPL(dtrttp)(UPLO,
12350 N,
12351 A,
12352 LDA,
12353 AP,
12354 INFO);
12355 }
12356
12357 //-- dtzrqf --------------------------------------------------------------------
12358 void
12359 LAPACK_DECL(dtzrqf)(const INTEGER *M,
12360 const INTEGER *N,
12361 DOUBLE *A,
12362 const INTEGER *LDA,
12363 DOUBLE *TAU,
12364 INTEGER *INFO)
12365 {
12366 DEBUG_LAPACK_STUB("dtzrqf");
12367 LAPACK_IMPL(dtzrqf)(M,
12368 N,
12369 A,
12370 LDA,
12371 TAU,
12372 INFO);
12373 }
12374
12375 //-- dtzrzf --------------------------------------------------------------------
12376 void
12377 LAPACK_DECL(dtzrzf)(const INTEGER *M,
12378 const INTEGER *N,
12379 DOUBLE *A,
12380 const INTEGER *LDA,
12381 DOUBLE *TAU,
12382 DOUBLE *WORK,
12383 const INTEGER *LWORK,
12384 INTEGER *INFO)
12385 {
12386 DEBUG_LAPACK_STUB("dtzrzf");
12387 LAPACK_IMPL(dtzrzf)(M,
12388 N,
12389 A,
12390 LDA,
12391 TAU,
12392 WORK,
12393 LWORK,
12394 INFO);
12395 }
12396
12397 //-- dzsum1 --------------------------------------------------------------------
12398 DOUBLE
12399 LAPACK_DECL(dzsum1)(const INTEGER *N,
12400 const DOUBLE_COMPLEX *CX,
12401 const INTEGER *INCX)
12402 {
12403 DEBUG_LAPACK_STUB("dzsum1");
12404 return LAPACK_IMPL(dzsum1)(N,
12405 CX,
12406 INCX);
12407 }
12408
12409 //-- ieeeck --------------------------------------------------------------------
12410 INTEGER
12411 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
12412 const FLOAT *ZERO,
12413 const FLOAT *ONE)
12414 {
12415 DEBUG_LAPACK_STUB("ieeeck");
12416 return LAPACK_IMPL(ieeeck)(ISPEC,
12417 ZERO,
12418 ONE);
12419 }
12420
12421 //-- iladlc --------------------------------------------------------------------
12422 INTEGER
12423 LAPACK_DECL(iladlc)(const INTEGER *M,
12424 const INTEGER *N,
12425 const DOUBLE *A,
12426 const INTEGER *LDA)
12427 {
12428 DEBUG_LAPACK_STUB("iladlc");
12429 return LAPACK_IMPL(iladlc)(M,
12430 N,
12431 A,
12432 LDA);
12433 }
12434
12435 //-- iladlr --------------------------------------------------------------------
12436 INTEGER
12437 LAPACK_DECL(iladlr)(const INTEGER *M,
12438 const INTEGER *N,
12439 const DOUBLE *A,
12440 const INTEGER *LDA)
12441 {
12442 DEBUG_LAPACK_STUB("iladlr");
12443 return LAPACK_IMPL(iladlr)(M,
12444 N,
12445 A,
12446 LDA);
12447 }
12448
12449 //-- ilaslc --------------------------------------------------------------------
12450 INTEGER
12451 LAPACK_DECL(ilaslc)(const INTEGER *M,
12452 const INTEGER *N,
12453 const FLOAT *A,
12454 const INTEGER *LDA)
12455 {
12456 DEBUG_LAPACK_STUB("ilaslc");
12457 return LAPACK_IMPL(ilaslc)(M,
12458 N,
12459 A,
12460 LDA);
12461 }
12462
12463 //-- ilaslr --------------------------------------------------------------------
12464 INTEGER
12465 LAPACK_DECL(ilaslr)(const INTEGER *M,
12466 const INTEGER *N,
12467 const FLOAT *A,
12468 const INTEGER *LDA)
12469 {
12470 DEBUG_LAPACK_STUB("ilaslr");
12471 return LAPACK_IMPL(ilaslr)(M,
12472 N,
12473 A,
12474 LDA);
12475 }
12476
12477 // warning: NAME has unknown type
12478 // warning: OPTS has unknown type
12479 //-- iparmq --------------------------------------------------------------------
12480 INTEGER
12481 LAPACK_DECL(iparmq)(const INTEGER *ISPEC,
12482 UNKNOWN *NAME,
12483 UNKNOWN *OPTS,
12484 const INTEGER *N,
12485 const INTEGER *ILO,
12486 const INTEGER *IHI,
12487 const INTEGER *LWORK)
12488 {
12489 DEBUG_LAPACK_STUB("iparmq");
12490 return LAPACK_IMPL(iparmq)(ISPEC,
12491 NAME,
12492 OPTS,
12493 N,
12494 ILO,
12495 IHI,
12496 LWORK);
12497 }
12498
12499 //-- lsame ---------------------------------------------------------------------
12500 LOGICAL
12501 LAPACK_DECL(lsame)(const char *CA,
12502 const char *CB)
12503 {
12504 DEBUG_LAPACK_STUB("lsame");
12505 return LAPACK_IMPL(lsame)(CA,
12506 CB);
12507 }
12508
12509 // warning: SRNAME has unknown type
12510 //-- xerbla --------------------------------------------------------------------
12511 void
12512 LAPACK_DECL(xerbla)(UNKNOWN *SRNAME,
12513 const INTEGER *INFO)
12514 {
12515 DEBUG_LAPACK_STUB("xerbla");
12516 LAPACK_IMPL(xerbla)(SRNAME,
12517 INFO);
12518 }
12519
12520 } // extern "C"