1 //-- dbbcsd --------------------------------------------------------------------
2 void
3 LAPACK_DECL(dbbcsd)(const char *JOBU1,
4 const char *JOBU2,
5 const char *JOBV1T,
6 const char *JOBV2T,
7 const char *TRANS,
8 const INTEGER *M,
9 const INTEGER *P,
10 const INTEGER *Q,
11 DOUBLE *THETA,
12 DOUBLE *PHI,
13 DOUBLE *U1,
14 const INTEGER *LDU1,
15 DOUBLE *U2,
16 const INTEGER *LDU2,
17 DOUBLE *V1T,
18 const INTEGER *LDV1T,
19 DOUBLE *V2T,
20 const INTEGER *LDV2T,
21 DOUBLE *B11D,
22 DOUBLE *B11E,
23 DOUBLE *B12D,
24 DOUBLE *B12E,
25 const DOUBLE *B21D,
26 const DOUBLE *B21E,
27 const DOUBLE *B22D,
28 const DOUBLE *B22E,
29 DOUBLE *WORK,
30 const INTEGER *LWORK,
31 INTEGER *INFO)
32 {
33 DEBUG_LAPACK_STUB("dbbcsd");
34 LAPACK_IMPL(dbbcsd)(JOBU1,
35 JOBU2,
36 JOBV1T,
37 JOBV2T,
38 TRANS,
39 M,
40 P,
41 Q,
42 THETA,
43 PHI,
44 U1,
45 LDU1,
46 U2,
47 LDU2,
48 V1T,
49 LDV1T,
50 V2T,
51 LDV2T,
52 B11D,
53 B11E,
54 B12D,
55 B12E,
56 B21D,
57 B21E,
58 B22D,
59 B22E,
60 WORK,
61 LWORK,
62 INFO);
63 }
64
65 //-- dbdsdc --------------------------------------------------------------------
66 void
67 LAPACK_DECL(dbdsdc)(const char *UPLO,
68 const char *COMPQ,
69 const INTEGER *N,
70 DOUBLE *D,
71 DOUBLE *E,
72 DOUBLE *U,
73 const INTEGER *LDU,
74 DOUBLE *VT,
75 const INTEGER *LDVT,
76 DOUBLE *Q,
77 INTEGER *IQ,
78 DOUBLE *WORK,
79 INTEGER *IWORK,
80 INTEGER *INFO)
81 {
82 DEBUG_LAPACK_STUB("dbdsdc");
83 LAPACK_IMPL(dbdsdc)(UPLO,
84 COMPQ,
85 N,
86 D,
87 E,
88 U,
89 LDU,
90 VT,
91 LDVT,
92 Q,
93 IQ,
94 WORK,
95 IWORK,
96 INFO);
97 }
98
99 //-- dbdsqr --------------------------------------------------------------------
100 void
101 LAPACK_DECL(dbdsqr)(const char *UPLO,
102 const INTEGER *N,
103 const INTEGER *NCVT,
104 const INTEGER *NRU,
105 const INTEGER *NCC,
106 DOUBLE *D,
107 DOUBLE *E,
108 DOUBLE *VT,
109 const INTEGER *LDVT,
110 DOUBLE *U,
111 const INTEGER *LDU,
112 DOUBLE *C,
113 const INTEGER *LDC,
114 DOUBLE *WORK,
115 INTEGER *INFO)
116 {
117 DEBUG_LAPACK_STUB("dbdsqr");
118 LAPACK_IMPL(dbdsqr)(UPLO,
119 N,
120 NCVT,
121 NRU,
122 NCC,
123 D,
124 E,
125 VT,
126 LDVT,
127 U,
128 LDU,
129 C,
130 LDC,
131 WORK,
132 INFO);
133 }
134
135 //-- ddisna --------------------------------------------------------------------
136 void
137 LAPACK_DECL(ddisna)(const char *JOB,
138 const INTEGER *M,
139 const INTEGER *N,
140 const DOUBLE *D,
141 DOUBLE *SEP,
142 INTEGER *INFO)
143 {
144 DEBUG_LAPACK_STUB("ddisna");
145 LAPACK_IMPL(ddisna)(JOB,
146 M,
147 N,
148 D,
149 SEP,
150 INFO);
151 }
152
153 //-- dgbbrd --------------------------------------------------------------------
154 void
155 LAPACK_DECL(dgbbrd)(const char *VECT,
156 const INTEGER *M,
157 const INTEGER *N,
158 const INTEGER *NCC,
159 const INTEGER *KL,
160 const INTEGER *KU,
161 DOUBLE *AB,
162 const INTEGER *LDAB,
163 DOUBLE *D,
164 DOUBLE *E,
165 DOUBLE *Q,
166 const INTEGER *LDQ,
167 DOUBLE *PT,
168 const INTEGER *LDPT,
169 DOUBLE *C,
170 const INTEGER *LDC,
171 DOUBLE *WORK,
172 INTEGER *INFO)
173 {
174 DEBUG_LAPACK_STUB("dgbbrd");
175 LAPACK_IMPL(dgbbrd)(VECT,
176 M,
177 N,
178 NCC,
179 KL,
180 KU,
181 AB,
182 LDAB,
183 D,
184 E,
185 Q,
186 LDQ,
187 PT,
188 LDPT,
189 C,
190 LDC,
191 WORK,
192 INFO);
193 }
194
195 //-- dgbcon --------------------------------------------------------------------
196 void
197 LAPACK_DECL(dgbcon)(const char *NORM,
198 const INTEGER *N,
199 const INTEGER *KL,
200 const INTEGER *KU,
201 const DOUBLE *AB,
202 const INTEGER *LDAB,
203 const INTEGER *IPIV,
204 const DOUBLE *ANORM,
205 DOUBLE *RCOND,
206 DOUBLE *WORK,
207 INTEGER *IWORK,
208 INTEGER *INFO)
209 {
210 DEBUG_LAPACK_STUB("dgbcon");
211 LAPACK_IMPL(dgbcon)(NORM,
212 N,
213 KL,
214 KU,
215 AB,
216 LDAB,
217 IPIV,
218 ANORM,
219 RCOND,
220 WORK,
221 IWORK,
222 INFO);
223 }
224
225 //-- dgbequ --------------------------------------------------------------------
226 void
227 LAPACK_DECL(dgbequ)(const INTEGER *M,
228 const INTEGER *N,
229 const INTEGER *KL,
230 const INTEGER *KU,
231 const DOUBLE *AB,
232 const INTEGER *LDAB,
233 DOUBLE *R,
234 DOUBLE *C,
235 DOUBLE *ROWCND,
236 DOUBLE *COLCND,
237 DOUBLE *AMAX,
238 INTEGER *INFO)
239 {
240 DEBUG_LAPACK_STUB("dgbequ");
241 LAPACK_IMPL(dgbequ)(M,
242 N,
243 KL,
244 KU,
245 AB,
246 LDAB,
247 R,
248 C,
249 ROWCND,
250 COLCND,
251 AMAX,
252 INFO);
253 }
254
255 //-- dgbequb -------------------------------------------------------------------
256 void
257 LAPACK_DECL(dgbequb)(const INTEGER *M,
258 const INTEGER *N,
259 const INTEGER *KL,
260 const INTEGER *KU,
261 const DOUBLE *AB,
262 const INTEGER *LDAB,
263 DOUBLE *R,
264 DOUBLE *C,
265 DOUBLE *ROWCND,
266 DOUBLE *COLCND,
267 DOUBLE *AMAX,
268 INTEGER *INFO)
269 {
270 DEBUG_LAPACK_STUB("dgbequb");
271 LAPACK_IMPL(dgbequb)(M,
272 N,
273 KL,
274 KU,
275 AB,
276 LDAB,
277 R,
278 C,
279 ROWCND,
280 COLCND,
281 AMAX,
282 INFO);
283 }
284
285 //-- dgbrfs --------------------------------------------------------------------
286 void
287 LAPACK_DECL(dgbrfs)(const char *TRANS,
288 const INTEGER *N,
289 const INTEGER *KL,
290 const INTEGER *KU,
291 const INTEGER *NRHS,
292 const DOUBLE *AB,
293 const INTEGER *LDAB,
294 const DOUBLE *AFB,
295 const INTEGER *LDAFB,
296 const INTEGER *IPIV,
297 const DOUBLE *B,
298 const INTEGER *LDB,
299 DOUBLE *X,
300 const INTEGER *LDX,
301 DOUBLE *FERR,
302 DOUBLE *BERR,
303 DOUBLE *WORK,
304 INTEGER *IWORK,
305 INTEGER *INFO)
306 {
307 DEBUG_LAPACK_STUB("dgbrfs");
308 LAPACK_IMPL(dgbrfs)(TRANS,
309 N,
310 KL,
311 KU,
312 NRHS,
313 AB,
314 LDAB,
315 AFB,
316 LDAFB,
317 IPIV,
318 B,
319 LDB,
320 X,
321 LDX,
322 FERR,
323 BERR,
324 WORK,
325 IWORK,
326 INFO);
327 }
328
329 //-- dgbsv ---------------------------------------------------------------------
330 void
331 LAPACK_DECL(dgbsv)(const INTEGER *N,
332 const INTEGER *KL,
333 const INTEGER *KU,
334 const INTEGER *NRHS,
335 DOUBLE *AB,
336 const INTEGER *LDAB,
337 INTEGER *IPIV,
338 DOUBLE *B,
339 const INTEGER *LDB,
340 INTEGER *INFO)
341 {
342 DEBUG_LAPACK_STUB("dgbsv");
343 LAPACK_IMPL(dgbsv)(N,
344 KL,
345 KU,
346 NRHS,
347 AB,
348 LDAB,
349 IPIV,
350 B,
351 LDB,
352 INFO);
353 }
354
355 //-- dgbsvx --------------------------------------------------------------------
356 void
357 LAPACK_DECL(dgbsvx)(const char *FACT,
358 const char *TRANS,
359 const INTEGER *N,
360 const INTEGER *KL,
361 const INTEGER *KU,
362 const INTEGER *NRHS,
363 DOUBLE *AB,
364 const INTEGER *LDAB,
365 DOUBLE *AFB,
366 const INTEGER *LDAFB,
367 INTEGER *IPIV,
368 char *EQUED,
369 DOUBLE *R,
370 DOUBLE *C,
371 DOUBLE *B,
372 const INTEGER *LDB,
373 DOUBLE *X,
374 const INTEGER *LDX,
375 DOUBLE *RCOND,
376 DOUBLE *FERR,
377 DOUBLE *BERR,
378 DOUBLE *WORK,
379 INTEGER *IWORK,
380 INTEGER *INFO)
381 {
382 DEBUG_LAPACK_STUB("dgbsvx");
383 LAPACK_IMPL(dgbsvx)(FACT,
384 TRANS,
385 N,
386 KL,
387 KU,
388 NRHS,
389 AB,
390 LDAB,
391 AFB,
392 LDAFB,
393 IPIV,
394 EQUED,
395 R,
396 C,
397 B,
398 LDB,
399 X,
400 LDX,
401 RCOND,
402 FERR,
403 BERR,
404 WORK,
405 IWORK,
406 INFO);
407 }
408
409 //-- dgbtf2 --------------------------------------------------------------------
410 void
411 LAPACK_DECL(dgbtf2)(const INTEGER *M,
412 const INTEGER *N,
413 const INTEGER *KL,
414 const INTEGER *KU,
415 DOUBLE *AB,
416 const INTEGER *LDAB,
417 INTEGER *IPIV,
418 INTEGER *INFO)
419 {
420 DEBUG_LAPACK_STUB("dgbtf2");
421 LAPACK_IMPL(dgbtf2)(M,
422 N,
423 KL,
424 KU,
425 AB,
426 LDAB,
427 IPIV,
428 INFO);
429 }
430
431 //-- dgbtrf --------------------------------------------------------------------
432 void
433 LAPACK_DECL(dgbtrf)(const INTEGER *M,
434 const INTEGER *N,
435 const INTEGER *KL,
436 const INTEGER *KU,
437 DOUBLE *AB,
438 const INTEGER *LDAB,
439 INTEGER *IPIV,
440 INTEGER *INFO)
441 {
442 DEBUG_LAPACK_STUB("dgbtrf");
443 LAPACK_IMPL(dgbtrf)(M,
444 N,
445 KL,
446 KU,
447 AB,
448 LDAB,
449 IPIV,
450 INFO);
451 }
452
453 //-- dgbtrs --------------------------------------------------------------------
454 void
455 LAPACK_DECL(dgbtrs)(const char *TRANS,
456 const INTEGER *N,
457 const INTEGER *KL,
458 const INTEGER *KU,
459 const INTEGER *NRHS,
460 const DOUBLE *AB,
461 const INTEGER *LDAB,
462 const INTEGER *IPIV,
463 DOUBLE *B,
464 const INTEGER *LDB,
465 INTEGER *INFO)
466 {
467 DEBUG_LAPACK_STUB("dgbtrs");
468 LAPACK_IMPL(dgbtrs)(TRANS,
469 N,
470 KL,
471 KU,
472 NRHS,
473 AB,
474 LDAB,
475 IPIV,
476 B,
477 LDB,
478 INFO);
479 }
480
481 //-- dgebak --------------------------------------------------------------------
482 void
483 LAPACK_DECL(dgebak)(const char *JOB,
484 const char *SIDE,
485 const INTEGER *N,
486 const INTEGER *ILO,
487 const INTEGER *IHI,
488 const DOUBLE *SCALE,
489 const INTEGER *M,
490 DOUBLE *V,
491 const INTEGER *LDV,
492 INTEGER *INFO)
493 {
494 DEBUG_LAPACK_STUB("dgebak");
495 LAPACK_IMPL(dgebak)(JOB,
496 SIDE,
497 N,
498 ILO,
499 IHI,
500 SCALE,
501 M,
502 V,
503 LDV,
504 INFO);
505 }
506
507 //-- dgebal --------------------------------------------------------------------
508 void
509 LAPACK_DECL(dgebal)(const char *JOB,
510 const INTEGER *N,
511 DOUBLE *A,
512 const INTEGER *LDA,
513 INTEGER *ILO,
514 INTEGER *IHI,
515 DOUBLE *SCALE,
516 INTEGER *INFO)
517 {
518 DEBUG_LAPACK_STUB("dgebal");
519 LAPACK_IMPL(dgebal)(JOB,
520 N,
521 A,
522 LDA,
523 ILO,
524 IHI,
525 SCALE,
526 INFO);
527 }
528
529 //-- dgebd2 --------------------------------------------------------------------
530 void
531 LAPACK_DECL(dgebd2)(const INTEGER *M,
532 const INTEGER *N,
533 DOUBLE *A,
534 const INTEGER *LDA,
535 DOUBLE *D,
536 DOUBLE *E,
537 DOUBLE *TAUQ,
538 DOUBLE *TAUP,
539 DOUBLE *WORK,
540 INTEGER *INFO)
541 {
542 DEBUG_LAPACK_STUB("dgebd2");
543 LAPACK_IMPL(dgebd2)(M,
544 N,
545 A,
546 LDA,
547 D,
548 E,
549 TAUQ,
550 TAUP,
551 WORK,
552 INFO);
553 }
554
555 //-- dgebrd --------------------------------------------------------------------
556 void
557 LAPACK_DECL(dgebrd)(const INTEGER *M,
558 const INTEGER *N,
559 DOUBLE *A,
560 const INTEGER *LDA,
561 DOUBLE *D,
562 DOUBLE *E,
563 DOUBLE *TAUQ,
564 DOUBLE *TAUP,
565 DOUBLE *WORK,
566 const INTEGER *LWORK,
567 INTEGER *INFO)
568 {
569 DEBUG_LAPACK_STUB("dgebrd");
570 LAPACK_IMPL(dgebrd)(M,
571 N,
572 A,
573 LDA,
574 D,
575 E,
576 TAUQ,
577 TAUP,
578 WORK,
579 LWORK,
580 INFO);
581 }
582
583 //-- dgecon --------------------------------------------------------------------
584 /*
585 void
586 LAPACK_DECL(dgecon)(const char *NORM,
587 const INTEGER *N,
588 const DOUBLE *A,
589 const INTEGER *LDA,
590 const DOUBLE *ANORM,
591 DOUBLE *RCOND,
592 DOUBLE *WORK,
593 INTEGER *IWORK,
594 INTEGER *INFO)
595 {
596 DEBUG_LAPACK_STUB("dgecon");
597 LAPACK_IMPL(dgecon)(NORM,
598 N,
599 A,
600 LDA,
601 ANORM,
602 RCOND,
603 WORK,
604 IWORK,
605 INFO);
606 }
607 */
608 //-- dgeequ --------------------------------------------------------------------
609 /*
610 void
611 LAPACK_DECL(dgeequ)(const INTEGER *M,
612 const INTEGER *N,
613 const DOUBLE *A,
614 const INTEGER *LDA,
615 DOUBLE *R,
616 DOUBLE *C,
617 DOUBLE *ROWCND,
618 DOUBLE *COLCND,
619 DOUBLE *AMAX,
620 INTEGER *INFO)
621 {
622 DEBUG_LAPACK_STUB("dgeequ");
623 LAPACK_IMPL(dgeequ)(M,
624 N,
625 A,
626 LDA,
627 R,
628 C,
629 ROWCND,
630 COLCND,
631 AMAX,
632 INFO);
633 }
634 */
635 //-- dgeequb -------------------------------------------------------------------
636 void
637 LAPACK_DECL(dgeequb)(const INTEGER *M,
638 const INTEGER *N,
639 const DOUBLE *A,
640 const INTEGER *LDA,
641 DOUBLE *R,
642 DOUBLE *C,
643 DOUBLE *ROWCND,
644 DOUBLE *COLCND,
645 DOUBLE *AMAX,
646 INTEGER *INFO)
647 {
648 DEBUG_LAPACK_STUB("dgeequb");
649 LAPACK_IMPL(dgeequb)(M,
650 N,
651 A,
652 LDA,
653 R,
654 C,
655 ROWCND,
656 COLCND,
657 AMAX,
658 INFO);
659 }
660
661 //-- dgees ---------------------------------------------------------------------
662 /*
663 void
664 LAPACK_DECL(dgees)(const char *JOBVS,
665 const char *SORT,
666 const LOGICAL *SELECT,
667 const INTEGER *N,
668 DOUBLE *A,
669 const INTEGER *LDA,
670 INTEGER *SDIM,
671 DOUBLE *WR,
672 DOUBLE *WI,
673 DOUBLE *VS,
674 const INTEGER *LDVS,
675 DOUBLE *WORK,
676 const INTEGER *LWORK,
677 LOGICAL *BWORK,
678 INTEGER *INFO)
679 {
680 DEBUG_LAPACK_STUB("dgees");
681 LAPACK_IMPL(dgees)(JOBVS,
682 SORT,
683 SELECT,
684 N,
685 A,
686 LDA,
687 SDIM,
688 WR,
689 WI,
690 VS,
691 LDVS,
692 WORK,
693 LWORK,
694 BWORK,
695 INFO);
696 }
697 */
698 //-- dgeesx --------------------------------------------------------------------
699 /*
700 void
701 LAPACK_DECL(dgeesx)(const char *JOBVS,
702 const char *SORT,
703 const LOGICAL *SELECT,
704 const char *SENSE,
705 const INTEGER *N,
706 DOUBLE *A,
707 const INTEGER *LDA,
708 INTEGER *SDIM,
709 DOUBLE *WR,
710 DOUBLE *WI,
711 DOUBLE *VS,
712 const INTEGER *LDVS,
713 DOUBLE *RCONDE,
714 DOUBLE *RCONDV,
715 DOUBLE *WORK,
716 const INTEGER *LWORK,
717 INTEGER *IWORK,
718 const INTEGER *LIWORK,
719 LOGICAL *BWORK,
720 INTEGER *INFO)
721 {
722 DEBUG_LAPACK_STUB("dgeesx");
723 LAPACK_IMPL(dgeesx)(JOBVS,
724 SORT,
725 SELECT,
726 SENSE,
727 N,
728 A,
729 LDA,
730 SDIM,
731 WR,
732 WI,
733 VS,
734 LDVS,
735 RCONDE,
736 RCONDV,
737 WORK,
738 LWORK,
739 IWORK,
740 LIWORK,
741 BWORK,
742 INFO);
743 }
744 */
745 //-- dgeev ---------------------------------------------------------------------
746 /*
747 void
748 LAPACK_DECL(dgeev)(const char *JOBVL,
749 const char *JOBVR,
750 const INTEGER *N,
751 DOUBLE *A,
752 const INTEGER *LDA,
753 DOUBLE *WR,
754 DOUBLE *WI,
755 DOUBLE *VL,
756 const INTEGER *LDVL,
757 DOUBLE *VR,
758 const INTEGER *LDVR,
759 DOUBLE *WORK,
760 const INTEGER *LWORK,
761 INTEGER *INFO)
762 {
763 DEBUG_LAPACK_STUB("dgeev");
764 LAPACK_IMPL(dgeev)(JOBVL,
765 JOBVR,
766 N,
767 A,
768 LDA,
769 WR,
770 WI,
771 VL,
772 LDVL,
773 VR,
774 LDVR,
775 WORK,
776 LWORK,
777 INFO);
778 }
779 */
780 //-- dgeevx --------------------------------------------------------------------
781 /*
782 void
783 LAPACK_DECL(dgeevx)(const char *BALANC,
784 const char *JOBVL,
785 const char *JOBVR,
786 const char *SENSE,
787 const INTEGER *N,
788 DOUBLE *A,
789 const INTEGER *LDA,
790 DOUBLE *WR,
791 DOUBLE *WI,
792 DOUBLE *VL,
793 const INTEGER *LDVL,
794 DOUBLE *VR,
795 const INTEGER *LDVR,
796 INTEGER *ILO,
797 INTEGER *IHI,
798 DOUBLE *SCALE,
799 DOUBLE *ABNRM,
800 DOUBLE *RCONDE,
801 DOUBLE *RCONDV,
802 DOUBLE *WORK,
803 const INTEGER *LWORK,
804 INTEGER *IWORK,
805 INTEGER *INFO)
806 {
807 DEBUG_LAPACK_STUB("dgeevx");
808 LAPACK_IMPL(dgeevx)(BALANC,
809 JOBVL,
810 JOBVR,
811 SENSE,
812 N,
813 A,
814 LDA,
815 WR,
816 WI,
817 VL,
818 LDVL,
819 VR,
820 LDVR,
821 ILO,
822 IHI,
823 SCALE,
824 ABNRM,
825 RCONDE,
826 RCONDV,
827 WORK,
828 LWORK,
829 IWORK,
830 INFO);
831 }
832 */
833 //-- dgegs ---------------------------------------------------------------------
834 void
835 LAPACK_DECL(dgegs)(const char *JOBVSL,
836 const char *JOBVSR,
837 const INTEGER *N,
838 DOUBLE *A,
839 const INTEGER *LDA,
840 DOUBLE *B,
841 const INTEGER *LDB,
842 DOUBLE *ALPHAR,
843 DOUBLE *ALPHAI,
844 DOUBLE *BETA,
845 DOUBLE *VSL,
846 const INTEGER *LDVSL,
847 DOUBLE *VSR,
848 const INTEGER *LDVSR,
849 DOUBLE *WORK,
850 const INTEGER *LWORK,
851 INTEGER *INFO)
852 {
853 DEBUG_LAPACK_STUB("dgegs");
854 LAPACK_IMPL(dgegs)(JOBVSL,
855 JOBVSR,
856 N,
857 A,
858 LDA,
859 B,
860 LDB,
861 ALPHAR,
862 ALPHAI,
863 BETA,
864 VSL,
865 LDVSL,
866 VSR,
867 LDVSR,
868 WORK,
869 LWORK,
870 INFO);
871 }
872
873 //-- dgegv ---------------------------------------------------------------------
874 void
875 LAPACK_DECL(dgegv)(const char *JOBVL,
876 const char *JOBVR,
877 const INTEGER *N,
878 DOUBLE *A,
879 const INTEGER *LDA,
880 DOUBLE *B,
881 const INTEGER *LDB,
882 DOUBLE *ALPHAR,
883 DOUBLE *ALPHAI,
884 DOUBLE *BETA,
885 DOUBLE *VL,
886 const INTEGER *LDVL,
887 DOUBLE *VR,
888 const INTEGER *LDVR,
889 DOUBLE *WORK,
890 const INTEGER *LWORK,
891 INTEGER *INFO)
892 {
893 DEBUG_LAPACK_STUB("dgegv");
894 LAPACK_IMPL(dgegv)(JOBVL,
895 JOBVR,
896 N,
897 A,
898 LDA,
899 B,
900 LDB,
901 ALPHAR,
902 ALPHAI,
903 BETA,
904 VL,
905 LDVL,
906 VR,
907 LDVR,
908 WORK,
909 LWORK,
910 INFO);
911 }
912
913 //-- dgehd2 --------------------------------------------------------------------
914 void
915 LAPACK_DECL(dgehd2)(const INTEGER *N,
916 const INTEGER *ILO,
917 const INTEGER *IHI,
918 DOUBLE *A,
919 const INTEGER *LDA,
920 DOUBLE *TAU,
921 DOUBLE *WORK,
922 INTEGER *INFO)
923 {
924 DEBUG_LAPACK_STUB("dgehd2");
925 LAPACK_IMPL(dgehd2)(N,
926 ILO,
927 IHI,
928 A,
929 LDA,
930 TAU,
931 WORK,
932 INFO);
933 }
934
935 //-- dgehrd --------------------------------------------------------------------
936 void
937 LAPACK_DECL(dgehrd)(const INTEGER *N,
938 const INTEGER *ILO,
939 const INTEGER *IHI,
940 DOUBLE *A,
941 const INTEGER *LDA,
942 DOUBLE *TAU,
943 DOUBLE *WORK,
944 const INTEGER *LWORK,
945 INTEGER *INFO)
946 {
947 DEBUG_LAPACK_STUB("dgehrd");
948 LAPACK_IMPL(dgehrd)(N,
949 ILO,
950 IHI,
951 A,
952 LDA,
953 TAU,
954 WORK,
955 LWORK,
956 INFO);
957 }
958
959 //-- dgejsv --------------------------------------------------------------------
960 /*
961 void
962 LAPACK_DECL(dgejsv)(const char *JOBA,
963 const char *JOBU,
964 const char *JOBV,
965 const char *JOBR,
966 const char *JOBT,
967 const char *JOBP,
968 const INTEGER *M,
969 const INTEGER *N,
970 DOUBLE *A,
971 const INTEGER *LDA,
972 DOUBLE *SVA,
973 DOUBLE *U,
974 const INTEGER *LDU,
975 DOUBLE *V,
976 const INTEGER *LDV,
977 DOUBLE *WORK,
978 const INTEGER *LWORK,
979 INTEGER *IWORK,
980 INTEGER *INFO)
981 {
982 DEBUG_LAPACK_STUB("dgejsv");
983 LAPACK_IMPL(dgejsv)(JOBA,
984 JOBU,
985 JOBV,
986 JOBR,
987 JOBT,
988 JOBP,
989 M,
990 N,
991 A,
992 LDA,
993 SVA,
994 U,
995 LDU,
996 V,
997 LDV,
998 WORK,
999 LWORK,
1000 IWORK,
1001 INFO);
1002 }
1003 */
1004 //-- dgelq2 --------------------------------------------------------------------
1005 void
1006 LAPACK_DECL(dgelq2)(const INTEGER *M,
1007 const INTEGER *N,
1008 DOUBLE *A,
1009 const INTEGER *LDA,
1010 DOUBLE *TAU,
1011 DOUBLE *WORK,
1012 INTEGER *INFO)
1013 {
1014 DEBUG_LAPACK_STUB("dgelq2");
1015 LAPACK_IMPL(dgelq2)(M,
1016 N,
1017 A,
1018 LDA,
1019 TAU,
1020 WORK,
1021 INFO);
1022 }
1023
1024 //-- dgelqf --------------------------------------------------------------------
1025 /*
1026 void
1027 LAPACK_DECL(dgelqf)(const INTEGER *M,
1028 const INTEGER *N,
1029 DOUBLE *A,
1030 const INTEGER *LDA,
1031 DOUBLE *TAU,
1032 DOUBLE *WORK,
1033 const INTEGER *LWORK,
1034 INTEGER *INFO)
1035 {
1036 DEBUG_LAPACK_STUB("dgelqf");
1037 LAPACK_IMPL(dgelqf)(M,
1038 N,
1039 A,
1040 LDA,
1041 TAU,
1042 WORK,
1043 LWORK,
1044 INFO);
1045 }
1046 */
1047 //-- dgels ---------------------------------------------------------------------
1048 /*
1049 void
1050 LAPACK_DECL(dgels)(const char *TRANS,
1051 const INTEGER *M,
1052 const INTEGER *N,
1053 const INTEGER *NRHS,
1054 DOUBLE *A,
1055 const INTEGER *LDA,
1056 DOUBLE *B,
1057 const INTEGER *LDB,
1058 DOUBLE *WORK,
1059 const INTEGER *LWORK,
1060 INTEGER *INFO)
1061 {
1062 DEBUG_LAPACK_STUB("dgels");
1063 LAPACK_IMPL(dgels)(TRANS,
1064 M,
1065 N,
1066 NRHS,
1067 A,
1068 LDA,
1069 B,
1070 LDB,
1071 WORK,
1072 LWORK,
1073 INFO);
1074 }
1075 */
1076 //-- dgelsd --------------------------------------------------------------------
1077 void
1078 LAPACK_DECL(dgelsd)(const INTEGER *M,
1079 const INTEGER *N,
1080 const INTEGER *NRHS,
1081 const DOUBLE *A,
1082 const INTEGER *LDA,
1083 DOUBLE *B,
1084 const INTEGER *LDB,
1085 DOUBLE *S,
1086 const DOUBLE *RCOND,
1087 INTEGER *RANK,
1088 DOUBLE *WORK,
1089 const INTEGER *LWORK,
1090 INTEGER *IWORK,
1091 INTEGER *INFO)
1092 {
1093 DEBUG_LAPACK_STUB("dgelsd");
1094 LAPACK_IMPL(dgelsd)(M,
1095 N,
1096 NRHS,
1097 A,
1098 LDA,
1099 B,
1100 LDB,
1101 S,
1102 RCOND,
1103 RANK,
1104 WORK,
1105 LWORK,
1106 IWORK,
1107 INFO);
1108 }
1109
1110 //-- dgelss --------------------------------------------------------------------
1111 void
1112 LAPACK_DECL(dgelss)(const INTEGER *M,
1113 const INTEGER *N,
1114 const INTEGER *NRHS,
1115 DOUBLE *A,
1116 const INTEGER *LDA,
1117 DOUBLE *B,
1118 const INTEGER *LDB,
1119 DOUBLE *S,
1120 const DOUBLE *RCOND,
1121 INTEGER *RANK,
1122 DOUBLE *WORK,
1123 const INTEGER *LWORK,
1124 INTEGER *INFO)
1125 {
1126 DEBUG_LAPACK_STUB("dgelss");
1127 LAPACK_IMPL(dgelss)(M,
1128 N,
1129 NRHS,
1130 A,
1131 LDA,
1132 B,
1133 LDB,
1134 S,
1135 RCOND,
1136 RANK,
1137 WORK,
1138 LWORK,
1139 INFO);
1140 }
1141
1142 //-- dgelsx --------------------------------------------------------------------
1143 void
1144 LAPACK_DECL(dgelsx)(const INTEGER *M,
1145 const INTEGER *N,
1146 const INTEGER *NRHS,
1147 DOUBLE *A,
1148 const INTEGER *LDA,
1149 DOUBLE *B,
1150 const INTEGER *LDB,
1151 INTEGER *JPVT,
1152 const DOUBLE *RCOND,
1153 INTEGER *RANK,
1154 DOUBLE *WORK,
1155 INTEGER *INFO)
1156 {
1157 DEBUG_LAPACK_STUB("dgelsx");
1158 LAPACK_IMPL(dgelsx)(M,
1159 N,
1160 NRHS,
1161 A,
1162 LDA,
1163 B,
1164 LDB,
1165 JPVT,
1166 RCOND,
1167 RANK,
1168 WORK,
1169 INFO);
1170 }
1171
1172 //-- dgelsy --------------------------------------------------------------------
1173 void
1174 LAPACK_DECL(dgelsy)(const INTEGER *M,
1175 const INTEGER *N,
1176 const INTEGER *NRHS,
1177 DOUBLE *A,
1178 const INTEGER *LDA,
1179 DOUBLE *B,
1180 const INTEGER *LDB,
1181 INTEGER *JPVT,
1182 const DOUBLE *RCOND,
1183 INTEGER *RANK,
1184 DOUBLE *WORK,
1185 const INTEGER *LWORK,
1186 INTEGER *INFO)
1187 {
1188 DEBUG_LAPACK_STUB("dgelsy");
1189 LAPACK_IMPL(dgelsy)(M,
1190 N,
1191 NRHS,
1192 A,
1193 LDA,
1194 B,
1195 LDB,
1196 JPVT,
1197 RCOND,
1198 RANK,
1199 WORK,
1200 LWORK,
1201 INFO);
1202 }
1203
1204 //-- dgeql2 --------------------------------------------------------------------
1205 void
1206 LAPACK_DECL(dgeql2)(const INTEGER *M,
1207 const INTEGER *N,
1208 DOUBLE *A,
1209 const INTEGER *LDA,
1210 DOUBLE *TAU,
1211 DOUBLE *WORK,
1212 INTEGER *INFO)
1213 {
1214 DEBUG_LAPACK_STUB("dgeql2");
1215 LAPACK_IMPL(dgeql2)(M,
1216 N,
1217 A,
1218 LDA,
1219 TAU,
1220 WORK,
1221 INFO);
1222 }
1223
1224 //-- dgeqlf --------------------------------------------------------------------
1225 void
1226 LAPACK_DECL(dgeqlf)(const INTEGER *M,
1227 const INTEGER *N,
1228 DOUBLE *A,
1229 const INTEGER *LDA,
1230 DOUBLE *TAU,
1231 DOUBLE *WORK,
1232 const INTEGER *LWORK,
1233 INTEGER *INFO)
1234 {
1235 DEBUG_LAPACK_STUB("dgeqlf");
1236 LAPACK_IMPL(dgeqlf)(M,
1237 N,
1238 A,
1239 LDA,
1240 TAU,
1241 WORK,
1242 LWORK,
1243 INFO);
1244 }
1245
1246 //-- dgeqp3 --------------------------------------------------------------------
1247 /*
1248 void
1249 LAPACK_DECL(dgeqp3)(const INTEGER *M,
1250 const INTEGER *N,
1251 DOUBLE *A,
1252 const INTEGER *LDA,
1253 INTEGER *JPVT,
1254 DOUBLE *TAU,
1255 DOUBLE *WORK,
1256 const INTEGER *LWORK,
1257 INTEGER *INFO)
1258 {
1259 DEBUG_LAPACK_STUB("dgeqp3");
1260 LAPACK_IMPL(dgeqp3)(M,
1261 N,
1262 A,
1263 LDA,
1264 JPVT,
1265 TAU,
1266 WORK,
1267 LWORK,
1268 INFO);
1269 }
1270 */
1271
1272 //-- dgeqpf --------------------------------------------------------------------
1273 void
1274 LAPACK_DECL(dgeqpf)(const INTEGER *M,
1275 const INTEGER *N,
1276 DOUBLE *A,
1277 const INTEGER *LDA,
1278 INTEGER *JPVT,
1279 DOUBLE *TAU,
1280 DOUBLE *WORK,
1281 INTEGER *INFO)
1282 {
1283 DEBUG_LAPACK_STUB("dgeqpf");
1284 LAPACK_IMPL(dgeqpf)(M,
1285 N,
1286 A,
1287 LDA,
1288 JPVT,
1289 TAU,
1290 WORK,
1291 INFO);
1292 }
1293
1294 //-- dgeqr2 --------------------------------------------------------------------
1295 void
1296 LAPACK_DECL(dgeqr2)(const INTEGER *M,
1297 const INTEGER *N,
1298 DOUBLE *A,
1299 const INTEGER *LDA,
1300 DOUBLE *TAU,
1301 DOUBLE *WORK,
1302 INTEGER *INFO)
1303 {
1304 DEBUG_LAPACK_STUB("dgeqr2");
1305 LAPACK_IMPL(dgeqr2)(M,
1306 N,
1307 A,
1308 LDA,
1309 TAU,
1310 WORK,
1311 INFO);
1312 }
1313
1314 //-- dgeqr2p -------------------------------------------------------------------
1315 void
1316 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
1317 const INTEGER *N,
1318 DOUBLE *A,
1319 const INTEGER *LDA,
1320 DOUBLE *TAU,
1321 DOUBLE *WORK,
1322 INTEGER *INFO)
1323 {
1324 DEBUG_LAPACK_STUB("dgeqr2p");
1325 LAPACK_IMPL(dgeqr2p)(M,
1326 N,
1327 A,
1328 LDA,
1329 TAU,
1330 WORK,
1331 INFO);
1332 }
1333
1334 //-- dgeqrf --------------------------------------------------------------------
1335 /*
1336 void
1337 LAPACK_DECL(dgeqrf)(const INTEGER *M,
1338 const INTEGER *N,
1339 DOUBLE *A,
1340 const INTEGER *LDA,
1341 DOUBLE *TAU,
1342 DOUBLE *WORK,
1343 const INTEGER *LWORK,
1344 INTEGER *INFO)
1345 {
1346 DEBUG_LAPACK_STUB("dgeqrf");
1347 LAPACK_IMPL(dgeqrf)(M,
1348 N,
1349 A,
1350 LDA,
1351 TAU,
1352 WORK,
1353 LWORK,
1354 INFO);
1355 }
1356 */
1357 //-- dgeqrfp -------------------------------------------------------------------
1358 void
1359 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
1360 const INTEGER *N,
1361 DOUBLE *A,
1362 const INTEGER *LDA,
1363 DOUBLE *TAU,
1364 DOUBLE *WORK,
1365 const INTEGER *LWORK,
1366 INTEGER *INFO)
1367 {
1368 DEBUG_LAPACK_STUB("dgeqrfp");
1369 LAPACK_IMPL(dgeqrfp)(M,
1370 N,
1371 A,
1372 LDA,
1373 TAU,
1374 WORK,
1375 LWORK,
1376 INFO);
1377 }
1378
1379 //-- dgerfs --------------------------------------------------------------------
1380 /*
1381 void
1382 LAPACK_DECL(dgerfs)(const char *TRANS,
1383 const INTEGER *N,
1384 const INTEGER *NRHS,
1385 const DOUBLE *A,
1386 const INTEGER *LDA,
1387 const DOUBLE *AF,
1388 const INTEGER *LDAF,
1389 const INTEGER *IPIV,
1390 const DOUBLE *B,
1391 const INTEGER *LDB,
1392 DOUBLE *X,
1393 const INTEGER *LDX,
1394 DOUBLE *FERR,
1395 DOUBLE *BERR,
1396 DOUBLE *WORK,
1397 INTEGER *IWORK,
1398 INTEGER *INFO)
1399 {
1400 DEBUG_LAPACK_STUB("dgerfs");
1401 LAPACK_IMPL(dgerfs)(TRANS,
1402 N,
1403 NRHS,
1404 A,
1405 LDA,
1406 AF,
1407 LDAF,
1408 IPIV,
1409 B,
1410 LDB,
1411 X,
1412 LDX,
1413 FERR,
1414 BERR,
1415 WORK,
1416 IWORK,
1417 INFO);
1418 }
1419 */
1420 //-- dgerq2 --------------------------------------------------------------------
1421 void
1422 LAPACK_DECL(dgerq2)(const INTEGER *M,
1423 const INTEGER *N,
1424 DOUBLE *A,
1425 const INTEGER *LDA,
1426 DOUBLE *TAU,
1427 DOUBLE *WORK,
1428 INTEGER *INFO)
1429 {
1430 DEBUG_LAPACK_STUB("dgerq2");
1431 LAPACK_IMPL(dgerq2)(M,
1432 N,
1433 A,
1434 LDA,
1435 TAU,
1436 WORK,
1437 INFO);
1438 }
1439
1440 //-- dgerqf --------------------------------------------------------------------
1441 void
1442 LAPACK_DECL(dgerqf)(const INTEGER *M,
1443 const INTEGER *N,
1444 DOUBLE *A,
1445 const INTEGER *LDA,
1446 DOUBLE *TAU,
1447 DOUBLE *WORK,
1448 const INTEGER *LWORK,
1449 INTEGER *INFO)
1450 {
1451 DEBUG_LAPACK_STUB("dgerqf");
1452 LAPACK_IMPL(dgerqf)(M,
1453 N,
1454 A,
1455 LDA,
1456 TAU,
1457 WORK,
1458 LWORK,
1459 INFO);
1460 }
1461
1462 //-- dgesc2 --------------------------------------------------------------------
1463 void
1464 LAPACK_DECL(dgesc2)(const INTEGER *N,
1465 const DOUBLE *A,
1466 const INTEGER *LDA,
1467 DOUBLE *RHS,
1468 const INTEGER *IPIV,
1469 const INTEGER *JPIV,
1470 DOUBLE *SCALE)
1471 {
1472 DEBUG_LAPACK_STUB("dgesc2");
1473 LAPACK_IMPL(dgesc2)(N,
1474 A,
1475 LDA,
1476 RHS,
1477 IPIV,
1478 JPIV,
1479 SCALE);
1480 }
1481
1482 //-- dgesdd --------------------------------------------------------------------
1483 void
1484 LAPACK_DECL(dgesdd)(const char *JOBZ,
1485 const INTEGER *M,
1486 const INTEGER *N,
1487 DOUBLE *A,
1488 const INTEGER *LDA,
1489 DOUBLE *S,
1490 DOUBLE *U,
1491 const INTEGER *LDU,
1492 DOUBLE *VT,
1493 const INTEGER *LDVT,
1494 DOUBLE *WORK,
1495 const INTEGER *LWORK,
1496 INTEGER *IWORK,
1497 INTEGER *INFO)
1498 {
1499 DEBUG_LAPACK_STUB("dgesdd");
1500 LAPACK_IMPL(dgesdd)(JOBZ,
1501 M,
1502 N,
1503 A,
1504 LDA,
1505 S,
1506 U,
1507 LDU,
1508 VT,
1509 LDVT,
1510 WORK,
1511 LWORK,
1512 IWORK,
1513 INFO);
1514 }
1515
1516 //-- dgesv ---------------------------------------------------------------------
1517 /*
1518 void
1519 LAPACK_DECL(dgesv)(const INTEGER *N,
1520 const INTEGER *NRHS,
1521 DOUBLE *A,
1522 const INTEGER *LDA,
1523 INTEGER *IPIV,
1524 DOUBLE *B,
1525 const INTEGER *LDB,
1526 INTEGER *INFO)
1527 {
1528 DEBUG_LAPACK_STUB("dgesv");
1529 LAPACK_IMPL(dgesv)(N,
1530 NRHS,
1531 A,
1532 LDA,
1533 IPIV,
1534 B,
1535 LDB,
1536 INFO);
1537 }
1538 */
1539 //-- dgesvd --------------------------------------------------------------------
1540 void
1541 LAPACK_DECL(dgesvd)(const char *JOBU,
1542 const char *JOBVT,
1543 const INTEGER *M,
1544 const INTEGER *N,
1545 DOUBLE *A,
1546 const INTEGER *LDA,
1547 DOUBLE *S,
1548 DOUBLE *U,
1549 const INTEGER *LDU,
1550 DOUBLE *VT,
1551 const INTEGER *LDVT,
1552 DOUBLE *WORK,
1553 const INTEGER *LWORK,
1554 INTEGER *INFO)
1555 {
1556 DEBUG_LAPACK_STUB("dgesvd");
1557 LAPACK_IMPL(dgesvd)(JOBU,
1558 JOBVT,
1559 M,
1560 N,
1561 A,
1562 LDA,
1563 S,
1564 U,
1565 LDU,
1566 VT,
1567 LDVT,
1568 WORK,
1569 LWORK,
1570 INFO);
1571 }
1572
1573 //-- dgesvj --------------------------------------------------------------------
1574 /*
1575 void
1576 LAPACK_DECL(dgesvj)(const char *JOBA,
1577 const char *JOBU,
1578 const char *JOBV,
1579 const INTEGER *M,
1580 const INTEGER *N,
1581 DOUBLE *A,
1582 const INTEGER *LDA,
1583 DOUBLE *SVA,
1584 const INTEGER *MV,
1585 DOUBLE *V,
1586 const INTEGER *LDV,
1587 DOUBLE *WORK,
1588 const INTEGER *LWORK,
1589 INTEGER *INFO)
1590 {
1591 DEBUG_LAPACK_STUB("dgesvj");
1592 LAPACK_IMPL(dgesvj)(JOBA,
1593 JOBU,
1594 JOBV,
1595 M,
1596 N,
1597 A,
1598 LDA,
1599 SVA,
1600 MV,
1601 V,
1602 LDV,
1603 WORK,
1604 LWORK,
1605 INFO);
1606 }
1607 */
1608 //-- dgesvx --------------------------------------------------------------------
1609 /*
1610 void
1611 LAPACK_DECL(dgesvx)(const char *FACT,
1612 const char *TRANS,
1613 const INTEGER *N,
1614 const INTEGER *NRHS,
1615 DOUBLE *A,
1616 const INTEGER *LDA,
1617 DOUBLE *AF,
1618 const INTEGER *LDAF,
1619 INTEGER *IPIV,
1620 char *EQUED,
1621 DOUBLE *R,
1622 DOUBLE *C,
1623 DOUBLE *B,
1624 const INTEGER *LDB,
1625 DOUBLE *X,
1626 const INTEGER *LDX,
1627 DOUBLE *RCOND,
1628 DOUBLE *FERR,
1629 DOUBLE *BERR,
1630 DOUBLE *WORK,
1631 INTEGER *IWORK,
1632 INTEGER *INFO)
1633 {
1634 DEBUG_LAPACK_STUB("dgesvx");
1635 LAPACK_IMPL(dgesvx)(FACT,
1636 TRANS,
1637 N,
1638 NRHS,
1639 A,
1640 LDA,
1641 AF,
1642 LDAF,
1643 IPIV,
1644 EQUED,
1645 R,
1646 C,
1647 B,
1648 LDB,
1649 X,
1650 LDX,
1651 RCOND,
1652 FERR,
1653 BERR,
1654 WORK,
1655 IWORK,
1656 INFO);
1657 }
1658 */
1659 //-- dgetc2 --------------------------------------------------------------------
1660 void
1661 LAPACK_DECL(dgetc2)(const INTEGER *N,
1662 DOUBLE *A,
1663 const INTEGER *LDA,
1664 INTEGER *IPIV,
1665 INTEGER *JPIV,
1666 INTEGER *INFO)
1667 {
1668 DEBUG_LAPACK_STUB("dgetc2");
1669 LAPACK_IMPL(dgetc2)(N,
1670 A,
1671 LDA,
1672 IPIV,
1673 JPIV,
1674 INFO);
1675 }
1676
1677 //-- dgetf2 --------------------------------------------------------------------
1678 void
1679 LAPACK_DECL(dgetf2)(const INTEGER *M,
1680 const INTEGER *N,
1681 DOUBLE *A,
1682 const INTEGER *LDA,
1683 INTEGER *IPIV,
1684 INTEGER *INFO)
1685 {
1686 DEBUG_LAPACK_STUB("dgetf2");
1687 LAPACK_IMPL(dgetf2)(M,
1688 N,
1689 A,
1690 LDA,
1691 IPIV,
1692 INFO);
1693 }
1694
1695 //-- dgetrf --------------------------------------------------------------------
1696 /*
1697 void
1698 LAPACK_DECL(dgetrf)(const INTEGER *M,
1699 const INTEGER *N,
1700 DOUBLE *A,
1701 const INTEGER *LDA,
1702 INTEGER *IPIV,
1703 INTEGER *INFO)
1704 {
1705 DEBUG_LAPACK_STUB("dgetrf");
1706 LAPACK_IMPL(dgetrf)(M,
1707 N,
1708 A,
1709 LDA,
1710 IPIV,
1711 INFO);
1712 }
1713 */
1714 //-- dgetri --------------------------------------------------------------------
1715 /*
1716 void
1717 LAPACK_DECL(dgetri)(const INTEGER *N,
1718 DOUBLE *A,
1719 const INTEGER *LDA,
1720 const INTEGER *IPIV,
1721 DOUBLE *WORK,
1722 const INTEGER *LWORK,
1723 INTEGER *INFO)
1724 {
1725 DEBUG_LAPACK_STUB("dgetri");
1726 LAPACK_IMPL(dgetri)(N,
1727 A,
1728 LDA,
1729 IPIV,
1730 WORK,
1731 LWORK,
1732 INFO);
1733 }
1734 */
1735 //-- dgetrs --------------------------------------------------------------------
1736 /*
1737 void
1738 LAPACK_DECL(dgetrs)(const char *TRANS,
1739 const INTEGER *N,
1740 const INTEGER *NRHS,
1741 const DOUBLE *A,
1742 const INTEGER *LDA,
1743 const INTEGER *IPIV,
1744 DOUBLE *B,
1745 const INTEGER *LDB,
1746 INTEGER *INFO)
1747 {
1748 DEBUG_LAPACK_STUB("dgetrs");
1749 LAPACK_IMPL(dgetrs)(TRANS,
1750 N,
1751 NRHS,
1752 A,
1753 LDA,
1754 IPIV,
1755 B,
1756 LDB,
1757 INFO);
1758 }
1759 */
1760 //-- dggbak --------------------------------------------------------------------
1761 void
1762 LAPACK_DECL(dggbak)(const char *JOB,
1763 const char *SIDE,
1764 const INTEGER *N,
1765 const INTEGER *ILO,
1766 const INTEGER *IHI,
1767 const DOUBLE *LSCALE,
1768 const DOUBLE *RSCALE,
1769 const INTEGER *M,
1770 DOUBLE *V,
1771 const INTEGER *LDV,
1772 INTEGER *INFO)
1773 {
1774 DEBUG_LAPACK_STUB("dggbak");
1775 LAPACK_IMPL(dggbak)(JOB,
1776 SIDE,
1777 N,
1778 ILO,
1779 IHI,
1780 LSCALE,
1781 RSCALE,
1782 M,
1783 V,
1784 LDV,
1785 INFO);
1786 }
1787
1788 //-- dggbal --------------------------------------------------------------------
1789 void
1790 LAPACK_DECL(dggbal)(const char *JOB,
1791 const INTEGER *N,
1792 DOUBLE *A,
1793 const INTEGER *LDA,
1794 DOUBLE *B,
1795 const INTEGER *LDB,
1796 INTEGER *ILO,
1797 INTEGER *IHI,
1798 DOUBLE *LSCALE,
1799 DOUBLE *RSCALE,
1800 DOUBLE *WORK,
1801 INTEGER *INFO)
1802 {
1803 DEBUG_LAPACK_STUB("dggbal");
1804 LAPACK_IMPL(dggbal)(JOB,
1805 N,
1806 A,
1807 LDA,
1808 B,
1809 LDB,
1810 ILO,
1811 IHI,
1812 LSCALE,
1813 RSCALE,
1814 WORK,
1815 INFO);
1816 }
1817
1818 //-- dgges ---------------------------------------------------------------------
1819 void
1820 LAPACK_DECL(dgges)(const char *JOBVSL,
1821 const char *JOBVSR,
1822 const char *SORT,
1823 const LOGICAL *SELCTG,
1824 const INTEGER *N,
1825 DOUBLE *A,
1826 const INTEGER *LDA,
1827 DOUBLE *B,
1828 const INTEGER *LDB,
1829 INTEGER *SDIM,
1830 DOUBLE *ALPHAR,
1831 DOUBLE *ALPHAI,
1832 DOUBLE *BETA,
1833 DOUBLE *VSL,
1834 const INTEGER *LDVSL,
1835 DOUBLE *VSR,
1836 const INTEGER *LDVSR,
1837 DOUBLE *WORK,
1838 const INTEGER *LWORK,
1839 LOGICAL *BWORK,
1840 INTEGER *INFO)
1841 {
1842 DEBUG_LAPACK_STUB("dgges");
1843 LAPACK_IMPL(dgges)(JOBVSL,
1844 JOBVSR,
1845 SORT,
1846 SELCTG,
1847 N,
1848 A,
1849 LDA,
1850 B,
1851 LDB,
1852 SDIM,
1853 ALPHAR,
1854 ALPHAI,
1855 BETA,
1856 VSL,
1857 LDVSL,
1858 VSR,
1859 LDVSR,
1860 WORK,
1861 LWORK,
1862 BWORK,
1863 INFO);
1864 }
1865
1866 //-- dggesx --------------------------------------------------------------------
1867 void
1868 LAPACK_DECL(dggesx)(const char *JOBVSL,
1869 const char *JOBVSR,
1870 const char *SORT,
1871 const LOGICAL *SELCTG,
1872 const char *SENSE,
1873 const INTEGER *N,
1874 DOUBLE *A,
1875 const INTEGER *LDA,
1876 DOUBLE *B,
1877 const INTEGER *LDB,
1878 INTEGER *SDIM,
1879 DOUBLE *ALPHAR,
1880 DOUBLE *ALPHAI,
1881 DOUBLE *BETA,
1882 DOUBLE *VSL,
1883 const INTEGER *LDVSL,
1884 DOUBLE *VSR,
1885 const INTEGER *LDVSR,
1886 DOUBLE *RCONDE,
1887 DOUBLE *RCONDV,
1888 DOUBLE *WORK,
1889 const INTEGER *LWORK,
1890 INTEGER *IWORK,
1891 const INTEGER *LIWORK,
1892 LOGICAL *BWORK,
1893 INTEGER *INFO)
1894 {
1895 DEBUG_LAPACK_STUB("dggesx");
1896 LAPACK_IMPL(dggesx)(JOBVSL,
1897 JOBVSR,
1898 SORT,
1899 SELCTG,
1900 SENSE,
1901 N,
1902 A,
1903 LDA,
1904 B,
1905 LDB,
1906 SDIM,
1907 ALPHAR,
1908 ALPHAI,
1909 BETA,
1910 VSL,
1911 LDVSL,
1912 VSR,
1913 LDVSR,
1914 RCONDE,
1915 RCONDV,
1916 WORK,
1917 LWORK,
1918 IWORK,
1919 LIWORK,
1920 BWORK,
1921 INFO);
1922 }
1923
1924 //-- dggev ---------------------------------------------------------------------
1925 void
1926 LAPACK_DECL(dggev)(const char *JOBVL,
1927 const char *JOBVR,
1928 const INTEGER *N,
1929 DOUBLE *A,
1930 const INTEGER *LDA,
1931 DOUBLE *B,
1932 const INTEGER *LDB,
1933 DOUBLE *ALPHAR,
1934 DOUBLE *ALPHAI,
1935 DOUBLE *BETA,
1936 DOUBLE *VL,
1937 const INTEGER *LDVL,
1938 DOUBLE *VR,
1939 const INTEGER *LDVR,
1940 DOUBLE *WORK,
1941 const INTEGER *LWORK,
1942 INTEGER *INFO)
1943 {
1944 DEBUG_LAPACK_STUB("dggev");
1945 LAPACK_IMPL(dggev)(JOBVL,
1946 JOBVR,
1947 N,
1948 A,
1949 LDA,
1950 B,
1951 LDB,
1952 ALPHAR,
1953 ALPHAI,
1954 BETA,
1955 VL,
1956 LDVL,
1957 VR,
1958 LDVR,
1959 WORK,
1960 LWORK,
1961 INFO);
1962 }
1963
1964 //-- dggevx --------------------------------------------------------------------
1965 void
1966 LAPACK_DECL(dggevx)(const char *BALANC,
1967 const char *JOBVL,
1968 const char *JOBVR,
1969 const char *SENSE,
1970 const INTEGER *N,
1971 DOUBLE *A,
1972 const INTEGER *LDA,
1973 DOUBLE *B,
1974 const INTEGER *LDB,
1975 DOUBLE *ALPHAR,
1976 DOUBLE *ALPHAI,
1977 DOUBLE *BETA,
1978 DOUBLE *VL,
1979 const INTEGER *LDVL,
1980 DOUBLE *VR,
1981 const INTEGER *LDVR,
1982 INTEGER *ILO,
1983 INTEGER *IHI,
1984 DOUBLE *LSCALE,
1985 DOUBLE *RSCALE,
1986 DOUBLE *ABNRM,
1987 DOUBLE *BBNRM,
1988 DOUBLE *RCONDE,
1989 DOUBLE *RCONDV,
1990 DOUBLE *WORK,
1991 const INTEGER *LWORK,
1992 INTEGER *IWORK,
1993 LOGICAL *BWORK,
1994 INTEGER *INFO)
1995 {
1996 DEBUG_LAPACK_STUB("dggevx");
1997 LAPACK_IMPL(dggevx)(BALANC,
1998 JOBVL,
1999 JOBVR,
2000 SENSE,
2001 N,
2002 A,
2003 LDA,
2004 B,
2005 LDB,
2006 ALPHAR,
2007 ALPHAI,
2008 BETA,
2009 VL,
2010 LDVL,
2011 VR,
2012 LDVR,
2013 ILO,
2014 IHI,
2015 LSCALE,
2016 RSCALE,
2017 ABNRM,
2018 BBNRM,
2019 RCONDE,
2020 RCONDV,
2021 WORK,
2022 LWORK,
2023 IWORK,
2024 BWORK,
2025 INFO);
2026 }
2027
2028 //-- dggglm --------------------------------------------------------------------
2029 void
2030 LAPACK_DECL(dggglm)(const INTEGER *N,
2031 const INTEGER *M,
2032 const INTEGER *P,
2033 DOUBLE *A,
2034 const INTEGER *LDA,
2035 DOUBLE *B,
2036 const INTEGER *LDB,
2037 DOUBLE *D,
2038 DOUBLE *X,
2039 DOUBLE *Y,
2040 DOUBLE *WORK,
2041 const INTEGER *LWORK,
2042 INTEGER *INFO)
2043 {
2044 DEBUG_LAPACK_STUB("dggglm");
2045 LAPACK_IMPL(dggglm)(N,
2046 M,
2047 P,
2048 A,
2049 LDA,
2050 B,
2051 LDB,
2052 D,
2053 X,
2054 Y,
2055 WORK,
2056 LWORK,
2057 INFO);
2058 }
2059
2060 //-- dgghrd --------------------------------------------------------------------
2061 void
2062 LAPACK_DECL(dgghrd)(const char *COMPQ,
2063 const char *COMPZ,
2064 const INTEGER *N,
2065 const INTEGER *ILO,
2066 const INTEGER *IHI,
2067 DOUBLE *A,
2068 const INTEGER *LDA,
2069 DOUBLE *B,
2070 const INTEGER *LDB,
2071 DOUBLE *Q,
2072 const INTEGER *LDQ,
2073 DOUBLE *Z,
2074 const INTEGER *LDZ,
2075 INTEGER *INFO)
2076 {
2077 DEBUG_LAPACK_STUB("dgghrd");
2078 LAPACK_IMPL(dgghrd)(COMPQ,
2079 COMPZ,
2080 N,
2081 ILO,
2082 IHI,
2083 A,
2084 LDA,
2085 B,
2086 LDB,
2087 Q,
2088 LDQ,
2089 Z,
2090 LDZ,
2091 INFO);
2092 }
2093
2094 //-- dgglse --------------------------------------------------------------------
2095 void
2096 LAPACK_DECL(dgglse)(const INTEGER *M,
2097 const INTEGER *N,
2098 const INTEGER *P,
2099 DOUBLE *A,
2100 const INTEGER *LDA,
2101 DOUBLE *B,
2102 const INTEGER *LDB,
2103 DOUBLE *C,
2104 DOUBLE *D,
2105 DOUBLE *X,
2106 DOUBLE *WORK,
2107 const INTEGER *LWORK,
2108 INTEGER *INFO)
2109 {
2110 DEBUG_LAPACK_STUB("dgglse");
2111 LAPACK_IMPL(dgglse)(M,
2112 N,
2113 P,
2114 A,
2115 LDA,
2116 B,
2117 LDB,
2118 C,
2119 D,
2120 X,
2121 WORK,
2122 LWORK,
2123 INFO);
2124 }
2125
2126 //-- dggqrf --------------------------------------------------------------------
2127 void
2128 LAPACK_DECL(dggqrf)(const INTEGER *N,
2129 const INTEGER *M,
2130 const INTEGER *P,
2131 DOUBLE *A,
2132 const INTEGER *LDA,
2133 DOUBLE *TAUA,
2134 DOUBLE *B,
2135 const INTEGER *LDB,
2136 DOUBLE *TAUB,
2137 DOUBLE *WORK,
2138 const INTEGER *LWORK,
2139 INTEGER *INFO)
2140 {
2141 DEBUG_LAPACK_STUB("dggqrf");
2142 LAPACK_IMPL(dggqrf)(N,
2143 M,
2144 P,
2145 A,
2146 LDA,
2147 TAUA,
2148 B,
2149 LDB,
2150 TAUB,
2151 WORK,
2152 LWORK,
2153 INFO);
2154 }
2155
2156 //-- dggrqf --------------------------------------------------------------------
2157 void
2158 LAPACK_DECL(dggrqf)(const INTEGER *M,
2159 const INTEGER *P,
2160 const INTEGER *N,
2161 DOUBLE *A,
2162 const INTEGER *LDA,
2163 DOUBLE *TAUA,
2164 DOUBLE *B,
2165 const INTEGER *LDB,
2166 DOUBLE *TAUB,
2167 DOUBLE *WORK,
2168 const INTEGER *LWORK,
2169 INTEGER *INFO)
2170 {
2171 DEBUG_LAPACK_STUB("dggrqf");
2172 LAPACK_IMPL(dggrqf)(M,
2173 P,
2174 N,
2175 A,
2176 LDA,
2177 TAUA,
2178 B,
2179 LDB,
2180 TAUB,
2181 WORK,
2182 LWORK,
2183 INFO);
2184 }
2185
2186 //-- dggsvd --------------------------------------------------------------------
2187 void
2188 LAPACK_DECL(dggsvd)(const char *JOBU,
2189 const char *JOBV,
2190 const char *JOBQ,
2191 const INTEGER *M,
2192 const INTEGER *N,
2193 const INTEGER *P,
2194 INTEGER *K,
2195 INTEGER *L,
2196 DOUBLE *A,
2197 const INTEGER *LDA,
2198 DOUBLE *B,
2199 const INTEGER *LDB,
2200 DOUBLE *ALPHA,
2201 DOUBLE *BETA,
2202 DOUBLE *U,
2203 const INTEGER *LDU,
2204 DOUBLE *V,
2205 const INTEGER *LDV,
2206 DOUBLE *Q,
2207 const INTEGER *LDQ,
2208 DOUBLE *WORK,
2209 INTEGER *IWORK,
2210 INTEGER *INFO)
2211 {
2212 DEBUG_LAPACK_STUB("dggsvd");
2213 LAPACK_IMPL(dggsvd)(JOBU,
2214 JOBV,
2215 JOBQ,
2216 M,
2217 N,
2218 P,
2219 K,
2220 L,
2221 A,
2222 LDA,
2223 B,
2224 LDB,
2225 ALPHA,
2226 BETA,
2227 U,
2228 LDU,
2229 V,
2230 LDV,
2231 Q,
2232 LDQ,
2233 WORK,
2234 IWORK,
2235 INFO);
2236 }
2237
2238 //-- dggsvp --------------------------------------------------------------------
2239 void
2240 LAPACK_DECL(dggsvp)(const char *JOBU,
2241 const char *JOBV,
2242 const char *JOBQ,
2243 const INTEGER *M,
2244 const INTEGER *P,
2245 const INTEGER *N,
2246 DOUBLE *A,
2247 const INTEGER *LDA,
2248 DOUBLE *B,
2249 const INTEGER *LDB,
2250 const DOUBLE *TOLA,
2251 const DOUBLE *TOLB,
2252 INTEGER *K,
2253 INTEGER *L,
2254 DOUBLE *U,
2255 const INTEGER *LDU,
2256 DOUBLE *V,
2257 const INTEGER *LDV,
2258 DOUBLE *Q,
2259 const INTEGER *LDQ,
2260 INTEGER *IWORK,
2261 DOUBLE *TAU,
2262 DOUBLE *WORK,
2263 INTEGER *INFO)
2264 {
2265 DEBUG_LAPACK_STUB("dggsvp");
2266 LAPACK_IMPL(dggsvp)(JOBU,
2267 JOBV,
2268 JOBQ,
2269 M,
2270 P,
2271 N,
2272 A,
2273 LDA,
2274 B,
2275 LDB,
2276 TOLA,
2277 TOLB,
2278 K,
2279 L,
2280 U,
2281 LDU,
2282 V,
2283 LDV,
2284 Q,
2285 LDQ,
2286 IWORK,
2287 TAU,
2288 WORK,
2289 INFO);
2290 }
2291
2292 //-- dgsvj0 --------------------------------------------------------------------
2293 void
2294 LAPACK_DECL(dgsvj0)(const char *JOBV,
2295 const INTEGER *M,
2296 const INTEGER *N,
2297 DOUBLE *A,
2298 const INTEGER *LDA,
2299 DOUBLE *D,
2300 DOUBLE *SVA,
2301 const INTEGER *MV,
2302 DOUBLE *V,
2303 const INTEGER *LDV,
2304 const DOUBLE *EPS,
2305 const DOUBLE *SFMIN,
2306 const DOUBLE *TOL,
2307 const INTEGER *NSWEEP,
2308 DOUBLE *WORK,
2309 const INTEGER *LWORK,
2310 INTEGER *INFO)
2311 {
2312 DEBUG_LAPACK_STUB("dgsvj0");
2313 LAPACK_IMPL(dgsvj0)(JOBV,
2314 M,
2315 N,
2316 A,
2317 LDA,
2318 D,
2319 SVA,
2320 MV,
2321 V,
2322 LDV,
2323 EPS,
2324 SFMIN,
2325 TOL,
2326 NSWEEP,
2327 WORK,
2328 LWORK,
2329 INFO);
2330 }
2331
2332 //-- dgsvj1 --------------------------------------------------------------------
2333 void
2334 LAPACK_DECL(dgsvj1)(const char *JOBV,
2335 const INTEGER *M,
2336 const INTEGER *N,
2337 const INTEGER *N1,
2338 DOUBLE *A,
2339 const INTEGER *LDA,
2340 DOUBLE *D,
2341 DOUBLE *SVA,
2342 const INTEGER *MV,
2343 DOUBLE *V,
2344 const INTEGER *LDV,
2345 const DOUBLE *EPS,
2346 const DOUBLE *SFMIN,
2347 const DOUBLE *TOL,
2348 const INTEGER *NSWEEP,
2349 DOUBLE *WORK,
2350 const INTEGER *LWORK,
2351 INTEGER *INFO)
2352 {
2353 DEBUG_LAPACK_STUB("dgsvj1");
2354 LAPACK_IMPL(dgsvj1)(JOBV,
2355 M,
2356 N,
2357 N1,
2358 A,
2359 LDA,
2360 D,
2361 SVA,
2362 MV,
2363 V,
2364 LDV,
2365 EPS,
2366 SFMIN,
2367 TOL,
2368 NSWEEP,
2369 WORK,
2370 LWORK,
2371 INFO);
2372 }
2373
2374 //-- dgtcon --------------------------------------------------------------------
2375 void
2376 LAPACK_DECL(dgtcon)(const char *NORM,
2377 const INTEGER *N,
2378 const DOUBLE *DL,
2379 const DOUBLE *D,
2380 const DOUBLE *DU,
2381 const DOUBLE *DU2,
2382 const INTEGER *IPIV,
2383 const DOUBLE *ANORM,
2384 DOUBLE *RCOND,
2385 DOUBLE *WORK,
2386 INTEGER *IWORK,
2387 INTEGER *INFO)
2388 {
2389 DEBUG_LAPACK_STUB("dgtcon");
2390 LAPACK_IMPL(dgtcon)(NORM,
2391 N,
2392 DL,
2393 D,
2394 DU,
2395 DU2,
2396 IPIV,
2397 ANORM,
2398 RCOND,
2399 WORK,
2400 IWORK,
2401 INFO);
2402 }
2403
2404 //-- dgtrfs --------------------------------------------------------------------
2405 void
2406 LAPACK_DECL(dgtrfs)(const char *TRANS,
2407 const INTEGER *N,
2408 const INTEGER *NRHS,
2409 const DOUBLE *DL,
2410 const DOUBLE *D,
2411 const DOUBLE *DU,
2412 const DOUBLE *DLF,
2413 const DOUBLE *DF,
2414 const DOUBLE *DUF,
2415 const DOUBLE *DU2,
2416 const INTEGER *IPIV,
2417 const DOUBLE *B,
2418 const INTEGER *LDB,
2419 DOUBLE *X,
2420 const INTEGER *LDX,
2421 DOUBLE *FERR,
2422 DOUBLE *BERR,
2423 DOUBLE *WORK,
2424 INTEGER *IWORK,
2425 INTEGER *INFO)
2426 {
2427 DEBUG_LAPACK_STUB("dgtrfs");
2428 LAPACK_IMPL(dgtrfs)(TRANS,
2429 N,
2430 NRHS,
2431 DL,
2432 D,
2433 DU,
2434 DLF,
2435 DF,
2436 DUF,
2437 DU2,
2438 IPIV,
2439 B,
2440 LDB,
2441 X,
2442 LDX,
2443 FERR,
2444 BERR,
2445 WORK,
2446 IWORK,
2447 INFO);
2448 }
2449
2450 //-- dgtsv ---------------------------------------------------------------------
2451 void
2452 LAPACK_DECL(dgtsv)(const INTEGER *N,
2453 const INTEGER *NRHS,
2454 DOUBLE *DL,
2455 DOUBLE *D,
2456 DOUBLE *DU,
2457 DOUBLE *B,
2458 const INTEGER *LDB,
2459 INTEGER *INFO)
2460 {
2461 DEBUG_LAPACK_STUB("dgtsv");
2462 LAPACK_IMPL(dgtsv)(N,
2463 NRHS,
2464 DL,
2465 D,
2466 DU,
2467 B,
2468 LDB,
2469 INFO);
2470 }
2471
2472 //-- dgtsvx --------------------------------------------------------------------
2473 void
2474 LAPACK_DECL(dgtsvx)(const char *FACT,
2475 const char *TRANS,
2476 const INTEGER *N,
2477 const INTEGER *NRHS,
2478 const DOUBLE *DL,
2479 const DOUBLE *D,
2480 const DOUBLE *DU,
2481 DOUBLE *DLF,
2482 DOUBLE *DF,
2483 DOUBLE *DUF,
2484 DOUBLE *DU2,
2485 INTEGER *IPIV,
2486 const DOUBLE *B,
2487 const INTEGER *LDB,
2488 DOUBLE *X,
2489 const INTEGER *LDX,
2490 DOUBLE *RCOND,
2491 DOUBLE *FERR,
2492 DOUBLE *BERR,
2493 DOUBLE *WORK,
2494 INTEGER *IWORK,
2495 INTEGER *INFO)
2496 {
2497 DEBUG_LAPACK_STUB("dgtsvx");
2498 LAPACK_IMPL(dgtsvx)(FACT,
2499 TRANS,
2500 N,
2501 NRHS,
2502 DL,
2503 D,
2504 DU,
2505 DLF,
2506 DF,
2507 DUF,
2508 DU2,
2509 IPIV,
2510 B,
2511 LDB,
2512 X,
2513 LDX,
2514 RCOND,
2515 FERR,
2516 BERR,
2517 WORK,
2518 IWORK,
2519 INFO);
2520 }
2521
2522 //-- dgttrf --------------------------------------------------------------------
2523 void
2524 LAPACK_DECL(dgttrf)(const INTEGER *N,
2525 DOUBLE *DL,
2526 DOUBLE *D,
2527 DOUBLE *DU,
2528 DOUBLE *DU2,
2529 INTEGER *IPIV,
2530 INTEGER *INFO)
2531 {
2532 DEBUG_LAPACK_STUB("dgttrf");
2533 LAPACK_IMPL(dgttrf)(N,
2534 DL,
2535 D,
2536 DU,
2537 DU2,
2538 IPIV,
2539 INFO);
2540 }
2541
2542 //-- dgttrs --------------------------------------------------------------------
2543 void
2544 LAPACK_DECL(dgttrs)(const char *TRANS,
2545 const INTEGER *N,
2546 const INTEGER *NRHS,
2547 const DOUBLE *DL,
2548 const DOUBLE *D,
2549 const DOUBLE *DU,
2550 const DOUBLE *DU2,
2551 const INTEGER *IPIV,
2552 DOUBLE *B,
2553 const INTEGER *LDB,
2554 INTEGER *INFO)
2555 {
2556 DEBUG_LAPACK_STUB("dgttrs");
2557 LAPACK_IMPL(dgttrs)(TRANS,
2558 N,
2559 NRHS,
2560 DL,
2561 D,
2562 DU,
2563 DU2,
2564 IPIV,
2565 B,
2566 LDB,
2567 INFO);
2568 }
2569
2570 //-- dgtts2 --------------------------------------------------------------------
2571 void
2572 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
2573 const INTEGER *N,
2574 const INTEGER *NRHS,
2575 const DOUBLE *DL,
2576 const DOUBLE *D,
2577 const DOUBLE *DU,
2578 const DOUBLE *DU2,
2579 const INTEGER *IPIV,
2580 DOUBLE *B,
2581 const INTEGER *LDB)
2582 {
2583 DEBUG_LAPACK_STUB("dgtts2");
2584 LAPACK_IMPL(dgtts2)(ITRANS,
2585 N,
2586 NRHS,
2587 DL,
2588 D,
2589 DU,
2590 DU2,
2591 IPIV,
2592 B,
2593 LDB);
2594 }
2595
2596 //-- dhgeqz --------------------------------------------------------------------
2597 void
2598 LAPACK_DECL(dhgeqz)(const char *JOB,
2599 const char *COMPQ,
2600 const char *COMPZ,
2601 const INTEGER *N,
2602 const INTEGER *ILO,
2603 const INTEGER *IHI,
2604 DOUBLE *H,
2605 const INTEGER *LDH,
2606 DOUBLE *T,
2607 const INTEGER *LDT,
2608 DOUBLE *ALPHAR,
2609 DOUBLE *ALPHAI,
2610 DOUBLE *BETA,
2611 DOUBLE *Q,
2612 const INTEGER *LDQ,
2613 DOUBLE *Z,
2614 const INTEGER *LDZ,
2615 DOUBLE *WORK,
2616 const INTEGER *LWORK,
2617 INTEGER *INFO)
2618 {
2619 DEBUG_LAPACK_STUB("dhgeqz");
2620 LAPACK_IMPL(dhgeqz)(JOB,
2621 COMPQ,
2622 COMPZ,
2623 N,
2624 ILO,
2625 IHI,
2626 H,
2627 LDH,
2628 T,
2629 LDT,
2630 ALPHAR,
2631 ALPHAI,
2632 BETA,
2633 Q,
2634 LDQ,
2635 Z,
2636 LDZ,
2637 WORK,
2638 LWORK,
2639 INFO);
2640 }
2641
2642 //-- dhsein --------------------------------------------------------------------
2643 void
2644 LAPACK_DECL(dhsein)(const char *SIDE,
2645 const char *EIGSRC,
2646 const char *INITV,
2647 LOGICAL *SELECT,
2648 const INTEGER *N,
2649 const DOUBLE *H,
2650 const INTEGER *LDH,
2651 DOUBLE *WR,
2652 const DOUBLE *WI,
2653 DOUBLE *VL,
2654 const INTEGER *LDVL,
2655 DOUBLE *VR,
2656 const INTEGER *LDVR,
2657 const INTEGER *MM,
2658 INTEGER *M,
2659 DOUBLE *WORK,
2660 INTEGER *IFAILL,
2661 INTEGER *IFAILR,
2662 INTEGER *INFO)
2663 {
2664 DEBUG_LAPACK_STUB("dhsein");
2665 LAPACK_IMPL(dhsein)(SIDE,
2666 EIGSRC,
2667 INITV,
2668 SELECT,
2669 N,
2670 H,
2671 LDH,
2672 WR,
2673 WI,
2674 VL,
2675 LDVL,
2676 VR,
2677 LDVR,
2678 MM,
2679 M,
2680 WORK,
2681 IFAILL,
2682 IFAILR,
2683 INFO);
2684 }
2685
2686 //-- dhseqr --------------------------------------------------------------------
2687 void
2688 LAPACK_DECL(dhseqr)(const char *JOB,
2689 const char *COMPZ,
2690 const INTEGER *N,
2691 const INTEGER *ILO,
2692 const INTEGER *IHI,
2693 DOUBLE *H,
2694 const INTEGER *LDH,
2695 DOUBLE *WR,
2696 DOUBLE *WI,
2697 DOUBLE *Z,
2698 const INTEGER *LDZ,
2699 DOUBLE *WORK,
2700 const INTEGER *LWORK,
2701 INTEGER *INFO)
2702 {
2703 DEBUG_LAPACK_STUB("dhseqr");
2704 LAPACK_IMPL(dhseqr)(JOB,
2705 COMPZ,
2706 N,
2707 ILO,
2708 IHI,
2709 H,
2710 LDH,
2711 WR,
2712 WI,
2713 Z,
2714 LDZ,
2715 WORK,
2716 LWORK,
2717 INFO);
2718 }
2719
2720 //-- disnan --------------------------------------------------------------------
2721 LOGICAL
2722 LAPACK_DECL(disnan)(const DOUBLE *DIN)
2723 {
2724 DEBUG_LAPACK_STUB("disnan");
2725 return LAPACK_IMPL(disnan)(DIN);
2726 }
2727
2728 //-- dla_gbamv -----------------------------------------------------------------
2729 void
2730 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
2731 const INTEGER *M,
2732 const INTEGER *N,
2733 const INTEGER *KL,
2734 const INTEGER *KU,
2735 const DOUBLE *ALPHA,
2736 const DOUBLE *AB,
2737 const INTEGER *LDAB,
2738 const DOUBLE *X,
2739 const INTEGER *INCX,
2740 const DOUBLE *BETA,
2741 DOUBLE *Y,
2742 const INTEGER *INCY)
2743 {
2744 DEBUG_LAPACK_STUB("dla_gbamv");
2745 LAPACK_IMPL(dla_gbamv)(TRANS,
2746 M,
2747 N,
2748 KL,
2749 KU,
2750 ALPHA,
2751 AB,
2752 LDAB,
2753 X,
2754 INCX,
2755 BETA,
2756 Y,
2757 INCY);
2758 }
2759
2760 //-- dla_gbrcond ---------------------------------------------------------------
2761 DOUBLE
2762 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
2763 const INTEGER *N,
2764 const INTEGER *KL,
2765 const INTEGER *KU,
2766 const DOUBLE *AB,
2767 const INTEGER *LDAB,
2768 const DOUBLE *AFB,
2769 const INTEGER *LDAFB,
2770 const INTEGER *IPIV,
2771 const INTEGER *CMODE,
2772 const DOUBLE *C,
2773 INTEGER *INFO,
2774 const DOUBLE *WORK,
2775 const INTEGER *IWORK)
2776 {
2777 DEBUG_LAPACK_STUB("dla_gbrcond");
2778 return LAPACK_IMPL(dla_gbrcond)(TRANS,
2779 N,
2780 KL,
2781 KU,
2782 AB,
2783 LDAB,
2784 AFB,
2785 LDAFB,
2786 IPIV,
2787 CMODE,
2788 C,
2789 INFO,
2790 WORK,
2791 IWORK);
2792 }
2793
2794 //-- dla_gbrpvgrw --------------------------------------------------------------
2795 DOUBLE
2796 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
2797 const INTEGER *KL,
2798 const INTEGER *KU,
2799 const INTEGER *NCOLS,
2800 const DOUBLE *AB,
2801 const INTEGER *LDAB,
2802 const DOUBLE *AFB,
2803 const INTEGER *LDAFB)
2804 {
2805 DEBUG_LAPACK_STUB("dla_gbrpvgrw");
2806 return LAPACK_IMPL(dla_gbrpvgrw)(N,
2807 KL,
2808 KU,
2809 NCOLS,
2810 AB,
2811 LDAB,
2812 AFB,
2813 LDAFB);
2814 }
2815
2816 //-- dla_geamv -----------------------------------------------------------------
2817 void
2818 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
2819 const INTEGER *M,
2820 const INTEGER *N,
2821 const DOUBLE *ALPHA,
2822 const DOUBLE *A,
2823 const INTEGER *LDA,
2824 const DOUBLE *X,
2825 const INTEGER *INCX,
2826 const DOUBLE *BETA,
2827 DOUBLE *Y,
2828 const INTEGER *INCY)
2829 {
2830 DEBUG_LAPACK_STUB("dla_geamv");
2831 LAPACK_IMPL(dla_geamv)(TRANS,
2832 M,
2833 N,
2834 ALPHA,
2835 A,
2836 LDA,
2837 X,
2838 INCX,
2839 BETA,
2840 Y,
2841 INCY);
2842 }
2843
2844 //-- dla_gercond ---------------------------------------------------------------
2845 DOUBLE
2846 LAPACK_DECL(dla_gercond)(const char *TRANS,
2847 const INTEGER *N,
2848 const DOUBLE *A,
2849 const INTEGER *LDA,
2850 const DOUBLE *AF,
2851 const INTEGER *LDAF,
2852 const INTEGER *IPIV,
2853 const INTEGER *CMODE,
2854 const DOUBLE *C,
2855 INTEGER *INFO,
2856 const DOUBLE *WORK,
2857 const INTEGER *IWORK)
2858 {
2859 DEBUG_LAPACK_STUB("dla_gercond");
2860 return LAPACK_IMPL(dla_gercond)(TRANS,
2861 N,
2862 A,
2863 LDA,
2864 AF,
2865 LDAF,
2866 IPIV,
2867 CMODE,
2868 C,
2869 INFO,
2870 WORK,
2871 IWORK);
2872 }
2873
2874 //-- dla_lin_berr --------------------------------------------------------------
2875 void
2876 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
2877 const INTEGER *NZ,
2878 const INTEGER *NRHS,
2879 const DOUBLE *RES,
2880 const DOUBLE *AYB,
2881 DOUBLE *BERR)
2882 {
2883 DEBUG_LAPACK_STUB("dla_lin_berr");
2884 LAPACK_IMPL(dla_lin_berr)(N,
2885 NZ,
2886 NRHS,
2887 RES,
2888 AYB,
2889 BERR);
2890 }
2891
2892 //-- dla_porcond ---------------------------------------------------------------
2893 DOUBLE
2894 LAPACK_DECL(dla_porcond)(const char *UPLO,
2895 const INTEGER *N,
2896 const DOUBLE *A,
2897 const INTEGER *LDA,
2898 const DOUBLE *AF,
2899 const INTEGER *LDAF,
2900 const INTEGER *CMODE,
2901 const DOUBLE *C,
2902 INTEGER *INFO,
2903 const DOUBLE *WORK,
2904 const INTEGER *IWORK)
2905 {
2906 DEBUG_LAPACK_STUB("dla_porcond");
2907 return LAPACK_IMPL(dla_porcond)(UPLO,
2908 N,
2909 A,
2910 LDA,
2911 AF,
2912 LDAF,
2913 CMODE,
2914 C,
2915 INFO,
2916 WORK,
2917 IWORK);
2918 }
2919
2920 //-- dla_porpvgrw --------------------------------------------------------------
2921 DOUBLE
2922 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
2923 const INTEGER *NCOLS,
2924 const DOUBLE *A,
2925 const INTEGER *LDA,
2926 const DOUBLE *AF,
2927 const INTEGER *LDAF,
2928 const DOUBLE *WORK)
2929 {
2930 DEBUG_LAPACK_STUB("dla_porpvgrw");
2931 return LAPACK_IMPL(dla_porpvgrw)(UPLO,
2932 NCOLS,
2933 A,
2934 LDA,
2935 AF,
2936 LDAF,
2937 WORK);
2938 }
2939
2940 //-- dla_rpvgrw ----------------------------------------------------------------
2941 DOUBLE
2942 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
2943 const INTEGER *NCOLS,
2944 const DOUBLE *A,
2945 const INTEGER *LDA,
2946 const DOUBLE *AF,
2947 const INTEGER *LDAF)
2948 {
2949 DEBUG_LAPACK_STUB("dla_rpvgrw");
2950 return LAPACK_IMPL(dla_rpvgrw)(N,
2951 NCOLS,
2952 A,
2953 LDA,
2954 AF,
2955 LDAF);
2956 }
2957
2958 //-- dla_syamv -----------------------------------------------------------------
2959 void
2960 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
2961 const INTEGER *N,
2962 const DOUBLE *ALPHA,
2963 const DOUBLE *A,
2964 const INTEGER *LDA,
2965 const DOUBLE *X,
2966 const INTEGER *INCX,
2967 const DOUBLE *BETA,
2968 DOUBLE *Y,
2969 const INTEGER *INCY)
2970 {
2971 DEBUG_LAPACK_STUB("dla_syamv");
2972 LAPACK_IMPL(dla_syamv)(UPLO,
2973 N,
2974 ALPHA,
2975 A,
2976 LDA,
2977 X,
2978 INCX,
2979 BETA,
2980 Y,
2981 INCY);
2982 }
2983
2984 //-- dla_syrcond ---------------------------------------------------------------
2985 DOUBLE
2986 LAPACK_DECL(dla_syrcond)(const char *UPLO,
2987 const INTEGER *N,
2988 const DOUBLE *A,
2989 const INTEGER *LDA,
2990 const DOUBLE *AF,
2991 const INTEGER *LDAF,
2992 const INTEGER *IPIV,
2993 const INTEGER *CMODE,
2994 const DOUBLE *C,
2995 INTEGER *INFO,
2996 const DOUBLE *WORK,
2997 const INTEGER *IWORK)
2998 {
2999 DEBUG_LAPACK_STUB("dla_syrcond");
3000 return LAPACK_IMPL(dla_syrcond)(UPLO,
3001 N,
3002 A,
3003 LDA,
3004 AF,
3005 LDAF,
3006 IPIV,
3007 CMODE,
3008 C,
3009 INFO,
3010 WORK,
3011 IWORK);
3012 }
3013
3014 //-- dla_syrpvgrw --------------------------------------------------------------
3015 DOUBLE
3016 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
3017 const INTEGER *N,
3018 const INTEGER *INFO,
3019 const DOUBLE *A,
3020 const INTEGER *LDA,
3021 const DOUBLE *AF,
3022 const INTEGER *LDAF,
3023 const INTEGER *IPIV,
3024 const DOUBLE *WORK)
3025 {
3026 DEBUG_LAPACK_STUB("dla_syrpvgrw");
3027 return LAPACK_IMPL(dla_syrpvgrw)(UPLO,
3028 N,
3029 INFO,
3030 A,
3031 LDA,
3032 AF,
3033 LDAF,
3034 IPIV,
3035 WORK);
3036 }
3037
3038 //-- dla_wwaddw ----------------------------------------------------------------
3039 void
3040 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
3041 DOUBLE *X,
3042 DOUBLE *Y,
3043 const DOUBLE *W)
3044 {
3045 DEBUG_LAPACK_STUB("dla_wwaddw");
3046 LAPACK_IMPL(dla_wwaddw)(N,
3047 X,
3048 Y,
3049 W);
3050 }
3051
3052 //-- dlabad --------------------------------------------------------------------
3053 void
3054 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
3055 DOUBLE *LARGE)
3056 {
3057 DEBUG_LAPACK_STUB("dlabad");
3058 LAPACK_IMPL(dlabad)(SMALL,
3059 LARGE);
3060 }
3061
3062 //-- dlabrd --------------------------------------------------------------------
3063 void
3064 LAPACK_DECL(dlabrd)(const INTEGER *M,
3065 const INTEGER *N,
3066 const INTEGER *NB,
3067 DOUBLE *A,
3068 const INTEGER *LDA,
3069 DOUBLE *D,
3070 DOUBLE *E,
3071 DOUBLE *TAUQ,
3072 DOUBLE *TAUP,
3073 DOUBLE *X,
3074 const INTEGER *LDX,
3075 DOUBLE *Y,
3076 const INTEGER *LDY)
3077 {
3078 DEBUG_LAPACK_STUB("dlabrd");
3079 LAPACK_IMPL(dlabrd)(M,
3080 N,
3081 NB,
3082 A,
3083 LDA,
3084 D,
3085 E,
3086 TAUQ,
3087 TAUP,
3088 X,
3089 LDX,
3090 Y,
3091 LDY);
3092 }
3093
3094 //-- dlacn2 --------------------------------------------------------------------
3095 void
3096 LAPACK_DECL(dlacn2)(const INTEGER *N,
3097 DOUBLE *V,
3098 DOUBLE *X,
3099 INTEGER *ISGN,
3100 DOUBLE *EST,
3101 INTEGER *KASE,
3102 INTEGER *ISAVE)
3103 {
3104 DEBUG_LAPACK_STUB("dlacn2");
3105 LAPACK_IMPL(dlacn2)(N,
3106 V,
3107 X,
3108 ISGN,
3109 EST,
3110 KASE,
3111 ISAVE);
3112 }
3113
3114 //-- dlacon --------------------------------------------------------------------
3115 void
3116 LAPACK_DECL(dlacon)(const INTEGER *N,
3117 DOUBLE *V,
3118 DOUBLE *X,
3119 INTEGER *ISGN,
3120 DOUBLE *EST,
3121 INTEGER *KASE)
3122 {
3123 DEBUG_LAPACK_STUB("dlacon");
3124 LAPACK_IMPL(dlacon)(N,
3125 V,
3126 X,
3127 ISGN,
3128 EST,
3129 KASE);
3130 }
3131
3132 //-- dlacpy --------------------------------------------------------------------
3133 void
3134 LAPACK_DECL(dlacpy)(const char *UPLO,
3135 const INTEGER *M,
3136 const INTEGER *N,
3137 const DOUBLE *A,
3138 const INTEGER *LDA,
3139 DOUBLE *B,
3140 const INTEGER *LDB)
3141 {
3142 DEBUG_LAPACK_STUB("dlacpy");
3143 LAPACK_IMPL(dlacpy)(UPLO,
3144 M,
3145 N,
3146 A,
3147 LDA,
3148 B,
3149 LDB);
3150 }
3151
3152 //-- dladiv --------------------------------------------------------------------
3153 void
3154 LAPACK_DECL(dladiv)(const DOUBLE *A,
3155 const DOUBLE *B,
3156 const DOUBLE *C,
3157 const DOUBLE *D,
3158 DOUBLE *P,
3159 DOUBLE *Q)
3160 {
3161 DEBUG_LAPACK_STUB("dladiv");
3162 LAPACK_IMPL(dladiv)(A,
3163 B,
3164 C,
3165 D,
3166 P,
3167 Q);
3168 }
3169
3170 //-- dlae2 ---------------------------------------------------------------------
3171 void
3172 LAPACK_DECL(dlae2)(const DOUBLE *A,
3173 const DOUBLE *B,
3174 const DOUBLE *C,
3175 DOUBLE *RT1,
3176 DOUBLE *RT2)
3177 {
3178 DEBUG_LAPACK_STUB("dlae2");
3179 LAPACK_IMPL(dlae2)(A,
3180 B,
3181 C,
3182 RT1,
3183 RT2);
3184 }
3185
3186 //-- dlaebz --------------------------------------------------------------------
3187 void
3188 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
3189 const INTEGER *NITMAX,
3190 const INTEGER *N,
3191 const INTEGER *MMAX,
3192 const INTEGER *MINP,
3193 const INTEGER *NBMIN,
3194 const DOUBLE *ABSTOL,
3195 const DOUBLE *RELTOL,
3196 const DOUBLE *PIVMIN,
3197 const DOUBLE *D,
3198 const DOUBLE *E,
3199 const DOUBLE *E2,
3200 INTEGER *NVAL,
3201 DOUBLE *AB,
3202 DOUBLE *C,
3203 INTEGER *MOUT,
3204 INTEGER *NAB,
3205 DOUBLE *WORK,
3206 INTEGER *IWORK,
3207 INTEGER *INFO)
3208 {
3209 DEBUG_LAPACK_STUB("dlaebz");
3210 LAPACK_IMPL(dlaebz)(IJOB,
3211 NITMAX,
3212 N,
3213 MMAX,
3214 MINP,
3215 NBMIN,
3216 ABSTOL,
3217 RELTOL,
3218 PIVMIN,
3219 D,
3220 E,
3221 E2,
3222 NVAL,
3223 AB,
3224 C,
3225 MOUT,
3226 NAB,
3227 WORK,
3228 IWORK,
3229 INFO);
3230 }
3231
3232 //-- dlaed0 --------------------------------------------------------------------
3233 void
3234 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
3235 const INTEGER *QSIZ,
3236 const INTEGER *N,
3237 DOUBLE *D,
3238 const DOUBLE *E,
3239 DOUBLE *Q,
3240 const INTEGER *LDQ,
3241 DOUBLE *QSTORE,
3242 const INTEGER *LDQS,
3243 DOUBLE *WORK,
3244 INTEGER *IWORK,
3245 INTEGER *INFO)
3246 {
3247 DEBUG_LAPACK_STUB("dlaed0");
3248 LAPACK_IMPL(dlaed0)(ICOMPQ,
3249 QSIZ,
3250 N,
3251 D,
3252 E,
3253 Q,
3254 LDQ,
3255 QSTORE,
3256 LDQS,
3257 WORK,
3258 IWORK,
3259 INFO);
3260 }
3261
3262 //-- dlaed1 --------------------------------------------------------------------
3263 void
3264 LAPACK_DECL(dlaed1)(const INTEGER *N,
3265 DOUBLE *D,
3266 DOUBLE *Q,
3267 const INTEGER *LDQ,
3268 INTEGER *INDXQ,
3269 const DOUBLE *RHO,
3270 const INTEGER *CUTPNT,
3271 DOUBLE *WORK,
3272 INTEGER *IWORK,
3273 INTEGER *INFO)
3274 {
3275 DEBUG_LAPACK_STUB("dlaed1");
3276 LAPACK_IMPL(dlaed1)(N,
3277 D,
3278 Q,
3279 LDQ,
3280 INDXQ,
3281 RHO,
3282 CUTPNT,
3283 WORK,
3284 IWORK,
3285 INFO);
3286 }
3287
3288 //-- dlaed2 --------------------------------------------------------------------
3289 void
3290 LAPACK_DECL(dlaed2)(INTEGER *K,
3291 const INTEGER *N,
3292 const INTEGER *N1,
3293 DOUBLE *D,
3294 DOUBLE *Q,
3295 const INTEGER *LDQ,
3296 INTEGER *INDXQ,
3297 DOUBLE *RHO,
3298 const DOUBLE *Z,
3299 DOUBLE *DLAMDA,
3300 DOUBLE *W,
3301 DOUBLE *Q2,
3302 INTEGER *INDX,
3303 INTEGER *INDXC,
3304 INTEGER *INDXP,
3305 INTEGER *COLTYP,
3306 INTEGER *INFO)
3307 {
3308 DEBUG_LAPACK_STUB("dlaed2");
3309 LAPACK_IMPL(dlaed2)(K,
3310 N,
3311 N1,
3312 D,
3313 Q,
3314 LDQ,
3315 INDXQ,
3316 RHO,
3317 Z,
3318 DLAMDA,
3319 W,
3320 Q2,
3321 INDX,
3322 INDXC,
3323 INDXP,
3324 COLTYP,
3325 INFO);
3326 }
3327
3328 //-- dlaed3 --------------------------------------------------------------------
3329 void
3330 LAPACK_DECL(dlaed3)(const INTEGER *K,
3331 const INTEGER *N,
3332 const INTEGER *N1,
3333 DOUBLE *D,
3334 DOUBLE *Q,
3335 const INTEGER *LDQ,
3336 const DOUBLE *RHO,
3337 DOUBLE *DLAMDA,
3338 const DOUBLE *Q2,
3339 const INTEGER *INDX,
3340 const INTEGER *CTOT,
3341 DOUBLE *W,
3342 DOUBLE *S,
3343 INTEGER *INFO)
3344 {
3345 DEBUG_LAPACK_STUB("dlaed3");
3346 LAPACK_IMPL(dlaed3)(K,
3347 N,
3348 N1,
3349 D,
3350 Q,
3351 LDQ,
3352 RHO,
3353 DLAMDA,
3354 Q2,
3355 INDX,
3356 CTOT,
3357 W,
3358 S,
3359 INFO);
3360 }
3361
3362 //-- dlaed4 --------------------------------------------------------------------
3363 void
3364 LAPACK_DECL(dlaed4)(const INTEGER *N,
3365 const INTEGER *I,
3366 const DOUBLE *D,
3367 const DOUBLE *Z,
3368 DOUBLE *DELTA,
3369 const DOUBLE *RHO,
3370 DOUBLE *DLAM,
3371 INTEGER *INFO)
3372 {
3373 DEBUG_LAPACK_STUB("dlaed4");
3374 LAPACK_IMPL(dlaed4)(N,
3375 I,
3376 D,
3377 Z,
3378 DELTA,
3379 RHO,
3380 DLAM,
3381 INFO);
3382 }
3383
3384 //-- dlaed5 --------------------------------------------------------------------
3385 void
3386 LAPACK_DECL(dlaed5)(const INTEGER *I,
3387 const DOUBLE *D,
3388 const DOUBLE *Z,
3389 DOUBLE *DELTA,
3390 const DOUBLE *RHO,
3391 DOUBLE *DLAM)
3392 {
3393 DEBUG_LAPACK_STUB("dlaed5");
3394 LAPACK_IMPL(dlaed5)(I,
3395 D,
3396 Z,
3397 DELTA,
3398 RHO,
3399 DLAM);
3400 }
3401
3402 //-- dlaed6 --------------------------------------------------------------------
3403 void
3404 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
3405 const LOGICAL *ORGATI,
3406 const DOUBLE *RHO,
3407 const DOUBLE *D,
3408 const DOUBLE *Z,
3409 const DOUBLE *FINIT,
3410 DOUBLE *TAU,
3411 INTEGER *INFO)
3412 {
3413 DEBUG_LAPACK_STUB("dlaed6");
3414 LAPACK_IMPL(dlaed6)(KNITER,
3415 ORGATI,
3416 RHO,
3417 D,
3418 Z,
3419 FINIT,
3420 TAU,
3421 INFO);
3422 }
3423
3424 //-- dlaed7 --------------------------------------------------------------------
3425 void
3426 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
3427 const INTEGER *N,
3428 const INTEGER *QSIZ,
3429 const INTEGER *TLVLS,
3430 const INTEGER *CURLVL,
3431 const INTEGER *CURPBM,
3432 DOUBLE *D,
3433 DOUBLE *Q,
3434 const INTEGER *LDQ,
3435 INTEGER *INDXQ,
3436 const DOUBLE *RHO,
3437 const INTEGER *CUTPNT,
3438 DOUBLE *QSTORE,
3439 INTEGER *QPTR,
3440 const INTEGER *PRMPTR,
3441 const INTEGER *PERM,
3442 const INTEGER *GIVPTR,
3443 const INTEGER *GIVCOL,
3444 const DOUBLE *GIVNUM,
3445 DOUBLE *WORK,
3446 INTEGER *IWORK,
3447 INTEGER *INFO)
3448 {
3449 DEBUG_LAPACK_STUB("dlaed7");
3450 LAPACK_IMPL(dlaed7)(ICOMPQ,
3451 N,
3452 QSIZ,
3453 TLVLS,
3454 CURLVL,
3455 CURPBM,
3456 D,
3457 Q,
3458 LDQ,
3459 INDXQ,
3460 RHO,
3461 CUTPNT,
3462 QSTORE,
3463 QPTR,
3464 PRMPTR,
3465 PERM,
3466 GIVPTR,
3467 GIVCOL,
3468 GIVNUM,
3469 WORK,
3470 IWORK,
3471 INFO);
3472 }
3473
3474 //-- dlaed8 --------------------------------------------------------------------
3475 void
3476 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
3477 INTEGER *K,
3478 const INTEGER *N,
3479 const INTEGER *QSIZ,
3480 DOUBLE *D,
3481 DOUBLE *Q,
3482 const INTEGER *LDQ,
3483 const INTEGER *INDXQ,
3484 DOUBLE *RHO,
3485 const INTEGER *CUTPNT,
3486 const DOUBLE *Z,
3487 DOUBLE *DLAMDA,
3488 DOUBLE *Q2,
3489 const INTEGER *LDQ2,
3490 DOUBLE *W,
3491 INTEGER *PERM,
3492 INTEGER *GIVPTR,
3493 INTEGER *GIVCOL,
3494 DOUBLE *GIVNUM,
3495 INTEGER *INDXP,
3496 INTEGER *INDX,
3497 INTEGER *INFO)
3498 {
3499 DEBUG_LAPACK_STUB("dlaed8");
3500 LAPACK_IMPL(dlaed8)(ICOMPQ,
3501 K,
3502 N,
3503 QSIZ,
3504 D,
3505 Q,
3506 LDQ,
3507 INDXQ,
3508 RHO,
3509 CUTPNT,
3510 Z,
3511 DLAMDA,
3512 Q2,
3513 LDQ2,
3514 W,
3515 PERM,
3516 GIVPTR,
3517 GIVCOL,
3518 GIVNUM,
3519 INDXP,
3520 INDX,
3521 INFO);
3522 }
3523
3524 //-- dlaed9 --------------------------------------------------------------------
3525 void
3526 LAPACK_DECL(dlaed9)(const INTEGER *K,
3527 const INTEGER *KSTART,
3528 const INTEGER *KSTOP,
3529 const INTEGER *N,
3530 DOUBLE *D,
3531 DOUBLE *Q,
3532 const INTEGER *LDQ,
3533 const DOUBLE *RHO,
3534 const DOUBLE *DLAMDA,
3535 const DOUBLE *W,
3536 DOUBLE *S,
3537 const INTEGER *LDS,
3538 INTEGER *INFO)
3539 {
3540 DEBUG_LAPACK_STUB("dlaed9");
3541 LAPACK_IMPL(dlaed9)(K,
3542 KSTART,
3543 KSTOP,
3544 N,
3545 D,
3546 Q,
3547 LDQ,
3548 RHO,
3549 DLAMDA,
3550 W,
3551 S,
3552 LDS,
3553 INFO);
3554 }
3555
3556 //-- dlaeda --------------------------------------------------------------------
3557 void
3558 LAPACK_DECL(dlaeda)(const INTEGER *N,
3559 const INTEGER *TLVLS,
3560 const INTEGER *CURLVL,
3561 const INTEGER *CURPBM,
3562 const INTEGER *PRMPTR,
3563 const INTEGER *PERM,
3564 const INTEGER *GIVPTR,
3565 const INTEGER *GIVCOL,
3566 const DOUBLE *GIVNUM,
3567 const DOUBLE *Q,
3568 const INTEGER *QPTR,
3569 DOUBLE *Z,
3570 DOUBLE *ZTEMP,
3571 INTEGER *INFO)
3572 {
3573 DEBUG_LAPACK_STUB("dlaeda");
3574 LAPACK_IMPL(dlaeda)(N,
3575 TLVLS,
3576 CURLVL,
3577 CURPBM,
3578 PRMPTR,
3579 PERM,
3580 GIVPTR,
3581 GIVCOL,
3582 GIVNUM,
3583 Q,
3584 QPTR,
3585 Z,
3586 ZTEMP,
3587 INFO);
3588 }
3589
3590 //-- dlaein --------------------------------------------------------------------
3591 void
3592 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
3593 const LOGICAL *NOINIT,
3594 const INTEGER *N,
3595 const DOUBLE *H,
3596 const INTEGER *LDH,
3597 const DOUBLE *WR,
3598 const DOUBLE *WI,
3599 DOUBLE *VR,
3600 DOUBLE *VI,
3601 DOUBLE *B,
3602 const INTEGER *LDB,
3603 DOUBLE *WORK,
3604 const DOUBLE *EPS3,
3605 const DOUBLE *SMLNUM,
3606 const DOUBLE *BIGNUM,
3607 INTEGER *INFO)
3608 {
3609 DEBUG_LAPACK_STUB("dlaein");
3610 LAPACK_IMPL(dlaein)(RIGHTV,
3611 NOINIT,
3612 N,
3613 H,
3614 LDH,
3615 WR,
3616 WI,
3617 VR,
3618 VI,
3619 B,
3620 LDB,
3621 WORK,
3622 EPS3,
3623 SMLNUM,
3624 BIGNUM,
3625 INFO);
3626 }
3627
3628 //-- dlaev2 --------------------------------------------------------------------
3629 void
3630 LAPACK_DECL(dlaev2)(const DOUBLE *A,
3631 const DOUBLE *B,
3632 const DOUBLE *C,
3633 DOUBLE *RT1,
3634 DOUBLE *RT2,
3635 DOUBLE *CS1,
3636 DOUBLE *SN1)
3637 {
3638 DEBUG_LAPACK_STUB("dlaev2");
3639 LAPACK_IMPL(dlaev2)(A,
3640 B,
3641 C,
3642 RT1,
3643 RT2,
3644 CS1,
3645 SN1);
3646 }
3647
3648 //-- dlaexc --------------------------------------------------------------------
3649 void
3650 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
3651 const INTEGER *N,
3652 DOUBLE *T,
3653 const INTEGER *LDT,
3654 DOUBLE *Q,
3655 const INTEGER *LDQ,
3656 const INTEGER *J1,
3657 const INTEGER *N1,
3658 const INTEGER *N2,
3659 DOUBLE *WORK,
3660 INTEGER *INFO)
3661 {
3662 DEBUG_LAPACK_STUB("dlaexc");
3663 LAPACK_IMPL(dlaexc)(WANTQ,
3664 N,
3665 T,
3666 LDT,
3667 Q,
3668 LDQ,
3669 J1,
3670 N1,
3671 N2,
3672 WORK,
3673 INFO);
3674 }
3675
3676 //-- dlag2 ---------------------------------------------------------------------
3677 void
3678 LAPACK_DECL(dlag2)(const DOUBLE *A,
3679 const INTEGER *LDA,
3680 const DOUBLE *B,
3681 const INTEGER *LDB,
3682 const DOUBLE *SAFMIN,
3683 DOUBLE *SCALE1,
3684 DOUBLE *SCALE2,
3685 DOUBLE *WR1,
3686 DOUBLE *WR2,
3687 DOUBLE *WI)
3688 {
3689 DEBUG_LAPACK_STUB("dlag2");
3690 LAPACK_IMPL(dlag2)(A,
3691 LDA,
3692 B,
3693 LDB,
3694 SAFMIN,
3695 SCALE1,
3696 SCALE2,
3697 WR1,
3698 WR2,
3699 WI);
3700 }
3701
3702 //-- dlag2s --------------------------------------------------------------------
3703 void
3704 LAPACK_DECL(dlag2s)(const INTEGER *M,
3705 const INTEGER *N,
3706 const DOUBLE *A,
3707 const INTEGER *LDA,
3708 FLOAT *SA,
3709 const INTEGER *LDSA,
3710 INTEGER *INFO)
3711 {
3712 DEBUG_LAPACK_STUB("dlag2s");
3713 LAPACK_IMPL(dlag2s)(M,
3714 N,
3715 A,
3716 LDA,
3717 SA,
3718 LDSA,
3719 INFO);
3720 }
3721
3722 //-- dlags2 --------------------------------------------------------------------
3723 void
3724 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
3725 const DOUBLE *A1,
3726 const DOUBLE *A2,
3727 const DOUBLE *A3,
3728 const DOUBLE *B1,
3729 const DOUBLE *B2,
3730 const DOUBLE *B3,
3731 DOUBLE *CSU,
3732 DOUBLE *SNU,
3733 DOUBLE *CSV,
3734 DOUBLE *SNV,
3735 DOUBLE *CSQ,
3736 DOUBLE *SNQ)
3737 {
3738 DEBUG_LAPACK_STUB("dlags2");
3739 LAPACK_IMPL(dlags2)(UPPER,
3740 A1,
3741 A2,
3742 A3,
3743 B1,
3744 B2,
3745 B3,
3746 CSU,
3747 SNU,
3748 CSV,
3749 SNV,
3750 CSQ,
3751 SNQ);
3752 }
3753
3754 //-- dlagtf --------------------------------------------------------------------
3755 void
3756 LAPACK_DECL(dlagtf)(const INTEGER *N,
3757 DOUBLE *A,
3758 const DOUBLE *LAMBDA,
3759 DOUBLE *B,
3760 DOUBLE *C,
3761 const DOUBLE *TOL,
3762 DOUBLE *D,
3763 INTEGER *IN,
3764 INTEGER *INFO)
3765 {
3766 DEBUG_LAPACK_STUB("dlagtf");
3767 LAPACK_IMPL(dlagtf)(N,
3768 A,
3769 LAMBDA,
3770 B,
3771 C,
3772 TOL,
3773 D,
3774 IN,
3775 INFO);
3776 }
3777
3778 //-- dlagtm --------------------------------------------------------------------
3779 void
3780 LAPACK_DECL(dlagtm)(const char *TRANS,
3781 const INTEGER *N,
3782 const INTEGER *NRHS,
3783 const DOUBLE *ALPHA,
3784 const DOUBLE *DL,
3785 const DOUBLE *D,
3786 const DOUBLE *DU,
3787 const DOUBLE *X,
3788 const INTEGER *LDX,
3789 const DOUBLE *BETA,
3790 DOUBLE *B,
3791 const INTEGER *LDB)
3792 {
3793 DEBUG_LAPACK_STUB("dlagtm");
3794 LAPACK_IMPL(dlagtm)(TRANS,
3795 N,
3796 NRHS,
3797 ALPHA,
3798 DL,
3799 D,
3800 DU,
3801 X,
3802 LDX,
3803 BETA,
3804 B,
3805 LDB);
3806 }
3807
3808 //-- dlagts --------------------------------------------------------------------
3809 void
3810 LAPACK_DECL(dlagts)(const INTEGER *JOB,
3811 const INTEGER *N,
3812 const DOUBLE *A,
3813 const DOUBLE *B,
3814 const DOUBLE *C,
3815 const DOUBLE *D,
3816 const INTEGER *IN,
3817 DOUBLE *Y,
3818 DOUBLE *TOL,
3819 INTEGER *INFO)
3820 {
3821 DEBUG_LAPACK_STUB("dlagts");
3822 LAPACK_IMPL(dlagts)(JOB,
3823 N,
3824 A,
3825 B,
3826 C,
3827 D,
3828 IN,
3829 Y,
3830 TOL,
3831 INFO);
3832 }
3833
3834 //-- dlagv2 --------------------------------------------------------------------
3835 void
3836 LAPACK_DECL(dlagv2)(DOUBLE *A,
3837 const INTEGER *LDA,
3838 DOUBLE *B,
3839 const INTEGER *LDB,
3840 DOUBLE *ALPHAR,
3841 DOUBLE *ALPHAI,
3842 DOUBLE *BETA,
3843 DOUBLE *CSL,
3844 DOUBLE *SNL,
3845 DOUBLE *CSR,
3846 DOUBLE *SNR)
3847 {
3848 DEBUG_LAPACK_STUB("dlagv2");
3849 LAPACK_IMPL(dlagv2)(A,
3850 LDA,
3851 B,
3852 LDB,
3853 ALPHAR,
3854 ALPHAI,
3855 BETA,
3856 CSL,
3857 SNL,
3858 CSR,
3859 SNR);
3860 }
3861
3862 //-- dlahqr --------------------------------------------------------------------
3863 void
3864 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
3865 const LOGICAL *WANTZ,
3866 const INTEGER *N,
3867 const INTEGER *ILO,
3868 const INTEGER *IHI,
3869 DOUBLE *H,
3870 const INTEGER *LDH,
3871 DOUBLE *WR,
3872 DOUBLE *WI,
3873 const INTEGER *ILOZ,
3874 const INTEGER *IHIZ,
3875 DOUBLE *Z,
3876 const INTEGER *LDZ,
3877 INTEGER *INFO)
3878 {
3879 DEBUG_LAPACK_STUB("dlahqr");
3880 LAPACK_IMPL(dlahqr)(WANTT,
3881 WANTZ,
3882 N,
3883 ILO,
3884 IHI,
3885 H,
3886 LDH,
3887 WR,
3888 WI,
3889 ILOZ,
3890 IHIZ,
3891 Z,
3892 LDZ,
3893 INFO);
3894 }
3895
3896 //-- dlahr2 --------------------------------------------------------------------
3897 void
3898 LAPACK_DECL(dlahr2)(const INTEGER *N,
3899 const INTEGER *K,
3900 const INTEGER *NB,
3901 DOUBLE *A,
3902 const INTEGER *LDA,
3903 DOUBLE *TAU,
3904 DOUBLE *T,
3905 const INTEGER *LDT,
3906 DOUBLE *Y,
3907 const INTEGER *LDY)
3908 {
3909 DEBUG_LAPACK_STUB("dlahr2");
3910 LAPACK_IMPL(dlahr2)(N,
3911 K,
3912 NB,
3913 A,
3914 LDA,
3915 TAU,
3916 T,
3917 LDT,
3918 Y,
3919 LDY);
3920 }
3921
3922 //-- dlahrd --------------------------------------------------------------------
3923 void
3924 LAPACK_DECL(dlahrd)(const INTEGER *N,
3925 const INTEGER *K,
3926 const INTEGER *NB,
3927 DOUBLE *A,
3928 const INTEGER *LDA,
3929 DOUBLE *TAU,
3930 DOUBLE *T,
3931 const INTEGER *LDT,
3932 DOUBLE *Y,
3933 const INTEGER *LDY)
3934 {
3935 DEBUG_LAPACK_STUB("dlahrd");
3936 LAPACK_IMPL(dlahrd)(N,
3937 K,
3938 NB,
3939 A,
3940 LDA,
3941 TAU,
3942 T,
3943 LDT,
3944 Y,
3945 LDY);
3946 }
3947
3948 //-- dlaic1 --------------------------------------------------------------------
3949 void
3950 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
3951 const INTEGER *J,
3952 const DOUBLE *X,
3953 const DOUBLE *SEST,
3954 const DOUBLE *W,
3955 const DOUBLE *GAMMA,
3956 DOUBLE *SESTPR,
3957 DOUBLE *S,
3958 DOUBLE *C)
3959 {
3960 DEBUG_LAPACK_STUB("dlaic1");
3961 LAPACK_IMPL(dlaic1)(JOB,
3962 J,
3963 X,
3964 SEST,
3965 W,
3966 GAMMA,
3967 SESTPR,
3968 S,
3969 C);
3970 }
3971
3972 //-- dlaisnan ------------------------------------------------------------------
3973 LOGICAL
3974 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
3975 const DOUBLE *DIN2)
3976 {
3977 DEBUG_LAPACK_STUB("dlaisnan");
3978 return LAPACK_IMPL(dlaisnan)(DIN1,
3979 DIN2);
3980 }
3981
3982 //-- dlaln2 --------------------------------------------------------------------
3983 void
3984 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
3985 const INTEGER *NA,
3986 const INTEGER *NW,
3987 const DOUBLE *SMIN,
3988 const DOUBLE *CA,
3989 const DOUBLE *A,
3990 const INTEGER *LDA,
3991 const DOUBLE *D1,
3992 const DOUBLE *D2,
3993 const DOUBLE *B,
3994 const INTEGER *LDB,
3995 const DOUBLE *WR,
3996 const DOUBLE *WI,
3997 DOUBLE *X,
3998 const INTEGER *LDX,
3999 DOUBLE *SCALE,
4000 DOUBLE *XNORM,
4001 INTEGER *INFO)
4002 {
4003 DEBUG_LAPACK_STUB("dlaln2");
4004 LAPACK_IMPL(dlaln2)(LTRANS,
4005 NA,
4006 NW,
4007 SMIN,
4008 CA,
4009 A,
4010 LDA,
4011 D1,
4012 D2,
4013 B,
4014 LDB,
4015 WR,
4016 WI,
4017 X,
4018 LDX,
4019 SCALE,
4020 XNORM,
4021 INFO);
4022 }
4023
4024 //-- dlals0 --------------------------------------------------------------------
4025 void
4026 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
4027 const INTEGER *NL,
4028 const INTEGER *NR,
4029 const INTEGER *SQRE,
4030 const INTEGER *NRHS,
4031 DOUBLE *B,
4032 const INTEGER *LDB,
4033 DOUBLE *BX,
4034 const INTEGER *LDBX,
4035 const INTEGER *PERM,
4036 const INTEGER *GIVPTR,
4037 const INTEGER *GIVCOL,
4038 const INTEGER *LDGCOL,
4039 const DOUBLE *GIVNUM,
4040 const INTEGER *LDGNUM,
4041 const DOUBLE *POLES,
4042 const DOUBLE *DIFL,
4043 const DOUBLE *DIFR,
4044 const DOUBLE *Z,
4045 const INTEGER *K,
4046 const DOUBLE *C,
4047 const DOUBLE *S,
4048 DOUBLE *WORK,
4049 INTEGER *INFO)
4050 {
4051 DEBUG_LAPACK_STUB("dlals0");
4052 LAPACK_IMPL(dlals0)(ICOMPQ,
4053 NL,
4054 NR,
4055 SQRE,
4056 NRHS,
4057 B,
4058 LDB,
4059 BX,
4060 LDBX,
4061 PERM,
4062 GIVPTR,
4063 GIVCOL,
4064 LDGCOL,
4065 GIVNUM,
4066 LDGNUM,
4067 POLES,
4068 DIFL,
4069 DIFR,
4070 Z,
4071 K,
4072 C,
4073 S,
4074 WORK,
4075 INFO);
4076 }
4077
4078 //-- dlalsa --------------------------------------------------------------------
4079 void
4080 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
4081 const INTEGER *SMLSIZ,
4082 const INTEGER *N,
4083 const INTEGER *NRHS,
4084 DOUBLE *B,
4085 const INTEGER *LDB,
4086 DOUBLE *BX,
4087 const INTEGER *LDBX,
4088 const DOUBLE *U,
4089 const INTEGER *LDU,
4090 const DOUBLE *VT,
4091 const INTEGER *K,
4092 const DOUBLE *DIFL,
4093 const DOUBLE *DIFR,
4094 const DOUBLE *Z,
4095 const DOUBLE *POLES,
4096 const INTEGER *GIVPTR,
4097 const INTEGER *GIVCOL,
4098 const INTEGER *LDGCOL,
4099 const INTEGER *PERM,
4100 const DOUBLE *GIVNUM,
4101 const DOUBLE *C,
4102 const DOUBLE *S,
4103 DOUBLE *WORK,
4104 INTEGER *IWORK,
4105 INTEGER *INFO)
4106 {
4107 DEBUG_LAPACK_STUB("dlalsa");
4108 LAPACK_IMPL(dlalsa)(ICOMPQ,
4109 SMLSIZ,
4110 N,
4111 NRHS,
4112 B,
4113 LDB,
4114 BX,
4115 LDBX,
4116 U,
4117 LDU,
4118 VT,
4119 K,
4120 DIFL,
4121 DIFR,
4122 Z,
4123 POLES,
4124 GIVPTR,
4125 GIVCOL,
4126 LDGCOL,
4127 PERM,
4128 GIVNUM,
4129 C,
4130 S,
4131 WORK,
4132 IWORK,
4133 INFO);
4134 }
4135
4136 //-- dlalsd --------------------------------------------------------------------
4137 void
4138 LAPACK_DECL(dlalsd)(const char *UPLO,
4139 const INTEGER *SMLSIZ,
4140 const INTEGER *N,
4141 const INTEGER *NRHS,
4142 DOUBLE *D,
4143 DOUBLE *E,
4144 DOUBLE *B,
4145 const INTEGER *LDB,
4146 const DOUBLE *RCOND,
4147 INTEGER *RANK,
4148 DOUBLE *WORK,
4149 INTEGER *IWORK,
4150 INTEGER *INFO)
4151 {
4152 DEBUG_LAPACK_STUB("dlalsd");
4153 LAPACK_IMPL(dlalsd)(UPLO,
4154 SMLSIZ,
4155 N,
4156 NRHS,
4157 D,
4158 E,
4159 B,
4160 LDB,
4161 RCOND,
4162 RANK,
4163 WORK,
4164 IWORK,
4165 INFO);
4166 }
4167
4168 //-- dlamch --------------------------------------------------------------------
4169 /*
4170 DOUBLE
4171 LAPACK_DECL(dlamch)(const char *CMACH)
4172 {
4173 DEBUG_LAPACK_STUB("dlamch");
4174 return LAPACK_IMPL(dlamch)(CMACH);
4175 }
4176 */
4177 //-- dlamrg --------------------------------------------------------------------
4178 void
4179 LAPACK_DECL(dlamrg)(const INTEGER *N1,
4180 const INTEGER *N2,
4181 const DOUBLE *A,
4182 const INTEGER *DTRD1,
4183 const INTEGER *DTRD2,
4184 INTEGER *INDEX)
4185 {
4186 DEBUG_LAPACK_STUB("dlamrg");
4187 LAPACK_IMPL(dlamrg)(N1,
4188 N2,
4189 A,
4190 DTRD1,
4191 DTRD2,
4192 INDEX);
4193 }
4194
4195 //-- dlaneg --------------------------------------------------------------------
4196 INTEGER
4197 LAPACK_DECL(dlaneg)(const INTEGER *N,
4198 const DOUBLE *D,
4199 const DOUBLE *LLD,
4200 const DOUBLE *SIGMA,
4201 const DOUBLE *PIVMIN,
4202 const INTEGER *R)
4203 {
4204 DEBUG_LAPACK_STUB("dlaneg");
4205 return LAPACK_IMPL(dlaneg)(N,
4206 D,
4207 LLD,
4208 SIGMA,
4209 PIVMIN,
4210 R);
4211 }
4212
4213 //-- dlangb --------------------------------------------------------------------
4214 DOUBLE
4215 LAPACK_DECL(dlangb)(const char *NORM,
4216 const INTEGER *N,
4217 const INTEGER *KL,
4218 const INTEGER *KU,
4219 const DOUBLE *AB,
4220 const INTEGER *LDAB,
4221 DOUBLE *WORK)
4222 {
4223 DEBUG_LAPACK_STUB("dlangb");
4224 return LAPACK_IMPL(dlangb)(NORM,
4225 N,
4226 KL,
4227 KU,
4228 AB,
4229 LDAB,
4230 WORK);
4231 }
4232
4233 //-- dlange --------------------------------------------------------------------
4234 DOUBLE
4235 LAPACK_DECL(dlange)(const char *NORM,
4236 const INTEGER *M,
4237 const INTEGER *N,
4238 const DOUBLE *A,
4239 const INTEGER *LDA,
4240 DOUBLE *WORK)
4241 {
4242 DEBUG_LAPACK_STUB("dlange");
4243 return LAPACK_IMPL(dlange)(NORM,
4244 M,
4245 N,
4246 A,
4247 LDA,
4248 WORK);
4249 }
4250
4251 //-- dlangt --------------------------------------------------------------------
4252 DOUBLE
4253 LAPACK_DECL(dlangt)(const char *NORM,
4254 const INTEGER *N,
4255 const DOUBLE *DL,
4256 const DOUBLE *D,
4257 const DOUBLE *DU)
4258 {
4259 DEBUG_LAPACK_STUB("dlangt");
4260 return LAPACK_IMPL(dlangt)(NORM,
4261 N,
4262 DL,
4263 D,
4264 DU);
4265 }
4266
4267 //-- dlanhs --------------------------------------------------------------------
4268 DOUBLE
4269 LAPACK_DECL(dlanhs)(const char *NORM,
4270 const INTEGER *N,
4271 const DOUBLE *A,
4272 const INTEGER *LDA,
4273 DOUBLE *WORK)
4274 {
4275 DEBUG_LAPACK_STUB("dlanhs");
4276 return LAPACK_IMPL(dlanhs)(NORM,
4277 N,
4278 A,
4279 LDA,
4280 WORK);
4281 }
4282
4283 //-- dlansb --------------------------------------------------------------------
4284 DOUBLE
4285 LAPACK_DECL(dlansb)(const char *NORM,
4286 const char *UPLO,
4287 const INTEGER *N,
4288 const INTEGER *K,
4289 const DOUBLE *AB,
4290 const INTEGER *LDAB,
4291 DOUBLE *WORK)
4292 {
4293 DEBUG_LAPACK_STUB("dlansb");
4294 return LAPACK_IMPL(dlansb)(NORM,
4295 UPLO,
4296 N,
4297 K,
4298 AB,
4299 LDAB,
4300 WORK);
4301 }
4302
4303 //-- dlansf --------------------------------------------------------------------
4304 DOUBLE
4305 LAPACK_DECL(dlansf)(const char *NORM,
4306 const char *TRANSR,
4307 const char *UPLO,
4308 const INTEGER *N,
4309 const DOUBLE *A,
4310 DOUBLE *WORK)
4311 {
4312 DEBUG_LAPACK_STUB("dlansf");
4313 return LAPACK_IMPL(dlansf)(NORM,
4314 TRANSR,
4315 UPLO,
4316 N,
4317 A,
4318 WORK);
4319 }
4320
4321 //-- dlansp --------------------------------------------------------------------
4322 DOUBLE
4323 LAPACK_DECL(dlansp)(const char *NORM,
4324 const char *UPLO,
4325 const INTEGER *N,
4326 const DOUBLE *AP,
4327 DOUBLE *WORK)
4328 {
4329 DEBUG_LAPACK_STUB("dlansp");
4330 return LAPACK_IMPL(dlansp)(NORM,
4331 UPLO,
4332 N,
4333 AP,
4334 WORK);
4335 }
4336
4337 //-- dlanst --------------------------------------------------------------------
4338 DOUBLE
4339 LAPACK_DECL(dlanst)(const char *NORM,
4340 const INTEGER *N,
4341 const DOUBLE *D,
4342 const DOUBLE *E)
4343 {
4344 DEBUG_LAPACK_STUB("dlanst");
4345 return LAPACK_IMPL(dlanst)(NORM,
4346 N,
4347 D,
4348 E);
4349 }
4350
4351 //-- dlansy --------------------------------------------------------------------
4352 DOUBLE
4353 LAPACK_DECL(dlansy)(const char *NORM,
4354 const char *UPLO,
4355 const INTEGER *N,
4356 const DOUBLE *A,
4357 const INTEGER *LDA,
4358 DOUBLE *WORK)
4359 {
4360 DEBUG_LAPACK_STUB("dlansy");
4361 return LAPACK_IMPL(dlansy)(NORM,
4362 UPLO,
4363 N,
4364 A,
4365 LDA,
4366 WORK);
4367 }
4368
4369 //-- dlantb --------------------------------------------------------------------
4370 DOUBLE
4371 LAPACK_DECL(dlantb)(const char *NORM,
4372 const char *UPLO,
4373 const char *DIAG,
4374 const INTEGER *N,
4375 const INTEGER *K,
4376 const DOUBLE *AB,
4377 const INTEGER *LDAB,
4378 DOUBLE *WORK)
4379 {
4380 DEBUG_LAPACK_STUB("dlantb");
4381 return LAPACK_IMPL(dlantb)(NORM,
4382 UPLO,
4383 DIAG,
4384 N,
4385 K,
4386 AB,
4387 LDAB,
4388 WORK);
4389 }
4390
4391 //-- dlantp --------------------------------------------------------------------
4392 DOUBLE
4393 LAPACK_DECL(dlantp)(const char *NORM,
4394 const char *UPLO,
4395 const char *DIAG,
4396 const INTEGER *N,
4397 const DOUBLE *AP,
4398 DOUBLE *WORK)
4399 {
4400 DEBUG_LAPACK_STUB("dlantp");
4401 return LAPACK_IMPL(dlantp)(NORM,
4402 UPLO,
4403 DIAG,
4404 N,
4405 AP,
4406 WORK);
4407 }
4408
4409 //-- dlantr --------------------------------------------------------------------
4410 DOUBLE
4411 LAPACK_DECL(dlantr)(const char *NORM,
4412 const char *UPLO,
4413 const char *DIAG,
4414 const INTEGER *M,
4415 const INTEGER *N,
4416 const DOUBLE *A,
4417 const INTEGER *LDA,
4418 DOUBLE *WORK)
4419 {
4420 DEBUG_LAPACK_STUB("dlantr");
4421 return LAPACK_IMPL(dlantr)(NORM,
4422 UPLO,
4423 DIAG,
4424 M,
4425 N,
4426 A,
4427 LDA,
4428 WORK);
4429 }
4430
4431 //-- dlanv2 --------------------------------------------------------------------
4432 void
4433 LAPACK_DECL(dlanv2)(DOUBLE *A,
4434 DOUBLE *B,
4435 DOUBLE *C,
4436 DOUBLE *D,
4437 DOUBLE *RT1R,
4438 DOUBLE *RT1I,
4439 DOUBLE *RT2R,
4440 DOUBLE *RT2I,
4441 DOUBLE *CS,
4442 DOUBLE *SN)
4443 {
4444 DEBUG_LAPACK_STUB("dlanv2");
4445 LAPACK_IMPL(dlanv2)(A,
4446 B,
4447 C,
4448 D,
4449 RT1R,
4450 RT1I,
4451 RT2R,
4452 RT2I,
4453 CS,
4454 SN);
4455 }
4456
4457 //-- dlapll --------------------------------------------------------------------
4458 void
4459 LAPACK_DECL(dlapll)(const INTEGER *N,
4460 DOUBLE *X,
4461 const INTEGER *INCX,
4462 DOUBLE *Y,
4463 const INTEGER *INCY,
4464 DOUBLE *SSMIN)
4465 {
4466 DEBUG_LAPACK_STUB("dlapll");
4467 LAPACK_IMPL(dlapll)(N,
4468 X,
4469 INCX,
4470 Y,
4471 INCY,
4472 SSMIN);
4473 }
4474
4475 //-- dlapmr --------------------------------------------------------------------
4476 void
4477 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
4478 const INTEGER *M,
4479 const INTEGER *N,
4480 DOUBLE *X,
4481 const INTEGER *LDX,
4482 INTEGER *K)
4483 {
4484 DEBUG_LAPACK_STUB("dlapmr");
4485 LAPACK_IMPL(dlapmr)(FORWRD,
4486 M,
4487 N,
4488 X,
4489 LDX,
4490 K);
4491 }
4492
4493 //-- dlapmt --------------------------------------------------------------------
4494 void
4495 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
4496 const INTEGER *M,
4497 const INTEGER *N,
4498 DOUBLE *X,
4499 const INTEGER *LDX,
4500 INTEGER *K)
4501 {
4502 DEBUG_LAPACK_STUB("dlapmt");
4503 LAPACK_IMPL(dlapmt)(FORWRD,
4504 M,
4505 N,
4506 X,
4507 LDX,
4508 K);
4509 }
4510
4511 //-- dlapy2 --------------------------------------------------------------------
4512 DOUBLE
4513 LAPACK_DECL(dlapy2)(const DOUBLE *X,
4514 const DOUBLE *Y)
4515 {
4516 DEBUG_LAPACK_STUB("dlapy2");
4517 return LAPACK_IMPL(dlapy2)(X,
4518 Y);
4519 }
4520
4521 //-- dlapy3 --------------------------------------------------------------------
4522 DOUBLE
4523 LAPACK_DECL(dlapy3)(const DOUBLE *X,
4524 const DOUBLE *Y,
4525 const DOUBLE *Z)
4526 {
4527 DEBUG_LAPACK_STUB("dlapy3");
4528 return LAPACK_IMPL(dlapy3)(X,
4529 Y,
4530 Z);
4531 }
4532
4533 //-- dlaqgb --------------------------------------------------------------------
4534 void
4535 LAPACK_DECL(dlaqgb)(const INTEGER *M,
4536 const INTEGER *N,
4537 const INTEGER *KL,
4538 const INTEGER *KU,
4539 DOUBLE *AB,
4540 const INTEGER *LDAB,
4541 const DOUBLE *R,
4542 const DOUBLE *C,
4543 const DOUBLE *ROWCND,
4544 const DOUBLE *COLCND,
4545 const DOUBLE *AMAX,
4546 char *EQUED)
4547 {
4548 DEBUG_LAPACK_STUB("dlaqgb");
4549 LAPACK_IMPL(dlaqgb)(M,
4550 N,
4551 KL,
4552 KU,
4553 AB,
4554 LDAB,
4555 R,
4556 C,
4557 ROWCND,
4558 COLCND,
4559 AMAX,
4560 EQUED);
4561 }
4562
4563 //-- dlaqge --------------------------------------------------------------------
4564 /*
4565 void
4566 LAPACK_DECL(dlaqge)(const INTEGER *M,
4567 const INTEGER *N,
4568 DOUBLE *A,
4569 const INTEGER *LDA,
4570 const DOUBLE *R,
4571 const DOUBLE *C,
4572 const DOUBLE *ROWCND,
4573 const DOUBLE *COLCND,
4574 const DOUBLE *AMAX,
4575 char *EQUED)
4576 {
4577 DEBUG_LAPACK_STUB("dlaqge");
4578 LAPACK_IMPL(dlaqge)(M,
4579 N,
4580 A,
4581 LDA,
4582 R,
4583 C,
4584 ROWCND,
4585 COLCND,
4586 AMAX,
4587 EQUED);
4588 }
4589 */
4590 //-- dlaqp2 --------------------------------------------------------------------
4591 void
4592 LAPACK_DECL(dlaqp2)(const INTEGER *M,
4593 const INTEGER *N,
4594 const INTEGER *OFFSET,
4595 DOUBLE *A,
4596 const INTEGER *LDA,
4597 INTEGER *JPVT,
4598 DOUBLE *TAU,
4599 DOUBLE *VN1,
4600 DOUBLE *VN2,
4601 DOUBLE *WORK)
4602 {
4603 DEBUG_LAPACK_STUB("dlaqp2");
4604 LAPACK_IMPL(dlaqp2)(M,
4605 N,
4606 OFFSET,
4607 A,
4608 LDA,
4609 JPVT,
4610 TAU,
4611 VN1,
4612 VN2,
4613 WORK);
4614 }
4615
4616 //-- dlaqps --------------------------------------------------------------------
4617 void
4618 LAPACK_DECL(dlaqps)(const INTEGER *M,
4619 const INTEGER *N,
4620 const INTEGER *OFFSET,
4621 const INTEGER *NB,
4622 INTEGER *KB,
4623 DOUBLE *A,
4624 const INTEGER *LDA,
4625 INTEGER *JPVT,
4626 DOUBLE *TAU,
4627 DOUBLE *VN1,
4628 DOUBLE *VN2,
4629 DOUBLE *AUXV,
4630 DOUBLE *F,
4631 const INTEGER *LDF)
4632 {
4633 DEBUG_LAPACK_STUB("dlaqps");
4634 LAPACK_IMPL(dlaqps)(M,
4635 N,
4636 OFFSET,
4637 NB,
4638 KB,
4639 A,
4640 LDA,
4641 JPVT,
4642 TAU,
4643 VN1,
4644 VN2,
4645 AUXV,
4646 F,
4647 LDF);
4648 }
4649
4650 //-- dlaqr0 --------------------------------------------------------------------
4651 void
4652 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
4653 const LOGICAL *WANTZ,
4654 const INTEGER *N,
4655 const INTEGER *ILO,
4656 const INTEGER *IHI,
4657 DOUBLE *H,
4658 const INTEGER *LDH,
4659 DOUBLE *WR,
4660 DOUBLE *WI,
4661 const INTEGER *ILOZ,
4662 const INTEGER *IHIZ,
4663 DOUBLE *Z,
4664 const INTEGER *LDZ,
4665 DOUBLE *WORK,
4666 const INTEGER *LWORK,
4667 INTEGER *INFO)
4668 {
4669 DEBUG_LAPACK_STUB("dlaqr0");
4670 LAPACK_IMPL(dlaqr0)(WANTT,
4671 WANTZ,
4672 N,
4673 ILO,
4674 IHI,
4675 H,
4676 LDH,
4677 WR,
4678 WI,
4679 ILOZ,
4680 IHIZ,
4681 Z,
4682 LDZ,
4683 WORK,
4684 LWORK,
4685 INFO);
4686 }
4687
4688 //-- dlaqr1 --------------------------------------------------------------------
4689 void
4690 LAPACK_DECL(dlaqr1)(const INTEGER *N,
4691 const DOUBLE *H,
4692 const INTEGER *LDH,
4693 const DOUBLE *SR1,
4694 const DOUBLE *SI1,
4695 const DOUBLE *SR2,
4696 const DOUBLE *SI2,
4697 DOUBLE *V)
4698 {
4699 DEBUG_LAPACK_STUB("dlaqr1");
4700 LAPACK_IMPL(dlaqr1)(N,
4701 H,
4702 LDH,
4703 SR1,
4704 SI1,
4705 SR2,
4706 SI2,
4707 V);
4708 }
4709
4710 //-- dlaqr2 --------------------------------------------------------------------
4711 void
4712 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
4713 const LOGICAL *WANTZ,
4714 const INTEGER *N,
4715 const INTEGER *KTOP,
4716 const INTEGER *KBOT,
4717 const INTEGER *NW,
4718 DOUBLE *H,
4719 const INTEGER *LDH,
4720 const INTEGER *ILOZ,
4721 const INTEGER *IHIZ,
4722 DOUBLE *Z,
4723 const INTEGER *LDZ,
4724 INTEGER *NS,
4725 INTEGER *ND,
4726 DOUBLE *SR,
4727 DOUBLE *SI,
4728 DOUBLE *V,
4729 const INTEGER *LDV,
4730 const INTEGER *NH,
4731 DOUBLE *T,
4732 const INTEGER *LDT,
4733 const INTEGER *NV,
4734 DOUBLE *WV,
4735 const INTEGER *LDWV,
4736 DOUBLE *WORK,
4737 const INTEGER *LWORK)
4738 {
4739 DEBUG_LAPACK_STUB("dlaqr2");
4740 LAPACK_IMPL(dlaqr2)(WANTT,
4741 WANTZ,
4742 N,
4743 KTOP,
4744 KBOT,
4745 NW,
4746 H,
4747 LDH,
4748 ILOZ,
4749 IHIZ,
4750 Z,
4751 LDZ,
4752 NS,
4753 ND,
4754 SR,
4755 SI,
4756 V,
4757 LDV,
4758 NH,
4759 T,
4760 LDT,
4761 NV,
4762 WV,
4763 LDWV,
4764 WORK,
4765 LWORK);
4766 }
4767
4768 //-- dlaqr3 --------------------------------------------------------------------
4769 void
4770 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
4771 const LOGICAL *WANTZ,
4772 const INTEGER *N,
4773 const INTEGER *KTOP,
4774 const INTEGER *KBOT,
4775 const INTEGER *NW,
4776 DOUBLE *H,
4777 const INTEGER *LDH,
4778 const INTEGER *ILOZ,
4779 const INTEGER *IHIZ,
4780 DOUBLE *Z,
4781 const INTEGER *LDZ,
4782 INTEGER *NS,
4783 INTEGER *ND,
4784 DOUBLE *SR,
4785 DOUBLE *SI,
4786 DOUBLE *V,
4787 const INTEGER *LDV,
4788 const INTEGER *NH,
4789 DOUBLE *T,
4790 const INTEGER *LDT,
4791 const INTEGER *NV,
4792 DOUBLE *WV,
4793 const INTEGER *LDWV,
4794 DOUBLE *WORK,
4795 const INTEGER *LWORK)
4796 {
4797 DEBUG_LAPACK_STUB("dlaqr3");
4798 LAPACK_IMPL(dlaqr3)(WANTT,
4799 WANTZ,
4800 N,
4801 KTOP,
4802 KBOT,
4803 NW,
4804 H,
4805 LDH,
4806 ILOZ,
4807 IHIZ,
4808 Z,
4809 LDZ,
4810 NS,
4811 ND,
4812 SR,
4813 SI,
4814 V,
4815 LDV,
4816 NH,
4817 T,
4818 LDT,
4819 NV,
4820 WV,
4821 LDWV,
4822 WORK,
4823 LWORK);
4824 }
4825
4826 //-- dlaqr4 --------------------------------------------------------------------
4827 void
4828 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
4829 const LOGICAL *WANTZ,
4830 const INTEGER *N,
4831 const INTEGER *ILO,
4832 const INTEGER *IHI,
4833 DOUBLE *H,
4834 const INTEGER *LDH,
4835 DOUBLE *WR,
4836 DOUBLE *WI,
4837 const INTEGER *ILOZ,
4838 const INTEGER *IHIZ,
4839 DOUBLE *Z,
4840 const INTEGER *LDZ,
4841 DOUBLE *WORK,
4842 const INTEGER *LWORK,
4843 INTEGER *INFO)
4844 {
4845 DEBUG_LAPACK_STUB("dlaqr4");
4846 LAPACK_IMPL(dlaqr4)(WANTT,
4847 WANTZ,
4848 N,
4849 ILO,
4850 IHI,
4851 H,
4852 LDH,
4853 WR,
4854 WI,
4855 ILOZ,
4856 IHIZ,
4857 Z,
4858 LDZ,
4859 WORK,
4860 LWORK,
4861 INFO);
4862 }
4863
4864 //-- dlaqr5 --------------------------------------------------------------------
4865 void
4866 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
4867 const LOGICAL *WANTZ,
4868 const INTEGER *KACC22,
4869 const INTEGER *N,
4870 const INTEGER *KTOP,
4871 const INTEGER *KBOT,
4872 const INTEGER *NSHFTS,
4873 DOUBLE *SR,
4874 DOUBLE *SI,
4875 DOUBLE *H,
4876 const INTEGER *LDH,
4877 const INTEGER *ILOZ,
4878 const INTEGER *IHIZ,
4879 DOUBLE *Z,
4880 const INTEGER *LDZ,
4881 DOUBLE *V,
4882 const INTEGER *LDV,
4883 DOUBLE *U,
4884 const INTEGER *LDU,
4885 const INTEGER *NV,
4886 DOUBLE *WV,
4887 const INTEGER *LDWV,
4888 const INTEGER *NH,
4889 DOUBLE *WH,
4890 const INTEGER *LDWH)
4891 {
4892 DEBUG_LAPACK_STUB("dlaqr5");
4893 LAPACK_IMPL(dlaqr5)(WANTT,
4894 WANTZ,
4895 KACC22,
4896 N,
4897 KTOP,
4898 KBOT,
4899 NSHFTS,
4900 SR,
4901 SI,
4902 H,
4903 LDH,
4904 ILOZ,
4905 IHIZ,
4906 Z,
4907 LDZ,
4908 V,
4909 LDV,
4910 U,
4911 LDU,
4912 NV,
4913 WV,
4914 LDWV,
4915 NH,
4916 WH,
4917 LDWH);
4918 }
4919
4920 //-- dlaqsb --------------------------------------------------------------------
4921 void
4922 LAPACK_DECL(dlaqsb)(const char *UPLO,
4923 const INTEGER *N,
4924 const INTEGER *KD,
4925 DOUBLE *AB,
4926 const INTEGER *LDAB,
4927 const DOUBLE *S,
4928 const DOUBLE *SCOND,
4929 const DOUBLE *AMAX,
4930 char *EQUED)
4931 {
4932 DEBUG_LAPACK_STUB("dlaqsb");
4933 LAPACK_IMPL(dlaqsb)(UPLO,
4934 N,
4935 KD,
4936 AB,
4937 LDAB,
4938 S,
4939 SCOND,
4940 AMAX,
4941 EQUED);
4942 }
4943
4944 //-- dlaqsp --------------------------------------------------------------------
4945 void
4946 LAPACK_DECL(dlaqsp)(const char *UPLO,
4947 const INTEGER *N,
4948 DOUBLE *AP,
4949 const DOUBLE *S,
4950 const DOUBLE *SCOND,
4951 const DOUBLE *AMAX,
4952 char *EQUED)
4953 {
4954 DEBUG_LAPACK_STUB("dlaqsp");
4955 LAPACK_IMPL(dlaqsp)(UPLO,
4956 N,
4957 AP,
4958 S,
4959 SCOND,
4960 AMAX,
4961 EQUED);
4962 }
4963
4964 //-- dlaqsy --------------------------------------------------------------------
4965 void
4966 LAPACK_DECL(dlaqsy)(const char *UPLO,
4967 const INTEGER *N,
4968 DOUBLE *A,
4969 const INTEGER *LDA,
4970 const DOUBLE *S,
4971 const DOUBLE *SCOND,
4972 const DOUBLE *AMAX,
4973 char *EQUED)
4974 {
4975 DEBUG_LAPACK_STUB("dlaqsy");
4976 LAPACK_IMPL(dlaqsy)(UPLO,
4977 N,
4978 A,
4979 LDA,
4980 S,
4981 SCOND,
4982 AMAX,
4983 EQUED);
4984 }
4985
4986 //-- dlaqtr --------------------------------------------------------------------
4987 void
4988 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
4989 const LOGICAL *LREAL,
4990 const INTEGER *N,
4991 const DOUBLE *T,
4992 const INTEGER *LDT,
4993 const DOUBLE *B,
4994 const DOUBLE *W,
4995 DOUBLE *SCALE,
4996 DOUBLE *X,
4997 DOUBLE *WORK,
4998 INTEGER *INFO)
4999 {
5000 DEBUG_LAPACK_STUB("dlaqtr");
5001 LAPACK_IMPL(dlaqtr)(LTRAN,
5002 LREAL,
5003 N,
5004 T,
5005 LDT,
5006 B,
5007 W,
5008 SCALE,
5009 X,
5010 WORK,
5011 INFO);
5012 }
5013
5014 //-- dlar1v --------------------------------------------------------------------
5015 void
5016 LAPACK_DECL(dlar1v)(const INTEGER *N,
5017 const INTEGER *B1,
5018 const INTEGER *BN,
5019 const DOUBLE *LAMBDA,
5020 const DOUBLE *D,
5021 const DOUBLE *L,
5022 const DOUBLE *LD,
5023 const DOUBLE *LLD,
5024 const DOUBLE *PIVMIN,
5025 const DOUBLE *GAPTOL,
5026 DOUBLE *Z,
5027 const LOGICAL *WANTNC,
5028 INTEGER *NEGCNT,
5029 DOUBLE *ZTZ,
5030 DOUBLE *MINGMA,
5031 INTEGER *R,
5032 INTEGER *ISUPPZ,
5033 DOUBLE *NRMINV,
5034 DOUBLE *RESID,
5035 DOUBLE *RQCORR,
5036 DOUBLE *WORK)
5037 {
5038 DEBUG_LAPACK_STUB("dlar1v");
5039 LAPACK_IMPL(dlar1v)(N,
5040 B1,
5041 BN,
5042 LAMBDA,
5043 D,
5044 L,
5045 LD,
5046 LLD,
5047 PIVMIN,
5048 GAPTOL,
5049 Z,
5050 WANTNC,
5051 NEGCNT,
5052 ZTZ,
5053 MINGMA,
5054 R,
5055 ISUPPZ,
5056 NRMINV,
5057 RESID,
5058 RQCORR,
5059 WORK);
5060 }
5061
5062 //-- dlar2v --------------------------------------------------------------------
5063 void
5064 LAPACK_DECL(dlar2v)(const INTEGER *N,
5065 DOUBLE *X,
5066 DOUBLE *Y,
5067 DOUBLE *Z,
5068 const INTEGER *INCX,
5069 const DOUBLE *C,
5070 const DOUBLE *S,
5071 const INTEGER *INCC)
5072 {
5073 DEBUG_LAPACK_STUB("dlar2v");
5074 LAPACK_IMPL(dlar2v)(N,
5075 X,
5076 Y,
5077 Z,
5078 INCX,
5079 C,
5080 S,
5081 INCC);
5082 }
5083
5084 //-- dlarf ---------------------------------------------------------------------
5085 void
5086 LAPACK_DECL(dlarf)(const char *SIDE,
5087 const INTEGER *M,
5088 const INTEGER *N,
5089 const DOUBLE *V,
5090 const INTEGER *INCV,
5091 const DOUBLE *TAU,
5092 DOUBLE *C,
5093 const INTEGER *LDC,
5094 DOUBLE *WORK)
5095 {
5096 DEBUG_LAPACK_STUB("dlarf");
5097 LAPACK_IMPL(dlarf)(SIDE,
5098 M,
5099 N,
5100 V,
5101 INCV,
5102 TAU,
5103 C,
5104 LDC,
5105 WORK);
5106 }
5107
5108 //-- dlarfb --------------------------------------------------------------------
5109 void
5110 LAPACK_DECL(dlarfb)(const char *SIDE,
5111 const char *TRANS,
5112 const char *DIRECT,
5113 const char *STOREV,
5114 const INTEGER *M,
5115 const INTEGER *N,
5116 const INTEGER *K,
5117 const DOUBLE *V,
5118 const INTEGER *LDV,
5119 const DOUBLE *T,
5120 const INTEGER *LDT,
5121 DOUBLE *C,
5122 const INTEGER *LDC,
5123 DOUBLE *WORK,
5124 const INTEGER *LDWORK)
5125 {
5126 DEBUG_LAPACK_STUB("dlarfb");
5127 LAPACK_IMPL(dlarfb)(SIDE,
5128 TRANS,
5129 DIRECT,
5130 STOREV,
5131 M,
5132 N,
5133 K,
5134 V,
5135 LDV,
5136 T,
5137 LDT,
5138 C,
5139 LDC,
5140 WORK,
5141 LDWORK);
5142 }
5143
5144 //-- dlarfg --------------------------------------------------------------------
5145 void
5146 LAPACK_DECL(dlarfg)(const INTEGER *N,
5147 DOUBLE *ALPHA,
5148 DOUBLE *X,
5149 const INTEGER *INCX,
5150 DOUBLE *TAU)
5151 {
5152 DEBUG_LAPACK_STUB("dlarfg");
5153 LAPACK_IMPL(dlarfg)(N,
5154 ALPHA,
5155 X,
5156 INCX,
5157 TAU);
5158 }
5159
5160 //-- dlarfgp -------------------------------------------------------------------
5161 void
5162 LAPACK_DECL(dlarfgp)(const INTEGER *N,
5163 DOUBLE *ALPHA,
5164 DOUBLE *X,
5165 const INTEGER *INCX,
5166 DOUBLE *TAU)
5167 {
5168 DEBUG_LAPACK_STUB("dlarfgp");
5169 LAPACK_IMPL(dlarfgp)(N,
5170 ALPHA,
5171 X,
5172 INCX,
5173 TAU);
5174 }
5175
5176 //-- dlarft --------------------------------------------------------------------
5177 void
5178 LAPACK_DECL(dlarft)(const char *DIRECT,
5179 const char *STOREV,
5180 const INTEGER *N,
5181 const INTEGER *K,
5182 DOUBLE *V,
5183 const INTEGER *LDV,
5184 const DOUBLE *TAU,
5185 DOUBLE *T,
5186 const INTEGER *LDT)
5187 {
5188 DEBUG_LAPACK_STUB("dlarft");
5189 LAPACK_IMPL(dlarft)(DIRECT,
5190 STOREV,
5191 N,
5192 K,
5193 V,
5194 LDV,
5195 TAU,
5196 T,
5197 LDT);
5198 }
5199
5200 //-- dlarfx --------------------------------------------------------------------
5201 void
5202 LAPACK_DECL(dlarfx)(const char *SIDE,
5203 const INTEGER *M,
5204 const INTEGER *N,
5205 const DOUBLE *V,
5206 const DOUBLE *TAU,
5207 DOUBLE *C,
5208 const INTEGER *LDC,
5209 DOUBLE *WORK)
5210 {
5211 DEBUG_LAPACK_STUB("dlarfx");
5212 LAPACK_IMPL(dlarfx)(SIDE,
5213 M,
5214 N,
5215 V,
5216 TAU,
5217 C,
5218 LDC,
5219 WORK);
5220 }
5221
5222 //-- dlargv --------------------------------------------------------------------
5223 void
5224 LAPACK_DECL(dlargv)(const INTEGER *N,
5225 DOUBLE *X,
5226 const INTEGER *INCX,
5227 DOUBLE *Y,
5228 const INTEGER *INCY,
5229 DOUBLE *C,
5230 const INTEGER *INCC)
5231 {
5232 DEBUG_LAPACK_STUB("dlargv");
5233 LAPACK_IMPL(dlargv)(N,
5234 X,
5235 INCX,
5236 Y,
5237 INCY,
5238 C,
5239 INCC);
5240 }
5241
5242 //-- dlarnv --------------------------------------------------------------------
5243 void
5244 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
5245 INTEGER *ISEED,
5246 const INTEGER *N,
5247 DOUBLE *X)
5248 {
5249 DEBUG_LAPACK_STUB("dlarnv");
5250 LAPACK_IMPL(dlarnv)(IDIST,
5251 ISEED,
5252 N,
5253 X);
5254 }
5255
5256 //-- dlarra --------------------------------------------------------------------
5257 void
5258 LAPACK_DECL(dlarra)(const INTEGER *N,
5259 const DOUBLE *D,
5260 DOUBLE *E,
5261 DOUBLE *E2,
5262 const DOUBLE *SPLTOL,
5263 const DOUBLE *TNRM,
5264 INTEGER *NSPLIT,
5265 INTEGER *ISPLIT,
5266 INTEGER *INFO)
5267 {
5268 DEBUG_LAPACK_STUB("dlarra");
5269 LAPACK_IMPL(dlarra)(N,
5270 D,
5271 E,
5272 E2,
5273 SPLTOL,
5274 TNRM,
5275 NSPLIT,
5276 ISPLIT,
5277 INFO);
5278 }
5279
5280 //-- dlarrb --------------------------------------------------------------------
5281 void
5282 LAPACK_DECL(dlarrb)(const INTEGER *N,
5283 const DOUBLE *D,
5284 const DOUBLE *LLD,
5285 const INTEGER *IFIRST,
5286 const INTEGER *ILAST,
5287 const DOUBLE *RTOL1,
5288 const DOUBLE *RTOL2,
5289 const INTEGER *OFFSET,
5290 DOUBLE *W,
5291 DOUBLE *WGAP,
5292 DOUBLE *WERR,
5293 DOUBLE *WORK,
5294 INTEGER *IWORK,
5295 const DOUBLE *PIVMIN,
5296 const DOUBLE *SPDIAM,
5297 const INTEGER *TWIST,
5298 INTEGER *INFO)
5299 {
5300 DEBUG_LAPACK_STUB("dlarrb");
5301 LAPACK_IMPL(dlarrb)(N,
5302 D,
5303 LLD,
5304 IFIRST,
5305 ILAST,
5306 RTOL1,
5307 RTOL2,
5308 OFFSET,
5309 W,
5310 WGAP,
5311 WERR,
5312 WORK,
5313 IWORK,
5314 PIVMIN,
5315 SPDIAM,
5316 TWIST,
5317 INFO);
5318 }
5319
5320 //-- dlarrc --------------------------------------------------------------------
5321 void
5322 LAPACK_DECL(dlarrc)(const char *JOBT,
5323 const INTEGER *N,
5324 const DOUBLE *VL,
5325 const DOUBLE *VU,
5326 const DOUBLE *D,
5327 const DOUBLE *E,
5328 const DOUBLE *PIVMIN,
5329 INTEGER *EIGCNT,
5330 INTEGER *LCNT,
5331 INTEGER *RCNT,
5332 INTEGER *INFO)
5333 {
5334 DEBUG_LAPACK_STUB("dlarrc");
5335 LAPACK_IMPL(dlarrc)(JOBT,
5336 N,
5337 VL,
5338 VU,
5339 D,
5340 E,
5341 PIVMIN,
5342 EIGCNT,
5343 LCNT,
5344 RCNT,
5345 INFO);
5346 }
5347
5348 //-- dlarrd --------------------------------------------------------------------
5349 void
5350 LAPACK_DECL(dlarrd)(const char *RANGE,
5351 const char *ORDER,
5352 const INTEGER *N,
5353 const DOUBLE *VL,
5354 const DOUBLE *VU,
5355 const INTEGER *IL,
5356 const INTEGER *IU,
5357 const DOUBLE *GERS,
5358 const DOUBLE *RELTOL,
5359 const DOUBLE *D,
5360 const DOUBLE *E,
5361 const DOUBLE *E2,
5362 const DOUBLE *PIVMIN,
5363 const INTEGER *NSPLIT,
5364 const INTEGER *ISPLIT,
5365 INTEGER *M,
5366 DOUBLE *W,
5367 DOUBLE *WERR,
5368 DOUBLE *WL,
5369 DOUBLE *WU,
5370 INTEGER *IBLOCK,
5371 INTEGER *INDEXW,
5372 DOUBLE *WORK,
5373 INTEGER *IWORK,
5374 INTEGER *INFO)
5375 {
5376 DEBUG_LAPACK_STUB("dlarrd");
5377 LAPACK_IMPL(dlarrd)(RANGE,
5378 ORDER,
5379 N,
5380 VL,
5381 VU,
5382 IL,
5383 IU,
5384 GERS,
5385 RELTOL,
5386 D,
5387 E,
5388 E2,
5389 PIVMIN,
5390 NSPLIT,
5391 ISPLIT,
5392 M,
5393 W,
5394 WERR,
5395 WL,
5396 WU,
5397 IBLOCK,
5398 INDEXW,
5399 WORK,
5400 IWORK,
5401 INFO);
5402 }
5403
5404 //-- dlarre --------------------------------------------------------------------
5405 void
5406 LAPACK_DECL(dlarre)(const char *RANGE,
5407 const INTEGER *N,
5408 DOUBLE *VL,
5409 DOUBLE *VU,
5410 const INTEGER *IL,
5411 const INTEGER *IU,
5412 DOUBLE *D,
5413 DOUBLE *E,
5414 DOUBLE *E2,
5415 const DOUBLE *RTOL1,
5416 const DOUBLE *RTOL2,
5417 const DOUBLE *SPLTOL,
5418 INTEGER *NSPLIT,
5419 INTEGER *ISPLIT,
5420 INTEGER *M,
5421 DOUBLE *W,
5422 DOUBLE *WERR,
5423 DOUBLE *WGAP,
5424 INTEGER *IBLOCK,
5425 INTEGER *INDEXW,
5426 DOUBLE *GERS,
5427 DOUBLE *PIVMIN,
5428 DOUBLE *WORK,
5429 INTEGER *IWORK,
5430 INTEGER *INFO)
5431 {
5432 DEBUG_LAPACK_STUB("dlarre");
5433 LAPACK_IMPL(dlarre)(RANGE,
5434 N,
5435 VL,
5436 VU,
5437 IL,
5438 IU,
5439 D,
5440 E,
5441 E2,
5442 RTOL1,
5443 RTOL2,
5444 SPLTOL,
5445 NSPLIT,
5446 ISPLIT,
5447 M,
5448 W,
5449 WERR,
5450 WGAP,
5451 IBLOCK,
5452 INDEXW,
5453 GERS,
5454 PIVMIN,
5455 WORK,
5456 IWORK,
5457 INFO);
5458 }
5459
5460 //-- dlarrf --------------------------------------------------------------------
5461 void
5462 LAPACK_DECL(dlarrf)(const INTEGER *N,
5463 const DOUBLE *D,
5464 const DOUBLE *L,
5465 const DOUBLE *LD,
5466 const INTEGER *CLSTRT,
5467 const INTEGER *CLEND,
5468 const DOUBLE *W,
5469 DOUBLE *WGAP,
5470 const DOUBLE *WERR,
5471 const DOUBLE *SPDIAM,
5472 const DOUBLE *CLGAPL,
5473 const DOUBLE *CLGAPR,
5474 const DOUBLE *PIVMIN,
5475 DOUBLE *SIGMA,
5476 DOUBLE *DPLUS,
5477 DOUBLE *LPLUS,
5478 DOUBLE *WORK,
5479 INTEGER *INFO)
5480 {
5481 DEBUG_LAPACK_STUB("dlarrf");
5482 LAPACK_IMPL(dlarrf)(N,
5483 D,
5484 L,
5485 LD,
5486 CLSTRT,
5487 CLEND,
5488 W,
5489 WGAP,
5490 WERR,
5491 SPDIAM,
5492 CLGAPL,
5493 CLGAPR,
5494 PIVMIN,
5495 SIGMA,
5496 DPLUS,
5497 LPLUS,
5498 WORK,
5499 INFO);
5500 }
5501
5502 //-- dlarrj --------------------------------------------------------------------
5503 void
5504 LAPACK_DECL(dlarrj)(const INTEGER *N,
5505 const DOUBLE *D,
5506 const DOUBLE *E2,
5507 const INTEGER *IFIRST,
5508 const INTEGER *ILAST,
5509 const DOUBLE *RTOL,
5510 const INTEGER *OFFSET,
5511 DOUBLE *W,
5512 DOUBLE *WERR,
5513 DOUBLE *WORK,
5514 INTEGER *IWORK,
5515 const DOUBLE *PIVMIN,
5516 const DOUBLE *SPDIAM,
5517 INTEGER *INFO)
5518 {
5519 DEBUG_LAPACK_STUB("dlarrj");
5520 LAPACK_IMPL(dlarrj)(N,
5521 D,
5522 E2,
5523 IFIRST,
5524 ILAST,
5525 RTOL,
5526 OFFSET,
5527 W,
5528 WERR,
5529 WORK,
5530 IWORK,
5531 PIVMIN,
5532 SPDIAM,
5533 INFO);
5534 }
5535
5536 //-- dlarrk --------------------------------------------------------------------
5537 void
5538 LAPACK_DECL(dlarrk)(const INTEGER *N,
5539 const INTEGER *IW,
5540 const DOUBLE *GL,
5541 const DOUBLE *GU,
5542 const DOUBLE *D,
5543 const DOUBLE *E2,
5544 const DOUBLE *PIVMIN,
5545 const DOUBLE *RELTOL,
5546 DOUBLE *W,
5547 DOUBLE *WERR,
5548 INTEGER *INFO)
5549 {
5550 DEBUG_LAPACK_STUB("dlarrk");
5551 LAPACK_IMPL(dlarrk)(N,
5552 IW,
5553 GL,
5554 GU,
5555 D,
5556 E2,
5557 PIVMIN,
5558 RELTOL,
5559 W,
5560 WERR,
5561 INFO);
5562 }
5563
5564 //-- dlarrr --------------------------------------------------------------------
5565 void
5566 LAPACK_DECL(dlarrr)(const INTEGER *N,
5567 const DOUBLE *D,
5568 DOUBLE *E,
5569 INTEGER *INFO)
5570 {
5571 DEBUG_LAPACK_STUB("dlarrr");
5572 LAPACK_IMPL(dlarrr)(N,
5573 D,
5574 E,
5575 INFO);
5576 }
5577
5578 //-- dlarrv --------------------------------------------------------------------
5579 void
5580 LAPACK_DECL(dlarrv)(const INTEGER *N,
5581 const DOUBLE *VL,
5582 const DOUBLE *VU,
5583 DOUBLE *D,
5584 DOUBLE *L,
5585 const DOUBLE *PIVMIN,
5586 const INTEGER *ISPLIT,
5587 const INTEGER *M,
5588 const INTEGER *DOL,
5589 const INTEGER *DOU,
5590 const DOUBLE *MINRGP,
5591 const DOUBLE *RTOL1,
5592 const DOUBLE *RTOL2,
5593 DOUBLE *W,
5594 DOUBLE *WERR,
5595 DOUBLE *WGAP,
5596 const INTEGER *IBLOCK,
5597 const INTEGER *INDEXW,
5598 const DOUBLE *GERS,
5599 DOUBLE *Z,
5600 const INTEGER *LDZ,
5601 INTEGER *ISUPPZ,
5602 DOUBLE *WORK,
5603 INTEGER *IWORK,
5604 INTEGER *INFO)
5605 {
5606 DEBUG_LAPACK_STUB("dlarrv");
5607 LAPACK_IMPL(dlarrv)(N,
5608 VL,
5609 VU,
5610 D,
5611 L,
5612 PIVMIN,
5613 ISPLIT,
5614 M,
5615 DOL,
5616 DOU,
5617 MINRGP,
5618 RTOL1,
5619 RTOL2,
5620 W,
5621 WERR,
5622 WGAP,
5623 IBLOCK,
5624 INDEXW,
5625 GERS,
5626 Z,
5627 LDZ,
5628 ISUPPZ,
5629 WORK,
5630 IWORK,
5631 INFO);
5632 }
5633
5634 //-- dlarscl2 ------------------------------------------------------------------
5635 void
5636 LAPACK_DECL(dlarscl2)(const INTEGER *M,
5637 const INTEGER *N,
5638 const DOUBLE *D,
5639 DOUBLE *X,
5640 const INTEGER *LDX)
5641 {
5642 DEBUG_LAPACK_STUB("dlarscl2");
5643 LAPACK_IMPL(dlarscl2)(M,
5644 N,
5645 D,
5646 X,
5647 LDX);
5648 }
5649
5650 //-- dlartg --------------------------------------------------------------------
5651 void
5652 LAPACK_DECL(dlartg)(const DOUBLE *F,
5653 const DOUBLE *G,
5654 DOUBLE *CS,
5655 DOUBLE *SN,
5656 DOUBLE *R)
5657 {
5658 DEBUG_LAPACK_STUB("dlartg");
5659 LAPACK_IMPL(dlartg)(F,
5660 G,
5661 CS,
5662 SN,
5663 R);
5664 }
5665
5666 //-- dlartgp -------------------------------------------------------------------
5667 void
5668 LAPACK_DECL(dlartgp)(const DOUBLE *F,
5669 const DOUBLE *G,
5670 DOUBLE *CS,
5671 DOUBLE *SN,
5672 DOUBLE *R)
5673 {
5674 DEBUG_LAPACK_STUB("dlartgp");
5675 LAPACK_IMPL(dlartgp)(F,
5676 G,
5677 CS,
5678 SN,
5679 R);
5680 }
5681
5682 //-- dlartgs -------------------------------------------------------------------
5683 void
5684 LAPACK_DECL(dlartgs)(const DOUBLE *X,
5685 const DOUBLE *Y,
5686 const DOUBLE *SIGMA,
5687 DOUBLE *CS,
5688 DOUBLE *SN)
5689 {
5690 DEBUG_LAPACK_STUB("dlartgs");
5691 LAPACK_IMPL(dlartgs)(X,
5692 Y,
5693 SIGMA,
5694 CS,
5695 SN);
5696 }
5697
5698 //-- dlartv --------------------------------------------------------------------
5699 void
5700 LAPACK_DECL(dlartv)(const INTEGER *N,
5701 DOUBLE *X,
5702 const INTEGER *INCX,
5703 DOUBLE *Y,
5704 const INTEGER *INCY,
5705 const DOUBLE *C,
5706 const DOUBLE *S,
5707 const INTEGER *INCC)
5708 {
5709 DEBUG_LAPACK_STUB("dlartv");
5710 LAPACK_IMPL(dlartv)(N,
5711 X,
5712 INCX,
5713 Y,
5714 INCY,
5715 C,
5716 S,
5717 INCC);
5718 }
5719
5720 //-- dlaruv --------------------------------------------------------------------
5721 void
5722 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
5723 const INTEGER *N,
5724 DOUBLE *X)
5725 {
5726 DEBUG_LAPACK_STUB("dlaruv");
5727 LAPACK_IMPL(dlaruv)(ISEED,
5728 N,
5729 X);
5730 }
5731
5732 //-- dlarz ---------------------------------------------------------------------
5733 void
5734 LAPACK_DECL(dlarz)(const char *SIDE,
5735 const INTEGER *M,
5736 const INTEGER *N,
5737 const INTEGER *L,
5738 const DOUBLE *V,
5739 const INTEGER *INCV,
5740 const DOUBLE *TAU,
5741 DOUBLE *C,
5742 const INTEGER *LDC,
5743 DOUBLE *WORK)
5744 {
5745 DEBUG_LAPACK_STUB("dlarz");
5746 LAPACK_IMPL(dlarz)(SIDE,
5747 M,
5748 N,
5749 L,
5750 V,
5751 INCV,
5752 TAU,
5753 C,
5754 LDC,
5755 WORK);
5756 }
5757
5758 //-- dlarzb --------------------------------------------------------------------
5759 void
5760 LAPACK_DECL(dlarzb)(const char *SIDE,
5761 const char *TRANS,
5762 const char *DIRECT,
5763 const char *STOREV,
5764 const INTEGER *M,
5765 const INTEGER *N,
5766 const INTEGER *K,
5767 const INTEGER *L,
5768 const DOUBLE *V,
5769 const INTEGER *LDV,
5770 const DOUBLE *T,
5771 const INTEGER *LDT,
5772 DOUBLE *C,
5773 const INTEGER *LDC,
5774 DOUBLE *WORK,
5775 const INTEGER *LDWORK)
5776 {
5777 DEBUG_LAPACK_STUB("dlarzb");
5778 LAPACK_IMPL(dlarzb)(SIDE,
5779 TRANS,
5780 DIRECT,
5781 STOREV,
5782 M,
5783 N,
5784 K,
5785 L,
5786 V,
5787 LDV,
5788 T,
5789 LDT,
5790 C,
5791 LDC,
5792 WORK,
5793 LDWORK);
5794 }
5795
5796 //-- dlarzt --------------------------------------------------------------------
5797 void
5798 LAPACK_DECL(dlarzt)(const char *DIRECT,
5799 const char *STOREV,
5800 const INTEGER *N,
5801 const INTEGER *K,
5802 DOUBLE *V,
5803 const INTEGER *LDV,
5804 const DOUBLE *TAU,
5805 DOUBLE *T,
5806 const INTEGER *LDT)
5807 {
5808 DEBUG_LAPACK_STUB("dlarzt");
5809 LAPACK_IMPL(dlarzt)(DIRECT,
5810 STOREV,
5811 N,
5812 K,
5813 V,
5814 LDV,
5815 TAU,
5816 T,
5817 LDT);
5818 }
5819
5820 //-- dlas2 ---------------------------------------------------------------------
5821 void
5822 LAPACK_DECL(dlas2)(const DOUBLE *F,
5823 const DOUBLE *G,
5824 const DOUBLE *H,
5825 DOUBLE *SSMIN,
5826 DOUBLE *SSMAX)
5827 {
5828 DEBUG_LAPACK_STUB("dlas2");
5829 LAPACK_IMPL(dlas2)(F,
5830 G,
5831 H,
5832 SSMIN,
5833 SSMAX);
5834 }
5835
5836 //-- dlascl --------------------------------------------------------------------
5837 void
5838 LAPACK_DECL(dlascl)(const char *TYPE,
5839 const INTEGER *KL,
5840 const INTEGER *KU,
5841 const DOUBLE *CFROM,
5842 const DOUBLE *CTO,
5843 const INTEGER *M,
5844 const INTEGER *N,
5845 DOUBLE *A,
5846 const INTEGER *LDA,
5847 INTEGER *INFO)
5848 {
5849 DEBUG_LAPACK_STUB("dlascl");
5850 LAPACK_IMPL(dlascl)(TYPE,
5851 KL,
5852 KU,
5853 CFROM,
5854 CTO,
5855 M,
5856 N,
5857 A,
5858 LDA,
5859 INFO);
5860 }
5861
5862 //-- dlascl2 -------------------------------------------------------------------
5863 void
5864 LAPACK_DECL(dlascl2)(const INTEGER *M,
5865 const INTEGER *N,
5866 const DOUBLE *D,
5867 DOUBLE *X,
5868 const INTEGER *LDX)
5869 {
5870 DEBUG_LAPACK_STUB("dlascl2");
5871 LAPACK_IMPL(dlascl2)(M,
5872 N,
5873 D,
5874 X,
5875 LDX);
5876 }
5877
5878 //-- dlasd0 --------------------------------------------------------------------
5879 void
5880 LAPACK_DECL(dlasd0)(const INTEGER *N,
5881 const INTEGER *SQRE,
5882 DOUBLE *D,
5883 const DOUBLE *E,
5884 DOUBLE *U,
5885 const INTEGER *LDU,
5886 DOUBLE *VT,
5887 const INTEGER *LDVT,
5888 const INTEGER *SMLSIZ,
5889 INTEGER *IWORK,
5890 DOUBLE *WORK,
5891 INTEGER *INFO)
5892 {
5893 DEBUG_LAPACK_STUB("dlasd0");
5894 LAPACK_IMPL(dlasd0)(N,
5895 SQRE,
5896 D,
5897 E,
5898 U,
5899 LDU,
5900 VT,
5901 LDVT,
5902 SMLSIZ,
5903 IWORK,
5904 WORK,
5905 INFO);
5906 }
5907
5908 //-- dlasd1 --------------------------------------------------------------------
5909 void
5910 LAPACK_DECL(dlasd1)(const INTEGER *NL,
5911 const INTEGER *NR,
5912 const INTEGER *SQRE,
5913 DOUBLE *D,
5914 DOUBLE *ALPHA,
5915 DOUBLE *BETA,
5916 DOUBLE *U,
5917 const INTEGER *LDU,
5918 DOUBLE *VT,
5919 const INTEGER *LDVT,
5920 INTEGER *IDXQ,
5921 INTEGER *IWORK,
5922 DOUBLE *WORK,
5923 INTEGER *INFO)
5924 {
5925 DEBUG_LAPACK_STUB("dlasd1");
5926 LAPACK_IMPL(dlasd1)(NL,
5927 NR,
5928 SQRE,
5929 D,
5930 ALPHA,
5931 BETA,
5932 U,
5933 LDU,
5934 VT,
5935 LDVT,
5936 IDXQ,
5937 IWORK,
5938 WORK,
5939 INFO);
5940 }
5941
5942 //-- dlasd2 --------------------------------------------------------------------
5943 void
5944 LAPACK_DECL(dlasd2)(const INTEGER *NL,
5945 const INTEGER *NR,
5946 const INTEGER *SQRE,
5947 INTEGER *K,
5948 DOUBLE *D,
5949 DOUBLE *Z,
5950 const DOUBLE *ALPHA,
5951 const DOUBLE *BETA,
5952 DOUBLE *U,
5953 const INTEGER *LDU,
5954 DOUBLE *VT,
5955 const INTEGER *LDVT,
5956 DOUBLE *DSIGMA,
5957 DOUBLE *U2,
5958 const INTEGER *LDU2,
5959 DOUBLE *VT2,
5960 const INTEGER *LDVT2,
5961 INTEGER *IDXP,
5962 INTEGER *IDX,
5963 INTEGER *IDXC,
5964 INTEGER *IDXQ,
5965 INTEGER *COLTYP,
5966 INTEGER *INFO)
5967 {
5968 DEBUG_LAPACK_STUB("dlasd2");
5969 LAPACK_IMPL(dlasd2)(NL,
5970 NR,
5971 SQRE,
5972 K,
5973 D,
5974 Z,
5975 ALPHA,
5976 BETA,
5977 U,
5978 LDU,
5979 VT,
5980 LDVT,
5981 DSIGMA,
5982 U2,
5983 LDU2,
5984 VT2,
5985 LDVT2,
5986 IDXP,
5987 IDX,
5988 IDXC,
5989 IDXQ,
5990 COLTYP,
5991 INFO);
5992 }
5993
5994 //-- dlasd3 --------------------------------------------------------------------
5995 void
5996 LAPACK_DECL(dlasd3)(const INTEGER *NL,
5997 const INTEGER *NR,
5998 const INTEGER *SQRE,
5999 const INTEGER *K,
6000 DOUBLE *D,
6001 DOUBLE *Q,
6002 const INTEGER *LDQ,
6003 const DOUBLE *DSIGMA,
6004 DOUBLE *U,
6005 const INTEGER *LDU,
6006 DOUBLE *U2,
6007 const INTEGER *LDU2,
6008 DOUBLE *VT,
6009 const INTEGER *LDVT,
6010 DOUBLE *VT2,
6011 const INTEGER *LDVT2,
6012 const INTEGER *IDXC,
6013 const INTEGER *CTOT,
6014 const DOUBLE *Z,
6015 INTEGER *INFO)
6016 {
6017 DEBUG_LAPACK_STUB("dlasd3");
6018 LAPACK_IMPL(dlasd3)(NL,
6019 NR,
6020 SQRE,
6021 K,
6022 D,
6023 Q,
6024 LDQ,
6025 DSIGMA,
6026 U,
6027 LDU,
6028 U2,
6029 LDU2,
6030 VT,
6031 LDVT,
6032 VT2,
6033 LDVT2,
6034 IDXC,
6035 CTOT,
6036 Z,
6037 INFO);
6038 }
6039
6040 //-- dlasd4 --------------------------------------------------------------------
6041 void
6042 LAPACK_DECL(dlasd4)(const INTEGER *N,
6043 const INTEGER *I,
6044 const DOUBLE *D,
6045 const DOUBLE *Z,
6046 DOUBLE *DELTA,
6047 const DOUBLE *RHO,
6048 DOUBLE *SIGMA,
6049 DOUBLE *WORK,
6050 INTEGER *INFO)
6051 {
6052 DEBUG_LAPACK_STUB("dlasd4");
6053 LAPACK_IMPL(dlasd4)(N,
6054 I,
6055 D,
6056 Z,
6057 DELTA,
6058 RHO,
6059 SIGMA,
6060 WORK,
6061 INFO);
6062 }
6063
6064 //-- dlasd5 --------------------------------------------------------------------
6065 void
6066 LAPACK_DECL(dlasd5)(const INTEGER *I,
6067 const DOUBLE *D,
6068 const DOUBLE *Z,
6069 DOUBLE *DELTA,
6070 const DOUBLE *RHO,
6071 DOUBLE *DSIGMA,
6072 DOUBLE *WORK)
6073 {
6074 DEBUG_LAPACK_STUB("dlasd5");
6075 LAPACK_IMPL(dlasd5)(I,
6076 D,
6077 Z,
6078 DELTA,
6079 RHO,
6080 DSIGMA,
6081 WORK);
6082 }
6083
6084 //-- dlasd6 --------------------------------------------------------------------
6085 void
6086 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
6087 const INTEGER *NL,
6088 const INTEGER *NR,
6089 const INTEGER *SQRE,
6090 DOUBLE *D,
6091 DOUBLE *VF,
6092 DOUBLE *VL,
6093 DOUBLE *ALPHA,
6094 DOUBLE *BETA,
6095 INTEGER *IDXQ,
6096 INTEGER *PERM,
6097 INTEGER *GIVPTR,
6098 INTEGER *GIVCOL,
6099 const INTEGER *LDGCOL,
6100 DOUBLE *GIVNUM,
6101 const INTEGER *LDGNUM,
6102 DOUBLE *POLES,
6103 DOUBLE *DIFL,
6104 DOUBLE *DIFR,
6105 DOUBLE *Z,
6106 INTEGER *K,
6107 DOUBLE *C,
6108 DOUBLE *S,
6109 DOUBLE *WORK,
6110 INTEGER *IWORK,
6111 INTEGER *INFO)
6112 {
6113 DEBUG_LAPACK_STUB("dlasd6");
6114 LAPACK_IMPL(dlasd6)(ICOMPQ,
6115 NL,
6116 NR,
6117 SQRE,
6118 D,
6119 VF,
6120 VL,
6121 ALPHA,
6122 BETA,
6123 IDXQ,
6124 PERM,
6125 GIVPTR,
6126 GIVCOL,
6127 LDGCOL,
6128 GIVNUM,
6129 LDGNUM,
6130 POLES,
6131 DIFL,
6132 DIFR,
6133 Z,
6134 K,
6135 C,
6136 S,
6137 WORK,
6138 IWORK,
6139 INFO);
6140 }
6141
6142 //-- dlasd7 --------------------------------------------------------------------
6143 void
6144 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
6145 const INTEGER *NL,
6146 const INTEGER *NR,
6147 const INTEGER *SQRE,
6148 INTEGER *K,
6149 DOUBLE *D,
6150 DOUBLE *Z,
6151 DOUBLE *ZW,
6152 DOUBLE *VF,
6153 DOUBLE *VFW,
6154 DOUBLE *VL,
6155 DOUBLE *VLW,
6156 const DOUBLE *ALPHA,
6157 const DOUBLE *BETA,
6158 DOUBLE *DSIGMA,
6159 INTEGER *IDX,
6160 INTEGER *IDXP,
6161 const INTEGER *IDXQ,
6162 INTEGER *PERM,
6163 INTEGER *GIVPTR,
6164 INTEGER *GIVCOL,
6165 const INTEGER *LDGCOL,
6166 DOUBLE *GIVNUM,
6167 const INTEGER *LDGNUM,
6168 DOUBLE *C,
6169 DOUBLE *S,
6170 INTEGER *INFO)
6171 {
6172 DEBUG_LAPACK_STUB("dlasd7");
6173 LAPACK_IMPL(dlasd7)(ICOMPQ,
6174 NL,
6175 NR,
6176 SQRE,
6177 K,
6178 D,
6179 Z,
6180 ZW,
6181 VF,
6182 VFW,
6183 VL,
6184 VLW,
6185 ALPHA,
6186 BETA,
6187 DSIGMA,
6188 IDX,
6189 IDXP,
6190 IDXQ,
6191 PERM,
6192 GIVPTR,
6193 GIVCOL,
6194 LDGCOL,
6195 GIVNUM,
6196 LDGNUM,
6197 C,
6198 S,
6199 INFO);
6200 }
6201
6202 //-- dlasd8 --------------------------------------------------------------------
6203 void
6204 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
6205 const INTEGER *K,
6206 DOUBLE *D,
6207 DOUBLE *Z,
6208 DOUBLE *VF,
6209 DOUBLE *VL,
6210 DOUBLE *DIFL,
6211 DOUBLE *DIFR,
6212 const INTEGER *LDDIFR,
6213 DOUBLE *DSIGMA,
6214 DOUBLE *WORK,
6215 INTEGER *INFO)
6216 {
6217 DEBUG_LAPACK_STUB("dlasd8");
6218 LAPACK_IMPL(dlasd8)(ICOMPQ,
6219 K,
6220 D,
6221 Z,
6222 VF,
6223 VL,
6224 DIFL,
6225 DIFR,
6226 LDDIFR,
6227 DSIGMA,
6228 WORK,
6229 INFO);
6230 }
6231
6232 //-- dlasda --------------------------------------------------------------------
6233 void
6234 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
6235 const INTEGER *SMLSIZ,
6236 const INTEGER *N,
6237 const INTEGER *SQRE,
6238 DOUBLE *D,
6239 const DOUBLE *E,
6240 DOUBLE *U,
6241 const INTEGER *LDU,
6242 DOUBLE *VT,
6243 INTEGER *K,
6244 DOUBLE *DIFL,
6245 DOUBLE *DIFR,
6246 DOUBLE *Z,
6247 DOUBLE *POLES,
6248 INTEGER *GIVPTR,
6249 INTEGER *GIVCOL,
6250 const INTEGER *LDGCOL,
6251 INTEGER *PERM,
6252 DOUBLE *GIVNUM,
6253 DOUBLE *C,
6254 DOUBLE *S,
6255 DOUBLE *WORK,
6256 INTEGER *IWORK,
6257 INTEGER *INFO)
6258 {
6259 DEBUG_LAPACK_STUB("dlasda");
6260 LAPACK_IMPL(dlasda)(ICOMPQ,
6261 SMLSIZ,
6262 N,
6263 SQRE,
6264 D,
6265 E,
6266 U,
6267 LDU,
6268 VT,
6269 K,
6270 DIFL,
6271 DIFR,
6272 Z,
6273 POLES,
6274 GIVPTR,
6275 GIVCOL,
6276 LDGCOL,
6277 PERM,
6278 GIVNUM,
6279 C,
6280 S,
6281 WORK,
6282 IWORK,
6283 INFO);
6284 }
6285
6286 //-- dlasdq --------------------------------------------------------------------
6287 void
6288 LAPACK_DECL(dlasdq)(const char *UPLO,
6289 const INTEGER *SQRE,
6290 const INTEGER *N,
6291 const INTEGER *NCVT,
6292 const INTEGER *NRU,
6293 const INTEGER *NCC,
6294 DOUBLE *D,
6295 DOUBLE *E,
6296 DOUBLE *VT,
6297 const INTEGER *LDVT,
6298 DOUBLE *U,
6299 const INTEGER *LDU,
6300 DOUBLE *C,
6301 const INTEGER *LDC,
6302 DOUBLE *WORK,
6303 INTEGER *INFO)
6304 {
6305 DEBUG_LAPACK_STUB("dlasdq");
6306 LAPACK_IMPL(dlasdq)(UPLO,
6307 SQRE,
6308 N,
6309 NCVT,
6310 NRU,
6311 NCC,
6312 D,
6313 E,
6314 VT,
6315 LDVT,
6316 U,
6317 LDU,
6318 C,
6319 LDC,
6320 WORK,
6321 INFO);
6322 }
6323
6324 //-- dlasdt --------------------------------------------------------------------
6325 void
6326 LAPACK_DECL(dlasdt)(const INTEGER *N,
6327 INTEGER *LVL,
6328 INTEGER *ND,
6329 INTEGER *INODE,
6330 INTEGER *NDIML,
6331 INTEGER *NDIMR,
6332 const INTEGER *MSUB)
6333 {
6334 DEBUG_LAPACK_STUB("dlasdt");
6335 LAPACK_IMPL(dlasdt)(N,
6336 LVL,
6337 ND,
6338 INODE,
6339 NDIML,
6340 NDIMR,
6341 MSUB);
6342 }
6343
6344 //-- dlaset --------------------------------------------------------------------
6345 void
6346 LAPACK_DECL(dlaset)(const char *UPLO,
6347 const INTEGER *M,
6348 const INTEGER *N,
6349 const DOUBLE *ALPHA,
6350 const DOUBLE *BETA,
6351 DOUBLE *A,
6352 const INTEGER *LDA)
6353 {
6354 DEBUG_LAPACK_STUB("dlaset");
6355 LAPACK_IMPL(dlaset)(UPLO,
6356 M,
6357 N,
6358 ALPHA,
6359 BETA,
6360 A,
6361 LDA);
6362 }
6363
6364 //-- dlasq1 --------------------------------------------------------------------
6365 void
6366 LAPACK_DECL(dlasq1)(const INTEGER *N,
6367 DOUBLE *D,
6368 DOUBLE *E,
6369 DOUBLE *WORK,
6370 INTEGER *INFO)
6371 {
6372 DEBUG_LAPACK_STUB("dlasq1");
6373 LAPACK_IMPL(dlasq1)(N,
6374 D,
6375 E,
6376 WORK,
6377 INFO);
6378 }
6379
6380 //-- dlasq2 --------------------------------------------------------------------
6381 void
6382 LAPACK_DECL(dlasq2)(const INTEGER *N,
6383 DOUBLE *Z,
6384 INTEGER *INFO)
6385 {
6386 DEBUG_LAPACK_STUB("dlasq2");
6387 LAPACK_IMPL(dlasq2)(N,
6388 Z,
6389 INFO);
6390 }
6391
6392 //-- dlasq3 --------------------------------------------------------------------
6393 void
6394 LAPACK_DECL(dlasq3)(const INTEGER *I0,
6395 INTEGER *N0,
6396 const DOUBLE *Z,
6397 INTEGER *PP,
6398 DOUBLE *DMIN,
6399 DOUBLE *SIGMA,
6400 DOUBLE *DESIG,
6401 const DOUBLE *QMAX,
6402 INTEGER *NFAIL,
6403 INTEGER *ITER,
6404 INTEGER *NDIV,
6405 const LOGICAL *IEEE,
6406 INTEGER *TTYPE,
6407 DOUBLE *DMIN1,
6408 DOUBLE *DMIN2,
6409 DOUBLE *DN,
6410 DOUBLE *DN1,
6411 DOUBLE *DN2,
6412 DOUBLE *G,
6413 DOUBLE *TAU)
6414 {
6415 DEBUG_LAPACK_STUB("dlasq3");
6416 LAPACK_IMPL(dlasq3)(I0,
6417 N0,
6418 Z,
6419 PP,
6420 DMIN,
6421 SIGMA,
6422 DESIG,
6423 QMAX,
6424 NFAIL,
6425 ITER,
6426 NDIV,
6427 IEEE,
6428 TTYPE,
6429 DMIN1,
6430 DMIN2,
6431 DN,
6432 DN1,
6433 DN2,
6434 G,
6435 TAU);
6436 }
6437
6438 //-- dlasq4 --------------------------------------------------------------------
6439 void
6440 LAPACK_DECL(dlasq4)(const INTEGER *I0,
6441 const INTEGER *N0,
6442 const DOUBLE *Z,
6443 const INTEGER *PP,
6444 const INTEGER *N0IN,
6445 const DOUBLE *DMIN,
6446 const DOUBLE *DMIN1,
6447 const DOUBLE *DMIN2,
6448 const DOUBLE *DN,
6449 const DOUBLE *DN1,
6450 const DOUBLE *DN2,
6451 DOUBLE *TAU,
6452 INTEGER *TTYPE,
6453 DOUBLE *G)
6454 {
6455 DEBUG_LAPACK_STUB("dlasq4");
6456 LAPACK_IMPL(dlasq4)(I0,
6457 N0,
6458 Z,
6459 PP,
6460 N0IN,
6461 DMIN,
6462 DMIN1,
6463 DMIN2,
6464 DN,
6465 DN1,
6466 DN2,
6467 TAU,
6468 TTYPE,
6469 G);
6470 }
6471
6472 //-- dlasq5 --------------------------------------------------------------------
6473 void
6474 LAPACK_DECL(dlasq5)(const INTEGER *I0,
6475 const INTEGER *N0,
6476 const DOUBLE *Z,
6477 const INTEGER *PP,
6478 const DOUBLE *TAU,
6479 DOUBLE *DMIN,
6480 DOUBLE *DMIN1,
6481 DOUBLE *DMIN2,
6482 DOUBLE *DN,
6483 DOUBLE *DNM1,
6484 DOUBLE *DNM2,
6485 const LOGICAL *IEEE)
6486 {
6487 DEBUG_LAPACK_STUB("dlasq5");
6488 LAPACK_IMPL(dlasq5)(I0,
6489 N0,
6490 Z,
6491 PP,
6492 TAU,
6493 DMIN,
6494 DMIN1,
6495 DMIN2,
6496 DN,
6497 DNM1,
6498 DNM2,
6499 IEEE);
6500 }
6501
6502 //-- dlasq6 --------------------------------------------------------------------
6503 void
6504 LAPACK_DECL(dlasq6)(const INTEGER *I0,
6505 const INTEGER *N0,
6506 const DOUBLE *Z,
6507 const INTEGER *PP,
6508 DOUBLE *DMIN,
6509 DOUBLE *DMIN1,
6510 DOUBLE *DMIN2,
6511 DOUBLE *DN,
6512 DOUBLE *DNM1,
6513 DOUBLE *DNM2)
6514 {
6515 DEBUG_LAPACK_STUB("dlasq6");
6516 LAPACK_IMPL(dlasq6)(I0,
6517 N0,
6518 Z,
6519 PP,
6520 DMIN,
6521 DMIN1,
6522 DMIN2,
6523 DN,
6524 DNM1,
6525 DNM2);
6526 }
6527
6528 //-- dlasr ---------------------------------------------------------------------
6529 void
6530 LAPACK_DECL(dlasr)(const char *SIDE,
6531 const char *PIVOT,
6532 const char *DIRECT,
6533 const INTEGER *M,
6534 const INTEGER *N,
6535 const DOUBLE *C,
6536 const DOUBLE *S,
6537 DOUBLE *A,
6538 const INTEGER *LDA)
6539 {
6540 DEBUG_LAPACK_STUB("dlasr");
6541 LAPACK_IMPL(dlasr)(SIDE,
6542 PIVOT,
6543 DIRECT,
6544 M,
6545 N,
6546 C,
6547 S,
6548 A,
6549 LDA);
6550 }
6551
6552 //-- dlasrt --------------------------------------------------------------------
6553 void
6554 LAPACK_DECL(dlasrt)(const char *ID,
6555 const INTEGER *N,
6556 DOUBLE *D,
6557 INTEGER *INFO)
6558 {
6559 DEBUG_LAPACK_STUB("dlasrt");
6560 LAPACK_IMPL(dlasrt)(ID,
6561 N,
6562 D,
6563 INFO);
6564 }
6565
6566 //-- dlassq --------------------------------------------------------------------
6567 void
6568 LAPACK_DECL(dlassq)(const INTEGER *N,
6569 const DOUBLE *X,
6570 const INTEGER *INCX,
6571 DOUBLE *SCALE,
6572 DOUBLE *SUMSQ)
6573 {
6574 DEBUG_LAPACK_STUB("dlassq");
6575 LAPACK_IMPL(dlassq)(N,
6576 X,
6577 INCX,
6578 SCALE,
6579 SUMSQ);
6580 }
6581
6582 //-- dlasv2 --------------------------------------------------------------------
6583 void
6584 LAPACK_DECL(dlasv2)(const DOUBLE *F,
6585 const DOUBLE *G,
6586 const DOUBLE *H,
6587 DOUBLE *SSMIN,
6588 DOUBLE *SSMAX,
6589 DOUBLE *SNR,
6590 DOUBLE *CSR,
6591 DOUBLE *SNL,
6592 DOUBLE *CSL)
6593 {
6594 DEBUG_LAPACK_STUB("dlasv2");
6595 LAPACK_IMPL(dlasv2)(F,
6596 G,
6597 H,
6598 SSMIN,
6599 SSMAX,
6600 SNR,
6601 CSR,
6602 SNL,
6603 CSL);
6604 }
6605
6606 //-- dlaswp --------------------------------------------------------------------
6607 void
6608 LAPACK_DECL(dlaswp)(const INTEGER *N,
6609 DOUBLE *A,
6610 const INTEGER *LDA,
6611 const INTEGER *K1,
6612 const INTEGER *K2,
6613 const INTEGER *IPIV,
6614 const INTEGER *INCX)
6615 {
6616 DEBUG_LAPACK_STUB("dlaswp");
6617 LAPACK_IMPL(dlaswp)(N,
6618 A,
6619 LDA,
6620 K1,
6621 K2,
6622 IPIV,
6623 INCX);
6624 }
6625
6626 //-- dlasy2 --------------------------------------------------------------------
6627 void
6628 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
6629 const LOGICAL *LTRANR,
6630 const INTEGER *ISGN,
6631 const INTEGER *N1,
6632 const INTEGER *N2,
6633 const DOUBLE *TL,
6634 const INTEGER *LDTL,
6635 const DOUBLE *TR,
6636 const INTEGER *LDTR,
6637 const DOUBLE *B,
6638 const INTEGER *LDB,
6639 DOUBLE *SCALE,
6640 DOUBLE *X,
6641 const INTEGER *LDX,
6642 DOUBLE *XNORM,
6643 INTEGER *INFO)
6644 {
6645 DEBUG_LAPACK_STUB("dlasy2");
6646 LAPACK_IMPL(dlasy2)(LTRANL,
6647 LTRANR,
6648 ISGN,
6649 N1,
6650 N2,
6651 TL,
6652 LDTL,
6653 TR,
6654 LDTR,
6655 B,
6656 LDB,
6657 SCALE,
6658 X,
6659 LDX,
6660 XNORM,
6661 INFO);
6662 }
6663
6664 //-- dlasyf --------------------------------------------------------------------
6665 void
6666 LAPACK_DECL(dlasyf)(const char *UPLO,
6667 const INTEGER *N,
6668 const INTEGER *NB,
6669 INTEGER *KB,
6670 DOUBLE *A,
6671 const INTEGER *LDA,
6672 INTEGER *IPIV,
6673 DOUBLE *W,
6674 const INTEGER *LDW,
6675 INTEGER *INFO)
6676 {
6677 DEBUG_LAPACK_STUB("dlasyf");
6678 LAPACK_IMPL(dlasyf)(UPLO,
6679 N,
6680 NB,
6681 KB,
6682 A,
6683 LDA,
6684 IPIV,
6685 W,
6686 LDW,
6687 INFO);
6688 }
6689
6690 //-- dlat2s --------------------------------------------------------------------
6691 void
6692 LAPACK_DECL(dlat2s)(const char *UPLO,
6693 const INTEGER *N,
6694 const DOUBLE *A,
6695 const INTEGER *LDA,
6696 FLOAT *SA,
6697 const INTEGER *LDSA,
6698 INTEGER *INFO)
6699 {
6700 DEBUG_LAPACK_STUB("dlat2s");
6701 LAPACK_IMPL(dlat2s)(UPLO,
6702 N,
6703 A,
6704 LDA,
6705 SA,
6706 LDSA,
6707 INFO);
6708 }
6709
6710 //-- dlatbs --------------------------------------------------------------------
6711 void
6712 LAPACK_DECL(dlatbs)(const char *UPLO,
6713 const char *TRANS,
6714 const char *DIAG,
6715 const char *NORMIN,
6716 const INTEGER *N,
6717 const INTEGER *KD,
6718 const DOUBLE *AB,
6719 const INTEGER *LDAB,
6720 DOUBLE *X,
6721 DOUBLE *SCALE,
6722 DOUBLE *CNORM,
6723 INTEGER *INFO)
6724 {
6725 DEBUG_LAPACK_STUB("dlatbs");
6726 LAPACK_IMPL(dlatbs)(UPLO,
6727 TRANS,
6728 DIAG,
6729 NORMIN,
6730 N,
6731 KD,
6732 AB,
6733 LDAB,
6734 X,
6735 SCALE,
6736 CNORM,
6737 INFO);
6738 }
6739
6740 //-- dlatdf --------------------------------------------------------------------
6741 void
6742 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
6743 const INTEGER *N,
6744 const DOUBLE *Z,
6745 const INTEGER *LDZ,
6746 DOUBLE *RHS,
6747 DOUBLE *RDSUM,
6748 DOUBLE *RDSCAL,
6749 const INTEGER *IPIV,
6750 const INTEGER *JPIV)
6751 {
6752 DEBUG_LAPACK_STUB("dlatdf");
6753 LAPACK_IMPL(dlatdf)(IJOB,
6754 N,
6755 Z,
6756 LDZ,
6757 RHS,
6758 RDSUM,
6759 RDSCAL,
6760 IPIV,
6761 JPIV);
6762 }
6763
6764 //-- dlatps --------------------------------------------------------------------
6765 void
6766 LAPACK_DECL(dlatps)(const char *UPLO,
6767 const char *TRANS,
6768 const char *DIAG,
6769 const char *NORMIN,
6770 const INTEGER *N,
6771 const DOUBLE *AP,
6772 DOUBLE *X,
6773 DOUBLE *SCALE,
6774 DOUBLE *CNORM,
6775 INTEGER *INFO)
6776 {
6777 DEBUG_LAPACK_STUB("dlatps");
6778 LAPACK_IMPL(dlatps)(UPLO,
6779 TRANS,
6780 DIAG,
6781 NORMIN,
6782 N,
6783 AP,
6784 X,
6785 SCALE,
6786 CNORM,
6787 INFO);
6788 }
6789
6790 //-- dlatrd --------------------------------------------------------------------
6791 void
6792 LAPACK_DECL(dlatrd)(const char *UPLO,
6793 const INTEGER *N,
6794 const INTEGER *NB,
6795 DOUBLE *A,
6796 const INTEGER *LDA,
6797 DOUBLE *E,
6798 DOUBLE *TAU,
6799 DOUBLE *W,
6800 const INTEGER *LDW)
6801 {
6802 DEBUG_LAPACK_STUB("dlatrd");
6803 LAPACK_IMPL(dlatrd)(UPLO,
6804 N,
6805 NB,
6806 A,
6807 LDA,
6808 E,
6809 TAU,
6810 W,
6811 LDW);
6812 }
6813
6814 //-- dlatrs --------------------------------------------------------------------
6815 /*
6816 void
6817 LAPACK_DECL(dlatrs)(const char *UPLO,
6818 const char *TRANS,
6819 const char *DIAG,
6820 const char *NORMIN,
6821 const INTEGER *N,
6822 const DOUBLE *A,
6823 const INTEGER *LDA,
6824 DOUBLE *X,
6825 DOUBLE *SCALE,
6826 DOUBLE *CNORM,
6827 INTEGER *INFO)
6828 {
6829 DEBUG_LAPACK_STUB("dlatrs");
6830 LAPACK_IMPL(dlatrs)(UPLO,
6831 TRANS,
6832 DIAG,
6833 NORMIN,
6834 N,
6835 A,
6836 LDA,
6837 X,
6838 SCALE,
6839 CNORM,
6840 INFO);
6841 }
6842 */
6843 //-- dlatrz --------------------------------------------------------------------
6844 void
6845 LAPACK_DECL(dlatrz)(const INTEGER *M,
6846 const INTEGER *N,
6847 const INTEGER *L,
6848 DOUBLE *A,
6849 const INTEGER *LDA,
6850 DOUBLE *TAU,
6851 DOUBLE *WORK)
6852 {
6853 DEBUG_LAPACK_STUB("dlatrz");
6854 LAPACK_IMPL(dlatrz)(M,
6855 N,
6856 L,
6857 A,
6858 LDA,
6859 TAU,
6860 WORK);
6861 }
6862
6863 //-- dlatzm --------------------------------------------------------------------
6864 void
6865 LAPACK_DECL(dlatzm)(const char *SIDE,
6866 const INTEGER *M,
6867 const INTEGER *N,
6868 const DOUBLE *V,
6869 const INTEGER *INCV,
6870 const DOUBLE *TAU,
6871 DOUBLE *C1,
6872 DOUBLE *C2,
6873 const INTEGER *LDC,
6874 DOUBLE *WORK)
6875 {
6876 DEBUG_LAPACK_STUB("dlatzm");
6877 LAPACK_IMPL(dlatzm)(SIDE,
6878 M,
6879 N,
6880 V,
6881 INCV,
6882 TAU,
6883 C1,
6884 C2,
6885 LDC,
6886 WORK);
6887 }
6888
6889 //-- dlauu2 --------------------------------------------------------------------
6890 void
6891 LAPACK_DECL(dlauu2)(const char *UPLO,
6892 const INTEGER *N,
6893 DOUBLE *A,
6894 const INTEGER *LDA,
6895 INTEGER *INFO)
6896 {
6897 DEBUG_LAPACK_STUB("dlauu2");
6898 LAPACK_IMPL(dlauu2)(UPLO,
6899 N,
6900 A,
6901 LDA,
6902 INFO);
6903 }
6904
6905 //-- dlauum --------------------------------------------------------------------
6906 void
6907 LAPACK_DECL(dlauum)(const char *UPLO,
6908 const INTEGER *N,
6909 DOUBLE *A,
6910 const INTEGER *LDA,
6911 INTEGER *INFO)
6912 {
6913 DEBUG_LAPACK_STUB("dlauum");
6914 LAPACK_IMPL(dlauum)(UPLO,
6915 N,
6916 A,
6917 LDA,
6918 INFO);
6919 }
6920
6921 //-- dopgtr --------------------------------------------------------------------
6922 void
6923 LAPACK_DECL(dopgtr)(const char *UPLO,
6924 const INTEGER *N,
6925 const DOUBLE *AP,
6926 const DOUBLE *TAU,
6927 DOUBLE *Q,
6928 const INTEGER *LDQ,
6929 DOUBLE *WORK,
6930 INTEGER *INFO)
6931 {
6932 DEBUG_LAPACK_STUB("dopgtr");
6933 LAPACK_IMPL(dopgtr)(UPLO,
6934 N,
6935 AP,
6936 TAU,
6937 Q,
6938 LDQ,
6939 WORK,
6940 INFO);
6941 }
6942
6943 //-- dopmtr --------------------------------------------------------------------
6944 void
6945 LAPACK_DECL(dopmtr)(const char *SIDE,
6946 const char *UPLO,
6947 const char *TRANS,
6948 const INTEGER *M,
6949 const INTEGER *N,
6950 const DOUBLE *AP,
6951 const DOUBLE *TAU,
6952 DOUBLE *C,
6953 const INTEGER *LDC,
6954 DOUBLE *WORK,
6955 INTEGER *INFO)
6956 {
6957 DEBUG_LAPACK_STUB("dopmtr");
6958 LAPACK_IMPL(dopmtr)(SIDE,
6959 UPLO,
6960 TRANS,
6961 M,
6962 N,
6963 AP,
6964 TAU,
6965 C,
6966 LDC,
6967 WORK,
6968 INFO);
6969 }
6970
6971 //-- dorbdb --------------------------------------------------------------------
6972 void
6973 LAPACK_DECL(dorbdb)(const char *TRANS,
6974 const char *SIGNS,
6975 const INTEGER *M,
6976 const INTEGER *P,
6977 const INTEGER *Q,
6978 DOUBLE *X11,
6979 const INTEGER *LDX11,
6980 DOUBLE *X12,
6981 const INTEGER *LDX12,
6982 DOUBLE *X21,
6983 const INTEGER *LDX21,
6984 DOUBLE *X22,
6985 const INTEGER *LDX22,
6986 DOUBLE *THETA,
6987 DOUBLE *PHI,
6988 DOUBLE *TAUP1,
6989 DOUBLE *TAUP2,
6990 DOUBLE *TAUQ1,
6991 DOUBLE *TAUQ2,
6992 DOUBLE *WORK,
6993 const INTEGER *LWORK,
6994 INTEGER *INFO)
6995 {
6996 DEBUG_LAPACK_STUB("dorbdb");
6997 LAPACK_IMPL(dorbdb)(TRANS,
6998 SIGNS,
6999 M,
7000 P,
7001 Q,
7002 X11,
7003 LDX11,
7004 X12,
7005 LDX12,
7006 X21,
7007 LDX21,
7008 X22,
7009 LDX22,
7010 THETA,
7011 PHI,
7012 TAUP1,
7013 TAUP2,
7014 TAUQ1,
7015 TAUQ2,
7016 WORK,
7017 LWORK,
7018 INFO);
7019 }
7020
7021 //-- dorcsd --------------------------------------------------------------------
7022 void
7023 LAPACK_DECL(dorcsd)(const char *JOBU1,
7024 const char *JOBU2,
7025 const char *JOBV1T,
7026 const char *JOBV2T,
7027 const char *TRANS,
7028 const char *SIGNS,
7029 const INTEGER *M,
7030 const INTEGER *P,
7031 const INTEGER *Q,
7032 const DOUBLE *X11,
7033 const INTEGER *LDX11,
7034 const DOUBLE *X12,
7035 const INTEGER *LDX12,
7036 const DOUBLE *X21,
7037 const INTEGER *LDX21,
7038 const DOUBLE *X22,
7039 const INTEGER *LDX22,
7040 DOUBLE *THETA,
7041 DOUBLE *U1,
7042 const INTEGER *LDU1,
7043 DOUBLE *U2,
7044 const INTEGER *LDU2,
7045 DOUBLE *V1T,
7046 const INTEGER *LDV1T,
7047 DOUBLE *V2T,
7048 const INTEGER *LDV2T,
7049 DOUBLE *WORK,
7050 const INTEGER *LWORK,
7051 INTEGER *IWORK,
7052 INTEGER *INFO)
7053 {
7054 DEBUG_LAPACK_STUB("dorcsd");
7055 LAPACK_IMPL(dorcsd)(JOBU1,
7056 JOBU2,
7057 JOBV1T,
7058 JOBV2T,
7059 TRANS,
7060 SIGNS,
7061 M,
7062 P,
7063 Q,
7064 X11,
7065 LDX11,
7066 X12,
7067 LDX12,
7068 X21,
7069 LDX21,
7070 X22,
7071 LDX22,
7072 THETA,
7073 U1,
7074 LDU1,
7075 U2,
7076 LDU2,
7077 V1T,
7078 LDV1T,
7079 V2T,
7080 LDV2T,
7081 WORK,
7082 LWORK,
7083 IWORK,
7084 INFO);
7085 }
7086
7087 //-- dorg2l --------------------------------------------------------------------
7088 void
7089 LAPACK_DECL(dorg2l)(const INTEGER *M,
7090 const INTEGER *N,
7091 const INTEGER *K,
7092 DOUBLE *A,
7093 const INTEGER *LDA,
7094 const DOUBLE *TAU,
7095 DOUBLE *WORK,
7096 INTEGER *INFO)
7097 {
7098 DEBUG_LAPACK_STUB("dorg2l");
7099 LAPACK_IMPL(dorg2l)(M,
7100 N,
7101 K,
7102 A,
7103 LDA,
7104 TAU,
7105 WORK,
7106 INFO);
7107 }
7108
7109 //-- dorg2r --------------------------------------------------------------------
7110 void
7111 LAPACK_DECL(dorg2r)(const INTEGER *M,
7112 const INTEGER *N,
7113 const INTEGER *K,
7114 DOUBLE *A,
7115 const INTEGER *LDA,
7116 const DOUBLE *TAU,
7117 DOUBLE *WORK,
7118 INTEGER *INFO)
7119 {
7120 DEBUG_LAPACK_STUB("dorg2r");
7121 LAPACK_IMPL(dorg2r)(M,
7122 N,
7123 K,
7124 A,
7125 LDA,
7126 TAU,
7127 WORK,
7128 INFO);
7129 }
7130
7131 //-- dorgbr --------------------------------------------------------------------
7132 void
7133 LAPACK_DECL(dorgbr)(const char *VECT,
7134 const INTEGER *M,
7135 const INTEGER *N,
7136 const INTEGER *K,
7137 DOUBLE *A,
7138 const INTEGER *LDA,
7139 const DOUBLE *TAU,
7140 DOUBLE *WORK,
7141 const INTEGER *LWORK,
7142 INTEGER *INFO)
7143 {
7144 DEBUG_LAPACK_STUB("dorgbr");
7145 LAPACK_IMPL(dorgbr)(VECT,
7146 M,
7147 N,
7148 K,
7149 A,
7150 LDA,
7151 TAU,
7152 WORK,
7153 LWORK,
7154 INFO);
7155 }
7156
7157 //-- dorghr --------------------------------------------------------------------
7158 void
7159 LAPACK_DECL(dorghr)(const INTEGER *N,
7160 const INTEGER *ILO,
7161 const INTEGER *IHI,
7162 DOUBLE *A,
7163 const INTEGER *LDA,
7164 const DOUBLE *TAU,
7165 DOUBLE *WORK,
7166 const INTEGER *LWORK,
7167 INTEGER *INFO)
7168 {
7169 DEBUG_LAPACK_STUB("dorghr");
7170 LAPACK_IMPL(dorghr)(N,
7171 ILO,
7172 IHI,
7173 A,
7174 LDA,
7175 TAU,
7176 WORK,
7177 LWORK,
7178 INFO);
7179 }
7180
7181 //-- dorgl2 --------------------------------------------------------------------
7182 void
7183 LAPACK_DECL(dorgl2)(const INTEGER *M,
7184 const INTEGER *N,
7185 const INTEGER *K,
7186 DOUBLE *A,
7187 const INTEGER *LDA,
7188 const DOUBLE *TAU,
7189 DOUBLE *WORK,
7190 INTEGER *INFO)
7191 {
7192 DEBUG_LAPACK_STUB("dorgl2");
7193 LAPACK_IMPL(dorgl2)(M,
7194 N,
7195 K,
7196 A,
7197 LDA,
7198 TAU,
7199 WORK,
7200 INFO);
7201 }
7202
7203 //-- dorglq --------------------------------------------------------------------
7204 /*
7205 void
7206 LAPACK_DECL(dorglq)(const INTEGER *M,
7207 const INTEGER *N,
7208 const INTEGER *K,
7209 DOUBLE *A,
7210 const INTEGER *LDA,
7211 const DOUBLE *TAU,
7212 DOUBLE *WORK,
7213 const INTEGER *LWORK,
7214 INTEGER *INFO)
7215 {
7216 DEBUG_LAPACK_STUB("dorglq");
7217 LAPACK_IMPL(dorglq)(M,
7218 N,
7219 K,
7220 A,
7221 LDA,
7222 TAU,
7223 WORK,
7224 LWORK,
7225 INFO);
7226 }
7227 */
7228 //-- dorgql --------------------------------------------------------------------
7229 void
7230 LAPACK_DECL(dorgql)(const INTEGER *M,
7231 const INTEGER *N,
7232 const INTEGER *K,
7233 DOUBLE *A,
7234 const INTEGER *LDA,
7235 const DOUBLE *TAU,
7236 DOUBLE *WORK,
7237 const INTEGER *LWORK,
7238 INTEGER *INFO)
7239 {
7240 DEBUG_LAPACK_STUB("dorgql");
7241 LAPACK_IMPL(dorgql)(M,
7242 N,
7243 K,
7244 A,
7245 LDA,
7246 TAU,
7247 WORK,
7248 LWORK,
7249 INFO);
7250 }
7251
7252 //-- dorgqr --------------------------------------------------------------------
7253 /*
7254 void
7255 LAPACK_DECL(dorgqr)(const INTEGER *M,
7256 const INTEGER *N,
7257 const INTEGER *K,
7258 DOUBLE *A,
7259 const INTEGER *LDA,
7260 const DOUBLE *TAU,
7261 DOUBLE *WORK,
7262 const INTEGER *LWORK,
7263 INTEGER *INFO)
7264 {
7265 DEBUG_LAPACK_STUB("dorgqr");
7266 LAPACK_IMPL(dorgqr)(M,
7267 N,
7268 K,
7269 A,
7270 LDA,
7271 TAU,
7272 WORK,
7273 LWORK,
7274 INFO);
7275 }
7276 */
7277 //-- dorgr2 --------------------------------------------------------------------
7278 void
7279 LAPACK_DECL(dorgr2)(const INTEGER *M,
7280 const INTEGER *N,
7281 const INTEGER *K,
7282 DOUBLE *A,
7283 const INTEGER *LDA,
7284 const DOUBLE *TAU,
7285 DOUBLE *WORK,
7286 INTEGER *INFO)
7287 {
7288 DEBUG_LAPACK_STUB("dorgr2");
7289 LAPACK_IMPL(dorgr2)(M,
7290 N,
7291 K,
7292 A,
7293 LDA,
7294 TAU,
7295 WORK,
7296 INFO);
7297 }
7298
7299 //-- dorgrq --------------------------------------------------------------------
7300 void
7301 LAPACK_DECL(dorgrq)(const INTEGER *M,
7302 const INTEGER *N,
7303 const INTEGER *K,
7304 DOUBLE *A,
7305 const INTEGER *LDA,
7306 const DOUBLE *TAU,
7307 DOUBLE *WORK,
7308 const INTEGER *LWORK,
7309 INTEGER *INFO)
7310 {
7311 DEBUG_LAPACK_STUB("dorgrq");
7312 LAPACK_IMPL(dorgrq)(M,
7313 N,
7314 K,
7315 A,
7316 LDA,
7317 TAU,
7318 WORK,
7319 LWORK,
7320 INFO);
7321 }
7322
7323 //-- dorgtr --------------------------------------------------------------------
7324 void
7325 LAPACK_DECL(dorgtr)(const char *UPLO,
7326 const INTEGER *N,
7327 DOUBLE *A,
7328 const INTEGER *LDA,
7329 const DOUBLE *TAU,
7330 DOUBLE *WORK,
7331 const INTEGER *LWORK,
7332 INTEGER *INFO)
7333 {
7334 DEBUG_LAPACK_STUB("dorgtr");
7335 LAPACK_IMPL(dorgtr)(UPLO,
7336 N,
7337 A,
7338 LDA,
7339 TAU,
7340 WORK,
7341 LWORK,
7342 INFO);
7343 }
7344
7345 //-- dorm2l --------------------------------------------------------------------
7346 void
7347 LAPACK_DECL(dorm2l)(const char *SIDE,
7348 const char *TRANS,
7349 const INTEGER *M,
7350 const INTEGER *N,
7351 const INTEGER *K,
7352 const DOUBLE *A,
7353 const INTEGER *LDA,
7354 const DOUBLE *TAU,
7355 DOUBLE *C,
7356 const INTEGER *LDC,
7357 DOUBLE *WORK,
7358 INTEGER *INFO)
7359 {
7360 DEBUG_LAPACK_STUB("dorm2l");
7361 LAPACK_IMPL(dorm2l)(SIDE,
7362 TRANS,
7363 M,
7364 N,
7365 K,
7366 A,
7367 LDA,
7368 TAU,
7369 C,
7370 LDC,
7371 WORK,
7372 INFO);
7373 }
7374
7375 //-- dorm2r --------------------------------------------------------------------
7376 void
7377 LAPACK_DECL(dorm2r)(const char *SIDE,
7378 const char *TRANS,
7379 const INTEGER *M,
7380 const INTEGER *N,
7381 const INTEGER *K,
7382 const DOUBLE *A,
7383 const INTEGER *LDA,
7384 const DOUBLE *TAU,
7385 DOUBLE *C,
7386 const INTEGER *LDC,
7387 DOUBLE *WORK,
7388 INTEGER *INFO)
7389 {
7390 DEBUG_LAPACK_STUB("dorm2r");
7391 LAPACK_IMPL(dorm2r)(SIDE,
7392 TRANS,
7393 M,
7394 N,
7395 K,
7396 A,
7397 LDA,
7398 TAU,
7399 C,
7400 LDC,
7401 WORK,
7402 INFO);
7403 }
7404
7405 //-- dormbr --------------------------------------------------------------------
7406 void
7407 LAPACK_DECL(dormbr)(const char *VECT,
7408 const char *SIDE,
7409 const char *TRANS,
7410 const INTEGER *M,
7411 const INTEGER *N,
7412 const INTEGER *K,
7413 const DOUBLE *A,
7414 const INTEGER *LDA,
7415 const DOUBLE *TAU,
7416 DOUBLE *C,
7417 const INTEGER *LDC,
7418 DOUBLE *WORK,
7419 const INTEGER *LWORK,
7420 INTEGER *INFO)
7421 {
7422 DEBUG_LAPACK_STUB("dormbr");
7423 LAPACK_IMPL(dormbr)(VECT,
7424 SIDE,
7425 TRANS,
7426 M,
7427 N,
7428 K,
7429 A,
7430 LDA,
7431 TAU,
7432 C,
7433 LDC,
7434 WORK,
7435 LWORK,
7436 INFO);
7437 }
7438
7439 //-- dormhr --------------------------------------------------------------------
7440 void
7441 LAPACK_DECL(dormhr)(const char *SIDE,
7442 const char *TRANS,
7443 const INTEGER *M,
7444 const INTEGER *N,
7445 const INTEGER *ILO,
7446 const INTEGER *IHI,
7447 const DOUBLE *A,
7448 const INTEGER *LDA,
7449 const DOUBLE *TAU,
7450 DOUBLE *C,
7451 const INTEGER *LDC,
7452 DOUBLE *WORK,
7453 const INTEGER *LWORK,
7454 INTEGER *INFO)
7455 {
7456 DEBUG_LAPACK_STUB("dormhr");
7457 LAPACK_IMPL(dormhr)(SIDE,
7458 TRANS,
7459 M,
7460 N,
7461 ILO,
7462 IHI,
7463 A,
7464 LDA,
7465 TAU,
7466 C,
7467 LDC,
7468 WORK,
7469 LWORK,
7470 INFO);
7471 }
7472
7473 //-- dorml2 --------------------------------------------------------------------
7474 void
7475 LAPACK_DECL(dorml2)(const char *SIDE,
7476 const char *TRANS,
7477 const INTEGER *M,
7478 const INTEGER *N,
7479 const INTEGER *K,
7480 const DOUBLE *A,
7481 const INTEGER *LDA,
7482 const DOUBLE *TAU,
7483 DOUBLE *C,
7484 const INTEGER *LDC,
7485 DOUBLE *WORK,
7486 INTEGER *INFO)
7487 {
7488 DEBUG_LAPACK_STUB("dorml2");
7489 LAPACK_IMPL(dorml2)(SIDE,
7490 TRANS,
7491 M,
7492 N,
7493 K,
7494 A,
7495 LDA,
7496 TAU,
7497 C,
7498 LDC,
7499 WORK,
7500 INFO);
7501 }
7502
7503 //-- dormlq --------------------------------------------------------------------
7504 /*
7505 void
7506 LAPACK_DECL(dormlq)(const char *SIDE,
7507 const char *TRANS,
7508 const INTEGER *M,
7509 const INTEGER *N,
7510 const INTEGER *K,
7511 const DOUBLE *A,
7512 const INTEGER *LDA,
7513 const DOUBLE *TAU,
7514 DOUBLE *C,
7515 const INTEGER *LDC,
7516 DOUBLE *WORK,
7517 const INTEGER *LWORK,
7518 INTEGER *INFO)
7519 {
7520 DEBUG_LAPACK_STUB("dormlq");
7521 LAPACK_IMPL(dormlq)(SIDE,
7522 TRANS,
7523 M,
7524 N,
7525 K,
7526 A,
7527 LDA,
7528 TAU,
7529 C,
7530 LDC,
7531 WORK,
7532 LWORK,
7533 INFO);
7534 }
7535 */
7536 //-- dormql --------------------------------------------------------------------
7537 void
7538 LAPACK_DECL(dormql)(const char *SIDE,
7539 const char *TRANS,
7540 const INTEGER *M,
7541 const INTEGER *N,
7542 const INTEGER *K,
7543 const DOUBLE *A,
7544 const INTEGER *LDA,
7545 const DOUBLE *TAU,
7546 DOUBLE *C,
7547 const INTEGER *LDC,
7548 DOUBLE *WORK,
7549 const INTEGER *LWORK,
7550 INTEGER *INFO)
7551 {
7552 DEBUG_LAPACK_STUB("dormql");
7553 LAPACK_IMPL(dormql)(SIDE,
7554 TRANS,
7555 M,
7556 N,
7557 K,
7558 A,
7559 LDA,
7560 TAU,
7561 C,
7562 LDC,
7563 WORK,
7564 LWORK,
7565 INFO);
7566 }
7567
7568 //-- dormqr --------------------------------------------------------------------
7569 /*
7570 void
7571 LAPACK_DECL(dormqr)(const char *SIDE,
7572 const char *TRANS,
7573 const INTEGER *M,
7574 const INTEGER *N,
7575 const INTEGER *K,
7576 const DOUBLE *A,
7577 const INTEGER *LDA,
7578 const DOUBLE *TAU,
7579 DOUBLE *C,
7580 const INTEGER *LDC,
7581 DOUBLE *WORK,
7582 const INTEGER *LWORK,
7583 INTEGER *INFO)
7584 {
7585 DEBUG_LAPACK_STUB("dormqr");
7586 LAPACK_IMPL(dormqr)(SIDE,
7587 TRANS,
7588 M,
7589 N,
7590 K,
7591 A,
7592 LDA,
7593 TAU,
7594 C,
7595 LDC,
7596 WORK,
7597 LWORK,
7598 INFO);
7599 }
7600 */
7601 //-- dormr2 --------------------------------------------------------------------
7602 void
7603 LAPACK_DECL(dormr2)(const char *SIDE,
7604 const char *TRANS,
7605 const INTEGER *M,
7606 const INTEGER *N,
7607 const INTEGER *K,
7608 const DOUBLE *A,
7609 const INTEGER *LDA,
7610 const DOUBLE *TAU,
7611 DOUBLE *C,
7612 const INTEGER *LDC,
7613 DOUBLE *WORK,
7614 INTEGER *INFO)
7615 {
7616 DEBUG_LAPACK_STUB("dormr2");
7617 LAPACK_IMPL(dormr2)(SIDE,
7618 TRANS,
7619 M,
7620 N,
7621 K,
7622 A,
7623 LDA,
7624 TAU,
7625 C,
7626 LDC,
7627 WORK,
7628 INFO);
7629 }
7630
7631 //-- dormr3 --------------------------------------------------------------------
7632 void
7633 LAPACK_DECL(dormr3)(const char *SIDE,
7634 const char *TRANS,
7635 const INTEGER *M,
7636 const INTEGER *N,
7637 const INTEGER *K,
7638 const INTEGER *L,
7639 const DOUBLE *A,
7640 const INTEGER *LDA,
7641 const DOUBLE *TAU,
7642 DOUBLE *C,
7643 const INTEGER *LDC,
7644 DOUBLE *WORK,
7645 INTEGER *INFO)
7646 {
7647 DEBUG_LAPACK_STUB("dormr3");
7648 LAPACK_IMPL(dormr3)(SIDE,
7649 TRANS,
7650 M,
7651 N,
7652 K,
7653 L,
7654 A,
7655 LDA,
7656 TAU,
7657 C,
7658 LDC,
7659 WORK,
7660 INFO);
7661 }
7662
7663 //-- dormrq --------------------------------------------------------------------
7664 void
7665 LAPACK_DECL(dormrq)(const char *SIDE,
7666 const char *TRANS,
7667 const INTEGER *M,
7668 const INTEGER *N,
7669 const INTEGER *K,
7670 const DOUBLE *A,
7671 const INTEGER *LDA,
7672 const DOUBLE *TAU,
7673 DOUBLE *C,
7674 const INTEGER *LDC,
7675 DOUBLE *WORK,
7676 const INTEGER *LWORK,
7677 INTEGER *INFO)
7678 {
7679 DEBUG_LAPACK_STUB("dormrq");
7680 LAPACK_IMPL(dormrq)(SIDE,
7681 TRANS,
7682 M,
7683 N,
7684 K,
7685 A,
7686 LDA,
7687 TAU,
7688 C,
7689 LDC,
7690 WORK,
7691 LWORK,
7692 INFO);
7693 }
7694
7695 //-- dormrz --------------------------------------------------------------------
7696 void
7697 LAPACK_DECL(dormrz)(const char *SIDE,
7698 const char *TRANS,
7699 const INTEGER *M,
7700 const INTEGER *N,
7701 const INTEGER *K,
7702 const INTEGER *L,
7703 const DOUBLE *A,
7704 const INTEGER *LDA,
7705 const DOUBLE *TAU,
7706 DOUBLE *C,
7707 const INTEGER *LDC,
7708 DOUBLE *WORK,
7709 const INTEGER *LWORK,
7710 INTEGER *INFO)
7711 {
7712 DEBUG_LAPACK_STUB("dormrz");
7713 LAPACK_IMPL(dormrz)(SIDE,
7714 TRANS,
7715 M,
7716 N,
7717 K,
7718 L,
7719 A,
7720 LDA,
7721 TAU,
7722 C,
7723 LDC,
7724 WORK,
7725 LWORK,
7726 INFO);
7727 }
7728
7729 //-- dormtr --------------------------------------------------------------------
7730 void
7731 LAPACK_DECL(dormtr)(const char *SIDE,
7732 const char *UPLO,
7733 const char *TRANS,
7734 const INTEGER *M,
7735 const INTEGER *N,
7736 const DOUBLE *A,
7737 const INTEGER *LDA,
7738 const DOUBLE *TAU,
7739 DOUBLE *C,
7740 const INTEGER *LDC,
7741 DOUBLE *WORK,
7742 const INTEGER *LWORK,
7743 INTEGER *INFO)
7744 {
7745 DEBUG_LAPACK_STUB("dormtr");
7746 LAPACK_IMPL(dormtr)(SIDE,
7747 UPLO,
7748 TRANS,
7749 M,
7750 N,
7751 A,
7752 LDA,
7753 TAU,
7754 C,
7755 LDC,
7756 WORK,
7757 LWORK,
7758 INFO);
7759 }
7760
7761 //-- dpbcon --------------------------------------------------------------------
7762 void
7763 LAPACK_DECL(dpbcon)(const char *UPLO,
7764 const INTEGER *N,
7765 const INTEGER *KD,
7766 const DOUBLE *AB,
7767 const INTEGER *LDAB,
7768 const DOUBLE *ANORM,
7769 DOUBLE *RCOND,
7770 DOUBLE *WORK,
7771 INTEGER *IWORK,
7772 INTEGER *INFO)
7773 {
7774 DEBUG_LAPACK_STUB("dpbcon");
7775 LAPACK_IMPL(dpbcon)(UPLO,
7776 N,
7777 KD,
7778 AB,
7779 LDAB,
7780 ANORM,
7781 RCOND,
7782 WORK,
7783 IWORK,
7784 INFO);
7785 }
7786
7787 //-- dpbequ --------------------------------------------------------------------
7788 void
7789 LAPACK_DECL(dpbequ)(const char *UPLO,
7790 const INTEGER *N,
7791 const INTEGER *KD,
7792 const DOUBLE *AB,
7793 const INTEGER *LDAB,
7794 DOUBLE *S,
7795 DOUBLE *SCOND,
7796 DOUBLE *AMAX,
7797 INTEGER *INFO)
7798 {
7799 DEBUG_LAPACK_STUB("dpbequ");
7800 LAPACK_IMPL(dpbequ)(UPLO,
7801 N,
7802 KD,
7803 AB,
7804 LDAB,
7805 S,
7806 SCOND,
7807 AMAX,
7808 INFO);
7809 }
7810
7811 //-- dpbrfs --------------------------------------------------------------------
7812 void
7813 LAPACK_DECL(dpbrfs)(const char *UPLO,
7814 const INTEGER *N,
7815 const INTEGER *KD,
7816 const INTEGER *NRHS,
7817 const DOUBLE *AB,
7818 const INTEGER *LDAB,
7819 const DOUBLE *AFB,
7820 const INTEGER *LDAFB,
7821 const DOUBLE *B,
7822 const INTEGER *LDB,
7823 DOUBLE *X,
7824 const INTEGER *LDX,
7825 DOUBLE *FERR,
7826 DOUBLE *BERR,
7827 DOUBLE *WORK,
7828 INTEGER *IWORK,
7829 INTEGER *INFO)
7830 {
7831 DEBUG_LAPACK_STUB("dpbrfs");
7832 LAPACK_IMPL(dpbrfs)(UPLO,
7833 N,
7834 KD,
7835 NRHS,
7836 AB,
7837 LDAB,
7838 AFB,
7839 LDAFB,
7840 B,
7841 LDB,
7842 X,
7843 LDX,
7844 FERR,
7845 BERR,
7846 WORK,
7847 IWORK,
7848 INFO);
7849 }
7850
7851 //-- dpbstf --------------------------------------------------------------------
7852 void
7853 LAPACK_DECL(dpbstf)(const char *UPLO,
7854 const INTEGER *N,
7855 const INTEGER *KD,
7856 DOUBLE *AB,
7857 const INTEGER *LDAB,
7858 INTEGER *INFO)
7859 {
7860 DEBUG_LAPACK_STUB("dpbstf");
7861 LAPACK_IMPL(dpbstf)(UPLO,
7862 N,
7863 KD,
7864 AB,
7865 LDAB,
7866 INFO);
7867 }
7868
7869 //-- dpbsv ---------------------------------------------------------------------
7870 void
7871 LAPACK_DECL(dpbsv)(const char *UPLO,
7872 const INTEGER *N,
7873 const INTEGER *KD,
7874 const INTEGER *NRHS,
7875 DOUBLE *AB,
7876 const INTEGER *LDAB,
7877 DOUBLE *B,
7878 const INTEGER *LDB,
7879 INTEGER *INFO)
7880 {
7881 DEBUG_LAPACK_STUB("dpbsv");
7882 LAPACK_IMPL(dpbsv)(UPLO,
7883 N,
7884 KD,
7885 NRHS,
7886 AB,
7887 LDAB,
7888 B,
7889 LDB,
7890 INFO);
7891 }
7892
7893 //-- dpbsvx --------------------------------------------------------------------
7894 void
7895 LAPACK_DECL(dpbsvx)(const char *FACT,
7896 const char *UPLO,
7897 const INTEGER *N,
7898 const INTEGER *KD,
7899 const INTEGER *NRHS,
7900 DOUBLE *AB,
7901 const INTEGER *LDAB,
7902 DOUBLE *AFB,
7903 const INTEGER *LDAFB,
7904 char *EQUED,
7905 DOUBLE *S,
7906 DOUBLE *B,
7907 const INTEGER *LDB,
7908 DOUBLE *X,
7909 const INTEGER *LDX,
7910 DOUBLE *RCOND,
7911 DOUBLE *FERR,
7912 DOUBLE *BERR,
7913 DOUBLE *WORK,
7914 INTEGER *IWORK,
7915 INTEGER *INFO)
7916 {
7917 DEBUG_LAPACK_STUB("dpbsvx");
7918 LAPACK_IMPL(dpbsvx)(FACT,
7919 UPLO,
7920 N,
7921 KD,
7922 NRHS,
7923 AB,
7924 LDAB,
7925 AFB,
7926 LDAFB,
7927 EQUED,
7928 S,
7929 B,
7930 LDB,
7931 X,
7932 LDX,
7933 RCOND,
7934 FERR,
7935 BERR,
7936 WORK,
7937 IWORK,
7938 INFO);
7939 }
7940
7941 //-- dpbtf2 --------------------------------------------------------------------
7942 void
7943 LAPACK_DECL(dpbtf2)(const char *UPLO,
7944 const INTEGER *N,
7945 const INTEGER *KD,
7946 DOUBLE *AB,
7947 const INTEGER *LDAB,
7948 INTEGER *INFO)
7949 {
7950 DEBUG_LAPACK_STUB("dpbtf2");
7951 LAPACK_IMPL(dpbtf2)(UPLO,
7952 N,
7953 KD,
7954 AB,
7955 LDAB,
7956 INFO);
7957 }
7958
7959 //-- dpbtrf --------------------------------------------------------------------
7960 void
7961 LAPACK_DECL(dpbtrf)(const char *UPLO,
7962 const INTEGER *N,
7963 const INTEGER *KD,
7964 DOUBLE *AB,
7965 const INTEGER *LDAB,
7966 INTEGER *INFO)
7967 {
7968 DEBUG_LAPACK_STUB("dpbtrf");
7969 LAPACK_IMPL(dpbtrf)(UPLO,
7970 N,
7971 KD,
7972 AB,
7973 LDAB,
7974 INFO);
7975 }
7976
7977 //-- dpbtrs --------------------------------------------------------------------
7978 void
7979 LAPACK_DECL(dpbtrs)(const char *UPLO,
7980 const INTEGER *N,
7981 const INTEGER *KD,
7982 const INTEGER *NRHS,
7983 const DOUBLE *AB,
7984 const INTEGER *LDAB,
7985 DOUBLE *B,
7986 const INTEGER *LDB,
7987 INTEGER *INFO)
7988 {
7989 DEBUG_LAPACK_STUB("dpbtrs");
7990 LAPACK_IMPL(dpbtrs)(UPLO,
7991 N,
7992 KD,
7993 NRHS,
7994 AB,
7995 LDAB,
7996 B,
7997 LDB,
7998 INFO);
7999 }
8000
8001 //-- dpftrf --------------------------------------------------------------------
8002 void
8003 LAPACK_DECL(dpftrf)(const char *TRANSR,
8004 const char *UPLO,
8005 const INTEGER *N,
8006 DOUBLE *A,
8007 INTEGER *INFO)
8008 {
8009 DEBUG_LAPACK_STUB("dpftrf");
8010 LAPACK_IMPL(dpftrf)(TRANSR,
8011 UPLO,
8012 N,
8013 A,
8014 INFO);
8015 }
8016
8017 //-- dpftri --------------------------------------------------------------------
8018 void
8019 LAPACK_DECL(dpftri)(const char *TRANSR,
8020 const char *UPLO,
8021 const INTEGER *N,
8022 DOUBLE *A,
8023 INTEGER *INFO)
8024 {
8025 DEBUG_LAPACK_STUB("dpftri");
8026 LAPACK_IMPL(dpftri)(TRANSR,
8027 UPLO,
8028 N,
8029 A,
8030 INFO);
8031 }
8032
8033 //-- dpftrs --------------------------------------------------------------------
8034 void
8035 LAPACK_DECL(dpftrs)(const char *TRANSR,
8036 const char *UPLO,
8037 const INTEGER *N,
8038 const INTEGER *NRHS,
8039 const DOUBLE *A,
8040 DOUBLE *B,
8041 const INTEGER *LDB,
8042 INTEGER *INFO)
8043 {
8044 DEBUG_LAPACK_STUB("dpftrs");
8045 LAPACK_IMPL(dpftrs)(TRANSR,
8046 UPLO,
8047 N,
8048 NRHS,
8049 A,
8050 B,
8051 LDB,
8052 INFO);
8053 }
8054
8055 //-- dpocon --------------------------------------------------------------------
8056 /*
8057 void
8058 LAPACK_DECL(dpocon)(const char *UPLO,
8059 const INTEGER *N,
8060 const DOUBLE *A,
8061 const INTEGER *LDA,
8062 const DOUBLE *ANORM,
8063 DOUBLE *RCOND,
8064 DOUBLE *WORK,
8065 INTEGER *IWORK,
8066 INTEGER *INFO)
8067 {
8068 DEBUG_LAPACK_STUB("dpocon");
8069 LAPACK_IMPL(dpocon)(UPLO,
8070 N,
8071 A,
8072 LDA,
8073 ANORM,
8074 RCOND,
8075 WORK,
8076 IWORK,
8077 INFO);
8078 }
8079 */
8080 //-- dpoequ --------------------------------------------------------------------
8081 void
8082 LAPACK_DECL(dpoequ)(const INTEGER *N,
8083 const DOUBLE *A,
8084 const INTEGER *LDA,
8085 DOUBLE *S,
8086 DOUBLE *SCOND,
8087 DOUBLE *AMAX,
8088 INTEGER *INFO)
8089 {
8090 DEBUG_LAPACK_STUB("dpoequ");
8091 LAPACK_IMPL(dpoequ)(N,
8092 A,
8093 LDA,
8094 S,
8095 SCOND,
8096 AMAX,
8097 INFO);
8098 }
8099
8100 //-- dpoequb -------------------------------------------------------------------
8101 void
8102 LAPACK_DECL(dpoequb)(const INTEGER *N,
8103 const DOUBLE *A,
8104 const INTEGER *LDA,
8105 DOUBLE *S,
8106 DOUBLE *SCOND,
8107 DOUBLE *AMAX,
8108 INTEGER *INFO)
8109 {
8110 DEBUG_LAPACK_STUB("dpoequb");
8111 LAPACK_IMPL(dpoequb)(N,
8112 A,
8113 LDA,
8114 S,
8115 SCOND,
8116 AMAX,
8117 INFO);
8118 }
8119
8120 //-- dporfs --------------------------------------------------------------------
8121 void
8122 LAPACK_DECL(dporfs)(const char *UPLO,
8123 const INTEGER *N,
8124 const INTEGER *NRHS,
8125 const DOUBLE *A,
8126 const INTEGER *LDA,
8127 const DOUBLE *AF,
8128 const INTEGER *LDAF,
8129 const DOUBLE *B,
8130 const INTEGER *LDB,
8131 DOUBLE *X,
8132 const INTEGER *LDX,
8133 DOUBLE *FERR,
8134 DOUBLE *BERR,
8135 DOUBLE *WORK,
8136 INTEGER *IWORK,
8137 INTEGER *INFO)
8138 {
8139 DEBUG_LAPACK_STUB("dporfs");
8140 LAPACK_IMPL(dporfs)(UPLO,
8141 N,
8142 NRHS,
8143 A,
8144 LDA,
8145 AF,
8146 LDAF,
8147 B,
8148 LDB,
8149 X,
8150 LDX,
8151 FERR,
8152 BERR,
8153 WORK,
8154 IWORK,
8155 INFO);
8156 }
8157
8158 //-- dposv ---------------------------------------------------------------------
8159 /*
8160 void
8161 LAPACK_DECL(dposv)(const char *UPLO,
8162 const INTEGER *N,
8163 const INTEGER *NRHS,
8164 DOUBLE *A,
8165 const INTEGER *LDA,
8166 DOUBLE *B,
8167 const INTEGER *LDB,
8168 INTEGER *INFO)
8169 {
8170 DEBUG_LAPACK_STUB("dposv");
8171 LAPACK_IMPL(dposv)(UPLO,
8172 N,
8173 NRHS,
8174 A,
8175 LDA,
8176 B,
8177 LDB,
8178 INFO);
8179 }
8180 */
8181 //-- dposvx --------------------------------------------------------------------
8182 void
8183 LAPACK_DECL(dposvx)(const char *FACT,
8184 const char *UPLO,
8185 const INTEGER *N,
8186 const INTEGER *NRHS,
8187 DOUBLE *A,
8188 const INTEGER *LDA,
8189 DOUBLE *AF,
8190 const INTEGER *LDAF,
8191 char *EQUED,
8192 DOUBLE *S,
8193 DOUBLE *B,
8194 const INTEGER *LDB,
8195 DOUBLE *X,
8196 const INTEGER *LDX,
8197 DOUBLE *RCOND,
8198 DOUBLE *FERR,
8199 DOUBLE *BERR,
8200 DOUBLE *WORK,
8201 INTEGER *IWORK,
8202 INTEGER *INFO)
8203 {
8204 DEBUG_LAPACK_STUB("dposvx");
8205 LAPACK_IMPL(dposvx)(FACT,
8206 UPLO,
8207 N,
8208 NRHS,
8209 A,
8210 LDA,
8211 AF,
8212 LDAF,
8213 EQUED,
8214 S,
8215 B,
8216 LDB,
8217 X,
8218 LDX,
8219 RCOND,
8220 FERR,
8221 BERR,
8222 WORK,
8223 IWORK,
8224 INFO);
8225 }
8226
8227 //-- dpotf2 --------------------------------------------------------------------
8228 void
8229 LAPACK_DECL(dpotf2)(const char *UPLO,
8230 const INTEGER *N,
8231 DOUBLE *A,
8232 const INTEGER *LDA,
8233 INTEGER *INFO)
8234 {
8235 DEBUG_LAPACK_STUB("dpotf2");
8236 LAPACK_IMPL(dpotf2)(UPLO,
8237 N,
8238 A,
8239 LDA,
8240 INFO);
8241 }
8242
8243 //-- dpotrf --------------------------------------------------------------------
8244 /*
8245 void
8246 LAPACK_DECL(dpotrf)(const char *UPLO,
8247 const INTEGER *N,
8248 DOUBLE *A,
8249 const INTEGER *LDA,
8250 INTEGER *INFO)
8251 {
8252 DEBUG_LAPACK_STUB("dpotrf");
8253 LAPACK_IMPL(dpotrf)(UPLO,
8254 N,
8255 A,
8256 LDA,
8257 INFO);
8258 }
8259 */
8260 //-- dpotri --------------------------------------------------------------------
8261 /*
8262 void
8263 LAPACK_DECL(dpotri)(const char *UPLO,
8264 const INTEGER *N,
8265 DOUBLE *A,
8266 const INTEGER *LDA,
8267 INTEGER *INFO)
8268 {
8269 DEBUG_LAPACK_STUB("dpotri");
8270 LAPACK_IMPL(dpotri)(UPLO,
8271 N,
8272 A,
8273 LDA,
8274 INFO);
8275 }
8276 */
8277 //-- dpotrs --------------------------------------------------------------------
8278 /*
8279 void
8280 LAPACK_DECL(dpotrs)(const char *UPLO,
8281 const INTEGER *N,
8282 const INTEGER *NRHS,
8283 const DOUBLE *A,
8284 const INTEGER *LDA,
8285 DOUBLE *B,
8286 const INTEGER *LDB,
8287 INTEGER *INFO)
8288 {
8289 DEBUG_LAPACK_STUB("dpotrs");
8290 LAPACK_IMPL(dpotrs)(UPLO,
8291 N,
8292 NRHS,
8293 A,
8294 LDA,
8295 B,
8296 LDB,
8297 INFO);
8298 }
8299 */
8300 //-- dppcon --------------------------------------------------------------------
8301 void
8302 LAPACK_DECL(dppcon)(const char *UPLO,
8303 const INTEGER *N,
8304 const DOUBLE *AP,
8305 const DOUBLE *ANORM,
8306 DOUBLE *RCOND,
8307 DOUBLE *WORK,
8308 INTEGER *IWORK,
8309 INTEGER *INFO)
8310 {
8311 DEBUG_LAPACK_STUB("dppcon");
8312 LAPACK_IMPL(dppcon)(UPLO,
8313 N,
8314 AP,
8315 ANORM,
8316 RCOND,
8317 WORK,
8318 IWORK,
8319 INFO);
8320 }
8321
8322 //-- dppequ --------------------------------------------------------------------
8323 void
8324 LAPACK_DECL(dppequ)(const char *UPLO,
8325 const INTEGER *N,
8326 const DOUBLE *AP,
8327 DOUBLE *S,
8328 DOUBLE *SCOND,
8329 DOUBLE *AMAX,
8330 INTEGER *INFO)
8331 {
8332 DEBUG_LAPACK_STUB("dppequ");
8333 LAPACK_IMPL(dppequ)(UPLO,
8334 N,
8335 AP,
8336 S,
8337 SCOND,
8338 AMAX,
8339 INFO);
8340 }
8341
8342 //-- dpprfs --------------------------------------------------------------------
8343 void
8344 LAPACK_DECL(dpprfs)(const char *UPLO,
8345 const INTEGER *N,
8346 const INTEGER *NRHS,
8347 const DOUBLE *AP,
8348 const DOUBLE *AFP,
8349 const DOUBLE *B,
8350 const INTEGER *LDB,
8351 DOUBLE *X,
8352 const INTEGER *LDX,
8353 DOUBLE *FERR,
8354 DOUBLE *BERR,
8355 DOUBLE *WORK,
8356 INTEGER *IWORK,
8357 INTEGER *INFO)
8358 {
8359 DEBUG_LAPACK_STUB("dpprfs");
8360 LAPACK_IMPL(dpprfs)(UPLO,
8361 N,
8362 NRHS,
8363 AP,
8364 AFP,
8365 B,
8366 LDB,
8367 X,
8368 LDX,
8369 FERR,
8370 BERR,
8371 WORK,
8372 IWORK,
8373 INFO);
8374 }
8375
8376 //-- dppsv ---------------------------------------------------------------------
8377 void
8378 LAPACK_DECL(dppsv)(const char *UPLO,
8379 const INTEGER *N,
8380 const INTEGER *NRHS,
8381 DOUBLE *AP,
8382 DOUBLE *B,
8383 const INTEGER *LDB,
8384 INTEGER *INFO)
8385 {
8386 DEBUG_LAPACK_STUB("dppsv");
8387 LAPACK_IMPL(dppsv)(UPLO,
8388 N,
8389 NRHS,
8390 AP,
8391 B,
8392 LDB,
8393 INFO);
8394 }
8395
8396 //-- dppsvx --------------------------------------------------------------------
8397 void
8398 LAPACK_DECL(dppsvx)(const char *FACT,
8399 const char *UPLO,
8400 const INTEGER *N,
8401 const INTEGER *NRHS,
8402 DOUBLE *AP,
8403 DOUBLE *AFP,
8404 char *EQUED,
8405 DOUBLE *S,
8406 DOUBLE *B,
8407 const INTEGER *LDB,
8408 DOUBLE *X,
8409 const INTEGER *LDX,
8410 DOUBLE *RCOND,
8411 DOUBLE *FERR,
8412 DOUBLE *BERR,
8413 DOUBLE *WORK,
8414 INTEGER *IWORK,
8415 INTEGER *INFO)
8416 {
8417 DEBUG_LAPACK_STUB("dppsvx");
8418 LAPACK_IMPL(dppsvx)(FACT,
8419 UPLO,
8420 N,
8421 NRHS,
8422 AP,
8423 AFP,
8424 EQUED,
8425 S,
8426 B,
8427 LDB,
8428 X,
8429 LDX,
8430 RCOND,
8431 FERR,
8432 BERR,
8433 WORK,
8434 IWORK,
8435 INFO);
8436 }
8437
8438 //-- dpptrf --------------------------------------------------------------------
8439 void
8440 LAPACK_DECL(dpptrf)(const char *UPLO,
8441 const INTEGER *N,
8442 DOUBLE *AP,
8443 INTEGER *INFO)
8444 {
8445 DEBUG_LAPACK_STUB("dpptrf");
8446 LAPACK_IMPL(dpptrf)(UPLO,
8447 N,
8448 AP,
8449 INFO);
8450 }
8451
8452 //-- dpptri --------------------------------------------------------------------
8453 void
8454 LAPACK_DECL(dpptri)(const char *UPLO,
8455 const INTEGER *N,
8456 DOUBLE *AP,
8457 INTEGER *INFO)
8458 {
8459 DEBUG_LAPACK_STUB("dpptri");
8460 LAPACK_IMPL(dpptri)(UPLO,
8461 N,
8462 AP,
8463 INFO);
8464 }
8465
8466 //-- dpptrs --------------------------------------------------------------------
8467 void
8468 LAPACK_DECL(dpptrs)(const char *UPLO,
8469 const INTEGER *N,
8470 const INTEGER *NRHS,
8471 const DOUBLE *AP,
8472 DOUBLE *B,
8473 const INTEGER *LDB,
8474 INTEGER *INFO)
8475 {
8476 DEBUG_LAPACK_STUB("dpptrs");
8477 LAPACK_IMPL(dpptrs)(UPLO,
8478 N,
8479 NRHS,
8480 AP,
8481 B,
8482 LDB,
8483 INFO);
8484 }
8485
8486 //-- dpstf2 --------------------------------------------------------------------
8487 void
8488 LAPACK_DECL(dpstf2)(const char *UPLO,
8489 const INTEGER *N,
8490 DOUBLE *A,
8491 const INTEGER *LDA,
8492 INTEGER *PIV,
8493 INTEGER *RANK,
8494 const DOUBLE *TOL,
8495 DOUBLE *WORK,
8496 INTEGER *INFO)
8497 {
8498 DEBUG_LAPACK_STUB("dpstf2");
8499 LAPACK_IMPL(dpstf2)(UPLO,
8500 N,
8501 A,
8502 LDA,
8503 PIV,
8504 RANK,
8505 TOL,
8506 WORK,
8507 INFO);
8508 }
8509
8510 //-- dpstrf --------------------------------------------------------------------
8511 void
8512 LAPACK_DECL(dpstrf)(const char *UPLO,
8513 const INTEGER *N,
8514 DOUBLE *A,
8515 const INTEGER *LDA,
8516 INTEGER *PIV,
8517 INTEGER *RANK,
8518 const DOUBLE *TOL,
8519 DOUBLE *WORK,
8520 INTEGER *INFO)
8521 {
8522 DEBUG_LAPACK_STUB("dpstrf");
8523 LAPACK_IMPL(dpstrf)(UPLO,
8524 N,
8525 A,
8526 LDA,
8527 PIV,
8528 RANK,
8529 TOL,
8530 WORK,
8531 INFO);
8532 }
8533
8534 //-- dptcon --------------------------------------------------------------------
8535 void
8536 LAPACK_DECL(dptcon)(const INTEGER *N,
8537 const DOUBLE *D,
8538 const DOUBLE *E,
8539 const DOUBLE *ANORM,
8540 DOUBLE *RCOND,
8541 DOUBLE *WORK,
8542 INTEGER *INFO)
8543 {
8544 DEBUG_LAPACK_STUB("dptcon");
8545 LAPACK_IMPL(dptcon)(N,
8546 D,
8547 E,
8548 ANORM,
8549 RCOND,
8550 WORK,
8551 INFO);
8552 }
8553
8554 //-- dpteqr --------------------------------------------------------------------
8555 void
8556 LAPACK_DECL(dpteqr)(const char *COMPZ,
8557 const INTEGER *N,
8558 DOUBLE *D,
8559 DOUBLE *E,
8560 DOUBLE *Z,
8561 const INTEGER *LDZ,
8562 DOUBLE *WORK,
8563 INTEGER *INFO)
8564 {
8565 DEBUG_LAPACK_STUB("dpteqr");
8566 LAPACK_IMPL(dpteqr)(COMPZ,
8567 N,
8568 D,
8569 E,
8570 Z,
8571 LDZ,
8572 WORK,
8573 INFO);
8574 }
8575
8576 //-- dptrfs --------------------------------------------------------------------
8577 void
8578 LAPACK_DECL(dptrfs)(const INTEGER *N,
8579 const INTEGER *NRHS,
8580 const DOUBLE *D,
8581 const DOUBLE *E,
8582 const DOUBLE *DF,
8583 const DOUBLE *EF,
8584 const DOUBLE *B,
8585 const INTEGER *LDB,
8586 DOUBLE *X,
8587 const INTEGER *LDX,
8588 DOUBLE *FERR,
8589 DOUBLE *BERR,
8590 DOUBLE *WORK,
8591 INTEGER *INFO)
8592 {
8593 DEBUG_LAPACK_STUB("dptrfs");
8594 LAPACK_IMPL(dptrfs)(N,
8595 NRHS,
8596 D,
8597 E,
8598 DF,
8599 EF,
8600 B,
8601 LDB,
8602 X,
8603 LDX,
8604 FERR,
8605 BERR,
8606 WORK,
8607 INFO);
8608 }
8609
8610 //-- dptsv ---------------------------------------------------------------------
8611 void
8612 LAPACK_DECL(dptsv)(const INTEGER *N,
8613 const INTEGER *NRHS,
8614 DOUBLE *D,
8615 DOUBLE *E,
8616 DOUBLE *B,
8617 const INTEGER *LDB,
8618 INTEGER *INFO)
8619 {
8620 DEBUG_LAPACK_STUB("dptsv");
8621 LAPACK_IMPL(dptsv)(N,
8622 NRHS,
8623 D,
8624 E,
8625 B,
8626 LDB,
8627 INFO);
8628 }
8629
8630 //-- dptsvx --------------------------------------------------------------------
8631 void
8632 LAPACK_DECL(dptsvx)(const char *FACT,
8633 const INTEGER *N,
8634 const INTEGER *NRHS,
8635 const DOUBLE *D,
8636 const DOUBLE *E,
8637 DOUBLE *DF,
8638 DOUBLE *EF,
8639 const DOUBLE *B,
8640 const INTEGER *LDB,
8641 DOUBLE *X,
8642 const INTEGER *LDX,
8643 DOUBLE *RCOND,
8644 DOUBLE *FERR,
8645 DOUBLE *BERR,
8646 DOUBLE *WORK,
8647 INTEGER *INFO)
8648 {
8649 DEBUG_LAPACK_STUB("dptsvx");
8650 LAPACK_IMPL(dptsvx)(FACT,
8651 N,
8652 NRHS,
8653 D,
8654 E,
8655 DF,
8656 EF,
8657 B,
8658 LDB,
8659 X,
8660 LDX,
8661 RCOND,
8662 FERR,
8663 BERR,
8664 WORK,
8665 INFO);
8666 }
8667
8668 //-- dpttrf --------------------------------------------------------------------
8669 void
8670 LAPACK_DECL(dpttrf)(const INTEGER *N,
8671 DOUBLE *D,
8672 DOUBLE *E,
8673 INTEGER *INFO)
8674 {
8675 DEBUG_LAPACK_STUB("dpttrf");
8676 LAPACK_IMPL(dpttrf)(N,
8677 D,
8678 E,
8679 INFO);
8680 }
8681
8682 //-- dpttrs --------------------------------------------------------------------
8683 void
8684 LAPACK_DECL(dpttrs)(const INTEGER *N,
8685 const INTEGER *NRHS,
8686 const DOUBLE *D,
8687 const DOUBLE *E,
8688 DOUBLE *B,
8689 const INTEGER *LDB,
8690 INTEGER *INFO)
8691 {
8692 DEBUG_LAPACK_STUB("dpttrs");
8693 LAPACK_IMPL(dpttrs)(N,
8694 NRHS,
8695 D,
8696 E,
8697 B,
8698 LDB,
8699 INFO);
8700 }
8701
8702 //-- dptts2 --------------------------------------------------------------------
8703 void
8704 LAPACK_DECL(dptts2)(const INTEGER *N,
8705 const INTEGER *NRHS,
8706 const DOUBLE *D,
8707 const DOUBLE *E,
8708 DOUBLE *B,
8709 const INTEGER *LDB)
8710 {
8711 DEBUG_LAPACK_STUB("dptts2");
8712 LAPACK_IMPL(dptts2)(N,
8713 NRHS,
8714 D,
8715 E,
8716 B,
8717 LDB);
8718 }
8719
8720 //-- drscl ---------------------------------------------------------------------
8721 void
8722 LAPACK_DECL(drscl)(const INTEGER *N,
8723 const DOUBLE *SA,
8724 DOUBLE *SX,
8725 const INTEGER *INCX)
8726 {
8727 DEBUG_LAPACK_STUB("drscl");
8728 LAPACK_IMPL(drscl)(N,
8729 SA,
8730 SX,
8731 INCX);
8732 }
8733
8734 //-- dsbev ---------------------------------------------------------------------
8735 void
8736 LAPACK_DECL(dsbev)(const char *JOBZ,
8737 const char *UPLO,
8738 const INTEGER *N,
8739 const INTEGER *KD,
8740 DOUBLE *AB,
8741 const INTEGER *LDAB,
8742 DOUBLE *W,
8743 DOUBLE *Z,
8744 const INTEGER *LDZ,
8745 DOUBLE *WORK,
8746 INTEGER *INFO)
8747 {
8748 DEBUG_LAPACK_STUB("dsbev");
8749 LAPACK_IMPL(dsbev)(JOBZ,
8750 UPLO,
8751 N,
8752 KD,
8753 AB,
8754 LDAB,
8755 W,
8756 Z,
8757 LDZ,
8758 WORK,
8759 INFO);
8760 }
8761
8762 //-- dsbevd --------------------------------------------------------------------
8763 void
8764 LAPACK_DECL(dsbevd)(const char *JOBZ,
8765 const char *UPLO,
8766 const INTEGER *N,
8767 const INTEGER *KD,
8768 DOUBLE *AB,
8769 const INTEGER *LDAB,
8770 DOUBLE *W,
8771 DOUBLE *Z,
8772 const INTEGER *LDZ,
8773 DOUBLE *WORK,
8774 const INTEGER *LWORK,
8775 INTEGER *IWORK,
8776 const INTEGER *LIWORK,
8777 INTEGER *INFO)
8778 {
8779 DEBUG_LAPACK_STUB("dsbevd");
8780 LAPACK_IMPL(dsbevd)(JOBZ,
8781 UPLO,
8782 N,
8783 KD,
8784 AB,
8785 LDAB,
8786 W,
8787 Z,
8788 LDZ,
8789 WORK,
8790 LWORK,
8791 IWORK,
8792 LIWORK,
8793 INFO);
8794 }
8795
8796 //-- dsbevx --------------------------------------------------------------------
8797 void
8798 LAPACK_DECL(dsbevx)(const char *JOBZ,
8799 const char *RANGE,
8800 const char *UPLO,
8801 const INTEGER *N,
8802 const INTEGER *KD,
8803 DOUBLE *AB,
8804 const INTEGER *LDAB,
8805 DOUBLE *Q,
8806 const INTEGER *LDQ,
8807 const DOUBLE *VL,
8808 const DOUBLE *VU,
8809 const INTEGER *IL,
8810 const INTEGER *IU,
8811 const DOUBLE *ABSTOL,
8812 INTEGER *M,
8813 DOUBLE *W,
8814 DOUBLE *Z,
8815 const INTEGER *LDZ,
8816 DOUBLE *WORK,
8817 INTEGER *IWORK,
8818 INTEGER *IFAIL,
8819 INTEGER *INFO)
8820 {
8821 DEBUG_LAPACK_STUB("dsbevx");
8822 LAPACK_IMPL(dsbevx)(JOBZ,
8823 RANGE,
8824 UPLO,
8825 N,
8826 KD,
8827 AB,
8828 LDAB,
8829 Q,
8830 LDQ,
8831 VL,
8832 VU,
8833 IL,
8834 IU,
8835 ABSTOL,
8836 M,
8837 W,
8838 Z,
8839 LDZ,
8840 WORK,
8841 IWORK,
8842 IFAIL,
8843 INFO);
8844 }
8845
8846 //-- dsbgst --------------------------------------------------------------------
8847 void
8848 LAPACK_DECL(dsbgst)(const char *VECT,
8849 const char *UPLO,
8850 const INTEGER *N,
8851 const INTEGER *KA,
8852 const INTEGER *KB,
8853 DOUBLE *AB,
8854 const INTEGER *LDAB,
8855 const DOUBLE *BB,
8856 const INTEGER *LDBB,
8857 DOUBLE *X,
8858 const INTEGER *LDX,
8859 DOUBLE *WORK,
8860 INTEGER *INFO)
8861 {
8862 DEBUG_LAPACK_STUB("dsbgst");
8863 LAPACK_IMPL(dsbgst)(VECT,
8864 UPLO,
8865 N,
8866 KA,
8867 KB,
8868 AB,
8869 LDAB,
8870 BB,
8871 LDBB,
8872 X,
8873 LDX,
8874 WORK,
8875 INFO);
8876 }
8877
8878 //-- dsbgv ---------------------------------------------------------------------
8879 void
8880 LAPACK_DECL(dsbgv)(const char *JOBZ,
8881 const char *UPLO,
8882 const INTEGER *N,
8883 const INTEGER *KA,
8884 const INTEGER *KB,
8885 DOUBLE *AB,
8886 const INTEGER *LDAB,
8887 DOUBLE *BB,
8888 const INTEGER *LDBB,
8889 DOUBLE *W,
8890 DOUBLE *Z,
8891 const INTEGER *LDZ,
8892 DOUBLE *WORK,
8893 INTEGER *INFO)
8894 {
8895 DEBUG_LAPACK_STUB("dsbgv");
8896 LAPACK_IMPL(dsbgv)(JOBZ,
8897 UPLO,
8898 N,
8899 KA,
8900 KB,
8901 AB,
8902 LDAB,
8903 BB,
8904 LDBB,
8905 W,
8906 Z,
8907 LDZ,
8908 WORK,
8909 INFO);
8910 }
8911
8912 //-- dsbgvd --------------------------------------------------------------------
8913 void
8914 LAPACK_DECL(dsbgvd)(const char *JOBZ,
8915 const char *UPLO,
8916 const INTEGER *N,
8917 const INTEGER *KA,
8918 const INTEGER *KB,
8919 DOUBLE *AB,
8920 const INTEGER *LDAB,
8921 DOUBLE *BB,
8922 const INTEGER *LDBB,
8923 DOUBLE *W,
8924 DOUBLE *Z,
8925 const INTEGER *LDZ,
8926 DOUBLE *WORK,
8927 const INTEGER *LWORK,
8928 INTEGER *IWORK,
8929 const INTEGER *LIWORK,
8930 INTEGER *INFO)
8931 {
8932 DEBUG_LAPACK_STUB("dsbgvd");
8933 LAPACK_IMPL(dsbgvd)(JOBZ,
8934 UPLO,
8935 N,
8936 KA,
8937 KB,
8938 AB,
8939 LDAB,
8940 BB,
8941 LDBB,
8942 W,
8943 Z,
8944 LDZ,
8945 WORK,
8946 LWORK,
8947 IWORK,
8948 LIWORK,
8949 INFO);
8950 }
8951
8952 //-- dsbgvx --------------------------------------------------------------------
8953 void
8954 LAPACK_DECL(dsbgvx)(const char *JOBZ,
8955 const char *RANGE,
8956 const char *UPLO,
8957 const INTEGER *N,
8958 const INTEGER *KA,
8959 const INTEGER *KB,
8960 DOUBLE *AB,
8961 const INTEGER *LDAB,
8962 DOUBLE *BB,
8963 const INTEGER *LDBB,
8964 DOUBLE *Q,
8965 const INTEGER *LDQ,
8966 const DOUBLE *VL,
8967 const DOUBLE *VU,
8968 const INTEGER *IL,
8969 const INTEGER *IU,
8970 const DOUBLE *ABSTOL,
8971 INTEGER *M,
8972 DOUBLE *W,
8973 DOUBLE *Z,
8974 const INTEGER *LDZ,
8975 DOUBLE *WORK,
8976 INTEGER *IWORK,
8977 INTEGER *IFAIL,
8978 INTEGER *INFO)
8979 {
8980 DEBUG_LAPACK_STUB("dsbgvx");
8981 LAPACK_IMPL(dsbgvx)(JOBZ,
8982 RANGE,
8983 UPLO,
8984 N,
8985 KA,
8986 KB,
8987 AB,
8988 LDAB,
8989 BB,
8990 LDBB,
8991 Q,
8992 LDQ,
8993 VL,
8994 VU,
8995 IL,
8996 IU,
8997 ABSTOL,
8998 M,
8999 W,
9000 Z,
9001 LDZ,
9002 WORK,
9003 IWORK,
9004 IFAIL,
9005 INFO);
9006 }
9007
9008 //-- dsbtrd --------------------------------------------------------------------
9009 void
9010 LAPACK_DECL(dsbtrd)(const char *VECT,
9011 const char *UPLO,
9012 const INTEGER *N,
9013 const INTEGER *KD,
9014 DOUBLE *AB,
9015 const INTEGER *LDAB,
9016 DOUBLE *D,
9017 DOUBLE *E,
9018 DOUBLE *Q,
9019 const INTEGER *LDQ,
9020 DOUBLE *WORK,
9021 INTEGER *INFO)
9022 {
9023 DEBUG_LAPACK_STUB("dsbtrd");
9024 LAPACK_IMPL(dsbtrd)(VECT,
9025 UPLO,
9026 N,
9027 KD,
9028 AB,
9029 LDAB,
9030 D,
9031 E,
9032 Q,
9033 LDQ,
9034 WORK,
9035 INFO);
9036 }
9037
9038 //-- dsecnd --------------------------------------------------------------------
9039 DOUBLE
9040 LAPACK_DECL(dsecnd)()
9041 {
9042 DEBUG_LAPACK_STUB("dsecnd");
9043 return LAPACK_IMPL(dsecnd)();
9044 }
9045
9046 //-- dsfrk ---------------------------------------------------------------------
9047 void
9048 LAPACK_DECL(dsfrk)(const char *TRANSR,
9049 const char *UPLO,
9050 const char *TRANS,
9051 const INTEGER *N,
9052 const INTEGER *K,
9053 const DOUBLE *ALPHA,
9054 const DOUBLE *A,
9055 const INTEGER *LDA,
9056 const DOUBLE *BETA,
9057 DOUBLE *C)
9058 {
9059 DEBUG_LAPACK_STUB("dsfrk");
9060 LAPACK_IMPL(dsfrk)(TRANSR,
9061 UPLO,
9062 TRANS,
9063 N,
9064 K,
9065 ALPHA,
9066 A,
9067 LDA,
9068 BETA,
9069 C);
9070 }
9071
9072 //-- dsgesv --------------------------------------------------------------------
9073 void
9074 LAPACK_DECL(dsgesv)(const INTEGER *N,
9075 const INTEGER *NRHS,
9076 DOUBLE *A,
9077 const INTEGER *LDA,
9078 INTEGER *IPIV,
9079 const DOUBLE *B,
9080 const INTEGER *LDB,
9081 DOUBLE *X,
9082 const INTEGER *LDX,
9083 DOUBLE *WORK,
9084 FLOAT *SWORK,
9085 INTEGER *ITER,
9086 INTEGER *INFO)
9087 {
9088 DEBUG_LAPACK_STUB("dsgesv");
9089 LAPACK_IMPL(dsgesv)(N,
9090 NRHS,
9091 A,
9092 LDA,
9093 IPIV,
9094 B,
9095 LDB,
9096 X,
9097 LDX,
9098 WORK,
9099 SWORK,
9100 ITER,
9101 INFO);
9102 }
9103
9104 //-- dspcon --------------------------------------------------------------------
9105 void
9106 LAPACK_DECL(dspcon)(const char *UPLO,
9107 const INTEGER *N,
9108 const DOUBLE *AP,
9109 const INTEGER *IPIV,
9110 const DOUBLE *ANORM,
9111 DOUBLE *RCOND,
9112 DOUBLE *WORK,
9113 INTEGER *IWORK,
9114 INTEGER *INFO)
9115 {
9116 DEBUG_LAPACK_STUB("dspcon");
9117 LAPACK_IMPL(dspcon)(UPLO,
9118 N,
9119 AP,
9120 IPIV,
9121 ANORM,
9122 RCOND,
9123 WORK,
9124 IWORK,
9125 INFO);
9126 }
9127
9128 //-- dspev ---------------------------------------------------------------------
9129 void
9130 LAPACK_DECL(dspev)(const char *JOBZ,
9131 const char *UPLO,
9132 const INTEGER *N,
9133 DOUBLE *AP,
9134 DOUBLE *W,
9135 DOUBLE *Z,
9136 const INTEGER *LDZ,
9137 DOUBLE *WORK,
9138 INTEGER *INFO)
9139 {
9140 DEBUG_LAPACK_STUB("dspev");
9141 LAPACK_IMPL(dspev)(JOBZ,
9142 UPLO,
9143 N,
9144 AP,
9145 W,
9146 Z,
9147 LDZ,
9148 WORK,
9149 INFO);
9150 }
9151
9152 //-- dspevd --------------------------------------------------------------------
9153 void
9154 LAPACK_DECL(dspevd)(const char *JOBZ,
9155 const char *UPLO,
9156 const INTEGER *N,
9157 DOUBLE *AP,
9158 DOUBLE *W,
9159 DOUBLE *Z,
9160 const INTEGER *LDZ,
9161 DOUBLE *WORK,
9162 const INTEGER *LWORK,
9163 INTEGER *IWORK,
9164 const INTEGER *LIWORK,
9165 INTEGER *INFO)
9166 {
9167 DEBUG_LAPACK_STUB("dspevd");
9168 LAPACK_IMPL(dspevd)(JOBZ,
9169 UPLO,
9170 N,
9171 AP,
9172 W,
9173 Z,
9174 LDZ,
9175 WORK,
9176 LWORK,
9177 IWORK,
9178 LIWORK,
9179 INFO);
9180 }
9181
9182 //-- dspevx --------------------------------------------------------------------
9183 void
9184 LAPACK_DECL(dspevx)(const char *JOBZ,
9185 const char *RANGE,
9186 const char *UPLO,
9187 const INTEGER *N,
9188 DOUBLE *AP,
9189 const DOUBLE *VL,
9190 const DOUBLE *VU,
9191 const INTEGER *IL,
9192 const INTEGER *IU,
9193 const DOUBLE *ABSTOL,
9194 INTEGER *M,
9195 DOUBLE *W,
9196 DOUBLE *Z,
9197 const INTEGER *LDZ,
9198 DOUBLE *WORK,
9199 INTEGER *IWORK,
9200 INTEGER *IFAIL,
9201 INTEGER *INFO)
9202 {
9203 DEBUG_LAPACK_STUB("dspevx");
9204 LAPACK_IMPL(dspevx)(JOBZ,
9205 RANGE,
9206 UPLO,
9207 N,
9208 AP,
9209 VL,
9210 VU,
9211 IL,
9212 IU,
9213 ABSTOL,
9214 M,
9215 W,
9216 Z,
9217 LDZ,
9218 WORK,
9219 IWORK,
9220 IFAIL,
9221 INFO);
9222 }
9223
9224 //-- dspgst --------------------------------------------------------------------
9225 void
9226 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
9227 const char *UPLO,
9228 const INTEGER *N,
9229 DOUBLE *AP,
9230 const DOUBLE *BP,
9231 INTEGER *INFO)
9232 {
9233 DEBUG_LAPACK_STUB("dspgst");
9234 LAPACK_IMPL(dspgst)(ITYPE,
9235 UPLO,
9236 N,
9237 AP,
9238 BP,
9239 INFO);
9240 }
9241
9242 //-- dspgv ---------------------------------------------------------------------
9243 void
9244 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
9245 const char *JOBZ,
9246 const char *UPLO,
9247 const INTEGER *N,
9248 DOUBLE *AP,
9249 DOUBLE *BP,
9250 DOUBLE *W,
9251 DOUBLE *Z,
9252 const INTEGER *LDZ,
9253 DOUBLE *WORK,
9254 INTEGER *INFO)
9255 {
9256 DEBUG_LAPACK_STUB("dspgv");
9257 LAPACK_IMPL(dspgv)(ITYPE,
9258 JOBZ,
9259 UPLO,
9260 N,
9261 AP,
9262 BP,
9263 W,
9264 Z,
9265 LDZ,
9266 WORK,
9267 INFO);
9268 }
9269
9270 //-- dspgvd --------------------------------------------------------------------
9271 void
9272 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
9273 const char *JOBZ,
9274 const char *UPLO,
9275 const INTEGER *N,
9276 DOUBLE *AP,
9277 DOUBLE *BP,
9278 DOUBLE *W,
9279 DOUBLE *Z,
9280 const INTEGER *LDZ,
9281 DOUBLE *WORK,
9282 const INTEGER *LWORK,
9283 INTEGER *IWORK,
9284 const INTEGER *LIWORK,
9285 INTEGER *INFO)
9286 {
9287 DEBUG_LAPACK_STUB("dspgvd");
9288 LAPACK_IMPL(dspgvd)(ITYPE,
9289 JOBZ,
9290 UPLO,
9291 N,
9292 AP,
9293 BP,
9294 W,
9295 Z,
9296 LDZ,
9297 WORK,
9298 LWORK,
9299 IWORK,
9300 LIWORK,
9301 INFO);
9302 }
9303
9304 //-- dspgvx --------------------------------------------------------------------
9305 void
9306 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
9307 const char *JOBZ,
9308 const char *RANGE,
9309 const char *UPLO,
9310 const INTEGER *N,
9311 DOUBLE *AP,
9312 DOUBLE *BP,
9313 const DOUBLE *VL,
9314 const DOUBLE *VU,
9315 const INTEGER *IL,
9316 const INTEGER *IU,
9317 const DOUBLE *ABSTOL,
9318 INTEGER *M,
9319 DOUBLE *W,
9320 DOUBLE *Z,
9321 const INTEGER *LDZ,
9322 DOUBLE *WORK,
9323 INTEGER *IWORK,
9324 INTEGER *IFAIL,
9325 INTEGER *INFO)
9326 {
9327 DEBUG_LAPACK_STUB("dspgvx");
9328 LAPACK_IMPL(dspgvx)(ITYPE,
9329 JOBZ,
9330 RANGE,
9331 UPLO,
9332 N,
9333 AP,
9334 BP,
9335 VL,
9336 VU,
9337 IL,
9338 IU,
9339 ABSTOL,
9340 M,
9341 W,
9342 Z,
9343 LDZ,
9344 WORK,
9345 IWORK,
9346 IFAIL,
9347 INFO);
9348 }
9349
9350 //-- dsposv --------------------------------------------------------------------
9351 void
9352 LAPACK_DECL(dsposv)(const char *UPLO,
9353 const INTEGER *N,
9354 const INTEGER *NRHS,
9355 DOUBLE *A,
9356 const INTEGER *LDA,
9357 const DOUBLE *B,
9358 const INTEGER *LDB,
9359 DOUBLE *X,
9360 const INTEGER *LDX,
9361 DOUBLE *WORK,
9362 FLOAT *SWORK,
9363 INTEGER *ITER,
9364 INTEGER *INFO)
9365 {
9366 DEBUG_LAPACK_STUB("dsposv");
9367 LAPACK_IMPL(dsposv)(UPLO,
9368 N,
9369 NRHS,
9370 A,
9371 LDA,
9372 B,
9373 LDB,
9374 X,
9375 LDX,
9376 WORK,
9377 SWORK,
9378 ITER,
9379 INFO);
9380 }
9381
9382 //-- dsprfs --------------------------------------------------------------------
9383 void
9384 LAPACK_DECL(dsprfs)(const char *UPLO,
9385 const INTEGER *N,
9386 const INTEGER *NRHS,
9387 const DOUBLE *AP,
9388 const DOUBLE *AFP,
9389 const INTEGER *IPIV,
9390 const DOUBLE *B,
9391 const INTEGER *LDB,
9392 DOUBLE *X,
9393 const INTEGER *LDX,
9394 DOUBLE *FERR,
9395 DOUBLE *BERR,
9396 DOUBLE *WORK,
9397 INTEGER *IWORK,
9398 INTEGER *INFO)
9399 {
9400 DEBUG_LAPACK_STUB("dsprfs");
9401 LAPACK_IMPL(dsprfs)(UPLO,
9402 N,
9403 NRHS,
9404 AP,
9405 AFP,
9406 IPIV,
9407 B,
9408 LDB,
9409 X,
9410 LDX,
9411 FERR,
9412 BERR,
9413 WORK,
9414 IWORK,
9415 INFO);
9416 }
9417
9418 //-- dspsv ---------------------------------------------------------------------
9419 void
9420 LAPACK_DECL(dspsv)(const char *UPLO,
9421 const INTEGER *N,
9422 const INTEGER *NRHS,
9423 DOUBLE *AP,
9424 INTEGER *IPIV,
9425 DOUBLE *B,
9426 const INTEGER *LDB,
9427 INTEGER *INFO)
9428 {
9429 DEBUG_LAPACK_STUB("dspsv");
9430 LAPACK_IMPL(dspsv)(UPLO,
9431 N,
9432 NRHS,
9433 AP,
9434 IPIV,
9435 B,
9436 LDB,
9437 INFO);
9438 }
9439
9440 //-- dspsvx --------------------------------------------------------------------
9441 void
9442 LAPACK_DECL(dspsvx)(const char *FACT,
9443 const char *UPLO,
9444 const INTEGER *N,
9445 const INTEGER *NRHS,
9446 const DOUBLE *AP,
9447 DOUBLE *AFP,
9448 INTEGER *IPIV,
9449 const DOUBLE *B,
9450 const INTEGER *LDB,
9451 DOUBLE *X,
9452 const INTEGER *LDX,
9453 DOUBLE *RCOND,
9454 DOUBLE *FERR,
9455 DOUBLE *BERR,
9456 DOUBLE *WORK,
9457 INTEGER *IWORK,
9458 INTEGER *INFO)
9459 {
9460 DEBUG_LAPACK_STUB("dspsvx");
9461 LAPACK_IMPL(dspsvx)(FACT,
9462 UPLO,
9463 N,
9464 NRHS,
9465 AP,
9466 AFP,
9467 IPIV,
9468 B,
9469 LDB,
9470 X,
9471 LDX,
9472 RCOND,
9473 FERR,
9474 BERR,
9475 WORK,
9476 IWORK,
9477 INFO);
9478 }
9479
9480 //-- dsptrd --------------------------------------------------------------------
9481 void
9482 LAPACK_DECL(dsptrd)(const char *UPLO,
9483 const INTEGER *N,
9484 DOUBLE *AP,
9485 DOUBLE *D,
9486 DOUBLE *E,
9487 DOUBLE *TAU,
9488 INTEGER *INFO)
9489 {
9490 DEBUG_LAPACK_STUB("dsptrd");
9491 LAPACK_IMPL(dsptrd)(UPLO,
9492 N,
9493 AP,
9494 D,
9495 E,
9496 TAU,
9497 INFO);
9498 }
9499
9500 //-- dsptrf --------------------------------------------------------------------
9501 void
9502 LAPACK_DECL(dsptrf)(const char *UPLO,
9503 const INTEGER *N,
9504 DOUBLE *AP,
9505 INTEGER *IPIV,
9506 INTEGER *INFO)
9507 {
9508 DEBUG_LAPACK_STUB("dsptrf");
9509 LAPACK_IMPL(dsptrf)(UPLO,
9510 N,
9511 AP,
9512 IPIV,
9513 INFO);
9514 }
9515
9516 //-- dsptri --------------------------------------------------------------------
9517 void
9518 LAPACK_DECL(dsptri)(const char *UPLO,
9519 const INTEGER *N,
9520 DOUBLE *AP,
9521 const INTEGER *IPIV,
9522 DOUBLE *WORK,
9523 INTEGER *INFO)
9524 {
9525 DEBUG_LAPACK_STUB("dsptri");
9526 LAPACK_IMPL(dsptri)(UPLO,
9527 N,
9528 AP,
9529 IPIV,
9530 WORK,
9531 INFO);
9532 }
9533
9534 //-- dsptrs --------------------------------------------------------------------
9535 void
9536 LAPACK_DECL(dsptrs)(const char *UPLO,
9537 const INTEGER *N,
9538 const INTEGER *NRHS,
9539 const DOUBLE *AP,
9540 const INTEGER *IPIV,
9541 DOUBLE *B,
9542 const INTEGER *LDB,
9543 INTEGER *INFO)
9544 {
9545 DEBUG_LAPACK_STUB("dsptrs");
9546 LAPACK_IMPL(dsptrs)(UPLO,
9547 N,
9548 NRHS,
9549 AP,
9550 IPIV,
9551 B,
9552 LDB,
9553 INFO);
9554 }
9555
9556 //-- dstebz --------------------------------------------------------------------
9557 void
9558 LAPACK_DECL(dstebz)(const char *RANGE,
9559 const char *ORDER,
9560 const INTEGER *N,
9561 const DOUBLE *VL,
9562 const DOUBLE *VU,
9563 const INTEGER *IL,
9564 const INTEGER *IU,
9565 const DOUBLE *ABSTOL,
9566 const DOUBLE *D,
9567 const DOUBLE *E,
9568 INTEGER *M,
9569 INTEGER *NSPLIT,
9570 DOUBLE *W,
9571 INTEGER *IBLOCK,
9572 INTEGER *ISPLIT,
9573 DOUBLE *WORK,
9574 INTEGER *IWORK,
9575 INTEGER *INFO)
9576 {
9577 DEBUG_LAPACK_STUB("dstebz");
9578 LAPACK_IMPL(dstebz)(RANGE,
9579 ORDER,
9580 N,
9581 VL,
9582 VU,
9583 IL,
9584 IU,
9585 ABSTOL,
9586 D,
9587 E,
9588 M,
9589 NSPLIT,
9590 W,
9591 IBLOCK,
9592 ISPLIT,
9593 WORK,
9594 IWORK,
9595 INFO);
9596 }
9597
9598 //-- dstedc --------------------------------------------------------------------
9599 void
9600 LAPACK_DECL(dstedc)(const char *COMPZ,
9601 const INTEGER *N,
9602 DOUBLE *D,
9603 DOUBLE *E,
9604 DOUBLE *Z,
9605 const INTEGER *LDZ,
9606 DOUBLE *WORK,
9607 const INTEGER *LWORK,
9608 INTEGER *IWORK,
9609 const INTEGER *LIWORK,
9610 INTEGER *INFO)
9611 {
9612 DEBUG_LAPACK_STUB("dstedc");
9613 LAPACK_IMPL(dstedc)(COMPZ,
9614 N,
9615 D,
9616 E,
9617 Z,
9618 LDZ,
9619 WORK,
9620 LWORK,
9621 IWORK,
9622 LIWORK,
9623 INFO);
9624 }
9625
9626 //-- dstegr --------------------------------------------------------------------
9627 void
9628 LAPACK_DECL(dstegr)(const char *JOBZ,
9629 const char *RANGE,
9630 const INTEGER *N,
9631 DOUBLE *D,
9632 DOUBLE *E,
9633 const DOUBLE *VL,
9634 const DOUBLE *VU,
9635 const INTEGER *IL,
9636 const INTEGER *IU,
9637 const DOUBLE *ABSTOL,
9638 INTEGER *M,
9639 DOUBLE *W,
9640 DOUBLE *Z,
9641 const INTEGER *LDZ,
9642 INTEGER *ISUPPZ,
9643 DOUBLE *WORK,
9644 const INTEGER *LWORK,
9645 INTEGER *IWORK,
9646 const INTEGER *LIWORK,
9647 INTEGER *INFO)
9648 {
9649 DEBUG_LAPACK_STUB("dstegr");
9650 LAPACK_IMPL(dstegr)(JOBZ,
9651 RANGE,
9652 N,
9653 D,
9654 E,
9655 VL,
9656 VU,
9657 IL,
9658 IU,
9659 ABSTOL,
9660 M,
9661 W,
9662 Z,
9663 LDZ,
9664 ISUPPZ,
9665 WORK,
9666 LWORK,
9667 IWORK,
9668 LIWORK,
9669 INFO);
9670 }
9671
9672 //-- dstein --------------------------------------------------------------------
9673 void
9674 LAPACK_DECL(dstein)(const INTEGER *N,
9675 const DOUBLE *D,
9676 const DOUBLE *E,
9677 const INTEGER *M,
9678 const DOUBLE *W,
9679 const INTEGER *IBLOCK,
9680 const INTEGER *ISPLIT,
9681 DOUBLE *Z,
9682 const INTEGER *LDZ,
9683 DOUBLE *WORK,
9684 INTEGER *IWORK,
9685 INTEGER *IFAIL,
9686 INTEGER *INFO)
9687 {
9688 DEBUG_LAPACK_STUB("dstein");
9689 LAPACK_IMPL(dstein)(N,
9690 D,
9691 E,
9692 M,
9693 W,
9694 IBLOCK,
9695 ISPLIT,
9696 Z,
9697 LDZ,
9698 WORK,
9699 IWORK,
9700 IFAIL,
9701 INFO);
9702 }
9703
9704 //-- dstemr --------------------------------------------------------------------
9705 void
9706 LAPACK_DECL(dstemr)(const char *JOBZ,
9707 const char *RANGE,
9708 const INTEGER *N,
9709 DOUBLE *D,
9710 DOUBLE *E,
9711 const DOUBLE *VL,
9712 const DOUBLE *VU,
9713 const INTEGER *IL,
9714 const INTEGER *IU,
9715 INTEGER *M,
9716 DOUBLE *W,
9717 DOUBLE *Z,
9718 const INTEGER *LDZ,
9719 const INTEGER *NZC,
9720 INTEGER *ISUPPZ,
9721 LOGICAL *TRYRAC,
9722 DOUBLE *WORK,
9723 const INTEGER *LWORK,
9724 INTEGER *IWORK,
9725 const INTEGER *LIWORK,
9726 INTEGER *INFO)
9727 {
9728 DEBUG_LAPACK_STUB("dstemr");
9729 LAPACK_IMPL(dstemr)(JOBZ,
9730 RANGE,
9731 N,
9732 D,
9733 E,
9734 VL,
9735 VU,
9736 IL,
9737 IU,
9738 M,
9739 W,
9740 Z,
9741 LDZ,
9742 NZC,
9743 ISUPPZ,
9744 TRYRAC,
9745 WORK,
9746 LWORK,
9747 IWORK,
9748 LIWORK,
9749 INFO);
9750 }
9751
9752 //-- dsteqr --------------------------------------------------------------------
9753 void
9754 LAPACK_DECL(dsteqr)(const char *COMPZ,
9755 const INTEGER *N,
9756 DOUBLE *D,
9757 DOUBLE *E,
9758 DOUBLE *Z,
9759 const INTEGER *LDZ,
9760 DOUBLE *WORK,
9761 INTEGER *INFO)
9762 {
9763 DEBUG_LAPACK_STUB("dsteqr");
9764 LAPACK_IMPL(dsteqr)(COMPZ,
9765 N,
9766 D,
9767 E,
9768 Z,
9769 LDZ,
9770 WORK,
9771 INFO);
9772 }
9773
9774 //-- dsterf --------------------------------------------------------------------
9775 void
9776 LAPACK_DECL(dsterf)(const INTEGER *N,
9777 DOUBLE *D,
9778 DOUBLE *E,
9779 INTEGER *INFO)
9780 {
9781 DEBUG_LAPACK_STUB("dsterf");
9782 LAPACK_IMPL(dsterf)(N,
9783 D,
9784 E,
9785 INFO);
9786 }
9787
9788 //-- dstev ---------------------------------------------------------------------
9789 void
9790 LAPACK_DECL(dstev)(const char *JOBZ,
9791 const INTEGER *N,
9792 DOUBLE *D,
9793 DOUBLE *E,
9794 DOUBLE *Z,
9795 const INTEGER *LDZ,
9796 DOUBLE *WORK,
9797 INTEGER *INFO)
9798 {
9799 DEBUG_LAPACK_STUB("dstev");
9800 LAPACK_IMPL(dstev)(JOBZ,
9801 N,
9802 D,
9803 E,
9804 Z,
9805 LDZ,
9806 WORK,
9807 INFO);
9808 }
9809
9810 //-- dstevd --------------------------------------------------------------------
9811 void
9812 LAPACK_DECL(dstevd)(const char *JOBZ,
9813 const INTEGER *N,
9814 DOUBLE *D,
9815 DOUBLE *E,
9816 DOUBLE *Z,
9817 const INTEGER *LDZ,
9818 DOUBLE *WORK,
9819 const INTEGER *LWORK,
9820 INTEGER *IWORK,
9821 const INTEGER *LIWORK,
9822 INTEGER *INFO)
9823 {
9824 DEBUG_LAPACK_STUB("dstevd");
9825 LAPACK_IMPL(dstevd)(JOBZ,
9826 N,
9827 D,
9828 E,
9829 Z,
9830 LDZ,
9831 WORK,
9832 LWORK,
9833 IWORK,
9834 LIWORK,
9835 INFO);
9836 }
9837
9838 //-- dstevr --------------------------------------------------------------------
9839 void
9840 LAPACK_DECL(dstevr)(const char *JOBZ,
9841 const char *RANGE,
9842 const INTEGER *N,
9843 DOUBLE *D,
9844 DOUBLE *E,
9845 const DOUBLE *VL,
9846 const DOUBLE *VU,
9847 const INTEGER *IL,
9848 const INTEGER *IU,
9849 const DOUBLE *ABSTOL,
9850 INTEGER *M,
9851 DOUBLE *W,
9852 DOUBLE *Z,
9853 const INTEGER *LDZ,
9854 INTEGER *ISUPPZ,
9855 DOUBLE *WORK,
9856 const INTEGER *LWORK,
9857 INTEGER *IWORK,
9858 const INTEGER *LIWORK,
9859 INTEGER *INFO)
9860 {
9861 DEBUG_LAPACK_STUB("dstevr");
9862 LAPACK_IMPL(dstevr)(JOBZ,
9863 RANGE,
9864 N,
9865 D,
9866 E,
9867 VL,
9868 VU,
9869 IL,
9870 IU,
9871 ABSTOL,
9872 M,
9873 W,
9874 Z,
9875 LDZ,
9876 ISUPPZ,
9877 WORK,
9878 LWORK,
9879 IWORK,
9880 LIWORK,
9881 INFO);
9882 }
9883
9884 //-- dstevx --------------------------------------------------------------------
9885 void
9886 LAPACK_DECL(dstevx)(const char *JOBZ,
9887 const char *RANGE,
9888 const INTEGER *N,
9889 DOUBLE *D,
9890 DOUBLE *E,
9891 const DOUBLE *VL,
9892 const DOUBLE *VU,
9893 const INTEGER *IL,
9894 const INTEGER *IU,
9895 const DOUBLE *ABSTOL,
9896 INTEGER *M,
9897 DOUBLE *W,
9898 DOUBLE *Z,
9899 const INTEGER *LDZ,
9900 DOUBLE *WORK,
9901 INTEGER *IWORK,
9902 INTEGER *IFAIL,
9903 INTEGER *INFO)
9904 {
9905 DEBUG_LAPACK_STUB("dstevx");
9906 LAPACK_IMPL(dstevx)(JOBZ,
9907 RANGE,
9908 N,
9909 D,
9910 E,
9911 VL,
9912 VU,
9913 IL,
9914 IU,
9915 ABSTOL,
9916 M,
9917 W,
9918 Z,
9919 LDZ,
9920 WORK,
9921 IWORK,
9922 IFAIL,
9923 INFO);
9924 }
9925
9926 //-- dsycon --------------------------------------------------------------------
9927 void
9928 LAPACK_DECL(dsycon)(const char *UPLO,
9929 const INTEGER *N,
9930 const DOUBLE *A,
9931 const INTEGER *LDA,
9932 const INTEGER *IPIV,
9933 const DOUBLE *ANORM,
9934 DOUBLE *RCOND,
9935 DOUBLE *WORK,
9936 INTEGER *IWORK,
9937 INTEGER *INFO)
9938 {
9939 DEBUG_LAPACK_STUB("dsycon");
9940 LAPACK_IMPL(dsycon)(UPLO,
9941 N,
9942 A,
9943 LDA,
9944 IPIV,
9945 ANORM,
9946 RCOND,
9947 WORK,
9948 IWORK,
9949 INFO);
9950 }
9951
9952 //-- dsyconv -------------------------------------------------------------------
9953 void
9954 LAPACK_DECL(dsyconv)(const char *UPLO,
9955 const char *WAY,
9956 const INTEGER *N,
9957 const DOUBLE *A,
9958 const INTEGER *LDA,
9959 const INTEGER *IPIV,
9960 DOUBLE *WORK,
9961 INTEGER *INFO)
9962 {
9963 DEBUG_LAPACK_STUB("dsyconv");
9964 LAPACK_IMPL(dsyconv)(UPLO,
9965 WAY,
9966 N,
9967 A,
9968 LDA,
9969 IPIV,
9970 WORK,
9971 INFO);
9972 }
9973
9974 //-- dsyequb -------------------------------------------------------------------
9975 void
9976 LAPACK_DECL(dsyequb)(const char *UPLO,
9977 const INTEGER *N,
9978 const DOUBLE *A,
9979 const INTEGER *LDA,
9980 DOUBLE *S,
9981 DOUBLE *SCOND,
9982 DOUBLE *AMAX,
9983 DOUBLE *WORK,
9984 INTEGER *INFO)
9985 {
9986 DEBUG_LAPACK_STUB("dsyequb");
9987 LAPACK_IMPL(dsyequb)(UPLO,
9988 N,
9989 A,
9990 LDA,
9991 S,
9992 SCOND,
9993 AMAX,
9994 WORK,
9995 INFO);
9996 }
9997
9998 //-- dsyev ---------------------------------------------------------------------
9999 void
10000 LAPACK_DECL(dsyev)(const char *JOBZ,
10001 const char *UPLO,
10002 const INTEGER *N,
10003 DOUBLE *A,
10004 const INTEGER *LDA,
10005 DOUBLE *W,
10006 DOUBLE *WORK,
10007 const INTEGER *LWORK,
10008 INTEGER *INFO)
10009 {
10010 DEBUG_LAPACK_STUB("dsyev");
10011 LAPACK_IMPL(dsyev)(JOBZ,
10012 UPLO,
10013 N,
10014 A,
10015 LDA,
10016 W,
10017 WORK,
10018 LWORK,
10019 INFO);
10020 }
10021
10022 //-- dsyevd --------------------------------------------------------------------
10023 void
10024 LAPACK_DECL(dsyevd)(const char *JOBZ,
10025 const char *UPLO,
10026 const INTEGER *N,
10027 DOUBLE *A,
10028 const INTEGER *LDA,
10029 DOUBLE *W,
10030 DOUBLE *WORK,
10031 const INTEGER *LWORK,
10032 INTEGER *IWORK,
10033 const INTEGER *LIWORK,
10034 INTEGER *INFO)
10035 {
10036 DEBUG_LAPACK_STUB("dsyevd");
10037 LAPACK_IMPL(dsyevd)(JOBZ,
10038 UPLO,
10039 N,
10040 A,
10041 LDA,
10042 W,
10043 WORK,
10044 LWORK,
10045 IWORK,
10046 LIWORK,
10047 INFO);
10048 }
10049
10050 //-- dsyevr --------------------------------------------------------------------
10051 void
10052 LAPACK_DECL(dsyevr)(const char *JOBZ,
10053 const char *RANGE,
10054 const char *UPLO,
10055 const INTEGER *N,
10056 DOUBLE *A,
10057 const INTEGER *LDA,
10058 const DOUBLE *VL,
10059 const DOUBLE *VU,
10060 const INTEGER *IL,
10061 const INTEGER *IU,
10062 const DOUBLE *ABSTOL,
10063 INTEGER *M,
10064 DOUBLE *W,
10065 DOUBLE *Z,
10066 const INTEGER *LDZ,
10067 INTEGER *ISUPPZ,
10068 DOUBLE *WORK,
10069 const INTEGER *LWORK,
10070 INTEGER *IWORK,
10071 const INTEGER *LIWORK,
10072 INTEGER *INFO)
10073 {
10074 DEBUG_LAPACK_STUB("dsyevr");
10075 LAPACK_IMPL(dsyevr)(JOBZ,
10076 RANGE,
10077 UPLO,
10078 N,
10079 A,
10080 LDA,
10081 VL,
10082 VU,
10083 IL,
10084 IU,
10085 ABSTOL,
10086 M,
10087 W,
10088 Z,
10089 LDZ,
10090 ISUPPZ,
10091 WORK,
10092 LWORK,
10093 IWORK,
10094 LIWORK,
10095 INFO);
10096 }
10097
10098 //-- dsyevx --------------------------------------------------------------------
10099 void
10100 LAPACK_DECL(dsyevx)(const char *JOBZ,
10101 const char *RANGE,
10102 const char *UPLO,
10103 const INTEGER *N,
10104 DOUBLE *A,
10105 const INTEGER *LDA,
10106 const DOUBLE *VL,
10107 const DOUBLE *VU,
10108 const INTEGER *IL,
10109 const INTEGER *IU,
10110 const DOUBLE *ABSTOL,
10111 INTEGER *M,
10112 DOUBLE *W,
10113 DOUBLE *Z,
10114 const INTEGER *LDZ,
10115 DOUBLE *WORK,
10116 const INTEGER *LWORK,
10117 INTEGER *IWORK,
10118 INTEGER *IFAIL,
10119 INTEGER *INFO)
10120 {
10121 DEBUG_LAPACK_STUB("dsyevx");
10122 LAPACK_IMPL(dsyevx)(JOBZ,
10123 RANGE,
10124 UPLO,
10125 N,
10126 A,
10127 LDA,
10128 VL,
10129 VU,
10130 IL,
10131 IU,
10132 ABSTOL,
10133 M,
10134 W,
10135 Z,
10136 LDZ,
10137 WORK,
10138 LWORK,
10139 IWORK,
10140 IFAIL,
10141 INFO);
10142 }
10143
10144 //-- dsygs2 --------------------------------------------------------------------
10145 void
10146 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
10147 const char *UPLO,
10148 const INTEGER *N,
10149 DOUBLE *A,
10150 const INTEGER *LDA,
10151 const DOUBLE *B,
10152 const INTEGER *LDB,
10153 INTEGER *INFO)
10154 {
10155 DEBUG_LAPACK_STUB("dsygs2");
10156 LAPACK_IMPL(dsygs2)(ITYPE,
10157 UPLO,
10158 N,
10159 A,
10160 LDA,
10161 B,
10162 LDB,
10163 INFO);
10164 }
10165
10166 //-- dsygst --------------------------------------------------------------------
10167 void
10168 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
10169 const char *UPLO,
10170 const INTEGER *N,
10171 DOUBLE *A,
10172 const INTEGER *LDA,
10173 const DOUBLE *B,
10174 const INTEGER *LDB,
10175 INTEGER *INFO)
10176 {
10177 DEBUG_LAPACK_STUB("dsygst");
10178 LAPACK_IMPL(dsygst)(ITYPE,
10179 UPLO,
10180 N,
10181 A,
10182 LDA,
10183 B,
10184 LDB,
10185 INFO);
10186 }
10187
10188 //-- dsygv ---------------------------------------------------------------------
10189 void
10190 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
10191 const char *JOBZ,
10192 const char *UPLO,
10193 const INTEGER *N,
10194 DOUBLE *A,
10195 const INTEGER *LDA,
10196 DOUBLE *B,
10197 const INTEGER *LDB,
10198 DOUBLE *W,
10199 DOUBLE *WORK,
10200 const INTEGER *LWORK,
10201 INTEGER *INFO)
10202 {
10203 DEBUG_LAPACK_STUB("dsygv");
10204 LAPACK_IMPL(dsygv)(ITYPE,
10205 JOBZ,
10206 UPLO,
10207 N,
10208 A,
10209 LDA,
10210 B,
10211 LDB,
10212 W,
10213 WORK,
10214 LWORK,
10215 INFO);
10216 }
10217
10218 //-- dsygvd --------------------------------------------------------------------
10219 void
10220 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
10221 const char *JOBZ,
10222 const char *UPLO,
10223 const INTEGER *N,
10224 DOUBLE *A,
10225 const INTEGER *LDA,
10226 DOUBLE *B,
10227 const INTEGER *LDB,
10228 DOUBLE *W,
10229 DOUBLE *WORK,
10230 const INTEGER *LWORK,
10231 INTEGER *IWORK,
10232 const INTEGER *LIWORK,
10233 INTEGER *INFO)
10234 {
10235 DEBUG_LAPACK_STUB("dsygvd");
10236 LAPACK_IMPL(dsygvd)(ITYPE,
10237 JOBZ,
10238 UPLO,
10239 N,
10240 A,
10241 LDA,
10242 B,
10243 LDB,
10244 W,
10245 WORK,
10246 LWORK,
10247 IWORK,
10248 LIWORK,
10249 INFO);
10250 }
10251
10252 //-- dsygvx --------------------------------------------------------------------
10253 void
10254 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
10255 const char *JOBZ,
10256 const char *RANGE,
10257 const char *UPLO,
10258 const INTEGER *N,
10259 DOUBLE *A,
10260 const INTEGER *LDA,
10261 DOUBLE *B,
10262 const INTEGER *LDB,
10263 const DOUBLE *VL,
10264 const DOUBLE *VU,
10265 const INTEGER *IL,
10266 const INTEGER *IU,
10267 const DOUBLE *ABSTOL,
10268 INTEGER *M,
10269 DOUBLE *W,
10270 DOUBLE *Z,
10271 const INTEGER *LDZ,
10272 DOUBLE *WORK,
10273 const INTEGER *LWORK,
10274 INTEGER *IWORK,
10275 INTEGER *IFAIL,
10276 INTEGER *INFO)
10277 {
10278 DEBUG_LAPACK_STUB("dsygvx");
10279 LAPACK_IMPL(dsygvx)(ITYPE,
10280 JOBZ,
10281 RANGE,
10282 UPLO,
10283 N,
10284 A,
10285 LDA,
10286 B,
10287 LDB,
10288 VL,
10289 VU,
10290 IL,
10291 IU,
10292 ABSTOL,
10293 M,
10294 W,
10295 Z,
10296 LDZ,
10297 WORK,
10298 LWORK,
10299 IWORK,
10300 IFAIL,
10301 INFO);
10302 }
10303
10304 //-- dsyrfs --------------------------------------------------------------------
10305 void
10306 LAPACK_DECL(dsyrfs)(const char *UPLO,
10307 const INTEGER *N,
10308 const INTEGER *NRHS,
10309 const DOUBLE *A,
10310 const INTEGER *LDA,
10311 const DOUBLE *AF,
10312 const INTEGER *LDAF,
10313 const INTEGER *IPIV,
10314 const DOUBLE *B,
10315 const INTEGER *LDB,
10316 DOUBLE *X,
10317 const INTEGER *LDX,
10318 DOUBLE *FERR,
10319 DOUBLE *BERR,
10320 DOUBLE *WORK,
10321 INTEGER *IWORK,
10322 INTEGER *INFO)
10323 {
10324 DEBUG_LAPACK_STUB("dsyrfs");
10325 LAPACK_IMPL(dsyrfs)(UPLO,
10326 N,
10327 NRHS,
10328 A,
10329 LDA,
10330 AF,
10331 LDAF,
10332 IPIV,
10333 B,
10334 LDB,
10335 X,
10336 LDX,
10337 FERR,
10338 BERR,
10339 WORK,
10340 IWORK,
10341 INFO);
10342 }
10343
10344 //-- dsysv ---------------------------------------------------------------------
10345 void
10346 LAPACK_DECL(dsysv)(const char *UPLO,
10347 const INTEGER *N,
10348 const INTEGER *NRHS,
10349 DOUBLE *A,
10350 const INTEGER *LDA,
10351 INTEGER *IPIV,
10352 DOUBLE *B,
10353 const INTEGER *LDB,
10354 DOUBLE *WORK,
10355 const INTEGER *LWORK,
10356 INTEGER *INFO)
10357 {
10358 DEBUG_LAPACK_STUB("dsysv");
10359 LAPACK_IMPL(dsysv)(UPLO,
10360 N,
10361 NRHS,
10362 A,
10363 LDA,
10364 IPIV,
10365 B,
10366 LDB,
10367 WORK,
10368 LWORK,
10369 INFO);
10370 }
10371
10372 //-- dsysvx --------------------------------------------------------------------
10373 void
10374 LAPACK_DECL(dsysvx)(const char *FACT,
10375 const char *UPLO,
10376 const INTEGER *N,
10377 const INTEGER *NRHS,
10378 const DOUBLE *A,
10379 const INTEGER *LDA,
10380 DOUBLE *AF,
10381 const INTEGER *LDAF,
10382 INTEGER *IPIV,
10383 const DOUBLE *B,
10384 const INTEGER *LDB,
10385 DOUBLE *X,
10386 const INTEGER *LDX,
10387 DOUBLE *RCOND,
10388 DOUBLE *FERR,
10389 DOUBLE *BERR,
10390 DOUBLE *WORK,
10391 const INTEGER *LWORK,
10392 INTEGER *IWORK,
10393 INTEGER *INFO)
10394 {
10395 DEBUG_LAPACK_STUB("dsysvx");
10396 LAPACK_IMPL(dsysvx)(FACT,
10397 UPLO,
10398 N,
10399 NRHS,
10400 A,
10401 LDA,
10402 AF,
10403 LDAF,
10404 IPIV,
10405 B,
10406 LDB,
10407 X,
10408 LDX,
10409 RCOND,
10410 FERR,
10411 BERR,
10412 WORK,
10413 LWORK,
10414 IWORK,
10415 INFO);
10416 }
10417
10418 //-- dsyswapr ------------------------------------------------------------------
10419 void
10420 LAPACK_DECL(dsyswapr)(const char *UPLO,
10421 const INTEGER *N,
10422 DOUBLE *A,
10423 const INTEGER *LDA,
10424 const INTEGER *I1,
10425 const INTEGER *I2)
10426 {
10427 DEBUG_LAPACK_STUB("dsyswapr");
10428 LAPACK_IMPL(dsyswapr)(UPLO,
10429 N,
10430 A,
10431 LDA,
10432 I1,
10433 I2);
10434 }
10435
10436 //-- dsytd2 --------------------------------------------------------------------
10437 void
10438 LAPACK_DECL(dsytd2)(const char *UPLO,
10439 const INTEGER *N,
10440 DOUBLE *A,
10441 const INTEGER *LDA,
10442 DOUBLE *D,
10443 DOUBLE *E,
10444 DOUBLE *TAU,
10445 INTEGER *INFO)
10446 {
10447 DEBUG_LAPACK_STUB("dsytd2");
10448 LAPACK_IMPL(dsytd2)(UPLO,
10449 N,
10450 A,
10451 LDA,
10452 D,
10453 E,
10454 TAU,
10455 INFO);
10456 }
10457
10458 //-- dsytf2 --------------------------------------------------------------------
10459 void
10460 LAPACK_DECL(dsytf2)(const char *UPLO,
10461 const INTEGER *N,
10462 DOUBLE *A,
10463 const INTEGER *LDA,
10464 INTEGER *IPIV,
10465 INTEGER *INFO)
10466 {
10467 DEBUG_LAPACK_STUB("dsytf2");
10468 LAPACK_IMPL(dsytf2)(UPLO,
10469 N,
10470 A,
10471 LDA,
10472 IPIV,
10473 INFO);
10474 }
10475
10476 //-- dsytrd --------------------------------------------------------------------
10477 void
10478 LAPACK_DECL(dsytrd)(const char *UPLO,
10479 const INTEGER *N,
10480 DOUBLE *A,
10481 const INTEGER *LDA,
10482 DOUBLE *D,
10483 DOUBLE *E,
10484 DOUBLE *TAU,
10485 DOUBLE *WORK,
10486 const INTEGER *LWORK,
10487 INTEGER *INFO)
10488 {
10489 DEBUG_LAPACK_STUB("dsytrd");
10490 LAPACK_IMPL(dsytrd)(UPLO,
10491 N,
10492 A,
10493 LDA,
10494 D,
10495 E,
10496 TAU,
10497 WORK,
10498 LWORK,
10499 INFO);
10500 }
10501
10502 //-- dsytrf --------------------------------------------------------------------
10503 void
10504 LAPACK_DECL(dsytrf)(const char *UPLO,
10505 const INTEGER *N,
10506 DOUBLE *A,
10507 const INTEGER *LDA,
10508 INTEGER *IPIV,
10509 DOUBLE *WORK,
10510 const INTEGER *LWORK,
10511 INTEGER *INFO)
10512 {
10513 DEBUG_LAPACK_STUB("dsytrf");
10514 LAPACK_IMPL(dsytrf)(UPLO,
10515 N,
10516 A,
10517 LDA,
10518 IPIV,
10519 WORK,
10520 LWORK,
10521 INFO);
10522 }
10523
10524 //-- dsytri --------------------------------------------------------------------
10525 void
10526 LAPACK_DECL(dsytri)(const char *UPLO,
10527 const INTEGER *N,
10528 DOUBLE *A,
10529 const INTEGER *LDA,
10530 const INTEGER *IPIV,
10531 DOUBLE *WORK,
10532 INTEGER *INFO)
10533 {
10534 DEBUG_LAPACK_STUB("dsytri");
10535 LAPACK_IMPL(dsytri)(UPLO,
10536 N,
10537 A,
10538 LDA,
10539 IPIV,
10540 WORK,
10541 INFO);
10542 }
10543
10544 //-- dsytri2 -------------------------------------------------------------------
10545 void
10546 LAPACK_DECL(dsytri2)(const char *UPLO,
10547 const INTEGER *N,
10548 DOUBLE *A,
10549 const INTEGER *LDA,
10550 const INTEGER *IPIV,
10551 DOUBLE *WORK,
10552 const INTEGER *LWORK,
10553 INTEGER *INFO)
10554 {
10555 DEBUG_LAPACK_STUB("dsytri2");
10556 LAPACK_IMPL(dsytri2)(UPLO,
10557 N,
10558 A,
10559 LDA,
10560 IPIV,
10561 WORK,
10562 LWORK,
10563 INFO);
10564 }
10565
10566 //-- dsytri2x ------------------------------------------------------------------
10567 void
10568 LAPACK_DECL(dsytri2x)(const char *UPLO,
10569 const INTEGER *N,
10570 DOUBLE *A,
10571 const INTEGER *LDA,
10572 const INTEGER *IPIV,
10573 DOUBLE *WORK,
10574 const INTEGER *NB,
10575 INTEGER *INFO)
10576 {
10577 DEBUG_LAPACK_STUB("dsytri2x");
10578 LAPACK_IMPL(dsytri2x)(UPLO,
10579 N,
10580 A,
10581 LDA,
10582 IPIV,
10583 WORK,
10584 NB,
10585 INFO);
10586 }
10587
10588 //-- dsytrs --------------------------------------------------------------------
10589 void
10590 LAPACK_DECL(dsytrs)(const char *UPLO,
10591 const INTEGER *N,
10592 const INTEGER *NRHS,
10593 const DOUBLE *A,
10594 const INTEGER *LDA,
10595 const INTEGER *IPIV,
10596 DOUBLE *B,
10597 const INTEGER *LDB,
10598 INTEGER *INFO)
10599 {
10600 DEBUG_LAPACK_STUB("dsytrs");
10601 LAPACK_IMPL(dsytrs)(UPLO,
10602 N,
10603 NRHS,
10604 A,
10605 LDA,
10606 IPIV,
10607 B,
10608 LDB,
10609 INFO);
10610 }
10611
10612 //-- dsytrs2 -------------------------------------------------------------------
10613 void
10614 LAPACK_DECL(dsytrs2)(const char *UPLO,
10615 const INTEGER *N,
10616 const INTEGER *NRHS,
10617 const DOUBLE *A,
10618 const INTEGER *LDA,
10619 const INTEGER *IPIV,
10620 DOUBLE *B,
10621 const INTEGER *LDB,
10622 DOUBLE *WORK,
10623 INTEGER *INFO)
10624 {
10625 DEBUG_LAPACK_STUB("dsytrs2");
10626 LAPACK_IMPL(dsytrs2)(UPLO,
10627 N,
10628 NRHS,
10629 A,
10630 LDA,
10631 IPIV,
10632 B,
10633 LDB,
10634 WORK,
10635 INFO);
10636 }
10637
10638 //-- dtbcon --------------------------------------------------------------------
10639 void
10640 LAPACK_DECL(dtbcon)(const char *NORM,
10641 const char *UPLO,
10642 const char *DIAG,
10643 const INTEGER *N,
10644 const INTEGER *KD,
10645 const DOUBLE *AB,
10646 const INTEGER *LDAB,
10647 DOUBLE *RCOND,
10648 DOUBLE *WORK,
10649 INTEGER *IWORK,
10650 INTEGER *INFO)
10651 {
10652 DEBUG_LAPACK_STUB("dtbcon");
10653 LAPACK_IMPL(dtbcon)(NORM,
10654 UPLO,
10655 DIAG,
10656 N,
10657 KD,
10658 AB,
10659 LDAB,
10660 RCOND,
10661 WORK,
10662 IWORK,
10663 INFO);
10664 }
10665
10666 //-- dtbrfs --------------------------------------------------------------------
10667 void
10668 LAPACK_DECL(dtbrfs)(const char *UPLO,
10669 const char *TRANS,
10670 const char *DIAG,
10671 const INTEGER *N,
10672 const INTEGER *KD,
10673 const INTEGER *NRHS,
10674 const DOUBLE *AB,
10675 const INTEGER *LDAB,
10676 const DOUBLE *B,
10677 const INTEGER *LDB,
10678 const DOUBLE *X,
10679 const INTEGER *LDX,
10680 DOUBLE *FERR,
10681 DOUBLE *BERR,
10682 DOUBLE *WORK,
10683 INTEGER *IWORK,
10684 INTEGER *INFO)
10685 {
10686 DEBUG_LAPACK_STUB("dtbrfs");
10687 LAPACK_IMPL(dtbrfs)(UPLO,
10688 TRANS,
10689 DIAG,
10690 N,
10691 KD,
10692 NRHS,
10693 AB,
10694 LDAB,
10695 B,
10696 LDB,
10697 X,
10698 LDX,
10699 FERR,
10700 BERR,
10701 WORK,
10702 IWORK,
10703 INFO);
10704 }
10705
10706 //-- dtbtrs --------------------------------------------------------------------
10707 void
10708 LAPACK_DECL(dtbtrs)(const char *UPLO,
10709 const char *TRANS,
10710 const char *DIAG,
10711 const INTEGER *N,
10712 const INTEGER *KD,
10713 const INTEGER *NRHS,
10714 const DOUBLE *AB,
10715 const INTEGER *LDAB,
10716 DOUBLE *B,
10717 const INTEGER *LDB,
10718 INTEGER *INFO)
10719 {
10720 DEBUG_LAPACK_STUB("dtbtrs");
10721 LAPACK_IMPL(dtbtrs)(UPLO,
10722 TRANS,
10723 DIAG,
10724 N,
10725 KD,
10726 NRHS,
10727 AB,
10728 LDAB,
10729 B,
10730 LDB,
10731 INFO);
10732 }
10733
10734 //-- dtfsm ---------------------------------------------------------------------
10735 void
10736 LAPACK_DECL(dtfsm)(const char *TRANSR,
10737 const char *SIDE,
10738 const char *UPLO,
10739 const char *TRANS,
10740 const char *DIAG,
10741 const INTEGER *M,
10742 const INTEGER *N,
10743 const DOUBLE *ALPHA,
10744 const DOUBLE *A,
10745 DOUBLE *B,
10746 const INTEGER *LDB)
10747 {
10748 DEBUG_LAPACK_STUB("dtfsm");
10749 LAPACK_IMPL(dtfsm)(TRANSR,
10750 SIDE,
10751 UPLO,
10752 TRANS,
10753 DIAG,
10754 M,
10755 N,
10756 ALPHA,
10757 A,
10758 B,
10759 LDB);
10760 }
10761
10762 //-- dtftri --------------------------------------------------------------------
10763 void
10764 LAPACK_DECL(dtftri)(const char *TRANSR,
10765 const char *UPLO,
10766 const char *DIAG,
10767 const INTEGER *N,
10768 DOUBLE *A,
10769 INTEGER *INFO)
10770 {
10771 DEBUG_LAPACK_STUB("dtftri");
10772 LAPACK_IMPL(dtftri)(TRANSR,
10773 UPLO,
10774 DIAG,
10775 N,
10776 A,
10777 INFO);
10778 }
10779
10780 //-- dtfttp --------------------------------------------------------------------
10781 void
10782 LAPACK_DECL(dtfttp)(const char *TRANSR,
10783 const char *UPLO,
10784 const INTEGER *N,
10785 const DOUBLE *ARF,
10786 DOUBLE *AP,
10787 INTEGER *INFO)
10788 {
10789 DEBUG_LAPACK_STUB("dtfttp");
10790 LAPACK_IMPL(dtfttp)(TRANSR,
10791 UPLO,
10792 N,
10793 ARF,
10794 AP,
10795 INFO);
10796 }
10797
10798 //-- dtfttr --------------------------------------------------------------------
10799 void
10800 LAPACK_DECL(dtfttr)(const char *TRANSR,
10801 const char *UPLO,
10802 const INTEGER *N,
10803 const DOUBLE *ARF,
10804 DOUBLE *A,
10805 const INTEGER *LDA,
10806 INTEGER *INFO)
10807 {
10808 DEBUG_LAPACK_STUB("dtfttr");
10809 LAPACK_IMPL(dtfttr)(TRANSR,
10810 UPLO,
10811 N,
10812 ARF,
10813 A,
10814 LDA,
10815 INFO);
10816 }
10817
10818 //-- dtgevc --------------------------------------------------------------------
10819 void
10820 LAPACK_DECL(dtgevc)(const char *SIDE,
10821 const char *HOWMNY,
10822 const LOGICAL *SELECT,
10823 const INTEGER *N,
10824 const DOUBLE *S,
10825 const INTEGER *LDS,
10826 const DOUBLE *P,
10827 const INTEGER *LDP,
10828 DOUBLE *VL,
10829 const INTEGER *LDVL,
10830 DOUBLE *VR,
10831 const INTEGER *LDVR,
10832 const INTEGER *MM,
10833 INTEGER *M,
10834 DOUBLE *WORK,
10835 INTEGER *INFO)
10836 {
10837 DEBUG_LAPACK_STUB("dtgevc");
10838 LAPACK_IMPL(dtgevc)(SIDE,
10839 HOWMNY,
10840 SELECT,
10841 N,
10842 S,
10843 LDS,
10844 P,
10845 LDP,
10846 VL,
10847 LDVL,
10848 VR,
10849 LDVR,
10850 MM,
10851 M,
10852 WORK,
10853 INFO);
10854 }
10855
10856 //-- dtgex2 --------------------------------------------------------------------
10857 void
10858 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
10859 const LOGICAL *WANTZ,
10860 const INTEGER *N,
10861 DOUBLE *A,
10862 const INTEGER *LDA,
10863 DOUBLE *B,
10864 const INTEGER *LDB,
10865 DOUBLE *Q,
10866 const INTEGER *LDQ,
10867 DOUBLE *Z,
10868 const INTEGER *LDZ,
10869 const INTEGER *J1,
10870 const INTEGER *N1,
10871 const INTEGER *N2,
10872 DOUBLE *WORK,
10873 const INTEGER *LWORK,
10874 INTEGER *INFO)
10875 {
10876 DEBUG_LAPACK_STUB("dtgex2");
10877 LAPACK_IMPL(dtgex2)(WANTQ,
10878 WANTZ,
10879 N,
10880 A,
10881 LDA,
10882 B,
10883 LDB,
10884 Q,
10885 LDQ,
10886 Z,
10887 LDZ,
10888 J1,
10889 N1,
10890 N2,
10891 WORK,
10892 LWORK,
10893 INFO);
10894 }
10895
10896 //-- dtgexc --------------------------------------------------------------------
10897 void
10898 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
10899 const LOGICAL *WANTZ,
10900 const INTEGER *N,
10901 DOUBLE *A,
10902 const INTEGER *LDA,
10903 DOUBLE *B,
10904 const INTEGER *LDB,
10905 DOUBLE *Q,
10906 const INTEGER *LDQ,
10907 DOUBLE *Z,
10908 const INTEGER *LDZ,
10909 INTEGER *IFST,
10910 INTEGER *ILST,
10911 DOUBLE *WORK,
10912 const INTEGER *LWORK,
10913 INTEGER *INFO)
10914 {
10915 DEBUG_LAPACK_STUB("dtgexc");
10916 LAPACK_IMPL(dtgexc)(WANTQ,
10917 WANTZ,
10918 N,
10919 A,
10920 LDA,
10921 B,
10922 LDB,
10923 Q,
10924 LDQ,
10925 Z,
10926 LDZ,
10927 IFST,
10928 ILST,
10929 WORK,
10930 LWORK,
10931 INFO);
10932 }
10933
10934 //-- dtgsen --------------------------------------------------------------------
10935 void
10936 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
10937 const LOGICAL *WANTQ,
10938 const LOGICAL *WANTZ,
10939 const LOGICAL *SELECT,
10940 const INTEGER *N,
10941 DOUBLE *A,
10942 const INTEGER *LDA,
10943 DOUBLE *B,
10944 const INTEGER *LDB,
10945 DOUBLE *ALPHAR,
10946 DOUBLE *ALPHAI,
10947 DOUBLE *BETA,
10948 DOUBLE *Q,
10949 const INTEGER *LDQ,
10950 DOUBLE *Z,
10951 const INTEGER *LDZ,
10952 INTEGER *M,
10953 DOUBLE *PL,
10954 DOUBLE *PR,
10955 DOUBLE *DIF,
10956 DOUBLE *WORK,
10957 const INTEGER *LWORK,
10958 INTEGER *IWORK,
10959 const INTEGER *LIWORK,
10960 INTEGER *INFO)
10961 {
10962 DEBUG_LAPACK_STUB("dtgsen");
10963 LAPACK_IMPL(dtgsen)(IJOB,
10964 WANTQ,
10965 WANTZ,
10966 SELECT,
10967 N,
10968 A,
10969 LDA,
10970 B,
10971 LDB,
10972 ALPHAR,
10973 ALPHAI,
10974 BETA,
10975 Q,
10976 LDQ,
10977 Z,
10978 LDZ,
10979 M,
10980 PL,
10981 PR,
10982 DIF,
10983 WORK,
10984 LWORK,
10985 IWORK,
10986 LIWORK,
10987 INFO);
10988 }
10989
10990 //-- dtgsja --------------------------------------------------------------------
10991 void
10992 LAPACK_DECL(dtgsja)(const char *JOBU,
10993 const char *JOBV,
10994 const char *JOBQ,
10995 const INTEGER *M,
10996 const INTEGER *P,
10997 const INTEGER *N,
10998 const INTEGER *K,
10999 const INTEGER *L,
11000 DOUBLE *A,
11001 const INTEGER *LDA,
11002 DOUBLE *B,
11003 const INTEGER *LDB,
11004 const DOUBLE *TOLA,
11005 const DOUBLE *TOLB,
11006 DOUBLE *ALPHA,
11007 DOUBLE *BETA,
11008 DOUBLE *U,
11009 const INTEGER *LDU,
11010 DOUBLE *V,
11011 const INTEGER *LDV,
11012 DOUBLE *Q,
11013 const INTEGER *LDQ,
11014 DOUBLE *WORK,
11015 INTEGER *NCYCLE,
11016 INTEGER *INFO)
11017 {
11018 DEBUG_LAPACK_STUB("dtgsja");
11019 LAPACK_IMPL(dtgsja)(JOBU,
11020 JOBV,
11021 JOBQ,
11022 M,
11023 P,
11024 N,
11025 K,
11026 L,
11027 A,
11028 LDA,
11029 B,
11030 LDB,
11031 TOLA,
11032 TOLB,
11033 ALPHA,
11034 BETA,
11035 U,
11036 LDU,
11037 V,
11038 LDV,
11039 Q,
11040 LDQ,
11041 WORK,
11042 NCYCLE,
11043 INFO);
11044 }
11045
11046 //-- dtgsna --------------------------------------------------------------------
11047 void
11048 LAPACK_DECL(dtgsna)(const char *JOB,
11049 const char *HOWMNY,
11050 const LOGICAL *SELECT,
11051 const INTEGER *N,
11052 const DOUBLE *A,
11053 const INTEGER *LDA,
11054 const DOUBLE *B,
11055 const INTEGER *LDB,
11056 const DOUBLE *VL,
11057 const INTEGER *LDVL,
11058 const DOUBLE *VR,
11059 const INTEGER *LDVR,
11060 DOUBLE *S,
11061 DOUBLE *DIF,
11062 const INTEGER *MM,
11063 INTEGER *M,
11064 DOUBLE *WORK,
11065 const INTEGER *LWORK,
11066 INTEGER *IWORK,
11067 INTEGER *INFO)
11068 {
11069 DEBUG_LAPACK_STUB("dtgsna");
11070 LAPACK_IMPL(dtgsna)(JOB,
11071 HOWMNY,
11072 SELECT,
11073 N,
11074 A,
11075 LDA,
11076 B,
11077 LDB,
11078 VL,
11079 LDVL,
11080 VR,
11081 LDVR,
11082 S,
11083 DIF,
11084 MM,
11085 M,
11086 WORK,
11087 LWORK,
11088 IWORK,
11089 INFO);
11090 }
11091
11092 //-- dtgsy2 --------------------------------------------------------------------
11093 void
11094 LAPACK_DECL(dtgsy2)(const char *TRANS,
11095 const INTEGER *IJOB,
11096 const INTEGER *M,
11097 const INTEGER *N,
11098 const DOUBLE *A,
11099 const INTEGER *LDA,
11100 const DOUBLE *B,
11101 const INTEGER *LDB,
11102 DOUBLE *C,
11103 const INTEGER *LDC,
11104 const DOUBLE *D,
11105 const INTEGER *LDD,
11106 const DOUBLE *E,
11107 const INTEGER *LDE,
11108 DOUBLE *F,
11109 const INTEGER *LDF,
11110 DOUBLE *SCALE,
11111 DOUBLE *RDSUM,
11112 DOUBLE *RDSCAL,
11113 INTEGER *IWORK,
11114 INTEGER *PQ,
11115 INTEGER *INFO)
11116 {
11117 DEBUG_LAPACK_STUB("dtgsy2");
11118 LAPACK_IMPL(dtgsy2)(TRANS,
11119 IJOB,
11120 M,
11121 N,
11122 A,
11123 LDA,
11124 B,
11125 LDB,
11126 C,
11127 LDC,
11128 D,
11129 LDD,
11130 E,
11131 LDE,
11132 F,
11133 LDF,
11134 SCALE,
11135 RDSUM,
11136 RDSCAL,
11137 IWORK,
11138 PQ,
11139 INFO);
11140 }
11141
11142 //-- dtgsyl --------------------------------------------------------------------
11143 void
11144 LAPACK_DECL(dtgsyl)(const char *TRANS,
11145 const INTEGER *IJOB,
11146 const INTEGER *M,
11147 const INTEGER *N,
11148 const DOUBLE *A,
11149 const INTEGER *LDA,
11150 const DOUBLE *B,
11151 const INTEGER *LDB,
11152 DOUBLE *C,
11153 const INTEGER *LDC,
11154 const DOUBLE *D,
11155 const INTEGER *LDD,
11156 const DOUBLE *E,
11157 const INTEGER *LDE,
11158 DOUBLE *F,
11159 const INTEGER *LDF,
11160 DOUBLE *SCALE,
11161 DOUBLE *DIF,
11162 DOUBLE *WORK,
11163 const INTEGER *LWORK,
11164 INTEGER *IWORK,
11165 INTEGER *INFO)
11166 {
11167 DEBUG_LAPACK_STUB("dtgsyl");
11168 LAPACK_IMPL(dtgsyl)(TRANS,
11169 IJOB,
11170 M,
11171 N,
11172 A,
11173 LDA,
11174 B,
11175 LDB,
11176 C,
11177 LDC,
11178 D,
11179 LDD,
11180 E,
11181 LDE,
11182 F,
11183 LDF,
11184 SCALE,
11185 DIF,
11186 WORK,
11187 LWORK,
11188 IWORK,
11189 INFO);
11190 }
11191
11192 //-- dtpcon --------------------------------------------------------------------
11193 void
11194 LAPACK_DECL(dtpcon)(const char *NORM,
11195 const char *UPLO,
11196 const char *DIAG,
11197 const INTEGER *N,
11198 const DOUBLE *AP,
11199 DOUBLE *RCOND,
11200 DOUBLE *WORK,
11201 INTEGER *IWORK,
11202 INTEGER *INFO)
11203 {
11204 DEBUG_LAPACK_STUB("dtpcon");
11205 LAPACK_IMPL(dtpcon)(NORM,
11206 UPLO,
11207 DIAG,
11208 N,
11209 AP,
11210 RCOND,
11211 WORK,
11212 IWORK,
11213 INFO);
11214 }
11215
11216 //-- dtprfs --------------------------------------------------------------------
11217 void
11218 LAPACK_DECL(dtprfs)(const char *UPLO,
11219 const char *TRANS,
11220 const char *DIAG,
11221 const INTEGER *N,
11222 const INTEGER *NRHS,
11223 const DOUBLE *AP,
11224 const DOUBLE *B,
11225 const INTEGER *LDB,
11226 const DOUBLE *X,
11227 const INTEGER *LDX,
11228 DOUBLE *FERR,
11229 DOUBLE *BERR,
11230 DOUBLE *WORK,
11231 INTEGER *IWORK,
11232 INTEGER *INFO)
11233 {
11234 DEBUG_LAPACK_STUB("dtprfs");
11235 LAPACK_IMPL(dtprfs)(UPLO,
11236 TRANS,
11237 DIAG,
11238 N,
11239 NRHS,
11240 AP,
11241 B,
11242 LDB,
11243 X,
11244 LDX,
11245 FERR,
11246 BERR,
11247 WORK,
11248 IWORK,
11249 INFO);
11250 }
11251
11252 //-- dtptri --------------------------------------------------------------------
11253 void
11254 LAPACK_DECL(dtptri)(const char *UPLO,
11255 const char *DIAG,
11256 const INTEGER *N,
11257 DOUBLE *AP,
11258 INTEGER *INFO)
11259 {
11260 DEBUG_LAPACK_STUB("dtptri");
11261 LAPACK_IMPL(dtptri)(UPLO,
11262 DIAG,
11263 N,
11264 AP,
11265 INFO);
11266 }
11267
11268 //-- dtptrs --------------------------------------------------------------------
11269 void
11270 LAPACK_DECL(dtptrs)(const char *UPLO,
11271 const char *TRANS,
11272 const char *DIAG,
11273 const INTEGER *N,
11274 const INTEGER *NRHS,
11275 const DOUBLE *AP,
11276 DOUBLE *B,
11277 const INTEGER *LDB,
11278 INTEGER *INFO)
11279 {
11280 DEBUG_LAPACK_STUB("dtptrs");
11281 LAPACK_IMPL(dtptrs)(UPLO,
11282 TRANS,
11283 DIAG,
11284 N,
11285 NRHS,
11286 AP,
11287 B,
11288 LDB,
11289 INFO);
11290 }
11291
11292 //-- dtpttf --------------------------------------------------------------------
11293 void
11294 LAPACK_DECL(dtpttf)(const char *TRANSR,
11295 const char *UPLO,
11296 const INTEGER *N,
11297 const DOUBLE *AP,
11298 DOUBLE *ARF,
11299 INTEGER *INFO)
11300 {
11301 DEBUG_LAPACK_STUB("dtpttf");
11302 LAPACK_IMPL(dtpttf)(TRANSR,
11303 UPLO,
11304 N,
11305 AP,
11306 ARF,
11307 INFO);
11308 }
11309
11310 //-- dtpttr --------------------------------------------------------------------
11311 void
11312 LAPACK_DECL(dtpttr)(const char *UPLO,
11313 const INTEGER *N,
11314 const DOUBLE *AP,
11315 DOUBLE *A,
11316 const INTEGER *LDA,
11317 INTEGER *INFO)
11318 {
11319 DEBUG_LAPACK_STUB("dtpttr");
11320 LAPACK_IMPL(dtpttr)(UPLO,
11321 N,
11322 AP,
11323 A,
11324 LDA,
11325 INFO);
11326 }
11327
11328 //-- dtrcon --------------------------------------------------------------------
11329 void
11330 LAPACK_DECL(dtrcon)(const char *NORM,
11331 const char *UPLO,
11332 const char *DIAG,
11333 const INTEGER *N,
11334 const DOUBLE *A,
11335 const INTEGER *LDA,
11336 DOUBLE *RCOND,
11337 DOUBLE *WORK,
11338 INTEGER *IWORK,
11339 INTEGER *INFO)
11340 {
11341 DEBUG_LAPACK_STUB("dtrcon");
11342 LAPACK_IMPL(dtrcon)(NORM,
11343 UPLO,
11344 DIAG,
11345 N,
11346 A,
11347 LDA,
11348 RCOND,
11349 WORK,
11350 IWORK,
11351 INFO);
11352 }
11353
11354 //-- dtrevc --------------------------------------------------------------------
11355 void
11356 LAPACK_DECL(dtrevc)(const char *SIDE,
11357 const char *HOWMNY,
11358 LOGICAL *SELECT,
11359 const INTEGER *N,
11360 const DOUBLE *T,
11361 const INTEGER *LDT,
11362 DOUBLE *VL,
11363 const INTEGER *LDVL,
11364 DOUBLE *VR,
11365 const INTEGER *LDVR,
11366 const INTEGER *MM,
11367 INTEGER *M,
11368 DOUBLE *WORK,
11369 INTEGER *INFO)
11370 {
11371 DEBUG_LAPACK_STUB("dtrevc");
11372 LAPACK_IMPL(dtrevc)(SIDE,
11373 HOWMNY,
11374 SELECT,
11375 N,
11376 T,
11377 LDT,
11378 VL,
11379 LDVL,
11380 VR,
11381 LDVR,
11382 MM,
11383 M,
11384 WORK,
11385 INFO);
11386 }
11387
11388 //-- dtrexc --------------------------------------------------------------------
11389 void
11390 LAPACK_DECL(dtrexc)(const char *COMPQ,
11391 const INTEGER *N,
11392 DOUBLE *T,
11393 const INTEGER *LDT,
11394 DOUBLE *Q,
11395 const INTEGER *LDQ,
11396 INTEGER *IFST,
11397 INTEGER *ILST,
11398 DOUBLE *WORK,
11399 INTEGER *INFO)
11400 {
11401 DEBUG_LAPACK_STUB("dtrexc");
11402 LAPACK_IMPL(dtrexc)(COMPQ,
11403 N,
11404 T,
11405 LDT,
11406 Q,
11407 LDQ,
11408 IFST,
11409 ILST,
11410 WORK,
11411 INFO);
11412 }
11413
11414 //-- dtrrfs --------------------------------------------------------------------
11415 void
11416 LAPACK_DECL(dtrrfs)(const char *UPLO,
11417 const char *TRANS,
11418 const char *DIAG,
11419 const INTEGER *N,
11420 const INTEGER *NRHS,
11421 const DOUBLE *A,
11422 const INTEGER *LDA,
11423 const DOUBLE *B,
11424 const INTEGER *LDB,
11425 const DOUBLE *X,
11426 const INTEGER *LDX,
11427 DOUBLE *FERR,
11428 DOUBLE *BERR,
11429 DOUBLE *WORK,
11430 INTEGER *IWORK,
11431 INTEGER *INFO)
11432 {
11433 DEBUG_LAPACK_STUB("dtrrfs");
11434 LAPACK_IMPL(dtrrfs)(UPLO,
11435 TRANS,
11436 DIAG,
11437 N,
11438 NRHS,
11439 A,
11440 LDA,
11441 B,
11442 LDB,
11443 X,
11444 LDX,
11445 FERR,
11446 BERR,
11447 WORK,
11448 IWORK,
11449 INFO);
11450 }
11451
11452 //-- dtrsen --------------------------------------------------------------------
11453 void
11454 LAPACK_DECL(dtrsen)(const char *JOB,
11455 const char *COMPQ,
11456 const LOGICAL *SELECT,
11457 const INTEGER *N,
11458 DOUBLE *T,
11459 const INTEGER *LDT,
11460 DOUBLE *Q,
11461 const INTEGER *LDQ,
11462 DOUBLE *WR,
11463 DOUBLE *WI,
11464 INTEGER *M,
11465 DOUBLE *S,
11466 DOUBLE *SEP,
11467 DOUBLE *WORK,
11468 const INTEGER *LWORK,
11469 INTEGER *IWORK,
11470 const INTEGER *LIWORK,
11471 INTEGER *INFO)
11472 {
11473 DEBUG_LAPACK_STUB("dtrsen");
11474 LAPACK_IMPL(dtrsen)(JOB,
11475 COMPQ,
11476 SELECT,
11477 N,
11478 T,
11479 LDT,
11480 Q,
11481 LDQ,
11482 WR,
11483 WI,
11484 M,
11485 S,
11486 SEP,
11487 WORK,
11488 LWORK,
11489 IWORK,
11490 LIWORK,
11491 INFO);
11492 }
11493
11494 //-- dtrsna --------------------------------------------------------------------
11495 void
11496 LAPACK_DECL(dtrsna)(const char *JOB,
11497 const char *HOWMNY,
11498 const LOGICAL *SELECT,
11499 const INTEGER *N,
11500 const DOUBLE *T,
11501 const INTEGER *LDT,
11502 const DOUBLE *VL,
11503 const INTEGER *LDVL,
11504 const DOUBLE *VR,
11505 const INTEGER *LDVR,
11506 DOUBLE *S,
11507 DOUBLE *SEP,
11508 const INTEGER *MM,
11509 INTEGER *M,
11510 DOUBLE *WORK,
11511 const INTEGER *LDWORK,
11512 INTEGER *IWORK,
11513 INTEGER *INFO)
11514 {
11515 DEBUG_LAPACK_STUB("dtrsna");
11516 LAPACK_IMPL(dtrsna)(JOB,
11517 HOWMNY,
11518 SELECT,
11519 N,
11520 T,
11521 LDT,
11522 VL,
11523 LDVL,
11524 VR,
11525 LDVR,
11526 S,
11527 SEP,
11528 MM,
11529 M,
11530 WORK,
11531 LDWORK,
11532 IWORK,
11533 INFO);
11534 }
11535
11536 //-- dtrsyl --------------------------------------------------------------------
11537 void
11538 LAPACK_DECL(dtrsyl)(const char *TRANA,
11539 const char *TRANB,
11540 const INTEGER *ISGN,
11541 const INTEGER *M,
11542 const INTEGER *N,
11543 const DOUBLE *A,
11544 const INTEGER *LDA,
11545 const DOUBLE *B,
11546 const INTEGER *LDB,
11547 DOUBLE *C,
11548 const INTEGER *LDC,
11549 DOUBLE *SCALE,
11550 INTEGER *INFO)
11551 {
11552 DEBUG_LAPACK_STUB("dtrsyl");
11553 LAPACK_IMPL(dtrsyl)(TRANA,
11554 TRANB,
11555 ISGN,
11556 M,
11557 N,
11558 A,
11559 LDA,
11560 B,
11561 LDB,
11562 C,
11563 LDC,
11564 SCALE,
11565 INFO);
11566 }
11567
11568 //-- dtrti2 --------------------------------------------------------------------
11569 void
11570 LAPACK_DECL(dtrti2)(const char *UPLO,
11571 const char *DIAG,
11572 const INTEGER *N,
11573 DOUBLE *A,
11574 const INTEGER *LDA,
11575 INTEGER *INFO)
11576 {
11577 DEBUG_LAPACK_STUB("dtrti2");
11578 LAPACK_IMPL(dtrti2)(UPLO,
11579 DIAG,
11580 N,
11581 A,
11582 LDA,
11583 INFO);
11584 }
11585
11586 //-- dtrtri --------------------------------------------------------------------
11587 /*
11588 void
11589 LAPACK_DECL(dtrtri)(const char *UPLO,
11590 const char *DIAG,
11591 const INTEGER *N,
11592 DOUBLE *A,
11593 const INTEGER *LDA,
11594 INTEGER *INFO)
11595 {
11596 DEBUG_LAPACK_STUB("dtrtri");
11597 LAPACK_IMPL(dtrtri)(UPLO,
11598 DIAG,
11599 N,
11600 A,
11601 LDA,
11602 INFO);
11603 }
11604 */
11605 //-- dtrtrs --------------------------------------------------------------------
11606 /*
11607 void
11608 LAPACK_DECL(dtrtrs)(const char *UPLO,
11609 const char *TRANS,
11610 const char *DIAG,
11611 const INTEGER *N,
11612 const INTEGER *NRHS,
11613 const DOUBLE *A,
11614 const INTEGER *LDA,
11615 DOUBLE *B,
11616 const INTEGER *LDB,
11617 INTEGER *INFO)
11618 {
11619 DEBUG_LAPACK_STUB("dtrtrs");
11620 LAPACK_IMPL(dtrtrs)(UPLO,
11621 TRANS,
11622 DIAG,
11623 N,
11624 NRHS,
11625 A,
11626 LDA,
11627 B,
11628 LDB,
11629 INFO);
11630 }
11631 */
11632 //-- dtrttf --------------------------------------------------------------------
11633 void
11634 LAPACK_DECL(dtrttf)(const char *TRANSR,
11635 const char *UPLO,
11636 const INTEGER *N,
11637 const DOUBLE *A,
11638 const INTEGER *LDA,
11639 DOUBLE *ARF,
11640 INTEGER *INFO)
11641 {
11642 DEBUG_LAPACK_STUB("dtrttf");
11643 LAPACK_IMPL(dtrttf)(TRANSR,
11644 UPLO,
11645 N,
11646 A,
11647 LDA,
11648 ARF,
11649 INFO);
11650 }
11651
11652 //-- dtrttp --------------------------------------------------------------------
11653 void
11654 LAPACK_DECL(dtrttp)(const char *UPLO,
11655 const INTEGER *N,
11656 const DOUBLE *A,
11657 const INTEGER *LDA,
11658 DOUBLE *AP,
11659 INTEGER *INFO)
11660 {
11661 DEBUG_LAPACK_STUB("dtrttp");
11662 LAPACK_IMPL(dtrttp)(UPLO,
11663 N,
11664 A,
11665 LDA,
11666 AP,
11667 INFO);
11668 }
11669
11670 //-- dtzrqf --------------------------------------------------------------------
11671 void
11672 LAPACK_DECL(dtzrqf)(const INTEGER *M,
11673 const INTEGER *N,
11674 DOUBLE *A,
11675 const INTEGER *LDA,
11676 DOUBLE *TAU,
11677 INTEGER *INFO)
11678 {
11679 DEBUG_LAPACK_STUB("dtzrqf");
11680 LAPACK_IMPL(dtzrqf)(M,
11681 N,
11682 A,
11683 LDA,
11684 TAU,
11685 INFO);
11686 }
11687
11688 //-- dtzrzf --------------------------------------------------------------------
11689 void
11690 LAPACK_DECL(dtzrzf)(const INTEGER *M,
11691 const INTEGER *N,
11692 DOUBLE *A,
11693 const INTEGER *LDA,
11694 DOUBLE *TAU,
11695 DOUBLE *WORK,
11696 const INTEGER *LWORK,
11697 INTEGER *INFO)
11698 {
11699 DEBUG_LAPACK_STUB("dtzrzf");
11700 LAPACK_IMPL(dtzrzf)(M,
11701 N,
11702 A,
11703 LDA,
11704 TAU,
11705 WORK,
11706 LWORK,
11707 INFO);
11708 }
11709
11710 //-- dzsum1 --------------------------------------------------------------------
11711 DOUBLE
11712 LAPACK_DECL(dzsum1)(const INTEGER *N,
11713 const DOUBLE_COMPLEX *CX,
11714 const INTEGER *INCX)
11715 {
11716 DEBUG_LAPACK_STUB("dzsum1");
11717 return LAPACK_IMPL(dzsum1)(N,
11718 CX,
11719 INCX);
11720 }
11721
11722 //-- ieeeck --------------------------------------------------------------------
11723 INTEGER
11724 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
11725 const FLOAT *ZERO,
11726 const FLOAT *ONE)
11727 {
11728 DEBUG_LAPACK_STUB("ieeeck");
11729 return LAPACK_IMPL(ieeeck)(ISPEC,
11730 ZERO,
11731 ONE);
11732 }
11733
11734 //-- iladlc --------------------------------------------------------------------
11735 INTEGER
11736 LAPACK_DECL(iladlc)(const INTEGER *M,
11737 const INTEGER *N,
11738 const DOUBLE *A,
11739 const INTEGER *LDA)
11740 {
11741 DEBUG_LAPACK_STUB("iladlc");
11742 return LAPACK_IMPL(iladlc)(M,
11743 N,
11744 A,
11745 LDA);
11746 }
11747
11748 //-- iladlr --------------------------------------------------------------------
11749 INTEGER
11750 LAPACK_DECL(iladlr)(const INTEGER *M,
11751 const INTEGER *N,
11752 const DOUBLE *A,
11753 const INTEGER *LDA)
11754 {
11755 DEBUG_LAPACK_STUB("iladlr");
11756 return LAPACK_IMPL(iladlr)(M,
11757 N,
11758 A,
11759 LDA);
11760 }
11761
11762 //-- ilaslc --------------------------------------------------------------------
11763 INTEGER
11764 LAPACK_DECL(ilaslc)(const INTEGER *M,
11765 const INTEGER *N,
11766 const FLOAT *A,
11767 const INTEGER *LDA)
11768 {
11769 DEBUG_LAPACK_STUB("ilaslc");
11770 return LAPACK_IMPL(ilaslc)(M,
11771 N,
11772 A,
11773 LDA);
11774 }
11775
11776 //-- ilaslr --------------------------------------------------------------------
11777 INTEGER
11778 LAPACK_DECL(ilaslr)(const INTEGER *M,
11779 const INTEGER *N,
11780 const FLOAT *A,
11781 const INTEGER *LDA)
11782 {
11783 DEBUG_LAPACK_STUB("ilaslr");
11784 return LAPACK_IMPL(ilaslr)(M,
11785 N,
11786 A,
11787 LDA);
11788 }
11789
11790 //-- ilatrans ------------------------------------------------------------------
11791 INTEGER
11792 LAPACK_DECL(ilatrans)(const char *TRANS)
11793 {
11794 DEBUG_LAPACK_STUB("ilatrans");
11795 return LAPACK_IMPL(ilatrans)(TRANS);
11796 }
11797
11798 //-- ilauplo -------------------------------------------------------------------
11799 INTEGER
11800 LAPACK_DECL(ilauplo)(const char *UPLO)
11801 {
11802 DEBUG_LAPACK_STUB("ilauplo");
11803 return LAPACK_IMPL(ilauplo)(UPLO);
11804 }
11805
11806 //-- ilaver --------------------------------------------------------------------
11807 void
11808 LAPACK_DECL(ilaver)(INTEGER *VERS_MAJOR,
11809 INTEGER *VERS_MINOR,
11810 INTEGER *VERS_PATCH)
11811 {
11812 DEBUG_LAPACK_STUB("ilaver");
11813 LAPACK_IMPL(ilaver)(VERS_MAJOR,
11814 VERS_MINOR,
11815 VERS_PATCH);
11816 }
11817
11818 //-- lsame ---------------------------------------------------------------------
11819 /*
11820 LOGICAL
11821 LAPACK_DECL(lsame)(const char *CA,
11822 const char *CB)
11823 {
11824 DEBUG_LAPACK_STUB("lsame");
11825 return LAPACK_IMPL(lsame)(CA,
11826 CB);
11827 }
11828 */
11829 //-- lsamen --------------------------------------------------------------------
11830 /*
11831 LOGICAL
11832 LAPACK_DECL(lsamen)(const INTEGER *N,
11833 const char *CA,
11834 const char *CB)
11835 {
11836 DEBUG_LAPACK_STUB("lsamen");
11837 return LAPACK_IMPL(lsamen)(N,
11838 CA,
11839 CB);
11840 }
11841 */
11842 //-- sgetf2 --------------------------------------------------------------------
11843 void
11844 LAPACK_DECL(sgetf2)(const INTEGER *M,
11845 const INTEGER *N,
11846 FLOAT *A,
11847 const INTEGER *LDA,
11848 INTEGER *IPIV,
11849 INTEGER *INFO)
11850 {
11851 DEBUG_LAPACK_STUB("sgetf2");
11852 LAPACK_IMPL(sgetf2)(M,
11853 N,
11854 A,
11855 LDA,
11856 IPIV,
11857 INFO);
11858 }
11859
11860 //-- sgetrf --------------------------------------------------------------------
11861 void
11862 LAPACK_DECL(sgetrf)(const INTEGER *M,
11863 const INTEGER *N,
11864 FLOAT *A,
11865 const INTEGER *LDA,
11866 INTEGER *IPIV,
11867 INTEGER *INFO)
11868 {
11869 DEBUG_LAPACK_STUB("sgetrf");
11870 LAPACK_IMPL(sgetrf)(M,
11871 N,
11872 A,
11873 LDA,
11874 IPIV,
11875 INFO);
11876 }
11877
11878 //-- sgetrs --------------------------------------------------------------------
11879 void
11880 LAPACK_DECL(sgetrs)(const char *TRANS,
11881 const INTEGER *N,
11882 const INTEGER *NRHS,
11883 const FLOAT *A,
11884 const INTEGER *LDA,
11885 const INTEGER *IPIV,
11886 FLOAT *B,
11887 const INTEGER *LDB,
11888 INTEGER *INFO)
11889 {
11890 DEBUG_LAPACK_STUB("sgetrs");
11891 LAPACK_IMPL(sgetrs)(TRANS,
11892 N,
11893 NRHS,
11894 A,
11895 LDA,
11896 IPIV,
11897 B,
11898 LDB,
11899 INFO);
11900 }
11901
11902 //-- sisnan --------------------------------------------------------------------
11903 LOGICAL
11904 LAPACK_DECL(sisnan)(const FLOAT *SIN)
11905 {
11906 DEBUG_LAPACK_STUB("sisnan");
11907 return LAPACK_IMPL(sisnan)(SIN);
11908 }
11909
11910 //-- slag2d --------------------------------------------------------------------
11911 void
11912 LAPACK_DECL(slag2d)(const INTEGER *M,
11913 const INTEGER *N,
11914 const FLOAT *SA,
11915 const INTEGER *LDSA,
11916 DOUBLE *A,
11917 const INTEGER *LDA,
11918 INTEGER *INFO)
11919 {
11920 DEBUG_LAPACK_STUB("slag2d");
11921 LAPACK_IMPL(slag2d)(M,
11922 N,
11923 SA,
11924 LDSA,
11925 A,
11926 LDA,
11927 INFO);
11928 }
11929
11930 //-- slaisnan ------------------------------------------------------------------
11931 LOGICAL
11932 LAPACK_DECL(slaisnan)(const FLOAT *SIN1,
11933 const FLOAT *SIN2)
11934 {
11935 DEBUG_LAPACK_STUB("slaisnan");
11936 return LAPACK_IMPL(slaisnan)(SIN1,
11937 SIN2);
11938 }
11939
11940 //-- slamch --------------------------------------------------------------------
11941 FLOAT
11942 LAPACK_DECL(slamch)(const char *CMACH)
11943 {
11944 DEBUG_LAPACK_STUB("slamch");
11945 return LAPACK_IMPL(slamch)(CMACH);
11946 }
11947
11948 //-- slaswp --------------------------------------------------------------------
11949 void
11950 LAPACK_DECL(slaswp)(const INTEGER *N,
11951 FLOAT *A,
11952 const INTEGER *LDA,
11953 const INTEGER *K1,
11954 const INTEGER *K2,
11955 const INTEGER *IPIV,
11956 const INTEGER *INCX)
11957 {
11958 DEBUG_LAPACK_STUB("slaswp");
11959 LAPACK_IMPL(slaswp)(N,
11960 A,
11961 LDA,
11962 K1,
11963 K2,
11964 IPIV,
11965 INCX);
11966 }
11967
11968 //-- spotf2 --------------------------------------------------------------------
11969 void
11970 LAPACK_DECL(spotf2)(const char *UPLO,
11971 const INTEGER *N,
11972 FLOAT *A,
11973 const INTEGER *LDA,
11974 INTEGER *INFO)
11975 {
11976 DEBUG_LAPACK_STUB("spotf2");
11977 LAPACK_IMPL(spotf2)(UPLO,
11978 N,
11979 A,
11980 LDA,
11981 INFO);
11982 }
11983
11984 //-- spotrf --------------------------------------------------------------------
11985 void
11986 LAPACK_DECL(spotrf)(const char *UPLO,
11987 const INTEGER *N,
11988 FLOAT *A,
11989 const INTEGER *LDA,
11990 INTEGER *INFO)
11991 {
11992 DEBUG_LAPACK_STUB("spotrf");
11993 LAPACK_IMPL(spotrf)(UPLO,
11994 N,
11995 A,
11996 LDA,
11997 INFO);
11998 }
11999
12000 //-- spotrs --------------------------------------------------------------------
12001 void
12002 LAPACK_DECL(spotrs)(const char *UPLO,
12003 const INTEGER *N,
12004 const INTEGER *NRHS,
12005 const FLOAT *A,
12006 const INTEGER *LDA,
12007 FLOAT *B,
12008 const INTEGER *LDB,
12009 INTEGER *INFO)
12010 {
12011 DEBUG_LAPACK_STUB("spotrs");
12012 LAPACK_IMPL(spotrs)(UPLO,
12013 N,
12014 NRHS,
12015 A,
12016 LDA,
12017 B,
12018 LDB,
12019 INFO);
12020 }
12021
2 void
3 LAPACK_DECL(dbbcsd)(const char *JOBU1,
4 const char *JOBU2,
5 const char *JOBV1T,
6 const char *JOBV2T,
7 const char *TRANS,
8 const INTEGER *M,
9 const INTEGER *P,
10 const INTEGER *Q,
11 DOUBLE *THETA,
12 DOUBLE *PHI,
13 DOUBLE *U1,
14 const INTEGER *LDU1,
15 DOUBLE *U2,
16 const INTEGER *LDU2,
17 DOUBLE *V1T,
18 const INTEGER *LDV1T,
19 DOUBLE *V2T,
20 const INTEGER *LDV2T,
21 DOUBLE *B11D,
22 DOUBLE *B11E,
23 DOUBLE *B12D,
24 DOUBLE *B12E,
25 const DOUBLE *B21D,
26 const DOUBLE *B21E,
27 const DOUBLE *B22D,
28 const DOUBLE *B22E,
29 DOUBLE *WORK,
30 const INTEGER *LWORK,
31 INTEGER *INFO)
32 {
33 DEBUG_LAPACK_STUB("dbbcsd");
34 LAPACK_IMPL(dbbcsd)(JOBU1,
35 JOBU2,
36 JOBV1T,
37 JOBV2T,
38 TRANS,
39 M,
40 P,
41 Q,
42 THETA,
43 PHI,
44 U1,
45 LDU1,
46 U2,
47 LDU2,
48 V1T,
49 LDV1T,
50 V2T,
51 LDV2T,
52 B11D,
53 B11E,
54 B12D,
55 B12E,
56 B21D,
57 B21E,
58 B22D,
59 B22E,
60 WORK,
61 LWORK,
62 INFO);
63 }
64
65 //-- dbdsdc --------------------------------------------------------------------
66 void
67 LAPACK_DECL(dbdsdc)(const char *UPLO,
68 const char *COMPQ,
69 const INTEGER *N,
70 DOUBLE *D,
71 DOUBLE *E,
72 DOUBLE *U,
73 const INTEGER *LDU,
74 DOUBLE *VT,
75 const INTEGER *LDVT,
76 DOUBLE *Q,
77 INTEGER *IQ,
78 DOUBLE *WORK,
79 INTEGER *IWORK,
80 INTEGER *INFO)
81 {
82 DEBUG_LAPACK_STUB("dbdsdc");
83 LAPACK_IMPL(dbdsdc)(UPLO,
84 COMPQ,
85 N,
86 D,
87 E,
88 U,
89 LDU,
90 VT,
91 LDVT,
92 Q,
93 IQ,
94 WORK,
95 IWORK,
96 INFO);
97 }
98
99 //-- dbdsqr --------------------------------------------------------------------
100 void
101 LAPACK_DECL(dbdsqr)(const char *UPLO,
102 const INTEGER *N,
103 const INTEGER *NCVT,
104 const INTEGER *NRU,
105 const INTEGER *NCC,
106 DOUBLE *D,
107 DOUBLE *E,
108 DOUBLE *VT,
109 const INTEGER *LDVT,
110 DOUBLE *U,
111 const INTEGER *LDU,
112 DOUBLE *C,
113 const INTEGER *LDC,
114 DOUBLE *WORK,
115 INTEGER *INFO)
116 {
117 DEBUG_LAPACK_STUB("dbdsqr");
118 LAPACK_IMPL(dbdsqr)(UPLO,
119 N,
120 NCVT,
121 NRU,
122 NCC,
123 D,
124 E,
125 VT,
126 LDVT,
127 U,
128 LDU,
129 C,
130 LDC,
131 WORK,
132 INFO);
133 }
134
135 //-- ddisna --------------------------------------------------------------------
136 void
137 LAPACK_DECL(ddisna)(const char *JOB,
138 const INTEGER *M,
139 const INTEGER *N,
140 const DOUBLE *D,
141 DOUBLE *SEP,
142 INTEGER *INFO)
143 {
144 DEBUG_LAPACK_STUB("ddisna");
145 LAPACK_IMPL(ddisna)(JOB,
146 M,
147 N,
148 D,
149 SEP,
150 INFO);
151 }
152
153 //-- dgbbrd --------------------------------------------------------------------
154 void
155 LAPACK_DECL(dgbbrd)(const char *VECT,
156 const INTEGER *M,
157 const INTEGER *N,
158 const INTEGER *NCC,
159 const INTEGER *KL,
160 const INTEGER *KU,
161 DOUBLE *AB,
162 const INTEGER *LDAB,
163 DOUBLE *D,
164 DOUBLE *E,
165 DOUBLE *Q,
166 const INTEGER *LDQ,
167 DOUBLE *PT,
168 const INTEGER *LDPT,
169 DOUBLE *C,
170 const INTEGER *LDC,
171 DOUBLE *WORK,
172 INTEGER *INFO)
173 {
174 DEBUG_LAPACK_STUB("dgbbrd");
175 LAPACK_IMPL(dgbbrd)(VECT,
176 M,
177 N,
178 NCC,
179 KL,
180 KU,
181 AB,
182 LDAB,
183 D,
184 E,
185 Q,
186 LDQ,
187 PT,
188 LDPT,
189 C,
190 LDC,
191 WORK,
192 INFO);
193 }
194
195 //-- dgbcon --------------------------------------------------------------------
196 void
197 LAPACK_DECL(dgbcon)(const char *NORM,
198 const INTEGER *N,
199 const INTEGER *KL,
200 const INTEGER *KU,
201 const DOUBLE *AB,
202 const INTEGER *LDAB,
203 const INTEGER *IPIV,
204 const DOUBLE *ANORM,
205 DOUBLE *RCOND,
206 DOUBLE *WORK,
207 INTEGER *IWORK,
208 INTEGER *INFO)
209 {
210 DEBUG_LAPACK_STUB("dgbcon");
211 LAPACK_IMPL(dgbcon)(NORM,
212 N,
213 KL,
214 KU,
215 AB,
216 LDAB,
217 IPIV,
218 ANORM,
219 RCOND,
220 WORK,
221 IWORK,
222 INFO);
223 }
224
225 //-- dgbequ --------------------------------------------------------------------
226 void
227 LAPACK_DECL(dgbequ)(const INTEGER *M,
228 const INTEGER *N,
229 const INTEGER *KL,
230 const INTEGER *KU,
231 const DOUBLE *AB,
232 const INTEGER *LDAB,
233 DOUBLE *R,
234 DOUBLE *C,
235 DOUBLE *ROWCND,
236 DOUBLE *COLCND,
237 DOUBLE *AMAX,
238 INTEGER *INFO)
239 {
240 DEBUG_LAPACK_STUB("dgbequ");
241 LAPACK_IMPL(dgbequ)(M,
242 N,
243 KL,
244 KU,
245 AB,
246 LDAB,
247 R,
248 C,
249 ROWCND,
250 COLCND,
251 AMAX,
252 INFO);
253 }
254
255 //-- dgbequb -------------------------------------------------------------------
256 void
257 LAPACK_DECL(dgbequb)(const INTEGER *M,
258 const INTEGER *N,
259 const INTEGER *KL,
260 const INTEGER *KU,
261 const DOUBLE *AB,
262 const INTEGER *LDAB,
263 DOUBLE *R,
264 DOUBLE *C,
265 DOUBLE *ROWCND,
266 DOUBLE *COLCND,
267 DOUBLE *AMAX,
268 INTEGER *INFO)
269 {
270 DEBUG_LAPACK_STUB("dgbequb");
271 LAPACK_IMPL(dgbequb)(M,
272 N,
273 KL,
274 KU,
275 AB,
276 LDAB,
277 R,
278 C,
279 ROWCND,
280 COLCND,
281 AMAX,
282 INFO);
283 }
284
285 //-- dgbrfs --------------------------------------------------------------------
286 void
287 LAPACK_DECL(dgbrfs)(const char *TRANS,
288 const INTEGER *N,
289 const INTEGER *KL,
290 const INTEGER *KU,
291 const INTEGER *NRHS,
292 const DOUBLE *AB,
293 const INTEGER *LDAB,
294 const DOUBLE *AFB,
295 const INTEGER *LDAFB,
296 const INTEGER *IPIV,
297 const DOUBLE *B,
298 const INTEGER *LDB,
299 DOUBLE *X,
300 const INTEGER *LDX,
301 DOUBLE *FERR,
302 DOUBLE *BERR,
303 DOUBLE *WORK,
304 INTEGER *IWORK,
305 INTEGER *INFO)
306 {
307 DEBUG_LAPACK_STUB("dgbrfs");
308 LAPACK_IMPL(dgbrfs)(TRANS,
309 N,
310 KL,
311 KU,
312 NRHS,
313 AB,
314 LDAB,
315 AFB,
316 LDAFB,
317 IPIV,
318 B,
319 LDB,
320 X,
321 LDX,
322 FERR,
323 BERR,
324 WORK,
325 IWORK,
326 INFO);
327 }
328
329 //-- dgbsv ---------------------------------------------------------------------
330 void
331 LAPACK_DECL(dgbsv)(const INTEGER *N,
332 const INTEGER *KL,
333 const INTEGER *KU,
334 const INTEGER *NRHS,
335 DOUBLE *AB,
336 const INTEGER *LDAB,
337 INTEGER *IPIV,
338 DOUBLE *B,
339 const INTEGER *LDB,
340 INTEGER *INFO)
341 {
342 DEBUG_LAPACK_STUB("dgbsv");
343 LAPACK_IMPL(dgbsv)(N,
344 KL,
345 KU,
346 NRHS,
347 AB,
348 LDAB,
349 IPIV,
350 B,
351 LDB,
352 INFO);
353 }
354
355 //-- dgbsvx --------------------------------------------------------------------
356 void
357 LAPACK_DECL(dgbsvx)(const char *FACT,
358 const char *TRANS,
359 const INTEGER *N,
360 const INTEGER *KL,
361 const INTEGER *KU,
362 const INTEGER *NRHS,
363 DOUBLE *AB,
364 const INTEGER *LDAB,
365 DOUBLE *AFB,
366 const INTEGER *LDAFB,
367 INTEGER *IPIV,
368 char *EQUED,
369 DOUBLE *R,
370 DOUBLE *C,
371 DOUBLE *B,
372 const INTEGER *LDB,
373 DOUBLE *X,
374 const INTEGER *LDX,
375 DOUBLE *RCOND,
376 DOUBLE *FERR,
377 DOUBLE *BERR,
378 DOUBLE *WORK,
379 INTEGER *IWORK,
380 INTEGER *INFO)
381 {
382 DEBUG_LAPACK_STUB("dgbsvx");
383 LAPACK_IMPL(dgbsvx)(FACT,
384 TRANS,
385 N,
386 KL,
387 KU,
388 NRHS,
389 AB,
390 LDAB,
391 AFB,
392 LDAFB,
393 IPIV,
394 EQUED,
395 R,
396 C,
397 B,
398 LDB,
399 X,
400 LDX,
401 RCOND,
402 FERR,
403 BERR,
404 WORK,
405 IWORK,
406 INFO);
407 }
408
409 //-- dgbtf2 --------------------------------------------------------------------
410 void
411 LAPACK_DECL(dgbtf2)(const INTEGER *M,
412 const INTEGER *N,
413 const INTEGER *KL,
414 const INTEGER *KU,
415 DOUBLE *AB,
416 const INTEGER *LDAB,
417 INTEGER *IPIV,
418 INTEGER *INFO)
419 {
420 DEBUG_LAPACK_STUB("dgbtf2");
421 LAPACK_IMPL(dgbtf2)(M,
422 N,
423 KL,
424 KU,
425 AB,
426 LDAB,
427 IPIV,
428 INFO);
429 }
430
431 //-- dgbtrf --------------------------------------------------------------------
432 void
433 LAPACK_DECL(dgbtrf)(const INTEGER *M,
434 const INTEGER *N,
435 const INTEGER *KL,
436 const INTEGER *KU,
437 DOUBLE *AB,
438 const INTEGER *LDAB,
439 INTEGER *IPIV,
440 INTEGER *INFO)
441 {
442 DEBUG_LAPACK_STUB("dgbtrf");
443 LAPACK_IMPL(dgbtrf)(M,
444 N,
445 KL,
446 KU,
447 AB,
448 LDAB,
449 IPIV,
450 INFO);
451 }
452
453 //-- dgbtrs --------------------------------------------------------------------
454 void
455 LAPACK_DECL(dgbtrs)(const char *TRANS,
456 const INTEGER *N,
457 const INTEGER *KL,
458 const INTEGER *KU,
459 const INTEGER *NRHS,
460 const DOUBLE *AB,
461 const INTEGER *LDAB,
462 const INTEGER *IPIV,
463 DOUBLE *B,
464 const INTEGER *LDB,
465 INTEGER *INFO)
466 {
467 DEBUG_LAPACK_STUB("dgbtrs");
468 LAPACK_IMPL(dgbtrs)(TRANS,
469 N,
470 KL,
471 KU,
472 NRHS,
473 AB,
474 LDAB,
475 IPIV,
476 B,
477 LDB,
478 INFO);
479 }
480
481 //-- dgebak --------------------------------------------------------------------
482 void
483 LAPACK_DECL(dgebak)(const char *JOB,
484 const char *SIDE,
485 const INTEGER *N,
486 const INTEGER *ILO,
487 const INTEGER *IHI,
488 const DOUBLE *SCALE,
489 const INTEGER *M,
490 DOUBLE *V,
491 const INTEGER *LDV,
492 INTEGER *INFO)
493 {
494 DEBUG_LAPACK_STUB("dgebak");
495 LAPACK_IMPL(dgebak)(JOB,
496 SIDE,
497 N,
498 ILO,
499 IHI,
500 SCALE,
501 M,
502 V,
503 LDV,
504 INFO);
505 }
506
507 //-- dgebal --------------------------------------------------------------------
508 void
509 LAPACK_DECL(dgebal)(const char *JOB,
510 const INTEGER *N,
511 DOUBLE *A,
512 const INTEGER *LDA,
513 INTEGER *ILO,
514 INTEGER *IHI,
515 DOUBLE *SCALE,
516 INTEGER *INFO)
517 {
518 DEBUG_LAPACK_STUB("dgebal");
519 LAPACK_IMPL(dgebal)(JOB,
520 N,
521 A,
522 LDA,
523 ILO,
524 IHI,
525 SCALE,
526 INFO);
527 }
528
529 //-- dgebd2 --------------------------------------------------------------------
530 void
531 LAPACK_DECL(dgebd2)(const INTEGER *M,
532 const INTEGER *N,
533 DOUBLE *A,
534 const INTEGER *LDA,
535 DOUBLE *D,
536 DOUBLE *E,
537 DOUBLE *TAUQ,
538 DOUBLE *TAUP,
539 DOUBLE *WORK,
540 INTEGER *INFO)
541 {
542 DEBUG_LAPACK_STUB("dgebd2");
543 LAPACK_IMPL(dgebd2)(M,
544 N,
545 A,
546 LDA,
547 D,
548 E,
549 TAUQ,
550 TAUP,
551 WORK,
552 INFO);
553 }
554
555 //-- dgebrd --------------------------------------------------------------------
556 void
557 LAPACK_DECL(dgebrd)(const INTEGER *M,
558 const INTEGER *N,
559 DOUBLE *A,
560 const INTEGER *LDA,
561 DOUBLE *D,
562 DOUBLE *E,
563 DOUBLE *TAUQ,
564 DOUBLE *TAUP,
565 DOUBLE *WORK,
566 const INTEGER *LWORK,
567 INTEGER *INFO)
568 {
569 DEBUG_LAPACK_STUB("dgebrd");
570 LAPACK_IMPL(dgebrd)(M,
571 N,
572 A,
573 LDA,
574 D,
575 E,
576 TAUQ,
577 TAUP,
578 WORK,
579 LWORK,
580 INFO);
581 }
582
583 //-- dgecon --------------------------------------------------------------------
584 /*
585 void
586 LAPACK_DECL(dgecon)(const char *NORM,
587 const INTEGER *N,
588 const DOUBLE *A,
589 const INTEGER *LDA,
590 const DOUBLE *ANORM,
591 DOUBLE *RCOND,
592 DOUBLE *WORK,
593 INTEGER *IWORK,
594 INTEGER *INFO)
595 {
596 DEBUG_LAPACK_STUB("dgecon");
597 LAPACK_IMPL(dgecon)(NORM,
598 N,
599 A,
600 LDA,
601 ANORM,
602 RCOND,
603 WORK,
604 IWORK,
605 INFO);
606 }
607 */
608 //-- dgeequ --------------------------------------------------------------------
609 /*
610 void
611 LAPACK_DECL(dgeequ)(const INTEGER *M,
612 const INTEGER *N,
613 const DOUBLE *A,
614 const INTEGER *LDA,
615 DOUBLE *R,
616 DOUBLE *C,
617 DOUBLE *ROWCND,
618 DOUBLE *COLCND,
619 DOUBLE *AMAX,
620 INTEGER *INFO)
621 {
622 DEBUG_LAPACK_STUB("dgeequ");
623 LAPACK_IMPL(dgeequ)(M,
624 N,
625 A,
626 LDA,
627 R,
628 C,
629 ROWCND,
630 COLCND,
631 AMAX,
632 INFO);
633 }
634 */
635 //-- dgeequb -------------------------------------------------------------------
636 void
637 LAPACK_DECL(dgeequb)(const INTEGER *M,
638 const INTEGER *N,
639 const DOUBLE *A,
640 const INTEGER *LDA,
641 DOUBLE *R,
642 DOUBLE *C,
643 DOUBLE *ROWCND,
644 DOUBLE *COLCND,
645 DOUBLE *AMAX,
646 INTEGER *INFO)
647 {
648 DEBUG_LAPACK_STUB("dgeequb");
649 LAPACK_IMPL(dgeequb)(M,
650 N,
651 A,
652 LDA,
653 R,
654 C,
655 ROWCND,
656 COLCND,
657 AMAX,
658 INFO);
659 }
660
661 //-- dgees ---------------------------------------------------------------------
662 /*
663 void
664 LAPACK_DECL(dgees)(const char *JOBVS,
665 const char *SORT,
666 const LOGICAL *SELECT,
667 const INTEGER *N,
668 DOUBLE *A,
669 const INTEGER *LDA,
670 INTEGER *SDIM,
671 DOUBLE *WR,
672 DOUBLE *WI,
673 DOUBLE *VS,
674 const INTEGER *LDVS,
675 DOUBLE *WORK,
676 const INTEGER *LWORK,
677 LOGICAL *BWORK,
678 INTEGER *INFO)
679 {
680 DEBUG_LAPACK_STUB("dgees");
681 LAPACK_IMPL(dgees)(JOBVS,
682 SORT,
683 SELECT,
684 N,
685 A,
686 LDA,
687 SDIM,
688 WR,
689 WI,
690 VS,
691 LDVS,
692 WORK,
693 LWORK,
694 BWORK,
695 INFO);
696 }
697 */
698 //-- dgeesx --------------------------------------------------------------------
699 /*
700 void
701 LAPACK_DECL(dgeesx)(const char *JOBVS,
702 const char *SORT,
703 const LOGICAL *SELECT,
704 const char *SENSE,
705 const INTEGER *N,
706 DOUBLE *A,
707 const INTEGER *LDA,
708 INTEGER *SDIM,
709 DOUBLE *WR,
710 DOUBLE *WI,
711 DOUBLE *VS,
712 const INTEGER *LDVS,
713 DOUBLE *RCONDE,
714 DOUBLE *RCONDV,
715 DOUBLE *WORK,
716 const INTEGER *LWORK,
717 INTEGER *IWORK,
718 const INTEGER *LIWORK,
719 LOGICAL *BWORK,
720 INTEGER *INFO)
721 {
722 DEBUG_LAPACK_STUB("dgeesx");
723 LAPACK_IMPL(dgeesx)(JOBVS,
724 SORT,
725 SELECT,
726 SENSE,
727 N,
728 A,
729 LDA,
730 SDIM,
731 WR,
732 WI,
733 VS,
734 LDVS,
735 RCONDE,
736 RCONDV,
737 WORK,
738 LWORK,
739 IWORK,
740 LIWORK,
741 BWORK,
742 INFO);
743 }
744 */
745 //-- dgeev ---------------------------------------------------------------------
746 /*
747 void
748 LAPACK_DECL(dgeev)(const char *JOBVL,
749 const char *JOBVR,
750 const INTEGER *N,
751 DOUBLE *A,
752 const INTEGER *LDA,
753 DOUBLE *WR,
754 DOUBLE *WI,
755 DOUBLE *VL,
756 const INTEGER *LDVL,
757 DOUBLE *VR,
758 const INTEGER *LDVR,
759 DOUBLE *WORK,
760 const INTEGER *LWORK,
761 INTEGER *INFO)
762 {
763 DEBUG_LAPACK_STUB("dgeev");
764 LAPACK_IMPL(dgeev)(JOBVL,
765 JOBVR,
766 N,
767 A,
768 LDA,
769 WR,
770 WI,
771 VL,
772 LDVL,
773 VR,
774 LDVR,
775 WORK,
776 LWORK,
777 INFO);
778 }
779 */
780 //-- dgeevx --------------------------------------------------------------------
781 /*
782 void
783 LAPACK_DECL(dgeevx)(const char *BALANC,
784 const char *JOBVL,
785 const char *JOBVR,
786 const char *SENSE,
787 const INTEGER *N,
788 DOUBLE *A,
789 const INTEGER *LDA,
790 DOUBLE *WR,
791 DOUBLE *WI,
792 DOUBLE *VL,
793 const INTEGER *LDVL,
794 DOUBLE *VR,
795 const INTEGER *LDVR,
796 INTEGER *ILO,
797 INTEGER *IHI,
798 DOUBLE *SCALE,
799 DOUBLE *ABNRM,
800 DOUBLE *RCONDE,
801 DOUBLE *RCONDV,
802 DOUBLE *WORK,
803 const INTEGER *LWORK,
804 INTEGER *IWORK,
805 INTEGER *INFO)
806 {
807 DEBUG_LAPACK_STUB("dgeevx");
808 LAPACK_IMPL(dgeevx)(BALANC,
809 JOBVL,
810 JOBVR,
811 SENSE,
812 N,
813 A,
814 LDA,
815 WR,
816 WI,
817 VL,
818 LDVL,
819 VR,
820 LDVR,
821 ILO,
822 IHI,
823 SCALE,
824 ABNRM,
825 RCONDE,
826 RCONDV,
827 WORK,
828 LWORK,
829 IWORK,
830 INFO);
831 }
832 */
833 //-- dgegs ---------------------------------------------------------------------
834 void
835 LAPACK_DECL(dgegs)(const char *JOBVSL,
836 const char *JOBVSR,
837 const INTEGER *N,
838 DOUBLE *A,
839 const INTEGER *LDA,
840 DOUBLE *B,
841 const INTEGER *LDB,
842 DOUBLE *ALPHAR,
843 DOUBLE *ALPHAI,
844 DOUBLE *BETA,
845 DOUBLE *VSL,
846 const INTEGER *LDVSL,
847 DOUBLE *VSR,
848 const INTEGER *LDVSR,
849 DOUBLE *WORK,
850 const INTEGER *LWORK,
851 INTEGER *INFO)
852 {
853 DEBUG_LAPACK_STUB("dgegs");
854 LAPACK_IMPL(dgegs)(JOBVSL,
855 JOBVSR,
856 N,
857 A,
858 LDA,
859 B,
860 LDB,
861 ALPHAR,
862 ALPHAI,
863 BETA,
864 VSL,
865 LDVSL,
866 VSR,
867 LDVSR,
868 WORK,
869 LWORK,
870 INFO);
871 }
872
873 //-- dgegv ---------------------------------------------------------------------
874 void
875 LAPACK_DECL(dgegv)(const char *JOBVL,
876 const char *JOBVR,
877 const INTEGER *N,
878 DOUBLE *A,
879 const INTEGER *LDA,
880 DOUBLE *B,
881 const INTEGER *LDB,
882 DOUBLE *ALPHAR,
883 DOUBLE *ALPHAI,
884 DOUBLE *BETA,
885 DOUBLE *VL,
886 const INTEGER *LDVL,
887 DOUBLE *VR,
888 const INTEGER *LDVR,
889 DOUBLE *WORK,
890 const INTEGER *LWORK,
891 INTEGER *INFO)
892 {
893 DEBUG_LAPACK_STUB("dgegv");
894 LAPACK_IMPL(dgegv)(JOBVL,
895 JOBVR,
896 N,
897 A,
898 LDA,
899 B,
900 LDB,
901 ALPHAR,
902 ALPHAI,
903 BETA,
904 VL,
905 LDVL,
906 VR,
907 LDVR,
908 WORK,
909 LWORK,
910 INFO);
911 }
912
913 //-- dgehd2 --------------------------------------------------------------------
914 void
915 LAPACK_DECL(dgehd2)(const INTEGER *N,
916 const INTEGER *ILO,
917 const INTEGER *IHI,
918 DOUBLE *A,
919 const INTEGER *LDA,
920 DOUBLE *TAU,
921 DOUBLE *WORK,
922 INTEGER *INFO)
923 {
924 DEBUG_LAPACK_STUB("dgehd2");
925 LAPACK_IMPL(dgehd2)(N,
926 ILO,
927 IHI,
928 A,
929 LDA,
930 TAU,
931 WORK,
932 INFO);
933 }
934
935 //-- dgehrd --------------------------------------------------------------------
936 void
937 LAPACK_DECL(dgehrd)(const INTEGER *N,
938 const INTEGER *ILO,
939 const INTEGER *IHI,
940 DOUBLE *A,
941 const INTEGER *LDA,
942 DOUBLE *TAU,
943 DOUBLE *WORK,
944 const INTEGER *LWORK,
945 INTEGER *INFO)
946 {
947 DEBUG_LAPACK_STUB("dgehrd");
948 LAPACK_IMPL(dgehrd)(N,
949 ILO,
950 IHI,
951 A,
952 LDA,
953 TAU,
954 WORK,
955 LWORK,
956 INFO);
957 }
958
959 //-- dgejsv --------------------------------------------------------------------
960 /*
961 void
962 LAPACK_DECL(dgejsv)(const char *JOBA,
963 const char *JOBU,
964 const char *JOBV,
965 const char *JOBR,
966 const char *JOBT,
967 const char *JOBP,
968 const INTEGER *M,
969 const INTEGER *N,
970 DOUBLE *A,
971 const INTEGER *LDA,
972 DOUBLE *SVA,
973 DOUBLE *U,
974 const INTEGER *LDU,
975 DOUBLE *V,
976 const INTEGER *LDV,
977 DOUBLE *WORK,
978 const INTEGER *LWORK,
979 INTEGER *IWORK,
980 INTEGER *INFO)
981 {
982 DEBUG_LAPACK_STUB("dgejsv");
983 LAPACK_IMPL(dgejsv)(JOBA,
984 JOBU,
985 JOBV,
986 JOBR,
987 JOBT,
988 JOBP,
989 M,
990 N,
991 A,
992 LDA,
993 SVA,
994 U,
995 LDU,
996 V,
997 LDV,
998 WORK,
999 LWORK,
1000 IWORK,
1001 INFO);
1002 }
1003 */
1004 //-- dgelq2 --------------------------------------------------------------------
1005 void
1006 LAPACK_DECL(dgelq2)(const INTEGER *M,
1007 const INTEGER *N,
1008 DOUBLE *A,
1009 const INTEGER *LDA,
1010 DOUBLE *TAU,
1011 DOUBLE *WORK,
1012 INTEGER *INFO)
1013 {
1014 DEBUG_LAPACK_STUB("dgelq2");
1015 LAPACK_IMPL(dgelq2)(M,
1016 N,
1017 A,
1018 LDA,
1019 TAU,
1020 WORK,
1021 INFO);
1022 }
1023
1024 //-- dgelqf --------------------------------------------------------------------
1025 /*
1026 void
1027 LAPACK_DECL(dgelqf)(const INTEGER *M,
1028 const INTEGER *N,
1029 DOUBLE *A,
1030 const INTEGER *LDA,
1031 DOUBLE *TAU,
1032 DOUBLE *WORK,
1033 const INTEGER *LWORK,
1034 INTEGER *INFO)
1035 {
1036 DEBUG_LAPACK_STUB("dgelqf");
1037 LAPACK_IMPL(dgelqf)(M,
1038 N,
1039 A,
1040 LDA,
1041 TAU,
1042 WORK,
1043 LWORK,
1044 INFO);
1045 }
1046 */
1047 //-- dgels ---------------------------------------------------------------------
1048 /*
1049 void
1050 LAPACK_DECL(dgels)(const char *TRANS,
1051 const INTEGER *M,
1052 const INTEGER *N,
1053 const INTEGER *NRHS,
1054 DOUBLE *A,
1055 const INTEGER *LDA,
1056 DOUBLE *B,
1057 const INTEGER *LDB,
1058 DOUBLE *WORK,
1059 const INTEGER *LWORK,
1060 INTEGER *INFO)
1061 {
1062 DEBUG_LAPACK_STUB("dgels");
1063 LAPACK_IMPL(dgels)(TRANS,
1064 M,
1065 N,
1066 NRHS,
1067 A,
1068 LDA,
1069 B,
1070 LDB,
1071 WORK,
1072 LWORK,
1073 INFO);
1074 }
1075 */
1076 //-- dgelsd --------------------------------------------------------------------
1077 void
1078 LAPACK_DECL(dgelsd)(const INTEGER *M,
1079 const INTEGER *N,
1080 const INTEGER *NRHS,
1081 const DOUBLE *A,
1082 const INTEGER *LDA,
1083 DOUBLE *B,
1084 const INTEGER *LDB,
1085 DOUBLE *S,
1086 const DOUBLE *RCOND,
1087 INTEGER *RANK,
1088 DOUBLE *WORK,
1089 const INTEGER *LWORK,
1090 INTEGER *IWORK,
1091 INTEGER *INFO)
1092 {
1093 DEBUG_LAPACK_STUB("dgelsd");
1094 LAPACK_IMPL(dgelsd)(M,
1095 N,
1096 NRHS,
1097 A,
1098 LDA,
1099 B,
1100 LDB,
1101 S,
1102 RCOND,
1103 RANK,
1104 WORK,
1105 LWORK,
1106 IWORK,
1107 INFO);
1108 }
1109
1110 //-- dgelss --------------------------------------------------------------------
1111 void
1112 LAPACK_DECL(dgelss)(const INTEGER *M,
1113 const INTEGER *N,
1114 const INTEGER *NRHS,
1115 DOUBLE *A,
1116 const INTEGER *LDA,
1117 DOUBLE *B,
1118 const INTEGER *LDB,
1119 DOUBLE *S,
1120 const DOUBLE *RCOND,
1121 INTEGER *RANK,
1122 DOUBLE *WORK,
1123 const INTEGER *LWORK,
1124 INTEGER *INFO)
1125 {
1126 DEBUG_LAPACK_STUB("dgelss");
1127 LAPACK_IMPL(dgelss)(M,
1128 N,
1129 NRHS,
1130 A,
1131 LDA,
1132 B,
1133 LDB,
1134 S,
1135 RCOND,
1136 RANK,
1137 WORK,
1138 LWORK,
1139 INFO);
1140 }
1141
1142 //-- dgelsx --------------------------------------------------------------------
1143 void
1144 LAPACK_DECL(dgelsx)(const INTEGER *M,
1145 const INTEGER *N,
1146 const INTEGER *NRHS,
1147 DOUBLE *A,
1148 const INTEGER *LDA,
1149 DOUBLE *B,
1150 const INTEGER *LDB,
1151 INTEGER *JPVT,
1152 const DOUBLE *RCOND,
1153 INTEGER *RANK,
1154 DOUBLE *WORK,
1155 INTEGER *INFO)
1156 {
1157 DEBUG_LAPACK_STUB("dgelsx");
1158 LAPACK_IMPL(dgelsx)(M,
1159 N,
1160 NRHS,
1161 A,
1162 LDA,
1163 B,
1164 LDB,
1165 JPVT,
1166 RCOND,
1167 RANK,
1168 WORK,
1169 INFO);
1170 }
1171
1172 //-- dgelsy --------------------------------------------------------------------
1173 void
1174 LAPACK_DECL(dgelsy)(const INTEGER *M,
1175 const INTEGER *N,
1176 const INTEGER *NRHS,
1177 DOUBLE *A,
1178 const INTEGER *LDA,
1179 DOUBLE *B,
1180 const INTEGER *LDB,
1181 INTEGER *JPVT,
1182 const DOUBLE *RCOND,
1183 INTEGER *RANK,
1184 DOUBLE *WORK,
1185 const INTEGER *LWORK,
1186 INTEGER *INFO)
1187 {
1188 DEBUG_LAPACK_STUB("dgelsy");
1189 LAPACK_IMPL(dgelsy)(M,
1190 N,
1191 NRHS,
1192 A,
1193 LDA,
1194 B,
1195 LDB,
1196 JPVT,
1197 RCOND,
1198 RANK,
1199 WORK,
1200 LWORK,
1201 INFO);
1202 }
1203
1204 //-- dgeql2 --------------------------------------------------------------------
1205 void
1206 LAPACK_DECL(dgeql2)(const INTEGER *M,
1207 const INTEGER *N,
1208 DOUBLE *A,
1209 const INTEGER *LDA,
1210 DOUBLE *TAU,
1211 DOUBLE *WORK,
1212 INTEGER *INFO)
1213 {
1214 DEBUG_LAPACK_STUB("dgeql2");
1215 LAPACK_IMPL(dgeql2)(M,
1216 N,
1217 A,
1218 LDA,
1219 TAU,
1220 WORK,
1221 INFO);
1222 }
1223
1224 //-- dgeqlf --------------------------------------------------------------------
1225 void
1226 LAPACK_DECL(dgeqlf)(const INTEGER *M,
1227 const INTEGER *N,
1228 DOUBLE *A,
1229 const INTEGER *LDA,
1230 DOUBLE *TAU,
1231 DOUBLE *WORK,
1232 const INTEGER *LWORK,
1233 INTEGER *INFO)
1234 {
1235 DEBUG_LAPACK_STUB("dgeqlf");
1236 LAPACK_IMPL(dgeqlf)(M,
1237 N,
1238 A,
1239 LDA,
1240 TAU,
1241 WORK,
1242 LWORK,
1243 INFO);
1244 }
1245
1246 //-- dgeqp3 --------------------------------------------------------------------
1247 /*
1248 void
1249 LAPACK_DECL(dgeqp3)(const INTEGER *M,
1250 const INTEGER *N,
1251 DOUBLE *A,
1252 const INTEGER *LDA,
1253 INTEGER *JPVT,
1254 DOUBLE *TAU,
1255 DOUBLE *WORK,
1256 const INTEGER *LWORK,
1257 INTEGER *INFO)
1258 {
1259 DEBUG_LAPACK_STUB("dgeqp3");
1260 LAPACK_IMPL(dgeqp3)(M,
1261 N,
1262 A,
1263 LDA,
1264 JPVT,
1265 TAU,
1266 WORK,
1267 LWORK,
1268 INFO);
1269 }
1270 */
1271
1272 //-- dgeqpf --------------------------------------------------------------------
1273 void
1274 LAPACK_DECL(dgeqpf)(const INTEGER *M,
1275 const INTEGER *N,
1276 DOUBLE *A,
1277 const INTEGER *LDA,
1278 INTEGER *JPVT,
1279 DOUBLE *TAU,
1280 DOUBLE *WORK,
1281 INTEGER *INFO)
1282 {
1283 DEBUG_LAPACK_STUB("dgeqpf");
1284 LAPACK_IMPL(dgeqpf)(M,
1285 N,
1286 A,
1287 LDA,
1288 JPVT,
1289 TAU,
1290 WORK,
1291 INFO);
1292 }
1293
1294 //-- dgeqr2 --------------------------------------------------------------------
1295 void
1296 LAPACK_DECL(dgeqr2)(const INTEGER *M,
1297 const INTEGER *N,
1298 DOUBLE *A,
1299 const INTEGER *LDA,
1300 DOUBLE *TAU,
1301 DOUBLE *WORK,
1302 INTEGER *INFO)
1303 {
1304 DEBUG_LAPACK_STUB("dgeqr2");
1305 LAPACK_IMPL(dgeqr2)(M,
1306 N,
1307 A,
1308 LDA,
1309 TAU,
1310 WORK,
1311 INFO);
1312 }
1313
1314 //-- dgeqr2p -------------------------------------------------------------------
1315 void
1316 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
1317 const INTEGER *N,
1318 DOUBLE *A,
1319 const INTEGER *LDA,
1320 DOUBLE *TAU,
1321 DOUBLE *WORK,
1322 INTEGER *INFO)
1323 {
1324 DEBUG_LAPACK_STUB("dgeqr2p");
1325 LAPACK_IMPL(dgeqr2p)(M,
1326 N,
1327 A,
1328 LDA,
1329 TAU,
1330 WORK,
1331 INFO);
1332 }
1333
1334 //-- dgeqrf --------------------------------------------------------------------
1335 /*
1336 void
1337 LAPACK_DECL(dgeqrf)(const INTEGER *M,
1338 const INTEGER *N,
1339 DOUBLE *A,
1340 const INTEGER *LDA,
1341 DOUBLE *TAU,
1342 DOUBLE *WORK,
1343 const INTEGER *LWORK,
1344 INTEGER *INFO)
1345 {
1346 DEBUG_LAPACK_STUB("dgeqrf");
1347 LAPACK_IMPL(dgeqrf)(M,
1348 N,
1349 A,
1350 LDA,
1351 TAU,
1352 WORK,
1353 LWORK,
1354 INFO);
1355 }
1356 */
1357 //-- dgeqrfp -------------------------------------------------------------------
1358 void
1359 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
1360 const INTEGER *N,
1361 DOUBLE *A,
1362 const INTEGER *LDA,
1363 DOUBLE *TAU,
1364 DOUBLE *WORK,
1365 const INTEGER *LWORK,
1366 INTEGER *INFO)
1367 {
1368 DEBUG_LAPACK_STUB("dgeqrfp");
1369 LAPACK_IMPL(dgeqrfp)(M,
1370 N,
1371 A,
1372 LDA,
1373 TAU,
1374 WORK,
1375 LWORK,
1376 INFO);
1377 }
1378
1379 //-- dgerfs --------------------------------------------------------------------
1380 /*
1381 void
1382 LAPACK_DECL(dgerfs)(const char *TRANS,
1383 const INTEGER *N,
1384 const INTEGER *NRHS,
1385 const DOUBLE *A,
1386 const INTEGER *LDA,
1387 const DOUBLE *AF,
1388 const INTEGER *LDAF,
1389 const INTEGER *IPIV,
1390 const DOUBLE *B,
1391 const INTEGER *LDB,
1392 DOUBLE *X,
1393 const INTEGER *LDX,
1394 DOUBLE *FERR,
1395 DOUBLE *BERR,
1396 DOUBLE *WORK,
1397 INTEGER *IWORK,
1398 INTEGER *INFO)
1399 {
1400 DEBUG_LAPACK_STUB("dgerfs");
1401 LAPACK_IMPL(dgerfs)(TRANS,
1402 N,
1403 NRHS,
1404 A,
1405 LDA,
1406 AF,
1407 LDAF,
1408 IPIV,
1409 B,
1410 LDB,
1411 X,
1412 LDX,
1413 FERR,
1414 BERR,
1415 WORK,
1416 IWORK,
1417 INFO);
1418 }
1419 */
1420 //-- dgerq2 --------------------------------------------------------------------
1421 void
1422 LAPACK_DECL(dgerq2)(const INTEGER *M,
1423 const INTEGER *N,
1424 DOUBLE *A,
1425 const INTEGER *LDA,
1426 DOUBLE *TAU,
1427 DOUBLE *WORK,
1428 INTEGER *INFO)
1429 {
1430 DEBUG_LAPACK_STUB("dgerq2");
1431 LAPACK_IMPL(dgerq2)(M,
1432 N,
1433 A,
1434 LDA,
1435 TAU,
1436 WORK,
1437 INFO);
1438 }
1439
1440 //-- dgerqf --------------------------------------------------------------------
1441 void
1442 LAPACK_DECL(dgerqf)(const INTEGER *M,
1443 const INTEGER *N,
1444 DOUBLE *A,
1445 const INTEGER *LDA,
1446 DOUBLE *TAU,
1447 DOUBLE *WORK,
1448 const INTEGER *LWORK,
1449 INTEGER *INFO)
1450 {
1451 DEBUG_LAPACK_STUB("dgerqf");
1452 LAPACK_IMPL(dgerqf)(M,
1453 N,
1454 A,
1455 LDA,
1456 TAU,
1457 WORK,
1458 LWORK,
1459 INFO);
1460 }
1461
1462 //-- dgesc2 --------------------------------------------------------------------
1463 void
1464 LAPACK_DECL(dgesc2)(const INTEGER *N,
1465 const DOUBLE *A,
1466 const INTEGER *LDA,
1467 DOUBLE *RHS,
1468 const INTEGER *IPIV,
1469 const INTEGER *JPIV,
1470 DOUBLE *SCALE)
1471 {
1472 DEBUG_LAPACK_STUB("dgesc2");
1473 LAPACK_IMPL(dgesc2)(N,
1474 A,
1475 LDA,
1476 RHS,
1477 IPIV,
1478 JPIV,
1479 SCALE);
1480 }
1481
1482 //-- dgesdd --------------------------------------------------------------------
1483 void
1484 LAPACK_DECL(dgesdd)(const char *JOBZ,
1485 const INTEGER *M,
1486 const INTEGER *N,
1487 DOUBLE *A,
1488 const INTEGER *LDA,
1489 DOUBLE *S,
1490 DOUBLE *U,
1491 const INTEGER *LDU,
1492 DOUBLE *VT,
1493 const INTEGER *LDVT,
1494 DOUBLE *WORK,
1495 const INTEGER *LWORK,
1496 INTEGER *IWORK,
1497 INTEGER *INFO)
1498 {
1499 DEBUG_LAPACK_STUB("dgesdd");
1500 LAPACK_IMPL(dgesdd)(JOBZ,
1501 M,
1502 N,
1503 A,
1504 LDA,
1505 S,
1506 U,
1507 LDU,
1508 VT,
1509 LDVT,
1510 WORK,
1511 LWORK,
1512 IWORK,
1513 INFO);
1514 }
1515
1516 //-- dgesv ---------------------------------------------------------------------
1517 /*
1518 void
1519 LAPACK_DECL(dgesv)(const INTEGER *N,
1520 const INTEGER *NRHS,
1521 DOUBLE *A,
1522 const INTEGER *LDA,
1523 INTEGER *IPIV,
1524 DOUBLE *B,
1525 const INTEGER *LDB,
1526 INTEGER *INFO)
1527 {
1528 DEBUG_LAPACK_STUB("dgesv");
1529 LAPACK_IMPL(dgesv)(N,
1530 NRHS,
1531 A,
1532 LDA,
1533 IPIV,
1534 B,
1535 LDB,
1536 INFO);
1537 }
1538 */
1539 //-- dgesvd --------------------------------------------------------------------
1540 void
1541 LAPACK_DECL(dgesvd)(const char *JOBU,
1542 const char *JOBVT,
1543 const INTEGER *M,
1544 const INTEGER *N,
1545 DOUBLE *A,
1546 const INTEGER *LDA,
1547 DOUBLE *S,
1548 DOUBLE *U,
1549 const INTEGER *LDU,
1550 DOUBLE *VT,
1551 const INTEGER *LDVT,
1552 DOUBLE *WORK,
1553 const INTEGER *LWORK,
1554 INTEGER *INFO)
1555 {
1556 DEBUG_LAPACK_STUB("dgesvd");
1557 LAPACK_IMPL(dgesvd)(JOBU,
1558 JOBVT,
1559 M,
1560 N,
1561 A,
1562 LDA,
1563 S,
1564 U,
1565 LDU,
1566 VT,
1567 LDVT,
1568 WORK,
1569 LWORK,
1570 INFO);
1571 }
1572
1573 //-- dgesvj --------------------------------------------------------------------
1574 /*
1575 void
1576 LAPACK_DECL(dgesvj)(const char *JOBA,
1577 const char *JOBU,
1578 const char *JOBV,
1579 const INTEGER *M,
1580 const INTEGER *N,
1581 DOUBLE *A,
1582 const INTEGER *LDA,
1583 DOUBLE *SVA,
1584 const INTEGER *MV,
1585 DOUBLE *V,
1586 const INTEGER *LDV,
1587 DOUBLE *WORK,
1588 const INTEGER *LWORK,
1589 INTEGER *INFO)
1590 {
1591 DEBUG_LAPACK_STUB("dgesvj");
1592 LAPACK_IMPL(dgesvj)(JOBA,
1593 JOBU,
1594 JOBV,
1595 M,
1596 N,
1597 A,
1598 LDA,
1599 SVA,
1600 MV,
1601 V,
1602 LDV,
1603 WORK,
1604 LWORK,
1605 INFO);
1606 }
1607 */
1608 //-- dgesvx --------------------------------------------------------------------
1609 /*
1610 void
1611 LAPACK_DECL(dgesvx)(const char *FACT,
1612 const char *TRANS,
1613 const INTEGER *N,
1614 const INTEGER *NRHS,
1615 DOUBLE *A,
1616 const INTEGER *LDA,
1617 DOUBLE *AF,
1618 const INTEGER *LDAF,
1619 INTEGER *IPIV,
1620 char *EQUED,
1621 DOUBLE *R,
1622 DOUBLE *C,
1623 DOUBLE *B,
1624 const INTEGER *LDB,
1625 DOUBLE *X,
1626 const INTEGER *LDX,
1627 DOUBLE *RCOND,
1628 DOUBLE *FERR,
1629 DOUBLE *BERR,
1630 DOUBLE *WORK,
1631 INTEGER *IWORK,
1632 INTEGER *INFO)
1633 {
1634 DEBUG_LAPACK_STUB("dgesvx");
1635 LAPACK_IMPL(dgesvx)(FACT,
1636 TRANS,
1637 N,
1638 NRHS,
1639 A,
1640 LDA,
1641 AF,
1642 LDAF,
1643 IPIV,
1644 EQUED,
1645 R,
1646 C,
1647 B,
1648 LDB,
1649 X,
1650 LDX,
1651 RCOND,
1652 FERR,
1653 BERR,
1654 WORK,
1655 IWORK,
1656 INFO);
1657 }
1658 */
1659 //-- dgetc2 --------------------------------------------------------------------
1660 void
1661 LAPACK_DECL(dgetc2)(const INTEGER *N,
1662 DOUBLE *A,
1663 const INTEGER *LDA,
1664 INTEGER *IPIV,
1665 INTEGER *JPIV,
1666 INTEGER *INFO)
1667 {
1668 DEBUG_LAPACK_STUB("dgetc2");
1669 LAPACK_IMPL(dgetc2)(N,
1670 A,
1671 LDA,
1672 IPIV,
1673 JPIV,
1674 INFO);
1675 }
1676
1677 //-- dgetf2 --------------------------------------------------------------------
1678 void
1679 LAPACK_DECL(dgetf2)(const INTEGER *M,
1680 const INTEGER *N,
1681 DOUBLE *A,
1682 const INTEGER *LDA,
1683 INTEGER *IPIV,
1684 INTEGER *INFO)
1685 {
1686 DEBUG_LAPACK_STUB("dgetf2");
1687 LAPACK_IMPL(dgetf2)(M,
1688 N,
1689 A,
1690 LDA,
1691 IPIV,
1692 INFO);
1693 }
1694
1695 //-- dgetrf --------------------------------------------------------------------
1696 /*
1697 void
1698 LAPACK_DECL(dgetrf)(const INTEGER *M,
1699 const INTEGER *N,
1700 DOUBLE *A,
1701 const INTEGER *LDA,
1702 INTEGER *IPIV,
1703 INTEGER *INFO)
1704 {
1705 DEBUG_LAPACK_STUB("dgetrf");
1706 LAPACK_IMPL(dgetrf)(M,
1707 N,
1708 A,
1709 LDA,
1710 IPIV,
1711 INFO);
1712 }
1713 */
1714 //-- dgetri --------------------------------------------------------------------
1715 /*
1716 void
1717 LAPACK_DECL(dgetri)(const INTEGER *N,
1718 DOUBLE *A,
1719 const INTEGER *LDA,
1720 const INTEGER *IPIV,
1721 DOUBLE *WORK,
1722 const INTEGER *LWORK,
1723 INTEGER *INFO)
1724 {
1725 DEBUG_LAPACK_STUB("dgetri");
1726 LAPACK_IMPL(dgetri)(N,
1727 A,
1728 LDA,
1729 IPIV,
1730 WORK,
1731 LWORK,
1732 INFO);
1733 }
1734 */
1735 //-- dgetrs --------------------------------------------------------------------
1736 /*
1737 void
1738 LAPACK_DECL(dgetrs)(const char *TRANS,
1739 const INTEGER *N,
1740 const INTEGER *NRHS,
1741 const DOUBLE *A,
1742 const INTEGER *LDA,
1743 const INTEGER *IPIV,
1744 DOUBLE *B,
1745 const INTEGER *LDB,
1746 INTEGER *INFO)
1747 {
1748 DEBUG_LAPACK_STUB("dgetrs");
1749 LAPACK_IMPL(dgetrs)(TRANS,
1750 N,
1751 NRHS,
1752 A,
1753 LDA,
1754 IPIV,
1755 B,
1756 LDB,
1757 INFO);
1758 }
1759 */
1760 //-- dggbak --------------------------------------------------------------------
1761 void
1762 LAPACK_DECL(dggbak)(const char *JOB,
1763 const char *SIDE,
1764 const INTEGER *N,
1765 const INTEGER *ILO,
1766 const INTEGER *IHI,
1767 const DOUBLE *LSCALE,
1768 const DOUBLE *RSCALE,
1769 const INTEGER *M,
1770 DOUBLE *V,
1771 const INTEGER *LDV,
1772 INTEGER *INFO)
1773 {
1774 DEBUG_LAPACK_STUB("dggbak");
1775 LAPACK_IMPL(dggbak)(JOB,
1776 SIDE,
1777 N,
1778 ILO,
1779 IHI,
1780 LSCALE,
1781 RSCALE,
1782 M,
1783 V,
1784 LDV,
1785 INFO);
1786 }
1787
1788 //-- dggbal --------------------------------------------------------------------
1789 void
1790 LAPACK_DECL(dggbal)(const char *JOB,
1791 const INTEGER *N,
1792 DOUBLE *A,
1793 const INTEGER *LDA,
1794 DOUBLE *B,
1795 const INTEGER *LDB,
1796 INTEGER *ILO,
1797 INTEGER *IHI,
1798 DOUBLE *LSCALE,
1799 DOUBLE *RSCALE,
1800 DOUBLE *WORK,
1801 INTEGER *INFO)
1802 {
1803 DEBUG_LAPACK_STUB("dggbal");
1804 LAPACK_IMPL(dggbal)(JOB,
1805 N,
1806 A,
1807 LDA,
1808 B,
1809 LDB,
1810 ILO,
1811 IHI,
1812 LSCALE,
1813 RSCALE,
1814 WORK,
1815 INFO);
1816 }
1817
1818 //-- dgges ---------------------------------------------------------------------
1819 void
1820 LAPACK_DECL(dgges)(const char *JOBVSL,
1821 const char *JOBVSR,
1822 const char *SORT,
1823 const LOGICAL *SELCTG,
1824 const INTEGER *N,
1825 DOUBLE *A,
1826 const INTEGER *LDA,
1827 DOUBLE *B,
1828 const INTEGER *LDB,
1829 INTEGER *SDIM,
1830 DOUBLE *ALPHAR,
1831 DOUBLE *ALPHAI,
1832 DOUBLE *BETA,
1833 DOUBLE *VSL,
1834 const INTEGER *LDVSL,
1835 DOUBLE *VSR,
1836 const INTEGER *LDVSR,
1837 DOUBLE *WORK,
1838 const INTEGER *LWORK,
1839 LOGICAL *BWORK,
1840 INTEGER *INFO)
1841 {
1842 DEBUG_LAPACK_STUB("dgges");
1843 LAPACK_IMPL(dgges)(JOBVSL,
1844 JOBVSR,
1845 SORT,
1846 SELCTG,
1847 N,
1848 A,
1849 LDA,
1850 B,
1851 LDB,
1852 SDIM,
1853 ALPHAR,
1854 ALPHAI,
1855 BETA,
1856 VSL,
1857 LDVSL,
1858 VSR,
1859 LDVSR,
1860 WORK,
1861 LWORK,
1862 BWORK,
1863 INFO);
1864 }
1865
1866 //-- dggesx --------------------------------------------------------------------
1867 void
1868 LAPACK_DECL(dggesx)(const char *JOBVSL,
1869 const char *JOBVSR,
1870 const char *SORT,
1871 const LOGICAL *SELCTG,
1872 const char *SENSE,
1873 const INTEGER *N,
1874 DOUBLE *A,
1875 const INTEGER *LDA,
1876 DOUBLE *B,
1877 const INTEGER *LDB,
1878 INTEGER *SDIM,
1879 DOUBLE *ALPHAR,
1880 DOUBLE *ALPHAI,
1881 DOUBLE *BETA,
1882 DOUBLE *VSL,
1883 const INTEGER *LDVSL,
1884 DOUBLE *VSR,
1885 const INTEGER *LDVSR,
1886 DOUBLE *RCONDE,
1887 DOUBLE *RCONDV,
1888 DOUBLE *WORK,
1889 const INTEGER *LWORK,
1890 INTEGER *IWORK,
1891 const INTEGER *LIWORK,
1892 LOGICAL *BWORK,
1893 INTEGER *INFO)
1894 {
1895 DEBUG_LAPACK_STUB("dggesx");
1896 LAPACK_IMPL(dggesx)(JOBVSL,
1897 JOBVSR,
1898 SORT,
1899 SELCTG,
1900 SENSE,
1901 N,
1902 A,
1903 LDA,
1904 B,
1905 LDB,
1906 SDIM,
1907 ALPHAR,
1908 ALPHAI,
1909 BETA,
1910 VSL,
1911 LDVSL,
1912 VSR,
1913 LDVSR,
1914 RCONDE,
1915 RCONDV,
1916 WORK,
1917 LWORK,
1918 IWORK,
1919 LIWORK,
1920 BWORK,
1921 INFO);
1922 }
1923
1924 //-- dggev ---------------------------------------------------------------------
1925 void
1926 LAPACK_DECL(dggev)(const char *JOBVL,
1927 const char *JOBVR,
1928 const INTEGER *N,
1929 DOUBLE *A,
1930 const INTEGER *LDA,
1931 DOUBLE *B,
1932 const INTEGER *LDB,
1933 DOUBLE *ALPHAR,
1934 DOUBLE *ALPHAI,
1935 DOUBLE *BETA,
1936 DOUBLE *VL,
1937 const INTEGER *LDVL,
1938 DOUBLE *VR,
1939 const INTEGER *LDVR,
1940 DOUBLE *WORK,
1941 const INTEGER *LWORK,
1942 INTEGER *INFO)
1943 {
1944 DEBUG_LAPACK_STUB("dggev");
1945 LAPACK_IMPL(dggev)(JOBVL,
1946 JOBVR,
1947 N,
1948 A,
1949 LDA,
1950 B,
1951 LDB,
1952 ALPHAR,
1953 ALPHAI,
1954 BETA,
1955 VL,
1956 LDVL,
1957 VR,
1958 LDVR,
1959 WORK,
1960 LWORK,
1961 INFO);
1962 }
1963
1964 //-- dggevx --------------------------------------------------------------------
1965 void
1966 LAPACK_DECL(dggevx)(const char *BALANC,
1967 const char *JOBVL,
1968 const char *JOBVR,
1969 const char *SENSE,
1970 const INTEGER *N,
1971 DOUBLE *A,
1972 const INTEGER *LDA,
1973 DOUBLE *B,
1974 const INTEGER *LDB,
1975 DOUBLE *ALPHAR,
1976 DOUBLE *ALPHAI,
1977 DOUBLE *BETA,
1978 DOUBLE *VL,
1979 const INTEGER *LDVL,
1980 DOUBLE *VR,
1981 const INTEGER *LDVR,
1982 INTEGER *ILO,
1983 INTEGER *IHI,
1984 DOUBLE *LSCALE,
1985 DOUBLE *RSCALE,
1986 DOUBLE *ABNRM,
1987 DOUBLE *BBNRM,
1988 DOUBLE *RCONDE,
1989 DOUBLE *RCONDV,
1990 DOUBLE *WORK,
1991 const INTEGER *LWORK,
1992 INTEGER *IWORK,
1993 LOGICAL *BWORK,
1994 INTEGER *INFO)
1995 {
1996 DEBUG_LAPACK_STUB("dggevx");
1997 LAPACK_IMPL(dggevx)(BALANC,
1998 JOBVL,
1999 JOBVR,
2000 SENSE,
2001 N,
2002 A,
2003 LDA,
2004 B,
2005 LDB,
2006 ALPHAR,
2007 ALPHAI,
2008 BETA,
2009 VL,
2010 LDVL,
2011 VR,
2012 LDVR,
2013 ILO,
2014 IHI,
2015 LSCALE,
2016 RSCALE,
2017 ABNRM,
2018 BBNRM,
2019 RCONDE,
2020 RCONDV,
2021 WORK,
2022 LWORK,
2023 IWORK,
2024 BWORK,
2025 INFO);
2026 }
2027
2028 //-- dggglm --------------------------------------------------------------------
2029 void
2030 LAPACK_DECL(dggglm)(const INTEGER *N,
2031 const INTEGER *M,
2032 const INTEGER *P,
2033 DOUBLE *A,
2034 const INTEGER *LDA,
2035 DOUBLE *B,
2036 const INTEGER *LDB,
2037 DOUBLE *D,
2038 DOUBLE *X,
2039 DOUBLE *Y,
2040 DOUBLE *WORK,
2041 const INTEGER *LWORK,
2042 INTEGER *INFO)
2043 {
2044 DEBUG_LAPACK_STUB("dggglm");
2045 LAPACK_IMPL(dggglm)(N,
2046 M,
2047 P,
2048 A,
2049 LDA,
2050 B,
2051 LDB,
2052 D,
2053 X,
2054 Y,
2055 WORK,
2056 LWORK,
2057 INFO);
2058 }
2059
2060 //-- dgghrd --------------------------------------------------------------------
2061 void
2062 LAPACK_DECL(dgghrd)(const char *COMPQ,
2063 const char *COMPZ,
2064 const INTEGER *N,
2065 const INTEGER *ILO,
2066 const INTEGER *IHI,
2067 DOUBLE *A,
2068 const INTEGER *LDA,
2069 DOUBLE *B,
2070 const INTEGER *LDB,
2071 DOUBLE *Q,
2072 const INTEGER *LDQ,
2073 DOUBLE *Z,
2074 const INTEGER *LDZ,
2075 INTEGER *INFO)
2076 {
2077 DEBUG_LAPACK_STUB("dgghrd");
2078 LAPACK_IMPL(dgghrd)(COMPQ,
2079 COMPZ,
2080 N,
2081 ILO,
2082 IHI,
2083 A,
2084 LDA,
2085 B,
2086 LDB,
2087 Q,
2088 LDQ,
2089 Z,
2090 LDZ,
2091 INFO);
2092 }
2093
2094 //-- dgglse --------------------------------------------------------------------
2095 void
2096 LAPACK_DECL(dgglse)(const INTEGER *M,
2097 const INTEGER *N,
2098 const INTEGER *P,
2099 DOUBLE *A,
2100 const INTEGER *LDA,
2101 DOUBLE *B,
2102 const INTEGER *LDB,
2103 DOUBLE *C,
2104 DOUBLE *D,
2105 DOUBLE *X,
2106 DOUBLE *WORK,
2107 const INTEGER *LWORK,
2108 INTEGER *INFO)
2109 {
2110 DEBUG_LAPACK_STUB("dgglse");
2111 LAPACK_IMPL(dgglse)(M,
2112 N,
2113 P,
2114 A,
2115 LDA,
2116 B,
2117 LDB,
2118 C,
2119 D,
2120 X,
2121 WORK,
2122 LWORK,
2123 INFO);
2124 }
2125
2126 //-- dggqrf --------------------------------------------------------------------
2127 void
2128 LAPACK_DECL(dggqrf)(const INTEGER *N,
2129 const INTEGER *M,
2130 const INTEGER *P,
2131 DOUBLE *A,
2132 const INTEGER *LDA,
2133 DOUBLE *TAUA,
2134 DOUBLE *B,
2135 const INTEGER *LDB,
2136 DOUBLE *TAUB,
2137 DOUBLE *WORK,
2138 const INTEGER *LWORK,
2139 INTEGER *INFO)
2140 {
2141 DEBUG_LAPACK_STUB("dggqrf");
2142 LAPACK_IMPL(dggqrf)(N,
2143 M,
2144 P,
2145 A,
2146 LDA,
2147 TAUA,
2148 B,
2149 LDB,
2150 TAUB,
2151 WORK,
2152 LWORK,
2153 INFO);
2154 }
2155
2156 //-- dggrqf --------------------------------------------------------------------
2157 void
2158 LAPACK_DECL(dggrqf)(const INTEGER *M,
2159 const INTEGER *P,
2160 const INTEGER *N,
2161 DOUBLE *A,
2162 const INTEGER *LDA,
2163 DOUBLE *TAUA,
2164 DOUBLE *B,
2165 const INTEGER *LDB,
2166 DOUBLE *TAUB,
2167 DOUBLE *WORK,
2168 const INTEGER *LWORK,
2169 INTEGER *INFO)
2170 {
2171 DEBUG_LAPACK_STUB("dggrqf");
2172 LAPACK_IMPL(dggrqf)(M,
2173 P,
2174 N,
2175 A,
2176 LDA,
2177 TAUA,
2178 B,
2179 LDB,
2180 TAUB,
2181 WORK,
2182 LWORK,
2183 INFO);
2184 }
2185
2186 //-- dggsvd --------------------------------------------------------------------
2187 void
2188 LAPACK_DECL(dggsvd)(const char *JOBU,
2189 const char *JOBV,
2190 const char *JOBQ,
2191 const INTEGER *M,
2192 const INTEGER *N,
2193 const INTEGER *P,
2194 INTEGER *K,
2195 INTEGER *L,
2196 DOUBLE *A,
2197 const INTEGER *LDA,
2198 DOUBLE *B,
2199 const INTEGER *LDB,
2200 DOUBLE *ALPHA,
2201 DOUBLE *BETA,
2202 DOUBLE *U,
2203 const INTEGER *LDU,
2204 DOUBLE *V,
2205 const INTEGER *LDV,
2206 DOUBLE *Q,
2207 const INTEGER *LDQ,
2208 DOUBLE *WORK,
2209 INTEGER *IWORK,
2210 INTEGER *INFO)
2211 {
2212 DEBUG_LAPACK_STUB("dggsvd");
2213 LAPACK_IMPL(dggsvd)(JOBU,
2214 JOBV,
2215 JOBQ,
2216 M,
2217 N,
2218 P,
2219 K,
2220 L,
2221 A,
2222 LDA,
2223 B,
2224 LDB,
2225 ALPHA,
2226 BETA,
2227 U,
2228 LDU,
2229 V,
2230 LDV,
2231 Q,
2232 LDQ,
2233 WORK,
2234 IWORK,
2235 INFO);
2236 }
2237
2238 //-- dggsvp --------------------------------------------------------------------
2239 void
2240 LAPACK_DECL(dggsvp)(const char *JOBU,
2241 const char *JOBV,
2242 const char *JOBQ,
2243 const INTEGER *M,
2244 const INTEGER *P,
2245 const INTEGER *N,
2246 DOUBLE *A,
2247 const INTEGER *LDA,
2248 DOUBLE *B,
2249 const INTEGER *LDB,
2250 const DOUBLE *TOLA,
2251 const DOUBLE *TOLB,
2252 INTEGER *K,
2253 INTEGER *L,
2254 DOUBLE *U,
2255 const INTEGER *LDU,
2256 DOUBLE *V,
2257 const INTEGER *LDV,
2258 DOUBLE *Q,
2259 const INTEGER *LDQ,
2260 INTEGER *IWORK,
2261 DOUBLE *TAU,
2262 DOUBLE *WORK,
2263 INTEGER *INFO)
2264 {
2265 DEBUG_LAPACK_STUB("dggsvp");
2266 LAPACK_IMPL(dggsvp)(JOBU,
2267 JOBV,
2268 JOBQ,
2269 M,
2270 P,
2271 N,
2272 A,
2273 LDA,
2274 B,
2275 LDB,
2276 TOLA,
2277 TOLB,
2278 K,
2279 L,
2280 U,
2281 LDU,
2282 V,
2283 LDV,
2284 Q,
2285 LDQ,
2286 IWORK,
2287 TAU,
2288 WORK,
2289 INFO);
2290 }
2291
2292 //-- dgsvj0 --------------------------------------------------------------------
2293 void
2294 LAPACK_DECL(dgsvj0)(const char *JOBV,
2295 const INTEGER *M,
2296 const INTEGER *N,
2297 DOUBLE *A,
2298 const INTEGER *LDA,
2299 DOUBLE *D,
2300 DOUBLE *SVA,
2301 const INTEGER *MV,
2302 DOUBLE *V,
2303 const INTEGER *LDV,
2304 const DOUBLE *EPS,
2305 const DOUBLE *SFMIN,
2306 const DOUBLE *TOL,
2307 const INTEGER *NSWEEP,
2308 DOUBLE *WORK,
2309 const INTEGER *LWORK,
2310 INTEGER *INFO)
2311 {
2312 DEBUG_LAPACK_STUB("dgsvj0");
2313 LAPACK_IMPL(dgsvj0)(JOBV,
2314 M,
2315 N,
2316 A,
2317 LDA,
2318 D,
2319 SVA,
2320 MV,
2321 V,
2322 LDV,
2323 EPS,
2324 SFMIN,
2325 TOL,
2326 NSWEEP,
2327 WORK,
2328 LWORK,
2329 INFO);
2330 }
2331
2332 //-- dgsvj1 --------------------------------------------------------------------
2333 void
2334 LAPACK_DECL(dgsvj1)(const char *JOBV,
2335 const INTEGER *M,
2336 const INTEGER *N,
2337 const INTEGER *N1,
2338 DOUBLE *A,
2339 const INTEGER *LDA,
2340 DOUBLE *D,
2341 DOUBLE *SVA,
2342 const INTEGER *MV,
2343 DOUBLE *V,
2344 const INTEGER *LDV,
2345 const DOUBLE *EPS,
2346 const DOUBLE *SFMIN,
2347 const DOUBLE *TOL,
2348 const INTEGER *NSWEEP,
2349 DOUBLE *WORK,
2350 const INTEGER *LWORK,
2351 INTEGER *INFO)
2352 {
2353 DEBUG_LAPACK_STUB("dgsvj1");
2354 LAPACK_IMPL(dgsvj1)(JOBV,
2355 M,
2356 N,
2357 N1,
2358 A,
2359 LDA,
2360 D,
2361 SVA,
2362 MV,
2363 V,
2364 LDV,
2365 EPS,
2366 SFMIN,
2367 TOL,
2368 NSWEEP,
2369 WORK,
2370 LWORK,
2371 INFO);
2372 }
2373
2374 //-- dgtcon --------------------------------------------------------------------
2375 void
2376 LAPACK_DECL(dgtcon)(const char *NORM,
2377 const INTEGER *N,
2378 const DOUBLE *DL,
2379 const DOUBLE *D,
2380 const DOUBLE *DU,
2381 const DOUBLE *DU2,
2382 const INTEGER *IPIV,
2383 const DOUBLE *ANORM,
2384 DOUBLE *RCOND,
2385 DOUBLE *WORK,
2386 INTEGER *IWORK,
2387 INTEGER *INFO)
2388 {
2389 DEBUG_LAPACK_STUB("dgtcon");
2390 LAPACK_IMPL(dgtcon)(NORM,
2391 N,
2392 DL,
2393 D,
2394 DU,
2395 DU2,
2396 IPIV,
2397 ANORM,
2398 RCOND,
2399 WORK,
2400 IWORK,
2401 INFO);
2402 }
2403
2404 //-- dgtrfs --------------------------------------------------------------------
2405 void
2406 LAPACK_DECL(dgtrfs)(const char *TRANS,
2407 const INTEGER *N,
2408 const INTEGER *NRHS,
2409 const DOUBLE *DL,
2410 const DOUBLE *D,
2411 const DOUBLE *DU,
2412 const DOUBLE *DLF,
2413 const DOUBLE *DF,
2414 const DOUBLE *DUF,
2415 const DOUBLE *DU2,
2416 const INTEGER *IPIV,
2417 const DOUBLE *B,
2418 const INTEGER *LDB,
2419 DOUBLE *X,
2420 const INTEGER *LDX,
2421 DOUBLE *FERR,
2422 DOUBLE *BERR,
2423 DOUBLE *WORK,
2424 INTEGER *IWORK,
2425 INTEGER *INFO)
2426 {
2427 DEBUG_LAPACK_STUB("dgtrfs");
2428 LAPACK_IMPL(dgtrfs)(TRANS,
2429 N,
2430 NRHS,
2431 DL,
2432 D,
2433 DU,
2434 DLF,
2435 DF,
2436 DUF,
2437 DU2,
2438 IPIV,
2439 B,
2440 LDB,
2441 X,
2442 LDX,
2443 FERR,
2444 BERR,
2445 WORK,
2446 IWORK,
2447 INFO);
2448 }
2449
2450 //-- dgtsv ---------------------------------------------------------------------
2451 void
2452 LAPACK_DECL(dgtsv)(const INTEGER *N,
2453 const INTEGER *NRHS,
2454 DOUBLE *DL,
2455 DOUBLE *D,
2456 DOUBLE *DU,
2457 DOUBLE *B,
2458 const INTEGER *LDB,
2459 INTEGER *INFO)
2460 {
2461 DEBUG_LAPACK_STUB("dgtsv");
2462 LAPACK_IMPL(dgtsv)(N,
2463 NRHS,
2464 DL,
2465 D,
2466 DU,
2467 B,
2468 LDB,
2469 INFO);
2470 }
2471
2472 //-- dgtsvx --------------------------------------------------------------------
2473 void
2474 LAPACK_DECL(dgtsvx)(const char *FACT,
2475 const char *TRANS,
2476 const INTEGER *N,
2477 const INTEGER *NRHS,
2478 const DOUBLE *DL,
2479 const DOUBLE *D,
2480 const DOUBLE *DU,
2481 DOUBLE *DLF,
2482 DOUBLE *DF,
2483 DOUBLE *DUF,
2484 DOUBLE *DU2,
2485 INTEGER *IPIV,
2486 const DOUBLE *B,
2487 const INTEGER *LDB,
2488 DOUBLE *X,
2489 const INTEGER *LDX,
2490 DOUBLE *RCOND,
2491 DOUBLE *FERR,
2492 DOUBLE *BERR,
2493 DOUBLE *WORK,
2494 INTEGER *IWORK,
2495 INTEGER *INFO)
2496 {
2497 DEBUG_LAPACK_STUB("dgtsvx");
2498 LAPACK_IMPL(dgtsvx)(FACT,
2499 TRANS,
2500 N,
2501 NRHS,
2502 DL,
2503 D,
2504 DU,
2505 DLF,
2506 DF,
2507 DUF,
2508 DU2,
2509 IPIV,
2510 B,
2511 LDB,
2512 X,
2513 LDX,
2514 RCOND,
2515 FERR,
2516 BERR,
2517 WORK,
2518 IWORK,
2519 INFO);
2520 }
2521
2522 //-- dgttrf --------------------------------------------------------------------
2523 void
2524 LAPACK_DECL(dgttrf)(const INTEGER *N,
2525 DOUBLE *DL,
2526 DOUBLE *D,
2527 DOUBLE *DU,
2528 DOUBLE *DU2,
2529 INTEGER *IPIV,
2530 INTEGER *INFO)
2531 {
2532 DEBUG_LAPACK_STUB("dgttrf");
2533 LAPACK_IMPL(dgttrf)(N,
2534 DL,
2535 D,
2536 DU,
2537 DU2,
2538 IPIV,
2539 INFO);
2540 }
2541
2542 //-- dgttrs --------------------------------------------------------------------
2543 void
2544 LAPACK_DECL(dgttrs)(const char *TRANS,
2545 const INTEGER *N,
2546 const INTEGER *NRHS,
2547 const DOUBLE *DL,
2548 const DOUBLE *D,
2549 const DOUBLE *DU,
2550 const DOUBLE *DU2,
2551 const INTEGER *IPIV,
2552 DOUBLE *B,
2553 const INTEGER *LDB,
2554 INTEGER *INFO)
2555 {
2556 DEBUG_LAPACK_STUB("dgttrs");
2557 LAPACK_IMPL(dgttrs)(TRANS,
2558 N,
2559 NRHS,
2560 DL,
2561 D,
2562 DU,
2563 DU2,
2564 IPIV,
2565 B,
2566 LDB,
2567 INFO);
2568 }
2569
2570 //-- dgtts2 --------------------------------------------------------------------
2571 void
2572 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
2573 const INTEGER *N,
2574 const INTEGER *NRHS,
2575 const DOUBLE *DL,
2576 const DOUBLE *D,
2577 const DOUBLE *DU,
2578 const DOUBLE *DU2,
2579 const INTEGER *IPIV,
2580 DOUBLE *B,
2581 const INTEGER *LDB)
2582 {
2583 DEBUG_LAPACK_STUB("dgtts2");
2584 LAPACK_IMPL(dgtts2)(ITRANS,
2585 N,
2586 NRHS,
2587 DL,
2588 D,
2589 DU,
2590 DU2,
2591 IPIV,
2592 B,
2593 LDB);
2594 }
2595
2596 //-- dhgeqz --------------------------------------------------------------------
2597 void
2598 LAPACK_DECL(dhgeqz)(const char *JOB,
2599 const char *COMPQ,
2600 const char *COMPZ,
2601 const INTEGER *N,
2602 const INTEGER *ILO,
2603 const INTEGER *IHI,
2604 DOUBLE *H,
2605 const INTEGER *LDH,
2606 DOUBLE *T,
2607 const INTEGER *LDT,
2608 DOUBLE *ALPHAR,
2609 DOUBLE *ALPHAI,
2610 DOUBLE *BETA,
2611 DOUBLE *Q,
2612 const INTEGER *LDQ,
2613 DOUBLE *Z,
2614 const INTEGER *LDZ,
2615 DOUBLE *WORK,
2616 const INTEGER *LWORK,
2617 INTEGER *INFO)
2618 {
2619 DEBUG_LAPACK_STUB("dhgeqz");
2620 LAPACK_IMPL(dhgeqz)(JOB,
2621 COMPQ,
2622 COMPZ,
2623 N,
2624 ILO,
2625 IHI,
2626 H,
2627 LDH,
2628 T,
2629 LDT,
2630 ALPHAR,
2631 ALPHAI,
2632 BETA,
2633 Q,
2634 LDQ,
2635 Z,
2636 LDZ,
2637 WORK,
2638 LWORK,
2639 INFO);
2640 }
2641
2642 //-- dhsein --------------------------------------------------------------------
2643 void
2644 LAPACK_DECL(dhsein)(const char *SIDE,
2645 const char *EIGSRC,
2646 const char *INITV,
2647 LOGICAL *SELECT,
2648 const INTEGER *N,
2649 const DOUBLE *H,
2650 const INTEGER *LDH,
2651 DOUBLE *WR,
2652 const DOUBLE *WI,
2653 DOUBLE *VL,
2654 const INTEGER *LDVL,
2655 DOUBLE *VR,
2656 const INTEGER *LDVR,
2657 const INTEGER *MM,
2658 INTEGER *M,
2659 DOUBLE *WORK,
2660 INTEGER *IFAILL,
2661 INTEGER *IFAILR,
2662 INTEGER *INFO)
2663 {
2664 DEBUG_LAPACK_STUB("dhsein");
2665 LAPACK_IMPL(dhsein)(SIDE,
2666 EIGSRC,
2667 INITV,
2668 SELECT,
2669 N,
2670 H,
2671 LDH,
2672 WR,
2673 WI,
2674 VL,
2675 LDVL,
2676 VR,
2677 LDVR,
2678 MM,
2679 M,
2680 WORK,
2681 IFAILL,
2682 IFAILR,
2683 INFO);
2684 }
2685
2686 //-- dhseqr --------------------------------------------------------------------
2687 void
2688 LAPACK_DECL(dhseqr)(const char *JOB,
2689 const char *COMPZ,
2690 const INTEGER *N,
2691 const INTEGER *ILO,
2692 const INTEGER *IHI,
2693 DOUBLE *H,
2694 const INTEGER *LDH,
2695 DOUBLE *WR,
2696 DOUBLE *WI,
2697 DOUBLE *Z,
2698 const INTEGER *LDZ,
2699 DOUBLE *WORK,
2700 const INTEGER *LWORK,
2701 INTEGER *INFO)
2702 {
2703 DEBUG_LAPACK_STUB("dhseqr");
2704 LAPACK_IMPL(dhseqr)(JOB,
2705 COMPZ,
2706 N,
2707 ILO,
2708 IHI,
2709 H,
2710 LDH,
2711 WR,
2712 WI,
2713 Z,
2714 LDZ,
2715 WORK,
2716 LWORK,
2717 INFO);
2718 }
2719
2720 //-- disnan --------------------------------------------------------------------
2721 LOGICAL
2722 LAPACK_DECL(disnan)(const DOUBLE *DIN)
2723 {
2724 DEBUG_LAPACK_STUB("disnan");
2725 return LAPACK_IMPL(disnan)(DIN);
2726 }
2727
2728 //-- dla_gbamv -----------------------------------------------------------------
2729 void
2730 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
2731 const INTEGER *M,
2732 const INTEGER *N,
2733 const INTEGER *KL,
2734 const INTEGER *KU,
2735 const DOUBLE *ALPHA,
2736 const DOUBLE *AB,
2737 const INTEGER *LDAB,
2738 const DOUBLE *X,
2739 const INTEGER *INCX,
2740 const DOUBLE *BETA,
2741 DOUBLE *Y,
2742 const INTEGER *INCY)
2743 {
2744 DEBUG_LAPACK_STUB("dla_gbamv");
2745 LAPACK_IMPL(dla_gbamv)(TRANS,
2746 M,
2747 N,
2748 KL,
2749 KU,
2750 ALPHA,
2751 AB,
2752 LDAB,
2753 X,
2754 INCX,
2755 BETA,
2756 Y,
2757 INCY);
2758 }
2759
2760 //-- dla_gbrcond ---------------------------------------------------------------
2761 DOUBLE
2762 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
2763 const INTEGER *N,
2764 const INTEGER *KL,
2765 const INTEGER *KU,
2766 const DOUBLE *AB,
2767 const INTEGER *LDAB,
2768 const DOUBLE *AFB,
2769 const INTEGER *LDAFB,
2770 const INTEGER *IPIV,
2771 const INTEGER *CMODE,
2772 const DOUBLE *C,
2773 INTEGER *INFO,
2774 const DOUBLE *WORK,
2775 const INTEGER *IWORK)
2776 {
2777 DEBUG_LAPACK_STUB("dla_gbrcond");
2778 return LAPACK_IMPL(dla_gbrcond)(TRANS,
2779 N,
2780 KL,
2781 KU,
2782 AB,
2783 LDAB,
2784 AFB,
2785 LDAFB,
2786 IPIV,
2787 CMODE,
2788 C,
2789 INFO,
2790 WORK,
2791 IWORK);
2792 }
2793
2794 //-- dla_gbrpvgrw --------------------------------------------------------------
2795 DOUBLE
2796 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
2797 const INTEGER *KL,
2798 const INTEGER *KU,
2799 const INTEGER *NCOLS,
2800 const DOUBLE *AB,
2801 const INTEGER *LDAB,
2802 const DOUBLE *AFB,
2803 const INTEGER *LDAFB)
2804 {
2805 DEBUG_LAPACK_STUB("dla_gbrpvgrw");
2806 return LAPACK_IMPL(dla_gbrpvgrw)(N,
2807 KL,
2808 KU,
2809 NCOLS,
2810 AB,
2811 LDAB,
2812 AFB,
2813 LDAFB);
2814 }
2815
2816 //-- dla_geamv -----------------------------------------------------------------
2817 void
2818 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
2819 const INTEGER *M,
2820 const INTEGER *N,
2821 const DOUBLE *ALPHA,
2822 const DOUBLE *A,
2823 const INTEGER *LDA,
2824 const DOUBLE *X,
2825 const INTEGER *INCX,
2826 const DOUBLE *BETA,
2827 DOUBLE *Y,
2828 const INTEGER *INCY)
2829 {
2830 DEBUG_LAPACK_STUB("dla_geamv");
2831 LAPACK_IMPL(dla_geamv)(TRANS,
2832 M,
2833 N,
2834 ALPHA,
2835 A,
2836 LDA,
2837 X,
2838 INCX,
2839 BETA,
2840 Y,
2841 INCY);
2842 }
2843
2844 //-- dla_gercond ---------------------------------------------------------------
2845 DOUBLE
2846 LAPACK_DECL(dla_gercond)(const char *TRANS,
2847 const INTEGER *N,
2848 const DOUBLE *A,
2849 const INTEGER *LDA,
2850 const DOUBLE *AF,
2851 const INTEGER *LDAF,
2852 const INTEGER *IPIV,
2853 const INTEGER *CMODE,
2854 const DOUBLE *C,
2855 INTEGER *INFO,
2856 const DOUBLE *WORK,
2857 const INTEGER *IWORK)
2858 {
2859 DEBUG_LAPACK_STUB("dla_gercond");
2860 return LAPACK_IMPL(dla_gercond)(TRANS,
2861 N,
2862 A,
2863 LDA,
2864 AF,
2865 LDAF,
2866 IPIV,
2867 CMODE,
2868 C,
2869 INFO,
2870 WORK,
2871 IWORK);
2872 }
2873
2874 //-- dla_lin_berr --------------------------------------------------------------
2875 void
2876 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
2877 const INTEGER *NZ,
2878 const INTEGER *NRHS,
2879 const DOUBLE *RES,
2880 const DOUBLE *AYB,
2881 DOUBLE *BERR)
2882 {
2883 DEBUG_LAPACK_STUB("dla_lin_berr");
2884 LAPACK_IMPL(dla_lin_berr)(N,
2885 NZ,
2886 NRHS,
2887 RES,
2888 AYB,
2889 BERR);
2890 }
2891
2892 //-- dla_porcond ---------------------------------------------------------------
2893 DOUBLE
2894 LAPACK_DECL(dla_porcond)(const char *UPLO,
2895 const INTEGER *N,
2896 const DOUBLE *A,
2897 const INTEGER *LDA,
2898 const DOUBLE *AF,
2899 const INTEGER *LDAF,
2900 const INTEGER *CMODE,
2901 const DOUBLE *C,
2902 INTEGER *INFO,
2903 const DOUBLE *WORK,
2904 const INTEGER *IWORK)
2905 {
2906 DEBUG_LAPACK_STUB("dla_porcond");
2907 return LAPACK_IMPL(dla_porcond)(UPLO,
2908 N,
2909 A,
2910 LDA,
2911 AF,
2912 LDAF,
2913 CMODE,
2914 C,
2915 INFO,
2916 WORK,
2917 IWORK);
2918 }
2919
2920 //-- dla_porpvgrw --------------------------------------------------------------
2921 DOUBLE
2922 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
2923 const INTEGER *NCOLS,
2924 const DOUBLE *A,
2925 const INTEGER *LDA,
2926 const DOUBLE *AF,
2927 const INTEGER *LDAF,
2928 const DOUBLE *WORK)
2929 {
2930 DEBUG_LAPACK_STUB("dla_porpvgrw");
2931 return LAPACK_IMPL(dla_porpvgrw)(UPLO,
2932 NCOLS,
2933 A,
2934 LDA,
2935 AF,
2936 LDAF,
2937 WORK);
2938 }
2939
2940 //-- dla_rpvgrw ----------------------------------------------------------------
2941 DOUBLE
2942 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
2943 const INTEGER *NCOLS,
2944 const DOUBLE *A,
2945 const INTEGER *LDA,
2946 const DOUBLE *AF,
2947 const INTEGER *LDAF)
2948 {
2949 DEBUG_LAPACK_STUB("dla_rpvgrw");
2950 return LAPACK_IMPL(dla_rpvgrw)(N,
2951 NCOLS,
2952 A,
2953 LDA,
2954 AF,
2955 LDAF);
2956 }
2957
2958 //-- dla_syamv -----------------------------------------------------------------
2959 void
2960 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
2961 const INTEGER *N,
2962 const DOUBLE *ALPHA,
2963 const DOUBLE *A,
2964 const INTEGER *LDA,
2965 const DOUBLE *X,
2966 const INTEGER *INCX,
2967 const DOUBLE *BETA,
2968 DOUBLE *Y,
2969 const INTEGER *INCY)
2970 {
2971 DEBUG_LAPACK_STUB("dla_syamv");
2972 LAPACK_IMPL(dla_syamv)(UPLO,
2973 N,
2974 ALPHA,
2975 A,
2976 LDA,
2977 X,
2978 INCX,
2979 BETA,
2980 Y,
2981 INCY);
2982 }
2983
2984 //-- dla_syrcond ---------------------------------------------------------------
2985 DOUBLE
2986 LAPACK_DECL(dla_syrcond)(const char *UPLO,
2987 const INTEGER *N,
2988 const DOUBLE *A,
2989 const INTEGER *LDA,
2990 const DOUBLE *AF,
2991 const INTEGER *LDAF,
2992 const INTEGER *IPIV,
2993 const INTEGER *CMODE,
2994 const DOUBLE *C,
2995 INTEGER *INFO,
2996 const DOUBLE *WORK,
2997 const INTEGER *IWORK)
2998 {
2999 DEBUG_LAPACK_STUB("dla_syrcond");
3000 return LAPACK_IMPL(dla_syrcond)(UPLO,
3001 N,
3002 A,
3003 LDA,
3004 AF,
3005 LDAF,
3006 IPIV,
3007 CMODE,
3008 C,
3009 INFO,
3010 WORK,
3011 IWORK);
3012 }
3013
3014 //-- dla_syrpvgrw --------------------------------------------------------------
3015 DOUBLE
3016 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
3017 const INTEGER *N,
3018 const INTEGER *INFO,
3019 const DOUBLE *A,
3020 const INTEGER *LDA,
3021 const DOUBLE *AF,
3022 const INTEGER *LDAF,
3023 const INTEGER *IPIV,
3024 const DOUBLE *WORK)
3025 {
3026 DEBUG_LAPACK_STUB("dla_syrpvgrw");
3027 return LAPACK_IMPL(dla_syrpvgrw)(UPLO,
3028 N,
3029 INFO,
3030 A,
3031 LDA,
3032 AF,
3033 LDAF,
3034 IPIV,
3035 WORK);
3036 }
3037
3038 //-- dla_wwaddw ----------------------------------------------------------------
3039 void
3040 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
3041 DOUBLE *X,
3042 DOUBLE *Y,
3043 const DOUBLE *W)
3044 {
3045 DEBUG_LAPACK_STUB("dla_wwaddw");
3046 LAPACK_IMPL(dla_wwaddw)(N,
3047 X,
3048 Y,
3049 W);
3050 }
3051
3052 //-- dlabad --------------------------------------------------------------------
3053 void
3054 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
3055 DOUBLE *LARGE)
3056 {
3057 DEBUG_LAPACK_STUB("dlabad");
3058 LAPACK_IMPL(dlabad)(SMALL,
3059 LARGE);
3060 }
3061
3062 //-- dlabrd --------------------------------------------------------------------
3063 void
3064 LAPACK_DECL(dlabrd)(const INTEGER *M,
3065 const INTEGER *N,
3066 const INTEGER *NB,
3067 DOUBLE *A,
3068 const INTEGER *LDA,
3069 DOUBLE *D,
3070 DOUBLE *E,
3071 DOUBLE *TAUQ,
3072 DOUBLE *TAUP,
3073 DOUBLE *X,
3074 const INTEGER *LDX,
3075 DOUBLE *Y,
3076 const INTEGER *LDY)
3077 {
3078 DEBUG_LAPACK_STUB("dlabrd");
3079 LAPACK_IMPL(dlabrd)(M,
3080 N,
3081 NB,
3082 A,
3083 LDA,
3084 D,
3085 E,
3086 TAUQ,
3087 TAUP,
3088 X,
3089 LDX,
3090 Y,
3091 LDY);
3092 }
3093
3094 //-- dlacn2 --------------------------------------------------------------------
3095 void
3096 LAPACK_DECL(dlacn2)(const INTEGER *N,
3097 DOUBLE *V,
3098 DOUBLE *X,
3099 INTEGER *ISGN,
3100 DOUBLE *EST,
3101 INTEGER *KASE,
3102 INTEGER *ISAVE)
3103 {
3104 DEBUG_LAPACK_STUB("dlacn2");
3105 LAPACK_IMPL(dlacn2)(N,
3106 V,
3107 X,
3108 ISGN,
3109 EST,
3110 KASE,
3111 ISAVE);
3112 }
3113
3114 //-- dlacon --------------------------------------------------------------------
3115 void
3116 LAPACK_DECL(dlacon)(const INTEGER *N,
3117 DOUBLE *V,
3118 DOUBLE *X,
3119 INTEGER *ISGN,
3120 DOUBLE *EST,
3121 INTEGER *KASE)
3122 {
3123 DEBUG_LAPACK_STUB("dlacon");
3124 LAPACK_IMPL(dlacon)(N,
3125 V,
3126 X,
3127 ISGN,
3128 EST,
3129 KASE);
3130 }
3131
3132 //-- dlacpy --------------------------------------------------------------------
3133 void
3134 LAPACK_DECL(dlacpy)(const char *UPLO,
3135 const INTEGER *M,
3136 const INTEGER *N,
3137 const DOUBLE *A,
3138 const INTEGER *LDA,
3139 DOUBLE *B,
3140 const INTEGER *LDB)
3141 {
3142 DEBUG_LAPACK_STUB("dlacpy");
3143 LAPACK_IMPL(dlacpy)(UPLO,
3144 M,
3145 N,
3146 A,
3147 LDA,
3148 B,
3149 LDB);
3150 }
3151
3152 //-- dladiv --------------------------------------------------------------------
3153 void
3154 LAPACK_DECL(dladiv)(const DOUBLE *A,
3155 const DOUBLE *B,
3156 const DOUBLE *C,
3157 const DOUBLE *D,
3158 DOUBLE *P,
3159 DOUBLE *Q)
3160 {
3161 DEBUG_LAPACK_STUB("dladiv");
3162 LAPACK_IMPL(dladiv)(A,
3163 B,
3164 C,
3165 D,
3166 P,
3167 Q);
3168 }
3169
3170 //-- dlae2 ---------------------------------------------------------------------
3171 void
3172 LAPACK_DECL(dlae2)(const DOUBLE *A,
3173 const DOUBLE *B,
3174 const DOUBLE *C,
3175 DOUBLE *RT1,
3176 DOUBLE *RT2)
3177 {
3178 DEBUG_LAPACK_STUB("dlae2");
3179 LAPACK_IMPL(dlae2)(A,
3180 B,
3181 C,
3182 RT1,
3183 RT2);
3184 }
3185
3186 //-- dlaebz --------------------------------------------------------------------
3187 void
3188 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
3189 const INTEGER *NITMAX,
3190 const INTEGER *N,
3191 const INTEGER *MMAX,
3192 const INTEGER *MINP,
3193 const INTEGER *NBMIN,
3194 const DOUBLE *ABSTOL,
3195 const DOUBLE *RELTOL,
3196 const DOUBLE *PIVMIN,
3197 const DOUBLE *D,
3198 const DOUBLE *E,
3199 const DOUBLE *E2,
3200 INTEGER *NVAL,
3201 DOUBLE *AB,
3202 DOUBLE *C,
3203 INTEGER *MOUT,
3204 INTEGER *NAB,
3205 DOUBLE *WORK,
3206 INTEGER *IWORK,
3207 INTEGER *INFO)
3208 {
3209 DEBUG_LAPACK_STUB("dlaebz");
3210 LAPACK_IMPL(dlaebz)(IJOB,
3211 NITMAX,
3212 N,
3213 MMAX,
3214 MINP,
3215 NBMIN,
3216 ABSTOL,
3217 RELTOL,
3218 PIVMIN,
3219 D,
3220 E,
3221 E2,
3222 NVAL,
3223 AB,
3224 C,
3225 MOUT,
3226 NAB,
3227 WORK,
3228 IWORK,
3229 INFO);
3230 }
3231
3232 //-- dlaed0 --------------------------------------------------------------------
3233 void
3234 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
3235 const INTEGER *QSIZ,
3236 const INTEGER *N,
3237 DOUBLE *D,
3238 const DOUBLE *E,
3239 DOUBLE *Q,
3240 const INTEGER *LDQ,
3241 DOUBLE *QSTORE,
3242 const INTEGER *LDQS,
3243 DOUBLE *WORK,
3244 INTEGER *IWORK,
3245 INTEGER *INFO)
3246 {
3247 DEBUG_LAPACK_STUB("dlaed0");
3248 LAPACK_IMPL(dlaed0)(ICOMPQ,
3249 QSIZ,
3250 N,
3251 D,
3252 E,
3253 Q,
3254 LDQ,
3255 QSTORE,
3256 LDQS,
3257 WORK,
3258 IWORK,
3259 INFO);
3260 }
3261
3262 //-- dlaed1 --------------------------------------------------------------------
3263 void
3264 LAPACK_DECL(dlaed1)(const INTEGER *N,
3265 DOUBLE *D,
3266 DOUBLE *Q,
3267 const INTEGER *LDQ,
3268 INTEGER *INDXQ,
3269 const DOUBLE *RHO,
3270 const INTEGER *CUTPNT,
3271 DOUBLE *WORK,
3272 INTEGER *IWORK,
3273 INTEGER *INFO)
3274 {
3275 DEBUG_LAPACK_STUB("dlaed1");
3276 LAPACK_IMPL(dlaed1)(N,
3277 D,
3278 Q,
3279 LDQ,
3280 INDXQ,
3281 RHO,
3282 CUTPNT,
3283 WORK,
3284 IWORK,
3285 INFO);
3286 }
3287
3288 //-- dlaed2 --------------------------------------------------------------------
3289 void
3290 LAPACK_DECL(dlaed2)(INTEGER *K,
3291 const INTEGER *N,
3292 const INTEGER *N1,
3293 DOUBLE *D,
3294 DOUBLE *Q,
3295 const INTEGER *LDQ,
3296 INTEGER *INDXQ,
3297 DOUBLE *RHO,
3298 const DOUBLE *Z,
3299 DOUBLE *DLAMDA,
3300 DOUBLE *W,
3301 DOUBLE *Q2,
3302 INTEGER *INDX,
3303 INTEGER *INDXC,
3304 INTEGER *INDXP,
3305 INTEGER *COLTYP,
3306 INTEGER *INFO)
3307 {
3308 DEBUG_LAPACK_STUB("dlaed2");
3309 LAPACK_IMPL(dlaed2)(K,
3310 N,
3311 N1,
3312 D,
3313 Q,
3314 LDQ,
3315 INDXQ,
3316 RHO,
3317 Z,
3318 DLAMDA,
3319 W,
3320 Q2,
3321 INDX,
3322 INDXC,
3323 INDXP,
3324 COLTYP,
3325 INFO);
3326 }
3327
3328 //-- dlaed3 --------------------------------------------------------------------
3329 void
3330 LAPACK_DECL(dlaed3)(const INTEGER *K,
3331 const INTEGER *N,
3332 const INTEGER *N1,
3333 DOUBLE *D,
3334 DOUBLE *Q,
3335 const INTEGER *LDQ,
3336 const DOUBLE *RHO,
3337 DOUBLE *DLAMDA,
3338 const DOUBLE *Q2,
3339 const INTEGER *INDX,
3340 const INTEGER *CTOT,
3341 DOUBLE *W,
3342 DOUBLE *S,
3343 INTEGER *INFO)
3344 {
3345 DEBUG_LAPACK_STUB("dlaed3");
3346 LAPACK_IMPL(dlaed3)(K,
3347 N,
3348 N1,
3349 D,
3350 Q,
3351 LDQ,
3352 RHO,
3353 DLAMDA,
3354 Q2,
3355 INDX,
3356 CTOT,
3357 W,
3358 S,
3359 INFO);
3360 }
3361
3362 //-- dlaed4 --------------------------------------------------------------------
3363 void
3364 LAPACK_DECL(dlaed4)(const INTEGER *N,
3365 const INTEGER *I,
3366 const DOUBLE *D,
3367 const DOUBLE *Z,
3368 DOUBLE *DELTA,
3369 const DOUBLE *RHO,
3370 DOUBLE *DLAM,
3371 INTEGER *INFO)
3372 {
3373 DEBUG_LAPACK_STUB("dlaed4");
3374 LAPACK_IMPL(dlaed4)(N,
3375 I,
3376 D,
3377 Z,
3378 DELTA,
3379 RHO,
3380 DLAM,
3381 INFO);
3382 }
3383
3384 //-- dlaed5 --------------------------------------------------------------------
3385 void
3386 LAPACK_DECL(dlaed5)(const INTEGER *I,
3387 const DOUBLE *D,
3388 const DOUBLE *Z,
3389 DOUBLE *DELTA,
3390 const DOUBLE *RHO,
3391 DOUBLE *DLAM)
3392 {
3393 DEBUG_LAPACK_STUB("dlaed5");
3394 LAPACK_IMPL(dlaed5)(I,
3395 D,
3396 Z,
3397 DELTA,
3398 RHO,
3399 DLAM);
3400 }
3401
3402 //-- dlaed6 --------------------------------------------------------------------
3403 void
3404 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
3405 const LOGICAL *ORGATI,
3406 const DOUBLE *RHO,
3407 const DOUBLE *D,
3408 const DOUBLE *Z,
3409 const DOUBLE *FINIT,
3410 DOUBLE *TAU,
3411 INTEGER *INFO)
3412 {
3413 DEBUG_LAPACK_STUB("dlaed6");
3414 LAPACK_IMPL(dlaed6)(KNITER,
3415 ORGATI,
3416 RHO,
3417 D,
3418 Z,
3419 FINIT,
3420 TAU,
3421 INFO);
3422 }
3423
3424 //-- dlaed7 --------------------------------------------------------------------
3425 void
3426 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
3427 const INTEGER *N,
3428 const INTEGER *QSIZ,
3429 const INTEGER *TLVLS,
3430 const INTEGER *CURLVL,
3431 const INTEGER *CURPBM,
3432 DOUBLE *D,
3433 DOUBLE *Q,
3434 const INTEGER *LDQ,
3435 INTEGER *INDXQ,
3436 const DOUBLE *RHO,
3437 const INTEGER *CUTPNT,
3438 DOUBLE *QSTORE,
3439 INTEGER *QPTR,
3440 const INTEGER *PRMPTR,
3441 const INTEGER *PERM,
3442 const INTEGER *GIVPTR,
3443 const INTEGER *GIVCOL,
3444 const DOUBLE *GIVNUM,
3445 DOUBLE *WORK,
3446 INTEGER *IWORK,
3447 INTEGER *INFO)
3448 {
3449 DEBUG_LAPACK_STUB("dlaed7");
3450 LAPACK_IMPL(dlaed7)(ICOMPQ,
3451 N,
3452 QSIZ,
3453 TLVLS,
3454 CURLVL,
3455 CURPBM,
3456 D,
3457 Q,
3458 LDQ,
3459 INDXQ,
3460 RHO,
3461 CUTPNT,
3462 QSTORE,
3463 QPTR,
3464 PRMPTR,
3465 PERM,
3466 GIVPTR,
3467 GIVCOL,
3468 GIVNUM,
3469 WORK,
3470 IWORK,
3471 INFO);
3472 }
3473
3474 //-- dlaed8 --------------------------------------------------------------------
3475 void
3476 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
3477 INTEGER *K,
3478 const INTEGER *N,
3479 const INTEGER *QSIZ,
3480 DOUBLE *D,
3481 DOUBLE *Q,
3482 const INTEGER *LDQ,
3483 const INTEGER *INDXQ,
3484 DOUBLE *RHO,
3485 const INTEGER *CUTPNT,
3486 const DOUBLE *Z,
3487 DOUBLE *DLAMDA,
3488 DOUBLE *Q2,
3489 const INTEGER *LDQ2,
3490 DOUBLE *W,
3491 INTEGER *PERM,
3492 INTEGER *GIVPTR,
3493 INTEGER *GIVCOL,
3494 DOUBLE *GIVNUM,
3495 INTEGER *INDXP,
3496 INTEGER *INDX,
3497 INTEGER *INFO)
3498 {
3499 DEBUG_LAPACK_STUB("dlaed8");
3500 LAPACK_IMPL(dlaed8)(ICOMPQ,
3501 K,
3502 N,
3503 QSIZ,
3504 D,
3505 Q,
3506 LDQ,
3507 INDXQ,
3508 RHO,
3509 CUTPNT,
3510 Z,
3511 DLAMDA,
3512 Q2,
3513 LDQ2,
3514 W,
3515 PERM,
3516 GIVPTR,
3517 GIVCOL,
3518 GIVNUM,
3519 INDXP,
3520 INDX,
3521 INFO);
3522 }
3523
3524 //-- dlaed9 --------------------------------------------------------------------
3525 void
3526 LAPACK_DECL(dlaed9)(const INTEGER *K,
3527 const INTEGER *KSTART,
3528 const INTEGER *KSTOP,
3529 const INTEGER *N,
3530 DOUBLE *D,
3531 DOUBLE *Q,
3532 const INTEGER *LDQ,
3533 const DOUBLE *RHO,
3534 const DOUBLE *DLAMDA,
3535 const DOUBLE *W,
3536 DOUBLE *S,
3537 const INTEGER *LDS,
3538 INTEGER *INFO)
3539 {
3540 DEBUG_LAPACK_STUB("dlaed9");
3541 LAPACK_IMPL(dlaed9)(K,
3542 KSTART,
3543 KSTOP,
3544 N,
3545 D,
3546 Q,
3547 LDQ,
3548 RHO,
3549 DLAMDA,
3550 W,
3551 S,
3552 LDS,
3553 INFO);
3554 }
3555
3556 //-- dlaeda --------------------------------------------------------------------
3557 void
3558 LAPACK_DECL(dlaeda)(const INTEGER *N,
3559 const INTEGER *TLVLS,
3560 const INTEGER *CURLVL,
3561 const INTEGER *CURPBM,
3562 const INTEGER *PRMPTR,
3563 const INTEGER *PERM,
3564 const INTEGER *GIVPTR,
3565 const INTEGER *GIVCOL,
3566 const DOUBLE *GIVNUM,
3567 const DOUBLE *Q,
3568 const INTEGER *QPTR,
3569 DOUBLE *Z,
3570 DOUBLE *ZTEMP,
3571 INTEGER *INFO)
3572 {
3573 DEBUG_LAPACK_STUB("dlaeda");
3574 LAPACK_IMPL(dlaeda)(N,
3575 TLVLS,
3576 CURLVL,
3577 CURPBM,
3578 PRMPTR,
3579 PERM,
3580 GIVPTR,
3581 GIVCOL,
3582 GIVNUM,
3583 Q,
3584 QPTR,
3585 Z,
3586 ZTEMP,
3587 INFO);
3588 }
3589
3590 //-- dlaein --------------------------------------------------------------------
3591 void
3592 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
3593 const LOGICAL *NOINIT,
3594 const INTEGER *N,
3595 const DOUBLE *H,
3596 const INTEGER *LDH,
3597 const DOUBLE *WR,
3598 const DOUBLE *WI,
3599 DOUBLE *VR,
3600 DOUBLE *VI,
3601 DOUBLE *B,
3602 const INTEGER *LDB,
3603 DOUBLE *WORK,
3604 const DOUBLE *EPS3,
3605 const DOUBLE *SMLNUM,
3606 const DOUBLE *BIGNUM,
3607 INTEGER *INFO)
3608 {
3609 DEBUG_LAPACK_STUB("dlaein");
3610 LAPACK_IMPL(dlaein)(RIGHTV,
3611 NOINIT,
3612 N,
3613 H,
3614 LDH,
3615 WR,
3616 WI,
3617 VR,
3618 VI,
3619 B,
3620 LDB,
3621 WORK,
3622 EPS3,
3623 SMLNUM,
3624 BIGNUM,
3625 INFO);
3626 }
3627
3628 //-- dlaev2 --------------------------------------------------------------------
3629 void
3630 LAPACK_DECL(dlaev2)(const DOUBLE *A,
3631 const DOUBLE *B,
3632 const DOUBLE *C,
3633 DOUBLE *RT1,
3634 DOUBLE *RT2,
3635 DOUBLE *CS1,
3636 DOUBLE *SN1)
3637 {
3638 DEBUG_LAPACK_STUB("dlaev2");
3639 LAPACK_IMPL(dlaev2)(A,
3640 B,
3641 C,
3642 RT1,
3643 RT2,
3644 CS1,
3645 SN1);
3646 }
3647
3648 //-- dlaexc --------------------------------------------------------------------
3649 void
3650 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
3651 const INTEGER *N,
3652 DOUBLE *T,
3653 const INTEGER *LDT,
3654 DOUBLE *Q,
3655 const INTEGER *LDQ,
3656 const INTEGER *J1,
3657 const INTEGER *N1,
3658 const INTEGER *N2,
3659 DOUBLE *WORK,
3660 INTEGER *INFO)
3661 {
3662 DEBUG_LAPACK_STUB("dlaexc");
3663 LAPACK_IMPL(dlaexc)(WANTQ,
3664 N,
3665 T,
3666 LDT,
3667 Q,
3668 LDQ,
3669 J1,
3670 N1,
3671 N2,
3672 WORK,
3673 INFO);
3674 }
3675
3676 //-- dlag2 ---------------------------------------------------------------------
3677 void
3678 LAPACK_DECL(dlag2)(const DOUBLE *A,
3679 const INTEGER *LDA,
3680 const DOUBLE *B,
3681 const INTEGER *LDB,
3682 const DOUBLE *SAFMIN,
3683 DOUBLE *SCALE1,
3684 DOUBLE *SCALE2,
3685 DOUBLE *WR1,
3686 DOUBLE *WR2,
3687 DOUBLE *WI)
3688 {
3689 DEBUG_LAPACK_STUB("dlag2");
3690 LAPACK_IMPL(dlag2)(A,
3691 LDA,
3692 B,
3693 LDB,
3694 SAFMIN,
3695 SCALE1,
3696 SCALE2,
3697 WR1,
3698 WR2,
3699 WI);
3700 }
3701
3702 //-- dlag2s --------------------------------------------------------------------
3703 void
3704 LAPACK_DECL(dlag2s)(const INTEGER *M,
3705 const INTEGER *N,
3706 const DOUBLE *A,
3707 const INTEGER *LDA,
3708 FLOAT *SA,
3709 const INTEGER *LDSA,
3710 INTEGER *INFO)
3711 {
3712 DEBUG_LAPACK_STUB("dlag2s");
3713 LAPACK_IMPL(dlag2s)(M,
3714 N,
3715 A,
3716 LDA,
3717 SA,
3718 LDSA,
3719 INFO);
3720 }
3721
3722 //-- dlags2 --------------------------------------------------------------------
3723 void
3724 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
3725 const DOUBLE *A1,
3726 const DOUBLE *A2,
3727 const DOUBLE *A3,
3728 const DOUBLE *B1,
3729 const DOUBLE *B2,
3730 const DOUBLE *B3,
3731 DOUBLE *CSU,
3732 DOUBLE *SNU,
3733 DOUBLE *CSV,
3734 DOUBLE *SNV,
3735 DOUBLE *CSQ,
3736 DOUBLE *SNQ)
3737 {
3738 DEBUG_LAPACK_STUB("dlags2");
3739 LAPACK_IMPL(dlags2)(UPPER,
3740 A1,
3741 A2,
3742 A3,
3743 B1,
3744 B2,
3745 B3,
3746 CSU,
3747 SNU,
3748 CSV,
3749 SNV,
3750 CSQ,
3751 SNQ);
3752 }
3753
3754 //-- dlagtf --------------------------------------------------------------------
3755 void
3756 LAPACK_DECL(dlagtf)(const INTEGER *N,
3757 DOUBLE *A,
3758 const DOUBLE *LAMBDA,
3759 DOUBLE *B,
3760 DOUBLE *C,
3761 const DOUBLE *TOL,
3762 DOUBLE *D,
3763 INTEGER *IN,
3764 INTEGER *INFO)
3765 {
3766 DEBUG_LAPACK_STUB("dlagtf");
3767 LAPACK_IMPL(dlagtf)(N,
3768 A,
3769 LAMBDA,
3770 B,
3771 C,
3772 TOL,
3773 D,
3774 IN,
3775 INFO);
3776 }
3777
3778 //-- dlagtm --------------------------------------------------------------------
3779 void
3780 LAPACK_DECL(dlagtm)(const char *TRANS,
3781 const INTEGER *N,
3782 const INTEGER *NRHS,
3783 const DOUBLE *ALPHA,
3784 const DOUBLE *DL,
3785 const DOUBLE *D,
3786 const DOUBLE *DU,
3787 const DOUBLE *X,
3788 const INTEGER *LDX,
3789 const DOUBLE *BETA,
3790 DOUBLE *B,
3791 const INTEGER *LDB)
3792 {
3793 DEBUG_LAPACK_STUB("dlagtm");
3794 LAPACK_IMPL(dlagtm)(TRANS,
3795 N,
3796 NRHS,
3797 ALPHA,
3798 DL,
3799 D,
3800 DU,
3801 X,
3802 LDX,
3803 BETA,
3804 B,
3805 LDB);
3806 }
3807
3808 //-- dlagts --------------------------------------------------------------------
3809 void
3810 LAPACK_DECL(dlagts)(const INTEGER *JOB,
3811 const INTEGER *N,
3812 const DOUBLE *A,
3813 const DOUBLE *B,
3814 const DOUBLE *C,
3815 const DOUBLE *D,
3816 const INTEGER *IN,
3817 DOUBLE *Y,
3818 DOUBLE *TOL,
3819 INTEGER *INFO)
3820 {
3821 DEBUG_LAPACK_STUB("dlagts");
3822 LAPACK_IMPL(dlagts)(JOB,
3823 N,
3824 A,
3825 B,
3826 C,
3827 D,
3828 IN,
3829 Y,
3830 TOL,
3831 INFO);
3832 }
3833
3834 //-- dlagv2 --------------------------------------------------------------------
3835 void
3836 LAPACK_DECL(dlagv2)(DOUBLE *A,
3837 const INTEGER *LDA,
3838 DOUBLE *B,
3839 const INTEGER *LDB,
3840 DOUBLE *ALPHAR,
3841 DOUBLE *ALPHAI,
3842 DOUBLE *BETA,
3843 DOUBLE *CSL,
3844 DOUBLE *SNL,
3845 DOUBLE *CSR,
3846 DOUBLE *SNR)
3847 {
3848 DEBUG_LAPACK_STUB("dlagv2");
3849 LAPACK_IMPL(dlagv2)(A,
3850 LDA,
3851 B,
3852 LDB,
3853 ALPHAR,
3854 ALPHAI,
3855 BETA,
3856 CSL,
3857 SNL,
3858 CSR,
3859 SNR);
3860 }
3861
3862 //-- dlahqr --------------------------------------------------------------------
3863 void
3864 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
3865 const LOGICAL *WANTZ,
3866 const INTEGER *N,
3867 const INTEGER *ILO,
3868 const INTEGER *IHI,
3869 DOUBLE *H,
3870 const INTEGER *LDH,
3871 DOUBLE *WR,
3872 DOUBLE *WI,
3873 const INTEGER *ILOZ,
3874 const INTEGER *IHIZ,
3875 DOUBLE *Z,
3876 const INTEGER *LDZ,
3877 INTEGER *INFO)
3878 {
3879 DEBUG_LAPACK_STUB("dlahqr");
3880 LAPACK_IMPL(dlahqr)(WANTT,
3881 WANTZ,
3882 N,
3883 ILO,
3884 IHI,
3885 H,
3886 LDH,
3887 WR,
3888 WI,
3889 ILOZ,
3890 IHIZ,
3891 Z,
3892 LDZ,
3893 INFO);
3894 }
3895
3896 //-- dlahr2 --------------------------------------------------------------------
3897 void
3898 LAPACK_DECL(dlahr2)(const INTEGER *N,
3899 const INTEGER *K,
3900 const INTEGER *NB,
3901 DOUBLE *A,
3902 const INTEGER *LDA,
3903 DOUBLE *TAU,
3904 DOUBLE *T,
3905 const INTEGER *LDT,
3906 DOUBLE *Y,
3907 const INTEGER *LDY)
3908 {
3909 DEBUG_LAPACK_STUB("dlahr2");
3910 LAPACK_IMPL(dlahr2)(N,
3911 K,
3912 NB,
3913 A,
3914 LDA,
3915 TAU,
3916 T,
3917 LDT,
3918 Y,
3919 LDY);
3920 }
3921
3922 //-- dlahrd --------------------------------------------------------------------
3923 void
3924 LAPACK_DECL(dlahrd)(const INTEGER *N,
3925 const INTEGER *K,
3926 const INTEGER *NB,
3927 DOUBLE *A,
3928 const INTEGER *LDA,
3929 DOUBLE *TAU,
3930 DOUBLE *T,
3931 const INTEGER *LDT,
3932 DOUBLE *Y,
3933 const INTEGER *LDY)
3934 {
3935 DEBUG_LAPACK_STUB("dlahrd");
3936 LAPACK_IMPL(dlahrd)(N,
3937 K,
3938 NB,
3939 A,
3940 LDA,
3941 TAU,
3942 T,
3943 LDT,
3944 Y,
3945 LDY);
3946 }
3947
3948 //-- dlaic1 --------------------------------------------------------------------
3949 void
3950 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
3951 const INTEGER *J,
3952 const DOUBLE *X,
3953 const DOUBLE *SEST,
3954 const DOUBLE *W,
3955 const DOUBLE *GAMMA,
3956 DOUBLE *SESTPR,
3957 DOUBLE *S,
3958 DOUBLE *C)
3959 {
3960 DEBUG_LAPACK_STUB("dlaic1");
3961 LAPACK_IMPL(dlaic1)(JOB,
3962 J,
3963 X,
3964 SEST,
3965 W,
3966 GAMMA,
3967 SESTPR,
3968 S,
3969 C);
3970 }
3971
3972 //-- dlaisnan ------------------------------------------------------------------
3973 LOGICAL
3974 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
3975 const DOUBLE *DIN2)
3976 {
3977 DEBUG_LAPACK_STUB("dlaisnan");
3978 return LAPACK_IMPL(dlaisnan)(DIN1,
3979 DIN2);
3980 }
3981
3982 //-- dlaln2 --------------------------------------------------------------------
3983 void
3984 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
3985 const INTEGER *NA,
3986 const INTEGER *NW,
3987 const DOUBLE *SMIN,
3988 const DOUBLE *CA,
3989 const DOUBLE *A,
3990 const INTEGER *LDA,
3991 const DOUBLE *D1,
3992 const DOUBLE *D2,
3993 const DOUBLE *B,
3994 const INTEGER *LDB,
3995 const DOUBLE *WR,
3996 const DOUBLE *WI,
3997 DOUBLE *X,
3998 const INTEGER *LDX,
3999 DOUBLE *SCALE,
4000 DOUBLE *XNORM,
4001 INTEGER *INFO)
4002 {
4003 DEBUG_LAPACK_STUB("dlaln2");
4004 LAPACK_IMPL(dlaln2)(LTRANS,
4005 NA,
4006 NW,
4007 SMIN,
4008 CA,
4009 A,
4010 LDA,
4011 D1,
4012 D2,
4013 B,
4014 LDB,
4015 WR,
4016 WI,
4017 X,
4018 LDX,
4019 SCALE,
4020 XNORM,
4021 INFO);
4022 }
4023
4024 //-- dlals0 --------------------------------------------------------------------
4025 void
4026 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
4027 const INTEGER *NL,
4028 const INTEGER *NR,
4029 const INTEGER *SQRE,
4030 const INTEGER *NRHS,
4031 DOUBLE *B,
4032 const INTEGER *LDB,
4033 DOUBLE *BX,
4034 const INTEGER *LDBX,
4035 const INTEGER *PERM,
4036 const INTEGER *GIVPTR,
4037 const INTEGER *GIVCOL,
4038 const INTEGER *LDGCOL,
4039 const DOUBLE *GIVNUM,
4040 const INTEGER *LDGNUM,
4041 const DOUBLE *POLES,
4042 const DOUBLE *DIFL,
4043 const DOUBLE *DIFR,
4044 const DOUBLE *Z,
4045 const INTEGER *K,
4046 const DOUBLE *C,
4047 const DOUBLE *S,
4048 DOUBLE *WORK,
4049 INTEGER *INFO)
4050 {
4051 DEBUG_LAPACK_STUB("dlals0");
4052 LAPACK_IMPL(dlals0)(ICOMPQ,
4053 NL,
4054 NR,
4055 SQRE,
4056 NRHS,
4057 B,
4058 LDB,
4059 BX,
4060 LDBX,
4061 PERM,
4062 GIVPTR,
4063 GIVCOL,
4064 LDGCOL,
4065 GIVNUM,
4066 LDGNUM,
4067 POLES,
4068 DIFL,
4069 DIFR,
4070 Z,
4071 K,
4072 C,
4073 S,
4074 WORK,
4075 INFO);
4076 }
4077
4078 //-- dlalsa --------------------------------------------------------------------
4079 void
4080 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
4081 const INTEGER *SMLSIZ,
4082 const INTEGER *N,
4083 const INTEGER *NRHS,
4084 DOUBLE *B,
4085 const INTEGER *LDB,
4086 DOUBLE *BX,
4087 const INTEGER *LDBX,
4088 const DOUBLE *U,
4089 const INTEGER *LDU,
4090 const DOUBLE *VT,
4091 const INTEGER *K,
4092 const DOUBLE *DIFL,
4093 const DOUBLE *DIFR,
4094 const DOUBLE *Z,
4095 const DOUBLE *POLES,
4096 const INTEGER *GIVPTR,
4097 const INTEGER *GIVCOL,
4098 const INTEGER *LDGCOL,
4099 const INTEGER *PERM,
4100 const DOUBLE *GIVNUM,
4101 const DOUBLE *C,
4102 const DOUBLE *S,
4103 DOUBLE *WORK,
4104 INTEGER *IWORK,
4105 INTEGER *INFO)
4106 {
4107 DEBUG_LAPACK_STUB("dlalsa");
4108 LAPACK_IMPL(dlalsa)(ICOMPQ,
4109 SMLSIZ,
4110 N,
4111 NRHS,
4112 B,
4113 LDB,
4114 BX,
4115 LDBX,
4116 U,
4117 LDU,
4118 VT,
4119 K,
4120 DIFL,
4121 DIFR,
4122 Z,
4123 POLES,
4124 GIVPTR,
4125 GIVCOL,
4126 LDGCOL,
4127 PERM,
4128 GIVNUM,
4129 C,
4130 S,
4131 WORK,
4132 IWORK,
4133 INFO);
4134 }
4135
4136 //-- dlalsd --------------------------------------------------------------------
4137 void
4138 LAPACK_DECL(dlalsd)(const char *UPLO,
4139 const INTEGER *SMLSIZ,
4140 const INTEGER *N,
4141 const INTEGER *NRHS,
4142 DOUBLE *D,
4143 DOUBLE *E,
4144 DOUBLE *B,
4145 const INTEGER *LDB,
4146 const DOUBLE *RCOND,
4147 INTEGER *RANK,
4148 DOUBLE *WORK,
4149 INTEGER *IWORK,
4150 INTEGER *INFO)
4151 {
4152 DEBUG_LAPACK_STUB("dlalsd");
4153 LAPACK_IMPL(dlalsd)(UPLO,
4154 SMLSIZ,
4155 N,
4156 NRHS,
4157 D,
4158 E,
4159 B,
4160 LDB,
4161 RCOND,
4162 RANK,
4163 WORK,
4164 IWORK,
4165 INFO);
4166 }
4167
4168 //-- dlamch --------------------------------------------------------------------
4169 /*
4170 DOUBLE
4171 LAPACK_DECL(dlamch)(const char *CMACH)
4172 {
4173 DEBUG_LAPACK_STUB("dlamch");
4174 return LAPACK_IMPL(dlamch)(CMACH);
4175 }
4176 */
4177 //-- dlamrg --------------------------------------------------------------------
4178 void
4179 LAPACK_DECL(dlamrg)(const INTEGER *N1,
4180 const INTEGER *N2,
4181 const DOUBLE *A,
4182 const INTEGER *DTRD1,
4183 const INTEGER *DTRD2,
4184 INTEGER *INDEX)
4185 {
4186 DEBUG_LAPACK_STUB("dlamrg");
4187 LAPACK_IMPL(dlamrg)(N1,
4188 N2,
4189 A,
4190 DTRD1,
4191 DTRD2,
4192 INDEX);
4193 }
4194
4195 //-- dlaneg --------------------------------------------------------------------
4196 INTEGER
4197 LAPACK_DECL(dlaneg)(const INTEGER *N,
4198 const DOUBLE *D,
4199 const DOUBLE *LLD,
4200 const DOUBLE *SIGMA,
4201 const DOUBLE *PIVMIN,
4202 const INTEGER *R)
4203 {
4204 DEBUG_LAPACK_STUB("dlaneg");
4205 return LAPACK_IMPL(dlaneg)(N,
4206 D,
4207 LLD,
4208 SIGMA,
4209 PIVMIN,
4210 R);
4211 }
4212
4213 //-- dlangb --------------------------------------------------------------------
4214 DOUBLE
4215 LAPACK_DECL(dlangb)(const char *NORM,
4216 const INTEGER *N,
4217 const INTEGER *KL,
4218 const INTEGER *KU,
4219 const DOUBLE *AB,
4220 const INTEGER *LDAB,
4221 DOUBLE *WORK)
4222 {
4223 DEBUG_LAPACK_STUB("dlangb");
4224 return LAPACK_IMPL(dlangb)(NORM,
4225 N,
4226 KL,
4227 KU,
4228 AB,
4229 LDAB,
4230 WORK);
4231 }
4232
4233 //-- dlange --------------------------------------------------------------------
4234 DOUBLE
4235 LAPACK_DECL(dlange)(const char *NORM,
4236 const INTEGER *M,
4237 const INTEGER *N,
4238 const DOUBLE *A,
4239 const INTEGER *LDA,
4240 DOUBLE *WORK)
4241 {
4242 DEBUG_LAPACK_STUB("dlange");
4243 return LAPACK_IMPL(dlange)(NORM,
4244 M,
4245 N,
4246 A,
4247 LDA,
4248 WORK);
4249 }
4250
4251 //-- dlangt --------------------------------------------------------------------
4252 DOUBLE
4253 LAPACK_DECL(dlangt)(const char *NORM,
4254 const INTEGER *N,
4255 const DOUBLE *DL,
4256 const DOUBLE *D,
4257 const DOUBLE *DU)
4258 {
4259 DEBUG_LAPACK_STUB("dlangt");
4260 return LAPACK_IMPL(dlangt)(NORM,
4261 N,
4262 DL,
4263 D,
4264 DU);
4265 }
4266
4267 //-- dlanhs --------------------------------------------------------------------
4268 DOUBLE
4269 LAPACK_DECL(dlanhs)(const char *NORM,
4270 const INTEGER *N,
4271 const DOUBLE *A,
4272 const INTEGER *LDA,
4273 DOUBLE *WORK)
4274 {
4275 DEBUG_LAPACK_STUB("dlanhs");
4276 return LAPACK_IMPL(dlanhs)(NORM,
4277 N,
4278 A,
4279 LDA,
4280 WORK);
4281 }
4282
4283 //-- dlansb --------------------------------------------------------------------
4284 DOUBLE
4285 LAPACK_DECL(dlansb)(const char *NORM,
4286 const char *UPLO,
4287 const INTEGER *N,
4288 const INTEGER *K,
4289 const DOUBLE *AB,
4290 const INTEGER *LDAB,
4291 DOUBLE *WORK)
4292 {
4293 DEBUG_LAPACK_STUB("dlansb");
4294 return LAPACK_IMPL(dlansb)(NORM,
4295 UPLO,
4296 N,
4297 K,
4298 AB,
4299 LDAB,
4300 WORK);
4301 }
4302
4303 //-- dlansf --------------------------------------------------------------------
4304 DOUBLE
4305 LAPACK_DECL(dlansf)(const char *NORM,
4306 const char *TRANSR,
4307 const char *UPLO,
4308 const INTEGER *N,
4309 const DOUBLE *A,
4310 DOUBLE *WORK)
4311 {
4312 DEBUG_LAPACK_STUB("dlansf");
4313 return LAPACK_IMPL(dlansf)(NORM,
4314 TRANSR,
4315 UPLO,
4316 N,
4317 A,
4318 WORK);
4319 }
4320
4321 //-- dlansp --------------------------------------------------------------------
4322 DOUBLE
4323 LAPACK_DECL(dlansp)(const char *NORM,
4324 const char *UPLO,
4325 const INTEGER *N,
4326 const DOUBLE *AP,
4327 DOUBLE *WORK)
4328 {
4329 DEBUG_LAPACK_STUB("dlansp");
4330 return LAPACK_IMPL(dlansp)(NORM,
4331 UPLO,
4332 N,
4333 AP,
4334 WORK);
4335 }
4336
4337 //-- dlanst --------------------------------------------------------------------
4338 DOUBLE
4339 LAPACK_DECL(dlanst)(const char *NORM,
4340 const INTEGER *N,
4341 const DOUBLE *D,
4342 const DOUBLE *E)
4343 {
4344 DEBUG_LAPACK_STUB("dlanst");
4345 return LAPACK_IMPL(dlanst)(NORM,
4346 N,
4347 D,
4348 E);
4349 }
4350
4351 //-- dlansy --------------------------------------------------------------------
4352 DOUBLE
4353 LAPACK_DECL(dlansy)(const char *NORM,
4354 const char *UPLO,
4355 const INTEGER *N,
4356 const DOUBLE *A,
4357 const INTEGER *LDA,
4358 DOUBLE *WORK)
4359 {
4360 DEBUG_LAPACK_STUB("dlansy");
4361 return LAPACK_IMPL(dlansy)(NORM,
4362 UPLO,
4363 N,
4364 A,
4365 LDA,
4366 WORK);
4367 }
4368
4369 //-- dlantb --------------------------------------------------------------------
4370 DOUBLE
4371 LAPACK_DECL(dlantb)(const char *NORM,
4372 const char *UPLO,
4373 const char *DIAG,
4374 const INTEGER *N,
4375 const INTEGER *K,
4376 const DOUBLE *AB,
4377 const INTEGER *LDAB,
4378 DOUBLE *WORK)
4379 {
4380 DEBUG_LAPACK_STUB("dlantb");
4381 return LAPACK_IMPL(dlantb)(NORM,
4382 UPLO,
4383 DIAG,
4384 N,
4385 K,
4386 AB,
4387 LDAB,
4388 WORK);
4389 }
4390
4391 //-- dlantp --------------------------------------------------------------------
4392 DOUBLE
4393 LAPACK_DECL(dlantp)(const char *NORM,
4394 const char *UPLO,
4395 const char *DIAG,
4396 const INTEGER *N,
4397 const DOUBLE *AP,
4398 DOUBLE *WORK)
4399 {
4400 DEBUG_LAPACK_STUB("dlantp");
4401 return LAPACK_IMPL(dlantp)(NORM,
4402 UPLO,
4403 DIAG,
4404 N,
4405 AP,
4406 WORK);
4407 }
4408
4409 //-- dlantr --------------------------------------------------------------------
4410 DOUBLE
4411 LAPACK_DECL(dlantr)(const char *NORM,
4412 const char *UPLO,
4413 const char *DIAG,
4414 const INTEGER *M,
4415 const INTEGER *N,
4416 const DOUBLE *A,
4417 const INTEGER *LDA,
4418 DOUBLE *WORK)
4419 {
4420 DEBUG_LAPACK_STUB("dlantr");
4421 return LAPACK_IMPL(dlantr)(NORM,
4422 UPLO,
4423 DIAG,
4424 M,
4425 N,
4426 A,
4427 LDA,
4428 WORK);
4429 }
4430
4431 //-- dlanv2 --------------------------------------------------------------------
4432 void
4433 LAPACK_DECL(dlanv2)(DOUBLE *A,
4434 DOUBLE *B,
4435 DOUBLE *C,
4436 DOUBLE *D,
4437 DOUBLE *RT1R,
4438 DOUBLE *RT1I,
4439 DOUBLE *RT2R,
4440 DOUBLE *RT2I,
4441 DOUBLE *CS,
4442 DOUBLE *SN)
4443 {
4444 DEBUG_LAPACK_STUB("dlanv2");
4445 LAPACK_IMPL(dlanv2)(A,
4446 B,
4447 C,
4448 D,
4449 RT1R,
4450 RT1I,
4451 RT2R,
4452 RT2I,
4453 CS,
4454 SN);
4455 }
4456
4457 //-- dlapll --------------------------------------------------------------------
4458 void
4459 LAPACK_DECL(dlapll)(const INTEGER *N,
4460 DOUBLE *X,
4461 const INTEGER *INCX,
4462 DOUBLE *Y,
4463 const INTEGER *INCY,
4464 DOUBLE *SSMIN)
4465 {
4466 DEBUG_LAPACK_STUB("dlapll");
4467 LAPACK_IMPL(dlapll)(N,
4468 X,
4469 INCX,
4470 Y,
4471 INCY,
4472 SSMIN);
4473 }
4474
4475 //-- dlapmr --------------------------------------------------------------------
4476 void
4477 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
4478 const INTEGER *M,
4479 const INTEGER *N,
4480 DOUBLE *X,
4481 const INTEGER *LDX,
4482 INTEGER *K)
4483 {
4484 DEBUG_LAPACK_STUB("dlapmr");
4485 LAPACK_IMPL(dlapmr)(FORWRD,
4486 M,
4487 N,
4488 X,
4489 LDX,
4490 K);
4491 }
4492
4493 //-- dlapmt --------------------------------------------------------------------
4494 void
4495 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
4496 const INTEGER *M,
4497 const INTEGER *N,
4498 DOUBLE *X,
4499 const INTEGER *LDX,
4500 INTEGER *K)
4501 {
4502 DEBUG_LAPACK_STUB("dlapmt");
4503 LAPACK_IMPL(dlapmt)(FORWRD,
4504 M,
4505 N,
4506 X,
4507 LDX,
4508 K);
4509 }
4510
4511 //-- dlapy2 --------------------------------------------------------------------
4512 DOUBLE
4513 LAPACK_DECL(dlapy2)(const DOUBLE *X,
4514 const DOUBLE *Y)
4515 {
4516 DEBUG_LAPACK_STUB("dlapy2");
4517 return LAPACK_IMPL(dlapy2)(X,
4518 Y);
4519 }
4520
4521 //-- dlapy3 --------------------------------------------------------------------
4522 DOUBLE
4523 LAPACK_DECL(dlapy3)(const DOUBLE *X,
4524 const DOUBLE *Y,
4525 const DOUBLE *Z)
4526 {
4527 DEBUG_LAPACK_STUB("dlapy3");
4528 return LAPACK_IMPL(dlapy3)(X,
4529 Y,
4530 Z);
4531 }
4532
4533 //-- dlaqgb --------------------------------------------------------------------
4534 void
4535 LAPACK_DECL(dlaqgb)(const INTEGER *M,
4536 const INTEGER *N,
4537 const INTEGER *KL,
4538 const INTEGER *KU,
4539 DOUBLE *AB,
4540 const INTEGER *LDAB,
4541 const DOUBLE *R,
4542 const DOUBLE *C,
4543 const DOUBLE *ROWCND,
4544 const DOUBLE *COLCND,
4545 const DOUBLE *AMAX,
4546 char *EQUED)
4547 {
4548 DEBUG_LAPACK_STUB("dlaqgb");
4549 LAPACK_IMPL(dlaqgb)(M,
4550 N,
4551 KL,
4552 KU,
4553 AB,
4554 LDAB,
4555 R,
4556 C,
4557 ROWCND,
4558 COLCND,
4559 AMAX,
4560 EQUED);
4561 }
4562
4563 //-- dlaqge --------------------------------------------------------------------
4564 /*
4565 void
4566 LAPACK_DECL(dlaqge)(const INTEGER *M,
4567 const INTEGER *N,
4568 DOUBLE *A,
4569 const INTEGER *LDA,
4570 const DOUBLE *R,
4571 const DOUBLE *C,
4572 const DOUBLE *ROWCND,
4573 const DOUBLE *COLCND,
4574 const DOUBLE *AMAX,
4575 char *EQUED)
4576 {
4577 DEBUG_LAPACK_STUB("dlaqge");
4578 LAPACK_IMPL(dlaqge)(M,
4579 N,
4580 A,
4581 LDA,
4582 R,
4583 C,
4584 ROWCND,
4585 COLCND,
4586 AMAX,
4587 EQUED);
4588 }
4589 */
4590 //-- dlaqp2 --------------------------------------------------------------------
4591 void
4592 LAPACK_DECL(dlaqp2)(const INTEGER *M,
4593 const INTEGER *N,
4594 const INTEGER *OFFSET,
4595 DOUBLE *A,
4596 const INTEGER *LDA,
4597 INTEGER *JPVT,
4598 DOUBLE *TAU,
4599 DOUBLE *VN1,
4600 DOUBLE *VN2,
4601 DOUBLE *WORK)
4602 {
4603 DEBUG_LAPACK_STUB("dlaqp2");
4604 LAPACK_IMPL(dlaqp2)(M,
4605 N,
4606 OFFSET,
4607 A,
4608 LDA,
4609 JPVT,
4610 TAU,
4611 VN1,
4612 VN2,
4613 WORK);
4614 }
4615
4616 //-- dlaqps --------------------------------------------------------------------
4617 void
4618 LAPACK_DECL(dlaqps)(const INTEGER *M,
4619 const INTEGER *N,
4620 const INTEGER *OFFSET,
4621 const INTEGER *NB,
4622 INTEGER *KB,
4623 DOUBLE *A,
4624 const INTEGER *LDA,
4625 INTEGER *JPVT,
4626 DOUBLE *TAU,
4627 DOUBLE *VN1,
4628 DOUBLE *VN2,
4629 DOUBLE *AUXV,
4630 DOUBLE *F,
4631 const INTEGER *LDF)
4632 {
4633 DEBUG_LAPACK_STUB("dlaqps");
4634 LAPACK_IMPL(dlaqps)(M,
4635 N,
4636 OFFSET,
4637 NB,
4638 KB,
4639 A,
4640 LDA,
4641 JPVT,
4642 TAU,
4643 VN1,
4644 VN2,
4645 AUXV,
4646 F,
4647 LDF);
4648 }
4649
4650 //-- dlaqr0 --------------------------------------------------------------------
4651 void
4652 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
4653 const LOGICAL *WANTZ,
4654 const INTEGER *N,
4655 const INTEGER *ILO,
4656 const INTEGER *IHI,
4657 DOUBLE *H,
4658 const INTEGER *LDH,
4659 DOUBLE *WR,
4660 DOUBLE *WI,
4661 const INTEGER *ILOZ,
4662 const INTEGER *IHIZ,
4663 DOUBLE *Z,
4664 const INTEGER *LDZ,
4665 DOUBLE *WORK,
4666 const INTEGER *LWORK,
4667 INTEGER *INFO)
4668 {
4669 DEBUG_LAPACK_STUB("dlaqr0");
4670 LAPACK_IMPL(dlaqr0)(WANTT,
4671 WANTZ,
4672 N,
4673 ILO,
4674 IHI,
4675 H,
4676 LDH,
4677 WR,
4678 WI,
4679 ILOZ,
4680 IHIZ,
4681 Z,
4682 LDZ,
4683 WORK,
4684 LWORK,
4685 INFO);
4686 }
4687
4688 //-- dlaqr1 --------------------------------------------------------------------
4689 void
4690 LAPACK_DECL(dlaqr1)(const INTEGER *N,
4691 const DOUBLE *H,
4692 const INTEGER *LDH,
4693 const DOUBLE *SR1,
4694 const DOUBLE *SI1,
4695 const DOUBLE *SR2,
4696 const DOUBLE *SI2,
4697 DOUBLE *V)
4698 {
4699 DEBUG_LAPACK_STUB("dlaqr1");
4700 LAPACK_IMPL(dlaqr1)(N,
4701 H,
4702 LDH,
4703 SR1,
4704 SI1,
4705 SR2,
4706 SI2,
4707 V);
4708 }
4709
4710 //-- dlaqr2 --------------------------------------------------------------------
4711 void
4712 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
4713 const LOGICAL *WANTZ,
4714 const INTEGER *N,
4715 const INTEGER *KTOP,
4716 const INTEGER *KBOT,
4717 const INTEGER *NW,
4718 DOUBLE *H,
4719 const INTEGER *LDH,
4720 const INTEGER *ILOZ,
4721 const INTEGER *IHIZ,
4722 DOUBLE *Z,
4723 const INTEGER *LDZ,
4724 INTEGER *NS,
4725 INTEGER *ND,
4726 DOUBLE *SR,
4727 DOUBLE *SI,
4728 DOUBLE *V,
4729 const INTEGER *LDV,
4730 const INTEGER *NH,
4731 DOUBLE *T,
4732 const INTEGER *LDT,
4733 const INTEGER *NV,
4734 DOUBLE *WV,
4735 const INTEGER *LDWV,
4736 DOUBLE *WORK,
4737 const INTEGER *LWORK)
4738 {
4739 DEBUG_LAPACK_STUB("dlaqr2");
4740 LAPACK_IMPL(dlaqr2)(WANTT,
4741 WANTZ,
4742 N,
4743 KTOP,
4744 KBOT,
4745 NW,
4746 H,
4747 LDH,
4748 ILOZ,
4749 IHIZ,
4750 Z,
4751 LDZ,
4752 NS,
4753 ND,
4754 SR,
4755 SI,
4756 V,
4757 LDV,
4758 NH,
4759 T,
4760 LDT,
4761 NV,
4762 WV,
4763 LDWV,
4764 WORK,
4765 LWORK);
4766 }
4767
4768 //-- dlaqr3 --------------------------------------------------------------------
4769 void
4770 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
4771 const LOGICAL *WANTZ,
4772 const INTEGER *N,
4773 const INTEGER *KTOP,
4774 const INTEGER *KBOT,
4775 const INTEGER *NW,
4776 DOUBLE *H,
4777 const INTEGER *LDH,
4778 const INTEGER *ILOZ,
4779 const INTEGER *IHIZ,
4780 DOUBLE *Z,
4781 const INTEGER *LDZ,
4782 INTEGER *NS,
4783 INTEGER *ND,
4784 DOUBLE *SR,
4785 DOUBLE *SI,
4786 DOUBLE *V,
4787 const INTEGER *LDV,
4788 const INTEGER *NH,
4789 DOUBLE *T,
4790 const INTEGER *LDT,
4791 const INTEGER *NV,
4792 DOUBLE *WV,
4793 const INTEGER *LDWV,
4794 DOUBLE *WORK,
4795 const INTEGER *LWORK)
4796 {
4797 DEBUG_LAPACK_STUB("dlaqr3");
4798 LAPACK_IMPL(dlaqr3)(WANTT,
4799 WANTZ,
4800 N,
4801 KTOP,
4802 KBOT,
4803 NW,
4804 H,
4805 LDH,
4806 ILOZ,
4807 IHIZ,
4808 Z,
4809 LDZ,
4810 NS,
4811 ND,
4812 SR,
4813 SI,
4814 V,
4815 LDV,
4816 NH,
4817 T,
4818 LDT,
4819 NV,
4820 WV,
4821 LDWV,
4822 WORK,
4823 LWORK);
4824 }
4825
4826 //-- dlaqr4 --------------------------------------------------------------------
4827 void
4828 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
4829 const LOGICAL *WANTZ,
4830 const INTEGER *N,
4831 const INTEGER *ILO,
4832 const INTEGER *IHI,
4833 DOUBLE *H,
4834 const INTEGER *LDH,
4835 DOUBLE *WR,
4836 DOUBLE *WI,
4837 const INTEGER *ILOZ,
4838 const INTEGER *IHIZ,
4839 DOUBLE *Z,
4840 const INTEGER *LDZ,
4841 DOUBLE *WORK,
4842 const INTEGER *LWORK,
4843 INTEGER *INFO)
4844 {
4845 DEBUG_LAPACK_STUB("dlaqr4");
4846 LAPACK_IMPL(dlaqr4)(WANTT,
4847 WANTZ,
4848 N,
4849 ILO,
4850 IHI,
4851 H,
4852 LDH,
4853 WR,
4854 WI,
4855 ILOZ,
4856 IHIZ,
4857 Z,
4858 LDZ,
4859 WORK,
4860 LWORK,
4861 INFO);
4862 }
4863
4864 //-- dlaqr5 --------------------------------------------------------------------
4865 void
4866 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
4867 const LOGICAL *WANTZ,
4868 const INTEGER *KACC22,
4869 const INTEGER *N,
4870 const INTEGER *KTOP,
4871 const INTEGER *KBOT,
4872 const INTEGER *NSHFTS,
4873 DOUBLE *SR,
4874 DOUBLE *SI,
4875 DOUBLE *H,
4876 const INTEGER *LDH,
4877 const INTEGER *ILOZ,
4878 const INTEGER *IHIZ,
4879 DOUBLE *Z,
4880 const INTEGER *LDZ,
4881 DOUBLE *V,
4882 const INTEGER *LDV,
4883 DOUBLE *U,
4884 const INTEGER *LDU,
4885 const INTEGER *NV,
4886 DOUBLE *WV,
4887 const INTEGER *LDWV,
4888 const INTEGER *NH,
4889 DOUBLE *WH,
4890 const INTEGER *LDWH)
4891 {
4892 DEBUG_LAPACK_STUB("dlaqr5");
4893 LAPACK_IMPL(dlaqr5)(WANTT,
4894 WANTZ,
4895 KACC22,
4896 N,
4897 KTOP,
4898 KBOT,
4899 NSHFTS,
4900 SR,
4901 SI,
4902 H,
4903 LDH,
4904 ILOZ,
4905 IHIZ,
4906 Z,
4907 LDZ,
4908 V,
4909 LDV,
4910 U,
4911 LDU,
4912 NV,
4913 WV,
4914 LDWV,
4915 NH,
4916 WH,
4917 LDWH);
4918 }
4919
4920 //-- dlaqsb --------------------------------------------------------------------
4921 void
4922 LAPACK_DECL(dlaqsb)(const char *UPLO,
4923 const INTEGER *N,
4924 const INTEGER *KD,
4925 DOUBLE *AB,
4926 const INTEGER *LDAB,
4927 const DOUBLE *S,
4928 const DOUBLE *SCOND,
4929 const DOUBLE *AMAX,
4930 char *EQUED)
4931 {
4932 DEBUG_LAPACK_STUB("dlaqsb");
4933 LAPACK_IMPL(dlaqsb)(UPLO,
4934 N,
4935 KD,
4936 AB,
4937 LDAB,
4938 S,
4939 SCOND,
4940 AMAX,
4941 EQUED);
4942 }
4943
4944 //-- dlaqsp --------------------------------------------------------------------
4945 void
4946 LAPACK_DECL(dlaqsp)(const char *UPLO,
4947 const INTEGER *N,
4948 DOUBLE *AP,
4949 const DOUBLE *S,
4950 const DOUBLE *SCOND,
4951 const DOUBLE *AMAX,
4952 char *EQUED)
4953 {
4954 DEBUG_LAPACK_STUB("dlaqsp");
4955 LAPACK_IMPL(dlaqsp)(UPLO,
4956 N,
4957 AP,
4958 S,
4959 SCOND,
4960 AMAX,
4961 EQUED);
4962 }
4963
4964 //-- dlaqsy --------------------------------------------------------------------
4965 void
4966 LAPACK_DECL(dlaqsy)(const char *UPLO,
4967 const INTEGER *N,
4968 DOUBLE *A,
4969 const INTEGER *LDA,
4970 const DOUBLE *S,
4971 const DOUBLE *SCOND,
4972 const DOUBLE *AMAX,
4973 char *EQUED)
4974 {
4975 DEBUG_LAPACK_STUB("dlaqsy");
4976 LAPACK_IMPL(dlaqsy)(UPLO,
4977 N,
4978 A,
4979 LDA,
4980 S,
4981 SCOND,
4982 AMAX,
4983 EQUED);
4984 }
4985
4986 //-- dlaqtr --------------------------------------------------------------------
4987 void
4988 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
4989 const LOGICAL *LREAL,
4990 const INTEGER *N,
4991 const DOUBLE *T,
4992 const INTEGER *LDT,
4993 const DOUBLE *B,
4994 const DOUBLE *W,
4995 DOUBLE *SCALE,
4996 DOUBLE *X,
4997 DOUBLE *WORK,
4998 INTEGER *INFO)
4999 {
5000 DEBUG_LAPACK_STUB("dlaqtr");
5001 LAPACK_IMPL(dlaqtr)(LTRAN,
5002 LREAL,
5003 N,
5004 T,
5005 LDT,
5006 B,
5007 W,
5008 SCALE,
5009 X,
5010 WORK,
5011 INFO);
5012 }
5013
5014 //-- dlar1v --------------------------------------------------------------------
5015 void
5016 LAPACK_DECL(dlar1v)(const INTEGER *N,
5017 const INTEGER *B1,
5018 const INTEGER *BN,
5019 const DOUBLE *LAMBDA,
5020 const DOUBLE *D,
5021 const DOUBLE *L,
5022 const DOUBLE *LD,
5023 const DOUBLE *LLD,
5024 const DOUBLE *PIVMIN,
5025 const DOUBLE *GAPTOL,
5026 DOUBLE *Z,
5027 const LOGICAL *WANTNC,
5028 INTEGER *NEGCNT,
5029 DOUBLE *ZTZ,
5030 DOUBLE *MINGMA,
5031 INTEGER *R,
5032 INTEGER *ISUPPZ,
5033 DOUBLE *NRMINV,
5034 DOUBLE *RESID,
5035 DOUBLE *RQCORR,
5036 DOUBLE *WORK)
5037 {
5038 DEBUG_LAPACK_STUB("dlar1v");
5039 LAPACK_IMPL(dlar1v)(N,
5040 B1,
5041 BN,
5042 LAMBDA,
5043 D,
5044 L,
5045 LD,
5046 LLD,
5047 PIVMIN,
5048 GAPTOL,
5049 Z,
5050 WANTNC,
5051 NEGCNT,
5052 ZTZ,
5053 MINGMA,
5054 R,
5055 ISUPPZ,
5056 NRMINV,
5057 RESID,
5058 RQCORR,
5059 WORK);
5060 }
5061
5062 //-- dlar2v --------------------------------------------------------------------
5063 void
5064 LAPACK_DECL(dlar2v)(const INTEGER *N,
5065 DOUBLE *X,
5066 DOUBLE *Y,
5067 DOUBLE *Z,
5068 const INTEGER *INCX,
5069 const DOUBLE *C,
5070 const DOUBLE *S,
5071 const INTEGER *INCC)
5072 {
5073 DEBUG_LAPACK_STUB("dlar2v");
5074 LAPACK_IMPL(dlar2v)(N,
5075 X,
5076 Y,
5077 Z,
5078 INCX,
5079 C,
5080 S,
5081 INCC);
5082 }
5083
5084 //-- dlarf ---------------------------------------------------------------------
5085 void
5086 LAPACK_DECL(dlarf)(const char *SIDE,
5087 const INTEGER *M,
5088 const INTEGER *N,
5089 const DOUBLE *V,
5090 const INTEGER *INCV,
5091 const DOUBLE *TAU,
5092 DOUBLE *C,
5093 const INTEGER *LDC,
5094 DOUBLE *WORK)
5095 {
5096 DEBUG_LAPACK_STUB("dlarf");
5097 LAPACK_IMPL(dlarf)(SIDE,
5098 M,
5099 N,
5100 V,
5101 INCV,
5102 TAU,
5103 C,
5104 LDC,
5105 WORK);
5106 }
5107
5108 //-- dlarfb --------------------------------------------------------------------
5109 void
5110 LAPACK_DECL(dlarfb)(const char *SIDE,
5111 const char *TRANS,
5112 const char *DIRECT,
5113 const char *STOREV,
5114 const INTEGER *M,
5115 const INTEGER *N,
5116 const INTEGER *K,
5117 const DOUBLE *V,
5118 const INTEGER *LDV,
5119 const DOUBLE *T,
5120 const INTEGER *LDT,
5121 DOUBLE *C,
5122 const INTEGER *LDC,
5123 DOUBLE *WORK,
5124 const INTEGER *LDWORK)
5125 {
5126 DEBUG_LAPACK_STUB("dlarfb");
5127 LAPACK_IMPL(dlarfb)(SIDE,
5128 TRANS,
5129 DIRECT,
5130 STOREV,
5131 M,
5132 N,
5133 K,
5134 V,
5135 LDV,
5136 T,
5137 LDT,
5138 C,
5139 LDC,
5140 WORK,
5141 LDWORK);
5142 }
5143
5144 //-- dlarfg --------------------------------------------------------------------
5145 void
5146 LAPACK_DECL(dlarfg)(const INTEGER *N,
5147 DOUBLE *ALPHA,
5148 DOUBLE *X,
5149 const INTEGER *INCX,
5150 DOUBLE *TAU)
5151 {
5152 DEBUG_LAPACK_STUB("dlarfg");
5153 LAPACK_IMPL(dlarfg)(N,
5154 ALPHA,
5155 X,
5156 INCX,
5157 TAU);
5158 }
5159
5160 //-- dlarfgp -------------------------------------------------------------------
5161 void
5162 LAPACK_DECL(dlarfgp)(const INTEGER *N,
5163 DOUBLE *ALPHA,
5164 DOUBLE *X,
5165 const INTEGER *INCX,
5166 DOUBLE *TAU)
5167 {
5168 DEBUG_LAPACK_STUB("dlarfgp");
5169 LAPACK_IMPL(dlarfgp)(N,
5170 ALPHA,
5171 X,
5172 INCX,
5173 TAU);
5174 }
5175
5176 //-- dlarft --------------------------------------------------------------------
5177 void
5178 LAPACK_DECL(dlarft)(const char *DIRECT,
5179 const char *STOREV,
5180 const INTEGER *N,
5181 const INTEGER *K,
5182 DOUBLE *V,
5183 const INTEGER *LDV,
5184 const DOUBLE *TAU,
5185 DOUBLE *T,
5186 const INTEGER *LDT)
5187 {
5188 DEBUG_LAPACK_STUB("dlarft");
5189 LAPACK_IMPL(dlarft)(DIRECT,
5190 STOREV,
5191 N,
5192 K,
5193 V,
5194 LDV,
5195 TAU,
5196 T,
5197 LDT);
5198 }
5199
5200 //-- dlarfx --------------------------------------------------------------------
5201 void
5202 LAPACK_DECL(dlarfx)(const char *SIDE,
5203 const INTEGER *M,
5204 const INTEGER *N,
5205 const DOUBLE *V,
5206 const DOUBLE *TAU,
5207 DOUBLE *C,
5208 const INTEGER *LDC,
5209 DOUBLE *WORK)
5210 {
5211 DEBUG_LAPACK_STUB("dlarfx");
5212 LAPACK_IMPL(dlarfx)(SIDE,
5213 M,
5214 N,
5215 V,
5216 TAU,
5217 C,
5218 LDC,
5219 WORK);
5220 }
5221
5222 //-- dlargv --------------------------------------------------------------------
5223 void
5224 LAPACK_DECL(dlargv)(const INTEGER *N,
5225 DOUBLE *X,
5226 const INTEGER *INCX,
5227 DOUBLE *Y,
5228 const INTEGER *INCY,
5229 DOUBLE *C,
5230 const INTEGER *INCC)
5231 {
5232 DEBUG_LAPACK_STUB("dlargv");
5233 LAPACK_IMPL(dlargv)(N,
5234 X,
5235 INCX,
5236 Y,
5237 INCY,
5238 C,
5239 INCC);
5240 }
5241
5242 //-- dlarnv --------------------------------------------------------------------
5243 void
5244 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
5245 INTEGER *ISEED,
5246 const INTEGER *N,
5247 DOUBLE *X)
5248 {
5249 DEBUG_LAPACK_STUB("dlarnv");
5250 LAPACK_IMPL(dlarnv)(IDIST,
5251 ISEED,
5252 N,
5253 X);
5254 }
5255
5256 //-- dlarra --------------------------------------------------------------------
5257 void
5258 LAPACK_DECL(dlarra)(const INTEGER *N,
5259 const DOUBLE *D,
5260 DOUBLE *E,
5261 DOUBLE *E2,
5262 const DOUBLE *SPLTOL,
5263 const DOUBLE *TNRM,
5264 INTEGER *NSPLIT,
5265 INTEGER *ISPLIT,
5266 INTEGER *INFO)
5267 {
5268 DEBUG_LAPACK_STUB("dlarra");
5269 LAPACK_IMPL(dlarra)(N,
5270 D,
5271 E,
5272 E2,
5273 SPLTOL,
5274 TNRM,
5275 NSPLIT,
5276 ISPLIT,
5277 INFO);
5278 }
5279
5280 //-- dlarrb --------------------------------------------------------------------
5281 void
5282 LAPACK_DECL(dlarrb)(const INTEGER *N,
5283 const DOUBLE *D,
5284 const DOUBLE *LLD,
5285 const INTEGER *IFIRST,
5286 const INTEGER *ILAST,
5287 const DOUBLE *RTOL1,
5288 const DOUBLE *RTOL2,
5289 const INTEGER *OFFSET,
5290 DOUBLE *W,
5291 DOUBLE *WGAP,
5292 DOUBLE *WERR,
5293 DOUBLE *WORK,
5294 INTEGER *IWORK,
5295 const DOUBLE *PIVMIN,
5296 const DOUBLE *SPDIAM,
5297 const INTEGER *TWIST,
5298 INTEGER *INFO)
5299 {
5300 DEBUG_LAPACK_STUB("dlarrb");
5301 LAPACK_IMPL(dlarrb)(N,
5302 D,
5303 LLD,
5304 IFIRST,
5305 ILAST,
5306 RTOL1,
5307 RTOL2,
5308 OFFSET,
5309 W,
5310 WGAP,
5311 WERR,
5312 WORK,
5313 IWORK,
5314 PIVMIN,
5315 SPDIAM,
5316 TWIST,
5317 INFO);
5318 }
5319
5320 //-- dlarrc --------------------------------------------------------------------
5321 void
5322 LAPACK_DECL(dlarrc)(const char *JOBT,
5323 const INTEGER *N,
5324 const DOUBLE *VL,
5325 const DOUBLE *VU,
5326 const DOUBLE *D,
5327 const DOUBLE *E,
5328 const DOUBLE *PIVMIN,
5329 INTEGER *EIGCNT,
5330 INTEGER *LCNT,
5331 INTEGER *RCNT,
5332 INTEGER *INFO)
5333 {
5334 DEBUG_LAPACK_STUB("dlarrc");
5335 LAPACK_IMPL(dlarrc)(JOBT,
5336 N,
5337 VL,
5338 VU,
5339 D,
5340 E,
5341 PIVMIN,
5342 EIGCNT,
5343 LCNT,
5344 RCNT,
5345 INFO);
5346 }
5347
5348 //-- dlarrd --------------------------------------------------------------------
5349 void
5350 LAPACK_DECL(dlarrd)(const char *RANGE,
5351 const char *ORDER,
5352 const INTEGER *N,
5353 const DOUBLE *VL,
5354 const DOUBLE *VU,
5355 const INTEGER *IL,
5356 const INTEGER *IU,
5357 const DOUBLE *GERS,
5358 const DOUBLE *RELTOL,
5359 const DOUBLE *D,
5360 const DOUBLE *E,
5361 const DOUBLE *E2,
5362 const DOUBLE *PIVMIN,
5363 const INTEGER *NSPLIT,
5364 const INTEGER *ISPLIT,
5365 INTEGER *M,
5366 DOUBLE *W,
5367 DOUBLE *WERR,
5368 DOUBLE *WL,
5369 DOUBLE *WU,
5370 INTEGER *IBLOCK,
5371 INTEGER *INDEXW,
5372 DOUBLE *WORK,
5373 INTEGER *IWORK,
5374 INTEGER *INFO)
5375 {
5376 DEBUG_LAPACK_STUB("dlarrd");
5377 LAPACK_IMPL(dlarrd)(RANGE,
5378 ORDER,
5379 N,
5380 VL,
5381 VU,
5382 IL,
5383 IU,
5384 GERS,
5385 RELTOL,
5386 D,
5387 E,
5388 E2,
5389 PIVMIN,
5390 NSPLIT,
5391 ISPLIT,
5392 M,
5393 W,
5394 WERR,
5395 WL,
5396 WU,
5397 IBLOCK,
5398 INDEXW,
5399 WORK,
5400 IWORK,
5401 INFO);
5402 }
5403
5404 //-- dlarre --------------------------------------------------------------------
5405 void
5406 LAPACK_DECL(dlarre)(const char *RANGE,
5407 const INTEGER *N,
5408 DOUBLE *VL,
5409 DOUBLE *VU,
5410 const INTEGER *IL,
5411 const INTEGER *IU,
5412 DOUBLE *D,
5413 DOUBLE *E,
5414 DOUBLE *E2,
5415 const DOUBLE *RTOL1,
5416 const DOUBLE *RTOL2,
5417 const DOUBLE *SPLTOL,
5418 INTEGER *NSPLIT,
5419 INTEGER *ISPLIT,
5420 INTEGER *M,
5421 DOUBLE *W,
5422 DOUBLE *WERR,
5423 DOUBLE *WGAP,
5424 INTEGER *IBLOCK,
5425 INTEGER *INDEXW,
5426 DOUBLE *GERS,
5427 DOUBLE *PIVMIN,
5428 DOUBLE *WORK,
5429 INTEGER *IWORK,
5430 INTEGER *INFO)
5431 {
5432 DEBUG_LAPACK_STUB("dlarre");
5433 LAPACK_IMPL(dlarre)(RANGE,
5434 N,
5435 VL,
5436 VU,
5437 IL,
5438 IU,
5439 D,
5440 E,
5441 E2,
5442 RTOL1,
5443 RTOL2,
5444 SPLTOL,
5445 NSPLIT,
5446 ISPLIT,
5447 M,
5448 W,
5449 WERR,
5450 WGAP,
5451 IBLOCK,
5452 INDEXW,
5453 GERS,
5454 PIVMIN,
5455 WORK,
5456 IWORK,
5457 INFO);
5458 }
5459
5460 //-- dlarrf --------------------------------------------------------------------
5461 void
5462 LAPACK_DECL(dlarrf)(const INTEGER *N,
5463 const DOUBLE *D,
5464 const DOUBLE *L,
5465 const DOUBLE *LD,
5466 const INTEGER *CLSTRT,
5467 const INTEGER *CLEND,
5468 const DOUBLE *W,
5469 DOUBLE *WGAP,
5470 const DOUBLE *WERR,
5471 const DOUBLE *SPDIAM,
5472 const DOUBLE *CLGAPL,
5473 const DOUBLE *CLGAPR,
5474 const DOUBLE *PIVMIN,
5475 DOUBLE *SIGMA,
5476 DOUBLE *DPLUS,
5477 DOUBLE *LPLUS,
5478 DOUBLE *WORK,
5479 INTEGER *INFO)
5480 {
5481 DEBUG_LAPACK_STUB("dlarrf");
5482 LAPACK_IMPL(dlarrf)(N,
5483 D,
5484 L,
5485 LD,
5486 CLSTRT,
5487 CLEND,
5488 W,
5489 WGAP,
5490 WERR,
5491 SPDIAM,
5492 CLGAPL,
5493 CLGAPR,
5494 PIVMIN,
5495 SIGMA,
5496 DPLUS,
5497 LPLUS,
5498 WORK,
5499 INFO);
5500 }
5501
5502 //-- dlarrj --------------------------------------------------------------------
5503 void
5504 LAPACK_DECL(dlarrj)(const INTEGER *N,
5505 const DOUBLE *D,
5506 const DOUBLE *E2,
5507 const INTEGER *IFIRST,
5508 const INTEGER *ILAST,
5509 const DOUBLE *RTOL,
5510 const INTEGER *OFFSET,
5511 DOUBLE *W,
5512 DOUBLE *WERR,
5513 DOUBLE *WORK,
5514 INTEGER *IWORK,
5515 const DOUBLE *PIVMIN,
5516 const DOUBLE *SPDIAM,
5517 INTEGER *INFO)
5518 {
5519 DEBUG_LAPACK_STUB("dlarrj");
5520 LAPACK_IMPL(dlarrj)(N,
5521 D,
5522 E2,
5523 IFIRST,
5524 ILAST,
5525 RTOL,
5526 OFFSET,
5527 W,
5528 WERR,
5529 WORK,
5530 IWORK,
5531 PIVMIN,
5532 SPDIAM,
5533 INFO);
5534 }
5535
5536 //-- dlarrk --------------------------------------------------------------------
5537 void
5538 LAPACK_DECL(dlarrk)(const INTEGER *N,
5539 const INTEGER *IW,
5540 const DOUBLE *GL,
5541 const DOUBLE *GU,
5542 const DOUBLE *D,
5543 const DOUBLE *E2,
5544 const DOUBLE *PIVMIN,
5545 const DOUBLE *RELTOL,
5546 DOUBLE *W,
5547 DOUBLE *WERR,
5548 INTEGER *INFO)
5549 {
5550 DEBUG_LAPACK_STUB("dlarrk");
5551 LAPACK_IMPL(dlarrk)(N,
5552 IW,
5553 GL,
5554 GU,
5555 D,
5556 E2,
5557 PIVMIN,
5558 RELTOL,
5559 W,
5560 WERR,
5561 INFO);
5562 }
5563
5564 //-- dlarrr --------------------------------------------------------------------
5565 void
5566 LAPACK_DECL(dlarrr)(const INTEGER *N,
5567 const DOUBLE *D,
5568 DOUBLE *E,
5569 INTEGER *INFO)
5570 {
5571 DEBUG_LAPACK_STUB("dlarrr");
5572 LAPACK_IMPL(dlarrr)(N,
5573 D,
5574 E,
5575 INFO);
5576 }
5577
5578 //-- dlarrv --------------------------------------------------------------------
5579 void
5580 LAPACK_DECL(dlarrv)(const INTEGER *N,
5581 const DOUBLE *VL,
5582 const DOUBLE *VU,
5583 DOUBLE *D,
5584 DOUBLE *L,
5585 const DOUBLE *PIVMIN,
5586 const INTEGER *ISPLIT,
5587 const INTEGER *M,
5588 const INTEGER *DOL,
5589 const INTEGER *DOU,
5590 const DOUBLE *MINRGP,
5591 const DOUBLE *RTOL1,
5592 const DOUBLE *RTOL2,
5593 DOUBLE *W,
5594 DOUBLE *WERR,
5595 DOUBLE *WGAP,
5596 const INTEGER *IBLOCK,
5597 const INTEGER *INDEXW,
5598 const DOUBLE *GERS,
5599 DOUBLE *Z,
5600 const INTEGER *LDZ,
5601 INTEGER *ISUPPZ,
5602 DOUBLE *WORK,
5603 INTEGER *IWORK,
5604 INTEGER *INFO)
5605 {
5606 DEBUG_LAPACK_STUB("dlarrv");
5607 LAPACK_IMPL(dlarrv)(N,
5608 VL,
5609 VU,
5610 D,
5611 L,
5612 PIVMIN,
5613 ISPLIT,
5614 M,
5615 DOL,
5616 DOU,
5617 MINRGP,
5618 RTOL1,
5619 RTOL2,
5620 W,
5621 WERR,
5622 WGAP,
5623 IBLOCK,
5624 INDEXW,
5625 GERS,
5626 Z,
5627 LDZ,
5628 ISUPPZ,
5629 WORK,
5630 IWORK,
5631 INFO);
5632 }
5633
5634 //-- dlarscl2 ------------------------------------------------------------------
5635 void
5636 LAPACK_DECL(dlarscl2)(const INTEGER *M,
5637 const INTEGER *N,
5638 const DOUBLE *D,
5639 DOUBLE *X,
5640 const INTEGER *LDX)
5641 {
5642 DEBUG_LAPACK_STUB("dlarscl2");
5643 LAPACK_IMPL(dlarscl2)(M,
5644 N,
5645 D,
5646 X,
5647 LDX);
5648 }
5649
5650 //-- dlartg --------------------------------------------------------------------
5651 void
5652 LAPACK_DECL(dlartg)(const DOUBLE *F,
5653 const DOUBLE *G,
5654 DOUBLE *CS,
5655 DOUBLE *SN,
5656 DOUBLE *R)
5657 {
5658 DEBUG_LAPACK_STUB("dlartg");
5659 LAPACK_IMPL(dlartg)(F,
5660 G,
5661 CS,
5662 SN,
5663 R);
5664 }
5665
5666 //-- dlartgp -------------------------------------------------------------------
5667 void
5668 LAPACK_DECL(dlartgp)(const DOUBLE *F,
5669 const DOUBLE *G,
5670 DOUBLE *CS,
5671 DOUBLE *SN,
5672 DOUBLE *R)
5673 {
5674 DEBUG_LAPACK_STUB("dlartgp");
5675 LAPACK_IMPL(dlartgp)(F,
5676 G,
5677 CS,
5678 SN,
5679 R);
5680 }
5681
5682 //-- dlartgs -------------------------------------------------------------------
5683 void
5684 LAPACK_DECL(dlartgs)(const DOUBLE *X,
5685 const DOUBLE *Y,
5686 const DOUBLE *SIGMA,
5687 DOUBLE *CS,
5688 DOUBLE *SN)
5689 {
5690 DEBUG_LAPACK_STUB("dlartgs");
5691 LAPACK_IMPL(dlartgs)(X,
5692 Y,
5693 SIGMA,
5694 CS,
5695 SN);
5696 }
5697
5698 //-- dlartv --------------------------------------------------------------------
5699 void
5700 LAPACK_DECL(dlartv)(const INTEGER *N,
5701 DOUBLE *X,
5702 const INTEGER *INCX,
5703 DOUBLE *Y,
5704 const INTEGER *INCY,
5705 const DOUBLE *C,
5706 const DOUBLE *S,
5707 const INTEGER *INCC)
5708 {
5709 DEBUG_LAPACK_STUB("dlartv");
5710 LAPACK_IMPL(dlartv)(N,
5711 X,
5712 INCX,
5713 Y,
5714 INCY,
5715 C,
5716 S,
5717 INCC);
5718 }
5719
5720 //-- dlaruv --------------------------------------------------------------------
5721 void
5722 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
5723 const INTEGER *N,
5724 DOUBLE *X)
5725 {
5726 DEBUG_LAPACK_STUB("dlaruv");
5727 LAPACK_IMPL(dlaruv)(ISEED,
5728 N,
5729 X);
5730 }
5731
5732 //-- dlarz ---------------------------------------------------------------------
5733 void
5734 LAPACK_DECL(dlarz)(const char *SIDE,
5735 const INTEGER *M,
5736 const INTEGER *N,
5737 const INTEGER *L,
5738 const DOUBLE *V,
5739 const INTEGER *INCV,
5740 const DOUBLE *TAU,
5741 DOUBLE *C,
5742 const INTEGER *LDC,
5743 DOUBLE *WORK)
5744 {
5745 DEBUG_LAPACK_STUB("dlarz");
5746 LAPACK_IMPL(dlarz)(SIDE,
5747 M,
5748 N,
5749 L,
5750 V,
5751 INCV,
5752 TAU,
5753 C,
5754 LDC,
5755 WORK);
5756 }
5757
5758 //-- dlarzb --------------------------------------------------------------------
5759 void
5760 LAPACK_DECL(dlarzb)(const char *SIDE,
5761 const char *TRANS,
5762 const char *DIRECT,
5763 const char *STOREV,
5764 const INTEGER *M,
5765 const INTEGER *N,
5766 const INTEGER *K,
5767 const INTEGER *L,
5768 const DOUBLE *V,
5769 const INTEGER *LDV,
5770 const DOUBLE *T,
5771 const INTEGER *LDT,
5772 DOUBLE *C,
5773 const INTEGER *LDC,
5774 DOUBLE *WORK,
5775 const INTEGER *LDWORK)
5776 {
5777 DEBUG_LAPACK_STUB("dlarzb");
5778 LAPACK_IMPL(dlarzb)(SIDE,
5779 TRANS,
5780 DIRECT,
5781 STOREV,
5782 M,
5783 N,
5784 K,
5785 L,
5786 V,
5787 LDV,
5788 T,
5789 LDT,
5790 C,
5791 LDC,
5792 WORK,
5793 LDWORK);
5794 }
5795
5796 //-- dlarzt --------------------------------------------------------------------
5797 void
5798 LAPACK_DECL(dlarzt)(const char *DIRECT,
5799 const char *STOREV,
5800 const INTEGER *N,
5801 const INTEGER *K,
5802 DOUBLE *V,
5803 const INTEGER *LDV,
5804 const DOUBLE *TAU,
5805 DOUBLE *T,
5806 const INTEGER *LDT)
5807 {
5808 DEBUG_LAPACK_STUB("dlarzt");
5809 LAPACK_IMPL(dlarzt)(DIRECT,
5810 STOREV,
5811 N,
5812 K,
5813 V,
5814 LDV,
5815 TAU,
5816 T,
5817 LDT);
5818 }
5819
5820 //-- dlas2 ---------------------------------------------------------------------
5821 void
5822 LAPACK_DECL(dlas2)(const DOUBLE *F,
5823 const DOUBLE *G,
5824 const DOUBLE *H,
5825 DOUBLE *SSMIN,
5826 DOUBLE *SSMAX)
5827 {
5828 DEBUG_LAPACK_STUB("dlas2");
5829 LAPACK_IMPL(dlas2)(F,
5830 G,
5831 H,
5832 SSMIN,
5833 SSMAX);
5834 }
5835
5836 //-- dlascl --------------------------------------------------------------------
5837 void
5838 LAPACK_DECL(dlascl)(const char *TYPE,
5839 const INTEGER *KL,
5840 const INTEGER *KU,
5841 const DOUBLE *CFROM,
5842 const DOUBLE *CTO,
5843 const INTEGER *M,
5844 const INTEGER *N,
5845 DOUBLE *A,
5846 const INTEGER *LDA,
5847 INTEGER *INFO)
5848 {
5849 DEBUG_LAPACK_STUB("dlascl");
5850 LAPACK_IMPL(dlascl)(TYPE,
5851 KL,
5852 KU,
5853 CFROM,
5854 CTO,
5855 M,
5856 N,
5857 A,
5858 LDA,
5859 INFO);
5860 }
5861
5862 //-- dlascl2 -------------------------------------------------------------------
5863 void
5864 LAPACK_DECL(dlascl2)(const INTEGER *M,
5865 const INTEGER *N,
5866 const DOUBLE *D,
5867 DOUBLE *X,
5868 const INTEGER *LDX)
5869 {
5870 DEBUG_LAPACK_STUB("dlascl2");
5871 LAPACK_IMPL(dlascl2)(M,
5872 N,
5873 D,
5874 X,
5875 LDX);
5876 }
5877
5878 //-- dlasd0 --------------------------------------------------------------------
5879 void
5880 LAPACK_DECL(dlasd0)(const INTEGER *N,
5881 const INTEGER *SQRE,
5882 DOUBLE *D,
5883 const DOUBLE *E,
5884 DOUBLE *U,
5885 const INTEGER *LDU,
5886 DOUBLE *VT,
5887 const INTEGER *LDVT,
5888 const INTEGER *SMLSIZ,
5889 INTEGER *IWORK,
5890 DOUBLE *WORK,
5891 INTEGER *INFO)
5892 {
5893 DEBUG_LAPACK_STUB("dlasd0");
5894 LAPACK_IMPL(dlasd0)(N,
5895 SQRE,
5896 D,
5897 E,
5898 U,
5899 LDU,
5900 VT,
5901 LDVT,
5902 SMLSIZ,
5903 IWORK,
5904 WORK,
5905 INFO);
5906 }
5907
5908 //-- dlasd1 --------------------------------------------------------------------
5909 void
5910 LAPACK_DECL(dlasd1)(const INTEGER *NL,
5911 const INTEGER *NR,
5912 const INTEGER *SQRE,
5913 DOUBLE *D,
5914 DOUBLE *ALPHA,
5915 DOUBLE *BETA,
5916 DOUBLE *U,
5917 const INTEGER *LDU,
5918 DOUBLE *VT,
5919 const INTEGER *LDVT,
5920 INTEGER *IDXQ,
5921 INTEGER *IWORK,
5922 DOUBLE *WORK,
5923 INTEGER *INFO)
5924 {
5925 DEBUG_LAPACK_STUB("dlasd1");
5926 LAPACK_IMPL(dlasd1)(NL,
5927 NR,
5928 SQRE,
5929 D,
5930 ALPHA,
5931 BETA,
5932 U,
5933 LDU,
5934 VT,
5935 LDVT,
5936 IDXQ,
5937 IWORK,
5938 WORK,
5939 INFO);
5940 }
5941
5942 //-- dlasd2 --------------------------------------------------------------------
5943 void
5944 LAPACK_DECL(dlasd2)(const INTEGER *NL,
5945 const INTEGER *NR,
5946 const INTEGER *SQRE,
5947 INTEGER *K,
5948 DOUBLE *D,
5949 DOUBLE *Z,
5950 const DOUBLE *ALPHA,
5951 const DOUBLE *BETA,
5952 DOUBLE *U,
5953 const INTEGER *LDU,
5954 DOUBLE *VT,
5955 const INTEGER *LDVT,
5956 DOUBLE *DSIGMA,
5957 DOUBLE *U2,
5958 const INTEGER *LDU2,
5959 DOUBLE *VT2,
5960 const INTEGER *LDVT2,
5961 INTEGER *IDXP,
5962 INTEGER *IDX,
5963 INTEGER *IDXC,
5964 INTEGER *IDXQ,
5965 INTEGER *COLTYP,
5966 INTEGER *INFO)
5967 {
5968 DEBUG_LAPACK_STUB("dlasd2");
5969 LAPACK_IMPL(dlasd2)(NL,
5970 NR,
5971 SQRE,
5972 K,
5973 D,
5974 Z,
5975 ALPHA,
5976 BETA,
5977 U,
5978 LDU,
5979 VT,
5980 LDVT,
5981 DSIGMA,
5982 U2,
5983 LDU2,
5984 VT2,
5985 LDVT2,
5986 IDXP,
5987 IDX,
5988 IDXC,
5989 IDXQ,
5990 COLTYP,
5991 INFO);
5992 }
5993
5994 //-- dlasd3 --------------------------------------------------------------------
5995 void
5996 LAPACK_DECL(dlasd3)(const INTEGER *NL,
5997 const INTEGER *NR,
5998 const INTEGER *SQRE,
5999 const INTEGER *K,
6000 DOUBLE *D,
6001 DOUBLE *Q,
6002 const INTEGER *LDQ,
6003 const DOUBLE *DSIGMA,
6004 DOUBLE *U,
6005 const INTEGER *LDU,
6006 DOUBLE *U2,
6007 const INTEGER *LDU2,
6008 DOUBLE *VT,
6009 const INTEGER *LDVT,
6010 DOUBLE *VT2,
6011 const INTEGER *LDVT2,
6012 const INTEGER *IDXC,
6013 const INTEGER *CTOT,
6014 const DOUBLE *Z,
6015 INTEGER *INFO)
6016 {
6017 DEBUG_LAPACK_STUB("dlasd3");
6018 LAPACK_IMPL(dlasd3)(NL,
6019 NR,
6020 SQRE,
6021 K,
6022 D,
6023 Q,
6024 LDQ,
6025 DSIGMA,
6026 U,
6027 LDU,
6028 U2,
6029 LDU2,
6030 VT,
6031 LDVT,
6032 VT2,
6033 LDVT2,
6034 IDXC,
6035 CTOT,
6036 Z,
6037 INFO);
6038 }
6039
6040 //-- dlasd4 --------------------------------------------------------------------
6041 void
6042 LAPACK_DECL(dlasd4)(const INTEGER *N,
6043 const INTEGER *I,
6044 const DOUBLE *D,
6045 const DOUBLE *Z,
6046 DOUBLE *DELTA,
6047 const DOUBLE *RHO,
6048 DOUBLE *SIGMA,
6049 DOUBLE *WORK,
6050 INTEGER *INFO)
6051 {
6052 DEBUG_LAPACK_STUB("dlasd4");
6053 LAPACK_IMPL(dlasd4)(N,
6054 I,
6055 D,
6056 Z,
6057 DELTA,
6058 RHO,
6059 SIGMA,
6060 WORK,
6061 INFO);
6062 }
6063
6064 //-- dlasd5 --------------------------------------------------------------------
6065 void
6066 LAPACK_DECL(dlasd5)(const INTEGER *I,
6067 const DOUBLE *D,
6068 const DOUBLE *Z,
6069 DOUBLE *DELTA,
6070 const DOUBLE *RHO,
6071 DOUBLE *DSIGMA,
6072 DOUBLE *WORK)
6073 {
6074 DEBUG_LAPACK_STUB("dlasd5");
6075 LAPACK_IMPL(dlasd5)(I,
6076 D,
6077 Z,
6078 DELTA,
6079 RHO,
6080 DSIGMA,
6081 WORK);
6082 }
6083
6084 //-- dlasd6 --------------------------------------------------------------------
6085 void
6086 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
6087 const INTEGER *NL,
6088 const INTEGER *NR,
6089 const INTEGER *SQRE,
6090 DOUBLE *D,
6091 DOUBLE *VF,
6092 DOUBLE *VL,
6093 DOUBLE *ALPHA,
6094 DOUBLE *BETA,
6095 INTEGER *IDXQ,
6096 INTEGER *PERM,
6097 INTEGER *GIVPTR,
6098 INTEGER *GIVCOL,
6099 const INTEGER *LDGCOL,
6100 DOUBLE *GIVNUM,
6101 const INTEGER *LDGNUM,
6102 DOUBLE *POLES,
6103 DOUBLE *DIFL,
6104 DOUBLE *DIFR,
6105 DOUBLE *Z,
6106 INTEGER *K,
6107 DOUBLE *C,
6108 DOUBLE *S,
6109 DOUBLE *WORK,
6110 INTEGER *IWORK,
6111 INTEGER *INFO)
6112 {
6113 DEBUG_LAPACK_STUB("dlasd6");
6114 LAPACK_IMPL(dlasd6)(ICOMPQ,
6115 NL,
6116 NR,
6117 SQRE,
6118 D,
6119 VF,
6120 VL,
6121 ALPHA,
6122 BETA,
6123 IDXQ,
6124 PERM,
6125 GIVPTR,
6126 GIVCOL,
6127 LDGCOL,
6128 GIVNUM,
6129 LDGNUM,
6130 POLES,
6131 DIFL,
6132 DIFR,
6133 Z,
6134 K,
6135 C,
6136 S,
6137 WORK,
6138 IWORK,
6139 INFO);
6140 }
6141
6142 //-- dlasd7 --------------------------------------------------------------------
6143 void
6144 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
6145 const INTEGER *NL,
6146 const INTEGER *NR,
6147 const INTEGER *SQRE,
6148 INTEGER *K,
6149 DOUBLE *D,
6150 DOUBLE *Z,
6151 DOUBLE *ZW,
6152 DOUBLE *VF,
6153 DOUBLE *VFW,
6154 DOUBLE *VL,
6155 DOUBLE *VLW,
6156 const DOUBLE *ALPHA,
6157 const DOUBLE *BETA,
6158 DOUBLE *DSIGMA,
6159 INTEGER *IDX,
6160 INTEGER *IDXP,
6161 const INTEGER *IDXQ,
6162 INTEGER *PERM,
6163 INTEGER *GIVPTR,
6164 INTEGER *GIVCOL,
6165 const INTEGER *LDGCOL,
6166 DOUBLE *GIVNUM,
6167 const INTEGER *LDGNUM,
6168 DOUBLE *C,
6169 DOUBLE *S,
6170 INTEGER *INFO)
6171 {
6172 DEBUG_LAPACK_STUB("dlasd7");
6173 LAPACK_IMPL(dlasd7)(ICOMPQ,
6174 NL,
6175 NR,
6176 SQRE,
6177 K,
6178 D,
6179 Z,
6180 ZW,
6181 VF,
6182 VFW,
6183 VL,
6184 VLW,
6185 ALPHA,
6186 BETA,
6187 DSIGMA,
6188 IDX,
6189 IDXP,
6190 IDXQ,
6191 PERM,
6192 GIVPTR,
6193 GIVCOL,
6194 LDGCOL,
6195 GIVNUM,
6196 LDGNUM,
6197 C,
6198 S,
6199 INFO);
6200 }
6201
6202 //-- dlasd8 --------------------------------------------------------------------
6203 void
6204 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
6205 const INTEGER *K,
6206 DOUBLE *D,
6207 DOUBLE *Z,
6208 DOUBLE *VF,
6209 DOUBLE *VL,
6210 DOUBLE *DIFL,
6211 DOUBLE *DIFR,
6212 const INTEGER *LDDIFR,
6213 DOUBLE *DSIGMA,
6214 DOUBLE *WORK,
6215 INTEGER *INFO)
6216 {
6217 DEBUG_LAPACK_STUB("dlasd8");
6218 LAPACK_IMPL(dlasd8)(ICOMPQ,
6219 K,
6220 D,
6221 Z,
6222 VF,
6223 VL,
6224 DIFL,
6225 DIFR,
6226 LDDIFR,
6227 DSIGMA,
6228 WORK,
6229 INFO);
6230 }
6231
6232 //-- dlasda --------------------------------------------------------------------
6233 void
6234 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
6235 const INTEGER *SMLSIZ,
6236 const INTEGER *N,
6237 const INTEGER *SQRE,
6238 DOUBLE *D,
6239 const DOUBLE *E,
6240 DOUBLE *U,
6241 const INTEGER *LDU,
6242 DOUBLE *VT,
6243 INTEGER *K,
6244 DOUBLE *DIFL,
6245 DOUBLE *DIFR,
6246 DOUBLE *Z,
6247 DOUBLE *POLES,
6248 INTEGER *GIVPTR,
6249 INTEGER *GIVCOL,
6250 const INTEGER *LDGCOL,
6251 INTEGER *PERM,
6252 DOUBLE *GIVNUM,
6253 DOUBLE *C,
6254 DOUBLE *S,
6255 DOUBLE *WORK,
6256 INTEGER *IWORK,
6257 INTEGER *INFO)
6258 {
6259 DEBUG_LAPACK_STUB("dlasda");
6260 LAPACK_IMPL(dlasda)(ICOMPQ,
6261 SMLSIZ,
6262 N,
6263 SQRE,
6264 D,
6265 E,
6266 U,
6267 LDU,
6268 VT,
6269 K,
6270 DIFL,
6271 DIFR,
6272 Z,
6273 POLES,
6274 GIVPTR,
6275 GIVCOL,
6276 LDGCOL,
6277 PERM,
6278 GIVNUM,
6279 C,
6280 S,
6281 WORK,
6282 IWORK,
6283 INFO);
6284 }
6285
6286 //-- dlasdq --------------------------------------------------------------------
6287 void
6288 LAPACK_DECL(dlasdq)(const char *UPLO,
6289 const INTEGER *SQRE,
6290 const INTEGER *N,
6291 const INTEGER *NCVT,
6292 const INTEGER *NRU,
6293 const INTEGER *NCC,
6294 DOUBLE *D,
6295 DOUBLE *E,
6296 DOUBLE *VT,
6297 const INTEGER *LDVT,
6298 DOUBLE *U,
6299 const INTEGER *LDU,
6300 DOUBLE *C,
6301 const INTEGER *LDC,
6302 DOUBLE *WORK,
6303 INTEGER *INFO)
6304 {
6305 DEBUG_LAPACK_STUB("dlasdq");
6306 LAPACK_IMPL(dlasdq)(UPLO,
6307 SQRE,
6308 N,
6309 NCVT,
6310 NRU,
6311 NCC,
6312 D,
6313 E,
6314 VT,
6315 LDVT,
6316 U,
6317 LDU,
6318 C,
6319 LDC,
6320 WORK,
6321 INFO);
6322 }
6323
6324 //-- dlasdt --------------------------------------------------------------------
6325 void
6326 LAPACK_DECL(dlasdt)(const INTEGER *N,
6327 INTEGER *LVL,
6328 INTEGER *ND,
6329 INTEGER *INODE,
6330 INTEGER *NDIML,
6331 INTEGER *NDIMR,
6332 const INTEGER *MSUB)
6333 {
6334 DEBUG_LAPACK_STUB("dlasdt");
6335 LAPACK_IMPL(dlasdt)(N,
6336 LVL,
6337 ND,
6338 INODE,
6339 NDIML,
6340 NDIMR,
6341 MSUB);
6342 }
6343
6344 //-- dlaset --------------------------------------------------------------------
6345 void
6346 LAPACK_DECL(dlaset)(const char *UPLO,
6347 const INTEGER *M,
6348 const INTEGER *N,
6349 const DOUBLE *ALPHA,
6350 const DOUBLE *BETA,
6351 DOUBLE *A,
6352 const INTEGER *LDA)
6353 {
6354 DEBUG_LAPACK_STUB("dlaset");
6355 LAPACK_IMPL(dlaset)(UPLO,
6356 M,
6357 N,
6358 ALPHA,
6359 BETA,
6360 A,
6361 LDA);
6362 }
6363
6364 //-- dlasq1 --------------------------------------------------------------------
6365 void
6366 LAPACK_DECL(dlasq1)(const INTEGER *N,
6367 DOUBLE *D,
6368 DOUBLE *E,
6369 DOUBLE *WORK,
6370 INTEGER *INFO)
6371 {
6372 DEBUG_LAPACK_STUB("dlasq1");
6373 LAPACK_IMPL(dlasq1)(N,
6374 D,
6375 E,
6376 WORK,
6377 INFO);
6378 }
6379
6380 //-- dlasq2 --------------------------------------------------------------------
6381 void
6382 LAPACK_DECL(dlasq2)(const INTEGER *N,
6383 DOUBLE *Z,
6384 INTEGER *INFO)
6385 {
6386 DEBUG_LAPACK_STUB("dlasq2");
6387 LAPACK_IMPL(dlasq2)(N,
6388 Z,
6389 INFO);
6390 }
6391
6392 //-- dlasq3 --------------------------------------------------------------------
6393 void
6394 LAPACK_DECL(dlasq3)(const INTEGER *I0,
6395 INTEGER *N0,
6396 const DOUBLE *Z,
6397 INTEGER *PP,
6398 DOUBLE *DMIN,
6399 DOUBLE *SIGMA,
6400 DOUBLE *DESIG,
6401 const DOUBLE *QMAX,
6402 INTEGER *NFAIL,
6403 INTEGER *ITER,
6404 INTEGER *NDIV,
6405 const LOGICAL *IEEE,
6406 INTEGER *TTYPE,
6407 DOUBLE *DMIN1,
6408 DOUBLE *DMIN2,
6409 DOUBLE *DN,
6410 DOUBLE *DN1,
6411 DOUBLE *DN2,
6412 DOUBLE *G,
6413 DOUBLE *TAU)
6414 {
6415 DEBUG_LAPACK_STUB("dlasq3");
6416 LAPACK_IMPL(dlasq3)(I0,
6417 N0,
6418 Z,
6419 PP,
6420 DMIN,
6421 SIGMA,
6422 DESIG,
6423 QMAX,
6424 NFAIL,
6425 ITER,
6426 NDIV,
6427 IEEE,
6428 TTYPE,
6429 DMIN1,
6430 DMIN2,
6431 DN,
6432 DN1,
6433 DN2,
6434 G,
6435 TAU);
6436 }
6437
6438 //-- dlasq4 --------------------------------------------------------------------
6439 void
6440 LAPACK_DECL(dlasq4)(const INTEGER *I0,
6441 const INTEGER *N0,
6442 const DOUBLE *Z,
6443 const INTEGER *PP,
6444 const INTEGER *N0IN,
6445 const DOUBLE *DMIN,
6446 const DOUBLE *DMIN1,
6447 const DOUBLE *DMIN2,
6448 const DOUBLE *DN,
6449 const DOUBLE *DN1,
6450 const DOUBLE *DN2,
6451 DOUBLE *TAU,
6452 INTEGER *TTYPE,
6453 DOUBLE *G)
6454 {
6455 DEBUG_LAPACK_STUB("dlasq4");
6456 LAPACK_IMPL(dlasq4)(I0,
6457 N0,
6458 Z,
6459 PP,
6460 N0IN,
6461 DMIN,
6462 DMIN1,
6463 DMIN2,
6464 DN,
6465 DN1,
6466 DN2,
6467 TAU,
6468 TTYPE,
6469 G);
6470 }
6471
6472 //-- dlasq5 --------------------------------------------------------------------
6473 void
6474 LAPACK_DECL(dlasq5)(const INTEGER *I0,
6475 const INTEGER *N0,
6476 const DOUBLE *Z,
6477 const INTEGER *PP,
6478 const DOUBLE *TAU,
6479 DOUBLE *DMIN,
6480 DOUBLE *DMIN1,
6481 DOUBLE *DMIN2,
6482 DOUBLE *DN,
6483 DOUBLE *DNM1,
6484 DOUBLE *DNM2,
6485 const LOGICAL *IEEE)
6486 {
6487 DEBUG_LAPACK_STUB("dlasq5");
6488 LAPACK_IMPL(dlasq5)(I0,
6489 N0,
6490 Z,
6491 PP,
6492 TAU,
6493 DMIN,
6494 DMIN1,
6495 DMIN2,
6496 DN,
6497 DNM1,
6498 DNM2,
6499 IEEE);
6500 }
6501
6502 //-- dlasq6 --------------------------------------------------------------------
6503 void
6504 LAPACK_DECL(dlasq6)(const INTEGER *I0,
6505 const INTEGER *N0,
6506 const DOUBLE *Z,
6507 const INTEGER *PP,
6508 DOUBLE *DMIN,
6509 DOUBLE *DMIN1,
6510 DOUBLE *DMIN2,
6511 DOUBLE *DN,
6512 DOUBLE *DNM1,
6513 DOUBLE *DNM2)
6514 {
6515 DEBUG_LAPACK_STUB("dlasq6");
6516 LAPACK_IMPL(dlasq6)(I0,
6517 N0,
6518 Z,
6519 PP,
6520 DMIN,
6521 DMIN1,
6522 DMIN2,
6523 DN,
6524 DNM1,
6525 DNM2);
6526 }
6527
6528 //-- dlasr ---------------------------------------------------------------------
6529 void
6530 LAPACK_DECL(dlasr)(const char *SIDE,
6531 const char *PIVOT,
6532 const char *DIRECT,
6533 const INTEGER *M,
6534 const INTEGER *N,
6535 const DOUBLE *C,
6536 const DOUBLE *S,
6537 DOUBLE *A,
6538 const INTEGER *LDA)
6539 {
6540 DEBUG_LAPACK_STUB("dlasr");
6541 LAPACK_IMPL(dlasr)(SIDE,
6542 PIVOT,
6543 DIRECT,
6544 M,
6545 N,
6546 C,
6547 S,
6548 A,
6549 LDA);
6550 }
6551
6552 //-- dlasrt --------------------------------------------------------------------
6553 void
6554 LAPACK_DECL(dlasrt)(const char *ID,
6555 const INTEGER *N,
6556 DOUBLE *D,
6557 INTEGER *INFO)
6558 {
6559 DEBUG_LAPACK_STUB("dlasrt");
6560 LAPACK_IMPL(dlasrt)(ID,
6561 N,
6562 D,
6563 INFO);
6564 }
6565
6566 //-- dlassq --------------------------------------------------------------------
6567 void
6568 LAPACK_DECL(dlassq)(const INTEGER *N,
6569 const DOUBLE *X,
6570 const INTEGER *INCX,
6571 DOUBLE *SCALE,
6572 DOUBLE *SUMSQ)
6573 {
6574 DEBUG_LAPACK_STUB("dlassq");
6575 LAPACK_IMPL(dlassq)(N,
6576 X,
6577 INCX,
6578 SCALE,
6579 SUMSQ);
6580 }
6581
6582 //-- dlasv2 --------------------------------------------------------------------
6583 void
6584 LAPACK_DECL(dlasv2)(const DOUBLE *F,
6585 const DOUBLE *G,
6586 const DOUBLE *H,
6587 DOUBLE *SSMIN,
6588 DOUBLE *SSMAX,
6589 DOUBLE *SNR,
6590 DOUBLE *CSR,
6591 DOUBLE *SNL,
6592 DOUBLE *CSL)
6593 {
6594 DEBUG_LAPACK_STUB("dlasv2");
6595 LAPACK_IMPL(dlasv2)(F,
6596 G,
6597 H,
6598 SSMIN,
6599 SSMAX,
6600 SNR,
6601 CSR,
6602 SNL,
6603 CSL);
6604 }
6605
6606 //-- dlaswp --------------------------------------------------------------------
6607 void
6608 LAPACK_DECL(dlaswp)(const INTEGER *N,
6609 DOUBLE *A,
6610 const INTEGER *LDA,
6611 const INTEGER *K1,
6612 const INTEGER *K2,
6613 const INTEGER *IPIV,
6614 const INTEGER *INCX)
6615 {
6616 DEBUG_LAPACK_STUB("dlaswp");
6617 LAPACK_IMPL(dlaswp)(N,
6618 A,
6619 LDA,
6620 K1,
6621 K2,
6622 IPIV,
6623 INCX);
6624 }
6625
6626 //-- dlasy2 --------------------------------------------------------------------
6627 void
6628 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
6629 const LOGICAL *LTRANR,
6630 const INTEGER *ISGN,
6631 const INTEGER *N1,
6632 const INTEGER *N2,
6633 const DOUBLE *TL,
6634 const INTEGER *LDTL,
6635 const DOUBLE *TR,
6636 const INTEGER *LDTR,
6637 const DOUBLE *B,
6638 const INTEGER *LDB,
6639 DOUBLE *SCALE,
6640 DOUBLE *X,
6641 const INTEGER *LDX,
6642 DOUBLE *XNORM,
6643 INTEGER *INFO)
6644 {
6645 DEBUG_LAPACK_STUB("dlasy2");
6646 LAPACK_IMPL(dlasy2)(LTRANL,
6647 LTRANR,
6648 ISGN,
6649 N1,
6650 N2,
6651 TL,
6652 LDTL,
6653 TR,
6654 LDTR,
6655 B,
6656 LDB,
6657 SCALE,
6658 X,
6659 LDX,
6660 XNORM,
6661 INFO);
6662 }
6663
6664 //-- dlasyf --------------------------------------------------------------------
6665 void
6666 LAPACK_DECL(dlasyf)(const char *UPLO,
6667 const INTEGER *N,
6668 const INTEGER *NB,
6669 INTEGER *KB,
6670 DOUBLE *A,
6671 const INTEGER *LDA,
6672 INTEGER *IPIV,
6673 DOUBLE *W,
6674 const INTEGER *LDW,
6675 INTEGER *INFO)
6676 {
6677 DEBUG_LAPACK_STUB("dlasyf");
6678 LAPACK_IMPL(dlasyf)(UPLO,
6679 N,
6680 NB,
6681 KB,
6682 A,
6683 LDA,
6684 IPIV,
6685 W,
6686 LDW,
6687 INFO);
6688 }
6689
6690 //-- dlat2s --------------------------------------------------------------------
6691 void
6692 LAPACK_DECL(dlat2s)(const char *UPLO,
6693 const INTEGER *N,
6694 const DOUBLE *A,
6695 const INTEGER *LDA,
6696 FLOAT *SA,
6697 const INTEGER *LDSA,
6698 INTEGER *INFO)
6699 {
6700 DEBUG_LAPACK_STUB("dlat2s");
6701 LAPACK_IMPL(dlat2s)(UPLO,
6702 N,
6703 A,
6704 LDA,
6705 SA,
6706 LDSA,
6707 INFO);
6708 }
6709
6710 //-- dlatbs --------------------------------------------------------------------
6711 void
6712 LAPACK_DECL(dlatbs)(const char *UPLO,
6713 const char *TRANS,
6714 const char *DIAG,
6715 const char *NORMIN,
6716 const INTEGER *N,
6717 const INTEGER *KD,
6718 const DOUBLE *AB,
6719 const INTEGER *LDAB,
6720 DOUBLE *X,
6721 DOUBLE *SCALE,
6722 DOUBLE *CNORM,
6723 INTEGER *INFO)
6724 {
6725 DEBUG_LAPACK_STUB("dlatbs");
6726 LAPACK_IMPL(dlatbs)(UPLO,
6727 TRANS,
6728 DIAG,
6729 NORMIN,
6730 N,
6731 KD,
6732 AB,
6733 LDAB,
6734 X,
6735 SCALE,
6736 CNORM,
6737 INFO);
6738 }
6739
6740 //-- dlatdf --------------------------------------------------------------------
6741 void
6742 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
6743 const INTEGER *N,
6744 const DOUBLE *Z,
6745 const INTEGER *LDZ,
6746 DOUBLE *RHS,
6747 DOUBLE *RDSUM,
6748 DOUBLE *RDSCAL,
6749 const INTEGER *IPIV,
6750 const INTEGER *JPIV)
6751 {
6752 DEBUG_LAPACK_STUB("dlatdf");
6753 LAPACK_IMPL(dlatdf)(IJOB,
6754 N,
6755 Z,
6756 LDZ,
6757 RHS,
6758 RDSUM,
6759 RDSCAL,
6760 IPIV,
6761 JPIV);
6762 }
6763
6764 //-- dlatps --------------------------------------------------------------------
6765 void
6766 LAPACK_DECL(dlatps)(const char *UPLO,
6767 const char *TRANS,
6768 const char *DIAG,
6769 const char *NORMIN,
6770 const INTEGER *N,
6771 const DOUBLE *AP,
6772 DOUBLE *X,
6773 DOUBLE *SCALE,
6774 DOUBLE *CNORM,
6775 INTEGER *INFO)
6776 {
6777 DEBUG_LAPACK_STUB("dlatps");
6778 LAPACK_IMPL(dlatps)(UPLO,
6779 TRANS,
6780 DIAG,
6781 NORMIN,
6782 N,
6783 AP,
6784 X,
6785 SCALE,
6786 CNORM,
6787 INFO);
6788 }
6789
6790 //-- dlatrd --------------------------------------------------------------------
6791 void
6792 LAPACK_DECL(dlatrd)(const char *UPLO,
6793 const INTEGER *N,
6794 const INTEGER *NB,
6795 DOUBLE *A,
6796 const INTEGER *LDA,
6797 DOUBLE *E,
6798 DOUBLE *TAU,
6799 DOUBLE *W,
6800 const INTEGER *LDW)
6801 {
6802 DEBUG_LAPACK_STUB("dlatrd");
6803 LAPACK_IMPL(dlatrd)(UPLO,
6804 N,
6805 NB,
6806 A,
6807 LDA,
6808 E,
6809 TAU,
6810 W,
6811 LDW);
6812 }
6813
6814 //-- dlatrs --------------------------------------------------------------------
6815 /*
6816 void
6817 LAPACK_DECL(dlatrs)(const char *UPLO,
6818 const char *TRANS,
6819 const char *DIAG,
6820 const char *NORMIN,
6821 const INTEGER *N,
6822 const DOUBLE *A,
6823 const INTEGER *LDA,
6824 DOUBLE *X,
6825 DOUBLE *SCALE,
6826 DOUBLE *CNORM,
6827 INTEGER *INFO)
6828 {
6829 DEBUG_LAPACK_STUB("dlatrs");
6830 LAPACK_IMPL(dlatrs)(UPLO,
6831 TRANS,
6832 DIAG,
6833 NORMIN,
6834 N,
6835 A,
6836 LDA,
6837 X,
6838 SCALE,
6839 CNORM,
6840 INFO);
6841 }
6842 */
6843 //-- dlatrz --------------------------------------------------------------------
6844 void
6845 LAPACK_DECL(dlatrz)(const INTEGER *M,
6846 const INTEGER *N,
6847 const INTEGER *L,
6848 DOUBLE *A,
6849 const INTEGER *LDA,
6850 DOUBLE *TAU,
6851 DOUBLE *WORK)
6852 {
6853 DEBUG_LAPACK_STUB("dlatrz");
6854 LAPACK_IMPL(dlatrz)(M,
6855 N,
6856 L,
6857 A,
6858 LDA,
6859 TAU,
6860 WORK);
6861 }
6862
6863 //-- dlatzm --------------------------------------------------------------------
6864 void
6865 LAPACK_DECL(dlatzm)(const char *SIDE,
6866 const INTEGER *M,
6867 const INTEGER *N,
6868 const DOUBLE *V,
6869 const INTEGER *INCV,
6870 const DOUBLE *TAU,
6871 DOUBLE *C1,
6872 DOUBLE *C2,
6873 const INTEGER *LDC,
6874 DOUBLE *WORK)
6875 {
6876 DEBUG_LAPACK_STUB("dlatzm");
6877 LAPACK_IMPL(dlatzm)(SIDE,
6878 M,
6879 N,
6880 V,
6881 INCV,
6882 TAU,
6883 C1,
6884 C2,
6885 LDC,
6886 WORK);
6887 }
6888
6889 //-- dlauu2 --------------------------------------------------------------------
6890 void
6891 LAPACK_DECL(dlauu2)(const char *UPLO,
6892 const INTEGER *N,
6893 DOUBLE *A,
6894 const INTEGER *LDA,
6895 INTEGER *INFO)
6896 {
6897 DEBUG_LAPACK_STUB("dlauu2");
6898 LAPACK_IMPL(dlauu2)(UPLO,
6899 N,
6900 A,
6901 LDA,
6902 INFO);
6903 }
6904
6905 //-- dlauum --------------------------------------------------------------------
6906 void
6907 LAPACK_DECL(dlauum)(const char *UPLO,
6908 const INTEGER *N,
6909 DOUBLE *A,
6910 const INTEGER *LDA,
6911 INTEGER *INFO)
6912 {
6913 DEBUG_LAPACK_STUB("dlauum");
6914 LAPACK_IMPL(dlauum)(UPLO,
6915 N,
6916 A,
6917 LDA,
6918 INFO);
6919 }
6920
6921 //-- dopgtr --------------------------------------------------------------------
6922 void
6923 LAPACK_DECL(dopgtr)(const char *UPLO,
6924 const INTEGER *N,
6925 const DOUBLE *AP,
6926 const DOUBLE *TAU,
6927 DOUBLE *Q,
6928 const INTEGER *LDQ,
6929 DOUBLE *WORK,
6930 INTEGER *INFO)
6931 {
6932 DEBUG_LAPACK_STUB("dopgtr");
6933 LAPACK_IMPL(dopgtr)(UPLO,
6934 N,
6935 AP,
6936 TAU,
6937 Q,
6938 LDQ,
6939 WORK,
6940 INFO);
6941 }
6942
6943 //-- dopmtr --------------------------------------------------------------------
6944 void
6945 LAPACK_DECL(dopmtr)(const char *SIDE,
6946 const char *UPLO,
6947 const char *TRANS,
6948 const INTEGER *M,
6949 const INTEGER *N,
6950 const DOUBLE *AP,
6951 const DOUBLE *TAU,
6952 DOUBLE *C,
6953 const INTEGER *LDC,
6954 DOUBLE *WORK,
6955 INTEGER *INFO)
6956 {
6957 DEBUG_LAPACK_STUB("dopmtr");
6958 LAPACK_IMPL(dopmtr)(SIDE,
6959 UPLO,
6960 TRANS,
6961 M,
6962 N,
6963 AP,
6964 TAU,
6965 C,
6966 LDC,
6967 WORK,
6968 INFO);
6969 }
6970
6971 //-- dorbdb --------------------------------------------------------------------
6972 void
6973 LAPACK_DECL(dorbdb)(const char *TRANS,
6974 const char *SIGNS,
6975 const INTEGER *M,
6976 const INTEGER *P,
6977 const INTEGER *Q,
6978 DOUBLE *X11,
6979 const INTEGER *LDX11,
6980 DOUBLE *X12,
6981 const INTEGER *LDX12,
6982 DOUBLE *X21,
6983 const INTEGER *LDX21,
6984 DOUBLE *X22,
6985 const INTEGER *LDX22,
6986 DOUBLE *THETA,
6987 DOUBLE *PHI,
6988 DOUBLE *TAUP1,
6989 DOUBLE *TAUP2,
6990 DOUBLE *TAUQ1,
6991 DOUBLE *TAUQ2,
6992 DOUBLE *WORK,
6993 const INTEGER *LWORK,
6994 INTEGER *INFO)
6995 {
6996 DEBUG_LAPACK_STUB("dorbdb");
6997 LAPACK_IMPL(dorbdb)(TRANS,
6998 SIGNS,
6999 M,
7000 P,
7001 Q,
7002 X11,
7003 LDX11,
7004 X12,
7005 LDX12,
7006 X21,
7007 LDX21,
7008 X22,
7009 LDX22,
7010 THETA,
7011 PHI,
7012 TAUP1,
7013 TAUP2,
7014 TAUQ1,
7015 TAUQ2,
7016 WORK,
7017 LWORK,
7018 INFO);
7019 }
7020
7021 //-- dorcsd --------------------------------------------------------------------
7022 void
7023 LAPACK_DECL(dorcsd)(const char *JOBU1,
7024 const char *JOBU2,
7025 const char *JOBV1T,
7026 const char *JOBV2T,
7027 const char *TRANS,
7028 const char *SIGNS,
7029 const INTEGER *M,
7030 const INTEGER *P,
7031 const INTEGER *Q,
7032 const DOUBLE *X11,
7033 const INTEGER *LDX11,
7034 const DOUBLE *X12,
7035 const INTEGER *LDX12,
7036 const DOUBLE *X21,
7037 const INTEGER *LDX21,
7038 const DOUBLE *X22,
7039 const INTEGER *LDX22,
7040 DOUBLE *THETA,
7041 DOUBLE *U1,
7042 const INTEGER *LDU1,
7043 DOUBLE *U2,
7044 const INTEGER *LDU2,
7045 DOUBLE *V1T,
7046 const INTEGER *LDV1T,
7047 DOUBLE *V2T,
7048 const INTEGER *LDV2T,
7049 DOUBLE *WORK,
7050 const INTEGER *LWORK,
7051 INTEGER *IWORK,
7052 INTEGER *INFO)
7053 {
7054 DEBUG_LAPACK_STUB("dorcsd");
7055 LAPACK_IMPL(dorcsd)(JOBU1,
7056 JOBU2,
7057 JOBV1T,
7058 JOBV2T,
7059 TRANS,
7060 SIGNS,
7061 M,
7062 P,
7063 Q,
7064 X11,
7065 LDX11,
7066 X12,
7067 LDX12,
7068 X21,
7069 LDX21,
7070 X22,
7071 LDX22,
7072 THETA,
7073 U1,
7074 LDU1,
7075 U2,
7076 LDU2,
7077 V1T,
7078 LDV1T,
7079 V2T,
7080 LDV2T,
7081 WORK,
7082 LWORK,
7083 IWORK,
7084 INFO);
7085 }
7086
7087 //-- dorg2l --------------------------------------------------------------------
7088 void
7089 LAPACK_DECL(dorg2l)(const INTEGER *M,
7090 const INTEGER *N,
7091 const INTEGER *K,
7092 DOUBLE *A,
7093 const INTEGER *LDA,
7094 const DOUBLE *TAU,
7095 DOUBLE *WORK,
7096 INTEGER *INFO)
7097 {
7098 DEBUG_LAPACK_STUB("dorg2l");
7099 LAPACK_IMPL(dorg2l)(M,
7100 N,
7101 K,
7102 A,
7103 LDA,
7104 TAU,
7105 WORK,
7106 INFO);
7107 }
7108
7109 //-- dorg2r --------------------------------------------------------------------
7110 void
7111 LAPACK_DECL(dorg2r)(const INTEGER *M,
7112 const INTEGER *N,
7113 const INTEGER *K,
7114 DOUBLE *A,
7115 const INTEGER *LDA,
7116 const DOUBLE *TAU,
7117 DOUBLE *WORK,
7118 INTEGER *INFO)
7119 {
7120 DEBUG_LAPACK_STUB("dorg2r");
7121 LAPACK_IMPL(dorg2r)(M,
7122 N,
7123 K,
7124 A,
7125 LDA,
7126 TAU,
7127 WORK,
7128 INFO);
7129 }
7130
7131 //-- dorgbr --------------------------------------------------------------------
7132 void
7133 LAPACK_DECL(dorgbr)(const char *VECT,
7134 const INTEGER *M,
7135 const INTEGER *N,
7136 const INTEGER *K,
7137 DOUBLE *A,
7138 const INTEGER *LDA,
7139 const DOUBLE *TAU,
7140 DOUBLE *WORK,
7141 const INTEGER *LWORK,
7142 INTEGER *INFO)
7143 {
7144 DEBUG_LAPACK_STUB("dorgbr");
7145 LAPACK_IMPL(dorgbr)(VECT,
7146 M,
7147 N,
7148 K,
7149 A,
7150 LDA,
7151 TAU,
7152 WORK,
7153 LWORK,
7154 INFO);
7155 }
7156
7157 //-- dorghr --------------------------------------------------------------------
7158 void
7159 LAPACK_DECL(dorghr)(const INTEGER *N,
7160 const INTEGER *ILO,
7161 const INTEGER *IHI,
7162 DOUBLE *A,
7163 const INTEGER *LDA,
7164 const DOUBLE *TAU,
7165 DOUBLE *WORK,
7166 const INTEGER *LWORK,
7167 INTEGER *INFO)
7168 {
7169 DEBUG_LAPACK_STUB("dorghr");
7170 LAPACK_IMPL(dorghr)(N,
7171 ILO,
7172 IHI,
7173 A,
7174 LDA,
7175 TAU,
7176 WORK,
7177 LWORK,
7178 INFO);
7179 }
7180
7181 //-- dorgl2 --------------------------------------------------------------------
7182 void
7183 LAPACK_DECL(dorgl2)(const INTEGER *M,
7184 const INTEGER *N,
7185 const INTEGER *K,
7186 DOUBLE *A,
7187 const INTEGER *LDA,
7188 const DOUBLE *TAU,
7189 DOUBLE *WORK,
7190 INTEGER *INFO)
7191 {
7192 DEBUG_LAPACK_STUB("dorgl2");
7193 LAPACK_IMPL(dorgl2)(M,
7194 N,
7195 K,
7196 A,
7197 LDA,
7198 TAU,
7199 WORK,
7200 INFO);
7201 }
7202
7203 //-- dorglq --------------------------------------------------------------------
7204 /*
7205 void
7206 LAPACK_DECL(dorglq)(const INTEGER *M,
7207 const INTEGER *N,
7208 const INTEGER *K,
7209 DOUBLE *A,
7210 const INTEGER *LDA,
7211 const DOUBLE *TAU,
7212 DOUBLE *WORK,
7213 const INTEGER *LWORK,
7214 INTEGER *INFO)
7215 {
7216 DEBUG_LAPACK_STUB("dorglq");
7217 LAPACK_IMPL(dorglq)(M,
7218 N,
7219 K,
7220 A,
7221 LDA,
7222 TAU,
7223 WORK,
7224 LWORK,
7225 INFO);
7226 }
7227 */
7228 //-- dorgql --------------------------------------------------------------------
7229 void
7230 LAPACK_DECL(dorgql)(const INTEGER *M,
7231 const INTEGER *N,
7232 const INTEGER *K,
7233 DOUBLE *A,
7234 const INTEGER *LDA,
7235 const DOUBLE *TAU,
7236 DOUBLE *WORK,
7237 const INTEGER *LWORK,
7238 INTEGER *INFO)
7239 {
7240 DEBUG_LAPACK_STUB("dorgql");
7241 LAPACK_IMPL(dorgql)(M,
7242 N,
7243 K,
7244 A,
7245 LDA,
7246 TAU,
7247 WORK,
7248 LWORK,
7249 INFO);
7250 }
7251
7252 //-- dorgqr --------------------------------------------------------------------
7253 /*
7254 void
7255 LAPACK_DECL(dorgqr)(const INTEGER *M,
7256 const INTEGER *N,
7257 const INTEGER *K,
7258 DOUBLE *A,
7259 const INTEGER *LDA,
7260 const DOUBLE *TAU,
7261 DOUBLE *WORK,
7262 const INTEGER *LWORK,
7263 INTEGER *INFO)
7264 {
7265 DEBUG_LAPACK_STUB("dorgqr");
7266 LAPACK_IMPL(dorgqr)(M,
7267 N,
7268 K,
7269 A,
7270 LDA,
7271 TAU,
7272 WORK,
7273 LWORK,
7274 INFO);
7275 }
7276 */
7277 //-- dorgr2 --------------------------------------------------------------------
7278 void
7279 LAPACK_DECL(dorgr2)(const INTEGER *M,
7280 const INTEGER *N,
7281 const INTEGER *K,
7282 DOUBLE *A,
7283 const INTEGER *LDA,
7284 const DOUBLE *TAU,
7285 DOUBLE *WORK,
7286 INTEGER *INFO)
7287 {
7288 DEBUG_LAPACK_STUB("dorgr2");
7289 LAPACK_IMPL(dorgr2)(M,
7290 N,
7291 K,
7292 A,
7293 LDA,
7294 TAU,
7295 WORK,
7296 INFO);
7297 }
7298
7299 //-- dorgrq --------------------------------------------------------------------
7300 void
7301 LAPACK_DECL(dorgrq)(const INTEGER *M,
7302 const INTEGER *N,
7303 const INTEGER *K,
7304 DOUBLE *A,
7305 const INTEGER *LDA,
7306 const DOUBLE *TAU,
7307 DOUBLE *WORK,
7308 const INTEGER *LWORK,
7309 INTEGER *INFO)
7310 {
7311 DEBUG_LAPACK_STUB("dorgrq");
7312 LAPACK_IMPL(dorgrq)(M,
7313 N,
7314 K,
7315 A,
7316 LDA,
7317 TAU,
7318 WORK,
7319 LWORK,
7320 INFO);
7321 }
7322
7323 //-- dorgtr --------------------------------------------------------------------
7324 void
7325 LAPACK_DECL(dorgtr)(const char *UPLO,
7326 const INTEGER *N,
7327 DOUBLE *A,
7328 const INTEGER *LDA,
7329 const DOUBLE *TAU,
7330 DOUBLE *WORK,
7331 const INTEGER *LWORK,
7332 INTEGER *INFO)
7333 {
7334 DEBUG_LAPACK_STUB("dorgtr");
7335 LAPACK_IMPL(dorgtr)(UPLO,
7336 N,
7337 A,
7338 LDA,
7339 TAU,
7340 WORK,
7341 LWORK,
7342 INFO);
7343 }
7344
7345 //-- dorm2l --------------------------------------------------------------------
7346 void
7347 LAPACK_DECL(dorm2l)(const char *SIDE,
7348 const char *TRANS,
7349 const INTEGER *M,
7350 const INTEGER *N,
7351 const INTEGER *K,
7352 const DOUBLE *A,
7353 const INTEGER *LDA,
7354 const DOUBLE *TAU,
7355 DOUBLE *C,
7356 const INTEGER *LDC,
7357 DOUBLE *WORK,
7358 INTEGER *INFO)
7359 {
7360 DEBUG_LAPACK_STUB("dorm2l");
7361 LAPACK_IMPL(dorm2l)(SIDE,
7362 TRANS,
7363 M,
7364 N,
7365 K,
7366 A,
7367 LDA,
7368 TAU,
7369 C,
7370 LDC,
7371 WORK,
7372 INFO);
7373 }
7374
7375 //-- dorm2r --------------------------------------------------------------------
7376 void
7377 LAPACK_DECL(dorm2r)(const char *SIDE,
7378 const char *TRANS,
7379 const INTEGER *M,
7380 const INTEGER *N,
7381 const INTEGER *K,
7382 const DOUBLE *A,
7383 const INTEGER *LDA,
7384 const DOUBLE *TAU,
7385 DOUBLE *C,
7386 const INTEGER *LDC,
7387 DOUBLE *WORK,
7388 INTEGER *INFO)
7389 {
7390 DEBUG_LAPACK_STUB("dorm2r");
7391 LAPACK_IMPL(dorm2r)(SIDE,
7392 TRANS,
7393 M,
7394 N,
7395 K,
7396 A,
7397 LDA,
7398 TAU,
7399 C,
7400 LDC,
7401 WORK,
7402 INFO);
7403 }
7404
7405 //-- dormbr --------------------------------------------------------------------
7406 void
7407 LAPACK_DECL(dormbr)(const char *VECT,
7408 const char *SIDE,
7409 const char *TRANS,
7410 const INTEGER *M,
7411 const INTEGER *N,
7412 const INTEGER *K,
7413 const DOUBLE *A,
7414 const INTEGER *LDA,
7415 const DOUBLE *TAU,
7416 DOUBLE *C,
7417 const INTEGER *LDC,
7418 DOUBLE *WORK,
7419 const INTEGER *LWORK,
7420 INTEGER *INFO)
7421 {
7422 DEBUG_LAPACK_STUB("dormbr");
7423 LAPACK_IMPL(dormbr)(VECT,
7424 SIDE,
7425 TRANS,
7426 M,
7427 N,
7428 K,
7429 A,
7430 LDA,
7431 TAU,
7432 C,
7433 LDC,
7434 WORK,
7435 LWORK,
7436 INFO);
7437 }
7438
7439 //-- dormhr --------------------------------------------------------------------
7440 void
7441 LAPACK_DECL(dormhr)(const char *SIDE,
7442 const char *TRANS,
7443 const INTEGER *M,
7444 const INTEGER *N,
7445 const INTEGER *ILO,
7446 const INTEGER *IHI,
7447 const DOUBLE *A,
7448 const INTEGER *LDA,
7449 const DOUBLE *TAU,
7450 DOUBLE *C,
7451 const INTEGER *LDC,
7452 DOUBLE *WORK,
7453 const INTEGER *LWORK,
7454 INTEGER *INFO)
7455 {
7456 DEBUG_LAPACK_STUB("dormhr");
7457 LAPACK_IMPL(dormhr)(SIDE,
7458 TRANS,
7459 M,
7460 N,
7461 ILO,
7462 IHI,
7463 A,
7464 LDA,
7465 TAU,
7466 C,
7467 LDC,
7468 WORK,
7469 LWORK,
7470 INFO);
7471 }
7472
7473 //-- dorml2 --------------------------------------------------------------------
7474 void
7475 LAPACK_DECL(dorml2)(const char *SIDE,
7476 const char *TRANS,
7477 const INTEGER *M,
7478 const INTEGER *N,
7479 const INTEGER *K,
7480 const DOUBLE *A,
7481 const INTEGER *LDA,
7482 const DOUBLE *TAU,
7483 DOUBLE *C,
7484 const INTEGER *LDC,
7485 DOUBLE *WORK,
7486 INTEGER *INFO)
7487 {
7488 DEBUG_LAPACK_STUB("dorml2");
7489 LAPACK_IMPL(dorml2)(SIDE,
7490 TRANS,
7491 M,
7492 N,
7493 K,
7494 A,
7495 LDA,
7496 TAU,
7497 C,
7498 LDC,
7499 WORK,
7500 INFO);
7501 }
7502
7503 //-- dormlq --------------------------------------------------------------------
7504 /*
7505 void
7506 LAPACK_DECL(dormlq)(const char *SIDE,
7507 const char *TRANS,
7508 const INTEGER *M,
7509 const INTEGER *N,
7510 const INTEGER *K,
7511 const DOUBLE *A,
7512 const INTEGER *LDA,
7513 const DOUBLE *TAU,
7514 DOUBLE *C,
7515 const INTEGER *LDC,
7516 DOUBLE *WORK,
7517 const INTEGER *LWORK,
7518 INTEGER *INFO)
7519 {
7520 DEBUG_LAPACK_STUB("dormlq");
7521 LAPACK_IMPL(dormlq)(SIDE,
7522 TRANS,
7523 M,
7524 N,
7525 K,
7526 A,
7527 LDA,
7528 TAU,
7529 C,
7530 LDC,
7531 WORK,
7532 LWORK,
7533 INFO);
7534 }
7535 */
7536 //-- dormql --------------------------------------------------------------------
7537 void
7538 LAPACK_DECL(dormql)(const char *SIDE,
7539 const char *TRANS,
7540 const INTEGER *M,
7541 const INTEGER *N,
7542 const INTEGER *K,
7543 const DOUBLE *A,
7544 const INTEGER *LDA,
7545 const DOUBLE *TAU,
7546 DOUBLE *C,
7547 const INTEGER *LDC,
7548 DOUBLE *WORK,
7549 const INTEGER *LWORK,
7550 INTEGER *INFO)
7551 {
7552 DEBUG_LAPACK_STUB("dormql");
7553 LAPACK_IMPL(dormql)(SIDE,
7554 TRANS,
7555 M,
7556 N,
7557 K,
7558 A,
7559 LDA,
7560 TAU,
7561 C,
7562 LDC,
7563 WORK,
7564 LWORK,
7565 INFO);
7566 }
7567
7568 //-- dormqr --------------------------------------------------------------------
7569 /*
7570 void
7571 LAPACK_DECL(dormqr)(const char *SIDE,
7572 const char *TRANS,
7573 const INTEGER *M,
7574 const INTEGER *N,
7575 const INTEGER *K,
7576 const DOUBLE *A,
7577 const INTEGER *LDA,
7578 const DOUBLE *TAU,
7579 DOUBLE *C,
7580 const INTEGER *LDC,
7581 DOUBLE *WORK,
7582 const INTEGER *LWORK,
7583 INTEGER *INFO)
7584 {
7585 DEBUG_LAPACK_STUB("dormqr");
7586 LAPACK_IMPL(dormqr)(SIDE,
7587 TRANS,
7588 M,
7589 N,
7590 K,
7591 A,
7592 LDA,
7593 TAU,
7594 C,
7595 LDC,
7596 WORK,
7597 LWORK,
7598 INFO);
7599 }
7600 */
7601 //-- dormr2 --------------------------------------------------------------------
7602 void
7603 LAPACK_DECL(dormr2)(const char *SIDE,
7604 const char *TRANS,
7605 const INTEGER *M,
7606 const INTEGER *N,
7607 const INTEGER *K,
7608 const DOUBLE *A,
7609 const INTEGER *LDA,
7610 const DOUBLE *TAU,
7611 DOUBLE *C,
7612 const INTEGER *LDC,
7613 DOUBLE *WORK,
7614 INTEGER *INFO)
7615 {
7616 DEBUG_LAPACK_STUB("dormr2");
7617 LAPACK_IMPL(dormr2)(SIDE,
7618 TRANS,
7619 M,
7620 N,
7621 K,
7622 A,
7623 LDA,
7624 TAU,
7625 C,
7626 LDC,
7627 WORK,
7628 INFO);
7629 }
7630
7631 //-- dormr3 --------------------------------------------------------------------
7632 void
7633 LAPACK_DECL(dormr3)(const char *SIDE,
7634 const char *TRANS,
7635 const INTEGER *M,
7636 const INTEGER *N,
7637 const INTEGER *K,
7638 const INTEGER *L,
7639 const DOUBLE *A,
7640 const INTEGER *LDA,
7641 const DOUBLE *TAU,
7642 DOUBLE *C,
7643 const INTEGER *LDC,
7644 DOUBLE *WORK,
7645 INTEGER *INFO)
7646 {
7647 DEBUG_LAPACK_STUB("dormr3");
7648 LAPACK_IMPL(dormr3)(SIDE,
7649 TRANS,
7650 M,
7651 N,
7652 K,
7653 L,
7654 A,
7655 LDA,
7656 TAU,
7657 C,
7658 LDC,
7659 WORK,
7660 INFO);
7661 }
7662
7663 //-- dormrq --------------------------------------------------------------------
7664 void
7665 LAPACK_DECL(dormrq)(const char *SIDE,
7666 const char *TRANS,
7667 const INTEGER *M,
7668 const INTEGER *N,
7669 const INTEGER *K,
7670 const DOUBLE *A,
7671 const INTEGER *LDA,
7672 const DOUBLE *TAU,
7673 DOUBLE *C,
7674 const INTEGER *LDC,
7675 DOUBLE *WORK,
7676 const INTEGER *LWORK,
7677 INTEGER *INFO)
7678 {
7679 DEBUG_LAPACK_STUB("dormrq");
7680 LAPACK_IMPL(dormrq)(SIDE,
7681 TRANS,
7682 M,
7683 N,
7684 K,
7685 A,
7686 LDA,
7687 TAU,
7688 C,
7689 LDC,
7690 WORK,
7691 LWORK,
7692 INFO);
7693 }
7694
7695 //-- dormrz --------------------------------------------------------------------
7696 void
7697 LAPACK_DECL(dormrz)(const char *SIDE,
7698 const char *TRANS,
7699 const INTEGER *M,
7700 const INTEGER *N,
7701 const INTEGER *K,
7702 const INTEGER *L,
7703 const DOUBLE *A,
7704 const INTEGER *LDA,
7705 const DOUBLE *TAU,
7706 DOUBLE *C,
7707 const INTEGER *LDC,
7708 DOUBLE *WORK,
7709 const INTEGER *LWORK,
7710 INTEGER *INFO)
7711 {
7712 DEBUG_LAPACK_STUB("dormrz");
7713 LAPACK_IMPL(dormrz)(SIDE,
7714 TRANS,
7715 M,
7716 N,
7717 K,
7718 L,
7719 A,
7720 LDA,
7721 TAU,
7722 C,
7723 LDC,
7724 WORK,
7725 LWORK,
7726 INFO);
7727 }
7728
7729 //-- dormtr --------------------------------------------------------------------
7730 void
7731 LAPACK_DECL(dormtr)(const char *SIDE,
7732 const char *UPLO,
7733 const char *TRANS,
7734 const INTEGER *M,
7735 const INTEGER *N,
7736 const DOUBLE *A,
7737 const INTEGER *LDA,
7738 const DOUBLE *TAU,
7739 DOUBLE *C,
7740 const INTEGER *LDC,
7741 DOUBLE *WORK,
7742 const INTEGER *LWORK,
7743 INTEGER *INFO)
7744 {
7745 DEBUG_LAPACK_STUB("dormtr");
7746 LAPACK_IMPL(dormtr)(SIDE,
7747 UPLO,
7748 TRANS,
7749 M,
7750 N,
7751 A,
7752 LDA,
7753 TAU,
7754 C,
7755 LDC,
7756 WORK,
7757 LWORK,
7758 INFO);
7759 }
7760
7761 //-- dpbcon --------------------------------------------------------------------
7762 void
7763 LAPACK_DECL(dpbcon)(const char *UPLO,
7764 const INTEGER *N,
7765 const INTEGER *KD,
7766 const DOUBLE *AB,
7767 const INTEGER *LDAB,
7768 const DOUBLE *ANORM,
7769 DOUBLE *RCOND,
7770 DOUBLE *WORK,
7771 INTEGER *IWORK,
7772 INTEGER *INFO)
7773 {
7774 DEBUG_LAPACK_STUB("dpbcon");
7775 LAPACK_IMPL(dpbcon)(UPLO,
7776 N,
7777 KD,
7778 AB,
7779 LDAB,
7780 ANORM,
7781 RCOND,
7782 WORK,
7783 IWORK,
7784 INFO);
7785 }
7786
7787 //-- dpbequ --------------------------------------------------------------------
7788 void
7789 LAPACK_DECL(dpbequ)(const char *UPLO,
7790 const INTEGER *N,
7791 const INTEGER *KD,
7792 const DOUBLE *AB,
7793 const INTEGER *LDAB,
7794 DOUBLE *S,
7795 DOUBLE *SCOND,
7796 DOUBLE *AMAX,
7797 INTEGER *INFO)
7798 {
7799 DEBUG_LAPACK_STUB("dpbequ");
7800 LAPACK_IMPL(dpbequ)(UPLO,
7801 N,
7802 KD,
7803 AB,
7804 LDAB,
7805 S,
7806 SCOND,
7807 AMAX,
7808 INFO);
7809 }
7810
7811 //-- dpbrfs --------------------------------------------------------------------
7812 void
7813 LAPACK_DECL(dpbrfs)(const char *UPLO,
7814 const INTEGER *N,
7815 const INTEGER *KD,
7816 const INTEGER *NRHS,
7817 const DOUBLE *AB,
7818 const INTEGER *LDAB,
7819 const DOUBLE *AFB,
7820 const INTEGER *LDAFB,
7821 const DOUBLE *B,
7822 const INTEGER *LDB,
7823 DOUBLE *X,
7824 const INTEGER *LDX,
7825 DOUBLE *FERR,
7826 DOUBLE *BERR,
7827 DOUBLE *WORK,
7828 INTEGER *IWORK,
7829 INTEGER *INFO)
7830 {
7831 DEBUG_LAPACK_STUB("dpbrfs");
7832 LAPACK_IMPL(dpbrfs)(UPLO,
7833 N,
7834 KD,
7835 NRHS,
7836 AB,
7837 LDAB,
7838 AFB,
7839 LDAFB,
7840 B,
7841 LDB,
7842 X,
7843 LDX,
7844 FERR,
7845 BERR,
7846 WORK,
7847 IWORK,
7848 INFO);
7849 }
7850
7851 //-- dpbstf --------------------------------------------------------------------
7852 void
7853 LAPACK_DECL(dpbstf)(const char *UPLO,
7854 const INTEGER *N,
7855 const INTEGER *KD,
7856 DOUBLE *AB,
7857 const INTEGER *LDAB,
7858 INTEGER *INFO)
7859 {
7860 DEBUG_LAPACK_STUB("dpbstf");
7861 LAPACK_IMPL(dpbstf)(UPLO,
7862 N,
7863 KD,
7864 AB,
7865 LDAB,
7866 INFO);
7867 }
7868
7869 //-- dpbsv ---------------------------------------------------------------------
7870 void
7871 LAPACK_DECL(dpbsv)(const char *UPLO,
7872 const INTEGER *N,
7873 const INTEGER *KD,
7874 const INTEGER *NRHS,
7875 DOUBLE *AB,
7876 const INTEGER *LDAB,
7877 DOUBLE *B,
7878 const INTEGER *LDB,
7879 INTEGER *INFO)
7880 {
7881 DEBUG_LAPACK_STUB("dpbsv");
7882 LAPACK_IMPL(dpbsv)(UPLO,
7883 N,
7884 KD,
7885 NRHS,
7886 AB,
7887 LDAB,
7888 B,
7889 LDB,
7890 INFO);
7891 }
7892
7893 //-- dpbsvx --------------------------------------------------------------------
7894 void
7895 LAPACK_DECL(dpbsvx)(const char *FACT,
7896 const char *UPLO,
7897 const INTEGER *N,
7898 const INTEGER *KD,
7899 const INTEGER *NRHS,
7900 DOUBLE *AB,
7901 const INTEGER *LDAB,
7902 DOUBLE *AFB,
7903 const INTEGER *LDAFB,
7904 char *EQUED,
7905 DOUBLE *S,
7906 DOUBLE *B,
7907 const INTEGER *LDB,
7908 DOUBLE *X,
7909 const INTEGER *LDX,
7910 DOUBLE *RCOND,
7911 DOUBLE *FERR,
7912 DOUBLE *BERR,
7913 DOUBLE *WORK,
7914 INTEGER *IWORK,
7915 INTEGER *INFO)
7916 {
7917 DEBUG_LAPACK_STUB("dpbsvx");
7918 LAPACK_IMPL(dpbsvx)(FACT,
7919 UPLO,
7920 N,
7921 KD,
7922 NRHS,
7923 AB,
7924 LDAB,
7925 AFB,
7926 LDAFB,
7927 EQUED,
7928 S,
7929 B,
7930 LDB,
7931 X,
7932 LDX,
7933 RCOND,
7934 FERR,
7935 BERR,
7936 WORK,
7937 IWORK,
7938 INFO);
7939 }
7940
7941 //-- dpbtf2 --------------------------------------------------------------------
7942 void
7943 LAPACK_DECL(dpbtf2)(const char *UPLO,
7944 const INTEGER *N,
7945 const INTEGER *KD,
7946 DOUBLE *AB,
7947 const INTEGER *LDAB,
7948 INTEGER *INFO)
7949 {
7950 DEBUG_LAPACK_STUB("dpbtf2");
7951 LAPACK_IMPL(dpbtf2)(UPLO,
7952 N,
7953 KD,
7954 AB,
7955 LDAB,
7956 INFO);
7957 }
7958
7959 //-- dpbtrf --------------------------------------------------------------------
7960 void
7961 LAPACK_DECL(dpbtrf)(const char *UPLO,
7962 const INTEGER *N,
7963 const INTEGER *KD,
7964 DOUBLE *AB,
7965 const INTEGER *LDAB,
7966 INTEGER *INFO)
7967 {
7968 DEBUG_LAPACK_STUB("dpbtrf");
7969 LAPACK_IMPL(dpbtrf)(UPLO,
7970 N,
7971 KD,
7972 AB,
7973 LDAB,
7974 INFO);
7975 }
7976
7977 //-- dpbtrs --------------------------------------------------------------------
7978 void
7979 LAPACK_DECL(dpbtrs)(const char *UPLO,
7980 const INTEGER *N,
7981 const INTEGER *KD,
7982 const INTEGER *NRHS,
7983 const DOUBLE *AB,
7984 const INTEGER *LDAB,
7985 DOUBLE *B,
7986 const INTEGER *LDB,
7987 INTEGER *INFO)
7988 {
7989 DEBUG_LAPACK_STUB("dpbtrs");
7990 LAPACK_IMPL(dpbtrs)(UPLO,
7991 N,
7992 KD,
7993 NRHS,
7994 AB,
7995 LDAB,
7996 B,
7997 LDB,
7998 INFO);
7999 }
8000
8001 //-- dpftrf --------------------------------------------------------------------
8002 void
8003 LAPACK_DECL(dpftrf)(const char *TRANSR,
8004 const char *UPLO,
8005 const INTEGER *N,
8006 DOUBLE *A,
8007 INTEGER *INFO)
8008 {
8009 DEBUG_LAPACK_STUB("dpftrf");
8010 LAPACK_IMPL(dpftrf)(TRANSR,
8011 UPLO,
8012 N,
8013 A,
8014 INFO);
8015 }
8016
8017 //-- dpftri --------------------------------------------------------------------
8018 void
8019 LAPACK_DECL(dpftri)(const char *TRANSR,
8020 const char *UPLO,
8021 const INTEGER *N,
8022 DOUBLE *A,
8023 INTEGER *INFO)
8024 {
8025 DEBUG_LAPACK_STUB("dpftri");
8026 LAPACK_IMPL(dpftri)(TRANSR,
8027 UPLO,
8028 N,
8029 A,
8030 INFO);
8031 }
8032
8033 //-- dpftrs --------------------------------------------------------------------
8034 void
8035 LAPACK_DECL(dpftrs)(const char *TRANSR,
8036 const char *UPLO,
8037 const INTEGER *N,
8038 const INTEGER *NRHS,
8039 const DOUBLE *A,
8040 DOUBLE *B,
8041 const INTEGER *LDB,
8042 INTEGER *INFO)
8043 {
8044 DEBUG_LAPACK_STUB("dpftrs");
8045 LAPACK_IMPL(dpftrs)(TRANSR,
8046 UPLO,
8047 N,
8048 NRHS,
8049 A,
8050 B,
8051 LDB,
8052 INFO);
8053 }
8054
8055 //-- dpocon --------------------------------------------------------------------
8056 /*
8057 void
8058 LAPACK_DECL(dpocon)(const char *UPLO,
8059 const INTEGER *N,
8060 const DOUBLE *A,
8061 const INTEGER *LDA,
8062 const DOUBLE *ANORM,
8063 DOUBLE *RCOND,
8064 DOUBLE *WORK,
8065 INTEGER *IWORK,
8066 INTEGER *INFO)
8067 {
8068 DEBUG_LAPACK_STUB("dpocon");
8069 LAPACK_IMPL(dpocon)(UPLO,
8070 N,
8071 A,
8072 LDA,
8073 ANORM,
8074 RCOND,
8075 WORK,
8076 IWORK,
8077 INFO);
8078 }
8079 */
8080 //-- dpoequ --------------------------------------------------------------------
8081 void
8082 LAPACK_DECL(dpoequ)(const INTEGER *N,
8083 const DOUBLE *A,
8084 const INTEGER *LDA,
8085 DOUBLE *S,
8086 DOUBLE *SCOND,
8087 DOUBLE *AMAX,
8088 INTEGER *INFO)
8089 {
8090 DEBUG_LAPACK_STUB("dpoequ");
8091 LAPACK_IMPL(dpoequ)(N,
8092 A,
8093 LDA,
8094 S,
8095 SCOND,
8096 AMAX,
8097 INFO);
8098 }
8099
8100 //-- dpoequb -------------------------------------------------------------------
8101 void
8102 LAPACK_DECL(dpoequb)(const INTEGER *N,
8103 const DOUBLE *A,
8104 const INTEGER *LDA,
8105 DOUBLE *S,
8106 DOUBLE *SCOND,
8107 DOUBLE *AMAX,
8108 INTEGER *INFO)
8109 {
8110 DEBUG_LAPACK_STUB("dpoequb");
8111 LAPACK_IMPL(dpoequb)(N,
8112 A,
8113 LDA,
8114 S,
8115 SCOND,
8116 AMAX,
8117 INFO);
8118 }
8119
8120 //-- dporfs --------------------------------------------------------------------
8121 void
8122 LAPACK_DECL(dporfs)(const char *UPLO,
8123 const INTEGER *N,
8124 const INTEGER *NRHS,
8125 const DOUBLE *A,
8126 const INTEGER *LDA,
8127 const DOUBLE *AF,
8128 const INTEGER *LDAF,
8129 const DOUBLE *B,
8130 const INTEGER *LDB,
8131 DOUBLE *X,
8132 const INTEGER *LDX,
8133 DOUBLE *FERR,
8134 DOUBLE *BERR,
8135 DOUBLE *WORK,
8136 INTEGER *IWORK,
8137 INTEGER *INFO)
8138 {
8139 DEBUG_LAPACK_STUB("dporfs");
8140 LAPACK_IMPL(dporfs)(UPLO,
8141 N,
8142 NRHS,
8143 A,
8144 LDA,
8145 AF,
8146 LDAF,
8147 B,
8148 LDB,
8149 X,
8150 LDX,
8151 FERR,
8152 BERR,
8153 WORK,
8154 IWORK,
8155 INFO);
8156 }
8157
8158 //-- dposv ---------------------------------------------------------------------
8159 /*
8160 void
8161 LAPACK_DECL(dposv)(const char *UPLO,
8162 const INTEGER *N,
8163 const INTEGER *NRHS,
8164 DOUBLE *A,
8165 const INTEGER *LDA,
8166 DOUBLE *B,
8167 const INTEGER *LDB,
8168 INTEGER *INFO)
8169 {
8170 DEBUG_LAPACK_STUB("dposv");
8171 LAPACK_IMPL(dposv)(UPLO,
8172 N,
8173 NRHS,
8174 A,
8175 LDA,
8176 B,
8177 LDB,
8178 INFO);
8179 }
8180 */
8181 //-- dposvx --------------------------------------------------------------------
8182 void
8183 LAPACK_DECL(dposvx)(const char *FACT,
8184 const char *UPLO,
8185 const INTEGER *N,
8186 const INTEGER *NRHS,
8187 DOUBLE *A,
8188 const INTEGER *LDA,
8189 DOUBLE *AF,
8190 const INTEGER *LDAF,
8191 char *EQUED,
8192 DOUBLE *S,
8193 DOUBLE *B,
8194 const INTEGER *LDB,
8195 DOUBLE *X,
8196 const INTEGER *LDX,
8197 DOUBLE *RCOND,
8198 DOUBLE *FERR,
8199 DOUBLE *BERR,
8200 DOUBLE *WORK,
8201 INTEGER *IWORK,
8202 INTEGER *INFO)
8203 {
8204 DEBUG_LAPACK_STUB("dposvx");
8205 LAPACK_IMPL(dposvx)(FACT,
8206 UPLO,
8207 N,
8208 NRHS,
8209 A,
8210 LDA,
8211 AF,
8212 LDAF,
8213 EQUED,
8214 S,
8215 B,
8216 LDB,
8217 X,
8218 LDX,
8219 RCOND,
8220 FERR,
8221 BERR,
8222 WORK,
8223 IWORK,
8224 INFO);
8225 }
8226
8227 //-- dpotf2 --------------------------------------------------------------------
8228 void
8229 LAPACK_DECL(dpotf2)(const char *UPLO,
8230 const INTEGER *N,
8231 DOUBLE *A,
8232 const INTEGER *LDA,
8233 INTEGER *INFO)
8234 {
8235 DEBUG_LAPACK_STUB("dpotf2");
8236 LAPACK_IMPL(dpotf2)(UPLO,
8237 N,
8238 A,
8239 LDA,
8240 INFO);
8241 }
8242
8243 //-- dpotrf --------------------------------------------------------------------
8244 /*
8245 void
8246 LAPACK_DECL(dpotrf)(const char *UPLO,
8247 const INTEGER *N,
8248 DOUBLE *A,
8249 const INTEGER *LDA,
8250 INTEGER *INFO)
8251 {
8252 DEBUG_LAPACK_STUB("dpotrf");
8253 LAPACK_IMPL(dpotrf)(UPLO,
8254 N,
8255 A,
8256 LDA,
8257 INFO);
8258 }
8259 */
8260 //-- dpotri --------------------------------------------------------------------
8261 /*
8262 void
8263 LAPACK_DECL(dpotri)(const char *UPLO,
8264 const INTEGER *N,
8265 DOUBLE *A,
8266 const INTEGER *LDA,
8267 INTEGER *INFO)
8268 {
8269 DEBUG_LAPACK_STUB("dpotri");
8270 LAPACK_IMPL(dpotri)(UPLO,
8271 N,
8272 A,
8273 LDA,
8274 INFO);
8275 }
8276 */
8277 //-- dpotrs --------------------------------------------------------------------
8278 /*
8279 void
8280 LAPACK_DECL(dpotrs)(const char *UPLO,
8281 const INTEGER *N,
8282 const INTEGER *NRHS,
8283 const DOUBLE *A,
8284 const INTEGER *LDA,
8285 DOUBLE *B,
8286 const INTEGER *LDB,
8287 INTEGER *INFO)
8288 {
8289 DEBUG_LAPACK_STUB("dpotrs");
8290 LAPACK_IMPL(dpotrs)(UPLO,
8291 N,
8292 NRHS,
8293 A,
8294 LDA,
8295 B,
8296 LDB,
8297 INFO);
8298 }
8299 */
8300 //-- dppcon --------------------------------------------------------------------
8301 void
8302 LAPACK_DECL(dppcon)(const char *UPLO,
8303 const INTEGER *N,
8304 const DOUBLE *AP,
8305 const DOUBLE *ANORM,
8306 DOUBLE *RCOND,
8307 DOUBLE *WORK,
8308 INTEGER *IWORK,
8309 INTEGER *INFO)
8310 {
8311 DEBUG_LAPACK_STUB("dppcon");
8312 LAPACK_IMPL(dppcon)(UPLO,
8313 N,
8314 AP,
8315 ANORM,
8316 RCOND,
8317 WORK,
8318 IWORK,
8319 INFO);
8320 }
8321
8322 //-- dppequ --------------------------------------------------------------------
8323 void
8324 LAPACK_DECL(dppequ)(const char *UPLO,
8325 const INTEGER *N,
8326 const DOUBLE *AP,
8327 DOUBLE *S,
8328 DOUBLE *SCOND,
8329 DOUBLE *AMAX,
8330 INTEGER *INFO)
8331 {
8332 DEBUG_LAPACK_STUB("dppequ");
8333 LAPACK_IMPL(dppequ)(UPLO,
8334 N,
8335 AP,
8336 S,
8337 SCOND,
8338 AMAX,
8339 INFO);
8340 }
8341
8342 //-- dpprfs --------------------------------------------------------------------
8343 void
8344 LAPACK_DECL(dpprfs)(const char *UPLO,
8345 const INTEGER *N,
8346 const INTEGER *NRHS,
8347 const DOUBLE *AP,
8348 const DOUBLE *AFP,
8349 const DOUBLE *B,
8350 const INTEGER *LDB,
8351 DOUBLE *X,
8352 const INTEGER *LDX,
8353 DOUBLE *FERR,
8354 DOUBLE *BERR,
8355 DOUBLE *WORK,
8356 INTEGER *IWORK,
8357 INTEGER *INFO)
8358 {
8359 DEBUG_LAPACK_STUB("dpprfs");
8360 LAPACK_IMPL(dpprfs)(UPLO,
8361 N,
8362 NRHS,
8363 AP,
8364 AFP,
8365 B,
8366 LDB,
8367 X,
8368 LDX,
8369 FERR,
8370 BERR,
8371 WORK,
8372 IWORK,
8373 INFO);
8374 }
8375
8376 //-- dppsv ---------------------------------------------------------------------
8377 void
8378 LAPACK_DECL(dppsv)(const char *UPLO,
8379 const INTEGER *N,
8380 const INTEGER *NRHS,
8381 DOUBLE *AP,
8382 DOUBLE *B,
8383 const INTEGER *LDB,
8384 INTEGER *INFO)
8385 {
8386 DEBUG_LAPACK_STUB("dppsv");
8387 LAPACK_IMPL(dppsv)(UPLO,
8388 N,
8389 NRHS,
8390 AP,
8391 B,
8392 LDB,
8393 INFO);
8394 }
8395
8396 //-- dppsvx --------------------------------------------------------------------
8397 void
8398 LAPACK_DECL(dppsvx)(const char *FACT,
8399 const char *UPLO,
8400 const INTEGER *N,
8401 const INTEGER *NRHS,
8402 DOUBLE *AP,
8403 DOUBLE *AFP,
8404 char *EQUED,
8405 DOUBLE *S,
8406 DOUBLE *B,
8407 const INTEGER *LDB,
8408 DOUBLE *X,
8409 const INTEGER *LDX,
8410 DOUBLE *RCOND,
8411 DOUBLE *FERR,
8412 DOUBLE *BERR,
8413 DOUBLE *WORK,
8414 INTEGER *IWORK,
8415 INTEGER *INFO)
8416 {
8417 DEBUG_LAPACK_STUB("dppsvx");
8418 LAPACK_IMPL(dppsvx)(FACT,
8419 UPLO,
8420 N,
8421 NRHS,
8422 AP,
8423 AFP,
8424 EQUED,
8425 S,
8426 B,
8427 LDB,
8428 X,
8429 LDX,
8430 RCOND,
8431 FERR,
8432 BERR,
8433 WORK,
8434 IWORK,
8435 INFO);
8436 }
8437
8438 //-- dpptrf --------------------------------------------------------------------
8439 void
8440 LAPACK_DECL(dpptrf)(const char *UPLO,
8441 const INTEGER *N,
8442 DOUBLE *AP,
8443 INTEGER *INFO)
8444 {
8445 DEBUG_LAPACK_STUB("dpptrf");
8446 LAPACK_IMPL(dpptrf)(UPLO,
8447 N,
8448 AP,
8449 INFO);
8450 }
8451
8452 //-- dpptri --------------------------------------------------------------------
8453 void
8454 LAPACK_DECL(dpptri)(const char *UPLO,
8455 const INTEGER *N,
8456 DOUBLE *AP,
8457 INTEGER *INFO)
8458 {
8459 DEBUG_LAPACK_STUB("dpptri");
8460 LAPACK_IMPL(dpptri)(UPLO,
8461 N,
8462 AP,
8463 INFO);
8464 }
8465
8466 //-- dpptrs --------------------------------------------------------------------
8467 void
8468 LAPACK_DECL(dpptrs)(const char *UPLO,
8469 const INTEGER *N,
8470 const INTEGER *NRHS,
8471 const DOUBLE *AP,
8472 DOUBLE *B,
8473 const INTEGER *LDB,
8474 INTEGER *INFO)
8475 {
8476 DEBUG_LAPACK_STUB("dpptrs");
8477 LAPACK_IMPL(dpptrs)(UPLO,
8478 N,
8479 NRHS,
8480 AP,
8481 B,
8482 LDB,
8483 INFO);
8484 }
8485
8486 //-- dpstf2 --------------------------------------------------------------------
8487 void
8488 LAPACK_DECL(dpstf2)(const char *UPLO,
8489 const INTEGER *N,
8490 DOUBLE *A,
8491 const INTEGER *LDA,
8492 INTEGER *PIV,
8493 INTEGER *RANK,
8494 const DOUBLE *TOL,
8495 DOUBLE *WORK,
8496 INTEGER *INFO)
8497 {
8498 DEBUG_LAPACK_STUB("dpstf2");
8499 LAPACK_IMPL(dpstf2)(UPLO,
8500 N,
8501 A,
8502 LDA,
8503 PIV,
8504 RANK,
8505 TOL,
8506 WORK,
8507 INFO);
8508 }
8509
8510 //-- dpstrf --------------------------------------------------------------------
8511 void
8512 LAPACK_DECL(dpstrf)(const char *UPLO,
8513 const INTEGER *N,
8514 DOUBLE *A,
8515 const INTEGER *LDA,
8516 INTEGER *PIV,
8517 INTEGER *RANK,
8518 const DOUBLE *TOL,
8519 DOUBLE *WORK,
8520 INTEGER *INFO)
8521 {
8522 DEBUG_LAPACK_STUB("dpstrf");
8523 LAPACK_IMPL(dpstrf)(UPLO,
8524 N,
8525 A,
8526 LDA,
8527 PIV,
8528 RANK,
8529 TOL,
8530 WORK,
8531 INFO);
8532 }
8533
8534 //-- dptcon --------------------------------------------------------------------
8535 void
8536 LAPACK_DECL(dptcon)(const INTEGER *N,
8537 const DOUBLE *D,
8538 const DOUBLE *E,
8539 const DOUBLE *ANORM,
8540 DOUBLE *RCOND,
8541 DOUBLE *WORK,
8542 INTEGER *INFO)
8543 {
8544 DEBUG_LAPACK_STUB("dptcon");
8545 LAPACK_IMPL(dptcon)(N,
8546 D,
8547 E,
8548 ANORM,
8549 RCOND,
8550 WORK,
8551 INFO);
8552 }
8553
8554 //-- dpteqr --------------------------------------------------------------------
8555 void
8556 LAPACK_DECL(dpteqr)(const char *COMPZ,
8557 const INTEGER *N,
8558 DOUBLE *D,
8559 DOUBLE *E,
8560 DOUBLE *Z,
8561 const INTEGER *LDZ,
8562 DOUBLE *WORK,
8563 INTEGER *INFO)
8564 {
8565 DEBUG_LAPACK_STUB("dpteqr");
8566 LAPACK_IMPL(dpteqr)(COMPZ,
8567 N,
8568 D,
8569 E,
8570 Z,
8571 LDZ,
8572 WORK,
8573 INFO);
8574 }
8575
8576 //-- dptrfs --------------------------------------------------------------------
8577 void
8578 LAPACK_DECL(dptrfs)(const INTEGER *N,
8579 const INTEGER *NRHS,
8580 const DOUBLE *D,
8581 const DOUBLE *E,
8582 const DOUBLE *DF,
8583 const DOUBLE *EF,
8584 const DOUBLE *B,
8585 const INTEGER *LDB,
8586 DOUBLE *X,
8587 const INTEGER *LDX,
8588 DOUBLE *FERR,
8589 DOUBLE *BERR,
8590 DOUBLE *WORK,
8591 INTEGER *INFO)
8592 {
8593 DEBUG_LAPACK_STUB("dptrfs");
8594 LAPACK_IMPL(dptrfs)(N,
8595 NRHS,
8596 D,
8597 E,
8598 DF,
8599 EF,
8600 B,
8601 LDB,
8602 X,
8603 LDX,
8604 FERR,
8605 BERR,
8606 WORK,
8607 INFO);
8608 }
8609
8610 //-- dptsv ---------------------------------------------------------------------
8611 void
8612 LAPACK_DECL(dptsv)(const INTEGER *N,
8613 const INTEGER *NRHS,
8614 DOUBLE *D,
8615 DOUBLE *E,
8616 DOUBLE *B,
8617 const INTEGER *LDB,
8618 INTEGER *INFO)
8619 {
8620 DEBUG_LAPACK_STUB("dptsv");
8621 LAPACK_IMPL(dptsv)(N,
8622 NRHS,
8623 D,
8624 E,
8625 B,
8626 LDB,
8627 INFO);
8628 }
8629
8630 //-- dptsvx --------------------------------------------------------------------
8631 void
8632 LAPACK_DECL(dptsvx)(const char *FACT,
8633 const INTEGER *N,
8634 const INTEGER *NRHS,
8635 const DOUBLE *D,
8636 const DOUBLE *E,
8637 DOUBLE *DF,
8638 DOUBLE *EF,
8639 const DOUBLE *B,
8640 const INTEGER *LDB,
8641 DOUBLE *X,
8642 const INTEGER *LDX,
8643 DOUBLE *RCOND,
8644 DOUBLE *FERR,
8645 DOUBLE *BERR,
8646 DOUBLE *WORK,
8647 INTEGER *INFO)
8648 {
8649 DEBUG_LAPACK_STUB("dptsvx");
8650 LAPACK_IMPL(dptsvx)(FACT,
8651 N,
8652 NRHS,
8653 D,
8654 E,
8655 DF,
8656 EF,
8657 B,
8658 LDB,
8659 X,
8660 LDX,
8661 RCOND,
8662 FERR,
8663 BERR,
8664 WORK,
8665 INFO);
8666 }
8667
8668 //-- dpttrf --------------------------------------------------------------------
8669 void
8670 LAPACK_DECL(dpttrf)(const INTEGER *N,
8671 DOUBLE *D,
8672 DOUBLE *E,
8673 INTEGER *INFO)
8674 {
8675 DEBUG_LAPACK_STUB("dpttrf");
8676 LAPACK_IMPL(dpttrf)(N,
8677 D,
8678 E,
8679 INFO);
8680 }
8681
8682 //-- dpttrs --------------------------------------------------------------------
8683 void
8684 LAPACK_DECL(dpttrs)(const INTEGER *N,
8685 const INTEGER *NRHS,
8686 const DOUBLE *D,
8687 const DOUBLE *E,
8688 DOUBLE *B,
8689 const INTEGER *LDB,
8690 INTEGER *INFO)
8691 {
8692 DEBUG_LAPACK_STUB("dpttrs");
8693 LAPACK_IMPL(dpttrs)(N,
8694 NRHS,
8695 D,
8696 E,
8697 B,
8698 LDB,
8699 INFO);
8700 }
8701
8702 //-- dptts2 --------------------------------------------------------------------
8703 void
8704 LAPACK_DECL(dptts2)(const INTEGER *N,
8705 const INTEGER *NRHS,
8706 const DOUBLE *D,
8707 const DOUBLE *E,
8708 DOUBLE *B,
8709 const INTEGER *LDB)
8710 {
8711 DEBUG_LAPACK_STUB("dptts2");
8712 LAPACK_IMPL(dptts2)(N,
8713 NRHS,
8714 D,
8715 E,
8716 B,
8717 LDB);
8718 }
8719
8720 //-- drscl ---------------------------------------------------------------------
8721 void
8722 LAPACK_DECL(drscl)(const INTEGER *N,
8723 const DOUBLE *SA,
8724 DOUBLE *SX,
8725 const INTEGER *INCX)
8726 {
8727 DEBUG_LAPACK_STUB("drscl");
8728 LAPACK_IMPL(drscl)(N,
8729 SA,
8730 SX,
8731 INCX);
8732 }
8733
8734 //-- dsbev ---------------------------------------------------------------------
8735 void
8736 LAPACK_DECL(dsbev)(const char *JOBZ,
8737 const char *UPLO,
8738 const INTEGER *N,
8739 const INTEGER *KD,
8740 DOUBLE *AB,
8741 const INTEGER *LDAB,
8742 DOUBLE *W,
8743 DOUBLE *Z,
8744 const INTEGER *LDZ,
8745 DOUBLE *WORK,
8746 INTEGER *INFO)
8747 {
8748 DEBUG_LAPACK_STUB("dsbev");
8749 LAPACK_IMPL(dsbev)(JOBZ,
8750 UPLO,
8751 N,
8752 KD,
8753 AB,
8754 LDAB,
8755 W,
8756 Z,
8757 LDZ,
8758 WORK,
8759 INFO);
8760 }
8761
8762 //-- dsbevd --------------------------------------------------------------------
8763 void
8764 LAPACK_DECL(dsbevd)(const char *JOBZ,
8765 const char *UPLO,
8766 const INTEGER *N,
8767 const INTEGER *KD,
8768 DOUBLE *AB,
8769 const INTEGER *LDAB,
8770 DOUBLE *W,
8771 DOUBLE *Z,
8772 const INTEGER *LDZ,
8773 DOUBLE *WORK,
8774 const INTEGER *LWORK,
8775 INTEGER *IWORK,
8776 const INTEGER *LIWORK,
8777 INTEGER *INFO)
8778 {
8779 DEBUG_LAPACK_STUB("dsbevd");
8780 LAPACK_IMPL(dsbevd)(JOBZ,
8781 UPLO,
8782 N,
8783 KD,
8784 AB,
8785 LDAB,
8786 W,
8787 Z,
8788 LDZ,
8789 WORK,
8790 LWORK,
8791 IWORK,
8792 LIWORK,
8793 INFO);
8794 }
8795
8796 //-- dsbevx --------------------------------------------------------------------
8797 void
8798 LAPACK_DECL(dsbevx)(const char *JOBZ,
8799 const char *RANGE,
8800 const char *UPLO,
8801 const INTEGER *N,
8802 const INTEGER *KD,
8803 DOUBLE *AB,
8804 const INTEGER *LDAB,
8805 DOUBLE *Q,
8806 const INTEGER *LDQ,
8807 const DOUBLE *VL,
8808 const DOUBLE *VU,
8809 const INTEGER *IL,
8810 const INTEGER *IU,
8811 const DOUBLE *ABSTOL,
8812 INTEGER *M,
8813 DOUBLE *W,
8814 DOUBLE *Z,
8815 const INTEGER *LDZ,
8816 DOUBLE *WORK,
8817 INTEGER *IWORK,
8818 INTEGER *IFAIL,
8819 INTEGER *INFO)
8820 {
8821 DEBUG_LAPACK_STUB("dsbevx");
8822 LAPACK_IMPL(dsbevx)(JOBZ,
8823 RANGE,
8824 UPLO,
8825 N,
8826 KD,
8827 AB,
8828 LDAB,
8829 Q,
8830 LDQ,
8831 VL,
8832 VU,
8833 IL,
8834 IU,
8835 ABSTOL,
8836 M,
8837 W,
8838 Z,
8839 LDZ,
8840 WORK,
8841 IWORK,
8842 IFAIL,
8843 INFO);
8844 }
8845
8846 //-- dsbgst --------------------------------------------------------------------
8847 void
8848 LAPACK_DECL(dsbgst)(const char *VECT,
8849 const char *UPLO,
8850 const INTEGER *N,
8851 const INTEGER *KA,
8852 const INTEGER *KB,
8853 DOUBLE *AB,
8854 const INTEGER *LDAB,
8855 const DOUBLE *BB,
8856 const INTEGER *LDBB,
8857 DOUBLE *X,
8858 const INTEGER *LDX,
8859 DOUBLE *WORK,
8860 INTEGER *INFO)
8861 {
8862 DEBUG_LAPACK_STUB("dsbgst");
8863 LAPACK_IMPL(dsbgst)(VECT,
8864 UPLO,
8865 N,
8866 KA,
8867 KB,
8868 AB,
8869 LDAB,
8870 BB,
8871 LDBB,
8872 X,
8873 LDX,
8874 WORK,
8875 INFO);
8876 }
8877
8878 //-- dsbgv ---------------------------------------------------------------------
8879 void
8880 LAPACK_DECL(dsbgv)(const char *JOBZ,
8881 const char *UPLO,
8882 const INTEGER *N,
8883 const INTEGER *KA,
8884 const INTEGER *KB,
8885 DOUBLE *AB,
8886 const INTEGER *LDAB,
8887 DOUBLE *BB,
8888 const INTEGER *LDBB,
8889 DOUBLE *W,
8890 DOUBLE *Z,
8891 const INTEGER *LDZ,
8892 DOUBLE *WORK,
8893 INTEGER *INFO)
8894 {
8895 DEBUG_LAPACK_STUB("dsbgv");
8896 LAPACK_IMPL(dsbgv)(JOBZ,
8897 UPLO,
8898 N,
8899 KA,
8900 KB,
8901 AB,
8902 LDAB,
8903 BB,
8904 LDBB,
8905 W,
8906 Z,
8907 LDZ,
8908 WORK,
8909 INFO);
8910 }
8911
8912 //-- dsbgvd --------------------------------------------------------------------
8913 void
8914 LAPACK_DECL(dsbgvd)(const char *JOBZ,
8915 const char *UPLO,
8916 const INTEGER *N,
8917 const INTEGER *KA,
8918 const INTEGER *KB,
8919 DOUBLE *AB,
8920 const INTEGER *LDAB,
8921 DOUBLE *BB,
8922 const INTEGER *LDBB,
8923 DOUBLE *W,
8924 DOUBLE *Z,
8925 const INTEGER *LDZ,
8926 DOUBLE *WORK,
8927 const INTEGER *LWORK,
8928 INTEGER *IWORK,
8929 const INTEGER *LIWORK,
8930 INTEGER *INFO)
8931 {
8932 DEBUG_LAPACK_STUB("dsbgvd");
8933 LAPACK_IMPL(dsbgvd)(JOBZ,
8934 UPLO,
8935 N,
8936 KA,
8937 KB,
8938 AB,
8939 LDAB,
8940 BB,
8941 LDBB,
8942 W,
8943 Z,
8944 LDZ,
8945 WORK,
8946 LWORK,
8947 IWORK,
8948 LIWORK,
8949 INFO);
8950 }
8951
8952 //-- dsbgvx --------------------------------------------------------------------
8953 void
8954 LAPACK_DECL(dsbgvx)(const char *JOBZ,
8955 const char *RANGE,
8956 const char *UPLO,
8957 const INTEGER *N,
8958 const INTEGER *KA,
8959 const INTEGER *KB,
8960 DOUBLE *AB,
8961 const INTEGER *LDAB,
8962 DOUBLE *BB,
8963 const INTEGER *LDBB,
8964 DOUBLE *Q,
8965 const INTEGER *LDQ,
8966 const DOUBLE *VL,
8967 const DOUBLE *VU,
8968 const INTEGER *IL,
8969 const INTEGER *IU,
8970 const DOUBLE *ABSTOL,
8971 INTEGER *M,
8972 DOUBLE *W,
8973 DOUBLE *Z,
8974 const INTEGER *LDZ,
8975 DOUBLE *WORK,
8976 INTEGER *IWORK,
8977 INTEGER *IFAIL,
8978 INTEGER *INFO)
8979 {
8980 DEBUG_LAPACK_STUB("dsbgvx");
8981 LAPACK_IMPL(dsbgvx)(JOBZ,
8982 RANGE,
8983 UPLO,
8984 N,
8985 KA,
8986 KB,
8987 AB,
8988 LDAB,
8989 BB,
8990 LDBB,
8991 Q,
8992 LDQ,
8993 VL,
8994 VU,
8995 IL,
8996 IU,
8997 ABSTOL,
8998 M,
8999 W,
9000 Z,
9001 LDZ,
9002 WORK,
9003 IWORK,
9004 IFAIL,
9005 INFO);
9006 }
9007
9008 //-- dsbtrd --------------------------------------------------------------------
9009 void
9010 LAPACK_DECL(dsbtrd)(const char *VECT,
9011 const char *UPLO,
9012 const INTEGER *N,
9013 const INTEGER *KD,
9014 DOUBLE *AB,
9015 const INTEGER *LDAB,
9016 DOUBLE *D,
9017 DOUBLE *E,
9018 DOUBLE *Q,
9019 const INTEGER *LDQ,
9020 DOUBLE *WORK,
9021 INTEGER *INFO)
9022 {
9023 DEBUG_LAPACK_STUB("dsbtrd");
9024 LAPACK_IMPL(dsbtrd)(VECT,
9025 UPLO,
9026 N,
9027 KD,
9028 AB,
9029 LDAB,
9030 D,
9031 E,
9032 Q,
9033 LDQ,
9034 WORK,
9035 INFO);
9036 }
9037
9038 //-- dsecnd --------------------------------------------------------------------
9039 DOUBLE
9040 LAPACK_DECL(dsecnd)()
9041 {
9042 DEBUG_LAPACK_STUB("dsecnd");
9043 return LAPACK_IMPL(dsecnd)();
9044 }
9045
9046 //-- dsfrk ---------------------------------------------------------------------
9047 void
9048 LAPACK_DECL(dsfrk)(const char *TRANSR,
9049 const char *UPLO,
9050 const char *TRANS,
9051 const INTEGER *N,
9052 const INTEGER *K,
9053 const DOUBLE *ALPHA,
9054 const DOUBLE *A,
9055 const INTEGER *LDA,
9056 const DOUBLE *BETA,
9057 DOUBLE *C)
9058 {
9059 DEBUG_LAPACK_STUB("dsfrk");
9060 LAPACK_IMPL(dsfrk)(TRANSR,
9061 UPLO,
9062 TRANS,
9063 N,
9064 K,
9065 ALPHA,
9066 A,
9067 LDA,
9068 BETA,
9069 C);
9070 }
9071
9072 //-- dsgesv --------------------------------------------------------------------
9073 void
9074 LAPACK_DECL(dsgesv)(const INTEGER *N,
9075 const INTEGER *NRHS,
9076 DOUBLE *A,
9077 const INTEGER *LDA,
9078 INTEGER *IPIV,
9079 const DOUBLE *B,
9080 const INTEGER *LDB,
9081 DOUBLE *X,
9082 const INTEGER *LDX,
9083 DOUBLE *WORK,
9084 FLOAT *SWORK,
9085 INTEGER *ITER,
9086 INTEGER *INFO)
9087 {
9088 DEBUG_LAPACK_STUB("dsgesv");
9089 LAPACK_IMPL(dsgesv)(N,
9090 NRHS,
9091 A,
9092 LDA,
9093 IPIV,
9094 B,
9095 LDB,
9096 X,
9097 LDX,
9098 WORK,
9099 SWORK,
9100 ITER,
9101 INFO);
9102 }
9103
9104 //-- dspcon --------------------------------------------------------------------
9105 void
9106 LAPACK_DECL(dspcon)(const char *UPLO,
9107 const INTEGER *N,
9108 const DOUBLE *AP,
9109 const INTEGER *IPIV,
9110 const DOUBLE *ANORM,
9111 DOUBLE *RCOND,
9112 DOUBLE *WORK,
9113 INTEGER *IWORK,
9114 INTEGER *INFO)
9115 {
9116 DEBUG_LAPACK_STUB("dspcon");
9117 LAPACK_IMPL(dspcon)(UPLO,
9118 N,
9119 AP,
9120 IPIV,
9121 ANORM,
9122 RCOND,
9123 WORK,
9124 IWORK,
9125 INFO);
9126 }
9127
9128 //-- dspev ---------------------------------------------------------------------
9129 void
9130 LAPACK_DECL(dspev)(const char *JOBZ,
9131 const char *UPLO,
9132 const INTEGER *N,
9133 DOUBLE *AP,
9134 DOUBLE *W,
9135 DOUBLE *Z,
9136 const INTEGER *LDZ,
9137 DOUBLE *WORK,
9138 INTEGER *INFO)
9139 {
9140 DEBUG_LAPACK_STUB("dspev");
9141 LAPACK_IMPL(dspev)(JOBZ,
9142 UPLO,
9143 N,
9144 AP,
9145 W,
9146 Z,
9147 LDZ,
9148 WORK,
9149 INFO);
9150 }
9151
9152 //-- dspevd --------------------------------------------------------------------
9153 void
9154 LAPACK_DECL(dspevd)(const char *JOBZ,
9155 const char *UPLO,
9156 const INTEGER *N,
9157 DOUBLE *AP,
9158 DOUBLE *W,
9159 DOUBLE *Z,
9160 const INTEGER *LDZ,
9161 DOUBLE *WORK,
9162 const INTEGER *LWORK,
9163 INTEGER *IWORK,
9164 const INTEGER *LIWORK,
9165 INTEGER *INFO)
9166 {
9167 DEBUG_LAPACK_STUB("dspevd");
9168 LAPACK_IMPL(dspevd)(JOBZ,
9169 UPLO,
9170 N,
9171 AP,
9172 W,
9173 Z,
9174 LDZ,
9175 WORK,
9176 LWORK,
9177 IWORK,
9178 LIWORK,
9179 INFO);
9180 }
9181
9182 //-- dspevx --------------------------------------------------------------------
9183 void
9184 LAPACK_DECL(dspevx)(const char *JOBZ,
9185 const char *RANGE,
9186 const char *UPLO,
9187 const INTEGER *N,
9188 DOUBLE *AP,
9189 const DOUBLE *VL,
9190 const DOUBLE *VU,
9191 const INTEGER *IL,
9192 const INTEGER *IU,
9193 const DOUBLE *ABSTOL,
9194 INTEGER *M,
9195 DOUBLE *W,
9196 DOUBLE *Z,
9197 const INTEGER *LDZ,
9198 DOUBLE *WORK,
9199 INTEGER *IWORK,
9200 INTEGER *IFAIL,
9201 INTEGER *INFO)
9202 {
9203 DEBUG_LAPACK_STUB("dspevx");
9204 LAPACK_IMPL(dspevx)(JOBZ,
9205 RANGE,
9206 UPLO,
9207 N,
9208 AP,
9209 VL,
9210 VU,
9211 IL,
9212 IU,
9213 ABSTOL,
9214 M,
9215 W,
9216 Z,
9217 LDZ,
9218 WORK,
9219 IWORK,
9220 IFAIL,
9221 INFO);
9222 }
9223
9224 //-- dspgst --------------------------------------------------------------------
9225 void
9226 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
9227 const char *UPLO,
9228 const INTEGER *N,
9229 DOUBLE *AP,
9230 const DOUBLE *BP,
9231 INTEGER *INFO)
9232 {
9233 DEBUG_LAPACK_STUB("dspgst");
9234 LAPACK_IMPL(dspgst)(ITYPE,
9235 UPLO,
9236 N,
9237 AP,
9238 BP,
9239 INFO);
9240 }
9241
9242 //-- dspgv ---------------------------------------------------------------------
9243 void
9244 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
9245 const char *JOBZ,
9246 const char *UPLO,
9247 const INTEGER *N,
9248 DOUBLE *AP,
9249 DOUBLE *BP,
9250 DOUBLE *W,
9251 DOUBLE *Z,
9252 const INTEGER *LDZ,
9253 DOUBLE *WORK,
9254 INTEGER *INFO)
9255 {
9256 DEBUG_LAPACK_STUB("dspgv");
9257 LAPACK_IMPL(dspgv)(ITYPE,
9258 JOBZ,
9259 UPLO,
9260 N,
9261 AP,
9262 BP,
9263 W,
9264 Z,
9265 LDZ,
9266 WORK,
9267 INFO);
9268 }
9269
9270 //-- dspgvd --------------------------------------------------------------------
9271 void
9272 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
9273 const char *JOBZ,
9274 const char *UPLO,
9275 const INTEGER *N,
9276 DOUBLE *AP,
9277 DOUBLE *BP,
9278 DOUBLE *W,
9279 DOUBLE *Z,
9280 const INTEGER *LDZ,
9281 DOUBLE *WORK,
9282 const INTEGER *LWORK,
9283 INTEGER *IWORK,
9284 const INTEGER *LIWORK,
9285 INTEGER *INFO)
9286 {
9287 DEBUG_LAPACK_STUB("dspgvd");
9288 LAPACK_IMPL(dspgvd)(ITYPE,
9289 JOBZ,
9290 UPLO,
9291 N,
9292 AP,
9293 BP,
9294 W,
9295 Z,
9296 LDZ,
9297 WORK,
9298 LWORK,
9299 IWORK,
9300 LIWORK,
9301 INFO);
9302 }
9303
9304 //-- dspgvx --------------------------------------------------------------------
9305 void
9306 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
9307 const char *JOBZ,
9308 const char *RANGE,
9309 const char *UPLO,
9310 const INTEGER *N,
9311 DOUBLE *AP,
9312 DOUBLE *BP,
9313 const DOUBLE *VL,
9314 const DOUBLE *VU,
9315 const INTEGER *IL,
9316 const INTEGER *IU,
9317 const DOUBLE *ABSTOL,
9318 INTEGER *M,
9319 DOUBLE *W,
9320 DOUBLE *Z,
9321 const INTEGER *LDZ,
9322 DOUBLE *WORK,
9323 INTEGER *IWORK,
9324 INTEGER *IFAIL,
9325 INTEGER *INFO)
9326 {
9327 DEBUG_LAPACK_STUB("dspgvx");
9328 LAPACK_IMPL(dspgvx)(ITYPE,
9329 JOBZ,
9330 RANGE,
9331 UPLO,
9332 N,
9333 AP,
9334 BP,
9335 VL,
9336 VU,
9337 IL,
9338 IU,
9339 ABSTOL,
9340 M,
9341 W,
9342 Z,
9343 LDZ,
9344 WORK,
9345 IWORK,
9346 IFAIL,
9347 INFO);
9348 }
9349
9350 //-- dsposv --------------------------------------------------------------------
9351 void
9352 LAPACK_DECL(dsposv)(const char *UPLO,
9353 const INTEGER *N,
9354 const INTEGER *NRHS,
9355 DOUBLE *A,
9356 const INTEGER *LDA,
9357 const DOUBLE *B,
9358 const INTEGER *LDB,
9359 DOUBLE *X,
9360 const INTEGER *LDX,
9361 DOUBLE *WORK,
9362 FLOAT *SWORK,
9363 INTEGER *ITER,
9364 INTEGER *INFO)
9365 {
9366 DEBUG_LAPACK_STUB("dsposv");
9367 LAPACK_IMPL(dsposv)(UPLO,
9368 N,
9369 NRHS,
9370 A,
9371 LDA,
9372 B,
9373 LDB,
9374 X,
9375 LDX,
9376 WORK,
9377 SWORK,
9378 ITER,
9379 INFO);
9380 }
9381
9382 //-- dsprfs --------------------------------------------------------------------
9383 void
9384 LAPACK_DECL(dsprfs)(const char *UPLO,
9385 const INTEGER *N,
9386 const INTEGER *NRHS,
9387 const DOUBLE *AP,
9388 const DOUBLE *AFP,
9389 const INTEGER *IPIV,
9390 const DOUBLE *B,
9391 const INTEGER *LDB,
9392 DOUBLE *X,
9393 const INTEGER *LDX,
9394 DOUBLE *FERR,
9395 DOUBLE *BERR,
9396 DOUBLE *WORK,
9397 INTEGER *IWORK,
9398 INTEGER *INFO)
9399 {
9400 DEBUG_LAPACK_STUB("dsprfs");
9401 LAPACK_IMPL(dsprfs)(UPLO,
9402 N,
9403 NRHS,
9404 AP,
9405 AFP,
9406 IPIV,
9407 B,
9408 LDB,
9409 X,
9410 LDX,
9411 FERR,
9412 BERR,
9413 WORK,
9414 IWORK,
9415 INFO);
9416 }
9417
9418 //-- dspsv ---------------------------------------------------------------------
9419 void
9420 LAPACK_DECL(dspsv)(const char *UPLO,
9421 const INTEGER *N,
9422 const INTEGER *NRHS,
9423 DOUBLE *AP,
9424 INTEGER *IPIV,
9425 DOUBLE *B,
9426 const INTEGER *LDB,
9427 INTEGER *INFO)
9428 {
9429 DEBUG_LAPACK_STUB("dspsv");
9430 LAPACK_IMPL(dspsv)(UPLO,
9431 N,
9432 NRHS,
9433 AP,
9434 IPIV,
9435 B,
9436 LDB,
9437 INFO);
9438 }
9439
9440 //-- dspsvx --------------------------------------------------------------------
9441 void
9442 LAPACK_DECL(dspsvx)(const char *FACT,
9443 const char *UPLO,
9444 const INTEGER *N,
9445 const INTEGER *NRHS,
9446 const DOUBLE *AP,
9447 DOUBLE *AFP,
9448 INTEGER *IPIV,
9449 const DOUBLE *B,
9450 const INTEGER *LDB,
9451 DOUBLE *X,
9452 const INTEGER *LDX,
9453 DOUBLE *RCOND,
9454 DOUBLE *FERR,
9455 DOUBLE *BERR,
9456 DOUBLE *WORK,
9457 INTEGER *IWORK,
9458 INTEGER *INFO)
9459 {
9460 DEBUG_LAPACK_STUB("dspsvx");
9461 LAPACK_IMPL(dspsvx)(FACT,
9462 UPLO,
9463 N,
9464 NRHS,
9465 AP,
9466 AFP,
9467 IPIV,
9468 B,
9469 LDB,
9470 X,
9471 LDX,
9472 RCOND,
9473 FERR,
9474 BERR,
9475 WORK,
9476 IWORK,
9477 INFO);
9478 }
9479
9480 //-- dsptrd --------------------------------------------------------------------
9481 void
9482 LAPACK_DECL(dsptrd)(const char *UPLO,
9483 const INTEGER *N,
9484 DOUBLE *AP,
9485 DOUBLE *D,
9486 DOUBLE *E,
9487 DOUBLE *TAU,
9488 INTEGER *INFO)
9489 {
9490 DEBUG_LAPACK_STUB("dsptrd");
9491 LAPACK_IMPL(dsptrd)(UPLO,
9492 N,
9493 AP,
9494 D,
9495 E,
9496 TAU,
9497 INFO);
9498 }
9499
9500 //-- dsptrf --------------------------------------------------------------------
9501 void
9502 LAPACK_DECL(dsptrf)(const char *UPLO,
9503 const INTEGER *N,
9504 DOUBLE *AP,
9505 INTEGER *IPIV,
9506 INTEGER *INFO)
9507 {
9508 DEBUG_LAPACK_STUB("dsptrf");
9509 LAPACK_IMPL(dsptrf)(UPLO,
9510 N,
9511 AP,
9512 IPIV,
9513 INFO);
9514 }
9515
9516 //-- dsptri --------------------------------------------------------------------
9517 void
9518 LAPACK_DECL(dsptri)(const char *UPLO,
9519 const INTEGER *N,
9520 DOUBLE *AP,
9521 const INTEGER *IPIV,
9522 DOUBLE *WORK,
9523 INTEGER *INFO)
9524 {
9525 DEBUG_LAPACK_STUB("dsptri");
9526 LAPACK_IMPL(dsptri)(UPLO,
9527 N,
9528 AP,
9529 IPIV,
9530 WORK,
9531 INFO);
9532 }
9533
9534 //-- dsptrs --------------------------------------------------------------------
9535 void
9536 LAPACK_DECL(dsptrs)(const char *UPLO,
9537 const INTEGER *N,
9538 const INTEGER *NRHS,
9539 const DOUBLE *AP,
9540 const INTEGER *IPIV,
9541 DOUBLE *B,
9542 const INTEGER *LDB,
9543 INTEGER *INFO)
9544 {
9545 DEBUG_LAPACK_STUB("dsptrs");
9546 LAPACK_IMPL(dsptrs)(UPLO,
9547 N,
9548 NRHS,
9549 AP,
9550 IPIV,
9551 B,
9552 LDB,
9553 INFO);
9554 }
9555
9556 //-- dstebz --------------------------------------------------------------------
9557 void
9558 LAPACK_DECL(dstebz)(const char *RANGE,
9559 const char *ORDER,
9560 const INTEGER *N,
9561 const DOUBLE *VL,
9562 const DOUBLE *VU,
9563 const INTEGER *IL,
9564 const INTEGER *IU,
9565 const DOUBLE *ABSTOL,
9566 const DOUBLE *D,
9567 const DOUBLE *E,
9568 INTEGER *M,
9569 INTEGER *NSPLIT,
9570 DOUBLE *W,
9571 INTEGER *IBLOCK,
9572 INTEGER *ISPLIT,
9573 DOUBLE *WORK,
9574 INTEGER *IWORK,
9575 INTEGER *INFO)
9576 {
9577 DEBUG_LAPACK_STUB("dstebz");
9578 LAPACK_IMPL(dstebz)(RANGE,
9579 ORDER,
9580 N,
9581 VL,
9582 VU,
9583 IL,
9584 IU,
9585 ABSTOL,
9586 D,
9587 E,
9588 M,
9589 NSPLIT,
9590 W,
9591 IBLOCK,
9592 ISPLIT,
9593 WORK,
9594 IWORK,
9595 INFO);
9596 }
9597
9598 //-- dstedc --------------------------------------------------------------------
9599 void
9600 LAPACK_DECL(dstedc)(const char *COMPZ,
9601 const INTEGER *N,
9602 DOUBLE *D,
9603 DOUBLE *E,
9604 DOUBLE *Z,
9605 const INTEGER *LDZ,
9606 DOUBLE *WORK,
9607 const INTEGER *LWORK,
9608 INTEGER *IWORK,
9609 const INTEGER *LIWORK,
9610 INTEGER *INFO)
9611 {
9612 DEBUG_LAPACK_STUB("dstedc");
9613 LAPACK_IMPL(dstedc)(COMPZ,
9614 N,
9615 D,
9616 E,
9617 Z,
9618 LDZ,
9619 WORK,
9620 LWORK,
9621 IWORK,
9622 LIWORK,
9623 INFO);
9624 }
9625
9626 //-- dstegr --------------------------------------------------------------------
9627 void
9628 LAPACK_DECL(dstegr)(const char *JOBZ,
9629 const char *RANGE,
9630 const INTEGER *N,
9631 DOUBLE *D,
9632 DOUBLE *E,
9633 const DOUBLE *VL,
9634 const DOUBLE *VU,
9635 const INTEGER *IL,
9636 const INTEGER *IU,
9637 const DOUBLE *ABSTOL,
9638 INTEGER *M,
9639 DOUBLE *W,
9640 DOUBLE *Z,
9641 const INTEGER *LDZ,
9642 INTEGER *ISUPPZ,
9643 DOUBLE *WORK,
9644 const INTEGER *LWORK,
9645 INTEGER *IWORK,
9646 const INTEGER *LIWORK,
9647 INTEGER *INFO)
9648 {
9649 DEBUG_LAPACK_STUB("dstegr");
9650 LAPACK_IMPL(dstegr)(JOBZ,
9651 RANGE,
9652 N,
9653 D,
9654 E,
9655 VL,
9656 VU,
9657 IL,
9658 IU,
9659 ABSTOL,
9660 M,
9661 W,
9662 Z,
9663 LDZ,
9664 ISUPPZ,
9665 WORK,
9666 LWORK,
9667 IWORK,
9668 LIWORK,
9669 INFO);
9670 }
9671
9672 //-- dstein --------------------------------------------------------------------
9673 void
9674 LAPACK_DECL(dstein)(const INTEGER *N,
9675 const DOUBLE *D,
9676 const DOUBLE *E,
9677 const INTEGER *M,
9678 const DOUBLE *W,
9679 const INTEGER *IBLOCK,
9680 const INTEGER *ISPLIT,
9681 DOUBLE *Z,
9682 const INTEGER *LDZ,
9683 DOUBLE *WORK,
9684 INTEGER *IWORK,
9685 INTEGER *IFAIL,
9686 INTEGER *INFO)
9687 {
9688 DEBUG_LAPACK_STUB("dstein");
9689 LAPACK_IMPL(dstein)(N,
9690 D,
9691 E,
9692 M,
9693 W,
9694 IBLOCK,
9695 ISPLIT,
9696 Z,
9697 LDZ,
9698 WORK,
9699 IWORK,
9700 IFAIL,
9701 INFO);
9702 }
9703
9704 //-- dstemr --------------------------------------------------------------------
9705 void
9706 LAPACK_DECL(dstemr)(const char *JOBZ,
9707 const char *RANGE,
9708 const INTEGER *N,
9709 DOUBLE *D,
9710 DOUBLE *E,
9711 const DOUBLE *VL,
9712 const DOUBLE *VU,
9713 const INTEGER *IL,
9714 const INTEGER *IU,
9715 INTEGER *M,
9716 DOUBLE *W,
9717 DOUBLE *Z,
9718 const INTEGER *LDZ,
9719 const INTEGER *NZC,
9720 INTEGER *ISUPPZ,
9721 LOGICAL *TRYRAC,
9722 DOUBLE *WORK,
9723 const INTEGER *LWORK,
9724 INTEGER *IWORK,
9725 const INTEGER *LIWORK,
9726 INTEGER *INFO)
9727 {
9728 DEBUG_LAPACK_STUB("dstemr");
9729 LAPACK_IMPL(dstemr)(JOBZ,
9730 RANGE,
9731 N,
9732 D,
9733 E,
9734 VL,
9735 VU,
9736 IL,
9737 IU,
9738 M,
9739 W,
9740 Z,
9741 LDZ,
9742 NZC,
9743 ISUPPZ,
9744 TRYRAC,
9745 WORK,
9746 LWORK,
9747 IWORK,
9748 LIWORK,
9749 INFO);
9750 }
9751
9752 //-- dsteqr --------------------------------------------------------------------
9753 void
9754 LAPACK_DECL(dsteqr)(const char *COMPZ,
9755 const INTEGER *N,
9756 DOUBLE *D,
9757 DOUBLE *E,
9758 DOUBLE *Z,
9759 const INTEGER *LDZ,
9760 DOUBLE *WORK,
9761 INTEGER *INFO)
9762 {
9763 DEBUG_LAPACK_STUB("dsteqr");
9764 LAPACK_IMPL(dsteqr)(COMPZ,
9765 N,
9766 D,
9767 E,
9768 Z,
9769 LDZ,
9770 WORK,
9771 INFO);
9772 }
9773
9774 //-- dsterf --------------------------------------------------------------------
9775 void
9776 LAPACK_DECL(dsterf)(const INTEGER *N,
9777 DOUBLE *D,
9778 DOUBLE *E,
9779 INTEGER *INFO)
9780 {
9781 DEBUG_LAPACK_STUB("dsterf");
9782 LAPACK_IMPL(dsterf)(N,
9783 D,
9784 E,
9785 INFO);
9786 }
9787
9788 //-- dstev ---------------------------------------------------------------------
9789 void
9790 LAPACK_DECL(dstev)(const char *JOBZ,
9791 const INTEGER *N,
9792 DOUBLE *D,
9793 DOUBLE *E,
9794 DOUBLE *Z,
9795 const INTEGER *LDZ,
9796 DOUBLE *WORK,
9797 INTEGER *INFO)
9798 {
9799 DEBUG_LAPACK_STUB("dstev");
9800 LAPACK_IMPL(dstev)(JOBZ,
9801 N,
9802 D,
9803 E,
9804 Z,
9805 LDZ,
9806 WORK,
9807 INFO);
9808 }
9809
9810 //-- dstevd --------------------------------------------------------------------
9811 void
9812 LAPACK_DECL(dstevd)(const char *JOBZ,
9813 const INTEGER *N,
9814 DOUBLE *D,
9815 DOUBLE *E,
9816 DOUBLE *Z,
9817 const INTEGER *LDZ,
9818 DOUBLE *WORK,
9819 const INTEGER *LWORK,
9820 INTEGER *IWORK,
9821 const INTEGER *LIWORK,
9822 INTEGER *INFO)
9823 {
9824 DEBUG_LAPACK_STUB("dstevd");
9825 LAPACK_IMPL(dstevd)(JOBZ,
9826 N,
9827 D,
9828 E,
9829 Z,
9830 LDZ,
9831 WORK,
9832 LWORK,
9833 IWORK,
9834 LIWORK,
9835 INFO);
9836 }
9837
9838 //-- dstevr --------------------------------------------------------------------
9839 void
9840 LAPACK_DECL(dstevr)(const char *JOBZ,
9841 const char *RANGE,
9842 const INTEGER *N,
9843 DOUBLE *D,
9844 DOUBLE *E,
9845 const DOUBLE *VL,
9846 const DOUBLE *VU,
9847 const INTEGER *IL,
9848 const INTEGER *IU,
9849 const DOUBLE *ABSTOL,
9850 INTEGER *M,
9851 DOUBLE *W,
9852 DOUBLE *Z,
9853 const INTEGER *LDZ,
9854 INTEGER *ISUPPZ,
9855 DOUBLE *WORK,
9856 const INTEGER *LWORK,
9857 INTEGER *IWORK,
9858 const INTEGER *LIWORK,
9859 INTEGER *INFO)
9860 {
9861 DEBUG_LAPACK_STUB("dstevr");
9862 LAPACK_IMPL(dstevr)(JOBZ,
9863 RANGE,
9864 N,
9865 D,
9866 E,
9867 VL,
9868 VU,
9869 IL,
9870 IU,
9871 ABSTOL,
9872 M,
9873 W,
9874 Z,
9875 LDZ,
9876 ISUPPZ,
9877 WORK,
9878 LWORK,
9879 IWORK,
9880 LIWORK,
9881 INFO);
9882 }
9883
9884 //-- dstevx --------------------------------------------------------------------
9885 void
9886 LAPACK_DECL(dstevx)(const char *JOBZ,
9887 const char *RANGE,
9888 const INTEGER *N,
9889 DOUBLE *D,
9890 DOUBLE *E,
9891 const DOUBLE *VL,
9892 const DOUBLE *VU,
9893 const INTEGER *IL,
9894 const INTEGER *IU,
9895 const DOUBLE *ABSTOL,
9896 INTEGER *M,
9897 DOUBLE *W,
9898 DOUBLE *Z,
9899 const INTEGER *LDZ,
9900 DOUBLE *WORK,
9901 INTEGER *IWORK,
9902 INTEGER *IFAIL,
9903 INTEGER *INFO)
9904 {
9905 DEBUG_LAPACK_STUB("dstevx");
9906 LAPACK_IMPL(dstevx)(JOBZ,
9907 RANGE,
9908 N,
9909 D,
9910 E,
9911 VL,
9912 VU,
9913 IL,
9914 IU,
9915 ABSTOL,
9916 M,
9917 W,
9918 Z,
9919 LDZ,
9920 WORK,
9921 IWORK,
9922 IFAIL,
9923 INFO);
9924 }
9925
9926 //-- dsycon --------------------------------------------------------------------
9927 void
9928 LAPACK_DECL(dsycon)(const char *UPLO,
9929 const INTEGER *N,
9930 const DOUBLE *A,
9931 const INTEGER *LDA,
9932 const INTEGER *IPIV,
9933 const DOUBLE *ANORM,
9934 DOUBLE *RCOND,
9935 DOUBLE *WORK,
9936 INTEGER *IWORK,
9937 INTEGER *INFO)
9938 {
9939 DEBUG_LAPACK_STUB("dsycon");
9940 LAPACK_IMPL(dsycon)(UPLO,
9941 N,
9942 A,
9943 LDA,
9944 IPIV,
9945 ANORM,
9946 RCOND,
9947 WORK,
9948 IWORK,
9949 INFO);
9950 }
9951
9952 //-- dsyconv -------------------------------------------------------------------
9953 void
9954 LAPACK_DECL(dsyconv)(const char *UPLO,
9955 const char *WAY,
9956 const INTEGER *N,
9957 const DOUBLE *A,
9958 const INTEGER *LDA,
9959 const INTEGER *IPIV,
9960 DOUBLE *WORK,
9961 INTEGER *INFO)
9962 {
9963 DEBUG_LAPACK_STUB("dsyconv");
9964 LAPACK_IMPL(dsyconv)(UPLO,
9965 WAY,
9966 N,
9967 A,
9968 LDA,
9969 IPIV,
9970 WORK,
9971 INFO);
9972 }
9973
9974 //-- dsyequb -------------------------------------------------------------------
9975 void
9976 LAPACK_DECL(dsyequb)(const char *UPLO,
9977 const INTEGER *N,
9978 const DOUBLE *A,
9979 const INTEGER *LDA,
9980 DOUBLE *S,
9981 DOUBLE *SCOND,
9982 DOUBLE *AMAX,
9983 DOUBLE *WORK,
9984 INTEGER *INFO)
9985 {
9986 DEBUG_LAPACK_STUB("dsyequb");
9987 LAPACK_IMPL(dsyequb)(UPLO,
9988 N,
9989 A,
9990 LDA,
9991 S,
9992 SCOND,
9993 AMAX,
9994 WORK,
9995 INFO);
9996 }
9997
9998 //-- dsyev ---------------------------------------------------------------------
9999 void
10000 LAPACK_DECL(dsyev)(const char *JOBZ,
10001 const char *UPLO,
10002 const INTEGER *N,
10003 DOUBLE *A,
10004 const INTEGER *LDA,
10005 DOUBLE *W,
10006 DOUBLE *WORK,
10007 const INTEGER *LWORK,
10008 INTEGER *INFO)
10009 {
10010 DEBUG_LAPACK_STUB("dsyev");
10011 LAPACK_IMPL(dsyev)(JOBZ,
10012 UPLO,
10013 N,
10014 A,
10015 LDA,
10016 W,
10017 WORK,
10018 LWORK,
10019 INFO);
10020 }
10021
10022 //-- dsyevd --------------------------------------------------------------------
10023 void
10024 LAPACK_DECL(dsyevd)(const char *JOBZ,
10025 const char *UPLO,
10026 const INTEGER *N,
10027 DOUBLE *A,
10028 const INTEGER *LDA,
10029 DOUBLE *W,
10030 DOUBLE *WORK,
10031 const INTEGER *LWORK,
10032 INTEGER *IWORK,
10033 const INTEGER *LIWORK,
10034 INTEGER *INFO)
10035 {
10036 DEBUG_LAPACK_STUB("dsyevd");
10037 LAPACK_IMPL(dsyevd)(JOBZ,
10038 UPLO,
10039 N,
10040 A,
10041 LDA,
10042 W,
10043 WORK,
10044 LWORK,
10045 IWORK,
10046 LIWORK,
10047 INFO);
10048 }
10049
10050 //-- dsyevr --------------------------------------------------------------------
10051 void
10052 LAPACK_DECL(dsyevr)(const char *JOBZ,
10053 const char *RANGE,
10054 const char *UPLO,
10055 const INTEGER *N,
10056 DOUBLE *A,
10057 const INTEGER *LDA,
10058 const DOUBLE *VL,
10059 const DOUBLE *VU,
10060 const INTEGER *IL,
10061 const INTEGER *IU,
10062 const DOUBLE *ABSTOL,
10063 INTEGER *M,
10064 DOUBLE *W,
10065 DOUBLE *Z,
10066 const INTEGER *LDZ,
10067 INTEGER *ISUPPZ,
10068 DOUBLE *WORK,
10069 const INTEGER *LWORK,
10070 INTEGER *IWORK,
10071 const INTEGER *LIWORK,
10072 INTEGER *INFO)
10073 {
10074 DEBUG_LAPACK_STUB("dsyevr");
10075 LAPACK_IMPL(dsyevr)(JOBZ,
10076 RANGE,
10077 UPLO,
10078 N,
10079 A,
10080 LDA,
10081 VL,
10082 VU,
10083 IL,
10084 IU,
10085 ABSTOL,
10086 M,
10087 W,
10088 Z,
10089 LDZ,
10090 ISUPPZ,
10091 WORK,
10092 LWORK,
10093 IWORK,
10094 LIWORK,
10095 INFO);
10096 }
10097
10098 //-- dsyevx --------------------------------------------------------------------
10099 void
10100 LAPACK_DECL(dsyevx)(const char *JOBZ,
10101 const char *RANGE,
10102 const char *UPLO,
10103 const INTEGER *N,
10104 DOUBLE *A,
10105 const INTEGER *LDA,
10106 const DOUBLE *VL,
10107 const DOUBLE *VU,
10108 const INTEGER *IL,
10109 const INTEGER *IU,
10110 const DOUBLE *ABSTOL,
10111 INTEGER *M,
10112 DOUBLE *W,
10113 DOUBLE *Z,
10114 const INTEGER *LDZ,
10115 DOUBLE *WORK,
10116 const INTEGER *LWORK,
10117 INTEGER *IWORK,
10118 INTEGER *IFAIL,
10119 INTEGER *INFO)
10120 {
10121 DEBUG_LAPACK_STUB("dsyevx");
10122 LAPACK_IMPL(dsyevx)(JOBZ,
10123 RANGE,
10124 UPLO,
10125 N,
10126 A,
10127 LDA,
10128 VL,
10129 VU,
10130 IL,
10131 IU,
10132 ABSTOL,
10133 M,
10134 W,
10135 Z,
10136 LDZ,
10137 WORK,
10138 LWORK,
10139 IWORK,
10140 IFAIL,
10141 INFO);
10142 }
10143
10144 //-- dsygs2 --------------------------------------------------------------------
10145 void
10146 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
10147 const char *UPLO,
10148 const INTEGER *N,
10149 DOUBLE *A,
10150 const INTEGER *LDA,
10151 const DOUBLE *B,
10152 const INTEGER *LDB,
10153 INTEGER *INFO)
10154 {
10155 DEBUG_LAPACK_STUB("dsygs2");
10156 LAPACK_IMPL(dsygs2)(ITYPE,
10157 UPLO,
10158 N,
10159 A,
10160 LDA,
10161 B,
10162 LDB,
10163 INFO);
10164 }
10165
10166 //-- dsygst --------------------------------------------------------------------
10167 void
10168 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
10169 const char *UPLO,
10170 const INTEGER *N,
10171 DOUBLE *A,
10172 const INTEGER *LDA,
10173 const DOUBLE *B,
10174 const INTEGER *LDB,
10175 INTEGER *INFO)
10176 {
10177 DEBUG_LAPACK_STUB("dsygst");
10178 LAPACK_IMPL(dsygst)(ITYPE,
10179 UPLO,
10180 N,
10181 A,
10182 LDA,
10183 B,
10184 LDB,
10185 INFO);
10186 }
10187
10188 //-- dsygv ---------------------------------------------------------------------
10189 void
10190 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
10191 const char *JOBZ,
10192 const char *UPLO,
10193 const INTEGER *N,
10194 DOUBLE *A,
10195 const INTEGER *LDA,
10196 DOUBLE *B,
10197 const INTEGER *LDB,
10198 DOUBLE *W,
10199 DOUBLE *WORK,
10200 const INTEGER *LWORK,
10201 INTEGER *INFO)
10202 {
10203 DEBUG_LAPACK_STUB("dsygv");
10204 LAPACK_IMPL(dsygv)(ITYPE,
10205 JOBZ,
10206 UPLO,
10207 N,
10208 A,
10209 LDA,
10210 B,
10211 LDB,
10212 W,
10213 WORK,
10214 LWORK,
10215 INFO);
10216 }
10217
10218 //-- dsygvd --------------------------------------------------------------------
10219 void
10220 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
10221 const char *JOBZ,
10222 const char *UPLO,
10223 const INTEGER *N,
10224 DOUBLE *A,
10225 const INTEGER *LDA,
10226 DOUBLE *B,
10227 const INTEGER *LDB,
10228 DOUBLE *W,
10229 DOUBLE *WORK,
10230 const INTEGER *LWORK,
10231 INTEGER *IWORK,
10232 const INTEGER *LIWORK,
10233 INTEGER *INFO)
10234 {
10235 DEBUG_LAPACK_STUB("dsygvd");
10236 LAPACK_IMPL(dsygvd)(ITYPE,
10237 JOBZ,
10238 UPLO,
10239 N,
10240 A,
10241 LDA,
10242 B,
10243 LDB,
10244 W,
10245 WORK,
10246 LWORK,
10247 IWORK,
10248 LIWORK,
10249 INFO);
10250 }
10251
10252 //-- dsygvx --------------------------------------------------------------------
10253 void
10254 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
10255 const char *JOBZ,
10256 const char *RANGE,
10257 const char *UPLO,
10258 const INTEGER *N,
10259 DOUBLE *A,
10260 const INTEGER *LDA,
10261 DOUBLE *B,
10262 const INTEGER *LDB,
10263 const DOUBLE *VL,
10264 const DOUBLE *VU,
10265 const INTEGER *IL,
10266 const INTEGER *IU,
10267 const DOUBLE *ABSTOL,
10268 INTEGER *M,
10269 DOUBLE *W,
10270 DOUBLE *Z,
10271 const INTEGER *LDZ,
10272 DOUBLE *WORK,
10273 const INTEGER *LWORK,
10274 INTEGER *IWORK,
10275 INTEGER *IFAIL,
10276 INTEGER *INFO)
10277 {
10278 DEBUG_LAPACK_STUB("dsygvx");
10279 LAPACK_IMPL(dsygvx)(ITYPE,
10280 JOBZ,
10281 RANGE,
10282 UPLO,
10283 N,
10284 A,
10285 LDA,
10286 B,
10287 LDB,
10288 VL,
10289 VU,
10290 IL,
10291 IU,
10292 ABSTOL,
10293 M,
10294 W,
10295 Z,
10296 LDZ,
10297 WORK,
10298 LWORK,
10299 IWORK,
10300 IFAIL,
10301 INFO);
10302 }
10303
10304 //-- dsyrfs --------------------------------------------------------------------
10305 void
10306 LAPACK_DECL(dsyrfs)(const char *UPLO,
10307 const INTEGER *N,
10308 const INTEGER *NRHS,
10309 const DOUBLE *A,
10310 const INTEGER *LDA,
10311 const DOUBLE *AF,
10312 const INTEGER *LDAF,
10313 const INTEGER *IPIV,
10314 const DOUBLE *B,
10315 const INTEGER *LDB,
10316 DOUBLE *X,
10317 const INTEGER *LDX,
10318 DOUBLE *FERR,
10319 DOUBLE *BERR,
10320 DOUBLE *WORK,
10321 INTEGER *IWORK,
10322 INTEGER *INFO)
10323 {
10324 DEBUG_LAPACK_STUB("dsyrfs");
10325 LAPACK_IMPL(dsyrfs)(UPLO,
10326 N,
10327 NRHS,
10328 A,
10329 LDA,
10330 AF,
10331 LDAF,
10332 IPIV,
10333 B,
10334 LDB,
10335 X,
10336 LDX,
10337 FERR,
10338 BERR,
10339 WORK,
10340 IWORK,
10341 INFO);
10342 }
10343
10344 //-- dsysv ---------------------------------------------------------------------
10345 void
10346 LAPACK_DECL(dsysv)(const char *UPLO,
10347 const INTEGER *N,
10348 const INTEGER *NRHS,
10349 DOUBLE *A,
10350 const INTEGER *LDA,
10351 INTEGER *IPIV,
10352 DOUBLE *B,
10353 const INTEGER *LDB,
10354 DOUBLE *WORK,
10355 const INTEGER *LWORK,
10356 INTEGER *INFO)
10357 {
10358 DEBUG_LAPACK_STUB("dsysv");
10359 LAPACK_IMPL(dsysv)(UPLO,
10360 N,
10361 NRHS,
10362 A,
10363 LDA,
10364 IPIV,
10365 B,
10366 LDB,
10367 WORK,
10368 LWORK,
10369 INFO);
10370 }
10371
10372 //-- dsysvx --------------------------------------------------------------------
10373 void
10374 LAPACK_DECL(dsysvx)(const char *FACT,
10375 const char *UPLO,
10376 const INTEGER *N,
10377 const INTEGER *NRHS,
10378 const DOUBLE *A,
10379 const INTEGER *LDA,
10380 DOUBLE *AF,
10381 const INTEGER *LDAF,
10382 INTEGER *IPIV,
10383 const DOUBLE *B,
10384 const INTEGER *LDB,
10385 DOUBLE *X,
10386 const INTEGER *LDX,
10387 DOUBLE *RCOND,
10388 DOUBLE *FERR,
10389 DOUBLE *BERR,
10390 DOUBLE *WORK,
10391 const INTEGER *LWORK,
10392 INTEGER *IWORK,
10393 INTEGER *INFO)
10394 {
10395 DEBUG_LAPACK_STUB("dsysvx");
10396 LAPACK_IMPL(dsysvx)(FACT,
10397 UPLO,
10398 N,
10399 NRHS,
10400 A,
10401 LDA,
10402 AF,
10403 LDAF,
10404 IPIV,
10405 B,
10406 LDB,
10407 X,
10408 LDX,
10409 RCOND,
10410 FERR,
10411 BERR,
10412 WORK,
10413 LWORK,
10414 IWORK,
10415 INFO);
10416 }
10417
10418 //-- dsyswapr ------------------------------------------------------------------
10419 void
10420 LAPACK_DECL(dsyswapr)(const char *UPLO,
10421 const INTEGER *N,
10422 DOUBLE *A,
10423 const INTEGER *LDA,
10424 const INTEGER *I1,
10425 const INTEGER *I2)
10426 {
10427 DEBUG_LAPACK_STUB("dsyswapr");
10428 LAPACK_IMPL(dsyswapr)(UPLO,
10429 N,
10430 A,
10431 LDA,
10432 I1,
10433 I2);
10434 }
10435
10436 //-- dsytd2 --------------------------------------------------------------------
10437 void
10438 LAPACK_DECL(dsytd2)(const char *UPLO,
10439 const INTEGER *N,
10440 DOUBLE *A,
10441 const INTEGER *LDA,
10442 DOUBLE *D,
10443 DOUBLE *E,
10444 DOUBLE *TAU,
10445 INTEGER *INFO)
10446 {
10447 DEBUG_LAPACK_STUB("dsytd2");
10448 LAPACK_IMPL(dsytd2)(UPLO,
10449 N,
10450 A,
10451 LDA,
10452 D,
10453 E,
10454 TAU,
10455 INFO);
10456 }
10457
10458 //-- dsytf2 --------------------------------------------------------------------
10459 void
10460 LAPACK_DECL(dsytf2)(const char *UPLO,
10461 const INTEGER *N,
10462 DOUBLE *A,
10463 const INTEGER *LDA,
10464 INTEGER *IPIV,
10465 INTEGER *INFO)
10466 {
10467 DEBUG_LAPACK_STUB("dsytf2");
10468 LAPACK_IMPL(dsytf2)(UPLO,
10469 N,
10470 A,
10471 LDA,
10472 IPIV,
10473 INFO);
10474 }
10475
10476 //-- dsytrd --------------------------------------------------------------------
10477 void
10478 LAPACK_DECL(dsytrd)(const char *UPLO,
10479 const INTEGER *N,
10480 DOUBLE *A,
10481 const INTEGER *LDA,
10482 DOUBLE *D,
10483 DOUBLE *E,
10484 DOUBLE *TAU,
10485 DOUBLE *WORK,
10486 const INTEGER *LWORK,
10487 INTEGER *INFO)
10488 {
10489 DEBUG_LAPACK_STUB("dsytrd");
10490 LAPACK_IMPL(dsytrd)(UPLO,
10491 N,
10492 A,
10493 LDA,
10494 D,
10495 E,
10496 TAU,
10497 WORK,
10498 LWORK,
10499 INFO);
10500 }
10501
10502 //-- dsytrf --------------------------------------------------------------------
10503 void
10504 LAPACK_DECL(dsytrf)(const char *UPLO,
10505 const INTEGER *N,
10506 DOUBLE *A,
10507 const INTEGER *LDA,
10508 INTEGER *IPIV,
10509 DOUBLE *WORK,
10510 const INTEGER *LWORK,
10511 INTEGER *INFO)
10512 {
10513 DEBUG_LAPACK_STUB("dsytrf");
10514 LAPACK_IMPL(dsytrf)(UPLO,
10515 N,
10516 A,
10517 LDA,
10518 IPIV,
10519 WORK,
10520 LWORK,
10521 INFO);
10522 }
10523
10524 //-- dsytri --------------------------------------------------------------------
10525 void
10526 LAPACK_DECL(dsytri)(const char *UPLO,
10527 const INTEGER *N,
10528 DOUBLE *A,
10529 const INTEGER *LDA,
10530 const INTEGER *IPIV,
10531 DOUBLE *WORK,
10532 INTEGER *INFO)
10533 {
10534 DEBUG_LAPACK_STUB("dsytri");
10535 LAPACK_IMPL(dsytri)(UPLO,
10536 N,
10537 A,
10538 LDA,
10539 IPIV,
10540 WORK,
10541 INFO);
10542 }
10543
10544 //-- dsytri2 -------------------------------------------------------------------
10545 void
10546 LAPACK_DECL(dsytri2)(const char *UPLO,
10547 const INTEGER *N,
10548 DOUBLE *A,
10549 const INTEGER *LDA,
10550 const INTEGER *IPIV,
10551 DOUBLE *WORK,
10552 const INTEGER *LWORK,
10553 INTEGER *INFO)
10554 {
10555 DEBUG_LAPACK_STUB("dsytri2");
10556 LAPACK_IMPL(dsytri2)(UPLO,
10557 N,
10558 A,
10559 LDA,
10560 IPIV,
10561 WORK,
10562 LWORK,
10563 INFO);
10564 }
10565
10566 //-- dsytri2x ------------------------------------------------------------------
10567 void
10568 LAPACK_DECL(dsytri2x)(const char *UPLO,
10569 const INTEGER *N,
10570 DOUBLE *A,
10571 const INTEGER *LDA,
10572 const INTEGER *IPIV,
10573 DOUBLE *WORK,
10574 const INTEGER *NB,
10575 INTEGER *INFO)
10576 {
10577 DEBUG_LAPACK_STUB("dsytri2x");
10578 LAPACK_IMPL(dsytri2x)(UPLO,
10579 N,
10580 A,
10581 LDA,
10582 IPIV,
10583 WORK,
10584 NB,
10585 INFO);
10586 }
10587
10588 //-- dsytrs --------------------------------------------------------------------
10589 void
10590 LAPACK_DECL(dsytrs)(const char *UPLO,
10591 const INTEGER *N,
10592 const INTEGER *NRHS,
10593 const DOUBLE *A,
10594 const INTEGER *LDA,
10595 const INTEGER *IPIV,
10596 DOUBLE *B,
10597 const INTEGER *LDB,
10598 INTEGER *INFO)
10599 {
10600 DEBUG_LAPACK_STUB("dsytrs");
10601 LAPACK_IMPL(dsytrs)(UPLO,
10602 N,
10603 NRHS,
10604 A,
10605 LDA,
10606 IPIV,
10607 B,
10608 LDB,
10609 INFO);
10610 }
10611
10612 //-- dsytrs2 -------------------------------------------------------------------
10613 void
10614 LAPACK_DECL(dsytrs2)(const char *UPLO,
10615 const INTEGER *N,
10616 const INTEGER *NRHS,
10617 const DOUBLE *A,
10618 const INTEGER *LDA,
10619 const INTEGER *IPIV,
10620 DOUBLE *B,
10621 const INTEGER *LDB,
10622 DOUBLE *WORK,
10623 INTEGER *INFO)
10624 {
10625 DEBUG_LAPACK_STUB("dsytrs2");
10626 LAPACK_IMPL(dsytrs2)(UPLO,
10627 N,
10628 NRHS,
10629 A,
10630 LDA,
10631 IPIV,
10632 B,
10633 LDB,
10634 WORK,
10635 INFO);
10636 }
10637
10638 //-- dtbcon --------------------------------------------------------------------
10639 void
10640 LAPACK_DECL(dtbcon)(const char *NORM,
10641 const char *UPLO,
10642 const char *DIAG,
10643 const INTEGER *N,
10644 const INTEGER *KD,
10645 const DOUBLE *AB,
10646 const INTEGER *LDAB,
10647 DOUBLE *RCOND,
10648 DOUBLE *WORK,
10649 INTEGER *IWORK,
10650 INTEGER *INFO)
10651 {
10652 DEBUG_LAPACK_STUB("dtbcon");
10653 LAPACK_IMPL(dtbcon)(NORM,
10654 UPLO,
10655 DIAG,
10656 N,
10657 KD,
10658 AB,
10659 LDAB,
10660 RCOND,
10661 WORK,
10662 IWORK,
10663 INFO);
10664 }
10665
10666 //-- dtbrfs --------------------------------------------------------------------
10667 void
10668 LAPACK_DECL(dtbrfs)(const char *UPLO,
10669 const char *TRANS,
10670 const char *DIAG,
10671 const INTEGER *N,
10672 const INTEGER *KD,
10673 const INTEGER *NRHS,
10674 const DOUBLE *AB,
10675 const INTEGER *LDAB,
10676 const DOUBLE *B,
10677 const INTEGER *LDB,
10678 const DOUBLE *X,
10679 const INTEGER *LDX,
10680 DOUBLE *FERR,
10681 DOUBLE *BERR,
10682 DOUBLE *WORK,
10683 INTEGER *IWORK,
10684 INTEGER *INFO)
10685 {
10686 DEBUG_LAPACK_STUB("dtbrfs");
10687 LAPACK_IMPL(dtbrfs)(UPLO,
10688 TRANS,
10689 DIAG,
10690 N,
10691 KD,
10692 NRHS,
10693 AB,
10694 LDAB,
10695 B,
10696 LDB,
10697 X,
10698 LDX,
10699 FERR,
10700 BERR,
10701 WORK,
10702 IWORK,
10703 INFO);
10704 }
10705
10706 //-- dtbtrs --------------------------------------------------------------------
10707 void
10708 LAPACK_DECL(dtbtrs)(const char *UPLO,
10709 const char *TRANS,
10710 const char *DIAG,
10711 const INTEGER *N,
10712 const INTEGER *KD,
10713 const INTEGER *NRHS,
10714 const DOUBLE *AB,
10715 const INTEGER *LDAB,
10716 DOUBLE *B,
10717 const INTEGER *LDB,
10718 INTEGER *INFO)
10719 {
10720 DEBUG_LAPACK_STUB("dtbtrs");
10721 LAPACK_IMPL(dtbtrs)(UPLO,
10722 TRANS,
10723 DIAG,
10724 N,
10725 KD,
10726 NRHS,
10727 AB,
10728 LDAB,
10729 B,
10730 LDB,
10731 INFO);
10732 }
10733
10734 //-- dtfsm ---------------------------------------------------------------------
10735 void
10736 LAPACK_DECL(dtfsm)(const char *TRANSR,
10737 const char *SIDE,
10738 const char *UPLO,
10739 const char *TRANS,
10740 const char *DIAG,
10741 const INTEGER *M,
10742 const INTEGER *N,
10743 const DOUBLE *ALPHA,
10744 const DOUBLE *A,
10745 DOUBLE *B,
10746 const INTEGER *LDB)
10747 {
10748 DEBUG_LAPACK_STUB("dtfsm");
10749 LAPACK_IMPL(dtfsm)(TRANSR,
10750 SIDE,
10751 UPLO,
10752 TRANS,
10753 DIAG,
10754 M,
10755 N,
10756 ALPHA,
10757 A,
10758 B,
10759 LDB);
10760 }
10761
10762 //-- dtftri --------------------------------------------------------------------
10763 void
10764 LAPACK_DECL(dtftri)(const char *TRANSR,
10765 const char *UPLO,
10766 const char *DIAG,
10767 const INTEGER *N,
10768 DOUBLE *A,
10769 INTEGER *INFO)
10770 {
10771 DEBUG_LAPACK_STUB("dtftri");
10772 LAPACK_IMPL(dtftri)(TRANSR,
10773 UPLO,
10774 DIAG,
10775 N,
10776 A,
10777 INFO);
10778 }
10779
10780 //-- dtfttp --------------------------------------------------------------------
10781 void
10782 LAPACK_DECL(dtfttp)(const char *TRANSR,
10783 const char *UPLO,
10784 const INTEGER *N,
10785 const DOUBLE *ARF,
10786 DOUBLE *AP,
10787 INTEGER *INFO)
10788 {
10789 DEBUG_LAPACK_STUB("dtfttp");
10790 LAPACK_IMPL(dtfttp)(TRANSR,
10791 UPLO,
10792 N,
10793 ARF,
10794 AP,
10795 INFO);
10796 }
10797
10798 //-- dtfttr --------------------------------------------------------------------
10799 void
10800 LAPACK_DECL(dtfttr)(const char *TRANSR,
10801 const char *UPLO,
10802 const INTEGER *N,
10803 const DOUBLE *ARF,
10804 DOUBLE *A,
10805 const INTEGER *LDA,
10806 INTEGER *INFO)
10807 {
10808 DEBUG_LAPACK_STUB("dtfttr");
10809 LAPACK_IMPL(dtfttr)(TRANSR,
10810 UPLO,
10811 N,
10812 ARF,
10813 A,
10814 LDA,
10815 INFO);
10816 }
10817
10818 //-- dtgevc --------------------------------------------------------------------
10819 void
10820 LAPACK_DECL(dtgevc)(const char *SIDE,
10821 const char *HOWMNY,
10822 const LOGICAL *SELECT,
10823 const INTEGER *N,
10824 const DOUBLE *S,
10825 const INTEGER *LDS,
10826 const DOUBLE *P,
10827 const INTEGER *LDP,
10828 DOUBLE *VL,
10829 const INTEGER *LDVL,
10830 DOUBLE *VR,
10831 const INTEGER *LDVR,
10832 const INTEGER *MM,
10833 INTEGER *M,
10834 DOUBLE *WORK,
10835 INTEGER *INFO)
10836 {
10837 DEBUG_LAPACK_STUB("dtgevc");
10838 LAPACK_IMPL(dtgevc)(SIDE,
10839 HOWMNY,
10840 SELECT,
10841 N,
10842 S,
10843 LDS,
10844 P,
10845 LDP,
10846 VL,
10847 LDVL,
10848 VR,
10849 LDVR,
10850 MM,
10851 M,
10852 WORK,
10853 INFO);
10854 }
10855
10856 //-- dtgex2 --------------------------------------------------------------------
10857 void
10858 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
10859 const LOGICAL *WANTZ,
10860 const INTEGER *N,
10861 DOUBLE *A,
10862 const INTEGER *LDA,
10863 DOUBLE *B,
10864 const INTEGER *LDB,
10865 DOUBLE *Q,
10866 const INTEGER *LDQ,
10867 DOUBLE *Z,
10868 const INTEGER *LDZ,
10869 const INTEGER *J1,
10870 const INTEGER *N1,
10871 const INTEGER *N2,
10872 DOUBLE *WORK,
10873 const INTEGER *LWORK,
10874 INTEGER *INFO)
10875 {
10876 DEBUG_LAPACK_STUB("dtgex2");
10877 LAPACK_IMPL(dtgex2)(WANTQ,
10878 WANTZ,
10879 N,
10880 A,
10881 LDA,
10882 B,
10883 LDB,
10884 Q,
10885 LDQ,
10886 Z,
10887 LDZ,
10888 J1,
10889 N1,
10890 N2,
10891 WORK,
10892 LWORK,
10893 INFO);
10894 }
10895
10896 //-- dtgexc --------------------------------------------------------------------
10897 void
10898 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
10899 const LOGICAL *WANTZ,
10900 const INTEGER *N,
10901 DOUBLE *A,
10902 const INTEGER *LDA,
10903 DOUBLE *B,
10904 const INTEGER *LDB,
10905 DOUBLE *Q,
10906 const INTEGER *LDQ,
10907 DOUBLE *Z,
10908 const INTEGER *LDZ,
10909 INTEGER *IFST,
10910 INTEGER *ILST,
10911 DOUBLE *WORK,
10912 const INTEGER *LWORK,
10913 INTEGER *INFO)
10914 {
10915 DEBUG_LAPACK_STUB("dtgexc");
10916 LAPACK_IMPL(dtgexc)(WANTQ,
10917 WANTZ,
10918 N,
10919 A,
10920 LDA,
10921 B,
10922 LDB,
10923 Q,
10924 LDQ,
10925 Z,
10926 LDZ,
10927 IFST,
10928 ILST,
10929 WORK,
10930 LWORK,
10931 INFO);
10932 }
10933
10934 //-- dtgsen --------------------------------------------------------------------
10935 void
10936 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
10937 const LOGICAL *WANTQ,
10938 const LOGICAL *WANTZ,
10939 const LOGICAL *SELECT,
10940 const INTEGER *N,
10941 DOUBLE *A,
10942 const INTEGER *LDA,
10943 DOUBLE *B,
10944 const INTEGER *LDB,
10945 DOUBLE *ALPHAR,
10946 DOUBLE *ALPHAI,
10947 DOUBLE *BETA,
10948 DOUBLE *Q,
10949 const INTEGER *LDQ,
10950 DOUBLE *Z,
10951 const INTEGER *LDZ,
10952 INTEGER *M,
10953 DOUBLE *PL,
10954 DOUBLE *PR,
10955 DOUBLE *DIF,
10956 DOUBLE *WORK,
10957 const INTEGER *LWORK,
10958 INTEGER *IWORK,
10959 const INTEGER *LIWORK,
10960 INTEGER *INFO)
10961 {
10962 DEBUG_LAPACK_STUB("dtgsen");
10963 LAPACK_IMPL(dtgsen)(IJOB,
10964 WANTQ,
10965 WANTZ,
10966 SELECT,
10967 N,
10968 A,
10969 LDA,
10970 B,
10971 LDB,
10972 ALPHAR,
10973 ALPHAI,
10974 BETA,
10975 Q,
10976 LDQ,
10977 Z,
10978 LDZ,
10979 M,
10980 PL,
10981 PR,
10982 DIF,
10983 WORK,
10984 LWORK,
10985 IWORK,
10986 LIWORK,
10987 INFO);
10988 }
10989
10990 //-- dtgsja --------------------------------------------------------------------
10991 void
10992 LAPACK_DECL(dtgsja)(const char *JOBU,
10993 const char *JOBV,
10994 const char *JOBQ,
10995 const INTEGER *M,
10996 const INTEGER *P,
10997 const INTEGER *N,
10998 const INTEGER *K,
10999 const INTEGER *L,
11000 DOUBLE *A,
11001 const INTEGER *LDA,
11002 DOUBLE *B,
11003 const INTEGER *LDB,
11004 const DOUBLE *TOLA,
11005 const DOUBLE *TOLB,
11006 DOUBLE *ALPHA,
11007 DOUBLE *BETA,
11008 DOUBLE *U,
11009 const INTEGER *LDU,
11010 DOUBLE *V,
11011 const INTEGER *LDV,
11012 DOUBLE *Q,
11013 const INTEGER *LDQ,
11014 DOUBLE *WORK,
11015 INTEGER *NCYCLE,
11016 INTEGER *INFO)
11017 {
11018 DEBUG_LAPACK_STUB("dtgsja");
11019 LAPACK_IMPL(dtgsja)(JOBU,
11020 JOBV,
11021 JOBQ,
11022 M,
11023 P,
11024 N,
11025 K,
11026 L,
11027 A,
11028 LDA,
11029 B,
11030 LDB,
11031 TOLA,
11032 TOLB,
11033 ALPHA,
11034 BETA,
11035 U,
11036 LDU,
11037 V,
11038 LDV,
11039 Q,
11040 LDQ,
11041 WORK,
11042 NCYCLE,
11043 INFO);
11044 }
11045
11046 //-- dtgsna --------------------------------------------------------------------
11047 void
11048 LAPACK_DECL(dtgsna)(const char *JOB,
11049 const char *HOWMNY,
11050 const LOGICAL *SELECT,
11051 const INTEGER *N,
11052 const DOUBLE *A,
11053 const INTEGER *LDA,
11054 const DOUBLE *B,
11055 const INTEGER *LDB,
11056 const DOUBLE *VL,
11057 const INTEGER *LDVL,
11058 const DOUBLE *VR,
11059 const INTEGER *LDVR,
11060 DOUBLE *S,
11061 DOUBLE *DIF,
11062 const INTEGER *MM,
11063 INTEGER *M,
11064 DOUBLE *WORK,
11065 const INTEGER *LWORK,
11066 INTEGER *IWORK,
11067 INTEGER *INFO)
11068 {
11069 DEBUG_LAPACK_STUB("dtgsna");
11070 LAPACK_IMPL(dtgsna)(JOB,
11071 HOWMNY,
11072 SELECT,
11073 N,
11074 A,
11075 LDA,
11076 B,
11077 LDB,
11078 VL,
11079 LDVL,
11080 VR,
11081 LDVR,
11082 S,
11083 DIF,
11084 MM,
11085 M,
11086 WORK,
11087 LWORK,
11088 IWORK,
11089 INFO);
11090 }
11091
11092 //-- dtgsy2 --------------------------------------------------------------------
11093 void
11094 LAPACK_DECL(dtgsy2)(const char *TRANS,
11095 const INTEGER *IJOB,
11096 const INTEGER *M,
11097 const INTEGER *N,
11098 const DOUBLE *A,
11099 const INTEGER *LDA,
11100 const DOUBLE *B,
11101 const INTEGER *LDB,
11102 DOUBLE *C,
11103 const INTEGER *LDC,
11104 const DOUBLE *D,
11105 const INTEGER *LDD,
11106 const DOUBLE *E,
11107 const INTEGER *LDE,
11108 DOUBLE *F,
11109 const INTEGER *LDF,
11110 DOUBLE *SCALE,
11111 DOUBLE *RDSUM,
11112 DOUBLE *RDSCAL,
11113 INTEGER *IWORK,
11114 INTEGER *PQ,
11115 INTEGER *INFO)
11116 {
11117 DEBUG_LAPACK_STUB("dtgsy2");
11118 LAPACK_IMPL(dtgsy2)(TRANS,
11119 IJOB,
11120 M,
11121 N,
11122 A,
11123 LDA,
11124 B,
11125 LDB,
11126 C,
11127 LDC,
11128 D,
11129 LDD,
11130 E,
11131 LDE,
11132 F,
11133 LDF,
11134 SCALE,
11135 RDSUM,
11136 RDSCAL,
11137 IWORK,
11138 PQ,
11139 INFO);
11140 }
11141
11142 //-- dtgsyl --------------------------------------------------------------------
11143 void
11144 LAPACK_DECL(dtgsyl)(const char *TRANS,
11145 const INTEGER *IJOB,
11146 const INTEGER *M,
11147 const INTEGER *N,
11148 const DOUBLE *A,
11149 const INTEGER *LDA,
11150 const DOUBLE *B,
11151 const INTEGER *LDB,
11152 DOUBLE *C,
11153 const INTEGER *LDC,
11154 const DOUBLE *D,
11155 const INTEGER *LDD,
11156 const DOUBLE *E,
11157 const INTEGER *LDE,
11158 DOUBLE *F,
11159 const INTEGER *LDF,
11160 DOUBLE *SCALE,
11161 DOUBLE *DIF,
11162 DOUBLE *WORK,
11163 const INTEGER *LWORK,
11164 INTEGER *IWORK,
11165 INTEGER *INFO)
11166 {
11167 DEBUG_LAPACK_STUB("dtgsyl");
11168 LAPACK_IMPL(dtgsyl)(TRANS,
11169 IJOB,
11170 M,
11171 N,
11172 A,
11173 LDA,
11174 B,
11175 LDB,
11176 C,
11177 LDC,
11178 D,
11179 LDD,
11180 E,
11181 LDE,
11182 F,
11183 LDF,
11184 SCALE,
11185 DIF,
11186 WORK,
11187 LWORK,
11188 IWORK,
11189 INFO);
11190 }
11191
11192 //-- dtpcon --------------------------------------------------------------------
11193 void
11194 LAPACK_DECL(dtpcon)(const char *NORM,
11195 const char *UPLO,
11196 const char *DIAG,
11197 const INTEGER *N,
11198 const DOUBLE *AP,
11199 DOUBLE *RCOND,
11200 DOUBLE *WORK,
11201 INTEGER *IWORK,
11202 INTEGER *INFO)
11203 {
11204 DEBUG_LAPACK_STUB("dtpcon");
11205 LAPACK_IMPL(dtpcon)(NORM,
11206 UPLO,
11207 DIAG,
11208 N,
11209 AP,
11210 RCOND,
11211 WORK,
11212 IWORK,
11213 INFO);
11214 }
11215
11216 //-- dtprfs --------------------------------------------------------------------
11217 void
11218 LAPACK_DECL(dtprfs)(const char *UPLO,
11219 const char *TRANS,
11220 const char *DIAG,
11221 const INTEGER *N,
11222 const INTEGER *NRHS,
11223 const DOUBLE *AP,
11224 const DOUBLE *B,
11225 const INTEGER *LDB,
11226 const DOUBLE *X,
11227 const INTEGER *LDX,
11228 DOUBLE *FERR,
11229 DOUBLE *BERR,
11230 DOUBLE *WORK,
11231 INTEGER *IWORK,
11232 INTEGER *INFO)
11233 {
11234 DEBUG_LAPACK_STUB("dtprfs");
11235 LAPACK_IMPL(dtprfs)(UPLO,
11236 TRANS,
11237 DIAG,
11238 N,
11239 NRHS,
11240 AP,
11241 B,
11242 LDB,
11243 X,
11244 LDX,
11245 FERR,
11246 BERR,
11247 WORK,
11248 IWORK,
11249 INFO);
11250 }
11251
11252 //-- dtptri --------------------------------------------------------------------
11253 void
11254 LAPACK_DECL(dtptri)(const char *UPLO,
11255 const char *DIAG,
11256 const INTEGER *N,
11257 DOUBLE *AP,
11258 INTEGER *INFO)
11259 {
11260 DEBUG_LAPACK_STUB("dtptri");
11261 LAPACK_IMPL(dtptri)(UPLO,
11262 DIAG,
11263 N,
11264 AP,
11265 INFO);
11266 }
11267
11268 //-- dtptrs --------------------------------------------------------------------
11269 void
11270 LAPACK_DECL(dtptrs)(const char *UPLO,
11271 const char *TRANS,
11272 const char *DIAG,
11273 const INTEGER *N,
11274 const INTEGER *NRHS,
11275 const DOUBLE *AP,
11276 DOUBLE *B,
11277 const INTEGER *LDB,
11278 INTEGER *INFO)
11279 {
11280 DEBUG_LAPACK_STUB("dtptrs");
11281 LAPACK_IMPL(dtptrs)(UPLO,
11282 TRANS,
11283 DIAG,
11284 N,
11285 NRHS,
11286 AP,
11287 B,
11288 LDB,
11289 INFO);
11290 }
11291
11292 //-- dtpttf --------------------------------------------------------------------
11293 void
11294 LAPACK_DECL(dtpttf)(const char *TRANSR,
11295 const char *UPLO,
11296 const INTEGER *N,
11297 const DOUBLE *AP,
11298 DOUBLE *ARF,
11299 INTEGER *INFO)
11300 {
11301 DEBUG_LAPACK_STUB("dtpttf");
11302 LAPACK_IMPL(dtpttf)(TRANSR,
11303 UPLO,
11304 N,
11305 AP,
11306 ARF,
11307 INFO);
11308 }
11309
11310 //-- dtpttr --------------------------------------------------------------------
11311 void
11312 LAPACK_DECL(dtpttr)(const char *UPLO,
11313 const INTEGER *N,
11314 const DOUBLE *AP,
11315 DOUBLE *A,
11316 const INTEGER *LDA,
11317 INTEGER *INFO)
11318 {
11319 DEBUG_LAPACK_STUB("dtpttr");
11320 LAPACK_IMPL(dtpttr)(UPLO,
11321 N,
11322 AP,
11323 A,
11324 LDA,
11325 INFO);
11326 }
11327
11328 //-- dtrcon --------------------------------------------------------------------
11329 void
11330 LAPACK_DECL(dtrcon)(const char *NORM,
11331 const char *UPLO,
11332 const char *DIAG,
11333 const INTEGER *N,
11334 const DOUBLE *A,
11335 const INTEGER *LDA,
11336 DOUBLE *RCOND,
11337 DOUBLE *WORK,
11338 INTEGER *IWORK,
11339 INTEGER *INFO)
11340 {
11341 DEBUG_LAPACK_STUB("dtrcon");
11342 LAPACK_IMPL(dtrcon)(NORM,
11343 UPLO,
11344 DIAG,
11345 N,
11346 A,
11347 LDA,
11348 RCOND,
11349 WORK,
11350 IWORK,
11351 INFO);
11352 }
11353
11354 //-- dtrevc --------------------------------------------------------------------
11355 void
11356 LAPACK_DECL(dtrevc)(const char *SIDE,
11357 const char *HOWMNY,
11358 LOGICAL *SELECT,
11359 const INTEGER *N,
11360 const DOUBLE *T,
11361 const INTEGER *LDT,
11362 DOUBLE *VL,
11363 const INTEGER *LDVL,
11364 DOUBLE *VR,
11365 const INTEGER *LDVR,
11366 const INTEGER *MM,
11367 INTEGER *M,
11368 DOUBLE *WORK,
11369 INTEGER *INFO)
11370 {
11371 DEBUG_LAPACK_STUB("dtrevc");
11372 LAPACK_IMPL(dtrevc)(SIDE,
11373 HOWMNY,
11374 SELECT,
11375 N,
11376 T,
11377 LDT,
11378 VL,
11379 LDVL,
11380 VR,
11381 LDVR,
11382 MM,
11383 M,
11384 WORK,
11385 INFO);
11386 }
11387
11388 //-- dtrexc --------------------------------------------------------------------
11389 void
11390 LAPACK_DECL(dtrexc)(const char *COMPQ,
11391 const INTEGER *N,
11392 DOUBLE *T,
11393 const INTEGER *LDT,
11394 DOUBLE *Q,
11395 const INTEGER *LDQ,
11396 INTEGER *IFST,
11397 INTEGER *ILST,
11398 DOUBLE *WORK,
11399 INTEGER *INFO)
11400 {
11401 DEBUG_LAPACK_STUB("dtrexc");
11402 LAPACK_IMPL(dtrexc)(COMPQ,
11403 N,
11404 T,
11405 LDT,
11406 Q,
11407 LDQ,
11408 IFST,
11409 ILST,
11410 WORK,
11411 INFO);
11412 }
11413
11414 //-- dtrrfs --------------------------------------------------------------------
11415 void
11416 LAPACK_DECL(dtrrfs)(const char *UPLO,
11417 const char *TRANS,
11418 const char *DIAG,
11419 const INTEGER *N,
11420 const INTEGER *NRHS,
11421 const DOUBLE *A,
11422 const INTEGER *LDA,
11423 const DOUBLE *B,
11424 const INTEGER *LDB,
11425 const DOUBLE *X,
11426 const INTEGER *LDX,
11427 DOUBLE *FERR,
11428 DOUBLE *BERR,
11429 DOUBLE *WORK,
11430 INTEGER *IWORK,
11431 INTEGER *INFO)
11432 {
11433 DEBUG_LAPACK_STUB("dtrrfs");
11434 LAPACK_IMPL(dtrrfs)(UPLO,
11435 TRANS,
11436 DIAG,
11437 N,
11438 NRHS,
11439 A,
11440 LDA,
11441 B,
11442 LDB,
11443 X,
11444 LDX,
11445 FERR,
11446 BERR,
11447 WORK,
11448 IWORK,
11449 INFO);
11450 }
11451
11452 //-- dtrsen --------------------------------------------------------------------
11453 void
11454 LAPACK_DECL(dtrsen)(const char *JOB,
11455 const char *COMPQ,
11456 const LOGICAL *SELECT,
11457 const INTEGER *N,
11458 DOUBLE *T,
11459 const INTEGER *LDT,
11460 DOUBLE *Q,
11461 const INTEGER *LDQ,
11462 DOUBLE *WR,
11463 DOUBLE *WI,
11464 INTEGER *M,
11465 DOUBLE *S,
11466 DOUBLE *SEP,
11467 DOUBLE *WORK,
11468 const INTEGER *LWORK,
11469 INTEGER *IWORK,
11470 const INTEGER *LIWORK,
11471 INTEGER *INFO)
11472 {
11473 DEBUG_LAPACK_STUB("dtrsen");
11474 LAPACK_IMPL(dtrsen)(JOB,
11475 COMPQ,
11476 SELECT,
11477 N,
11478 T,
11479 LDT,
11480 Q,
11481 LDQ,
11482 WR,
11483 WI,
11484 M,
11485 S,
11486 SEP,
11487 WORK,
11488 LWORK,
11489 IWORK,
11490 LIWORK,
11491 INFO);
11492 }
11493
11494 //-- dtrsna --------------------------------------------------------------------
11495 void
11496 LAPACK_DECL(dtrsna)(const char *JOB,
11497 const char *HOWMNY,
11498 const LOGICAL *SELECT,
11499 const INTEGER *N,
11500 const DOUBLE *T,
11501 const INTEGER *LDT,
11502 const DOUBLE *VL,
11503 const INTEGER *LDVL,
11504 const DOUBLE *VR,
11505 const INTEGER *LDVR,
11506 DOUBLE *S,
11507 DOUBLE *SEP,
11508 const INTEGER *MM,
11509 INTEGER *M,
11510 DOUBLE *WORK,
11511 const INTEGER *LDWORK,
11512 INTEGER *IWORK,
11513 INTEGER *INFO)
11514 {
11515 DEBUG_LAPACK_STUB("dtrsna");
11516 LAPACK_IMPL(dtrsna)(JOB,
11517 HOWMNY,
11518 SELECT,
11519 N,
11520 T,
11521 LDT,
11522 VL,
11523 LDVL,
11524 VR,
11525 LDVR,
11526 S,
11527 SEP,
11528 MM,
11529 M,
11530 WORK,
11531 LDWORK,
11532 IWORK,
11533 INFO);
11534 }
11535
11536 //-- dtrsyl --------------------------------------------------------------------
11537 void
11538 LAPACK_DECL(dtrsyl)(const char *TRANA,
11539 const char *TRANB,
11540 const INTEGER *ISGN,
11541 const INTEGER *M,
11542 const INTEGER *N,
11543 const DOUBLE *A,
11544 const INTEGER *LDA,
11545 const DOUBLE *B,
11546 const INTEGER *LDB,
11547 DOUBLE *C,
11548 const INTEGER *LDC,
11549 DOUBLE *SCALE,
11550 INTEGER *INFO)
11551 {
11552 DEBUG_LAPACK_STUB("dtrsyl");
11553 LAPACK_IMPL(dtrsyl)(TRANA,
11554 TRANB,
11555 ISGN,
11556 M,
11557 N,
11558 A,
11559 LDA,
11560 B,
11561 LDB,
11562 C,
11563 LDC,
11564 SCALE,
11565 INFO);
11566 }
11567
11568 //-- dtrti2 --------------------------------------------------------------------
11569 void
11570 LAPACK_DECL(dtrti2)(const char *UPLO,
11571 const char *DIAG,
11572 const INTEGER *N,
11573 DOUBLE *A,
11574 const INTEGER *LDA,
11575 INTEGER *INFO)
11576 {
11577 DEBUG_LAPACK_STUB("dtrti2");
11578 LAPACK_IMPL(dtrti2)(UPLO,
11579 DIAG,
11580 N,
11581 A,
11582 LDA,
11583 INFO);
11584 }
11585
11586 //-- dtrtri --------------------------------------------------------------------
11587 /*
11588 void
11589 LAPACK_DECL(dtrtri)(const char *UPLO,
11590 const char *DIAG,
11591 const INTEGER *N,
11592 DOUBLE *A,
11593 const INTEGER *LDA,
11594 INTEGER *INFO)
11595 {
11596 DEBUG_LAPACK_STUB("dtrtri");
11597 LAPACK_IMPL(dtrtri)(UPLO,
11598 DIAG,
11599 N,
11600 A,
11601 LDA,
11602 INFO);
11603 }
11604 */
11605 //-- dtrtrs --------------------------------------------------------------------
11606 /*
11607 void
11608 LAPACK_DECL(dtrtrs)(const char *UPLO,
11609 const char *TRANS,
11610 const char *DIAG,
11611 const INTEGER *N,
11612 const INTEGER *NRHS,
11613 const DOUBLE *A,
11614 const INTEGER *LDA,
11615 DOUBLE *B,
11616 const INTEGER *LDB,
11617 INTEGER *INFO)
11618 {
11619 DEBUG_LAPACK_STUB("dtrtrs");
11620 LAPACK_IMPL(dtrtrs)(UPLO,
11621 TRANS,
11622 DIAG,
11623 N,
11624 NRHS,
11625 A,
11626 LDA,
11627 B,
11628 LDB,
11629 INFO);
11630 }
11631 */
11632 //-- dtrttf --------------------------------------------------------------------
11633 void
11634 LAPACK_DECL(dtrttf)(const char *TRANSR,
11635 const char *UPLO,
11636 const INTEGER *N,
11637 const DOUBLE *A,
11638 const INTEGER *LDA,
11639 DOUBLE *ARF,
11640 INTEGER *INFO)
11641 {
11642 DEBUG_LAPACK_STUB("dtrttf");
11643 LAPACK_IMPL(dtrttf)(TRANSR,
11644 UPLO,
11645 N,
11646 A,
11647 LDA,
11648 ARF,
11649 INFO);
11650 }
11651
11652 //-- dtrttp --------------------------------------------------------------------
11653 void
11654 LAPACK_DECL(dtrttp)(const char *UPLO,
11655 const INTEGER *N,
11656 const DOUBLE *A,
11657 const INTEGER *LDA,
11658 DOUBLE *AP,
11659 INTEGER *INFO)
11660 {
11661 DEBUG_LAPACK_STUB("dtrttp");
11662 LAPACK_IMPL(dtrttp)(UPLO,
11663 N,
11664 A,
11665 LDA,
11666 AP,
11667 INFO);
11668 }
11669
11670 //-- dtzrqf --------------------------------------------------------------------
11671 void
11672 LAPACK_DECL(dtzrqf)(const INTEGER *M,
11673 const INTEGER *N,
11674 DOUBLE *A,
11675 const INTEGER *LDA,
11676 DOUBLE *TAU,
11677 INTEGER *INFO)
11678 {
11679 DEBUG_LAPACK_STUB("dtzrqf");
11680 LAPACK_IMPL(dtzrqf)(M,
11681 N,
11682 A,
11683 LDA,
11684 TAU,
11685 INFO);
11686 }
11687
11688 //-- dtzrzf --------------------------------------------------------------------
11689 void
11690 LAPACK_DECL(dtzrzf)(const INTEGER *M,
11691 const INTEGER *N,
11692 DOUBLE *A,
11693 const INTEGER *LDA,
11694 DOUBLE *TAU,
11695 DOUBLE *WORK,
11696 const INTEGER *LWORK,
11697 INTEGER *INFO)
11698 {
11699 DEBUG_LAPACK_STUB("dtzrzf");
11700 LAPACK_IMPL(dtzrzf)(M,
11701 N,
11702 A,
11703 LDA,
11704 TAU,
11705 WORK,
11706 LWORK,
11707 INFO);
11708 }
11709
11710 //-- dzsum1 --------------------------------------------------------------------
11711 DOUBLE
11712 LAPACK_DECL(dzsum1)(const INTEGER *N,
11713 const DOUBLE_COMPLEX *CX,
11714 const INTEGER *INCX)
11715 {
11716 DEBUG_LAPACK_STUB("dzsum1");
11717 return LAPACK_IMPL(dzsum1)(N,
11718 CX,
11719 INCX);
11720 }
11721
11722 //-- ieeeck --------------------------------------------------------------------
11723 INTEGER
11724 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
11725 const FLOAT *ZERO,
11726 const FLOAT *ONE)
11727 {
11728 DEBUG_LAPACK_STUB("ieeeck");
11729 return LAPACK_IMPL(ieeeck)(ISPEC,
11730 ZERO,
11731 ONE);
11732 }
11733
11734 //-- iladlc --------------------------------------------------------------------
11735 INTEGER
11736 LAPACK_DECL(iladlc)(const INTEGER *M,
11737 const INTEGER *N,
11738 const DOUBLE *A,
11739 const INTEGER *LDA)
11740 {
11741 DEBUG_LAPACK_STUB("iladlc");
11742 return LAPACK_IMPL(iladlc)(M,
11743 N,
11744 A,
11745 LDA);
11746 }
11747
11748 //-- iladlr --------------------------------------------------------------------
11749 INTEGER
11750 LAPACK_DECL(iladlr)(const INTEGER *M,
11751 const INTEGER *N,
11752 const DOUBLE *A,
11753 const INTEGER *LDA)
11754 {
11755 DEBUG_LAPACK_STUB("iladlr");
11756 return LAPACK_IMPL(iladlr)(M,
11757 N,
11758 A,
11759 LDA);
11760 }
11761
11762 //-- ilaslc --------------------------------------------------------------------
11763 INTEGER
11764 LAPACK_DECL(ilaslc)(const INTEGER *M,
11765 const INTEGER *N,
11766 const FLOAT *A,
11767 const INTEGER *LDA)
11768 {
11769 DEBUG_LAPACK_STUB("ilaslc");
11770 return LAPACK_IMPL(ilaslc)(M,
11771 N,
11772 A,
11773 LDA);
11774 }
11775
11776 //-- ilaslr --------------------------------------------------------------------
11777 INTEGER
11778 LAPACK_DECL(ilaslr)(const INTEGER *M,
11779 const INTEGER *N,
11780 const FLOAT *A,
11781 const INTEGER *LDA)
11782 {
11783 DEBUG_LAPACK_STUB("ilaslr");
11784 return LAPACK_IMPL(ilaslr)(M,
11785 N,
11786 A,
11787 LDA);
11788 }
11789
11790 //-- ilatrans ------------------------------------------------------------------
11791 INTEGER
11792 LAPACK_DECL(ilatrans)(const char *TRANS)
11793 {
11794 DEBUG_LAPACK_STUB("ilatrans");
11795 return LAPACK_IMPL(ilatrans)(TRANS);
11796 }
11797
11798 //-- ilauplo -------------------------------------------------------------------
11799 INTEGER
11800 LAPACK_DECL(ilauplo)(const char *UPLO)
11801 {
11802 DEBUG_LAPACK_STUB("ilauplo");
11803 return LAPACK_IMPL(ilauplo)(UPLO);
11804 }
11805
11806 //-- ilaver --------------------------------------------------------------------
11807 void
11808 LAPACK_DECL(ilaver)(INTEGER *VERS_MAJOR,
11809 INTEGER *VERS_MINOR,
11810 INTEGER *VERS_PATCH)
11811 {
11812 DEBUG_LAPACK_STUB("ilaver");
11813 LAPACK_IMPL(ilaver)(VERS_MAJOR,
11814 VERS_MINOR,
11815 VERS_PATCH);
11816 }
11817
11818 //-- lsame ---------------------------------------------------------------------
11819 /*
11820 LOGICAL
11821 LAPACK_DECL(lsame)(const char *CA,
11822 const char *CB)
11823 {
11824 DEBUG_LAPACK_STUB("lsame");
11825 return LAPACK_IMPL(lsame)(CA,
11826 CB);
11827 }
11828 */
11829 //-- lsamen --------------------------------------------------------------------
11830 /*
11831 LOGICAL
11832 LAPACK_DECL(lsamen)(const INTEGER *N,
11833 const char *CA,
11834 const char *CB)
11835 {
11836 DEBUG_LAPACK_STUB("lsamen");
11837 return LAPACK_IMPL(lsamen)(N,
11838 CA,
11839 CB);
11840 }
11841 */
11842 //-- sgetf2 --------------------------------------------------------------------
11843 void
11844 LAPACK_DECL(sgetf2)(const INTEGER *M,
11845 const INTEGER *N,
11846 FLOAT *A,
11847 const INTEGER *LDA,
11848 INTEGER *IPIV,
11849 INTEGER *INFO)
11850 {
11851 DEBUG_LAPACK_STUB("sgetf2");
11852 LAPACK_IMPL(sgetf2)(M,
11853 N,
11854 A,
11855 LDA,
11856 IPIV,
11857 INFO);
11858 }
11859
11860 //-- sgetrf --------------------------------------------------------------------
11861 void
11862 LAPACK_DECL(sgetrf)(const INTEGER *M,
11863 const INTEGER *N,
11864 FLOAT *A,
11865 const INTEGER *LDA,
11866 INTEGER *IPIV,
11867 INTEGER *INFO)
11868 {
11869 DEBUG_LAPACK_STUB("sgetrf");
11870 LAPACK_IMPL(sgetrf)(M,
11871 N,
11872 A,
11873 LDA,
11874 IPIV,
11875 INFO);
11876 }
11877
11878 //-- sgetrs --------------------------------------------------------------------
11879 void
11880 LAPACK_DECL(sgetrs)(const char *TRANS,
11881 const INTEGER *N,
11882 const INTEGER *NRHS,
11883 const FLOAT *A,
11884 const INTEGER *LDA,
11885 const INTEGER *IPIV,
11886 FLOAT *B,
11887 const INTEGER *LDB,
11888 INTEGER *INFO)
11889 {
11890 DEBUG_LAPACK_STUB("sgetrs");
11891 LAPACK_IMPL(sgetrs)(TRANS,
11892 N,
11893 NRHS,
11894 A,
11895 LDA,
11896 IPIV,
11897 B,
11898 LDB,
11899 INFO);
11900 }
11901
11902 //-- sisnan --------------------------------------------------------------------
11903 LOGICAL
11904 LAPACK_DECL(sisnan)(const FLOAT *SIN)
11905 {
11906 DEBUG_LAPACK_STUB("sisnan");
11907 return LAPACK_IMPL(sisnan)(SIN);
11908 }
11909
11910 //-- slag2d --------------------------------------------------------------------
11911 void
11912 LAPACK_DECL(slag2d)(const INTEGER *M,
11913 const INTEGER *N,
11914 const FLOAT *SA,
11915 const INTEGER *LDSA,
11916 DOUBLE *A,
11917 const INTEGER *LDA,
11918 INTEGER *INFO)
11919 {
11920 DEBUG_LAPACK_STUB("slag2d");
11921 LAPACK_IMPL(slag2d)(M,
11922 N,
11923 SA,
11924 LDSA,
11925 A,
11926 LDA,
11927 INFO);
11928 }
11929
11930 //-- slaisnan ------------------------------------------------------------------
11931 LOGICAL
11932 LAPACK_DECL(slaisnan)(const FLOAT *SIN1,
11933 const FLOAT *SIN2)
11934 {
11935 DEBUG_LAPACK_STUB("slaisnan");
11936 return LAPACK_IMPL(slaisnan)(SIN1,
11937 SIN2);
11938 }
11939
11940 //-- slamch --------------------------------------------------------------------
11941 FLOAT
11942 LAPACK_DECL(slamch)(const char *CMACH)
11943 {
11944 DEBUG_LAPACK_STUB("slamch");
11945 return LAPACK_IMPL(slamch)(CMACH);
11946 }
11947
11948 //-- slaswp --------------------------------------------------------------------
11949 void
11950 LAPACK_DECL(slaswp)(const INTEGER *N,
11951 FLOAT *A,
11952 const INTEGER *LDA,
11953 const INTEGER *K1,
11954 const INTEGER *K2,
11955 const INTEGER *IPIV,
11956 const INTEGER *INCX)
11957 {
11958 DEBUG_LAPACK_STUB("slaswp");
11959 LAPACK_IMPL(slaswp)(N,
11960 A,
11961 LDA,
11962 K1,
11963 K2,
11964 IPIV,
11965 INCX);
11966 }
11967
11968 //-- spotf2 --------------------------------------------------------------------
11969 void
11970 LAPACK_DECL(spotf2)(const char *UPLO,
11971 const INTEGER *N,
11972 FLOAT *A,
11973 const INTEGER *LDA,
11974 INTEGER *INFO)
11975 {
11976 DEBUG_LAPACK_STUB("spotf2");
11977 LAPACK_IMPL(spotf2)(UPLO,
11978 N,
11979 A,
11980 LDA,
11981 INFO);
11982 }
11983
11984 //-- spotrf --------------------------------------------------------------------
11985 void
11986 LAPACK_DECL(spotrf)(const char *UPLO,
11987 const INTEGER *N,
11988 FLOAT *A,
11989 const INTEGER *LDA,
11990 INTEGER *INFO)
11991 {
11992 DEBUG_LAPACK_STUB("spotrf");
11993 LAPACK_IMPL(spotrf)(UPLO,
11994 N,
11995 A,
11996 LDA,
11997 INFO);
11998 }
11999
12000 //-- spotrs --------------------------------------------------------------------
12001 void
12002 LAPACK_DECL(spotrs)(const char *UPLO,
12003 const INTEGER *N,
12004 const INTEGER *NRHS,
12005 const FLOAT *A,
12006 const INTEGER *LDA,
12007 FLOAT *B,
12008 const INTEGER *LDB,
12009 INTEGER *INFO)
12010 {
12011 DEBUG_LAPACK_STUB("spotrs");
12012 LAPACK_IMPL(spotrs)(UPLO,
12013 N,
12014 NRHS,
12015 A,
12016 LDA,
12017 B,
12018 LDB,
12019 INFO);
12020 }
12021