1 //-- lsamen --------------------------------------------------------------------
2 /*
3 LOGICAL
4 LAPACK_DECL(lsamen)(const INTEGER *N,
5 const char *CA,
6 const char *CB)
7 {
8 DEBUG_LAPACK_STUB("lsamen");
9 return LAPACK_IMPL(lsamen)(N, CA, CB);
10 }
11 */
12
13 //-- dbbcsd --------------------------------------------------------------------
14 void
15 LAPACK_DECL(dbbcsd)(const char *JOBU1,
16 const char *JOBU2,
17 const char *JOBV1T,
18 const char *JOBV2T,
19 const char *TRANS,
20 const INTEGER *M,
21 const INTEGER *P,
22 const INTEGER *Q,
23 DOUBLE *THETA,
24 const DOUBLE *PHI,
25 DOUBLE *U1,
26 const INTEGER *LDU1,
27 DOUBLE *U2,
28 const INTEGER *LDU2,
29 DOUBLE *V1T,
30 const INTEGER *LDV1T,
31 DOUBLE *V2T,
32 const INTEGER *LDV2T,
33 DOUBLE *B11D,
34 DOUBLE *B11E,
35 DOUBLE *B12D,
36 DOUBLE *B12E,
37 const DOUBLE *B21D,
38 const DOUBLE *B21E,
39 const DOUBLE *B22D,
40 const DOUBLE *B22E,
41 const DOUBLE *WORK,
42 const INTEGER *LWORK,
43 INTEGER *INFO)
44 {
45 DEBUG_LAPACK_STUB("dbbcsd");
46 LAPACK_IMPL(dbbcsd)(JOBU1,
47 JOBU2,
48 JOBV1T,
49 JOBV2T,
50 TRANS,
51 M,
52 P,
53 Q,
54 THETA,
55 PHI,
56 U1,
57 LDU1,
58 U2,
59 LDU2,
60 V1T,
61 LDV1T,
62 V2T,
63 LDV2T,
64 B11D,
65 B11E,
66 B12D,
67 B12E,
68 B21D,
69 B21E,
70 B22D,
71 B22E,
72 WORK,
73 LWORK,
74 INFO);
75 }
76
77 //-- dbdsdc --------------------------------------------------------------------
78 void
79 LAPACK_DECL(dbdsdc)(const char *UPLO,
80 const char *COMPQ,
81 const INTEGER *N,
82 DOUBLE *D,
83 DOUBLE *E,
84 DOUBLE *U,
85 const INTEGER *LDU,
86 DOUBLE *VT,
87 const INTEGER *LDVT,
88 DOUBLE *Q,
89 INTEGER *IQ,
90 const DOUBLE *WORK,
91 const INTEGER *IWORK,
92 INTEGER *INFO)
93 {
94 DEBUG_LAPACK_STUB("dbdsdc");
95 LAPACK_IMPL(dbdsdc)(UPLO,
96 COMPQ,
97 N,
98 D,
99 E,
100 U,
101 LDU,
102 VT,
103 LDVT,
104 Q,
105 IQ,
106 WORK,
107 IWORK,
108 INFO);
109 }
110
111 //-- dbdsqr --------------------------------------------------------------------
112 void
113 LAPACK_DECL(dbdsqr)(const char *UPLO,
114 const INTEGER *N,
115 const INTEGER *NCVT,
116 const INTEGER *NRU,
117 const INTEGER *NCC,
118 DOUBLE *D,
119 DOUBLE *E,
120 DOUBLE *VT,
121 const INTEGER *LDVT,
122 DOUBLE *U,
123 const INTEGER *LDU,
124 DOUBLE *C,
125 const INTEGER *LDC,
126 const DOUBLE *WORK,
127 INTEGER *INFO)
128 {
129 DEBUG_LAPACK_STUB("dbdsqr");
130 LAPACK_IMPL(dbdsqr)(UPLO,
131 N,
132 NCVT,
133 NRU,
134 NCC,
135 D,
136 E,
137 VT,
138 LDVT,
139 U,
140 LDU,
141 C,
142 LDC,
143 WORK,
144 INFO);
145 }
146
147 //-- ddisna --------------------------------------------------------------------
148 void
149 LAPACK_DECL(ddisna)(const char *JOB,
150 const INTEGER *M,
151 const INTEGER *N,
152 const DOUBLE *D,
153 DOUBLE *SEP,
154 INTEGER *INFO)
155 {
156 DEBUG_LAPACK_STUB("ddisna");
157 LAPACK_IMPL(ddisna)(JOB,
158 M,
159 N,
160 D,
161 SEP,
162 INFO);
163 }
164
165 //-- dgbbrd --------------------------------------------------------------------
166 void
167 LAPACK_DECL(dgbbrd)(const char *VECT,
168 const INTEGER *M,
169 const INTEGER *N,
170 const INTEGER *NCC,
171 const INTEGER *KL,
172 const INTEGER *KU,
173 DOUBLE *AB,
174 const INTEGER *LDAB,
175 DOUBLE *D,
176 DOUBLE *E,
177 DOUBLE *Q,
178 const INTEGER *LDQ,
179 DOUBLE *PT,
180 const INTEGER *LDPT,
181 DOUBLE *C,
182 const INTEGER *LDC,
183 const DOUBLE *WORK,
184 INTEGER *INFO)
185 {
186 DEBUG_LAPACK_STUB("dgbbrd");
187 LAPACK_IMPL(dgbbrd)(VECT,
188 M,
189 N,
190 NCC,
191 KL,
192 KU,
193 AB,
194 LDAB,
195 D,
196 E,
197 Q,
198 LDQ,
199 PT,
200 LDPT,
201 C,
202 LDC,
203 WORK,
204 INFO);
205 }
206
207 //-- dgbcon --------------------------------------------------------------------
208 void
209 LAPACK_DECL(dgbcon)(const char *NORM,
210 const INTEGER *N,
211 const INTEGER *KL,
212 const INTEGER *KU,
213 const DOUBLE *AB,
214 const INTEGER *LDAB,
215 const INTEGER *IPIV,
216 const DOUBLE *ANORM,
217 DOUBLE *RCOND,
218 const DOUBLE *WORK,
219 const INTEGER *IWORK,
220 INTEGER *INFO)
221 {
222 DEBUG_LAPACK_STUB("dgbcon");
223 LAPACK_IMPL(dgbcon)(NORM,
224 N,
225 KL,
226 KU,
227 AB,
228 LDAB,
229 IPIV,
230 ANORM,
231 RCOND,
232 WORK,
233 IWORK,
234 INFO);
235 }
236
237 //-- dgbequ --------------------------------------------------------------------
238 void
239 LAPACK_DECL(dgbequ)(const INTEGER *M,
240 const INTEGER *N,
241 const INTEGER *KL,
242 const INTEGER *KU,
243 const DOUBLE *AB,
244 const INTEGER *LDAB,
245 DOUBLE *R,
246 DOUBLE *C,
247 DOUBLE *ROWCND,
248 DOUBLE *COLCND,
249 DOUBLE *AMAX,
250 INTEGER *INFO)
251 {
252 DEBUG_LAPACK_STUB("dgbequ");
253 LAPACK_IMPL(dgbequ)(M,
254 N,
255 KL,
256 KU,
257 AB,
258 LDAB,
259 R,
260 C,
261 ROWCND,
262 COLCND,
263 AMAX,
264 INFO);
265 }
266
267 //-- dgbequb -------------------------------------------------------------------
268 void
269 LAPACK_DECL(dgbequb)(const INTEGER *M,
270 const INTEGER *N,
271 const INTEGER *KL,
272 const INTEGER *KU,
273 const DOUBLE *AB,
274 const INTEGER *LDAB,
275 DOUBLE *R,
276 DOUBLE *C,
277 DOUBLE *ROWCND,
278 DOUBLE *COLCND,
279 DOUBLE *AMAX,
280 INTEGER *INFO)
281 {
282 DEBUG_LAPACK_STUB("dgbequb");
283 LAPACK_IMPL(dgbequb)(M,
284 N,
285 KL,
286 KU,
287 AB,
288 LDAB,
289 R,
290 C,
291 ROWCND,
292 COLCND,
293 AMAX,
294 INFO);
295 }
296
297 //-- dgbrfs --------------------------------------------------------------------
298 void
299 LAPACK_DECL(dgbrfs)(const char *TRANS,
300 const INTEGER *N,
301 const INTEGER *KL,
302 const INTEGER *KU,
303 const INTEGER *NRHS,
304 const DOUBLE *AB,
305 const INTEGER *LDAB,
306 const DOUBLE *AFB,
307 const INTEGER *LDAFB,
308 const INTEGER *IPIV,
309 const DOUBLE *B,
310 const INTEGER *LDB,
311 DOUBLE *X,
312 const INTEGER *LDX,
313 DOUBLE *FERR,
314 DOUBLE *BERR,
315 const DOUBLE *WORK,
316 const INTEGER *IWORK,
317 INTEGER *INFO)
318 {
319 DEBUG_LAPACK_STUB("dgbrfs");
320 LAPACK_IMPL(dgbrfs)(TRANS,
321 N,
322 KL,
323 KU,
324 NRHS,
325 AB,
326 LDAB,
327 AFB,
328 LDAFB,
329 IPIV,
330 B,
331 LDB,
332 X,
333 LDX,
334 FERR,
335 BERR,
336 WORK,
337 IWORK,
338 INFO);
339 }
340
341 //-- dgbsv ---------------------------------------------------------------------
342 void
343 LAPACK_DECL(dgbsv)(const INTEGER *N,
344 const INTEGER *KL,
345 const INTEGER *KU,
346 const INTEGER *NRHS,
347 DOUBLE *AB,
348 const INTEGER *LDAB,
349 INTEGER *IPIV,
350 DOUBLE *B,
351 const INTEGER *LDB,
352 INTEGER *INFO)
353 {
354 DEBUG_LAPACK_STUB("dgbsv");
355 LAPACK_IMPL(dgbsv)(N,
356 KL,
357 KU,
358 NRHS,
359 AB,
360 LDAB,
361 IPIV,
362 B,
363 LDB,
364 INFO);
365 }
366
367 //-- dgbsvx --------------------------------------------------------------------
368 void
369 LAPACK_DECL(dgbsvx)(const char *FACT,
370 const char *TRANS,
371 const INTEGER *N,
372 const INTEGER *KL,
373 const INTEGER *KU,
374 const INTEGER *NRHS,
375 DOUBLE *AB,
376 const INTEGER *LDAB,
377 DOUBLE *AFB,
378 const INTEGER *LDAFB,
379 INTEGER *IPIV,
380 char *EQUED,
381 DOUBLE *R,
382 DOUBLE *C,
383 DOUBLE *B,
384 const INTEGER *LDB,
385 DOUBLE *X,
386 const INTEGER *LDX,
387 DOUBLE *RCOND,
388 DOUBLE *FERR,
389 DOUBLE *BERR,
390 DOUBLE *WORK,
391 const INTEGER *IWORK,
392 INTEGER *INFO)
393 {
394 DEBUG_LAPACK_STUB("dgbsvx");
395 LAPACK_IMPL(dgbsvx)(FACT,
396 TRANS,
397 N,
398 KL,
399 KU,
400 NRHS,
401 AB,
402 LDAB,
403 AFB,
404 LDAFB,
405 IPIV,
406 EQUED,
407 R,
408 C,
409 B,
410 LDB,
411 X,
412 LDX,
413 RCOND,
414 FERR,
415 BERR,
416 WORK,
417 IWORK,
418 INFO);
419 }
420
421 //-- dgbtf2 --------------------------------------------------------------------
422 void
423 LAPACK_DECL(dgbtf2)(const INTEGER *M,
424 const INTEGER *N,
425 const INTEGER *KL,
426 const INTEGER *KU,
427 DOUBLE *AB,
428 const INTEGER *LDAB,
429 INTEGER *IPIV,
430 INTEGER *INFO)
431 {
432 DEBUG_LAPACK_STUB("dgbtf2");
433 LAPACK_IMPL(dgbtf2)(M,
434 N,
435 KL,
436 KU,
437 AB,
438 LDAB,
439 IPIV,
440 INFO);
441 }
442
443 //-- dgbtrf --------------------------------------------------------------------
444 void
445 LAPACK_DECL(dgbtrf)(const INTEGER *M,
446 const INTEGER *N,
447 const INTEGER *KL,
448 const INTEGER *KU,
449 DOUBLE *AB,
450 const INTEGER *LDAB,
451 INTEGER *IPIV,
452 INTEGER *INFO)
453 {
454 DEBUG_LAPACK_STUB("dgbtrf");
455 LAPACK_IMPL(dgbtrf)(M,
456 N,
457 KL,
458 KU,
459 AB,
460 LDAB,
461 IPIV,
462 INFO);
463 }
464
465 //-- dgbtrs --------------------------------------------------------------------
466 void
467 LAPACK_DECL(dgbtrs)(const char *TRANS,
468 const INTEGER *N,
469 const INTEGER *KL,
470 const INTEGER *KU,
471 const INTEGER *NRHS,
472 const DOUBLE *AB,
473 const INTEGER *LDAB,
474 const INTEGER *IPIV,
475 DOUBLE *B,
476 const INTEGER *LDB,
477 INTEGER *INFO)
478 {
479 DEBUG_LAPACK_STUB("dgbtrs");
480 LAPACK_IMPL(dgbtrs)(TRANS,
481 N,
482 KL,
483 KU,
484 NRHS,
485 AB,
486 LDAB,
487 IPIV,
488 B,
489 LDB,
490 INFO);
491 }
492
493 //-- dgebak --------------------------------------------------------------------
494 void
495 LAPACK_DECL(dgebak)(const char *JOB,
496 const char *SIDE,
497 const INTEGER *N,
498 const INTEGER *ILO,
499 const INTEGER *IHI,
500 const DOUBLE *SCALE,
501 const INTEGER *M,
502 DOUBLE *V,
503 const INTEGER *LDV,
504 INTEGER *INFO)
505 {
506 DEBUG_LAPACK_STUB("dgebak");
507 LAPACK_IMPL(dgebak)(JOB,
508 SIDE,
509 N,
510 ILO,
511 IHI,
512 SCALE,
513 M,
514 V,
515 LDV,
516 INFO);
517 }
518
519 //-- dgebal --------------------------------------------------------------------
520 void
521 LAPACK_DECL(dgebal)(const char *JOB,
522 const INTEGER *N,
523 DOUBLE *A,
524 const INTEGER *LDA,
525 INTEGER *ILO,
526 INTEGER *IHI,
527 DOUBLE *SCALE,
528 INTEGER *INFO)
529 {
530 DEBUG_LAPACK_STUB("dgebal");
531 LAPACK_IMPL(dgebal)(JOB,
532 N,
533 A,
534 LDA,
535 ILO,
536 IHI,
537 SCALE,
538 INFO);
539 }
540
541 //-- dgebd2 --------------------------------------------------------------------
542 void
543 LAPACK_DECL(dgebd2)(const INTEGER *M,
544 const INTEGER *N,
545 DOUBLE *A,
546 const INTEGER *LDA,
547 DOUBLE *D,
548 DOUBLE *E,
549 DOUBLE *TAUQ,
550 DOUBLE *TAUP,
551 const DOUBLE *WORK,
552 INTEGER *INFO)
553 {
554 DEBUG_LAPACK_STUB("dgebd2");
555 LAPACK_IMPL(dgebd2)(M,
556 N,
557 A,
558 LDA,
559 D,
560 E,
561 TAUQ,
562 TAUP,
563 WORK,
564 INFO);
565 }
566
567 //-- dgebrd --------------------------------------------------------------------
568 void
569 LAPACK_DECL(dgebrd)(const INTEGER *M,
570 const INTEGER *N,
571 DOUBLE *A,
572 const INTEGER *LDA,
573 DOUBLE *D,
574 DOUBLE *E,
575 DOUBLE *TAUQ,
576 DOUBLE *TAUP,
577 DOUBLE *WORK,
578 const INTEGER *LWORK,
579 INTEGER *INFO)
580 {
581 DEBUG_LAPACK_STUB("dgebrd");
582 LAPACK_IMPL(dgebrd)(M,
583 N,
584 A,
585 LDA,
586 D,
587 E,
588 TAUQ,
589 TAUP,
590 WORK,
591 LWORK,
592 INFO);
593 }
594
595 //-- dgecon --------------------------------------------------------------------
596 /*
597 void
598 LAPACK_DECL(dgecon)(const char *NORM,
599 const INTEGER *N,
600 const DOUBLE *A,
601 const INTEGER *LDA,
602 const DOUBLE *ANORM,
603 DOUBLE *RCOND,
604 const DOUBLE *WORK,
605 const INTEGER *IWORK,
606 INTEGER *INFO)
607 {
608 DEBUG_LAPACK_STUB("dgecon");
609 LAPACK_IMPL(dgecon)(NORM,
610 N,
611 A,
612 LDA,
613 ANORM,
614 RCOND,
615 WORK,
616 IWORK,
617 INFO);
618 }
619 */
620
621 //-- dgeequ --------------------------------------------------------------------
622 /*
623 void
624 LAPACK_DECL(dgeequ)(const INTEGER *M,
625 const INTEGER *N,
626 const DOUBLE *A,
627 const INTEGER *LDA,
628 DOUBLE *R,
629 DOUBLE *C,
630 DOUBLE *ROWCND,
631 DOUBLE *COLCND,
632 DOUBLE *AMAX,
633 INTEGER *INFO)
634 {
635 DEBUG_LAPACK_STUB("dgeequ");
636 LAPACK_IMPL(dgeequ)(M,
637 N,
638 A,
639 LDA,
640 R,
641 C,
642 ROWCND,
643 COLCND,
644 AMAX,
645 INFO);
646 }
647 */
648
649 //-- dgeequb -------------------------------------------------------------------
650 void
651 LAPACK_DECL(dgeequb)(const INTEGER *M,
652 const INTEGER *N,
653 const DOUBLE *A,
654 const INTEGER *LDA,
655 DOUBLE *R,
656 DOUBLE *C,
657 DOUBLE *ROWCND,
658 DOUBLE *COLCND,
659 DOUBLE *AMAX,
660 INTEGER *INFO)
661 {
662 DEBUG_LAPACK_STUB("dgeequb");
663 LAPACK_IMPL(dgeequb)(M,
664 N,
665 A,
666 LDA,
667 R,
668 C,
669 ROWCND,
670 COLCND,
671 AMAX,
672 INFO);
673 }
674
675 //-- dgees ---------------------------------------------------------------------
676 /*
677 void
678 LAPACK_DECL(dgees)(const char *JOBVS,
679 const char *SORT,
680 LOGICAL (*SELECT)(const DOUBLE *, const DOUBLE *),
681 const INTEGER *N,
682 DOUBLE *A,
683 const INTEGER *LDA,
684 INTEGER *SDIM,
685 DOUBLE *WR,
686 DOUBLE *WI,
687 DOUBLE *VS,
688 const INTEGER *LDVS,
689 DOUBLE *WORK,
690 const INTEGER *LWORK,
691 LOGICAL *BWORK,
692 INTEGER *INFO)
693 {
694 DEBUG_LAPACK_STUB("dgees");
695 LAPACK_IMPL(dgees)(JOBVS,
696 SORT,
697 SELECT,
698 N,
699 A,
700 LDA,
701 SDIM,
702 WR,
703 WI,
704 VS,
705 LDVS,
706 WORK,
707 LWORK,
708 BWORK,
709 INFO);
710 }
711 */
712
713 //-- dgeesx --------------------------------------------------------------------
714 /*
715 void
716 LAPACK_DECL(dgeesx)(const char *JOBVS,
717 const char *SORT,
718 const LOGICAL *SELECT,
719 const char *SENSE,
720 const INTEGER *N,
721 DOUBLE *A,
722 const INTEGER *LDA,
723 INTEGER *SDIM,
724 DOUBLE *WR,
725 DOUBLE *WI,
726 DOUBLE *VS,
727 const INTEGER *LDVS,
728 DOUBLE *RCONDE,
729 DOUBLE *RCONDV,
730 DOUBLE *WORK,
731 const INTEGER *LWORK,
732 INTEGER *IWORK,
733 const INTEGER *LIWORK,
734 const LOGICAL *BWORK,
735 INTEGER *INFO)
736 {
737 DEBUG_LAPACK_STUB("dgeesx");
738 LAPACK_IMPL(dgeesx)(JOBVS,
739 SORT,
740 SELECT,
741 SENSE,
742 N,
743 A,
744 LDA,
745 SDIM,
746 WR,
747 WI,
748 VS,
749 LDVS,
750 RCONDE,
751 RCONDV,
752 WORK,
753 LWORK,
754 IWORK,
755 LIWORK,
756 BWORK,
757 INFO);
758 }
759 */
760
761 //-- dgeevx --------------------------------------------------------------------
762 /*
763 void
764 LAPACK_DECL(dgeevx)(const char *BALANC,
765 const char *JOBVL,
766 const char *JOBVR,
767 const char *SENSE,
768 const INTEGER *N,
769 DOUBLE *A,
770 const INTEGER *LDA,
771 DOUBLE *WR,
772 DOUBLE *WI,
773 DOUBLE *VL,
774 const INTEGER *LDVL,
775 DOUBLE *VR,
776 const INTEGER *LDVR,
777 INTEGER *ILO,
778 INTEGER *IHI,
779 DOUBLE *SCALE,
780 DOUBLE *ABNRM,
781 DOUBLE *RCONDE,
782 DOUBLE *RCONDV,
783 DOUBLE *WORK,
784 const INTEGER *LWORK,
785 INTEGER *IWORK,
786 INTEGER *INFO)
787 {
788 DEBUG_LAPACK_STUB("dgeevx");
789 LAPACK_IMPL(dgeevx)(BALANC,
790 JOBVL,
791 JOBVR,
792 SENSE,
793 N,
794 A,
795 LDA,
796 WR,
797 WI,
798 VL,
799 LDVL,
800 VR,
801 LDVR,
802 ILO,
803 IHI,
804 SCALE,
805 ABNRM,
806 RCONDE,
807 RCONDV,
808 WORK,
809 LWORK,
810 IWORK,
811 INFO);
812 }
813 */
814
815 //-- dgegs ---------------------------------------------------------------------
816 void
817 LAPACK_DECL(dgegs)(const char *JOBVSL,
818 const char *JOBVSR,
819 const INTEGER *N,
820 DOUBLE *A,
821 const INTEGER *LDA,
822 DOUBLE *B,
823 const INTEGER *LDB,
824 DOUBLE *ALPHAR,
825 DOUBLE *ALPHAI,
826 DOUBLE *BETA,
827 DOUBLE *VSL,
828 const INTEGER *LDVSL,
829 DOUBLE *VSR,
830 const INTEGER *LDVSR,
831 DOUBLE *WORK,
832 const INTEGER *LWORK,
833 INTEGER *INFO)
834 {
835 DEBUG_LAPACK_STUB("dgegs");
836 LAPACK_IMPL(dgegs)(JOBVSL,
837 JOBVSR,
838 N,
839 A,
840 LDA,
841 B,
842 LDB,
843 ALPHAR,
844 ALPHAI,
845 BETA,
846 VSL,
847 LDVSL,
848 VSR,
849 LDVSR,
850 WORK,
851 LWORK,
852 INFO);
853 }
854
855 //-- dgegv ---------------------------------------------------------------------
856 void
857 LAPACK_DECL(dgegv)(const char *JOBVL,
858 const char *JOBVR,
859 const INTEGER *N,
860 DOUBLE *A,
861 const INTEGER *LDA,
862 DOUBLE *B,
863 const INTEGER *LDB,
864 DOUBLE *ALPHAR,
865 DOUBLE *ALPHAI,
866 DOUBLE *BETA,
867 DOUBLE *VL,
868 const INTEGER *LDVL,
869 DOUBLE *VR,
870 const INTEGER *LDVR,
871 DOUBLE *WORK,
872 const INTEGER *LWORK,
873 INTEGER *INFO)
874 {
875 DEBUG_LAPACK_STUB("dgegv");
876 LAPACK_IMPL(dgegv)(JOBVL,
877 JOBVR,
878 N,
879 A,
880 LDA,
881 B,
882 LDB,
883 ALPHAR,
884 ALPHAI,
885 BETA,
886 VL,
887 LDVL,
888 VR,
889 LDVR,
890 WORK,
891 LWORK,
892 INFO);
893 }
894
895 //-- dgehd2 --------------------------------------------------------------------
896 void
897 LAPACK_DECL(dgehd2)(const INTEGER *N,
898 const INTEGER *ILO,
899 const INTEGER *IHI,
900 DOUBLE *A,
901 const INTEGER *LDA,
902 DOUBLE *TAU,
903 DOUBLE *WORK,
904 INTEGER *INFO)
905 {
906 DEBUG_LAPACK_STUB("dgehd2");
907 LAPACK_IMPL(dgehd2)(N,
908 ILO,
909 IHI,
910 A,
911 LDA,
912 TAU,
913 WORK,
914 INFO);
915 }
916
917 //-- dgehrd --------------------------------------------------------------------
918 void
919 LAPACK_DECL(dgehrd)(const INTEGER *N,
920 const INTEGER *ILO,
921 const INTEGER *IHI,
922 DOUBLE *A,
923 const INTEGER *LDA,
924 DOUBLE *TAU,
925 DOUBLE *WORK,
926 const INTEGER *LWORK,
927 INTEGER *INFO)
928 {
929 DEBUG_LAPACK_STUB("dgehrd");
930 LAPACK_IMPL(dgehrd)(N,
931 ILO,
932 IHI,
933 A,
934 LDA,
935 TAU,
936 WORK,
937 LWORK,
938 INFO);
939 }
940
941 //-- dgejsv --------------------------------------------------------------------
942 void
943 LAPACK_DECL(dgejsv)(const char *JOBA,
944 const char *JOBU,
945 const char *JOBV,
946 const char *JOBR,
947 const char *JOBT,
948 const char *JOBP,
949 const INTEGER *M,
950 const INTEGER *N,
951 const DOUBLE *A,
952 const INTEGER *LDA,
953 DOUBLE *SVA,
954 DOUBLE *U,
955 const INTEGER *LDU,
956 DOUBLE *V,
957 const INTEGER *LDV,
958 DOUBLE *WORK,
959 const INTEGER *LWORK,
960 INTEGER *IWORK,
961 INTEGER *INFO)
962 {
963 DEBUG_LAPACK_STUB("dgejsv");
964 LAPACK_IMPL(dgejsv)(JOBA,
965 JOBU,
966 JOBV,
967 JOBR,
968 JOBT,
969 JOBP,
970 M,
971 N,
972 A,
973 LDA,
974 SVA,
975 U,
976 LDU,
977 V,
978 LDV,
979 WORK,
980 LWORK,
981 IWORK,
982 INFO);
983 }
984
985 //-- dgelq2 --------------------------------------------------------------------
986 void
987 LAPACK_DECL(dgelq2)(const INTEGER *M,
988 const INTEGER *N,
989 DOUBLE *A,
990 const INTEGER *LDA,
991 DOUBLE *TAU,
992 const DOUBLE *WORK,
993 INTEGER *INFO)
994 {
995 DEBUG_LAPACK_STUB("dgelq2");
996 LAPACK_IMPL(dgelq2)(M,
997 N,
998 A,
999 LDA,
1000 TAU,
1001 WORK,
1002 INFO);
1003 }
1004
1005 //-- dgelqf --------------------------------------------------------------------
1006 /*
1007 void
1008 LAPACK_DECL(dgelqf)(const INTEGER *M,
1009 const INTEGER *N,
1010 DOUBLE *A,
1011 const INTEGER *LDA,
1012 DOUBLE *TAU,
1013 DOUBLE *WORK,
1014 const INTEGER *LWORK,
1015 INTEGER *INFO)
1016 {
1017 DEBUG_LAPACK_STUB("dgelqf");
1018 LAPACK_IMPL(dgelqf)(M,
1019 N,
1020 A,
1021 LDA,
1022 TAU,
1023 WORK,
1024 LWORK,
1025 INFO);
1026 }
1027 */
1028
1029 //-- dgels ---------------------------------------------------------------------
1030 void
1031 LAPACK_DECL(dgels)(const char *TRANS,
1032 const INTEGER *M,
1033 const INTEGER *N,
1034 const INTEGER *NRHS,
1035 DOUBLE *A,
1036 const INTEGER *LDA,
1037 DOUBLE *B,
1038 const INTEGER *LDB,
1039 DOUBLE *WORK,
1040 const INTEGER *LWORK,
1041 INTEGER *INFO)
1042 {
1043 DEBUG_LAPACK_STUB("dgels");
1044 LAPACK_IMPL(dgels)(TRANS,
1045 M,
1046 N,
1047 NRHS,
1048 A,
1049 LDA,
1050 B,
1051 LDB,
1052 WORK,
1053 LWORK,
1054 INFO);
1055 }
1056
1057 //-- dgelsd --------------------------------------------------------------------
1058 void
1059 LAPACK_DECL(dgelsd)(const INTEGER *M,
1060 const INTEGER *N,
1061 const INTEGER *NRHS,
1062 const DOUBLE *A,
1063 const INTEGER *LDA,
1064 DOUBLE *B,
1065 const INTEGER *LDB,
1066 DOUBLE *S,
1067 const DOUBLE *RCOND,
1068 INTEGER *RANK,
1069 DOUBLE *WORK,
1070 const INTEGER *LWORK,
1071 const INTEGER *IWORK,
1072 INTEGER *INFO)
1073 {
1074 DEBUG_LAPACK_STUB("dgelsd");
1075 LAPACK_IMPL(dgelsd)(M,
1076 N,
1077 NRHS,
1078 A,
1079 LDA,
1080 B,
1081 LDB,
1082 S,
1083 RCOND,
1084 RANK,
1085 WORK,
1086 LWORK,
1087 IWORK,
1088 INFO);
1089 }
1090
1091 //-- dgelss --------------------------------------------------------------------
1092 void
1093 LAPACK_DECL(dgelss)(const INTEGER *M,
1094 const INTEGER *N,
1095 const INTEGER *NRHS,
1096 DOUBLE *A,
1097 const INTEGER *LDA,
1098 DOUBLE *B,
1099 const INTEGER *LDB,
1100 DOUBLE *S,
1101 const DOUBLE *RCOND,
1102 INTEGER *RANK,
1103 DOUBLE *WORK,
1104 const INTEGER *LWORK,
1105 INTEGER *INFO)
1106 {
1107 DEBUG_LAPACK_STUB("dgelss");
1108 LAPACK_IMPL(dgelss)(M,
1109 N,
1110 NRHS,
1111 A,
1112 LDA,
1113 B,
1114 LDB,
1115 S,
1116 RCOND,
1117 RANK,
1118 WORK,
1119 LWORK,
1120 INFO);
1121 }
1122
1123 //-- dgelsx --------------------------------------------------------------------
1124 void
1125 LAPACK_DECL(dgelsx)(const INTEGER *M,
1126 const INTEGER *N,
1127 const INTEGER *NRHS,
1128 DOUBLE *A,
1129 const INTEGER *LDA,
1130 DOUBLE *B,
1131 const INTEGER *LDB,
1132 INTEGER *JPVT,
1133 const DOUBLE *RCOND,
1134 INTEGER *RANK,
1135 const DOUBLE *WORK,
1136 INTEGER *INFO)
1137 {
1138 DEBUG_LAPACK_STUB("dgelsx");
1139 LAPACK_IMPL(dgelsx)(M,
1140 N,
1141 NRHS,
1142 A,
1143 LDA,
1144 B,
1145 LDB,
1146 JPVT,
1147 RCOND,
1148 RANK,
1149 WORK,
1150 INFO);
1151 }
1152
1153 //-- dgelsy --------------------------------------------------------------------
1154 void
1155 LAPACK_DECL(dgelsy)(const INTEGER *M,
1156 const INTEGER *N,
1157 const INTEGER *NRHS,
1158 DOUBLE *A,
1159 const INTEGER *LDA,
1160 DOUBLE *B,
1161 const INTEGER *LDB,
1162 INTEGER *JPVT,
1163 const DOUBLE *RCOND,
1164 INTEGER *RANK,
1165 DOUBLE *WORK,
1166 const INTEGER *LWORK,
1167 INTEGER *INFO)
1168 {
1169 DEBUG_LAPACK_STUB("dgelsy");
1170 LAPACK_IMPL(dgelsy)(M,
1171 N,
1172 NRHS,
1173 A,
1174 LDA,
1175 B,
1176 LDB,
1177 JPVT,
1178 RCOND,
1179 RANK,
1180 WORK,
1181 LWORK,
1182 INFO);
1183 }
1184
1185 //-- dgeql2 --------------------------------------------------------------------
1186 void
1187 LAPACK_DECL(dgeql2)(const INTEGER *M,
1188 const INTEGER *N,
1189 DOUBLE *A,
1190 const INTEGER *LDA,
1191 DOUBLE *TAU,
1192 const DOUBLE *WORK,
1193 INTEGER *INFO)
1194 {
1195 DEBUG_LAPACK_STUB("dgeql2");
1196 LAPACK_IMPL(dgeql2)(M,
1197 N,
1198 A,
1199 LDA,
1200 TAU,
1201 WORK,
1202 INFO);
1203 }
1204
1205 //-- dgeqlf --------------------------------------------------------------------
1206 void
1207 LAPACK_DECL(dgeqlf)(const INTEGER *M,
1208 const INTEGER *N,
1209 DOUBLE *A,
1210 const INTEGER *LDA,
1211 DOUBLE *TAU,
1212 DOUBLE *WORK,
1213 const INTEGER *LWORK,
1214 INTEGER *INFO)
1215 {
1216 DEBUG_LAPACK_STUB("dgeqlf");
1217 LAPACK_IMPL(dgeqlf)(M,
1218 N,
1219 A,
1220 LDA,
1221 TAU,
1222 WORK,
1223 LWORK,
1224 INFO);
1225 }
1226
1227 //-- dgeqp3 --------------------------------------------------------------------
1228 void
1229 LAPACK_DECL(dgeqp3)(const INTEGER *M,
1230 const INTEGER *N,
1231 DOUBLE *A,
1232 const INTEGER *LDA,
1233 INTEGER *JPVT,
1234 DOUBLE *TAU,
1235 DOUBLE *WORK,
1236 const INTEGER *LWORK,
1237 INTEGER *INFO)
1238 {
1239 DEBUG_LAPACK_STUB("dgeqp3");
1240 LAPACK_IMPL(dgeqp3)(M,
1241 N,
1242 A,
1243 LDA,
1244 JPVT,
1245 TAU,
1246 WORK,
1247 LWORK,
1248 INFO);
1249 }
1250
1251 //-- dgeqpf --------------------------------------------------------------------
1252 void
1253 LAPACK_DECL(dgeqpf)(const INTEGER *M,
1254 const INTEGER *N,
1255 DOUBLE *A,
1256 const INTEGER *LDA,
1257 INTEGER *JPVT,
1258 DOUBLE *TAU,
1259 const DOUBLE *WORK,
1260 INTEGER *INFO)
1261 {
1262 DEBUG_LAPACK_STUB("dgeqpf");
1263 LAPACK_IMPL(dgeqpf)(M,
1264 N,
1265 A,
1266 LDA,
1267 JPVT,
1268 TAU,
1269 WORK,
1270 INFO);
1271 }
1272
1273 //-- dgeqrf --------------------------------------------------------------------
1274 /*
1275 void
1276 LAPACK_DECL(dgeqrf)(const INTEGER *M,
1277 const INTEGER *N,
1278 DOUBLE *A,
1279 const INTEGER *LDA,
1280 DOUBLE *TAU,
1281 DOUBLE *WORK,
1282 const INTEGER *LWORK,
1283 INTEGER *INFO)
1284 {
1285 DEBUG_LAPACK_STUB("dgeqrf");
1286 LAPACK_IMPL(dgeqrf)(M, N, A, LDA, TAU, WORK, LWORK, INFO);
1287 }
1288 */
1289
1290
1291 //-- dgeqr2 --------------------------------------------------------------------
1292 void
1293 LAPACK_DECL(dgeqr2)(const INTEGER *M,
1294 const INTEGER *N,
1295 DOUBLE *A,
1296 const INTEGER *LDA,
1297 DOUBLE *TAU,
1298 const DOUBLE *WORK,
1299 INTEGER *INFO)
1300 {
1301 DEBUG_LAPACK_STUB("dgeqr2");
1302 LAPACK_IMPL(dgeqr2)(M,
1303 N,
1304 A,
1305 LDA,
1306 TAU,
1307 WORK,
1308 INFO);
1309 }
1310
1311 //-- dgeqr2p -------------------------------------------------------------------
1312 void
1313 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
1314 const INTEGER *N,
1315 DOUBLE *A,
1316 const INTEGER *LDA,
1317 DOUBLE *TAU,
1318 const DOUBLE *WORK,
1319 INTEGER *INFO)
1320 {
1321 DEBUG_LAPACK_STUB("dgeqr2p");
1322 LAPACK_IMPL(dgeqr2p)(M,
1323 N,
1324 A,
1325 LDA,
1326 TAU,
1327 WORK,
1328 INFO);
1329 }
1330
1331 //-- dgeqrfp -------------------------------------------------------------------
1332 void
1333 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
1334 const INTEGER *N,
1335 DOUBLE *A,
1336 const INTEGER *LDA,
1337 DOUBLE *TAU,
1338 DOUBLE *WORK,
1339 const INTEGER *LWORK,
1340 INTEGER *INFO)
1341 {
1342 DEBUG_LAPACK_STUB("dgeqrfp");
1343 LAPACK_IMPL(dgeqrfp)(M,
1344 N,
1345 A,
1346 LDA,
1347 TAU,
1348 WORK,
1349 LWORK,
1350 INFO);
1351 }
1352
1353 //-- dgerfs --------------------------------------------------------------------
1354 /*
1355 void
1356 LAPACK_DECL(dgerfs)(const char *TRANS,
1357 const INTEGER *N,
1358 const INTEGER *NRHS,
1359 const DOUBLE *A,
1360 const INTEGER *LDA,
1361 const DOUBLE *AF,
1362 const INTEGER *LDAF,
1363 const INTEGER *IPIV,
1364 const DOUBLE *B,
1365 const INTEGER *LDB,
1366 DOUBLE *X,
1367 const INTEGER *LDX,
1368 DOUBLE *FERR,
1369 DOUBLE *BERR,
1370 const DOUBLE *WORK,
1371 const INTEGER *IWORK,
1372 INTEGER *INFO)
1373 {
1374 DEBUG_LAPACK_STUB("dgerfs");
1375 LAPACK_IMPL(dgerfs)(TRANS,
1376 N,
1377 NRHS,
1378 A,
1379 LDA,
1380 AF,
1381 LDAF,
1382 IPIV,
1383 B,
1384 LDB,
1385 X,
1386 LDX,
1387 FERR,
1388 BERR,
1389 WORK,
1390 IWORK,
1391 INFO);
1392 }
1393 */
1394
1395 //-- dgerq2 --------------------------------------------------------------------
1396 void
1397 LAPACK_DECL(dgerq2)(const INTEGER *M,
1398 const INTEGER *N,
1399 DOUBLE *A,
1400 const INTEGER *LDA,
1401 DOUBLE *TAU,
1402 const DOUBLE *WORK,
1403 INTEGER *INFO)
1404 {
1405 DEBUG_LAPACK_STUB("dgerq2");
1406 LAPACK_IMPL(dgerq2)(M,
1407 N,
1408 A,
1409 LDA,
1410 TAU,
1411 WORK,
1412 INFO);
1413 }
1414
1415 //-- dgerqf --------------------------------------------------------------------
1416 void
1417 LAPACK_DECL(dgerqf)(const INTEGER *M,
1418 const INTEGER *N,
1419 DOUBLE *A,
1420 const INTEGER *LDA,
1421 DOUBLE *TAU,
1422 DOUBLE *WORK,
1423 const INTEGER *LWORK,
1424 INTEGER *INFO)
1425 {
1426 DEBUG_LAPACK_STUB("dgerqf");
1427 LAPACK_IMPL(dgerqf)(M,
1428 N,
1429 A,
1430 LDA,
1431 TAU,
1432 WORK,
1433 LWORK,
1434 INFO);
1435 }
1436
1437 //-- dgesc2 --------------------------------------------------------------------
1438 void
1439 LAPACK_DECL(dgesc2)(const INTEGER *N,
1440 const DOUBLE *A,
1441 const INTEGER *LDA,
1442 DOUBLE *RHS,
1443 const INTEGER *IPIV,
1444 const INTEGER *JPIV,
1445 DOUBLE *SCALE)
1446 {
1447 DEBUG_LAPACK_STUB("dgesc2");
1448 LAPACK_IMPL(dgesc2)(N,
1449 A,
1450 LDA,
1451 RHS,
1452 IPIV,
1453 JPIV,
1454 SCALE);
1455 }
1456
1457 //-- dgesdd --------------------------------------------------------------------
1458 void
1459 LAPACK_DECL(dgesdd)(const char *JOBZ,
1460 const INTEGER *M,
1461 const INTEGER *N,
1462 DOUBLE *A,
1463 const INTEGER *LDA,
1464 DOUBLE *S,
1465 DOUBLE *U,
1466 const INTEGER *LDU,
1467 DOUBLE *VT,
1468 const INTEGER *LDVT,
1469 DOUBLE *WORK,
1470 const INTEGER *LWORK,
1471 const INTEGER *IWORK,
1472 INTEGER *INFO)
1473 {
1474 DEBUG_LAPACK_STUB("dgesdd");
1475 LAPACK_IMPL(dgesdd)(JOBZ,
1476 M,
1477 N,
1478 A,
1479 LDA,
1480 S,
1481 U,
1482 LDU,
1483 VT,
1484 LDVT,
1485 WORK,
1486 LWORK,
1487 IWORK,
1488 INFO);
1489 }
1490
1491 //-- dgesv ---------------------------------------------------------------------
1492 /*
1493 void
1494 LAPACK_DECL(dgesv)(const INTEGER *N,
1495 const INTEGER *NRHS,
1496 DOUBLE *A,
1497 const INTEGER *LDA,
1498 INTEGER *IPIV,
1499 DOUBLE *B,
1500 const INTEGER *LDB,
1501 INTEGER *INFO)
1502 {
1503 DEBUG_LAPACK_STUB("dgesv");
1504 LAPACK_IMPL(dgesv)(N,
1505 NRHS,
1506 A,
1507 LDA,
1508 IPIV,
1509 B,
1510 LDB,
1511 INFO);
1512 }
1513 */
1514
1515 //-- dgesvd --------------------------------------------------------------------
1516 void
1517 LAPACK_DECL(dgesvd)(const char *JOBU,
1518 const char *JOBVT,
1519 const INTEGER *M,
1520 const INTEGER *N,
1521 DOUBLE *A,
1522 const INTEGER *LDA,
1523 DOUBLE *S,
1524 DOUBLE *U,
1525 const INTEGER *LDU,
1526 DOUBLE *VT,
1527 const INTEGER *LDVT,
1528 DOUBLE *WORK,
1529 const INTEGER *LWORK,
1530 INTEGER *INFO)
1531 {
1532 DEBUG_LAPACK_STUB("dgesvd");
1533 LAPACK_IMPL(dgesvd)(JOBU,
1534 JOBVT,
1535 M,
1536 N,
1537 A,
1538 LDA,
1539 S,
1540 U,
1541 LDU,
1542 VT,
1543 LDVT,
1544 WORK,
1545 LWORK,
1546 INFO);
1547 }
1548
1549 //-- dgesvj --------------------------------------------------------------------
1550 void
1551 LAPACK_DECL(dgesvj)(const char *JOBA,
1552 const char *JOBU,
1553 const char *JOBV,
1554 const INTEGER *M,
1555 const INTEGER *N,
1556 DOUBLE *A,
1557 const INTEGER *LDA,
1558 DOUBLE *SVA,
1559 const INTEGER *MV,
1560 DOUBLE *V,
1561 const INTEGER *LDV,
1562 DOUBLE *WORK,
1563 const INTEGER *LWORK,
1564 INTEGER *INFO)
1565 {
1566 DEBUG_LAPACK_STUB("dgesvj");
1567 LAPACK_IMPL(dgesvj)(JOBA,
1568 JOBU,
1569 JOBV,
1570 M,
1571 N,
1572 A,
1573 LDA,
1574 SVA,
1575 MV,
1576 V,
1577 LDV,
1578 WORK,
1579 LWORK,
1580 INFO);
1581 }
1582
1583 //-- dgesvx --------------------------------------------------------------------
1584 /*
1585 void
1586 LAPACK_DECL(dgesvx)(const char *FACT,
1587 const char *TRANS,
1588 const INTEGER *N,
1589 const INTEGER *NRHS,
1590 DOUBLE *A,
1591 const INTEGER *LDA,
1592 DOUBLE *AF,
1593 const INTEGER *LDAF,
1594 INTEGER *IPIV,
1595 char *EQUED,
1596 DOUBLE *R,
1597 DOUBLE *C,
1598 DOUBLE *B,
1599 const INTEGER *LDB,
1600 DOUBLE *X,
1601 const INTEGER *LDX,
1602 DOUBLE *RCOND,
1603 DOUBLE *FERR,
1604 DOUBLE *BERR,
1605 DOUBLE *WORK,
1606 const INTEGER *IWORK,
1607 INTEGER *INFO)
1608 {
1609 DEBUG_LAPACK_STUB("dgesvx");
1610 LAPACK_IMPL(dgesvx)(FACT,
1611 TRANS,
1612 N,
1613 NRHS,
1614 A,
1615 LDA,
1616 AF,
1617 LDAF,
1618 IPIV,
1619 EQUED,
1620 R,
1621 C,
1622 B,
1623 LDB,
1624 X,
1625 LDX,
1626 RCOND,
1627 FERR,
1628 BERR,
1629 WORK,
1630 IWORK,
1631 INFO);
1632 }
1633 */
1634
1635 //-- dgetc2 --------------------------------------------------------------------
1636 void
1637 LAPACK_DECL(dgetc2)(const INTEGER *N,
1638 DOUBLE *A,
1639 const INTEGER *LDA,
1640 INTEGER *IPIV,
1641 INTEGER *JPIV,
1642 INTEGER *INFO)
1643 {
1644 DEBUG_LAPACK_STUB("dgetc2");
1645 LAPACK_IMPL(dgetc2)(N,
1646 A,
1647 LDA,
1648 IPIV,
1649 JPIV,
1650 INFO);
1651 }
1652
1653 //-- dgetf2 --------------------------------------------------------------------
1654 void
1655 LAPACK_DECL(dgetf2)(const INTEGER *M,
1656 const INTEGER *N,
1657 DOUBLE *A,
1658 const INTEGER *LDA,
1659 INTEGER *IPIV,
1660 INTEGER *INFO)
1661 {
1662 DEBUG_LAPACK_STUB("dgetf2");
1663 LAPACK_IMPL(dgetf2)(M,
1664 N,
1665 A,
1666 LDA,
1667 IPIV,
1668 INFO);
1669 }
1670
1671 //-- dgetrf --------------------------------------------------------------------
1672 /*
1673 void
1674 LAPACK_DECL(dgetrf)(const INTEGER *M,
1675 const INTEGER *,//N,
1676 DOUBLE *,//A,
1677 const INTEGER *,//LDA,
1678 INTEGER *IPIV,
1679 INTEGER *INFO)
1680 {
1681 DEBUG_LAPACK_STUB("dgetrf");
1682 *INFO = 0;
1683 for (int i=0; i<*M; ++i) {
1684 IPIV[i] = i+1;
1685 }
1686 //LAPACK_IMPL(dgetrf)(M, N, A, LDA, IPIV, INFO);
1687 }
1688 */
1689
1690
1691 //-- dgetri --------------------------------------------------------------------
1692 /*
1693 void
1694 LAPACK_DECL(dgetri)(const INTEGER *N,
1695 DOUBLE *A,
1696 const INTEGER *LDA,
1697 const INTEGER *IPIV,
1698 DOUBLE *WORK,
1699 const INTEGER *LWORK,
1700 INTEGER *INFO)
1701 {
1702 DEBUG_LAPACK_STUB("dgetri");
1703 std::cerr << "dgetri" << std::endl;
1704 LAPACK_IMPL(dgetri)(N,
1705 A,
1706 LDA,
1707 IPIV,
1708 WORK,
1709 LWORK,
1710 INFO);
1711 }
1712 */
1713
1714 //-- dgetrs --------------------------------------------------------------------
1715 /*
1716 void
1717 LAPACK_DECL(dgetrs)(const char *TRANS,
1718 const INTEGER *N,
1719 const INTEGER *NRHS,
1720 const DOUBLE *A,
1721 const INTEGER *LDA,
1722 const INTEGER *IPIV,
1723 DOUBLE *B,
1724 const INTEGER *LDB,
1725 INTEGER *INFO)
1726 {
1727 DEBUG_LAPACK_STUB("dgetrs");
1728 LAPACK_IMPL(dgetrs)(TRANS,
1729 N,
1730 NRHS,
1731 A,
1732 LDA,
1733 IPIV,
1734 B,
1735 LDB,
1736 INFO);
1737 }
1738 */
1739
1740 //-- dggbak --------------------------------------------------------------------
1741 void
1742 LAPACK_DECL(dggbak)(const char *JOB,
1743 const char *SIDE,
1744 const INTEGER *N,
1745 const INTEGER *ILO,
1746 const INTEGER *IHI,
1747 const DOUBLE *LSCALE,
1748 const DOUBLE *RSCALE,
1749 const INTEGER *M,
1750 DOUBLE *V,
1751 const INTEGER *LDV,
1752 INTEGER *INFO)
1753 {
1754 DEBUG_LAPACK_STUB("dggbak");
1755 LAPACK_IMPL(dggbak)(JOB,
1756 SIDE,
1757 N,
1758 ILO,
1759 IHI,
1760 LSCALE,
1761 RSCALE,
1762 M,
1763 V,
1764 LDV,
1765 INFO);
1766 }
1767
1768 //-- dggbal --------------------------------------------------------------------
1769 void
1770 LAPACK_DECL(dggbal)(const char *JOB,
1771 const INTEGER *N,
1772 DOUBLE *A,
1773 const INTEGER *LDA,
1774 DOUBLE *B,
1775 const INTEGER *LDB,
1776 INTEGER *ILO,
1777 INTEGER *IHI,
1778 DOUBLE *LSCALE,
1779 DOUBLE *RSCALE,
1780 const DOUBLE *WORK,
1781 INTEGER *INFO)
1782 {
1783 DEBUG_LAPACK_STUB("dggbal");
1784 LAPACK_IMPL(dggbal)(JOB,
1785 N,
1786 A,
1787 LDA,
1788 B,
1789 LDB,
1790 ILO,
1791 IHI,
1792 LSCALE,
1793 RSCALE,
1794 WORK,
1795 INFO);
1796 }
1797
1798 //-- dgges ---------------------------------------------------------------------
1799 void
1800 LAPACK_DECL(dgges)(const char *JOBVSL,
1801 const char *JOBVSR,
1802 const char *SORT,
1803 const LOGICAL *SELCTG,
1804 const INTEGER *N,
1805 DOUBLE *A,
1806 const INTEGER *LDA,
1807 DOUBLE *B,
1808 const INTEGER *LDB,
1809 INTEGER *SDIM,
1810 DOUBLE *ALPHAR,
1811 DOUBLE *ALPHAI,
1812 DOUBLE *BETA,
1813 DOUBLE *VSL,
1814 const INTEGER *LDVSL,
1815 DOUBLE *VSR,
1816 const INTEGER *LDVSR,
1817 DOUBLE *WORK,
1818 const INTEGER *LWORK,
1819 const LOGICAL *BWORK,
1820 INTEGER *INFO)
1821 {
1822 DEBUG_LAPACK_STUB("dgges");
1823 LAPACK_IMPL(dgges)(JOBVSL,
1824 JOBVSR,
1825 SORT,
1826 SELCTG,
1827 N,
1828 A,
1829 LDA,
1830 B,
1831 LDB,
1832 SDIM,
1833 ALPHAR,
1834 ALPHAI,
1835 BETA,
1836 VSL,
1837 LDVSL,
1838 VSR,
1839 LDVSR,
1840 WORK,
1841 LWORK,
1842 BWORK,
1843 INFO);
1844 }
1845
1846 //-- dggesx --------------------------------------------------------------------
1847 void
1848 LAPACK_DECL(dggesx)(const char *JOBVSL,
1849 const char *JOBVSR,
1850 const char *SORT,
1851 const LOGICAL *SELCTG,
1852 const char *SENSE,
1853 const INTEGER *N,
1854 DOUBLE *A,
1855 const INTEGER *LDA,
1856 DOUBLE *B,
1857 const INTEGER *LDB,
1858 INTEGER *SDIM,
1859 DOUBLE *ALPHAR,
1860 DOUBLE *ALPHAI,
1861 DOUBLE *BETA,
1862 DOUBLE *VSL,
1863 const INTEGER *LDVSL,
1864 DOUBLE *VSR,
1865 const INTEGER *LDVSR,
1866 DOUBLE *RCONDE,
1867 DOUBLE *RCONDV,
1868 DOUBLE *WORK,
1869 const INTEGER *LWORK,
1870 const INTEGER *IWORK,
1871 const INTEGER *LIWORK,
1872 const LOGICAL *BWORK,
1873 INTEGER *INFO)
1874 {
1875 DEBUG_LAPACK_STUB("dggesx");
1876 LAPACK_IMPL(dggesx)(JOBVSL,
1877 JOBVSR,
1878 SORT,
1879 SELCTG,
1880 SENSE,
1881 N,
1882 A,
1883 LDA,
1884 B,
1885 LDB,
1886 SDIM,
1887 ALPHAR,
1888 ALPHAI,
1889 BETA,
1890 VSL,
1891 LDVSL,
1892 VSR,
1893 LDVSR,
1894 RCONDE,
1895 RCONDV,
1896 WORK,
1897 LWORK,
1898 IWORK,
1899 LIWORK,
1900 BWORK,
1901 INFO);
1902 }
1903
1904 //-- dggev ---------------------------------------------------------------------
1905 void
1906 LAPACK_DECL(dggev)(const char *JOBVL,
1907 const char *JOBVR,
1908 const INTEGER *N,
1909 DOUBLE *A,
1910 const INTEGER *LDA,
1911 DOUBLE *B,
1912 const INTEGER *LDB,
1913 DOUBLE *ALPHAR,
1914 DOUBLE *ALPHAI,
1915 DOUBLE *BETA,
1916 DOUBLE *VL,
1917 const INTEGER *LDVL,
1918 DOUBLE *VR,
1919 const INTEGER *LDVR,
1920 DOUBLE *WORK,
1921 const INTEGER *LWORK,
1922 INTEGER *INFO)
1923 {
1924 DEBUG_LAPACK_STUB("dggev");
1925 LAPACK_IMPL(dggev)(JOBVL,
1926 JOBVR,
1927 N,
1928 A,
1929 LDA,
1930 B,
1931 LDB,
1932 ALPHAR,
1933 ALPHAI,
1934 BETA,
1935 VL,
1936 LDVL,
1937 VR,
1938 LDVR,
1939 WORK,
1940 LWORK,
1941 INFO);
1942 }
1943
1944 //-- dggevx --------------------------------------------------------------------
1945 void
1946 LAPACK_DECL(dggevx)(const char *BALANC,
1947 const char *JOBVL,
1948 const char *JOBVR,
1949 const char *SENSE,
1950 const INTEGER *N,
1951 DOUBLE *A,
1952 const INTEGER *LDA,
1953 DOUBLE *B,
1954 const INTEGER *LDB,
1955 DOUBLE *ALPHAR,
1956 DOUBLE *ALPHAI,
1957 DOUBLE *BETA,
1958 DOUBLE *VL,
1959 const INTEGER *LDVL,
1960 DOUBLE *VR,
1961 const INTEGER *LDVR,
1962 INTEGER *ILO,
1963 INTEGER *IHI,
1964 DOUBLE *LSCALE,
1965 DOUBLE *RSCALE,
1966 DOUBLE *ABNRM,
1967 DOUBLE *BBNRM,
1968 DOUBLE *RCONDE,
1969 DOUBLE *RCONDV,
1970 DOUBLE *WORK,
1971 const INTEGER *LWORK,
1972 const INTEGER *IWORK,
1973 const LOGICAL *BWORK,
1974 INTEGER *INFO)
1975 {
1976 DEBUG_LAPACK_STUB("dggevx");
1977 LAPACK_IMPL(dggevx)(BALANC,
1978 JOBVL,
1979 JOBVR,
1980 SENSE,
1981 N,
1982 A,
1983 LDA,
1984 B,
1985 LDB,
1986 ALPHAR,
1987 ALPHAI,
1988 BETA,
1989 VL,
1990 LDVL,
1991 VR,
1992 LDVR,
1993 ILO,
1994 IHI,
1995 LSCALE,
1996 RSCALE,
1997 ABNRM,
1998 BBNRM,
1999 RCONDE,
2000 RCONDV,
2001 WORK,
2002 LWORK,
2003 IWORK,
2004 BWORK,
2005 INFO);
2006 }
2007
2008 //-- dggglm --------------------------------------------------------------------
2009 void
2010 LAPACK_DECL(dggglm)(const INTEGER *N,
2011 const INTEGER *M,
2012 const INTEGER *P,
2013 DOUBLE *A,
2014 const INTEGER *LDA,
2015 DOUBLE *B,
2016 const INTEGER *LDB,
2017 DOUBLE *D,
2018 DOUBLE *X,
2019 DOUBLE *Y,
2020 DOUBLE *WORK,
2021 const INTEGER *LWORK,
2022 INTEGER *INFO)
2023 {
2024 DEBUG_LAPACK_STUB("dggglm");
2025 LAPACK_IMPL(dggglm)(N,
2026 M,
2027 P,
2028 A,
2029 LDA,
2030 B,
2031 LDB,
2032 D,
2033 X,
2034 Y,
2035 WORK,
2036 LWORK,
2037 INFO);
2038 }
2039
2040 //-- dgghrd --------------------------------------------------------------------
2041 void
2042 LAPACK_DECL(dgghrd)(const char *COMPQ,
2043 const char *COMPZ,
2044 const INTEGER *N,
2045 const INTEGER *ILO,
2046 const INTEGER *IHI,
2047 DOUBLE *A,
2048 const INTEGER *LDA,
2049 DOUBLE *B,
2050 const INTEGER *LDB,
2051 DOUBLE *Q,
2052 const INTEGER *LDQ,
2053 DOUBLE *Z,
2054 const INTEGER *LDZ,
2055 INTEGER *INFO)
2056 {
2057 DEBUG_LAPACK_STUB("dgghrd");
2058 LAPACK_IMPL(dgghrd)(COMPQ,
2059 COMPZ,
2060 N,
2061 ILO,
2062 IHI,
2063 A,
2064 LDA,
2065 B,
2066 LDB,
2067 Q,
2068 LDQ,
2069 Z,
2070 LDZ,
2071 INFO);
2072 }
2073
2074 //-- dgglse --------------------------------------------------------------------
2075 void
2076 LAPACK_DECL(dgglse)(const INTEGER *M,
2077 const INTEGER *N,
2078 const INTEGER *P,
2079 DOUBLE *A,
2080 const INTEGER *LDA,
2081 DOUBLE *B,
2082 const INTEGER *LDB,
2083 DOUBLE *C,
2084 DOUBLE *D,
2085 DOUBLE *X,
2086 DOUBLE *WORK,
2087 const INTEGER *LWORK,
2088 INTEGER *INFO)
2089 {
2090 DEBUG_LAPACK_STUB("dgglse");
2091 LAPACK_IMPL(dgglse)(M,
2092 N,
2093 P,
2094 A,
2095 LDA,
2096 B,
2097 LDB,
2098 C,
2099 D,
2100 X,
2101 WORK,
2102 LWORK,
2103 INFO);
2104 }
2105
2106 //-- dggqrf --------------------------------------------------------------------
2107 void
2108 LAPACK_DECL(dggqrf)(const INTEGER *N,
2109 const INTEGER *M,
2110 const INTEGER *P,
2111 DOUBLE *A,
2112 const INTEGER *LDA,
2113 DOUBLE *TAUA,
2114 DOUBLE *B,
2115 const INTEGER *LDB,
2116 DOUBLE *TAUB,
2117 DOUBLE *WORK,
2118 const INTEGER *LWORK,
2119 INTEGER *INFO)
2120 {
2121 DEBUG_LAPACK_STUB("dggqrf");
2122 LAPACK_IMPL(dggqrf)(N,
2123 M,
2124 P,
2125 A,
2126 LDA,
2127 TAUA,
2128 B,
2129 LDB,
2130 TAUB,
2131 WORK,
2132 LWORK,
2133 INFO);
2134 }
2135
2136 //-- dggrqf --------------------------------------------------------------------
2137 void
2138 LAPACK_DECL(dggrqf)(const INTEGER *M,
2139 const INTEGER *P,
2140 const INTEGER *N,
2141 DOUBLE *A,
2142 const INTEGER *LDA,
2143 DOUBLE *TAUA,
2144 DOUBLE *B,
2145 const INTEGER *LDB,
2146 DOUBLE *TAUB,
2147 DOUBLE *WORK,
2148 const INTEGER *LWORK,
2149 INTEGER *INFO)
2150 {
2151 DEBUG_LAPACK_STUB("dggrqf");
2152 LAPACK_IMPL(dggrqf)(M,
2153 P,
2154 N,
2155 A,
2156 LDA,
2157 TAUA,
2158 B,
2159 LDB,
2160 TAUB,
2161 WORK,
2162 LWORK,
2163 INFO);
2164 }
2165
2166 //-- dggsvd --------------------------------------------------------------------
2167 void
2168 LAPACK_DECL(dggsvd)(const char *JOBU,
2169 const char *JOBV,
2170 const char *JOBQ,
2171 const INTEGER *M,
2172 const INTEGER *N,
2173 const INTEGER *P,
2174 INTEGER *K,
2175 INTEGER *L,
2176 DOUBLE *A,
2177 const INTEGER *LDA,
2178 DOUBLE *B,
2179 const INTEGER *LDB,
2180 DOUBLE *ALPHA,
2181 DOUBLE *BETA,
2182 DOUBLE *U,
2183 const INTEGER *LDU,
2184 DOUBLE *V,
2185 const INTEGER *LDV,
2186 DOUBLE *Q,
2187 const INTEGER *LDQ,
2188 const DOUBLE *WORK,
2189 INTEGER *IWORK,
2190 INTEGER *INFO)
2191 {
2192 DEBUG_LAPACK_STUB("dggsvd");
2193 LAPACK_IMPL(dggsvd)(JOBU,
2194 JOBV,
2195 JOBQ,
2196 M,
2197 N,
2198 P,
2199 K,
2200 L,
2201 A,
2202 LDA,
2203 B,
2204 LDB,
2205 ALPHA,
2206 BETA,
2207 U,
2208 LDU,
2209 V,
2210 LDV,
2211 Q,
2212 LDQ,
2213 WORK,
2214 IWORK,
2215 INFO);
2216 }
2217
2218 //-- dggsvp --------------------------------------------------------------------
2219 void
2220 LAPACK_DECL(dggsvp)(const char *JOBU,
2221 const char *JOBV,
2222 const char *JOBQ,
2223 const INTEGER *M,
2224 const INTEGER *P,
2225 const INTEGER *N,
2226 DOUBLE *A,
2227 const INTEGER *LDA,
2228 DOUBLE *B,
2229 const INTEGER *LDB,
2230 const DOUBLE *TOLA,
2231 const DOUBLE *TOLB,
2232 INTEGER *K,
2233 INTEGER *L,
2234 DOUBLE *U,
2235 const INTEGER *LDU,
2236 DOUBLE *V,
2237 const INTEGER *LDV,
2238 DOUBLE *Q,
2239 const INTEGER *LDQ,
2240 const INTEGER *IWORK,
2241 const DOUBLE *TAU,
2242 const DOUBLE *WORK,
2243 INTEGER *INFO)
2244 {
2245 DEBUG_LAPACK_STUB("dggsvp");
2246 LAPACK_IMPL(dggsvp)(JOBU,
2247 JOBV,
2248 JOBQ,
2249 M,
2250 P,
2251 N,
2252 A,
2253 LDA,
2254 B,
2255 LDB,
2256 TOLA,
2257 TOLB,
2258 K,
2259 L,
2260 U,
2261 LDU,
2262 V,
2263 LDV,
2264 Q,
2265 LDQ,
2266 IWORK,
2267 TAU,
2268 WORK,
2269 INFO);
2270 }
2271
2272 //-- dgsvj0 --------------------------------------------------------------------
2273 void
2274 LAPACK_DECL(dgsvj0)(const char *JOBV,
2275 const INTEGER *M,
2276 const INTEGER *N,
2277 DOUBLE *A,
2278 const INTEGER *LDA,
2279 DOUBLE *D,
2280 DOUBLE *SVA,
2281 const INTEGER *MV,
2282 DOUBLE *V,
2283 const INTEGER *LDV,
2284 const DOUBLE *EPS,
2285 const DOUBLE *SFMIN,
2286 const DOUBLE *TOL,
2287 const INTEGER *NSWEEP,
2288 const DOUBLE *WORK,
2289 const INTEGER *LWORK,
2290 INTEGER *INFO)
2291 {
2292 DEBUG_LAPACK_STUB("dgsvj0");
2293 LAPACK_IMPL(dgsvj0)(JOBV,
2294 M,
2295 N,
2296 A,
2297 LDA,
2298 D,
2299 SVA,
2300 MV,
2301 V,
2302 LDV,
2303 EPS,
2304 SFMIN,
2305 TOL,
2306 NSWEEP,
2307 WORK,
2308 LWORK,
2309 INFO);
2310 }
2311
2312 //-- dgsvj1 --------------------------------------------------------------------
2313 void
2314 LAPACK_DECL(dgsvj1)(const char *JOBV,
2315 const INTEGER *M,
2316 const INTEGER *N,
2317 const INTEGER *N1,
2318 DOUBLE *A,
2319 const INTEGER *LDA,
2320 DOUBLE *D,
2321 DOUBLE *SVA,
2322 const INTEGER *MV,
2323 DOUBLE *V,
2324 const INTEGER *LDV,
2325 const DOUBLE *EPS,
2326 const DOUBLE *SFMIN,
2327 const DOUBLE *TOL,
2328 const INTEGER *NSWEEP,
2329 const DOUBLE *WORK,
2330 const INTEGER *LWORK,
2331 INTEGER *INFO)
2332 {
2333 DEBUG_LAPACK_STUB("dgsvj1");
2334 LAPACK_IMPL(dgsvj1)(JOBV,
2335 M,
2336 N,
2337 N1,
2338 A,
2339 LDA,
2340 D,
2341 SVA,
2342 MV,
2343 V,
2344 LDV,
2345 EPS,
2346 SFMIN,
2347 TOL,
2348 NSWEEP,
2349 WORK,
2350 LWORK,
2351 INFO);
2352 }
2353
2354 //-- dgtcon --------------------------------------------------------------------
2355 void
2356 LAPACK_DECL(dgtcon)(const char *NORM,
2357 const INTEGER *N,
2358 const DOUBLE *DL,
2359 const DOUBLE *D,
2360 const DOUBLE *DU,
2361 const DOUBLE *DU2,
2362 const INTEGER *IPIV,
2363 const DOUBLE *ANORM,
2364 DOUBLE *RCOND,
2365 const DOUBLE *WORK,
2366 const INTEGER *IWORK,
2367 INTEGER *INFO)
2368 {
2369 DEBUG_LAPACK_STUB("dgtcon");
2370 LAPACK_IMPL(dgtcon)(NORM,
2371 N,
2372 DL,
2373 D,
2374 DU,
2375 DU2,
2376 IPIV,
2377 ANORM,
2378 RCOND,
2379 WORK,
2380 IWORK,
2381 INFO);
2382 }
2383
2384 //-- dgtrfs --------------------------------------------------------------------
2385 void
2386 LAPACK_DECL(dgtrfs)(const char *TRANS,
2387 const INTEGER *N,
2388 const INTEGER *NRHS,
2389 const DOUBLE *DL,
2390 const DOUBLE *D,
2391 const DOUBLE *DU,
2392 const DOUBLE *DLF,
2393 const DOUBLE *DF,
2394 const DOUBLE *DUF,
2395 const DOUBLE *DU2,
2396 const INTEGER *IPIV,
2397 const DOUBLE *B,
2398 const INTEGER *LDB,
2399 DOUBLE *X,
2400 const INTEGER *LDX,
2401 DOUBLE *FERR,
2402 DOUBLE *BERR,
2403 const DOUBLE *WORK,
2404 const INTEGER *IWORK,
2405 INTEGER *INFO)
2406 {
2407 DEBUG_LAPACK_STUB("dgtrfs");
2408 LAPACK_IMPL(dgtrfs)(TRANS,
2409 N,
2410 NRHS,
2411 DL,
2412 D,
2413 DU,
2414 DLF,
2415 DF,
2416 DUF,
2417 DU2,
2418 IPIV,
2419 B,
2420 LDB,
2421 X,
2422 LDX,
2423 FERR,
2424 BERR,
2425 WORK,
2426 IWORK,
2427 INFO);
2428 }
2429
2430 //-- dgtsv ---------------------------------------------------------------------
2431 void
2432 LAPACK_DECL(dgtsv)(const INTEGER *N,
2433 const INTEGER *NRHS,
2434 DOUBLE *DL,
2435 DOUBLE *D,
2436 DOUBLE *DU,
2437 DOUBLE *B,
2438 const INTEGER *LDB,
2439 INTEGER *INFO)
2440 {
2441 DEBUG_LAPACK_STUB("dgtsv");
2442 LAPACK_IMPL(dgtsv)(N,
2443 NRHS,
2444 DL,
2445 D,
2446 DU,
2447 B,
2448 LDB,
2449 INFO);
2450 }
2451
2452 //-- dgtsvx --------------------------------------------------------------------
2453 void
2454 LAPACK_DECL(dgtsvx)(const char *FACT,
2455 const char *TRANS,
2456 const INTEGER *N,
2457 const INTEGER *NRHS,
2458 const DOUBLE *DL,
2459 const DOUBLE *D,
2460 const DOUBLE *DU,
2461 DOUBLE *DLF,
2462 DOUBLE *DF,
2463 DOUBLE *DUF,
2464 DOUBLE *DU2,
2465 INTEGER *IPIV,
2466 const DOUBLE *B,
2467 const INTEGER *LDB,
2468 DOUBLE *X,
2469 const INTEGER *LDX,
2470 DOUBLE *RCOND,
2471 DOUBLE *FERR,
2472 DOUBLE *BERR,
2473 const DOUBLE *WORK,
2474 const INTEGER *IWORK,
2475 INTEGER *INFO)
2476 {
2477 DEBUG_LAPACK_STUB("dgtsvx");
2478 LAPACK_IMPL(dgtsvx)(FACT,
2479 TRANS,
2480 N,
2481 NRHS,
2482 DL,
2483 D,
2484 DU,
2485 DLF,
2486 DF,
2487 DUF,
2488 DU2,
2489 IPIV,
2490 B,
2491 LDB,
2492 X,
2493 LDX,
2494 RCOND,
2495 FERR,
2496 BERR,
2497 WORK,
2498 IWORK,
2499 INFO);
2500 }
2501
2502 //-- dgttrf --------------------------------------------------------------------
2503 void
2504 LAPACK_DECL(dgttrf)(const INTEGER *N,
2505 DOUBLE *DL,
2506 DOUBLE *D,
2507 DOUBLE *DU,
2508 DOUBLE *DU2,
2509 INTEGER *IPIV,
2510 INTEGER *INFO)
2511 {
2512 DEBUG_LAPACK_STUB("dgttrf");
2513 LAPACK_IMPL(dgttrf)(N,
2514 DL,
2515 D,
2516 DU,
2517 DU2,
2518 IPIV,
2519 INFO);
2520 }
2521
2522 //-- dgttrs --------------------------------------------------------------------
2523 void
2524 LAPACK_DECL(dgttrs)(const char *TRANS,
2525 const INTEGER *N,
2526 const INTEGER *NRHS,
2527 const DOUBLE *DL,
2528 const DOUBLE *D,
2529 const DOUBLE *DU,
2530 const DOUBLE *DU2,
2531 const INTEGER *IPIV,
2532 DOUBLE *B,
2533 const INTEGER *LDB,
2534 INTEGER *INFO)
2535 {
2536 DEBUG_LAPACK_STUB("dgttrs");
2537 LAPACK_IMPL(dgttrs)(TRANS,
2538 N,
2539 NRHS,
2540 DL,
2541 D,
2542 DU,
2543 DU2,
2544 IPIV,
2545 B,
2546 LDB,
2547 INFO);
2548 }
2549
2550 //-- dgtts2 --------------------------------------------------------------------
2551 void
2552 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
2553 const INTEGER *N,
2554 const INTEGER *NRHS,
2555 const DOUBLE *DL,
2556 const DOUBLE *D,
2557 const DOUBLE *DU,
2558 const DOUBLE *DU2,
2559 const INTEGER *IPIV,
2560 DOUBLE *B,
2561 const INTEGER *LDB)
2562 {
2563 DEBUG_LAPACK_STUB("dgtts2");
2564 LAPACK_IMPL(dgtts2)(ITRANS,
2565 N,
2566 NRHS,
2567 DL,
2568 D,
2569 DU,
2570 DU2,
2571 IPIV,
2572 B,
2573 LDB);
2574 }
2575
2576 //-- dhgeqz --------------------------------------------------------------------
2577 void
2578 LAPACK_DECL(dhgeqz)(const char *JOB,
2579 const char *COMPQ,
2580 const char *COMPZ,
2581 const INTEGER *N,
2582 const INTEGER *ILO,
2583 const INTEGER *IHI,
2584 DOUBLE *H,
2585 const INTEGER *LDH,
2586 DOUBLE *T,
2587 const INTEGER *LDT,
2588 DOUBLE *ALPHAR,
2589 DOUBLE *ALPHAI,
2590 DOUBLE *BETA,
2591 DOUBLE *Q,
2592 const INTEGER *LDQ,
2593 DOUBLE *Z,
2594 const INTEGER *LDZ,
2595 DOUBLE *WORK,
2596 const INTEGER *LWORK,
2597 INTEGER *INFO)
2598 {
2599 DEBUG_LAPACK_STUB("dhgeqz");
2600 LAPACK_IMPL(dhgeqz)(JOB,
2601 COMPQ,
2602 COMPZ,
2603 N,
2604 ILO,
2605 IHI,
2606 H,
2607 LDH,
2608 T,
2609 LDT,
2610 ALPHAR,
2611 ALPHAI,
2612 BETA,
2613 Q,
2614 LDQ,
2615 Z,
2616 LDZ,
2617 WORK,
2618 LWORK,
2619 INFO);
2620 }
2621
2622 //-- dhsein --------------------------------------------------------------------
2623 void
2624 LAPACK_DECL(dhsein)(const char *SIDE,
2625 const char *EIGSRC,
2626 const char *INITV,
2627 LOGICAL *SELECT,
2628 const INTEGER *N,
2629 const DOUBLE *H,
2630 const INTEGER *LDH,
2631 DOUBLE *WR,
2632 const DOUBLE *WI,
2633 DOUBLE *VL,
2634 const INTEGER *LDVL,
2635 DOUBLE *VR,
2636 const INTEGER *LDVR,
2637 const INTEGER *MM,
2638 INTEGER *M,
2639 const DOUBLE *WORK,
2640 INTEGER *IFAILL,
2641 INTEGER *IFAILR,
2642 INTEGER *INFO)
2643 {
2644 DEBUG_LAPACK_STUB("dhsein");
2645 LAPACK_IMPL(dhsein)(SIDE,
2646 EIGSRC,
2647 INITV,
2648 SELECT,
2649 N,
2650 H,
2651 LDH,
2652 WR,
2653 WI,
2654 VL,
2655 LDVL,
2656 VR,
2657 LDVR,
2658 MM,
2659 M,
2660 WORK,
2661 IFAILL,
2662 IFAILR,
2663 INFO);
2664 }
2665
2666 //-- dhseqr --------------------------------------------------------------------
2667 void
2668 LAPACK_DECL(dhseqr)(const char *JOB,
2669 const char *COMPZ,
2670 const INTEGER *N,
2671 const INTEGER *ILO,
2672 const INTEGER *IHI,
2673 DOUBLE *H,
2674 const INTEGER *LDH,
2675 DOUBLE *WR,
2676 DOUBLE *WI,
2677 DOUBLE *Z,
2678 const INTEGER *LDZ,
2679 DOUBLE *WORK,
2680 const INTEGER *LWORK,
2681 INTEGER *INFO)
2682 {
2683 DEBUG_LAPACK_STUB("dhseqr");
2684 LAPACK_IMPL(dhseqr)(JOB,
2685 COMPZ,
2686 N,
2687 ILO,
2688 IHI,
2689 H,
2690 LDH,
2691 WR,
2692 WI,
2693 Z,
2694 LDZ,
2695 WORK,
2696 LWORK,
2697 INFO);
2698 }
2699
2700 //-- disnan --------------------------------------------------------------------
2701 LOGICAL
2702 LAPACK_DECL(disnan)(const DOUBLE *DIN)
2703 {
2704 DEBUG_LAPACK_STUB("disnan");
2705 return LAPACK_IMPL(disnan)(DIN);
2706 }
2707
2708 //-- dla_gbamv -----------------------------------------------------------------
2709 void
2710 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
2711 const INTEGER *M,
2712 const INTEGER *N,
2713 const INTEGER *KL,
2714 const INTEGER *KU,
2715 const DOUBLE *ALPHA,
2716 const DOUBLE *AB,
2717 const INTEGER *LDAB,
2718 const DOUBLE *X,
2719 const INTEGER *INCX,
2720 const DOUBLE *BETA,
2721 DOUBLE *Y,
2722 const INTEGER *INCY)
2723 {
2724 DEBUG_LAPACK_STUB("dla_gbamv");
2725 LAPACK_IMPL(dla_gbamv)(TRANS,
2726 M,
2727 N,
2728 KL,
2729 KU,
2730 ALPHA,
2731 AB,
2732 LDAB,
2733 X,
2734 INCX,
2735 BETA,
2736 Y,
2737 INCY);
2738 }
2739
2740 //-- dla_gbrcond ---------------------------------------------------------------
2741 DOUBLE
2742 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
2743 const INTEGER *N,
2744 const INTEGER *KL,
2745 const INTEGER *KU,
2746 const DOUBLE *AB,
2747 const INTEGER *LDAB,
2748 const DOUBLE *AFB,
2749 const INTEGER *LDAFB,
2750 const INTEGER *IPIV,
2751 const INTEGER *CMODE,
2752 const DOUBLE *C,
2753 INTEGER *INFO,
2754 const DOUBLE *WORK,
2755 const INTEGER *IWORK)
2756 {
2757 DEBUG_LAPACK_STUB("dla_gbrcond");
2758 return LAPACK_IMPL(dla_gbrcond)(TRANS,
2759 N,
2760 KL,
2761 KU,
2762 AB,
2763 LDAB,
2764 AFB,
2765 LDAFB,
2766 IPIV,
2767 CMODE,
2768 C,
2769 INFO,
2770 WORK,
2771 IWORK);
2772 }
2773
2774 //-- dla_gbrpvgrw --------------------------------------------------------------
2775 DOUBLE
2776 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
2777 const INTEGER *KL,
2778 const INTEGER *KU,
2779 const INTEGER *NCOLS,
2780 const DOUBLE *AB,
2781 const INTEGER *LDAB,
2782 const DOUBLE *AFB,
2783 const INTEGER *LDAFB)
2784 {
2785 DEBUG_LAPACK_STUB("dla_gbrpvgrw");
2786 return LAPACK_IMPL(dla_gbrpvgrw)(N,
2787 KL,
2788 KU,
2789 NCOLS,
2790 AB,
2791 LDAB,
2792 AFB,
2793 LDAFB);
2794 }
2795
2796 //-- dla_geamv -----------------------------------------------------------------
2797 void
2798 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
2799 const INTEGER *M,
2800 const INTEGER *N,
2801 const DOUBLE *ALPHA,
2802 const DOUBLE *A,
2803 const INTEGER *LDA,
2804 const DOUBLE *X,
2805 const INTEGER *INCX,
2806 const DOUBLE *BETA,
2807 DOUBLE *Y,
2808 const INTEGER *INCY)
2809 {
2810 DEBUG_LAPACK_STUB("dla_geamv");
2811 LAPACK_IMPL(dla_geamv)(TRANS,
2812 M,
2813 N,
2814 ALPHA,
2815 A,
2816 LDA,
2817 X,
2818 INCX,
2819 BETA,
2820 Y,
2821 INCY);
2822 }
2823
2824 //-- dla_gercond ---------------------------------------------------------------
2825 DOUBLE
2826 LAPACK_DECL(dla_gercond)(const char *TRANS,
2827 const INTEGER *N,
2828 const DOUBLE *A,
2829 const INTEGER *LDA,
2830 const DOUBLE *AF,
2831 const INTEGER *LDAF,
2832 const INTEGER *IPIV,
2833 const INTEGER *CMODE,
2834 const DOUBLE *C,
2835 INTEGER *INFO,
2836 const DOUBLE *WORK,
2837 const INTEGER *IWORK)
2838 {
2839 DEBUG_LAPACK_STUB("dla_gercond");
2840 return LAPACK_IMPL(dla_gercond)(TRANS,
2841 N,
2842 A,
2843 LDA,
2844 AF,
2845 LDAF,
2846 IPIV,
2847 CMODE,
2848 C,
2849 INFO,
2850 WORK,
2851 IWORK);
2852 }
2853
2854 //-- dla_lin_berr --------------------------------------------------------------
2855 void
2856 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
2857 const INTEGER *NZ,
2858 const INTEGER *NRHS,
2859 const DOUBLE *RES,
2860 const DOUBLE *AYB,
2861 DOUBLE *BERR)
2862 {
2863 DEBUG_LAPACK_STUB("dla_lin_berr");
2864 LAPACK_IMPL(dla_lin_berr)(N,
2865 NZ,
2866 NRHS,
2867 RES,
2868 AYB,
2869 BERR);
2870 }
2871
2872 //-- dla_porcond ---------------------------------------------------------------
2873 DOUBLE
2874 LAPACK_DECL(dla_porcond)(const char *UPLO,
2875 const INTEGER *N,
2876 const DOUBLE *A,
2877 const INTEGER *LDA,
2878 const DOUBLE *AF,
2879 const INTEGER *LDAF,
2880 const INTEGER *CMODE,
2881 const DOUBLE *C,
2882 INTEGER *INFO,
2883 const DOUBLE *WORK,
2884 const INTEGER *IWORK)
2885 {
2886 DEBUG_LAPACK_STUB("dla_porcond");
2887 return LAPACK_IMPL(dla_porcond)(UPLO,
2888 N,
2889 A,
2890 LDA,
2891 AF,
2892 LDAF,
2893 CMODE,
2894 C,
2895 INFO,
2896 WORK,
2897 IWORK);
2898 }
2899
2900 //-- dla_porpvgrw --------------------------------------------------------------
2901 DOUBLE
2902 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
2903 const INTEGER *NCOLS,
2904 const DOUBLE *A,
2905 const INTEGER *LDA,
2906 const DOUBLE *AF,
2907 const INTEGER *LDAF,
2908 const DOUBLE *WORK)
2909 {
2910 DEBUG_LAPACK_STUB("dla_porpvgrw");
2911 return LAPACK_IMPL(dla_porpvgrw)(UPLO,
2912 NCOLS,
2913 A,
2914 LDA,
2915 AF,
2916 LDAF,
2917 WORK);
2918 }
2919
2920 //-- dla_rpvgrw ----------------------------------------------------------------
2921 DOUBLE
2922 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
2923 const INTEGER *NCOLS,
2924 const DOUBLE *A,
2925 const INTEGER *LDA,
2926 const DOUBLE *AF,
2927 const INTEGER *LDAF)
2928 {
2929 DEBUG_LAPACK_STUB("dla_rpvgrw");
2930 return LAPACK_IMPL(dla_rpvgrw)(N,
2931 NCOLS,
2932 A,
2933 LDA,
2934 AF,
2935 LDAF);
2936 }
2937
2938 //-- dla_syamv -----------------------------------------------------------------
2939 void
2940 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
2941 const INTEGER *N,
2942 const DOUBLE *ALPHA,
2943 const DOUBLE *A,
2944 const INTEGER *LDA,
2945 const DOUBLE *X,
2946 const INTEGER *INCX,
2947 const DOUBLE *BETA,
2948 DOUBLE *Y,
2949 const INTEGER *INCY)
2950 {
2951 DEBUG_LAPACK_STUB("dla_syamv");
2952 LAPACK_IMPL(dla_syamv)(UPLO,
2953 N,
2954 ALPHA,
2955 A,
2956 LDA,
2957 X,
2958 INCX,
2959 BETA,
2960 Y,
2961 INCY);
2962 }
2963
2964 //-- dla_syrcond ---------------------------------------------------------------
2965 DOUBLE
2966 LAPACK_DECL(dla_syrcond)(const char *UPLO,
2967 const INTEGER *N,
2968 const DOUBLE *A,
2969 const INTEGER *LDA,
2970 const DOUBLE *AF,
2971 const INTEGER *LDAF,
2972 const INTEGER *IPIV,
2973 const INTEGER *CMODE,
2974 const DOUBLE *C,
2975 INTEGER *INFO,
2976 const DOUBLE *WORK,
2977 const INTEGER *IWORK)
2978 {
2979 DEBUG_LAPACK_STUB("dla_syrcond");
2980 return LAPACK_IMPL(dla_syrcond)(UPLO,
2981 N,
2982 A,
2983 LDA,
2984 AF,
2985 LDAF,
2986 IPIV,
2987 CMODE,
2988 C,
2989 INFO,
2990 WORK,
2991 IWORK);
2992 }
2993
2994 //-- dla_syrpvgrw --------------------------------------------------------------
2995 DOUBLE
2996 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
2997 const INTEGER *N,
2998 const INTEGER *INFO,
2999 const DOUBLE *A,
3000 const INTEGER *LDA,
3001 const DOUBLE *AF,
3002 const INTEGER *LDAF,
3003 const INTEGER *IPIV,
3004 const DOUBLE *WORK)
3005 {
3006 DEBUG_LAPACK_STUB("dla_syrpvgrw");
3007 return LAPACK_IMPL(dla_syrpvgrw)(UPLO,
3008 N,
3009 INFO,
3010 A,
3011 LDA,
3012 AF,
3013 LDAF,
3014 IPIV,
3015 WORK);
3016 }
3017
3018 //-- dla_wwaddw ----------------------------------------------------------------
3019 void
3020 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
3021 DOUBLE *X,
3022 DOUBLE *Y,
3023 const DOUBLE *W)
3024 {
3025 DEBUG_LAPACK_STUB("dla_wwaddw");
3026 LAPACK_IMPL(dla_wwaddw)(N,
3027 X,
3028 Y,
3029 W);
3030 }
3031
3032 //-- dlabad --------------------------------------------------------------------
3033 void
3034 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
3035 DOUBLE *LARGE)
3036 {
3037 DEBUG_LAPACK_STUB("dlabad");
3038 LAPACK_IMPL(dlabad)(SMALL,
3039 LARGE);
3040 }
3041
3042 //-- dlabrd --------------------------------------------------------------------
3043 void
3044 LAPACK_DECL(dlabrd)(const INTEGER *M,
3045 const INTEGER *N,
3046 const INTEGER *NB,
3047 DOUBLE *A,
3048 const INTEGER *LDA,
3049 DOUBLE *D,
3050 DOUBLE *E,
3051 DOUBLE *TAUQ,
3052 DOUBLE *TAUP,
3053 DOUBLE *X,
3054 const INTEGER *LDX,
3055 DOUBLE *Y,
3056 const INTEGER *LDY)
3057 {
3058 DEBUG_LAPACK_STUB("dlabrd");
3059 LAPACK_IMPL(dlabrd)(M,
3060 N,
3061 NB,
3062 A,
3063 LDA,
3064 D,
3065 E,
3066 TAUQ,
3067 TAUP,
3068 X,
3069 LDX,
3070 Y,
3071 LDY);
3072 }
3073
3074 //-- dlacn2 --------------------------------------------------------------------
3075 void
3076 LAPACK_DECL(dlacn2)(const INTEGER *N,
3077 const DOUBLE *V,
3078 DOUBLE *X,
3079 const INTEGER *ISGN,
3080 DOUBLE *EST,
3081 INTEGER *KASE,
3082 INTEGER *ISAVE)
3083 {
3084 DEBUG_LAPACK_STUB("dlacn2");
3085 std::cerr << "dlacn2" << std::endl;
3086 LAPACK_IMPL(dlacn2)(N,
3087 V,
3088 X,
3089 ISGN,
3090 EST,
3091 KASE,
3092 ISAVE);
3093 }
3094
3095 //-- dlacon --------------------------------------------------------------------
3096 void
3097 LAPACK_DECL(dlacon)(const INTEGER *N,
3098 const DOUBLE *V,
3099 DOUBLE *X,
3100 const INTEGER *ISGN,
3101 DOUBLE *EST,
3102 INTEGER *KASE)
3103 {
3104 DEBUG_LAPACK_STUB("dlacon");
3105 LAPACK_IMPL(dlacon)(N,
3106 V,
3107 X,
3108 ISGN,
3109 EST,
3110 KASE);
3111 }
3112
3113 //-- dlacpy --------------------------------------------------------------------
3114 void
3115 LAPACK_DECL(dlacpy)(const char *UPLO,
3116 const INTEGER *M,
3117 const INTEGER *N,
3118 const DOUBLE *A,
3119 const INTEGER *LDA,
3120 DOUBLE *B,
3121 const INTEGER *LDB)
3122 {
3123 DEBUG_LAPACK_STUB("dlacpy");
3124 LAPACK_IMPL(dlacpy)(UPLO,
3125 M,
3126 N,
3127 A,
3128 LDA,
3129 B,
3130 LDB);
3131 }
3132
3133 //-- dladiv --------------------------------------------------------------------
3134 void
3135 LAPACK_DECL(dladiv)(const DOUBLE *A,
3136 const DOUBLE *B,
3137 const DOUBLE *C,
3138 const DOUBLE *D,
3139 DOUBLE *P,
3140 DOUBLE *Q)
3141 {
3142 DEBUG_LAPACK_STUB("dladiv");
3143 LAPACK_IMPL(dladiv)(A,
3144 B,
3145 C,
3146 D,
3147 P,
3148 Q);
3149 }
3150
3151 //-- dlae2 ---------------------------------------------------------------------
3152 void
3153 LAPACK_DECL(dlae2)(const DOUBLE *A,
3154 const DOUBLE *B,
3155 const DOUBLE *C,
3156 DOUBLE *RT1,
3157 DOUBLE *RT2)
3158 {
3159 DEBUG_LAPACK_STUB("dlae2");
3160 LAPACK_IMPL(dlae2)(A,
3161 B,
3162 C,
3163 RT1,
3164 RT2);
3165 }
3166
3167 //-- dlaebz --------------------------------------------------------------------
3168 void
3169 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
3170 const INTEGER *NITMAX,
3171 const INTEGER *N,
3172 const INTEGER *MMAX,
3173 const INTEGER *MINP,
3174 const INTEGER *NBMIN,
3175 const DOUBLE *ABSTOL,
3176 const DOUBLE *RELTOL,
3177 const DOUBLE *PIVMIN,
3178 const DOUBLE *D,
3179 const DOUBLE *E,
3180 const DOUBLE *E2,
3181 INTEGER *NVAL,
3182 DOUBLE *AB,
3183 DOUBLE *C,
3184 INTEGER *MOUT,
3185 INTEGER *NAB,
3186 const DOUBLE *WORK,
3187 const INTEGER *IWORK,
3188 INTEGER *INFO)
3189 {
3190 DEBUG_LAPACK_STUB("dlaebz");
3191 LAPACK_IMPL(dlaebz)(IJOB,
3192 NITMAX,
3193 N,
3194 MMAX,
3195 MINP,
3196 NBMIN,
3197 ABSTOL,
3198 RELTOL,
3199 PIVMIN,
3200 D,
3201 E,
3202 E2,
3203 NVAL,
3204 AB,
3205 C,
3206 MOUT,
3207 NAB,
3208 WORK,
3209 IWORK,
3210 INFO);
3211 }
3212
3213 //-- dlaed0 --------------------------------------------------------------------
3214 void
3215 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
3216 const INTEGER *QSIZ,
3217 const INTEGER *N,
3218 DOUBLE *D,
3219 const DOUBLE *E,
3220 DOUBLE *Q,
3221 const INTEGER *LDQ,
3222 const DOUBLE *QSTORE,
3223 const INTEGER *LDQS,
3224 const DOUBLE *WORK,
3225 const INTEGER *IWORK,
3226 INTEGER *INFO)
3227 {
3228 DEBUG_LAPACK_STUB("dlaed0");
3229 LAPACK_IMPL(dlaed0)(ICOMPQ,
3230 QSIZ,
3231 N,
3232 D,
3233 E,
3234 Q,
3235 LDQ,
3236 QSTORE,
3237 LDQS,
3238 WORK,
3239 IWORK,
3240 INFO);
3241 }
3242
3243 //-- dlaed1 --------------------------------------------------------------------
3244 void
3245 LAPACK_DECL(dlaed1)(const INTEGER *N,
3246 DOUBLE *D,
3247 DOUBLE *Q,
3248 const INTEGER *LDQ,
3249 INTEGER *INDXQ,
3250 const DOUBLE *RHO,
3251 const INTEGER *CUTPNT,
3252 const DOUBLE *WORK,
3253 const INTEGER *IWORK,
3254 INTEGER *INFO)
3255 {
3256 DEBUG_LAPACK_STUB("dlaed1");
3257 LAPACK_IMPL(dlaed1)(N,
3258 D,
3259 Q,
3260 LDQ,
3261 INDXQ,
3262 RHO,
3263 CUTPNT,
3264 WORK,
3265 IWORK,
3266 INFO);
3267 }
3268
3269 //-- dlaed2 --------------------------------------------------------------------
3270 void
3271 LAPACK_DECL(dlaed2)(INTEGER *K,
3272 const INTEGER *N,
3273 const INTEGER *N1,
3274 DOUBLE *D,
3275 DOUBLE *Q,
3276 const INTEGER *LDQ,
3277 INTEGER *INDXQ,
3278 DOUBLE *RHO,
3279 const DOUBLE *Z,
3280 DOUBLE *DLAMDA,
3281 DOUBLE *W,
3282 DOUBLE *Q2,
3283 const INTEGER *INDX,
3284 INTEGER *INDXC,
3285 const INTEGER *INDXP,
3286 INTEGER *COLTYP,
3287 INTEGER *INFO)
3288 {
3289 DEBUG_LAPACK_STUB("dlaed2");
3290 LAPACK_IMPL(dlaed2)(K,
3291 N,
3292 N1,
3293 D,
3294 Q,
3295 LDQ,
3296 INDXQ,
3297 RHO,
3298 Z,
3299 DLAMDA,
3300 W,
3301 Q2,
3302 INDX,
3303 INDXC,
3304 INDXP,
3305 COLTYP,
3306 INFO);
3307 }
3308
3309 //-- dlaed3 --------------------------------------------------------------------
3310 void
3311 LAPACK_DECL(dlaed3)(const INTEGER *K,
3312 const INTEGER *N,
3313 const INTEGER *N1,
3314 DOUBLE *D,
3315 DOUBLE *Q,
3316 const INTEGER *LDQ,
3317 const DOUBLE *RHO,
3318 DOUBLE *DLAMDA,
3319 const DOUBLE *Q2,
3320 const INTEGER *INDX,
3321 const INTEGER *CTOT,
3322 DOUBLE *W,
3323 const DOUBLE *S,
3324 INTEGER *INFO)
3325 {
3326 DEBUG_LAPACK_STUB("dlaed3");
3327 LAPACK_IMPL(dlaed3)(K,
3328 N,
3329 N1,
3330 D,
3331 Q,
3332 LDQ,
3333 RHO,
3334 DLAMDA,
3335 Q2,
3336 INDX,
3337 CTOT,
3338 W,
3339 S,
3340 INFO);
3341 }
3342
3343 //-- dlaed4 --------------------------------------------------------------------
3344 void
3345 LAPACK_DECL(dlaed4)(const INTEGER *N,
3346 const INTEGER *I,
3347 const DOUBLE *D,
3348 const DOUBLE *Z,
3349 DOUBLE *DELTA,
3350 const DOUBLE *RHO,
3351 DOUBLE *DLAM,
3352 INTEGER *INFO)
3353 {
3354 DEBUG_LAPACK_STUB("dlaed4");
3355 LAPACK_IMPL(dlaed4)(N,
3356 I,
3357 D,
3358 Z,
3359 DELTA,
3360 RHO,
3361 DLAM,
3362 INFO);
3363 }
3364
3365 //-- dlaed5 --------------------------------------------------------------------
3366 void
3367 LAPACK_DECL(dlaed5)(const INTEGER *I,
3368 const DOUBLE *D,
3369 const DOUBLE *Z,
3370 DOUBLE *DELTA,
3371 const DOUBLE *RHO,
3372 DOUBLE *DLAM)
3373 {
3374 DEBUG_LAPACK_STUB("dlaed5");
3375 LAPACK_IMPL(dlaed5)(I,
3376 D,
3377 Z,
3378 DELTA,
3379 RHO,
3380 DLAM);
3381 }
3382
3383 //-- dlaed6 --------------------------------------------------------------------
3384 void
3385 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
3386 const LOGICAL *ORGATI,
3387 const DOUBLE *RHO,
3388 const DOUBLE *D,
3389 const DOUBLE *Z,
3390 const DOUBLE *FINIT,
3391 DOUBLE *TAU,
3392 INTEGER *INFO)
3393 {
3394 DEBUG_LAPACK_STUB("dlaed6");
3395 LAPACK_IMPL(dlaed6)(KNITER,
3396 ORGATI,
3397 RHO,
3398 D,
3399 Z,
3400 FINIT,
3401 TAU,
3402 INFO);
3403 }
3404
3405 //-- dlaed7 --------------------------------------------------------------------
3406 void
3407 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
3408 const INTEGER *N,
3409 const INTEGER *QSIZ,
3410 const INTEGER *TLVLS,
3411 const INTEGER *CURLVL,
3412 const INTEGER *CURPBM,
3413 DOUBLE *D,
3414 DOUBLE *Q,
3415 const INTEGER *LDQ,
3416 INTEGER *INDXQ,
3417 const DOUBLE *RHO,
3418 const INTEGER *CUTPNT,
3419 DOUBLE *QSTORE,
3420 INTEGER *QPTR,
3421 const INTEGER *PRMPTR,
3422 const INTEGER *PERM,
3423 const INTEGER *GIVPTR,
3424 const INTEGER *GIVCOL,
3425 const DOUBLE *GIVNUM,
3426 const DOUBLE *WORK,
3427 const INTEGER *IWORK,
3428 INTEGER *INFO)
3429 {
3430 DEBUG_LAPACK_STUB("dlaed7");
3431 LAPACK_IMPL(dlaed7)(ICOMPQ,
3432 N,
3433 QSIZ,
3434 TLVLS,
3435 CURLVL,
3436 CURPBM,
3437 D,
3438 Q,
3439 LDQ,
3440 INDXQ,
3441 RHO,
3442 CUTPNT,
3443 QSTORE,
3444 QPTR,
3445 PRMPTR,
3446 PERM,
3447 GIVPTR,
3448 GIVCOL,
3449 GIVNUM,
3450 WORK,
3451 IWORK,
3452 INFO);
3453 }
3454
3455 //-- dlaed8 --------------------------------------------------------------------
3456 void
3457 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
3458 INTEGER *K,
3459 const INTEGER *N,
3460 const INTEGER *QSIZ,
3461 DOUBLE *D,
3462 DOUBLE *Q,
3463 const INTEGER *LDQ,
3464 const INTEGER *INDXQ,
3465 DOUBLE *RHO,
3466 const INTEGER *CUTPNT,
3467 const DOUBLE *Z,
3468 DOUBLE *DLAMDA,
3469 DOUBLE *Q2,
3470 const INTEGER *LDQ2,
3471 DOUBLE *W,
3472 INTEGER *PERM,
3473 INTEGER *GIVPTR,
3474 INTEGER *GIVCOL,
3475 DOUBLE *GIVNUM,
3476 const INTEGER *INDXP,
3477 const INTEGER *INDX,
3478 INTEGER *INFO)
3479 {
3480 DEBUG_LAPACK_STUB("dlaed8");
3481 LAPACK_IMPL(dlaed8)(ICOMPQ,
3482 K,
3483 N,
3484 QSIZ,
3485 D,
3486 Q,
3487 LDQ,
3488 INDXQ,
3489 RHO,
3490 CUTPNT,
3491 Z,
3492 DLAMDA,
3493 Q2,
3494 LDQ2,
3495 W,
3496 PERM,
3497 GIVPTR,
3498 GIVCOL,
3499 GIVNUM,
3500 INDXP,
3501 INDX,
3502 INFO);
3503 }
3504
3505 //-- dlaed9 --------------------------------------------------------------------
3506 void
3507 LAPACK_DECL(dlaed9)(const INTEGER *K,
3508 const INTEGER *KSTART,
3509 const INTEGER *KSTOP,
3510 const INTEGER *N,
3511 DOUBLE *D,
3512 const DOUBLE *Q,
3513 const INTEGER *LDQ,
3514 const DOUBLE *RHO,
3515 const DOUBLE *DLAMDA,
3516 const DOUBLE *W,
3517 DOUBLE *S,
3518 const INTEGER *LDS,
3519 INTEGER *INFO)
3520 {
3521 DEBUG_LAPACK_STUB("dlaed9");
3522 LAPACK_IMPL(dlaed9)(K,
3523 KSTART,
3524 KSTOP,
3525 N,
3526 D,
3527 Q,
3528 LDQ,
3529 RHO,
3530 DLAMDA,
3531 W,
3532 S,
3533 LDS,
3534 INFO);
3535 }
3536
3537 //-- dlaeda --------------------------------------------------------------------
3538 void
3539 LAPACK_DECL(dlaeda)(const INTEGER *N,
3540 const INTEGER *TLVLS,
3541 const INTEGER *CURLVL,
3542 const INTEGER *CURPBM,
3543 const INTEGER *PRMPTR,
3544 const INTEGER *PERM,
3545 const INTEGER *GIVPTR,
3546 const INTEGER *GIVCOL,
3547 const DOUBLE *GIVNUM,
3548 const DOUBLE *Q,
3549 const INTEGER *QPTR,
3550 DOUBLE *Z,
3551 const DOUBLE *ZTEMP,
3552 INTEGER *INFO)
3553 {
3554 DEBUG_LAPACK_STUB("dlaeda");
3555 LAPACK_IMPL(dlaeda)(N,
3556 TLVLS,
3557 CURLVL,
3558 CURPBM,
3559 PRMPTR,
3560 PERM,
3561 GIVPTR,
3562 GIVCOL,
3563 GIVNUM,
3564 Q,
3565 QPTR,
3566 Z,
3567 ZTEMP,
3568 INFO);
3569 }
3570
3571 //-- dlaein --------------------------------------------------------------------
3572 void
3573 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
3574 const LOGICAL *NOINIT,
3575 const INTEGER *N,
3576 const DOUBLE *H,
3577 const INTEGER *LDH,
3578 const DOUBLE *WR,
3579 const DOUBLE *WI,
3580 DOUBLE *VR,
3581 DOUBLE *VI,
3582 const DOUBLE *B,
3583 const INTEGER *LDB,
3584 const DOUBLE *WORK,
3585 const DOUBLE *EPS3,
3586 const DOUBLE *SMLNUM,
3587 const DOUBLE *BIGNUM,
3588 INTEGER *INFO)
3589 {
3590 DEBUG_LAPACK_STUB("dlaein");
3591 LAPACK_IMPL(dlaein)(RIGHTV,
3592 NOINIT,
3593 N,
3594 H,
3595 LDH,
3596 WR,
3597 WI,
3598 VR,
3599 VI,
3600 B,
3601 LDB,
3602 WORK,
3603 EPS3,
3604 SMLNUM,
3605 BIGNUM,
3606 INFO);
3607 }
3608
3609 //-- dlaev2 --------------------------------------------------------------------
3610 void
3611 LAPACK_DECL(dlaev2)(const DOUBLE *A,
3612 const DOUBLE *B,
3613 const DOUBLE *C,
3614 DOUBLE *RT1,
3615 DOUBLE *RT2,
3616 DOUBLE *CS1,
3617 DOUBLE *SN1)
3618 {
3619 DEBUG_LAPACK_STUB("dlaev2");
3620 LAPACK_IMPL(dlaev2)(A,
3621 B,
3622 C,
3623 RT1,
3624 RT2,
3625 CS1,
3626 SN1);
3627 }
3628
3629 //-- dlaexc --------------------------------------------------------------------
3630 void
3631 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
3632 const INTEGER *N,
3633 DOUBLE *T,
3634 const INTEGER *LDT,
3635 DOUBLE *Q,
3636 const INTEGER *LDQ,
3637 const INTEGER *J1,
3638 const INTEGER *N1,
3639 const INTEGER *N2,
3640 const DOUBLE *WORK,
3641 INTEGER *INFO)
3642 {
3643 DEBUG_LAPACK_STUB("dlaexc");
3644 LAPACK_IMPL(dlaexc)(WANTQ,
3645 N,
3646 T,
3647 LDT,
3648 Q,
3649 LDQ,
3650 J1,
3651 N1,
3652 N2,
3653 WORK,
3654 INFO);
3655 }
3656
3657 //-- dlag2 ---------------------------------------------------------------------
3658 void
3659 LAPACK_DECL(dlag2)(const DOUBLE *A,
3660 const INTEGER *LDA,
3661 const DOUBLE *B,
3662 const INTEGER *LDB,
3663 const DOUBLE *SAFMIN,
3664 DOUBLE *SCALE1,
3665 DOUBLE *SCALE2,
3666 DOUBLE *WR1,
3667 DOUBLE *WR2,
3668 DOUBLE *WI)
3669 {
3670 DEBUG_LAPACK_STUB("dlag2");
3671 LAPACK_IMPL(dlag2)(A,
3672 LDA,
3673 B,
3674 LDB,
3675 SAFMIN,
3676 SCALE1,
3677 SCALE2,
3678 WR1,
3679 WR2,
3680 WI);
3681 }
3682
3683 //-- dlag2s --------------------------------------------------------------------
3684 void
3685 LAPACK_DECL(dlag2s)(const INTEGER *M,
3686 const INTEGER *N,
3687 const DOUBLE *A,
3688 const INTEGER *LDA,
3689 FLOAT *SA,
3690 const INTEGER *LDSA,
3691 INTEGER *INFO)
3692 {
3693 DEBUG_LAPACK_STUB("dlag2s");
3694 LAPACK_IMPL(dlag2s)(M,
3695 N,
3696 A,
3697 LDA,
3698 SA,
3699 LDSA,
3700 INFO);
3701 }
3702
3703 //-- dlags2 --------------------------------------------------------------------
3704 void
3705 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
3706 const DOUBLE *A1,
3707 const DOUBLE *A2,
3708 const DOUBLE *A3,
3709 const DOUBLE *B1,
3710 const DOUBLE *B2,
3711 const DOUBLE *B3,
3712 DOUBLE *CSU,
3713 DOUBLE *SNU,
3714 DOUBLE *CSV,
3715 DOUBLE *SNV,
3716 DOUBLE *CSQ,
3717 DOUBLE *SNQ)
3718 {
3719 DEBUG_LAPACK_STUB("dlags2");
3720 LAPACK_IMPL(dlags2)(UPPER,
3721 A1,
3722 A2,
3723 A3,
3724 B1,
3725 B2,
3726 B3,
3727 CSU,
3728 SNU,
3729 CSV,
3730 SNV,
3731 CSQ,
3732 SNQ);
3733 }
3734
3735 //-- dlagtf --------------------------------------------------------------------
3736 void
3737 LAPACK_DECL(dlagtf)(const INTEGER *N,
3738 DOUBLE *A,
3739 const DOUBLE *LAMBDA,
3740 DOUBLE *B,
3741 DOUBLE *C,
3742 const DOUBLE *TOL,
3743 DOUBLE *D,
3744 INTEGER *IN,
3745 INTEGER *INFO)
3746 {
3747 DEBUG_LAPACK_STUB("dlagtf");
3748 LAPACK_IMPL(dlagtf)(N,
3749 A,
3750 LAMBDA,
3751 B,
3752 C,
3753 TOL,
3754 D,
3755 IN,
3756 INFO);
3757 }
3758
3759 //-- dlagtm --------------------------------------------------------------------
3760 void
3761 LAPACK_DECL(dlagtm)(const char *TRANS,
3762 const INTEGER *N,
3763 const INTEGER *NRHS,
3764 const DOUBLE *ALPHA,
3765 const DOUBLE *DL,
3766 const DOUBLE *D,
3767 const DOUBLE *DU,
3768 const DOUBLE *X,
3769 const INTEGER *LDX,
3770 const DOUBLE *BETA,
3771 DOUBLE *B,
3772 const INTEGER *LDB)
3773 {
3774 DEBUG_LAPACK_STUB("dlagtm");
3775 LAPACK_IMPL(dlagtm)(TRANS,
3776 N,
3777 NRHS,
3778 ALPHA,
3779 DL,
3780 D,
3781 DU,
3782 X,
3783 LDX,
3784 BETA,
3785 B,
3786 LDB);
3787 }
3788
3789 //-- dlagts --------------------------------------------------------------------
3790 void
3791 LAPACK_DECL(dlagts)(const INTEGER *JOB,
3792 const INTEGER *N,
3793 const DOUBLE *A,
3794 const DOUBLE *B,
3795 const DOUBLE *C,
3796 const DOUBLE *D,
3797 const INTEGER *IN,
3798 DOUBLE *Y,
3799 DOUBLE *TOL,
3800 INTEGER *INFO)
3801 {
3802 DEBUG_LAPACK_STUB("dlagts");
3803 LAPACK_IMPL(dlagts)(JOB,
3804 N,
3805 A,
3806 B,
3807 C,
3808 D,
3809 IN,
3810 Y,
3811 TOL,
3812 INFO);
3813 }
3814
3815 //-- dlagv2 --------------------------------------------------------------------
3816 void
3817 LAPACK_DECL(dlagv2)(DOUBLE *A,
3818 const INTEGER *LDA,
3819 DOUBLE *B,
3820 const INTEGER *LDB,
3821 DOUBLE *ALPHAR,
3822 DOUBLE *ALPHAI,
3823 DOUBLE *BETA,
3824 DOUBLE *CSL,
3825 DOUBLE *SNL,
3826 DOUBLE *CSR,
3827 DOUBLE *SNR)
3828 {
3829 DEBUG_LAPACK_STUB("dlagv2");
3830 LAPACK_IMPL(dlagv2)(A,
3831 LDA,
3832 B,
3833 LDB,
3834 ALPHAR,
3835 ALPHAI,
3836 BETA,
3837 CSL,
3838 SNL,
3839 CSR,
3840 SNR);
3841 }
3842
3843 //-- dlahqr --------------------------------------------------------------------
3844 void
3845 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
3846 const LOGICAL *WANTZ,
3847 const INTEGER *N,
3848 const INTEGER *ILO,
3849 const INTEGER *IHI,
3850 DOUBLE *H,
3851 const INTEGER *LDH,
3852 DOUBLE *WR,
3853 DOUBLE *WI,
3854 const INTEGER *ILOZ,
3855 const INTEGER *IHIZ,
3856 DOUBLE *Z,
3857 const INTEGER *LDZ,
3858 INTEGER *INFO)
3859 {
3860 DEBUG_LAPACK_STUB("dlahqr");
3861 LAPACK_IMPL(dlahqr)(WANTT,
3862 WANTZ,
3863 N,
3864 ILO,
3865 IHI,
3866 H,
3867 LDH,
3868 WR,
3869 WI,
3870 ILOZ,
3871 IHIZ,
3872 Z,
3873 LDZ,
3874 INFO);
3875 }
3876
3877 //-- dlahr2 --------------------------------------------------------------------
3878 void
3879 LAPACK_DECL(dlahr2)(const INTEGER *N,
3880 const INTEGER *K,
3881 const INTEGER *NB,
3882 DOUBLE *A,
3883 const INTEGER *LDA,
3884 DOUBLE *TAU,
3885 DOUBLE *T,
3886 const INTEGER *LDT,
3887 DOUBLE *Y,
3888 const INTEGER *LDY)
3889 {
3890 DEBUG_LAPACK_STUB("dlahr2");
3891 LAPACK_IMPL(dlahr2)(N,
3892 K,
3893 NB,
3894 A,
3895 LDA,
3896 TAU,
3897 T,
3898 LDT,
3899 Y,
3900 LDY);
3901 }
3902
3903 //-- dlahrd --------------------------------------------------------------------
3904 void
3905 LAPACK_DECL(dlahrd)(const INTEGER *N,
3906 const INTEGER *K,
3907 const INTEGER *NB,
3908 DOUBLE *A,
3909 const INTEGER *LDA,
3910 DOUBLE *TAU,
3911 DOUBLE *T,
3912 const INTEGER *LDT,
3913 DOUBLE *Y,
3914 const INTEGER *LDY)
3915 {
3916 DEBUG_LAPACK_STUB("dlahrd");
3917 LAPACK_IMPL(dlahrd)(N,
3918 K,
3919 NB,
3920 A,
3921 LDA,
3922 TAU,
3923 T,
3924 LDT,
3925 Y,
3926 LDY);
3927 }
3928
3929 //-- dlaic1 --------------------------------------------------------------------
3930 void
3931 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
3932 const INTEGER *J,
3933 const DOUBLE *X,
3934 const DOUBLE *SEST,
3935 const DOUBLE *W,
3936 const DOUBLE *GAMMA,
3937 DOUBLE *SESTPR,
3938 DOUBLE *S,
3939 DOUBLE *C)
3940 {
3941 DEBUG_LAPACK_STUB("dlaic1");
3942 LAPACK_IMPL(dlaic1)(JOB,
3943 J,
3944 X,
3945 SEST,
3946 W,
3947 GAMMA,
3948 SESTPR,
3949 S,
3950 C);
3951 }
3952
3953 //-- dlaisnan ------------------------------------------------------------------
3954 LOGICAL
3955 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
3956 const DOUBLE *DIN2)
3957 {
3958 DEBUG_LAPACK_STUB("dlaisnan");
3959 return LAPACK_IMPL(dlaisnan)(DIN1,
3960 DIN2);
3961 }
3962
3963 //-- dlaln2 --------------------------------------------------------------------
3964 void
3965 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
3966 const INTEGER *NA,
3967 const INTEGER *NW,
3968 const DOUBLE *SMIN,
3969 const DOUBLE *CA,
3970 const DOUBLE *A,
3971 const INTEGER *LDA,
3972 const DOUBLE *D1,
3973 const DOUBLE *D2,
3974 const DOUBLE *B,
3975 const INTEGER *LDB,
3976 const DOUBLE *WR,
3977 const DOUBLE *WI,
3978 DOUBLE *X,
3979 const INTEGER *LDX,
3980 DOUBLE *SCALE,
3981 DOUBLE *XNORM,
3982 INTEGER *INFO)
3983 {
3984 DEBUG_LAPACK_STUB("dlaln2");
3985 LAPACK_IMPL(dlaln2)(LTRANS,
3986 NA,
3987 NW,
3988 SMIN,
3989 CA,
3990 A,
3991 LDA,
3992 D1,
3993 D2,
3994 B,
3995 LDB,
3996 WR,
3997 WI,
3998 X,
3999 LDX,
4000 SCALE,
4001 XNORM,
4002 INFO);
4003 }
4004
4005 //-- dlals0 --------------------------------------------------------------------
4006 void
4007 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
4008 const INTEGER *NL,
4009 const INTEGER *NR,
4010 const INTEGER *SQRE,
4011 const INTEGER *NRHS,
4012 DOUBLE *B,
4013 const INTEGER *LDB,
4014 const DOUBLE *BX,
4015 const INTEGER *LDBX,
4016 const INTEGER *PERM,
4017 const INTEGER *GIVPTR,
4018 const INTEGER *GIVCOL,
4019 const INTEGER *LDGCOL,
4020 const DOUBLE *GIVNUM,
4021 const INTEGER *LDGNUM,
4022 const DOUBLE *POLES,
4023 const DOUBLE *DIFL,
4024 const DOUBLE *DIFR,
4025 const DOUBLE *Z,
4026 const INTEGER *K,
4027 const DOUBLE *C,
4028 const DOUBLE *S,
4029 const DOUBLE *WORK,
4030 INTEGER *INFO)
4031 {
4032 DEBUG_LAPACK_STUB("dlals0");
4033 LAPACK_IMPL(dlals0)(ICOMPQ,
4034 NL,
4035 NR,
4036 SQRE,
4037 NRHS,
4038 B,
4039 LDB,
4040 BX,
4041 LDBX,
4042 PERM,
4043 GIVPTR,
4044 GIVCOL,
4045 LDGCOL,
4046 GIVNUM,
4047 LDGNUM,
4048 POLES,
4049 DIFL,
4050 DIFR,
4051 Z,
4052 K,
4053 C,
4054 S,
4055 WORK,
4056 INFO);
4057 }
4058
4059 //-- dlalsa --------------------------------------------------------------------
4060 void
4061 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
4062 const INTEGER *SMLSIZ,
4063 const INTEGER *N,
4064 const INTEGER *NRHS,
4065 DOUBLE *B,
4066 const INTEGER *LDB,
4067 DOUBLE *BX,
4068 const INTEGER *LDBX,
4069 const DOUBLE *U,
4070 const INTEGER *LDU,
4071 const DOUBLE *VT,
4072 const INTEGER *K,
4073 const DOUBLE *DIFL,
4074 const DOUBLE *DIFR,
4075 const DOUBLE *Z,
4076 const DOUBLE *POLES,
4077 const INTEGER *GIVPTR,
4078 const INTEGER *GIVCOL,
4079 const INTEGER *LDGCOL,
4080 const INTEGER *PERM,
4081 const DOUBLE *GIVNUM,
4082 const DOUBLE *C,
4083 const DOUBLE *S,
4084 const DOUBLE *WORK,
4085 const INTEGER *IWORK,
4086 INTEGER *INFO)
4087 {
4088 DEBUG_LAPACK_STUB("dlalsa");
4089 LAPACK_IMPL(dlalsa)(ICOMPQ,
4090 SMLSIZ,
4091 N,
4092 NRHS,
4093 B,
4094 LDB,
4095 BX,
4096 LDBX,
4097 U,
4098 LDU,
4099 VT,
4100 K,
4101 DIFL,
4102 DIFR,
4103 Z,
4104 POLES,
4105 GIVPTR,
4106 GIVCOL,
4107 LDGCOL,
4108 PERM,
4109 GIVNUM,
4110 C,
4111 S,
4112 WORK,
4113 IWORK,
4114 INFO);
4115 }
4116
4117 //-- dlalsd --------------------------------------------------------------------
4118 void
4119 LAPACK_DECL(dlalsd)(const char *UPLO,
4120 const INTEGER *SMLSIZ,
4121 const INTEGER *N,
4122 const INTEGER *NRHS,
4123 DOUBLE *D,
4124 DOUBLE *E,
4125 DOUBLE *B,
4126 const INTEGER *LDB,
4127 const DOUBLE *RCOND,
4128 INTEGER *RANK,
4129 const DOUBLE *WORK,
4130 const INTEGER *IWORK,
4131 INTEGER *INFO)
4132 {
4133 DEBUG_LAPACK_STUB("dlalsd");
4134 LAPACK_IMPL(dlalsd)(UPLO,
4135 SMLSIZ,
4136 N,
4137 NRHS,
4138 D,
4139 E,
4140 B,
4141 LDB,
4142 RCOND,
4143 RANK,
4144 WORK,
4145 IWORK,
4146 INFO);
4147 }
4148
4149 //-- dlamrg --------------------------------------------------------------------
4150 void
4151 LAPACK_DECL(dlamrg)(const INTEGER *N1,
4152 const INTEGER *N2,
4153 const DOUBLE *A,
4154 const INTEGER *DTRD1,
4155 const INTEGER *DTRD2,
4156 INTEGER *INDEX)
4157 {
4158 DEBUG_LAPACK_STUB("dlamrg");
4159 LAPACK_IMPL(dlamrg)(N1,
4160 N2,
4161 A,
4162 DTRD1,
4163 DTRD2,
4164 INDEX);
4165 }
4166
4167 //-- dlaneg --------------------------------------------------------------------
4168 INTEGER
4169 LAPACK_DECL(dlaneg)(const INTEGER *N,
4170 const DOUBLE *D,
4171 const DOUBLE *LLD,
4172 const DOUBLE *SIGMA,
4173 const DOUBLE *PIVMIN,
4174 const INTEGER *R)
4175 {
4176 DEBUG_LAPACK_STUB("dlaneg");
4177 return LAPACK_IMPL(dlaneg)(N,
4178 D,
4179 LLD,
4180 SIGMA,
4181 PIVMIN,
4182 R);
4183 }
4184
4185 //-- dlangb --------------------------------------------------------------------
4186 DOUBLE
4187 LAPACK_DECL(dlangb)(const char *NORM,
4188 const INTEGER *N,
4189 const INTEGER *KL,
4190 const INTEGER *KU,
4191 const DOUBLE *AB,
4192 const INTEGER *LDAB,
4193 const DOUBLE *WORK)
4194 {
4195 DEBUG_LAPACK_STUB("dlangb");
4196 return LAPACK_IMPL(dlangb)(NORM,
4197 N,
4198 KL,
4199 KU,
4200 AB,
4201 LDAB,
4202 WORK);
4203 }
4204
4205 //-- dlange --------------------------------------------------------------------
4206 DOUBLE
4207 LAPACK_DECL(dlange)(const char *NORM,
4208 const INTEGER *M,
4209 const INTEGER *N,
4210 const DOUBLE *A,
4211 const INTEGER *LDA,
4212 const DOUBLE *WORK)
4213 {
4214 DEBUG_LAPACK_STUB("dlange");
4215 return LAPACK_IMPL(dlange)(NORM,
4216 M,
4217 N,
4218 A,
4219 LDA,
4220 WORK);
4221 }
4222
4223 //-- dlangt --------------------------------------------------------------------
4224 DOUBLE
4225 LAPACK_DECL(dlangt)(const char *NORM,
4226 const INTEGER *N,
4227 const DOUBLE *DL,
4228 const DOUBLE *D,
4229 const DOUBLE *DU)
4230 {
4231 DEBUG_LAPACK_STUB("dlangt");
4232 return LAPACK_IMPL(dlangt)(NORM,
4233 N,
4234 DL,
4235 D,
4236 DU);
4237 }
4238
4239 //-- dlanhs --------------------------------------------------------------------
4240 DOUBLE
4241 LAPACK_DECL(dlanhs)(const char *NORM,
4242 const INTEGER *N,
4243 const DOUBLE *A,
4244 const INTEGER *LDA,
4245 const DOUBLE *WORK)
4246 {
4247 DEBUG_LAPACK_STUB("dlanhs");
4248 return LAPACK_IMPL(dlanhs)(NORM,
4249 N,
4250 A,
4251 LDA,
4252 WORK);
4253 }
4254
4255 //-- dlansb --------------------------------------------------------------------
4256 DOUBLE
4257 LAPACK_DECL(dlansb)(const char *NORM,
4258 const char *UPLO,
4259 const INTEGER *N,
4260 const INTEGER *K,
4261 const DOUBLE *AB,
4262 const INTEGER *LDAB,
4263 const DOUBLE *WORK)
4264 {
4265 DEBUG_LAPACK_STUB("dlansb");
4266 return LAPACK_IMPL(dlansb)(NORM,
4267 UPLO,
4268 N,
4269 K,
4270 AB,
4271 LDAB,
4272 WORK);
4273 }
4274
4275 //-- dlansf --------------------------------------------------------------------
4276 DOUBLE
4277 LAPACK_DECL(dlansf)(const char *NORM,
4278 const char *TRANSR,
4279 const char *UPLO,
4280 const INTEGER *N,
4281 const DOUBLE *A,
4282 const DOUBLE *WORK)
4283 {
4284 DEBUG_LAPACK_STUB("dlansf");
4285 return LAPACK_IMPL(dlansf)(NORM,
4286 TRANSR,
4287 UPLO,
4288 N,
4289 A,
4290 WORK);
4291 }
4292
4293 //-- dlansp --------------------------------------------------------------------
4294 DOUBLE
4295 LAPACK_DECL(dlansp)(const char *NORM,
4296 const char *UPLO,
4297 const INTEGER *N,
4298 const DOUBLE *AP,
4299 const DOUBLE *WORK)
4300 {
4301 DEBUG_LAPACK_STUB("dlansp");
4302 return LAPACK_IMPL(dlansp)(NORM,
4303 UPLO,
4304 N,
4305 AP,
4306 WORK);
4307 }
4308
4309 //-- dlanst --------------------------------------------------------------------
4310 DOUBLE
4311 LAPACK_DECL(dlanst)(const char *NORM,
4312 const INTEGER *N,
4313 const DOUBLE *D,
4314 const DOUBLE *E)
4315 {
4316 DEBUG_LAPACK_STUB("dlanst");
4317 return LAPACK_IMPL(dlanst)(NORM,
4318 N,
4319 D,
4320 E);
4321 }
4322
4323 //-- dlansy --------------------------------------------------------------------
4324 DOUBLE
4325 LAPACK_DECL(dlansy)(const char *NORM,
4326 const char *UPLO,
4327 const INTEGER *N,
4328 const DOUBLE *A,
4329 const INTEGER *LDA,
4330 const DOUBLE *WORK)
4331 {
4332 DEBUG_LAPACK_STUB("dlansy");
4333 return LAPACK_IMPL(dlansy)(NORM,
4334 UPLO,
4335 N,
4336 A,
4337 LDA,
4338 WORK);
4339 }
4340
4341 //-- dlantb --------------------------------------------------------------------
4342 DOUBLE
4343 LAPACK_DECL(dlantb)(const char *NORM,
4344 const char *UPLO,
4345 const char *DIAG,
4346 const INTEGER *N,
4347 const INTEGER *K,
4348 const DOUBLE *AB,
4349 const INTEGER *LDAB,
4350 const DOUBLE *WORK)
4351 {
4352 DEBUG_LAPACK_STUB("dlantb");
4353 return LAPACK_IMPL(dlantb)(NORM,
4354 UPLO,
4355 DIAG,
4356 N,
4357 K,
4358 AB,
4359 LDAB,
4360 WORK);
4361 }
4362
4363 //-- dlantp --------------------------------------------------------------------
4364 DOUBLE
4365 LAPACK_DECL(dlantp)(const char *NORM,
4366 const char *UPLO,
4367 const char *DIAG,
4368 const INTEGER *N,
4369 const DOUBLE *AP,
4370 const DOUBLE *WORK)
4371 {
4372 DEBUG_LAPACK_STUB("dlantp");
4373 return LAPACK_IMPL(dlantp)(NORM,
4374 UPLO,
4375 DIAG,
4376 N,
4377 AP,
4378 WORK);
4379 }
4380
4381 //-- dlantr --------------------------------------------------------------------
4382 DOUBLE
4383 LAPACK_DECL(dlantr)(const char *NORM,
4384 const char *UPLO,
4385 const char *DIAG,
4386 const INTEGER *M,
4387 const INTEGER *N,
4388 const DOUBLE *A,
4389 const INTEGER *LDA,
4390 const DOUBLE *WORK)
4391 {
4392 DEBUG_LAPACK_STUB("dlantr");
4393 return LAPACK_IMPL(dlantr)(NORM,
4394 UPLO,
4395 DIAG,
4396 M,
4397 N,
4398 A,
4399 LDA,
4400 WORK);
4401 }
4402
4403 //-- dlanv2 --------------------------------------------------------------------
4404 void
4405 LAPACK_DECL(dlanv2)(DOUBLE *A,
4406 DOUBLE *B,
4407 DOUBLE *C,
4408 DOUBLE *D,
4409 DOUBLE *RT1R,
4410 DOUBLE *RT1I,
4411 DOUBLE *RT2R,
4412 DOUBLE *RT2I,
4413 DOUBLE *CS,
4414 DOUBLE *SN)
4415 {
4416 DEBUG_LAPACK_STUB("dlanv2");
4417 LAPACK_IMPL(dlanv2)(A,
4418 B,
4419 C,
4420 D,
4421 RT1R,
4422 RT1I,
4423 RT2R,
4424 RT2I,
4425 CS,
4426 SN);
4427 }
4428
4429 //-- dlapll --------------------------------------------------------------------
4430 void
4431 LAPACK_DECL(dlapll)(const INTEGER *N,
4432 DOUBLE *X,
4433 const INTEGER *INCX,
4434 DOUBLE *Y,
4435 const INTEGER *INCY,
4436 DOUBLE *SSMIN)
4437 {
4438 DEBUG_LAPACK_STUB("dlapll");
4439 LAPACK_IMPL(dlapll)(N,
4440 X,
4441 INCX,
4442 Y,
4443 INCY,
4444 SSMIN);
4445 }
4446
4447 //-- dlapmr --------------------------------------------------------------------
4448 void
4449 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
4450 const INTEGER *M,
4451 const INTEGER *N,
4452 DOUBLE *X,
4453 const INTEGER *LDX,
4454 INTEGER *K)
4455 {
4456 DEBUG_LAPACK_STUB("dlapmr");
4457 LAPACK_IMPL(dlapmr)(FORWRD,
4458 M,
4459 N,
4460 X,
4461 LDX,
4462 K);
4463 }
4464
4465 //-- dlapmt --------------------------------------------------------------------
4466 void
4467 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
4468 const INTEGER *M,
4469 const INTEGER *N,
4470 DOUBLE *X,
4471 const INTEGER *LDX,
4472 INTEGER *K)
4473 {
4474 DEBUG_LAPACK_STUB("dlapmt");
4475 LAPACK_IMPL(dlapmt)(FORWRD,
4476 M,
4477 N,
4478 X,
4479 LDX,
4480 K);
4481 }
4482
4483 //-- dlapy2 --------------------------------------------------------------------
4484 DOUBLE
4485 LAPACK_DECL(dlapy2)(const DOUBLE *X,
4486 const DOUBLE *Y)
4487 {
4488 DEBUG_LAPACK_STUB("dlapy2");
4489 return LAPACK_IMPL(dlapy2)(X,
4490 Y);
4491 }
4492
4493 //-- dlapy3 --------------------------------------------------------------------
4494 DOUBLE
4495 LAPACK_DECL(dlapy3)(const DOUBLE *X,
4496 const DOUBLE *Y,
4497 const DOUBLE *Z)
4498 {
4499 DEBUG_LAPACK_STUB("dlapy3");
4500 return LAPACK_IMPL(dlapy3)(X,
4501 Y,
4502 Z);
4503 }
4504
4505 //-- dlaqgb --------------------------------------------------------------------
4506 void
4507 LAPACK_DECL(dlaqgb)(const INTEGER *M,
4508 const INTEGER *N,
4509 const INTEGER *KL,
4510 const INTEGER *KU,
4511 DOUBLE *AB,
4512 const INTEGER *LDAB,
4513 const DOUBLE *R,
4514 const DOUBLE *C,
4515 const DOUBLE *ROWCND,
4516 const DOUBLE *COLCND,
4517 const DOUBLE *AMAX,
4518 char *EQUED)
4519 {
4520 DEBUG_LAPACK_STUB("dlaqgb");
4521 LAPACK_IMPL(dlaqgb)(M,
4522 N,
4523 KL,
4524 KU,
4525 AB,
4526 LDAB,
4527 R,
4528 C,
4529 ROWCND,
4530 COLCND,
4531 AMAX,
4532 EQUED);
4533 }
4534
4535 //-- dlaqge --------------------------------------------------------------------
4536 /*
4537 void
4538 LAPACK_DECL(dlaqge)(const INTEGER *M,
4539 const INTEGER *N,
4540 DOUBLE *A,
4541 const INTEGER *LDA,
4542 const DOUBLE *R,
4543 const DOUBLE *C,
4544 const DOUBLE *ROWCND,
4545 const DOUBLE *COLCND,
4546 const DOUBLE *AMAX,
4547 char *EQUED)
4548 {
4549 DEBUG_LAPACK_STUB("dlaqge");
4550 LAPACK_IMPL(dlaqge)(M,
4551 N,
4552 A,
4553 LDA,
4554 R,
4555 C,
4556 ROWCND,
4557 COLCND,
4558 AMAX,
4559 EQUED);
4560 }
4561 */
4562
4563 //-- dlaqp2 --------------------------------------------------------------------
4564 void
4565 LAPACK_DECL(dlaqp2)(const INTEGER *M,
4566 const INTEGER *N,
4567 const INTEGER *OFFSET,
4568 DOUBLE *A,
4569 const INTEGER *LDA,
4570 INTEGER *JPVT,
4571 DOUBLE *TAU,
4572 DOUBLE *VN1,
4573 DOUBLE *VN2,
4574 const DOUBLE *WORK)
4575 {
4576 DEBUG_LAPACK_STUB("dlaqp2");
4577 LAPACK_IMPL(dlaqp2)(M,
4578 N,
4579 OFFSET,
4580 A,
4581 LDA,
4582 JPVT,
4583 TAU,
4584 VN1,
4585 VN2,
4586 WORK);
4587 }
4588
4589 //-- dlaqps --------------------------------------------------------------------
4590 void
4591 LAPACK_DECL(dlaqps)(const INTEGER *M,
4592 const INTEGER *N,
4593 const INTEGER *OFFSET,
4594 const INTEGER *NB,
4595 INTEGER *KB,
4596 DOUBLE *A,
4597 const INTEGER *LDA,
4598 INTEGER *JPVT,
4599 DOUBLE *TAU,
4600 DOUBLE *VN1,
4601 DOUBLE *VN2,
4602 DOUBLE *AUXV,
4603 DOUBLE *F,
4604 const INTEGER *LDF)
4605 {
4606 DEBUG_LAPACK_STUB("dlaqps");
4607 LAPACK_IMPL(dlaqps)(M,
4608 N,
4609 OFFSET,
4610 NB,
4611 KB,
4612 A,
4613 LDA,
4614 JPVT,
4615 TAU,
4616 VN1,
4617 VN2,
4618 AUXV,
4619 F,
4620 LDF);
4621 }
4622
4623 //-- dlaqr0 --------------------------------------------------------------------
4624 void
4625 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
4626 const LOGICAL *WANTZ,
4627 const INTEGER *N,
4628 const INTEGER *ILO,
4629 const INTEGER *IHI,
4630 DOUBLE *H,
4631 const INTEGER *LDH,
4632 DOUBLE *WR,
4633 DOUBLE *WI,
4634 const INTEGER *ILOZ,
4635 const INTEGER *IHIZ,
4636 DOUBLE *Z,
4637 const INTEGER *LDZ,
4638 DOUBLE *WORK,
4639 const INTEGER *LWORK,
4640 INTEGER *INFO)
4641 {
4642 DEBUG_LAPACK_STUB("dlaqr0");
4643 LAPACK_IMPL(dlaqr0)(WANTT,
4644 WANTZ,
4645 N,
4646 ILO,
4647 IHI,
4648 H,
4649 LDH,
4650 WR,
4651 WI,
4652 ILOZ,
4653 IHIZ,
4654 Z,
4655 LDZ,
4656 WORK,
4657 LWORK,
4658 INFO);
4659 }
4660
4661 //-- dlaqr1 --------------------------------------------------------------------
4662 void
4663 LAPACK_DECL(dlaqr1)(const INTEGER *N,
4664 const DOUBLE *H,
4665 const INTEGER *LDH,
4666 const DOUBLE *SR1,
4667 const DOUBLE *SI1,
4668 const DOUBLE *SR2,
4669 const DOUBLE *SI2,
4670 DOUBLE *V)
4671 {
4672 DEBUG_LAPACK_STUB("dlaqr1");
4673 LAPACK_IMPL(dlaqr1)(N,
4674 H,
4675 LDH,
4676 SR1,
4677 SI1,
4678 SR2,
4679 SI2,
4680 V);
4681 }
4682
4683 //-- dlaqr2 --------------------------------------------------------------------
4684 void
4685 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
4686 const LOGICAL *WANTZ,
4687 const INTEGER *N,
4688 const INTEGER *KTOP,
4689 const INTEGER *KBOT,
4690 const INTEGER *NW,
4691 DOUBLE *H,
4692 const INTEGER *LDH,
4693 const INTEGER *ILOZ,
4694 const INTEGER *IHIZ,
4695 DOUBLE *Z,
4696 const INTEGER *LDZ,
4697 INTEGER *NS,
4698 INTEGER *ND,
4699 DOUBLE *SR,
4700 DOUBLE *SI,
4701 const DOUBLE *V,
4702 const INTEGER *LDV,
4703 const INTEGER *NH,
4704 const DOUBLE *T,
4705 const INTEGER *LDT,
4706 const INTEGER *NV,
4707 const DOUBLE *WV,
4708 const INTEGER *LDWV,
4709 const DOUBLE *WORK,
4710 const INTEGER *LWORK)
4711 {
4712 DEBUG_LAPACK_STUB("dlaqr2");
4713 LAPACK_IMPL(dlaqr2)(WANTT,
4714 WANTZ,
4715 N,
4716 KTOP,
4717 KBOT,
4718 NW,
4719 H,
4720 LDH,
4721 ILOZ,
4722 IHIZ,
4723 Z,
4724 LDZ,
4725 NS,
4726 ND,
4727 SR,
4728 SI,
4729 V,
4730 LDV,
4731 NH,
4732 T,
4733 LDT,
4734 NV,
4735 WV,
4736 LDWV,
4737 WORK,
4738 LWORK);
4739 }
4740
4741 //-- dlaqr3 --------------------------------------------------------------------
4742 void
4743 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
4744 const LOGICAL *WANTZ,
4745 const INTEGER *N,
4746 const INTEGER *KTOP,
4747 const INTEGER *KBOT,
4748 const INTEGER *NW,
4749 DOUBLE *H,
4750 const INTEGER *LDH,
4751 const INTEGER *ILOZ,
4752 const INTEGER *IHIZ,
4753 DOUBLE *Z,
4754 const INTEGER *LDZ,
4755 INTEGER *NS,
4756 INTEGER *ND,
4757 DOUBLE *SR,
4758 DOUBLE *SI,
4759 const DOUBLE *V,
4760 const INTEGER *LDV,
4761 const INTEGER *NH,
4762 const DOUBLE *T,
4763 const INTEGER *LDT,
4764 const INTEGER *NV,
4765 const DOUBLE *WV,
4766 const INTEGER *LDWV,
4767 const DOUBLE *WORK,
4768 const INTEGER *LWORK)
4769 {
4770 DEBUG_LAPACK_STUB("dlaqr3");
4771 LAPACK_IMPL(dlaqr3)(WANTT,
4772 WANTZ,
4773 N,
4774 KTOP,
4775 KBOT,
4776 NW,
4777 H,
4778 LDH,
4779 ILOZ,
4780 IHIZ,
4781 Z,
4782 LDZ,
4783 NS,
4784 ND,
4785 SR,
4786 SI,
4787 V,
4788 LDV,
4789 NH,
4790 T,
4791 LDT,
4792 NV,
4793 WV,
4794 LDWV,
4795 WORK,
4796 LWORK);
4797 }
4798
4799 //-- dlaqr4 --------------------------------------------------------------------
4800 void
4801 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
4802 const LOGICAL *WANTZ,
4803 const INTEGER *N,
4804 const INTEGER *ILO,
4805 const INTEGER *IHI,
4806 DOUBLE *H,
4807 const INTEGER *LDH,
4808 DOUBLE *WR,
4809 DOUBLE *WI,
4810 const INTEGER *ILOZ,
4811 const INTEGER *IHIZ,
4812 DOUBLE *Z,
4813 const INTEGER *LDZ,
4814 DOUBLE *WORK,
4815 const INTEGER *LWORK,
4816 INTEGER *INFO)
4817 {
4818 DEBUG_LAPACK_STUB("dlaqr4");
4819 LAPACK_IMPL(dlaqr4)(WANTT,
4820 WANTZ,
4821 N,
4822 ILO,
4823 IHI,
4824 H,
4825 LDH,
4826 WR,
4827 WI,
4828 ILOZ,
4829 IHIZ,
4830 Z,
4831 LDZ,
4832 WORK,
4833 LWORK,
4834 INFO);
4835 }
4836
4837 //-- dlaqr5 --------------------------------------------------------------------
4838 void
4839 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
4840 const LOGICAL *WANTZ,
4841 const INTEGER *KACC22,
4842 const INTEGER *N,
4843 const INTEGER *KTOP,
4844 const INTEGER *KBOT,
4845 const INTEGER *NSHFTS,
4846 DOUBLE *SR,
4847 DOUBLE *SI,
4848 DOUBLE *H,
4849 const INTEGER *LDH,
4850 const INTEGER *ILOZ,
4851 const INTEGER *IHIZ,
4852 DOUBLE *Z,
4853 const INTEGER *LDZ,
4854 const DOUBLE *V,
4855 const INTEGER *LDV,
4856 const DOUBLE *U,
4857 const INTEGER *LDU,
4858 const INTEGER *NV,
4859 const DOUBLE *WV,
4860 const INTEGER *LDWV,
4861 const INTEGER *NH,
4862 const DOUBLE *WH,
4863 const INTEGER *LDWH)
4864 {
4865 DEBUG_LAPACK_STUB("dlaqr5");
4866 LAPACK_IMPL(dlaqr5)(WANTT,
4867 WANTZ,
4868 KACC22,
4869 N,
4870 KTOP,
4871 KBOT,
4872 NSHFTS,
4873 SR,
4874 SI,
4875 H,
4876 LDH,
4877 ILOZ,
4878 IHIZ,
4879 Z,
4880 LDZ,
4881 V,
4882 LDV,
4883 U,
4884 LDU,
4885 NV,
4886 WV,
4887 LDWV,
4888 NH,
4889 WH,
4890 LDWH);
4891 }
4892
4893 //-- dlaqsb --------------------------------------------------------------------
4894 void
4895 LAPACK_DECL(dlaqsb)(const char *UPLO,
4896 const INTEGER *N,
4897 const INTEGER *KD,
4898 DOUBLE *AB,
4899 const INTEGER *LDAB,
4900 const DOUBLE *S,
4901 const DOUBLE *SCOND,
4902 const DOUBLE *AMAX,
4903 char *EQUED)
4904 {
4905 DEBUG_LAPACK_STUB("dlaqsb");
4906 LAPACK_IMPL(dlaqsb)(UPLO,
4907 N,
4908 KD,
4909 AB,
4910 LDAB,
4911 S,
4912 SCOND,
4913 AMAX,
4914 EQUED);
4915 }
4916
4917 //-- dlaqsp --------------------------------------------------------------------
4918 void
4919 LAPACK_DECL(dlaqsp)(const char *UPLO,
4920 const INTEGER *N,
4921 DOUBLE *AP,
4922 const DOUBLE *S,
4923 const DOUBLE *SCOND,
4924 const DOUBLE *AMAX,
4925 char *EQUED)
4926 {
4927 DEBUG_LAPACK_STUB("dlaqsp");
4928 LAPACK_IMPL(dlaqsp)(UPLO,
4929 N,
4930 AP,
4931 S,
4932 SCOND,
4933 AMAX,
4934 EQUED);
4935 }
4936
4937 //-- dlaqsy --------------------------------------------------------------------
4938 void
4939 LAPACK_DECL(dlaqsy)(const char *UPLO,
4940 const INTEGER *N,
4941 DOUBLE *A,
4942 const INTEGER *LDA,
4943 const DOUBLE *S,
4944 const DOUBLE *SCOND,
4945 const DOUBLE *AMAX,
4946 char *EQUED)
4947 {
4948 DEBUG_LAPACK_STUB("dlaqsy");
4949 LAPACK_IMPL(dlaqsy)(UPLO,
4950 N,
4951 A,
4952 LDA,
4953 S,
4954 SCOND,
4955 AMAX,
4956 EQUED);
4957 }
4958
4959 //-- dlaqtr --------------------------------------------------------------------
4960 void
4961 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
4962 const LOGICAL *LREAL,
4963 const INTEGER *N,
4964 const DOUBLE *T,
4965 const INTEGER *LDT,
4966 const DOUBLE *B,
4967 const DOUBLE *W,
4968 DOUBLE *SCALE,
4969 DOUBLE *X,
4970 const DOUBLE *WORK,
4971 INTEGER *INFO)
4972 {
4973 DEBUG_LAPACK_STUB("dlaqtr");
4974 LAPACK_IMPL(dlaqtr)(LTRAN,
4975 LREAL,
4976 N,
4977 T,
4978 LDT,
4979 B,
4980 W,
4981 SCALE,
4982 X,
4983 WORK,
4984 INFO);
4985 }
4986
4987 //-- dlar1v --------------------------------------------------------------------
4988 void
4989 LAPACK_DECL(dlar1v)(const INTEGER *N,
4990 const INTEGER *B1,
4991 const INTEGER *BN,
4992 const DOUBLE *LAMBDA,
4993 const DOUBLE *D,
4994 const DOUBLE *L,
4995 const DOUBLE *LD,
4996 const DOUBLE *LLD,
4997 const DOUBLE *PIVMIN,
4998 const DOUBLE *GAPTOL,
4999 DOUBLE *Z,
5000 const LOGICAL *WANTNC,
5001 INTEGER *NEGCNT,
5002 DOUBLE *ZTZ,
5003 DOUBLE *MINGMA,
5004 INTEGER *R,
5005 INTEGER *ISUPPZ,
5006 DOUBLE *NRMINV,
5007 DOUBLE *RESID,
5008 DOUBLE *RQCORR,
5009 const DOUBLE *WORK)
5010 {
5011 DEBUG_LAPACK_STUB("dlar1v");
5012 LAPACK_IMPL(dlar1v)(N,
5013 B1,
5014 BN,
5015 LAMBDA,
5016 D,
5017 L,
5018 LD,
5019 LLD,
5020 PIVMIN,
5021 GAPTOL,
5022 Z,
5023 WANTNC,
5024 NEGCNT,
5025 ZTZ,
5026 MINGMA,
5027 R,
5028 ISUPPZ,
5029 NRMINV,
5030 RESID,
5031 RQCORR,
5032 WORK);
5033 }
5034
5035 //-- dlar2v --------------------------------------------------------------------
5036 void
5037 LAPACK_DECL(dlar2v)(const INTEGER *N,
5038 DOUBLE *X,
5039 DOUBLE *Y,
5040 DOUBLE *Z,
5041 const INTEGER *INCX,
5042 const DOUBLE *C,
5043 const DOUBLE *S,
5044 const INTEGER *INCC)
5045 {
5046 DEBUG_LAPACK_STUB("dlar2v");
5047 LAPACK_IMPL(dlar2v)(N,
5048 X,
5049 Y,
5050 Z,
5051 INCX,
5052 C,
5053 S,
5054 INCC);
5055 }
5056
5057 //-- dlarf ---------------------------------------------------------------------
5058 void
5059 LAPACK_DECL(dlarf)(const char *SIDE,
5060 const INTEGER *M,
5061 const INTEGER *N,
5062 const DOUBLE *V,
5063 const INTEGER *INCV,
5064 const DOUBLE *TAU,
5065 DOUBLE *C,
5066 const INTEGER *LDC,
5067 const DOUBLE *WORK)
5068 {
5069 DEBUG_LAPACK_STUB("enter: dlarf");
5070 LAPACK_IMPL(dlarf)(SIDE,
5071 M,
5072 N,
5073 V,
5074 INCV,
5075 TAU,
5076 C,
5077 LDC,
5078 WORK);
5079 DEBUG_LAPACK_STUB("leave: dlarf");
5080 }
5081
5082 //-- dlarfb --------------------------------------------------------------------
5083 void
5084 LAPACK_DECL(dlarfb)(const char *SIDE,
5085 const char *TRANS,
5086 const char *DIRECT,
5087 const char *STOREV,
5088 const INTEGER *M,
5089 const INTEGER *N,
5090 const INTEGER *K,
5091 const DOUBLE *V,
5092 const INTEGER *LDV,
5093 const DOUBLE *T,
5094 const INTEGER *LDT,
5095 DOUBLE *C,
5096 const INTEGER *LDC,
5097 const DOUBLE *WORK,
5098 const INTEGER *LDWORK)
5099 {
5100 DEBUG_LAPACK_STUB("dlarfb");
5101 LAPACK_IMPL(dlarfb)(SIDE,
5102 TRANS,
5103 DIRECT,
5104 STOREV,
5105 M,
5106 N,
5107 K,
5108 V,
5109 LDV,
5110 T,
5111 LDT,
5112 C,
5113 LDC,
5114 WORK,
5115 LDWORK);
5116 }
5117
5118 //-- dlarfg --------------------------------------------------------------------
5119 void
5120 LAPACK_DECL(dlarfg)(const INTEGER *N,
5121 DOUBLE *ALPHA,
5122 DOUBLE *X,
5123 const INTEGER *INCX,
5124 DOUBLE *TAU)
5125 {
5126 DEBUG_LAPACK_STUB("dlarfg");
5127 LAPACK_IMPL(dlarfg)(N,
5128 ALPHA,
5129 X,
5130 INCX,
5131 TAU);
5132 }
5133
5134 //-- dlarfgp -------------------------------------------------------------------
5135 void
5136 LAPACK_DECL(dlarfgp)(const INTEGER *N,
5137 DOUBLE *ALPHA,
5138 DOUBLE *X,
5139 const INTEGER *INCX,
5140 DOUBLE *TAU)
5141 {
5142 DEBUG_LAPACK_STUB("dlarfgp");
5143 LAPACK_IMPL(dlarfgp)(N,
5144 ALPHA,
5145 X,
5146 INCX,
5147 TAU);
5148 }
5149
5150 //-- dlarft --------------------------------------------------------------------
5151 void
5152 LAPACK_DECL(dlarft)(const char *DIRECT,
5153 const char *STOREV,
5154 const INTEGER *N,
5155 const INTEGER *K,
5156 DOUBLE *V,
5157 const INTEGER *LDV,
5158 const DOUBLE *TAU,
5159 DOUBLE *T,
5160 const INTEGER *LDT)
5161 {
5162 DEBUG_LAPACK_STUB("dlarft");
5163 LAPACK_IMPL(dlarft)(DIRECT,
5164 STOREV,
5165 N,
5166 K,
5167 V,
5168 LDV,
5169 TAU,
5170 T,
5171 LDT);
5172 }
5173
5174 //-- dlarfx --------------------------------------------------------------------
5175 void
5176 LAPACK_DECL(dlarfx)(const char *SIDE,
5177 const INTEGER *M,
5178 const INTEGER *N,
5179 const DOUBLE *V,
5180 const DOUBLE *TAU,
5181 DOUBLE *C,
5182 const INTEGER *LDC,
5183 const DOUBLE *WORK)
5184 {
5185 DEBUG_LAPACK_STUB("dlarfx");
5186 LAPACK_IMPL(dlarfx)(SIDE,
5187 M,
5188 N,
5189 V,
5190 TAU,
5191 C,
5192 LDC,
5193 WORK);
5194 }
5195
5196 //-- dlargv --------------------------------------------------------------------
5197 void
5198 LAPACK_DECL(dlargv)(const INTEGER *N,
5199 DOUBLE *X,
5200 const INTEGER *INCX,
5201 DOUBLE *Y,
5202 const INTEGER *INCY,
5203 DOUBLE *C,
5204 const INTEGER *INCC)
5205 {
5206 DEBUG_LAPACK_STUB("dlargv");
5207 LAPACK_IMPL(dlargv)(N,
5208 X,
5209 INCX,
5210 Y,
5211 INCY,
5212 C,
5213 INCC);
5214 }
5215
5216 //-- dlarnv --------------------------------------------------------------------
5217 void
5218 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
5219 INTEGER *ISEED,
5220 const INTEGER *N,
5221 DOUBLE *X)
5222 {
5223 # ifdef DEBUG_ALL_LAPACK_STUB
5224 DEBUG_LAPACK_STUB("dlarnv");
5225 # endif
5226 LAPACK_IMPL(dlarnv)(IDIST,
5227 ISEED,
5228 N,
5229 X);
5230 }
5231
5232 //-- dlarra --------------------------------------------------------------------
5233 void
5234 LAPACK_DECL(dlarra)(const INTEGER *N,
5235 const DOUBLE *D,
5236 DOUBLE *E,
5237 DOUBLE *E2,
5238 const DOUBLE *SPLTOL,
5239 const DOUBLE *TNRM,
5240 INTEGER *NSPLIT,
5241 INTEGER *ISPLIT,
5242 INTEGER *INFO)
5243 {
5244 DEBUG_LAPACK_STUB("dlarra");
5245 LAPACK_IMPL(dlarra)(N,
5246 D,
5247 E,
5248 E2,
5249 SPLTOL,
5250 TNRM,
5251 NSPLIT,
5252 ISPLIT,
5253 INFO);
5254 }
5255
5256 //-- dlarrb --------------------------------------------------------------------
5257 void
5258 LAPACK_DECL(dlarrb)(const INTEGER *N,
5259 const DOUBLE *D,
5260 const DOUBLE *LLD,
5261 const INTEGER *IFIRST,
5262 const INTEGER *ILAST,
5263 const DOUBLE *RTOL1,
5264 const DOUBLE *RTOL2,
5265 const INTEGER *OFFSET,
5266 DOUBLE *W,
5267 DOUBLE *WGAP,
5268 DOUBLE *WERR,
5269 const DOUBLE *WORK,
5270 const INTEGER *IWORK,
5271 const DOUBLE *PIVMIN,
5272 const DOUBLE *SPDIAM,
5273 const INTEGER *TWIST,
5274 INTEGER *INFO)
5275 {
5276 DEBUG_LAPACK_STUB("dlarrb");
5277 LAPACK_IMPL(dlarrb)(N,
5278 D,
5279 LLD,
5280 IFIRST,
5281 ILAST,
5282 RTOL1,
5283 RTOL2,
5284 OFFSET,
5285 W,
5286 WGAP,
5287 WERR,
5288 WORK,
5289 IWORK,
5290 PIVMIN,
5291 SPDIAM,
5292 TWIST,
5293 INFO);
5294 }
5295
5296 //-- dlarrc --------------------------------------------------------------------
5297 void
5298 LAPACK_DECL(dlarrc)(const char *JOBT,
5299 const INTEGER *N,
5300 const DOUBLE *VL,
5301 const DOUBLE *VU,
5302 const DOUBLE *D,
5303 const DOUBLE *E,
5304 const DOUBLE *PIVMIN,
5305 INTEGER *EIGCNT,
5306 INTEGER *LCNT,
5307 INTEGER *RCNT,
5308 INTEGER *INFO)
5309 {
5310 DEBUG_LAPACK_STUB("dlarrc");
5311 LAPACK_IMPL(dlarrc)(JOBT,
5312 N,
5313 VL,
5314 VU,
5315 D,
5316 E,
5317 PIVMIN,
5318 EIGCNT,
5319 LCNT,
5320 RCNT,
5321 INFO);
5322 }
5323
5324 //-- dlarrd --------------------------------------------------------------------
5325 void
5326 LAPACK_DECL(dlarrd)(const char *RANGE,
5327 const char *ORDER,
5328 const INTEGER *N,
5329 const DOUBLE *VL,
5330 const DOUBLE *VU,
5331 const INTEGER *IL,
5332 const INTEGER *IU,
5333 const DOUBLE *GERS,
5334 const DOUBLE *RELTOL,
5335 const DOUBLE *D,
5336 const DOUBLE *E,
5337 const DOUBLE *E2,
5338 const DOUBLE *PIVMIN,
5339 const INTEGER *NSPLIT,
5340 const INTEGER *ISPLIT,
5341 INTEGER *M,
5342 DOUBLE *W,
5343 DOUBLE *WERR,
5344 DOUBLE *WL,
5345 DOUBLE *WU,
5346 INTEGER *IBLOCK,
5347 INTEGER *INDEXW,
5348 const DOUBLE *WORK,
5349 const INTEGER *IWORK,
5350 INTEGER *INFO)
5351 {
5352 DEBUG_LAPACK_STUB("dlarrd");
5353 LAPACK_IMPL(dlarrd)(RANGE,
5354 ORDER,
5355 N,
5356 VL,
5357 VU,
5358 IL,
5359 IU,
5360 GERS,
5361 RELTOL,
5362 D,
5363 E,
5364 E2,
5365 PIVMIN,
5366 NSPLIT,
5367 ISPLIT,
5368 M,
5369 W,
5370 WERR,
5371 WL,
5372 WU,
5373 IBLOCK,
5374 INDEXW,
5375 WORK,
5376 IWORK,
5377 INFO);
5378 }
5379
5380 //-- dlarre --------------------------------------------------------------------
5381 void
5382 LAPACK_DECL(dlarre)(const char *RANGE,
5383 const INTEGER *N,
5384 DOUBLE *VL,
5385 DOUBLE *VU,
5386 const INTEGER *IL,
5387 const INTEGER *IU,
5388 DOUBLE *D,
5389 DOUBLE *E,
5390 DOUBLE *E2,
5391 const DOUBLE *RTOL1,
5392 const DOUBLE *RTOL2,
5393 const DOUBLE *SPLTOL,
5394 INTEGER *NSPLIT,
5395 INTEGER *ISPLIT,
5396 INTEGER *M,
5397 DOUBLE *W,
5398 DOUBLE *WERR,
5399 DOUBLE *WGAP,
5400 INTEGER *IBLOCK,
5401 INTEGER *INDEXW,
5402 DOUBLE *GERS,
5403 DOUBLE *PIVMIN,
5404 const DOUBLE *WORK,
5405 const INTEGER *IWORK,
5406 INTEGER *INFO)
5407 {
5408 DEBUG_LAPACK_STUB("dlarre");
5409 LAPACK_IMPL(dlarre)(RANGE,
5410 N,
5411 VL,
5412 VU,
5413 IL,
5414 IU,
5415 D,
5416 E,
5417 E2,
5418 RTOL1,
5419 RTOL2,
5420 SPLTOL,
5421 NSPLIT,
5422 ISPLIT,
5423 M,
5424 W,
5425 WERR,
5426 WGAP,
5427 IBLOCK,
5428 INDEXW,
5429 GERS,
5430 PIVMIN,
5431 WORK,
5432 IWORK,
5433 INFO);
5434 }
5435
5436 //-- dlarrf --------------------------------------------------------------------
5437 void
5438 LAPACK_DECL(dlarrf)(const INTEGER *N,
5439 const DOUBLE *D,
5440 const DOUBLE *L,
5441 const DOUBLE *LD,
5442 const INTEGER *CLSTRT,
5443 const INTEGER *CLEND,
5444 const DOUBLE *W,
5445 DOUBLE *WGAP,
5446 const DOUBLE *WERR,
5447 const DOUBLE *SPDIAM,
5448 const DOUBLE *CLGAPL,
5449 const DOUBLE *CLGAPR,
5450 const DOUBLE *PIVMIN,
5451 DOUBLE *SIGMA,
5452 DOUBLE *DPLUS,
5453 DOUBLE *LPLUS,
5454 const DOUBLE *WORK,
5455 INTEGER *INFO)
5456 {
5457 DEBUG_LAPACK_STUB("dlarrf");
5458 LAPACK_IMPL(dlarrf)(N,
5459 D,
5460 L,
5461 LD,
5462 CLSTRT,
5463 CLEND,
5464 W,
5465 WGAP,
5466 WERR,
5467 SPDIAM,
5468 CLGAPL,
5469 CLGAPR,
5470 PIVMIN,
5471 SIGMA,
5472 DPLUS,
5473 LPLUS,
5474 WORK,
5475 INFO);
5476 }
5477
5478 //-- dlarrj --------------------------------------------------------------------
5479 void
5480 LAPACK_DECL(dlarrj)(const INTEGER *N,
5481 const DOUBLE *D,
5482 const DOUBLE *E2,
5483 const INTEGER *IFIRST,
5484 const INTEGER *ILAST,
5485 const DOUBLE *RTOL,
5486 const INTEGER *OFFSET,
5487 DOUBLE *W,
5488 DOUBLE *WERR,
5489 const DOUBLE *WORK,
5490 const INTEGER *IWORK,
5491 const DOUBLE *PIVMIN,
5492 const DOUBLE *SPDIAM,
5493 INTEGER *INFO)
5494 {
5495 DEBUG_LAPACK_STUB("dlarrj");
5496 LAPACK_IMPL(dlarrj)(N,
5497 D,
5498 E2,
5499 IFIRST,
5500 ILAST,
5501 RTOL,
5502 OFFSET,
5503 W,
5504 WERR,
5505 WORK,
5506 IWORK,
5507 PIVMIN,
5508 SPDIAM,
5509 INFO);
5510 }
5511
5512 //-- dlarrk --------------------------------------------------------------------
5513 void
5514 LAPACK_DECL(dlarrk)(const INTEGER *N,
5515 const INTEGER *IW,
5516 const DOUBLE *GL,
5517 const DOUBLE *GU,
5518 const DOUBLE *D,
5519 const DOUBLE *E2,
5520 const DOUBLE *PIVMIN,
5521 const DOUBLE *RELTOL,
5522 DOUBLE *W,
5523 DOUBLE *WERR,
5524 INTEGER *INFO)
5525 {
5526 DEBUG_LAPACK_STUB("dlarrk");
5527 LAPACK_IMPL(dlarrk)(N,
5528 IW,
5529 GL,
5530 GU,
5531 D,
5532 E2,
5533 PIVMIN,
5534 RELTOL,
5535 W,
5536 WERR,
5537 INFO);
5538 }
5539
5540 //-- dlarrr --------------------------------------------------------------------
5541 void
5542 LAPACK_DECL(dlarrr)(const INTEGER *N,
5543 const DOUBLE *D,
5544 DOUBLE *E,
5545 INTEGER *INFO)
5546 {
5547 DEBUG_LAPACK_STUB("dlarrr");
5548 LAPACK_IMPL(dlarrr)(N,
5549 D,
5550 E,
5551 INFO);
5552 }
5553
5554 //-- dlarrv --------------------------------------------------------------------
5555 void
5556 LAPACK_DECL(dlarrv)(const INTEGER *N,
5557 const DOUBLE *VL,
5558 const DOUBLE *VU,
5559 DOUBLE *D,
5560 DOUBLE *L,
5561 const DOUBLE *PIVMIN,
5562 const INTEGER *ISPLIT,
5563 const INTEGER *M,
5564 const INTEGER *DOL,
5565 const INTEGER *DOU,
5566 const DOUBLE *MINRGP,
5567 const DOUBLE *RTOL1,
5568 const DOUBLE *RTOL2,
5569 DOUBLE *W,
5570 DOUBLE *WERR,
5571 DOUBLE *WGAP,
5572 const INTEGER *IBLOCK,
5573 const INTEGER *INDEXW,
5574 const DOUBLE *GERS,
5575 DOUBLE *Z,
5576 const INTEGER *LDZ,
5577 INTEGER *ISUPPZ,
5578 const DOUBLE *WORK,
5579 const INTEGER *IWORK,
5580 INTEGER *INFO)
5581 {
5582 DEBUG_LAPACK_STUB("dlarrv");
5583 LAPACK_IMPL(dlarrv)(N,
5584 VL,
5585 VU,
5586 D,
5587 L,
5588 PIVMIN,
5589 ISPLIT,
5590 M,
5591 DOL,
5592 DOU,
5593 MINRGP,
5594 RTOL1,
5595 RTOL2,
5596 W,
5597 WERR,
5598 WGAP,
5599 IBLOCK,
5600 INDEXW,
5601 GERS,
5602 Z,
5603 LDZ,
5604 ISUPPZ,
5605 WORK,
5606 IWORK,
5607 INFO);
5608 }
5609
5610 //-- dlarscl2 ------------------------------------------------------------------
5611 void
5612 LAPACK_DECL(dlarscl2)(const INTEGER *M,
5613 const INTEGER *N,
5614 const DOUBLE *D,
5615 DOUBLE *X,
5616 const INTEGER *LDX)
5617 {
5618 DEBUG_LAPACK_STUB("dlarscl2");
5619 LAPACK_IMPL(dlarscl2)(M,
5620 N,
5621 D,
5622 X,
5623 LDX);
5624 }
5625
5626 //-- dlartg --------------------------------------------------------------------
5627 void
5628 LAPACK_DECL(dlartg)(const DOUBLE *F,
5629 const DOUBLE *G,
5630 DOUBLE *CS,
5631 DOUBLE *SN,
5632 DOUBLE *R)
5633 {
5634 DEBUG_LAPACK_STUB("dlartg");
5635 LAPACK_IMPL(dlartg)(F,
5636 G,
5637 CS,
5638 SN,
5639 R);
5640 }
5641
5642 //-- dlartgp -------------------------------------------------------------------
5643 void
5644 LAPACK_DECL(dlartgp)(const DOUBLE *F,
5645 const DOUBLE *G,
5646 DOUBLE *CS,
5647 DOUBLE *SN,
5648 DOUBLE *R)
5649 {
5650 DEBUG_LAPACK_STUB("dlartgp");
5651 LAPACK_IMPL(dlartgp)(F,
5652 G,
5653 CS,
5654 SN,
5655 R);
5656 }
5657
5658 //-- dlartgs -------------------------------------------------------------------
5659 void
5660 LAPACK_DECL(dlartgs)(const DOUBLE *X,
5661 const DOUBLE *Y,
5662 const DOUBLE *SIGMA,
5663 DOUBLE *CS,
5664 DOUBLE *SN)
5665 {
5666 DEBUG_LAPACK_STUB("dlartgs");
5667 LAPACK_IMPL(dlartgs)(X,
5668 Y,
5669 SIGMA,
5670 CS,
5671 SN);
5672 }
5673
5674 //-- dlartv --------------------------------------------------------------------
5675 void
5676 LAPACK_DECL(dlartv)(const INTEGER *N,
5677 DOUBLE *X,
5678 const INTEGER *INCX,
5679 DOUBLE *Y,
5680 const INTEGER *INCY,
5681 const DOUBLE *C,
5682 const DOUBLE *S,
5683 const INTEGER *INCC)
5684 {
5685 DEBUG_LAPACK_STUB("dlartv");
5686 LAPACK_IMPL(dlartv)(N,
5687 X,
5688 INCX,
5689 Y,
5690 INCY,
5691 C,
5692 S,
5693 INCC);
5694 }
5695
5696 //-- dlaruv --------------------------------------------------------------------
5697 void
5698 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
5699 const INTEGER *N,
5700 DOUBLE *X)
5701 {
5702 DEBUG_LAPACK_STUB("dlaruv");
5703 LAPACK_IMPL(dlaruv)(ISEED,
5704 N,
5705 X);
5706 }
5707
5708 //-- dlarz ---------------------------------------------------------------------
5709 void
5710 LAPACK_DECL(dlarz)(const char *SIDE,
5711 const INTEGER *M,
5712 const INTEGER *N,
5713 const INTEGER *L,
5714 const DOUBLE *V,
5715 const INTEGER *INCV,
5716 const DOUBLE *TAU,
5717 DOUBLE *C,
5718 const INTEGER *LDC,
5719 const DOUBLE *WORK)
5720 {
5721 DEBUG_LAPACK_STUB("dlarz");
5722 LAPACK_IMPL(dlarz)(SIDE,
5723 M,
5724 N,
5725 L,
5726 V,
5727 INCV,
5728 TAU,
5729 C,
5730 LDC,
5731 WORK);
5732 }
5733
5734 //-- dlarzb --------------------------------------------------------------------
5735 void
5736 LAPACK_DECL(dlarzb)(const char *SIDE,
5737 const char *TRANS,
5738 const char *DIRECT,
5739 const char *STOREV,
5740 const INTEGER *M,
5741 const INTEGER *N,
5742 const INTEGER *K,
5743 const INTEGER *L,
5744 const DOUBLE *V,
5745 const INTEGER *LDV,
5746 const DOUBLE *T,
5747 const INTEGER *LDT,
5748 DOUBLE *C,
5749 const INTEGER *LDC,
5750 const DOUBLE *WORK,
5751 const INTEGER *LDWORK)
5752 {
5753 DEBUG_LAPACK_STUB("dlarzb");
5754 LAPACK_IMPL(dlarzb)(SIDE,
5755 TRANS,
5756 DIRECT,
5757 STOREV,
5758 M,
5759 N,
5760 K,
5761 L,
5762 V,
5763 LDV,
5764 T,
5765 LDT,
5766 C,
5767 LDC,
5768 WORK,
5769 LDWORK);
5770 }
5771
5772 //-- dlarzt --------------------------------------------------------------------
5773 void
5774 LAPACK_DECL(dlarzt)(const char *DIRECT,
5775 const char *STOREV,
5776 const INTEGER *N,
5777 const INTEGER *K,
5778 DOUBLE *V,
5779 const INTEGER *LDV,
5780 const DOUBLE *TAU,
5781 DOUBLE *T,
5782 const INTEGER *LDT)
5783 {
5784 DEBUG_LAPACK_STUB("dlarzt");
5785 LAPACK_IMPL(dlarzt)(DIRECT,
5786 STOREV,
5787 N,
5788 K,
5789 V,
5790 LDV,
5791 TAU,
5792 T,
5793 LDT);
5794 }
5795
5796 //-- dlas2 ---------------------------------------------------------------------
5797 void
5798 LAPACK_DECL(dlas2)(const DOUBLE *F,
5799 const DOUBLE *G,
5800 const DOUBLE *H,
5801 DOUBLE *SSMIN,
5802 DOUBLE *SSMAX)
5803 {
5804 DEBUG_LAPACK_STUB("dlas2");
5805 LAPACK_IMPL(dlas2)(F,
5806 G,
5807 H,
5808 SSMIN,
5809 SSMAX);
5810 }
5811
5812 //-- dlascl --------------------------------------------------------------------
5813 void
5814 LAPACK_DECL(dlascl)(const char *TYPE,
5815 const INTEGER *KL,
5816 const INTEGER *KU,
5817 const DOUBLE *CFROM,
5818 const DOUBLE *CTO,
5819 const INTEGER *M,
5820 const INTEGER *N,
5821 DOUBLE *A,
5822 const INTEGER *LDA,
5823 INTEGER *INFO)
5824 {
5825 DEBUG_LAPACK_STUB("dlascl");
5826 LAPACK_IMPL(dlascl)(TYPE,
5827 KL,
5828 KU,
5829 CFROM,
5830 CTO,
5831 M,
5832 N,
5833 A,
5834 LDA,
5835 INFO);
5836 }
5837
5838 //-- dlascl2 -------------------------------------------------------------------
5839 void
5840 LAPACK_DECL(dlascl2)(const INTEGER *M,
5841 const INTEGER *N,
5842 const DOUBLE *D,
5843 DOUBLE *X,
5844 const INTEGER *LDX)
5845 {
5846 DEBUG_LAPACK_STUB("dlascl2");
5847 LAPACK_IMPL(dlascl2)(M,
5848 N,
5849 D,
5850 X,
5851 LDX);
5852 }
5853
5854 //-- dlasd0 --------------------------------------------------------------------
5855 void
5856 LAPACK_DECL(dlasd0)(const INTEGER *N,
5857 const INTEGER *SQRE,
5858 DOUBLE *D,
5859 const DOUBLE *E,
5860 DOUBLE *U,
5861 const INTEGER *LDU,
5862 DOUBLE *VT,
5863 const INTEGER *LDVT,
5864 const INTEGER *SMLSIZ,
5865 const INTEGER *IWORK,
5866 const DOUBLE *WORK,
5867 INTEGER *INFO)
5868 {
5869 DEBUG_LAPACK_STUB("dlasd0");
5870 LAPACK_IMPL(dlasd0)(N,
5871 SQRE,
5872 D,
5873 E,
5874 U,
5875 LDU,
5876 VT,
5877 LDVT,
5878 SMLSIZ,
5879 IWORK,
5880 WORK,
5881 INFO);
5882 }
5883
5884 //-- dlasd1 --------------------------------------------------------------------
5885 void
5886 LAPACK_DECL(dlasd1)(const INTEGER *NL,
5887 const INTEGER *NR,
5888 const INTEGER *SQRE,
5889 DOUBLE *D,
5890 DOUBLE *ALPHA,
5891 DOUBLE *BETA,
5892 DOUBLE *U,
5893 const INTEGER *LDU,
5894 DOUBLE *VT,
5895 const INTEGER *LDVT,
5896 INTEGER *IDXQ,
5897 const INTEGER *IWORK,
5898 const DOUBLE *WORK,
5899 INTEGER *INFO)
5900 {
5901 DEBUG_LAPACK_STUB("dlasd1");
5902 LAPACK_IMPL(dlasd1)(NL,
5903 NR,
5904 SQRE,
5905 D,
5906 ALPHA,
5907 BETA,
5908 U,
5909 LDU,
5910 VT,
5911 LDVT,
5912 IDXQ,
5913 IWORK,
5914 WORK,
5915 INFO);
5916 }
5917
5918 //-- dlasd2 --------------------------------------------------------------------
5919 void
5920 LAPACK_DECL(dlasd2)(const INTEGER *NL,
5921 const INTEGER *NR,
5922 const INTEGER *SQRE,
5923 INTEGER *K,
5924 DOUBLE *D,
5925 DOUBLE *Z,
5926 const DOUBLE *ALPHA,
5927 const DOUBLE *BETA,
5928 DOUBLE *U,
5929 const INTEGER *LDU,
5930 DOUBLE *VT,
5931 const INTEGER *LDVT,
5932 DOUBLE *DSIGMA,
5933 DOUBLE *U2,
5934 const INTEGER *LDU2,
5935 DOUBLE *VT2,
5936 const INTEGER *LDVT2,
5937 const INTEGER *IDXP,
5938 const INTEGER *IDX,
5939 INTEGER *IDXC,
5940 INTEGER *IDXQ,
5941 INTEGER *COLTYP,
5942 INTEGER *INFO)
5943 {
5944 DEBUG_LAPACK_STUB("dlasd2");
5945 LAPACK_IMPL(dlasd2)(NL,
5946 NR,
5947 SQRE,
5948 K,
5949 D,
5950 Z,
5951 ALPHA,
5952 BETA,
5953 U,
5954 LDU,
5955 VT,
5956 LDVT,
5957 DSIGMA,
5958 U2,
5959 LDU2,
5960 VT2,
5961 LDVT2,
5962 IDXP,
5963 IDX,
5964 IDXC,
5965 IDXQ,
5966 COLTYP,
5967 INFO);
5968 }
5969
5970 //-- dlasd3 --------------------------------------------------------------------
5971 void
5972 LAPACK_DECL(dlasd3)(const INTEGER *NL,
5973 const INTEGER *NR,
5974 const INTEGER *SQRE,
5975 const INTEGER *K,
5976 DOUBLE *D,
5977 const DOUBLE *Q,
5978 const INTEGER *LDQ,
5979 const DOUBLE *DSIGMA,
5980 DOUBLE *U,
5981 const INTEGER *LDU,
5982 DOUBLE *U2,
5983 const INTEGER *LDU2,
5984 DOUBLE *VT,
5985 const INTEGER *LDVT,
5986 DOUBLE *VT2,
5987 const INTEGER *LDVT2,
5988 const INTEGER *IDXC,
5989 const INTEGER *CTOT,
5990 const DOUBLE *Z,
5991 INTEGER *INFO)
5992 {
5993 DEBUG_LAPACK_STUB("dlasd3");
5994 LAPACK_IMPL(dlasd3)(NL,
5995 NR,
5996 SQRE,
5997 K,
5998 D,
5999 Q,
6000 LDQ,
6001 DSIGMA,
6002 U,
6003 LDU,
6004 U2,
6005 LDU2,
6006 VT,
6007 LDVT,
6008 VT2,
6009 LDVT2,
6010 IDXC,
6011 CTOT,
6012 Z,
6013 INFO);
6014 }
6015
6016 //-- dlasd4 --------------------------------------------------------------------
6017 void
6018 LAPACK_DECL(dlasd4)(const INTEGER *N,
6019 const INTEGER *I,
6020 const DOUBLE *D,
6021 const DOUBLE *Z,
6022 DOUBLE *DELTA,
6023 const DOUBLE *RHO,
6024 DOUBLE *SIGMA,
6025 const DOUBLE *WORK,
6026 INTEGER *INFO)
6027 {
6028 DEBUG_LAPACK_STUB("dlasd4");
6029 LAPACK_IMPL(dlasd4)(N,
6030 I,
6031 D,
6032 Z,
6033 DELTA,
6034 RHO,
6035 SIGMA,
6036 WORK,
6037 INFO);
6038 }
6039
6040 //-- dlasd5 --------------------------------------------------------------------
6041 void
6042 LAPACK_DECL(dlasd5)(const INTEGER *I,
6043 const DOUBLE *D,
6044 const DOUBLE *Z,
6045 DOUBLE *DELTA,
6046 const DOUBLE *RHO,
6047 DOUBLE *DSIGMA,
6048 const DOUBLE *WORK)
6049 {
6050 DEBUG_LAPACK_STUB("dlasd5");
6051 LAPACK_IMPL(dlasd5)(I,
6052 D,
6053 Z,
6054 DELTA,
6055 RHO,
6056 DSIGMA,
6057 WORK);
6058 }
6059
6060 //-- dlasd6 --------------------------------------------------------------------
6061 void
6062 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
6063 const INTEGER *NL,
6064 const INTEGER *NR,
6065 const INTEGER *SQRE,
6066 DOUBLE *D,
6067 DOUBLE *VF,
6068 DOUBLE *VL,
6069 DOUBLE *ALPHA,
6070 DOUBLE *BETA,
6071 INTEGER *IDXQ,
6072 INTEGER *PERM,
6073 INTEGER *GIVPTR,
6074 INTEGER *GIVCOL,
6075 const INTEGER *LDGCOL,
6076 DOUBLE *GIVNUM,
6077 const INTEGER *LDGNUM,
6078 DOUBLE *POLES,
6079 DOUBLE *DIFL,
6080 DOUBLE *DIFR,
6081 DOUBLE *Z,
6082 INTEGER *K,
6083 DOUBLE *C,
6084 DOUBLE *S,
6085 const DOUBLE *WORK,
6086 const INTEGER *IWORK,
6087 INTEGER *INFO)
6088 {
6089 DEBUG_LAPACK_STUB("dlasd6");
6090 LAPACK_IMPL(dlasd6)(ICOMPQ,
6091 NL,
6092 NR,
6093 SQRE,
6094 D,
6095 VF,
6096 VL,
6097 ALPHA,
6098 BETA,
6099 IDXQ,
6100 PERM,
6101 GIVPTR,
6102 GIVCOL,
6103 LDGCOL,
6104 GIVNUM,
6105 LDGNUM,
6106 POLES,
6107 DIFL,
6108 DIFR,
6109 Z,
6110 K,
6111 C,
6112 S,
6113 WORK,
6114 IWORK,
6115 INFO);
6116 }
6117
6118 //-- dlasd7 --------------------------------------------------------------------
6119 void
6120 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
6121 const INTEGER *NL,
6122 const INTEGER *NR,
6123 const INTEGER *SQRE,
6124 INTEGER *K,
6125 DOUBLE *D,
6126 DOUBLE *Z,
6127 const DOUBLE *ZW,
6128 DOUBLE *VF,
6129 const DOUBLE *VFW,
6130 DOUBLE *VL,
6131 const DOUBLE *VLW,
6132 const DOUBLE *ALPHA,
6133 const DOUBLE *BETA,
6134 DOUBLE *DSIGMA,
6135 const INTEGER *IDX,
6136 const INTEGER *IDXP,
6137 const INTEGER *IDXQ,
6138 INTEGER *PERM,
6139 INTEGER *GIVPTR,
6140 INTEGER *GIVCOL,
6141 const INTEGER *LDGCOL,
6142 DOUBLE *GIVNUM,
6143 const INTEGER *LDGNUM,
6144 DOUBLE *C,
6145 DOUBLE *S,
6146 INTEGER *INFO)
6147 {
6148 DEBUG_LAPACK_STUB("dlasd7");
6149 LAPACK_IMPL(dlasd7)(ICOMPQ,
6150 NL,
6151 NR,
6152 SQRE,
6153 K,
6154 D,
6155 Z,
6156 ZW,
6157 VF,
6158 VFW,
6159 VL,
6160 VLW,
6161 ALPHA,
6162 BETA,
6163 DSIGMA,
6164 IDX,
6165 IDXP,
6166 IDXQ,
6167 PERM,
6168 GIVPTR,
6169 GIVCOL,
6170 LDGCOL,
6171 GIVNUM,
6172 LDGNUM,
6173 C,
6174 S,
6175 INFO);
6176 }
6177
6178 //-- dlasd8 --------------------------------------------------------------------
6179 void
6180 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
6181 const INTEGER *K,
6182 DOUBLE *D,
6183 DOUBLE *Z,
6184 DOUBLE *VF,
6185 DOUBLE *VL,
6186 DOUBLE *DIFL,
6187 DOUBLE *DIFR,
6188 const INTEGER *LDDIFR,
6189 DOUBLE *DSIGMA,
6190 const DOUBLE *WORK,
6191 INTEGER *INFO)
6192 {
6193 DEBUG_LAPACK_STUB("dlasd8");
6194 LAPACK_IMPL(dlasd8)(ICOMPQ,
6195 K,
6196 D,
6197 Z,
6198 VF,
6199 VL,
6200 DIFL,
6201 DIFR,
6202 LDDIFR,
6203 DSIGMA,
6204 WORK,
6205 INFO);
6206 }
6207
6208 //-- dlasda --------------------------------------------------------------------
6209 void
6210 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
6211 const INTEGER *SMLSIZ,
6212 const INTEGER *N,
6213 const INTEGER *SQRE,
6214 DOUBLE *D,
6215 const DOUBLE *E,
6216 DOUBLE *U,
6217 const INTEGER *LDU,
6218 DOUBLE *VT,
6219 INTEGER *K,
6220 DOUBLE *DIFL,
6221 DOUBLE *DIFR,
6222 DOUBLE *Z,
6223 DOUBLE *POLES,
6224 INTEGER *GIVPTR,
6225 INTEGER *GIVCOL,
6226 const INTEGER *LDGCOL,
6227 INTEGER *PERM,
6228 DOUBLE *GIVNUM,
6229 DOUBLE *C,
6230 DOUBLE *S,
6231 const DOUBLE *WORK,
6232 const INTEGER *IWORK,
6233 INTEGER *INFO)
6234 {
6235 DEBUG_LAPACK_STUB("dlasda");
6236 LAPACK_IMPL(dlasda)(ICOMPQ,
6237 SMLSIZ,
6238 N,
6239 SQRE,
6240 D,
6241 E,
6242 U,
6243 LDU,
6244 VT,
6245 K,
6246 DIFL,
6247 DIFR,
6248 Z,
6249 POLES,
6250 GIVPTR,
6251 GIVCOL,
6252 LDGCOL,
6253 PERM,
6254 GIVNUM,
6255 C,
6256 S,
6257 WORK,
6258 IWORK,
6259 INFO);
6260 }
6261
6262 //-- dlasdq --------------------------------------------------------------------
6263 void
6264 LAPACK_DECL(dlasdq)(const char *UPLO,
6265 const INTEGER *SQRE,
6266 const INTEGER *N,
6267 const INTEGER *NCVT,
6268 const INTEGER *NRU,
6269 const INTEGER *NCC,
6270 DOUBLE *D,
6271 DOUBLE *E,
6272 DOUBLE *VT,
6273 const INTEGER *LDVT,
6274 DOUBLE *U,
6275 const INTEGER *LDU,
6276 DOUBLE *C,
6277 const INTEGER *LDC,
6278 const DOUBLE *WORK,
6279 INTEGER *INFO)
6280 {
6281 DEBUG_LAPACK_STUB("dlasdq");
6282 LAPACK_IMPL(dlasdq)(UPLO,
6283 SQRE,
6284 N,
6285 NCVT,
6286 NRU,
6287 NCC,
6288 D,
6289 E,
6290 VT,
6291 LDVT,
6292 U,
6293 LDU,
6294 C,
6295 LDC,
6296 WORK,
6297 INFO);
6298 }
6299
6300 //-- dlasdt --------------------------------------------------------------------
6301 void
6302 LAPACK_DECL(dlasdt)(const INTEGER *N,
6303 INTEGER *LVL,
6304 INTEGER *ND,
6305 INTEGER *INODE,
6306 INTEGER *NDIML,
6307 INTEGER *NDIMR,
6308 const INTEGER *MSUB)
6309 {
6310 DEBUG_LAPACK_STUB("dlasdt");
6311 LAPACK_IMPL(dlasdt)(N,
6312 LVL,
6313 ND,
6314 INODE,
6315 NDIML,
6316 NDIMR,
6317 MSUB);
6318 }
6319
6320 //-- dlaset --------------------------------------------------------------------
6321 void
6322 LAPACK_DECL(dlaset)(const char *UPLO,
6323 const INTEGER *M,
6324 const INTEGER *N,
6325 const DOUBLE *ALPHA,
6326 const DOUBLE *BETA,
6327 DOUBLE *A,
6328 const INTEGER *LDA)
6329 {
6330 DEBUG_LAPACK_STUB("dlaset");
6331 LAPACK_IMPL(dlaset)(UPLO,
6332 M,
6333 N,
6334 ALPHA,
6335 BETA,
6336 A,
6337 LDA);
6338 }
6339
6340 //-- dlasq1 --------------------------------------------------------------------
6341 void
6342 LAPACK_DECL(dlasq1)(const INTEGER *N,
6343 DOUBLE *D,
6344 DOUBLE *E,
6345 const DOUBLE *WORK,
6346 INTEGER *INFO)
6347 {
6348 DEBUG_LAPACK_STUB("dlasq1");
6349 LAPACK_IMPL(dlasq1)(N,
6350 D,
6351 E,
6352 WORK,
6353 INFO);
6354 }
6355
6356 //-- dlasq2 --------------------------------------------------------------------
6357 void
6358 LAPACK_DECL(dlasq2)(const INTEGER *N,
6359 DOUBLE *Z,
6360 INTEGER *INFO)
6361 {
6362 DEBUG_LAPACK_STUB("dlasq2");
6363 LAPACK_IMPL(dlasq2)(N,
6364 Z,
6365 INFO);
6366 }
6367
6368 //-- dlasq3 --------------------------------------------------------------------
6369 void
6370 LAPACK_DECL(dlasq3)(const INTEGER *I0,
6371 INTEGER *N0,
6372 const DOUBLE *Z,
6373 INTEGER *PP,
6374 DOUBLE *DMIN,
6375 DOUBLE *SIGMA,
6376 DOUBLE *DESIG,
6377 const DOUBLE *QMAX,
6378 INTEGER *NFAIL,
6379 INTEGER *ITER,
6380 INTEGER *NDIV,
6381 const LOGICAL *IEEE,
6382 INTEGER *TTYPE,
6383 DOUBLE *DMIN1,
6384 DOUBLE *DMIN2,
6385 DOUBLE *DN,
6386 DOUBLE *DN1,
6387 DOUBLE *DN2,
6388 DOUBLE *G,
6389 DOUBLE *TAU)
6390 {
6391 DEBUG_LAPACK_STUB("dlasq3");
6392 LAPACK_IMPL(dlasq3)(I0,
6393 N0,
6394 Z,
6395 PP,
6396 DMIN,
6397 SIGMA,
6398 DESIG,
6399 QMAX,
6400 NFAIL,
6401 ITER,
6402 NDIV,
6403 IEEE,
6404 TTYPE,
6405 DMIN1,
6406 DMIN2,
6407 DN,
6408 DN1,
6409 DN2,
6410 G,
6411 TAU);
6412 }
6413
6414 //-- dlasq4 --------------------------------------------------------------------
6415 void
6416 LAPACK_DECL(dlasq4)(const INTEGER *I0,
6417 const INTEGER *N0,
6418 const DOUBLE *Z,
6419 const INTEGER *PP,
6420 const INTEGER *N0IN,
6421 const DOUBLE *DMIN,
6422 const DOUBLE *DMIN1,
6423 const DOUBLE *DMIN2,
6424 const DOUBLE *DN,
6425 const DOUBLE *DN1,
6426 const DOUBLE *DN2,
6427 DOUBLE *TAU,
6428 INTEGER *TTYPE,
6429 DOUBLE *G)
6430 {
6431 DEBUG_LAPACK_STUB("dlasq4");
6432 LAPACK_IMPL(dlasq4)(I0,
6433 N0,
6434 Z,
6435 PP,
6436 N0IN,
6437 DMIN,
6438 DMIN1,
6439 DMIN2,
6440 DN,
6441 DN1,
6442 DN2,
6443 TAU,
6444 TTYPE,
6445 G);
6446 }
6447
6448 //-- dlasq5 --------------------------------------------------------------------
6449 void
6450 LAPACK_DECL(dlasq5)(const INTEGER *I0,
6451 const INTEGER *N0,
6452 const DOUBLE *Z,
6453 const INTEGER *PP,
6454 const DOUBLE *TAU,
6455 DOUBLE *DMIN,
6456 DOUBLE *DMIN1,
6457 DOUBLE *DMIN2,
6458 DOUBLE *DN,
6459 DOUBLE *DNM1,
6460 DOUBLE *DNM2,
6461 const LOGICAL *IEEE)
6462 {
6463 DEBUG_LAPACK_STUB("dlasq5");
6464 LAPACK_IMPL(dlasq5)(I0,
6465 N0,
6466 Z,
6467 PP,
6468 TAU,
6469 DMIN,
6470 DMIN1,
6471 DMIN2,
6472 DN,
6473 DNM1,
6474 DNM2,
6475 IEEE);
6476 }
6477
6478 //-- dlasq6 --------------------------------------------------------------------
6479 void
6480 LAPACK_DECL(dlasq6)(const INTEGER *I0,
6481 const INTEGER *N0,
6482 const DOUBLE *Z,
6483 const INTEGER *PP,
6484 DOUBLE *DMIN,
6485 DOUBLE *DMIN1,
6486 DOUBLE *DMIN2,
6487 DOUBLE *DN,
6488 DOUBLE *DNM1,
6489 DOUBLE *DNM2)
6490 {
6491 DEBUG_LAPACK_STUB("dlasq6");
6492 LAPACK_IMPL(dlasq6)(I0,
6493 N0,
6494 Z,
6495 PP,
6496 DMIN,
6497 DMIN1,
6498 DMIN2,
6499 DN,
6500 DNM1,
6501 DNM2);
6502 }
6503
6504 //-- dlasr ---------------------------------------------------------------------
6505 void
6506 LAPACK_DECL(dlasr)(const char *SIDE,
6507 const char *PIVOT,
6508 const char *DIRECT,
6509 const INTEGER *M,
6510 const INTEGER *N,
6511 const DOUBLE *C,
6512 const DOUBLE *S,
6513 DOUBLE *A,
6514 const INTEGER *LDA)
6515 {
6516 DEBUG_LAPACK_STUB("dlasr");
6517 LAPACK_IMPL(dlasr)(SIDE,
6518 PIVOT,
6519 DIRECT,
6520 M,
6521 N,
6522 C,
6523 S,
6524 A,
6525 LDA);
6526 }
6527
6528 //-- dlasrt --------------------------------------------------------------------
6529 void
6530 LAPACK_DECL(dlasrt)(const char *ID,
6531 const INTEGER *N,
6532 DOUBLE *D,
6533 INTEGER *INFO)
6534 {
6535 DEBUG_LAPACK_STUB("dlasrt");
6536 LAPACK_IMPL(dlasrt)(ID,
6537 N,
6538 D,
6539 INFO);
6540 }
6541
6542 //-- dlassq --------------------------------------------------------------------
6543 void
6544 LAPACK_DECL(dlassq)(const INTEGER *N,
6545 const DOUBLE *X,
6546 const INTEGER *INCX,
6547 DOUBLE *SCALE,
6548 DOUBLE *SUMSQ)
6549 {
6550 DEBUG_LAPACK_STUB("dlassq");
6551 LAPACK_IMPL(dlassq)(N,
6552 X,
6553 INCX,
6554 SCALE,
6555 SUMSQ);
6556 }
6557
6558 //-- dlasv2 --------------------------------------------------------------------
6559 void
6560 LAPACK_DECL(dlasv2)(const DOUBLE *F,
6561 const DOUBLE *G,
6562 const DOUBLE *H,
6563 DOUBLE *SSMIN,
6564 DOUBLE *SSMAX,
6565 DOUBLE *SNR,
6566 DOUBLE *CSR,
6567 DOUBLE *SNL,
6568 DOUBLE *CSL)
6569 {
6570 DEBUG_LAPACK_STUB("dlasv2");
6571 LAPACK_IMPL(dlasv2)(F,
6572 G,
6573 H,
6574 SSMIN,
6575 SSMAX,
6576 SNR,
6577 CSR,
6578 SNL,
6579 CSL);
6580 }
6581
6582 //-- dlaswp --------------------------------------------------------------------
6583 void
6584 LAPACK_DECL(dlaswp)(const INTEGER *N,
6585 DOUBLE *A,
6586 const INTEGER *LDA,
6587 const INTEGER *K1,
6588 const INTEGER *K2,
6589 const INTEGER *IPIV,
6590 const INTEGER *INCX)
6591 {
6592 DEBUG_LAPACK_STUB("dlaswp");
6593 LAPACK_IMPL(dlaswp)(N,
6594 A,
6595 LDA,
6596 K1,
6597 K2,
6598 IPIV,
6599 INCX);
6600 }
6601
6602 //-- dlasy2 --------------------------------------------------------------------
6603 void
6604 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
6605 const LOGICAL *LTRANR,
6606 const INTEGER *ISGN,
6607 const INTEGER *N1,
6608 const INTEGER *N2,
6609 const DOUBLE *TL,
6610 const INTEGER *LDTL,
6611 const DOUBLE *TR,
6612 const INTEGER *LDTR,
6613 const DOUBLE *B,
6614 const INTEGER *LDB,
6615 DOUBLE *SCALE,
6616 DOUBLE *X,
6617 const INTEGER *LDX,
6618 DOUBLE *XNORM,
6619 INTEGER *INFO)
6620 {
6621 DEBUG_LAPACK_STUB("dlasy2");
6622 LAPACK_IMPL(dlasy2)(LTRANL,
6623 LTRANR,
6624 ISGN,
6625 N1,
6626 N2,
6627 TL,
6628 LDTL,
6629 TR,
6630 LDTR,
6631 B,
6632 LDB,
6633 SCALE,
6634 X,
6635 LDX,
6636 XNORM,
6637 INFO);
6638 }
6639
6640 //-- dlasyf --------------------------------------------------------------------
6641 void
6642 LAPACK_DECL(dlasyf)(const char *UPLO,
6643 const INTEGER *N,
6644 const INTEGER *NB,
6645 INTEGER *KB,
6646 DOUBLE *A,
6647 const INTEGER *LDA,
6648 INTEGER *IPIV,
6649 const DOUBLE *W,
6650 const INTEGER *LDW,
6651 INTEGER *INFO)
6652 {
6653 DEBUG_LAPACK_STUB("dlasyf");
6654 LAPACK_IMPL(dlasyf)(UPLO,
6655 N,
6656 NB,
6657 KB,
6658 A,
6659 LDA,
6660 IPIV,
6661 W,
6662 LDW,
6663 INFO);
6664 }
6665
6666 //-- dlat2s --------------------------------------------------------------------
6667 void
6668 LAPACK_DECL(dlat2s)(const char *UPLO,
6669 const INTEGER *N,
6670 const DOUBLE *A,
6671 const INTEGER *LDA,
6672 FLOAT *SA,
6673 const INTEGER *LDSA,
6674 INTEGER *INFO)
6675 {
6676 DEBUG_LAPACK_STUB("dlat2s");
6677 LAPACK_IMPL(dlat2s)(UPLO,
6678 N,
6679 A,
6680 LDA,
6681 SA,
6682 LDSA,
6683 INFO);
6684 }
6685
6686 //-- dlatbs --------------------------------------------------------------------
6687 void
6688 LAPACK_DECL(dlatbs)(const char *UPLO,
6689 const char *TRANS,
6690 const char *DIAG,
6691 const char *NORMIN,
6692 const INTEGER *N,
6693 const INTEGER *KD,
6694 const DOUBLE *AB,
6695 const INTEGER *LDAB,
6696 DOUBLE *X,
6697 DOUBLE *SCALE,
6698 DOUBLE *CNORM,
6699 INTEGER *INFO)
6700 {
6701 DEBUG_LAPACK_STUB("dlatbs");
6702 LAPACK_IMPL(dlatbs)(UPLO,
6703 TRANS,
6704 DIAG,
6705 NORMIN,
6706 N,
6707 KD,
6708 AB,
6709 LDAB,
6710 X,
6711 SCALE,
6712 CNORM,
6713 INFO);
6714 }
6715
6716 //-- dlatdf --------------------------------------------------------------------
6717 void
6718 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
6719 const INTEGER *N,
6720 const DOUBLE *Z,
6721 const INTEGER *LDZ,
6722 DOUBLE *RHS,
6723 DOUBLE *RDSUM,
6724 DOUBLE *RDSCAL,
6725 const INTEGER *IPIV,
6726 const INTEGER *JPIV)
6727 {
6728 DEBUG_LAPACK_STUB("dlatdf");
6729 LAPACK_IMPL(dlatdf)(IJOB,
6730 N,
6731 Z,
6732 LDZ,
6733 RHS,
6734 RDSUM,
6735 RDSCAL,
6736 IPIV,
6737 JPIV);
6738 }
6739
6740 //-- dlatps --------------------------------------------------------------------
6741 void
6742 LAPACK_DECL(dlatps)(const char *UPLO,
6743 const char *TRANS,
6744 const char *DIAG,
6745 const char *NORMIN,
6746 const INTEGER *N,
6747 const DOUBLE *AP,
6748 DOUBLE *X,
6749 DOUBLE *SCALE,
6750 DOUBLE *CNORM,
6751 INTEGER *INFO)
6752 {
6753 DEBUG_LAPACK_STUB("dlatps");
6754 LAPACK_IMPL(dlatps)(UPLO,
6755 TRANS,
6756 DIAG,
6757 NORMIN,
6758 N,
6759 AP,
6760 X,
6761 SCALE,
6762 CNORM,
6763 INFO);
6764 }
6765
6766 //-- dlatrd --------------------------------------------------------------------
6767 void
6768 LAPACK_DECL(dlatrd)(const char *UPLO,
6769 const INTEGER *N,
6770 const INTEGER *NB,
6771 DOUBLE *A,
6772 const INTEGER *LDA,
6773 DOUBLE *E,
6774 DOUBLE *TAU,
6775 DOUBLE *W,
6776 const INTEGER *LDW)
6777 {
6778 DEBUG_LAPACK_STUB("dlatrd");
6779 LAPACK_IMPL(dlatrd)(UPLO,
6780 N,
6781 NB,
6782 A,
6783 LDA,
6784 E,
6785 TAU,
6786 W,
6787 LDW);
6788 }
6789
6790 //-- dlatrs --------------------------------------------------------------------
6791 /*
6792 void
6793 LAPACK_DECL(dlatrs)(const char *UPLO,
6794 const char *TRANS,
6795 const char *DIAG,
6796 const char *NORMIN,
6797 const INTEGER *N,
6798 const DOUBLE *A,
6799 const INTEGER *LDA,
6800 DOUBLE *X,
6801 DOUBLE *SCALE,
6802 DOUBLE *CNORM,
6803 INTEGER *INFO)
6804 {
6805 DEBUG_LAPACK_STUB("dlatrs");
6806 LAPACK_IMPL(dlatrs)(UPLO,
6807 TRANS,
6808 DIAG,
6809 NORMIN,
6810 N,
6811 A,
6812 LDA,
6813 X,
6814 SCALE,
6815 CNORM,
6816 INFO);
6817 }
6818 */
6819
6820 //-- dlatrz --------------------------------------------------------------------
6821 void
6822 LAPACK_DECL(dlatrz)(const INTEGER *M,
6823 const INTEGER *N,
6824 const INTEGER *L,
6825 DOUBLE *A,
6826 const INTEGER *LDA,
6827 DOUBLE *TAU,
6828 const DOUBLE *WORK)
6829 {
6830 DEBUG_LAPACK_STUB("dlatrz");
6831 LAPACK_IMPL(dlatrz)(M,
6832 N,
6833 L,
6834 A,
6835 LDA,
6836 TAU,
6837 WORK);
6838 }
6839
6840 //-- dlatzm --------------------------------------------------------------------
6841 void
6842 LAPACK_DECL(dlatzm)(const char *SIDE,
6843 const INTEGER *M,
6844 const INTEGER *N,
6845 const DOUBLE *V,
6846 const INTEGER *INCV,
6847 const DOUBLE *TAU,
6848 DOUBLE *C1,
6849 DOUBLE *C2,
6850 const INTEGER *LDC,
6851 const DOUBLE *WORK)
6852 {
6853 DEBUG_LAPACK_STUB("dlatzm");
6854 LAPACK_IMPL(dlatzm)(SIDE,
6855 M,
6856 N,
6857 V,
6858 INCV,
6859 TAU,
6860 C1,
6861 C2,
6862 LDC,
6863 WORK);
6864 }
6865
6866 //-- dlauu2 --------------------------------------------------------------------
6867 void
6868 LAPACK_DECL(dlauu2)(const char *UPLO,
6869 const INTEGER *N,
6870 DOUBLE *A,
6871 const INTEGER *LDA,
6872 INTEGER *INFO)
6873 {
6874 DEBUG_LAPACK_STUB("dlauu2");
6875 LAPACK_IMPL(dlauu2)(UPLO,
6876 N,
6877 A,
6878 LDA,
6879 INFO);
6880 }
6881
6882 //-- dlauum --------------------------------------------------------------------
6883 void
6884 LAPACK_DECL(dlauum)(const char *UPLO,
6885 const INTEGER *N,
6886 DOUBLE *A,
6887 const INTEGER *LDA,
6888 INTEGER *INFO)
6889 {
6890 DEBUG_LAPACK_STUB("dlauum");
6891 LAPACK_IMPL(dlauum)(UPLO,
6892 N,
6893 A,
6894 LDA,
6895 INFO);
6896 }
6897
6898 //-- dopgtr --------------------------------------------------------------------
6899 void
6900 LAPACK_DECL(dopgtr)(const char *UPLO,
6901 const INTEGER *N,
6902 const DOUBLE *AP,
6903 const DOUBLE *TAU,
6904 DOUBLE *Q,
6905 const INTEGER *LDQ,
6906 const DOUBLE *WORK,
6907 INTEGER *INFO)
6908 {
6909 DEBUG_LAPACK_STUB("dopgtr");
6910 LAPACK_IMPL(dopgtr)(UPLO,
6911 N,
6912 AP,
6913 TAU,
6914 Q,
6915 LDQ,
6916 WORK,
6917 INFO);
6918 }
6919
6920 //-- dopmtr --------------------------------------------------------------------
6921 void
6922 LAPACK_DECL(dopmtr)(const char *SIDE,
6923 const char *UPLO,
6924 const char *TRANS,
6925 const INTEGER *M,
6926 const INTEGER *N,
6927 const DOUBLE *AP,
6928 const DOUBLE *TAU,
6929 DOUBLE *C,
6930 const INTEGER *LDC,
6931 const DOUBLE *WORK,
6932 INTEGER *INFO)
6933 {
6934 DEBUG_LAPACK_STUB("dopmtr");
6935 LAPACK_IMPL(dopmtr)(SIDE,
6936 UPLO,
6937 TRANS,
6938 M,
6939 N,
6940 AP,
6941 TAU,
6942 C,
6943 LDC,
6944 WORK,
6945 INFO);
6946 }
6947
6948 //-- dorbdb --------------------------------------------------------------------
6949 void
6950 LAPACK_DECL(dorbdb)(const char *TRANS,
6951 const char *SIGNS,
6952 const INTEGER *M,
6953 const INTEGER *P,
6954 const INTEGER *Q,
6955 DOUBLE *X11,
6956 const INTEGER *LDX11,
6957 DOUBLE *X12,
6958 const INTEGER *LDX12,
6959 DOUBLE *X21,
6960 const INTEGER *LDX21,
6961 DOUBLE *X22,
6962 const INTEGER *LDX22,
6963 DOUBLE *THETA,
6964 DOUBLE *PHI,
6965 DOUBLE *TAUP1,
6966 DOUBLE *TAUP2,
6967 DOUBLE *TAUQ1,
6968 DOUBLE *TAUQ2,
6969 const DOUBLE *WORK,
6970 const INTEGER *LWORK,
6971 INTEGER *INFO)
6972 {
6973 DEBUG_LAPACK_STUB("dorbdb");
6974 LAPACK_IMPL(dorbdb)(TRANS,
6975 SIGNS,
6976 M,
6977 P,
6978 Q,
6979 X11,
6980 LDX11,
6981 X12,
6982 LDX12,
6983 X21,
6984 LDX21,
6985 X22,
6986 LDX22,
6987 THETA,
6988 PHI,
6989 TAUP1,
6990 TAUP2,
6991 TAUQ1,
6992 TAUQ2,
6993 WORK,
6994 LWORK,
6995 INFO);
6996 }
6997
6998 //-- dorcsd --------------------------------------------------------------------
6999 void
7000 LAPACK_DECL(dorcsd)(const char *JOBU1,
7001 const char *JOBU2,
7002 const char *JOBV1T,
7003 const char *JOBV2T,
7004 const char *TRANS,
7005 const char *SIGNS,
7006 const INTEGER *M,
7007 const INTEGER *P,
7008 const INTEGER *Q,
7009 const DOUBLE *X11,
7010 const INTEGER *LDX11,
7011 const DOUBLE *X12,
7012 const INTEGER *LDX12,
7013 const DOUBLE *X21,
7014 const INTEGER *LDX21,
7015 const DOUBLE *X22,
7016 const INTEGER *LDX22,
7017 DOUBLE *THETA,
7018 DOUBLE *U1,
7019 const INTEGER *LDU1,
7020 DOUBLE *U2,
7021 const INTEGER *LDU2,
7022 DOUBLE *V1T,
7023 const INTEGER *LDV1T,
7024 DOUBLE *V2T,
7025 const INTEGER *LDV2T,
7026 const DOUBLE *WORK,
7027 const INTEGER *LWORK,
7028 const INTEGER *IWORK,
7029 INTEGER *INFO)
7030 {
7031 DEBUG_LAPACK_STUB("dorcsd");
7032 LAPACK_IMPL(dorcsd)(JOBU1,
7033 JOBU2,
7034 JOBV1T,
7035 JOBV2T,
7036 TRANS,
7037 SIGNS,
7038 M,
7039 P,
7040 Q,
7041 X11,
7042 LDX11,
7043 X12,
7044 LDX12,
7045 X21,
7046 LDX21,
7047 X22,
7048 LDX22,
7049 THETA,
7050 U1,
7051 LDU1,
7052 U2,
7053 LDU2,
7054 V1T,
7055 LDV1T,
7056 V2T,
7057 LDV2T,
7058 WORK,
7059 LWORK,
7060 IWORK,
7061 INFO);
7062 }
7063
7064 //-- dorg2l --------------------------------------------------------------------
7065 void
7066 LAPACK_DECL(dorg2l)(const INTEGER *M,
7067 const INTEGER *N,
7068 const INTEGER *K,
7069 DOUBLE *A,
7070 const INTEGER *LDA,
7071 const DOUBLE *TAU,
7072 const DOUBLE *WORK,
7073 INTEGER *INFO)
7074 {
7075 DEBUG_LAPACK_STUB("dorg2l");
7076 LAPACK_IMPL(dorg2l)(M,
7077 N,
7078 K,
7079 A,
7080 LDA,
7081 TAU,
7082 WORK,
7083 INFO);
7084 }
7085
7086 //-- dorg2r --------------------------------------------------------------------
7087 void
7088 LAPACK_DECL(dorg2r)(const INTEGER *M,
7089 const INTEGER *N,
7090 const INTEGER *K,
7091 DOUBLE *A,
7092 const INTEGER *LDA,
7093 const DOUBLE *TAU,
7094 DOUBLE *WORK,
7095 INTEGER *INFO)
7096 {
7097 DEBUG_LAPACK_STUB("dorg2r");
7098 LAPACK_IMPL(dorg2r)(M,
7099 N,
7100 K,
7101 A,
7102 LDA,
7103 TAU,
7104 WORK,
7105 INFO);
7106 }
7107
7108 //-- dorgbr --------------------------------------------------------------------
7109 void
7110 LAPACK_DECL(dorgbr)(const char *VECT,
7111 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 const INTEGER *LWORK,
7119 INTEGER *INFO)
7120 {
7121 DEBUG_LAPACK_STUB("dorgbr");
7122 LAPACK_IMPL(dorgbr)(VECT,
7123 M,
7124 N,
7125 K,
7126 A,
7127 LDA,
7128 TAU,
7129 WORK,
7130 LWORK,
7131 INFO);
7132 }
7133
7134 //-- dorghr --------------------------------------------------------------------
7135 void
7136 LAPACK_DECL(dorghr)(const INTEGER *N,
7137 const INTEGER *ILO,
7138 const INTEGER *IHI,
7139 DOUBLE *A,
7140 const INTEGER *LDA,
7141 const DOUBLE *TAU,
7142 DOUBLE *WORK,
7143 const INTEGER *LWORK,
7144 INTEGER *INFO)
7145 {
7146 DEBUG_LAPACK_STUB("dorghr");
7147 LAPACK_IMPL(dorghr)(N,
7148 ILO,
7149 IHI,
7150 A,
7151 LDA,
7152 TAU,
7153 WORK,
7154 LWORK,
7155 INFO);
7156 }
7157
7158 //-- dorgl2 --------------------------------------------------------------------
7159 void
7160 LAPACK_DECL(dorgl2)(const INTEGER *M,
7161 const INTEGER *N,
7162 const INTEGER *K,
7163 DOUBLE *A,
7164 const INTEGER *LDA,
7165 const DOUBLE *TAU,
7166 const DOUBLE *WORK,
7167 INTEGER *INFO)
7168 {
7169 DEBUG_LAPACK_STUB("dorgl2");
7170 LAPACK_IMPL(dorgl2)(M,
7171 N,
7172 K,
7173 A,
7174 LDA,
7175 TAU,
7176 WORK,
7177 INFO);
7178 }
7179
7180 //-- dorglq --------------------------------------------------------------------
7181 /*
7182 void
7183 LAPACK_DECL(dorglq)(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 const INTEGER *LWORK,
7191 INTEGER *INFO)
7192 {
7193 DEBUG_LAPACK_STUB("dorglq");
7194 LAPACK_IMPL(dorglq)(M,
7195 N,
7196 K,
7197 A,
7198 LDA,
7199 TAU,
7200 WORK,
7201 LWORK,
7202 INFO);
7203 }
7204 */
7205 //-- dorgql --------------------------------------------------------------------
7206 void
7207 LAPACK_DECL(dorgql)(const INTEGER *M,
7208 const INTEGER *N,
7209 const INTEGER *K,
7210 DOUBLE *A,
7211 const INTEGER *LDA,
7212 const DOUBLE *TAU,
7213 DOUBLE *WORK,
7214 const INTEGER *LWORK,
7215 INTEGER *INFO)
7216 {
7217 DEBUG_LAPACK_STUB("dorgql");
7218 LAPACK_IMPL(dorgql)(M,
7219 N,
7220 K,
7221 A,
7222 LDA,
7223 TAU,
7224 WORK,
7225 LWORK,
7226 INFO);
7227 }
7228
7229 //-- dorgqr --------------------------------------------------------------------
7230 /*
7231 void
7232 LAPACK_DECL(dorgqr)(const INTEGER *M,
7233 const INTEGER *N,
7234 const INTEGER *K,
7235 DOUBLE *A,
7236 const INTEGER *LDA,
7237 const DOUBLE *TAU,
7238 DOUBLE *WORK,
7239 const INTEGER *LWORK,
7240 INTEGER *INFO)
7241 {
7242 DEBUG_LAPACK_STUB("dorgqr");
7243 LAPACK_IMPL(dorgqr)(M,
7244 N,
7245 K,
7246 A,
7247 LDA,
7248 TAU,
7249 WORK,
7250 LWORK,
7251 INFO);
7252 }
7253 */
7254
7255 //-- dorgr2 --------------------------------------------------------------------
7256 void
7257 LAPACK_DECL(dorgr2)(const INTEGER *M,
7258 const INTEGER *N,
7259 const INTEGER *K,
7260 DOUBLE *A,
7261 const INTEGER *LDA,
7262 const DOUBLE *TAU,
7263 const DOUBLE *WORK,
7264 INTEGER *INFO)
7265 {
7266 DEBUG_LAPACK_STUB("dorgr2");
7267 LAPACK_IMPL(dorgr2)(M,
7268 N,
7269 K,
7270 A,
7271 LDA,
7272 TAU,
7273 WORK,
7274 INFO);
7275 }
7276
7277 //-- dorgrq --------------------------------------------------------------------
7278 void
7279 LAPACK_DECL(dorgrq)(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 const INTEGER *LWORK,
7287 INTEGER *INFO)
7288 {
7289 DEBUG_LAPACK_STUB("dorgrq");
7290 LAPACK_IMPL(dorgrq)(M,
7291 N,
7292 K,
7293 A,
7294 LDA,
7295 TAU,
7296 WORK,
7297 LWORK,
7298 INFO);
7299 }
7300
7301 //-- dorgtr --------------------------------------------------------------------
7302 void
7303 LAPACK_DECL(dorgtr)(const char *UPLO,
7304 const INTEGER *N,
7305 DOUBLE *A,
7306 const INTEGER *LDA,
7307 const DOUBLE *TAU,
7308 DOUBLE *WORK,
7309 const INTEGER *LWORK,
7310 INTEGER *INFO)
7311 {
7312 DEBUG_LAPACK_STUB("dorgtr");
7313 LAPACK_IMPL(dorgtr)(UPLO,
7314 N,
7315 A,
7316 LDA,
7317 TAU,
7318 WORK,
7319 LWORK,
7320 INFO);
7321 }
7322
7323 //-- dorm2l --------------------------------------------------------------------
7324 void
7325 LAPACK_DECL(dorm2l)(const char *SIDE,
7326 const char *TRANS,
7327 const INTEGER *M,
7328 const INTEGER *N,
7329 const INTEGER *K,
7330 const DOUBLE *A,
7331 const INTEGER *LDA,
7332 const DOUBLE *TAU,
7333 DOUBLE *C,
7334 const INTEGER *LDC,
7335 const DOUBLE *WORK,
7336 INTEGER *INFO)
7337 {
7338 DEBUG_LAPACK_STUB("dorm2l");
7339 LAPACK_IMPL(dorm2l)(SIDE,
7340 TRANS,
7341 M,
7342 N,
7343 K,
7344 A,
7345 LDA,
7346 TAU,
7347 C,
7348 LDC,
7349 WORK,
7350 INFO);
7351 }
7352
7353 //-- dorm2r --------------------------------------------------------------------
7354 void
7355 LAPACK_DECL(dorm2r)(const char *SIDE,
7356 const char *TRANS,
7357 const INTEGER *M,
7358 const INTEGER *N,
7359 const INTEGER *K,
7360 const DOUBLE *A,
7361 const INTEGER *LDA,
7362 const DOUBLE *TAU,
7363 DOUBLE *C,
7364 const INTEGER *LDC,
7365 const DOUBLE *WORK,
7366 INTEGER *INFO)
7367 {
7368 DEBUG_LAPACK_STUB("dorm2r");
7369 LAPACK_IMPL(dorm2r)(SIDE,
7370 TRANS,
7371 M,
7372 N,
7373 K,
7374 A,
7375 LDA,
7376 TAU,
7377 C,
7378 LDC,
7379 WORK,
7380 INFO);
7381 }
7382
7383 //-- dormbr --------------------------------------------------------------------
7384 void
7385 LAPACK_DECL(dormbr)(const char *VECT,
7386 const char *SIDE,
7387 const char *TRANS,
7388 const INTEGER *M,
7389 const INTEGER *N,
7390 const INTEGER *K,
7391 const DOUBLE *A,
7392 const INTEGER *LDA,
7393 const DOUBLE *TAU,
7394 DOUBLE *C,
7395 const INTEGER *LDC,
7396 DOUBLE *WORK,
7397 const INTEGER *LWORK,
7398 INTEGER *INFO)
7399 {
7400 DEBUG_LAPACK_STUB("dormbr");
7401 LAPACK_IMPL(dormbr)(VECT,
7402 SIDE,
7403 TRANS,
7404 M,
7405 N,
7406 K,
7407 A,
7408 LDA,
7409 TAU,
7410 C,
7411 LDC,
7412 WORK,
7413 LWORK,
7414 INFO);
7415 }
7416
7417 //-- dormhr --------------------------------------------------------------------
7418 void
7419 LAPACK_DECL(dormhr)(const char *SIDE,
7420 const char *TRANS,
7421 const INTEGER *M,
7422 const INTEGER *N,
7423 const INTEGER *ILO,
7424 const INTEGER *IHI,
7425 const DOUBLE *A,
7426 const INTEGER *LDA,
7427 const DOUBLE *TAU,
7428 DOUBLE *C,
7429 const INTEGER *LDC,
7430 DOUBLE *WORK,
7431 const INTEGER *LWORK,
7432 INTEGER *INFO)
7433 {
7434 DEBUG_LAPACK_STUB("dormhr");
7435 LAPACK_IMPL(dormhr)(SIDE,
7436 TRANS,
7437 M,
7438 N,
7439 ILO,
7440 IHI,
7441 A,
7442 LDA,
7443 TAU,
7444 C,
7445 LDC,
7446 WORK,
7447 LWORK,
7448 INFO);
7449 }
7450
7451 //-- dorml2 --------------------------------------------------------------------
7452 void
7453 LAPACK_DECL(dorml2)(const char *SIDE,
7454 const char *TRANS,
7455 const INTEGER *M,
7456 const INTEGER *N,
7457 const INTEGER *K,
7458 const DOUBLE *A,
7459 const INTEGER *LDA,
7460 const DOUBLE *TAU,
7461 DOUBLE *C,
7462 const INTEGER *LDC,
7463 const DOUBLE *WORK,
7464 INTEGER *INFO)
7465 {
7466 DEBUG_LAPACK_STUB("dorml2");
7467 LAPACK_IMPL(dorml2)(SIDE,
7468 TRANS,
7469 M,
7470 N,
7471 K,
7472 A,
7473 LDA,
7474 TAU,
7475 C,
7476 LDC,
7477 WORK,
7478 INFO);
7479 }
7480
7481 //-- dormlq --------------------------------------------------------------------
7482 /*
7483 void
7484 LAPACK_DECL(dormlq)(const char *SIDE,
7485 const char *TRANS,
7486 const INTEGER *M,
7487 const INTEGER *N,
7488 const INTEGER *K,
7489 const DOUBLE *A,
7490 const INTEGER *LDA,
7491 const DOUBLE *TAU,
7492 DOUBLE *C,
7493 const INTEGER *LDC,
7494 DOUBLE *WORK,
7495 const INTEGER *LWORK,
7496 INTEGER *INFO)
7497 {
7498 DEBUG_LAPACK_STUB("dormlq");
7499 LAPACK_IMPL(dormlq)(SIDE,
7500 TRANS,
7501 M,
7502 N,
7503 K,
7504 A,
7505 LDA,
7506 TAU,
7507 C,
7508 LDC,
7509 WORK,
7510 LWORK,
7511 INFO);
7512 }
7513 */
7514 //-- dormql --------------------------------------------------------------------
7515 void
7516 LAPACK_DECL(dormql)(const char *SIDE,
7517 const char *TRANS,
7518 const INTEGER *M,
7519 const INTEGER *N,
7520 const INTEGER *K,
7521 const DOUBLE *A,
7522 const INTEGER *LDA,
7523 const DOUBLE *TAU,
7524 DOUBLE *C,
7525 const INTEGER *LDC,
7526 DOUBLE *WORK,
7527 const INTEGER *LWORK,
7528 INTEGER *INFO)
7529 {
7530 DEBUG_LAPACK_STUB("dormql");
7531 LAPACK_IMPL(dormql)(SIDE,
7532 TRANS,
7533 M,
7534 N,
7535 K,
7536 A,
7537 LDA,
7538 TAU,
7539 C,
7540 LDC,
7541 WORK,
7542 LWORK,
7543 INFO);
7544 }
7545
7546 //-- dormqr --------------------------------------------------------------------
7547 /*
7548 void
7549 LAPACK_DECL(dormqr)(const char *SIDE,
7550 const char *TRANS,
7551 const INTEGER *M,
7552 const INTEGER *N,
7553 const INTEGER *K,
7554 const DOUBLE *A,
7555 const INTEGER *LDA,
7556 const DOUBLE *TAU,
7557 DOUBLE *C,
7558 const INTEGER *LDC,
7559 DOUBLE *WORK,
7560 const INTEGER *LWORK,
7561 INTEGER *INFO)
7562 {
7563 DEBUG_LAPACK_STUB("dormqr");
7564 LAPACK_IMPL(dormqr)(SIDE,
7565 TRANS,
7566 M,
7567 N,
7568 K,
7569 A,
7570 LDA,
7571 TAU,
7572 C,
7573 LDC,
7574 WORK,
7575 LWORK,
7576 INFO);
7577 }
7578 */
7579
7580 //-- dormr2 --------------------------------------------------------------------
7581 void
7582 LAPACK_DECL(dormr2)(const char *SIDE,
7583 const char *TRANS,
7584 const INTEGER *M,
7585 const INTEGER *N,
7586 const INTEGER *K,
7587 const DOUBLE *A,
7588 const INTEGER *LDA,
7589 const DOUBLE *TAU,
7590 DOUBLE *C,
7591 const INTEGER *LDC,
7592 const DOUBLE *WORK,
7593 INTEGER *INFO)
7594 {
7595 DEBUG_LAPACK_STUB("dormr2");
7596 LAPACK_IMPL(dormr2)(SIDE,
7597 TRANS,
7598 M,
7599 N,
7600 K,
7601 A,
7602 LDA,
7603 TAU,
7604 C,
7605 LDC,
7606 WORK,
7607 INFO);
7608 }
7609
7610 //-- dormr3 --------------------------------------------------------------------
7611 void
7612 LAPACK_DECL(dormr3)(const char *SIDE,
7613 const char *TRANS,
7614 const INTEGER *M,
7615 const INTEGER *N,
7616 const INTEGER *K,
7617 const INTEGER *L,
7618 const DOUBLE *A,
7619 const INTEGER *LDA,
7620 const DOUBLE *TAU,
7621 DOUBLE *C,
7622 const INTEGER *LDC,
7623 const DOUBLE *WORK,
7624 INTEGER *INFO)
7625 {
7626 DEBUG_LAPACK_STUB("dormr3");
7627 LAPACK_IMPL(dormr3)(SIDE,
7628 TRANS,
7629 M,
7630 N,
7631 K,
7632 L,
7633 A,
7634 LDA,
7635 TAU,
7636 C,
7637 LDC,
7638 WORK,
7639 INFO);
7640 }
7641
7642 //-- dormrq --------------------------------------------------------------------
7643 void
7644 LAPACK_DECL(dormrq)(const char *SIDE,
7645 const char *TRANS,
7646 const INTEGER *M,
7647 const INTEGER *N,
7648 const INTEGER *K,
7649 const DOUBLE *A,
7650 const INTEGER *LDA,
7651 const DOUBLE *TAU,
7652 DOUBLE *C,
7653 const INTEGER *LDC,
7654 DOUBLE *WORK,
7655 const INTEGER *LWORK,
7656 INTEGER *INFO)
7657 {
7658 DEBUG_LAPACK_STUB("dormrq");
7659 LAPACK_IMPL(dormrq)(SIDE,
7660 TRANS,
7661 M,
7662 N,
7663 K,
7664 A,
7665 LDA,
7666 TAU,
7667 C,
7668 LDC,
7669 WORK,
7670 LWORK,
7671 INFO);
7672 }
7673
7674 //-- dormrz --------------------------------------------------------------------
7675 void
7676 LAPACK_DECL(dormrz)(const char *SIDE,
7677 const char *TRANS,
7678 const INTEGER *M,
7679 const INTEGER *N,
7680 const INTEGER *K,
7681 const INTEGER *L,
7682 const DOUBLE *A,
7683 const INTEGER *LDA,
7684 const DOUBLE *TAU,
7685 DOUBLE *C,
7686 const INTEGER *LDC,
7687 DOUBLE *WORK,
7688 const INTEGER *LWORK,
7689 INTEGER *INFO)
7690 {
7691 DEBUG_LAPACK_STUB("dormrz");
7692 LAPACK_IMPL(dormrz)(SIDE,
7693 TRANS,
7694 M,
7695 N,
7696 K,
7697 L,
7698 A,
7699 LDA,
7700 TAU,
7701 C,
7702 LDC,
7703 WORK,
7704 LWORK,
7705 INFO);
7706 }
7707
7708 //-- dormtr --------------------------------------------------------------------
7709 void
7710 LAPACK_DECL(dormtr)(const char *SIDE,
7711 const char *UPLO,
7712 const char *TRANS,
7713 const INTEGER *M,
7714 const INTEGER *N,
7715 const DOUBLE *A,
7716 const INTEGER *LDA,
7717 const DOUBLE *TAU,
7718 DOUBLE *C,
7719 const INTEGER *LDC,
7720 DOUBLE *WORK,
7721 const INTEGER *LWORK,
7722 INTEGER *INFO)
7723 {
7724 DEBUG_LAPACK_STUB("dormtr");
7725 LAPACK_IMPL(dormtr)(SIDE,
7726 UPLO,
7727 TRANS,
7728 M,
7729 N,
7730 A,
7731 LDA,
7732 TAU,
7733 C,
7734 LDC,
7735 WORK,
7736 LWORK,
7737 INFO);
7738 }
7739
7740 //-- dpbcon --------------------------------------------------------------------
7741 void
7742 LAPACK_DECL(dpbcon)(const char *UPLO,
7743 const INTEGER *N,
7744 const INTEGER *KD,
7745 const DOUBLE *AB,
7746 const INTEGER *LDAB,
7747 const DOUBLE *ANORM,
7748 DOUBLE *RCOND,
7749 const DOUBLE *WORK,
7750 const INTEGER *IWORK,
7751 INTEGER *INFO)
7752 {
7753 DEBUG_LAPACK_STUB("dpbcon");
7754 LAPACK_IMPL(dpbcon)(UPLO,
7755 N,
7756 KD,
7757 AB,
7758 LDAB,
7759 ANORM,
7760 RCOND,
7761 WORK,
7762 IWORK,
7763 INFO);
7764 }
7765
7766 //-- dpbequ --------------------------------------------------------------------
7767 void
7768 LAPACK_DECL(dpbequ)(const char *UPLO,
7769 const INTEGER *N,
7770 const INTEGER *KD,
7771 const DOUBLE *AB,
7772 const INTEGER *LDAB,
7773 DOUBLE *S,
7774 DOUBLE *SCOND,
7775 DOUBLE *AMAX,
7776 INTEGER *INFO)
7777 {
7778 DEBUG_LAPACK_STUB("dpbequ");
7779 LAPACK_IMPL(dpbequ)(UPLO,
7780 N,
7781 KD,
7782 AB,
7783 LDAB,
7784 S,
7785 SCOND,
7786 AMAX,
7787 INFO);
7788 }
7789
7790 //-- dpbrfs --------------------------------------------------------------------
7791 void
7792 LAPACK_DECL(dpbrfs)(const char *UPLO,
7793 const INTEGER *N,
7794 const INTEGER *KD,
7795 const INTEGER *NRHS,
7796 const DOUBLE *AB,
7797 const INTEGER *LDAB,
7798 const DOUBLE *AFB,
7799 const INTEGER *LDAFB,
7800 const DOUBLE *B,
7801 const INTEGER *LDB,
7802 DOUBLE *X,
7803 const INTEGER *LDX,
7804 DOUBLE *FERR,
7805 DOUBLE *BERR,
7806 const DOUBLE *WORK,
7807 const INTEGER *IWORK,
7808 INTEGER *INFO)
7809 {
7810 DEBUG_LAPACK_STUB("dpbrfs");
7811 LAPACK_IMPL(dpbrfs)(UPLO,
7812 N,
7813 KD,
7814 NRHS,
7815 AB,
7816 LDAB,
7817 AFB,
7818 LDAFB,
7819 B,
7820 LDB,
7821 X,
7822 LDX,
7823 FERR,
7824 BERR,
7825 WORK,
7826 IWORK,
7827 INFO);
7828 }
7829
7830 //-- dpbstf --------------------------------------------------------------------
7831 void
7832 LAPACK_DECL(dpbstf)(const char *UPLO,
7833 const INTEGER *N,
7834 const INTEGER *KD,
7835 DOUBLE *AB,
7836 const INTEGER *LDAB,
7837 INTEGER *INFO)
7838 {
7839 DEBUG_LAPACK_STUB("dpbstf");
7840 LAPACK_IMPL(dpbstf)(UPLO,
7841 N,
7842 KD,
7843 AB,
7844 LDAB,
7845 INFO);
7846 }
7847
7848 //-- dpbsv ---------------------------------------------------------------------
7849 void
7850 LAPACK_DECL(dpbsv)(const char *UPLO,
7851 const INTEGER *N,
7852 const INTEGER *KD,
7853 const INTEGER *NRHS,
7854 DOUBLE *AB,
7855 const INTEGER *LDAB,
7856 DOUBLE *B,
7857 const INTEGER *LDB,
7858 INTEGER *INFO)
7859 {
7860 DEBUG_LAPACK_STUB("dpbsv");
7861 LAPACK_IMPL(dpbsv)(UPLO,
7862 N,
7863 KD,
7864 NRHS,
7865 AB,
7866 LDAB,
7867 B,
7868 LDB,
7869 INFO);
7870 }
7871
7872 //-- dpbsvx --------------------------------------------------------------------
7873 void
7874 LAPACK_DECL(dpbsvx)(const char *FACT,
7875 const char *UPLO,
7876 const INTEGER *N,
7877 const INTEGER *KD,
7878 const INTEGER *NRHS,
7879 DOUBLE *AB,
7880 const INTEGER *LDAB,
7881 DOUBLE *AFB,
7882 const INTEGER *LDAFB,
7883 char *EQUED,
7884 DOUBLE *S,
7885 DOUBLE *B,
7886 const INTEGER *LDB,
7887 DOUBLE *X,
7888 const INTEGER *LDX,
7889 DOUBLE *RCOND,
7890 DOUBLE *FERR,
7891 DOUBLE *BERR,
7892 const DOUBLE *WORK,
7893 const INTEGER *IWORK,
7894 INTEGER *INFO)
7895 {
7896 DEBUG_LAPACK_STUB("dpbsvx");
7897 LAPACK_IMPL(dpbsvx)(FACT,
7898 UPLO,
7899 N,
7900 KD,
7901 NRHS,
7902 AB,
7903 LDAB,
7904 AFB,
7905 LDAFB,
7906 EQUED,
7907 S,
7908 B,
7909 LDB,
7910 X,
7911 LDX,
7912 RCOND,
7913 FERR,
7914 BERR,
7915 WORK,
7916 IWORK,
7917 INFO);
7918 }
7919
7920 //-- dpbtf2 --------------------------------------------------------------------
7921 void
7922 LAPACK_DECL(dpbtf2)(const char *UPLO,
7923 const INTEGER *N,
7924 const INTEGER *KD,
7925 DOUBLE *AB,
7926 const INTEGER *LDAB,
7927 INTEGER *INFO)
7928 {
7929 DEBUG_LAPACK_STUB("dpbtf2");
7930 LAPACK_IMPL(dpbtf2)(UPLO,
7931 N,
7932 KD,
7933 AB,
7934 LDAB,
7935 INFO);
7936 }
7937
7938 //-- dpbtrf --------------------------------------------------------------------
7939 void
7940 LAPACK_DECL(dpbtrf)(const char *UPLO,
7941 const INTEGER *N,
7942 const INTEGER *KD,
7943 DOUBLE *AB,
7944 const INTEGER *LDAB,
7945 INTEGER *INFO)
7946 {
7947 DEBUG_LAPACK_STUB("dpbtrf");
7948 LAPACK_IMPL(dpbtrf)(UPLO,
7949 N,
7950 KD,
7951 AB,
7952 LDAB,
7953 INFO);
7954 }
7955
7956 //-- dpbtrs --------------------------------------------------------------------
7957 void
7958 LAPACK_DECL(dpbtrs)(const char *UPLO,
7959 const INTEGER *N,
7960 const INTEGER *KD,
7961 const INTEGER *NRHS,
7962 const DOUBLE *AB,
7963 const INTEGER *LDAB,
7964 DOUBLE *B,
7965 const INTEGER *LDB,
7966 INTEGER *INFO)
7967 {
7968 DEBUG_LAPACK_STUB("dpbtrs");
7969 LAPACK_IMPL(dpbtrs)(UPLO,
7970 N,
7971 KD,
7972 NRHS,
7973 AB,
7974 LDAB,
7975 B,
7976 LDB,
7977 INFO);
7978 }
7979
7980 //-- dpftrf --------------------------------------------------------------------
7981 void
7982 LAPACK_DECL(dpftrf)(const char *TRANSR,
7983 const char *UPLO,
7984 const INTEGER *N,
7985 DOUBLE *A,
7986 INTEGER *INFO)
7987 {
7988 DEBUG_LAPACK_STUB("dpftrf");
7989 LAPACK_IMPL(dpftrf)(TRANSR,
7990 UPLO,
7991 N,
7992 A,
7993 INFO);
7994 }
7995
7996 //-- dpftri --------------------------------------------------------------------
7997 void
7998 LAPACK_DECL(dpftri)(const char *TRANSR,
7999 const char *UPLO,
8000 const INTEGER *N,
8001 DOUBLE *A,
8002 INTEGER *INFO)
8003 {
8004 DEBUG_LAPACK_STUB("dpftri");
8005 LAPACK_IMPL(dpftri)(TRANSR,
8006 UPLO,
8007 N,
8008 A,
8009 INFO);
8010 }
8011
8012 //-- dpftrs --------------------------------------------------------------------
8013 void
8014 LAPACK_DECL(dpftrs)(const char *TRANSR,
8015 const char *UPLO,
8016 const INTEGER *N,
8017 const INTEGER *NRHS,
8018 const DOUBLE *A,
8019 DOUBLE *B,
8020 const INTEGER *LDB,
8021 INTEGER *INFO)
8022 {
8023 DEBUG_LAPACK_STUB("dpftrs");
8024 LAPACK_IMPL(dpftrs)(TRANSR,
8025 UPLO,
8026 N,
8027 NRHS,
8028 A,
8029 B,
8030 LDB,
8031 INFO);
8032 }
8033
8034 //-- dpocon --------------------------------------------------------------------
8035 void
8036 LAPACK_DECL(dpocon)(const char *UPLO,
8037 const INTEGER *N,
8038 const DOUBLE *A,
8039 const INTEGER *LDA,
8040 const DOUBLE *ANORM,
8041 DOUBLE *RCOND,
8042 const DOUBLE *WORK,
8043 const INTEGER *IWORK,
8044 INTEGER *INFO)
8045 {
8046 DEBUG_LAPACK_STUB("dpocon");
8047 LAPACK_IMPL(dpocon)(UPLO,
8048 N,
8049 A,
8050 LDA,
8051 ANORM,
8052 RCOND,
8053 WORK,
8054 IWORK,
8055 INFO);
8056 }
8057
8058 //-- dpoequ --------------------------------------------------------------------
8059 void
8060 LAPACK_DECL(dpoequ)(const INTEGER *N,
8061 const DOUBLE *A,
8062 const INTEGER *LDA,
8063 DOUBLE *S,
8064 DOUBLE *SCOND,
8065 DOUBLE *AMAX,
8066 INTEGER *INFO)
8067 {
8068 DEBUG_LAPACK_STUB("dpoequ");
8069 LAPACK_IMPL(dpoequ)(N,
8070 A,
8071 LDA,
8072 S,
8073 SCOND,
8074 AMAX,
8075 INFO);
8076 }
8077
8078 //-- dpoequb -------------------------------------------------------------------
8079 void
8080 LAPACK_DECL(dpoequb)(const INTEGER *N,
8081 const DOUBLE *A,
8082 const INTEGER *LDA,
8083 DOUBLE *S,
8084 DOUBLE *SCOND,
8085 DOUBLE *AMAX,
8086 INTEGER *INFO)
8087 {
8088 DEBUG_LAPACK_STUB("dpoequb");
8089 LAPACK_IMPL(dpoequb)(N,
8090 A,
8091 LDA,
8092 S,
8093 SCOND,
8094 AMAX,
8095 INFO);
8096 }
8097
8098 //-- dporfs --------------------------------------------------------------------
8099 void
8100 LAPACK_DECL(dporfs)(const char *UPLO,
8101 const INTEGER *N,
8102 const INTEGER *NRHS,
8103 const DOUBLE *A,
8104 const INTEGER *LDA,
8105 const DOUBLE *AF,
8106 const INTEGER *LDAF,
8107 const DOUBLE *B,
8108 const INTEGER *LDB,
8109 DOUBLE *X,
8110 const INTEGER *LDX,
8111 DOUBLE *FERR,
8112 DOUBLE *BERR,
8113 const DOUBLE *WORK,
8114 const INTEGER *IWORK,
8115 INTEGER *INFO)
8116 {
8117 DEBUG_LAPACK_STUB("dporfs");
8118 LAPACK_IMPL(dporfs)(UPLO,
8119 N,
8120 NRHS,
8121 A,
8122 LDA,
8123 AF,
8124 LDAF,
8125 B,
8126 LDB,
8127 X,
8128 LDX,
8129 FERR,
8130 BERR,
8131 WORK,
8132 IWORK,
8133 INFO);
8134 }
8135
8136 //-- dposv ---------------------------------------------------------------------
8137 /*
8138 void
8139 LAPACK_DECL(dposv)(const char *UPLO,
8140 const INTEGER *N,
8141 const INTEGER *NRHS,
8142 DOUBLE *A,
8143 const INTEGER *LDA,
8144 DOUBLE *B,
8145 const INTEGER *LDB,
8146 INTEGER *INFO)
8147 {
8148 DEBUG_LAPACK_STUB("dposv");
8149 LAPACK_IMPL(dposv)(UPLO,
8150 N,
8151 NRHS,
8152 A,
8153 LDA,
8154 B,
8155 LDB,
8156 INFO);
8157 }
8158 */
8159
8160 //-- dposvx --------------------------------------------------------------------
8161 void
8162 LAPACK_DECL(dposvx)(const char *FACT,
8163 const char *UPLO,
8164 const INTEGER *N,
8165 const INTEGER *NRHS,
8166 DOUBLE *A,
8167 const INTEGER *LDA,
8168 DOUBLE *AF,
8169 const INTEGER *LDAF,
8170 char *EQUED,
8171 DOUBLE *S,
8172 DOUBLE *B,
8173 const INTEGER *LDB,
8174 DOUBLE *X,
8175 const INTEGER *LDX,
8176 DOUBLE *RCOND,
8177 DOUBLE *FERR,
8178 DOUBLE *BERR,
8179 const DOUBLE *WORK,
8180 const INTEGER *IWORK,
8181 INTEGER *INFO)
8182 {
8183 DEBUG_LAPACK_STUB("dposvx");
8184 LAPACK_IMPL(dposvx)(FACT,
8185 UPLO,
8186 N,
8187 NRHS,
8188 A,
8189 LDA,
8190 AF,
8191 LDAF,
8192 EQUED,
8193 S,
8194 B,
8195 LDB,
8196 X,
8197 LDX,
8198 RCOND,
8199 FERR,
8200 BERR,
8201 WORK,
8202 IWORK,
8203 INFO);
8204 }
8205
8206 //-- dpotf2 --------------------------------------------------------------------
8207 void
8208 LAPACK_DECL(dpotf2)(const char *UPLO,
8209 const INTEGER *N,
8210 DOUBLE *A,
8211 const INTEGER *LDA,
8212 INTEGER *INFO)
8213 {
8214 DEBUG_LAPACK_STUB("dpotf2");
8215 LAPACK_IMPL(dpotf2)(UPLO,
8216 N,
8217 A,
8218 LDA,
8219 INFO);
8220 }
8221
8222 //-- dpotrf --------------------------------------------------------------------
8223 /*
8224 void
8225 LAPACK_DECL(dpotrf)(const char *UPLO,
8226 const INTEGER *N,
8227 DOUBLE *A,
8228 const INTEGER *LDA,
8229 INTEGER *INFO)
8230 {
8231 DEBUG_LAPACK_STUB("dpotrf");
8232 LAPACK_IMPL(dpotrf)(UPLO,
8233 N,
8234 A,
8235 LDA,
8236 INFO);
8237 }
8238 */
8239
8240 //-- dpotri --------------------------------------------------------------------
8241 /*
8242 void
8243 LAPACK_DECL(dpotri)(const char *UPLO,
8244 const INTEGER *N,
8245 DOUBLE *A,
8246 const INTEGER *LDA,
8247 INTEGER *INFO)
8248 {
8249 DEBUG_LAPACK_STUB("dpotri");
8250 LAPACK_IMPL(dpotri)(UPLO,
8251 N,
8252 A,
8253 LDA,
8254 INFO);
8255 }
8256 */
8257
8258 //-- dpotrs --------------------------------------------------------------------
8259 /*
8260 void
8261 LAPACK_DECL(dpotrs)(const char *UPLO,
8262 const INTEGER *N,
8263 const INTEGER *NRHS,
8264 const DOUBLE *A,
8265 const INTEGER *LDA,
8266 DOUBLE *B,
8267 const INTEGER *LDB,
8268 INTEGER *INFO)
8269 {
8270 DEBUG_LAPACK_STUB("dpotrs");
8271 LAPACK_IMPL(dpotrs)(UPLO,
8272 N,
8273 NRHS,
8274 A,
8275 LDA,
8276 B,
8277 LDB,
8278 INFO);
8279 }
8280 */
8281
8282 //-- dppcon --------------------------------------------------------------------
8283 void
8284 LAPACK_DECL(dppcon)(const char *UPLO,
8285 const INTEGER *N,
8286 const DOUBLE *AP,
8287 const DOUBLE *ANORM,
8288 DOUBLE *RCOND,
8289 const DOUBLE *WORK,
8290 const INTEGER *IWORK,
8291 INTEGER *INFO)
8292 {
8293 DEBUG_LAPACK_STUB("dppcon");
8294 LAPACK_IMPL(dppcon)(UPLO,
8295 N,
8296 AP,
8297 ANORM,
8298 RCOND,
8299 WORK,
8300 IWORK,
8301 INFO);
8302 }
8303
8304 //-- dppequ --------------------------------------------------------------------
8305 void
8306 LAPACK_DECL(dppequ)(const char *UPLO,
8307 const INTEGER *N,
8308 const DOUBLE *AP,
8309 DOUBLE *S,
8310 DOUBLE *SCOND,
8311 DOUBLE *AMAX,
8312 INTEGER *INFO)
8313 {
8314 DEBUG_LAPACK_STUB("dppequ");
8315 LAPACK_IMPL(dppequ)(UPLO,
8316 N,
8317 AP,
8318 S,
8319 SCOND,
8320 AMAX,
8321 INFO);
8322 }
8323
8324 //-- dpprfs --------------------------------------------------------------------
8325 void
8326 LAPACK_DECL(dpprfs)(const char *UPLO,
8327 const INTEGER *N,
8328 const INTEGER *NRHS,
8329 const DOUBLE *AP,
8330 const DOUBLE *AFP,
8331 const DOUBLE *B,
8332 const INTEGER *LDB,
8333 DOUBLE *X,
8334 const INTEGER *LDX,
8335 DOUBLE *FERR,
8336 DOUBLE *BERR,
8337 const DOUBLE *WORK,
8338 const INTEGER *IWORK,
8339 INTEGER *INFO)
8340 {
8341 DEBUG_LAPACK_STUB("dpprfs");
8342 LAPACK_IMPL(dpprfs)(UPLO,
8343 N,
8344 NRHS,
8345 AP,
8346 AFP,
8347 B,
8348 LDB,
8349 X,
8350 LDX,
8351 FERR,
8352 BERR,
8353 WORK,
8354 IWORK,
8355 INFO);
8356 }
8357
8358 //-- dppsv ---------------------------------------------------------------------
8359 void
8360 LAPACK_DECL(dppsv)(const char *UPLO,
8361 const INTEGER *N,
8362 const INTEGER *NRHS,
8363 DOUBLE *AP,
8364 DOUBLE *B,
8365 const INTEGER *LDB,
8366 INTEGER *INFO)
8367 {
8368 DEBUG_LAPACK_STUB("dppsv");
8369 LAPACK_IMPL(dppsv)(UPLO,
8370 N,
8371 NRHS,
8372 AP,
8373 B,
8374 LDB,
8375 INFO);
8376 }
8377
8378 //-- dppsvx --------------------------------------------------------------------
8379 void
8380 LAPACK_DECL(dppsvx)(const char *FACT,
8381 const char *UPLO,
8382 const INTEGER *N,
8383 const INTEGER *NRHS,
8384 DOUBLE *AP,
8385 DOUBLE *AFP,
8386 char *EQUED,
8387 DOUBLE *S,
8388 DOUBLE *B,
8389 const INTEGER *LDB,
8390 DOUBLE *X,
8391 const INTEGER *LDX,
8392 DOUBLE *RCOND,
8393 DOUBLE *FERR,
8394 DOUBLE *BERR,
8395 const DOUBLE *WORK,
8396 const INTEGER *IWORK,
8397 INTEGER *INFO)
8398 {
8399 DEBUG_LAPACK_STUB("dppsvx");
8400 LAPACK_IMPL(dppsvx)(FACT,
8401 UPLO,
8402 N,
8403 NRHS,
8404 AP,
8405 AFP,
8406 EQUED,
8407 S,
8408 B,
8409 LDB,
8410 X,
8411 LDX,
8412 RCOND,
8413 FERR,
8414 BERR,
8415 WORK,
8416 IWORK,
8417 INFO);
8418 }
8419
8420 //-- dpptrf --------------------------------------------------------------------
8421 void
8422 LAPACK_DECL(dpptrf)(const char *UPLO,
8423 const INTEGER *N,
8424 DOUBLE *AP,
8425 INTEGER *INFO)
8426 {
8427 DEBUG_LAPACK_STUB("dpptrf");
8428 LAPACK_IMPL(dpptrf)(UPLO,
8429 N,
8430 AP,
8431 INFO);
8432 }
8433
8434 //-- dpptri --------------------------------------------------------------------
8435 void
8436 LAPACK_DECL(dpptri)(const char *UPLO,
8437 const INTEGER *N,
8438 DOUBLE *AP,
8439 INTEGER *INFO)
8440 {
8441 DEBUG_LAPACK_STUB("dpptri");
8442 LAPACK_IMPL(dpptri)(UPLO,
8443 N,
8444 AP,
8445 INFO);
8446 }
8447
8448 //-- dpptrs --------------------------------------------------------------------
8449 void
8450 LAPACK_DECL(dpptrs)(const char *UPLO,
8451 const INTEGER *N,
8452 const INTEGER *NRHS,
8453 const DOUBLE *AP,
8454 DOUBLE *B,
8455 const INTEGER *LDB,
8456 INTEGER *INFO)
8457 {
8458 DEBUG_LAPACK_STUB("dpptrs");
8459 LAPACK_IMPL(dpptrs)(UPLO,
8460 N,
8461 NRHS,
8462 AP,
8463 B,
8464 LDB,
8465 INFO);
8466 }
8467
8468 //-- dpstf2 --------------------------------------------------------------------
8469 void
8470 LAPACK_DECL(dpstf2)(const char *UPLO,
8471 const INTEGER *N,
8472 DOUBLE *A,
8473 const INTEGER *LDA,
8474 INTEGER *PIV,
8475 INTEGER *RANK,
8476 const DOUBLE *TOL,
8477 const DOUBLE *WORK,
8478 INTEGER *INFO)
8479 {
8480 DEBUG_LAPACK_STUB("dpstf2");
8481 LAPACK_IMPL(dpstf2)(UPLO,
8482 N,
8483 A,
8484 LDA,
8485 PIV,
8486 RANK,
8487 TOL,
8488 WORK,
8489 INFO);
8490 }
8491
8492 //-- dpstrf --------------------------------------------------------------------
8493 void
8494 LAPACK_DECL(dpstrf)(const char *UPLO,
8495 const INTEGER *N,
8496 DOUBLE *A,
8497 const INTEGER *LDA,
8498 INTEGER *PIV,
8499 INTEGER *RANK,
8500 const DOUBLE *TOL,
8501 const DOUBLE *WORK,
8502 INTEGER *INFO)
8503 {
8504 DEBUG_LAPACK_STUB("dpstrf");
8505 LAPACK_IMPL(dpstrf)(UPLO,
8506 N,
8507 A,
8508 LDA,
8509 PIV,
8510 RANK,
8511 TOL,
8512 WORK,
8513 INFO);
8514 }
8515
8516 //-- dptcon --------------------------------------------------------------------
8517 void
8518 LAPACK_DECL(dptcon)(const INTEGER *N,
8519 const DOUBLE *D,
8520 const DOUBLE *E,
8521 const DOUBLE *ANORM,
8522 DOUBLE *RCOND,
8523 const DOUBLE *WORK,
8524 INTEGER *INFO)
8525 {
8526 DEBUG_LAPACK_STUB("dptcon");
8527 LAPACK_IMPL(dptcon)(N,
8528 D,
8529 E,
8530 ANORM,
8531 RCOND,
8532 WORK,
8533 INFO);
8534 }
8535
8536 //-- dpteqr --------------------------------------------------------------------
8537 void
8538 LAPACK_DECL(dpteqr)(const char *COMPZ,
8539 const INTEGER *N,
8540 DOUBLE *D,
8541 DOUBLE *E,
8542 DOUBLE *Z,
8543 const INTEGER *LDZ,
8544 const DOUBLE *WORK,
8545 INTEGER *INFO)
8546 {
8547 DEBUG_LAPACK_STUB("dpteqr");
8548 LAPACK_IMPL(dpteqr)(COMPZ,
8549 N,
8550 D,
8551 E,
8552 Z,
8553 LDZ,
8554 WORK,
8555 INFO);
8556 }
8557
8558 //-- dptrfs --------------------------------------------------------------------
8559 void
8560 LAPACK_DECL(dptrfs)(const INTEGER *N,
8561 const INTEGER *NRHS,
8562 const DOUBLE *D,
8563 const DOUBLE *E,
8564 const DOUBLE *DF,
8565 const DOUBLE *EF,
8566 const DOUBLE *B,
8567 const INTEGER *LDB,
8568 DOUBLE *X,
8569 const INTEGER *LDX,
8570 DOUBLE *FERR,
8571 DOUBLE *BERR,
8572 const DOUBLE *WORK,
8573 INTEGER *INFO)
8574 {
8575 DEBUG_LAPACK_STUB("dptrfs");
8576 LAPACK_IMPL(dptrfs)(N,
8577 NRHS,
8578 D,
8579 E,
8580 DF,
8581 EF,
8582 B,
8583 LDB,
8584 X,
8585 LDX,
8586 FERR,
8587 BERR,
8588 WORK,
8589 INFO);
8590 }
8591
8592 //-- dptsv ---------------------------------------------------------------------
8593 void
8594 LAPACK_DECL(dptsv)(const INTEGER *N,
8595 const INTEGER *NRHS,
8596 DOUBLE *D,
8597 DOUBLE *E,
8598 DOUBLE *B,
8599 const INTEGER *LDB,
8600 INTEGER *INFO)
8601 {
8602 DEBUG_LAPACK_STUB("dptsv");
8603 LAPACK_IMPL(dptsv)(N,
8604 NRHS,
8605 D,
8606 E,
8607 B,
8608 LDB,
8609 INFO);
8610 }
8611
8612 //-- dptsvx --------------------------------------------------------------------
8613 void
8614 LAPACK_DECL(dptsvx)(const char *FACT,
8615 const INTEGER *N,
8616 const INTEGER *NRHS,
8617 const DOUBLE *D,
8618 const DOUBLE *E,
8619 DOUBLE *DF,
8620 DOUBLE *EF,
8621 const DOUBLE *B,
8622 const INTEGER *LDB,
8623 DOUBLE *X,
8624 const INTEGER *LDX,
8625 DOUBLE *RCOND,
8626 DOUBLE *FERR,
8627 DOUBLE *BERR,
8628 const DOUBLE *WORK,
8629 INTEGER *INFO)
8630 {
8631 DEBUG_LAPACK_STUB("dptsvx");
8632 LAPACK_IMPL(dptsvx)(FACT,
8633 N,
8634 NRHS,
8635 D,
8636 E,
8637 DF,
8638 EF,
8639 B,
8640 LDB,
8641 X,
8642 LDX,
8643 RCOND,
8644 FERR,
8645 BERR,
8646 WORK,
8647 INFO);
8648 }
8649
8650 //-- dpttrf --------------------------------------------------------------------
8651 void
8652 LAPACK_DECL(dpttrf)(const INTEGER *N,
8653 DOUBLE *D,
8654 DOUBLE *E,
8655 INTEGER *INFO)
8656 {
8657 DEBUG_LAPACK_STUB("dpttrf");
8658 LAPACK_IMPL(dpttrf)(N,
8659 D,
8660 E,
8661 INFO);
8662 }
8663
8664 //-- dpttrs --------------------------------------------------------------------
8665 void
8666 LAPACK_DECL(dpttrs)(const INTEGER *N,
8667 const INTEGER *NRHS,
8668 const DOUBLE *D,
8669 const DOUBLE *E,
8670 DOUBLE *B,
8671 const INTEGER *LDB,
8672 INTEGER *INFO)
8673 {
8674 DEBUG_LAPACK_STUB("dpttrs");
8675 LAPACK_IMPL(dpttrs)(N,
8676 NRHS,
8677 D,
8678 E,
8679 B,
8680 LDB,
8681 INFO);
8682 }
8683
8684 //-- dptts2 --------------------------------------------------------------------
8685 void
8686 LAPACK_DECL(dptts2)(const INTEGER *N,
8687 const INTEGER *NRHS,
8688 const DOUBLE *D,
8689 const DOUBLE *E,
8690 DOUBLE *B,
8691 const INTEGER *LDB)
8692 {
8693 DEBUG_LAPACK_STUB("dptts2");
8694 LAPACK_IMPL(dptts2)(N,
8695 NRHS,
8696 D,
8697 E,
8698 B,
8699 LDB);
8700 }
8701
8702 //-- drscl ---------------------------------------------------------------------
8703 void
8704 LAPACK_DECL(drscl)(const INTEGER *N,
8705 const DOUBLE *SA,
8706 DOUBLE *SX,
8707 const INTEGER *INCX)
8708 {
8709 DEBUG_LAPACK_STUB("drscl");
8710 LAPACK_IMPL(drscl)(N,
8711 SA,
8712 SX,
8713 INCX);
8714 }
8715
8716 //-- dsbev ---------------------------------------------------------------------
8717 void
8718 LAPACK_DECL(dsbev)(const char *JOBZ,
8719 const char *UPLO,
8720 const INTEGER *N,
8721 const INTEGER *KD,
8722 DOUBLE *AB,
8723 const INTEGER *LDAB,
8724 DOUBLE *W,
8725 DOUBLE *Z,
8726 const INTEGER *LDZ,
8727 const DOUBLE *WORK,
8728 INTEGER *INFO)
8729 {
8730 DEBUG_LAPACK_STUB("dsbev");
8731 LAPACK_IMPL(dsbev)(JOBZ,
8732 UPLO,
8733 N,
8734 KD,
8735 AB,
8736 LDAB,
8737 W,
8738 Z,
8739 LDZ,
8740 WORK,
8741 INFO);
8742 }
8743
8744 //-- dsbevd --------------------------------------------------------------------
8745 void
8746 LAPACK_DECL(dsbevd)(const char *JOBZ,
8747 const char *UPLO,
8748 const INTEGER *N,
8749 const INTEGER *KD,
8750 DOUBLE *AB,
8751 const INTEGER *LDAB,
8752 DOUBLE *W,
8753 DOUBLE *Z,
8754 const INTEGER *LDZ,
8755 DOUBLE *WORK,
8756 const INTEGER *LWORK,
8757 INTEGER *IWORK,
8758 const INTEGER *LIWORK,
8759 INTEGER *INFO)
8760 {
8761 DEBUG_LAPACK_STUB("dsbevd");
8762 LAPACK_IMPL(dsbevd)(JOBZ,
8763 UPLO,
8764 N,
8765 KD,
8766 AB,
8767 LDAB,
8768 W,
8769 Z,
8770 LDZ,
8771 WORK,
8772 LWORK,
8773 IWORK,
8774 LIWORK,
8775 INFO);
8776 }
8777
8778 //-- dsbevx --------------------------------------------------------------------
8779 void
8780 LAPACK_DECL(dsbevx)(const char *JOBZ,
8781 const char *RANGE,
8782 const char *UPLO,
8783 const INTEGER *N,
8784 const INTEGER *KD,
8785 DOUBLE *AB,
8786 const INTEGER *LDAB,
8787 DOUBLE *Q,
8788 const INTEGER *LDQ,
8789 const DOUBLE *VL,
8790 const DOUBLE *VU,
8791 const INTEGER *IL,
8792 const INTEGER *IU,
8793 const DOUBLE *ABSTOL,
8794 INTEGER *M,
8795 DOUBLE *W,
8796 DOUBLE *Z,
8797 const INTEGER *LDZ,
8798 const DOUBLE *WORK,
8799 const INTEGER *IWORK,
8800 INTEGER *IFAIL,
8801 INTEGER *INFO)
8802 {
8803 DEBUG_LAPACK_STUB("dsbevx");
8804 LAPACK_IMPL(dsbevx)(JOBZ,
8805 RANGE,
8806 UPLO,
8807 N,
8808 KD,
8809 AB,
8810 LDAB,
8811 Q,
8812 LDQ,
8813 VL,
8814 VU,
8815 IL,
8816 IU,
8817 ABSTOL,
8818 M,
8819 W,
8820 Z,
8821 LDZ,
8822 WORK,
8823 IWORK,
8824 IFAIL,
8825 INFO);
8826 }
8827
8828 //-- dsbgst --------------------------------------------------------------------
8829 void
8830 LAPACK_DECL(dsbgst)(const char *VECT,
8831 const char *UPLO,
8832 const INTEGER *N,
8833 const INTEGER *KA,
8834 const INTEGER *KB,
8835 DOUBLE *AB,
8836 const INTEGER *LDAB,
8837 const DOUBLE *BB,
8838 const INTEGER *LDBB,
8839 DOUBLE *X,
8840 const INTEGER *LDX,
8841 const DOUBLE *WORK,
8842 INTEGER *INFO)
8843 {
8844 DEBUG_LAPACK_STUB("dsbgst");
8845 LAPACK_IMPL(dsbgst)(VECT,
8846 UPLO,
8847 N,
8848 KA,
8849 KB,
8850 AB,
8851 LDAB,
8852 BB,
8853 LDBB,
8854 X,
8855 LDX,
8856 WORK,
8857 INFO);
8858 }
8859
8860 //-- dsbgv ---------------------------------------------------------------------
8861 void
8862 LAPACK_DECL(dsbgv)(const char *JOBZ,
8863 const char *UPLO,
8864 const INTEGER *N,
8865 const INTEGER *KA,
8866 const INTEGER *KB,
8867 DOUBLE *AB,
8868 const INTEGER *LDAB,
8869 DOUBLE *BB,
8870 const INTEGER *LDBB,
8871 DOUBLE *W,
8872 DOUBLE *Z,
8873 const INTEGER *LDZ,
8874 const DOUBLE *WORK,
8875 INTEGER *INFO)
8876 {
8877 DEBUG_LAPACK_STUB("dsbgv");
8878 LAPACK_IMPL(dsbgv)(JOBZ,
8879 UPLO,
8880 N,
8881 KA,
8882 KB,
8883 AB,
8884 LDAB,
8885 BB,
8886 LDBB,
8887 W,
8888 Z,
8889 LDZ,
8890 WORK,
8891 INFO);
8892 }
8893
8894 //-- dsbgvd --------------------------------------------------------------------
8895 void
8896 LAPACK_DECL(dsbgvd)(const char *JOBZ,
8897 const char *UPLO,
8898 const INTEGER *N,
8899 const INTEGER *KA,
8900 const INTEGER *KB,
8901 DOUBLE *AB,
8902 const INTEGER *LDAB,
8903 DOUBLE *BB,
8904 const INTEGER *LDBB,
8905 DOUBLE *W,
8906 DOUBLE *Z,
8907 const INTEGER *LDZ,
8908 DOUBLE *WORK,
8909 const INTEGER *LWORK,
8910 INTEGER *IWORK,
8911 const INTEGER *LIWORK,
8912 INTEGER *INFO)
8913 {
8914 DEBUG_LAPACK_STUB("dsbgvd");
8915 LAPACK_IMPL(dsbgvd)(JOBZ,
8916 UPLO,
8917 N,
8918 KA,
8919 KB,
8920 AB,
8921 LDAB,
8922 BB,
8923 LDBB,
8924 W,
8925 Z,
8926 LDZ,
8927 WORK,
8928 LWORK,
8929 IWORK,
8930 LIWORK,
8931 INFO);
8932 }
8933
8934 //-- dsbgvx --------------------------------------------------------------------
8935 void
8936 LAPACK_DECL(dsbgvx)(const char *JOBZ,
8937 const char *RANGE,
8938 const char *UPLO,
8939 const INTEGER *N,
8940 const INTEGER *KA,
8941 const INTEGER *KB,
8942 DOUBLE *AB,
8943 const INTEGER *LDAB,
8944 DOUBLE *BB,
8945 const INTEGER *LDBB,
8946 DOUBLE *Q,
8947 const INTEGER *LDQ,
8948 const DOUBLE *VL,
8949 const DOUBLE *VU,
8950 const INTEGER *IL,
8951 const INTEGER *IU,
8952 const DOUBLE *ABSTOL,
8953 INTEGER *M,
8954 DOUBLE *W,
8955 DOUBLE *Z,
8956 const INTEGER *LDZ,
8957 DOUBLE *WORK,
8958 INTEGER *IWORK,
8959 INTEGER *IFAIL,
8960 INTEGER *INFO)
8961 {
8962 DEBUG_LAPACK_STUB("dsbgvx");
8963 LAPACK_IMPL(dsbgvx)(JOBZ,
8964 RANGE,
8965 UPLO,
8966 N,
8967 KA,
8968 KB,
8969 AB,
8970 LDAB,
8971 BB,
8972 LDBB,
8973 Q,
8974 LDQ,
8975 VL,
8976 VU,
8977 IL,
8978 IU,
8979 ABSTOL,
8980 M,
8981 W,
8982 Z,
8983 LDZ,
8984 WORK,
8985 IWORK,
8986 IFAIL,
8987 INFO);
8988 }
8989
8990 //-- dsbtrd --------------------------------------------------------------------
8991 void
8992 LAPACK_DECL(dsbtrd)(const char *VECT,
8993 const char *UPLO,
8994 const INTEGER *N,
8995 const INTEGER *KD,
8996 DOUBLE *AB,
8997 const INTEGER *LDAB,
8998 DOUBLE *D,
8999 DOUBLE *E,
9000 DOUBLE *Q,
9001 const INTEGER *LDQ,
9002 const DOUBLE *WORK,
9003 INTEGER *INFO)
9004 {
9005 DEBUG_LAPACK_STUB("dsbtrd");
9006 LAPACK_IMPL(dsbtrd)(VECT,
9007 UPLO,
9008 N,
9009 KD,
9010 AB,
9011 LDAB,
9012 D,
9013 E,
9014 Q,
9015 LDQ,
9016 WORK,
9017 INFO);
9018 }
9019
9020 //-- dsecnd --------------------------------------------------------------------
9021 DOUBLE
9022 LAPACK_DECL(dsecnd)()
9023 {
9024 DEBUG_LAPACK_STUB("dsecnd");
9025 return LAPACK_IMPL(dsecnd)();
9026 }
9027
9028 //-- dsfrk ---------------------------------------------------------------------
9029 void
9030 LAPACK_DECL(dsfrk)(const char *TRANSR,
9031 const char *UPLO,
9032 const char *TRANS,
9033 const INTEGER *N,
9034 const INTEGER *K,
9035 const DOUBLE *ALPHA,
9036 const DOUBLE *A,
9037 const INTEGER *LDA,
9038 const DOUBLE *BETA,
9039 DOUBLE *C)
9040 {
9041 DEBUG_LAPACK_STUB("dsfrk");
9042 LAPACK_IMPL(dsfrk)(TRANSR,
9043 UPLO,
9044 TRANS,
9045 N,
9046 K,
9047 ALPHA,
9048 A,
9049 LDA,
9050 BETA,
9051 C);
9052 }
9053
9054 //-- dsgesv --------------------------------------------------------------------
9055 void
9056 LAPACK_DECL(dsgesv)(const INTEGER *N,
9057 const INTEGER *NRHS,
9058 DOUBLE *A,
9059 const INTEGER *LDA,
9060 INTEGER *IPIV,
9061 const DOUBLE *B,
9062 const INTEGER *LDB,
9063 DOUBLE *X,
9064 const INTEGER *LDX,
9065 const DOUBLE *WORK,
9066 const FLOAT *SWORK,
9067 INTEGER *ITER,
9068 INTEGER *INFO)
9069 {
9070 DEBUG_LAPACK_STUB("dsgesv");
9071 LAPACK_IMPL(dsgesv)(N,
9072 NRHS,
9073 A,
9074 LDA,
9075 IPIV,
9076 B,
9077 LDB,
9078 X,
9079 LDX,
9080 WORK,
9081 SWORK,
9082 ITER,
9083 INFO);
9084 }
9085
9086 //-- dspcon --------------------------------------------------------------------
9087 void
9088 LAPACK_DECL(dspcon)(const char *UPLO,
9089 const INTEGER *N,
9090 const DOUBLE *AP,
9091 const INTEGER *IPIV,
9092 const DOUBLE *ANORM,
9093 DOUBLE *RCOND,
9094 const DOUBLE *WORK,
9095 const INTEGER *IWORK,
9096 INTEGER *INFO)
9097 {
9098 DEBUG_LAPACK_STUB("dspcon");
9099 LAPACK_IMPL(dspcon)(UPLO,
9100 N,
9101 AP,
9102 IPIV,
9103 ANORM,
9104 RCOND,
9105 WORK,
9106 IWORK,
9107 INFO);
9108 }
9109
9110 //-- dspev ---------------------------------------------------------------------
9111 void
9112 LAPACK_DECL(dspev)(const char *JOBZ,
9113 const char *UPLO,
9114 const INTEGER *N,
9115 DOUBLE *AP,
9116 DOUBLE *W,
9117 DOUBLE *Z,
9118 const INTEGER *LDZ,
9119 const DOUBLE *WORK,
9120 INTEGER *INFO)
9121 {
9122 DEBUG_LAPACK_STUB("dspev");
9123 LAPACK_IMPL(dspev)(JOBZ,
9124 UPLO,
9125 N,
9126 AP,
9127 W,
9128 Z,
9129 LDZ,
9130 WORK,
9131 INFO);
9132 }
9133
9134 //-- dspevd --------------------------------------------------------------------
9135 void
9136 LAPACK_DECL(dspevd)(const char *JOBZ,
9137 const char *UPLO,
9138 const INTEGER *N,
9139 DOUBLE *AP,
9140 DOUBLE *W,
9141 DOUBLE *Z,
9142 const INTEGER *LDZ,
9143 DOUBLE *WORK,
9144 const INTEGER *LWORK,
9145 INTEGER *IWORK,
9146 const INTEGER *LIWORK,
9147 INTEGER *INFO)
9148 {
9149 DEBUG_LAPACK_STUB("dspevd");
9150 LAPACK_IMPL(dspevd)(JOBZ,
9151 UPLO,
9152 N,
9153 AP,
9154 W,
9155 Z,
9156 LDZ,
9157 WORK,
9158 LWORK,
9159 IWORK,
9160 LIWORK,
9161 INFO);
9162 }
9163
9164 //-- dspevx --------------------------------------------------------------------
9165 void
9166 LAPACK_DECL(dspevx)(const char *JOBZ,
9167 const char *RANGE,
9168 const char *UPLO,
9169 const INTEGER *N,
9170 DOUBLE *AP,
9171 const DOUBLE *VL,
9172 const DOUBLE *VU,
9173 const INTEGER *IL,
9174 const INTEGER *IU,
9175 const DOUBLE *ABSTOL,
9176 INTEGER *M,
9177 DOUBLE *W,
9178 DOUBLE *Z,
9179 const INTEGER *LDZ,
9180 const DOUBLE *WORK,
9181 const INTEGER *IWORK,
9182 INTEGER *IFAIL,
9183 INTEGER *INFO)
9184 {
9185 DEBUG_LAPACK_STUB("dspevx");
9186 LAPACK_IMPL(dspevx)(JOBZ,
9187 RANGE,
9188 UPLO,
9189 N,
9190 AP,
9191 VL,
9192 VU,
9193 IL,
9194 IU,
9195 ABSTOL,
9196 M,
9197 W,
9198 Z,
9199 LDZ,
9200 WORK,
9201 IWORK,
9202 IFAIL,
9203 INFO);
9204 }
9205
9206 //-- dspgst --------------------------------------------------------------------
9207 void
9208 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
9209 const char *UPLO,
9210 const INTEGER *N,
9211 DOUBLE *AP,
9212 const DOUBLE *BP,
9213 INTEGER *INFO)
9214 {
9215 DEBUG_LAPACK_STUB("dspgst");
9216 LAPACK_IMPL(dspgst)(ITYPE,
9217 UPLO,
9218 N,
9219 AP,
9220 BP,
9221 INFO);
9222 }
9223
9224 //-- dspgv ---------------------------------------------------------------------
9225 void
9226 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
9227 const char *JOBZ,
9228 const char *UPLO,
9229 const INTEGER *N,
9230 DOUBLE *AP,
9231 DOUBLE *BP,
9232 DOUBLE *W,
9233 DOUBLE *Z,
9234 const INTEGER *LDZ,
9235 const DOUBLE *WORK,
9236 INTEGER *INFO)
9237 {
9238 DEBUG_LAPACK_STUB("dspgv");
9239 LAPACK_IMPL(dspgv)(ITYPE,
9240 JOBZ,
9241 UPLO,
9242 N,
9243 AP,
9244 BP,
9245 W,
9246 Z,
9247 LDZ,
9248 WORK,
9249 INFO);
9250 }
9251
9252 //-- dspgvd --------------------------------------------------------------------
9253 void
9254 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
9255 const char *JOBZ,
9256 const char *UPLO,
9257 const INTEGER *N,
9258 DOUBLE *AP,
9259 DOUBLE *BP,
9260 DOUBLE *W,
9261 DOUBLE *Z,
9262 const INTEGER *LDZ,
9263 DOUBLE *WORK,
9264 const INTEGER *LWORK,
9265 INTEGER *IWORK,
9266 const INTEGER *LIWORK,
9267 INTEGER *INFO)
9268 {
9269 DEBUG_LAPACK_STUB("dspgvd");
9270 LAPACK_IMPL(dspgvd)(ITYPE,
9271 JOBZ,
9272 UPLO,
9273 N,
9274 AP,
9275 BP,
9276 W,
9277 Z,
9278 LDZ,
9279 WORK,
9280 LWORK,
9281 IWORK,
9282 LIWORK,
9283 INFO);
9284 }
9285
9286 //-- dspgvx --------------------------------------------------------------------
9287 void
9288 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
9289 const char *JOBZ,
9290 const char *RANGE,
9291 const char *UPLO,
9292 const INTEGER *N,
9293 DOUBLE *AP,
9294 DOUBLE *BP,
9295 const DOUBLE *VL,
9296 const DOUBLE *VU,
9297 const INTEGER *IL,
9298 const INTEGER *IU,
9299 const DOUBLE *ABSTOL,
9300 INTEGER *M,
9301 DOUBLE *W,
9302 DOUBLE *Z,
9303 const INTEGER *LDZ,
9304 const DOUBLE *WORK,
9305 const INTEGER *IWORK,
9306 INTEGER *IFAIL,
9307 INTEGER *INFO)
9308 {
9309 DEBUG_LAPACK_STUB("dspgvx");
9310 LAPACK_IMPL(dspgvx)(ITYPE,
9311 JOBZ,
9312 RANGE,
9313 UPLO,
9314 N,
9315 AP,
9316 BP,
9317 VL,
9318 VU,
9319 IL,
9320 IU,
9321 ABSTOL,
9322 M,
9323 W,
9324 Z,
9325 LDZ,
9326 WORK,
9327 IWORK,
9328 IFAIL,
9329 INFO);
9330 }
9331
9332 //-- dsposv --------------------------------------------------------------------
9333 void
9334 LAPACK_DECL(dsposv)(const char *UPLO,
9335 const INTEGER *N,
9336 const INTEGER *NRHS,
9337 DOUBLE *A,
9338 const INTEGER *LDA,
9339 const DOUBLE *B,
9340 const INTEGER *LDB,
9341 DOUBLE *X,
9342 const INTEGER *LDX,
9343 const DOUBLE *WORK,
9344 const FLOAT *SWORK,
9345 INTEGER *ITER,
9346 INTEGER *INFO)
9347 {
9348 DEBUG_LAPACK_STUB("dsposv");
9349 LAPACK_IMPL(dsposv)(UPLO,
9350 N,
9351 NRHS,
9352 A,
9353 LDA,
9354 B,
9355 LDB,
9356 X,
9357 LDX,
9358 WORK,
9359 SWORK,
9360 ITER,
9361 INFO);
9362 }
9363
9364 //-- dsprfs --------------------------------------------------------------------
9365 void
9366 LAPACK_DECL(dsprfs)(const char *UPLO,
9367 const INTEGER *N,
9368 const INTEGER *NRHS,
9369 const DOUBLE *AP,
9370 const DOUBLE *AFP,
9371 const INTEGER *IPIV,
9372 const DOUBLE *B,
9373 const INTEGER *LDB,
9374 DOUBLE *X,
9375 const INTEGER *LDX,
9376 DOUBLE *FERR,
9377 DOUBLE *BERR,
9378 const DOUBLE *WORK,
9379 const INTEGER *IWORK,
9380 INTEGER *INFO)
9381 {
9382 DEBUG_LAPACK_STUB("dsprfs");
9383 LAPACK_IMPL(dsprfs)(UPLO,
9384 N,
9385 NRHS,
9386 AP,
9387 AFP,
9388 IPIV,
9389 B,
9390 LDB,
9391 X,
9392 LDX,
9393 FERR,
9394 BERR,
9395 WORK,
9396 IWORK,
9397 INFO);
9398 }
9399
9400 //-- dspsv ---------------------------------------------------------------------
9401 void
9402 LAPACK_DECL(dspsv)(const char *UPLO,
9403 const INTEGER *N,
9404 const INTEGER *NRHS,
9405 DOUBLE *AP,
9406 INTEGER *IPIV,
9407 DOUBLE *B,
9408 const INTEGER *LDB,
9409 INTEGER *INFO)
9410 {
9411 DEBUG_LAPACK_STUB("dspsv");
9412 LAPACK_IMPL(dspsv)(UPLO,
9413 N,
9414 NRHS,
9415 AP,
9416 IPIV,
9417 B,
9418 LDB,
9419 INFO);
9420 }
9421
9422 //-- dspsvx --------------------------------------------------------------------
9423 void
9424 LAPACK_DECL(dspsvx)(const char *FACT,
9425 const char *UPLO,
9426 const INTEGER *N,
9427 const INTEGER *NRHS,
9428 const DOUBLE *AP,
9429 DOUBLE *AFP,
9430 INTEGER *IPIV,
9431 const DOUBLE *B,
9432 const INTEGER *LDB,
9433 DOUBLE *X,
9434 const INTEGER *LDX,
9435 DOUBLE *RCOND,
9436 DOUBLE *FERR,
9437 DOUBLE *BERR,
9438 const DOUBLE *WORK,
9439 const INTEGER *IWORK,
9440 INTEGER *INFO)
9441 {
9442 DEBUG_LAPACK_STUB("dspsvx");
9443 LAPACK_IMPL(dspsvx)(FACT,
9444 UPLO,
9445 N,
9446 NRHS,
9447 AP,
9448 AFP,
9449 IPIV,
9450 B,
9451 LDB,
9452 X,
9453 LDX,
9454 RCOND,
9455 FERR,
9456 BERR,
9457 WORK,
9458 IWORK,
9459 INFO);
9460 }
9461
9462 //-- dsptrd --------------------------------------------------------------------
9463 void
9464 LAPACK_DECL(dsptrd)(const char *UPLO,
9465 const INTEGER *N,
9466 DOUBLE *AP,
9467 DOUBLE *D,
9468 DOUBLE *E,
9469 DOUBLE *TAU,
9470 INTEGER *INFO)
9471 {
9472 DEBUG_LAPACK_STUB("dsptrd");
9473 LAPACK_IMPL(dsptrd)(UPLO,
9474 N,
9475 AP,
9476 D,
9477 E,
9478 TAU,
9479 INFO);
9480 }
9481
9482 //-- dsptrf --------------------------------------------------------------------
9483 void
9484 LAPACK_DECL(dsptrf)(const char *UPLO,
9485 const INTEGER *N,
9486 DOUBLE *AP,
9487 INTEGER *IPIV,
9488 INTEGER *INFO)
9489 {
9490 DEBUG_LAPACK_STUB("dsptrf");
9491 LAPACK_IMPL(dsptrf)(UPLO,
9492 N,
9493 AP,
9494 IPIV,
9495 INFO);
9496 }
9497
9498 //-- dsptri --------------------------------------------------------------------
9499 void
9500 LAPACK_DECL(dsptri)(const char *UPLO,
9501 const INTEGER *N,
9502 DOUBLE *AP,
9503 const INTEGER *IPIV,
9504 const DOUBLE *WORK,
9505 INTEGER *INFO)
9506 {
9507 DEBUG_LAPACK_STUB("dsptri");
9508 LAPACK_IMPL(dsptri)(UPLO,
9509 N,
9510 AP,
9511 IPIV,
9512 WORK,
9513 INFO);
9514 }
9515
9516 //-- dsptrs --------------------------------------------------------------------
9517 void
9518 LAPACK_DECL(dsptrs)(const char *UPLO,
9519 const INTEGER *N,
9520 const INTEGER *NRHS,
9521 const DOUBLE *AP,
9522 const INTEGER *IPIV,
9523 DOUBLE *B,
9524 const INTEGER *LDB,
9525 INTEGER *INFO)
9526 {
9527 DEBUG_LAPACK_STUB("dsptrs");
9528 LAPACK_IMPL(dsptrs)(UPLO,
9529 N,
9530 NRHS,
9531 AP,
9532 IPIV,
9533 B,
9534 LDB,
9535 INFO);
9536 }
9537
9538 //-- dstebz --------------------------------------------------------------------
9539 void
9540 LAPACK_DECL(dstebz)(const char *RANGE,
9541 const char *ORDER,
9542 const INTEGER *N,
9543 const DOUBLE *VL,
9544 const DOUBLE *VU,
9545 const INTEGER *IL,
9546 const INTEGER *IU,
9547 const DOUBLE *ABSTOL,
9548 const DOUBLE *D,
9549 const DOUBLE *E,
9550 INTEGER *M,
9551 INTEGER *NSPLIT,
9552 DOUBLE *W,
9553 INTEGER *IBLOCK,
9554 INTEGER *ISPLIT,
9555 const DOUBLE *WORK,
9556 const INTEGER *IWORK,
9557 INTEGER *INFO)
9558 {
9559 DEBUG_LAPACK_STUB("dstebz");
9560 LAPACK_IMPL(dstebz)(RANGE,
9561 ORDER,
9562 N,
9563 VL,
9564 VU,
9565 IL,
9566 IU,
9567 ABSTOL,
9568 D,
9569 E,
9570 M,
9571 NSPLIT,
9572 W,
9573 IBLOCK,
9574 ISPLIT,
9575 WORK,
9576 IWORK,
9577 INFO);
9578 }
9579
9580 //-- dstedc --------------------------------------------------------------------
9581 void
9582 LAPACK_DECL(dstedc)(const char *COMPZ,
9583 const INTEGER *N,
9584 DOUBLE *D,
9585 DOUBLE *E,
9586 DOUBLE *Z,
9587 const INTEGER *LDZ,
9588 DOUBLE *WORK,
9589 const INTEGER *LWORK,
9590 INTEGER *IWORK,
9591 const INTEGER *LIWORK,
9592 INTEGER *INFO)
9593 {
9594 DEBUG_LAPACK_STUB("dstedc");
9595 LAPACK_IMPL(dstedc)(COMPZ,
9596 N,
9597 D,
9598 E,
9599 Z,
9600 LDZ,
9601 WORK,
9602 LWORK,
9603 IWORK,
9604 LIWORK,
9605 INFO);
9606 }
9607
9608 //-- dstegr --------------------------------------------------------------------
9609 void
9610 LAPACK_DECL(dstegr)(const char *JOBZ,
9611 const char *RANGE,
9612 const INTEGER *N,
9613 DOUBLE *D,
9614 DOUBLE *E,
9615 const DOUBLE *VL,
9616 const DOUBLE *VU,
9617 const INTEGER *IL,
9618 const INTEGER *IU,
9619 const DOUBLE *ABSTOL,
9620 INTEGER *M,
9621 DOUBLE *W,
9622 DOUBLE *Z,
9623 const INTEGER *LDZ,
9624 INTEGER *ISUPPZ,
9625 DOUBLE *WORK,
9626 const INTEGER *LWORK,
9627 INTEGER *IWORK,
9628 const INTEGER *LIWORK,
9629 INTEGER *INFO)
9630 {
9631 DEBUG_LAPACK_STUB("dstegr");
9632 LAPACK_IMPL(dstegr)(JOBZ,
9633 RANGE,
9634 N,
9635 D,
9636 E,
9637 VL,
9638 VU,
9639 IL,
9640 IU,
9641 ABSTOL,
9642 M,
9643 W,
9644 Z,
9645 LDZ,
9646 ISUPPZ,
9647 WORK,
9648 LWORK,
9649 IWORK,
9650 LIWORK,
9651 INFO);
9652 }
9653
9654 //-- dstein --------------------------------------------------------------------
9655 void
9656 LAPACK_DECL(dstein)(const INTEGER *N,
9657 const DOUBLE *D,
9658 const DOUBLE *E,
9659 const INTEGER *M,
9660 const DOUBLE *W,
9661 const INTEGER *IBLOCK,
9662 const INTEGER *ISPLIT,
9663 DOUBLE *Z,
9664 const INTEGER *LDZ,
9665 const DOUBLE *WORK,
9666 const INTEGER *IWORK,
9667 INTEGER *IFAIL,
9668 INTEGER *INFO)
9669 {
9670 DEBUG_LAPACK_STUB("dstein");
9671 LAPACK_IMPL(dstein)(N,
9672 D,
9673 E,
9674 M,
9675 W,
9676 IBLOCK,
9677 ISPLIT,
9678 Z,
9679 LDZ,
9680 WORK,
9681 IWORK,
9682 IFAIL,
9683 INFO);
9684 }
9685
9686 //-- dstemr --------------------------------------------------------------------
9687 void
9688 LAPACK_DECL(dstemr)(const char *JOBZ,
9689 const char *RANGE,
9690 const INTEGER *N,
9691 DOUBLE *D,
9692 DOUBLE *E,
9693 const DOUBLE *VL,
9694 const DOUBLE *VU,
9695 const INTEGER *IL,
9696 const INTEGER *IU,
9697 INTEGER *M,
9698 DOUBLE *W,
9699 DOUBLE *Z,
9700 const INTEGER *LDZ,
9701 const INTEGER *NZC,
9702 INTEGER *ISUPPZ,
9703 LOGICAL *TRYRAC,
9704 DOUBLE *WORK,
9705 const INTEGER *LWORK,
9706 INTEGER *IWORK,
9707 const INTEGER *LIWORK,
9708 INTEGER *INFO)
9709 {
9710 DEBUG_LAPACK_STUB("dstemr");
9711 LAPACK_IMPL(dstemr)(JOBZ,
9712 RANGE,
9713 N,
9714 D,
9715 E,
9716 VL,
9717 VU,
9718 IL,
9719 IU,
9720 M,
9721 W,
9722 Z,
9723 LDZ,
9724 NZC,
9725 ISUPPZ,
9726 TRYRAC,
9727 WORK,
9728 LWORK,
9729 IWORK,
9730 LIWORK,
9731 INFO);
9732 }
9733
9734 //-- dsteqr --------------------------------------------------------------------
9735 void
9736 LAPACK_DECL(dsteqr)(const char *COMPZ,
9737 const INTEGER *N,
9738 DOUBLE *D,
9739 DOUBLE *E,
9740 DOUBLE *Z,
9741 const INTEGER *LDZ,
9742 const DOUBLE *WORK,
9743 INTEGER *INFO)
9744 {
9745 DEBUG_LAPACK_STUB("dsteqr");
9746 LAPACK_IMPL(dsteqr)(COMPZ,
9747 N,
9748 D,
9749 E,
9750 Z,
9751 LDZ,
9752 WORK,
9753 INFO);
9754 }
9755
9756 //-- dsterf --------------------------------------------------------------------
9757 void
9758 LAPACK_DECL(dsterf)(const INTEGER *N,
9759 DOUBLE *D,
9760 DOUBLE *E,
9761 INTEGER *INFO)
9762 {
9763 DEBUG_LAPACK_STUB("dsterf");
9764 LAPACK_IMPL(dsterf)(N,
9765 D,
9766 E,
9767 INFO);
9768 }
9769
9770 //-- dstev ---------------------------------------------------------------------
9771 void
9772 LAPACK_DECL(dstev)(const char *JOBZ,
9773 const INTEGER *N,
9774 DOUBLE *D,
9775 DOUBLE *E,
9776 DOUBLE *Z,
9777 const INTEGER *LDZ,
9778 const DOUBLE *WORK,
9779 INTEGER *INFO)
9780 {
9781 DEBUG_LAPACK_STUB("dstev");
9782 LAPACK_IMPL(dstev)(JOBZ,
9783 N,
9784 D,
9785 E,
9786 Z,
9787 LDZ,
9788 WORK,
9789 INFO);
9790 }
9791
9792 //-- dstevd --------------------------------------------------------------------
9793 void
9794 LAPACK_DECL(dstevd)(const char *JOBZ,
9795 const INTEGER *N,
9796 DOUBLE *D,
9797 DOUBLE *E,
9798 DOUBLE *Z,
9799 const INTEGER *LDZ,
9800 DOUBLE *WORK,
9801 const INTEGER *LWORK,
9802 INTEGER *IWORK,
9803 const INTEGER *LIWORK,
9804 INTEGER *INFO)
9805 {
9806 DEBUG_LAPACK_STUB("dstevd");
9807 LAPACK_IMPL(dstevd)(JOBZ,
9808 N,
9809 D,
9810 E,
9811 Z,
9812 LDZ,
9813 WORK,
9814 LWORK,
9815 IWORK,
9816 LIWORK,
9817 INFO);
9818 }
9819
9820 //-- dstevr --------------------------------------------------------------------
9821 void
9822 LAPACK_DECL(dstevr)(const char *JOBZ,
9823 const char *RANGE,
9824 const INTEGER *N,
9825 DOUBLE *D,
9826 DOUBLE *E,
9827 const DOUBLE *VL,
9828 const DOUBLE *VU,
9829 const INTEGER *IL,
9830 const INTEGER *IU,
9831 const DOUBLE *ABSTOL,
9832 INTEGER *M,
9833 DOUBLE *W,
9834 DOUBLE *Z,
9835 const INTEGER *LDZ,
9836 INTEGER *ISUPPZ,
9837 DOUBLE *WORK,
9838 const INTEGER *LWORK,
9839 INTEGER *IWORK,
9840 const INTEGER *LIWORK,
9841 INTEGER *INFO)
9842 {
9843 DEBUG_LAPACK_STUB("dstevr");
9844 LAPACK_IMPL(dstevr)(JOBZ,
9845 RANGE,
9846 N,
9847 D,
9848 E,
9849 VL,
9850 VU,
9851 IL,
9852 IU,
9853 ABSTOL,
9854 M,
9855 W,
9856 Z,
9857 LDZ,
9858 ISUPPZ,
9859 WORK,
9860 LWORK,
9861 IWORK,
9862 LIWORK,
9863 INFO);
9864 }
9865
9866 //-- dstevx --------------------------------------------------------------------
9867 void
9868 LAPACK_DECL(dstevx)(const char *JOBZ,
9869 const char *RANGE,
9870 const INTEGER *N,
9871 DOUBLE *D,
9872 DOUBLE *E,
9873 const DOUBLE *VL,
9874 const DOUBLE *VU,
9875 const INTEGER *IL,
9876 const INTEGER *IU,
9877 const DOUBLE *ABSTOL,
9878 INTEGER *M,
9879 DOUBLE *W,
9880 DOUBLE *Z,
9881 const INTEGER *LDZ,
9882 const DOUBLE *WORK,
9883 const INTEGER *IWORK,
9884 INTEGER *IFAIL,
9885 INTEGER *INFO)
9886 {
9887 DEBUG_LAPACK_STUB("dstevx");
9888 LAPACK_IMPL(dstevx)(JOBZ,
9889 RANGE,
9890 N,
9891 D,
9892 E,
9893 VL,
9894 VU,
9895 IL,
9896 IU,
9897 ABSTOL,
9898 M,
9899 W,
9900 Z,
9901 LDZ,
9902 WORK,
9903 IWORK,
9904 IFAIL,
9905 INFO);
9906 }
9907
9908 //-- dsycon --------------------------------------------------------------------
9909 void
9910 LAPACK_DECL(dsycon)(const char *UPLO,
9911 const INTEGER *N,
9912 const DOUBLE *A,
9913 const INTEGER *LDA,
9914 const INTEGER *IPIV,
9915 const DOUBLE *ANORM,
9916 DOUBLE *RCOND,
9917 const DOUBLE *WORK,
9918 const INTEGER *IWORK,
9919 INTEGER *INFO)
9920 {
9921 DEBUG_LAPACK_STUB("dsycon");
9922 LAPACK_IMPL(dsycon)(UPLO,
9923 N,
9924 A,
9925 LDA,
9926 IPIV,
9927 ANORM,
9928 RCOND,
9929 WORK,
9930 IWORK,
9931 INFO);
9932 }
9933
9934 //-- dsyconv -------------------------------------------------------------------
9935 void
9936 LAPACK_DECL(dsyconv)(const char *UPLO,
9937 const char *WAY,
9938 const INTEGER *N,
9939 const DOUBLE *A,
9940 const INTEGER *LDA,
9941 const INTEGER *IPIV,
9942 const DOUBLE *WORK,
9943 INTEGER *INFO)
9944 {
9945 DEBUG_LAPACK_STUB("dsyconv");
9946 LAPACK_IMPL(dsyconv)(UPLO,
9947 WAY,
9948 N,
9949 A,
9950 LDA,
9951 IPIV,
9952 WORK,
9953 INFO);
9954 }
9955
9956 //-- dsyequb -------------------------------------------------------------------
9957 void
9958 LAPACK_DECL(dsyequb)(const char *UPLO,
9959 const INTEGER *N,
9960 const DOUBLE *A,
9961 const INTEGER *LDA,
9962 DOUBLE *S,
9963 DOUBLE *SCOND,
9964 DOUBLE *AMAX,
9965 const DOUBLE *WORK,
9966 INTEGER *INFO)
9967 {
9968 DEBUG_LAPACK_STUB("dsyequb");
9969 LAPACK_IMPL(dsyequb)(UPLO,
9970 N,
9971 A,
9972 LDA,
9973 S,
9974 SCOND,
9975 AMAX,
9976 WORK,
9977 INFO);
9978 }
9979
9980 //-- dsyev ---------------------------------------------------------------------
9981 void
9982 LAPACK_DECL(dsyev)(const char *JOBZ,
9983 const char *UPLO,
9984 const INTEGER *N,
9985 DOUBLE *A,
9986 const INTEGER *LDA,
9987 DOUBLE *W,
9988 DOUBLE *WORK,
9989 const INTEGER *LWORK,
9990 INTEGER *INFO)
9991 {
9992 DEBUG_LAPACK_STUB("dsyev");
9993 LAPACK_IMPL(dsyev)(JOBZ,
9994 UPLO,
9995 N,
9996 A,
9997 LDA,
9998 W,
9999 WORK,
10000 LWORK,
10001 INFO);
10002 }
10003
10004 //-- dsyevd --------------------------------------------------------------------
10005 void
10006 LAPACK_DECL(dsyevd)(const char *JOBZ,
10007 const char *UPLO,
10008 const INTEGER *N,
10009 DOUBLE *A,
10010 const INTEGER *LDA,
10011 DOUBLE *W,
10012 DOUBLE *WORK,
10013 const INTEGER *LWORK,
10014 INTEGER *IWORK,
10015 const INTEGER *LIWORK,
10016 INTEGER *INFO)
10017 {
10018 DEBUG_LAPACK_STUB("dsyevd");
10019 LAPACK_IMPL(dsyevd)(JOBZ,
10020 UPLO,
10021 N,
10022 A,
10023 LDA,
10024 W,
10025 WORK,
10026 LWORK,
10027 IWORK,
10028 LIWORK,
10029 INFO);
10030 }
10031
10032 //-- dsyevr --------------------------------------------------------------------
10033 void
10034 LAPACK_DECL(dsyevr)(const char *JOBZ,
10035 const char *RANGE,
10036 const char *UPLO,
10037 const INTEGER *N,
10038 DOUBLE *A,
10039 const INTEGER *LDA,
10040 const DOUBLE *VL,
10041 const DOUBLE *VU,
10042 const INTEGER *IL,
10043 const INTEGER *IU,
10044 const DOUBLE *ABSTOL,
10045 INTEGER *M,
10046 DOUBLE *W,
10047 DOUBLE *Z,
10048 const INTEGER *LDZ,
10049 INTEGER *ISUPPZ,
10050 DOUBLE *WORK,
10051 const INTEGER *LWORK,
10052 INTEGER *IWORK,
10053 const INTEGER *LIWORK,
10054 INTEGER *INFO)
10055 {
10056 DEBUG_LAPACK_STUB("dsyevr");
10057 LAPACK_IMPL(dsyevr)(JOBZ,
10058 RANGE,
10059 UPLO,
10060 N,
10061 A,
10062 LDA,
10063 VL,
10064 VU,
10065 IL,
10066 IU,
10067 ABSTOL,
10068 M,
10069 W,
10070 Z,
10071 LDZ,
10072 ISUPPZ,
10073 WORK,
10074 LWORK,
10075 IWORK,
10076 LIWORK,
10077 INFO);
10078 }
10079
10080 //-- dsyevx --------------------------------------------------------------------
10081 void
10082 LAPACK_DECL(dsyevx)(const char *JOBZ,
10083 const char *RANGE,
10084 const char *UPLO,
10085 const INTEGER *N,
10086 DOUBLE *A,
10087 const INTEGER *LDA,
10088 const DOUBLE *VL,
10089 const DOUBLE *VU,
10090 const INTEGER *IL,
10091 const INTEGER *IU,
10092 const DOUBLE *ABSTOL,
10093 INTEGER *M,
10094 DOUBLE *W,
10095 DOUBLE *Z,
10096 const INTEGER *LDZ,
10097 DOUBLE *WORK,
10098 const INTEGER *LWORK,
10099 const INTEGER *IWORK,
10100 INTEGER *IFAIL,
10101 INTEGER *INFO)
10102 {
10103 DEBUG_LAPACK_STUB("dsyevx");
10104 LAPACK_IMPL(dsyevx)(JOBZ,
10105 RANGE,
10106 UPLO,
10107 N,
10108 A,
10109 LDA,
10110 VL,
10111 VU,
10112 IL,
10113 IU,
10114 ABSTOL,
10115 M,
10116 W,
10117 Z,
10118 LDZ,
10119 WORK,
10120 LWORK,
10121 IWORK,
10122 IFAIL,
10123 INFO);
10124 }
10125
10126 //-- dsygs2 --------------------------------------------------------------------
10127 void
10128 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
10129 const char *UPLO,
10130 const INTEGER *N,
10131 DOUBLE *A,
10132 const INTEGER *LDA,
10133 const DOUBLE *B,
10134 const INTEGER *LDB,
10135 INTEGER *INFO)
10136 {
10137 DEBUG_LAPACK_STUB("dsygs2");
10138 LAPACK_IMPL(dsygs2)(ITYPE,
10139 UPLO,
10140 N,
10141 A,
10142 LDA,
10143 B,
10144 LDB,
10145 INFO);
10146 }
10147
10148 //-- dsygst --------------------------------------------------------------------
10149 void
10150 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
10151 const char *UPLO,
10152 const INTEGER *N,
10153 DOUBLE *A,
10154 const INTEGER *LDA,
10155 const DOUBLE *B,
10156 const INTEGER *LDB,
10157 INTEGER *INFO)
10158 {
10159 DEBUG_LAPACK_STUB("dsygst");
10160 LAPACK_IMPL(dsygst)(ITYPE,
10161 UPLO,
10162 N,
10163 A,
10164 LDA,
10165 B,
10166 LDB,
10167 INFO);
10168 }
10169
10170 //-- dsygv ---------------------------------------------------------------------
10171 void
10172 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
10173 const char *JOBZ,
10174 const char *UPLO,
10175 const INTEGER *N,
10176 DOUBLE *A,
10177 const INTEGER *LDA,
10178 DOUBLE *B,
10179 const INTEGER *LDB,
10180 DOUBLE *W,
10181 DOUBLE *WORK,
10182 const INTEGER *LWORK,
10183 INTEGER *INFO)
10184 {
10185 DEBUG_LAPACK_STUB("dsygv");
10186 LAPACK_IMPL(dsygv)(ITYPE,
10187 JOBZ,
10188 UPLO,
10189 N,
10190 A,
10191 LDA,
10192 B,
10193 LDB,
10194 W,
10195 WORK,
10196 LWORK,
10197 INFO);
10198 }
10199
10200 //-- dsygvd --------------------------------------------------------------------
10201 void
10202 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
10203 const char *JOBZ,
10204 const char *UPLO,
10205 const INTEGER *N,
10206 DOUBLE *A,
10207 const INTEGER *LDA,
10208 DOUBLE *B,
10209 const INTEGER *LDB,
10210 DOUBLE *W,
10211 DOUBLE *WORK,
10212 const INTEGER *LWORK,
10213 INTEGER *IWORK,
10214 const INTEGER *LIWORK,
10215 INTEGER *INFO)
10216 {
10217 DEBUG_LAPACK_STUB("dsygvd");
10218 LAPACK_IMPL(dsygvd)(ITYPE,
10219 JOBZ,
10220 UPLO,
10221 N,
10222 A,
10223 LDA,
10224 B,
10225 LDB,
10226 W,
10227 WORK,
10228 LWORK,
10229 IWORK,
10230 LIWORK,
10231 INFO);
10232 }
10233
10234 //-- dsygvx --------------------------------------------------------------------
10235 void
10236 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
10237 const char *JOBZ,
10238 const char *RANGE,
10239 const char *UPLO,
10240 const INTEGER *N,
10241 DOUBLE *A,
10242 const INTEGER *LDA,
10243 DOUBLE *B,
10244 const INTEGER *LDB,
10245 const DOUBLE *VL,
10246 const DOUBLE *VU,
10247 const INTEGER *IL,
10248 const INTEGER *IU,
10249 const DOUBLE *ABSTOL,
10250 INTEGER *M,
10251 DOUBLE *W,
10252 DOUBLE *Z,
10253 const INTEGER *LDZ,
10254 DOUBLE *WORK,
10255 const INTEGER *LWORK,
10256 const INTEGER *IWORK,
10257 INTEGER *IFAIL,
10258 INTEGER *INFO)
10259 {
10260 DEBUG_LAPACK_STUB("dsygvx");
10261 LAPACK_IMPL(dsygvx)(ITYPE,
10262 JOBZ,
10263 RANGE,
10264 UPLO,
10265 N,
10266 A,
10267 LDA,
10268 B,
10269 LDB,
10270 VL,
10271 VU,
10272 IL,
10273 IU,
10274 ABSTOL,
10275 M,
10276 W,
10277 Z,
10278 LDZ,
10279 WORK,
10280 LWORK,
10281 IWORK,
10282 IFAIL,
10283 INFO);
10284 }
10285
10286 //-- dsyrfs --------------------------------------------------------------------
10287 void
10288 LAPACK_DECL(dsyrfs)(const char *UPLO,
10289 const INTEGER *N,
10290 const INTEGER *NRHS,
10291 const DOUBLE *A,
10292 const INTEGER *LDA,
10293 const DOUBLE *AF,
10294 const INTEGER *LDAF,
10295 const INTEGER *IPIV,
10296 const DOUBLE *B,
10297 const INTEGER *LDB,
10298 DOUBLE *X,
10299 const INTEGER *LDX,
10300 DOUBLE *FERR,
10301 DOUBLE *BERR,
10302 const DOUBLE *WORK,
10303 const INTEGER *IWORK,
10304 INTEGER *INFO)
10305 {
10306 DEBUG_LAPACK_STUB("dsyrfs");
10307 LAPACK_IMPL(dsyrfs)(UPLO,
10308 N,
10309 NRHS,
10310 A,
10311 LDA,
10312 AF,
10313 LDAF,
10314 IPIV,
10315 B,
10316 LDB,
10317 X,
10318 LDX,
10319 FERR,
10320 BERR,
10321 WORK,
10322 IWORK,
10323 INFO);
10324 }
10325
10326 //-- dsysv ---------------------------------------------------------------------
10327 void
10328 LAPACK_DECL(dsysv)(const char *UPLO,
10329 const INTEGER *N,
10330 const INTEGER *NRHS,
10331 DOUBLE *A,
10332 const INTEGER *LDA,
10333 INTEGER *IPIV,
10334 DOUBLE *B,
10335 const INTEGER *LDB,
10336 DOUBLE *WORK,
10337 const INTEGER *LWORK,
10338 INTEGER *INFO)
10339 {
10340 DEBUG_LAPACK_STUB("dsysv");
10341 LAPACK_IMPL(dsysv)(UPLO,
10342 N,
10343 NRHS,
10344 A,
10345 LDA,
10346 IPIV,
10347 B,
10348 LDB,
10349 WORK,
10350 LWORK,
10351 INFO);
10352 }
10353
10354 //-- dsysvx --------------------------------------------------------------------
10355 void
10356 LAPACK_DECL(dsysvx)(const char *FACT,
10357 const char *UPLO,
10358 const INTEGER *N,
10359 const INTEGER *NRHS,
10360 const DOUBLE *A,
10361 const INTEGER *LDA,
10362 DOUBLE *AF,
10363 const INTEGER *LDAF,
10364 INTEGER *IPIV,
10365 const DOUBLE *B,
10366 const INTEGER *LDB,
10367 DOUBLE *X,
10368 const INTEGER *LDX,
10369 DOUBLE *RCOND,
10370 DOUBLE *FERR,
10371 DOUBLE *BERR,
10372 DOUBLE *WORK,
10373 const INTEGER *LWORK,
10374 const INTEGER *IWORK,
10375 INTEGER *INFO)
10376 {
10377 DEBUG_LAPACK_STUB("dsysvx");
10378 LAPACK_IMPL(dsysvx)(FACT,
10379 UPLO,
10380 N,
10381 NRHS,
10382 A,
10383 LDA,
10384 AF,
10385 LDAF,
10386 IPIV,
10387 B,
10388 LDB,
10389 X,
10390 LDX,
10391 RCOND,
10392 FERR,
10393 BERR,
10394 WORK,
10395 LWORK,
10396 IWORK,
10397 INFO);
10398 }
10399
10400 //-- dsyswapr ------------------------------------------------------------------
10401 void
10402 LAPACK_DECL(dsyswapr)(const char *UPLO,
10403 const INTEGER *N,
10404 DOUBLE *A,
10405 const INTEGER *LDA,
10406 const INTEGER *I1,
10407 const INTEGER *I2)
10408 {
10409 DEBUG_LAPACK_STUB("dsyswapr");
10410 LAPACK_IMPL(dsyswapr)(UPLO,
10411 N,
10412 A,
10413 LDA,
10414 I1,
10415 I2);
10416 }
10417
10418 //-- dsytd2 --------------------------------------------------------------------
10419 void
10420 LAPACK_DECL(dsytd2)(const char *UPLO,
10421 const INTEGER *N,
10422 DOUBLE *A,
10423 const INTEGER *LDA,
10424 DOUBLE *D,
10425 DOUBLE *E,
10426 DOUBLE *TAU,
10427 INTEGER *INFO)
10428 {
10429 DEBUG_LAPACK_STUB("dsytd2");
10430 LAPACK_IMPL(dsytd2)(UPLO,
10431 N,
10432 A,
10433 LDA,
10434 D,
10435 E,
10436 TAU,
10437 INFO);
10438 }
10439
10440 //-- dsytf2 --------------------------------------------------------------------
10441 void
10442 LAPACK_DECL(dsytf2)(const char *UPLO,
10443 const INTEGER *N,
10444 DOUBLE *A,
10445 const INTEGER *LDA,
10446 INTEGER *IPIV,
10447 INTEGER *INFO)
10448 {
10449 DEBUG_LAPACK_STUB("dsytf2");
10450 LAPACK_IMPL(dsytf2)(UPLO,
10451 N,
10452 A,
10453 LDA,
10454 IPIV,
10455 INFO);
10456 }
10457
10458 //-- dsytrd --------------------------------------------------------------------
10459 void
10460 LAPACK_DECL(dsytrd)(const char *UPLO,
10461 const INTEGER *N,
10462 DOUBLE *A,
10463 const INTEGER *LDA,
10464 DOUBLE *D,
10465 DOUBLE *E,
10466 DOUBLE *TAU,
10467 DOUBLE *WORK,
10468 const INTEGER *LWORK,
10469 INTEGER *INFO)
10470 {
10471 DEBUG_LAPACK_STUB("dsytrd");
10472 LAPACK_IMPL(dsytrd)(UPLO,
10473 N,
10474 A,
10475 LDA,
10476 D,
10477 E,
10478 TAU,
10479 WORK,
10480 LWORK,
10481 INFO);
10482 }
10483
10484 //-- dsytrf --------------------------------------------------------------------
10485 void
10486 LAPACK_DECL(dsytrf)(const char *UPLO,
10487 const INTEGER *N,
10488 DOUBLE *A,
10489 const INTEGER *LDA,
10490 INTEGER *IPIV,
10491 DOUBLE *WORK,
10492 const INTEGER *LWORK,
10493 INTEGER *INFO)
10494 {
10495 DEBUG_LAPACK_STUB("dsytrf");
10496 LAPACK_IMPL(dsytrf)(UPLO,
10497 N,
10498 A,
10499 LDA,
10500 IPIV,
10501 WORK,
10502 LWORK,
10503 INFO);
10504 }
10505
10506 //-- dsytri --------------------------------------------------------------------
10507 void
10508 LAPACK_DECL(dsytri)(const char *UPLO,
10509 const INTEGER *N,
10510 DOUBLE *A,
10511 const INTEGER *LDA,
10512 const INTEGER *IPIV,
10513 const DOUBLE *WORK,
10514 INTEGER *INFO)
10515 {
10516 DEBUG_LAPACK_STUB("dsytri");
10517 LAPACK_IMPL(dsytri)(UPLO,
10518 N,
10519 A,
10520 LDA,
10521 IPIV,
10522 WORK,
10523 INFO);
10524 }
10525
10526 //-- dsytri2 -------------------------------------------------------------------
10527 void
10528 LAPACK_DECL(dsytri2)(const char *UPLO,
10529 const INTEGER *N,
10530 DOUBLE *A,
10531 const INTEGER *LDA,
10532 const INTEGER *IPIV,
10533 const DOUBLE *WORK,
10534 const INTEGER *LWORK,
10535 INTEGER *INFO)
10536 {
10537 DEBUG_LAPACK_STUB("dsytri2");
10538 LAPACK_IMPL(dsytri2)(UPLO,
10539 N,
10540 A,
10541 LDA,
10542 IPIV,
10543 WORK,
10544 LWORK,
10545 INFO);
10546 }
10547
10548 //-- dsytri2x ------------------------------------------------------------------
10549 void
10550 LAPACK_DECL(dsytri2x)(const char *UPLO,
10551 const INTEGER *N,
10552 DOUBLE *A,
10553 const INTEGER *LDA,
10554 const INTEGER *IPIV,
10555 const DOUBLE *WORK,
10556 const INTEGER *NB,
10557 INTEGER *INFO)
10558 {
10559 DEBUG_LAPACK_STUB("dsytri2x");
10560 LAPACK_IMPL(dsytri2x)(UPLO,
10561 N,
10562 A,
10563 LDA,
10564 IPIV,
10565 WORK,
10566 NB,
10567 INFO);
10568 }
10569
10570 //-- dsytrs --------------------------------------------------------------------
10571 void
10572 LAPACK_DECL(dsytrs)(const char *UPLO,
10573 const INTEGER *N,
10574 const INTEGER *NRHS,
10575 const DOUBLE *A,
10576 const INTEGER *LDA,
10577 const INTEGER *IPIV,
10578 DOUBLE *B,
10579 const INTEGER *LDB,
10580 INTEGER *INFO)
10581 {
10582 DEBUG_LAPACK_STUB("dsytrs");
10583 LAPACK_IMPL(dsytrs)(UPLO,
10584 N,
10585 NRHS,
10586 A,
10587 LDA,
10588 IPIV,
10589 B,
10590 LDB,
10591 INFO);
10592 }
10593
10594 //-- dsytrs2 -------------------------------------------------------------------
10595 void
10596 LAPACK_DECL(dsytrs2)(const char *UPLO,
10597 const INTEGER *N,
10598 const INTEGER *NRHS,
10599 const DOUBLE *A,
10600 const INTEGER *LDA,
10601 const INTEGER *IPIV,
10602 DOUBLE *B,
10603 const INTEGER *LDB,
10604 const DOUBLE *WORK,
10605 INTEGER *INFO)
10606 {
10607 DEBUG_LAPACK_STUB("dsytrs2");
10608 LAPACK_IMPL(dsytrs2)(UPLO,
10609 N,
10610 NRHS,
10611 A,
10612 LDA,
10613 IPIV,
10614 B,
10615 LDB,
10616 WORK,
10617 INFO);
10618 }
10619
10620 //-- dtbcon --------------------------------------------------------------------
10621 void
10622 LAPACK_DECL(dtbcon)(const char *NORM,
10623 const char *UPLO,
10624 const char *DIAG,
10625 const INTEGER *N,
10626 const INTEGER *KD,
10627 const DOUBLE *AB,
10628 const INTEGER *LDAB,
10629 DOUBLE *RCOND,
10630 const DOUBLE *WORK,
10631 const INTEGER *IWORK,
10632 INTEGER *INFO)
10633 {
10634 DEBUG_LAPACK_STUB("dtbcon");
10635 LAPACK_IMPL(dtbcon)(NORM,
10636 UPLO,
10637 DIAG,
10638 N,
10639 KD,
10640 AB,
10641 LDAB,
10642 RCOND,
10643 WORK,
10644 IWORK,
10645 INFO);
10646 }
10647
10648 //-- dtbrfs --------------------------------------------------------------------
10649 void
10650 LAPACK_DECL(dtbrfs)(const char *UPLO,
10651 const char *TRANS,
10652 const char *DIAG,
10653 const INTEGER *N,
10654 const INTEGER *KD,
10655 const INTEGER *NRHS,
10656 const DOUBLE *AB,
10657 const INTEGER *LDAB,
10658 const DOUBLE *B,
10659 const INTEGER *LDB,
10660 const DOUBLE *X,
10661 const INTEGER *LDX,
10662 DOUBLE *FERR,
10663 DOUBLE *BERR,
10664 const DOUBLE *WORK,
10665 const INTEGER *IWORK,
10666 INTEGER *INFO)
10667 {
10668 DEBUG_LAPACK_STUB("dtbrfs");
10669 LAPACK_IMPL(dtbrfs)(UPLO,
10670 TRANS,
10671 DIAG,
10672 N,
10673 KD,
10674 NRHS,
10675 AB,
10676 LDAB,
10677 B,
10678 LDB,
10679 X,
10680 LDX,
10681 FERR,
10682 BERR,
10683 WORK,
10684 IWORK,
10685 INFO);
10686 }
10687
10688 //-- dtbtrs --------------------------------------------------------------------
10689 void
10690 LAPACK_DECL(dtbtrs)(const char *UPLO,
10691 const char *TRANS,
10692 const char *DIAG,
10693 const INTEGER *N,
10694 const INTEGER *KD,
10695 const INTEGER *NRHS,
10696 const DOUBLE *AB,
10697 const INTEGER *LDAB,
10698 DOUBLE *B,
10699 const INTEGER *LDB,
10700 INTEGER *INFO)
10701 {
10702 DEBUG_LAPACK_STUB("dtbtrs");
10703 LAPACK_IMPL(dtbtrs)(UPLO,
10704 TRANS,
10705 DIAG,
10706 N,
10707 KD,
10708 NRHS,
10709 AB,
10710 LDAB,
10711 B,
10712 LDB,
10713 INFO);
10714 }
10715
10716 //-- dtfsm ---------------------------------------------------------------------
10717 void
10718 LAPACK_DECL(dtfsm)(const char *TRANSR,
10719 const char *SIDE,
10720 const char *UPLO,
10721 const char *TRANS,
10722 const char *DIAG,
10723 const INTEGER *M,
10724 const INTEGER *N,
10725 const DOUBLE *ALPHA,
10726 const DOUBLE *A,
10727 DOUBLE *B,
10728 const INTEGER *LDB)
10729 {
10730 DEBUG_LAPACK_STUB("dtfsm");
10731 LAPACK_IMPL(dtfsm)(TRANSR,
10732 SIDE,
10733 UPLO,
10734 TRANS,
10735 DIAG,
10736 M,
10737 N,
10738 ALPHA,
10739 A,
10740 B,
10741 LDB);
10742 }
10743
10744 //-- dtftri --------------------------------------------------------------------
10745 void
10746 LAPACK_DECL(dtftri)(const char *TRANSR,
10747 const char *UPLO,
10748 const char *DIAG,
10749 const INTEGER *N,
10750 DOUBLE *A,
10751 INTEGER *INFO)
10752 {
10753 DEBUG_LAPACK_STUB("dtftri");
10754 LAPACK_IMPL(dtftri)(TRANSR,
10755 UPLO,
10756 DIAG,
10757 N,
10758 A,
10759 INFO);
10760 }
10761
10762 //-- dtfttp --------------------------------------------------------------------
10763 void
10764 LAPACK_DECL(dtfttp)(const char *TRANSR,
10765 const char *UPLO,
10766 const INTEGER *N,
10767 const DOUBLE *ARF,
10768 DOUBLE *AP,
10769 INTEGER *INFO)
10770 {
10771 DEBUG_LAPACK_STUB("dtfttp");
10772 LAPACK_IMPL(dtfttp)(TRANSR,
10773 UPLO,
10774 N,
10775 ARF,
10776 AP,
10777 INFO);
10778 }
10779
10780 //-- dtfttr --------------------------------------------------------------------
10781 void
10782 LAPACK_DECL(dtfttr)(const char *TRANSR,
10783 const char *UPLO,
10784 const INTEGER *N,
10785 const DOUBLE *ARF,
10786 DOUBLE *A,
10787 const INTEGER *LDA,
10788 INTEGER *INFO)
10789 {
10790 DEBUG_LAPACK_STUB("dtfttr");
10791 LAPACK_IMPL(dtfttr)(TRANSR,
10792 UPLO,
10793 N,
10794 ARF,
10795 A,
10796 LDA,
10797 INFO);
10798 }
10799
10800 //-- dtgevc --------------------------------------------------------------------
10801 void
10802 LAPACK_DECL(dtgevc)(const char *SIDE,
10803 const char *HOWMNY,
10804 const LOGICAL *SELECT,
10805 const INTEGER *N,
10806 const DOUBLE *S,
10807 const INTEGER *LDS,
10808 const DOUBLE *P,
10809 const INTEGER *LDP,
10810 DOUBLE *VL,
10811 const INTEGER *LDVL,
10812 DOUBLE *VR,
10813 const INTEGER *LDVR,
10814 const INTEGER *MM,
10815 INTEGER *M,
10816 const DOUBLE *WORK,
10817 INTEGER *INFO)
10818 {
10819 DEBUG_LAPACK_STUB("dtgevc");
10820 LAPACK_IMPL(dtgevc)(SIDE,
10821 HOWMNY,
10822 SELECT,
10823 N,
10824 S,
10825 LDS,
10826 P,
10827 LDP,
10828 VL,
10829 LDVL,
10830 VR,
10831 LDVR,
10832 MM,
10833 M,
10834 WORK,
10835 INFO);
10836 }
10837
10838 //-- dtgex2 --------------------------------------------------------------------
10839 void
10840 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
10841 const LOGICAL *WANTZ,
10842 const INTEGER *N,
10843 DOUBLE *A,
10844 const INTEGER *LDA,
10845 DOUBLE *B,
10846 const INTEGER *LDB,
10847 DOUBLE *Q,
10848 const INTEGER *LDQ,
10849 DOUBLE *Z,
10850 const INTEGER *LDZ,
10851 const INTEGER *J1,
10852 const INTEGER *N1,
10853 const INTEGER *N2,
10854 const DOUBLE *WORK,
10855 const INTEGER *LWORK,
10856 INTEGER *INFO)
10857 {
10858 DEBUG_LAPACK_STUB("dtgex2");
10859 LAPACK_IMPL(dtgex2)(WANTQ,
10860 WANTZ,
10861 N,
10862 A,
10863 LDA,
10864 B,
10865 LDB,
10866 Q,
10867 LDQ,
10868 Z,
10869 LDZ,
10870 J1,
10871 N1,
10872 N2,
10873 WORK,
10874 LWORK,
10875 INFO);
10876 }
10877
10878 //-- dtgexc --------------------------------------------------------------------
10879 void
10880 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
10881 const LOGICAL *WANTZ,
10882 const INTEGER *N,
10883 DOUBLE *A,
10884 const INTEGER *LDA,
10885 DOUBLE *B,
10886 const INTEGER *LDB,
10887 DOUBLE *Q,
10888 const INTEGER *LDQ,
10889 DOUBLE *Z,
10890 const INTEGER *LDZ,
10891 INTEGER *IFST,
10892 INTEGER *ILST,
10893 DOUBLE *WORK,
10894 const INTEGER *LWORK,
10895 INTEGER *INFO)
10896 {
10897 DEBUG_LAPACK_STUB("dtgexc");
10898 LAPACK_IMPL(dtgexc)(WANTQ,
10899 WANTZ,
10900 N,
10901 A,
10902 LDA,
10903 B,
10904 LDB,
10905 Q,
10906 LDQ,
10907 Z,
10908 LDZ,
10909 IFST,
10910 ILST,
10911 WORK,
10912 LWORK,
10913 INFO);
10914 }
10915
10916 //-- dtgsen --------------------------------------------------------------------
10917 void
10918 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
10919 const LOGICAL *WANTQ,
10920 const LOGICAL *WANTZ,
10921 const LOGICAL *SELECT,
10922 const INTEGER *N,
10923 DOUBLE *A,
10924 const INTEGER *LDA,
10925 DOUBLE *B,
10926 const INTEGER *LDB,
10927 DOUBLE *ALPHAR,
10928 DOUBLE *ALPHAI,
10929 DOUBLE *BETA,
10930 DOUBLE *Q,
10931 const INTEGER *LDQ,
10932 DOUBLE *Z,
10933 const INTEGER *LDZ,
10934 INTEGER *M,
10935 DOUBLE *PL,
10936 DOUBLE *PR,
10937 DOUBLE *DIF,
10938 DOUBLE *WORK,
10939 const INTEGER *LWORK,
10940 INTEGER *IWORK,
10941 const INTEGER *LIWORK,
10942 INTEGER *INFO)
10943 {
10944 DEBUG_LAPACK_STUB("dtgsen");
10945 LAPACK_IMPL(dtgsen)(IJOB,
10946 WANTQ,
10947 WANTZ,
10948 SELECT,
10949 N,
10950 A,
10951 LDA,
10952 B,
10953 LDB,
10954 ALPHAR,
10955 ALPHAI,
10956 BETA,
10957 Q,
10958 LDQ,
10959 Z,
10960 LDZ,
10961 M,
10962 PL,
10963 PR,
10964 DIF,
10965 WORK,
10966 LWORK,
10967 IWORK,
10968 LIWORK,
10969 INFO);
10970 }
10971
10972 //-- dtgsja --------------------------------------------------------------------
10973 void
10974 LAPACK_DECL(dtgsja)(const char *JOBU,
10975 const char *JOBV,
10976 const char *JOBQ,
10977 const INTEGER *M,
10978 const INTEGER *P,
10979 const INTEGER *N,
10980 const INTEGER *K,
10981 const INTEGER *L,
10982 DOUBLE *A,
10983 const INTEGER *LDA,
10984 DOUBLE *B,
10985 const INTEGER *LDB,
10986 const DOUBLE *TOLA,
10987 const DOUBLE *TOLB,
10988 DOUBLE *ALPHA,
10989 DOUBLE *BETA,
10990 DOUBLE *U,
10991 const INTEGER *LDU,
10992 DOUBLE *V,
10993 const INTEGER *LDV,
10994 DOUBLE *Q,
10995 const INTEGER *LDQ,
10996 const DOUBLE *WORK,
10997 INTEGER *NCYCLE,
10998 INTEGER *INFO)
10999 {
11000 DEBUG_LAPACK_STUB("dtgsja");
11001 LAPACK_IMPL(dtgsja)(JOBU,
11002 JOBV,
11003 JOBQ,
11004 M,
11005 P,
11006 N,
11007 K,
11008 L,
11009 A,
11010 LDA,
11011 B,
11012 LDB,
11013 TOLA,
11014 TOLB,
11015 ALPHA,
11016 BETA,
11017 U,
11018 LDU,
11019 V,
11020 LDV,
11021 Q,
11022 LDQ,
11023 WORK,
11024 NCYCLE,
11025 INFO);
11026 }
11027
11028 //-- dtgsna --------------------------------------------------------------------
11029 void
11030 LAPACK_DECL(dtgsna)(const char *JOB,
11031 const char *HOWMNY,
11032 const LOGICAL *SELECT,
11033 const INTEGER *N,
11034 const DOUBLE *A,
11035 const INTEGER *LDA,
11036 const DOUBLE *B,
11037 const INTEGER *LDB,
11038 const DOUBLE *VL,
11039 const INTEGER *LDVL,
11040 const DOUBLE *VR,
11041 const INTEGER *LDVR,
11042 DOUBLE *S,
11043 DOUBLE *DIF,
11044 const INTEGER *MM,
11045 INTEGER *M,
11046 DOUBLE *WORK,
11047 const INTEGER *LWORK,
11048 const INTEGER *IWORK,
11049 INTEGER *INFO)
11050 {
11051 DEBUG_LAPACK_STUB("dtgsna");
11052 LAPACK_IMPL(dtgsna)(JOB,
11053 HOWMNY,
11054 SELECT,
11055 N,
11056 A,
11057 LDA,
11058 B,
11059 LDB,
11060 VL,
11061 LDVL,
11062 VR,
11063 LDVR,
11064 S,
11065 DIF,
11066 MM,
11067 M,
11068 WORK,
11069 LWORK,
11070 IWORK,
11071 INFO);
11072 }
11073
11074 //-- dtgsy2 --------------------------------------------------------------------
11075 void
11076 LAPACK_DECL(dtgsy2)(const char *TRANS,
11077 const INTEGER *IJOB,
11078 const INTEGER *M,
11079 const INTEGER *N,
11080 const DOUBLE *A,
11081 const INTEGER *LDA,
11082 const DOUBLE *B,
11083 const INTEGER *LDB,
11084 DOUBLE *C,
11085 const INTEGER *LDC,
11086 const DOUBLE *D,
11087 const INTEGER *LDD,
11088 const DOUBLE *E,
11089 const INTEGER *LDE,
11090 DOUBLE *F,
11091 const INTEGER *LDF,
11092 DOUBLE *SCALE,
11093 DOUBLE *RDSUM,
11094 DOUBLE *RDSCAL,
11095 const INTEGER *IWORK,
11096 INTEGER *PQ,
11097 INTEGER *INFO)
11098 {
11099 DEBUG_LAPACK_STUB("dtgsy2");
11100 LAPACK_IMPL(dtgsy2)(TRANS,
11101 IJOB,
11102 M,
11103 N,
11104 A,
11105 LDA,
11106 B,
11107 LDB,
11108 C,
11109 LDC,
11110 D,
11111 LDD,
11112 E,
11113 LDE,
11114 F,
11115 LDF,
11116 SCALE,
11117 RDSUM,
11118 RDSCAL,
11119 IWORK,
11120 PQ,
11121 INFO);
11122 }
11123
11124 //-- dtgsyl --------------------------------------------------------------------
11125 void
11126 LAPACK_DECL(dtgsyl)(const char *TRANS,
11127 const INTEGER *IJOB,
11128 const INTEGER *M,
11129 const INTEGER *N,
11130 const DOUBLE *A,
11131 const INTEGER *LDA,
11132 const DOUBLE *B,
11133 const INTEGER *LDB,
11134 DOUBLE *C,
11135 const INTEGER *LDC,
11136 const DOUBLE *D,
11137 const INTEGER *LDD,
11138 const DOUBLE *E,
11139 const INTEGER *LDE,
11140 DOUBLE *F,
11141 const INTEGER *LDF,
11142 DOUBLE *SCALE,
11143 DOUBLE *DIF,
11144 DOUBLE *WORK,
11145 const INTEGER *LWORK,
11146 const INTEGER *IWORK,
11147 INTEGER *INFO)
11148 {
11149 DEBUG_LAPACK_STUB("dtgsyl");
11150 LAPACK_IMPL(dtgsyl)(TRANS,
11151 IJOB,
11152 M,
11153 N,
11154 A,
11155 LDA,
11156 B,
11157 LDB,
11158 C,
11159 LDC,
11160 D,
11161 LDD,
11162 E,
11163 LDE,
11164 F,
11165 LDF,
11166 SCALE,
11167 DIF,
11168 WORK,
11169 LWORK,
11170 IWORK,
11171 INFO);
11172 }
11173
11174 //-- dtpcon --------------------------------------------------------------------
11175 void
11176 LAPACK_DECL(dtpcon)(const char *NORM,
11177 const char *UPLO,
11178 const char *DIAG,
11179 const INTEGER *N,
11180 const DOUBLE *AP,
11181 DOUBLE *RCOND,
11182 const DOUBLE *WORK,
11183 const INTEGER *IWORK,
11184 INTEGER *INFO)
11185 {
11186 DEBUG_LAPACK_STUB("dtpcon");
11187 LAPACK_IMPL(dtpcon)(NORM,
11188 UPLO,
11189 DIAG,
11190 N,
11191 AP,
11192 RCOND,
11193 WORK,
11194 IWORK,
11195 INFO);
11196 }
11197
11198 //-- dtprfs --------------------------------------------------------------------
11199 void
11200 LAPACK_DECL(dtprfs)(const char *UPLO,
11201 const char *TRANS,
11202 const char *DIAG,
11203 const INTEGER *N,
11204 const INTEGER *NRHS,
11205 const DOUBLE *AP,
11206 const DOUBLE *B,
11207 const INTEGER *LDB,
11208 const DOUBLE *X,
11209 const INTEGER *LDX,
11210 DOUBLE *FERR,
11211 DOUBLE *BERR,
11212 const DOUBLE *WORK,
11213 const INTEGER *IWORK,
11214 INTEGER *INFO)
11215 {
11216 DEBUG_LAPACK_STUB("dtprfs");
11217 LAPACK_IMPL(dtprfs)(UPLO,
11218 TRANS,
11219 DIAG,
11220 N,
11221 NRHS,
11222 AP,
11223 B,
11224 LDB,
11225 X,
11226 LDX,
11227 FERR,
11228 BERR,
11229 WORK,
11230 IWORK,
11231 INFO);
11232 }
11233
11234 //-- dtptri --------------------------------------------------------------------
11235 void
11236 LAPACK_DECL(dtptri)(const char *UPLO,
11237 const char *DIAG,
11238 const INTEGER *N,
11239 DOUBLE *AP,
11240 INTEGER *INFO)
11241 {
11242 DEBUG_LAPACK_STUB("dtptri");
11243 LAPACK_IMPL(dtptri)(UPLO,
11244 DIAG,
11245 N,
11246 AP,
11247 INFO);
11248 }
11249
11250 //-- dtptrs --------------------------------------------------------------------
11251 void
11252 LAPACK_DECL(dtptrs)(const char *UPLO,
11253 const char *TRANS,
11254 const char *DIAG,
11255 const INTEGER *N,
11256 const INTEGER *NRHS,
11257 const DOUBLE *AP,
11258 DOUBLE *B,
11259 const INTEGER *LDB,
11260 INTEGER *INFO)
11261 {
11262 DEBUG_LAPACK_STUB("dtptrs");
11263 LAPACK_IMPL(dtptrs)(UPLO,
11264 TRANS,
11265 DIAG,
11266 N,
11267 NRHS,
11268 AP,
11269 B,
11270 LDB,
11271 INFO);
11272 }
11273
11274 //-- dtpttf --------------------------------------------------------------------
11275 void
11276 LAPACK_DECL(dtpttf)(const char *TRANSR,
11277 const char *UPLO,
11278 const INTEGER *N,
11279 const DOUBLE *AP,
11280 DOUBLE *ARF,
11281 INTEGER *INFO)
11282 {
11283 DEBUG_LAPACK_STUB("dtpttf");
11284 LAPACK_IMPL(dtpttf)(TRANSR,
11285 UPLO,
11286 N,
11287 AP,
11288 ARF,
11289 INFO);
11290 }
11291
11292 //-- dtpttr --------------------------------------------------------------------
11293 void
11294 LAPACK_DECL(dtpttr)(const char *UPLO,
11295 const INTEGER *N,
11296 const DOUBLE *AP,
11297 DOUBLE *A,
11298 const INTEGER *LDA,
11299 INTEGER *INFO)
11300 {
11301 DEBUG_LAPACK_STUB("dtpttr");
11302 LAPACK_IMPL(dtpttr)(UPLO,
11303 N,
11304 AP,
11305 A,
11306 LDA,
11307 INFO);
11308 }
11309
11310 //-- dtrcon --------------------------------------------------------------------
11311 void
11312 LAPACK_DECL(dtrcon)(const char *NORM,
11313 const char *UPLO,
11314 const char *DIAG,
11315 const INTEGER *N,
11316 const DOUBLE *A,
11317 const INTEGER *LDA,
11318 DOUBLE *RCOND,
11319 const DOUBLE *WORK,
11320 const INTEGER *IWORK,
11321 INTEGER *INFO)
11322 {
11323 DEBUG_LAPACK_STUB("dtrcon");
11324 LAPACK_IMPL(dtrcon)(NORM,
11325 UPLO,
11326 DIAG,
11327 N,
11328 A,
11329 LDA,
11330 RCOND,
11331 WORK,
11332 IWORK,
11333 INFO);
11334 }
11335
11336 //-- dtrevc --------------------------------------------------------------------
11337 void
11338 LAPACK_DECL(dtrevc)(const char *SIDE,
11339 const char *HOWMNY,
11340 LOGICAL *SELECT,
11341 const INTEGER *N,
11342 const DOUBLE *T,
11343 const INTEGER *LDT,
11344 DOUBLE *VL,
11345 const INTEGER *LDVL,
11346 DOUBLE *VR,
11347 const INTEGER *LDVR,
11348 const INTEGER *MM,
11349 INTEGER *M,
11350 const DOUBLE *WORK,
11351 INTEGER *INFO)
11352 {
11353 DEBUG_LAPACK_STUB("dtrevc");
11354 LAPACK_IMPL(dtrevc)(SIDE,
11355 HOWMNY,
11356 SELECT,
11357 N,
11358 T,
11359 LDT,
11360 VL,
11361 LDVL,
11362 VR,
11363 LDVR,
11364 MM,
11365 M,
11366 WORK,
11367 INFO);
11368 }
11369
11370 //-- dtrexc --------------------------------------------------------------------
11371 void
11372 LAPACK_DECL(dtrexc)(const char *COMPQ,
11373 const INTEGER *N,
11374 DOUBLE *T,
11375 const INTEGER *LDT,
11376 DOUBLE *Q,
11377 const INTEGER *LDQ,
11378 INTEGER *IFST,
11379 INTEGER *ILST,
11380 const DOUBLE *WORK,
11381 INTEGER *INFO)
11382 {
11383 DEBUG_LAPACK_STUB("dtrexc");
11384 LAPACK_IMPL(dtrexc)(COMPQ,
11385 N,
11386 T,
11387 LDT,
11388 Q,
11389 LDQ,
11390 IFST,
11391 ILST,
11392 WORK,
11393 INFO);
11394 }
11395
11396 //-- dtrrfs --------------------------------------------------------------------
11397 void
11398 LAPACK_DECL(dtrrfs)(const char *UPLO,
11399 const char *TRANS,
11400 const char *DIAG,
11401 const INTEGER *N,
11402 const INTEGER *NRHS,
11403 const DOUBLE *A,
11404 const INTEGER *LDA,
11405 const DOUBLE *B,
11406 const INTEGER *LDB,
11407 const DOUBLE *X,
11408 const INTEGER *LDX,
11409 DOUBLE *FERR,
11410 DOUBLE *BERR,
11411 const DOUBLE *WORK,
11412 const INTEGER *IWORK,
11413 INTEGER *INFO)
11414 {
11415 DEBUG_LAPACK_STUB("dtrrfs");
11416 LAPACK_IMPL(dtrrfs)(UPLO,
11417 TRANS,
11418 DIAG,
11419 N,
11420 NRHS,
11421 A,
11422 LDA,
11423 B,
11424 LDB,
11425 X,
11426 LDX,
11427 FERR,
11428 BERR,
11429 WORK,
11430 IWORK,
11431 INFO);
11432 }
11433
11434 //-- dtrsen --------------------------------------------------------------------
11435 void
11436 LAPACK_DECL(dtrsen)(const char *JOB,
11437 const char *COMPQ,
11438 const LOGICAL *SELECT,
11439 const INTEGER *N,
11440 DOUBLE *T,
11441 const INTEGER *LDT,
11442 DOUBLE *Q,
11443 const INTEGER *LDQ,
11444 DOUBLE *WR,
11445 DOUBLE *WI,
11446 INTEGER *M,
11447 DOUBLE *S,
11448 DOUBLE *SEP,
11449 DOUBLE *WORK,
11450 const INTEGER *LWORK,
11451 const INTEGER *IWORK,
11452 const INTEGER *LIWORK,
11453 INTEGER *INFO)
11454 {
11455 DEBUG_LAPACK_STUB("dtrsen");
11456 std::cerr << "dtrsen" << std::endl;
11457 LAPACK_IMPL(dtrsen)(JOB,
11458 COMPQ,
11459 SELECT,
11460 N,
11461 T,
11462 LDT,
11463 Q,
11464 LDQ,
11465 WR,
11466 WI,
11467 M,
11468 S,
11469 SEP,
11470 WORK,
11471 LWORK,
11472 IWORK,
11473 LIWORK,
11474 INFO);
11475 }
11476
11477 //-- dtrsna --------------------------------------------------------------------
11478 void
11479 LAPACK_DECL(dtrsna)(const char *JOB,
11480 const char *HOWMNY,
11481 const LOGICAL *SELECT,
11482 const INTEGER *N,
11483 const DOUBLE *T,
11484 const INTEGER *LDT,
11485 const DOUBLE *VL,
11486 const INTEGER *LDVL,
11487 const DOUBLE *VR,
11488 const INTEGER *LDVR,
11489 DOUBLE *S,
11490 DOUBLE *SEP,
11491 const INTEGER *MM,
11492 INTEGER *M,
11493 const DOUBLE *WORK,
11494 const INTEGER *LDWORK,
11495 const INTEGER *IWORK,
11496 INTEGER *INFO)
11497 {
11498 DEBUG_LAPACK_STUB("dtrsna");
11499 LAPACK_IMPL(dtrsna)(JOB,
11500 HOWMNY,
11501 SELECT,
11502 N,
11503 T,
11504 LDT,
11505 VL,
11506 LDVL,
11507 VR,
11508 LDVR,
11509 S,
11510 SEP,
11511 MM,
11512 M,
11513 WORK,
11514 LDWORK,
11515 IWORK,
11516 INFO);
11517 }
11518
11519 //-- dtrsyl --------------------------------------------------------------------
11520 void
11521 LAPACK_DECL(dtrsyl)(const char *TRANA,
11522 const char *TRANB,
11523 const INTEGER *ISGN,
11524 const INTEGER *M,
11525 const INTEGER *N,
11526 const DOUBLE *A,
11527 const INTEGER *LDA,
11528 const DOUBLE *B,
11529 const INTEGER *LDB,
11530 DOUBLE *C,
11531 const INTEGER *LDC,
11532 DOUBLE *SCALE,
11533 INTEGER *INFO)
11534 {
11535 DEBUG_LAPACK_STUB("dtrsyl");
11536 LAPACK_IMPL(dtrsyl)(TRANA,
11537 TRANB,
11538 ISGN,
11539 M,
11540 N,
11541 A,
11542 LDA,
11543 B,
11544 LDB,
11545 C,
11546 LDC,
11547 SCALE,
11548 INFO);
11549 }
11550
11551 //-- dtrti2 --------------------------------------------------------------------
11552 void
11553 LAPACK_DECL(dtrti2)(const char *UPLO,
11554 const char *DIAG,
11555 const INTEGER *N,
11556 DOUBLE *A,
11557 const INTEGER *LDA,
11558 INTEGER *INFO)
11559 {
11560 DEBUG_LAPACK_STUB("dtrti2");
11561 LAPACK_IMPL(dtrti2)(UPLO,
11562 DIAG,
11563 N,
11564 A,
11565 LDA,
11566 INFO);
11567 }
11568
11569 //-- dtrtri --------------------------------------------------------------------
11570 /*
11571 void
11572 LAPACK_DECL(dtrtri)(const char *UPLO,
11573 const char *DIAG,
11574 const INTEGER *N,
11575 DOUBLE *A,
11576 const INTEGER *LDA,
11577 INTEGER *INFO)
11578 {
11579 DEBUG_LAPACK_STUB("dtrtri");
11580 std::cerr << "dtrtri" << std::endl;
11581 LAPACK_IMPL(dtrtri)(UPLO,
11582 DIAG,
11583 N,
11584 A,
11585 LDA,
11586 INFO);
11587 }
11588 */
11589
11590 //-- dtrtrs --------------------------------------------------------------------
11591 /*
11592 void
11593 LAPACK_DECL(dtrtrs)(const char *UPLO,
11594 const char *TRANS,
11595 const char *DIAG,
11596 const INTEGER *N,
11597 const INTEGER *NRHS,
11598 const DOUBLE *A,
11599 const INTEGER *LDA,
11600 DOUBLE *B,
11601 const INTEGER *LDB,
11602 INTEGER *INFO)
11603 {
11604 DEBUG_LAPACK_STUB("dtrtrs");
11605 LAPACK_IMPL(dtrtrs)(UPLO,
11606 TRANS,
11607 DIAG,
11608 N,
11609 NRHS,
11610 A,
11611 LDA,
11612 B,
11613 LDB,
11614 INFO);
11615 }
11616 */
11617
11618 //-- dtrttf --------------------------------------------------------------------
11619 void
11620 LAPACK_DECL(dtrttf)(const char *TRANSR,
11621 const char *UPLO,
11622 const INTEGER *N,
11623 const DOUBLE *A,
11624 const INTEGER *LDA,
11625 DOUBLE *ARF,
11626 INTEGER *INFO)
11627 {
11628 DEBUG_LAPACK_STUB("dtrttf");
11629 LAPACK_IMPL(dtrttf)(TRANSR,
11630 UPLO,
11631 N,
11632 A,
11633 LDA,
11634 ARF,
11635 INFO);
11636 }
11637
11638 //-- dtrttp --------------------------------------------------------------------
11639 void
11640 LAPACK_DECL(dtrttp)(const char *UPLO,
11641 const INTEGER *N,
11642 const DOUBLE *A,
11643 const INTEGER *LDA,
11644 DOUBLE *AP,
11645 INTEGER *INFO)
11646 {
11647 DEBUG_LAPACK_STUB("dtrttp");
11648 LAPACK_IMPL(dtrttp)(UPLO,
11649 N,
11650 A,
11651 LDA,
11652 AP,
11653 INFO);
11654 }
11655
11656 //-- dtzrqf --------------------------------------------------------------------
11657 void
11658 LAPACK_DECL(dtzrqf)(const INTEGER *M,
11659 const INTEGER *N,
11660 DOUBLE *A,
11661 const INTEGER *LDA,
11662 DOUBLE *TAU,
11663 INTEGER *INFO)
11664 {
11665 DEBUG_LAPACK_STUB("dtzrqf");
11666 LAPACK_IMPL(dtzrqf)(M,
11667 N,
11668 A,
11669 LDA,
11670 TAU,
11671 INFO);
11672 }
11673
11674 //-- dtzrzf --------------------------------------------------------------------
11675 void
11676 LAPACK_DECL(dtzrzf)(const INTEGER *M,
11677 const INTEGER *N,
11678 DOUBLE *A,
11679 const INTEGER *LDA,
11680 DOUBLE *TAU,
11681 DOUBLE *WORK,
11682 const INTEGER *LWORK,
11683 INTEGER *INFO)
11684 {
11685 DEBUG_LAPACK_STUB("dtzrzf");
11686 LAPACK_IMPL(dtzrzf)(M,
11687 N,
11688 A,
11689 LDA,
11690 TAU,
11691 WORK,
11692 LWORK,
11693 INFO);
11694 }
11695
11696 //-- dzsum1 --------------------------------------------------------------------
11697 DOUBLE
11698 LAPACK_DECL(dzsum1)(const INTEGER *N,
11699 const DOUBLE_COMPLEX *CX,
11700 const INTEGER *INCX)
11701 {
11702 DEBUG_LAPACK_STUB("dzsum1");
11703 return LAPACK_IMPL(dzsum1)(N,
11704 CX,
11705 INCX);
11706 }
11707
11708 //-- ieeeck --------------------------------------------------------------------
11709 INTEGER
11710 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
11711 const FLOAT *ZERO,
11712 const FLOAT *ONE)
11713 {
11714 DEBUG_LAPACK_STUB("ieeeck");
11715 return LAPACK_IMPL(ieeeck)(ISPEC,
11716 ZERO,
11717 ONE);
11718 }
11719
11720 //-- iladlc --------------------------------------------------------------------
11721 INTEGER
11722 LAPACK_DECL(iladlc)(const INTEGER *M,
11723 const INTEGER *N,
11724 const DOUBLE *A,
11725 const INTEGER *LDA)
11726 {
11727 DEBUG_LAPACK_STUB("iladlc");
11728 return LAPACK_IMPL(iladlc)(M,
11729 N,
11730 A,
11731 LDA);
11732 }
11733
11734 //-- iladlr --------------------------------------------------------------------
11735 INTEGER
11736 LAPACK_DECL(iladlr)(const INTEGER *M,
11737 const INTEGER *N,
11738 const DOUBLE *A,
11739 const INTEGER *LDA)
11740 {
11741 DEBUG_LAPACK_STUB("iladlr");
11742 return LAPACK_IMPL(iladlr)(M,
11743 N,
11744 A,
11745 LDA);
11746 }
11747
11748 //-- ilaslc --------------------------------------------------------------------
11749 INTEGER
11750 LAPACK_DECL(ilaslc)(const INTEGER *M,
11751 const INTEGER *N,
11752 const FLOAT *A,
11753 const INTEGER *LDA)
11754 {
11755 DEBUG_LAPACK_STUB("ilaslc");
11756 return LAPACK_IMPL(ilaslc)(M,
11757 N,
11758 A,
11759 LDA);
11760 }
11761
11762 //-- ilaslr --------------------------------------------------------------------
11763 INTEGER
11764 LAPACK_DECL(ilaslr)(const INTEGER *M,
11765 const INTEGER *N,
11766 const FLOAT *A,
11767 const INTEGER *LDA)
11768 {
11769 DEBUG_LAPACK_STUB("ilaslr");
11770 return LAPACK_IMPL(ilaslr)(M,
11771 N,
11772 A,
11773 LDA);
11774 }
11775
11776 //-- ilatrans ------------------------------------------------------------------
11777 INTEGER
11778 LAPACK_DECL(ilatrans)(const char *TRANS)
11779 {
11780 DEBUG_LAPACK_STUB("ilatrans");
11781 return LAPACK_IMPL(ilatrans)(TRANS);
11782 }
11783
11784 //-- ilauplo -------------------------------------------------------------------
11785 INTEGER
11786 LAPACK_DECL(ilauplo)(const char *UPLO)
11787 {
11788 DEBUG_LAPACK_STUB("ilauplo");
11789 return LAPACK_IMPL(ilauplo)(UPLO);
11790 }
11791
11792 // warning: VERS_MAJOR has unknown type
11793 // warning: VERS_MINOR has unknown type
11794 // warning: VERS_PATCH has unknown type
11795 //-- ilaver --------------------------------------------------------------------
11796 void
11797 LAPACK_DECL(ilaver)(INTEGER *VERS_MAJOR,
11798 INTEGER *VERS_MINOR,
11799 INTEGER *VERS_PATCH)
11800 {
11801 DEBUG_LAPACK_STUB("ilaver");
11802 LAPACK_IMPL(ilaver)(VERS_MAJOR,
11803 VERS_MINOR,
11804 VERS_PATCH);
11805 }
11806
11807 //-- sgetf2 --------------------------------------------------------------------
11808 void
11809 LAPACK_DECL(sgetf2)(const INTEGER *M,
11810 const INTEGER *N,
11811 FLOAT *A,
11812 const INTEGER *LDA,
11813 INTEGER *IPIV,
11814 INTEGER *INFO)
11815 {
11816 DEBUG_LAPACK_STUB("sgetf2");
11817 LAPACK_IMPL(sgetf2)(M,
11818 N,
11819 A,
11820 LDA,
11821 IPIV,
11822 INFO);
11823 }
11824
11825 //-- sgetrf --------------------------------------------------------------------
11826 void
11827 LAPACK_DECL(sgetrf)(const INTEGER *M,
11828 const INTEGER *N,
11829 FLOAT *A,
11830 const INTEGER *LDA,
11831 INTEGER *IPIV,
11832 INTEGER *INFO)
11833 {
11834 DEBUG_LAPACK_STUB("sgetrf");
11835 LAPACK_IMPL(sgetrf)(M,
11836 N,
11837 A,
11838 LDA,
11839 IPIV,
11840 INFO);
11841 }
11842
11843 //-- sgetrs --------------------------------------------------------------------
11844 void
11845 LAPACK_DECL(sgetrs)(const char *TRANS,
11846 const INTEGER *N,
11847 const INTEGER *NRHS,
11848 const FLOAT *A,
11849 const INTEGER *LDA,
11850 const INTEGER *IPIV,
11851 FLOAT *B,
11852 const INTEGER *LDB,
11853 INTEGER *INFO)
11854 {
11855 DEBUG_LAPACK_STUB("sgetrs");
11856 LAPACK_IMPL(sgetrs)(TRANS,
11857 N,
11858 NRHS,
11859 A,
11860 LDA,
11861 IPIV,
11862 B,
11863 LDB,
11864 INFO);
11865 }
11866
11867 //-- sisnan --------------------------------------------------------------------
11868 LOGICAL
11869 LAPACK_DECL(sisnan)(const FLOAT *SIN)
11870 {
11871 DEBUG_LAPACK_STUB("sisnan");
11872 return LAPACK_IMPL(sisnan)(SIN);
11873 }
11874
11875 //-- slag2d --------------------------------------------------------------------
11876 void
11877 LAPACK_DECL(slag2d)(const INTEGER *M,
11878 const INTEGER *N,
11879 const FLOAT *SA,
11880 const INTEGER *LDSA,
11881 DOUBLE *A,
11882 const INTEGER *LDA,
11883 INTEGER *INFO)
11884 {
11885 DEBUG_LAPACK_STUB("slag2d");
11886 LAPACK_IMPL(slag2d)(M,
11887 N,
11888 SA,
11889 LDSA,
11890 A,
11891 LDA,
11892 INFO);
11893 }
11894
11895 //-- slaisnan ------------------------------------------------------------------
11896 LOGICAL
11897 LAPACK_DECL(slaisnan)(const FLOAT *SIN1,
11898 const FLOAT *SIN2)
11899 {
11900 DEBUG_LAPACK_STUB("slaisnan");
11901 return LAPACK_IMPL(slaisnan)(SIN1,
11902 SIN2);
11903 }
11904
11905 //-- slamch --------------------------------------------------------------------
11906 FLOAT
11907 LAPACK_DECL(slamch)(const char *CMACH)
11908 {
11909 DEBUG_LAPACK_STUB("slamch");
11910 return LAPACK_IMPL(slamch)(CMACH);
11911 }
11912
11913 //-- dlamch --------------------------------------------------------------------
11914 DOUBLE
11915 LAPACK_DECL(dlamch)(const char *CMACH)
11916 {
11917 DEBUG_LAPACK_STUB("dlamch");
11918 return LAPACK_IMPL(dlamch)(CMACH);
11919 }
11920
11921 //-- slaswp --------------------------------------------------------------------
11922 void
11923 LAPACK_DECL(slaswp)(const INTEGER *N,
11924 FLOAT *A,
11925 const INTEGER *LDA,
11926 const INTEGER *K1,
11927 const INTEGER *K2,
11928 const INTEGER *IPIV,
11929 const INTEGER *INCX)
11930 {
11931 DEBUG_LAPACK_STUB("slaswp");
11932 LAPACK_IMPL(slaswp)(N,
11933 A,
11934 LDA,
11935 K1,
11936 K2,
11937 IPIV,
11938 INCX);
11939 }
11940
11941 //-- spotf2 --------------------------------------------------------------------
11942 void
11943 LAPACK_DECL(spotf2)(const char *UPLO,
11944 const INTEGER *N,
11945 FLOAT *A,
11946 const INTEGER *LDA,
11947 INTEGER *INFO)
11948 {
11949 DEBUG_LAPACK_STUB("spotf2");
11950 LAPACK_IMPL(spotf2)(UPLO,
11951 N,
11952 A,
11953 LDA,
11954 INFO);
11955 }
11956
11957 //-- spotrf --------------------------------------------------------------------
11958 void
11959 LAPACK_DECL(spotrf)(const char *UPLO,
11960 const INTEGER *N,
11961 FLOAT *A,
11962 const INTEGER *LDA,
11963 INTEGER *INFO)
11964 {
11965 DEBUG_LAPACK_STUB("spotrf");
11966 LAPACK_IMPL(spotrf)(UPLO,
11967 N,
11968 A,
11969 LDA,
11970 INFO);
11971 }
11972
11973 //-- spotrs --------------------------------------------------------------------
11974 void
11975 LAPACK_DECL(spotrs)(const char *UPLO,
11976 const INTEGER *N,
11977 const INTEGER *NRHS,
11978 const FLOAT *A,
11979 const INTEGER *LDA,
11980 FLOAT *B,
11981 const INTEGER *LDB,
11982 INTEGER *INFO)
11983 {
11984 DEBUG_LAPACK_STUB("spotrs");
11985 LAPACK_IMPL(spotrs)(UPLO,
11986 N,
11987 NRHS,
11988 A,
11989 LDA,
11990 B,
11991 LDB,
11992 INFO);
11993 }
11994
2 /*
3 LOGICAL
4 LAPACK_DECL(lsamen)(const INTEGER *N,
5 const char *CA,
6 const char *CB)
7 {
8 DEBUG_LAPACK_STUB("lsamen");
9 return LAPACK_IMPL(lsamen)(N, CA, CB);
10 }
11 */
12
13 //-- dbbcsd --------------------------------------------------------------------
14 void
15 LAPACK_DECL(dbbcsd)(const char *JOBU1,
16 const char *JOBU2,
17 const char *JOBV1T,
18 const char *JOBV2T,
19 const char *TRANS,
20 const INTEGER *M,
21 const INTEGER *P,
22 const INTEGER *Q,
23 DOUBLE *THETA,
24 const DOUBLE *PHI,
25 DOUBLE *U1,
26 const INTEGER *LDU1,
27 DOUBLE *U2,
28 const INTEGER *LDU2,
29 DOUBLE *V1T,
30 const INTEGER *LDV1T,
31 DOUBLE *V2T,
32 const INTEGER *LDV2T,
33 DOUBLE *B11D,
34 DOUBLE *B11E,
35 DOUBLE *B12D,
36 DOUBLE *B12E,
37 const DOUBLE *B21D,
38 const DOUBLE *B21E,
39 const DOUBLE *B22D,
40 const DOUBLE *B22E,
41 const DOUBLE *WORK,
42 const INTEGER *LWORK,
43 INTEGER *INFO)
44 {
45 DEBUG_LAPACK_STUB("dbbcsd");
46 LAPACK_IMPL(dbbcsd)(JOBU1,
47 JOBU2,
48 JOBV1T,
49 JOBV2T,
50 TRANS,
51 M,
52 P,
53 Q,
54 THETA,
55 PHI,
56 U1,
57 LDU1,
58 U2,
59 LDU2,
60 V1T,
61 LDV1T,
62 V2T,
63 LDV2T,
64 B11D,
65 B11E,
66 B12D,
67 B12E,
68 B21D,
69 B21E,
70 B22D,
71 B22E,
72 WORK,
73 LWORK,
74 INFO);
75 }
76
77 //-- dbdsdc --------------------------------------------------------------------
78 void
79 LAPACK_DECL(dbdsdc)(const char *UPLO,
80 const char *COMPQ,
81 const INTEGER *N,
82 DOUBLE *D,
83 DOUBLE *E,
84 DOUBLE *U,
85 const INTEGER *LDU,
86 DOUBLE *VT,
87 const INTEGER *LDVT,
88 DOUBLE *Q,
89 INTEGER *IQ,
90 const DOUBLE *WORK,
91 const INTEGER *IWORK,
92 INTEGER *INFO)
93 {
94 DEBUG_LAPACK_STUB("dbdsdc");
95 LAPACK_IMPL(dbdsdc)(UPLO,
96 COMPQ,
97 N,
98 D,
99 E,
100 U,
101 LDU,
102 VT,
103 LDVT,
104 Q,
105 IQ,
106 WORK,
107 IWORK,
108 INFO);
109 }
110
111 //-- dbdsqr --------------------------------------------------------------------
112 void
113 LAPACK_DECL(dbdsqr)(const char *UPLO,
114 const INTEGER *N,
115 const INTEGER *NCVT,
116 const INTEGER *NRU,
117 const INTEGER *NCC,
118 DOUBLE *D,
119 DOUBLE *E,
120 DOUBLE *VT,
121 const INTEGER *LDVT,
122 DOUBLE *U,
123 const INTEGER *LDU,
124 DOUBLE *C,
125 const INTEGER *LDC,
126 const DOUBLE *WORK,
127 INTEGER *INFO)
128 {
129 DEBUG_LAPACK_STUB("dbdsqr");
130 LAPACK_IMPL(dbdsqr)(UPLO,
131 N,
132 NCVT,
133 NRU,
134 NCC,
135 D,
136 E,
137 VT,
138 LDVT,
139 U,
140 LDU,
141 C,
142 LDC,
143 WORK,
144 INFO);
145 }
146
147 //-- ddisna --------------------------------------------------------------------
148 void
149 LAPACK_DECL(ddisna)(const char *JOB,
150 const INTEGER *M,
151 const INTEGER *N,
152 const DOUBLE *D,
153 DOUBLE *SEP,
154 INTEGER *INFO)
155 {
156 DEBUG_LAPACK_STUB("ddisna");
157 LAPACK_IMPL(ddisna)(JOB,
158 M,
159 N,
160 D,
161 SEP,
162 INFO);
163 }
164
165 //-- dgbbrd --------------------------------------------------------------------
166 void
167 LAPACK_DECL(dgbbrd)(const char *VECT,
168 const INTEGER *M,
169 const INTEGER *N,
170 const INTEGER *NCC,
171 const INTEGER *KL,
172 const INTEGER *KU,
173 DOUBLE *AB,
174 const INTEGER *LDAB,
175 DOUBLE *D,
176 DOUBLE *E,
177 DOUBLE *Q,
178 const INTEGER *LDQ,
179 DOUBLE *PT,
180 const INTEGER *LDPT,
181 DOUBLE *C,
182 const INTEGER *LDC,
183 const DOUBLE *WORK,
184 INTEGER *INFO)
185 {
186 DEBUG_LAPACK_STUB("dgbbrd");
187 LAPACK_IMPL(dgbbrd)(VECT,
188 M,
189 N,
190 NCC,
191 KL,
192 KU,
193 AB,
194 LDAB,
195 D,
196 E,
197 Q,
198 LDQ,
199 PT,
200 LDPT,
201 C,
202 LDC,
203 WORK,
204 INFO);
205 }
206
207 //-- dgbcon --------------------------------------------------------------------
208 void
209 LAPACK_DECL(dgbcon)(const char *NORM,
210 const INTEGER *N,
211 const INTEGER *KL,
212 const INTEGER *KU,
213 const DOUBLE *AB,
214 const INTEGER *LDAB,
215 const INTEGER *IPIV,
216 const DOUBLE *ANORM,
217 DOUBLE *RCOND,
218 const DOUBLE *WORK,
219 const INTEGER *IWORK,
220 INTEGER *INFO)
221 {
222 DEBUG_LAPACK_STUB("dgbcon");
223 LAPACK_IMPL(dgbcon)(NORM,
224 N,
225 KL,
226 KU,
227 AB,
228 LDAB,
229 IPIV,
230 ANORM,
231 RCOND,
232 WORK,
233 IWORK,
234 INFO);
235 }
236
237 //-- dgbequ --------------------------------------------------------------------
238 void
239 LAPACK_DECL(dgbequ)(const INTEGER *M,
240 const INTEGER *N,
241 const INTEGER *KL,
242 const INTEGER *KU,
243 const DOUBLE *AB,
244 const INTEGER *LDAB,
245 DOUBLE *R,
246 DOUBLE *C,
247 DOUBLE *ROWCND,
248 DOUBLE *COLCND,
249 DOUBLE *AMAX,
250 INTEGER *INFO)
251 {
252 DEBUG_LAPACK_STUB("dgbequ");
253 LAPACK_IMPL(dgbequ)(M,
254 N,
255 KL,
256 KU,
257 AB,
258 LDAB,
259 R,
260 C,
261 ROWCND,
262 COLCND,
263 AMAX,
264 INFO);
265 }
266
267 //-- dgbequb -------------------------------------------------------------------
268 void
269 LAPACK_DECL(dgbequb)(const INTEGER *M,
270 const INTEGER *N,
271 const INTEGER *KL,
272 const INTEGER *KU,
273 const DOUBLE *AB,
274 const INTEGER *LDAB,
275 DOUBLE *R,
276 DOUBLE *C,
277 DOUBLE *ROWCND,
278 DOUBLE *COLCND,
279 DOUBLE *AMAX,
280 INTEGER *INFO)
281 {
282 DEBUG_LAPACK_STUB("dgbequb");
283 LAPACK_IMPL(dgbequb)(M,
284 N,
285 KL,
286 KU,
287 AB,
288 LDAB,
289 R,
290 C,
291 ROWCND,
292 COLCND,
293 AMAX,
294 INFO);
295 }
296
297 //-- dgbrfs --------------------------------------------------------------------
298 void
299 LAPACK_DECL(dgbrfs)(const char *TRANS,
300 const INTEGER *N,
301 const INTEGER *KL,
302 const INTEGER *KU,
303 const INTEGER *NRHS,
304 const DOUBLE *AB,
305 const INTEGER *LDAB,
306 const DOUBLE *AFB,
307 const INTEGER *LDAFB,
308 const INTEGER *IPIV,
309 const DOUBLE *B,
310 const INTEGER *LDB,
311 DOUBLE *X,
312 const INTEGER *LDX,
313 DOUBLE *FERR,
314 DOUBLE *BERR,
315 const DOUBLE *WORK,
316 const INTEGER *IWORK,
317 INTEGER *INFO)
318 {
319 DEBUG_LAPACK_STUB("dgbrfs");
320 LAPACK_IMPL(dgbrfs)(TRANS,
321 N,
322 KL,
323 KU,
324 NRHS,
325 AB,
326 LDAB,
327 AFB,
328 LDAFB,
329 IPIV,
330 B,
331 LDB,
332 X,
333 LDX,
334 FERR,
335 BERR,
336 WORK,
337 IWORK,
338 INFO);
339 }
340
341 //-- dgbsv ---------------------------------------------------------------------
342 void
343 LAPACK_DECL(dgbsv)(const INTEGER *N,
344 const INTEGER *KL,
345 const INTEGER *KU,
346 const INTEGER *NRHS,
347 DOUBLE *AB,
348 const INTEGER *LDAB,
349 INTEGER *IPIV,
350 DOUBLE *B,
351 const INTEGER *LDB,
352 INTEGER *INFO)
353 {
354 DEBUG_LAPACK_STUB("dgbsv");
355 LAPACK_IMPL(dgbsv)(N,
356 KL,
357 KU,
358 NRHS,
359 AB,
360 LDAB,
361 IPIV,
362 B,
363 LDB,
364 INFO);
365 }
366
367 //-- dgbsvx --------------------------------------------------------------------
368 void
369 LAPACK_DECL(dgbsvx)(const char *FACT,
370 const char *TRANS,
371 const INTEGER *N,
372 const INTEGER *KL,
373 const INTEGER *KU,
374 const INTEGER *NRHS,
375 DOUBLE *AB,
376 const INTEGER *LDAB,
377 DOUBLE *AFB,
378 const INTEGER *LDAFB,
379 INTEGER *IPIV,
380 char *EQUED,
381 DOUBLE *R,
382 DOUBLE *C,
383 DOUBLE *B,
384 const INTEGER *LDB,
385 DOUBLE *X,
386 const INTEGER *LDX,
387 DOUBLE *RCOND,
388 DOUBLE *FERR,
389 DOUBLE *BERR,
390 DOUBLE *WORK,
391 const INTEGER *IWORK,
392 INTEGER *INFO)
393 {
394 DEBUG_LAPACK_STUB("dgbsvx");
395 LAPACK_IMPL(dgbsvx)(FACT,
396 TRANS,
397 N,
398 KL,
399 KU,
400 NRHS,
401 AB,
402 LDAB,
403 AFB,
404 LDAFB,
405 IPIV,
406 EQUED,
407 R,
408 C,
409 B,
410 LDB,
411 X,
412 LDX,
413 RCOND,
414 FERR,
415 BERR,
416 WORK,
417 IWORK,
418 INFO);
419 }
420
421 //-- dgbtf2 --------------------------------------------------------------------
422 void
423 LAPACK_DECL(dgbtf2)(const INTEGER *M,
424 const INTEGER *N,
425 const INTEGER *KL,
426 const INTEGER *KU,
427 DOUBLE *AB,
428 const INTEGER *LDAB,
429 INTEGER *IPIV,
430 INTEGER *INFO)
431 {
432 DEBUG_LAPACK_STUB("dgbtf2");
433 LAPACK_IMPL(dgbtf2)(M,
434 N,
435 KL,
436 KU,
437 AB,
438 LDAB,
439 IPIV,
440 INFO);
441 }
442
443 //-- dgbtrf --------------------------------------------------------------------
444 void
445 LAPACK_DECL(dgbtrf)(const INTEGER *M,
446 const INTEGER *N,
447 const INTEGER *KL,
448 const INTEGER *KU,
449 DOUBLE *AB,
450 const INTEGER *LDAB,
451 INTEGER *IPIV,
452 INTEGER *INFO)
453 {
454 DEBUG_LAPACK_STUB("dgbtrf");
455 LAPACK_IMPL(dgbtrf)(M,
456 N,
457 KL,
458 KU,
459 AB,
460 LDAB,
461 IPIV,
462 INFO);
463 }
464
465 //-- dgbtrs --------------------------------------------------------------------
466 void
467 LAPACK_DECL(dgbtrs)(const char *TRANS,
468 const INTEGER *N,
469 const INTEGER *KL,
470 const INTEGER *KU,
471 const INTEGER *NRHS,
472 const DOUBLE *AB,
473 const INTEGER *LDAB,
474 const INTEGER *IPIV,
475 DOUBLE *B,
476 const INTEGER *LDB,
477 INTEGER *INFO)
478 {
479 DEBUG_LAPACK_STUB("dgbtrs");
480 LAPACK_IMPL(dgbtrs)(TRANS,
481 N,
482 KL,
483 KU,
484 NRHS,
485 AB,
486 LDAB,
487 IPIV,
488 B,
489 LDB,
490 INFO);
491 }
492
493 //-- dgebak --------------------------------------------------------------------
494 void
495 LAPACK_DECL(dgebak)(const char *JOB,
496 const char *SIDE,
497 const INTEGER *N,
498 const INTEGER *ILO,
499 const INTEGER *IHI,
500 const DOUBLE *SCALE,
501 const INTEGER *M,
502 DOUBLE *V,
503 const INTEGER *LDV,
504 INTEGER *INFO)
505 {
506 DEBUG_LAPACK_STUB("dgebak");
507 LAPACK_IMPL(dgebak)(JOB,
508 SIDE,
509 N,
510 ILO,
511 IHI,
512 SCALE,
513 M,
514 V,
515 LDV,
516 INFO);
517 }
518
519 //-- dgebal --------------------------------------------------------------------
520 void
521 LAPACK_DECL(dgebal)(const char *JOB,
522 const INTEGER *N,
523 DOUBLE *A,
524 const INTEGER *LDA,
525 INTEGER *ILO,
526 INTEGER *IHI,
527 DOUBLE *SCALE,
528 INTEGER *INFO)
529 {
530 DEBUG_LAPACK_STUB("dgebal");
531 LAPACK_IMPL(dgebal)(JOB,
532 N,
533 A,
534 LDA,
535 ILO,
536 IHI,
537 SCALE,
538 INFO);
539 }
540
541 //-- dgebd2 --------------------------------------------------------------------
542 void
543 LAPACK_DECL(dgebd2)(const INTEGER *M,
544 const INTEGER *N,
545 DOUBLE *A,
546 const INTEGER *LDA,
547 DOUBLE *D,
548 DOUBLE *E,
549 DOUBLE *TAUQ,
550 DOUBLE *TAUP,
551 const DOUBLE *WORK,
552 INTEGER *INFO)
553 {
554 DEBUG_LAPACK_STUB("dgebd2");
555 LAPACK_IMPL(dgebd2)(M,
556 N,
557 A,
558 LDA,
559 D,
560 E,
561 TAUQ,
562 TAUP,
563 WORK,
564 INFO);
565 }
566
567 //-- dgebrd --------------------------------------------------------------------
568 void
569 LAPACK_DECL(dgebrd)(const INTEGER *M,
570 const INTEGER *N,
571 DOUBLE *A,
572 const INTEGER *LDA,
573 DOUBLE *D,
574 DOUBLE *E,
575 DOUBLE *TAUQ,
576 DOUBLE *TAUP,
577 DOUBLE *WORK,
578 const INTEGER *LWORK,
579 INTEGER *INFO)
580 {
581 DEBUG_LAPACK_STUB("dgebrd");
582 LAPACK_IMPL(dgebrd)(M,
583 N,
584 A,
585 LDA,
586 D,
587 E,
588 TAUQ,
589 TAUP,
590 WORK,
591 LWORK,
592 INFO);
593 }
594
595 //-- dgecon --------------------------------------------------------------------
596 /*
597 void
598 LAPACK_DECL(dgecon)(const char *NORM,
599 const INTEGER *N,
600 const DOUBLE *A,
601 const INTEGER *LDA,
602 const DOUBLE *ANORM,
603 DOUBLE *RCOND,
604 const DOUBLE *WORK,
605 const INTEGER *IWORK,
606 INTEGER *INFO)
607 {
608 DEBUG_LAPACK_STUB("dgecon");
609 LAPACK_IMPL(dgecon)(NORM,
610 N,
611 A,
612 LDA,
613 ANORM,
614 RCOND,
615 WORK,
616 IWORK,
617 INFO);
618 }
619 */
620
621 //-- dgeequ --------------------------------------------------------------------
622 /*
623 void
624 LAPACK_DECL(dgeequ)(const INTEGER *M,
625 const INTEGER *N,
626 const DOUBLE *A,
627 const INTEGER *LDA,
628 DOUBLE *R,
629 DOUBLE *C,
630 DOUBLE *ROWCND,
631 DOUBLE *COLCND,
632 DOUBLE *AMAX,
633 INTEGER *INFO)
634 {
635 DEBUG_LAPACK_STUB("dgeequ");
636 LAPACK_IMPL(dgeequ)(M,
637 N,
638 A,
639 LDA,
640 R,
641 C,
642 ROWCND,
643 COLCND,
644 AMAX,
645 INFO);
646 }
647 */
648
649 //-- dgeequb -------------------------------------------------------------------
650 void
651 LAPACK_DECL(dgeequb)(const INTEGER *M,
652 const INTEGER *N,
653 const DOUBLE *A,
654 const INTEGER *LDA,
655 DOUBLE *R,
656 DOUBLE *C,
657 DOUBLE *ROWCND,
658 DOUBLE *COLCND,
659 DOUBLE *AMAX,
660 INTEGER *INFO)
661 {
662 DEBUG_LAPACK_STUB("dgeequb");
663 LAPACK_IMPL(dgeequb)(M,
664 N,
665 A,
666 LDA,
667 R,
668 C,
669 ROWCND,
670 COLCND,
671 AMAX,
672 INFO);
673 }
674
675 //-- dgees ---------------------------------------------------------------------
676 /*
677 void
678 LAPACK_DECL(dgees)(const char *JOBVS,
679 const char *SORT,
680 LOGICAL (*SELECT)(const DOUBLE *, const DOUBLE *),
681 const INTEGER *N,
682 DOUBLE *A,
683 const INTEGER *LDA,
684 INTEGER *SDIM,
685 DOUBLE *WR,
686 DOUBLE *WI,
687 DOUBLE *VS,
688 const INTEGER *LDVS,
689 DOUBLE *WORK,
690 const INTEGER *LWORK,
691 LOGICAL *BWORK,
692 INTEGER *INFO)
693 {
694 DEBUG_LAPACK_STUB("dgees");
695 LAPACK_IMPL(dgees)(JOBVS,
696 SORT,
697 SELECT,
698 N,
699 A,
700 LDA,
701 SDIM,
702 WR,
703 WI,
704 VS,
705 LDVS,
706 WORK,
707 LWORK,
708 BWORK,
709 INFO);
710 }
711 */
712
713 //-- dgeesx --------------------------------------------------------------------
714 /*
715 void
716 LAPACK_DECL(dgeesx)(const char *JOBVS,
717 const char *SORT,
718 const LOGICAL *SELECT,
719 const char *SENSE,
720 const INTEGER *N,
721 DOUBLE *A,
722 const INTEGER *LDA,
723 INTEGER *SDIM,
724 DOUBLE *WR,
725 DOUBLE *WI,
726 DOUBLE *VS,
727 const INTEGER *LDVS,
728 DOUBLE *RCONDE,
729 DOUBLE *RCONDV,
730 DOUBLE *WORK,
731 const INTEGER *LWORK,
732 INTEGER *IWORK,
733 const INTEGER *LIWORK,
734 const LOGICAL *BWORK,
735 INTEGER *INFO)
736 {
737 DEBUG_LAPACK_STUB("dgeesx");
738 LAPACK_IMPL(dgeesx)(JOBVS,
739 SORT,
740 SELECT,
741 SENSE,
742 N,
743 A,
744 LDA,
745 SDIM,
746 WR,
747 WI,
748 VS,
749 LDVS,
750 RCONDE,
751 RCONDV,
752 WORK,
753 LWORK,
754 IWORK,
755 LIWORK,
756 BWORK,
757 INFO);
758 }
759 */
760
761 //-- dgeevx --------------------------------------------------------------------
762 /*
763 void
764 LAPACK_DECL(dgeevx)(const char *BALANC,
765 const char *JOBVL,
766 const char *JOBVR,
767 const char *SENSE,
768 const INTEGER *N,
769 DOUBLE *A,
770 const INTEGER *LDA,
771 DOUBLE *WR,
772 DOUBLE *WI,
773 DOUBLE *VL,
774 const INTEGER *LDVL,
775 DOUBLE *VR,
776 const INTEGER *LDVR,
777 INTEGER *ILO,
778 INTEGER *IHI,
779 DOUBLE *SCALE,
780 DOUBLE *ABNRM,
781 DOUBLE *RCONDE,
782 DOUBLE *RCONDV,
783 DOUBLE *WORK,
784 const INTEGER *LWORK,
785 INTEGER *IWORK,
786 INTEGER *INFO)
787 {
788 DEBUG_LAPACK_STUB("dgeevx");
789 LAPACK_IMPL(dgeevx)(BALANC,
790 JOBVL,
791 JOBVR,
792 SENSE,
793 N,
794 A,
795 LDA,
796 WR,
797 WI,
798 VL,
799 LDVL,
800 VR,
801 LDVR,
802 ILO,
803 IHI,
804 SCALE,
805 ABNRM,
806 RCONDE,
807 RCONDV,
808 WORK,
809 LWORK,
810 IWORK,
811 INFO);
812 }
813 */
814
815 //-- dgegs ---------------------------------------------------------------------
816 void
817 LAPACK_DECL(dgegs)(const char *JOBVSL,
818 const char *JOBVSR,
819 const INTEGER *N,
820 DOUBLE *A,
821 const INTEGER *LDA,
822 DOUBLE *B,
823 const INTEGER *LDB,
824 DOUBLE *ALPHAR,
825 DOUBLE *ALPHAI,
826 DOUBLE *BETA,
827 DOUBLE *VSL,
828 const INTEGER *LDVSL,
829 DOUBLE *VSR,
830 const INTEGER *LDVSR,
831 DOUBLE *WORK,
832 const INTEGER *LWORK,
833 INTEGER *INFO)
834 {
835 DEBUG_LAPACK_STUB("dgegs");
836 LAPACK_IMPL(dgegs)(JOBVSL,
837 JOBVSR,
838 N,
839 A,
840 LDA,
841 B,
842 LDB,
843 ALPHAR,
844 ALPHAI,
845 BETA,
846 VSL,
847 LDVSL,
848 VSR,
849 LDVSR,
850 WORK,
851 LWORK,
852 INFO);
853 }
854
855 //-- dgegv ---------------------------------------------------------------------
856 void
857 LAPACK_DECL(dgegv)(const char *JOBVL,
858 const char *JOBVR,
859 const INTEGER *N,
860 DOUBLE *A,
861 const INTEGER *LDA,
862 DOUBLE *B,
863 const INTEGER *LDB,
864 DOUBLE *ALPHAR,
865 DOUBLE *ALPHAI,
866 DOUBLE *BETA,
867 DOUBLE *VL,
868 const INTEGER *LDVL,
869 DOUBLE *VR,
870 const INTEGER *LDVR,
871 DOUBLE *WORK,
872 const INTEGER *LWORK,
873 INTEGER *INFO)
874 {
875 DEBUG_LAPACK_STUB("dgegv");
876 LAPACK_IMPL(dgegv)(JOBVL,
877 JOBVR,
878 N,
879 A,
880 LDA,
881 B,
882 LDB,
883 ALPHAR,
884 ALPHAI,
885 BETA,
886 VL,
887 LDVL,
888 VR,
889 LDVR,
890 WORK,
891 LWORK,
892 INFO);
893 }
894
895 //-- dgehd2 --------------------------------------------------------------------
896 void
897 LAPACK_DECL(dgehd2)(const INTEGER *N,
898 const INTEGER *ILO,
899 const INTEGER *IHI,
900 DOUBLE *A,
901 const INTEGER *LDA,
902 DOUBLE *TAU,
903 DOUBLE *WORK,
904 INTEGER *INFO)
905 {
906 DEBUG_LAPACK_STUB("dgehd2");
907 LAPACK_IMPL(dgehd2)(N,
908 ILO,
909 IHI,
910 A,
911 LDA,
912 TAU,
913 WORK,
914 INFO);
915 }
916
917 //-- dgehrd --------------------------------------------------------------------
918 void
919 LAPACK_DECL(dgehrd)(const INTEGER *N,
920 const INTEGER *ILO,
921 const INTEGER *IHI,
922 DOUBLE *A,
923 const INTEGER *LDA,
924 DOUBLE *TAU,
925 DOUBLE *WORK,
926 const INTEGER *LWORK,
927 INTEGER *INFO)
928 {
929 DEBUG_LAPACK_STUB("dgehrd");
930 LAPACK_IMPL(dgehrd)(N,
931 ILO,
932 IHI,
933 A,
934 LDA,
935 TAU,
936 WORK,
937 LWORK,
938 INFO);
939 }
940
941 //-- dgejsv --------------------------------------------------------------------
942 void
943 LAPACK_DECL(dgejsv)(const char *JOBA,
944 const char *JOBU,
945 const char *JOBV,
946 const char *JOBR,
947 const char *JOBT,
948 const char *JOBP,
949 const INTEGER *M,
950 const INTEGER *N,
951 const DOUBLE *A,
952 const INTEGER *LDA,
953 DOUBLE *SVA,
954 DOUBLE *U,
955 const INTEGER *LDU,
956 DOUBLE *V,
957 const INTEGER *LDV,
958 DOUBLE *WORK,
959 const INTEGER *LWORK,
960 INTEGER *IWORK,
961 INTEGER *INFO)
962 {
963 DEBUG_LAPACK_STUB("dgejsv");
964 LAPACK_IMPL(dgejsv)(JOBA,
965 JOBU,
966 JOBV,
967 JOBR,
968 JOBT,
969 JOBP,
970 M,
971 N,
972 A,
973 LDA,
974 SVA,
975 U,
976 LDU,
977 V,
978 LDV,
979 WORK,
980 LWORK,
981 IWORK,
982 INFO);
983 }
984
985 //-- dgelq2 --------------------------------------------------------------------
986 void
987 LAPACK_DECL(dgelq2)(const INTEGER *M,
988 const INTEGER *N,
989 DOUBLE *A,
990 const INTEGER *LDA,
991 DOUBLE *TAU,
992 const DOUBLE *WORK,
993 INTEGER *INFO)
994 {
995 DEBUG_LAPACK_STUB("dgelq2");
996 LAPACK_IMPL(dgelq2)(M,
997 N,
998 A,
999 LDA,
1000 TAU,
1001 WORK,
1002 INFO);
1003 }
1004
1005 //-- dgelqf --------------------------------------------------------------------
1006 /*
1007 void
1008 LAPACK_DECL(dgelqf)(const INTEGER *M,
1009 const INTEGER *N,
1010 DOUBLE *A,
1011 const INTEGER *LDA,
1012 DOUBLE *TAU,
1013 DOUBLE *WORK,
1014 const INTEGER *LWORK,
1015 INTEGER *INFO)
1016 {
1017 DEBUG_LAPACK_STUB("dgelqf");
1018 LAPACK_IMPL(dgelqf)(M,
1019 N,
1020 A,
1021 LDA,
1022 TAU,
1023 WORK,
1024 LWORK,
1025 INFO);
1026 }
1027 */
1028
1029 //-- dgels ---------------------------------------------------------------------
1030 void
1031 LAPACK_DECL(dgels)(const char *TRANS,
1032 const INTEGER *M,
1033 const INTEGER *N,
1034 const INTEGER *NRHS,
1035 DOUBLE *A,
1036 const INTEGER *LDA,
1037 DOUBLE *B,
1038 const INTEGER *LDB,
1039 DOUBLE *WORK,
1040 const INTEGER *LWORK,
1041 INTEGER *INFO)
1042 {
1043 DEBUG_LAPACK_STUB("dgels");
1044 LAPACK_IMPL(dgels)(TRANS,
1045 M,
1046 N,
1047 NRHS,
1048 A,
1049 LDA,
1050 B,
1051 LDB,
1052 WORK,
1053 LWORK,
1054 INFO);
1055 }
1056
1057 //-- dgelsd --------------------------------------------------------------------
1058 void
1059 LAPACK_DECL(dgelsd)(const INTEGER *M,
1060 const INTEGER *N,
1061 const INTEGER *NRHS,
1062 const DOUBLE *A,
1063 const INTEGER *LDA,
1064 DOUBLE *B,
1065 const INTEGER *LDB,
1066 DOUBLE *S,
1067 const DOUBLE *RCOND,
1068 INTEGER *RANK,
1069 DOUBLE *WORK,
1070 const INTEGER *LWORK,
1071 const INTEGER *IWORK,
1072 INTEGER *INFO)
1073 {
1074 DEBUG_LAPACK_STUB("dgelsd");
1075 LAPACK_IMPL(dgelsd)(M,
1076 N,
1077 NRHS,
1078 A,
1079 LDA,
1080 B,
1081 LDB,
1082 S,
1083 RCOND,
1084 RANK,
1085 WORK,
1086 LWORK,
1087 IWORK,
1088 INFO);
1089 }
1090
1091 //-- dgelss --------------------------------------------------------------------
1092 void
1093 LAPACK_DECL(dgelss)(const INTEGER *M,
1094 const INTEGER *N,
1095 const INTEGER *NRHS,
1096 DOUBLE *A,
1097 const INTEGER *LDA,
1098 DOUBLE *B,
1099 const INTEGER *LDB,
1100 DOUBLE *S,
1101 const DOUBLE *RCOND,
1102 INTEGER *RANK,
1103 DOUBLE *WORK,
1104 const INTEGER *LWORK,
1105 INTEGER *INFO)
1106 {
1107 DEBUG_LAPACK_STUB("dgelss");
1108 LAPACK_IMPL(dgelss)(M,
1109 N,
1110 NRHS,
1111 A,
1112 LDA,
1113 B,
1114 LDB,
1115 S,
1116 RCOND,
1117 RANK,
1118 WORK,
1119 LWORK,
1120 INFO);
1121 }
1122
1123 //-- dgelsx --------------------------------------------------------------------
1124 void
1125 LAPACK_DECL(dgelsx)(const INTEGER *M,
1126 const INTEGER *N,
1127 const INTEGER *NRHS,
1128 DOUBLE *A,
1129 const INTEGER *LDA,
1130 DOUBLE *B,
1131 const INTEGER *LDB,
1132 INTEGER *JPVT,
1133 const DOUBLE *RCOND,
1134 INTEGER *RANK,
1135 const DOUBLE *WORK,
1136 INTEGER *INFO)
1137 {
1138 DEBUG_LAPACK_STUB("dgelsx");
1139 LAPACK_IMPL(dgelsx)(M,
1140 N,
1141 NRHS,
1142 A,
1143 LDA,
1144 B,
1145 LDB,
1146 JPVT,
1147 RCOND,
1148 RANK,
1149 WORK,
1150 INFO);
1151 }
1152
1153 //-- dgelsy --------------------------------------------------------------------
1154 void
1155 LAPACK_DECL(dgelsy)(const INTEGER *M,
1156 const INTEGER *N,
1157 const INTEGER *NRHS,
1158 DOUBLE *A,
1159 const INTEGER *LDA,
1160 DOUBLE *B,
1161 const INTEGER *LDB,
1162 INTEGER *JPVT,
1163 const DOUBLE *RCOND,
1164 INTEGER *RANK,
1165 DOUBLE *WORK,
1166 const INTEGER *LWORK,
1167 INTEGER *INFO)
1168 {
1169 DEBUG_LAPACK_STUB("dgelsy");
1170 LAPACK_IMPL(dgelsy)(M,
1171 N,
1172 NRHS,
1173 A,
1174 LDA,
1175 B,
1176 LDB,
1177 JPVT,
1178 RCOND,
1179 RANK,
1180 WORK,
1181 LWORK,
1182 INFO);
1183 }
1184
1185 //-- dgeql2 --------------------------------------------------------------------
1186 void
1187 LAPACK_DECL(dgeql2)(const INTEGER *M,
1188 const INTEGER *N,
1189 DOUBLE *A,
1190 const INTEGER *LDA,
1191 DOUBLE *TAU,
1192 const DOUBLE *WORK,
1193 INTEGER *INFO)
1194 {
1195 DEBUG_LAPACK_STUB("dgeql2");
1196 LAPACK_IMPL(dgeql2)(M,
1197 N,
1198 A,
1199 LDA,
1200 TAU,
1201 WORK,
1202 INFO);
1203 }
1204
1205 //-- dgeqlf --------------------------------------------------------------------
1206 void
1207 LAPACK_DECL(dgeqlf)(const INTEGER *M,
1208 const INTEGER *N,
1209 DOUBLE *A,
1210 const INTEGER *LDA,
1211 DOUBLE *TAU,
1212 DOUBLE *WORK,
1213 const INTEGER *LWORK,
1214 INTEGER *INFO)
1215 {
1216 DEBUG_LAPACK_STUB("dgeqlf");
1217 LAPACK_IMPL(dgeqlf)(M,
1218 N,
1219 A,
1220 LDA,
1221 TAU,
1222 WORK,
1223 LWORK,
1224 INFO);
1225 }
1226
1227 //-- dgeqp3 --------------------------------------------------------------------
1228 void
1229 LAPACK_DECL(dgeqp3)(const INTEGER *M,
1230 const INTEGER *N,
1231 DOUBLE *A,
1232 const INTEGER *LDA,
1233 INTEGER *JPVT,
1234 DOUBLE *TAU,
1235 DOUBLE *WORK,
1236 const INTEGER *LWORK,
1237 INTEGER *INFO)
1238 {
1239 DEBUG_LAPACK_STUB("dgeqp3");
1240 LAPACK_IMPL(dgeqp3)(M,
1241 N,
1242 A,
1243 LDA,
1244 JPVT,
1245 TAU,
1246 WORK,
1247 LWORK,
1248 INFO);
1249 }
1250
1251 //-- dgeqpf --------------------------------------------------------------------
1252 void
1253 LAPACK_DECL(dgeqpf)(const INTEGER *M,
1254 const INTEGER *N,
1255 DOUBLE *A,
1256 const INTEGER *LDA,
1257 INTEGER *JPVT,
1258 DOUBLE *TAU,
1259 const DOUBLE *WORK,
1260 INTEGER *INFO)
1261 {
1262 DEBUG_LAPACK_STUB("dgeqpf");
1263 LAPACK_IMPL(dgeqpf)(M,
1264 N,
1265 A,
1266 LDA,
1267 JPVT,
1268 TAU,
1269 WORK,
1270 INFO);
1271 }
1272
1273 //-- dgeqrf --------------------------------------------------------------------
1274 /*
1275 void
1276 LAPACK_DECL(dgeqrf)(const INTEGER *M,
1277 const INTEGER *N,
1278 DOUBLE *A,
1279 const INTEGER *LDA,
1280 DOUBLE *TAU,
1281 DOUBLE *WORK,
1282 const INTEGER *LWORK,
1283 INTEGER *INFO)
1284 {
1285 DEBUG_LAPACK_STUB("dgeqrf");
1286 LAPACK_IMPL(dgeqrf)(M, N, A, LDA, TAU, WORK, LWORK, INFO);
1287 }
1288 */
1289
1290
1291 //-- dgeqr2 --------------------------------------------------------------------
1292 void
1293 LAPACK_DECL(dgeqr2)(const INTEGER *M,
1294 const INTEGER *N,
1295 DOUBLE *A,
1296 const INTEGER *LDA,
1297 DOUBLE *TAU,
1298 const DOUBLE *WORK,
1299 INTEGER *INFO)
1300 {
1301 DEBUG_LAPACK_STUB("dgeqr2");
1302 LAPACK_IMPL(dgeqr2)(M,
1303 N,
1304 A,
1305 LDA,
1306 TAU,
1307 WORK,
1308 INFO);
1309 }
1310
1311 //-- dgeqr2p -------------------------------------------------------------------
1312 void
1313 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
1314 const INTEGER *N,
1315 DOUBLE *A,
1316 const INTEGER *LDA,
1317 DOUBLE *TAU,
1318 const DOUBLE *WORK,
1319 INTEGER *INFO)
1320 {
1321 DEBUG_LAPACK_STUB("dgeqr2p");
1322 LAPACK_IMPL(dgeqr2p)(M,
1323 N,
1324 A,
1325 LDA,
1326 TAU,
1327 WORK,
1328 INFO);
1329 }
1330
1331 //-- dgeqrfp -------------------------------------------------------------------
1332 void
1333 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
1334 const INTEGER *N,
1335 DOUBLE *A,
1336 const INTEGER *LDA,
1337 DOUBLE *TAU,
1338 DOUBLE *WORK,
1339 const INTEGER *LWORK,
1340 INTEGER *INFO)
1341 {
1342 DEBUG_LAPACK_STUB("dgeqrfp");
1343 LAPACK_IMPL(dgeqrfp)(M,
1344 N,
1345 A,
1346 LDA,
1347 TAU,
1348 WORK,
1349 LWORK,
1350 INFO);
1351 }
1352
1353 //-- dgerfs --------------------------------------------------------------------
1354 /*
1355 void
1356 LAPACK_DECL(dgerfs)(const char *TRANS,
1357 const INTEGER *N,
1358 const INTEGER *NRHS,
1359 const DOUBLE *A,
1360 const INTEGER *LDA,
1361 const DOUBLE *AF,
1362 const INTEGER *LDAF,
1363 const INTEGER *IPIV,
1364 const DOUBLE *B,
1365 const INTEGER *LDB,
1366 DOUBLE *X,
1367 const INTEGER *LDX,
1368 DOUBLE *FERR,
1369 DOUBLE *BERR,
1370 const DOUBLE *WORK,
1371 const INTEGER *IWORK,
1372 INTEGER *INFO)
1373 {
1374 DEBUG_LAPACK_STUB("dgerfs");
1375 LAPACK_IMPL(dgerfs)(TRANS,
1376 N,
1377 NRHS,
1378 A,
1379 LDA,
1380 AF,
1381 LDAF,
1382 IPIV,
1383 B,
1384 LDB,
1385 X,
1386 LDX,
1387 FERR,
1388 BERR,
1389 WORK,
1390 IWORK,
1391 INFO);
1392 }
1393 */
1394
1395 //-- dgerq2 --------------------------------------------------------------------
1396 void
1397 LAPACK_DECL(dgerq2)(const INTEGER *M,
1398 const INTEGER *N,
1399 DOUBLE *A,
1400 const INTEGER *LDA,
1401 DOUBLE *TAU,
1402 const DOUBLE *WORK,
1403 INTEGER *INFO)
1404 {
1405 DEBUG_LAPACK_STUB("dgerq2");
1406 LAPACK_IMPL(dgerq2)(M,
1407 N,
1408 A,
1409 LDA,
1410 TAU,
1411 WORK,
1412 INFO);
1413 }
1414
1415 //-- dgerqf --------------------------------------------------------------------
1416 void
1417 LAPACK_DECL(dgerqf)(const INTEGER *M,
1418 const INTEGER *N,
1419 DOUBLE *A,
1420 const INTEGER *LDA,
1421 DOUBLE *TAU,
1422 DOUBLE *WORK,
1423 const INTEGER *LWORK,
1424 INTEGER *INFO)
1425 {
1426 DEBUG_LAPACK_STUB("dgerqf");
1427 LAPACK_IMPL(dgerqf)(M,
1428 N,
1429 A,
1430 LDA,
1431 TAU,
1432 WORK,
1433 LWORK,
1434 INFO);
1435 }
1436
1437 //-- dgesc2 --------------------------------------------------------------------
1438 void
1439 LAPACK_DECL(dgesc2)(const INTEGER *N,
1440 const DOUBLE *A,
1441 const INTEGER *LDA,
1442 DOUBLE *RHS,
1443 const INTEGER *IPIV,
1444 const INTEGER *JPIV,
1445 DOUBLE *SCALE)
1446 {
1447 DEBUG_LAPACK_STUB("dgesc2");
1448 LAPACK_IMPL(dgesc2)(N,
1449 A,
1450 LDA,
1451 RHS,
1452 IPIV,
1453 JPIV,
1454 SCALE);
1455 }
1456
1457 //-- dgesdd --------------------------------------------------------------------
1458 void
1459 LAPACK_DECL(dgesdd)(const char *JOBZ,
1460 const INTEGER *M,
1461 const INTEGER *N,
1462 DOUBLE *A,
1463 const INTEGER *LDA,
1464 DOUBLE *S,
1465 DOUBLE *U,
1466 const INTEGER *LDU,
1467 DOUBLE *VT,
1468 const INTEGER *LDVT,
1469 DOUBLE *WORK,
1470 const INTEGER *LWORK,
1471 const INTEGER *IWORK,
1472 INTEGER *INFO)
1473 {
1474 DEBUG_LAPACK_STUB("dgesdd");
1475 LAPACK_IMPL(dgesdd)(JOBZ,
1476 M,
1477 N,
1478 A,
1479 LDA,
1480 S,
1481 U,
1482 LDU,
1483 VT,
1484 LDVT,
1485 WORK,
1486 LWORK,
1487 IWORK,
1488 INFO);
1489 }
1490
1491 //-- dgesv ---------------------------------------------------------------------
1492 /*
1493 void
1494 LAPACK_DECL(dgesv)(const INTEGER *N,
1495 const INTEGER *NRHS,
1496 DOUBLE *A,
1497 const INTEGER *LDA,
1498 INTEGER *IPIV,
1499 DOUBLE *B,
1500 const INTEGER *LDB,
1501 INTEGER *INFO)
1502 {
1503 DEBUG_LAPACK_STUB("dgesv");
1504 LAPACK_IMPL(dgesv)(N,
1505 NRHS,
1506 A,
1507 LDA,
1508 IPIV,
1509 B,
1510 LDB,
1511 INFO);
1512 }
1513 */
1514
1515 //-- dgesvd --------------------------------------------------------------------
1516 void
1517 LAPACK_DECL(dgesvd)(const char *JOBU,
1518 const char *JOBVT,
1519 const INTEGER *M,
1520 const INTEGER *N,
1521 DOUBLE *A,
1522 const INTEGER *LDA,
1523 DOUBLE *S,
1524 DOUBLE *U,
1525 const INTEGER *LDU,
1526 DOUBLE *VT,
1527 const INTEGER *LDVT,
1528 DOUBLE *WORK,
1529 const INTEGER *LWORK,
1530 INTEGER *INFO)
1531 {
1532 DEBUG_LAPACK_STUB("dgesvd");
1533 LAPACK_IMPL(dgesvd)(JOBU,
1534 JOBVT,
1535 M,
1536 N,
1537 A,
1538 LDA,
1539 S,
1540 U,
1541 LDU,
1542 VT,
1543 LDVT,
1544 WORK,
1545 LWORK,
1546 INFO);
1547 }
1548
1549 //-- dgesvj --------------------------------------------------------------------
1550 void
1551 LAPACK_DECL(dgesvj)(const char *JOBA,
1552 const char *JOBU,
1553 const char *JOBV,
1554 const INTEGER *M,
1555 const INTEGER *N,
1556 DOUBLE *A,
1557 const INTEGER *LDA,
1558 DOUBLE *SVA,
1559 const INTEGER *MV,
1560 DOUBLE *V,
1561 const INTEGER *LDV,
1562 DOUBLE *WORK,
1563 const INTEGER *LWORK,
1564 INTEGER *INFO)
1565 {
1566 DEBUG_LAPACK_STUB("dgesvj");
1567 LAPACK_IMPL(dgesvj)(JOBA,
1568 JOBU,
1569 JOBV,
1570 M,
1571 N,
1572 A,
1573 LDA,
1574 SVA,
1575 MV,
1576 V,
1577 LDV,
1578 WORK,
1579 LWORK,
1580 INFO);
1581 }
1582
1583 //-- dgesvx --------------------------------------------------------------------
1584 /*
1585 void
1586 LAPACK_DECL(dgesvx)(const char *FACT,
1587 const char *TRANS,
1588 const INTEGER *N,
1589 const INTEGER *NRHS,
1590 DOUBLE *A,
1591 const INTEGER *LDA,
1592 DOUBLE *AF,
1593 const INTEGER *LDAF,
1594 INTEGER *IPIV,
1595 char *EQUED,
1596 DOUBLE *R,
1597 DOUBLE *C,
1598 DOUBLE *B,
1599 const INTEGER *LDB,
1600 DOUBLE *X,
1601 const INTEGER *LDX,
1602 DOUBLE *RCOND,
1603 DOUBLE *FERR,
1604 DOUBLE *BERR,
1605 DOUBLE *WORK,
1606 const INTEGER *IWORK,
1607 INTEGER *INFO)
1608 {
1609 DEBUG_LAPACK_STUB("dgesvx");
1610 LAPACK_IMPL(dgesvx)(FACT,
1611 TRANS,
1612 N,
1613 NRHS,
1614 A,
1615 LDA,
1616 AF,
1617 LDAF,
1618 IPIV,
1619 EQUED,
1620 R,
1621 C,
1622 B,
1623 LDB,
1624 X,
1625 LDX,
1626 RCOND,
1627 FERR,
1628 BERR,
1629 WORK,
1630 IWORK,
1631 INFO);
1632 }
1633 */
1634
1635 //-- dgetc2 --------------------------------------------------------------------
1636 void
1637 LAPACK_DECL(dgetc2)(const INTEGER *N,
1638 DOUBLE *A,
1639 const INTEGER *LDA,
1640 INTEGER *IPIV,
1641 INTEGER *JPIV,
1642 INTEGER *INFO)
1643 {
1644 DEBUG_LAPACK_STUB("dgetc2");
1645 LAPACK_IMPL(dgetc2)(N,
1646 A,
1647 LDA,
1648 IPIV,
1649 JPIV,
1650 INFO);
1651 }
1652
1653 //-- dgetf2 --------------------------------------------------------------------
1654 void
1655 LAPACK_DECL(dgetf2)(const INTEGER *M,
1656 const INTEGER *N,
1657 DOUBLE *A,
1658 const INTEGER *LDA,
1659 INTEGER *IPIV,
1660 INTEGER *INFO)
1661 {
1662 DEBUG_LAPACK_STUB("dgetf2");
1663 LAPACK_IMPL(dgetf2)(M,
1664 N,
1665 A,
1666 LDA,
1667 IPIV,
1668 INFO);
1669 }
1670
1671 //-- dgetrf --------------------------------------------------------------------
1672 /*
1673 void
1674 LAPACK_DECL(dgetrf)(const INTEGER *M,
1675 const INTEGER *,//N,
1676 DOUBLE *,//A,
1677 const INTEGER *,//LDA,
1678 INTEGER *IPIV,
1679 INTEGER *INFO)
1680 {
1681 DEBUG_LAPACK_STUB("dgetrf");
1682 *INFO = 0;
1683 for (int i=0; i<*M; ++i) {
1684 IPIV[i] = i+1;
1685 }
1686 //LAPACK_IMPL(dgetrf)(M, N, A, LDA, IPIV, INFO);
1687 }
1688 */
1689
1690
1691 //-- dgetri --------------------------------------------------------------------
1692 /*
1693 void
1694 LAPACK_DECL(dgetri)(const INTEGER *N,
1695 DOUBLE *A,
1696 const INTEGER *LDA,
1697 const INTEGER *IPIV,
1698 DOUBLE *WORK,
1699 const INTEGER *LWORK,
1700 INTEGER *INFO)
1701 {
1702 DEBUG_LAPACK_STUB("dgetri");
1703 std::cerr << "dgetri" << std::endl;
1704 LAPACK_IMPL(dgetri)(N,
1705 A,
1706 LDA,
1707 IPIV,
1708 WORK,
1709 LWORK,
1710 INFO);
1711 }
1712 */
1713
1714 //-- dgetrs --------------------------------------------------------------------
1715 /*
1716 void
1717 LAPACK_DECL(dgetrs)(const char *TRANS,
1718 const INTEGER *N,
1719 const INTEGER *NRHS,
1720 const DOUBLE *A,
1721 const INTEGER *LDA,
1722 const INTEGER *IPIV,
1723 DOUBLE *B,
1724 const INTEGER *LDB,
1725 INTEGER *INFO)
1726 {
1727 DEBUG_LAPACK_STUB("dgetrs");
1728 LAPACK_IMPL(dgetrs)(TRANS,
1729 N,
1730 NRHS,
1731 A,
1732 LDA,
1733 IPIV,
1734 B,
1735 LDB,
1736 INFO);
1737 }
1738 */
1739
1740 //-- dggbak --------------------------------------------------------------------
1741 void
1742 LAPACK_DECL(dggbak)(const char *JOB,
1743 const char *SIDE,
1744 const INTEGER *N,
1745 const INTEGER *ILO,
1746 const INTEGER *IHI,
1747 const DOUBLE *LSCALE,
1748 const DOUBLE *RSCALE,
1749 const INTEGER *M,
1750 DOUBLE *V,
1751 const INTEGER *LDV,
1752 INTEGER *INFO)
1753 {
1754 DEBUG_LAPACK_STUB("dggbak");
1755 LAPACK_IMPL(dggbak)(JOB,
1756 SIDE,
1757 N,
1758 ILO,
1759 IHI,
1760 LSCALE,
1761 RSCALE,
1762 M,
1763 V,
1764 LDV,
1765 INFO);
1766 }
1767
1768 //-- dggbal --------------------------------------------------------------------
1769 void
1770 LAPACK_DECL(dggbal)(const char *JOB,
1771 const INTEGER *N,
1772 DOUBLE *A,
1773 const INTEGER *LDA,
1774 DOUBLE *B,
1775 const INTEGER *LDB,
1776 INTEGER *ILO,
1777 INTEGER *IHI,
1778 DOUBLE *LSCALE,
1779 DOUBLE *RSCALE,
1780 const DOUBLE *WORK,
1781 INTEGER *INFO)
1782 {
1783 DEBUG_LAPACK_STUB("dggbal");
1784 LAPACK_IMPL(dggbal)(JOB,
1785 N,
1786 A,
1787 LDA,
1788 B,
1789 LDB,
1790 ILO,
1791 IHI,
1792 LSCALE,
1793 RSCALE,
1794 WORK,
1795 INFO);
1796 }
1797
1798 //-- dgges ---------------------------------------------------------------------
1799 void
1800 LAPACK_DECL(dgges)(const char *JOBVSL,
1801 const char *JOBVSR,
1802 const char *SORT,
1803 const LOGICAL *SELCTG,
1804 const INTEGER *N,
1805 DOUBLE *A,
1806 const INTEGER *LDA,
1807 DOUBLE *B,
1808 const INTEGER *LDB,
1809 INTEGER *SDIM,
1810 DOUBLE *ALPHAR,
1811 DOUBLE *ALPHAI,
1812 DOUBLE *BETA,
1813 DOUBLE *VSL,
1814 const INTEGER *LDVSL,
1815 DOUBLE *VSR,
1816 const INTEGER *LDVSR,
1817 DOUBLE *WORK,
1818 const INTEGER *LWORK,
1819 const LOGICAL *BWORK,
1820 INTEGER *INFO)
1821 {
1822 DEBUG_LAPACK_STUB("dgges");
1823 LAPACK_IMPL(dgges)(JOBVSL,
1824 JOBVSR,
1825 SORT,
1826 SELCTG,
1827 N,
1828 A,
1829 LDA,
1830 B,
1831 LDB,
1832 SDIM,
1833 ALPHAR,
1834 ALPHAI,
1835 BETA,
1836 VSL,
1837 LDVSL,
1838 VSR,
1839 LDVSR,
1840 WORK,
1841 LWORK,
1842 BWORK,
1843 INFO);
1844 }
1845
1846 //-- dggesx --------------------------------------------------------------------
1847 void
1848 LAPACK_DECL(dggesx)(const char *JOBVSL,
1849 const char *JOBVSR,
1850 const char *SORT,
1851 const LOGICAL *SELCTG,
1852 const char *SENSE,
1853 const INTEGER *N,
1854 DOUBLE *A,
1855 const INTEGER *LDA,
1856 DOUBLE *B,
1857 const INTEGER *LDB,
1858 INTEGER *SDIM,
1859 DOUBLE *ALPHAR,
1860 DOUBLE *ALPHAI,
1861 DOUBLE *BETA,
1862 DOUBLE *VSL,
1863 const INTEGER *LDVSL,
1864 DOUBLE *VSR,
1865 const INTEGER *LDVSR,
1866 DOUBLE *RCONDE,
1867 DOUBLE *RCONDV,
1868 DOUBLE *WORK,
1869 const INTEGER *LWORK,
1870 const INTEGER *IWORK,
1871 const INTEGER *LIWORK,
1872 const LOGICAL *BWORK,
1873 INTEGER *INFO)
1874 {
1875 DEBUG_LAPACK_STUB("dggesx");
1876 LAPACK_IMPL(dggesx)(JOBVSL,
1877 JOBVSR,
1878 SORT,
1879 SELCTG,
1880 SENSE,
1881 N,
1882 A,
1883 LDA,
1884 B,
1885 LDB,
1886 SDIM,
1887 ALPHAR,
1888 ALPHAI,
1889 BETA,
1890 VSL,
1891 LDVSL,
1892 VSR,
1893 LDVSR,
1894 RCONDE,
1895 RCONDV,
1896 WORK,
1897 LWORK,
1898 IWORK,
1899 LIWORK,
1900 BWORK,
1901 INFO);
1902 }
1903
1904 //-- dggev ---------------------------------------------------------------------
1905 void
1906 LAPACK_DECL(dggev)(const char *JOBVL,
1907 const char *JOBVR,
1908 const INTEGER *N,
1909 DOUBLE *A,
1910 const INTEGER *LDA,
1911 DOUBLE *B,
1912 const INTEGER *LDB,
1913 DOUBLE *ALPHAR,
1914 DOUBLE *ALPHAI,
1915 DOUBLE *BETA,
1916 DOUBLE *VL,
1917 const INTEGER *LDVL,
1918 DOUBLE *VR,
1919 const INTEGER *LDVR,
1920 DOUBLE *WORK,
1921 const INTEGER *LWORK,
1922 INTEGER *INFO)
1923 {
1924 DEBUG_LAPACK_STUB("dggev");
1925 LAPACK_IMPL(dggev)(JOBVL,
1926 JOBVR,
1927 N,
1928 A,
1929 LDA,
1930 B,
1931 LDB,
1932 ALPHAR,
1933 ALPHAI,
1934 BETA,
1935 VL,
1936 LDVL,
1937 VR,
1938 LDVR,
1939 WORK,
1940 LWORK,
1941 INFO);
1942 }
1943
1944 //-- dggevx --------------------------------------------------------------------
1945 void
1946 LAPACK_DECL(dggevx)(const char *BALANC,
1947 const char *JOBVL,
1948 const char *JOBVR,
1949 const char *SENSE,
1950 const INTEGER *N,
1951 DOUBLE *A,
1952 const INTEGER *LDA,
1953 DOUBLE *B,
1954 const INTEGER *LDB,
1955 DOUBLE *ALPHAR,
1956 DOUBLE *ALPHAI,
1957 DOUBLE *BETA,
1958 DOUBLE *VL,
1959 const INTEGER *LDVL,
1960 DOUBLE *VR,
1961 const INTEGER *LDVR,
1962 INTEGER *ILO,
1963 INTEGER *IHI,
1964 DOUBLE *LSCALE,
1965 DOUBLE *RSCALE,
1966 DOUBLE *ABNRM,
1967 DOUBLE *BBNRM,
1968 DOUBLE *RCONDE,
1969 DOUBLE *RCONDV,
1970 DOUBLE *WORK,
1971 const INTEGER *LWORK,
1972 const INTEGER *IWORK,
1973 const LOGICAL *BWORK,
1974 INTEGER *INFO)
1975 {
1976 DEBUG_LAPACK_STUB("dggevx");
1977 LAPACK_IMPL(dggevx)(BALANC,
1978 JOBVL,
1979 JOBVR,
1980 SENSE,
1981 N,
1982 A,
1983 LDA,
1984 B,
1985 LDB,
1986 ALPHAR,
1987 ALPHAI,
1988 BETA,
1989 VL,
1990 LDVL,
1991 VR,
1992 LDVR,
1993 ILO,
1994 IHI,
1995 LSCALE,
1996 RSCALE,
1997 ABNRM,
1998 BBNRM,
1999 RCONDE,
2000 RCONDV,
2001 WORK,
2002 LWORK,
2003 IWORK,
2004 BWORK,
2005 INFO);
2006 }
2007
2008 //-- dggglm --------------------------------------------------------------------
2009 void
2010 LAPACK_DECL(dggglm)(const INTEGER *N,
2011 const INTEGER *M,
2012 const INTEGER *P,
2013 DOUBLE *A,
2014 const INTEGER *LDA,
2015 DOUBLE *B,
2016 const INTEGER *LDB,
2017 DOUBLE *D,
2018 DOUBLE *X,
2019 DOUBLE *Y,
2020 DOUBLE *WORK,
2021 const INTEGER *LWORK,
2022 INTEGER *INFO)
2023 {
2024 DEBUG_LAPACK_STUB("dggglm");
2025 LAPACK_IMPL(dggglm)(N,
2026 M,
2027 P,
2028 A,
2029 LDA,
2030 B,
2031 LDB,
2032 D,
2033 X,
2034 Y,
2035 WORK,
2036 LWORK,
2037 INFO);
2038 }
2039
2040 //-- dgghrd --------------------------------------------------------------------
2041 void
2042 LAPACK_DECL(dgghrd)(const char *COMPQ,
2043 const char *COMPZ,
2044 const INTEGER *N,
2045 const INTEGER *ILO,
2046 const INTEGER *IHI,
2047 DOUBLE *A,
2048 const INTEGER *LDA,
2049 DOUBLE *B,
2050 const INTEGER *LDB,
2051 DOUBLE *Q,
2052 const INTEGER *LDQ,
2053 DOUBLE *Z,
2054 const INTEGER *LDZ,
2055 INTEGER *INFO)
2056 {
2057 DEBUG_LAPACK_STUB("dgghrd");
2058 LAPACK_IMPL(dgghrd)(COMPQ,
2059 COMPZ,
2060 N,
2061 ILO,
2062 IHI,
2063 A,
2064 LDA,
2065 B,
2066 LDB,
2067 Q,
2068 LDQ,
2069 Z,
2070 LDZ,
2071 INFO);
2072 }
2073
2074 //-- dgglse --------------------------------------------------------------------
2075 void
2076 LAPACK_DECL(dgglse)(const INTEGER *M,
2077 const INTEGER *N,
2078 const INTEGER *P,
2079 DOUBLE *A,
2080 const INTEGER *LDA,
2081 DOUBLE *B,
2082 const INTEGER *LDB,
2083 DOUBLE *C,
2084 DOUBLE *D,
2085 DOUBLE *X,
2086 DOUBLE *WORK,
2087 const INTEGER *LWORK,
2088 INTEGER *INFO)
2089 {
2090 DEBUG_LAPACK_STUB("dgglse");
2091 LAPACK_IMPL(dgglse)(M,
2092 N,
2093 P,
2094 A,
2095 LDA,
2096 B,
2097 LDB,
2098 C,
2099 D,
2100 X,
2101 WORK,
2102 LWORK,
2103 INFO);
2104 }
2105
2106 //-- dggqrf --------------------------------------------------------------------
2107 void
2108 LAPACK_DECL(dggqrf)(const INTEGER *N,
2109 const INTEGER *M,
2110 const INTEGER *P,
2111 DOUBLE *A,
2112 const INTEGER *LDA,
2113 DOUBLE *TAUA,
2114 DOUBLE *B,
2115 const INTEGER *LDB,
2116 DOUBLE *TAUB,
2117 DOUBLE *WORK,
2118 const INTEGER *LWORK,
2119 INTEGER *INFO)
2120 {
2121 DEBUG_LAPACK_STUB("dggqrf");
2122 LAPACK_IMPL(dggqrf)(N,
2123 M,
2124 P,
2125 A,
2126 LDA,
2127 TAUA,
2128 B,
2129 LDB,
2130 TAUB,
2131 WORK,
2132 LWORK,
2133 INFO);
2134 }
2135
2136 //-- dggrqf --------------------------------------------------------------------
2137 void
2138 LAPACK_DECL(dggrqf)(const INTEGER *M,
2139 const INTEGER *P,
2140 const INTEGER *N,
2141 DOUBLE *A,
2142 const INTEGER *LDA,
2143 DOUBLE *TAUA,
2144 DOUBLE *B,
2145 const INTEGER *LDB,
2146 DOUBLE *TAUB,
2147 DOUBLE *WORK,
2148 const INTEGER *LWORK,
2149 INTEGER *INFO)
2150 {
2151 DEBUG_LAPACK_STUB("dggrqf");
2152 LAPACK_IMPL(dggrqf)(M,
2153 P,
2154 N,
2155 A,
2156 LDA,
2157 TAUA,
2158 B,
2159 LDB,
2160 TAUB,
2161 WORK,
2162 LWORK,
2163 INFO);
2164 }
2165
2166 //-- dggsvd --------------------------------------------------------------------
2167 void
2168 LAPACK_DECL(dggsvd)(const char *JOBU,
2169 const char *JOBV,
2170 const char *JOBQ,
2171 const INTEGER *M,
2172 const INTEGER *N,
2173 const INTEGER *P,
2174 INTEGER *K,
2175 INTEGER *L,
2176 DOUBLE *A,
2177 const INTEGER *LDA,
2178 DOUBLE *B,
2179 const INTEGER *LDB,
2180 DOUBLE *ALPHA,
2181 DOUBLE *BETA,
2182 DOUBLE *U,
2183 const INTEGER *LDU,
2184 DOUBLE *V,
2185 const INTEGER *LDV,
2186 DOUBLE *Q,
2187 const INTEGER *LDQ,
2188 const DOUBLE *WORK,
2189 INTEGER *IWORK,
2190 INTEGER *INFO)
2191 {
2192 DEBUG_LAPACK_STUB("dggsvd");
2193 LAPACK_IMPL(dggsvd)(JOBU,
2194 JOBV,
2195 JOBQ,
2196 M,
2197 N,
2198 P,
2199 K,
2200 L,
2201 A,
2202 LDA,
2203 B,
2204 LDB,
2205 ALPHA,
2206 BETA,
2207 U,
2208 LDU,
2209 V,
2210 LDV,
2211 Q,
2212 LDQ,
2213 WORK,
2214 IWORK,
2215 INFO);
2216 }
2217
2218 //-- dggsvp --------------------------------------------------------------------
2219 void
2220 LAPACK_DECL(dggsvp)(const char *JOBU,
2221 const char *JOBV,
2222 const char *JOBQ,
2223 const INTEGER *M,
2224 const INTEGER *P,
2225 const INTEGER *N,
2226 DOUBLE *A,
2227 const INTEGER *LDA,
2228 DOUBLE *B,
2229 const INTEGER *LDB,
2230 const DOUBLE *TOLA,
2231 const DOUBLE *TOLB,
2232 INTEGER *K,
2233 INTEGER *L,
2234 DOUBLE *U,
2235 const INTEGER *LDU,
2236 DOUBLE *V,
2237 const INTEGER *LDV,
2238 DOUBLE *Q,
2239 const INTEGER *LDQ,
2240 const INTEGER *IWORK,
2241 const DOUBLE *TAU,
2242 const DOUBLE *WORK,
2243 INTEGER *INFO)
2244 {
2245 DEBUG_LAPACK_STUB("dggsvp");
2246 LAPACK_IMPL(dggsvp)(JOBU,
2247 JOBV,
2248 JOBQ,
2249 M,
2250 P,
2251 N,
2252 A,
2253 LDA,
2254 B,
2255 LDB,
2256 TOLA,
2257 TOLB,
2258 K,
2259 L,
2260 U,
2261 LDU,
2262 V,
2263 LDV,
2264 Q,
2265 LDQ,
2266 IWORK,
2267 TAU,
2268 WORK,
2269 INFO);
2270 }
2271
2272 //-- dgsvj0 --------------------------------------------------------------------
2273 void
2274 LAPACK_DECL(dgsvj0)(const char *JOBV,
2275 const INTEGER *M,
2276 const INTEGER *N,
2277 DOUBLE *A,
2278 const INTEGER *LDA,
2279 DOUBLE *D,
2280 DOUBLE *SVA,
2281 const INTEGER *MV,
2282 DOUBLE *V,
2283 const INTEGER *LDV,
2284 const DOUBLE *EPS,
2285 const DOUBLE *SFMIN,
2286 const DOUBLE *TOL,
2287 const INTEGER *NSWEEP,
2288 const DOUBLE *WORK,
2289 const INTEGER *LWORK,
2290 INTEGER *INFO)
2291 {
2292 DEBUG_LAPACK_STUB("dgsvj0");
2293 LAPACK_IMPL(dgsvj0)(JOBV,
2294 M,
2295 N,
2296 A,
2297 LDA,
2298 D,
2299 SVA,
2300 MV,
2301 V,
2302 LDV,
2303 EPS,
2304 SFMIN,
2305 TOL,
2306 NSWEEP,
2307 WORK,
2308 LWORK,
2309 INFO);
2310 }
2311
2312 //-- dgsvj1 --------------------------------------------------------------------
2313 void
2314 LAPACK_DECL(dgsvj1)(const char *JOBV,
2315 const INTEGER *M,
2316 const INTEGER *N,
2317 const INTEGER *N1,
2318 DOUBLE *A,
2319 const INTEGER *LDA,
2320 DOUBLE *D,
2321 DOUBLE *SVA,
2322 const INTEGER *MV,
2323 DOUBLE *V,
2324 const INTEGER *LDV,
2325 const DOUBLE *EPS,
2326 const DOUBLE *SFMIN,
2327 const DOUBLE *TOL,
2328 const INTEGER *NSWEEP,
2329 const DOUBLE *WORK,
2330 const INTEGER *LWORK,
2331 INTEGER *INFO)
2332 {
2333 DEBUG_LAPACK_STUB("dgsvj1");
2334 LAPACK_IMPL(dgsvj1)(JOBV,
2335 M,
2336 N,
2337 N1,
2338 A,
2339 LDA,
2340 D,
2341 SVA,
2342 MV,
2343 V,
2344 LDV,
2345 EPS,
2346 SFMIN,
2347 TOL,
2348 NSWEEP,
2349 WORK,
2350 LWORK,
2351 INFO);
2352 }
2353
2354 //-- dgtcon --------------------------------------------------------------------
2355 void
2356 LAPACK_DECL(dgtcon)(const char *NORM,
2357 const INTEGER *N,
2358 const DOUBLE *DL,
2359 const DOUBLE *D,
2360 const DOUBLE *DU,
2361 const DOUBLE *DU2,
2362 const INTEGER *IPIV,
2363 const DOUBLE *ANORM,
2364 DOUBLE *RCOND,
2365 const DOUBLE *WORK,
2366 const INTEGER *IWORK,
2367 INTEGER *INFO)
2368 {
2369 DEBUG_LAPACK_STUB("dgtcon");
2370 LAPACK_IMPL(dgtcon)(NORM,
2371 N,
2372 DL,
2373 D,
2374 DU,
2375 DU2,
2376 IPIV,
2377 ANORM,
2378 RCOND,
2379 WORK,
2380 IWORK,
2381 INFO);
2382 }
2383
2384 //-- dgtrfs --------------------------------------------------------------------
2385 void
2386 LAPACK_DECL(dgtrfs)(const char *TRANS,
2387 const INTEGER *N,
2388 const INTEGER *NRHS,
2389 const DOUBLE *DL,
2390 const DOUBLE *D,
2391 const DOUBLE *DU,
2392 const DOUBLE *DLF,
2393 const DOUBLE *DF,
2394 const DOUBLE *DUF,
2395 const DOUBLE *DU2,
2396 const INTEGER *IPIV,
2397 const DOUBLE *B,
2398 const INTEGER *LDB,
2399 DOUBLE *X,
2400 const INTEGER *LDX,
2401 DOUBLE *FERR,
2402 DOUBLE *BERR,
2403 const DOUBLE *WORK,
2404 const INTEGER *IWORK,
2405 INTEGER *INFO)
2406 {
2407 DEBUG_LAPACK_STUB("dgtrfs");
2408 LAPACK_IMPL(dgtrfs)(TRANS,
2409 N,
2410 NRHS,
2411 DL,
2412 D,
2413 DU,
2414 DLF,
2415 DF,
2416 DUF,
2417 DU2,
2418 IPIV,
2419 B,
2420 LDB,
2421 X,
2422 LDX,
2423 FERR,
2424 BERR,
2425 WORK,
2426 IWORK,
2427 INFO);
2428 }
2429
2430 //-- dgtsv ---------------------------------------------------------------------
2431 void
2432 LAPACK_DECL(dgtsv)(const INTEGER *N,
2433 const INTEGER *NRHS,
2434 DOUBLE *DL,
2435 DOUBLE *D,
2436 DOUBLE *DU,
2437 DOUBLE *B,
2438 const INTEGER *LDB,
2439 INTEGER *INFO)
2440 {
2441 DEBUG_LAPACK_STUB("dgtsv");
2442 LAPACK_IMPL(dgtsv)(N,
2443 NRHS,
2444 DL,
2445 D,
2446 DU,
2447 B,
2448 LDB,
2449 INFO);
2450 }
2451
2452 //-- dgtsvx --------------------------------------------------------------------
2453 void
2454 LAPACK_DECL(dgtsvx)(const char *FACT,
2455 const char *TRANS,
2456 const INTEGER *N,
2457 const INTEGER *NRHS,
2458 const DOUBLE *DL,
2459 const DOUBLE *D,
2460 const DOUBLE *DU,
2461 DOUBLE *DLF,
2462 DOUBLE *DF,
2463 DOUBLE *DUF,
2464 DOUBLE *DU2,
2465 INTEGER *IPIV,
2466 const DOUBLE *B,
2467 const INTEGER *LDB,
2468 DOUBLE *X,
2469 const INTEGER *LDX,
2470 DOUBLE *RCOND,
2471 DOUBLE *FERR,
2472 DOUBLE *BERR,
2473 const DOUBLE *WORK,
2474 const INTEGER *IWORK,
2475 INTEGER *INFO)
2476 {
2477 DEBUG_LAPACK_STUB("dgtsvx");
2478 LAPACK_IMPL(dgtsvx)(FACT,
2479 TRANS,
2480 N,
2481 NRHS,
2482 DL,
2483 D,
2484 DU,
2485 DLF,
2486 DF,
2487 DUF,
2488 DU2,
2489 IPIV,
2490 B,
2491 LDB,
2492 X,
2493 LDX,
2494 RCOND,
2495 FERR,
2496 BERR,
2497 WORK,
2498 IWORK,
2499 INFO);
2500 }
2501
2502 //-- dgttrf --------------------------------------------------------------------
2503 void
2504 LAPACK_DECL(dgttrf)(const INTEGER *N,
2505 DOUBLE *DL,
2506 DOUBLE *D,
2507 DOUBLE *DU,
2508 DOUBLE *DU2,
2509 INTEGER *IPIV,
2510 INTEGER *INFO)
2511 {
2512 DEBUG_LAPACK_STUB("dgttrf");
2513 LAPACK_IMPL(dgttrf)(N,
2514 DL,
2515 D,
2516 DU,
2517 DU2,
2518 IPIV,
2519 INFO);
2520 }
2521
2522 //-- dgttrs --------------------------------------------------------------------
2523 void
2524 LAPACK_DECL(dgttrs)(const char *TRANS,
2525 const INTEGER *N,
2526 const INTEGER *NRHS,
2527 const DOUBLE *DL,
2528 const DOUBLE *D,
2529 const DOUBLE *DU,
2530 const DOUBLE *DU2,
2531 const INTEGER *IPIV,
2532 DOUBLE *B,
2533 const INTEGER *LDB,
2534 INTEGER *INFO)
2535 {
2536 DEBUG_LAPACK_STUB("dgttrs");
2537 LAPACK_IMPL(dgttrs)(TRANS,
2538 N,
2539 NRHS,
2540 DL,
2541 D,
2542 DU,
2543 DU2,
2544 IPIV,
2545 B,
2546 LDB,
2547 INFO);
2548 }
2549
2550 //-- dgtts2 --------------------------------------------------------------------
2551 void
2552 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
2553 const INTEGER *N,
2554 const INTEGER *NRHS,
2555 const DOUBLE *DL,
2556 const DOUBLE *D,
2557 const DOUBLE *DU,
2558 const DOUBLE *DU2,
2559 const INTEGER *IPIV,
2560 DOUBLE *B,
2561 const INTEGER *LDB)
2562 {
2563 DEBUG_LAPACK_STUB("dgtts2");
2564 LAPACK_IMPL(dgtts2)(ITRANS,
2565 N,
2566 NRHS,
2567 DL,
2568 D,
2569 DU,
2570 DU2,
2571 IPIV,
2572 B,
2573 LDB);
2574 }
2575
2576 //-- dhgeqz --------------------------------------------------------------------
2577 void
2578 LAPACK_DECL(dhgeqz)(const char *JOB,
2579 const char *COMPQ,
2580 const char *COMPZ,
2581 const INTEGER *N,
2582 const INTEGER *ILO,
2583 const INTEGER *IHI,
2584 DOUBLE *H,
2585 const INTEGER *LDH,
2586 DOUBLE *T,
2587 const INTEGER *LDT,
2588 DOUBLE *ALPHAR,
2589 DOUBLE *ALPHAI,
2590 DOUBLE *BETA,
2591 DOUBLE *Q,
2592 const INTEGER *LDQ,
2593 DOUBLE *Z,
2594 const INTEGER *LDZ,
2595 DOUBLE *WORK,
2596 const INTEGER *LWORK,
2597 INTEGER *INFO)
2598 {
2599 DEBUG_LAPACK_STUB("dhgeqz");
2600 LAPACK_IMPL(dhgeqz)(JOB,
2601 COMPQ,
2602 COMPZ,
2603 N,
2604 ILO,
2605 IHI,
2606 H,
2607 LDH,
2608 T,
2609 LDT,
2610 ALPHAR,
2611 ALPHAI,
2612 BETA,
2613 Q,
2614 LDQ,
2615 Z,
2616 LDZ,
2617 WORK,
2618 LWORK,
2619 INFO);
2620 }
2621
2622 //-- dhsein --------------------------------------------------------------------
2623 void
2624 LAPACK_DECL(dhsein)(const char *SIDE,
2625 const char *EIGSRC,
2626 const char *INITV,
2627 LOGICAL *SELECT,
2628 const INTEGER *N,
2629 const DOUBLE *H,
2630 const INTEGER *LDH,
2631 DOUBLE *WR,
2632 const DOUBLE *WI,
2633 DOUBLE *VL,
2634 const INTEGER *LDVL,
2635 DOUBLE *VR,
2636 const INTEGER *LDVR,
2637 const INTEGER *MM,
2638 INTEGER *M,
2639 const DOUBLE *WORK,
2640 INTEGER *IFAILL,
2641 INTEGER *IFAILR,
2642 INTEGER *INFO)
2643 {
2644 DEBUG_LAPACK_STUB("dhsein");
2645 LAPACK_IMPL(dhsein)(SIDE,
2646 EIGSRC,
2647 INITV,
2648 SELECT,
2649 N,
2650 H,
2651 LDH,
2652 WR,
2653 WI,
2654 VL,
2655 LDVL,
2656 VR,
2657 LDVR,
2658 MM,
2659 M,
2660 WORK,
2661 IFAILL,
2662 IFAILR,
2663 INFO);
2664 }
2665
2666 //-- dhseqr --------------------------------------------------------------------
2667 void
2668 LAPACK_DECL(dhseqr)(const char *JOB,
2669 const char *COMPZ,
2670 const INTEGER *N,
2671 const INTEGER *ILO,
2672 const INTEGER *IHI,
2673 DOUBLE *H,
2674 const INTEGER *LDH,
2675 DOUBLE *WR,
2676 DOUBLE *WI,
2677 DOUBLE *Z,
2678 const INTEGER *LDZ,
2679 DOUBLE *WORK,
2680 const INTEGER *LWORK,
2681 INTEGER *INFO)
2682 {
2683 DEBUG_LAPACK_STUB("dhseqr");
2684 LAPACK_IMPL(dhseqr)(JOB,
2685 COMPZ,
2686 N,
2687 ILO,
2688 IHI,
2689 H,
2690 LDH,
2691 WR,
2692 WI,
2693 Z,
2694 LDZ,
2695 WORK,
2696 LWORK,
2697 INFO);
2698 }
2699
2700 //-- disnan --------------------------------------------------------------------
2701 LOGICAL
2702 LAPACK_DECL(disnan)(const DOUBLE *DIN)
2703 {
2704 DEBUG_LAPACK_STUB("disnan");
2705 return LAPACK_IMPL(disnan)(DIN);
2706 }
2707
2708 //-- dla_gbamv -----------------------------------------------------------------
2709 void
2710 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
2711 const INTEGER *M,
2712 const INTEGER *N,
2713 const INTEGER *KL,
2714 const INTEGER *KU,
2715 const DOUBLE *ALPHA,
2716 const DOUBLE *AB,
2717 const INTEGER *LDAB,
2718 const DOUBLE *X,
2719 const INTEGER *INCX,
2720 const DOUBLE *BETA,
2721 DOUBLE *Y,
2722 const INTEGER *INCY)
2723 {
2724 DEBUG_LAPACK_STUB("dla_gbamv");
2725 LAPACK_IMPL(dla_gbamv)(TRANS,
2726 M,
2727 N,
2728 KL,
2729 KU,
2730 ALPHA,
2731 AB,
2732 LDAB,
2733 X,
2734 INCX,
2735 BETA,
2736 Y,
2737 INCY);
2738 }
2739
2740 //-- dla_gbrcond ---------------------------------------------------------------
2741 DOUBLE
2742 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
2743 const INTEGER *N,
2744 const INTEGER *KL,
2745 const INTEGER *KU,
2746 const DOUBLE *AB,
2747 const INTEGER *LDAB,
2748 const DOUBLE *AFB,
2749 const INTEGER *LDAFB,
2750 const INTEGER *IPIV,
2751 const INTEGER *CMODE,
2752 const DOUBLE *C,
2753 INTEGER *INFO,
2754 const DOUBLE *WORK,
2755 const INTEGER *IWORK)
2756 {
2757 DEBUG_LAPACK_STUB("dla_gbrcond");
2758 return LAPACK_IMPL(dla_gbrcond)(TRANS,
2759 N,
2760 KL,
2761 KU,
2762 AB,
2763 LDAB,
2764 AFB,
2765 LDAFB,
2766 IPIV,
2767 CMODE,
2768 C,
2769 INFO,
2770 WORK,
2771 IWORK);
2772 }
2773
2774 //-- dla_gbrpvgrw --------------------------------------------------------------
2775 DOUBLE
2776 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
2777 const INTEGER *KL,
2778 const INTEGER *KU,
2779 const INTEGER *NCOLS,
2780 const DOUBLE *AB,
2781 const INTEGER *LDAB,
2782 const DOUBLE *AFB,
2783 const INTEGER *LDAFB)
2784 {
2785 DEBUG_LAPACK_STUB("dla_gbrpvgrw");
2786 return LAPACK_IMPL(dla_gbrpvgrw)(N,
2787 KL,
2788 KU,
2789 NCOLS,
2790 AB,
2791 LDAB,
2792 AFB,
2793 LDAFB);
2794 }
2795
2796 //-- dla_geamv -----------------------------------------------------------------
2797 void
2798 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
2799 const INTEGER *M,
2800 const INTEGER *N,
2801 const DOUBLE *ALPHA,
2802 const DOUBLE *A,
2803 const INTEGER *LDA,
2804 const DOUBLE *X,
2805 const INTEGER *INCX,
2806 const DOUBLE *BETA,
2807 DOUBLE *Y,
2808 const INTEGER *INCY)
2809 {
2810 DEBUG_LAPACK_STUB("dla_geamv");
2811 LAPACK_IMPL(dla_geamv)(TRANS,
2812 M,
2813 N,
2814 ALPHA,
2815 A,
2816 LDA,
2817 X,
2818 INCX,
2819 BETA,
2820 Y,
2821 INCY);
2822 }
2823
2824 //-- dla_gercond ---------------------------------------------------------------
2825 DOUBLE
2826 LAPACK_DECL(dla_gercond)(const char *TRANS,
2827 const INTEGER *N,
2828 const DOUBLE *A,
2829 const INTEGER *LDA,
2830 const DOUBLE *AF,
2831 const INTEGER *LDAF,
2832 const INTEGER *IPIV,
2833 const INTEGER *CMODE,
2834 const DOUBLE *C,
2835 INTEGER *INFO,
2836 const DOUBLE *WORK,
2837 const INTEGER *IWORK)
2838 {
2839 DEBUG_LAPACK_STUB("dla_gercond");
2840 return LAPACK_IMPL(dla_gercond)(TRANS,
2841 N,
2842 A,
2843 LDA,
2844 AF,
2845 LDAF,
2846 IPIV,
2847 CMODE,
2848 C,
2849 INFO,
2850 WORK,
2851 IWORK);
2852 }
2853
2854 //-- dla_lin_berr --------------------------------------------------------------
2855 void
2856 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
2857 const INTEGER *NZ,
2858 const INTEGER *NRHS,
2859 const DOUBLE *RES,
2860 const DOUBLE *AYB,
2861 DOUBLE *BERR)
2862 {
2863 DEBUG_LAPACK_STUB("dla_lin_berr");
2864 LAPACK_IMPL(dla_lin_berr)(N,
2865 NZ,
2866 NRHS,
2867 RES,
2868 AYB,
2869 BERR);
2870 }
2871
2872 //-- dla_porcond ---------------------------------------------------------------
2873 DOUBLE
2874 LAPACK_DECL(dla_porcond)(const char *UPLO,
2875 const INTEGER *N,
2876 const DOUBLE *A,
2877 const INTEGER *LDA,
2878 const DOUBLE *AF,
2879 const INTEGER *LDAF,
2880 const INTEGER *CMODE,
2881 const DOUBLE *C,
2882 INTEGER *INFO,
2883 const DOUBLE *WORK,
2884 const INTEGER *IWORK)
2885 {
2886 DEBUG_LAPACK_STUB("dla_porcond");
2887 return LAPACK_IMPL(dla_porcond)(UPLO,
2888 N,
2889 A,
2890 LDA,
2891 AF,
2892 LDAF,
2893 CMODE,
2894 C,
2895 INFO,
2896 WORK,
2897 IWORK);
2898 }
2899
2900 //-- dla_porpvgrw --------------------------------------------------------------
2901 DOUBLE
2902 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
2903 const INTEGER *NCOLS,
2904 const DOUBLE *A,
2905 const INTEGER *LDA,
2906 const DOUBLE *AF,
2907 const INTEGER *LDAF,
2908 const DOUBLE *WORK)
2909 {
2910 DEBUG_LAPACK_STUB("dla_porpvgrw");
2911 return LAPACK_IMPL(dla_porpvgrw)(UPLO,
2912 NCOLS,
2913 A,
2914 LDA,
2915 AF,
2916 LDAF,
2917 WORK);
2918 }
2919
2920 //-- dla_rpvgrw ----------------------------------------------------------------
2921 DOUBLE
2922 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
2923 const INTEGER *NCOLS,
2924 const DOUBLE *A,
2925 const INTEGER *LDA,
2926 const DOUBLE *AF,
2927 const INTEGER *LDAF)
2928 {
2929 DEBUG_LAPACK_STUB("dla_rpvgrw");
2930 return LAPACK_IMPL(dla_rpvgrw)(N,
2931 NCOLS,
2932 A,
2933 LDA,
2934 AF,
2935 LDAF);
2936 }
2937
2938 //-- dla_syamv -----------------------------------------------------------------
2939 void
2940 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
2941 const INTEGER *N,
2942 const DOUBLE *ALPHA,
2943 const DOUBLE *A,
2944 const INTEGER *LDA,
2945 const DOUBLE *X,
2946 const INTEGER *INCX,
2947 const DOUBLE *BETA,
2948 DOUBLE *Y,
2949 const INTEGER *INCY)
2950 {
2951 DEBUG_LAPACK_STUB("dla_syamv");
2952 LAPACK_IMPL(dla_syamv)(UPLO,
2953 N,
2954 ALPHA,
2955 A,
2956 LDA,
2957 X,
2958 INCX,
2959 BETA,
2960 Y,
2961 INCY);
2962 }
2963
2964 //-- dla_syrcond ---------------------------------------------------------------
2965 DOUBLE
2966 LAPACK_DECL(dla_syrcond)(const char *UPLO,
2967 const INTEGER *N,
2968 const DOUBLE *A,
2969 const INTEGER *LDA,
2970 const DOUBLE *AF,
2971 const INTEGER *LDAF,
2972 const INTEGER *IPIV,
2973 const INTEGER *CMODE,
2974 const DOUBLE *C,
2975 INTEGER *INFO,
2976 const DOUBLE *WORK,
2977 const INTEGER *IWORK)
2978 {
2979 DEBUG_LAPACK_STUB("dla_syrcond");
2980 return LAPACK_IMPL(dla_syrcond)(UPLO,
2981 N,
2982 A,
2983 LDA,
2984 AF,
2985 LDAF,
2986 IPIV,
2987 CMODE,
2988 C,
2989 INFO,
2990 WORK,
2991 IWORK);
2992 }
2993
2994 //-- dla_syrpvgrw --------------------------------------------------------------
2995 DOUBLE
2996 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
2997 const INTEGER *N,
2998 const INTEGER *INFO,
2999 const DOUBLE *A,
3000 const INTEGER *LDA,
3001 const DOUBLE *AF,
3002 const INTEGER *LDAF,
3003 const INTEGER *IPIV,
3004 const DOUBLE *WORK)
3005 {
3006 DEBUG_LAPACK_STUB("dla_syrpvgrw");
3007 return LAPACK_IMPL(dla_syrpvgrw)(UPLO,
3008 N,
3009 INFO,
3010 A,
3011 LDA,
3012 AF,
3013 LDAF,
3014 IPIV,
3015 WORK);
3016 }
3017
3018 //-- dla_wwaddw ----------------------------------------------------------------
3019 void
3020 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
3021 DOUBLE *X,
3022 DOUBLE *Y,
3023 const DOUBLE *W)
3024 {
3025 DEBUG_LAPACK_STUB("dla_wwaddw");
3026 LAPACK_IMPL(dla_wwaddw)(N,
3027 X,
3028 Y,
3029 W);
3030 }
3031
3032 //-- dlabad --------------------------------------------------------------------
3033 void
3034 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
3035 DOUBLE *LARGE)
3036 {
3037 DEBUG_LAPACK_STUB("dlabad");
3038 LAPACK_IMPL(dlabad)(SMALL,
3039 LARGE);
3040 }
3041
3042 //-- dlabrd --------------------------------------------------------------------
3043 void
3044 LAPACK_DECL(dlabrd)(const INTEGER *M,
3045 const INTEGER *N,
3046 const INTEGER *NB,
3047 DOUBLE *A,
3048 const INTEGER *LDA,
3049 DOUBLE *D,
3050 DOUBLE *E,
3051 DOUBLE *TAUQ,
3052 DOUBLE *TAUP,
3053 DOUBLE *X,
3054 const INTEGER *LDX,
3055 DOUBLE *Y,
3056 const INTEGER *LDY)
3057 {
3058 DEBUG_LAPACK_STUB("dlabrd");
3059 LAPACK_IMPL(dlabrd)(M,
3060 N,
3061 NB,
3062 A,
3063 LDA,
3064 D,
3065 E,
3066 TAUQ,
3067 TAUP,
3068 X,
3069 LDX,
3070 Y,
3071 LDY);
3072 }
3073
3074 //-- dlacn2 --------------------------------------------------------------------
3075 void
3076 LAPACK_DECL(dlacn2)(const INTEGER *N,
3077 const DOUBLE *V,
3078 DOUBLE *X,
3079 const INTEGER *ISGN,
3080 DOUBLE *EST,
3081 INTEGER *KASE,
3082 INTEGER *ISAVE)
3083 {
3084 DEBUG_LAPACK_STUB("dlacn2");
3085 std::cerr << "dlacn2" << std::endl;
3086 LAPACK_IMPL(dlacn2)(N,
3087 V,
3088 X,
3089 ISGN,
3090 EST,
3091 KASE,
3092 ISAVE);
3093 }
3094
3095 //-- dlacon --------------------------------------------------------------------
3096 void
3097 LAPACK_DECL(dlacon)(const INTEGER *N,
3098 const DOUBLE *V,
3099 DOUBLE *X,
3100 const INTEGER *ISGN,
3101 DOUBLE *EST,
3102 INTEGER *KASE)
3103 {
3104 DEBUG_LAPACK_STUB("dlacon");
3105 LAPACK_IMPL(dlacon)(N,
3106 V,
3107 X,
3108 ISGN,
3109 EST,
3110 KASE);
3111 }
3112
3113 //-- dlacpy --------------------------------------------------------------------
3114 void
3115 LAPACK_DECL(dlacpy)(const char *UPLO,
3116 const INTEGER *M,
3117 const INTEGER *N,
3118 const DOUBLE *A,
3119 const INTEGER *LDA,
3120 DOUBLE *B,
3121 const INTEGER *LDB)
3122 {
3123 DEBUG_LAPACK_STUB("dlacpy");
3124 LAPACK_IMPL(dlacpy)(UPLO,
3125 M,
3126 N,
3127 A,
3128 LDA,
3129 B,
3130 LDB);
3131 }
3132
3133 //-- dladiv --------------------------------------------------------------------
3134 void
3135 LAPACK_DECL(dladiv)(const DOUBLE *A,
3136 const DOUBLE *B,
3137 const DOUBLE *C,
3138 const DOUBLE *D,
3139 DOUBLE *P,
3140 DOUBLE *Q)
3141 {
3142 DEBUG_LAPACK_STUB("dladiv");
3143 LAPACK_IMPL(dladiv)(A,
3144 B,
3145 C,
3146 D,
3147 P,
3148 Q);
3149 }
3150
3151 //-- dlae2 ---------------------------------------------------------------------
3152 void
3153 LAPACK_DECL(dlae2)(const DOUBLE *A,
3154 const DOUBLE *B,
3155 const DOUBLE *C,
3156 DOUBLE *RT1,
3157 DOUBLE *RT2)
3158 {
3159 DEBUG_LAPACK_STUB("dlae2");
3160 LAPACK_IMPL(dlae2)(A,
3161 B,
3162 C,
3163 RT1,
3164 RT2);
3165 }
3166
3167 //-- dlaebz --------------------------------------------------------------------
3168 void
3169 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
3170 const INTEGER *NITMAX,
3171 const INTEGER *N,
3172 const INTEGER *MMAX,
3173 const INTEGER *MINP,
3174 const INTEGER *NBMIN,
3175 const DOUBLE *ABSTOL,
3176 const DOUBLE *RELTOL,
3177 const DOUBLE *PIVMIN,
3178 const DOUBLE *D,
3179 const DOUBLE *E,
3180 const DOUBLE *E2,
3181 INTEGER *NVAL,
3182 DOUBLE *AB,
3183 DOUBLE *C,
3184 INTEGER *MOUT,
3185 INTEGER *NAB,
3186 const DOUBLE *WORK,
3187 const INTEGER *IWORK,
3188 INTEGER *INFO)
3189 {
3190 DEBUG_LAPACK_STUB("dlaebz");
3191 LAPACK_IMPL(dlaebz)(IJOB,
3192 NITMAX,
3193 N,
3194 MMAX,
3195 MINP,
3196 NBMIN,
3197 ABSTOL,
3198 RELTOL,
3199 PIVMIN,
3200 D,
3201 E,
3202 E2,
3203 NVAL,
3204 AB,
3205 C,
3206 MOUT,
3207 NAB,
3208 WORK,
3209 IWORK,
3210 INFO);
3211 }
3212
3213 //-- dlaed0 --------------------------------------------------------------------
3214 void
3215 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
3216 const INTEGER *QSIZ,
3217 const INTEGER *N,
3218 DOUBLE *D,
3219 const DOUBLE *E,
3220 DOUBLE *Q,
3221 const INTEGER *LDQ,
3222 const DOUBLE *QSTORE,
3223 const INTEGER *LDQS,
3224 const DOUBLE *WORK,
3225 const INTEGER *IWORK,
3226 INTEGER *INFO)
3227 {
3228 DEBUG_LAPACK_STUB("dlaed0");
3229 LAPACK_IMPL(dlaed0)(ICOMPQ,
3230 QSIZ,
3231 N,
3232 D,
3233 E,
3234 Q,
3235 LDQ,
3236 QSTORE,
3237 LDQS,
3238 WORK,
3239 IWORK,
3240 INFO);
3241 }
3242
3243 //-- dlaed1 --------------------------------------------------------------------
3244 void
3245 LAPACK_DECL(dlaed1)(const INTEGER *N,
3246 DOUBLE *D,
3247 DOUBLE *Q,
3248 const INTEGER *LDQ,
3249 INTEGER *INDXQ,
3250 const DOUBLE *RHO,
3251 const INTEGER *CUTPNT,
3252 const DOUBLE *WORK,
3253 const INTEGER *IWORK,
3254 INTEGER *INFO)
3255 {
3256 DEBUG_LAPACK_STUB("dlaed1");
3257 LAPACK_IMPL(dlaed1)(N,
3258 D,
3259 Q,
3260 LDQ,
3261 INDXQ,
3262 RHO,
3263 CUTPNT,
3264 WORK,
3265 IWORK,
3266 INFO);
3267 }
3268
3269 //-- dlaed2 --------------------------------------------------------------------
3270 void
3271 LAPACK_DECL(dlaed2)(INTEGER *K,
3272 const INTEGER *N,
3273 const INTEGER *N1,
3274 DOUBLE *D,
3275 DOUBLE *Q,
3276 const INTEGER *LDQ,
3277 INTEGER *INDXQ,
3278 DOUBLE *RHO,
3279 const DOUBLE *Z,
3280 DOUBLE *DLAMDA,
3281 DOUBLE *W,
3282 DOUBLE *Q2,
3283 const INTEGER *INDX,
3284 INTEGER *INDXC,
3285 const INTEGER *INDXP,
3286 INTEGER *COLTYP,
3287 INTEGER *INFO)
3288 {
3289 DEBUG_LAPACK_STUB("dlaed2");
3290 LAPACK_IMPL(dlaed2)(K,
3291 N,
3292 N1,
3293 D,
3294 Q,
3295 LDQ,
3296 INDXQ,
3297 RHO,
3298 Z,
3299 DLAMDA,
3300 W,
3301 Q2,
3302 INDX,
3303 INDXC,
3304 INDXP,
3305 COLTYP,
3306 INFO);
3307 }
3308
3309 //-- dlaed3 --------------------------------------------------------------------
3310 void
3311 LAPACK_DECL(dlaed3)(const INTEGER *K,
3312 const INTEGER *N,
3313 const INTEGER *N1,
3314 DOUBLE *D,
3315 DOUBLE *Q,
3316 const INTEGER *LDQ,
3317 const DOUBLE *RHO,
3318 DOUBLE *DLAMDA,
3319 const DOUBLE *Q2,
3320 const INTEGER *INDX,
3321 const INTEGER *CTOT,
3322 DOUBLE *W,
3323 const DOUBLE *S,
3324 INTEGER *INFO)
3325 {
3326 DEBUG_LAPACK_STUB("dlaed3");
3327 LAPACK_IMPL(dlaed3)(K,
3328 N,
3329 N1,
3330 D,
3331 Q,
3332 LDQ,
3333 RHO,
3334 DLAMDA,
3335 Q2,
3336 INDX,
3337 CTOT,
3338 W,
3339 S,
3340 INFO);
3341 }
3342
3343 //-- dlaed4 --------------------------------------------------------------------
3344 void
3345 LAPACK_DECL(dlaed4)(const INTEGER *N,
3346 const INTEGER *I,
3347 const DOUBLE *D,
3348 const DOUBLE *Z,
3349 DOUBLE *DELTA,
3350 const DOUBLE *RHO,
3351 DOUBLE *DLAM,
3352 INTEGER *INFO)
3353 {
3354 DEBUG_LAPACK_STUB("dlaed4");
3355 LAPACK_IMPL(dlaed4)(N,
3356 I,
3357 D,
3358 Z,
3359 DELTA,
3360 RHO,
3361 DLAM,
3362 INFO);
3363 }
3364
3365 //-- dlaed5 --------------------------------------------------------------------
3366 void
3367 LAPACK_DECL(dlaed5)(const INTEGER *I,
3368 const DOUBLE *D,
3369 const DOUBLE *Z,
3370 DOUBLE *DELTA,
3371 const DOUBLE *RHO,
3372 DOUBLE *DLAM)
3373 {
3374 DEBUG_LAPACK_STUB("dlaed5");
3375 LAPACK_IMPL(dlaed5)(I,
3376 D,
3377 Z,
3378 DELTA,
3379 RHO,
3380 DLAM);
3381 }
3382
3383 //-- dlaed6 --------------------------------------------------------------------
3384 void
3385 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
3386 const LOGICAL *ORGATI,
3387 const DOUBLE *RHO,
3388 const DOUBLE *D,
3389 const DOUBLE *Z,
3390 const DOUBLE *FINIT,
3391 DOUBLE *TAU,
3392 INTEGER *INFO)
3393 {
3394 DEBUG_LAPACK_STUB("dlaed6");
3395 LAPACK_IMPL(dlaed6)(KNITER,
3396 ORGATI,
3397 RHO,
3398 D,
3399 Z,
3400 FINIT,
3401 TAU,
3402 INFO);
3403 }
3404
3405 //-- dlaed7 --------------------------------------------------------------------
3406 void
3407 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
3408 const INTEGER *N,
3409 const INTEGER *QSIZ,
3410 const INTEGER *TLVLS,
3411 const INTEGER *CURLVL,
3412 const INTEGER *CURPBM,
3413 DOUBLE *D,
3414 DOUBLE *Q,
3415 const INTEGER *LDQ,
3416 INTEGER *INDXQ,
3417 const DOUBLE *RHO,
3418 const INTEGER *CUTPNT,
3419 DOUBLE *QSTORE,
3420 INTEGER *QPTR,
3421 const INTEGER *PRMPTR,
3422 const INTEGER *PERM,
3423 const INTEGER *GIVPTR,
3424 const INTEGER *GIVCOL,
3425 const DOUBLE *GIVNUM,
3426 const DOUBLE *WORK,
3427 const INTEGER *IWORK,
3428 INTEGER *INFO)
3429 {
3430 DEBUG_LAPACK_STUB("dlaed7");
3431 LAPACK_IMPL(dlaed7)(ICOMPQ,
3432 N,
3433 QSIZ,
3434 TLVLS,
3435 CURLVL,
3436 CURPBM,
3437 D,
3438 Q,
3439 LDQ,
3440 INDXQ,
3441 RHO,
3442 CUTPNT,
3443 QSTORE,
3444 QPTR,
3445 PRMPTR,
3446 PERM,
3447 GIVPTR,
3448 GIVCOL,
3449 GIVNUM,
3450 WORK,
3451 IWORK,
3452 INFO);
3453 }
3454
3455 //-- dlaed8 --------------------------------------------------------------------
3456 void
3457 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
3458 INTEGER *K,
3459 const INTEGER *N,
3460 const INTEGER *QSIZ,
3461 DOUBLE *D,
3462 DOUBLE *Q,
3463 const INTEGER *LDQ,
3464 const INTEGER *INDXQ,
3465 DOUBLE *RHO,
3466 const INTEGER *CUTPNT,
3467 const DOUBLE *Z,
3468 DOUBLE *DLAMDA,
3469 DOUBLE *Q2,
3470 const INTEGER *LDQ2,
3471 DOUBLE *W,
3472 INTEGER *PERM,
3473 INTEGER *GIVPTR,
3474 INTEGER *GIVCOL,
3475 DOUBLE *GIVNUM,
3476 const INTEGER *INDXP,
3477 const INTEGER *INDX,
3478 INTEGER *INFO)
3479 {
3480 DEBUG_LAPACK_STUB("dlaed8");
3481 LAPACK_IMPL(dlaed8)(ICOMPQ,
3482 K,
3483 N,
3484 QSIZ,
3485 D,
3486 Q,
3487 LDQ,
3488 INDXQ,
3489 RHO,
3490 CUTPNT,
3491 Z,
3492 DLAMDA,
3493 Q2,
3494 LDQ2,
3495 W,
3496 PERM,
3497 GIVPTR,
3498 GIVCOL,
3499 GIVNUM,
3500 INDXP,
3501 INDX,
3502 INFO);
3503 }
3504
3505 //-- dlaed9 --------------------------------------------------------------------
3506 void
3507 LAPACK_DECL(dlaed9)(const INTEGER *K,
3508 const INTEGER *KSTART,
3509 const INTEGER *KSTOP,
3510 const INTEGER *N,
3511 DOUBLE *D,
3512 const DOUBLE *Q,
3513 const INTEGER *LDQ,
3514 const DOUBLE *RHO,
3515 const DOUBLE *DLAMDA,
3516 const DOUBLE *W,
3517 DOUBLE *S,
3518 const INTEGER *LDS,
3519 INTEGER *INFO)
3520 {
3521 DEBUG_LAPACK_STUB("dlaed9");
3522 LAPACK_IMPL(dlaed9)(K,
3523 KSTART,
3524 KSTOP,
3525 N,
3526 D,
3527 Q,
3528 LDQ,
3529 RHO,
3530 DLAMDA,
3531 W,
3532 S,
3533 LDS,
3534 INFO);
3535 }
3536
3537 //-- dlaeda --------------------------------------------------------------------
3538 void
3539 LAPACK_DECL(dlaeda)(const INTEGER *N,
3540 const INTEGER *TLVLS,
3541 const INTEGER *CURLVL,
3542 const INTEGER *CURPBM,
3543 const INTEGER *PRMPTR,
3544 const INTEGER *PERM,
3545 const INTEGER *GIVPTR,
3546 const INTEGER *GIVCOL,
3547 const DOUBLE *GIVNUM,
3548 const DOUBLE *Q,
3549 const INTEGER *QPTR,
3550 DOUBLE *Z,
3551 const DOUBLE *ZTEMP,
3552 INTEGER *INFO)
3553 {
3554 DEBUG_LAPACK_STUB("dlaeda");
3555 LAPACK_IMPL(dlaeda)(N,
3556 TLVLS,
3557 CURLVL,
3558 CURPBM,
3559 PRMPTR,
3560 PERM,
3561 GIVPTR,
3562 GIVCOL,
3563 GIVNUM,
3564 Q,
3565 QPTR,
3566 Z,
3567 ZTEMP,
3568 INFO);
3569 }
3570
3571 //-- dlaein --------------------------------------------------------------------
3572 void
3573 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
3574 const LOGICAL *NOINIT,
3575 const INTEGER *N,
3576 const DOUBLE *H,
3577 const INTEGER *LDH,
3578 const DOUBLE *WR,
3579 const DOUBLE *WI,
3580 DOUBLE *VR,
3581 DOUBLE *VI,
3582 const DOUBLE *B,
3583 const INTEGER *LDB,
3584 const DOUBLE *WORK,
3585 const DOUBLE *EPS3,
3586 const DOUBLE *SMLNUM,
3587 const DOUBLE *BIGNUM,
3588 INTEGER *INFO)
3589 {
3590 DEBUG_LAPACK_STUB("dlaein");
3591 LAPACK_IMPL(dlaein)(RIGHTV,
3592 NOINIT,
3593 N,
3594 H,
3595 LDH,
3596 WR,
3597 WI,
3598 VR,
3599 VI,
3600 B,
3601 LDB,
3602 WORK,
3603 EPS3,
3604 SMLNUM,
3605 BIGNUM,
3606 INFO);
3607 }
3608
3609 //-- dlaev2 --------------------------------------------------------------------
3610 void
3611 LAPACK_DECL(dlaev2)(const DOUBLE *A,
3612 const DOUBLE *B,
3613 const DOUBLE *C,
3614 DOUBLE *RT1,
3615 DOUBLE *RT2,
3616 DOUBLE *CS1,
3617 DOUBLE *SN1)
3618 {
3619 DEBUG_LAPACK_STUB("dlaev2");
3620 LAPACK_IMPL(dlaev2)(A,
3621 B,
3622 C,
3623 RT1,
3624 RT2,
3625 CS1,
3626 SN1);
3627 }
3628
3629 //-- dlaexc --------------------------------------------------------------------
3630 void
3631 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
3632 const INTEGER *N,
3633 DOUBLE *T,
3634 const INTEGER *LDT,
3635 DOUBLE *Q,
3636 const INTEGER *LDQ,
3637 const INTEGER *J1,
3638 const INTEGER *N1,
3639 const INTEGER *N2,
3640 const DOUBLE *WORK,
3641 INTEGER *INFO)
3642 {
3643 DEBUG_LAPACK_STUB("dlaexc");
3644 LAPACK_IMPL(dlaexc)(WANTQ,
3645 N,
3646 T,
3647 LDT,
3648 Q,
3649 LDQ,
3650 J1,
3651 N1,
3652 N2,
3653 WORK,
3654 INFO);
3655 }
3656
3657 //-- dlag2 ---------------------------------------------------------------------
3658 void
3659 LAPACK_DECL(dlag2)(const DOUBLE *A,
3660 const INTEGER *LDA,
3661 const DOUBLE *B,
3662 const INTEGER *LDB,
3663 const DOUBLE *SAFMIN,
3664 DOUBLE *SCALE1,
3665 DOUBLE *SCALE2,
3666 DOUBLE *WR1,
3667 DOUBLE *WR2,
3668 DOUBLE *WI)
3669 {
3670 DEBUG_LAPACK_STUB("dlag2");
3671 LAPACK_IMPL(dlag2)(A,
3672 LDA,
3673 B,
3674 LDB,
3675 SAFMIN,
3676 SCALE1,
3677 SCALE2,
3678 WR1,
3679 WR2,
3680 WI);
3681 }
3682
3683 //-- dlag2s --------------------------------------------------------------------
3684 void
3685 LAPACK_DECL(dlag2s)(const INTEGER *M,
3686 const INTEGER *N,
3687 const DOUBLE *A,
3688 const INTEGER *LDA,
3689 FLOAT *SA,
3690 const INTEGER *LDSA,
3691 INTEGER *INFO)
3692 {
3693 DEBUG_LAPACK_STUB("dlag2s");
3694 LAPACK_IMPL(dlag2s)(M,
3695 N,
3696 A,
3697 LDA,
3698 SA,
3699 LDSA,
3700 INFO);
3701 }
3702
3703 //-- dlags2 --------------------------------------------------------------------
3704 void
3705 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
3706 const DOUBLE *A1,
3707 const DOUBLE *A2,
3708 const DOUBLE *A3,
3709 const DOUBLE *B1,
3710 const DOUBLE *B2,
3711 const DOUBLE *B3,
3712 DOUBLE *CSU,
3713 DOUBLE *SNU,
3714 DOUBLE *CSV,
3715 DOUBLE *SNV,
3716 DOUBLE *CSQ,
3717 DOUBLE *SNQ)
3718 {
3719 DEBUG_LAPACK_STUB("dlags2");
3720 LAPACK_IMPL(dlags2)(UPPER,
3721 A1,
3722 A2,
3723 A3,
3724 B1,
3725 B2,
3726 B3,
3727 CSU,
3728 SNU,
3729 CSV,
3730 SNV,
3731 CSQ,
3732 SNQ);
3733 }
3734
3735 //-- dlagtf --------------------------------------------------------------------
3736 void
3737 LAPACK_DECL(dlagtf)(const INTEGER *N,
3738 DOUBLE *A,
3739 const DOUBLE *LAMBDA,
3740 DOUBLE *B,
3741 DOUBLE *C,
3742 const DOUBLE *TOL,
3743 DOUBLE *D,
3744 INTEGER *IN,
3745 INTEGER *INFO)
3746 {
3747 DEBUG_LAPACK_STUB("dlagtf");
3748 LAPACK_IMPL(dlagtf)(N,
3749 A,
3750 LAMBDA,
3751 B,
3752 C,
3753 TOL,
3754 D,
3755 IN,
3756 INFO);
3757 }
3758
3759 //-- dlagtm --------------------------------------------------------------------
3760 void
3761 LAPACK_DECL(dlagtm)(const char *TRANS,
3762 const INTEGER *N,
3763 const INTEGER *NRHS,
3764 const DOUBLE *ALPHA,
3765 const DOUBLE *DL,
3766 const DOUBLE *D,
3767 const DOUBLE *DU,
3768 const DOUBLE *X,
3769 const INTEGER *LDX,
3770 const DOUBLE *BETA,
3771 DOUBLE *B,
3772 const INTEGER *LDB)
3773 {
3774 DEBUG_LAPACK_STUB("dlagtm");
3775 LAPACK_IMPL(dlagtm)(TRANS,
3776 N,
3777 NRHS,
3778 ALPHA,
3779 DL,
3780 D,
3781 DU,
3782 X,
3783 LDX,
3784 BETA,
3785 B,
3786 LDB);
3787 }
3788
3789 //-- dlagts --------------------------------------------------------------------
3790 void
3791 LAPACK_DECL(dlagts)(const INTEGER *JOB,
3792 const INTEGER *N,
3793 const DOUBLE *A,
3794 const DOUBLE *B,
3795 const DOUBLE *C,
3796 const DOUBLE *D,
3797 const INTEGER *IN,
3798 DOUBLE *Y,
3799 DOUBLE *TOL,
3800 INTEGER *INFO)
3801 {
3802 DEBUG_LAPACK_STUB("dlagts");
3803 LAPACK_IMPL(dlagts)(JOB,
3804 N,
3805 A,
3806 B,
3807 C,
3808 D,
3809 IN,
3810 Y,
3811 TOL,
3812 INFO);
3813 }
3814
3815 //-- dlagv2 --------------------------------------------------------------------
3816 void
3817 LAPACK_DECL(dlagv2)(DOUBLE *A,
3818 const INTEGER *LDA,
3819 DOUBLE *B,
3820 const INTEGER *LDB,
3821 DOUBLE *ALPHAR,
3822 DOUBLE *ALPHAI,
3823 DOUBLE *BETA,
3824 DOUBLE *CSL,
3825 DOUBLE *SNL,
3826 DOUBLE *CSR,
3827 DOUBLE *SNR)
3828 {
3829 DEBUG_LAPACK_STUB("dlagv2");
3830 LAPACK_IMPL(dlagv2)(A,
3831 LDA,
3832 B,
3833 LDB,
3834 ALPHAR,
3835 ALPHAI,
3836 BETA,
3837 CSL,
3838 SNL,
3839 CSR,
3840 SNR);
3841 }
3842
3843 //-- dlahqr --------------------------------------------------------------------
3844 void
3845 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
3846 const LOGICAL *WANTZ,
3847 const INTEGER *N,
3848 const INTEGER *ILO,
3849 const INTEGER *IHI,
3850 DOUBLE *H,
3851 const INTEGER *LDH,
3852 DOUBLE *WR,
3853 DOUBLE *WI,
3854 const INTEGER *ILOZ,
3855 const INTEGER *IHIZ,
3856 DOUBLE *Z,
3857 const INTEGER *LDZ,
3858 INTEGER *INFO)
3859 {
3860 DEBUG_LAPACK_STUB("dlahqr");
3861 LAPACK_IMPL(dlahqr)(WANTT,
3862 WANTZ,
3863 N,
3864 ILO,
3865 IHI,
3866 H,
3867 LDH,
3868 WR,
3869 WI,
3870 ILOZ,
3871 IHIZ,
3872 Z,
3873 LDZ,
3874 INFO);
3875 }
3876
3877 //-- dlahr2 --------------------------------------------------------------------
3878 void
3879 LAPACK_DECL(dlahr2)(const INTEGER *N,
3880 const INTEGER *K,
3881 const INTEGER *NB,
3882 DOUBLE *A,
3883 const INTEGER *LDA,
3884 DOUBLE *TAU,
3885 DOUBLE *T,
3886 const INTEGER *LDT,
3887 DOUBLE *Y,
3888 const INTEGER *LDY)
3889 {
3890 DEBUG_LAPACK_STUB("dlahr2");
3891 LAPACK_IMPL(dlahr2)(N,
3892 K,
3893 NB,
3894 A,
3895 LDA,
3896 TAU,
3897 T,
3898 LDT,
3899 Y,
3900 LDY);
3901 }
3902
3903 //-- dlahrd --------------------------------------------------------------------
3904 void
3905 LAPACK_DECL(dlahrd)(const INTEGER *N,
3906 const INTEGER *K,
3907 const INTEGER *NB,
3908 DOUBLE *A,
3909 const INTEGER *LDA,
3910 DOUBLE *TAU,
3911 DOUBLE *T,
3912 const INTEGER *LDT,
3913 DOUBLE *Y,
3914 const INTEGER *LDY)
3915 {
3916 DEBUG_LAPACK_STUB("dlahrd");
3917 LAPACK_IMPL(dlahrd)(N,
3918 K,
3919 NB,
3920 A,
3921 LDA,
3922 TAU,
3923 T,
3924 LDT,
3925 Y,
3926 LDY);
3927 }
3928
3929 //-- dlaic1 --------------------------------------------------------------------
3930 void
3931 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
3932 const INTEGER *J,
3933 const DOUBLE *X,
3934 const DOUBLE *SEST,
3935 const DOUBLE *W,
3936 const DOUBLE *GAMMA,
3937 DOUBLE *SESTPR,
3938 DOUBLE *S,
3939 DOUBLE *C)
3940 {
3941 DEBUG_LAPACK_STUB("dlaic1");
3942 LAPACK_IMPL(dlaic1)(JOB,
3943 J,
3944 X,
3945 SEST,
3946 W,
3947 GAMMA,
3948 SESTPR,
3949 S,
3950 C);
3951 }
3952
3953 //-- dlaisnan ------------------------------------------------------------------
3954 LOGICAL
3955 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
3956 const DOUBLE *DIN2)
3957 {
3958 DEBUG_LAPACK_STUB("dlaisnan");
3959 return LAPACK_IMPL(dlaisnan)(DIN1,
3960 DIN2);
3961 }
3962
3963 //-- dlaln2 --------------------------------------------------------------------
3964 void
3965 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
3966 const INTEGER *NA,
3967 const INTEGER *NW,
3968 const DOUBLE *SMIN,
3969 const DOUBLE *CA,
3970 const DOUBLE *A,
3971 const INTEGER *LDA,
3972 const DOUBLE *D1,
3973 const DOUBLE *D2,
3974 const DOUBLE *B,
3975 const INTEGER *LDB,
3976 const DOUBLE *WR,
3977 const DOUBLE *WI,
3978 DOUBLE *X,
3979 const INTEGER *LDX,
3980 DOUBLE *SCALE,
3981 DOUBLE *XNORM,
3982 INTEGER *INFO)
3983 {
3984 DEBUG_LAPACK_STUB("dlaln2");
3985 LAPACK_IMPL(dlaln2)(LTRANS,
3986 NA,
3987 NW,
3988 SMIN,
3989 CA,
3990 A,
3991 LDA,
3992 D1,
3993 D2,
3994 B,
3995 LDB,
3996 WR,
3997 WI,
3998 X,
3999 LDX,
4000 SCALE,
4001 XNORM,
4002 INFO);
4003 }
4004
4005 //-- dlals0 --------------------------------------------------------------------
4006 void
4007 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
4008 const INTEGER *NL,
4009 const INTEGER *NR,
4010 const INTEGER *SQRE,
4011 const INTEGER *NRHS,
4012 DOUBLE *B,
4013 const INTEGER *LDB,
4014 const DOUBLE *BX,
4015 const INTEGER *LDBX,
4016 const INTEGER *PERM,
4017 const INTEGER *GIVPTR,
4018 const INTEGER *GIVCOL,
4019 const INTEGER *LDGCOL,
4020 const DOUBLE *GIVNUM,
4021 const INTEGER *LDGNUM,
4022 const DOUBLE *POLES,
4023 const DOUBLE *DIFL,
4024 const DOUBLE *DIFR,
4025 const DOUBLE *Z,
4026 const INTEGER *K,
4027 const DOUBLE *C,
4028 const DOUBLE *S,
4029 const DOUBLE *WORK,
4030 INTEGER *INFO)
4031 {
4032 DEBUG_LAPACK_STUB("dlals0");
4033 LAPACK_IMPL(dlals0)(ICOMPQ,
4034 NL,
4035 NR,
4036 SQRE,
4037 NRHS,
4038 B,
4039 LDB,
4040 BX,
4041 LDBX,
4042 PERM,
4043 GIVPTR,
4044 GIVCOL,
4045 LDGCOL,
4046 GIVNUM,
4047 LDGNUM,
4048 POLES,
4049 DIFL,
4050 DIFR,
4051 Z,
4052 K,
4053 C,
4054 S,
4055 WORK,
4056 INFO);
4057 }
4058
4059 //-- dlalsa --------------------------------------------------------------------
4060 void
4061 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
4062 const INTEGER *SMLSIZ,
4063 const INTEGER *N,
4064 const INTEGER *NRHS,
4065 DOUBLE *B,
4066 const INTEGER *LDB,
4067 DOUBLE *BX,
4068 const INTEGER *LDBX,
4069 const DOUBLE *U,
4070 const INTEGER *LDU,
4071 const DOUBLE *VT,
4072 const INTEGER *K,
4073 const DOUBLE *DIFL,
4074 const DOUBLE *DIFR,
4075 const DOUBLE *Z,
4076 const DOUBLE *POLES,
4077 const INTEGER *GIVPTR,
4078 const INTEGER *GIVCOL,
4079 const INTEGER *LDGCOL,
4080 const INTEGER *PERM,
4081 const DOUBLE *GIVNUM,
4082 const DOUBLE *C,
4083 const DOUBLE *S,
4084 const DOUBLE *WORK,
4085 const INTEGER *IWORK,
4086 INTEGER *INFO)
4087 {
4088 DEBUG_LAPACK_STUB("dlalsa");
4089 LAPACK_IMPL(dlalsa)(ICOMPQ,
4090 SMLSIZ,
4091 N,
4092 NRHS,
4093 B,
4094 LDB,
4095 BX,
4096 LDBX,
4097 U,
4098 LDU,
4099 VT,
4100 K,
4101 DIFL,
4102 DIFR,
4103 Z,
4104 POLES,
4105 GIVPTR,
4106 GIVCOL,
4107 LDGCOL,
4108 PERM,
4109 GIVNUM,
4110 C,
4111 S,
4112 WORK,
4113 IWORK,
4114 INFO);
4115 }
4116
4117 //-- dlalsd --------------------------------------------------------------------
4118 void
4119 LAPACK_DECL(dlalsd)(const char *UPLO,
4120 const INTEGER *SMLSIZ,
4121 const INTEGER *N,
4122 const INTEGER *NRHS,
4123 DOUBLE *D,
4124 DOUBLE *E,
4125 DOUBLE *B,
4126 const INTEGER *LDB,
4127 const DOUBLE *RCOND,
4128 INTEGER *RANK,
4129 const DOUBLE *WORK,
4130 const INTEGER *IWORK,
4131 INTEGER *INFO)
4132 {
4133 DEBUG_LAPACK_STUB("dlalsd");
4134 LAPACK_IMPL(dlalsd)(UPLO,
4135 SMLSIZ,
4136 N,
4137 NRHS,
4138 D,
4139 E,
4140 B,
4141 LDB,
4142 RCOND,
4143 RANK,
4144 WORK,
4145 IWORK,
4146 INFO);
4147 }
4148
4149 //-- dlamrg --------------------------------------------------------------------
4150 void
4151 LAPACK_DECL(dlamrg)(const INTEGER *N1,
4152 const INTEGER *N2,
4153 const DOUBLE *A,
4154 const INTEGER *DTRD1,
4155 const INTEGER *DTRD2,
4156 INTEGER *INDEX)
4157 {
4158 DEBUG_LAPACK_STUB("dlamrg");
4159 LAPACK_IMPL(dlamrg)(N1,
4160 N2,
4161 A,
4162 DTRD1,
4163 DTRD2,
4164 INDEX);
4165 }
4166
4167 //-- dlaneg --------------------------------------------------------------------
4168 INTEGER
4169 LAPACK_DECL(dlaneg)(const INTEGER *N,
4170 const DOUBLE *D,
4171 const DOUBLE *LLD,
4172 const DOUBLE *SIGMA,
4173 const DOUBLE *PIVMIN,
4174 const INTEGER *R)
4175 {
4176 DEBUG_LAPACK_STUB("dlaneg");
4177 return LAPACK_IMPL(dlaneg)(N,
4178 D,
4179 LLD,
4180 SIGMA,
4181 PIVMIN,
4182 R);
4183 }
4184
4185 //-- dlangb --------------------------------------------------------------------
4186 DOUBLE
4187 LAPACK_DECL(dlangb)(const char *NORM,
4188 const INTEGER *N,
4189 const INTEGER *KL,
4190 const INTEGER *KU,
4191 const DOUBLE *AB,
4192 const INTEGER *LDAB,
4193 const DOUBLE *WORK)
4194 {
4195 DEBUG_LAPACK_STUB("dlangb");
4196 return LAPACK_IMPL(dlangb)(NORM,
4197 N,
4198 KL,
4199 KU,
4200 AB,
4201 LDAB,
4202 WORK);
4203 }
4204
4205 //-- dlange --------------------------------------------------------------------
4206 DOUBLE
4207 LAPACK_DECL(dlange)(const char *NORM,
4208 const INTEGER *M,
4209 const INTEGER *N,
4210 const DOUBLE *A,
4211 const INTEGER *LDA,
4212 const DOUBLE *WORK)
4213 {
4214 DEBUG_LAPACK_STUB("dlange");
4215 return LAPACK_IMPL(dlange)(NORM,
4216 M,
4217 N,
4218 A,
4219 LDA,
4220 WORK);
4221 }
4222
4223 //-- dlangt --------------------------------------------------------------------
4224 DOUBLE
4225 LAPACK_DECL(dlangt)(const char *NORM,
4226 const INTEGER *N,
4227 const DOUBLE *DL,
4228 const DOUBLE *D,
4229 const DOUBLE *DU)
4230 {
4231 DEBUG_LAPACK_STUB("dlangt");
4232 return LAPACK_IMPL(dlangt)(NORM,
4233 N,
4234 DL,
4235 D,
4236 DU);
4237 }
4238
4239 //-- dlanhs --------------------------------------------------------------------
4240 DOUBLE
4241 LAPACK_DECL(dlanhs)(const char *NORM,
4242 const INTEGER *N,
4243 const DOUBLE *A,
4244 const INTEGER *LDA,
4245 const DOUBLE *WORK)
4246 {
4247 DEBUG_LAPACK_STUB("dlanhs");
4248 return LAPACK_IMPL(dlanhs)(NORM,
4249 N,
4250 A,
4251 LDA,
4252 WORK);
4253 }
4254
4255 //-- dlansb --------------------------------------------------------------------
4256 DOUBLE
4257 LAPACK_DECL(dlansb)(const char *NORM,
4258 const char *UPLO,
4259 const INTEGER *N,
4260 const INTEGER *K,
4261 const DOUBLE *AB,
4262 const INTEGER *LDAB,
4263 const DOUBLE *WORK)
4264 {
4265 DEBUG_LAPACK_STUB("dlansb");
4266 return LAPACK_IMPL(dlansb)(NORM,
4267 UPLO,
4268 N,
4269 K,
4270 AB,
4271 LDAB,
4272 WORK);
4273 }
4274
4275 //-- dlansf --------------------------------------------------------------------
4276 DOUBLE
4277 LAPACK_DECL(dlansf)(const char *NORM,
4278 const char *TRANSR,
4279 const char *UPLO,
4280 const INTEGER *N,
4281 const DOUBLE *A,
4282 const DOUBLE *WORK)
4283 {
4284 DEBUG_LAPACK_STUB("dlansf");
4285 return LAPACK_IMPL(dlansf)(NORM,
4286 TRANSR,
4287 UPLO,
4288 N,
4289 A,
4290 WORK);
4291 }
4292
4293 //-- dlansp --------------------------------------------------------------------
4294 DOUBLE
4295 LAPACK_DECL(dlansp)(const char *NORM,
4296 const char *UPLO,
4297 const INTEGER *N,
4298 const DOUBLE *AP,
4299 const DOUBLE *WORK)
4300 {
4301 DEBUG_LAPACK_STUB("dlansp");
4302 return LAPACK_IMPL(dlansp)(NORM,
4303 UPLO,
4304 N,
4305 AP,
4306 WORK);
4307 }
4308
4309 //-- dlanst --------------------------------------------------------------------
4310 DOUBLE
4311 LAPACK_DECL(dlanst)(const char *NORM,
4312 const INTEGER *N,
4313 const DOUBLE *D,
4314 const DOUBLE *E)
4315 {
4316 DEBUG_LAPACK_STUB("dlanst");
4317 return LAPACK_IMPL(dlanst)(NORM,
4318 N,
4319 D,
4320 E);
4321 }
4322
4323 //-- dlansy --------------------------------------------------------------------
4324 DOUBLE
4325 LAPACK_DECL(dlansy)(const char *NORM,
4326 const char *UPLO,
4327 const INTEGER *N,
4328 const DOUBLE *A,
4329 const INTEGER *LDA,
4330 const DOUBLE *WORK)
4331 {
4332 DEBUG_LAPACK_STUB("dlansy");
4333 return LAPACK_IMPL(dlansy)(NORM,
4334 UPLO,
4335 N,
4336 A,
4337 LDA,
4338 WORK);
4339 }
4340
4341 //-- dlantb --------------------------------------------------------------------
4342 DOUBLE
4343 LAPACK_DECL(dlantb)(const char *NORM,
4344 const char *UPLO,
4345 const char *DIAG,
4346 const INTEGER *N,
4347 const INTEGER *K,
4348 const DOUBLE *AB,
4349 const INTEGER *LDAB,
4350 const DOUBLE *WORK)
4351 {
4352 DEBUG_LAPACK_STUB("dlantb");
4353 return LAPACK_IMPL(dlantb)(NORM,
4354 UPLO,
4355 DIAG,
4356 N,
4357 K,
4358 AB,
4359 LDAB,
4360 WORK);
4361 }
4362
4363 //-- dlantp --------------------------------------------------------------------
4364 DOUBLE
4365 LAPACK_DECL(dlantp)(const char *NORM,
4366 const char *UPLO,
4367 const char *DIAG,
4368 const INTEGER *N,
4369 const DOUBLE *AP,
4370 const DOUBLE *WORK)
4371 {
4372 DEBUG_LAPACK_STUB("dlantp");
4373 return LAPACK_IMPL(dlantp)(NORM,
4374 UPLO,
4375 DIAG,
4376 N,
4377 AP,
4378 WORK);
4379 }
4380
4381 //-- dlantr --------------------------------------------------------------------
4382 DOUBLE
4383 LAPACK_DECL(dlantr)(const char *NORM,
4384 const char *UPLO,
4385 const char *DIAG,
4386 const INTEGER *M,
4387 const INTEGER *N,
4388 const DOUBLE *A,
4389 const INTEGER *LDA,
4390 const DOUBLE *WORK)
4391 {
4392 DEBUG_LAPACK_STUB("dlantr");
4393 return LAPACK_IMPL(dlantr)(NORM,
4394 UPLO,
4395 DIAG,
4396 M,
4397 N,
4398 A,
4399 LDA,
4400 WORK);
4401 }
4402
4403 //-- dlanv2 --------------------------------------------------------------------
4404 void
4405 LAPACK_DECL(dlanv2)(DOUBLE *A,
4406 DOUBLE *B,
4407 DOUBLE *C,
4408 DOUBLE *D,
4409 DOUBLE *RT1R,
4410 DOUBLE *RT1I,
4411 DOUBLE *RT2R,
4412 DOUBLE *RT2I,
4413 DOUBLE *CS,
4414 DOUBLE *SN)
4415 {
4416 DEBUG_LAPACK_STUB("dlanv2");
4417 LAPACK_IMPL(dlanv2)(A,
4418 B,
4419 C,
4420 D,
4421 RT1R,
4422 RT1I,
4423 RT2R,
4424 RT2I,
4425 CS,
4426 SN);
4427 }
4428
4429 //-- dlapll --------------------------------------------------------------------
4430 void
4431 LAPACK_DECL(dlapll)(const INTEGER *N,
4432 DOUBLE *X,
4433 const INTEGER *INCX,
4434 DOUBLE *Y,
4435 const INTEGER *INCY,
4436 DOUBLE *SSMIN)
4437 {
4438 DEBUG_LAPACK_STUB("dlapll");
4439 LAPACK_IMPL(dlapll)(N,
4440 X,
4441 INCX,
4442 Y,
4443 INCY,
4444 SSMIN);
4445 }
4446
4447 //-- dlapmr --------------------------------------------------------------------
4448 void
4449 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
4450 const INTEGER *M,
4451 const INTEGER *N,
4452 DOUBLE *X,
4453 const INTEGER *LDX,
4454 INTEGER *K)
4455 {
4456 DEBUG_LAPACK_STUB("dlapmr");
4457 LAPACK_IMPL(dlapmr)(FORWRD,
4458 M,
4459 N,
4460 X,
4461 LDX,
4462 K);
4463 }
4464
4465 //-- dlapmt --------------------------------------------------------------------
4466 void
4467 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
4468 const INTEGER *M,
4469 const INTEGER *N,
4470 DOUBLE *X,
4471 const INTEGER *LDX,
4472 INTEGER *K)
4473 {
4474 DEBUG_LAPACK_STUB("dlapmt");
4475 LAPACK_IMPL(dlapmt)(FORWRD,
4476 M,
4477 N,
4478 X,
4479 LDX,
4480 K);
4481 }
4482
4483 //-- dlapy2 --------------------------------------------------------------------
4484 DOUBLE
4485 LAPACK_DECL(dlapy2)(const DOUBLE *X,
4486 const DOUBLE *Y)
4487 {
4488 DEBUG_LAPACK_STUB("dlapy2");
4489 return LAPACK_IMPL(dlapy2)(X,
4490 Y);
4491 }
4492
4493 //-- dlapy3 --------------------------------------------------------------------
4494 DOUBLE
4495 LAPACK_DECL(dlapy3)(const DOUBLE *X,
4496 const DOUBLE *Y,
4497 const DOUBLE *Z)
4498 {
4499 DEBUG_LAPACK_STUB("dlapy3");
4500 return LAPACK_IMPL(dlapy3)(X,
4501 Y,
4502 Z);
4503 }
4504
4505 //-- dlaqgb --------------------------------------------------------------------
4506 void
4507 LAPACK_DECL(dlaqgb)(const INTEGER *M,
4508 const INTEGER *N,
4509 const INTEGER *KL,
4510 const INTEGER *KU,
4511 DOUBLE *AB,
4512 const INTEGER *LDAB,
4513 const DOUBLE *R,
4514 const DOUBLE *C,
4515 const DOUBLE *ROWCND,
4516 const DOUBLE *COLCND,
4517 const DOUBLE *AMAX,
4518 char *EQUED)
4519 {
4520 DEBUG_LAPACK_STUB("dlaqgb");
4521 LAPACK_IMPL(dlaqgb)(M,
4522 N,
4523 KL,
4524 KU,
4525 AB,
4526 LDAB,
4527 R,
4528 C,
4529 ROWCND,
4530 COLCND,
4531 AMAX,
4532 EQUED);
4533 }
4534
4535 //-- dlaqge --------------------------------------------------------------------
4536 /*
4537 void
4538 LAPACK_DECL(dlaqge)(const INTEGER *M,
4539 const INTEGER *N,
4540 DOUBLE *A,
4541 const INTEGER *LDA,
4542 const DOUBLE *R,
4543 const DOUBLE *C,
4544 const DOUBLE *ROWCND,
4545 const DOUBLE *COLCND,
4546 const DOUBLE *AMAX,
4547 char *EQUED)
4548 {
4549 DEBUG_LAPACK_STUB("dlaqge");
4550 LAPACK_IMPL(dlaqge)(M,
4551 N,
4552 A,
4553 LDA,
4554 R,
4555 C,
4556 ROWCND,
4557 COLCND,
4558 AMAX,
4559 EQUED);
4560 }
4561 */
4562
4563 //-- dlaqp2 --------------------------------------------------------------------
4564 void
4565 LAPACK_DECL(dlaqp2)(const INTEGER *M,
4566 const INTEGER *N,
4567 const INTEGER *OFFSET,
4568 DOUBLE *A,
4569 const INTEGER *LDA,
4570 INTEGER *JPVT,
4571 DOUBLE *TAU,
4572 DOUBLE *VN1,
4573 DOUBLE *VN2,
4574 const DOUBLE *WORK)
4575 {
4576 DEBUG_LAPACK_STUB("dlaqp2");
4577 LAPACK_IMPL(dlaqp2)(M,
4578 N,
4579 OFFSET,
4580 A,
4581 LDA,
4582 JPVT,
4583 TAU,
4584 VN1,
4585 VN2,
4586 WORK);
4587 }
4588
4589 //-- dlaqps --------------------------------------------------------------------
4590 void
4591 LAPACK_DECL(dlaqps)(const INTEGER *M,
4592 const INTEGER *N,
4593 const INTEGER *OFFSET,
4594 const INTEGER *NB,
4595 INTEGER *KB,
4596 DOUBLE *A,
4597 const INTEGER *LDA,
4598 INTEGER *JPVT,
4599 DOUBLE *TAU,
4600 DOUBLE *VN1,
4601 DOUBLE *VN2,
4602 DOUBLE *AUXV,
4603 DOUBLE *F,
4604 const INTEGER *LDF)
4605 {
4606 DEBUG_LAPACK_STUB("dlaqps");
4607 LAPACK_IMPL(dlaqps)(M,
4608 N,
4609 OFFSET,
4610 NB,
4611 KB,
4612 A,
4613 LDA,
4614 JPVT,
4615 TAU,
4616 VN1,
4617 VN2,
4618 AUXV,
4619 F,
4620 LDF);
4621 }
4622
4623 //-- dlaqr0 --------------------------------------------------------------------
4624 void
4625 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
4626 const LOGICAL *WANTZ,
4627 const INTEGER *N,
4628 const INTEGER *ILO,
4629 const INTEGER *IHI,
4630 DOUBLE *H,
4631 const INTEGER *LDH,
4632 DOUBLE *WR,
4633 DOUBLE *WI,
4634 const INTEGER *ILOZ,
4635 const INTEGER *IHIZ,
4636 DOUBLE *Z,
4637 const INTEGER *LDZ,
4638 DOUBLE *WORK,
4639 const INTEGER *LWORK,
4640 INTEGER *INFO)
4641 {
4642 DEBUG_LAPACK_STUB("dlaqr0");
4643 LAPACK_IMPL(dlaqr0)(WANTT,
4644 WANTZ,
4645 N,
4646 ILO,
4647 IHI,
4648 H,
4649 LDH,
4650 WR,
4651 WI,
4652 ILOZ,
4653 IHIZ,
4654 Z,
4655 LDZ,
4656 WORK,
4657 LWORK,
4658 INFO);
4659 }
4660
4661 //-- dlaqr1 --------------------------------------------------------------------
4662 void
4663 LAPACK_DECL(dlaqr1)(const INTEGER *N,
4664 const DOUBLE *H,
4665 const INTEGER *LDH,
4666 const DOUBLE *SR1,
4667 const DOUBLE *SI1,
4668 const DOUBLE *SR2,
4669 const DOUBLE *SI2,
4670 DOUBLE *V)
4671 {
4672 DEBUG_LAPACK_STUB("dlaqr1");
4673 LAPACK_IMPL(dlaqr1)(N,
4674 H,
4675 LDH,
4676 SR1,
4677 SI1,
4678 SR2,
4679 SI2,
4680 V);
4681 }
4682
4683 //-- dlaqr2 --------------------------------------------------------------------
4684 void
4685 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
4686 const LOGICAL *WANTZ,
4687 const INTEGER *N,
4688 const INTEGER *KTOP,
4689 const INTEGER *KBOT,
4690 const INTEGER *NW,
4691 DOUBLE *H,
4692 const INTEGER *LDH,
4693 const INTEGER *ILOZ,
4694 const INTEGER *IHIZ,
4695 DOUBLE *Z,
4696 const INTEGER *LDZ,
4697 INTEGER *NS,
4698 INTEGER *ND,
4699 DOUBLE *SR,
4700 DOUBLE *SI,
4701 const DOUBLE *V,
4702 const INTEGER *LDV,
4703 const INTEGER *NH,
4704 const DOUBLE *T,
4705 const INTEGER *LDT,
4706 const INTEGER *NV,
4707 const DOUBLE *WV,
4708 const INTEGER *LDWV,
4709 const DOUBLE *WORK,
4710 const INTEGER *LWORK)
4711 {
4712 DEBUG_LAPACK_STUB("dlaqr2");
4713 LAPACK_IMPL(dlaqr2)(WANTT,
4714 WANTZ,
4715 N,
4716 KTOP,
4717 KBOT,
4718 NW,
4719 H,
4720 LDH,
4721 ILOZ,
4722 IHIZ,
4723 Z,
4724 LDZ,
4725 NS,
4726 ND,
4727 SR,
4728 SI,
4729 V,
4730 LDV,
4731 NH,
4732 T,
4733 LDT,
4734 NV,
4735 WV,
4736 LDWV,
4737 WORK,
4738 LWORK);
4739 }
4740
4741 //-- dlaqr3 --------------------------------------------------------------------
4742 void
4743 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
4744 const LOGICAL *WANTZ,
4745 const INTEGER *N,
4746 const INTEGER *KTOP,
4747 const INTEGER *KBOT,
4748 const INTEGER *NW,
4749 DOUBLE *H,
4750 const INTEGER *LDH,
4751 const INTEGER *ILOZ,
4752 const INTEGER *IHIZ,
4753 DOUBLE *Z,
4754 const INTEGER *LDZ,
4755 INTEGER *NS,
4756 INTEGER *ND,
4757 DOUBLE *SR,
4758 DOUBLE *SI,
4759 const DOUBLE *V,
4760 const INTEGER *LDV,
4761 const INTEGER *NH,
4762 const DOUBLE *T,
4763 const INTEGER *LDT,
4764 const INTEGER *NV,
4765 const DOUBLE *WV,
4766 const INTEGER *LDWV,
4767 const DOUBLE *WORK,
4768 const INTEGER *LWORK)
4769 {
4770 DEBUG_LAPACK_STUB("dlaqr3");
4771 LAPACK_IMPL(dlaqr3)(WANTT,
4772 WANTZ,
4773 N,
4774 KTOP,
4775 KBOT,
4776 NW,
4777 H,
4778 LDH,
4779 ILOZ,
4780 IHIZ,
4781 Z,
4782 LDZ,
4783 NS,
4784 ND,
4785 SR,
4786 SI,
4787 V,
4788 LDV,
4789 NH,
4790 T,
4791 LDT,
4792 NV,
4793 WV,
4794 LDWV,
4795 WORK,
4796 LWORK);
4797 }
4798
4799 //-- dlaqr4 --------------------------------------------------------------------
4800 void
4801 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
4802 const LOGICAL *WANTZ,
4803 const INTEGER *N,
4804 const INTEGER *ILO,
4805 const INTEGER *IHI,
4806 DOUBLE *H,
4807 const INTEGER *LDH,
4808 DOUBLE *WR,
4809 DOUBLE *WI,
4810 const INTEGER *ILOZ,
4811 const INTEGER *IHIZ,
4812 DOUBLE *Z,
4813 const INTEGER *LDZ,
4814 DOUBLE *WORK,
4815 const INTEGER *LWORK,
4816 INTEGER *INFO)
4817 {
4818 DEBUG_LAPACK_STUB("dlaqr4");
4819 LAPACK_IMPL(dlaqr4)(WANTT,
4820 WANTZ,
4821 N,
4822 ILO,
4823 IHI,
4824 H,
4825 LDH,
4826 WR,
4827 WI,
4828 ILOZ,
4829 IHIZ,
4830 Z,
4831 LDZ,
4832 WORK,
4833 LWORK,
4834 INFO);
4835 }
4836
4837 //-- dlaqr5 --------------------------------------------------------------------
4838 void
4839 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
4840 const LOGICAL *WANTZ,
4841 const INTEGER *KACC22,
4842 const INTEGER *N,
4843 const INTEGER *KTOP,
4844 const INTEGER *KBOT,
4845 const INTEGER *NSHFTS,
4846 DOUBLE *SR,
4847 DOUBLE *SI,
4848 DOUBLE *H,
4849 const INTEGER *LDH,
4850 const INTEGER *ILOZ,
4851 const INTEGER *IHIZ,
4852 DOUBLE *Z,
4853 const INTEGER *LDZ,
4854 const DOUBLE *V,
4855 const INTEGER *LDV,
4856 const DOUBLE *U,
4857 const INTEGER *LDU,
4858 const INTEGER *NV,
4859 const DOUBLE *WV,
4860 const INTEGER *LDWV,
4861 const INTEGER *NH,
4862 const DOUBLE *WH,
4863 const INTEGER *LDWH)
4864 {
4865 DEBUG_LAPACK_STUB("dlaqr5");
4866 LAPACK_IMPL(dlaqr5)(WANTT,
4867 WANTZ,
4868 KACC22,
4869 N,
4870 KTOP,
4871 KBOT,
4872 NSHFTS,
4873 SR,
4874 SI,
4875 H,
4876 LDH,
4877 ILOZ,
4878 IHIZ,
4879 Z,
4880 LDZ,
4881 V,
4882 LDV,
4883 U,
4884 LDU,
4885 NV,
4886 WV,
4887 LDWV,
4888 NH,
4889 WH,
4890 LDWH);
4891 }
4892
4893 //-- dlaqsb --------------------------------------------------------------------
4894 void
4895 LAPACK_DECL(dlaqsb)(const char *UPLO,
4896 const INTEGER *N,
4897 const INTEGER *KD,
4898 DOUBLE *AB,
4899 const INTEGER *LDAB,
4900 const DOUBLE *S,
4901 const DOUBLE *SCOND,
4902 const DOUBLE *AMAX,
4903 char *EQUED)
4904 {
4905 DEBUG_LAPACK_STUB("dlaqsb");
4906 LAPACK_IMPL(dlaqsb)(UPLO,
4907 N,
4908 KD,
4909 AB,
4910 LDAB,
4911 S,
4912 SCOND,
4913 AMAX,
4914 EQUED);
4915 }
4916
4917 //-- dlaqsp --------------------------------------------------------------------
4918 void
4919 LAPACK_DECL(dlaqsp)(const char *UPLO,
4920 const INTEGER *N,
4921 DOUBLE *AP,
4922 const DOUBLE *S,
4923 const DOUBLE *SCOND,
4924 const DOUBLE *AMAX,
4925 char *EQUED)
4926 {
4927 DEBUG_LAPACK_STUB("dlaqsp");
4928 LAPACK_IMPL(dlaqsp)(UPLO,
4929 N,
4930 AP,
4931 S,
4932 SCOND,
4933 AMAX,
4934 EQUED);
4935 }
4936
4937 //-- dlaqsy --------------------------------------------------------------------
4938 void
4939 LAPACK_DECL(dlaqsy)(const char *UPLO,
4940 const INTEGER *N,
4941 DOUBLE *A,
4942 const INTEGER *LDA,
4943 const DOUBLE *S,
4944 const DOUBLE *SCOND,
4945 const DOUBLE *AMAX,
4946 char *EQUED)
4947 {
4948 DEBUG_LAPACK_STUB("dlaqsy");
4949 LAPACK_IMPL(dlaqsy)(UPLO,
4950 N,
4951 A,
4952 LDA,
4953 S,
4954 SCOND,
4955 AMAX,
4956 EQUED);
4957 }
4958
4959 //-- dlaqtr --------------------------------------------------------------------
4960 void
4961 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
4962 const LOGICAL *LREAL,
4963 const INTEGER *N,
4964 const DOUBLE *T,
4965 const INTEGER *LDT,
4966 const DOUBLE *B,
4967 const DOUBLE *W,
4968 DOUBLE *SCALE,
4969 DOUBLE *X,
4970 const DOUBLE *WORK,
4971 INTEGER *INFO)
4972 {
4973 DEBUG_LAPACK_STUB("dlaqtr");
4974 LAPACK_IMPL(dlaqtr)(LTRAN,
4975 LREAL,
4976 N,
4977 T,
4978 LDT,
4979 B,
4980 W,
4981 SCALE,
4982 X,
4983 WORK,
4984 INFO);
4985 }
4986
4987 //-- dlar1v --------------------------------------------------------------------
4988 void
4989 LAPACK_DECL(dlar1v)(const INTEGER *N,
4990 const INTEGER *B1,
4991 const INTEGER *BN,
4992 const DOUBLE *LAMBDA,
4993 const DOUBLE *D,
4994 const DOUBLE *L,
4995 const DOUBLE *LD,
4996 const DOUBLE *LLD,
4997 const DOUBLE *PIVMIN,
4998 const DOUBLE *GAPTOL,
4999 DOUBLE *Z,
5000 const LOGICAL *WANTNC,
5001 INTEGER *NEGCNT,
5002 DOUBLE *ZTZ,
5003 DOUBLE *MINGMA,
5004 INTEGER *R,
5005 INTEGER *ISUPPZ,
5006 DOUBLE *NRMINV,
5007 DOUBLE *RESID,
5008 DOUBLE *RQCORR,
5009 const DOUBLE *WORK)
5010 {
5011 DEBUG_LAPACK_STUB("dlar1v");
5012 LAPACK_IMPL(dlar1v)(N,
5013 B1,
5014 BN,
5015 LAMBDA,
5016 D,
5017 L,
5018 LD,
5019 LLD,
5020 PIVMIN,
5021 GAPTOL,
5022 Z,
5023 WANTNC,
5024 NEGCNT,
5025 ZTZ,
5026 MINGMA,
5027 R,
5028 ISUPPZ,
5029 NRMINV,
5030 RESID,
5031 RQCORR,
5032 WORK);
5033 }
5034
5035 //-- dlar2v --------------------------------------------------------------------
5036 void
5037 LAPACK_DECL(dlar2v)(const INTEGER *N,
5038 DOUBLE *X,
5039 DOUBLE *Y,
5040 DOUBLE *Z,
5041 const INTEGER *INCX,
5042 const DOUBLE *C,
5043 const DOUBLE *S,
5044 const INTEGER *INCC)
5045 {
5046 DEBUG_LAPACK_STUB("dlar2v");
5047 LAPACK_IMPL(dlar2v)(N,
5048 X,
5049 Y,
5050 Z,
5051 INCX,
5052 C,
5053 S,
5054 INCC);
5055 }
5056
5057 //-- dlarf ---------------------------------------------------------------------
5058 void
5059 LAPACK_DECL(dlarf)(const char *SIDE,
5060 const INTEGER *M,
5061 const INTEGER *N,
5062 const DOUBLE *V,
5063 const INTEGER *INCV,
5064 const DOUBLE *TAU,
5065 DOUBLE *C,
5066 const INTEGER *LDC,
5067 const DOUBLE *WORK)
5068 {
5069 DEBUG_LAPACK_STUB("enter: dlarf");
5070 LAPACK_IMPL(dlarf)(SIDE,
5071 M,
5072 N,
5073 V,
5074 INCV,
5075 TAU,
5076 C,
5077 LDC,
5078 WORK);
5079 DEBUG_LAPACK_STUB("leave: dlarf");
5080 }
5081
5082 //-- dlarfb --------------------------------------------------------------------
5083 void
5084 LAPACK_DECL(dlarfb)(const char *SIDE,
5085 const char *TRANS,
5086 const char *DIRECT,
5087 const char *STOREV,
5088 const INTEGER *M,
5089 const INTEGER *N,
5090 const INTEGER *K,
5091 const DOUBLE *V,
5092 const INTEGER *LDV,
5093 const DOUBLE *T,
5094 const INTEGER *LDT,
5095 DOUBLE *C,
5096 const INTEGER *LDC,
5097 const DOUBLE *WORK,
5098 const INTEGER *LDWORK)
5099 {
5100 DEBUG_LAPACK_STUB("dlarfb");
5101 LAPACK_IMPL(dlarfb)(SIDE,
5102 TRANS,
5103 DIRECT,
5104 STOREV,
5105 M,
5106 N,
5107 K,
5108 V,
5109 LDV,
5110 T,
5111 LDT,
5112 C,
5113 LDC,
5114 WORK,
5115 LDWORK);
5116 }
5117
5118 //-- dlarfg --------------------------------------------------------------------
5119 void
5120 LAPACK_DECL(dlarfg)(const INTEGER *N,
5121 DOUBLE *ALPHA,
5122 DOUBLE *X,
5123 const INTEGER *INCX,
5124 DOUBLE *TAU)
5125 {
5126 DEBUG_LAPACK_STUB("dlarfg");
5127 LAPACK_IMPL(dlarfg)(N,
5128 ALPHA,
5129 X,
5130 INCX,
5131 TAU);
5132 }
5133
5134 //-- dlarfgp -------------------------------------------------------------------
5135 void
5136 LAPACK_DECL(dlarfgp)(const INTEGER *N,
5137 DOUBLE *ALPHA,
5138 DOUBLE *X,
5139 const INTEGER *INCX,
5140 DOUBLE *TAU)
5141 {
5142 DEBUG_LAPACK_STUB("dlarfgp");
5143 LAPACK_IMPL(dlarfgp)(N,
5144 ALPHA,
5145 X,
5146 INCX,
5147 TAU);
5148 }
5149
5150 //-- dlarft --------------------------------------------------------------------
5151 void
5152 LAPACK_DECL(dlarft)(const char *DIRECT,
5153 const char *STOREV,
5154 const INTEGER *N,
5155 const INTEGER *K,
5156 DOUBLE *V,
5157 const INTEGER *LDV,
5158 const DOUBLE *TAU,
5159 DOUBLE *T,
5160 const INTEGER *LDT)
5161 {
5162 DEBUG_LAPACK_STUB("dlarft");
5163 LAPACK_IMPL(dlarft)(DIRECT,
5164 STOREV,
5165 N,
5166 K,
5167 V,
5168 LDV,
5169 TAU,
5170 T,
5171 LDT);
5172 }
5173
5174 //-- dlarfx --------------------------------------------------------------------
5175 void
5176 LAPACK_DECL(dlarfx)(const char *SIDE,
5177 const INTEGER *M,
5178 const INTEGER *N,
5179 const DOUBLE *V,
5180 const DOUBLE *TAU,
5181 DOUBLE *C,
5182 const INTEGER *LDC,
5183 const DOUBLE *WORK)
5184 {
5185 DEBUG_LAPACK_STUB("dlarfx");
5186 LAPACK_IMPL(dlarfx)(SIDE,
5187 M,
5188 N,
5189 V,
5190 TAU,
5191 C,
5192 LDC,
5193 WORK);
5194 }
5195
5196 //-- dlargv --------------------------------------------------------------------
5197 void
5198 LAPACK_DECL(dlargv)(const INTEGER *N,
5199 DOUBLE *X,
5200 const INTEGER *INCX,
5201 DOUBLE *Y,
5202 const INTEGER *INCY,
5203 DOUBLE *C,
5204 const INTEGER *INCC)
5205 {
5206 DEBUG_LAPACK_STUB("dlargv");
5207 LAPACK_IMPL(dlargv)(N,
5208 X,
5209 INCX,
5210 Y,
5211 INCY,
5212 C,
5213 INCC);
5214 }
5215
5216 //-- dlarnv --------------------------------------------------------------------
5217 void
5218 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
5219 INTEGER *ISEED,
5220 const INTEGER *N,
5221 DOUBLE *X)
5222 {
5223 # ifdef DEBUG_ALL_LAPACK_STUB
5224 DEBUG_LAPACK_STUB("dlarnv");
5225 # endif
5226 LAPACK_IMPL(dlarnv)(IDIST,
5227 ISEED,
5228 N,
5229 X);
5230 }
5231
5232 //-- dlarra --------------------------------------------------------------------
5233 void
5234 LAPACK_DECL(dlarra)(const INTEGER *N,
5235 const DOUBLE *D,
5236 DOUBLE *E,
5237 DOUBLE *E2,
5238 const DOUBLE *SPLTOL,
5239 const DOUBLE *TNRM,
5240 INTEGER *NSPLIT,
5241 INTEGER *ISPLIT,
5242 INTEGER *INFO)
5243 {
5244 DEBUG_LAPACK_STUB("dlarra");
5245 LAPACK_IMPL(dlarra)(N,
5246 D,
5247 E,
5248 E2,
5249 SPLTOL,
5250 TNRM,
5251 NSPLIT,
5252 ISPLIT,
5253 INFO);
5254 }
5255
5256 //-- dlarrb --------------------------------------------------------------------
5257 void
5258 LAPACK_DECL(dlarrb)(const INTEGER *N,
5259 const DOUBLE *D,
5260 const DOUBLE *LLD,
5261 const INTEGER *IFIRST,
5262 const INTEGER *ILAST,
5263 const DOUBLE *RTOL1,
5264 const DOUBLE *RTOL2,
5265 const INTEGER *OFFSET,
5266 DOUBLE *W,
5267 DOUBLE *WGAP,
5268 DOUBLE *WERR,
5269 const DOUBLE *WORK,
5270 const INTEGER *IWORK,
5271 const DOUBLE *PIVMIN,
5272 const DOUBLE *SPDIAM,
5273 const INTEGER *TWIST,
5274 INTEGER *INFO)
5275 {
5276 DEBUG_LAPACK_STUB("dlarrb");
5277 LAPACK_IMPL(dlarrb)(N,
5278 D,
5279 LLD,
5280 IFIRST,
5281 ILAST,
5282 RTOL1,
5283 RTOL2,
5284 OFFSET,
5285 W,
5286 WGAP,
5287 WERR,
5288 WORK,
5289 IWORK,
5290 PIVMIN,
5291 SPDIAM,
5292 TWIST,
5293 INFO);
5294 }
5295
5296 //-- dlarrc --------------------------------------------------------------------
5297 void
5298 LAPACK_DECL(dlarrc)(const char *JOBT,
5299 const INTEGER *N,
5300 const DOUBLE *VL,
5301 const DOUBLE *VU,
5302 const DOUBLE *D,
5303 const DOUBLE *E,
5304 const DOUBLE *PIVMIN,
5305 INTEGER *EIGCNT,
5306 INTEGER *LCNT,
5307 INTEGER *RCNT,
5308 INTEGER *INFO)
5309 {
5310 DEBUG_LAPACK_STUB("dlarrc");
5311 LAPACK_IMPL(dlarrc)(JOBT,
5312 N,
5313 VL,
5314 VU,
5315 D,
5316 E,
5317 PIVMIN,
5318 EIGCNT,
5319 LCNT,
5320 RCNT,
5321 INFO);
5322 }
5323
5324 //-- dlarrd --------------------------------------------------------------------
5325 void
5326 LAPACK_DECL(dlarrd)(const char *RANGE,
5327 const char *ORDER,
5328 const INTEGER *N,
5329 const DOUBLE *VL,
5330 const DOUBLE *VU,
5331 const INTEGER *IL,
5332 const INTEGER *IU,
5333 const DOUBLE *GERS,
5334 const DOUBLE *RELTOL,
5335 const DOUBLE *D,
5336 const DOUBLE *E,
5337 const DOUBLE *E2,
5338 const DOUBLE *PIVMIN,
5339 const INTEGER *NSPLIT,
5340 const INTEGER *ISPLIT,
5341 INTEGER *M,
5342 DOUBLE *W,
5343 DOUBLE *WERR,
5344 DOUBLE *WL,
5345 DOUBLE *WU,
5346 INTEGER *IBLOCK,
5347 INTEGER *INDEXW,
5348 const DOUBLE *WORK,
5349 const INTEGER *IWORK,
5350 INTEGER *INFO)
5351 {
5352 DEBUG_LAPACK_STUB("dlarrd");
5353 LAPACK_IMPL(dlarrd)(RANGE,
5354 ORDER,
5355 N,
5356 VL,
5357 VU,
5358 IL,
5359 IU,
5360 GERS,
5361 RELTOL,
5362 D,
5363 E,
5364 E2,
5365 PIVMIN,
5366 NSPLIT,
5367 ISPLIT,
5368 M,
5369 W,
5370 WERR,
5371 WL,
5372 WU,
5373 IBLOCK,
5374 INDEXW,
5375 WORK,
5376 IWORK,
5377 INFO);
5378 }
5379
5380 //-- dlarre --------------------------------------------------------------------
5381 void
5382 LAPACK_DECL(dlarre)(const char *RANGE,
5383 const INTEGER *N,
5384 DOUBLE *VL,
5385 DOUBLE *VU,
5386 const INTEGER *IL,
5387 const INTEGER *IU,
5388 DOUBLE *D,
5389 DOUBLE *E,
5390 DOUBLE *E2,
5391 const DOUBLE *RTOL1,
5392 const DOUBLE *RTOL2,
5393 const DOUBLE *SPLTOL,
5394 INTEGER *NSPLIT,
5395 INTEGER *ISPLIT,
5396 INTEGER *M,
5397 DOUBLE *W,
5398 DOUBLE *WERR,
5399 DOUBLE *WGAP,
5400 INTEGER *IBLOCK,
5401 INTEGER *INDEXW,
5402 DOUBLE *GERS,
5403 DOUBLE *PIVMIN,
5404 const DOUBLE *WORK,
5405 const INTEGER *IWORK,
5406 INTEGER *INFO)
5407 {
5408 DEBUG_LAPACK_STUB("dlarre");
5409 LAPACK_IMPL(dlarre)(RANGE,
5410 N,
5411 VL,
5412 VU,
5413 IL,
5414 IU,
5415 D,
5416 E,
5417 E2,
5418 RTOL1,
5419 RTOL2,
5420 SPLTOL,
5421 NSPLIT,
5422 ISPLIT,
5423 M,
5424 W,
5425 WERR,
5426 WGAP,
5427 IBLOCK,
5428 INDEXW,
5429 GERS,
5430 PIVMIN,
5431 WORK,
5432 IWORK,
5433 INFO);
5434 }
5435
5436 //-- dlarrf --------------------------------------------------------------------
5437 void
5438 LAPACK_DECL(dlarrf)(const INTEGER *N,
5439 const DOUBLE *D,
5440 const DOUBLE *L,
5441 const DOUBLE *LD,
5442 const INTEGER *CLSTRT,
5443 const INTEGER *CLEND,
5444 const DOUBLE *W,
5445 DOUBLE *WGAP,
5446 const DOUBLE *WERR,
5447 const DOUBLE *SPDIAM,
5448 const DOUBLE *CLGAPL,
5449 const DOUBLE *CLGAPR,
5450 const DOUBLE *PIVMIN,
5451 DOUBLE *SIGMA,
5452 DOUBLE *DPLUS,
5453 DOUBLE *LPLUS,
5454 const DOUBLE *WORK,
5455 INTEGER *INFO)
5456 {
5457 DEBUG_LAPACK_STUB("dlarrf");
5458 LAPACK_IMPL(dlarrf)(N,
5459 D,
5460 L,
5461 LD,
5462 CLSTRT,
5463 CLEND,
5464 W,
5465 WGAP,
5466 WERR,
5467 SPDIAM,
5468 CLGAPL,
5469 CLGAPR,
5470 PIVMIN,
5471 SIGMA,
5472 DPLUS,
5473 LPLUS,
5474 WORK,
5475 INFO);
5476 }
5477
5478 //-- dlarrj --------------------------------------------------------------------
5479 void
5480 LAPACK_DECL(dlarrj)(const INTEGER *N,
5481 const DOUBLE *D,
5482 const DOUBLE *E2,
5483 const INTEGER *IFIRST,
5484 const INTEGER *ILAST,
5485 const DOUBLE *RTOL,
5486 const INTEGER *OFFSET,
5487 DOUBLE *W,
5488 DOUBLE *WERR,
5489 const DOUBLE *WORK,
5490 const INTEGER *IWORK,
5491 const DOUBLE *PIVMIN,
5492 const DOUBLE *SPDIAM,
5493 INTEGER *INFO)
5494 {
5495 DEBUG_LAPACK_STUB("dlarrj");
5496 LAPACK_IMPL(dlarrj)(N,
5497 D,
5498 E2,
5499 IFIRST,
5500 ILAST,
5501 RTOL,
5502 OFFSET,
5503 W,
5504 WERR,
5505 WORK,
5506 IWORK,
5507 PIVMIN,
5508 SPDIAM,
5509 INFO);
5510 }
5511
5512 //-- dlarrk --------------------------------------------------------------------
5513 void
5514 LAPACK_DECL(dlarrk)(const INTEGER *N,
5515 const INTEGER *IW,
5516 const DOUBLE *GL,
5517 const DOUBLE *GU,
5518 const DOUBLE *D,
5519 const DOUBLE *E2,
5520 const DOUBLE *PIVMIN,
5521 const DOUBLE *RELTOL,
5522 DOUBLE *W,
5523 DOUBLE *WERR,
5524 INTEGER *INFO)
5525 {
5526 DEBUG_LAPACK_STUB("dlarrk");
5527 LAPACK_IMPL(dlarrk)(N,
5528 IW,
5529 GL,
5530 GU,
5531 D,
5532 E2,
5533 PIVMIN,
5534 RELTOL,
5535 W,
5536 WERR,
5537 INFO);
5538 }
5539
5540 //-- dlarrr --------------------------------------------------------------------
5541 void
5542 LAPACK_DECL(dlarrr)(const INTEGER *N,
5543 const DOUBLE *D,
5544 DOUBLE *E,
5545 INTEGER *INFO)
5546 {
5547 DEBUG_LAPACK_STUB("dlarrr");
5548 LAPACK_IMPL(dlarrr)(N,
5549 D,
5550 E,
5551 INFO);
5552 }
5553
5554 //-- dlarrv --------------------------------------------------------------------
5555 void
5556 LAPACK_DECL(dlarrv)(const INTEGER *N,
5557 const DOUBLE *VL,
5558 const DOUBLE *VU,
5559 DOUBLE *D,
5560 DOUBLE *L,
5561 const DOUBLE *PIVMIN,
5562 const INTEGER *ISPLIT,
5563 const INTEGER *M,
5564 const INTEGER *DOL,
5565 const INTEGER *DOU,
5566 const DOUBLE *MINRGP,
5567 const DOUBLE *RTOL1,
5568 const DOUBLE *RTOL2,
5569 DOUBLE *W,
5570 DOUBLE *WERR,
5571 DOUBLE *WGAP,
5572 const INTEGER *IBLOCK,
5573 const INTEGER *INDEXW,
5574 const DOUBLE *GERS,
5575 DOUBLE *Z,
5576 const INTEGER *LDZ,
5577 INTEGER *ISUPPZ,
5578 const DOUBLE *WORK,
5579 const INTEGER *IWORK,
5580 INTEGER *INFO)
5581 {
5582 DEBUG_LAPACK_STUB("dlarrv");
5583 LAPACK_IMPL(dlarrv)(N,
5584 VL,
5585 VU,
5586 D,
5587 L,
5588 PIVMIN,
5589 ISPLIT,
5590 M,
5591 DOL,
5592 DOU,
5593 MINRGP,
5594 RTOL1,
5595 RTOL2,
5596 W,
5597 WERR,
5598 WGAP,
5599 IBLOCK,
5600 INDEXW,
5601 GERS,
5602 Z,
5603 LDZ,
5604 ISUPPZ,
5605 WORK,
5606 IWORK,
5607 INFO);
5608 }
5609
5610 //-- dlarscl2 ------------------------------------------------------------------
5611 void
5612 LAPACK_DECL(dlarscl2)(const INTEGER *M,
5613 const INTEGER *N,
5614 const DOUBLE *D,
5615 DOUBLE *X,
5616 const INTEGER *LDX)
5617 {
5618 DEBUG_LAPACK_STUB("dlarscl2");
5619 LAPACK_IMPL(dlarscl2)(M,
5620 N,
5621 D,
5622 X,
5623 LDX);
5624 }
5625
5626 //-- dlartg --------------------------------------------------------------------
5627 void
5628 LAPACK_DECL(dlartg)(const DOUBLE *F,
5629 const DOUBLE *G,
5630 DOUBLE *CS,
5631 DOUBLE *SN,
5632 DOUBLE *R)
5633 {
5634 DEBUG_LAPACK_STUB("dlartg");
5635 LAPACK_IMPL(dlartg)(F,
5636 G,
5637 CS,
5638 SN,
5639 R);
5640 }
5641
5642 //-- dlartgp -------------------------------------------------------------------
5643 void
5644 LAPACK_DECL(dlartgp)(const DOUBLE *F,
5645 const DOUBLE *G,
5646 DOUBLE *CS,
5647 DOUBLE *SN,
5648 DOUBLE *R)
5649 {
5650 DEBUG_LAPACK_STUB("dlartgp");
5651 LAPACK_IMPL(dlartgp)(F,
5652 G,
5653 CS,
5654 SN,
5655 R);
5656 }
5657
5658 //-- dlartgs -------------------------------------------------------------------
5659 void
5660 LAPACK_DECL(dlartgs)(const DOUBLE *X,
5661 const DOUBLE *Y,
5662 const DOUBLE *SIGMA,
5663 DOUBLE *CS,
5664 DOUBLE *SN)
5665 {
5666 DEBUG_LAPACK_STUB("dlartgs");
5667 LAPACK_IMPL(dlartgs)(X,
5668 Y,
5669 SIGMA,
5670 CS,
5671 SN);
5672 }
5673
5674 //-- dlartv --------------------------------------------------------------------
5675 void
5676 LAPACK_DECL(dlartv)(const INTEGER *N,
5677 DOUBLE *X,
5678 const INTEGER *INCX,
5679 DOUBLE *Y,
5680 const INTEGER *INCY,
5681 const DOUBLE *C,
5682 const DOUBLE *S,
5683 const INTEGER *INCC)
5684 {
5685 DEBUG_LAPACK_STUB("dlartv");
5686 LAPACK_IMPL(dlartv)(N,
5687 X,
5688 INCX,
5689 Y,
5690 INCY,
5691 C,
5692 S,
5693 INCC);
5694 }
5695
5696 //-- dlaruv --------------------------------------------------------------------
5697 void
5698 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
5699 const INTEGER *N,
5700 DOUBLE *X)
5701 {
5702 DEBUG_LAPACK_STUB("dlaruv");
5703 LAPACK_IMPL(dlaruv)(ISEED,
5704 N,
5705 X);
5706 }
5707
5708 //-- dlarz ---------------------------------------------------------------------
5709 void
5710 LAPACK_DECL(dlarz)(const char *SIDE,
5711 const INTEGER *M,
5712 const INTEGER *N,
5713 const INTEGER *L,
5714 const DOUBLE *V,
5715 const INTEGER *INCV,
5716 const DOUBLE *TAU,
5717 DOUBLE *C,
5718 const INTEGER *LDC,
5719 const DOUBLE *WORK)
5720 {
5721 DEBUG_LAPACK_STUB("dlarz");
5722 LAPACK_IMPL(dlarz)(SIDE,
5723 M,
5724 N,
5725 L,
5726 V,
5727 INCV,
5728 TAU,
5729 C,
5730 LDC,
5731 WORK);
5732 }
5733
5734 //-- dlarzb --------------------------------------------------------------------
5735 void
5736 LAPACK_DECL(dlarzb)(const char *SIDE,
5737 const char *TRANS,
5738 const char *DIRECT,
5739 const char *STOREV,
5740 const INTEGER *M,
5741 const INTEGER *N,
5742 const INTEGER *K,
5743 const INTEGER *L,
5744 const DOUBLE *V,
5745 const INTEGER *LDV,
5746 const DOUBLE *T,
5747 const INTEGER *LDT,
5748 DOUBLE *C,
5749 const INTEGER *LDC,
5750 const DOUBLE *WORK,
5751 const INTEGER *LDWORK)
5752 {
5753 DEBUG_LAPACK_STUB("dlarzb");
5754 LAPACK_IMPL(dlarzb)(SIDE,
5755 TRANS,
5756 DIRECT,
5757 STOREV,
5758 M,
5759 N,
5760 K,
5761 L,
5762 V,
5763 LDV,
5764 T,
5765 LDT,
5766 C,
5767 LDC,
5768 WORK,
5769 LDWORK);
5770 }
5771
5772 //-- dlarzt --------------------------------------------------------------------
5773 void
5774 LAPACK_DECL(dlarzt)(const char *DIRECT,
5775 const char *STOREV,
5776 const INTEGER *N,
5777 const INTEGER *K,
5778 DOUBLE *V,
5779 const INTEGER *LDV,
5780 const DOUBLE *TAU,
5781 DOUBLE *T,
5782 const INTEGER *LDT)
5783 {
5784 DEBUG_LAPACK_STUB("dlarzt");
5785 LAPACK_IMPL(dlarzt)(DIRECT,
5786 STOREV,
5787 N,
5788 K,
5789 V,
5790 LDV,
5791 TAU,
5792 T,
5793 LDT);
5794 }
5795
5796 //-- dlas2 ---------------------------------------------------------------------
5797 void
5798 LAPACK_DECL(dlas2)(const DOUBLE *F,
5799 const DOUBLE *G,
5800 const DOUBLE *H,
5801 DOUBLE *SSMIN,
5802 DOUBLE *SSMAX)
5803 {
5804 DEBUG_LAPACK_STUB("dlas2");
5805 LAPACK_IMPL(dlas2)(F,
5806 G,
5807 H,
5808 SSMIN,
5809 SSMAX);
5810 }
5811
5812 //-- dlascl --------------------------------------------------------------------
5813 void
5814 LAPACK_DECL(dlascl)(const char *TYPE,
5815 const INTEGER *KL,
5816 const INTEGER *KU,
5817 const DOUBLE *CFROM,
5818 const DOUBLE *CTO,
5819 const INTEGER *M,
5820 const INTEGER *N,
5821 DOUBLE *A,
5822 const INTEGER *LDA,
5823 INTEGER *INFO)
5824 {
5825 DEBUG_LAPACK_STUB("dlascl");
5826 LAPACK_IMPL(dlascl)(TYPE,
5827 KL,
5828 KU,
5829 CFROM,
5830 CTO,
5831 M,
5832 N,
5833 A,
5834 LDA,
5835 INFO);
5836 }
5837
5838 //-- dlascl2 -------------------------------------------------------------------
5839 void
5840 LAPACK_DECL(dlascl2)(const INTEGER *M,
5841 const INTEGER *N,
5842 const DOUBLE *D,
5843 DOUBLE *X,
5844 const INTEGER *LDX)
5845 {
5846 DEBUG_LAPACK_STUB("dlascl2");
5847 LAPACK_IMPL(dlascl2)(M,
5848 N,
5849 D,
5850 X,
5851 LDX);
5852 }
5853
5854 //-- dlasd0 --------------------------------------------------------------------
5855 void
5856 LAPACK_DECL(dlasd0)(const INTEGER *N,
5857 const INTEGER *SQRE,
5858 DOUBLE *D,
5859 const DOUBLE *E,
5860 DOUBLE *U,
5861 const INTEGER *LDU,
5862 DOUBLE *VT,
5863 const INTEGER *LDVT,
5864 const INTEGER *SMLSIZ,
5865 const INTEGER *IWORK,
5866 const DOUBLE *WORK,
5867 INTEGER *INFO)
5868 {
5869 DEBUG_LAPACK_STUB("dlasd0");
5870 LAPACK_IMPL(dlasd0)(N,
5871 SQRE,
5872 D,
5873 E,
5874 U,
5875 LDU,
5876 VT,
5877 LDVT,
5878 SMLSIZ,
5879 IWORK,
5880 WORK,
5881 INFO);
5882 }
5883
5884 //-- dlasd1 --------------------------------------------------------------------
5885 void
5886 LAPACK_DECL(dlasd1)(const INTEGER *NL,
5887 const INTEGER *NR,
5888 const INTEGER *SQRE,
5889 DOUBLE *D,
5890 DOUBLE *ALPHA,
5891 DOUBLE *BETA,
5892 DOUBLE *U,
5893 const INTEGER *LDU,
5894 DOUBLE *VT,
5895 const INTEGER *LDVT,
5896 INTEGER *IDXQ,
5897 const INTEGER *IWORK,
5898 const DOUBLE *WORK,
5899 INTEGER *INFO)
5900 {
5901 DEBUG_LAPACK_STUB("dlasd1");
5902 LAPACK_IMPL(dlasd1)(NL,
5903 NR,
5904 SQRE,
5905 D,
5906 ALPHA,
5907 BETA,
5908 U,
5909 LDU,
5910 VT,
5911 LDVT,
5912 IDXQ,
5913 IWORK,
5914 WORK,
5915 INFO);
5916 }
5917
5918 //-- dlasd2 --------------------------------------------------------------------
5919 void
5920 LAPACK_DECL(dlasd2)(const INTEGER *NL,
5921 const INTEGER *NR,
5922 const INTEGER *SQRE,
5923 INTEGER *K,
5924 DOUBLE *D,
5925 DOUBLE *Z,
5926 const DOUBLE *ALPHA,
5927 const DOUBLE *BETA,
5928 DOUBLE *U,
5929 const INTEGER *LDU,
5930 DOUBLE *VT,
5931 const INTEGER *LDVT,
5932 DOUBLE *DSIGMA,
5933 DOUBLE *U2,
5934 const INTEGER *LDU2,
5935 DOUBLE *VT2,
5936 const INTEGER *LDVT2,
5937 const INTEGER *IDXP,
5938 const INTEGER *IDX,
5939 INTEGER *IDXC,
5940 INTEGER *IDXQ,
5941 INTEGER *COLTYP,
5942 INTEGER *INFO)
5943 {
5944 DEBUG_LAPACK_STUB("dlasd2");
5945 LAPACK_IMPL(dlasd2)(NL,
5946 NR,
5947 SQRE,
5948 K,
5949 D,
5950 Z,
5951 ALPHA,
5952 BETA,
5953 U,
5954 LDU,
5955 VT,
5956 LDVT,
5957 DSIGMA,
5958 U2,
5959 LDU2,
5960 VT2,
5961 LDVT2,
5962 IDXP,
5963 IDX,
5964 IDXC,
5965 IDXQ,
5966 COLTYP,
5967 INFO);
5968 }
5969
5970 //-- dlasd3 --------------------------------------------------------------------
5971 void
5972 LAPACK_DECL(dlasd3)(const INTEGER *NL,
5973 const INTEGER *NR,
5974 const INTEGER *SQRE,
5975 const INTEGER *K,
5976 DOUBLE *D,
5977 const DOUBLE *Q,
5978 const INTEGER *LDQ,
5979 const DOUBLE *DSIGMA,
5980 DOUBLE *U,
5981 const INTEGER *LDU,
5982 DOUBLE *U2,
5983 const INTEGER *LDU2,
5984 DOUBLE *VT,
5985 const INTEGER *LDVT,
5986 DOUBLE *VT2,
5987 const INTEGER *LDVT2,
5988 const INTEGER *IDXC,
5989 const INTEGER *CTOT,
5990 const DOUBLE *Z,
5991 INTEGER *INFO)
5992 {
5993 DEBUG_LAPACK_STUB("dlasd3");
5994 LAPACK_IMPL(dlasd3)(NL,
5995 NR,
5996 SQRE,
5997 K,
5998 D,
5999 Q,
6000 LDQ,
6001 DSIGMA,
6002 U,
6003 LDU,
6004 U2,
6005 LDU2,
6006 VT,
6007 LDVT,
6008 VT2,
6009 LDVT2,
6010 IDXC,
6011 CTOT,
6012 Z,
6013 INFO);
6014 }
6015
6016 //-- dlasd4 --------------------------------------------------------------------
6017 void
6018 LAPACK_DECL(dlasd4)(const INTEGER *N,
6019 const INTEGER *I,
6020 const DOUBLE *D,
6021 const DOUBLE *Z,
6022 DOUBLE *DELTA,
6023 const DOUBLE *RHO,
6024 DOUBLE *SIGMA,
6025 const DOUBLE *WORK,
6026 INTEGER *INFO)
6027 {
6028 DEBUG_LAPACK_STUB("dlasd4");
6029 LAPACK_IMPL(dlasd4)(N,
6030 I,
6031 D,
6032 Z,
6033 DELTA,
6034 RHO,
6035 SIGMA,
6036 WORK,
6037 INFO);
6038 }
6039
6040 //-- dlasd5 --------------------------------------------------------------------
6041 void
6042 LAPACK_DECL(dlasd5)(const INTEGER *I,
6043 const DOUBLE *D,
6044 const DOUBLE *Z,
6045 DOUBLE *DELTA,
6046 const DOUBLE *RHO,
6047 DOUBLE *DSIGMA,
6048 const DOUBLE *WORK)
6049 {
6050 DEBUG_LAPACK_STUB("dlasd5");
6051 LAPACK_IMPL(dlasd5)(I,
6052 D,
6053 Z,
6054 DELTA,
6055 RHO,
6056 DSIGMA,
6057 WORK);
6058 }
6059
6060 //-- dlasd6 --------------------------------------------------------------------
6061 void
6062 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
6063 const INTEGER *NL,
6064 const INTEGER *NR,
6065 const INTEGER *SQRE,
6066 DOUBLE *D,
6067 DOUBLE *VF,
6068 DOUBLE *VL,
6069 DOUBLE *ALPHA,
6070 DOUBLE *BETA,
6071 INTEGER *IDXQ,
6072 INTEGER *PERM,
6073 INTEGER *GIVPTR,
6074 INTEGER *GIVCOL,
6075 const INTEGER *LDGCOL,
6076 DOUBLE *GIVNUM,
6077 const INTEGER *LDGNUM,
6078 DOUBLE *POLES,
6079 DOUBLE *DIFL,
6080 DOUBLE *DIFR,
6081 DOUBLE *Z,
6082 INTEGER *K,
6083 DOUBLE *C,
6084 DOUBLE *S,
6085 const DOUBLE *WORK,
6086 const INTEGER *IWORK,
6087 INTEGER *INFO)
6088 {
6089 DEBUG_LAPACK_STUB("dlasd6");
6090 LAPACK_IMPL(dlasd6)(ICOMPQ,
6091 NL,
6092 NR,
6093 SQRE,
6094 D,
6095 VF,
6096 VL,
6097 ALPHA,
6098 BETA,
6099 IDXQ,
6100 PERM,
6101 GIVPTR,
6102 GIVCOL,
6103 LDGCOL,
6104 GIVNUM,
6105 LDGNUM,
6106 POLES,
6107 DIFL,
6108 DIFR,
6109 Z,
6110 K,
6111 C,
6112 S,
6113 WORK,
6114 IWORK,
6115 INFO);
6116 }
6117
6118 //-- dlasd7 --------------------------------------------------------------------
6119 void
6120 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
6121 const INTEGER *NL,
6122 const INTEGER *NR,
6123 const INTEGER *SQRE,
6124 INTEGER *K,
6125 DOUBLE *D,
6126 DOUBLE *Z,
6127 const DOUBLE *ZW,
6128 DOUBLE *VF,
6129 const DOUBLE *VFW,
6130 DOUBLE *VL,
6131 const DOUBLE *VLW,
6132 const DOUBLE *ALPHA,
6133 const DOUBLE *BETA,
6134 DOUBLE *DSIGMA,
6135 const INTEGER *IDX,
6136 const INTEGER *IDXP,
6137 const INTEGER *IDXQ,
6138 INTEGER *PERM,
6139 INTEGER *GIVPTR,
6140 INTEGER *GIVCOL,
6141 const INTEGER *LDGCOL,
6142 DOUBLE *GIVNUM,
6143 const INTEGER *LDGNUM,
6144 DOUBLE *C,
6145 DOUBLE *S,
6146 INTEGER *INFO)
6147 {
6148 DEBUG_LAPACK_STUB("dlasd7");
6149 LAPACK_IMPL(dlasd7)(ICOMPQ,
6150 NL,
6151 NR,
6152 SQRE,
6153 K,
6154 D,
6155 Z,
6156 ZW,
6157 VF,
6158 VFW,
6159 VL,
6160 VLW,
6161 ALPHA,
6162 BETA,
6163 DSIGMA,
6164 IDX,
6165 IDXP,
6166 IDXQ,
6167 PERM,
6168 GIVPTR,
6169 GIVCOL,
6170 LDGCOL,
6171 GIVNUM,
6172 LDGNUM,
6173 C,
6174 S,
6175 INFO);
6176 }
6177
6178 //-- dlasd8 --------------------------------------------------------------------
6179 void
6180 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
6181 const INTEGER *K,
6182 DOUBLE *D,
6183 DOUBLE *Z,
6184 DOUBLE *VF,
6185 DOUBLE *VL,
6186 DOUBLE *DIFL,
6187 DOUBLE *DIFR,
6188 const INTEGER *LDDIFR,
6189 DOUBLE *DSIGMA,
6190 const DOUBLE *WORK,
6191 INTEGER *INFO)
6192 {
6193 DEBUG_LAPACK_STUB("dlasd8");
6194 LAPACK_IMPL(dlasd8)(ICOMPQ,
6195 K,
6196 D,
6197 Z,
6198 VF,
6199 VL,
6200 DIFL,
6201 DIFR,
6202 LDDIFR,
6203 DSIGMA,
6204 WORK,
6205 INFO);
6206 }
6207
6208 //-- dlasda --------------------------------------------------------------------
6209 void
6210 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
6211 const INTEGER *SMLSIZ,
6212 const INTEGER *N,
6213 const INTEGER *SQRE,
6214 DOUBLE *D,
6215 const DOUBLE *E,
6216 DOUBLE *U,
6217 const INTEGER *LDU,
6218 DOUBLE *VT,
6219 INTEGER *K,
6220 DOUBLE *DIFL,
6221 DOUBLE *DIFR,
6222 DOUBLE *Z,
6223 DOUBLE *POLES,
6224 INTEGER *GIVPTR,
6225 INTEGER *GIVCOL,
6226 const INTEGER *LDGCOL,
6227 INTEGER *PERM,
6228 DOUBLE *GIVNUM,
6229 DOUBLE *C,
6230 DOUBLE *S,
6231 const DOUBLE *WORK,
6232 const INTEGER *IWORK,
6233 INTEGER *INFO)
6234 {
6235 DEBUG_LAPACK_STUB("dlasda");
6236 LAPACK_IMPL(dlasda)(ICOMPQ,
6237 SMLSIZ,
6238 N,
6239 SQRE,
6240 D,
6241 E,
6242 U,
6243 LDU,
6244 VT,
6245 K,
6246 DIFL,
6247 DIFR,
6248 Z,
6249 POLES,
6250 GIVPTR,
6251 GIVCOL,
6252 LDGCOL,
6253 PERM,
6254 GIVNUM,
6255 C,
6256 S,
6257 WORK,
6258 IWORK,
6259 INFO);
6260 }
6261
6262 //-- dlasdq --------------------------------------------------------------------
6263 void
6264 LAPACK_DECL(dlasdq)(const char *UPLO,
6265 const INTEGER *SQRE,
6266 const INTEGER *N,
6267 const INTEGER *NCVT,
6268 const INTEGER *NRU,
6269 const INTEGER *NCC,
6270 DOUBLE *D,
6271 DOUBLE *E,
6272 DOUBLE *VT,
6273 const INTEGER *LDVT,
6274 DOUBLE *U,
6275 const INTEGER *LDU,
6276 DOUBLE *C,
6277 const INTEGER *LDC,
6278 const DOUBLE *WORK,
6279 INTEGER *INFO)
6280 {
6281 DEBUG_LAPACK_STUB("dlasdq");
6282 LAPACK_IMPL(dlasdq)(UPLO,
6283 SQRE,
6284 N,
6285 NCVT,
6286 NRU,
6287 NCC,
6288 D,
6289 E,
6290 VT,
6291 LDVT,
6292 U,
6293 LDU,
6294 C,
6295 LDC,
6296 WORK,
6297 INFO);
6298 }
6299
6300 //-- dlasdt --------------------------------------------------------------------
6301 void
6302 LAPACK_DECL(dlasdt)(const INTEGER *N,
6303 INTEGER *LVL,
6304 INTEGER *ND,
6305 INTEGER *INODE,
6306 INTEGER *NDIML,
6307 INTEGER *NDIMR,
6308 const INTEGER *MSUB)
6309 {
6310 DEBUG_LAPACK_STUB("dlasdt");
6311 LAPACK_IMPL(dlasdt)(N,
6312 LVL,
6313 ND,
6314 INODE,
6315 NDIML,
6316 NDIMR,
6317 MSUB);
6318 }
6319
6320 //-- dlaset --------------------------------------------------------------------
6321 void
6322 LAPACK_DECL(dlaset)(const char *UPLO,
6323 const INTEGER *M,
6324 const INTEGER *N,
6325 const DOUBLE *ALPHA,
6326 const DOUBLE *BETA,
6327 DOUBLE *A,
6328 const INTEGER *LDA)
6329 {
6330 DEBUG_LAPACK_STUB("dlaset");
6331 LAPACK_IMPL(dlaset)(UPLO,
6332 M,
6333 N,
6334 ALPHA,
6335 BETA,
6336 A,
6337 LDA);
6338 }
6339
6340 //-- dlasq1 --------------------------------------------------------------------
6341 void
6342 LAPACK_DECL(dlasq1)(const INTEGER *N,
6343 DOUBLE *D,
6344 DOUBLE *E,
6345 const DOUBLE *WORK,
6346 INTEGER *INFO)
6347 {
6348 DEBUG_LAPACK_STUB("dlasq1");
6349 LAPACK_IMPL(dlasq1)(N,
6350 D,
6351 E,
6352 WORK,
6353 INFO);
6354 }
6355
6356 //-- dlasq2 --------------------------------------------------------------------
6357 void
6358 LAPACK_DECL(dlasq2)(const INTEGER *N,
6359 DOUBLE *Z,
6360 INTEGER *INFO)
6361 {
6362 DEBUG_LAPACK_STUB("dlasq2");
6363 LAPACK_IMPL(dlasq2)(N,
6364 Z,
6365 INFO);
6366 }
6367
6368 //-- dlasq3 --------------------------------------------------------------------
6369 void
6370 LAPACK_DECL(dlasq3)(const INTEGER *I0,
6371 INTEGER *N0,
6372 const DOUBLE *Z,
6373 INTEGER *PP,
6374 DOUBLE *DMIN,
6375 DOUBLE *SIGMA,
6376 DOUBLE *DESIG,
6377 const DOUBLE *QMAX,
6378 INTEGER *NFAIL,
6379 INTEGER *ITER,
6380 INTEGER *NDIV,
6381 const LOGICAL *IEEE,
6382 INTEGER *TTYPE,
6383 DOUBLE *DMIN1,
6384 DOUBLE *DMIN2,
6385 DOUBLE *DN,
6386 DOUBLE *DN1,
6387 DOUBLE *DN2,
6388 DOUBLE *G,
6389 DOUBLE *TAU)
6390 {
6391 DEBUG_LAPACK_STUB("dlasq3");
6392 LAPACK_IMPL(dlasq3)(I0,
6393 N0,
6394 Z,
6395 PP,
6396 DMIN,
6397 SIGMA,
6398 DESIG,
6399 QMAX,
6400 NFAIL,
6401 ITER,
6402 NDIV,
6403 IEEE,
6404 TTYPE,
6405 DMIN1,
6406 DMIN2,
6407 DN,
6408 DN1,
6409 DN2,
6410 G,
6411 TAU);
6412 }
6413
6414 //-- dlasq4 --------------------------------------------------------------------
6415 void
6416 LAPACK_DECL(dlasq4)(const INTEGER *I0,
6417 const INTEGER *N0,
6418 const DOUBLE *Z,
6419 const INTEGER *PP,
6420 const INTEGER *N0IN,
6421 const DOUBLE *DMIN,
6422 const DOUBLE *DMIN1,
6423 const DOUBLE *DMIN2,
6424 const DOUBLE *DN,
6425 const DOUBLE *DN1,
6426 const DOUBLE *DN2,
6427 DOUBLE *TAU,
6428 INTEGER *TTYPE,
6429 DOUBLE *G)
6430 {
6431 DEBUG_LAPACK_STUB("dlasq4");
6432 LAPACK_IMPL(dlasq4)(I0,
6433 N0,
6434 Z,
6435 PP,
6436 N0IN,
6437 DMIN,
6438 DMIN1,
6439 DMIN2,
6440 DN,
6441 DN1,
6442 DN2,
6443 TAU,
6444 TTYPE,
6445 G);
6446 }
6447
6448 //-- dlasq5 --------------------------------------------------------------------
6449 void
6450 LAPACK_DECL(dlasq5)(const INTEGER *I0,
6451 const INTEGER *N0,
6452 const DOUBLE *Z,
6453 const INTEGER *PP,
6454 const DOUBLE *TAU,
6455 DOUBLE *DMIN,
6456 DOUBLE *DMIN1,
6457 DOUBLE *DMIN2,
6458 DOUBLE *DN,
6459 DOUBLE *DNM1,
6460 DOUBLE *DNM2,
6461 const LOGICAL *IEEE)
6462 {
6463 DEBUG_LAPACK_STUB("dlasq5");
6464 LAPACK_IMPL(dlasq5)(I0,
6465 N0,
6466 Z,
6467 PP,
6468 TAU,
6469 DMIN,
6470 DMIN1,
6471 DMIN2,
6472 DN,
6473 DNM1,
6474 DNM2,
6475 IEEE);
6476 }
6477
6478 //-- dlasq6 --------------------------------------------------------------------
6479 void
6480 LAPACK_DECL(dlasq6)(const INTEGER *I0,
6481 const INTEGER *N0,
6482 const DOUBLE *Z,
6483 const INTEGER *PP,
6484 DOUBLE *DMIN,
6485 DOUBLE *DMIN1,
6486 DOUBLE *DMIN2,
6487 DOUBLE *DN,
6488 DOUBLE *DNM1,
6489 DOUBLE *DNM2)
6490 {
6491 DEBUG_LAPACK_STUB("dlasq6");
6492 LAPACK_IMPL(dlasq6)(I0,
6493 N0,
6494 Z,
6495 PP,
6496 DMIN,
6497 DMIN1,
6498 DMIN2,
6499 DN,
6500 DNM1,
6501 DNM2);
6502 }
6503
6504 //-- dlasr ---------------------------------------------------------------------
6505 void
6506 LAPACK_DECL(dlasr)(const char *SIDE,
6507 const char *PIVOT,
6508 const char *DIRECT,
6509 const INTEGER *M,
6510 const INTEGER *N,
6511 const DOUBLE *C,
6512 const DOUBLE *S,
6513 DOUBLE *A,
6514 const INTEGER *LDA)
6515 {
6516 DEBUG_LAPACK_STUB("dlasr");
6517 LAPACK_IMPL(dlasr)(SIDE,
6518 PIVOT,
6519 DIRECT,
6520 M,
6521 N,
6522 C,
6523 S,
6524 A,
6525 LDA);
6526 }
6527
6528 //-- dlasrt --------------------------------------------------------------------
6529 void
6530 LAPACK_DECL(dlasrt)(const char *ID,
6531 const INTEGER *N,
6532 DOUBLE *D,
6533 INTEGER *INFO)
6534 {
6535 DEBUG_LAPACK_STUB("dlasrt");
6536 LAPACK_IMPL(dlasrt)(ID,
6537 N,
6538 D,
6539 INFO);
6540 }
6541
6542 //-- dlassq --------------------------------------------------------------------
6543 void
6544 LAPACK_DECL(dlassq)(const INTEGER *N,
6545 const DOUBLE *X,
6546 const INTEGER *INCX,
6547 DOUBLE *SCALE,
6548 DOUBLE *SUMSQ)
6549 {
6550 DEBUG_LAPACK_STUB("dlassq");
6551 LAPACK_IMPL(dlassq)(N,
6552 X,
6553 INCX,
6554 SCALE,
6555 SUMSQ);
6556 }
6557
6558 //-- dlasv2 --------------------------------------------------------------------
6559 void
6560 LAPACK_DECL(dlasv2)(const DOUBLE *F,
6561 const DOUBLE *G,
6562 const DOUBLE *H,
6563 DOUBLE *SSMIN,
6564 DOUBLE *SSMAX,
6565 DOUBLE *SNR,
6566 DOUBLE *CSR,
6567 DOUBLE *SNL,
6568 DOUBLE *CSL)
6569 {
6570 DEBUG_LAPACK_STUB("dlasv2");
6571 LAPACK_IMPL(dlasv2)(F,
6572 G,
6573 H,
6574 SSMIN,
6575 SSMAX,
6576 SNR,
6577 CSR,
6578 SNL,
6579 CSL);
6580 }
6581
6582 //-- dlaswp --------------------------------------------------------------------
6583 void
6584 LAPACK_DECL(dlaswp)(const INTEGER *N,
6585 DOUBLE *A,
6586 const INTEGER *LDA,
6587 const INTEGER *K1,
6588 const INTEGER *K2,
6589 const INTEGER *IPIV,
6590 const INTEGER *INCX)
6591 {
6592 DEBUG_LAPACK_STUB("dlaswp");
6593 LAPACK_IMPL(dlaswp)(N,
6594 A,
6595 LDA,
6596 K1,
6597 K2,
6598 IPIV,
6599 INCX);
6600 }
6601
6602 //-- dlasy2 --------------------------------------------------------------------
6603 void
6604 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
6605 const LOGICAL *LTRANR,
6606 const INTEGER *ISGN,
6607 const INTEGER *N1,
6608 const INTEGER *N2,
6609 const DOUBLE *TL,
6610 const INTEGER *LDTL,
6611 const DOUBLE *TR,
6612 const INTEGER *LDTR,
6613 const DOUBLE *B,
6614 const INTEGER *LDB,
6615 DOUBLE *SCALE,
6616 DOUBLE *X,
6617 const INTEGER *LDX,
6618 DOUBLE *XNORM,
6619 INTEGER *INFO)
6620 {
6621 DEBUG_LAPACK_STUB("dlasy2");
6622 LAPACK_IMPL(dlasy2)(LTRANL,
6623 LTRANR,
6624 ISGN,
6625 N1,
6626 N2,
6627 TL,
6628 LDTL,
6629 TR,
6630 LDTR,
6631 B,
6632 LDB,
6633 SCALE,
6634 X,
6635 LDX,
6636 XNORM,
6637 INFO);
6638 }
6639
6640 //-- dlasyf --------------------------------------------------------------------
6641 void
6642 LAPACK_DECL(dlasyf)(const char *UPLO,
6643 const INTEGER *N,
6644 const INTEGER *NB,
6645 INTEGER *KB,
6646 DOUBLE *A,
6647 const INTEGER *LDA,
6648 INTEGER *IPIV,
6649 const DOUBLE *W,
6650 const INTEGER *LDW,
6651 INTEGER *INFO)
6652 {
6653 DEBUG_LAPACK_STUB("dlasyf");
6654 LAPACK_IMPL(dlasyf)(UPLO,
6655 N,
6656 NB,
6657 KB,
6658 A,
6659 LDA,
6660 IPIV,
6661 W,
6662 LDW,
6663 INFO);
6664 }
6665
6666 //-- dlat2s --------------------------------------------------------------------
6667 void
6668 LAPACK_DECL(dlat2s)(const char *UPLO,
6669 const INTEGER *N,
6670 const DOUBLE *A,
6671 const INTEGER *LDA,
6672 FLOAT *SA,
6673 const INTEGER *LDSA,
6674 INTEGER *INFO)
6675 {
6676 DEBUG_LAPACK_STUB("dlat2s");
6677 LAPACK_IMPL(dlat2s)(UPLO,
6678 N,
6679 A,
6680 LDA,
6681 SA,
6682 LDSA,
6683 INFO);
6684 }
6685
6686 //-- dlatbs --------------------------------------------------------------------
6687 void
6688 LAPACK_DECL(dlatbs)(const char *UPLO,
6689 const char *TRANS,
6690 const char *DIAG,
6691 const char *NORMIN,
6692 const INTEGER *N,
6693 const INTEGER *KD,
6694 const DOUBLE *AB,
6695 const INTEGER *LDAB,
6696 DOUBLE *X,
6697 DOUBLE *SCALE,
6698 DOUBLE *CNORM,
6699 INTEGER *INFO)
6700 {
6701 DEBUG_LAPACK_STUB("dlatbs");
6702 LAPACK_IMPL(dlatbs)(UPLO,
6703 TRANS,
6704 DIAG,
6705 NORMIN,
6706 N,
6707 KD,
6708 AB,
6709 LDAB,
6710 X,
6711 SCALE,
6712 CNORM,
6713 INFO);
6714 }
6715
6716 //-- dlatdf --------------------------------------------------------------------
6717 void
6718 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
6719 const INTEGER *N,
6720 const DOUBLE *Z,
6721 const INTEGER *LDZ,
6722 DOUBLE *RHS,
6723 DOUBLE *RDSUM,
6724 DOUBLE *RDSCAL,
6725 const INTEGER *IPIV,
6726 const INTEGER *JPIV)
6727 {
6728 DEBUG_LAPACK_STUB("dlatdf");
6729 LAPACK_IMPL(dlatdf)(IJOB,
6730 N,
6731 Z,
6732 LDZ,
6733 RHS,
6734 RDSUM,
6735 RDSCAL,
6736 IPIV,
6737 JPIV);
6738 }
6739
6740 //-- dlatps --------------------------------------------------------------------
6741 void
6742 LAPACK_DECL(dlatps)(const char *UPLO,
6743 const char *TRANS,
6744 const char *DIAG,
6745 const char *NORMIN,
6746 const INTEGER *N,
6747 const DOUBLE *AP,
6748 DOUBLE *X,
6749 DOUBLE *SCALE,
6750 DOUBLE *CNORM,
6751 INTEGER *INFO)
6752 {
6753 DEBUG_LAPACK_STUB("dlatps");
6754 LAPACK_IMPL(dlatps)(UPLO,
6755 TRANS,
6756 DIAG,
6757 NORMIN,
6758 N,
6759 AP,
6760 X,
6761 SCALE,
6762 CNORM,
6763 INFO);
6764 }
6765
6766 //-- dlatrd --------------------------------------------------------------------
6767 void
6768 LAPACK_DECL(dlatrd)(const char *UPLO,
6769 const INTEGER *N,
6770 const INTEGER *NB,
6771 DOUBLE *A,
6772 const INTEGER *LDA,
6773 DOUBLE *E,
6774 DOUBLE *TAU,
6775 DOUBLE *W,
6776 const INTEGER *LDW)
6777 {
6778 DEBUG_LAPACK_STUB("dlatrd");
6779 LAPACK_IMPL(dlatrd)(UPLO,
6780 N,
6781 NB,
6782 A,
6783 LDA,
6784 E,
6785 TAU,
6786 W,
6787 LDW);
6788 }
6789
6790 //-- dlatrs --------------------------------------------------------------------
6791 /*
6792 void
6793 LAPACK_DECL(dlatrs)(const char *UPLO,
6794 const char *TRANS,
6795 const char *DIAG,
6796 const char *NORMIN,
6797 const INTEGER *N,
6798 const DOUBLE *A,
6799 const INTEGER *LDA,
6800 DOUBLE *X,
6801 DOUBLE *SCALE,
6802 DOUBLE *CNORM,
6803 INTEGER *INFO)
6804 {
6805 DEBUG_LAPACK_STUB("dlatrs");
6806 LAPACK_IMPL(dlatrs)(UPLO,
6807 TRANS,
6808 DIAG,
6809 NORMIN,
6810 N,
6811 A,
6812 LDA,
6813 X,
6814 SCALE,
6815 CNORM,
6816 INFO);
6817 }
6818 */
6819
6820 //-- dlatrz --------------------------------------------------------------------
6821 void
6822 LAPACK_DECL(dlatrz)(const INTEGER *M,
6823 const INTEGER *N,
6824 const INTEGER *L,
6825 DOUBLE *A,
6826 const INTEGER *LDA,
6827 DOUBLE *TAU,
6828 const DOUBLE *WORK)
6829 {
6830 DEBUG_LAPACK_STUB("dlatrz");
6831 LAPACK_IMPL(dlatrz)(M,
6832 N,
6833 L,
6834 A,
6835 LDA,
6836 TAU,
6837 WORK);
6838 }
6839
6840 //-- dlatzm --------------------------------------------------------------------
6841 void
6842 LAPACK_DECL(dlatzm)(const char *SIDE,
6843 const INTEGER *M,
6844 const INTEGER *N,
6845 const DOUBLE *V,
6846 const INTEGER *INCV,
6847 const DOUBLE *TAU,
6848 DOUBLE *C1,
6849 DOUBLE *C2,
6850 const INTEGER *LDC,
6851 const DOUBLE *WORK)
6852 {
6853 DEBUG_LAPACK_STUB("dlatzm");
6854 LAPACK_IMPL(dlatzm)(SIDE,
6855 M,
6856 N,
6857 V,
6858 INCV,
6859 TAU,
6860 C1,
6861 C2,
6862 LDC,
6863 WORK);
6864 }
6865
6866 //-- dlauu2 --------------------------------------------------------------------
6867 void
6868 LAPACK_DECL(dlauu2)(const char *UPLO,
6869 const INTEGER *N,
6870 DOUBLE *A,
6871 const INTEGER *LDA,
6872 INTEGER *INFO)
6873 {
6874 DEBUG_LAPACK_STUB("dlauu2");
6875 LAPACK_IMPL(dlauu2)(UPLO,
6876 N,
6877 A,
6878 LDA,
6879 INFO);
6880 }
6881
6882 //-- dlauum --------------------------------------------------------------------
6883 void
6884 LAPACK_DECL(dlauum)(const char *UPLO,
6885 const INTEGER *N,
6886 DOUBLE *A,
6887 const INTEGER *LDA,
6888 INTEGER *INFO)
6889 {
6890 DEBUG_LAPACK_STUB("dlauum");
6891 LAPACK_IMPL(dlauum)(UPLO,
6892 N,
6893 A,
6894 LDA,
6895 INFO);
6896 }
6897
6898 //-- dopgtr --------------------------------------------------------------------
6899 void
6900 LAPACK_DECL(dopgtr)(const char *UPLO,
6901 const INTEGER *N,
6902 const DOUBLE *AP,
6903 const DOUBLE *TAU,
6904 DOUBLE *Q,
6905 const INTEGER *LDQ,
6906 const DOUBLE *WORK,
6907 INTEGER *INFO)
6908 {
6909 DEBUG_LAPACK_STUB("dopgtr");
6910 LAPACK_IMPL(dopgtr)(UPLO,
6911 N,
6912 AP,
6913 TAU,
6914 Q,
6915 LDQ,
6916 WORK,
6917 INFO);
6918 }
6919
6920 //-- dopmtr --------------------------------------------------------------------
6921 void
6922 LAPACK_DECL(dopmtr)(const char *SIDE,
6923 const char *UPLO,
6924 const char *TRANS,
6925 const INTEGER *M,
6926 const INTEGER *N,
6927 const DOUBLE *AP,
6928 const DOUBLE *TAU,
6929 DOUBLE *C,
6930 const INTEGER *LDC,
6931 const DOUBLE *WORK,
6932 INTEGER *INFO)
6933 {
6934 DEBUG_LAPACK_STUB("dopmtr");
6935 LAPACK_IMPL(dopmtr)(SIDE,
6936 UPLO,
6937 TRANS,
6938 M,
6939 N,
6940 AP,
6941 TAU,
6942 C,
6943 LDC,
6944 WORK,
6945 INFO);
6946 }
6947
6948 //-- dorbdb --------------------------------------------------------------------
6949 void
6950 LAPACK_DECL(dorbdb)(const char *TRANS,
6951 const char *SIGNS,
6952 const INTEGER *M,
6953 const INTEGER *P,
6954 const INTEGER *Q,
6955 DOUBLE *X11,
6956 const INTEGER *LDX11,
6957 DOUBLE *X12,
6958 const INTEGER *LDX12,
6959 DOUBLE *X21,
6960 const INTEGER *LDX21,
6961 DOUBLE *X22,
6962 const INTEGER *LDX22,
6963 DOUBLE *THETA,
6964 DOUBLE *PHI,
6965 DOUBLE *TAUP1,
6966 DOUBLE *TAUP2,
6967 DOUBLE *TAUQ1,
6968 DOUBLE *TAUQ2,
6969 const DOUBLE *WORK,
6970 const INTEGER *LWORK,
6971 INTEGER *INFO)
6972 {
6973 DEBUG_LAPACK_STUB("dorbdb");
6974 LAPACK_IMPL(dorbdb)(TRANS,
6975 SIGNS,
6976 M,
6977 P,
6978 Q,
6979 X11,
6980 LDX11,
6981 X12,
6982 LDX12,
6983 X21,
6984 LDX21,
6985 X22,
6986 LDX22,
6987 THETA,
6988 PHI,
6989 TAUP1,
6990 TAUP2,
6991 TAUQ1,
6992 TAUQ2,
6993 WORK,
6994 LWORK,
6995 INFO);
6996 }
6997
6998 //-- dorcsd --------------------------------------------------------------------
6999 void
7000 LAPACK_DECL(dorcsd)(const char *JOBU1,
7001 const char *JOBU2,
7002 const char *JOBV1T,
7003 const char *JOBV2T,
7004 const char *TRANS,
7005 const char *SIGNS,
7006 const INTEGER *M,
7007 const INTEGER *P,
7008 const INTEGER *Q,
7009 const DOUBLE *X11,
7010 const INTEGER *LDX11,
7011 const DOUBLE *X12,
7012 const INTEGER *LDX12,
7013 const DOUBLE *X21,
7014 const INTEGER *LDX21,
7015 const DOUBLE *X22,
7016 const INTEGER *LDX22,
7017 DOUBLE *THETA,
7018 DOUBLE *U1,
7019 const INTEGER *LDU1,
7020 DOUBLE *U2,
7021 const INTEGER *LDU2,
7022 DOUBLE *V1T,
7023 const INTEGER *LDV1T,
7024 DOUBLE *V2T,
7025 const INTEGER *LDV2T,
7026 const DOUBLE *WORK,
7027 const INTEGER *LWORK,
7028 const INTEGER *IWORK,
7029 INTEGER *INFO)
7030 {
7031 DEBUG_LAPACK_STUB("dorcsd");
7032 LAPACK_IMPL(dorcsd)(JOBU1,
7033 JOBU2,
7034 JOBV1T,
7035 JOBV2T,
7036 TRANS,
7037 SIGNS,
7038 M,
7039 P,
7040 Q,
7041 X11,
7042 LDX11,
7043 X12,
7044 LDX12,
7045 X21,
7046 LDX21,
7047 X22,
7048 LDX22,
7049 THETA,
7050 U1,
7051 LDU1,
7052 U2,
7053 LDU2,
7054 V1T,
7055 LDV1T,
7056 V2T,
7057 LDV2T,
7058 WORK,
7059 LWORK,
7060 IWORK,
7061 INFO);
7062 }
7063
7064 //-- dorg2l --------------------------------------------------------------------
7065 void
7066 LAPACK_DECL(dorg2l)(const INTEGER *M,
7067 const INTEGER *N,
7068 const INTEGER *K,
7069 DOUBLE *A,
7070 const INTEGER *LDA,
7071 const DOUBLE *TAU,
7072 const DOUBLE *WORK,
7073 INTEGER *INFO)
7074 {
7075 DEBUG_LAPACK_STUB("dorg2l");
7076 LAPACK_IMPL(dorg2l)(M,
7077 N,
7078 K,
7079 A,
7080 LDA,
7081 TAU,
7082 WORK,
7083 INFO);
7084 }
7085
7086 //-- dorg2r --------------------------------------------------------------------
7087 void
7088 LAPACK_DECL(dorg2r)(const INTEGER *M,
7089 const INTEGER *N,
7090 const INTEGER *K,
7091 DOUBLE *A,
7092 const INTEGER *LDA,
7093 const DOUBLE *TAU,
7094 DOUBLE *WORK,
7095 INTEGER *INFO)
7096 {
7097 DEBUG_LAPACK_STUB("dorg2r");
7098 LAPACK_IMPL(dorg2r)(M,
7099 N,
7100 K,
7101 A,
7102 LDA,
7103 TAU,
7104 WORK,
7105 INFO);
7106 }
7107
7108 //-- dorgbr --------------------------------------------------------------------
7109 void
7110 LAPACK_DECL(dorgbr)(const char *VECT,
7111 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 const INTEGER *LWORK,
7119 INTEGER *INFO)
7120 {
7121 DEBUG_LAPACK_STUB("dorgbr");
7122 LAPACK_IMPL(dorgbr)(VECT,
7123 M,
7124 N,
7125 K,
7126 A,
7127 LDA,
7128 TAU,
7129 WORK,
7130 LWORK,
7131 INFO);
7132 }
7133
7134 //-- dorghr --------------------------------------------------------------------
7135 void
7136 LAPACK_DECL(dorghr)(const INTEGER *N,
7137 const INTEGER *ILO,
7138 const INTEGER *IHI,
7139 DOUBLE *A,
7140 const INTEGER *LDA,
7141 const DOUBLE *TAU,
7142 DOUBLE *WORK,
7143 const INTEGER *LWORK,
7144 INTEGER *INFO)
7145 {
7146 DEBUG_LAPACK_STUB("dorghr");
7147 LAPACK_IMPL(dorghr)(N,
7148 ILO,
7149 IHI,
7150 A,
7151 LDA,
7152 TAU,
7153 WORK,
7154 LWORK,
7155 INFO);
7156 }
7157
7158 //-- dorgl2 --------------------------------------------------------------------
7159 void
7160 LAPACK_DECL(dorgl2)(const INTEGER *M,
7161 const INTEGER *N,
7162 const INTEGER *K,
7163 DOUBLE *A,
7164 const INTEGER *LDA,
7165 const DOUBLE *TAU,
7166 const DOUBLE *WORK,
7167 INTEGER *INFO)
7168 {
7169 DEBUG_LAPACK_STUB("dorgl2");
7170 LAPACK_IMPL(dorgl2)(M,
7171 N,
7172 K,
7173 A,
7174 LDA,
7175 TAU,
7176 WORK,
7177 INFO);
7178 }
7179
7180 //-- dorglq --------------------------------------------------------------------
7181 /*
7182 void
7183 LAPACK_DECL(dorglq)(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 const INTEGER *LWORK,
7191 INTEGER *INFO)
7192 {
7193 DEBUG_LAPACK_STUB("dorglq");
7194 LAPACK_IMPL(dorglq)(M,
7195 N,
7196 K,
7197 A,
7198 LDA,
7199 TAU,
7200 WORK,
7201 LWORK,
7202 INFO);
7203 }
7204 */
7205 //-- dorgql --------------------------------------------------------------------
7206 void
7207 LAPACK_DECL(dorgql)(const INTEGER *M,
7208 const INTEGER *N,
7209 const INTEGER *K,
7210 DOUBLE *A,
7211 const INTEGER *LDA,
7212 const DOUBLE *TAU,
7213 DOUBLE *WORK,
7214 const INTEGER *LWORK,
7215 INTEGER *INFO)
7216 {
7217 DEBUG_LAPACK_STUB("dorgql");
7218 LAPACK_IMPL(dorgql)(M,
7219 N,
7220 K,
7221 A,
7222 LDA,
7223 TAU,
7224 WORK,
7225 LWORK,
7226 INFO);
7227 }
7228
7229 //-- dorgqr --------------------------------------------------------------------
7230 /*
7231 void
7232 LAPACK_DECL(dorgqr)(const INTEGER *M,
7233 const INTEGER *N,
7234 const INTEGER *K,
7235 DOUBLE *A,
7236 const INTEGER *LDA,
7237 const DOUBLE *TAU,
7238 DOUBLE *WORK,
7239 const INTEGER *LWORK,
7240 INTEGER *INFO)
7241 {
7242 DEBUG_LAPACK_STUB("dorgqr");
7243 LAPACK_IMPL(dorgqr)(M,
7244 N,
7245 K,
7246 A,
7247 LDA,
7248 TAU,
7249 WORK,
7250 LWORK,
7251 INFO);
7252 }
7253 */
7254
7255 //-- dorgr2 --------------------------------------------------------------------
7256 void
7257 LAPACK_DECL(dorgr2)(const INTEGER *M,
7258 const INTEGER *N,
7259 const INTEGER *K,
7260 DOUBLE *A,
7261 const INTEGER *LDA,
7262 const DOUBLE *TAU,
7263 const DOUBLE *WORK,
7264 INTEGER *INFO)
7265 {
7266 DEBUG_LAPACK_STUB("dorgr2");
7267 LAPACK_IMPL(dorgr2)(M,
7268 N,
7269 K,
7270 A,
7271 LDA,
7272 TAU,
7273 WORK,
7274 INFO);
7275 }
7276
7277 //-- dorgrq --------------------------------------------------------------------
7278 void
7279 LAPACK_DECL(dorgrq)(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 const INTEGER *LWORK,
7287 INTEGER *INFO)
7288 {
7289 DEBUG_LAPACK_STUB("dorgrq");
7290 LAPACK_IMPL(dorgrq)(M,
7291 N,
7292 K,
7293 A,
7294 LDA,
7295 TAU,
7296 WORK,
7297 LWORK,
7298 INFO);
7299 }
7300
7301 //-- dorgtr --------------------------------------------------------------------
7302 void
7303 LAPACK_DECL(dorgtr)(const char *UPLO,
7304 const INTEGER *N,
7305 DOUBLE *A,
7306 const INTEGER *LDA,
7307 const DOUBLE *TAU,
7308 DOUBLE *WORK,
7309 const INTEGER *LWORK,
7310 INTEGER *INFO)
7311 {
7312 DEBUG_LAPACK_STUB("dorgtr");
7313 LAPACK_IMPL(dorgtr)(UPLO,
7314 N,
7315 A,
7316 LDA,
7317 TAU,
7318 WORK,
7319 LWORK,
7320 INFO);
7321 }
7322
7323 //-- dorm2l --------------------------------------------------------------------
7324 void
7325 LAPACK_DECL(dorm2l)(const char *SIDE,
7326 const char *TRANS,
7327 const INTEGER *M,
7328 const INTEGER *N,
7329 const INTEGER *K,
7330 const DOUBLE *A,
7331 const INTEGER *LDA,
7332 const DOUBLE *TAU,
7333 DOUBLE *C,
7334 const INTEGER *LDC,
7335 const DOUBLE *WORK,
7336 INTEGER *INFO)
7337 {
7338 DEBUG_LAPACK_STUB("dorm2l");
7339 LAPACK_IMPL(dorm2l)(SIDE,
7340 TRANS,
7341 M,
7342 N,
7343 K,
7344 A,
7345 LDA,
7346 TAU,
7347 C,
7348 LDC,
7349 WORK,
7350 INFO);
7351 }
7352
7353 //-- dorm2r --------------------------------------------------------------------
7354 void
7355 LAPACK_DECL(dorm2r)(const char *SIDE,
7356 const char *TRANS,
7357 const INTEGER *M,
7358 const INTEGER *N,
7359 const INTEGER *K,
7360 const DOUBLE *A,
7361 const INTEGER *LDA,
7362 const DOUBLE *TAU,
7363 DOUBLE *C,
7364 const INTEGER *LDC,
7365 const DOUBLE *WORK,
7366 INTEGER *INFO)
7367 {
7368 DEBUG_LAPACK_STUB("dorm2r");
7369 LAPACK_IMPL(dorm2r)(SIDE,
7370 TRANS,
7371 M,
7372 N,
7373 K,
7374 A,
7375 LDA,
7376 TAU,
7377 C,
7378 LDC,
7379 WORK,
7380 INFO);
7381 }
7382
7383 //-- dormbr --------------------------------------------------------------------
7384 void
7385 LAPACK_DECL(dormbr)(const char *VECT,
7386 const char *SIDE,
7387 const char *TRANS,
7388 const INTEGER *M,
7389 const INTEGER *N,
7390 const INTEGER *K,
7391 const DOUBLE *A,
7392 const INTEGER *LDA,
7393 const DOUBLE *TAU,
7394 DOUBLE *C,
7395 const INTEGER *LDC,
7396 DOUBLE *WORK,
7397 const INTEGER *LWORK,
7398 INTEGER *INFO)
7399 {
7400 DEBUG_LAPACK_STUB("dormbr");
7401 LAPACK_IMPL(dormbr)(VECT,
7402 SIDE,
7403 TRANS,
7404 M,
7405 N,
7406 K,
7407 A,
7408 LDA,
7409 TAU,
7410 C,
7411 LDC,
7412 WORK,
7413 LWORK,
7414 INFO);
7415 }
7416
7417 //-- dormhr --------------------------------------------------------------------
7418 void
7419 LAPACK_DECL(dormhr)(const char *SIDE,
7420 const char *TRANS,
7421 const INTEGER *M,
7422 const INTEGER *N,
7423 const INTEGER *ILO,
7424 const INTEGER *IHI,
7425 const DOUBLE *A,
7426 const INTEGER *LDA,
7427 const DOUBLE *TAU,
7428 DOUBLE *C,
7429 const INTEGER *LDC,
7430 DOUBLE *WORK,
7431 const INTEGER *LWORK,
7432 INTEGER *INFO)
7433 {
7434 DEBUG_LAPACK_STUB("dormhr");
7435 LAPACK_IMPL(dormhr)(SIDE,
7436 TRANS,
7437 M,
7438 N,
7439 ILO,
7440 IHI,
7441 A,
7442 LDA,
7443 TAU,
7444 C,
7445 LDC,
7446 WORK,
7447 LWORK,
7448 INFO);
7449 }
7450
7451 //-- dorml2 --------------------------------------------------------------------
7452 void
7453 LAPACK_DECL(dorml2)(const char *SIDE,
7454 const char *TRANS,
7455 const INTEGER *M,
7456 const INTEGER *N,
7457 const INTEGER *K,
7458 const DOUBLE *A,
7459 const INTEGER *LDA,
7460 const DOUBLE *TAU,
7461 DOUBLE *C,
7462 const INTEGER *LDC,
7463 const DOUBLE *WORK,
7464 INTEGER *INFO)
7465 {
7466 DEBUG_LAPACK_STUB("dorml2");
7467 LAPACK_IMPL(dorml2)(SIDE,
7468 TRANS,
7469 M,
7470 N,
7471 K,
7472 A,
7473 LDA,
7474 TAU,
7475 C,
7476 LDC,
7477 WORK,
7478 INFO);
7479 }
7480
7481 //-- dormlq --------------------------------------------------------------------
7482 /*
7483 void
7484 LAPACK_DECL(dormlq)(const char *SIDE,
7485 const char *TRANS,
7486 const INTEGER *M,
7487 const INTEGER *N,
7488 const INTEGER *K,
7489 const DOUBLE *A,
7490 const INTEGER *LDA,
7491 const DOUBLE *TAU,
7492 DOUBLE *C,
7493 const INTEGER *LDC,
7494 DOUBLE *WORK,
7495 const INTEGER *LWORK,
7496 INTEGER *INFO)
7497 {
7498 DEBUG_LAPACK_STUB("dormlq");
7499 LAPACK_IMPL(dormlq)(SIDE,
7500 TRANS,
7501 M,
7502 N,
7503 K,
7504 A,
7505 LDA,
7506 TAU,
7507 C,
7508 LDC,
7509 WORK,
7510 LWORK,
7511 INFO);
7512 }
7513 */
7514 //-- dormql --------------------------------------------------------------------
7515 void
7516 LAPACK_DECL(dormql)(const char *SIDE,
7517 const char *TRANS,
7518 const INTEGER *M,
7519 const INTEGER *N,
7520 const INTEGER *K,
7521 const DOUBLE *A,
7522 const INTEGER *LDA,
7523 const DOUBLE *TAU,
7524 DOUBLE *C,
7525 const INTEGER *LDC,
7526 DOUBLE *WORK,
7527 const INTEGER *LWORK,
7528 INTEGER *INFO)
7529 {
7530 DEBUG_LAPACK_STUB("dormql");
7531 LAPACK_IMPL(dormql)(SIDE,
7532 TRANS,
7533 M,
7534 N,
7535 K,
7536 A,
7537 LDA,
7538 TAU,
7539 C,
7540 LDC,
7541 WORK,
7542 LWORK,
7543 INFO);
7544 }
7545
7546 //-- dormqr --------------------------------------------------------------------
7547 /*
7548 void
7549 LAPACK_DECL(dormqr)(const char *SIDE,
7550 const char *TRANS,
7551 const INTEGER *M,
7552 const INTEGER *N,
7553 const INTEGER *K,
7554 const DOUBLE *A,
7555 const INTEGER *LDA,
7556 const DOUBLE *TAU,
7557 DOUBLE *C,
7558 const INTEGER *LDC,
7559 DOUBLE *WORK,
7560 const INTEGER *LWORK,
7561 INTEGER *INFO)
7562 {
7563 DEBUG_LAPACK_STUB("dormqr");
7564 LAPACK_IMPL(dormqr)(SIDE,
7565 TRANS,
7566 M,
7567 N,
7568 K,
7569 A,
7570 LDA,
7571 TAU,
7572 C,
7573 LDC,
7574 WORK,
7575 LWORK,
7576 INFO);
7577 }
7578 */
7579
7580 //-- dormr2 --------------------------------------------------------------------
7581 void
7582 LAPACK_DECL(dormr2)(const char *SIDE,
7583 const char *TRANS,
7584 const INTEGER *M,
7585 const INTEGER *N,
7586 const INTEGER *K,
7587 const DOUBLE *A,
7588 const INTEGER *LDA,
7589 const DOUBLE *TAU,
7590 DOUBLE *C,
7591 const INTEGER *LDC,
7592 const DOUBLE *WORK,
7593 INTEGER *INFO)
7594 {
7595 DEBUG_LAPACK_STUB("dormr2");
7596 LAPACK_IMPL(dormr2)(SIDE,
7597 TRANS,
7598 M,
7599 N,
7600 K,
7601 A,
7602 LDA,
7603 TAU,
7604 C,
7605 LDC,
7606 WORK,
7607 INFO);
7608 }
7609
7610 //-- dormr3 --------------------------------------------------------------------
7611 void
7612 LAPACK_DECL(dormr3)(const char *SIDE,
7613 const char *TRANS,
7614 const INTEGER *M,
7615 const INTEGER *N,
7616 const INTEGER *K,
7617 const INTEGER *L,
7618 const DOUBLE *A,
7619 const INTEGER *LDA,
7620 const DOUBLE *TAU,
7621 DOUBLE *C,
7622 const INTEGER *LDC,
7623 const DOUBLE *WORK,
7624 INTEGER *INFO)
7625 {
7626 DEBUG_LAPACK_STUB("dormr3");
7627 LAPACK_IMPL(dormr3)(SIDE,
7628 TRANS,
7629 M,
7630 N,
7631 K,
7632 L,
7633 A,
7634 LDA,
7635 TAU,
7636 C,
7637 LDC,
7638 WORK,
7639 INFO);
7640 }
7641
7642 //-- dormrq --------------------------------------------------------------------
7643 void
7644 LAPACK_DECL(dormrq)(const char *SIDE,
7645 const char *TRANS,
7646 const INTEGER *M,
7647 const INTEGER *N,
7648 const INTEGER *K,
7649 const DOUBLE *A,
7650 const INTEGER *LDA,
7651 const DOUBLE *TAU,
7652 DOUBLE *C,
7653 const INTEGER *LDC,
7654 DOUBLE *WORK,
7655 const INTEGER *LWORK,
7656 INTEGER *INFO)
7657 {
7658 DEBUG_LAPACK_STUB("dormrq");
7659 LAPACK_IMPL(dormrq)(SIDE,
7660 TRANS,
7661 M,
7662 N,
7663 K,
7664 A,
7665 LDA,
7666 TAU,
7667 C,
7668 LDC,
7669 WORK,
7670 LWORK,
7671 INFO);
7672 }
7673
7674 //-- dormrz --------------------------------------------------------------------
7675 void
7676 LAPACK_DECL(dormrz)(const char *SIDE,
7677 const char *TRANS,
7678 const INTEGER *M,
7679 const INTEGER *N,
7680 const INTEGER *K,
7681 const INTEGER *L,
7682 const DOUBLE *A,
7683 const INTEGER *LDA,
7684 const DOUBLE *TAU,
7685 DOUBLE *C,
7686 const INTEGER *LDC,
7687 DOUBLE *WORK,
7688 const INTEGER *LWORK,
7689 INTEGER *INFO)
7690 {
7691 DEBUG_LAPACK_STUB("dormrz");
7692 LAPACK_IMPL(dormrz)(SIDE,
7693 TRANS,
7694 M,
7695 N,
7696 K,
7697 L,
7698 A,
7699 LDA,
7700 TAU,
7701 C,
7702 LDC,
7703 WORK,
7704 LWORK,
7705 INFO);
7706 }
7707
7708 //-- dormtr --------------------------------------------------------------------
7709 void
7710 LAPACK_DECL(dormtr)(const char *SIDE,
7711 const char *UPLO,
7712 const char *TRANS,
7713 const INTEGER *M,
7714 const INTEGER *N,
7715 const DOUBLE *A,
7716 const INTEGER *LDA,
7717 const DOUBLE *TAU,
7718 DOUBLE *C,
7719 const INTEGER *LDC,
7720 DOUBLE *WORK,
7721 const INTEGER *LWORK,
7722 INTEGER *INFO)
7723 {
7724 DEBUG_LAPACK_STUB("dormtr");
7725 LAPACK_IMPL(dormtr)(SIDE,
7726 UPLO,
7727 TRANS,
7728 M,
7729 N,
7730 A,
7731 LDA,
7732 TAU,
7733 C,
7734 LDC,
7735 WORK,
7736 LWORK,
7737 INFO);
7738 }
7739
7740 //-- dpbcon --------------------------------------------------------------------
7741 void
7742 LAPACK_DECL(dpbcon)(const char *UPLO,
7743 const INTEGER *N,
7744 const INTEGER *KD,
7745 const DOUBLE *AB,
7746 const INTEGER *LDAB,
7747 const DOUBLE *ANORM,
7748 DOUBLE *RCOND,
7749 const DOUBLE *WORK,
7750 const INTEGER *IWORK,
7751 INTEGER *INFO)
7752 {
7753 DEBUG_LAPACK_STUB("dpbcon");
7754 LAPACK_IMPL(dpbcon)(UPLO,
7755 N,
7756 KD,
7757 AB,
7758 LDAB,
7759 ANORM,
7760 RCOND,
7761 WORK,
7762 IWORK,
7763 INFO);
7764 }
7765
7766 //-- dpbequ --------------------------------------------------------------------
7767 void
7768 LAPACK_DECL(dpbequ)(const char *UPLO,
7769 const INTEGER *N,
7770 const INTEGER *KD,
7771 const DOUBLE *AB,
7772 const INTEGER *LDAB,
7773 DOUBLE *S,
7774 DOUBLE *SCOND,
7775 DOUBLE *AMAX,
7776 INTEGER *INFO)
7777 {
7778 DEBUG_LAPACK_STUB("dpbequ");
7779 LAPACK_IMPL(dpbequ)(UPLO,
7780 N,
7781 KD,
7782 AB,
7783 LDAB,
7784 S,
7785 SCOND,
7786 AMAX,
7787 INFO);
7788 }
7789
7790 //-- dpbrfs --------------------------------------------------------------------
7791 void
7792 LAPACK_DECL(dpbrfs)(const char *UPLO,
7793 const INTEGER *N,
7794 const INTEGER *KD,
7795 const INTEGER *NRHS,
7796 const DOUBLE *AB,
7797 const INTEGER *LDAB,
7798 const DOUBLE *AFB,
7799 const INTEGER *LDAFB,
7800 const DOUBLE *B,
7801 const INTEGER *LDB,
7802 DOUBLE *X,
7803 const INTEGER *LDX,
7804 DOUBLE *FERR,
7805 DOUBLE *BERR,
7806 const DOUBLE *WORK,
7807 const INTEGER *IWORK,
7808 INTEGER *INFO)
7809 {
7810 DEBUG_LAPACK_STUB("dpbrfs");
7811 LAPACK_IMPL(dpbrfs)(UPLO,
7812 N,
7813 KD,
7814 NRHS,
7815 AB,
7816 LDAB,
7817 AFB,
7818 LDAFB,
7819 B,
7820 LDB,
7821 X,
7822 LDX,
7823 FERR,
7824 BERR,
7825 WORK,
7826 IWORK,
7827 INFO);
7828 }
7829
7830 //-- dpbstf --------------------------------------------------------------------
7831 void
7832 LAPACK_DECL(dpbstf)(const char *UPLO,
7833 const INTEGER *N,
7834 const INTEGER *KD,
7835 DOUBLE *AB,
7836 const INTEGER *LDAB,
7837 INTEGER *INFO)
7838 {
7839 DEBUG_LAPACK_STUB("dpbstf");
7840 LAPACK_IMPL(dpbstf)(UPLO,
7841 N,
7842 KD,
7843 AB,
7844 LDAB,
7845 INFO);
7846 }
7847
7848 //-- dpbsv ---------------------------------------------------------------------
7849 void
7850 LAPACK_DECL(dpbsv)(const char *UPLO,
7851 const INTEGER *N,
7852 const INTEGER *KD,
7853 const INTEGER *NRHS,
7854 DOUBLE *AB,
7855 const INTEGER *LDAB,
7856 DOUBLE *B,
7857 const INTEGER *LDB,
7858 INTEGER *INFO)
7859 {
7860 DEBUG_LAPACK_STUB("dpbsv");
7861 LAPACK_IMPL(dpbsv)(UPLO,
7862 N,
7863 KD,
7864 NRHS,
7865 AB,
7866 LDAB,
7867 B,
7868 LDB,
7869 INFO);
7870 }
7871
7872 //-- dpbsvx --------------------------------------------------------------------
7873 void
7874 LAPACK_DECL(dpbsvx)(const char *FACT,
7875 const char *UPLO,
7876 const INTEGER *N,
7877 const INTEGER *KD,
7878 const INTEGER *NRHS,
7879 DOUBLE *AB,
7880 const INTEGER *LDAB,
7881 DOUBLE *AFB,
7882 const INTEGER *LDAFB,
7883 char *EQUED,
7884 DOUBLE *S,
7885 DOUBLE *B,
7886 const INTEGER *LDB,
7887 DOUBLE *X,
7888 const INTEGER *LDX,
7889 DOUBLE *RCOND,
7890 DOUBLE *FERR,
7891 DOUBLE *BERR,
7892 const DOUBLE *WORK,
7893 const INTEGER *IWORK,
7894 INTEGER *INFO)
7895 {
7896 DEBUG_LAPACK_STUB("dpbsvx");
7897 LAPACK_IMPL(dpbsvx)(FACT,
7898 UPLO,
7899 N,
7900 KD,
7901 NRHS,
7902 AB,
7903 LDAB,
7904 AFB,
7905 LDAFB,
7906 EQUED,
7907 S,
7908 B,
7909 LDB,
7910 X,
7911 LDX,
7912 RCOND,
7913 FERR,
7914 BERR,
7915 WORK,
7916 IWORK,
7917 INFO);
7918 }
7919
7920 //-- dpbtf2 --------------------------------------------------------------------
7921 void
7922 LAPACK_DECL(dpbtf2)(const char *UPLO,
7923 const INTEGER *N,
7924 const INTEGER *KD,
7925 DOUBLE *AB,
7926 const INTEGER *LDAB,
7927 INTEGER *INFO)
7928 {
7929 DEBUG_LAPACK_STUB("dpbtf2");
7930 LAPACK_IMPL(dpbtf2)(UPLO,
7931 N,
7932 KD,
7933 AB,
7934 LDAB,
7935 INFO);
7936 }
7937
7938 //-- dpbtrf --------------------------------------------------------------------
7939 void
7940 LAPACK_DECL(dpbtrf)(const char *UPLO,
7941 const INTEGER *N,
7942 const INTEGER *KD,
7943 DOUBLE *AB,
7944 const INTEGER *LDAB,
7945 INTEGER *INFO)
7946 {
7947 DEBUG_LAPACK_STUB("dpbtrf");
7948 LAPACK_IMPL(dpbtrf)(UPLO,
7949 N,
7950 KD,
7951 AB,
7952 LDAB,
7953 INFO);
7954 }
7955
7956 //-- dpbtrs --------------------------------------------------------------------
7957 void
7958 LAPACK_DECL(dpbtrs)(const char *UPLO,
7959 const INTEGER *N,
7960 const INTEGER *KD,
7961 const INTEGER *NRHS,
7962 const DOUBLE *AB,
7963 const INTEGER *LDAB,
7964 DOUBLE *B,
7965 const INTEGER *LDB,
7966 INTEGER *INFO)
7967 {
7968 DEBUG_LAPACK_STUB("dpbtrs");
7969 LAPACK_IMPL(dpbtrs)(UPLO,
7970 N,
7971 KD,
7972 NRHS,
7973 AB,
7974 LDAB,
7975 B,
7976 LDB,
7977 INFO);
7978 }
7979
7980 //-- dpftrf --------------------------------------------------------------------
7981 void
7982 LAPACK_DECL(dpftrf)(const char *TRANSR,
7983 const char *UPLO,
7984 const INTEGER *N,
7985 DOUBLE *A,
7986 INTEGER *INFO)
7987 {
7988 DEBUG_LAPACK_STUB("dpftrf");
7989 LAPACK_IMPL(dpftrf)(TRANSR,
7990 UPLO,
7991 N,
7992 A,
7993 INFO);
7994 }
7995
7996 //-- dpftri --------------------------------------------------------------------
7997 void
7998 LAPACK_DECL(dpftri)(const char *TRANSR,
7999 const char *UPLO,
8000 const INTEGER *N,
8001 DOUBLE *A,
8002 INTEGER *INFO)
8003 {
8004 DEBUG_LAPACK_STUB("dpftri");
8005 LAPACK_IMPL(dpftri)(TRANSR,
8006 UPLO,
8007 N,
8008 A,
8009 INFO);
8010 }
8011
8012 //-- dpftrs --------------------------------------------------------------------
8013 void
8014 LAPACK_DECL(dpftrs)(const char *TRANSR,
8015 const char *UPLO,
8016 const INTEGER *N,
8017 const INTEGER *NRHS,
8018 const DOUBLE *A,
8019 DOUBLE *B,
8020 const INTEGER *LDB,
8021 INTEGER *INFO)
8022 {
8023 DEBUG_LAPACK_STUB("dpftrs");
8024 LAPACK_IMPL(dpftrs)(TRANSR,
8025 UPLO,
8026 N,
8027 NRHS,
8028 A,
8029 B,
8030 LDB,
8031 INFO);
8032 }
8033
8034 //-- dpocon --------------------------------------------------------------------
8035 void
8036 LAPACK_DECL(dpocon)(const char *UPLO,
8037 const INTEGER *N,
8038 const DOUBLE *A,
8039 const INTEGER *LDA,
8040 const DOUBLE *ANORM,
8041 DOUBLE *RCOND,
8042 const DOUBLE *WORK,
8043 const INTEGER *IWORK,
8044 INTEGER *INFO)
8045 {
8046 DEBUG_LAPACK_STUB("dpocon");
8047 LAPACK_IMPL(dpocon)(UPLO,
8048 N,
8049 A,
8050 LDA,
8051 ANORM,
8052 RCOND,
8053 WORK,
8054 IWORK,
8055 INFO);
8056 }
8057
8058 //-- dpoequ --------------------------------------------------------------------
8059 void
8060 LAPACK_DECL(dpoequ)(const INTEGER *N,
8061 const DOUBLE *A,
8062 const INTEGER *LDA,
8063 DOUBLE *S,
8064 DOUBLE *SCOND,
8065 DOUBLE *AMAX,
8066 INTEGER *INFO)
8067 {
8068 DEBUG_LAPACK_STUB("dpoequ");
8069 LAPACK_IMPL(dpoequ)(N,
8070 A,
8071 LDA,
8072 S,
8073 SCOND,
8074 AMAX,
8075 INFO);
8076 }
8077
8078 //-- dpoequb -------------------------------------------------------------------
8079 void
8080 LAPACK_DECL(dpoequb)(const INTEGER *N,
8081 const DOUBLE *A,
8082 const INTEGER *LDA,
8083 DOUBLE *S,
8084 DOUBLE *SCOND,
8085 DOUBLE *AMAX,
8086 INTEGER *INFO)
8087 {
8088 DEBUG_LAPACK_STUB("dpoequb");
8089 LAPACK_IMPL(dpoequb)(N,
8090 A,
8091 LDA,
8092 S,
8093 SCOND,
8094 AMAX,
8095 INFO);
8096 }
8097
8098 //-- dporfs --------------------------------------------------------------------
8099 void
8100 LAPACK_DECL(dporfs)(const char *UPLO,
8101 const INTEGER *N,
8102 const INTEGER *NRHS,
8103 const DOUBLE *A,
8104 const INTEGER *LDA,
8105 const DOUBLE *AF,
8106 const INTEGER *LDAF,
8107 const DOUBLE *B,
8108 const INTEGER *LDB,
8109 DOUBLE *X,
8110 const INTEGER *LDX,
8111 DOUBLE *FERR,
8112 DOUBLE *BERR,
8113 const DOUBLE *WORK,
8114 const INTEGER *IWORK,
8115 INTEGER *INFO)
8116 {
8117 DEBUG_LAPACK_STUB("dporfs");
8118 LAPACK_IMPL(dporfs)(UPLO,
8119 N,
8120 NRHS,
8121 A,
8122 LDA,
8123 AF,
8124 LDAF,
8125 B,
8126 LDB,
8127 X,
8128 LDX,
8129 FERR,
8130 BERR,
8131 WORK,
8132 IWORK,
8133 INFO);
8134 }
8135
8136 //-- dposv ---------------------------------------------------------------------
8137 /*
8138 void
8139 LAPACK_DECL(dposv)(const char *UPLO,
8140 const INTEGER *N,
8141 const INTEGER *NRHS,
8142 DOUBLE *A,
8143 const INTEGER *LDA,
8144 DOUBLE *B,
8145 const INTEGER *LDB,
8146 INTEGER *INFO)
8147 {
8148 DEBUG_LAPACK_STUB("dposv");
8149 LAPACK_IMPL(dposv)(UPLO,
8150 N,
8151 NRHS,
8152 A,
8153 LDA,
8154 B,
8155 LDB,
8156 INFO);
8157 }
8158 */
8159
8160 //-- dposvx --------------------------------------------------------------------
8161 void
8162 LAPACK_DECL(dposvx)(const char *FACT,
8163 const char *UPLO,
8164 const INTEGER *N,
8165 const INTEGER *NRHS,
8166 DOUBLE *A,
8167 const INTEGER *LDA,
8168 DOUBLE *AF,
8169 const INTEGER *LDAF,
8170 char *EQUED,
8171 DOUBLE *S,
8172 DOUBLE *B,
8173 const INTEGER *LDB,
8174 DOUBLE *X,
8175 const INTEGER *LDX,
8176 DOUBLE *RCOND,
8177 DOUBLE *FERR,
8178 DOUBLE *BERR,
8179 const DOUBLE *WORK,
8180 const INTEGER *IWORK,
8181 INTEGER *INFO)
8182 {
8183 DEBUG_LAPACK_STUB("dposvx");
8184 LAPACK_IMPL(dposvx)(FACT,
8185 UPLO,
8186 N,
8187 NRHS,
8188 A,
8189 LDA,
8190 AF,
8191 LDAF,
8192 EQUED,
8193 S,
8194 B,
8195 LDB,
8196 X,
8197 LDX,
8198 RCOND,
8199 FERR,
8200 BERR,
8201 WORK,
8202 IWORK,
8203 INFO);
8204 }
8205
8206 //-- dpotf2 --------------------------------------------------------------------
8207 void
8208 LAPACK_DECL(dpotf2)(const char *UPLO,
8209 const INTEGER *N,
8210 DOUBLE *A,
8211 const INTEGER *LDA,
8212 INTEGER *INFO)
8213 {
8214 DEBUG_LAPACK_STUB("dpotf2");
8215 LAPACK_IMPL(dpotf2)(UPLO,
8216 N,
8217 A,
8218 LDA,
8219 INFO);
8220 }
8221
8222 //-- dpotrf --------------------------------------------------------------------
8223 /*
8224 void
8225 LAPACK_DECL(dpotrf)(const char *UPLO,
8226 const INTEGER *N,
8227 DOUBLE *A,
8228 const INTEGER *LDA,
8229 INTEGER *INFO)
8230 {
8231 DEBUG_LAPACK_STUB("dpotrf");
8232 LAPACK_IMPL(dpotrf)(UPLO,
8233 N,
8234 A,
8235 LDA,
8236 INFO);
8237 }
8238 */
8239
8240 //-- dpotri --------------------------------------------------------------------
8241 /*
8242 void
8243 LAPACK_DECL(dpotri)(const char *UPLO,
8244 const INTEGER *N,
8245 DOUBLE *A,
8246 const INTEGER *LDA,
8247 INTEGER *INFO)
8248 {
8249 DEBUG_LAPACK_STUB("dpotri");
8250 LAPACK_IMPL(dpotri)(UPLO,
8251 N,
8252 A,
8253 LDA,
8254 INFO);
8255 }
8256 */
8257
8258 //-- dpotrs --------------------------------------------------------------------
8259 /*
8260 void
8261 LAPACK_DECL(dpotrs)(const char *UPLO,
8262 const INTEGER *N,
8263 const INTEGER *NRHS,
8264 const DOUBLE *A,
8265 const INTEGER *LDA,
8266 DOUBLE *B,
8267 const INTEGER *LDB,
8268 INTEGER *INFO)
8269 {
8270 DEBUG_LAPACK_STUB("dpotrs");
8271 LAPACK_IMPL(dpotrs)(UPLO,
8272 N,
8273 NRHS,
8274 A,
8275 LDA,
8276 B,
8277 LDB,
8278 INFO);
8279 }
8280 */
8281
8282 //-- dppcon --------------------------------------------------------------------
8283 void
8284 LAPACK_DECL(dppcon)(const char *UPLO,
8285 const INTEGER *N,
8286 const DOUBLE *AP,
8287 const DOUBLE *ANORM,
8288 DOUBLE *RCOND,
8289 const DOUBLE *WORK,
8290 const INTEGER *IWORK,
8291 INTEGER *INFO)
8292 {
8293 DEBUG_LAPACK_STUB("dppcon");
8294 LAPACK_IMPL(dppcon)(UPLO,
8295 N,
8296 AP,
8297 ANORM,
8298 RCOND,
8299 WORK,
8300 IWORK,
8301 INFO);
8302 }
8303
8304 //-- dppequ --------------------------------------------------------------------
8305 void
8306 LAPACK_DECL(dppequ)(const char *UPLO,
8307 const INTEGER *N,
8308 const DOUBLE *AP,
8309 DOUBLE *S,
8310 DOUBLE *SCOND,
8311 DOUBLE *AMAX,
8312 INTEGER *INFO)
8313 {
8314 DEBUG_LAPACK_STUB("dppequ");
8315 LAPACK_IMPL(dppequ)(UPLO,
8316 N,
8317 AP,
8318 S,
8319 SCOND,
8320 AMAX,
8321 INFO);
8322 }
8323
8324 //-- dpprfs --------------------------------------------------------------------
8325 void
8326 LAPACK_DECL(dpprfs)(const char *UPLO,
8327 const INTEGER *N,
8328 const INTEGER *NRHS,
8329 const DOUBLE *AP,
8330 const DOUBLE *AFP,
8331 const DOUBLE *B,
8332 const INTEGER *LDB,
8333 DOUBLE *X,
8334 const INTEGER *LDX,
8335 DOUBLE *FERR,
8336 DOUBLE *BERR,
8337 const DOUBLE *WORK,
8338 const INTEGER *IWORK,
8339 INTEGER *INFO)
8340 {
8341 DEBUG_LAPACK_STUB("dpprfs");
8342 LAPACK_IMPL(dpprfs)(UPLO,
8343 N,
8344 NRHS,
8345 AP,
8346 AFP,
8347 B,
8348 LDB,
8349 X,
8350 LDX,
8351 FERR,
8352 BERR,
8353 WORK,
8354 IWORK,
8355 INFO);
8356 }
8357
8358 //-- dppsv ---------------------------------------------------------------------
8359 void
8360 LAPACK_DECL(dppsv)(const char *UPLO,
8361 const INTEGER *N,
8362 const INTEGER *NRHS,
8363 DOUBLE *AP,
8364 DOUBLE *B,
8365 const INTEGER *LDB,
8366 INTEGER *INFO)
8367 {
8368 DEBUG_LAPACK_STUB("dppsv");
8369 LAPACK_IMPL(dppsv)(UPLO,
8370 N,
8371 NRHS,
8372 AP,
8373 B,
8374 LDB,
8375 INFO);
8376 }
8377
8378 //-- dppsvx --------------------------------------------------------------------
8379 void
8380 LAPACK_DECL(dppsvx)(const char *FACT,
8381 const char *UPLO,
8382 const INTEGER *N,
8383 const INTEGER *NRHS,
8384 DOUBLE *AP,
8385 DOUBLE *AFP,
8386 char *EQUED,
8387 DOUBLE *S,
8388 DOUBLE *B,
8389 const INTEGER *LDB,
8390 DOUBLE *X,
8391 const INTEGER *LDX,
8392 DOUBLE *RCOND,
8393 DOUBLE *FERR,
8394 DOUBLE *BERR,
8395 const DOUBLE *WORK,
8396 const INTEGER *IWORK,
8397 INTEGER *INFO)
8398 {
8399 DEBUG_LAPACK_STUB("dppsvx");
8400 LAPACK_IMPL(dppsvx)(FACT,
8401 UPLO,
8402 N,
8403 NRHS,
8404 AP,
8405 AFP,
8406 EQUED,
8407 S,
8408 B,
8409 LDB,
8410 X,
8411 LDX,
8412 RCOND,
8413 FERR,
8414 BERR,
8415 WORK,
8416 IWORK,
8417 INFO);
8418 }
8419
8420 //-- dpptrf --------------------------------------------------------------------
8421 void
8422 LAPACK_DECL(dpptrf)(const char *UPLO,
8423 const INTEGER *N,
8424 DOUBLE *AP,
8425 INTEGER *INFO)
8426 {
8427 DEBUG_LAPACK_STUB("dpptrf");
8428 LAPACK_IMPL(dpptrf)(UPLO,
8429 N,
8430 AP,
8431 INFO);
8432 }
8433
8434 //-- dpptri --------------------------------------------------------------------
8435 void
8436 LAPACK_DECL(dpptri)(const char *UPLO,
8437 const INTEGER *N,
8438 DOUBLE *AP,
8439 INTEGER *INFO)
8440 {
8441 DEBUG_LAPACK_STUB("dpptri");
8442 LAPACK_IMPL(dpptri)(UPLO,
8443 N,
8444 AP,
8445 INFO);
8446 }
8447
8448 //-- dpptrs --------------------------------------------------------------------
8449 void
8450 LAPACK_DECL(dpptrs)(const char *UPLO,
8451 const INTEGER *N,
8452 const INTEGER *NRHS,
8453 const DOUBLE *AP,
8454 DOUBLE *B,
8455 const INTEGER *LDB,
8456 INTEGER *INFO)
8457 {
8458 DEBUG_LAPACK_STUB("dpptrs");
8459 LAPACK_IMPL(dpptrs)(UPLO,
8460 N,
8461 NRHS,
8462 AP,
8463 B,
8464 LDB,
8465 INFO);
8466 }
8467
8468 //-- dpstf2 --------------------------------------------------------------------
8469 void
8470 LAPACK_DECL(dpstf2)(const char *UPLO,
8471 const INTEGER *N,
8472 DOUBLE *A,
8473 const INTEGER *LDA,
8474 INTEGER *PIV,
8475 INTEGER *RANK,
8476 const DOUBLE *TOL,
8477 const DOUBLE *WORK,
8478 INTEGER *INFO)
8479 {
8480 DEBUG_LAPACK_STUB("dpstf2");
8481 LAPACK_IMPL(dpstf2)(UPLO,
8482 N,
8483 A,
8484 LDA,
8485 PIV,
8486 RANK,
8487 TOL,
8488 WORK,
8489 INFO);
8490 }
8491
8492 //-- dpstrf --------------------------------------------------------------------
8493 void
8494 LAPACK_DECL(dpstrf)(const char *UPLO,
8495 const INTEGER *N,
8496 DOUBLE *A,
8497 const INTEGER *LDA,
8498 INTEGER *PIV,
8499 INTEGER *RANK,
8500 const DOUBLE *TOL,
8501 const DOUBLE *WORK,
8502 INTEGER *INFO)
8503 {
8504 DEBUG_LAPACK_STUB("dpstrf");
8505 LAPACK_IMPL(dpstrf)(UPLO,
8506 N,
8507 A,
8508 LDA,
8509 PIV,
8510 RANK,
8511 TOL,
8512 WORK,
8513 INFO);
8514 }
8515
8516 //-- dptcon --------------------------------------------------------------------
8517 void
8518 LAPACK_DECL(dptcon)(const INTEGER *N,
8519 const DOUBLE *D,
8520 const DOUBLE *E,
8521 const DOUBLE *ANORM,
8522 DOUBLE *RCOND,
8523 const DOUBLE *WORK,
8524 INTEGER *INFO)
8525 {
8526 DEBUG_LAPACK_STUB("dptcon");
8527 LAPACK_IMPL(dptcon)(N,
8528 D,
8529 E,
8530 ANORM,
8531 RCOND,
8532 WORK,
8533 INFO);
8534 }
8535
8536 //-- dpteqr --------------------------------------------------------------------
8537 void
8538 LAPACK_DECL(dpteqr)(const char *COMPZ,
8539 const INTEGER *N,
8540 DOUBLE *D,
8541 DOUBLE *E,
8542 DOUBLE *Z,
8543 const INTEGER *LDZ,
8544 const DOUBLE *WORK,
8545 INTEGER *INFO)
8546 {
8547 DEBUG_LAPACK_STUB("dpteqr");
8548 LAPACK_IMPL(dpteqr)(COMPZ,
8549 N,
8550 D,
8551 E,
8552 Z,
8553 LDZ,
8554 WORK,
8555 INFO);
8556 }
8557
8558 //-- dptrfs --------------------------------------------------------------------
8559 void
8560 LAPACK_DECL(dptrfs)(const INTEGER *N,
8561 const INTEGER *NRHS,
8562 const DOUBLE *D,
8563 const DOUBLE *E,
8564 const DOUBLE *DF,
8565 const DOUBLE *EF,
8566 const DOUBLE *B,
8567 const INTEGER *LDB,
8568 DOUBLE *X,
8569 const INTEGER *LDX,
8570 DOUBLE *FERR,
8571 DOUBLE *BERR,
8572 const DOUBLE *WORK,
8573 INTEGER *INFO)
8574 {
8575 DEBUG_LAPACK_STUB("dptrfs");
8576 LAPACK_IMPL(dptrfs)(N,
8577 NRHS,
8578 D,
8579 E,
8580 DF,
8581 EF,
8582 B,
8583 LDB,
8584 X,
8585 LDX,
8586 FERR,
8587 BERR,
8588 WORK,
8589 INFO);
8590 }
8591
8592 //-- dptsv ---------------------------------------------------------------------
8593 void
8594 LAPACK_DECL(dptsv)(const INTEGER *N,
8595 const INTEGER *NRHS,
8596 DOUBLE *D,
8597 DOUBLE *E,
8598 DOUBLE *B,
8599 const INTEGER *LDB,
8600 INTEGER *INFO)
8601 {
8602 DEBUG_LAPACK_STUB("dptsv");
8603 LAPACK_IMPL(dptsv)(N,
8604 NRHS,
8605 D,
8606 E,
8607 B,
8608 LDB,
8609 INFO);
8610 }
8611
8612 //-- dptsvx --------------------------------------------------------------------
8613 void
8614 LAPACK_DECL(dptsvx)(const char *FACT,
8615 const INTEGER *N,
8616 const INTEGER *NRHS,
8617 const DOUBLE *D,
8618 const DOUBLE *E,
8619 DOUBLE *DF,
8620 DOUBLE *EF,
8621 const DOUBLE *B,
8622 const INTEGER *LDB,
8623 DOUBLE *X,
8624 const INTEGER *LDX,
8625 DOUBLE *RCOND,
8626 DOUBLE *FERR,
8627 DOUBLE *BERR,
8628 const DOUBLE *WORK,
8629 INTEGER *INFO)
8630 {
8631 DEBUG_LAPACK_STUB("dptsvx");
8632 LAPACK_IMPL(dptsvx)(FACT,
8633 N,
8634 NRHS,
8635 D,
8636 E,
8637 DF,
8638 EF,
8639 B,
8640 LDB,
8641 X,
8642 LDX,
8643 RCOND,
8644 FERR,
8645 BERR,
8646 WORK,
8647 INFO);
8648 }
8649
8650 //-- dpttrf --------------------------------------------------------------------
8651 void
8652 LAPACK_DECL(dpttrf)(const INTEGER *N,
8653 DOUBLE *D,
8654 DOUBLE *E,
8655 INTEGER *INFO)
8656 {
8657 DEBUG_LAPACK_STUB("dpttrf");
8658 LAPACK_IMPL(dpttrf)(N,
8659 D,
8660 E,
8661 INFO);
8662 }
8663
8664 //-- dpttrs --------------------------------------------------------------------
8665 void
8666 LAPACK_DECL(dpttrs)(const INTEGER *N,
8667 const INTEGER *NRHS,
8668 const DOUBLE *D,
8669 const DOUBLE *E,
8670 DOUBLE *B,
8671 const INTEGER *LDB,
8672 INTEGER *INFO)
8673 {
8674 DEBUG_LAPACK_STUB("dpttrs");
8675 LAPACK_IMPL(dpttrs)(N,
8676 NRHS,
8677 D,
8678 E,
8679 B,
8680 LDB,
8681 INFO);
8682 }
8683
8684 //-- dptts2 --------------------------------------------------------------------
8685 void
8686 LAPACK_DECL(dptts2)(const INTEGER *N,
8687 const INTEGER *NRHS,
8688 const DOUBLE *D,
8689 const DOUBLE *E,
8690 DOUBLE *B,
8691 const INTEGER *LDB)
8692 {
8693 DEBUG_LAPACK_STUB("dptts2");
8694 LAPACK_IMPL(dptts2)(N,
8695 NRHS,
8696 D,
8697 E,
8698 B,
8699 LDB);
8700 }
8701
8702 //-- drscl ---------------------------------------------------------------------
8703 void
8704 LAPACK_DECL(drscl)(const INTEGER *N,
8705 const DOUBLE *SA,
8706 DOUBLE *SX,
8707 const INTEGER *INCX)
8708 {
8709 DEBUG_LAPACK_STUB("drscl");
8710 LAPACK_IMPL(drscl)(N,
8711 SA,
8712 SX,
8713 INCX);
8714 }
8715
8716 //-- dsbev ---------------------------------------------------------------------
8717 void
8718 LAPACK_DECL(dsbev)(const char *JOBZ,
8719 const char *UPLO,
8720 const INTEGER *N,
8721 const INTEGER *KD,
8722 DOUBLE *AB,
8723 const INTEGER *LDAB,
8724 DOUBLE *W,
8725 DOUBLE *Z,
8726 const INTEGER *LDZ,
8727 const DOUBLE *WORK,
8728 INTEGER *INFO)
8729 {
8730 DEBUG_LAPACK_STUB("dsbev");
8731 LAPACK_IMPL(dsbev)(JOBZ,
8732 UPLO,
8733 N,
8734 KD,
8735 AB,
8736 LDAB,
8737 W,
8738 Z,
8739 LDZ,
8740 WORK,
8741 INFO);
8742 }
8743
8744 //-- dsbevd --------------------------------------------------------------------
8745 void
8746 LAPACK_DECL(dsbevd)(const char *JOBZ,
8747 const char *UPLO,
8748 const INTEGER *N,
8749 const INTEGER *KD,
8750 DOUBLE *AB,
8751 const INTEGER *LDAB,
8752 DOUBLE *W,
8753 DOUBLE *Z,
8754 const INTEGER *LDZ,
8755 DOUBLE *WORK,
8756 const INTEGER *LWORK,
8757 INTEGER *IWORK,
8758 const INTEGER *LIWORK,
8759 INTEGER *INFO)
8760 {
8761 DEBUG_LAPACK_STUB("dsbevd");
8762 LAPACK_IMPL(dsbevd)(JOBZ,
8763 UPLO,
8764 N,
8765 KD,
8766 AB,
8767 LDAB,
8768 W,
8769 Z,
8770 LDZ,
8771 WORK,
8772 LWORK,
8773 IWORK,
8774 LIWORK,
8775 INFO);
8776 }
8777
8778 //-- dsbevx --------------------------------------------------------------------
8779 void
8780 LAPACK_DECL(dsbevx)(const char *JOBZ,
8781 const char *RANGE,
8782 const char *UPLO,
8783 const INTEGER *N,
8784 const INTEGER *KD,
8785 DOUBLE *AB,
8786 const INTEGER *LDAB,
8787 DOUBLE *Q,
8788 const INTEGER *LDQ,
8789 const DOUBLE *VL,
8790 const DOUBLE *VU,
8791 const INTEGER *IL,
8792 const INTEGER *IU,
8793 const DOUBLE *ABSTOL,
8794 INTEGER *M,
8795 DOUBLE *W,
8796 DOUBLE *Z,
8797 const INTEGER *LDZ,
8798 const DOUBLE *WORK,
8799 const INTEGER *IWORK,
8800 INTEGER *IFAIL,
8801 INTEGER *INFO)
8802 {
8803 DEBUG_LAPACK_STUB("dsbevx");
8804 LAPACK_IMPL(dsbevx)(JOBZ,
8805 RANGE,
8806 UPLO,
8807 N,
8808 KD,
8809 AB,
8810 LDAB,
8811 Q,
8812 LDQ,
8813 VL,
8814 VU,
8815 IL,
8816 IU,
8817 ABSTOL,
8818 M,
8819 W,
8820 Z,
8821 LDZ,
8822 WORK,
8823 IWORK,
8824 IFAIL,
8825 INFO);
8826 }
8827
8828 //-- dsbgst --------------------------------------------------------------------
8829 void
8830 LAPACK_DECL(dsbgst)(const char *VECT,
8831 const char *UPLO,
8832 const INTEGER *N,
8833 const INTEGER *KA,
8834 const INTEGER *KB,
8835 DOUBLE *AB,
8836 const INTEGER *LDAB,
8837 const DOUBLE *BB,
8838 const INTEGER *LDBB,
8839 DOUBLE *X,
8840 const INTEGER *LDX,
8841 const DOUBLE *WORK,
8842 INTEGER *INFO)
8843 {
8844 DEBUG_LAPACK_STUB("dsbgst");
8845 LAPACK_IMPL(dsbgst)(VECT,
8846 UPLO,
8847 N,
8848 KA,
8849 KB,
8850 AB,
8851 LDAB,
8852 BB,
8853 LDBB,
8854 X,
8855 LDX,
8856 WORK,
8857 INFO);
8858 }
8859
8860 //-- dsbgv ---------------------------------------------------------------------
8861 void
8862 LAPACK_DECL(dsbgv)(const char *JOBZ,
8863 const char *UPLO,
8864 const INTEGER *N,
8865 const INTEGER *KA,
8866 const INTEGER *KB,
8867 DOUBLE *AB,
8868 const INTEGER *LDAB,
8869 DOUBLE *BB,
8870 const INTEGER *LDBB,
8871 DOUBLE *W,
8872 DOUBLE *Z,
8873 const INTEGER *LDZ,
8874 const DOUBLE *WORK,
8875 INTEGER *INFO)
8876 {
8877 DEBUG_LAPACK_STUB("dsbgv");
8878 LAPACK_IMPL(dsbgv)(JOBZ,
8879 UPLO,
8880 N,
8881 KA,
8882 KB,
8883 AB,
8884 LDAB,
8885 BB,
8886 LDBB,
8887 W,
8888 Z,
8889 LDZ,
8890 WORK,
8891 INFO);
8892 }
8893
8894 //-- dsbgvd --------------------------------------------------------------------
8895 void
8896 LAPACK_DECL(dsbgvd)(const char *JOBZ,
8897 const char *UPLO,
8898 const INTEGER *N,
8899 const INTEGER *KA,
8900 const INTEGER *KB,
8901 DOUBLE *AB,
8902 const INTEGER *LDAB,
8903 DOUBLE *BB,
8904 const INTEGER *LDBB,
8905 DOUBLE *W,
8906 DOUBLE *Z,
8907 const INTEGER *LDZ,
8908 DOUBLE *WORK,
8909 const INTEGER *LWORK,
8910 INTEGER *IWORK,
8911 const INTEGER *LIWORK,
8912 INTEGER *INFO)
8913 {
8914 DEBUG_LAPACK_STUB("dsbgvd");
8915 LAPACK_IMPL(dsbgvd)(JOBZ,
8916 UPLO,
8917 N,
8918 KA,
8919 KB,
8920 AB,
8921 LDAB,
8922 BB,
8923 LDBB,
8924 W,
8925 Z,
8926 LDZ,
8927 WORK,
8928 LWORK,
8929 IWORK,
8930 LIWORK,
8931 INFO);
8932 }
8933
8934 //-- dsbgvx --------------------------------------------------------------------
8935 void
8936 LAPACK_DECL(dsbgvx)(const char *JOBZ,
8937 const char *RANGE,
8938 const char *UPLO,
8939 const INTEGER *N,
8940 const INTEGER *KA,
8941 const INTEGER *KB,
8942 DOUBLE *AB,
8943 const INTEGER *LDAB,
8944 DOUBLE *BB,
8945 const INTEGER *LDBB,
8946 DOUBLE *Q,
8947 const INTEGER *LDQ,
8948 const DOUBLE *VL,
8949 const DOUBLE *VU,
8950 const INTEGER *IL,
8951 const INTEGER *IU,
8952 const DOUBLE *ABSTOL,
8953 INTEGER *M,
8954 DOUBLE *W,
8955 DOUBLE *Z,
8956 const INTEGER *LDZ,
8957 DOUBLE *WORK,
8958 INTEGER *IWORK,
8959 INTEGER *IFAIL,
8960 INTEGER *INFO)
8961 {
8962 DEBUG_LAPACK_STUB("dsbgvx");
8963 LAPACK_IMPL(dsbgvx)(JOBZ,
8964 RANGE,
8965 UPLO,
8966 N,
8967 KA,
8968 KB,
8969 AB,
8970 LDAB,
8971 BB,
8972 LDBB,
8973 Q,
8974 LDQ,
8975 VL,
8976 VU,
8977 IL,
8978 IU,
8979 ABSTOL,
8980 M,
8981 W,
8982 Z,
8983 LDZ,
8984 WORK,
8985 IWORK,
8986 IFAIL,
8987 INFO);
8988 }
8989
8990 //-- dsbtrd --------------------------------------------------------------------
8991 void
8992 LAPACK_DECL(dsbtrd)(const char *VECT,
8993 const char *UPLO,
8994 const INTEGER *N,
8995 const INTEGER *KD,
8996 DOUBLE *AB,
8997 const INTEGER *LDAB,
8998 DOUBLE *D,
8999 DOUBLE *E,
9000 DOUBLE *Q,
9001 const INTEGER *LDQ,
9002 const DOUBLE *WORK,
9003 INTEGER *INFO)
9004 {
9005 DEBUG_LAPACK_STUB("dsbtrd");
9006 LAPACK_IMPL(dsbtrd)(VECT,
9007 UPLO,
9008 N,
9009 KD,
9010 AB,
9011 LDAB,
9012 D,
9013 E,
9014 Q,
9015 LDQ,
9016 WORK,
9017 INFO);
9018 }
9019
9020 //-- dsecnd --------------------------------------------------------------------
9021 DOUBLE
9022 LAPACK_DECL(dsecnd)()
9023 {
9024 DEBUG_LAPACK_STUB("dsecnd");
9025 return LAPACK_IMPL(dsecnd)();
9026 }
9027
9028 //-- dsfrk ---------------------------------------------------------------------
9029 void
9030 LAPACK_DECL(dsfrk)(const char *TRANSR,
9031 const char *UPLO,
9032 const char *TRANS,
9033 const INTEGER *N,
9034 const INTEGER *K,
9035 const DOUBLE *ALPHA,
9036 const DOUBLE *A,
9037 const INTEGER *LDA,
9038 const DOUBLE *BETA,
9039 DOUBLE *C)
9040 {
9041 DEBUG_LAPACK_STUB("dsfrk");
9042 LAPACK_IMPL(dsfrk)(TRANSR,
9043 UPLO,
9044 TRANS,
9045 N,
9046 K,
9047 ALPHA,
9048 A,
9049 LDA,
9050 BETA,
9051 C);
9052 }
9053
9054 //-- dsgesv --------------------------------------------------------------------
9055 void
9056 LAPACK_DECL(dsgesv)(const INTEGER *N,
9057 const INTEGER *NRHS,
9058 DOUBLE *A,
9059 const INTEGER *LDA,
9060 INTEGER *IPIV,
9061 const DOUBLE *B,
9062 const INTEGER *LDB,
9063 DOUBLE *X,
9064 const INTEGER *LDX,
9065 const DOUBLE *WORK,
9066 const FLOAT *SWORK,
9067 INTEGER *ITER,
9068 INTEGER *INFO)
9069 {
9070 DEBUG_LAPACK_STUB("dsgesv");
9071 LAPACK_IMPL(dsgesv)(N,
9072 NRHS,
9073 A,
9074 LDA,
9075 IPIV,
9076 B,
9077 LDB,
9078 X,
9079 LDX,
9080 WORK,
9081 SWORK,
9082 ITER,
9083 INFO);
9084 }
9085
9086 //-- dspcon --------------------------------------------------------------------
9087 void
9088 LAPACK_DECL(dspcon)(const char *UPLO,
9089 const INTEGER *N,
9090 const DOUBLE *AP,
9091 const INTEGER *IPIV,
9092 const DOUBLE *ANORM,
9093 DOUBLE *RCOND,
9094 const DOUBLE *WORK,
9095 const INTEGER *IWORK,
9096 INTEGER *INFO)
9097 {
9098 DEBUG_LAPACK_STUB("dspcon");
9099 LAPACK_IMPL(dspcon)(UPLO,
9100 N,
9101 AP,
9102 IPIV,
9103 ANORM,
9104 RCOND,
9105 WORK,
9106 IWORK,
9107 INFO);
9108 }
9109
9110 //-- dspev ---------------------------------------------------------------------
9111 void
9112 LAPACK_DECL(dspev)(const char *JOBZ,
9113 const char *UPLO,
9114 const INTEGER *N,
9115 DOUBLE *AP,
9116 DOUBLE *W,
9117 DOUBLE *Z,
9118 const INTEGER *LDZ,
9119 const DOUBLE *WORK,
9120 INTEGER *INFO)
9121 {
9122 DEBUG_LAPACK_STUB("dspev");
9123 LAPACK_IMPL(dspev)(JOBZ,
9124 UPLO,
9125 N,
9126 AP,
9127 W,
9128 Z,
9129 LDZ,
9130 WORK,
9131 INFO);
9132 }
9133
9134 //-- dspevd --------------------------------------------------------------------
9135 void
9136 LAPACK_DECL(dspevd)(const char *JOBZ,
9137 const char *UPLO,
9138 const INTEGER *N,
9139 DOUBLE *AP,
9140 DOUBLE *W,
9141 DOUBLE *Z,
9142 const INTEGER *LDZ,
9143 DOUBLE *WORK,
9144 const INTEGER *LWORK,
9145 INTEGER *IWORK,
9146 const INTEGER *LIWORK,
9147 INTEGER *INFO)
9148 {
9149 DEBUG_LAPACK_STUB("dspevd");
9150 LAPACK_IMPL(dspevd)(JOBZ,
9151 UPLO,
9152 N,
9153 AP,
9154 W,
9155 Z,
9156 LDZ,
9157 WORK,
9158 LWORK,
9159 IWORK,
9160 LIWORK,
9161 INFO);
9162 }
9163
9164 //-- dspevx --------------------------------------------------------------------
9165 void
9166 LAPACK_DECL(dspevx)(const char *JOBZ,
9167 const char *RANGE,
9168 const char *UPLO,
9169 const INTEGER *N,
9170 DOUBLE *AP,
9171 const DOUBLE *VL,
9172 const DOUBLE *VU,
9173 const INTEGER *IL,
9174 const INTEGER *IU,
9175 const DOUBLE *ABSTOL,
9176 INTEGER *M,
9177 DOUBLE *W,
9178 DOUBLE *Z,
9179 const INTEGER *LDZ,
9180 const DOUBLE *WORK,
9181 const INTEGER *IWORK,
9182 INTEGER *IFAIL,
9183 INTEGER *INFO)
9184 {
9185 DEBUG_LAPACK_STUB("dspevx");
9186 LAPACK_IMPL(dspevx)(JOBZ,
9187 RANGE,
9188 UPLO,
9189 N,
9190 AP,
9191 VL,
9192 VU,
9193 IL,
9194 IU,
9195 ABSTOL,
9196 M,
9197 W,
9198 Z,
9199 LDZ,
9200 WORK,
9201 IWORK,
9202 IFAIL,
9203 INFO);
9204 }
9205
9206 //-- dspgst --------------------------------------------------------------------
9207 void
9208 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
9209 const char *UPLO,
9210 const INTEGER *N,
9211 DOUBLE *AP,
9212 const DOUBLE *BP,
9213 INTEGER *INFO)
9214 {
9215 DEBUG_LAPACK_STUB("dspgst");
9216 LAPACK_IMPL(dspgst)(ITYPE,
9217 UPLO,
9218 N,
9219 AP,
9220 BP,
9221 INFO);
9222 }
9223
9224 //-- dspgv ---------------------------------------------------------------------
9225 void
9226 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
9227 const char *JOBZ,
9228 const char *UPLO,
9229 const INTEGER *N,
9230 DOUBLE *AP,
9231 DOUBLE *BP,
9232 DOUBLE *W,
9233 DOUBLE *Z,
9234 const INTEGER *LDZ,
9235 const DOUBLE *WORK,
9236 INTEGER *INFO)
9237 {
9238 DEBUG_LAPACK_STUB("dspgv");
9239 LAPACK_IMPL(dspgv)(ITYPE,
9240 JOBZ,
9241 UPLO,
9242 N,
9243 AP,
9244 BP,
9245 W,
9246 Z,
9247 LDZ,
9248 WORK,
9249 INFO);
9250 }
9251
9252 //-- dspgvd --------------------------------------------------------------------
9253 void
9254 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
9255 const char *JOBZ,
9256 const char *UPLO,
9257 const INTEGER *N,
9258 DOUBLE *AP,
9259 DOUBLE *BP,
9260 DOUBLE *W,
9261 DOUBLE *Z,
9262 const INTEGER *LDZ,
9263 DOUBLE *WORK,
9264 const INTEGER *LWORK,
9265 INTEGER *IWORK,
9266 const INTEGER *LIWORK,
9267 INTEGER *INFO)
9268 {
9269 DEBUG_LAPACK_STUB("dspgvd");
9270 LAPACK_IMPL(dspgvd)(ITYPE,
9271 JOBZ,
9272 UPLO,
9273 N,
9274 AP,
9275 BP,
9276 W,
9277 Z,
9278 LDZ,
9279 WORK,
9280 LWORK,
9281 IWORK,
9282 LIWORK,
9283 INFO);
9284 }
9285
9286 //-- dspgvx --------------------------------------------------------------------
9287 void
9288 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
9289 const char *JOBZ,
9290 const char *RANGE,
9291 const char *UPLO,
9292 const INTEGER *N,
9293 DOUBLE *AP,
9294 DOUBLE *BP,
9295 const DOUBLE *VL,
9296 const DOUBLE *VU,
9297 const INTEGER *IL,
9298 const INTEGER *IU,
9299 const DOUBLE *ABSTOL,
9300 INTEGER *M,
9301 DOUBLE *W,
9302 DOUBLE *Z,
9303 const INTEGER *LDZ,
9304 const DOUBLE *WORK,
9305 const INTEGER *IWORK,
9306 INTEGER *IFAIL,
9307 INTEGER *INFO)
9308 {
9309 DEBUG_LAPACK_STUB("dspgvx");
9310 LAPACK_IMPL(dspgvx)(ITYPE,
9311 JOBZ,
9312 RANGE,
9313 UPLO,
9314 N,
9315 AP,
9316 BP,
9317 VL,
9318 VU,
9319 IL,
9320 IU,
9321 ABSTOL,
9322 M,
9323 W,
9324 Z,
9325 LDZ,
9326 WORK,
9327 IWORK,
9328 IFAIL,
9329 INFO);
9330 }
9331
9332 //-- dsposv --------------------------------------------------------------------
9333 void
9334 LAPACK_DECL(dsposv)(const char *UPLO,
9335 const INTEGER *N,
9336 const INTEGER *NRHS,
9337 DOUBLE *A,
9338 const INTEGER *LDA,
9339 const DOUBLE *B,
9340 const INTEGER *LDB,
9341 DOUBLE *X,
9342 const INTEGER *LDX,
9343 const DOUBLE *WORK,
9344 const FLOAT *SWORK,
9345 INTEGER *ITER,
9346 INTEGER *INFO)
9347 {
9348 DEBUG_LAPACK_STUB("dsposv");
9349 LAPACK_IMPL(dsposv)(UPLO,
9350 N,
9351 NRHS,
9352 A,
9353 LDA,
9354 B,
9355 LDB,
9356 X,
9357 LDX,
9358 WORK,
9359 SWORK,
9360 ITER,
9361 INFO);
9362 }
9363
9364 //-- dsprfs --------------------------------------------------------------------
9365 void
9366 LAPACK_DECL(dsprfs)(const char *UPLO,
9367 const INTEGER *N,
9368 const INTEGER *NRHS,
9369 const DOUBLE *AP,
9370 const DOUBLE *AFP,
9371 const INTEGER *IPIV,
9372 const DOUBLE *B,
9373 const INTEGER *LDB,
9374 DOUBLE *X,
9375 const INTEGER *LDX,
9376 DOUBLE *FERR,
9377 DOUBLE *BERR,
9378 const DOUBLE *WORK,
9379 const INTEGER *IWORK,
9380 INTEGER *INFO)
9381 {
9382 DEBUG_LAPACK_STUB("dsprfs");
9383 LAPACK_IMPL(dsprfs)(UPLO,
9384 N,
9385 NRHS,
9386 AP,
9387 AFP,
9388 IPIV,
9389 B,
9390 LDB,
9391 X,
9392 LDX,
9393 FERR,
9394 BERR,
9395 WORK,
9396 IWORK,
9397 INFO);
9398 }
9399
9400 //-- dspsv ---------------------------------------------------------------------
9401 void
9402 LAPACK_DECL(dspsv)(const char *UPLO,
9403 const INTEGER *N,
9404 const INTEGER *NRHS,
9405 DOUBLE *AP,
9406 INTEGER *IPIV,
9407 DOUBLE *B,
9408 const INTEGER *LDB,
9409 INTEGER *INFO)
9410 {
9411 DEBUG_LAPACK_STUB("dspsv");
9412 LAPACK_IMPL(dspsv)(UPLO,
9413 N,
9414 NRHS,
9415 AP,
9416 IPIV,
9417 B,
9418 LDB,
9419 INFO);
9420 }
9421
9422 //-- dspsvx --------------------------------------------------------------------
9423 void
9424 LAPACK_DECL(dspsvx)(const char *FACT,
9425 const char *UPLO,
9426 const INTEGER *N,
9427 const INTEGER *NRHS,
9428 const DOUBLE *AP,
9429 DOUBLE *AFP,
9430 INTEGER *IPIV,
9431 const DOUBLE *B,
9432 const INTEGER *LDB,
9433 DOUBLE *X,
9434 const INTEGER *LDX,
9435 DOUBLE *RCOND,
9436 DOUBLE *FERR,
9437 DOUBLE *BERR,
9438 const DOUBLE *WORK,
9439 const INTEGER *IWORK,
9440 INTEGER *INFO)
9441 {
9442 DEBUG_LAPACK_STUB("dspsvx");
9443 LAPACK_IMPL(dspsvx)(FACT,
9444 UPLO,
9445 N,
9446 NRHS,
9447 AP,
9448 AFP,
9449 IPIV,
9450 B,
9451 LDB,
9452 X,
9453 LDX,
9454 RCOND,
9455 FERR,
9456 BERR,
9457 WORK,
9458 IWORK,
9459 INFO);
9460 }
9461
9462 //-- dsptrd --------------------------------------------------------------------
9463 void
9464 LAPACK_DECL(dsptrd)(const char *UPLO,
9465 const INTEGER *N,
9466 DOUBLE *AP,
9467 DOUBLE *D,
9468 DOUBLE *E,
9469 DOUBLE *TAU,
9470 INTEGER *INFO)
9471 {
9472 DEBUG_LAPACK_STUB("dsptrd");
9473 LAPACK_IMPL(dsptrd)(UPLO,
9474 N,
9475 AP,
9476 D,
9477 E,
9478 TAU,
9479 INFO);
9480 }
9481
9482 //-- dsptrf --------------------------------------------------------------------
9483 void
9484 LAPACK_DECL(dsptrf)(const char *UPLO,
9485 const INTEGER *N,
9486 DOUBLE *AP,
9487 INTEGER *IPIV,
9488 INTEGER *INFO)
9489 {
9490 DEBUG_LAPACK_STUB("dsptrf");
9491 LAPACK_IMPL(dsptrf)(UPLO,
9492 N,
9493 AP,
9494 IPIV,
9495 INFO);
9496 }
9497
9498 //-- dsptri --------------------------------------------------------------------
9499 void
9500 LAPACK_DECL(dsptri)(const char *UPLO,
9501 const INTEGER *N,
9502 DOUBLE *AP,
9503 const INTEGER *IPIV,
9504 const DOUBLE *WORK,
9505 INTEGER *INFO)
9506 {
9507 DEBUG_LAPACK_STUB("dsptri");
9508 LAPACK_IMPL(dsptri)(UPLO,
9509 N,
9510 AP,
9511 IPIV,
9512 WORK,
9513 INFO);
9514 }
9515
9516 //-- dsptrs --------------------------------------------------------------------
9517 void
9518 LAPACK_DECL(dsptrs)(const char *UPLO,
9519 const INTEGER *N,
9520 const INTEGER *NRHS,
9521 const DOUBLE *AP,
9522 const INTEGER *IPIV,
9523 DOUBLE *B,
9524 const INTEGER *LDB,
9525 INTEGER *INFO)
9526 {
9527 DEBUG_LAPACK_STUB("dsptrs");
9528 LAPACK_IMPL(dsptrs)(UPLO,
9529 N,
9530 NRHS,
9531 AP,
9532 IPIV,
9533 B,
9534 LDB,
9535 INFO);
9536 }
9537
9538 //-- dstebz --------------------------------------------------------------------
9539 void
9540 LAPACK_DECL(dstebz)(const char *RANGE,
9541 const char *ORDER,
9542 const INTEGER *N,
9543 const DOUBLE *VL,
9544 const DOUBLE *VU,
9545 const INTEGER *IL,
9546 const INTEGER *IU,
9547 const DOUBLE *ABSTOL,
9548 const DOUBLE *D,
9549 const DOUBLE *E,
9550 INTEGER *M,
9551 INTEGER *NSPLIT,
9552 DOUBLE *W,
9553 INTEGER *IBLOCK,
9554 INTEGER *ISPLIT,
9555 const DOUBLE *WORK,
9556 const INTEGER *IWORK,
9557 INTEGER *INFO)
9558 {
9559 DEBUG_LAPACK_STUB("dstebz");
9560 LAPACK_IMPL(dstebz)(RANGE,
9561 ORDER,
9562 N,
9563 VL,
9564 VU,
9565 IL,
9566 IU,
9567 ABSTOL,
9568 D,
9569 E,
9570 M,
9571 NSPLIT,
9572 W,
9573 IBLOCK,
9574 ISPLIT,
9575 WORK,
9576 IWORK,
9577 INFO);
9578 }
9579
9580 //-- dstedc --------------------------------------------------------------------
9581 void
9582 LAPACK_DECL(dstedc)(const char *COMPZ,
9583 const INTEGER *N,
9584 DOUBLE *D,
9585 DOUBLE *E,
9586 DOUBLE *Z,
9587 const INTEGER *LDZ,
9588 DOUBLE *WORK,
9589 const INTEGER *LWORK,
9590 INTEGER *IWORK,
9591 const INTEGER *LIWORK,
9592 INTEGER *INFO)
9593 {
9594 DEBUG_LAPACK_STUB("dstedc");
9595 LAPACK_IMPL(dstedc)(COMPZ,
9596 N,
9597 D,
9598 E,
9599 Z,
9600 LDZ,
9601 WORK,
9602 LWORK,
9603 IWORK,
9604 LIWORK,
9605 INFO);
9606 }
9607
9608 //-- dstegr --------------------------------------------------------------------
9609 void
9610 LAPACK_DECL(dstegr)(const char *JOBZ,
9611 const char *RANGE,
9612 const INTEGER *N,
9613 DOUBLE *D,
9614 DOUBLE *E,
9615 const DOUBLE *VL,
9616 const DOUBLE *VU,
9617 const INTEGER *IL,
9618 const INTEGER *IU,
9619 const DOUBLE *ABSTOL,
9620 INTEGER *M,
9621 DOUBLE *W,
9622 DOUBLE *Z,
9623 const INTEGER *LDZ,
9624 INTEGER *ISUPPZ,
9625 DOUBLE *WORK,
9626 const INTEGER *LWORK,
9627 INTEGER *IWORK,
9628 const INTEGER *LIWORK,
9629 INTEGER *INFO)
9630 {
9631 DEBUG_LAPACK_STUB("dstegr");
9632 LAPACK_IMPL(dstegr)(JOBZ,
9633 RANGE,
9634 N,
9635 D,
9636 E,
9637 VL,
9638 VU,
9639 IL,
9640 IU,
9641 ABSTOL,
9642 M,
9643 W,
9644 Z,
9645 LDZ,
9646 ISUPPZ,
9647 WORK,
9648 LWORK,
9649 IWORK,
9650 LIWORK,
9651 INFO);
9652 }
9653
9654 //-- dstein --------------------------------------------------------------------
9655 void
9656 LAPACK_DECL(dstein)(const INTEGER *N,
9657 const DOUBLE *D,
9658 const DOUBLE *E,
9659 const INTEGER *M,
9660 const DOUBLE *W,
9661 const INTEGER *IBLOCK,
9662 const INTEGER *ISPLIT,
9663 DOUBLE *Z,
9664 const INTEGER *LDZ,
9665 const DOUBLE *WORK,
9666 const INTEGER *IWORK,
9667 INTEGER *IFAIL,
9668 INTEGER *INFO)
9669 {
9670 DEBUG_LAPACK_STUB("dstein");
9671 LAPACK_IMPL(dstein)(N,
9672 D,
9673 E,
9674 M,
9675 W,
9676 IBLOCK,
9677 ISPLIT,
9678 Z,
9679 LDZ,
9680 WORK,
9681 IWORK,
9682 IFAIL,
9683 INFO);
9684 }
9685
9686 //-- dstemr --------------------------------------------------------------------
9687 void
9688 LAPACK_DECL(dstemr)(const char *JOBZ,
9689 const char *RANGE,
9690 const INTEGER *N,
9691 DOUBLE *D,
9692 DOUBLE *E,
9693 const DOUBLE *VL,
9694 const DOUBLE *VU,
9695 const INTEGER *IL,
9696 const INTEGER *IU,
9697 INTEGER *M,
9698 DOUBLE *W,
9699 DOUBLE *Z,
9700 const INTEGER *LDZ,
9701 const INTEGER *NZC,
9702 INTEGER *ISUPPZ,
9703 LOGICAL *TRYRAC,
9704 DOUBLE *WORK,
9705 const INTEGER *LWORK,
9706 INTEGER *IWORK,
9707 const INTEGER *LIWORK,
9708 INTEGER *INFO)
9709 {
9710 DEBUG_LAPACK_STUB("dstemr");
9711 LAPACK_IMPL(dstemr)(JOBZ,
9712 RANGE,
9713 N,
9714 D,
9715 E,
9716 VL,
9717 VU,
9718 IL,
9719 IU,
9720 M,
9721 W,
9722 Z,
9723 LDZ,
9724 NZC,
9725 ISUPPZ,
9726 TRYRAC,
9727 WORK,
9728 LWORK,
9729 IWORK,
9730 LIWORK,
9731 INFO);
9732 }
9733
9734 //-- dsteqr --------------------------------------------------------------------
9735 void
9736 LAPACK_DECL(dsteqr)(const char *COMPZ,
9737 const INTEGER *N,
9738 DOUBLE *D,
9739 DOUBLE *E,
9740 DOUBLE *Z,
9741 const INTEGER *LDZ,
9742 const DOUBLE *WORK,
9743 INTEGER *INFO)
9744 {
9745 DEBUG_LAPACK_STUB("dsteqr");
9746 LAPACK_IMPL(dsteqr)(COMPZ,
9747 N,
9748 D,
9749 E,
9750 Z,
9751 LDZ,
9752 WORK,
9753 INFO);
9754 }
9755
9756 //-- dsterf --------------------------------------------------------------------
9757 void
9758 LAPACK_DECL(dsterf)(const INTEGER *N,
9759 DOUBLE *D,
9760 DOUBLE *E,
9761 INTEGER *INFO)
9762 {
9763 DEBUG_LAPACK_STUB("dsterf");
9764 LAPACK_IMPL(dsterf)(N,
9765 D,
9766 E,
9767 INFO);
9768 }
9769
9770 //-- dstev ---------------------------------------------------------------------
9771 void
9772 LAPACK_DECL(dstev)(const char *JOBZ,
9773 const INTEGER *N,
9774 DOUBLE *D,
9775 DOUBLE *E,
9776 DOUBLE *Z,
9777 const INTEGER *LDZ,
9778 const DOUBLE *WORK,
9779 INTEGER *INFO)
9780 {
9781 DEBUG_LAPACK_STUB("dstev");
9782 LAPACK_IMPL(dstev)(JOBZ,
9783 N,
9784 D,
9785 E,
9786 Z,
9787 LDZ,
9788 WORK,
9789 INFO);
9790 }
9791
9792 //-- dstevd --------------------------------------------------------------------
9793 void
9794 LAPACK_DECL(dstevd)(const char *JOBZ,
9795 const INTEGER *N,
9796 DOUBLE *D,
9797 DOUBLE *E,
9798 DOUBLE *Z,
9799 const INTEGER *LDZ,
9800 DOUBLE *WORK,
9801 const INTEGER *LWORK,
9802 INTEGER *IWORK,
9803 const INTEGER *LIWORK,
9804 INTEGER *INFO)
9805 {
9806 DEBUG_LAPACK_STUB("dstevd");
9807 LAPACK_IMPL(dstevd)(JOBZ,
9808 N,
9809 D,
9810 E,
9811 Z,
9812 LDZ,
9813 WORK,
9814 LWORK,
9815 IWORK,
9816 LIWORK,
9817 INFO);
9818 }
9819
9820 //-- dstevr --------------------------------------------------------------------
9821 void
9822 LAPACK_DECL(dstevr)(const char *JOBZ,
9823 const char *RANGE,
9824 const INTEGER *N,
9825 DOUBLE *D,
9826 DOUBLE *E,
9827 const DOUBLE *VL,
9828 const DOUBLE *VU,
9829 const INTEGER *IL,
9830 const INTEGER *IU,
9831 const DOUBLE *ABSTOL,
9832 INTEGER *M,
9833 DOUBLE *W,
9834 DOUBLE *Z,
9835 const INTEGER *LDZ,
9836 INTEGER *ISUPPZ,
9837 DOUBLE *WORK,
9838 const INTEGER *LWORK,
9839 INTEGER *IWORK,
9840 const INTEGER *LIWORK,
9841 INTEGER *INFO)
9842 {
9843 DEBUG_LAPACK_STUB("dstevr");
9844 LAPACK_IMPL(dstevr)(JOBZ,
9845 RANGE,
9846 N,
9847 D,
9848 E,
9849 VL,
9850 VU,
9851 IL,
9852 IU,
9853 ABSTOL,
9854 M,
9855 W,
9856 Z,
9857 LDZ,
9858 ISUPPZ,
9859 WORK,
9860 LWORK,
9861 IWORK,
9862 LIWORK,
9863 INFO);
9864 }
9865
9866 //-- dstevx --------------------------------------------------------------------
9867 void
9868 LAPACK_DECL(dstevx)(const char *JOBZ,
9869 const char *RANGE,
9870 const INTEGER *N,
9871 DOUBLE *D,
9872 DOUBLE *E,
9873 const DOUBLE *VL,
9874 const DOUBLE *VU,
9875 const INTEGER *IL,
9876 const INTEGER *IU,
9877 const DOUBLE *ABSTOL,
9878 INTEGER *M,
9879 DOUBLE *W,
9880 DOUBLE *Z,
9881 const INTEGER *LDZ,
9882 const DOUBLE *WORK,
9883 const INTEGER *IWORK,
9884 INTEGER *IFAIL,
9885 INTEGER *INFO)
9886 {
9887 DEBUG_LAPACK_STUB("dstevx");
9888 LAPACK_IMPL(dstevx)(JOBZ,
9889 RANGE,
9890 N,
9891 D,
9892 E,
9893 VL,
9894 VU,
9895 IL,
9896 IU,
9897 ABSTOL,
9898 M,
9899 W,
9900 Z,
9901 LDZ,
9902 WORK,
9903 IWORK,
9904 IFAIL,
9905 INFO);
9906 }
9907
9908 //-- dsycon --------------------------------------------------------------------
9909 void
9910 LAPACK_DECL(dsycon)(const char *UPLO,
9911 const INTEGER *N,
9912 const DOUBLE *A,
9913 const INTEGER *LDA,
9914 const INTEGER *IPIV,
9915 const DOUBLE *ANORM,
9916 DOUBLE *RCOND,
9917 const DOUBLE *WORK,
9918 const INTEGER *IWORK,
9919 INTEGER *INFO)
9920 {
9921 DEBUG_LAPACK_STUB("dsycon");
9922 LAPACK_IMPL(dsycon)(UPLO,
9923 N,
9924 A,
9925 LDA,
9926 IPIV,
9927 ANORM,
9928 RCOND,
9929 WORK,
9930 IWORK,
9931 INFO);
9932 }
9933
9934 //-- dsyconv -------------------------------------------------------------------
9935 void
9936 LAPACK_DECL(dsyconv)(const char *UPLO,
9937 const char *WAY,
9938 const INTEGER *N,
9939 const DOUBLE *A,
9940 const INTEGER *LDA,
9941 const INTEGER *IPIV,
9942 const DOUBLE *WORK,
9943 INTEGER *INFO)
9944 {
9945 DEBUG_LAPACK_STUB("dsyconv");
9946 LAPACK_IMPL(dsyconv)(UPLO,
9947 WAY,
9948 N,
9949 A,
9950 LDA,
9951 IPIV,
9952 WORK,
9953 INFO);
9954 }
9955
9956 //-- dsyequb -------------------------------------------------------------------
9957 void
9958 LAPACK_DECL(dsyequb)(const char *UPLO,
9959 const INTEGER *N,
9960 const DOUBLE *A,
9961 const INTEGER *LDA,
9962 DOUBLE *S,
9963 DOUBLE *SCOND,
9964 DOUBLE *AMAX,
9965 const DOUBLE *WORK,
9966 INTEGER *INFO)
9967 {
9968 DEBUG_LAPACK_STUB("dsyequb");
9969 LAPACK_IMPL(dsyequb)(UPLO,
9970 N,
9971 A,
9972 LDA,
9973 S,
9974 SCOND,
9975 AMAX,
9976 WORK,
9977 INFO);
9978 }
9979
9980 //-- dsyev ---------------------------------------------------------------------
9981 void
9982 LAPACK_DECL(dsyev)(const char *JOBZ,
9983 const char *UPLO,
9984 const INTEGER *N,
9985 DOUBLE *A,
9986 const INTEGER *LDA,
9987 DOUBLE *W,
9988 DOUBLE *WORK,
9989 const INTEGER *LWORK,
9990 INTEGER *INFO)
9991 {
9992 DEBUG_LAPACK_STUB("dsyev");
9993 LAPACK_IMPL(dsyev)(JOBZ,
9994 UPLO,
9995 N,
9996 A,
9997 LDA,
9998 W,
9999 WORK,
10000 LWORK,
10001 INFO);
10002 }
10003
10004 //-- dsyevd --------------------------------------------------------------------
10005 void
10006 LAPACK_DECL(dsyevd)(const char *JOBZ,
10007 const char *UPLO,
10008 const INTEGER *N,
10009 DOUBLE *A,
10010 const INTEGER *LDA,
10011 DOUBLE *W,
10012 DOUBLE *WORK,
10013 const INTEGER *LWORK,
10014 INTEGER *IWORK,
10015 const INTEGER *LIWORK,
10016 INTEGER *INFO)
10017 {
10018 DEBUG_LAPACK_STUB("dsyevd");
10019 LAPACK_IMPL(dsyevd)(JOBZ,
10020 UPLO,
10021 N,
10022 A,
10023 LDA,
10024 W,
10025 WORK,
10026 LWORK,
10027 IWORK,
10028 LIWORK,
10029 INFO);
10030 }
10031
10032 //-- dsyevr --------------------------------------------------------------------
10033 void
10034 LAPACK_DECL(dsyevr)(const char *JOBZ,
10035 const char *RANGE,
10036 const char *UPLO,
10037 const INTEGER *N,
10038 DOUBLE *A,
10039 const INTEGER *LDA,
10040 const DOUBLE *VL,
10041 const DOUBLE *VU,
10042 const INTEGER *IL,
10043 const INTEGER *IU,
10044 const DOUBLE *ABSTOL,
10045 INTEGER *M,
10046 DOUBLE *W,
10047 DOUBLE *Z,
10048 const INTEGER *LDZ,
10049 INTEGER *ISUPPZ,
10050 DOUBLE *WORK,
10051 const INTEGER *LWORK,
10052 INTEGER *IWORK,
10053 const INTEGER *LIWORK,
10054 INTEGER *INFO)
10055 {
10056 DEBUG_LAPACK_STUB("dsyevr");
10057 LAPACK_IMPL(dsyevr)(JOBZ,
10058 RANGE,
10059 UPLO,
10060 N,
10061 A,
10062 LDA,
10063 VL,
10064 VU,
10065 IL,
10066 IU,
10067 ABSTOL,
10068 M,
10069 W,
10070 Z,
10071 LDZ,
10072 ISUPPZ,
10073 WORK,
10074 LWORK,
10075 IWORK,
10076 LIWORK,
10077 INFO);
10078 }
10079
10080 //-- dsyevx --------------------------------------------------------------------
10081 void
10082 LAPACK_DECL(dsyevx)(const char *JOBZ,
10083 const char *RANGE,
10084 const char *UPLO,
10085 const INTEGER *N,
10086 DOUBLE *A,
10087 const INTEGER *LDA,
10088 const DOUBLE *VL,
10089 const DOUBLE *VU,
10090 const INTEGER *IL,
10091 const INTEGER *IU,
10092 const DOUBLE *ABSTOL,
10093 INTEGER *M,
10094 DOUBLE *W,
10095 DOUBLE *Z,
10096 const INTEGER *LDZ,
10097 DOUBLE *WORK,
10098 const INTEGER *LWORK,
10099 const INTEGER *IWORK,
10100 INTEGER *IFAIL,
10101 INTEGER *INFO)
10102 {
10103 DEBUG_LAPACK_STUB("dsyevx");
10104 LAPACK_IMPL(dsyevx)(JOBZ,
10105 RANGE,
10106 UPLO,
10107 N,
10108 A,
10109 LDA,
10110 VL,
10111 VU,
10112 IL,
10113 IU,
10114 ABSTOL,
10115 M,
10116 W,
10117 Z,
10118 LDZ,
10119 WORK,
10120 LWORK,
10121 IWORK,
10122 IFAIL,
10123 INFO);
10124 }
10125
10126 //-- dsygs2 --------------------------------------------------------------------
10127 void
10128 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
10129 const char *UPLO,
10130 const INTEGER *N,
10131 DOUBLE *A,
10132 const INTEGER *LDA,
10133 const DOUBLE *B,
10134 const INTEGER *LDB,
10135 INTEGER *INFO)
10136 {
10137 DEBUG_LAPACK_STUB("dsygs2");
10138 LAPACK_IMPL(dsygs2)(ITYPE,
10139 UPLO,
10140 N,
10141 A,
10142 LDA,
10143 B,
10144 LDB,
10145 INFO);
10146 }
10147
10148 //-- dsygst --------------------------------------------------------------------
10149 void
10150 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
10151 const char *UPLO,
10152 const INTEGER *N,
10153 DOUBLE *A,
10154 const INTEGER *LDA,
10155 const DOUBLE *B,
10156 const INTEGER *LDB,
10157 INTEGER *INFO)
10158 {
10159 DEBUG_LAPACK_STUB("dsygst");
10160 LAPACK_IMPL(dsygst)(ITYPE,
10161 UPLO,
10162 N,
10163 A,
10164 LDA,
10165 B,
10166 LDB,
10167 INFO);
10168 }
10169
10170 //-- dsygv ---------------------------------------------------------------------
10171 void
10172 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
10173 const char *JOBZ,
10174 const char *UPLO,
10175 const INTEGER *N,
10176 DOUBLE *A,
10177 const INTEGER *LDA,
10178 DOUBLE *B,
10179 const INTEGER *LDB,
10180 DOUBLE *W,
10181 DOUBLE *WORK,
10182 const INTEGER *LWORK,
10183 INTEGER *INFO)
10184 {
10185 DEBUG_LAPACK_STUB("dsygv");
10186 LAPACK_IMPL(dsygv)(ITYPE,
10187 JOBZ,
10188 UPLO,
10189 N,
10190 A,
10191 LDA,
10192 B,
10193 LDB,
10194 W,
10195 WORK,
10196 LWORK,
10197 INFO);
10198 }
10199
10200 //-- dsygvd --------------------------------------------------------------------
10201 void
10202 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
10203 const char *JOBZ,
10204 const char *UPLO,
10205 const INTEGER *N,
10206 DOUBLE *A,
10207 const INTEGER *LDA,
10208 DOUBLE *B,
10209 const INTEGER *LDB,
10210 DOUBLE *W,
10211 DOUBLE *WORK,
10212 const INTEGER *LWORK,
10213 INTEGER *IWORK,
10214 const INTEGER *LIWORK,
10215 INTEGER *INFO)
10216 {
10217 DEBUG_LAPACK_STUB("dsygvd");
10218 LAPACK_IMPL(dsygvd)(ITYPE,
10219 JOBZ,
10220 UPLO,
10221 N,
10222 A,
10223 LDA,
10224 B,
10225 LDB,
10226 W,
10227 WORK,
10228 LWORK,
10229 IWORK,
10230 LIWORK,
10231 INFO);
10232 }
10233
10234 //-- dsygvx --------------------------------------------------------------------
10235 void
10236 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
10237 const char *JOBZ,
10238 const char *RANGE,
10239 const char *UPLO,
10240 const INTEGER *N,
10241 DOUBLE *A,
10242 const INTEGER *LDA,
10243 DOUBLE *B,
10244 const INTEGER *LDB,
10245 const DOUBLE *VL,
10246 const DOUBLE *VU,
10247 const INTEGER *IL,
10248 const INTEGER *IU,
10249 const DOUBLE *ABSTOL,
10250 INTEGER *M,
10251 DOUBLE *W,
10252 DOUBLE *Z,
10253 const INTEGER *LDZ,
10254 DOUBLE *WORK,
10255 const INTEGER *LWORK,
10256 const INTEGER *IWORK,
10257 INTEGER *IFAIL,
10258 INTEGER *INFO)
10259 {
10260 DEBUG_LAPACK_STUB("dsygvx");
10261 LAPACK_IMPL(dsygvx)(ITYPE,
10262 JOBZ,
10263 RANGE,
10264 UPLO,
10265 N,
10266 A,
10267 LDA,
10268 B,
10269 LDB,
10270 VL,
10271 VU,
10272 IL,
10273 IU,
10274 ABSTOL,
10275 M,
10276 W,
10277 Z,
10278 LDZ,
10279 WORK,
10280 LWORK,
10281 IWORK,
10282 IFAIL,
10283 INFO);
10284 }
10285
10286 //-- dsyrfs --------------------------------------------------------------------
10287 void
10288 LAPACK_DECL(dsyrfs)(const char *UPLO,
10289 const INTEGER *N,
10290 const INTEGER *NRHS,
10291 const DOUBLE *A,
10292 const INTEGER *LDA,
10293 const DOUBLE *AF,
10294 const INTEGER *LDAF,
10295 const INTEGER *IPIV,
10296 const DOUBLE *B,
10297 const INTEGER *LDB,
10298 DOUBLE *X,
10299 const INTEGER *LDX,
10300 DOUBLE *FERR,
10301 DOUBLE *BERR,
10302 const DOUBLE *WORK,
10303 const INTEGER *IWORK,
10304 INTEGER *INFO)
10305 {
10306 DEBUG_LAPACK_STUB("dsyrfs");
10307 LAPACK_IMPL(dsyrfs)(UPLO,
10308 N,
10309 NRHS,
10310 A,
10311 LDA,
10312 AF,
10313 LDAF,
10314 IPIV,
10315 B,
10316 LDB,
10317 X,
10318 LDX,
10319 FERR,
10320 BERR,
10321 WORK,
10322 IWORK,
10323 INFO);
10324 }
10325
10326 //-- dsysv ---------------------------------------------------------------------
10327 void
10328 LAPACK_DECL(dsysv)(const char *UPLO,
10329 const INTEGER *N,
10330 const INTEGER *NRHS,
10331 DOUBLE *A,
10332 const INTEGER *LDA,
10333 INTEGER *IPIV,
10334 DOUBLE *B,
10335 const INTEGER *LDB,
10336 DOUBLE *WORK,
10337 const INTEGER *LWORK,
10338 INTEGER *INFO)
10339 {
10340 DEBUG_LAPACK_STUB("dsysv");
10341 LAPACK_IMPL(dsysv)(UPLO,
10342 N,
10343 NRHS,
10344 A,
10345 LDA,
10346 IPIV,
10347 B,
10348 LDB,
10349 WORK,
10350 LWORK,
10351 INFO);
10352 }
10353
10354 //-- dsysvx --------------------------------------------------------------------
10355 void
10356 LAPACK_DECL(dsysvx)(const char *FACT,
10357 const char *UPLO,
10358 const INTEGER *N,
10359 const INTEGER *NRHS,
10360 const DOUBLE *A,
10361 const INTEGER *LDA,
10362 DOUBLE *AF,
10363 const INTEGER *LDAF,
10364 INTEGER *IPIV,
10365 const DOUBLE *B,
10366 const INTEGER *LDB,
10367 DOUBLE *X,
10368 const INTEGER *LDX,
10369 DOUBLE *RCOND,
10370 DOUBLE *FERR,
10371 DOUBLE *BERR,
10372 DOUBLE *WORK,
10373 const INTEGER *LWORK,
10374 const INTEGER *IWORK,
10375 INTEGER *INFO)
10376 {
10377 DEBUG_LAPACK_STUB("dsysvx");
10378 LAPACK_IMPL(dsysvx)(FACT,
10379 UPLO,
10380 N,
10381 NRHS,
10382 A,
10383 LDA,
10384 AF,
10385 LDAF,
10386 IPIV,
10387 B,
10388 LDB,
10389 X,
10390 LDX,
10391 RCOND,
10392 FERR,
10393 BERR,
10394 WORK,
10395 LWORK,
10396 IWORK,
10397 INFO);
10398 }
10399
10400 //-- dsyswapr ------------------------------------------------------------------
10401 void
10402 LAPACK_DECL(dsyswapr)(const char *UPLO,
10403 const INTEGER *N,
10404 DOUBLE *A,
10405 const INTEGER *LDA,
10406 const INTEGER *I1,
10407 const INTEGER *I2)
10408 {
10409 DEBUG_LAPACK_STUB("dsyswapr");
10410 LAPACK_IMPL(dsyswapr)(UPLO,
10411 N,
10412 A,
10413 LDA,
10414 I1,
10415 I2);
10416 }
10417
10418 //-- dsytd2 --------------------------------------------------------------------
10419 void
10420 LAPACK_DECL(dsytd2)(const char *UPLO,
10421 const INTEGER *N,
10422 DOUBLE *A,
10423 const INTEGER *LDA,
10424 DOUBLE *D,
10425 DOUBLE *E,
10426 DOUBLE *TAU,
10427 INTEGER *INFO)
10428 {
10429 DEBUG_LAPACK_STUB("dsytd2");
10430 LAPACK_IMPL(dsytd2)(UPLO,
10431 N,
10432 A,
10433 LDA,
10434 D,
10435 E,
10436 TAU,
10437 INFO);
10438 }
10439
10440 //-- dsytf2 --------------------------------------------------------------------
10441 void
10442 LAPACK_DECL(dsytf2)(const char *UPLO,
10443 const INTEGER *N,
10444 DOUBLE *A,
10445 const INTEGER *LDA,
10446 INTEGER *IPIV,
10447 INTEGER *INFO)
10448 {
10449 DEBUG_LAPACK_STUB("dsytf2");
10450 LAPACK_IMPL(dsytf2)(UPLO,
10451 N,
10452 A,
10453 LDA,
10454 IPIV,
10455 INFO);
10456 }
10457
10458 //-- dsytrd --------------------------------------------------------------------
10459 void
10460 LAPACK_DECL(dsytrd)(const char *UPLO,
10461 const INTEGER *N,
10462 DOUBLE *A,
10463 const INTEGER *LDA,
10464 DOUBLE *D,
10465 DOUBLE *E,
10466 DOUBLE *TAU,
10467 DOUBLE *WORK,
10468 const INTEGER *LWORK,
10469 INTEGER *INFO)
10470 {
10471 DEBUG_LAPACK_STUB("dsytrd");
10472 LAPACK_IMPL(dsytrd)(UPLO,
10473 N,
10474 A,
10475 LDA,
10476 D,
10477 E,
10478 TAU,
10479 WORK,
10480 LWORK,
10481 INFO);
10482 }
10483
10484 //-- dsytrf --------------------------------------------------------------------
10485 void
10486 LAPACK_DECL(dsytrf)(const char *UPLO,
10487 const INTEGER *N,
10488 DOUBLE *A,
10489 const INTEGER *LDA,
10490 INTEGER *IPIV,
10491 DOUBLE *WORK,
10492 const INTEGER *LWORK,
10493 INTEGER *INFO)
10494 {
10495 DEBUG_LAPACK_STUB("dsytrf");
10496 LAPACK_IMPL(dsytrf)(UPLO,
10497 N,
10498 A,
10499 LDA,
10500 IPIV,
10501 WORK,
10502 LWORK,
10503 INFO);
10504 }
10505
10506 //-- dsytri --------------------------------------------------------------------
10507 void
10508 LAPACK_DECL(dsytri)(const char *UPLO,
10509 const INTEGER *N,
10510 DOUBLE *A,
10511 const INTEGER *LDA,
10512 const INTEGER *IPIV,
10513 const DOUBLE *WORK,
10514 INTEGER *INFO)
10515 {
10516 DEBUG_LAPACK_STUB("dsytri");
10517 LAPACK_IMPL(dsytri)(UPLO,
10518 N,
10519 A,
10520 LDA,
10521 IPIV,
10522 WORK,
10523 INFO);
10524 }
10525
10526 //-- dsytri2 -------------------------------------------------------------------
10527 void
10528 LAPACK_DECL(dsytri2)(const char *UPLO,
10529 const INTEGER *N,
10530 DOUBLE *A,
10531 const INTEGER *LDA,
10532 const INTEGER *IPIV,
10533 const DOUBLE *WORK,
10534 const INTEGER *LWORK,
10535 INTEGER *INFO)
10536 {
10537 DEBUG_LAPACK_STUB("dsytri2");
10538 LAPACK_IMPL(dsytri2)(UPLO,
10539 N,
10540 A,
10541 LDA,
10542 IPIV,
10543 WORK,
10544 LWORK,
10545 INFO);
10546 }
10547
10548 //-- dsytri2x ------------------------------------------------------------------
10549 void
10550 LAPACK_DECL(dsytri2x)(const char *UPLO,
10551 const INTEGER *N,
10552 DOUBLE *A,
10553 const INTEGER *LDA,
10554 const INTEGER *IPIV,
10555 const DOUBLE *WORK,
10556 const INTEGER *NB,
10557 INTEGER *INFO)
10558 {
10559 DEBUG_LAPACK_STUB("dsytri2x");
10560 LAPACK_IMPL(dsytri2x)(UPLO,
10561 N,
10562 A,
10563 LDA,
10564 IPIV,
10565 WORK,
10566 NB,
10567 INFO);
10568 }
10569
10570 //-- dsytrs --------------------------------------------------------------------
10571 void
10572 LAPACK_DECL(dsytrs)(const char *UPLO,
10573 const INTEGER *N,
10574 const INTEGER *NRHS,
10575 const DOUBLE *A,
10576 const INTEGER *LDA,
10577 const INTEGER *IPIV,
10578 DOUBLE *B,
10579 const INTEGER *LDB,
10580 INTEGER *INFO)
10581 {
10582 DEBUG_LAPACK_STUB("dsytrs");
10583 LAPACK_IMPL(dsytrs)(UPLO,
10584 N,
10585 NRHS,
10586 A,
10587 LDA,
10588 IPIV,
10589 B,
10590 LDB,
10591 INFO);
10592 }
10593
10594 //-- dsytrs2 -------------------------------------------------------------------
10595 void
10596 LAPACK_DECL(dsytrs2)(const char *UPLO,
10597 const INTEGER *N,
10598 const INTEGER *NRHS,
10599 const DOUBLE *A,
10600 const INTEGER *LDA,
10601 const INTEGER *IPIV,
10602 DOUBLE *B,
10603 const INTEGER *LDB,
10604 const DOUBLE *WORK,
10605 INTEGER *INFO)
10606 {
10607 DEBUG_LAPACK_STUB("dsytrs2");
10608 LAPACK_IMPL(dsytrs2)(UPLO,
10609 N,
10610 NRHS,
10611 A,
10612 LDA,
10613 IPIV,
10614 B,
10615 LDB,
10616 WORK,
10617 INFO);
10618 }
10619
10620 //-- dtbcon --------------------------------------------------------------------
10621 void
10622 LAPACK_DECL(dtbcon)(const char *NORM,
10623 const char *UPLO,
10624 const char *DIAG,
10625 const INTEGER *N,
10626 const INTEGER *KD,
10627 const DOUBLE *AB,
10628 const INTEGER *LDAB,
10629 DOUBLE *RCOND,
10630 const DOUBLE *WORK,
10631 const INTEGER *IWORK,
10632 INTEGER *INFO)
10633 {
10634 DEBUG_LAPACK_STUB("dtbcon");
10635 LAPACK_IMPL(dtbcon)(NORM,
10636 UPLO,
10637 DIAG,
10638 N,
10639 KD,
10640 AB,
10641 LDAB,
10642 RCOND,
10643 WORK,
10644 IWORK,
10645 INFO);
10646 }
10647
10648 //-- dtbrfs --------------------------------------------------------------------
10649 void
10650 LAPACK_DECL(dtbrfs)(const char *UPLO,
10651 const char *TRANS,
10652 const char *DIAG,
10653 const INTEGER *N,
10654 const INTEGER *KD,
10655 const INTEGER *NRHS,
10656 const DOUBLE *AB,
10657 const INTEGER *LDAB,
10658 const DOUBLE *B,
10659 const INTEGER *LDB,
10660 const DOUBLE *X,
10661 const INTEGER *LDX,
10662 DOUBLE *FERR,
10663 DOUBLE *BERR,
10664 const DOUBLE *WORK,
10665 const INTEGER *IWORK,
10666 INTEGER *INFO)
10667 {
10668 DEBUG_LAPACK_STUB("dtbrfs");
10669 LAPACK_IMPL(dtbrfs)(UPLO,
10670 TRANS,
10671 DIAG,
10672 N,
10673 KD,
10674 NRHS,
10675 AB,
10676 LDAB,
10677 B,
10678 LDB,
10679 X,
10680 LDX,
10681 FERR,
10682 BERR,
10683 WORK,
10684 IWORK,
10685 INFO);
10686 }
10687
10688 //-- dtbtrs --------------------------------------------------------------------
10689 void
10690 LAPACK_DECL(dtbtrs)(const char *UPLO,
10691 const char *TRANS,
10692 const char *DIAG,
10693 const INTEGER *N,
10694 const INTEGER *KD,
10695 const INTEGER *NRHS,
10696 const DOUBLE *AB,
10697 const INTEGER *LDAB,
10698 DOUBLE *B,
10699 const INTEGER *LDB,
10700 INTEGER *INFO)
10701 {
10702 DEBUG_LAPACK_STUB("dtbtrs");
10703 LAPACK_IMPL(dtbtrs)(UPLO,
10704 TRANS,
10705 DIAG,
10706 N,
10707 KD,
10708 NRHS,
10709 AB,
10710 LDAB,
10711 B,
10712 LDB,
10713 INFO);
10714 }
10715
10716 //-- dtfsm ---------------------------------------------------------------------
10717 void
10718 LAPACK_DECL(dtfsm)(const char *TRANSR,
10719 const char *SIDE,
10720 const char *UPLO,
10721 const char *TRANS,
10722 const char *DIAG,
10723 const INTEGER *M,
10724 const INTEGER *N,
10725 const DOUBLE *ALPHA,
10726 const DOUBLE *A,
10727 DOUBLE *B,
10728 const INTEGER *LDB)
10729 {
10730 DEBUG_LAPACK_STUB("dtfsm");
10731 LAPACK_IMPL(dtfsm)(TRANSR,
10732 SIDE,
10733 UPLO,
10734 TRANS,
10735 DIAG,
10736 M,
10737 N,
10738 ALPHA,
10739 A,
10740 B,
10741 LDB);
10742 }
10743
10744 //-- dtftri --------------------------------------------------------------------
10745 void
10746 LAPACK_DECL(dtftri)(const char *TRANSR,
10747 const char *UPLO,
10748 const char *DIAG,
10749 const INTEGER *N,
10750 DOUBLE *A,
10751 INTEGER *INFO)
10752 {
10753 DEBUG_LAPACK_STUB("dtftri");
10754 LAPACK_IMPL(dtftri)(TRANSR,
10755 UPLO,
10756 DIAG,
10757 N,
10758 A,
10759 INFO);
10760 }
10761
10762 //-- dtfttp --------------------------------------------------------------------
10763 void
10764 LAPACK_DECL(dtfttp)(const char *TRANSR,
10765 const char *UPLO,
10766 const INTEGER *N,
10767 const DOUBLE *ARF,
10768 DOUBLE *AP,
10769 INTEGER *INFO)
10770 {
10771 DEBUG_LAPACK_STUB("dtfttp");
10772 LAPACK_IMPL(dtfttp)(TRANSR,
10773 UPLO,
10774 N,
10775 ARF,
10776 AP,
10777 INFO);
10778 }
10779
10780 //-- dtfttr --------------------------------------------------------------------
10781 void
10782 LAPACK_DECL(dtfttr)(const char *TRANSR,
10783 const char *UPLO,
10784 const INTEGER *N,
10785 const DOUBLE *ARF,
10786 DOUBLE *A,
10787 const INTEGER *LDA,
10788 INTEGER *INFO)
10789 {
10790 DEBUG_LAPACK_STUB("dtfttr");
10791 LAPACK_IMPL(dtfttr)(TRANSR,
10792 UPLO,
10793 N,
10794 ARF,
10795 A,
10796 LDA,
10797 INFO);
10798 }
10799
10800 //-- dtgevc --------------------------------------------------------------------
10801 void
10802 LAPACK_DECL(dtgevc)(const char *SIDE,
10803 const char *HOWMNY,
10804 const LOGICAL *SELECT,
10805 const INTEGER *N,
10806 const DOUBLE *S,
10807 const INTEGER *LDS,
10808 const DOUBLE *P,
10809 const INTEGER *LDP,
10810 DOUBLE *VL,
10811 const INTEGER *LDVL,
10812 DOUBLE *VR,
10813 const INTEGER *LDVR,
10814 const INTEGER *MM,
10815 INTEGER *M,
10816 const DOUBLE *WORK,
10817 INTEGER *INFO)
10818 {
10819 DEBUG_LAPACK_STUB("dtgevc");
10820 LAPACK_IMPL(dtgevc)(SIDE,
10821 HOWMNY,
10822 SELECT,
10823 N,
10824 S,
10825 LDS,
10826 P,
10827 LDP,
10828 VL,
10829 LDVL,
10830 VR,
10831 LDVR,
10832 MM,
10833 M,
10834 WORK,
10835 INFO);
10836 }
10837
10838 //-- dtgex2 --------------------------------------------------------------------
10839 void
10840 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
10841 const LOGICAL *WANTZ,
10842 const INTEGER *N,
10843 DOUBLE *A,
10844 const INTEGER *LDA,
10845 DOUBLE *B,
10846 const INTEGER *LDB,
10847 DOUBLE *Q,
10848 const INTEGER *LDQ,
10849 DOUBLE *Z,
10850 const INTEGER *LDZ,
10851 const INTEGER *J1,
10852 const INTEGER *N1,
10853 const INTEGER *N2,
10854 const DOUBLE *WORK,
10855 const INTEGER *LWORK,
10856 INTEGER *INFO)
10857 {
10858 DEBUG_LAPACK_STUB("dtgex2");
10859 LAPACK_IMPL(dtgex2)(WANTQ,
10860 WANTZ,
10861 N,
10862 A,
10863 LDA,
10864 B,
10865 LDB,
10866 Q,
10867 LDQ,
10868 Z,
10869 LDZ,
10870 J1,
10871 N1,
10872 N2,
10873 WORK,
10874 LWORK,
10875 INFO);
10876 }
10877
10878 //-- dtgexc --------------------------------------------------------------------
10879 void
10880 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
10881 const LOGICAL *WANTZ,
10882 const INTEGER *N,
10883 DOUBLE *A,
10884 const INTEGER *LDA,
10885 DOUBLE *B,
10886 const INTEGER *LDB,
10887 DOUBLE *Q,
10888 const INTEGER *LDQ,
10889 DOUBLE *Z,
10890 const INTEGER *LDZ,
10891 INTEGER *IFST,
10892 INTEGER *ILST,
10893 DOUBLE *WORK,
10894 const INTEGER *LWORK,
10895 INTEGER *INFO)
10896 {
10897 DEBUG_LAPACK_STUB("dtgexc");
10898 LAPACK_IMPL(dtgexc)(WANTQ,
10899 WANTZ,
10900 N,
10901 A,
10902 LDA,
10903 B,
10904 LDB,
10905 Q,
10906 LDQ,
10907 Z,
10908 LDZ,
10909 IFST,
10910 ILST,
10911 WORK,
10912 LWORK,
10913 INFO);
10914 }
10915
10916 //-- dtgsen --------------------------------------------------------------------
10917 void
10918 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
10919 const LOGICAL *WANTQ,
10920 const LOGICAL *WANTZ,
10921 const LOGICAL *SELECT,
10922 const INTEGER *N,
10923 DOUBLE *A,
10924 const INTEGER *LDA,
10925 DOUBLE *B,
10926 const INTEGER *LDB,
10927 DOUBLE *ALPHAR,
10928 DOUBLE *ALPHAI,
10929 DOUBLE *BETA,
10930 DOUBLE *Q,
10931 const INTEGER *LDQ,
10932 DOUBLE *Z,
10933 const INTEGER *LDZ,
10934 INTEGER *M,
10935 DOUBLE *PL,
10936 DOUBLE *PR,
10937 DOUBLE *DIF,
10938 DOUBLE *WORK,
10939 const INTEGER *LWORK,
10940 INTEGER *IWORK,
10941 const INTEGER *LIWORK,
10942 INTEGER *INFO)
10943 {
10944 DEBUG_LAPACK_STUB("dtgsen");
10945 LAPACK_IMPL(dtgsen)(IJOB,
10946 WANTQ,
10947 WANTZ,
10948 SELECT,
10949 N,
10950 A,
10951 LDA,
10952 B,
10953 LDB,
10954 ALPHAR,
10955 ALPHAI,
10956 BETA,
10957 Q,
10958 LDQ,
10959 Z,
10960 LDZ,
10961 M,
10962 PL,
10963 PR,
10964 DIF,
10965 WORK,
10966 LWORK,
10967 IWORK,
10968 LIWORK,
10969 INFO);
10970 }
10971
10972 //-- dtgsja --------------------------------------------------------------------
10973 void
10974 LAPACK_DECL(dtgsja)(const char *JOBU,
10975 const char *JOBV,
10976 const char *JOBQ,
10977 const INTEGER *M,
10978 const INTEGER *P,
10979 const INTEGER *N,
10980 const INTEGER *K,
10981 const INTEGER *L,
10982 DOUBLE *A,
10983 const INTEGER *LDA,
10984 DOUBLE *B,
10985 const INTEGER *LDB,
10986 const DOUBLE *TOLA,
10987 const DOUBLE *TOLB,
10988 DOUBLE *ALPHA,
10989 DOUBLE *BETA,
10990 DOUBLE *U,
10991 const INTEGER *LDU,
10992 DOUBLE *V,
10993 const INTEGER *LDV,
10994 DOUBLE *Q,
10995 const INTEGER *LDQ,
10996 const DOUBLE *WORK,
10997 INTEGER *NCYCLE,
10998 INTEGER *INFO)
10999 {
11000 DEBUG_LAPACK_STUB("dtgsja");
11001 LAPACK_IMPL(dtgsja)(JOBU,
11002 JOBV,
11003 JOBQ,
11004 M,
11005 P,
11006 N,
11007 K,
11008 L,
11009 A,
11010 LDA,
11011 B,
11012 LDB,
11013 TOLA,
11014 TOLB,
11015 ALPHA,
11016 BETA,
11017 U,
11018 LDU,
11019 V,
11020 LDV,
11021 Q,
11022 LDQ,
11023 WORK,
11024 NCYCLE,
11025 INFO);
11026 }
11027
11028 //-- dtgsna --------------------------------------------------------------------
11029 void
11030 LAPACK_DECL(dtgsna)(const char *JOB,
11031 const char *HOWMNY,
11032 const LOGICAL *SELECT,
11033 const INTEGER *N,
11034 const DOUBLE *A,
11035 const INTEGER *LDA,
11036 const DOUBLE *B,
11037 const INTEGER *LDB,
11038 const DOUBLE *VL,
11039 const INTEGER *LDVL,
11040 const DOUBLE *VR,
11041 const INTEGER *LDVR,
11042 DOUBLE *S,
11043 DOUBLE *DIF,
11044 const INTEGER *MM,
11045 INTEGER *M,
11046 DOUBLE *WORK,
11047 const INTEGER *LWORK,
11048 const INTEGER *IWORK,
11049 INTEGER *INFO)
11050 {
11051 DEBUG_LAPACK_STUB("dtgsna");
11052 LAPACK_IMPL(dtgsna)(JOB,
11053 HOWMNY,
11054 SELECT,
11055 N,
11056 A,
11057 LDA,
11058 B,
11059 LDB,
11060 VL,
11061 LDVL,
11062 VR,
11063 LDVR,
11064 S,
11065 DIF,
11066 MM,
11067 M,
11068 WORK,
11069 LWORK,
11070 IWORK,
11071 INFO);
11072 }
11073
11074 //-- dtgsy2 --------------------------------------------------------------------
11075 void
11076 LAPACK_DECL(dtgsy2)(const char *TRANS,
11077 const INTEGER *IJOB,
11078 const INTEGER *M,
11079 const INTEGER *N,
11080 const DOUBLE *A,
11081 const INTEGER *LDA,
11082 const DOUBLE *B,
11083 const INTEGER *LDB,
11084 DOUBLE *C,
11085 const INTEGER *LDC,
11086 const DOUBLE *D,
11087 const INTEGER *LDD,
11088 const DOUBLE *E,
11089 const INTEGER *LDE,
11090 DOUBLE *F,
11091 const INTEGER *LDF,
11092 DOUBLE *SCALE,
11093 DOUBLE *RDSUM,
11094 DOUBLE *RDSCAL,
11095 const INTEGER *IWORK,
11096 INTEGER *PQ,
11097 INTEGER *INFO)
11098 {
11099 DEBUG_LAPACK_STUB("dtgsy2");
11100 LAPACK_IMPL(dtgsy2)(TRANS,
11101 IJOB,
11102 M,
11103 N,
11104 A,
11105 LDA,
11106 B,
11107 LDB,
11108 C,
11109 LDC,
11110 D,
11111 LDD,
11112 E,
11113 LDE,
11114 F,
11115 LDF,
11116 SCALE,
11117 RDSUM,
11118 RDSCAL,
11119 IWORK,
11120 PQ,
11121 INFO);
11122 }
11123
11124 //-- dtgsyl --------------------------------------------------------------------
11125 void
11126 LAPACK_DECL(dtgsyl)(const char *TRANS,
11127 const INTEGER *IJOB,
11128 const INTEGER *M,
11129 const INTEGER *N,
11130 const DOUBLE *A,
11131 const INTEGER *LDA,
11132 const DOUBLE *B,
11133 const INTEGER *LDB,
11134 DOUBLE *C,
11135 const INTEGER *LDC,
11136 const DOUBLE *D,
11137 const INTEGER *LDD,
11138 const DOUBLE *E,
11139 const INTEGER *LDE,
11140 DOUBLE *F,
11141 const INTEGER *LDF,
11142 DOUBLE *SCALE,
11143 DOUBLE *DIF,
11144 DOUBLE *WORK,
11145 const INTEGER *LWORK,
11146 const INTEGER *IWORK,
11147 INTEGER *INFO)
11148 {
11149 DEBUG_LAPACK_STUB("dtgsyl");
11150 LAPACK_IMPL(dtgsyl)(TRANS,
11151 IJOB,
11152 M,
11153 N,
11154 A,
11155 LDA,
11156 B,
11157 LDB,
11158 C,
11159 LDC,
11160 D,
11161 LDD,
11162 E,
11163 LDE,
11164 F,
11165 LDF,
11166 SCALE,
11167 DIF,
11168 WORK,
11169 LWORK,
11170 IWORK,
11171 INFO);
11172 }
11173
11174 //-- dtpcon --------------------------------------------------------------------
11175 void
11176 LAPACK_DECL(dtpcon)(const char *NORM,
11177 const char *UPLO,
11178 const char *DIAG,
11179 const INTEGER *N,
11180 const DOUBLE *AP,
11181 DOUBLE *RCOND,
11182 const DOUBLE *WORK,
11183 const INTEGER *IWORK,
11184 INTEGER *INFO)
11185 {
11186 DEBUG_LAPACK_STUB("dtpcon");
11187 LAPACK_IMPL(dtpcon)(NORM,
11188 UPLO,
11189 DIAG,
11190 N,
11191 AP,
11192 RCOND,
11193 WORK,
11194 IWORK,
11195 INFO);
11196 }
11197
11198 //-- dtprfs --------------------------------------------------------------------
11199 void
11200 LAPACK_DECL(dtprfs)(const char *UPLO,
11201 const char *TRANS,
11202 const char *DIAG,
11203 const INTEGER *N,
11204 const INTEGER *NRHS,
11205 const DOUBLE *AP,
11206 const DOUBLE *B,
11207 const INTEGER *LDB,
11208 const DOUBLE *X,
11209 const INTEGER *LDX,
11210 DOUBLE *FERR,
11211 DOUBLE *BERR,
11212 const DOUBLE *WORK,
11213 const INTEGER *IWORK,
11214 INTEGER *INFO)
11215 {
11216 DEBUG_LAPACK_STUB("dtprfs");
11217 LAPACK_IMPL(dtprfs)(UPLO,
11218 TRANS,
11219 DIAG,
11220 N,
11221 NRHS,
11222 AP,
11223 B,
11224 LDB,
11225 X,
11226 LDX,
11227 FERR,
11228 BERR,
11229 WORK,
11230 IWORK,
11231 INFO);
11232 }
11233
11234 //-- dtptri --------------------------------------------------------------------
11235 void
11236 LAPACK_DECL(dtptri)(const char *UPLO,
11237 const char *DIAG,
11238 const INTEGER *N,
11239 DOUBLE *AP,
11240 INTEGER *INFO)
11241 {
11242 DEBUG_LAPACK_STUB("dtptri");
11243 LAPACK_IMPL(dtptri)(UPLO,
11244 DIAG,
11245 N,
11246 AP,
11247 INFO);
11248 }
11249
11250 //-- dtptrs --------------------------------------------------------------------
11251 void
11252 LAPACK_DECL(dtptrs)(const char *UPLO,
11253 const char *TRANS,
11254 const char *DIAG,
11255 const INTEGER *N,
11256 const INTEGER *NRHS,
11257 const DOUBLE *AP,
11258 DOUBLE *B,
11259 const INTEGER *LDB,
11260 INTEGER *INFO)
11261 {
11262 DEBUG_LAPACK_STUB("dtptrs");
11263 LAPACK_IMPL(dtptrs)(UPLO,
11264 TRANS,
11265 DIAG,
11266 N,
11267 NRHS,
11268 AP,
11269 B,
11270 LDB,
11271 INFO);
11272 }
11273
11274 //-- dtpttf --------------------------------------------------------------------
11275 void
11276 LAPACK_DECL(dtpttf)(const char *TRANSR,
11277 const char *UPLO,
11278 const INTEGER *N,
11279 const DOUBLE *AP,
11280 DOUBLE *ARF,
11281 INTEGER *INFO)
11282 {
11283 DEBUG_LAPACK_STUB("dtpttf");
11284 LAPACK_IMPL(dtpttf)(TRANSR,
11285 UPLO,
11286 N,
11287 AP,
11288 ARF,
11289 INFO);
11290 }
11291
11292 //-- dtpttr --------------------------------------------------------------------
11293 void
11294 LAPACK_DECL(dtpttr)(const char *UPLO,
11295 const INTEGER *N,
11296 const DOUBLE *AP,
11297 DOUBLE *A,
11298 const INTEGER *LDA,
11299 INTEGER *INFO)
11300 {
11301 DEBUG_LAPACK_STUB("dtpttr");
11302 LAPACK_IMPL(dtpttr)(UPLO,
11303 N,
11304 AP,
11305 A,
11306 LDA,
11307 INFO);
11308 }
11309
11310 //-- dtrcon --------------------------------------------------------------------
11311 void
11312 LAPACK_DECL(dtrcon)(const char *NORM,
11313 const char *UPLO,
11314 const char *DIAG,
11315 const INTEGER *N,
11316 const DOUBLE *A,
11317 const INTEGER *LDA,
11318 DOUBLE *RCOND,
11319 const DOUBLE *WORK,
11320 const INTEGER *IWORK,
11321 INTEGER *INFO)
11322 {
11323 DEBUG_LAPACK_STUB("dtrcon");
11324 LAPACK_IMPL(dtrcon)(NORM,
11325 UPLO,
11326 DIAG,
11327 N,
11328 A,
11329 LDA,
11330 RCOND,
11331 WORK,
11332 IWORK,
11333 INFO);
11334 }
11335
11336 //-- dtrevc --------------------------------------------------------------------
11337 void
11338 LAPACK_DECL(dtrevc)(const char *SIDE,
11339 const char *HOWMNY,
11340 LOGICAL *SELECT,
11341 const INTEGER *N,
11342 const DOUBLE *T,
11343 const INTEGER *LDT,
11344 DOUBLE *VL,
11345 const INTEGER *LDVL,
11346 DOUBLE *VR,
11347 const INTEGER *LDVR,
11348 const INTEGER *MM,
11349 INTEGER *M,
11350 const DOUBLE *WORK,
11351 INTEGER *INFO)
11352 {
11353 DEBUG_LAPACK_STUB("dtrevc");
11354 LAPACK_IMPL(dtrevc)(SIDE,
11355 HOWMNY,
11356 SELECT,
11357 N,
11358 T,
11359 LDT,
11360 VL,
11361 LDVL,
11362 VR,
11363 LDVR,
11364 MM,
11365 M,
11366 WORK,
11367 INFO);
11368 }
11369
11370 //-- dtrexc --------------------------------------------------------------------
11371 void
11372 LAPACK_DECL(dtrexc)(const char *COMPQ,
11373 const INTEGER *N,
11374 DOUBLE *T,
11375 const INTEGER *LDT,
11376 DOUBLE *Q,
11377 const INTEGER *LDQ,
11378 INTEGER *IFST,
11379 INTEGER *ILST,
11380 const DOUBLE *WORK,
11381 INTEGER *INFO)
11382 {
11383 DEBUG_LAPACK_STUB("dtrexc");
11384 LAPACK_IMPL(dtrexc)(COMPQ,
11385 N,
11386 T,
11387 LDT,
11388 Q,
11389 LDQ,
11390 IFST,
11391 ILST,
11392 WORK,
11393 INFO);
11394 }
11395
11396 //-- dtrrfs --------------------------------------------------------------------
11397 void
11398 LAPACK_DECL(dtrrfs)(const char *UPLO,
11399 const char *TRANS,
11400 const char *DIAG,
11401 const INTEGER *N,
11402 const INTEGER *NRHS,
11403 const DOUBLE *A,
11404 const INTEGER *LDA,
11405 const DOUBLE *B,
11406 const INTEGER *LDB,
11407 const DOUBLE *X,
11408 const INTEGER *LDX,
11409 DOUBLE *FERR,
11410 DOUBLE *BERR,
11411 const DOUBLE *WORK,
11412 const INTEGER *IWORK,
11413 INTEGER *INFO)
11414 {
11415 DEBUG_LAPACK_STUB("dtrrfs");
11416 LAPACK_IMPL(dtrrfs)(UPLO,
11417 TRANS,
11418 DIAG,
11419 N,
11420 NRHS,
11421 A,
11422 LDA,
11423 B,
11424 LDB,
11425 X,
11426 LDX,
11427 FERR,
11428 BERR,
11429 WORK,
11430 IWORK,
11431 INFO);
11432 }
11433
11434 //-- dtrsen --------------------------------------------------------------------
11435 void
11436 LAPACK_DECL(dtrsen)(const char *JOB,
11437 const char *COMPQ,
11438 const LOGICAL *SELECT,
11439 const INTEGER *N,
11440 DOUBLE *T,
11441 const INTEGER *LDT,
11442 DOUBLE *Q,
11443 const INTEGER *LDQ,
11444 DOUBLE *WR,
11445 DOUBLE *WI,
11446 INTEGER *M,
11447 DOUBLE *S,
11448 DOUBLE *SEP,
11449 DOUBLE *WORK,
11450 const INTEGER *LWORK,
11451 const INTEGER *IWORK,
11452 const INTEGER *LIWORK,
11453 INTEGER *INFO)
11454 {
11455 DEBUG_LAPACK_STUB("dtrsen");
11456 std::cerr << "dtrsen" << std::endl;
11457 LAPACK_IMPL(dtrsen)(JOB,
11458 COMPQ,
11459 SELECT,
11460 N,
11461 T,
11462 LDT,
11463 Q,
11464 LDQ,
11465 WR,
11466 WI,
11467 M,
11468 S,
11469 SEP,
11470 WORK,
11471 LWORK,
11472 IWORK,
11473 LIWORK,
11474 INFO);
11475 }
11476
11477 //-- dtrsna --------------------------------------------------------------------
11478 void
11479 LAPACK_DECL(dtrsna)(const char *JOB,
11480 const char *HOWMNY,
11481 const LOGICAL *SELECT,
11482 const INTEGER *N,
11483 const DOUBLE *T,
11484 const INTEGER *LDT,
11485 const DOUBLE *VL,
11486 const INTEGER *LDVL,
11487 const DOUBLE *VR,
11488 const INTEGER *LDVR,
11489 DOUBLE *S,
11490 DOUBLE *SEP,
11491 const INTEGER *MM,
11492 INTEGER *M,
11493 const DOUBLE *WORK,
11494 const INTEGER *LDWORK,
11495 const INTEGER *IWORK,
11496 INTEGER *INFO)
11497 {
11498 DEBUG_LAPACK_STUB("dtrsna");
11499 LAPACK_IMPL(dtrsna)(JOB,
11500 HOWMNY,
11501 SELECT,
11502 N,
11503 T,
11504 LDT,
11505 VL,
11506 LDVL,
11507 VR,
11508 LDVR,
11509 S,
11510 SEP,
11511 MM,
11512 M,
11513 WORK,
11514 LDWORK,
11515 IWORK,
11516 INFO);
11517 }
11518
11519 //-- dtrsyl --------------------------------------------------------------------
11520 void
11521 LAPACK_DECL(dtrsyl)(const char *TRANA,
11522 const char *TRANB,
11523 const INTEGER *ISGN,
11524 const INTEGER *M,
11525 const INTEGER *N,
11526 const DOUBLE *A,
11527 const INTEGER *LDA,
11528 const DOUBLE *B,
11529 const INTEGER *LDB,
11530 DOUBLE *C,
11531 const INTEGER *LDC,
11532 DOUBLE *SCALE,
11533 INTEGER *INFO)
11534 {
11535 DEBUG_LAPACK_STUB("dtrsyl");
11536 LAPACK_IMPL(dtrsyl)(TRANA,
11537 TRANB,
11538 ISGN,
11539 M,
11540 N,
11541 A,
11542 LDA,
11543 B,
11544 LDB,
11545 C,
11546 LDC,
11547 SCALE,
11548 INFO);
11549 }
11550
11551 //-- dtrti2 --------------------------------------------------------------------
11552 void
11553 LAPACK_DECL(dtrti2)(const char *UPLO,
11554 const char *DIAG,
11555 const INTEGER *N,
11556 DOUBLE *A,
11557 const INTEGER *LDA,
11558 INTEGER *INFO)
11559 {
11560 DEBUG_LAPACK_STUB("dtrti2");
11561 LAPACK_IMPL(dtrti2)(UPLO,
11562 DIAG,
11563 N,
11564 A,
11565 LDA,
11566 INFO);
11567 }
11568
11569 //-- dtrtri --------------------------------------------------------------------
11570 /*
11571 void
11572 LAPACK_DECL(dtrtri)(const char *UPLO,
11573 const char *DIAG,
11574 const INTEGER *N,
11575 DOUBLE *A,
11576 const INTEGER *LDA,
11577 INTEGER *INFO)
11578 {
11579 DEBUG_LAPACK_STUB("dtrtri");
11580 std::cerr << "dtrtri" << std::endl;
11581 LAPACK_IMPL(dtrtri)(UPLO,
11582 DIAG,
11583 N,
11584 A,
11585 LDA,
11586 INFO);
11587 }
11588 */
11589
11590 //-- dtrtrs --------------------------------------------------------------------
11591 /*
11592 void
11593 LAPACK_DECL(dtrtrs)(const char *UPLO,
11594 const char *TRANS,
11595 const char *DIAG,
11596 const INTEGER *N,
11597 const INTEGER *NRHS,
11598 const DOUBLE *A,
11599 const INTEGER *LDA,
11600 DOUBLE *B,
11601 const INTEGER *LDB,
11602 INTEGER *INFO)
11603 {
11604 DEBUG_LAPACK_STUB("dtrtrs");
11605 LAPACK_IMPL(dtrtrs)(UPLO,
11606 TRANS,
11607 DIAG,
11608 N,
11609 NRHS,
11610 A,
11611 LDA,
11612 B,
11613 LDB,
11614 INFO);
11615 }
11616 */
11617
11618 //-- dtrttf --------------------------------------------------------------------
11619 void
11620 LAPACK_DECL(dtrttf)(const char *TRANSR,
11621 const char *UPLO,
11622 const INTEGER *N,
11623 const DOUBLE *A,
11624 const INTEGER *LDA,
11625 DOUBLE *ARF,
11626 INTEGER *INFO)
11627 {
11628 DEBUG_LAPACK_STUB("dtrttf");
11629 LAPACK_IMPL(dtrttf)(TRANSR,
11630 UPLO,
11631 N,
11632 A,
11633 LDA,
11634 ARF,
11635 INFO);
11636 }
11637
11638 //-- dtrttp --------------------------------------------------------------------
11639 void
11640 LAPACK_DECL(dtrttp)(const char *UPLO,
11641 const INTEGER *N,
11642 const DOUBLE *A,
11643 const INTEGER *LDA,
11644 DOUBLE *AP,
11645 INTEGER *INFO)
11646 {
11647 DEBUG_LAPACK_STUB("dtrttp");
11648 LAPACK_IMPL(dtrttp)(UPLO,
11649 N,
11650 A,
11651 LDA,
11652 AP,
11653 INFO);
11654 }
11655
11656 //-- dtzrqf --------------------------------------------------------------------
11657 void
11658 LAPACK_DECL(dtzrqf)(const INTEGER *M,
11659 const INTEGER *N,
11660 DOUBLE *A,
11661 const INTEGER *LDA,
11662 DOUBLE *TAU,
11663 INTEGER *INFO)
11664 {
11665 DEBUG_LAPACK_STUB("dtzrqf");
11666 LAPACK_IMPL(dtzrqf)(M,
11667 N,
11668 A,
11669 LDA,
11670 TAU,
11671 INFO);
11672 }
11673
11674 //-- dtzrzf --------------------------------------------------------------------
11675 void
11676 LAPACK_DECL(dtzrzf)(const INTEGER *M,
11677 const INTEGER *N,
11678 DOUBLE *A,
11679 const INTEGER *LDA,
11680 DOUBLE *TAU,
11681 DOUBLE *WORK,
11682 const INTEGER *LWORK,
11683 INTEGER *INFO)
11684 {
11685 DEBUG_LAPACK_STUB("dtzrzf");
11686 LAPACK_IMPL(dtzrzf)(M,
11687 N,
11688 A,
11689 LDA,
11690 TAU,
11691 WORK,
11692 LWORK,
11693 INFO);
11694 }
11695
11696 //-- dzsum1 --------------------------------------------------------------------
11697 DOUBLE
11698 LAPACK_DECL(dzsum1)(const INTEGER *N,
11699 const DOUBLE_COMPLEX *CX,
11700 const INTEGER *INCX)
11701 {
11702 DEBUG_LAPACK_STUB("dzsum1");
11703 return LAPACK_IMPL(dzsum1)(N,
11704 CX,
11705 INCX);
11706 }
11707
11708 //-- ieeeck --------------------------------------------------------------------
11709 INTEGER
11710 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
11711 const FLOAT *ZERO,
11712 const FLOAT *ONE)
11713 {
11714 DEBUG_LAPACK_STUB("ieeeck");
11715 return LAPACK_IMPL(ieeeck)(ISPEC,
11716 ZERO,
11717 ONE);
11718 }
11719
11720 //-- iladlc --------------------------------------------------------------------
11721 INTEGER
11722 LAPACK_DECL(iladlc)(const INTEGER *M,
11723 const INTEGER *N,
11724 const DOUBLE *A,
11725 const INTEGER *LDA)
11726 {
11727 DEBUG_LAPACK_STUB("iladlc");
11728 return LAPACK_IMPL(iladlc)(M,
11729 N,
11730 A,
11731 LDA);
11732 }
11733
11734 //-- iladlr --------------------------------------------------------------------
11735 INTEGER
11736 LAPACK_DECL(iladlr)(const INTEGER *M,
11737 const INTEGER *N,
11738 const DOUBLE *A,
11739 const INTEGER *LDA)
11740 {
11741 DEBUG_LAPACK_STUB("iladlr");
11742 return LAPACK_IMPL(iladlr)(M,
11743 N,
11744 A,
11745 LDA);
11746 }
11747
11748 //-- ilaslc --------------------------------------------------------------------
11749 INTEGER
11750 LAPACK_DECL(ilaslc)(const INTEGER *M,
11751 const INTEGER *N,
11752 const FLOAT *A,
11753 const INTEGER *LDA)
11754 {
11755 DEBUG_LAPACK_STUB("ilaslc");
11756 return LAPACK_IMPL(ilaslc)(M,
11757 N,
11758 A,
11759 LDA);
11760 }
11761
11762 //-- ilaslr --------------------------------------------------------------------
11763 INTEGER
11764 LAPACK_DECL(ilaslr)(const INTEGER *M,
11765 const INTEGER *N,
11766 const FLOAT *A,
11767 const INTEGER *LDA)
11768 {
11769 DEBUG_LAPACK_STUB("ilaslr");
11770 return LAPACK_IMPL(ilaslr)(M,
11771 N,
11772 A,
11773 LDA);
11774 }
11775
11776 //-- ilatrans ------------------------------------------------------------------
11777 INTEGER
11778 LAPACK_DECL(ilatrans)(const char *TRANS)
11779 {
11780 DEBUG_LAPACK_STUB("ilatrans");
11781 return LAPACK_IMPL(ilatrans)(TRANS);
11782 }
11783
11784 //-- ilauplo -------------------------------------------------------------------
11785 INTEGER
11786 LAPACK_DECL(ilauplo)(const char *UPLO)
11787 {
11788 DEBUG_LAPACK_STUB("ilauplo");
11789 return LAPACK_IMPL(ilauplo)(UPLO);
11790 }
11791
11792 // warning: VERS_MAJOR has unknown type
11793 // warning: VERS_MINOR has unknown type
11794 // warning: VERS_PATCH has unknown type
11795 //-- ilaver --------------------------------------------------------------------
11796 void
11797 LAPACK_DECL(ilaver)(INTEGER *VERS_MAJOR,
11798 INTEGER *VERS_MINOR,
11799 INTEGER *VERS_PATCH)
11800 {
11801 DEBUG_LAPACK_STUB("ilaver");
11802 LAPACK_IMPL(ilaver)(VERS_MAJOR,
11803 VERS_MINOR,
11804 VERS_PATCH);
11805 }
11806
11807 //-- sgetf2 --------------------------------------------------------------------
11808 void
11809 LAPACK_DECL(sgetf2)(const INTEGER *M,
11810 const INTEGER *N,
11811 FLOAT *A,
11812 const INTEGER *LDA,
11813 INTEGER *IPIV,
11814 INTEGER *INFO)
11815 {
11816 DEBUG_LAPACK_STUB("sgetf2");
11817 LAPACK_IMPL(sgetf2)(M,
11818 N,
11819 A,
11820 LDA,
11821 IPIV,
11822 INFO);
11823 }
11824
11825 //-- sgetrf --------------------------------------------------------------------
11826 void
11827 LAPACK_DECL(sgetrf)(const INTEGER *M,
11828 const INTEGER *N,
11829 FLOAT *A,
11830 const INTEGER *LDA,
11831 INTEGER *IPIV,
11832 INTEGER *INFO)
11833 {
11834 DEBUG_LAPACK_STUB("sgetrf");
11835 LAPACK_IMPL(sgetrf)(M,
11836 N,
11837 A,
11838 LDA,
11839 IPIV,
11840 INFO);
11841 }
11842
11843 //-- sgetrs --------------------------------------------------------------------
11844 void
11845 LAPACK_DECL(sgetrs)(const char *TRANS,
11846 const INTEGER *N,
11847 const INTEGER *NRHS,
11848 const FLOAT *A,
11849 const INTEGER *LDA,
11850 const INTEGER *IPIV,
11851 FLOAT *B,
11852 const INTEGER *LDB,
11853 INTEGER *INFO)
11854 {
11855 DEBUG_LAPACK_STUB("sgetrs");
11856 LAPACK_IMPL(sgetrs)(TRANS,
11857 N,
11858 NRHS,
11859 A,
11860 LDA,
11861 IPIV,
11862 B,
11863 LDB,
11864 INFO);
11865 }
11866
11867 //-- sisnan --------------------------------------------------------------------
11868 LOGICAL
11869 LAPACK_DECL(sisnan)(const FLOAT *SIN)
11870 {
11871 DEBUG_LAPACK_STUB("sisnan");
11872 return LAPACK_IMPL(sisnan)(SIN);
11873 }
11874
11875 //-- slag2d --------------------------------------------------------------------
11876 void
11877 LAPACK_DECL(slag2d)(const INTEGER *M,
11878 const INTEGER *N,
11879 const FLOAT *SA,
11880 const INTEGER *LDSA,
11881 DOUBLE *A,
11882 const INTEGER *LDA,
11883 INTEGER *INFO)
11884 {
11885 DEBUG_LAPACK_STUB("slag2d");
11886 LAPACK_IMPL(slag2d)(M,
11887 N,
11888 SA,
11889 LDSA,
11890 A,
11891 LDA,
11892 INFO);
11893 }
11894
11895 //-- slaisnan ------------------------------------------------------------------
11896 LOGICAL
11897 LAPACK_DECL(slaisnan)(const FLOAT *SIN1,
11898 const FLOAT *SIN2)
11899 {
11900 DEBUG_LAPACK_STUB("slaisnan");
11901 return LAPACK_IMPL(slaisnan)(SIN1,
11902 SIN2);
11903 }
11904
11905 //-- slamch --------------------------------------------------------------------
11906 FLOAT
11907 LAPACK_DECL(slamch)(const char *CMACH)
11908 {
11909 DEBUG_LAPACK_STUB("slamch");
11910 return LAPACK_IMPL(slamch)(CMACH);
11911 }
11912
11913 //-- dlamch --------------------------------------------------------------------
11914 DOUBLE
11915 LAPACK_DECL(dlamch)(const char *CMACH)
11916 {
11917 DEBUG_LAPACK_STUB("dlamch");
11918 return LAPACK_IMPL(dlamch)(CMACH);
11919 }
11920
11921 //-- slaswp --------------------------------------------------------------------
11922 void
11923 LAPACK_DECL(slaswp)(const INTEGER *N,
11924 FLOAT *A,
11925 const INTEGER *LDA,
11926 const INTEGER *K1,
11927 const INTEGER *K2,
11928 const INTEGER *IPIV,
11929 const INTEGER *INCX)
11930 {
11931 DEBUG_LAPACK_STUB("slaswp");
11932 LAPACK_IMPL(slaswp)(N,
11933 A,
11934 LDA,
11935 K1,
11936 K2,
11937 IPIV,
11938 INCX);
11939 }
11940
11941 //-- spotf2 --------------------------------------------------------------------
11942 void
11943 LAPACK_DECL(spotf2)(const char *UPLO,
11944 const INTEGER *N,
11945 FLOAT *A,
11946 const INTEGER *LDA,
11947 INTEGER *INFO)
11948 {
11949 DEBUG_LAPACK_STUB("spotf2");
11950 LAPACK_IMPL(spotf2)(UPLO,
11951 N,
11952 A,
11953 LDA,
11954 INFO);
11955 }
11956
11957 //-- spotrf --------------------------------------------------------------------
11958 void
11959 LAPACK_DECL(spotrf)(const char *UPLO,
11960 const INTEGER *N,
11961 FLOAT *A,
11962 const INTEGER *LDA,
11963 INTEGER *INFO)
11964 {
11965 DEBUG_LAPACK_STUB("spotrf");
11966 LAPACK_IMPL(spotrf)(UPLO,
11967 N,
11968 A,
11969 LDA,
11970 INFO);
11971 }
11972
11973 //-- spotrs --------------------------------------------------------------------
11974 void
11975 LAPACK_DECL(spotrs)(const char *UPLO,
11976 const INTEGER *N,
11977 const INTEGER *NRHS,
11978 const FLOAT *A,
11979 const INTEGER *LDA,
11980 FLOAT *B,
11981 const INTEGER *LDB,
11982 INTEGER *INFO)
11983 {
11984 DEBUG_LAPACK_STUB("spotrs");
11985 LAPACK_IMPL(spotrs)(UPLO,
11986 N,
11987 NRHS,
11988 A,
11989 LDA,
11990 B,
11991 LDB,
11992 INFO);
11993 }
11994