1 #ifndef INTEGER
2 #define INTEGER int
3 #endif
4
5 #ifndef FLOAT
6 #define FLOAT float
7 #endif
8
9 #ifndef DOUBLE
10 #define DOUBLE double
11 #endif
12
13 #ifndef DOUBLE_COMPLEX
14 #define DOUBLE_COMPLEX double
15 #endif
16
17 #ifndef LOGICAL
18 #define LOGICAL int
19 #endif
20
21 #ifndef UNKNOWN
22 #define UNKNOWN void
23 #endif
24
25 //-- dbbcsd --------------------------------------------------------------------
26 void
27 LAPACK_DECL(dbbcsd)(const char *JOBU1,
28 const char *JOBU2,
29 const char *JOBV1T,
30 const char *JOBV2T,
31 const char *TRANS,
32 const INTEGER *M,
33 const INTEGER *P,
34 const INTEGER *Q,
35 DOUBLE *THETA,
36 const DOUBLE *PHI,
37 DOUBLE *U1,
38 const INTEGER *LDU1,
39 DOUBLE *U2,
40 const INTEGER *LDU2,
41 DOUBLE *V1T,
42 const INTEGER *LDV1T,
43 DOUBLE *V2T,
44 const INTEGER *LDV2T,
45 DOUBLE *B11D,
46 DOUBLE *B11E,
47 DOUBLE *B12D,
48 DOUBLE *B12E,
49 const DOUBLE *B21D,
50 const DOUBLE *B21E,
51 const DOUBLE *B22D,
52 const DOUBLE *B22E,
53 const DOUBLE *WORK,
54 const INTEGER *LWORK,
55 INTEGER *INFO);
56
57 //-- dbdsdc --------------------------------------------------------------------
58 void
59 LAPACK_DECL(dbdsdc)(const char *UPLO,
60 const char *COMPQ,
61 const INTEGER *N,
62 DOUBLE *D,
63 DOUBLE *E,
64 DOUBLE *U,
65 const INTEGER *LDU,
66 DOUBLE *VT,
67 const INTEGER *LDVT,
68 DOUBLE *Q,
69 INTEGER *IQ,
70 const DOUBLE *WORK,
71 const INTEGER *IWORK,
72 INTEGER *INFO);
73
74 //-- dbdsqr --------------------------------------------------------------------
75 void
76 LAPACK_DECL(dbdsqr)(const char *UPLO,
77 const INTEGER *N,
78 const INTEGER *NCVT,
79 const INTEGER *NRU,
80 const INTEGER *NCC,
81 DOUBLE *D,
82 DOUBLE *E,
83 DOUBLE *VT,
84 const INTEGER *LDVT,
85 DOUBLE *U,
86 const INTEGER *LDU,
87 DOUBLE *C,
88 const INTEGER *LDC,
89 const DOUBLE *WORK,
90 INTEGER *INFO);
91
92 //-- ddisna --------------------------------------------------------------------
93 void
94 LAPACK_DECL(ddisna)(const char *JOB,
95 const INTEGER *M,
96 const INTEGER *N,
97 const DOUBLE *D,
98 DOUBLE *SEP,
99 INTEGER *INFO);
100
101 //-- dgbbrd --------------------------------------------------------------------
102 void
103 LAPACK_DECL(dgbbrd)(const char *VECT,
104 const INTEGER *M,
105 const INTEGER *N,
106 const INTEGER *NCC,
107 const INTEGER *KL,
108 const INTEGER *KU,
109 DOUBLE *AB,
110 const INTEGER *LDAB,
111 DOUBLE *D,
112 DOUBLE *E,
113 DOUBLE *Q,
114 const INTEGER *LDQ,
115 DOUBLE *PT,
116 const INTEGER *LDPT,
117 DOUBLE *C,
118 const INTEGER *LDC,
119 const DOUBLE *WORK,
120 INTEGER *INFO);
121
122 //-- dgbcon --------------------------------------------------------------------
123 void
124 LAPACK_DECL(dgbcon)(const char *NORM,
125 const INTEGER *N,
126 const INTEGER *KL,
127 const INTEGER *KU,
128 const DOUBLE *AB,
129 const INTEGER *LDAB,
130 const INTEGER *IPIV,
131 const DOUBLE *ANORM,
132 DOUBLE *RCOND,
133 const DOUBLE *WORK,
134 const INTEGER *IWORK,
135 INTEGER *INFO);
136
137 //-- dgbequ --------------------------------------------------------------------
138 void
139 LAPACK_DECL(dgbequ)(const INTEGER *M,
140 const INTEGER *N,
141 const INTEGER *KL,
142 const INTEGER *KU,
143 const DOUBLE *AB,
144 const INTEGER *LDAB,
145 DOUBLE *R,
146 DOUBLE *C,
147 DOUBLE *ROWCND,
148 DOUBLE *COLCND,
149 DOUBLE *AMAX,
150 INTEGER *INFO);
151
152 //-- dgbequb -------------------------------------------------------------------
153 void
154 LAPACK_DECL(dgbequb)(const INTEGER *M,
155 const INTEGER *N,
156 const INTEGER *KL,
157 const INTEGER *KU,
158 const DOUBLE *AB,
159 const INTEGER *LDAB,
160 DOUBLE *R,
161 DOUBLE *C,
162 DOUBLE *ROWCND,
163 DOUBLE *COLCND,
164 DOUBLE *AMAX,
165 INTEGER *INFO);
166
167 //-- dgbrfs --------------------------------------------------------------------
168 void
169 LAPACK_DECL(dgbrfs)(const char *TRANS,
170 const INTEGER *N,
171 const INTEGER *KL,
172 const INTEGER *KU,
173 const INTEGER *NRHS,
174 const DOUBLE *AB,
175 const INTEGER *LDAB,
176 const DOUBLE *AFB,
177 const INTEGER *LDAFB,
178 const INTEGER *IPIV,
179 const DOUBLE *B,
180 const INTEGER *LDB,
181 DOUBLE *X,
182 const INTEGER *LDX,
183 DOUBLE *FERR,
184 DOUBLE *BERR,
185 const DOUBLE *WORK,
186 const INTEGER *IWORK,
187 INTEGER *INFO);
188
189 //-- dgbsv ---------------------------------------------------------------------
190 void
191 LAPACK_DECL(dgbsv)(const INTEGER *N,
192 const INTEGER *KL,
193 const INTEGER *KU,
194 const INTEGER *NRHS,
195 DOUBLE *AB,
196 const INTEGER *LDAB,
197 INTEGER *IPIV,
198 DOUBLE *B,
199 const INTEGER *LDB,
200 INTEGER *INFO);
201
202 //-- dgbsvx --------------------------------------------------------------------
203 void
204 LAPACK_DECL(dgbsvx)(const char *FACT,
205 const char *TRANS,
206 const INTEGER *N,
207 const INTEGER *KL,
208 const INTEGER *KU,
209 const INTEGER *NRHS,
210 DOUBLE *AB,
211 const INTEGER *LDAB,
212 DOUBLE *AFB,
213 const INTEGER *LDAFB,
214 INTEGER *IPIV,
215 char *EQUED,
216 DOUBLE *R,
217 DOUBLE *C,
218 DOUBLE *B,
219 const INTEGER *LDB,
220 DOUBLE *X,
221 const INTEGER *LDX,
222 DOUBLE *RCOND,
223 DOUBLE *FERR,
224 DOUBLE *BERR,
225 DOUBLE *WORK,
226 const INTEGER *IWORK,
227 INTEGER *INFO);
228
229 //-- dgbtf2 --------------------------------------------------------------------
230 void
231 LAPACK_DECL(dgbtf2)(const INTEGER *M,
232 const INTEGER *N,
233 const INTEGER *KL,
234 const INTEGER *KU,
235 DOUBLE *AB,
236 const INTEGER *LDAB,
237 INTEGER *IPIV,
238 INTEGER *INFO);
239
240 //-- dgbtrf --------------------------------------------------------------------
241 void
242 LAPACK_DECL(dgbtrf)(const INTEGER *M,
243 const INTEGER *N,
244 const INTEGER *KL,
245 const INTEGER *KU,
246 DOUBLE *AB,
247 const INTEGER *LDAB,
248 INTEGER *IPIV,
249 INTEGER *INFO);
250
251 //-- dgbtrs --------------------------------------------------------------------
252 void
253 LAPACK_DECL(dgbtrs)(const char *TRANS,
254 const INTEGER *N,
255 const INTEGER *KL,
256 const INTEGER *KU,
257 const INTEGER *NRHS,
258 const DOUBLE *AB,
259 const INTEGER *LDAB,
260 const INTEGER *IPIV,
261 DOUBLE *B,
262 const INTEGER *LDB,
263 INTEGER *INFO);
264
265 //-- dgebak --------------------------------------------------------------------
266 void
267 LAPACK_DECL(dgebak)(const char *JOB,
268 const char *SIDE,
269 const INTEGER *N,
270 const INTEGER *ILO,
271 const INTEGER *IHI,
272 const DOUBLE *SCALE,
273 const INTEGER *M,
274 DOUBLE *V,
275 const INTEGER *LDV,
276 INTEGER *INFO);
277
278 //-- dgebal --------------------------------------------------------------------
279 void
280 LAPACK_DECL(dgebal)(const char *JOB,
281 const INTEGER *N,
282 DOUBLE *A,
283 const INTEGER *LDA,
284 INTEGER *ILO,
285 INTEGER *IHI,
286 DOUBLE *SCALE,
287 INTEGER *INFO);
288
289 //-- dgebd2 --------------------------------------------------------------------
290 void
291 LAPACK_DECL(dgebd2)(const INTEGER *M,
292 const INTEGER *N,
293 DOUBLE *A,
294 const INTEGER *LDA,
295 DOUBLE *D,
296 DOUBLE *E,
297 DOUBLE *TAUQ,
298 DOUBLE *TAUP,
299 const DOUBLE *WORK,
300 INTEGER *INFO);
301
302 //-- dgebrd --------------------------------------------------------------------
303 void
304 LAPACK_DECL(dgebrd)(const INTEGER *M,
305 const INTEGER *N,
306 DOUBLE *A,
307 const INTEGER *LDA,
308 DOUBLE *D,
309 DOUBLE *E,
310 DOUBLE *TAUQ,
311 DOUBLE *TAUP,
312 DOUBLE *WORK,
313 const INTEGER *LWORK,
314 INTEGER *INFO);
315
316 //-- dgecon --------------------------------------------------------------------
317 void
318 LAPACK_DECL(dgecon)(const char *NORM,
319 const INTEGER *N,
320 const DOUBLE *A,
321 const INTEGER *LDA,
322 const DOUBLE *ANORM,
323 DOUBLE *RCOND,
324 const DOUBLE *WORK,
325 const INTEGER *IWORK,
326 INTEGER *INFO);
327
328 //-- dgeequ --------------------------------------------------------------------
329 void
330 LAPACK_DECL(dgeequ)(const INTEGER *M,
331 const INTEGER *N,
332 const DOUBLE *A,
333 const INTEGER *LDA,
334 DOUBLE *R,
335 DOUBLE *C,
336 DOUBLE *ROWCND,
337 DOUBLE *COLCND,
338 DOUBLE *AMAX,
339 INTEGER *INFO);
340
341 //-- dgeequb -------------------------------------------------------------------
342 void
343 LAPACK_DECL(dgeequb)(const INTEGER *M,
344 const INTEGER *N,
345 const DOUBLE *A,
346 const INTEGER *LDA,
347 DOUBLE *R,
348 DOUBLE *C,
349 DOUBLE *ROWCND,
350 DOUBLE *COLCND,
351 DOUBLE *AMAX,
352 INTEGER *INFO);
353
354 //-- dgees ---------------------------------------------------------------------
355 void
356 LAPACK_DECL(dgees)(const char *JOBVS,
357 const char *SORT,
358 LOGICAL (*SELECT)(const DOUBLE *, const DOUBLE *),
359 const INTEGER *N,
360 DOUBLE *A,
361 const INTEGER *LDA,
362 INTEGER *SDIM,
363 DOUBLE *WR,
364 DOUBLE *WI,
365 DOUBLE *VS,
366 const INTEGER *LDVS,
367 DOUBLE *WORK,
368 const INTEGER *LWORK,
369 LOGICAL *BWORK,
370 INTEGER *INFO);
371
372 //-- dgeesx --------------------------------------------------------------------
373 void
374 LAPACK_DECL(dgeesx)(const char *JOBVS,
375 const char *SORT,
376 LOGICAL (*SELECT)(const DOUBLE *, const DOUBLE *),
377 const char *SENSE,
378 const INTEGER *N,
379 DOUBLE *A,
380 const INTEGER *LDA,
381 INTEGER *SDIM,
382 DOUBLE *WR,
383 DOUBLE *WI,
384 DOUBLE *VS,
385 const INTEGER *LDVS,
386 DOUBLE *RCONDE,
387 DOUBLE *RCONDV,
388 DOUBLE *WORK,
389 const INTEGER *LWORK,
390 INTEGER *IWORK,
391 const INTEGER *LIWORK,
392 LOGICAL *BWORK,
393 INTEGER *INFO);
394
395 //-- dgeev ---------------------------------------------------------------------
396 void
397 LAPACK_DECL(dgeev)(const char *JOBVL,
398 const char *JOBVR,
399 const INTEGER *N,
400 DOUBLE *A,
401 const INTEGER *LDA,
402 DOUBLE *WR,
403 DOUBLE *WI,
404 DOUBLE *VL,
405 const INTEGER *LDVL,
406 DOUBLE *VR,
407 const INTEGER *LDVR,
408 DOUBLE *WORK,
409 const INTEGER *LWORK,
410 INTEGER *INFO);
411
412 //-- dgeevx --------------------------------------------------------------------
413 void
414 LAPACK_DECL(dgeevx)(const char *BALANC,
415 const char *JOBVL,
416 const char *JOBVR,
417 const char *SENSE,
418 const INTEGER *N,
419 DOUBLE *A,
420 const INTEGER *LDA,
421 DOUBLE *WR,
422 DOUBLE *WI,
423 DOUBLE *VL,
424 const INTEGER *LDVL,
425 DOUBLE *VR,
426 const INTEGER *LDVR,
427 INTEGER *ILO,
428 INTEGER *IHI,
429 DOUBLE *SCALE,
430 DOUBLE *ABNRM,
431 DOUBLE *RCONDE,
432 DOUBLE *RCONDV,
433 DOUBLE *WORK,
434 const INTEGER *LWORK,
435 INTEGER *IWORK,
436 INTEGER *INFO);
437
438 //-- dgegs ---------------------------------------------------------------------
439 void
440 LAPACK_DECL(dgegs)(const char *JOBVSL,
441 const char *JOBVSR,
442 const INTEGER *N,
443 DOUBLE *A,
444 const INTEGER *LDA,
445 DOUBLE *B,
446 const INTEGER *LDB,
447 DOUBLE *ALPHAR,
448 DOUBLE *ALPHAI,
449 DOUBLE *BETA,
450 DOUBLE *VSL,
451 const INTEGER *LDVSL,
452 DOUBLE *VSR,
453 const INTEGER *LDVSR,
454 DOUBLE *WORK,
455 const INTEGER *LWORK,
456 INTEGER *INFO);
457
458 //-- dgegv ---------------------------------------------------------------------
459 void
460 LAPACK_DECL(dgegv)(const char *JOBVL,
461 const char *JOBVR,
462 const INTEGER *N,
463 DOUBLE *A,
464 const INTEGER *LDA,
465 DOUBLE *B,
466 const INTEGER *LDB,
467 DOUBLE *ALPHAR,
468 DOUBLE *ALPHAI,
469 DOUBLE *BETA,
470 DOUBLE *VL,
471 const INTEGER *LDVL,
472 DOUBLE *VR,
473 const INTEGER *LDVR,
474 DOUBLE *WORK,
475 const INTEGER *LWORK,
476 INTEGER *INFO);
477
478 //-- dgehd2 --------------------------------------------------------------------
479 void
480 LAPACK_DECL(dgehd2)(const INTEGER *N,
481 const INTEGER *ILO,
482 const INTEGER *IHI,
483 DOUBLE *A,
484 const INTEGER *LDA,
485 DOUBLE *TAU,
486 DOUBLE *WORK,
487 INTEGER *INFO);
488
489 //-- dgehrd --------------------------------------------------------------------
490 void
491 LAPACK_DECL(dgehrd)(const INTEGER *N,
492 const INTEGER *ILO,
493 const INTEGER *IHI,
494 DOUBLE *A,
495 const INTEGER *LDA,
496 DOUBLE *TAU,
497 DOUBLE *WORK,
498 const INTEGER *LWORK,
499 INTEGER *INFO);
500
501 //-- dgejsv --------------------------------------------------------------------
502 void
503 LAPACK_DECL(dgejsv)(const char *JOBA,
504 const char *JOBU,
505 const char *JOBV,
506 const char *JOBR,
507 const char *JOBT,
508 const char *JOBP,
509 const INTEGER *M,
510 const INTEGER *N,
511 const DOUBLE *A,
512 const INTEGER *LDA,
513 DOUBLE *SVA,
514 DOUBLE *U,
515 const INTEGER *LDU,
516 DOUBLE *V,
517 const INTEGER *LDV,
518 DOUBLE *WORK,
519 const INTEGER *LWORK,
520 INTEGER *IWORK,
521 INTEGER *INFO);
522
523 //-- dgelq2 --------------------------------------------------------------------
524 void
525 LAPACK_DECL(dgelq2)(const INTEGER *M,
526 const INTEGER *N,
527 DOUBLE *A,
528 const INTEGER *LDA,
529 DOUBLE *TAU,
530 const DOUBLE *WORK,
531 INTEGER *INFO);
532
533 //-- dgelqf --------------------------------------------------------------------
534 void
535 LAPACK_DECL(dgelqf)(const INTEGER *M,
536 const INTEGER *N,
537 DOUBLE *A,
538 const INTEGER *LDA,
539 DOUBLE *TAU,
540 DOUBLE *WORK,
541 const INTEGER *LWORK,
542 INTEGER *INFO);
543
544 //-- dgels ---------------------------------------------------------------------
545 void
546 LAPACK_DECL(dgels)(const char *TRANS,
547 const INTEGER *M,
548 const INTEGER *N,
549 const INTEGER *NRHS,
550 DOUBLE *A,
551 const INTEGER *LDA,
552 DOUBLE *B,
553 const INTEGER *LDB,
554 DOUBLE *WORK,
555 const INTEGER *LWORK,
556 INTEGER *INFO);
557
558 //-- dgelsd --------------------------------------------------------------------
559 void
560 LAPACK_DECL(dgelsd)(const INTEGER *M,
561 const INTEGER *N,
562 const INTEGER *NRHS,
563 const DOUBLE *A,
564 const INTEGER *LDA,
565 DOUBLE *B,
566 const INTEGER *LDB,
567 DOUBLE *S,
568 const DOUBLE *RCOND,
569 INTEGER *RANK,
570 DOUBLE *WORK,
571 const INTEGER *LWORK,
572 const INTEGER *IWORK,
573 INTEGER *INFO);
574
575 //-- dgelss --------------------------------------------------------------------
576 void
577 LAPACK_DECL(dgelss)(const INTEGER *M,
578 const INTEGER *N,
579 const INTEGER *NRHS,
580 DOUBLE *A,
581 const INTEGER *LDA,
582 DOUBLE *B,
583 const INTEGER *LDB,
584 DOUBLE *S,
585 const DOUBLE *RCOND,
586 INTEGER *RANK,
587 DOUBLE *WORK,
588 const INTEGER *LWORK,
589 INTEGER *INFO);
590
591 //-- dgelsx --------------------------------------------------------------------
592 void
593 LAPACK_DECL(dgelsx)(const INTEGER *M,
594 const INTEGER *N,
595 const INTEGER *NRHS,
596 DOUBLE *A,
597 const INTEGER *LDA,
598 DOUBLE *B,
599 const INTEGER *LDB,
600 INTEGER *JPVT,
601 const DOUBLE *RCOND,
602 INTEGER *RANK,
603 const DOUBLE *WORK,
604 INTEGER *INFO);
605
606 //-- dgelsy --------------------------------------------------------------------
607 void
608 LAPACK_DECL(dgelsy)(const INTEGER *M,
609 const INTEGER *N,
610 const INTEGER *NRHS,
611 DOUBLE *A,
612 const INTEGER *LDA,
613 DOUBLE *B,
614 const INTEGER *LDB,
615 INTEGER *JPVT,
616 const DOUBLE *RCOND,
617 INTEGER *RANK,
618 DOUBLE *WORK,
619 const INTEGER *LWORK,
620 INTEGER *INFO);
621
622 //-- dgeql2 --------------------------------------------------------------------
623 void
624 LAPACK_DECL(dgeql2)(const INTEGER *M,
625 const INTEGER *N,
626 DOUBLE *A,
627 const INTEGER *LDA,
628 DOUBLE *TAU,
629 const DOUBLE *WORK,
630 INTEGER *INFO);
631
632 //-- dgeqlf --------------------------------------------------------------------
633 void
634 LAPACK_DECL(dgeqlf)(const INTEGER *M,
635 const INTEGER *N,
636 DOUBLE *A,
637 const INTEGER *LDA,
638 DOUBLE *TAU,
639 DOUBLE *WORK,
640 const INTEGER *LWORK,
641 INTEGER *INFO);
642
643 //-- dgeqp3 --------------------------------------------------------------------
644 void
645 LAPACK_DECL(dgeqp3)(const INTEGER *M,
646 const INTEGER *N,
647 DOUBLE *A,
648 const INTEGER *LDA,
649 INTEGER *JPVT,
650 DOUBLE *TAU,
651 DOUBLE *WORK,
652 const INTEGER *LWORK,
653 INTEGER *INFO);
654
655 //-- dgeqpf --------------------------------------------------------------------
656 void
657 LAPACK_DECL(dgeqpf)(const INTEGER *M,
658 const INTEGER *N,
659 DOUBLE *A,
660 const INTEGER *LDA,
661 INTEGER *JPVT,
662 DOUBLE *TAU,
663 const DOUBLE *WORK,
664 INTEGER *INFO);
665
666 //-- dgeqr2 --------------------------------------------------------------------
667 void
668 LAPACK_DECL(dgeqr2)(const INTEGER *M,
669 const INTEGER *N,
670 DOUBLE *A,
671 const INTEGER *LDA,
672 DOUBLE *TAU,
673 const DOUBLE *WORK,
674 INTEGER *INFO);
675
676 //-- dgeqr2p -------------------------------------------------------------------
677 void
678 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
679 const INTEGER *N,
680 DOUBLE *A,
681 const INTEGER *LDA,
682 DOUBLE *TAU,
683 const DOUBLE *WORK,
684 INTEGER *INFO);
685
686 //-- dgeqrf --------------------------------------------------------------------
687 void
688 LAPACK_DECL(dgeqrf)(const INTEGER *M,
689 const INTEGER *N,
690 DOUBLE *A,
691 const INTEGER *LDA,
692 DOUBLE *TAU,
693 DOUBLE *WORK,
694 const INTEGER *LWORK,
695 INTEGER *INFO);
696
697 //-- dgeqrfp -------------------------------------------------------------------
698 void
699 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
700 const INTEGER *N,
701 DOUBLE *A,
702 const INTEGER *LDA,
703 DOUBLE *TAU,
704 DOUBLE *WORK,
705 const INTEGER *LWORK,
706 INTEGER *INFO);
707
708 //-- dgerfs --------------------------------------------------------------------
709 void
710 LAPACK_DECL(dgerfs)(const char *TRANS,
711 const INTEGER *N,
712 const INTEGER *NRHS,
713 const DOUBLE *A,
714 const INTEGER *LDA,
715 const DOUBLE *AF,
716 const INTEGER *LDAF,
717 const INTEGER *IPIV,
718 const DOUBLE *B,
719 const INTEGER *LDB,
720 DOUBLE *X,
721 const INTEGER *LDX,
722 DOUBLE *FERR,
723 DOUBLE *BERR,
724 const DOUBLE *WORK,
725 const INTEGER *IWORK,
726 INTEGER *INFO);
727
728 //-- dgerq2 --------------------------------------------------------------------
729 void
730 LAPACK_DECL(dgerq2)(const INTEGER *M,
731 const INTEGER *N,
732 DOUBLE *A,
733 const INTEGER *LDA,
734 DOUBLE *TAU,
735 const DOUBLE *WORK,
736 INTEGER *INFO);
737
738 //-- dgerqf --------------------------------------------------------------------
739 void
740 LAPACK_DECL(dgerqf)(const INTEGER *M,
741 const INTEGER *N,
742 DOUBLE *A,
743 const INTEGER *LDA,
744 DOUBLE *TAU,
745 DOUBLE *WORK,
746 const INTEGER *LWORK,
747 INTEGER *INFO);
748
749 //-- dgesc2 --------------------------------------------------------------------
750 void
751 LAPACK_DECL(dgesc2)(const INTEGER *N,
752 const DOUBLE *A,
753 const INTEGER *LDA,
754 DOUBLE *RHS,
755 const INTEGER *IPIV,
756 const INTEGER *JPIV,
757 DOUBLE *SCALE);
758
759 //-- dgesdd --------------------------------------------------------------------
760 void
761 LAPACK_DECL(dgesdd)(const char *JOBZ,
762 const INTEGER *M,
763 const INTEGER *N,
764 DOUBLE *A,
765 const INTEGER *LDA,
766 DOUBLE *S,
767 DOUBLE *U,
768 const INTEGER *LDU,
769 DOUBLE *VT,
770 const INTEGER *LDVT,
771 DOUBLE *WORK,
772 const INTEGER *LWORK,
773 const INTEGER *IWORK,
774 INTEGER *INFO);
775
776 //-- dgesv ---------------------------------------------------------------------
777 void
778 LAPACK_DECL(dgesv)(const INTEGER *N,
779 const INTEGER *NRHS,
780 DOUBLE *A,
781 const INTEGER *LDA,
782 INTEGER *IPIV,
783 DOUBLE *B,
784 const INTEGER *LDB,
785 INTEGER *INFO);
786
787 //-- dgesvd --------------------------------------------------------------------
788 void
789 LAPACK_DECL(dgesvd)(const char *JOBU,
790 const char *JOBVT,
791 const INTEGER *M,
792 const INTEGER *N,
793 DOUBLE *A,
794 const INTEGER *LDA,
795 DOUBLE *S,
796 DOUBLE *U,
797 const INTEGER *LDU,
798 DOUBLE *VT,
799 const INTEGER *LDVT,
800 DOUBLE *WORK,
801 const INTEGER *LWORK,
802 INTEGER *INFO);
803
804 //-- dgesvj --------------------------------------------------------------------
805 void
806 LAPACK_DECL(dgesvj)(const char *JOBA,
807 const char *JOBU,
808 const char *JOBV,
809 const INTEGER *M,
810 const INTEGER *N,
811 DOUBLE *A,
812 const INTEGER *LDA,
813 DOUBLE *SVA,
814 const INTEGER *MV,
815 DOUBLE *V,
816 const INTEGER *LDV,
817 DOUBLE *WORK,
818 const INTEGER *LWORK,
819 INTEGER *INFO);
820
821 //-- dgesvx --------------------------------------------------------------------
822 void
823 LAPACK_DECL(dgesvx)(const char *FACT,
824 const char *TRANS,
825 const INTEGER *N,
826 const INTEGER *NRHS,
827 DOUBLE *A,
828 const INTEGER *LDA,
829 DOUBLE *AF,
830 const INTEGER *LDAF,
831 INTEGER *IPIV,
832 char *EQUED,
833 DOUBLE *R,
834 DOUBLE *C,
835 DOUBLE *B,
836 const INTEGER *LDB,
837 DOUBLE *X,
838 const INTEGER *LDX,
839 DOUBLE *RCOND,
840 DOUBLE *FERR,
841 DOUBLE *BERR,
842 DOUBLE *WORK,
843 const INTEGER *IWORK,
844 INTEGER *INFO);
845
846 //-- dgetc2 --------------------------------------------------------------------
847 void
848 LAPACK_DECL(dgetc2)(const INTEGER *N,
849 DOUBLE *A,
850 const INTEGER *LDA,
851 INTEGER *IPIV,
852 INTEGER *JPIV,
853 INTEGER *INFO);
854
855 //-- dgetf2 --------------------------------------------------------------------
856 void
857 LAPACK_DECL(dgetf2)(const INTEGER *M,
858 const INTEGER *N,
859 DOUBLE *A,
860 const INTEGER *LDA,
861 INTEGER *IPIV,
862 INTEGER *INFO);
863
864 //-- dgetrf --------------------------------------------------------------------
865 void
866 LAPACK_DECL(dgetrf)(const INTEGER *M,
867 const INTEGER *N,
868 DOUBLE *A,
869 const INTEGER *LDA,
870 INTEGER *IPIV,
871 INTEGER *INFO);
872
873 //-- dgetri --------------------------------------------------------------------
874 void
875 LAPACK_DECL(dgetri)(const INTEGER *N,
876 DOUBLE *A,
877 const INTEGER *LDA,
878 const INTEGER *IPIV,
879 DOUBLE *WORK,
880 const INTEGER *LWORK,
881 INTEGER *INFO);
882
883 //-- dgetrs --------------------------------------------------------------------
884 void
885 LAPACK_DECL(dgetrs)(const char *TRANS,
886 const INTEGER *N,
887 const INTEGER *NRHS,
888 const DOUBLE *A,
889 const INTEGER *LDA,
890 const INTEGER *IPIV,
891 DOUBLE *B,
892 const INTEGER *LDB,
893 INTEGER *INFO);
894
895 //-- dggbak --------------------------------------------------------------------
896 void
897 LAPACK_DECL(dggbak)(const char *JOB,
898 const char *SIDE,
899 const INTEGER *N,
900 const INTEGER *ILO,
901 const INTEGER *IHI,
902 const DOUBLE *LSCALE,
903 const DOUBLE *RSCALE,
904 const INTEGER *M,
905 DOUBLE *V,
906 const INTEGER *LDV,
907 INTEGER *INFO);
908
909 //-- dggbal --------------------------------------------------------------------
910 void
911 LAPACK_DECL(dggbal)(const char *JOB,
912 const INTEGER *N,
913 DOUBLE *A,
914 const INTEGER *LDA,
915 DOUBLE *B,
916 const INTEGER *LDB,
917 INTEGER *ILO,
918 INTEGER *IHI,
919 DOUBLE *LSCALE,
920 DOUBLE *RSCALE,
921 const DOUBLE *WORK,
922 INTEGER *INFO);
923
924 //-- dgges ---------------------------------------------------------------------
925 void
926 LAPACK_DECL(dgges)(const char *JOBVSL,
927 const char *JOBVSR,
928 const char *SORT,
929 const LOGICAL *SELCTG,
930 const INTEGER *N,
931 DOUBLE *A,
932 const INTEGER *LDA,
933 DOUBLE *B,
934 const INTEGER *LDB,
935 INTEGER *SDIM,
936 DOUBLE *ALPHAR,
937 DOUBLE *ALPHAI,
938 DOUBLE *BETA,
939 DOUBLE *VSL,
940 const INTEGER *LDVSL,
941 DOUBLE *VSR,
942 const INTEGER *LDVSR,
943 DOUBLE *WORK,
944 const INTEGER *LWORK,
945 const LOGICAL *BWORK,
946 INTEGER *INFO);
947
948 //-- dggesx --------------------------------------------------------------------
949 void
950 LAPACK_DECL(dggesx)(const char *JOBVSL,
951 const char *JOBVSR,
952 const char *SORT,
953 const LOGICAL *SELCTG,
954 const char *SENSE,
955 const INTEGER *N,
956 DOUBLE *A,
957 const INTEGER *LDA,
958 DOUBLE *B,
959 const INTEGER *LDB,
960 INTEGER *SDIM,
961 DOUBLE *ALPHAR,
962 DOUBLE *ALPHAI,
963 DOUBLE *BETA,
964 DOUBLE *VSL,
965 const INTEGER *LDVSL,
966 DOUBLE *VSR,
967 const INTEGER *LDVSR,
968 DOUBLE *RCONDE,
969 DOUBLE *RCONDV,
970 DOUBLE *WORK,
971 const INTEGER *LWORK,
972 const INTEGER *IWORK,
973 const INTEGER *LIWORK,
974 const LOGICAL *BWORK,
975 INTEGER *INFO);
976
977 //-- dggev ---------------------------------------------------------------------
978 void
979 LAPACK_DECL(dggev)(const char *JOBVL,
980 const char *JOBVR,
981 const INTEGER *N,
982 DOUBLE *A,
983 const INTEGER *LDA,
984 DOUBLE *B,
985 const INTEGER *LDB,
986 DOUBLE *ALPHAR,
987 DOUBLE *ALPHAI,
988 DOUBLE *BETA,
989 DOUBLE *VL,
990 const INTEGER *LDVL,
991 DOUBLE *VR,
992 const INTEGER *LDVR,
993 DOUBLE *WORK,
994 const INTEGER *LWORK,
995 INTEGER *INFO);
996
997 //-- dggevx --------------------------------------------------------------------
998 void
999 LAPACK_DECL(dggevx)(const char *BALANC,
1000 const char *JOBVL,
1001 const char *JOBVR,
1002 const char *SENSE,
1003 const INTEGER *N,
1004 DOUBLE *A,
1005 const INTEGER *LDA,
1006 DOUBLE *B,
1007 const INTEGER *LDB,
1008 DOUBLE *ALPHAR,
1009 DOUBLE *ALPHAI,
1010 DOUBLE *BETA,
1011 DOUBLE *VL,
1012 const INTEGER *LDVL,
1013 DOUBLE *VR,
1014 const INTEGER *LDVR,
1015 INTEGER *ILO,
1016 INTEGER *IHI,
1017 DOUBLE *LSCALE,
1018 DOUBLE *RSCALE,
1019 DOUBLE *ABNRM,
1020 DOUBLE *BBNRM,
1021 DOUBLE *RCONDE,
1022 DOUBLE *RCONDV,
1023 DOUBLE *WORK,
1024 const INTEGER *LWORK,
1025 const INTEGER *IWORK,
1026 const LOGICAL *BWORK,
1027 INTEGER *INFO);
1028
1029 //-- dggglm --------------------------------------------------------------------
1030 void
1031 LAPACK_DECL(dggglm)(const INTEGER *N,
1032 const INTEGER *M,
1033 const INTEGER *P,
1034 DOUBLE *A,
1035 const INTEGER *LDA,
1036 DOUBLE *B,
1037 const INTEGER *LDB,
1038 DOUBLE *D,
1039 DOUBLE *X,
1040 DOUBLE *Y,
1041 DOUBLE *WORK,
1042 const INTEGER *LWORK,
1043 INTEGER *INFO);
1044
1045 //-- dgghrd --------------------------------------------------------------------
1046 void
1047 LAPACK_DECL(dgghrd)(const char *COMPQ,
1048 const char *COMPZ,
1049 const INTEGER *N,
1050 const INTEGER *ILO,
1051 const INTEGER *IHI,
1052 DOUBLE *A,
1053 const INTEGER *LDA,
1054 DOUBLE *B,
1055 const INTEGER *LDB,
1056 DOUBLE *Q,
1057 const INTEGER *LDQ,
1058 DOUBLE *Z,
1059 const INTEGER *LDZ,
1060 INTEGER *INFO);
1061
1062 //-- dgglse --------------------------------------------------------------------
1063 void
1064 LAPACK_DECL(dgglse)(const INTEGER *M,
1065 const INTEGER *N,
1066 const INTEGER *P,
1067 DOUBLE *A,
1068 const INTEGER *LDA,
1069 DOUBLE *B,
1070 const INTEGER *LDB,
1071 DOUBLE *C,
1072 DOUBLE *D,
1073 DOUBLE *X,
1074 DOUBLE *WORK,
1075 const INTEGER *LWORK,
1076 INTEGER *INFO);
1077
1078 //-- dggqrf --------------------------------------------------------------------
1079 void
1080 LAPACK_DECL(dggqrf)(const INTEGER *N,
1081 const INTEGER *M,
1082 const INTEGER *P,
1083 DOUBLE *A,
1084 const INTEGER *LDA,
1085 DOUBLE *TAUA,
1086 DOUBLE *B,
1087 const INTEGER *LDB,
1088 DOUBLE *TAUB,
1089 DOUBLE *WORK,
1090 const INTEGER *LWORK,
1091 INTEGER *INFO);
1092
1093 //-- dggrqf --------------------------------------------------------------------
1094 void
1095 LAPACK_DECL(dggrqf)(const INTEGER *M,
1096 const INTEGER *P,
1097 const INTEGER *N,
1098 DOUBLE *A,
1099 const INTEGER *LDA,
1100 DOUBLE *TAUA,
1101 DOUBLE *B,
1102 const INTEGER *LDB,
1103 DOUBLE *TAUB,
1104 DOUBLE *WORK,
1105 const INTEGER *LWORK,
1106 INTEGER *INFO);
1107
1108 //-- dggsvd --------------------------------------------------------------------
1109 void
1110 LAPACK_DECL(dggsvd)(const char *JOBU,
1111 const char *JOBV,
1112 const char *JOBQ,
1113 const INTEGER *M,
1114 const INTEGER *N,
1115 const INTEGER *P,
1116 INTEGER *K,
1117 INTEGER *L,
1118 DOUBLE *A,
1119 const INTEGER *LDA,
1120 DOUBLE *B,
1121 const INTEGER *LDB,
1122 DOUBLE *ALPHA,
1123 DOUBLE *BETA,
1124 DOUBLE *U,
1125 const INTEGER *LDU,
1126 DOUBLE *V,
1127 const INTEGER *LDV,
1128 DOUBLE *Q,
1129 const INTEGER *LDQ,
1130 const DOUBLE *WORK,
1131 INTEGER *IWORK,
1132 INTEGER *INFO);
1133
1134 //-- dggsvp --------------------------------------------------------------------
1135 void
1136 LAPACK_DECL(dggsvp)(const char *JOBU,
1137 const char *JOBV,
1138 const char *JOBQ,
1139 const INTEGER *M,
1140 const INTEGER *P,
1141 const INTEGER *N,
1142 DOUBLE *A,
1143 const INTEGER *LDA,
1144 DOUBLE *B,
1145 const INTEGER *LDB,
1146 const DOUBLE *TOLA,
1147 const DOUBLE *TOLB,
1148 INTEGER *K,
1149 INTEGER *L,
1150 DOUBLE *U,
1151 const INTEGER *LDU,
1152 DOUBLE *V,
1153 const INTEGER *LDV,
1154 DOUBLE *Q,
1155 const INTEGER *LDQ,
1156 const INTEGER *IWORK,
1157 const DOUBLE *TAU,
1158 const DOUBLE *WORK,
1159 INTEGER *INFO);
1160
1161 //-- dgsvj0 --------------------------------------------------------------------
1162 void
1163 LAPACK_DECL(dgsvj0)(const char *JOBV,
1164 const INTEGER *M,
1165 const INTEGER *N,
1166 DOUBLE *A,
1167 const INTEGER *LDA,
1168 DOUBLE *D,
1169 DOUBLE *SVA,
1170 const INTEGER *MV,
1171 DOUBLE *V,
1172 const INTEGER *LDV,
1173 const DOUBLE *EPS,
1174 const DOUBLE *SFMIN,
1175 const DOUBLE *TOL,
1176 const INTEGER *NSWEEP,
1177 const DOUBLE *WORK,
1178 const INTEGER *LWORK,
1179 INTEGER *INFO);
1180
1181 //-- dgsvj1 --------------------------------------------------------------------
1182 void
1183 LAPACK_DECL(dgsvj1)(const char *JOBV,
1184 const INTEGER *M,
1185 const INTEGER *N,
1186 const INTEGER *N1,
1187 DOUBLE *A,
1188 const INTEGER *LDA,
1189 DOUBLE *D,
1190 DOUBLE *SVA,
1191 const INTEGER *MV,
1192 DOUBLE *V,
1193 const INTEGER *LDV,
1194 const DOUBLE *EPS,
1195 const DOUBLE *SFMIN,
1196 const DOUBLE *TOL,
1197 const INTEGER *NSWEEP,
1198 const DOUBLE *WORK,
1199 const INTEGER *LWORK,
1200 INTEGER *INFO);
1201
1202 //-- dgtcon --------------------------------------------------------------------
1203 void
1204 LAPACK_DECL(dgtcon)(const char *NORM,
1205 const INTEGER *N,
1206 const DOUBLE *DL,
1207 const DOUBLE *D,
1208 const DOUBLE *DU,
1209 const DOUBLE *DU2,
1210 const INTEGER *IPIV,
1211 const DOUBLE *ANORM,
1212 DOUBLE *RCOND,
1213 const DOUBLE *WORK,
1214 const INTEGER *IWORK,
1215 INTEGER *INFO);
1216
1217 //-- dgtrfs --------------------------------------------------------------------
1218 void
1219 LAPACK_DECL(dgtrfs)(const char *TRANS,
1220 const INTEGER *N,
1221 const INTEGER *NRHS,
1222 const DOUBLE *DL,
1223 const DOUBLE *D,
1224 const DOUBLE *DU,
1225 const DOUBLE *DLF,
1226 const DOUBLE *DF,
1227 const DOUBLE *DUF,
1228 const DOUBLE *DU2,
1229 const INTEGER *IPIV,
1230 const DOUBLE *B,
1231 const INTEGER *LDB,
1232 DOUBLE *X,
1233 const INTEGER *LDX,
1234 DOUBLE *FERR,
1235 DOUBLE *BERR,
1236 const DOUBLE *WORK,
1237 const INTEGER *IWORK,
1238 INTEGER *INFO);
1239
1240 //-- dgtsv ---------------------------------------------------------------------
1241 void
1242 LAPACK_DECL(dgtsv)(const INTEGER *N,
1243 const INTEGER *NRHS,
1244 DOUBLE *DL,
1245 DOUBLE *D,
1246 DOUBLE *DU,
1247 DOUBLE *B,
1248 const INTEGER *LDB,
1249 INTEGER *INFO);
1250
1251 //-- dgtsvx --------------------------------------------------------------------
1252 void
1253 LAPACK_DECL(dgtsvx)(const char *FACT,
1254 const char *TRANS,
1255 const INTEGER *N,
1256 const INTEGER *NRHS,
1257 const DOUBLE *DL,
1258 const DOUBLE *D,
1259 const DOUBLE *DU,
1260 DOUBLE *DLF,
1261 DOUBLE *DF,
1262 DOUBLE *DUF,
1263 DOUBLE *DU2,
1264 INTEGER *IPIV,
1265 const DOUBLE *B,
1266 const INTEGER *LDB,
1267 DOUBLE *X,
1268 const INTEGER *LDX,
1269 DOUBLE *RCOND,
1270 DOUBLE *FERR,
1271 DOUBLE *BERR,
1272 const DOUBLE *WORK,
1273 const INTEGER *IWORK,
1274 INTEGER *INFO);
1275
1276 //-- dgttrf --------------------------------------------------------------------
1277 void
1278 LAPACK_DECL(dgttrf)(const INTEGER *N,
1279 DOUBLE *DL,
1280 DOUBLE *D,
1281 DOUBLE *DU,
1282 DOUBLE *DU2,
1283 INTEGER *IPIV,
1284 INTEGER *INFO);
1285
1286 //-- dgttrs --------------------------------------------------------------------
1287 void
1288 LAPACK_DECL(dgttrs)(const char *TRANS,
1289 const INTEGER *N,
1290 const INTEGER *NRHS,
1291 const DOUBLE *DL,
1292 const DOUBLE *D,
1293 const DOUBLE *DU,
1294 const DOUBLE *DU2,
1295 const INTEGER *IPIV,
1296 DOUBLE *B,
1297 const INTEGER *LDB,
1298 INTEGER *INFO);
1299
1300 //-- dgtts2 --------------------------------------------------------------------
1301 void
1302 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
1303 const INTEGER *N,
1304 const INTEGER *NRHS,
1305 const DOUBLE *DL,
1306 const DOUBLE *D,
1307 const DOUBLE *DU,
1308 const DOUBLE *DU2,
1309 const INTEGER *IPIV,
1310 DOUBLE *B,
1311 const INTEGER *LDB);
1312
1313 //-- dhgeqz --------------------------------------------------------------------
1314 void
1315 LAPACK_DECL(dhgeqz)(const char *JOB,
1316 const char *COMPQ,
1317 const char *COMPZ,
1318 const INTEGER *N,
1319 const INTEGER *ILO,
1320 const INTEGER *IHI,
1321 DOUBLE *H,
1322 const INTEGER *LDH,
1323 DOUBLE *T,
1324 const INTEGER *LDT,
1325 DOUBLE *ALPHAR,
1326 DOUBLE *ALPHAI,
1327 DOUBLE *BETA,
1328 DOUBLE *Q,
1329 const INTEGER *LDQ,
1330 DOUBLE *Z,
1331 const INTEGER *LDZ,
1332 DOUBLE *WORK,
1333 const INTEGER *LWORK,
1334 INTEGER *INFO);
1335
1336 //-- dhsein --------------------------------------------------------------------
1337 void
1338 LAPACK_DECL(dhsein)(const char *SIDE,
1339 const char *EIGSRC,
1340 const char *INITV,
1341 LOGICAL *SELECT,
1342 const INTEGER *N,
1343 const DOUBLE *H,
1344 const INTEGER *LDH,
1345 DOUBLE *WR,
1346 const DOUBLE *WI,
1347 DOUBLE *VL,
1348 const INTEGER *LDVL,
1349 DOUBLE *VR,
1350 const INTEGER *LDVR,
1351 const INTEGER *MM,
1352 INTEGER *M,
1353 const DOUBLE *WORK,
1354 INTEGER *IFAILL,
1355 INTEGER *IFAILR,
1356 INTEGER *INFO);
1357
1358 //-- dhseqr --------------------------------------------------------------------
1359 void
1360 LAPACK_DECL(dhseqr)(const char *JOB,
1361 const char *COMPZ,
1362 const INTEGER *N,
1363 const INTEGER *ILO,
1364 const INTEGER *IHI,
1365 DOUBLE *H,
1366 const INTEGER *LDH,
1367 DOUBLE *WR,
1368 DOUBLE *WI,
1369 DOUBLE *Z,
1370 const INTEGER *LDZ,
1371 DOUBLE *WORK,
1372 const INTEGER *LWORK,
1373 INTEGER *INFO);
1374
1375 //-- disnan --------------------------------------------------------------------
1376 LOGICAL
1377 LAPACK_DECL(disnan)(const DOUBLE *DIN);
1378
1379 //-- dla_gbamv -----------------------------------------------------------------
1380 void
1381 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
1382 const INTEGER *M,
1383 const INTEGER *N,
1384 const INTEGER *KL,
1385 const INTEGER *KU,
1386 const DOUBLE *ALPHA,
1387 const DOUBLE *AB,
1388 const INTEGER *LDAB,
1389 const DOUBLE *X,
1390 const INTEGER *INCX,
1391 const DOUBLE *BETA,
1392 DOUBLE *Y,
1393 const INTEGER *INCY);
1394
1395 //-- dla_gbrcond ---------------------------------------------------------------
1396 DOUBLE
1397 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
1398 const INTEGER *N,
1399 const INTEGER *KL,
1400 const INTEGER *KU,
1401 const DOUBLE *AB,
1402 const INTEGER *LDAB,
1403 const DOUBLE *AFB,
1404 const INTEGER *LDAFB,
1405 const INTEGER *IPIV,
1406 const INTEGER *CMODE,
1407 const DOUBLE *C,
1408 INTEGER *INFO,
1409 const DOUBLE *WORK,
1410 const INTEGER *IWORK);
1411
1412 //-- dla_gbrpvgrw --------------------------------------------------------------
1413 DOUBLE
1414 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
1415 const INTEGER *KL,
1416 const INTEGER *KU,
1417 const INTEGER *NCOLS,
1418 const DOUBLE *AB,
1419 const INTEGER *LDAB,
1420 const DOUBLE *AFB,
1421 const INTEGER *LDAFB);
1422
1423 //-- dla_geamv -----------------------------------------------------------------
1424 void
1425 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
1426 const INTEGER *M,
1427 const INTEGER *N,
1428 const DOUBLE *ALPHA,
1429 const DOUBLE *A,
1430 const INTEGER *LDA,
1431 const DOUBLE *X,
1432 const INTEGER *INCX,
1433 const DOUBLE *BETA,
1434 DOUBLE *Y,
1435 const INTEGER *INCY);
1436
1437 //-- dla_gercond ---------------------------------------------------------------
1438 DOUBLE
1439 LAPACK_DECL(dla_gercond)(const char *TRANS,
1440 const INTEGER *N,
1441 const DOUBLE *A,
1442 const INTEGER *LDA,
1443 const DOUBLE *AF,
1444 const INTEGER *LDAF,
1445 const INTEGER *IPIV,
1446 const INTEGER *CMODE,
1447 const DOUBLE *C,
1448 INTEGER *INFO,
1449 const DOUBLE *WORK,
1450 const INTEGER *IWORK);
1451
1452 //-- dla_lin_berr --------------------------------------------------------------
1453 void
1454 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
1455 const INTEGER *NZ,
1456 const INTEGER *NRHS,
1457 const DOUBLE *RES,
1458 const DOUBLE *AYB,
1459 DOUBLE *BERR);
1460
1461 //-- dla_porcond ---------------------------------------------------------------
1462 DOUBLE
1463 LAPACK_DECL(dla_porcond)(const char *UPLO,
1464 const INTEGER *N,
1465 const DOUBLE *A,
1466 const INTEGER *LDA,
1467 const DOUBLE *AF,
1468 const INTEGER *LDAF,
1469 const INTEGER *CMODE,
1470 const DOUBLE *C,
1471 INTEGER *INFO,
1472 const DOUBLE *WORK,
1473 const INTEGER *IWORK);
1474
1475 //-- dla_porpvgrw --------------------------------------------------------------
1476 DOUBLE
1477 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
1478 const INTEGER *NCOLS,
1479 const DOUBLE *A,
1480 const INTEGER *LDA,
1481 const DOUBLE *AF,
1482 const INTEGER *LDAF,
1483 const DOUBLE *WORK);
1484
1485 //-- dla_rpvgrw ----------------------------------------------------------------
1486 DOUBLE
1487 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
1488 const INTEGER *NCOLS,
1489 const DOUBLE *A,
1490 const INTEGER *LDA,
1491 const DOUBLE *AF,
1492 const INTEGER *LDAF);
1493
1494 //-- dla_syamv -----------------------------------------------------------------
1495 void
1496 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
1497 const INTEGER *N,
1498 const DOUBLE *ALPHA,
1499 const DOUBLE *A,
1500 const INTEGER *LDA,
1501 const DOUBLE *X,
1502 const INTEGER *INCX,
1503 const DOUBLE *BETA,
1504 DOUBLE *Y,
1505 const INTEGER *INCY);
1506
1507 //-- dla_syrcond ---------------------------------------------------------------
1508 DOUBLE
1509 LAPACK_DECL(dla_syrcond)(const char *UPLO,
1510 const INTEGER *N,
1511 const DOUBLE *A,
1512 const INTEGER *LDA,
1513 const DOUBLE *AF,
1514 const INTEGER *LDAF,
1515 const INTEGER *IPIV,
1516 const INTEGER *CMODE,
1517 const DOUBLE *C,
1518 INTEGER *INFO,
1519 const DOUBLE *WORK,
1520 const INTEGER *IWORK);
1521
1522 //-- dla_syrpvgrw --------------------------------------------------------------
1523 DOUBLE
1524 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
1525 const INTEGER *N,
1526 const INTEGER *INFO,
1527 const DOUBLE *A,
1528 const INTEGER *LDA,
1529 const DOUBLE *AF,
1530 const INTEGER *LDAF,
1531 const INTEGER *IPIV,
1532 const DOUBLE *WORK);
1533
1534 //-- dla_wwaddw ----------------------------------------------------------------
1535 void
1536 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
1537 DOUBLE *X,
1538 DOUBLE *Y,
1539 const DOUBLE *W);
1540
1541 //-- dlabad --------------------------------------------------------------------
1542 void
1543 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
1544 DOUBLE *LARGE);
1545
1546 //-- dlabrd --------------------------------------------------------------------
1547 void
1548 LAPACK_DECL(dlabrd)(const INTEGER *M,
1549 const INTEGER *N,
1550 const INTEGER *NB,
1551 DOUBLE *A,
1552 const INTEGER *LDA,
1553 DOUBLE *D,
1554 DOUBLE *E,
1555 DOUBLE *TAUQ,
1556 DOUBLE *TAUP,
1557 DOUBLE *X,
1558 const INTEGER *LDX,
1559 DOUBLE *Y,
1560 const INTEGER *LDY);
1561
1562 //-- dlacn2 --------------------------------------------------------------------
1563 void
1564 LAPACK_DECL(dlacn2)(const INTEGER *N,
1565 const DOUBLE *V,
1566 DOUBLE *X,
1567 const INTEGER *ISGN,
1568 DOUBLE *EST,
1569 INTEGER *KASE,
1570 INTEGER *ISAVE);
1571
1572 //-- dlacon --------------------------------------------------------------------
1573 void
1574 LAPACK_DECL(dlacon)(const INTEGER *N,
1575 const DOUBLE *V,
1576 DOUBLE *X,
1577 const INTEGER *ISGN,
1578 DOUBLE *EST,
1579 INTEGER *KASE);
1580
1581 //-- dlacpy --------------------------------------------------------------------
1582 void
1583 LAPACK_DECL(dlacpy)(const char *UPLO,
1584 const INTEGER *M,
1585 const INTEGER *N,
1586 const DOUBLE *A,
1587 const INTEGER *LDA,
1588 DOUBLE *B,
1589 const INTEGER *LDB);
1590
1591 //-- dladiv --------------------------------------------------------------------
1592 void
1593 LAPACK_DECL(dladiv)(const DOUBLE *A,
1594 const DOUBLE *B,
1595 const DOUBLE *C,
1596 const DOUBLE *D,
1597 DOUBLE *P,
1598 DOUBLE *Q);
1599
1600 //-- dlae2 ---------------------------------------------------------------------
1601 void
1602 LAPACK_DECL(dlae2)(const DOUBLE *A,
1603 const DOUBLE *B,
1604 const DOUBLE *C,
1605 DOUBLE *RT1,
1606 DOUBLE *RT2);
1607
1608 //-- dlaebz --------------------------------------------------------------------
1609 void
1610 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
1611 const INTEGER *NITMAX,
1612 const INTEGER *N,
1613 const INTEGER *MMAX,
1614 const INTEGER *MINP,
1615 const INTEGER *NBMIN,
1616 const DOUBLE *ABSTOL,
1617 const DOUBLE *RELTOL,
1618 const DOUBLE *PIVMIN,
1619 const DOUBLE *D,
1620 const DOUBLE *E,
1621 const DOUBLE *E2,
1622 INTEGER *NVAL,
1623 DOUBLE *AB,
1624 DOUBLE *C,
1625 INTEGER *MOUT,
1626 INTEGER *NAB,
1627 const DOUBLE *WORK,
1628 const INTEGER *IWORK,
1629 INTEGER *INFO);
1630
1631 //-- dlaed0 --------------------------------------------------------------------
1632 void
1633 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
1634 const INTEGER *QSIZ,
1635 const INTEGER *N,
1636 DOUBLE *D,
1637 const DOUBLE *E,
1638 DOUBLE *Q,
1639 const INTEGER *LDQ,
1640 const DOUBLE *QSTORE,
1641 const INTEGER *LDQS,
1642 const DOUBLE *WORK,
1643 const INTEGER *IWORK,
1644 INTEGER *INFO);
1645
1646 //-- dlaed1 --------------------------------------------------------------------
1647 void
1648 LAPACK_DECL(dlaed1)(const INTEGER *N,
1649 DOUBLE *D,
1650 DOUBLE *Q,
1651 const INTEGER *LDQ,
1652 INTEGER *INDXQ,
1653 const DOUBLE *RHO,
1654 const INTEGER *CUTPNT,
1655 const DOUBLE *WORK,
1656 const INTEGER *IWORK,
1657 INTEGER *INFO);
1658
1659 //-- dlaed2 --------------------------------------------------------------------
1660 void
1661 LAPACK_DECL(dlaed2)(INTEGER *K,
1662 const INTEGER *N,
1663 const INTEGER *N1,
1664 DOUBLE *D,
1665 DOUBLE *Q,
1666 const INTEGER *LDQ,
1667 INTEGER *INDXQ,
1668 DOUBLE *RHO,
1669 const DOUBLE *Z,
1670 DOUBLE *DLAMDA,
1671 DOUBLE *W,
1672 DOUBLE *Q2,
1673 const INTEGER *INDX,
1674 INTEGER *INDXC,
1675 const INTEGER *INDXP,
1676 INTEGER *COLTYP,
1677 INTEGER *INFO);
1678
1679 //-- dlaed3 --------------------------------------------------------------------
1680 void
1681 LAPACK_DECL(dlaed3)(const INTEGER *K,
1682 const INTEGER *N,
1683 const INTEGER *N1,
1684 DOUBLE *D,
1685 DOUBLE *Q,
1686 const INTEGER *LDQ,
1687 const DOUBLE *RHO,
1688 DOUBLE *DLAMDA,
1689 const DOUBLE *Q2,
1690 const INTEGER *INDX,
1691 const INTEGER *CTOT,
1692 DOUBLE *W,
1693 const DOUBLE *S,
1694 INTEGER *INFO);
1695
1696 //-- dlaed4 --------------------------------------------------------------------
1697 void
1698 LAPACK_DECL(dlaed4)(const INTEGER *N,
1699 const INTEGER *I,
1700 const DOUBLE *D,
1701 const DOUBLE *Z,
1702 DOUBLE *DELTA,
1703 const DOUBLE *RHO,
1704 DOUBLE *DLAM,
1705 INTEGER *INFO);
1706
1707 //-- dlaed5 --------------------------------------------------------------------
1708 void
1709 LAPACK_DECL(dlaed5)(const INTEGER *I,
1710 const DOUBLE *D,
1711 const DOUBLE *Z,
1712 DOUBLE *DELTA,
1713 const DOUBLE *RHO,
1714 DOUBLE *DLAM);
1715
1716 //-- dlaed6 --------------------------------------------------------------------
1717 void
1718 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
1719 const LOGICAL *ORGATI,
1720 const DOUBLE *RHO,
1721 const DOUBLE *D,
1722 const DOUBLE *Z,
1723 const DOUBLE *FINIT,
1724 DOUBLE *TAU,
1725 INTEGER *INFO);
1726
1727 //-- dlaed7 --------------------------------------------------------------------
1728 void
1729 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
1730 const INTEGER *N,
1731 const INTEGER *QSIZ,
1732 const INTEGER *TLVLS,
1733 const INTEGER *CURLVL,
1734 const INTEGER *CURPBM,
1735 DOUBLE *D,
1736 DOUBLE *Q,
1737 const INTEGER *LDQ,
1738 INTEGER *INDXQ,
1739 const DOUBLE *RHO,
1740 const INTEGER *CUTPNT,
1741 DOUBLE *QSTORE,
1742 INTEGER *QPTR,
1743 const INTEGER *PRMPTR,
1744 const INTEGER *PERM,
1745 const INTEGER *GIVPTR,
1746 const INTEGER *GIVCOL,
1747 const DOUBLE *GIVNUM,
1748 const DOUBLE *WORK,
1749 const INTEGER *IWORK,
1750 INTEGER *INFO);
1751
1752 //-- dlaed8 --------------------------------------------------------------------
1753 void
1754 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
1755 INTEGER *K,
1756 const INTEGER *N,
1757 const INTEGER *QSIZ,
1758 DOUBLE *D,
1759 DOUBLE *Q,
1760 const INTEGER *LDQ,
1761 const INTEGER *INDXQ,
1762 DOUBLE *RHO,
1763 const INTEGER *CUTPNT,
1764 const DOUBLE *Z,
1765 DOUBLE *DLAMDA,
1766 DOUBLE *Q2,
1767 const INTEGER *LDQ2,
1768 DOUBLE *W,
1769 INTEGER *PERM,
1770 INTEGER *GIVPTR,
1771 INTEGER *GIVCOL,
1772 DOUBLE *GIVNUM,
1773 const INTEGER *INDXP,
1774 const INTEGER *INDX,
1775 INTEGER *INFO);
1776
1777 //-- dlaed9 --------------------------------------------------------------------
1778 void
1779 LAPACK_DECL(dlaed9)(const INTEGER *K,
1780 const INTEGER *KSTART,
1781 const INTEGER *KSTOP,
1782 const INTEGER *N,
1783 DOUBLE *D,
1784 const DOUBLE *Q,
1785 const INTEGER *LDQ,
1786 const DOUBLE *RHO,
1787 const DOUBLE *DLAMDA,
1788 const DOUBLE *W,
1789 DOUBLE *S,
1790 const INTEGER *LDS,
1791 INTEGER *INFO);
1792
1793 //-- dlaeda --------------------------------------------------------------------
1794 void
1795 LAPACK_DECL(dlaeda)(const INTEGER *N,
1796 const INTEGER *TLVLS,
1797 const INTEGER *CURLVL,
1798 const INTEGER *CURPBM,
1799 const INTEGER *PRMPTR,
1800 const INTEGER *PERM,
1801 const INTEGER *GIVPTR,
1802 const INTEGER *GIVCOL,
1803 const DOUBLE *GIVNUM,
1804 const DOUBLE *Q,
1805 const INTEGER *QPTR,
1806 DOUBLE *Z,
1807 const DOUBLE *ZTEMP,
1808 INTEGER *INFO);
1809
1810 //-- dlaein --------------------------------------------------------------------
1811 void
1812 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
1813 const LOGICAL *NOINIT,
1814 const INTEGER *N,
1815 const DOUBLE *H,
1816 const INTEGER *LDH,
1817 const DOUBLE *WR,
1818 const DOUBLE *WI,
1819 DOUBLE *VR,
1820 DOUBLE *VI,
1821 const DOUBLE *B,
1822 const INTEGER *LDB,
1823 const DOUBLE *WORK,
1824 const DOUBLE *EPS3,
1825 const DOUBLE *SMLNUM,
1826 const DOUBLE *BIGNUM,
1827 INTEGER *INFO);
1828
1829 //-- dlaev2 --------------------------------------------------------------------
1830 void
1831 LAPACK_DECL(dlaev2)(const DOUBLE *A,
1832 const DOUBLE *B,
1833 const DOUBLE *C,
1834 DOUBLE *RT1,
1835 DOUBLE *RT2,
1836 DOUBLE *CS1,
1837 DOUBLE *SN1);
1838
1839 //-- dlaexc --------------------------------------------------------------------
1840 void
1841 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
1842 const INTEGER *N,
1843 DOUBLE *T,
1844 const INTEGER *LDT,
1845 DOUBLE *Q,
1846 const INTEGER *LDQ,
1847 const INTEGER *J1,
1848 const INTEGER *N1,
1849 const INTEGER *N2,
1850 const DOUBLE *WORK,
1851 INTEGER *INFO);
1852
1853 //-- dlag2 ---------------------------------------------------------------------
1854 void
1855 LAPACK_DECL(dlag2)(const DOUBLE *A,
1856 const INTEGER *LDA,
1857 const DOUBLE *B,
1858 const INTEGER *LDB,
1859 const DOUBLE *SAFMIN,
1860 DOUBLE *SCALE1,
1861 DOUBLE *SCALE2,
1862 DOUBLE *WR1,
1863 DOUBLE *WR2,
1864 DOUBLE *WI);
1865
1866 //-- dlag2s --------------------------------------------------------------------
1867 void
1868 LAPACK_DECL(dlag2s)(const INTEGER *M,
1869 const INTEGER *N,
1870 const DOUBLE *A,
1871 const INTEGER *LDA,
1872 FLOAT *SA,
1873 const INTEGER *LDSA,
1874 INTEGER *INFO);
1875
1876 //-- dlags2 --------------------------------------------------------------------
1877 void
1878 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
1879 const DOUBLE *A1,
1880 const DOUBLE *A2,
1881 const DOUBLE *A3,
1882 const DOUBLE *B1,
1883 const DOUBLE *B2,
1884 const DOUBLE *B3,
1885 DOUBLE *CSU,
1886 DOUBLE *SNU,
1887 DOUBLE *CSV,
1888 DOUBLE *SNV,
1889 DOUBLE *CSQ,
1890 DOUBLE *SNQ);
1891
1892 //-- dlagtf --------------------------------------------------------------------
1893 void
1894 LAPACK_DECL(dlagtf)(const INTEGER *N,
1895 DOUBLE *A,
1896 const DOUBLE *LAMBDA,
1897 DOUBLE *B,
1898 DOUBLE *C,
1899 const DOUBLE *TOL,
1900 DOUBLE *D,
1901 INTEGER *IN,
1902 INTEGER *INFO);
1903
1904 //-- dlagtm --------------------------------------------------------------------
1905 void
1906 LAPACK_DECL(dlagtm)(const char *TRANS,
1907 const INTEGER *N,
1908 const INTEGER *NRHS,
1909 const DOUBLE *ALPHA,
1910 const DOUBLE *DL,
1911 const DOUBLE *D,
1912 const DOUBLE *DU,
1913 const DOUBLE *X,
1914 const INTEGER *LDX,
1915 const DOUBLE *BETA,
1916 DOUBLE *B,
1917 const INTEGER *LDB);
1918
1919 //-- dlagts --------------------------------------------------------------------
1920 void
1921 LAPACK_DECL(dlagts)(const INTEGER *JOB,
1922 const INTEGER *N,
1923 const DOUBLE *A,
1924 const DOUBLE *B,
1925 const DOUBLE *C,
1926 const DOUBLE *D,
1927 const INTEGER *IN,
1928 DOUBLE *Y,
1929 DOUBLE *TOL,
1930 INTEGER *INFO);
1931
1932 //-- dlagv2 --------------------------------------------------------------------
1933 void
1934 LAPACK_DECL(dlagv2)(DOUBLE *A,
1935 const INTEGER *LDA,
1936 DOUBLE *B,
1937 const INTEGER *LDB,
1938 DOUBLE *ALPHAR,
1939 DOUBLE *ALPHAI,
1940 DOUBLE *BETA,
1941 DOUBLE *CSL,
1942 DOUBLE *SNL,
1943 DOUBLE *CSR,
1944 DOUBLE *SNR);
1945
1946 //-- dlahqr --------------------------------------------------------------------
1947 void
1948 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
1949 const LOGICAL *WANTZ,
1950 const INTEGER *N,
1951 const INTEGER *ILO,
1952 const INTEGER *IHI,
1953 DOUBLE *H,
1954 const INTEGER *LDH,
1955 DOUBLE *WR,
1956 DOUBLE *WI,
1957 const INTEGER *ILOZ,
1958 const INTEGER *IHIZ,
1959 DOUBLE *Z,
1960 const INTEGER *LDZ,
1961 INTEGER *INFO);
1962
1963 //-- dlahr2 --------------------------------------------------------------------
1964 void
1965 LAPACK_DECL(dlahr2)(const INTEGER *N,
1966 const INTEGER *K,
1967 const INTEGER *NB,
1968 DOUBLE *A,
1969 const INTEGER *LDA,
1970 DOUBLE *TAU,
1971 DOUBLE *T,
1972 const INTEGER *LDT,
1973 DOUBLE *Y,
1974 const INTEGER *LDY);
1975
1976 //-- dlahrd --------------------------------------------------------------------
1977 void
1978 LAPACK_DECL(dlahrd)(const INTEGER *N,
1979 const INTEGER *K,
1980 const INTEGER *NB,
1981 DOUBLE *A,
1982 const INTEGER *LDA,
1983 DOUBLE *TAU,
1984 DOUBLE *T,
1985 const INTEGER *LDT,
1986 DOUBLE *Y,
1987 const INTEGER *LDY);
1988
1989 //-- dlaic1 --------------------------------------------------------------------
1990 void
1991 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
1992 const INTEGER *J,
1993 const DOUBLE *X,
1994 const DOUBLE *SEST,
1995 const DOUBLE *W,
1996 const DOUBLE *GAMMA,
1997 DOUBLE *SESTPR,
1998 DOUBLE *S,
1999 DOUBLE *C);
2000
2001 //-- dlaisnan ------------------------------------------------------------------
2002 LOGICAL
2003 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
2004 const DOUBLE *DIN2);
2005
2006 //-- dlaln2 --------------------------------------------------------------------
2007 void
2008 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
2009 const INTEGER *NA,
2010 const INTEGER *NW,
2011 const DOUBLE *SMIN,
2012 const DOUBLE *CA,
2013 const DOUBLE *A,
2014 const INTEGER *LDA,
2015 const DOUBLE *D1,
2016 const DOUBLE *D2,
2017 const DOUBLE *B,
2018 const INTEGER *LDB,
2019 const DOUBLE *WR,
2020 const DOUBLE *WI,
2021 DOUBLE *X,
2022 const INTEGER *LDX,
2023 DOUBLE *SCALE,
2024 DOUBLE *XNORM,
2025 INTEGER *INFO);
2026
2027 //-- dlals0 --------------------------------------------------------------------
2028 void
2029 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
2030 const INTEGER *NL,
2031 const INTEGER *NR,
2032 const INTEGER *SQRE,
2033 const INTEGER *NRHS,
2034 DOUBLE *B,
2035 const INTEGER *LDB,
2036 const DOUBLE *BX,
2037 const INTEGER *LDBX,
2038 const INTEGER *PERM,
2039 const INTEGER *GIVPTR,
2040 const INTEGER *GIVCOL,
2041 const INTEGER *LDGCOL,
2042 const DOUBLE *GIVNUM,
2043 const INTEGER *LDGNUM,
2044 const DOUBLE *POLES,
2045 const DOUBLE *DIFL,
2046 const DOUBLE *DIFR,
2047 const DOUBLE *Z,
2048 const INTEGER *K,
2049 const DOUBLE *C,
2050 const DOUBLE *S,
2051 const DOUBLE *WORK,
2052 INTEGER *INFO);
2053
2054 //-- dlalsa --------------------------------------------------------------------
2055 void
2056 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
2057 const INTEGER *SMLSIZ,
2058 const INTEGER *N,
2059 const INTEGER *NRHS,
2060 DOUBLE *B,
2061 const INTEGER *LDB,
2062 DOUBLE *BX,
2063 const INTEGER *LDBX,
2064 const DOUBLE *U,
2065 const INTEGER *LDU,
2066 const DOUBLE *VT,
2067 const INTEGER *K,
2068 const DOUBLE *DIFL,
2069 const DOUBLE *DIFR,
2070 const DOUBLE *Z,
2071 const DOUBLE *POLES,
2072 const INTEGER *GIVPTR,
2073 const INTEGER *GIVCOL,
2074 const INTEGER *LDGCOL,
2075 const INTEGER *PERM,
2076 const DOUBLE *GIVNUM,
2077 const DOUBLE *C,
2078 const DOUBLE *S,
2079 const DOUBLE *WORK,
2080 const INTEGER *IWORK,
2081 INTEGER *INFO);
2082
2083 //-- dlalsd --------------------------------------------------------------------
2084 void
2085 LAPACK_DECL(dlalsd)(const char *UPLO,
2086 const INTEGER *SMLSIZ,
2087 const INTEGER *N,
2088 const INTEGER *NRHS,
2089 DOUBLE *D,
2090 DOUBLE *E,
2091 DOUBLE *B,
2092 const INTEGER *LDB,
2093 const DOUBLE *RCOND,
2094 INTEGER *RANK,
2095 const DOUBLE *WORK,
2096 const INTEGER *IWORK,
2097 INTEGER *INFO);
2098
2099 //-- dlamch --------------------------------------------------------------------
2100 DOUBLE
2101 LAPACK_DECL(dlamch)(const char *CMACH);
2102
2103 //-- dlamrg --------------------------------------------------------------------
2104 void
2105 LAPACK_DECL(dlamrg)(const INTEGER *N1,
2106 const INTEGER *N2,
2107 const DOUBLE *A,
2108 const INTEGER *DTRD1,
2109 const INTEGER *DTRD2,
2110 INTEGER *INDEX);
2111
2112 //-- dlaneg --------------------------------------------------------------------
2113 INTEGER
2114 LAPACK_DECL(dlaneg)(const INTEGER *N,
2115 const DOUBLE *D,
2116 const DOUBLE *LLD,
2117 const DOUBLE *SIGMA,
2118 const DOUBLE *PIVMIN,
2119 const INTEGER *R);
2120
2121 //-- dlangb --------------------------------------------------------------------
2122 DOUBLE
2123 LAPACK_DECL(dlangb)(const char *NORM,
2124 const INTEGER *N,
2125 const INTEGER *KL,
2126 const INTEGER *KU,
2127 const DOUBLE *AB,
2128 const INTEGER *LDAB,
2129 const DOUBLE *WORK);
2130
2131 //-- dlange --------------------------------------------------------------------
2132 DOUBLE
2133 LAPACK_DECL(dlange)(const char *NORM,
2134 const INTEGER *M,
2135 const INTEGER *N,
2136 const DOUBLE *A,
2137 const INTEGER *LDA,
2138 const DOUBLE *WORK);
2139
2140 //-- dlangt --------------------------------------------------------------------
2141 DOUBLE
2142 LAPACK_DECL(dlangt)(const char *NORM,
2143 const INTEGER *N,
2144 const DOUBLE *DL,
2145 const DOUBLE *D,
2146 const DOUBLE *DU);
2147
2148 //-- dlanhs --------------------------------------------------------------------
2149 DOUBLE
2150 LAPACK_DECL(dlanhs)(const char *NORM,
2151 const INTEGER *N,
2152 const DOUBLE *A,
2153 const INTEGER *LDA,
2154 const DOUBLE *WORK);
2155
2156 //-- dlansb --------------------------------------------------------------------
2157 DOUBLE
2158 LAPACK_DECL(dlansb)(const char *NORM,
2159 const char *UPLO,
2160 const INTEGER *N,
2161 const INTEGER *K,
2162 const DOUBLE *AB,
2163 const INTEGER *LDAB,
2164 const DOUBLE *WORK);
2165
2166 //-- dlansf --------------------------------------------------------------------
2167 DOUBLE
2168 LAPACK_DECL(dlansf)(const char *NORM,
2169 const char *TRANSR,
2170 const char *UPLO,
2171 const INTEGER *N,
2172 const DOUBLE *A,
2173 const DOUBLE *WORK);
2174
2175 //-- dlansp --------------------------------------------------------------------
2176 DOUBLE
2177 LAPACK_DECL(dlansp)(const char *NORM,
2178 const char *UPLO,
2179 const INTEGER *N,
2180 const DOUBLE *AP,
2181 const DOUBLE *WORK);
2182
2183 //-- dlanst --------------------------------------------------------------------
2184 DOUBLE
2185 LAPACK_DECL(dlanst)(const char *NORM,
2186 const INTEGER *N,
2187 const DOUBLE *D,
2188 const DOUBLE *E);
2189
2190 //-- dlansy --------------------------------------------------------------------
2191 DOUBLE
2192 LAPACK_DECL(dlansy)(const char *NORM,
2193 const char *UPLO,
2194 const INTEGER *N,
2195 const DOUBLE *A,
2196 const INTEGER *LDA,
2197 const DOUBLE *WORK);
2198
2199 //-- dlantb --------------------------------------------------------------------
2200 DOUBLE
2201 LAPACK_DECL(dlantb)(const char *NORM,
2202 const char *UPLO,
2203 const char *DIAG,
2204 const INTEGER *N,
2205 const INTEGER *K,
2206 const DOUBLE *AB,
2207 const INTEGER *LDAB,
2208 const DOUBLE *WORK);
2209
2210 //-- dlantp --------------------------------------------------------------------
2211 DOUBLE
2212 LAPACK_DECL(dlantp)(const char *NORM,
2213 const char *UPLO,
2214 const char *DIAG,
2215 const INTEGER *N,
2216 const DOUBLE *AP,
2217 const DOUBLE *WORK);
2218
2219 //-- dlantr --------------------------------------------------------------------
2220 DOUBLE
2221 LAPACK_DECL(dlantr)(const char *NORM,
2222 const char *UPLO,
2223 const char *DIAG,
2224 const INTEGER *M,
2225 const INTEGER *N,
2226 const DOUBLE *A,
2227 const INTEGER *LDA,
2228 const DOUBLE *WORK);
2229
2230 //-- dlanv2 --------------------------------------------------------------------
2231 void
2232 LAPACK_DECL(dlanv2)(DOUBLE *A,
2233 DOUBLE *B,
2234 DOUBLE *C,
2235 DOUBLE *D,
2236 DOUBLE *RT1R,
2237 DOUBLE *RT1I,
2238 DOUBLE *RT2R,
2239 DOUBLE *RT2I,
2240 DOUBLE *CS,
2241 DOUBLE *SN);
2242
2243 //-- dlapll --------------------------------------------------------------------
2244 void
2245 LAPACK_DECL(dlapll)(const INTEGER *N,
2246 DOUBLE *X,
2247 const INTEGER *INCX,
2248 DOUBLE *Y,
2249 const INTEGER *INCY,
2250 DOUBLE *SSMIN);
2251
2252 //-- dlapmr --------------------------------------------------------------------
2253 void
2254 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
2255 const INTEGER *M,
2256 const INTEGER *N,
2257 DOUBLE *X,
2258 const INTEGER *LDX,
2259 INTEGER *K);
2260
2261 //-- dlapmt --------------------------------------------------------------------
2262 void
2263 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
2264 const INTEGER *M,
2265 const INTEGER *N,
2266 DOUBLE *X,
2267 const INTEGER *LDX,
2268 INTEGER *K);
2269
2270 //-- dlapy2 --------------------------------------------------------------------
2271 DOUBLE
2272 LAPACK_DECL(dlapy2)(const DOUBLE *X,
2273 const DOUBLE *Y);
2274
2275 //-- dlapy3 --------------------------------------------------------------------
2276 DOUBLE
2277 LAPACK_DECL(dlapy3)(const DOUBLE *X,
2278 const DOUBLE *Y,
2279 const DOUBLE *Z);
2280
2281 //-- dlaqgb --------------------------------------------------------------------
2282 void
2283 LAPACK_DECL(dlaqgb)(const INTEGER *M,
2284 const INTEGER *N,
2285 const INTEGER *KL,
2286 const INTEGER *KU,
2287 DOUBLE *AB,
2288 const INTEGER *LDAB,
2289 const DOUBLE *R,
2290 const DOUBLE *C,
2291 const DOUBLE *ROWCND,
2292 const DOUBLE *COLCND,
2293 const DOUBLE *AMAX,
2294 char *EQUED);
2295
2296 //-- dlaqge --------------------------------------------------------------------
2297 void
2298 LAPACK_DECL(dlaqge)(const INTEGER *M,
2299 const INTEGER *N,
2300 DOUBLE *A,
2301 const INTEGER *LDA,
2302 const DOUBLE *R,
2303 const DOUBLE *C,
2304 const DOUBLE *ROWCND,
2305 const DOUBLE *COLCND,
2306 const DOUBLE *AMAX,
2307 char *EQUED);
2308
2309 //-- dlaqp2 --------------------------------------------------------------------
2310 void
2311 LAPACK_DECL(dlaqp2)(const INTEGER *M,
2312 const INTEGER *N,
2313 const INTEGER *OFFSET,
2314 DOUBLE *A,
2315 const INTEGER *LDA,
2316 INTEGER *JPVT,
2317 DOUBLE *TAU,
2318 DOUBLE *VN1,
2319 DOUBLE *VN2,
2320 const DOUBLE *WORK);
2321
2322 //-- dlaqps --------------------------------------------------------------------
2323 void
2324 LAPACK_DECL(dlaqps)(const INTEGER *M,
2325 const INTEGER *N,
2326 const INTEGER *OFFSET,
2327 const INTEGER *NB,
2328 INTEGER *KB,
2329 DOUBLE *A,
2330 const INTEGER *LDA,
2331 INTEGER *JPVT,
2332 DOUBLE *TAU,
2333 DOUBLE *VN1,
2334 DOUBLE *VN2,
2335 DOUBLE *AUXV,
2336 DOUBLE *F,
2337 const INTEGER *LDF);
2338
2339 //-- dlaqr0 --------------------------------------------------------------------
2340 void
2341 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
2342 const LOGICAL *WANTZ,
2343 const INTEGER *N,
2344 const INTEGER *ILO,
2345 const INTEGER *IHI,
2346 DOUBLE *H,
2347 const INTEGER *LDH,
2348 DOUBLE *WR,
2349 DOUBLE *WI,
2350 const INTEGER *ILOZ,
2351 const INTEGER *IHIZ,
2352 DOUBLE *Z,
2353 const INTEGER *LDZ,
2354 DOUBLE *WORK,
2355 const INTEGER *LWORK,
2356 INTEGER *INFO);
2357
2358 //-- dlaqr1 --------------------------------------------------------------------
2359 void
2360 LAPACK_DECL(dlaqr1)(const INTEGER *N,
2361 const DOUBLE *H,
2362 const INTEGER *LDH,
2363 const DOUBLE *SR1,
2364 const DOUBLE *SI1,
2365 const DOUBLE *SR2,
2366 const DOUBLE *SI2,
2367 DOUBLE *V);
2368
2369 //-- dlaqr2 --------------------------------------------------------------------
2370 void
2371 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
2372 const LOGICAL *WANTZ,
2373 const INTEGER *N,
2374 const INTEGER *KTOP,
2375 const INTEGER *KBOT,
2376 const INTEGER *NW,
2377 DOUBLE *H,
2378 const INTEGER *LDH,
2379 const INTEGER *ILOZ,
2380 const INTEGER *IHIZ,
2381 DOUBLE *Z,
2382 const INTEGER *LDZ,
2383 INTEGER *NS,
2384 INTEGER *ND,
2385 DOUBLE *SR,
2386 DOUBLE *SI,
2387 const DOUBLE *V,
2388 const INTEGER *LDV,
2389 const INTEGER *NH,
2390 const DOUBLE *T,
2391 const INTEGER *LDT,
2392 const INTEGER *NV,
2393 const DOUBLE *WV,
2394 const INTEGER *LDWV,
2395 const DOUBLE *WORK,
2396 const INTEGER *LWORK);
2397
2398 //-- dlaqr3 --------------------------------------------------------------------
2399 void
2400 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
2401 const LOGICAL *WANTZ,
2402 const INTEGER *N,
2403 const INTEGER *KTOP,
2404 const INTEGER *KBOT,
2405 const INTEGER *NW,
2406 DOUBLE *H,
2407 const INTEGER *LDH,
2408 const INTEGER *ILOZ,
2409 const INTEGER *IHIZ,
2410 DOUBLE *Z,
2411 const INTEGER *LDZ,
2412 INTEGER *NS,
2413 INTEGER *ND,
2414 DOUBLE *SR,
2415 DOUBLE *SI,
2416 const DOUBLE *V,
2417 const INTEGER *LDV,
2418 const INTEGER *NH,
2419 const DOUBLE *T,
2420 const INTEGER *LDT,
2421 const INTEGER *NV,
2422 const DOUBLE *WV,
2423 const INTEGER *LDWV,
2424 const DOUBLE *WORK,
2425 const INTEGER *LWORK);
2426
2427 //-- dlaqr4 --------------------------------------------------------------------
2428 void
2429 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
2430 const LOGICAL *WANTZ,
2431 const INTEGER *N,
2432 const INTEGER *ILO,
2433 const INTEGER *IHI,
2434 DOUBLE *H,
2435 const INTEGER *LDH,
2436 DOUBLE *WR,
2437 DOUBLE *WI,
2438 const INTEGER *ILOZ,
2439 const INTEGER *IHIZ,
2440 DOUBLE *Z,
2441 const INTEGER *LDZ,
2442 DOUBLE *WORK,
2443 const INTEGER *LWORK,
2444 INTEGER *INFO);
2445
2446 //-- dlaqr5 --------------------------------------------------------------------
2447 void
2448 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
2449 const LOGICAL *WANTZ,
2450 const INTEGER *KACC22,
2451 const INTEGER *N,
2452 const INTEGER *KTOP,
2453 const INTEGER *KBOT,
2454 const INTEGER *NSHFTS,
2455 DOUBLE *SR,
2456 DOUBLE *SI,
2457 DOUBLE *H,
2458 const INTEGER *LDH,
2459 const INTEGER *ILOZ,
2460 const INTEGER *IHIZ,
2461 DOUBLE *Z,
2462 const INTEGER *LDZ,
2463 const DOUBLE *V,
2464 const INTEGER *LDV,
2465 const DOUBLE *U,
2466 const INTEGER *LDU,
2467 const INTEGER *NV,
2468 const DOUBLE *WV,
2469 const INTEGER *LDWV,
2470 const INTEGER *NH,
2471 const DOUBLE *WH,
2472 const INTEGER *LDWH);
2473
2474 //-- dlaqsb --------------------------------------------------------------------
2475 void
2476 LAPACK_DECL(dlaqsb)(const char *UPLO,
2477 const INTEGER *N,
2478 const INTEGER *KD,
2479 DOUBLE *AB,
2480 const INTEGER *LDAB,
2481 const DOUBLE *S,
2482 const DOUBLE *SCOND,
2483 const DOUBLE *AMAX,
2484 char *EQUED);
2485
2486 //-- dlaqsp --------------------------------------------------------------------
2487 void
2488 LAPACK_DECL(dlaqsp)(const char *UPLO,
2489 const INTEGER *N,
2490 DOUBLE *AP,
2491 const DOUBLE *S,
2492 const DOUBLE *SCOND,
2493 const DOUBLE *AMAX,
2494 char *EQUED);
2495
2496 //-- dlaqsy --------------------------------------------------------------------
2497 void
2498 LAPACK_DECL(dlaqsy)(const char *UPLO,
2499 const INTEGER *N,
2500 DOUBLE *A,
2501 const INTEGER *LDA,
2502 const DOUBLE *S,
2503 const DOUBLE *SCOND,
2504 const DOUBLE *AMAX,
2505 char *EQUED);
2506
2507 //-- dlaqtr --------------------------------------------------------------------
2508 void
2509 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
2510 const LOGICAL *LREAL,
2511 const INTEGER *N,
2512 const DOUBLE *T,
2513 const INTEGER *LDT,
2514 const DOUBLE *B,
2515 const DOUBLE *W,
2516 DOUBLE *SCALE,
2517 DOUBLE *X,
2518 const DOUBLE *WORK,
2519 INTEGER *INFO);
2520
2521 //-- dlar1v --------------------------------------------------------------------
2522 void
2523 LAPACK_DECL(dlar1v)(const INTEGER *N,
2524 const INTEGER *B1,
2525 const INTEGER *BN,
2526 const DOUBLE *LAMBDA,
2527 const DOUBLE *D,
2528 const DOUBLE *L,
2529 const DOUBLE *LD,
2530 const DOUBLE *LLD,
2531 const DOUBLE *PIVMIN,
2532 const DOUBLE *GAPTOL,
2533 DOUBLE *Z,
2534 const LOGICAL *WANTNC,
2535 INTEGER *NEGCNT,
2536 DOUBLE *ZTZ,
2537 DOUBLE *MINGMA,
2538 INTEGER *R,
2539 INTEGER *ISUPPZ,
2540 DOUBLE *NRMINV,
2541 DOUBLE *RESID,
2542 DOUBLE *RQCORR,
2543 const DOUBLE *WORK);
2544
2545 //-- dlar2v --------------------------------------------------------------------
2546 void
2547 LAPACK_DECL(dlar2v)(const INTEGER *N,
2548 DOUBLE *X,
2549 DOUBLE *Y,
2550 DOUBLE *Z,
2551 const INTEGER *INCX,
2552 const DOUBLE *C,
2553 const DOUBLE *S,
2554 const INTEGER *INCC);
2555
2556 //-- dlarf ---------------------------------------------------------------------
2557 void
2558 LAPACK_DECL(dlarf)(const char *SIDE,
2559 const INTEGER *M,
2560 const INTEGER *N,
2561 const DOUBLE *V,
2562 const INTEGER *INCV,
2563 const DOUBLE *TAU,
2564 DOUBLE *C,
2565 const INTEGER *LDC,
2566 const DOUBLE *WORK);
2567
2568 //-- dlarfb --------------------------------------------------------------------
2569 void
2570 LAPACK_DECL(dlarfb)(const char *SIDE,
2571 const char *TRANS,
2572 const char *DIRECT,
2573 const char *STOREV,
2574 const INTEGER *M,
2575 const INTEGER *N,
2576 const INTEGER *K,
2577 const DOUBLE *V,
2578 const INTEGER *LDV,
2579 const DOUBLE *T,
2580 const INTEGER *LDT,
2581 DOUBLE *C,
2582 const INTEGER *LDC,
2583 const DOUBLE *WORK,
2584 const INTEGER *LDWORK);
2585
2586 //-- dlarfg --------------------------------------------------------------------
2587 void
2588 LAPACK_DECL(dlarfg)(const INTEGER *N,
2589 DOUBLE *ALPHA,
2590 DOUBLE *X,
2591 const INTEGER *INCX,
2592 DOUBLE *TAU);
2593
2594 //-- dlarfgp -------------------------------------------------------------------
2595 void
2596 LAPACK_DECL(dlarfgp)(const INTEGER *N,
2597 DOUBLE *ALPHA,
2598 DOUBLE *X,
2599 const INTEGER *INCX,
2600 DOUBLE *TAU);
2601
2602 //-- dlarft --------------------------------------------------------------------
2603 void
2604 LAPACK_DECL(dlarft)(const char *DIRECT,
2605 const char *STOREV,
2606 const INTEGER *N,
2607 const INTEGER *K,
2608 DOUBLE *V,
2609 const INTEGER *LDV,
2610 const DOUBLE *TAU,
2611 DOUBLE *T,
2612 const INTEGER *LDT);
2613
2614 //-- dlarfx --------------------------------------------------------------------
2615 void
2616 LAPACK_DECL(dlarfx)(const char *SIDE,
2617 const INTEGER *M,
2618 const INTEGER *N,
2619 const DOUBLE *V,
2620 const DOUBLE *TAU,
2621 DOUBLE *C,
2622 const INTEGER *LDC,
2623 const DOUBLE *WORK);
2624
2625 //-- dlargv --------------------------------------------------------------------
2626 void
2627 LAPACK_DECL(dlargv)(const INTEGER *N,
2628 DOUBLE *X,
2629 const INTEGER *INCX,
2630 DOUBLE *Y,
2631 const INTEGER *INCY,
2632 DOUBLE *C,
2633 const INTEGER *INCC);
2634
2635 //-- dlarnv --------------------------------------------------------------------
2636 void
2637 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
2638 INTEGER *ISEED,
2639 const INTEGER *N,
2640 DOUBLE *X);
2641
2642 //-- dlarra --------------------------------------------------------------------
2643 void
2644 LAPACK_DECL(dlarra)(const INTEGER *N,
2645 const DOUBLE *D,
2646 DOUBLE *E,
2647 DOUBLE *E2,
2648 const DOUBLE *SPLTOL,
2649 const DOUBLE *TNRM,
2650 INTEGER *NSPLIT,
2651 INTEGER *ISPLIT,
2652 INTEGER *INFO);
2653
2654 //-- dlarrb --------------------------------------------------------------------
2655 void
2656 LAPACK_DECL(dlarrb)(const INTEGER *N,
2657 const DOUBLE *D,
2658 const DOUBLE *LLD,
2659 const INTEGER *IFIRST,
2660 const INTEGER *ILAST,
2661 const DOUBLE *RTOL1,
2662 const DOUBLE *RTOL2,
2663 const INTEGER *OFFSET,
2664 DOUBLE *W,
2665 DOUBLE *WGAP,
2666 DOUBLE *WERR,
2667 const DOUBLE *WORK,
2668 const INTEGER *IWORK,
2669 const DOUBLE *PIVMIN,
2670 const DOUBLE *SPDIAM,
2671 const INTEGER *TWIST,
2672 INTEGER *INFO);
2673
2674 //-- dlarrc --------------------------------------------------------------------
2675 void
2676 LAPACK_DECL(dlarrc)(const char *JOBT,
2677 const INTEGER *N,
2678 const DOUBLE *VL,
2679 const DOUBLE *VU,
2680 const DOUBLE *D,
2681 const DOUBLE *E,
2682 const DOUBLE *PIVMIN,
2683 INTEGER *EIGCNT,
2684 INTEGER *LCNT,
2685 INTEGER *RCNT,
2686 INTEGER *INFO);
2687
2688 //-- dlarrd --------------------------------------------------------------------
2689 void
2690 LAPACK_DECL(dlarrd)(const char *RANGE,
2691 const char *ORDER,
2692 const INTEGER *N,
2693 const DOUBLE *VL,
2694 const DOUBLE *VU,
2695 const INTEGER *IL,
2696 const INTEGER *IU,
2697 const DOUBLE *GERS,
2698 const DOUBLE *RELTOL,
2699 const DOUBLE *D,
2700 const DOUBLE *E,
2701 const DOUBLE *E2,
2702 const DOUBLE *PIVMIN,
2703 const INTEGER *NSPLIT,
2704 const INTEGER *ISPLIT,
2705 INTEGER *M,
2706 DOUBLE *W,
2707 DOUBLE *WERR,
2708 DOUBLE *WL,
2709 DOUBLE *WU,
2710 INTEGER *IBLOCK,
2711 INTEGER *INDEXW,
2712 const DOUBLE *WORK,
2713 const INTEGER *IWORK,
2714 INTEGER *INFO);
2715
2716 //-- dlarre --------------------------------------------------------------------
2717 void
2718 LAPACK_DECL(dlarre)(const char *RANGE,
2719 const INTEGER *N,
2720 DOUBLE *VL,
2721 DOUBLE *VU,
2722 const INTEGER *IL,
2723 const INTEGER *IU,
2724 DOUBLE *D,
2725 DOUBLE *E,
2726 DOUBLE *E2,
2727 const DOUBLE *RTOL1,
2728 const DOUBLE *RTOL2,
2729 const DOUBLE *SPLTOL,
2730 INTEGER *NSPLIT,
2731 INTEGER *ISPLIT,
2732 INTEGER *M,
2733 DOUBLE *W,
2734 DOUBLE *WERR,
2735 DOUBLE *WGAP,
2736 INTEGER *IBLOCK,
2737 INTEGER *INDEXW,
2738 DOUBLE *GERS,
2739 DOUBLE *PIVMIN,
2740 const DOUBLE *WORK,
2741 const INTEGER *IWORK,
2742 INTEGER *INFO);
2743
2744 //-- dlarrf --------------------------------------------------------------------
2745 void
2746 LAPACK_DECL(dlarrf)(const INTEGER *N,
2747 const DOUBLE *D,
2748 const DOUBLE *L,
2749 const DOUBLE *LD,
2750 const INTEGER *CLSTRT,
2751 const INTEGER *CLEND,
2752 const DOUBLE *W,
2753 DOUBLE *WGAP,
2754 const DOUBLE *WERR,
2755 const DOUBLE *SPDIAM,
2756 const DOUBLE *CLGAPL,
2757 const DOUBLE *CLGAPR,
2758 const DOUBLE *PIVMIN,
2759 DOUBLE *SIGMA,
2760 DOUBLE *DPLUS,
2761 DOUBLE *LPLUS,
2762 const DOUBLE *WORK,
2763 INTEGER *INFO);
2764
2765 //-- dlarrj --------------------------------------------------------------------
2766 void
2767 LAPACK_DECL(dlarrj)(const INTEGER *N,
2768 const DOUBLE *D,
2769 const DOUBLE *E2,
2770 const INTEGER *IFIRST,
2771 const INTEGER *ILAST,
2772 const DOUBLE *RTOL,
2773 const INTEGER *OFFSET,
2774 DOUBLE *W,
2775 DOUBLE *WERR,
2776 const DOUBLE *WORK,
2777 const INTEGER *IWORK,
2778 const DOUBLE *PIVMIN,
2779 const DOUBLE *SPDIAM,
2780 INTEGER *INFO);
2781
2782 //-- dlarrk --------------------------------------------------------------------
2783 void
2784 LAPACK_DECL(dlarrk)(const INTEGER *N,
2785 const INTEGER *IW,
2786 const DOUBLE *GL,
2787 const DOUBLE *GU,
2788 const DOUBLE *D,
2789 const DOUBLE *E2,
2790 const DOUBLE *PIVMIN,
2791 const DOUBLE *RELTOL,
2792 DOUBLE *W,
2793 DOUBLE *WERR,
2794 INTEGER *INFO);
2795
2796 //-- dlarrr --------------------------------------------------------------------
2797 void
2798 LAPACK_DECL(dlarrr)(const INTEGER *N,
2799 const DOUBLE *D,
2800 DOUBLE *E,
2801 INTEGER *INFO);
2802
2803 //-- dlarrv --------------------------------------------------------------------
2804 void
2805 LAPACK_DECL(dlarrv)(const INTEGER *N,
2806 const DOUBLE *VL,
2807 const DOUBLE *VU,
2808 DOUBLE *D,
2809 DOUBLE *L,
2810 const DOUBLE *PIVMIN,
2811 const INTEGER *ISPLIT,
2812 const INTEGER *M,
2813 const INTEGER *DOL,
2814 const INTEGER *DOU,
2815 const DOUBLE *MINRGP,
2816 const DOUBLE *RTOL1,
2817 const DOUBLE *RTOL2,
2818 DOUBLE *W,
2819 DOUBLE *WERR,
2820 DOUBLE *WGAP,
2821 const INTEGER *IBLOCK,
2822 const INTEGER *INDEXW,
2823 const DOUBLE *GERS,
2824 DOUBLE *Z,
2825 const INTEGER *LDZ,
2826 INTEGER *ISUPPZ,
2827 const DOUBLE *WORK,
2828 const INTEGER *IWORK,
2829 INTEGER *INFO);
2830
2831 //-- dlarscl2 ------------------------------------------------------------------
2832 void
2833 LAPACK_DECL(dlarscl2)(const INTEGER *M,
2834 const INTEGER *N,
2835 const DOUBLE *D,
2836 DOUBLE *X,
2837 const INTEGER *LDX);
2838
2839 //-- dlartg --------------------------------------------------------------------
2840 void
2841 LAPACK_DECL(dlartg)(const DOUBLE *F,
2842 const DOUBLE *G,
2843 DOUBLE *CS,
2844 DOUBLE *SN,
2845 DOUBLE *R);
2846
2847 //-- dlartgp -------------------------------------------------------------------
2848 void
2849 LAPACK_DECL(dlartgp)(const DOUBLE *F,
2850 const DOUBLE *G,
2851 DOUBLE *CS,
2852 DOUBLE *SN,
2853 DOUBLE *R);
2854
2855 //-- dlartgs -------------------------------------------------------------------
2856 void
2857 LAPACK_DECL(dlartgs)(const DOUBLE *X,
2858 const DOUBLE *Y,
2859 const DOUBLE *SIGMA,
2860 DOUBLE *CS,
2861 DOUBLE *SN);
2862
2863 //-- dlartv --------------------------------------------------------------------
2864 void
2865 LAPACK_DECL(dlartv)(const INTEGER *N,
2866 DOUBLE *X,
2867 const INTEGER *INCX,
2868 DOUBLE *Y,
2869 const INTEGER *INCY,
2870 const DOUBLE *C,
2871 const DOUBLE *S,
2872 const INTEGER *INCC);
2873
2874 //-- dlaruv --------------------------------------------------------------------
2875 void
2876 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
2877 const INTEGER *N,
2878 DOUBLE *X);
2879
2880 //-- dlarz ---------------------------------------------------------------------
2881 void
2882 LAPACK_DECL(dlarz)(const char *SIDE,
2883 const INTEGER *M,
2884 const INTEGER *N,
2885 const INTEGER *L,
2886 const DOUBLE *V,
2887 const INTEGER *INCV,
2888 const DOUBLE *TAU,
2889 DOUBLE *C,
2890 const INTEGER *LDC,
2891 const DOUBLE *WORK);
2892
2893 //-- dlarzb --------------------------------------------------------------------
2894 void
2895 LAPACK_DECL(dlarzb)(const char *SIDE,
2896 const char *TRANS,
2897 const char *DIRECT,
2898 const char *STOREV,
2899 const INTEGER *M,
2900 const INTEGER *N,
2901 const INTEGER *K,
2902 const INTEGER *L,
2903 const DOUBLE *V,
2904 const INTEGER *LDV,
2905 const DOUBLE *T,
2906 const INTEGER *LDT,
2907 DOUBLE *C,
2908 const INTEGER *LDC,
2909 const DOUBLE *WORK,
2910 const INTEGER *LDWORK);
2911
2912 //-- dlarzt --------------------------------------------------------------------
2913 void
2914 LAPACK_DECL(dlarzt)(const char *DIRECT,
2915 const char *STOREV,
2916 const INTEGER *N,
2917 const INTEGER *K,
2918 DOUBLE *V,
2919 const INTEGER *LDV,
2920 const DOUBLE *TAU,
2921 DOUBLE *T,
2922 const INTEGER *LDT);
2923
2924 //-- dlas2 ---------------------------------------------------------------------
2925 void
2926 LAPACK_DECL(dlas2)(const DOUBLE *F,
2927 const DOUBLE *G,
2928 const DOUBLE *H,
2929 DOUBLE *SSMIN,
2930 DOUBLE *SSMAX);
2931
2932 //-- dlascl --------------------------------------------------------------------
2933 void
2934 LAPACK_DECL(dlascl)(const char *TYPE,
2935 const INTEGER *KL,
2936 const INTEGER *KU,
2937 const DOUBLE *CFROM,
2938 const DOUBLE *CTO,
2939 const INTEGER *M,
2940 const INTEGER *N,
2941 DOUBLE *A,
2942 const INTEGER *LDA,
2943 INTEGER *INFO);
2944
2945 //-- dlascl2 -------------------------------------------------------------------
2946 void
2947 LAPACK_DECL(dlascl2)(const INTEGER *M,
2948 const INTEGER *N,
2949 const DOUBLE *D,
2950 DOUBLE *X,
2951 const INTEGER *LDX);
2952
2953 //-- dlasd0 --------------------------------------------------------------------
2954 void
2955 LAPACK_DECL(dlasd0)(const INTEGER *N,
2956 const INTEGER *SQRE,
2957 DOUBLE *D,
2958 const DOUBLE *E,
2959 DOUBLE *U,
2960 const INTEGER *LDU,
2961 DOUBLE *VT,
2962 const INTEGER *LDVT,
2963 const INTEGER *SMLSIZ,
2964 const INTEGER *IWORK,
2965 const DOUBLE *WORK,
2966 INTEGER *INFO);
2967
2968 //-- dlasd1 --------------------------------------------------------------------
2969 void
2970 LAPACK_DECL(dlasd1)(const INTEGER *NL,
2971 const INTEGER *NR,
2972 const INTEGER *SQRE,
2973 DOUBLE *D,
2974 DOUBLE *ALPHA,
2975 DOUBLE *BETA,
2976 DOUBLE *U,
2977 const INTEGER *LDU,
2978 DOUBLE *VT,
2979 const INTEGER *LDVT,
2980 INTEGER *IDXQ,
2981 const INTEGER *IWORK,
2982 const DOUBLE *WORK,
2983 INTEGER *INFO);
2984
2985 //-- dlasd2 --------------------------------------------------------------------
2986 void
2987 LAPACK_DECL(dlasd2)(const INTEGER *NL,
2988 const INTEGER *NR,
2989 const INTEGER *SQRE,
2990 INTEGER *K,
2991 DOUBLE *D,
2992 DOUBLE *Z,
2993 const DOUBLE *ALPHA,
2994 const DOUBLE *BETA,
2995 DOUBLE *U,
2996 const INTEGER *LDU,
2997 DOUBLE *VT,
2998 const INTEGER *LDVT,
2999 DOUBLE *DSIGMA,
3000 DOUBLE *U2,
3001 const INTEGER *LDU2,
3002 DOUBLE *VT2,
3003 const INTEGER *LDVT2,
3004 const INTEGER *IDXP,
3005 const INTEGER *IDX,
3006 INTEGER *IDXC,
3007 INTEGER *IDXQ,
3008 INTEGER *COLTYP,
3009 INTEGER *INFO);
3010
3011 //-- dlasd3 --------------------------------------------------------------------
3012 void
3013 LAPACK_DECL(dlasd3)(const INTEGER *NL,
3014 const INTEGER *NR,
3015 const INTEGER *SQRE,
3016 const INTEGER *K,
3017 DOUBLE *D,
3018 const DOUBLE *Q,
3019 const INTEGER *LDQ,
3020 const DOUBLE *DSIGMA,
3021 DOUBLE *U,
3022 const INTEGER *LDU,
3023 DOUBLE *U2,
3024 const INTEGER *LDU2,
3025 DOUBLE *VT,
3026 const INTEGER *LDVT,
3027 DOUBLE *VT2,
3028 const INTEGER *LDVT2,
3029 const INTEGER *IDXC,
3030 const INTEGER *CTOT,
3031 const DOUBLE *Z,
3032 INTEGER *INFO);
3033
3034 //-- dlasd4 --------------------------------------------------------------------
3035 void
3036 LAPACK_DECL(dlasd4)(const INTEGER *N,
3037 const INTEGER *I,
3038 const DOUBLE *D,
3039 const DOUBLE *Z,
3040 DOUBLE *DELTA,
3041 const DOUBLE *RHO,
3042 DOUBLE *SIGMA,
3043 const DOUBLE *WORK,
3044 INTEGER *INFO);
3045
3046 //-- dlasd5 --------------------------------------------------------------------
3047 void
3048 LAPACK_DECL(dlasd5)(const INTEGER *I,
3049 const DOUBLE *D,
3050 const DOUBLE *Z,
3051 DOUBLE *DELTA,
3052 const DOUBLE *RHO,
3053 DOUBLE *DSIGMA,
3054 const DOUBLE *WORK);
3055
3056 //-- dlasd6 --------------------------------------------------------------------
3057 void
3058 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
3059 const INTEGER *NL,
3060 const INTEGER *NR,
3061 const INTEGER *SQRE,
3062 DOUBLE *D,
3063 DOUBLE *VF,
3064 DOUBLE *VL,
3065 DOUBLE *ALPHA,
3066 DOUBLE *BETA,
3067 INTEGER *IDXQ,
3068 INTEGER *PERM,
3069 INTEGER *GIVPTR,
3070 INTEGER *GIVCOL,
3071 const INTEGER *LDGCOL,
3072 DOUBLE *GIVNUM,
3073 const INTEGER *LDGNUM,
3074 DOUBLE *POLES,
3075 DOUBLE *DIFL,
3076 DOUBLE *DIFR,
3077 DOUBLE *Z,
3078 INTEGER *K,
3079 DOUBLE *C,
3080 DOUBLE *S,
3081 const DOUBLE *WORK,
3082 const INTEGER *IWORK,
3083 INTEGER *INFO);
3084
3085 //-- dlasd7 --------------------------------------------------------------------
3086 void
3087 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
3088 const INTEGER *NL,
3089 const INTEGER *NR,
3090 const INTEGER *SQRE,
3091 INTEGER *K,
3092 DOUBLE *D,
3093 DOUBLE *Z,
3094 const DOUBLE *ZW,
3095 DOUBLE *VF,
3096 const DOUBLE *VFW,
3097 DOUBLE *VL,
3098 const DOUBLE *VLW,
3099 const DOUBLE *ALPHA,
3100 const DOUBLE *BETA,
3101 DOUBLE *DSIGMA,
3102 const INTEGER *IDX,
3103 const INTEGER *IDXP,
3104 const INTEGER *IDXQ,
3105 INTEGER *PERM,
3106 INTEGER *GIVPTR,
3107 INTEGER *GIVCOL,
3108 const INTEGER *LDGCOL,
3109 DOUBLE *GIVNUM,
3110 const INTEGER *LDGNUM,
3111 DOUBLE *C,
3112 DOUBLE *S,
3113 INTEGER *INFO);
3114
3115 //-- dlasd8 --------------------------------------------------------------------
3116 void
3117 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
3118 const INTEGER *K,
3119 DOUBLE *D,
3120 DOUBLE *Z,
3121 DOUBLE *VF,
3122 DOUBLE *VL,
3123 DOUBLE *DIFL,
3124 DOUBLE *DIFR,
3125 const INTEGER *LDDIFR,
3126 DOUBLE *DSIGMA,
3127 const DOUBLE *WORK,
3128 INTEGER *INFO);
3129
3130 //-- dlasda --------------------------------------------------------------------
3131 void
3132 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
3133 const INTEGER *SMLSIZ,
3134 const INTEGER *N,
3135 const INTEGER *SQRE,
3136 DOUBLE *D,
3137 const DOUBLE *E,
3138 DOUBLE *U,
3139 const INTEGER *LDU,
3140 DOUBLE *VT,
3141 INTEGER *K,
3142 DOUBLE *DIFL,
3143 DOUBLE *DIFR,
3144 DOUBLE *Z,
3145 DOUBLE *POLES,
3146 INTEGER *GIVPTR,
3147 INTEGER *GIVCOL,
3148 const INTEGER *LDGCOL,
3149 INTEGER *PERM,
3150 DOUBLE *GIVNUM,
3151 DOUBLE *C,
3152 DOUBLE *S,
3153 const DOUBLE *WORK,
3154 const INTEGER *IWORK,
3155 INTEGER *INFO);
3156
3157 //-- dlasdq --------------------------------------------------------------------
3158 void
3159 LAPACK_DECL(dlasdq)(const char *UPLO,
3160 const INTEGER *SQRE,
3161 const INTEGER *N,
3162 const INTEGER *NCVT,
3163 const INTEGER *NRU,
3164 const INTEGER *NCC,
3165 DOUBLE *D,
3166 DOUBLE *E,
3167 DOUBLE *VT,
3168 const INTEGER *LDVT,
3169 DOUBLE *U,
3170 const INTEGER *LDU,
3171 DOUBLE *C,
3172 const INTEGER *LDC,
3173 const DOUBLE *WORK,
3174 INTEGER *INFO);
3175
3176 //-- dlasdt --------------------------------------------------------------------
3177 void
3178 LAPACK_DECL(dlasdt)(const INTEGER *N,
3179 INTEGER *LVL,
3180 INTEGER *ND,
3181 INTEGER *INODE,
3182 INTEGER *NDIML,
3183 INTEGER *NDIMR,
3184 const INTEGER *MSUB);
3185
3186 //-- dlaset --------------------------------------------------------------------
3187 void
3188 LAPACK_DECL(dlaset)(const char *UPLO,
3189 const INTEGER *M,
3190 const INTEGER *N,
3191 const DOUBLE *ALPHA,
3192 const DOUBLE *BETA,
3193 DOUBLE *A,
3194 const INTEGER *LDA);
3195
3196 //-- dlasq1 --------------------------------------------------------------------
3197 void
3198 LAPACK_DECL(dlasq1)(const INTEGER *N,
3199 DOUBLE *D,
3200 DOUBLE *E,
3201 const DOUBLE *WORK,
3202 INTEGER *INFO);
3203
3204 //-- dlasq2 --------------------------------------------------------------------
3205 void
3206 LAPACK_DECL(dlasq2)(const INTEGER *N,
3207 DOUBLE *Z,
3208 INTEGER *INFO);
3209
3210 //-- dlasq3 --------------------------------------------------------------------
3211 void
3212 LAPACK_DECL(dlasq3)(const INTEGER *I0,
3213 INTEGER *N0,
3214 const DOUBLE *Z,
3215 INTEGER *PP,
3216 DOUBLE *DMIN,
3217 DOUBLE *SIGMA,
3218 DOUBLE *DESIG,
3219 const DOUBLE *QMAX,
3220 INTEGER *NFAIL,
3221 INTEGER *ITER,
3222 INTEGER *NDIV,
3223 const LOGICAL *IEEE,
3224 INTEGER *TTYPE,
3225 DOUBLE *DMIN1,
3226 DOUBLE *DMIN2,
3227 DOUBLE *DN,
3228 DOUBLE *DN1,
3229 DOUBLE *DN2,
3230 DOUBLE *G,
3231 DOUBLE *TAU);
3232
3233 //-- dlasq4 --------------------------------------------------------------------
3234 void
3235 LAPACK_DECL(dlasq4)(const INTEGER *I0,
3236 const INTEGER *N0,
3237 const DOUBLE *Z,
3238 const INTEGER *PP,
3239 const INTEGER *N0IN,
3240 const DOUBLE *DMIN,
3241 const DOUBLE *DMIN1,
3242 const DOUBLE *DMIN2,
3243 const DOUBLE *DN,
3244 const DOUBLE *DN1,
3245 const DOUBLE *DN2,
3246 DOUBLE *TAU,
3247 INTEGER *TTYPE,
3248 DOUBLE *G);
3249
3250 //-- dlasq5 --------------------------------------------------------------------
3251 void
3252 LAPACK_DECL(dlasq5)(const INTEGER *I0,
3253 const INTEGER *N0,
3254 const DOUBLE *Z,
3255 const INTEGER *PP,
3256 const DOUBLE *TAU,
3257 DOUBLE *DMIN,
3258 DOUBLE *DMIN1,
3259 DOUBLE *DMIN2,
3260 DOUBLE *DN,
3261 DOUBLE *DNM1,
3262 DOUBLE *DNM2,
3263 const LOGICAL *IEEE);
3264
3265 //-- dlasq6 --------------------------------------------------------------------
3266 void
3267 LAPACK_DECL(dlasq6)(const INTEGER *I0,
3268 const INTEGER *N0,
3269 const DOUBLE *Z,
3270 const INTEGER *PP,
3271 DOUBLE *DMIN,
3272 DOUBLE *DMIN1,
3273 DOUBLE *DMIN2,
3274 DOUBLE *DN,
3275 DOUBLE *DNM1,
3276 DOUBLE *DNM2);
3277
3278 //-- dlasr ---------------------------------------------------------------------
3279 void
3280 LAPACK_DECL(dlasr)(const char *SIDE,
3281 const char *PIVOT,
3282 const char *DIRECT,
3283 const INTEGER *M,
3284 const INTEGER *N,
3285 const DOUBLE *C,
3286 const DOUBLE *S,
3287 DOUBLE *A,
3288 const INTEGER *LDA);
3289
3290 //-- dlasrt --------------------------------------------------------------------
3291 void
3292 LAPACK_DECL(dlasrt)(const char *ID,
3293 const INTEGER *N,
3294 DOUBLE *D,
3295 INTEGER *INFO);
3296
3297 //-- dlassq --------------------------------------------------------------------
3298 void
3299 LAPACK_DECL(dlassq)(const INTEGER *N,
3300 const DOUBLE *X,
3301 const INTEGER *INCX,
3302 DOUBLE *SCALE,
3303 DOUBLE *SUMSQ);
3304
3305 //-- dlasv2 --------------------------------------------------------------------
3306 void
3307 LAPACK_DECL(dlasv2)(const DOUBLE *F,
3308 const DOUBLE *G,
3309 const DOUBLE *H,
3310 DOUBLE *SSMIN,
3311 DOUBLE *SSMAX,
3312 DOUBLE *SNR,
3313 DOUBLE *CSR,
3314 DOUBLE *SNL,
3315 DOUBLE *CSL);
3316
3317 //-- dlaswp --------------------------------------------------------------------
3318 void
3319 LAPACK_DECL(dlaswp)(const INTEGER *N,
3320 DOUBLE *A,
3321 const INTEGER *LDA,
3322 const INTEGER *K1,
3323 const INTEGER *K2,
3324 const INTEGER *IPIV,
3325 const INTEGER *INCX);
3326
3327 //-- dlasy2 --------------------------------------------------------------------
3328 void
3329 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
3330 const LOGICAL *LTRANR,
3331 const INTEGER *ISGN,
3332 const INTEGER *N1,
3333 const INTEGER *N2,
3334 const DOUBLE *TL,
3335 const INTEGER *LDTL,
3336 const DOUBLE *TR,
3337 const INTEGER *LDTR,
3338 const DOUBLE *B,
3339 const INTEGER *LDB,
3340 DOUBLE *SCALE,
3341 DOUBLE *X,
3342 const INTEGER *LDX,
3343 DOUBLE *XNORM,
3344 INTEGER *INFO);
3345
3346 //-- dlasyf --------------------------------------------------------------------
3347 void
3348 LAPACK_DECL(dlasyf)(const char *UPLO,
3349 const INTEGER *N,
3350 const INTEGER *NB,
3351 INTEGER *KB,
3352 DOUBLE *A,
3353 const INTEGER *LDA,
3354 INTEGER *IPIV,
3355 const DOUBLE *W,
3356 const INTEGER *LDW,
3357 INTEGER *INFO);
3358
3359 //-- dlat2s --------------------------------------------------------------------
3360 void
3361 LAPACK_DECL(dlat2s)(const char *UPLO,
3362 const INTEGER *N,
3363 const DOUBLE *A,
3364 const INTEGER *LDA,
3365 FLOAT *SA,
3366 const INTEGER *LDSA,
3367 INTEGER *INFO);
3368
3369 //-- dlatbs --------------------------------------------------------------------
3370 void
3371 LAPACK_DECL(dlatbs)(const char *UPLO,
3372 const char *TRANS,
3373 const char *DIAG,
3374 const char *NORMIN,
3375 const INTEGER *N,
3376 const INTEGER *KD,
3377 const DOUBLE *AB,
3378 const INTEGER *LDAB,
3379 DOUBLE *X,
3380 DOUBLE *SCALE,
3381 DOUBLE *CNORM,
3382 INTEGER *INFO);
3383
3384 //-- dlatdf --------------------------------------------------------------------
3385 void
3386 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
3387 const INTEGER *N,
3388 const DOUBLE *Z,
3389 const INTEGER *LDZ,
3390 DOUBLE *RHS,
3391 DOUBLE *RDSUM,
3392 DOUBLE *RDSCAL,
3393 const INTEGER *IPIV,
3394 const INTEGER *JPIV);
3395
3396 //-- dlatps --------------------------------------------------------------------
3397 void
3398 LAPACK_DECL(dlatps)(const char *UPLO,
3399 const char *TRANS,
3400 const char *DIAG,
3401 const char *NORMIN,
3402 const INTEGER *N,
3403 const DOUBLE *AP,
3404 DOUBLE *X,
3405 DOUBLE *SCALE,
3406 DOUBLE *CNORM,
3407 INTEGER *INFO);
3408
3409 //-- dlatrd --------------------------------------------------------------------
3410 void
3411 LAPACK_DECL(dlatrd)(const char *UPLO,
3412 const INTEGER *N,
3413 const INTEGER *NB,
3414 DOUBLE *A,
3415 const INTEGER *LDA,
3416 DOUBLE *E,
3417 DOUBLE *TAU,
3418 DOUBLE *W,
3419 const INTEGER *LDW);
3420
3421 //-- dlatrs --------------------------------------------------------------------
3422 void
3423 LAPACK_DECL(dlatrs)(const char *UPLO,
3424 const char *TRANS,
3425 const char *DIAG,
3426 const char *NORMIN,
3427 const INTEGER *N,
3428 const DOUBLE *A,
3429 const INTEGER *LDA,
3430 DOUBLE *X,
3431 DOUBLE *SCALE,
3432 DOUBLE *CNORM,
3433 INTEGER *INFO);
3434
3435 //-- dlatrz --------------------------------------------------------------------
3436 void
3437 LAPACK_DECL(dlatrz)(const INTEGER *M,
3438 const INTEGER *N,
3439 const INTEGER *L,
3440 DOUBLE *A,
3441 const INTEGER *LDA,
3442 DOUBLE *TAU,
3443 const DOUBLE *WORK);
3444
3445 //-- dlatzm --------------------------------------------------------------------
3446 void
3447 LAPACK_DECL(dlatzm)(const char *SIDE,
3448 const INTEGER *M,
3449 const INTEGER *N,
3450 const DOUBLE *V,
3451 const INTEGER *INCV,
3452 const DOUBLE *TAU,
3453 DOUBLE *C1,
3454 DOUBLE *C2,
3455 const INTEGER *LDC,
3456 const DOUBLE *WORK);
3457
3458 //-- dlauu2 --------------------------------------------------------------------
3459 void
3460 LAPACK_DECL(dlauu2)(const char *UPLO,
3461 const INTEGER *N,
3462 DOUBLE *A,
3463 const INTEGER *LDA,
3464 INTEGER *INFO);
3465
3466 //-- dlauum --------------------------------------------------------------------
3467 void
3468 LAPACK_DECL(dlauum)(const char *UPLO,
3469 const INTEGER *N,
3470 DOUBLE *A,
3471 const INTEGER *LDA,
3472 INTEGER *INFO);
3473
3474 //-- dopgtr --------------------------------------------------------------------
3475 void
3476 LAPACK_DECL(dopgtr)(const char *UPLO,
3477 const INTEGER *N,
3478 const DOUBLE *AP,
3479 const DOUBLE *TAU,
3480 DOUBLE *Q,
3481 const INTEGER *LDQ,
3482 const DOUBLE *WORK,
3483 INTEGER *INFO);
3484
3485 //-- dopmtr --------------------------------------------------------------------
3486 void
3487 LAPACK_DECL(dopmtr)(const char *SIDE,
3488 const char *UPLO,
3489 const char *TRANS,
3490 const INTEGER *M,
3491 const INTEGER *N,
3492 const DOUBLE *AP,
3493 const DOUBLE *TAU,
3494 DOUBLE *C,
3495 const INTEGER *LDC,
3496 const DOUBLE *WORK,
3497 INTEGER *INFO);
3498
3499 //-- dorbdb --------------------------------------------------------------------
3500 void
3501 LAPACK_DECL(dorbdb)(const char *TRANS,
3502 const char *SIGNS,
3503 const INTEGER *M,
3504 const INTEGER *P,
3505 const INTEGER *Q,
3506 DOUBLE *X11,
3507 const INTEGER *LDX11,
3508 DOUBLE *X12,
3509 const INTEGER *LDX12,
3510 DOUBLE *X21,
3511 const INTEGER *LDX21,
3512 DOUBLE *X22,
3513 const INTEGER *LDX22,
3514 DOUBLE *THETA,
3515 DOUBLE *PHI,
3516 DOUBLE *TAUP1,
3517 DOUBLE *TAUP2,
3518 DOUBLE *TAUQ1,
3519 DOUBLE *TAUQ2,
3520 const DOUBLE *WORK,
3521 const INTEGER *LWORK,
3522 INTEGER *INFO);
3523
3524 //-- dorcsd --------------------------------------------------------------------
3525 void
3526 LAPACK_DECL(dorcsd)(const char *JOBU1,
3527 const char *JOBU2,
3528 const char *JOBV1T,
3529 const char *JOBV2T,
3530 const char *TRANS,
3531 const char *SIGNS,
3532 const INTEGER *M,
3533 const INTEGER *P,
3534 const INTEGER *Q,
3535 const DOUBLE *X11,
3536 const INTEGER *LDX11,
3537 const DOUBLE *X12,
3538 const INTEGER *LDX12,
3539 const DOUBLE *X21,
3540 const INTEGER *LDX21,
3541 const DOUBLE *X22,
3542 const INTEGER *LDX22,
3543 DOUBLE *THETA,
3544 DOUBLE *U1,
3545 const INTEGER *LDU1,
3546 DOUBLE *U2,
3547 const INTEGER *LDU2,
3548 DOUBLE *V1T,
3549 const INTEGER *LDV1T,
3550 DOUBLE *V2T,
3551 const INTEGER *LDV2T,
3552 const DOUBLE *WORK,
3553 const INTEGER *LWORK,
3554 const INTEGER *IWORK,
3555 INTEGER *INFO);
3556
3557 //-- dorg2l --------------------------------------------------------------------
3558 void
3559 LAPACK_DECL(dorg2l)(const INTEGER *M,
3560 const INTEGER *N,
3561 const INTEGER *K,
3562 DOUBLE *A,
3563 const INTEGER *LDA,
3564 const DOUBLE *TAU,
3565 const DOUBLE *WORK,
3566 INTEGER *INFO);
3567
3568 //-- dorg2r --------------------------------------------------------------------
3569 void
3570 LAPACK_DECL(dorg2r)(const INTEGER *M,
3571 const INTEGER *N,
3572 const INTEGER *K,
3573 DOUBLE *A,
3574 const INTEGER *LDA,
3575 const DOUBLE *TAU,
3576 DOUBLE *WORK,
3577 INTEGER *INFO);
3578
3579 //-- dorgbr --------------------------------------------------------------------
3580 void
3581 LAPACK_DECL(dorgbr)(const char *VECT,
3582 const INTEGER *M,
3583 const INTEGER *N,
3584 const INTEGER *K,
3585 DOUBLE *A,
3586 const INTEGER *LDA,
3587 const DOUBLE *TAU,
3588 DOUBLE *WORK,
3589 const INTEGER *LWORK,
3590 INTEGER *INFO);
3591
3592 //-- dorghr --------------------------------------------------------------------
3593 void
3594 LAPACK_DECL(dorghr)(const INTEGER *N,
3595 const INTEGER *ILO,
3596 const INTEGER *IHI,
3597 DOUBLE *A,
3598 const INTEGER *LDA,
3599 const DOUBLE *TAU,
3600 DOUBLE *WORK,
3601 const INTEGER *LWORK,
3602 INTEGER *INFO);
3603
3604 //-- dorgl2 --------------------------------------------------------------------
3605 void
3606 LAPACK_DECL(dorgl2)(const INTEGER *M,
3607 const INTEGER *N,
3608 const INTEGER *K,
3609 DOUBLE *A,
3610 const INTEGER *LDA,
3611 const DOUBLE *TAU,
3612 const DOUBLE *WORK,
3613 INTEGER *INFO);
3614
3615 //-- dorglq --------------------------------------------------------------------
3616 void
3617 LAPACK_DECL(dorglq)(const INTEGER *M,
3618 const INTEGER *N,
3619 const INTEGER *K,
3620 DOUBLE *A,
3621 const INTEGER *LDA,
3622 const DOUBLE *TAU,
3623 DOUBLE *WORK,
3624 const INTEGER *LWORK,
3625 INTEGER *INFO);
3626
3627 //-- dorgql --------------------------------------------------------------------
3628 void
3629 LAPACK_DECL(dorgql)(const INTEGER *M,
3630 const INTEGER *N,
3631 const INTEGER *K,
3632 DOUBLE *A,
3633 const INTEGER *LDA,
3634 const DOUBLE *TAU,
3635 DOUBLE *WORK,
3636 const INTEGER *LWORK,
3637 INTEGER *INFO);
3638
3639 //-- dorgqr --------------------------------------------------------------------
3640 void
3641 LAPACK_DECL(dorgqr)(const INTEGER *M,
3642 const INTEGER *N,
3643 const INTEGER *K,
3644 DOUBLE *A,
3645 const INTEGER *LDA,
3646 const DOUBLE *TAU,
3647 DOUBLE *WORK,
3648 const INTEGER *LWORK,
3649 INTEGER *INFO);
3650
3651 //-- dorgr2 --------------------------------------------------------------------
3652 void
3653 LAPACK_DECL(dorgr2)(const INTEGER *M,
3654 const INTEGER *N,
3655 const INTEGER *K,
3656 DOUBLE *A,
3657 const INTEGER *LDA,
3658 const DOUBLE *TAU,
3659 const DOUBLE *WORK,
3660 INTEGER *INFO);
3661
3662 //-- dorgrq --------------------------------------------------------------------
3663 void
3664 LAPACK_DECL(dorgrq)(const INTEGER *M,
3665 const INTEGER *N,
3666 const INTEGER *K,
3667 DOUBLE *A,
3668 const INTEGER *LDA,
3669 const DOUBLE *TAU,
3670 DOUBLE *WORK,
3671 const INTEGER *LWORK,
3672 INTEGER *INFO);
3673
3674 //-- dorgtr --------------------------------------------------------------------
3675 void
3676 LAPACK_DECL(dorgtr)(const char *UPLO,
3677 const INTEGER *N,
3678 DOUBLE *A,
3679 const INTEGER *LDA,
3680 const DOUBLE *TAU,
3681 DOUBLE *WORK,
3682 const INTEGER *LWORK,
3683 INTEGER *INFO);
3684
3685 //-- dorm2l --------------------------------------------------------------------
3686 void
3687 LAPACK_DECL(dorm2l)(const char *SIDE,
3688 const char *TRANS,
3689 const INTEGER *M,
3690 const INTEGER *N,
3691 const INTEGER *K,
3692 const DOUBLE *A,
3693 const INTEGER *LDA,
3694 const DOUBLE *TAU,
3695 DOUBLE *C,
3696 const INTEGER *LDC,
3697 const DOUBLE *WORK,
3698 INTEGER *INFO);
3699
3700 //-- dorm2r --------------------------------------------------------------------
3701 void
3702 LAPACK_DECL(dorm2r)(const char *SIDE,
3703 const char *TRANS,
3704 const INTEGER *M,
3705 const INTEGER *N,
3706 const INTEGER *K,
3707 const DOUBLE *A,
3708 const INTEGER *LDA,
3709 const DOUBLE *TAU,
3710 DOUBLE *C,
3711 const INTEGER *LDC,
3712 const DOUBLE *WORK,
3713 INTEGER *INFO);
3714
3715 //-- dormbr --------------------------------------------------------------------
3716 void
3717 LAPACK_DECL(dormbr)(const char *VECT,
3718 const char *SIDE,
3719 const char *TRANS,
3720 const INTEGER *M,
3721 const INTEGER *N,
3722 const INTEGER *K,
3723 const DOUBLE *A,
3724 const INTEGER *LDA,
3725 const DOUBLE *TAU,
3726 DOUBLE *C,
3727 const INTEGER *LDC,
3728 DOUBLE *WORK,
3729 const INTEGER *LWORK,
3730 INTEGER *INFO);
3731
3732 //-- dormhr --------------------------------------------------------------------
3733 void
3734 LAPACK_DECL(dormhr)(const char *SIDE,
3735 const char *TRANS,
3736 const INTEGER *M,
3737 const INTEGER *N,
3738 const INTEGER *ILO,
3739 const INTEGER *IHI,
3740 const DOUBLE *A,
3741 const INTEGER *LDA,
3742 const DOUBLE *TAU,
3743 DOUBLE *C,
3744 const INTEGER *LDC,
3745 DOUBLE *WORK,
3746 const INTEGER *LWORK,
3747 INTEGER *INFO);
3748
3749 //-- dorml2 --------------------------------------------------------------------
3750 void
3751 LAPACK_DECL(dorml2)(const char *SIDE,
3752 const char *TRANS,
3753 const INTEGER *M,
3754 const INTEGER *N,
3755 const INTEGER *K,
3756 const DOUBLE *A,
3757 const INTEGER *LDA,
3758 const DOUBLE *TAU,
3759 DOUBLE *C,
3760 const INTEGER *LDC,
3761 const DOUBLE *WORK,
3762 INTEGER *INFO);
3763
3764 //-- dormlq --------------------------------------------------------------------
3765 void
3766 LAPACK_DECL(dormlq)(const char *SIDE,
3767 const char *TRANS,
3768 const INTEGER *M,
3769 const INTEGER *N,
3770 const INTEGER *K,
3771 const DOUBLE *A,
3772 const INTEGER *LDA,
3773 const DOUBLE *TAU,
3774 DOUBLE *C,
3775 const INTEGER *LDC,
3776 DOUBLE *WORK,
3777 const INTEGER *LWORK,
3778 INTEGER *INFO);
3779
3780 //-- dormql --------------------------------------------------------------------
3781 void
3782 LAPACK_DECL(dormql)(const char *SIDE,
3783 const char *TRANS,
3784 const INTEGER *M,
3785 const INTEGER *N,
3786 const INTEGER *K,
3787 const DOUBLE *A,
3788 const INTEGER *LDA,
3789 const DOUBLE *TAU,
3790 DOUBLE *C,
3791 const INTEGER *LDC,
3792 DOUBLE *WORK,
3793 const INTEGER *LWORK,
3794 INTEGER *INFO);
3795
3796 //-- dormqr --------------------------------------------------------------------
3797 void
3798 LAPACK_DECL(dormqr)(const char *SIDE,
3799 const char *TRANS,
3800 const INTEGER *M,
3801 const INTEGER *N,
3802 const INTEGER *K,
3803 DOUBLE *A,
3804 const INTEGER *LDA,
3805 const DOUBLE *TAU,
3806 DOUBLE *C,
3807 const INTEGER *LDC,
3808 DOUBLE *WORK,
3809 const INTEGER *LWORK,
3810 INTEGER *INFO);
3811
3812 //-- dormr2 --------------------------------------------------------------------
3813 void
3814 LAPACK_DECL(dormr2)(const char *SIDE,
3815 const char *TRANS,
3816 const INTEGER *M,
3817 const INTEGER *N,
3818 const INTEGER *K,
3819 const DOUBLE *A,
3820 const INTEGER *LDA,
3821 const DOUBLE *TAU,
3822 DOUBLE *C,
3823 const INTEGER *LDC,
3824 const DOUBLE *WORK,
3825 INTEGER *INFO);
3826
3827 //-- dormr3 --------------------------------------------------------------------
3828 void
3829 LAPACK_DECL(dormr3)(const char *SIDE,
3830 const char *TRANS,
3831 const INTEGER *M,
3832 const INTEGER *N,
3833 const INTEGER *K,
3834 const INTEGER *L,
3835 const DOUBLE *A,
3836 const INTEGER *LDA,
3837 const DOUBLE *TAU,
3838 DOUBLE *C,
3839 const INTEGER *LDC,
3840 const DOUBLE *WORK,
3841 INTEGER *INFO);
3842
3843 //-- dormrq --------------------------------------------------------------------
3844 void
3845 LAPACK_DECL(dormrq)(const char *SIDE,
3846 const char *TRANS,
3847 const INTEGER *M,
3848 const INTEGER *N,
3849 const INTEGER *K,
3850 const DOUBLE *A,
3851 const INTEGER *LDA,
3852 const DOUBLE *TAU,
3853 DOUBLE *C,
3854 const INTEGER *LDC,
3855 DOUBLE *WORK,
3856 const INTEGER *LWORK,
3857 INTEGER *INFO);
3858
3859 //-- dormrz --------------------------------------------------------------------
3860 void
3861 LAPACK_DECL(dormrz)(const char *SIDE,
3862 const char *TRANS,
3863 const INTEGER *M,
3864 const INTEGER *N,
3865 const INTEGER *K,
3866 const INTEGER *L,
3867 const DOUBLE *A,
3868 const INTEGER *LDA,
3869 const DOUBLE *TAU,
3870 DOUBLE *C,
3871 const INTEGER *LDC,
3872 DOUBLE *WORK,
3873 const INTEGER *LWORK,
3874 INTEGER *INFO);
3875
3876 //-- dormtr --------------------------------------------------------------------
3877 void
3878 LAPACK_DECL(dormtr)(const char *SIDE,
3879 const char *UPLO,
3880 const char *TRANS,
3881 const INTEGER *M,
3882 const INTEGER *N,
3883 const DOUBLE *A,
3884 const INTEGER *LDA,
3885 const DOUBLE *TAU,
3886 DOUBLE *C,
3887 const INTEGER *LDC,
3888 DOUBLE *WORK,
3889 const INTEGER *LWORK,
3890 INTEGER *INFO);
3891
3892 //-- dpbcon --------------------------------------------------------------------
3893 void
3894 LAPACK_DECL(dpbcon)(const char *UPLO,
3895 const INTEGER *N,
3896 const INTEGER *KD,
3897 const DOUBLE *AB,
3898 const INTEGER *LDAB,
3899 const DOUBLE *ANORM,
3900 DOUBLE *RCOND,
3901 const DOUBLE *WORK,
3902 const INTEGER *IWORK,
3903 INTEGER *INFO);
3904
3905 //-- dpbequ --------------------------------------------------------------------
3906 void
3907 LAPACK_DECL(dpbequ)(const char *UPLO,
3908 const INTEGER *N,
3909 const INTEGER *KD,
3910 const DOUBLE *AB,
3911 const INTEGER *LDAB,
3912 DOUBLE *S,
3913 DOUBLE *SCOND,
3914 DOUBLE *AMAX,
3915 INTEGER *INFO);
3916
3917 //-- dpbrfs --------------------------------------------------------------------
3918 void
3919 LAPACK_DECL(dpbrfs)(const char *UPLO,
3920 const INTEGER *N,
3921 const INTEGER *KD,
3922 const INTEGER *NRHS,
3923 const DOUBLE *AB,
3924 const INTEGER *LDAB,
3925 const DOUBLE *AFB,
3926 const INTEGER *LDAFB,
3927 const DOUBLE *B,
3928 const INTEGER *LDB,
3929 DOUBLE *X,
3930 const INTEGER *LDX,
3931 DOUBLE *FERR,
3932 DOUBLE *BERR,
3933 const DOUBLE *WORK,
3934 const INTEGER *IWORK,
3935 INTEGER *INFO);
3936
3937 //-- dpbstf --------------------------------------------------------------------
3938 void
3939 LAPACK_DECL(dpbstf)(const char *UPLO,
3940 const INTEGER *N,
3941 const INTEGER *KD,
3942 DOUBLE *AB,
3943 const INTEGER *LDAB,
3944 INTEGER *INFO);
3945
3946 //-- dpbsv ---------------------------------------------------------------------
3947 void
3948 LAPACK_DECL(dpbsv)(const char *UPLO,
3949 const INTEGER *N,
3950 const INTEGER *KD,
3951 const INTEGER *NRHS,
3952 DOUBLE *AB,
3953 const INTEGER *LDAB,
3954 DOUBLE *B,
3955 const INTEGER *LDB,
3956 INTEGER *INFO);
3957
3958 //-- dpbsvx --------------------------------------------------------------------
3959 void
3960 LAPACK_DECL(dpbsvx)(const char *FACT,
3961 const char *UPLO,
3962 const INTEGER *N,
3963 const INTEGER *KD,
3964 const INTEGER *NRHS,
3965 DOUBLE *AB,
3966 const INTEGER *LDAB,
3967 DOUBLE *AFB,
3968 const INTEGER *LDAFB,
3969 char *EQUED,
3970 DOUBLE *S,
3971 DOUBLE *B,
3972 const INTEGER *LDB,
3973 DOUBLE *X,
3974 const INTEGER *LDX,
3975 DOUBLE *RCOND,
3976 DOUBLE *FERR,
3977 DOUBLE *BERR,
3978 const DOUBLE *WORK,
3979 const INTEGER *IWORK,
3980 INTEGER *INFO);
3981
3982 //-- dpbtf2 --------------------------------------------------------------------
3983 void
3984 LAPACK_DECL(dpbtf2)(const char *UPLO,
3985 const INTEGER *N,
3986 const INTEGER *KD,
3987 DOUBLE *AB,
3988 const INTEGER *LDAB,
3989 INTEGER *INFO);
3990
3991 //-- dpbtrf --------------------------------------------------------------------
3992 void
3993 LAPACK_DECL(dpbtrf)(const char *UPLO,
3994 const INTEGER *N,
3995 const INTEGER *KD,
3996 DOUBLE *AB,
3997 const INTEGER *LDAB,
3998 INTEGER *INFO);
3999
4000 //-- dpbtrs --------------------------------------------------------------------
4001 void
4002 LAPACK_DECL(dpbtrs)(const char *UPLO,
4003 const INTEGER *N,
4004 const INTEGER *KD,
4005 const INTEGER *NRHS,
4006 const DOUBLE *AB,
4007 const INTEGER *LDAB,
4008 DOUBLE *B,
4009 const INTEGER *LDB,
4010 INTEGER *INFO);
4011
4012 //-- dpftrf --------------------------------------------------------------------
4013 void
4014 LAPACK_DECL(dpftrf)(const char *TRANSR,
4015 const char *UPLO,
4016 const INTEGER *N,
4017 DOUBLE *A,
4018 INTEGER *INFO);
4019
4020 //-- dpftri --------------------------------------------------------------------
4021 void
4022 LAPACK_DECL(dpftri)(const char *TRANSR,
4023 const char *UPLO,
4024 const INTEGER *N,
4025 DOUBLE *A,
4026 INTEGER *INFO);
4027
4028 //-- dpftrs --------------------------------------------------------------------
4029 void
4030 LAPACK_DECL(dpftrs)(const char *TRANSR,
4031 const char *UPLO,
4032 const INTEGER *N,
4033 const INTEGER *NRHS,
4034 const DOUBLE *A,
4035 DOUBLE *B,
4036 const INTEGER *LDB,
4037 INTEGER *INFO);
4038
4039 //-- dpocon --------------------------------------------------------------------
4040 void
4041 LAPACK_DECL(dpocon)(const char *UPLO,
4042 const INTEGER *N,
4043 const DOUBLE *A,
4044 const INTEGER *LDA,
4045 const DOUBLE *ANORM,
4046 DOUBLE *RCOND,
4047 const DOUBLE *WORK,
4048 const INTEGER *IWORK,
4049 INTEGER *INFO);
4050
4051 //-- dpoequ --------------------------------------------------------------------
4052 void
4053 LAPACK_DECL(dpoequ)(const INTEGER *N,
4054 const DOUBLE *A,
4055 const INTEGER *LDA,
4056 DOUBLE *S,
4057 DOUBLE *SCOND,
4058 DOUBLE *AMAX,
4059 INTEGER *INFO);
4060
4061 //-- dpoequb -------------------------------------------------------------------
4062 void
4063 LAPACK_DECL(dpoequb)(const INTEGER *N,
4064 const DOUBLE *A,
4065 const INTEGER *LDA,
4066 DOUBLE *S,
4067 DOUBLE *SCOND,
4068 DOUBLE *AMAX,
4069 INTEGER *INFO);
4070
4071 //-- dporfs --------------------------------------------------------------------
4072 void
4073 LAPACK_DECL(dporfs)(const char *UPLO,
4074 const INTEGER *N,
4075 const INTEGER *NRHS,
4076 const DOUBLE *A,
4077 const INTEGER *LDA,
4078 const DOUBLE *AF,
4079 const INTEGER *LDAF,
4080 const DOUBLE *B,
4081 const INTEGER *LDB,
4082 DOUBLE *X,
4083 const INTEGER *LDX,
4084 DOUBLE *FERR,
4085 DOUBLE *BERR,
4086 const DOUBLE *WORK,
4087 const INTEGER *IWORK,
4088 INTEGER *INFO);
4089
4090 //-- dposv ---------------------------------------------------------------------
4091 void
4092 LAPACK_DECL(dposv)(const char *UPLO,
4093 const INTEGER *N,
4094 const INTEGER *NRHS,
4095 DOUBLE *A,
4096 const INTEGER *LDA,
4097 DOUBLE *B,
4098 const INTEGER *LDB,
4099 INTEGER *INFO);
4100
4101 //-- dposvx --------------------------------------------------------------------
4102 void
4103 LAPACK_DECL(dposvx)(const char *FACT,
4104 const char *UPLO,
4105 const INTEGER *N,
4106 const INTEGER *NRHS,
4107 DOUBLE *A,
4108 const INTEGER *LDA,
4109 DOUBLE *AF,
4110 const INTEGER *LDAF,
4111 char *EQUED,
4112 DOUBLE *S,
4113 DOUBLE *B,
4114 const INTEGER *LDB,
4115 DOUBLE *X,
4116 const INTEGER *LDX,
4117 DOUBLE *RCOND,
4118 DOUBLE *FERR,
4119 DOUBLE *BERR,
4120 const DOUBLE *WORK,
4121 const INTEGER *IWORK,
4122 INTEGER *INFO);
4123
4124 //-- dpotf2 --------------------------------------------------------------------
4125 void
4126 LAPACK_DECL(dpotf2)(const char *UPLO,
4127 const INTEGER *N,
4128 DOUBLE *A,
4129 const INTEGER *LDA,
4130 INTEGER *INFO);
4131
4132 //-- dpotrf --------------------------------------------------------------------
4133 void
4134 LAPACK_DECL(dpotrf)(const char *UPLO,
4135 const INTEGER *N,
4136 DOUBLE *A,
4137 const INTEGER *LDA,
4138 INTEGER *INFO);
4139
4140 //-- dpotri --------------------------------------------------------------------
4141 void
4142 LAPACK_DECL(dpotri)(const char *UPLO,
4143 const INTEGER *N,
4144 DOUBLE *A,
4145 const INTEGER *LDA,
4146 INTEGER *INFO);
4147
4148 //-- dpotrs --------------------------------------------------------------------
4149 void
4150 LAPACK_DECL(dpotrs)(const char *UPLO,
4151 const INTEGER *N,
4152 const INTEGER *NRHS,
4153 const DOUBLE *A,
4154 const INTEGER *LDA,
4155 DOUBLE *B,
4156 const INTEGER *LDB,
4157 INTEGER *INFO);
4158
4159 //-- dppcon --------------------------------------------------------------------
4160 void
4161 LAPACK_DECL(dppcon)(const char *UPLO,
4162 const INTEGER *N,
4163 const DOUBLE *AP,
4164 const DOUBLE *ANORM,
4165 DOUBLE *RCOND,
4166 const DOUBLE *WORK,
4167 const INTEGER *IWORK,
4168 INTEGER *INFO);
4169
4170 //-- dppequ --------------------------------------------------------------------
4171 void
4172 LAPACK_DECL(dppequ)(const char *UPLO,
4173 const INTEGER *N,
4174 const DOUBLE *AP,
4175 DOUBLE *S,
4176 DOUBLE *SCOND,
4177 DOUBLE *AMAX,
4178 INTEGER *INFO);
4179
4180 //-- dpprfs --------------------------------------------------------------------
4181 void
4182 LAPACK_DECL(dpprfs)(const char *UPLO,
4183 const INTEGER *N,
4184 const INTEGER *NRHS,
4185 const DOUBLE *AP,
4186 const DOUBLE *AFP,
4187 const DOUBLE *B,
4188 const INTEGER *LDB,
4189 DOUBLE *X,
4190 const INTEGER *LDX,
4191 DOUBLE *FERR,
4192 DOUBLE *BERR,
4193 const DOUBLE *WORK,
4194 const INTEGER *IWORK,
4195 INTEGER *INFO);
4196
4197 //-- dppsv ---------------------------------------------------------------------
4198 void
4199 LAPACK_DECL(dppsv)(const char *UPLO,
4200 const INTEGER *N,
4201 const INTEGER *NRHS,
4202 DOUBLE *AP,
4203 DOUBLE *B,
4204 const INTEGER *LDB,
4205 INTEGER *INFO);
4206
4207 //-- dppsvx --------------------------------------------------------------------
4208 void
4209 LAPACK_DECL(dppsvx)(const char *FACT,
4210 const char *UPLO,
4211 const INTEGER *N,
4212 const INTEGER *NRHS,
4213 DOUBLE *AP,
4214 DOUBLE *AFP,
4215 char *EQUED,
4216 DOUBLE *S,
4217 DOUBLE *B,
4218 const INTEGER *LDB,
4219 DOUBLE *X,
4220 const INTEGER *LDX,
4221 DOUBLE *RCOND,
4222 DOUBLE *FERR,
4223 DOUBLE *BERR,
4224 const DOUBLE *WORK,
4225 const INTEGER *IWORK,
4226 INTEGER *INFO);
4227
4228 //-- dpptrf --------------------------------------------------------------------
4229 void
4230 LAPACK_DECL(dpptrf)(const char *UPLO,
4231 const INTEGER *N,
4232 DOUBLE *AP,
4233 INTEGER *INFO);
4234
4235 //-- dpptri --------------------------------------------------------------------
4236 void
4237 LAPACK_DECL(dpptri)(const char *UPLO,
4238 const INTEGER *N,
4239 DOUBLE *AP,
4240 INTEGER *INFO);
4241
4242 //-- dpptrs --------------------------------------------------------------------
4243 void
4244 LAPACK_DECL(dpptrs)(const char *UPLO,
4245 const INTEGER *N,
4246 const INTEGER *NRHS,
4247 const DOUBLE *AP,
4248 DOUBLE *B,
4249 const INTEGER *LDB,
4250 INTEGER *INFO);
4251
4252 //-- dpstf2 --------------------------------------------------------------------
4253 void
4254 LAPACK_DECL(dpstf2)(const char *UPLO,
4255 const INTEGER *N,
4256 DOUBLE *A,
4257 const INTEGER *LDA,
4258 INTEGER *PIV,
4259 INTEGER *RANK,
4260 const DOUBLE *TOL,
4261 const DOUBLE *WORK,
4262 INTEGER *INFO);
4263
4264 //-- dpstrf --------------------------------------------------------------------
4265 void
4266 LAPACK_DECL(dpstrf)(const char *UPLO,
4267 const INTEGER *N,
4268 DOUBLE *A,
4269 const INTEGER *LDA,
4270 INTEGER *PIV,
4271 INTEGER *RANK,
4272 const DOUBLE *TOL,
4273 const DOUBLE *WORK,
4274 INTEGER *INFO);
4275
4276 //-- dptcon --------------------------------------------------------------------
4277 void
4278 LAPACK_DECL(dptcon)(const INTEGER *N,
4279 const DOUBLE *D,
4280 const DOUBLE *E,
4281 const DOUBLE *ANORM,
4282 DOUBLE *RCOND,
4283 const DOUBLE *WORK,
4284 INTEGER *INFO);
4285
4286 //-- dpteqr --------------------------------------------------------------------
4287 void
4288 LAPACK_DECL(dpteqr)(const char *COMPZ,
4289 const INTEGER *N,
4290 DOUBLE *D,
4291 DOUBLE *E,
4292 DOUBLE *Z,
4293 const INTEGER *LDZ,
4294 const DOUBLE *WORK,
4295 INTEGER *INFO);
4296
4297 //-- dptrfs --------------------------------------------------------------------
4298 void
4299 LAPACK_DECL(dptrfs)(const INTEGER *N,
4300 const INTEGER *NRHS,
4301 const DOUBLE *D,
4302 const DOUBLE *E,
4303 const DOUBLE *DF,
4304 const DOUBLE *EF,
4305 const DOUBLE *B,
4306 const INTEGER *LDB,
4307 DOUBLE *X,
4308 const INTEGER *LDX,
4309 DOUBLE *FERR,
4310 DOUBLE *BERR,
4311 const DOUBLE *WORK,
4312 INTEGER *INFO);
4313
4314 //-- dptsv ---------------------------------------------------------------------
4315 void
4316 LAPACK_DECL(dptsv)(const INTEGER *N,
4317 const INTEGER *NRHS,
4318 DOUBLE *D,
4319 DOUBLE *E,
4320 DOUBLE *B,
4321 const INTEGER *LDB,
4322 INTEGER *INFO);
4323
4324 //-- dptsvx --------------------------------------------------------------------
4325 void
4326 LAPACK_DECL(dptsvx)(const char *FACT,
4327 const INTEGER *N,
4328 const INTEGER *NRHS,
4329 const DOUBLE *D,
4330 const DOUBLE *E,
4331 DOUBLE *DF,
4332 DOUBLE *EF,
4333 const DOUBLE *B,
4334 const INTEGER *LDB,
4335 DOUBLE *X,
4336 const INTEGER *LDX,
4337 DOUBLE *RCOND,
4338 DOUBLE *FERR,
4339 DOUBLE *BERR,
4340 const DOUBLE *WORK,
4341 INTEGER *INFO);
4342
4343 //-- dpttrf --------------------------------------------------------------------
4344 void
4345 LAPACK_DECL(dpttrf)(const INTEGER *N,
4346 DOUBLE *D,
4347 DOUBLE *E,
4348 INTEGER *INFO);
4349
4350 //-- dpttrs --------------------------------------------------------------------
4351 void
4352 LAPACK_DECL(dpttrs)(const INTEGER *N,
4353 const INTEGER *NRHS,
4354 const DOUBLE *D,
4355 const DOUBLE *E,
4356 DOUBLE *B,
4357 const INTEGER *LDB,
4358 INTEGER *INFO);
4359
4360 //-- dptts2 --------------------------------------------------------------------
4361 void
4362 LAPACK_DECL(dptts2)(const INTEGER *N,
4363 const INTEGER *NRHS,
4364 const DOUBLE *D,
4365 const DOUBLE *E,
4366 DOUBLE *B,
4367 const INTEGER *LDB);
4368
4369 //-- drscl ---------------------------------------------------------------------
4370 void
4371 LAPACK_DECL(drscl)(const INTEGER *N,
4372 const DOUBLE *SA,
4373 DOUBLE *SX,
4374 const INTEGER *INCX);
4375
4376 //-- dsbev ---------------------------------------------------------------------
4377 void
4378 LAPACK_DECL(dsbev)(const char *JOBZ,
4379 const char *UPLO,
4380 const INTEGER *N,
4381 const INTEGER *KD,
4382 DOUBLE *AB,
4383 const INTEGER *LDAB,
4384 DOUBLE *W,
4385 DOUBLE *Z,
4386 const INTEGER *LDZ,
4387 const DOUBLE *WORK,
4388 INTEGER *INFO);
4389
4390 //-- dsbevd --------------------------------------------------------------------
4391 void
4392 LAPACK_DECL(dsbevd)(const char *JOBZ,
4393 const char *UPLO,
4394 const INTEGER *N,
4395 const INTEGER *KD,
4396 DOUBLE *AB,
4397 const INTEGER *LDAB,
4398 DOUBLE *W,
4399 DOUBLE *Z,
4400 const INTEGER *LDZ,
4401 DOUBLE *WORK,
4402 const INTEGER *LWORK,
4403 INTEGER *IWORK,
4404 const INTEGER *LIWORK,
4405 INTEGER *INFO);
4406
4407 //-- dsbevx --------------------------------------------------------------------
4408 void
4409 LAPACK_DECL(dsbevx)(const char *JOBZ,
4410 const char *RANGE,
4411 const char *UPLO,
4412 const INTEGER *N,
4413 const INTEGER *KD,
4414 DOUBLE *AB,
4415 const INTEGER *LDAB,
4416 DOUBLE *Q,
4417 const INTEGER *LDQ,
4418 const DOUBLE *VL,
4419 const DOUBLE *VU,
4420 const INTEGER *IL,
4421 const INTEGER *IU,
4422 const DOUBLE *ABSTOL,
4423 INTEGER *M,
4424 DOUBLE *W,
4425 DOUBLE *Z,
4426 const INTEGER *LDZ,
4427 const DOUBLE *WORK,
4428 const INTEGER *IWORK,
4429 INTEGER *IFAIL,
4430 INTEGER *INFO);
4431
4432 //-- dsbgst --------------------------------------------------------------------
4433 void
4434 LAPACK_DECL(dsbgst)(const char *VECT,
4435 const char *UPLO,
4436 const INTEGER *N,
4437 const INTEGER *KA,
4438 const INTEGER *KB,
4439 DOUBLE *AB,
4440 const INTEGER *LDAB,
4441 const DOUBLE *BB,
4442 const INTEGER *LDBB,
4443 DOUBLE *X,
4444 const INTEGER *LDX,
4445 const DOUBLE *WORK,
4446 INTEGER *INFO);
4447
4448 //-- dsbgv ---------------------------------------------------------------------
4449 void
4450 LAPACK_DECL(dsbgv)(const char *JOBZ,
4451 const char *UPLO,
4452 const INTEGER *N,
4453 const INTEGER *KA,
4454 const INTEGER *KB,
4455 DOUBLE *AB,
4456 const INTEGER *LDAB,
4457 DOUBLE *BB,
4458 const INTEGER *LDBB,
4459 DOUBLE *W,
4460 DOUBLE *Z,
4461 const INTEGER *LDZ,
4462 const DOUBLE *WORK,
4463 INTEGER *INFO);
4464
4465 //-- dsbgvd --------------------------------------------------------------------
4466 void
4467 LAPACK_DECL(dsbgvd)(const char *JOBZ,
4468 const char *UPLO,
4469 const INTEGER *N,
4470 const INTEGER *KA,
4471 const INTEGER *KB,
4472 DOUBLE *AB,
4473 const INTEGER *LDAB,
4474 DOUBLE *BB,
4475 const INTEGER *LDBB,
4476 DOUBLE *W,
4477 DOUBLE *Z,
4478 const INTEGER *LDZ,
4479 DOUBLE *WORK,
4480 const INTEGER *LWORK,
4481 INTEGER *IWORK,
4482 const INTEGER *LIWORK,
4483 INTEGER *INFO);
4484
4485 //-- dsbgvx --------------------------------------------------------------------
4486 void
4487 LAPACK_DECL(dsbgvx)(const char *JOBZ,
4488 const char *RANGE,
4489 const char *UPLO,
4490 const INTEGER *N,
4491 const INTEGER *KA,
4492 const INTEGER *KB,
4493 DOUBLE *AB,
4494 const INTEGER *LDAB,
4495 DOUBLE *BB,
4496 const INTEGER *LDBB,
4497 DOUBLE *Q,
4498 const INTEGER *LDQ,
4499 const DOUBLE *VL,
4500 const DOUBLE *VU,
4501 const INTEGER *IL,
4502 const INTEGER *IU,
4503 const DOUBLE *ABSTOL,
4504 INTEGER *M,
4505 DOUBLE *W,
4506 DOUBLE *Z,
4507 const INTEGER *LDZ,
4508 DOUBLE *WORK,
4509 INTEGER *IWORK,
4510 INTEGER *IFAIL,
4511 INTEGER *INFO);
4512
4513 //-- dsbtrd --------------------------------------------------------------------
4514 void
4515 LAPACK_DECL(dsbtrd)(const char *VECT,
4516 const char *UPLO,
4517 const INTEGER *N,
4518 const INTEGER *KD,
4519 DOUBLE *AB,
4520 const INTEGER *LDAB,
4521 DOUBLE *D,
4522 DOUBLE *E,
4523 DOUBLE *Q,
4524 const INTEGER *LDQ,
4525 const DOUBLE *WORK,
4526 INTEGER *INFO);
4527
4528 //-- dsecnd --------------------------------------------------------------------
4529 DOUBLE
4530 LAPACK_DECL(dsecnd)();
4531
4532 //-- dsfrk ---------------------------------------------------------------------
4533 void
4534 LAPACK_DECL(dsfrk)(const char *TRANSR,
4535 const char *UPLO,
4536 const char *TRANS,
4537 const INTEGER *N,
4538 const INTEGER *K,
4539 const DOUBLE *ALPHA,
4540 const DOUBLE *A,
4541 const INTEGER *LDA,
4542 const DOUBLE *BETA,
4543 DOUBLE *C);
4544
4545 //-- dsgesv --------------------------------------------------------------------
4546 void
4547 LAPACK_DECL(dsgesv)(const INTEGER *N,
4548 const INTEGER *NRHS,
4549 DOUBLE *A,
4550 const INTEGER *LDA,
4551 INTEGER *IPIV,
4552 const DOUBLE *B,
4553 const INTEGER *LDB,
4554 DOUBLE *X,
4555 const INTEGER *LDX,
4556 const DOUBLE *WORK,
4557 const FLOAT *SWORK,
4558 INTEGER *ITER,
4559 INTEGER *INFO);
4560
4561 //-- dspcon --------------------------------------------------------------------
4562 void
4563 LAPACK_DECL(dspcon)(const char *UPLO,
4564 const INTEGER *N,
4565 const DOUBLE *AP,
4566 const INTEGER *IPIV,
4567 const DOUBLE *ANORM,
4568 DOUBLE *RCOND,
4569 const DOUBLE *WORK,
4570 const INTEGER *IWORK,
4571 INTEGER *INFO);
4572
4573 //-- dspev ---------------------------------------------------------------------
4574 void
4575 LAPACK_DECL(dspev)(const char *JOBZ,
4576 const char *UPLO,
4577 const INTEGER *N,
4578 DOUBLE *AP,
4579 DOUBLE *W,
4580 DOUBLE *Z,
4581 const INTEGER *LDZ,
4582 const DOUBLE *WORK,
4583 INTEGER *INFO);
4584
4585 //-- dspevd --------------------------------------------------------------------
4586 void
4587 LAPACK_DECL(dspevd)(const char *JOBZ,
4588 const char *UPLO,
4589 const INTEGER *N,
4590 DOUBLE *AP,
4591 DOUBLE *W,
4592 DOUBLE *Z,
4593 const INTEGER *LDZ,
4594 DOUBLE *WORK,
4595 const INTEGER *LWORK,
4596 INTEGER *IWORK,
4597 const INTEGER *LIWORK,
4598 INTEGER *INFO);
4599
4600 //-- dspevx --------------------------------------------------------------------
4601 void
4602 LAPACK_DECL(dspevx)(const char *JOBZ,
4603 const char *RANGE,
4604 const char *UPLO,
4605 const INTEGER *N,
4606 DOUBLE *AP,
4607 const DOUBLE *VL,
4608 const DOUBLE *VU,
4609 const INTEGER *IL,
4610 const INTEGER *IU,
4611 const DOUBLE *ABSTOL,
4612 INTEGER *M,
4613 DOUBLE *W,
4614 DOUBLE *Z,
4615 const INTEGER *LDZ,
4616 const DOUBLE *WORK,
4617 const INTEGER *IWORK,
4618 INTEGER *IFAIL,
4619 INTEGER *INFO);
4620
4621 //-- dspgst --------------------------------------------------------------------
4622 void
4623 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
4624 const char *UPLO,
4625 const INTEGER *N,
4626 DOUBLE *AP,
4627 const DOUBLE *BP,
4628 INTEGER *INFO);
4629
4630 //-- dspgv ---------------------------------------------------------------------
4631 void
4632 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
4633 const char *JOBZ,
4634 const char *UPLO,
4635 const INTEGER *N,
4636 DOUBLE *AP,
4637 DOUBLE *BP,
4638 DOUBLE *W,
4639 DOUBLE *Z,
4640 const INTEGER *LDZ,
4641 const DOUBLE *WORK,
4642 INTEGER *INFO);
4643
4644 //-- dspgvd --------------------------------------------------------------------
4645 void
4646 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
4647 const char *JOBZ,
4648 const char *UPLO,
4649 const INTEGER *N,
4650 DOUBLE *AP,
4651 DOUBLE *BP,
4652 DOUBLE *W,
4653 DOUBLE *Z,
4654 const INTEGER *LDZ,
4655 DOUBLE *WORK,
4656 const INTEGER *LWORK,
4657 INTEGER *IWORK,
4658 const INTEGER *LIWORK,
4659 INTEGER *INFO);
4660
4661 //-- dspgvx --------------------------------------------------------------------
4662 void
4663 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
4664 const char *JOBZ,
4665 const char *RANGE,
4666 const char *UPLO,
4667 const INTEGER *N,
4668 DOUBLE *AP,
4669 DOUBLE *BP,
4670 const DOUBLE *VL,
4671 const DOUBLE *VU,
4672 const INTEGER *IL,
4673 const INTEGER *IU,
4674 const DOUBLE *ABSTOL,
4675 INTEGER *M,
4676 DOUBLE *W,
4677 DOUBLE *Z,
4678 const INTEGER *LDZ,
4679 const DOUBLE *WORK,
4680 const INTEGER *IWORK,
4681 INTEGER *IFAIL,
4682 INTEGER *INFO);
4683
4684 //-- dsposv --------------------------------------------------------------------
4685 void
4686 LAPACK_DECL(dsposv)(const char *UPLO,
4687 const INTEGER *N,
4688 const INTEGER *NRHS,
4689 DOUBLE *A,
4690 const INTEGER *LDA,
4691 const DOUBLE *B,
4692 const INTEGER *LDB,
4693 DOUBLE *X,
4694 const INTEGER *LDX,
4695 const DOUBLE *WORK,
4696 const FLOAT *SWORK,
4697 INTEGER *ITER,
4698 INTEGER *INFO);
4699
4700 //-- dsprfs --------------------------------------------------------------------
4701 void
4702 LAPACK_DECL(dsprfs)(const char *UPLO,
4703 const INTEGER *N,
4704 const INTEGER *NRHS,
4705 const DOUBLE *AP,
4706 const DOUBLE *AFP,
4707 const INTEGER *IPIV,
4708 const DOUBLE *B,
4709 const INTEGER *LDB,
4710 DOUBLE *X,
4711 const INTEGER *LDX,
4712 DOUBLE *FERR,
4713 DOUBLE *BERR,
4714 const DOUBLE *WORK,
4715 const INTEGER *IWORK,
4716 INTEGER *INFO);
4717
4718 //-- dspsv ---------------------------------------------------------------------
4719 void
4720 LAPACK_DECL(dspsv)(const char *UPLO,
4721 const INTEGER *N,
4722 const INTEGER *NRHS,
4723 DOUBLE *AP,
4724 INTEGER *IPIV,
4725 DOUBLE *B,
4726 const INTEGER *LDB,
4727 INTEGER *INFO);
4728
4729 //-- dspsvx --------------------------------------------------------------------
4730 void
4731 LAPACK_DECL(dspsvx)(const char *FACT,
4732 const char *UPLO,
4733 const INTEGER *N,
4734 const INTEGER *NRHS,
4735 const DOUBLE *AP,
4736 DOUBLE *AFP,
4737 INTEGER *IPIV,
4738 const DOUBLE *B,
4739 const INTEGER *LDB,
4740 DOUBLE *X,
4741 const INTEGER *LDX,
4742 DOUBLE *RCOND,
4743 DOUBLE *FERR,
4744 DOUBLE *BERR,
4745 const DOUBLE *WORK,
4746 const INTEGER *IWORK,
4747 INTEGER *INFO);
4748
4749 //-- dsptrd --------------------------------------------------------------------
4750 void
4751 LAPACK_DECL(dsptrd)(const char *UPLO,
4752 const INTEGER *N,
4753 DOUBLE *AP,
4754 DOUBLE *D,
4755 DOUBLE *E,
4756 DOUBLE *TAU,
4757 INTEGER *INFO);
4758
4759 //-- dsptrf --------------------------------------------------------------------
4760 void
4761 LAPACK_DECL(dsptrf)(const char *UPLO,
4762 const INTEGER *N,
4763 DOUBLE *AP,
4764 INTEGER *IPIV,
4765 INTEGER *INFO);
4766
4767 //-- dsptri --------------------------------------------------------------------
4768 void
4769 LAPACK_DECL(dsptri)(const char *UPLO,
4770 const INTEGER *N,
4771 DOUBLE *AP,
4772 const INTEGER *IPIV,
4773 const DOUBLE *WORK,
4774 INTEGER *INFO);
4775
4776 //-- dsptrs --------------------------------------------------------------------
4777 void
4778 LAPACK_DECL(dsptrs)(const char *UPLO,
4779 const INTEGER *N,
4780 const INTEGER *NRHS,
4781 const DOUBLE *AP,
4782 const INTEGER *IPIV,
4783 DOUBLE *B,
4784 const INTEGER *LDB,
4785 INTEGER *INFO);
4786
4787 //-- dstebz --------------------------------------------------------------------
4788 void
4789 LAPACK_DECL(dstebz)(const char *RANGE,
4790 const char *ORDER,
4791 const INTEGER *N,
4792 const DOUBLE *VL,
4793 const DOUBLE *VU,
4794 const INTEGER *IL,
4795 const INTEGER *IU,
4796 const DOUBLE *ABSTOL,
4797 const DOUBLE *D,
4798 const DOUBLE *E,
4799 INTEGER *M,
4800 INTEGER *NSPLIT,
4801 DOUBLE *W,
4802 INTEGER *IBLOCK,
4803 INTEGER *ISPLIT,
4804 const DOUBLE *WORK,
4805 const INTEGER *IWORK,
4806 INTEGER *INFO);
4807
4808 //-- dstedc --------------------------------------------------------------------
4809 void
4810 LAPACK_DECL(dstedc)(const char *COMPZ,
4811 const INTEGER *N,
4812 DOUBLE *D,
4813 DOUBLE *E,
4814 DOUBLE *Z,
4815 const INTEGER *LDZ,
4816 DOUBLE *WORK,
4817 const INTEGER *LWORK,
4818 INTEGER *IWORK,
4819 const INTEGER *LIWORK,
4820 INTEGER *INFO);
4821
4822 //-- dstegr --------------------------------------------------------------------
4823 void
4824 LAPACK_DECL(dstegr)(const char *JOBZ,
4825 const char *RANGE,
4826 const INTEGER *N,
4827 DOUBLE *D,
4828 DOUBLE *E,
4829 const DOUBLE *VL,
4830 const DOUBLE *VU,
4831 const INTEGER *IL,
4832 const INTEGER *IU,
4833 const DOUBLE *ABSTOL,
4834 INTEGER *M,
4835 DOUBLE *W,
4836 DOUBLE *Z,
4837 const INTEGER *LDZ,
4838 INTEGER *ISUPPZ,
4839 DOUBLE *WORK,
4840 const INTEGER *LWORK,
4841 INTEGER *IWORK,
4842 const INTEGER *LIWORK,
4843 INTEGER *INFO);
4844
4845 //-- dstein --------------------------------------------------------------------
4846 void
4847 LAPACK_DECL(dstein)(const INTEGER *N,
4848 const DOUBLE *D,
4849 const DOUBLE *E,
4850 const INTEGER *M,
4851 const DOUBLE *W,
4852 const INTEGER *IBLOCK,
4853 const INTEGER *ISPLIT,
4854 DOUBLE *Z,
4855 const INTEGER *LDZ,
4856 const DOUBLE *WORK,
4857 const INTEGER *IWORK,
4858 INTEGER *IFAIL,
4859 INTEGER *INFO);
4860
4861 //-- dstemr --------------------------------------------------------------------
4862 void
4863 LAPACK_DECL(dstemr)(const char *JOBZ,
4864 const char *RANGE,
4865 const INTEGER *N,
4866 DOUBLE *D,
4867 DOUBLE *E,
4868 const DOUBLE *VL,
4869 const DOUBLE *VU,
4870 const INTEGER *IL,
4871 const INTEGER *IU,
4872 INTEGER *M,
4873 DOUBLE *W,
4874 DOUBLE *Z,
4875 const INTEGER *LDZ,
4876 const INTEGER *NZC,
4877 INTEGER *ISUPPZ,
4878 LOGICAL *TRYRAC,
4879 DOUBLE *WORK,
4880 const INTEGER *LWORK,
4881 INTEGER *IWORK,
4882 const INTEGER *LIWORK,
4883 INTEGER *INFO);
4884
4885 //-- dsteqr --------------------------------------------------------------------
4886 void
4887 LAPACK_DECL(dsteqr)(const char *COMPZ,
4888 const INTEGER *N,
4889 DOUBLE *D,
4890 DOUBLE *E,
4891 DOUBLE *Z,
4892 const INTEGER *LDZ,
4893 const DOUBLE *WORK,
4894 INTEGER *INFO);
4895
4896 //-- dsterf --------------------------------------------------------------------
4897 void
4898 LAPACK_DECL(dsterf)(const INTEGER *N,
4899 DOUBLE *D,
4900 DOUBLE *E,
4901 INTEGER *INFO);
4902
4903 //-- dstev ---------------------------------------------------------------------
4904 void
4905 LAPACK_DECL(dstev)(const char *JOBZ,
4906 const INTEGER *N,
4907 DOUBLE *D,
4908 DOUBLE *E,
4909 DOUBLE *Z,
4910 const INTEGER *LDZ,
4911 const DOUBLE *WORK,
4912 INTEGER *INFO);
4913
4914 //-- dstevd --------------------------------------------------------------------
4915 void
4916 LAPACK_DECL(dstevd)(const char *JOBZ,
4917 const INTEGER *N,
4918 DOUBLE *D,
4919 DOUBLE *E,
4920 DOUBLE *Z,
4921 const INTEGER *LDZ,
4922 DOUBLE *WORK,
4923 const INTEGER *LWORK,
4924 INTEGER *IWORK,
4925 const INTEGER *LIWORK,
4926 INTEGER *INFO);
4927
4928 //-- dstevr --------------------------------------------------------------------
4929 void
4930 LAPACK_DECL(dstevr)(const char *JOBZ,
4931 const char *RANGE,
4932 const INTEGER *N,
4933 DOUBLE *D,
4934 DOUBLE *E,
4935 const DOUBLE *VL,
4936 const DOUBLE *VU,
4937 const INTEGER *IL,
4938 const INTEGER *IU,
4939 const DOUBLE *ABSTOL,
4940 INTEGER *M,
4941 DOUBLE *W,
4942 DOUBLE *Z,
4943 const INTEGER *LDZ,
4944 INTEGER *ISUPPZ,
4945 DOUBLE *WORK,
4946 const INTEGER *LWORK,
4947 INTEGER *IWORK,
4948 const INTEGER *LIWORK,
4949 INTEGER *INFO);
4950
4951 //-- dstevx --------------------------------------------------------------------
4952 void
4953 LAPACK_DECL(dstevx)(const char *JOBZ,
4954 const char *RANGE,
4955 const INTEGER *N,
4956 DOUBLE *D,
4957 DOUBLE *E,
4958 const DOUBLE *VL,
4959 const DOUBLE *VU,
4960 const INTEGER *IL,
4961 const INTEGER *IU,
4962 const DOUBLE *ABSTOL,
4963 INTEGER *M,
4964 DOUBLE *W,
4965 DOUBLE *Z,
4966 const INTEGER *LDZ,
4967 const DOUBLE *WORK,
4968 const INTEGER *IWORK,
4969 INTEGER *IFAIL,
4970 INTEGER *INFO);
4971
4972 //-- dsycon --------------------------------------------------------------------
4973 void
4974 LAPACK_DECL(dsycon)(const char *UPLO,
4975 const INTEGER *N,
4976 const DOUBLE *A,
4977 const INTEGER *LDA,
4978 const INTEGER *IPIV,
4979 const DOUBLE *ANORM,
4980 DOUBLE *RCOND,
4981 const DOUBLE *WORK,
4982 const INTEGER *IWORK,
4983 INTEGER *INFO);
4984
4985 //-- dsyconv -------------------------------------------------------------------
4986 void
4987 LAPACK_DECL(dsyconv)(const char *UPLO,
4988 const char *WAY,
4989 const INTEGER *N,
4990 const DOUBLE *A,
4991 const INTEGER *LDA,
4992 const INTEGER *IPIV,
4993 const DOUBLE *WORK,
4994 INTEGER *INFO);
4995
4996 //-- dsyequb -------------------------------------------------------------------
4997 void
4998 LAPACK_DECL(dsyequb)(const char *UPLO,
4999 const INTEGER *N,
5000 const DOUBLE *A,
5001 const INTEGER *LDA,
5002 DOUBLE *S,
5003 DOUBLE *SCOND,
5004 DOUBLE *AMAX,
5005 const DOUBLE *WORK,
5006 INTEGER *INFO);
5007
5008 //-- dsyev ---------------------------------------------------------------------
5009 void
5010 LAPACK_DECL(dsyev)(const char *JOBZ,
5011 const char *UPLO,
5012 const INTEGER *N,
5013 DOUBLE *A,
5014 const INTEGER *LDA,
5015 DOUBLE *W,
5016 DOUBLE *WORK,
5017 const INTEGER *LWORK,
5018 INTEGER *INFO);
5019
5020 //-- dsyevd --------------------------------------------------------------------
5021 void
5022 LAPACK_DECL(dsyevd)(const char *JOBZ,
5023 const char *UPLO,
5024 const INTEGER *N,
5025 DOUBLE *A,
5026 const INTEGER *LDA,
5027 DOUBLE *W,
5028 DOUBLE *WORK,
5029 const INTEGER *LWORK,
5030 INTEGER *IWORK,
5031 const INTEGER *LIWORK,
5032 INTEGER *INFO);
5033
5034 //-- dsyevr --------------------------------------------------------------------
5035 void
5036 LAPACK_DECL(dsyevr)(const char *JOBZ,
5037 const char *RANGE,
5038 const char *UPLO,
5039 const INTEGER *N,
5040 DOUBLE *A,
5041 const INTEGER *LDA,
5042 const DOUBLE *VL,
5043 const DOUBLE *VU,
5044 const INTEGER *IL,
5045 const INTEGER *IU,
5046 const DOUBLE *ABSTOL,
5047 INTEGER *M,
5048 DOUBLE *W,
5049 DOUBLE *Z,
5050 const INTEGER *LDZ,
5051 INTEGER *ISUPPZ,
5052 DOUBLE *WORK,
5053 const INTEGER *LWORK,
5054 INTEGER *IWORK,
5055 const INTEGER *LIWORK,
5056 INTEGER *INFO);
5057
5058 //-- dsyevx --------------------------------------------------------------------
5059 void
5060 LAPACK_DECL(dsyevx)(const char *JOBZ,
5061 const char *RANGE,
5062 const char *UPLO,
5063 const INTEGER *N,
5064 DOUBLE *A,
5065 const INTEGER *LDA,
5066 const DOUBLE *VL,
5067 const DOUBLE *VU,
5068 const INTEGER *IL,
5069 const INTEGER *IU,
5070 const DOUBLE *ABSTOL,
5071 INTEGER *M,
5072 DOUBLE *W,
5073 DOUBLE *Z,
5074 const INTEGER *LDZ,
5075 DOUBLE *WORK,
5076 const INTEGER *LWORK,
5077 const INTEGER *IWORK,
5078 INTEGER *IFAIL,
5079 INTEGER *INFO);
5080
5081 //-- dsygs2 --------------------------------------------------------------------
5082 void
5083 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
5084 const char *UPLO,
5085 const INTEGER *N,
5086 DOUBLE *A,
5087 const INTEGER *LDA,
5088 const DOUBLE *B,
5089 const INTEGER *LDB,
5090 INTEGER *INFO);
5091
5092 //-- dsygst --------------------------------------------------------------------
5093 void
5094 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
5095 const char *UPLO,
5096 const INTEGER *N,
5097 DOUBLE *A,
5098 const INTEGER *LDA,
5099 const DOUBLE *B,
5100 const INTEGER *LDB,
5101 INTEGER *INFO);
5102
5103 //-- dsygv ---------------------------------------------------------------------
5104 void
5105 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
5106 const char *JOBZ,
5107 const char *UPLO,
5108 const INTEGER *N,
5109 DOUBLE *A,
5110 const INTEGER *LDA,
5111 DOUBLE *B,
5112 const INTEGER *LDB,
5113 DOUBLE *W,
5114 DOUBLE *WORK,
5115 const INTEGER *LWORK,
5116 INTEGER *INFO);
5117
5118 //-- dsygvd --------------------------------------------------------------------
5119 void
5120 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
5121 const char *JOBZ,
5122 const char *UPLO,
5123 const INTEGER *N,
5124 DOUBLE *A,
5125 const INTEGER *LDA,
5126 DOUBLE *B,
5127 const INTEGER *LDB,
5128 DOUBLE *W,
5129 DOUBLE *WORK,
5130 const INTEGER *LWORK,
5131 INTEGER *IWORK,
5132 const INTEGER *LIWORK,
5133 INTEGER *INFO);
5134
5135 //-- dsygvx --------------------------------------------------------------------
5136 void
5137 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
5138 const char *JOBZ,
5139 const char *RANGE,
5140 const char *UPLO,
5141 const INTEGER *N,
5142 DOUBLE *A,
5143 const INTEGER *LDA,
5144 DOUBLE *B,
5145 const INTEGER *LDB,
5146 const DOUBLE *VL,
5147 const DOUBLE *VU,
5148 const INTEGER *IL,
5149 const INTEGER *IU,
5150 const DOUBLE *ABSTOL,
5151 INTEGER *M,
5152 DOUBLE *W,
5153 DOUBLE *Z,
5154 const INTEGER *LDZ,
5155 DOUBLE *WORK,
5156 const INTEGER *LWORK,
5157 const INTEGER *IWORK,
5158 INTEGER *IFAIL,
5159 INTEGER *INFO);
5160
5161 //-- dsyrfs --------------------------------------------------------------------
5162 void
5163 LAPACK_DECL(dsyrfs)(const char *UPLO,
5164 const INTEGER *N,
5165 const INTEGER *NRHS,
5166 const DOUBLE *A,
5167 const INTEGER *LDA,
5168 const DOUBLE *AF,
5169 const INTEGER *LDAF,
5170 const INTEGER *IPIV,
5171 const DOUBLE *B,
5172 const INTEGER *LDB,
5173 DOUBLE *X,
5174 const INTEGER *LDX,
5175 DOUBLE *FERR,
5176 DOUBLE *BERR,
5177 const DOUBLE *WORK,
5178 const INTEGER *IWORK,
5179 INTEGER *INFO);
5180
5181 //-- dsysv ---------------------------------------------------------------------
5182 void
5183 LAPACK_DECL(dsysv)(const char *UPLO,
5184 const INTEGER *N,
5185 const INTEGER *NRHS,
5186 DOUBLE *A,
5187 const INTEGER *LDA,
5188 INTEGER *IPIV,
5189 DOUBLE *B,
5190 const INTEGER *LDB,
5191 DOUBLE *WORK,
5192 const INTEGER *LWORK,
5193 INTEGER *INFO);
5194
5195 //-- dsysvx --------------------------------------------------------------------
5196 void
5197 LAPACK_DECL(dsysvx)(const char *FACT,
5198 const char *UPLO,
5199 const INTEGER *N,
5200 const INTEGER *NRHS,
5201 const DOUBLE *A,
5202 const INTEGER *LDA,
5203 DOUBLE *AF,
5204 const INTEGER *LDAF,
5205 INTEGER *IPIV,
5206 const DOUBLE *B,
5207 const INTEGER *LDB,
5208 DOUBLE *X,
5209 const INTEGER *LDX,
5210 DOUBLE *RCOND,
5211 DOUBLE *FERR,
5212 DOUBLE *BERR,
5213 DOUBLE *WORK,
5214 const INTEGER *LWORK,
5215 const INTEGER *IWORK,
5216 INTEGER *INFO);
5217
5218 //-- dsyswapr ------------------------------------------------------------------
5219 void
5220 LAPACK_DECL(dsyswapr)(const char *UPLO,
5221 const INTEGER *N,
5222 DOUBLE *A,
5223 const INTEGER *LDA,
5224 const INTEGER *I1,
5225 const INTEGER *I2);
5226
5227 //-- dsytd2 --------------------------------------------------------------------
5228 void
5229 LAPACK_DECL(dsytd2)(const char *UPLO,
5230 const INTEGER *N,
5231 DOUBLE *A,
5232 const INTEGER *LDA,
5233 DOUBLE *D,
5234 DOUBLE *E,
5235 DOUBLE *TAU,
5236 INTEGER *INFO);
5237
5238 //-- dsytf2 --------------------------------------------------------------------
5239 void
5240 LAPACK_DECL(dsytf2)(const char *UPLO,
5241 const INTEGER *N,
5242 DOUBLE *A,
5243 const INTEGER *LDA,
5244 INTEGER *IPIV,
5245 INTEGER *INFO);
5246
5247 //-- dsytrd --------------------------------------------------------------------
5248 void
5249 LAPACK_DECL(dsytrd)(const char *UPLO,
5250 const INTEGER *N,
5251 DOUBLE *A,
5252 const INTEGER *LDA,
5253 DOUBLE *D,
5254 DOUBLE *E,
5255 DOUBLE *TAU,
5256 DOUBLE *WORK,
5257 const INTEGER *LWORK,
5258 INTEGER *INFO);
5259
5260 //-- dsytrf --------------------------------------------------------------------
5261 void
5262 LAPACK_DECL(dsytrf)(const char *UPLO,
5263 const INTEGER *N,
5264 DOUBLE *A,
5265 const INTEGER *LDA,
5266 INTEGER *IPIV,
5267 DOUBLE *WORK,
5268 const INTEGER *LWORK,
5269 INTEGER *INFO);
5270
5271 //-- dsytri --------------------------------------------------------------------
5272 void
5273 LAPACK_DECL(dsytri)(const char *UPLO,
5274 const INTEGER *N,
5275 DOUBLE *A,
5276 const INTEGER *LDA,
5277 const INTEGER *IPIV,
5278 const DOUBLE *WORK,
5279 INTEGER *INFO);
5280
5281 //-- dsytri2 -------------------------------------------------------------------
5282 void
5283 LAPACK_DECL(dsytri2)(const char *UPLO,
5284 const INTEGER *N,
5285 DOUBLE *A,
5286 const INTEGER *LDA,
5287 const INTEGER *IPIV,
5288 const DOUBLE *WORK,
5289 const INTEGER *LWORK,
5290 INTEGER *INFO);
5291
5292 //-- dsytri2x ------------------------------------------------------------------
5293 void
5294 LAPACK_DECL(dsytri2x)(const char *UPLO,
5295 const INTEGER *N,
5296 DOUBLE *A,
5297 const INTEGER *LDA,
5298 const INTEGER *IPIV,
5299 const DOUBLE *WORK,
5300 const INTEGER *NB,
5301 INTEGER *INFO);
5302
5303 //-- dsytrs --------------------------------------------------------------------
5304 void
5305 LAPACK_DECL(dsytrs)(const char *UPLO,
5306 const INTEGER *N,
5307 const INTEGER *NRHS,
5308 const DOUBLE *A,
5309 const INTEGER *LDA,
5310 const INTEGER *IPIV,
5311 DOUBLE *B,
5312 const INTEGER *LDB,
5313 INTEGER *INFO);
5314
5315 //-- dsytrs2 -------------------------------------------------------------------
5316 void
5317 LAPACK_DECL(dsytrs2)(const char *UPLO,
5318 const INTEGER *N,
5319 const INTEGER *NRHS,
5320 const DOUBLE *A,
5321 const INTEGER *LDA,
5322 const INTEGER *IPIV,
5323 DOUBLE *B,
5324 const INTEGER *LDB,
5325 const DOUBLE *WORK,
5326 INTEGER *INFO);
5327
5328 //-- dtbcon --------------------------------------------------------------------
5329 void
5330 LAPACK_DECL(dtbcon)(const char *NORM,
5331 const char *UPLO,
5332 const char *DIAG,
5333 const INTEGER *N,
5334 const INTEGER *KD,
5335 const DOUBLE *AB,
5336 const INTEGER *LDAB,
5337 DOUBLE *RCOND,
5338 const DOUBLE *WORK,
5339 const INTEGER *IWORK,
5340 INTEGER *INFO);
5341
5342 //-- dtbrfs --------------------------------------------------------------------
5343 void
5344 LAPACK_DECL(dtbrfs)(const char *UPLO,
5345 const char *TRANS,
5346 const char *DIAG,
5347 const INTEGER *N,
5348 const INTEGER *KD,
5349 const INTEGER *NRHS,
5350 const DOUBLE *AB,
5351 const INTEGER *LDAB,
5352 const DOUBLE *B,
5353 const INTEGER *LDB,
5354 const DOUBLE *X,
5355 const INTEGER *LDX,
5356 DOUBLE *FERR,
5357 DOUBLE *BERR,
5358 const DOUBLE *WORK,
5359 const INTEGER *IWORK,
5360 INTEGER *INFO);
5361
5362 //-- dtbtrs --------------------------------------------------------------------
5363 void
5364 LAPACK_DECL(dtbtrs)(const char *UPLO,
5365 const char *TRANS,
5366 const char *DIAG,
5367 const INTEGER *N,
5368 const INTEGER *KD,
5369 const INTEGER *NRHS,
5370 const DOUBLE *AB,
5371 const INTEGER *LDAB,
5372 DOUBLE *B,
5373 const INTEGER *LDB,
5374 INTEGER *INFO);
5375
5376 //-- dtfsm ---------------------------------------------------------------------
5377 void
5378 LAPACK_DECL(dtfsm)(const char *TRANSR,
5379 const char *SIDE,
5380 const char *UPLO,
5381 const char *TRANS,
5382 const char *DIAG,
5383 const INTEGER *M,
5384 const INTEGER *N,
5385 const DOUBLE *ALPHA,
5386 const DOUBLE *A,
5387 DOUBLE *B,
5388 const INTEGER *LDB);
5389
5390 //-- dtftri --------------------------------------------------------------------
5391 void
5392 LAPACK_DECL(dtftri)(const char *TRANSR,
5393 const char *UPLO,
5394 const char *DIAG,
5395 const INTEGER *N,
5396 DOUBLE *A,
5397 INTEGER *INFO);
5398
5399 //-- dtfttp --------------------------------------------------------------------
5400 void
5401 LAPACK_DECL(dtfttp)(const char *TRANSR,
5402 const char *UPLO,
5403 const INTEGER *N,
5404 const DOUBLE *ARF,
5405 DOUBLE *AP,
5406 INTEGER *INFO);
5407
5408 //-- dtfttr --------------------------------------------------------------------
5409 void
5410 LAPACK_DECL(dtfttr)(const char *TRANSR,
5411 const char *UPLO,
5412 const INTEGER *N,
5413 const DOUBLE *ARF,
5414 DOUBLE *A,
5415 const INTEGER *LDA,
5416 INTEGER *INFO);
5417
5418 //-- dtgevc --------------------------------------------------------------------
5419 void
5420 LAPACK_DECL(dtgevc)(const char *SIDE,
5421 const char *HOWMNY,
5422 const LOGICAL *SELECT,
5423 const INTEGER *N,
5424 const DOUBLE *S,
5425 const INTEGER *LDS,
5426 const DOUBLE *P,
5427 const INTEGER *LDP,
5428 DOUBLE *VL,
5429 const INTEGER *LDVL,
5430 DOUBLE *VR,
5431 const INTEGER *LDVR,
5432 const INTEGER *MM,
5433 INTEGER *M,
5434 const DOUBLE *WORK,
5435 INTEGER *INFO);
5436
5437 //-- dtgex2 --------------------------------------------------------------------
5438 void
5439 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
5440 const LOGICAL *WANTZ,
5441 const INTEGER *N,
5442 DOUBLE *A,
5443 const INTEGER *LDA,
5444 DOUBLE *B,
5445 const INTEGER *LDB,
5446 DOUBLE *Q,
5447 const INTEGER *LDQ,
5448 DOUBLE *Z,
5449 const INTEGER *LDZ,
5450 const INTEGER *J1,
5451 const INTEGER *N1,
5452 const INTEGER *N2,
5453 const DOUBLE *WORK,
5454 const INTEGER *LWORK,
5455 INTEGER *INFO);
5456
5457 //-- dtgexc --------------------------------------------------------------------
5458 void
5459 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
5460 const LOGICAL *WANTZ,
5461 const INTEGER *N,
5462 DOUBLE *A,
5463 const INTEGER *LDA,
5464 DOUBLE *B,
5465 const INTEGER *LDB,
5466 DOUBLE *Q,
5467 const INTEGER *LDQ,
5468 DOUBLE *Z,
5469 const INTEGER *LDZ,
5470 INTEGER *IFST,
5471 INTEGER *ILST,
5472 DOUBLE *WORK,
5473 const INTEGER *LWORK,
5474 INTEGER *INFO);
5475
5476 //-- dtgsen --------------------------------------------------------------------
5477 void
5478 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
5479 const LOGICAL *WANTQ,
5480 const LOGICAL *WANTZ,
5481 const LOGICAL *SELECT,
5482 const INTEGER *N,
5483 DOUBLE *A,
5484 const INTEGER *LDA,
5485 DOUBLE *B,
5486 const INTEGER *LDB,
5487 DOUBLE *ALPHAR,
5488 DOUBLE *ALPHAI,
5489 DOUBLE *BETA,
5490 DOUBLE *Q,
5491 const INTEGER *LDQ,
5492 DOUBLE *Z,
5493 const INTEGER *LDZ,
5494 INTEGER *M,
5495 DOUBLE *PL,
5496 DOUBLE *PR,
5497 DOUBLE *DIF,
5498 DOUBLE *WORK,
5499 const INTEGER *LWORK,
5500 INTEGER *IWORK,
5501 const INTEGER *LIWORK,
5502 INTEGER *INFO);
5503
5504 //-- dtgsja --------------------------------------------------------------------
5505 void
5506 LAPACK_DECL(dtgsja)(const char *JOBU,
5507 const char *JOBV,
5508 const char *JOBQ,
5509 const INTEGER *M,
5510 const INTEGER *P,
5511 const INTEGER *N,
5512 const INTEGER *K,
5513 const INTEGER *L,
5514 DOUBLE *A,
5515 const INTEGER *LDA,
5516 DOUBLE *B,
5517 const INTEGER *LDB,
5518 const DOUBLE *TOLA,
5519 const DOUBLE *TOLB,
5520 DOUBLE *ALPHA,
5521 DOUBLE *BETA,
5522 DOUBLE *U,
5523 const INTEGER *LDU,
5524 DOUBLE *V,
5525 const INTEGER *LDV,
5526 DOUBLE *Q,
5527 const INTEGER *LDQ,
5528 const DOUBLE *WORK,
5529 INTEGER *NCYCLE,
5530 INTEGER *INFO);
5531
5532 //-- dtgsna --------------------------------------------------------------------
5533 void
5534 LAPACK_DECL(dtgsna)(const char *JOB,
5535 const char *HOWMNY,
5536 const LOGICAL *SELECT,
5537 const INTEGER *N,
5538 const DOUBLE *A,
5539 const INTEGER *LDA,
5540 const DOUBLE *B,
5541 const INTEGER *LDB,
5542 const DOUBLE *VL,
5543 const INTEGER *LDVL,
5544 const DOUBLE *VR,
5545 const INTEGER *LDVR,
5546 DOUBLE *S,
5547 DOUBLE *DIF,
5548 const INTEGER *MM,
5549 INTEGER *M,
5550 DOUBLE *WORK,
5551 const INTEGER *LWORK,
5552 const INTEGER *IWORK,
5553 INTEGER *INFO);
5554
5555 //-- dtgsy2 --------------------------------------------------------------------
5556 void
5557 LAPACK_DECL(dtgsy2)(const char *TRANS,
5558 const INTEGER *IJOB,
5559 const INTEGER *M,
5560 const INTEGER *N,
5561 const DOUBLE *A,
5562 const INTEGER *LDA,
5563 const DOUBLE *B,
5564 const INTEGER *LDB,
5565 DOUBLE *C,
5566 const INTEGER *LDC,
5567 const DOUBLE *D,
5568 const INTEGER *LDD,
5569 const DOUBLE *E,
5570 const INTEGER *LDE,
5571 DOUBLE *F,
5572 const INTEGER *LDF,
5573 DOUBLE *SCALE,
5574 DOUBLE *RDSUM,
5575 DOUBLE *RDSCAL,
5576 const INTEGER *IWORK,
5577 INTEGER *PQ,
5578 INTEGER *INFO);
5579
5580 //-- dtgsyl --------------------------------------------------------------------
5581 void
5582 LAPACK_DECL(dtgsyl)(const char *TRANS,
5583 const INTEGER *IJOB,
5584 const INTEGER *M,
5585 const INTEGER *N,
5586 const DOUBLE *A,
5587 const INTEGER *LDA,
5588 const DOUBLE *B,
5589 const INTEGER *LDB,
5590 DOUBLE *C,
5591 const INTEGER *LDC,
5592 const DOUBLE *D,
5593 const INTEGER *LDD,
5594 const DOUBLE *E,
5595 const INTEGER *LDE,
5596 DOUBLE *F,
5597 const INTEGER *LDF,
5598 DOUBLE *SCALE,
5599 DOUBLE *DIF,
5600 DOUBLE *WORK,
5601 const INTEGER *LWORK,
5602 const INTEGER *IWORK,
5603 INTEGER *INFO);
5604
5605 //-- dtpcon --------------------------------------------------------------------
5606 void
5607 LAPACK_DECL(dtpcon)(const char *NORM,
5608 const char *UPLO,
5609 const char *DIAG,
5610 const INTEGER *N,
5611 const DOUBLE *AP,
5612 DOUBLE *RCOND,
5613 const DOUBLE *WORK,
5614 const INTEGER *IWORK,
5615 INTEGER *INFO);
5616
5617 //-- dtprfs --------------------------------------------------------------------
5618 void
5619 LAPACK_DECL(dtprfs)(const char *UPLO,
5620 const char *TRANS,
5621 const char *DIAG,
5622 const INTEGER *N,
5623 const INTEGER *NRHS,
5624 const DOUBLE *AP,
5625 const DOUBLE *B,
5626 const INTEGER *LDB,
5627 const DOUBLE *X,
5628 const INTEGER *LDX,
5629 DOUBLE *FERR,
5630 DOUBLE *BERR,
5631 const DOUBLE *WORK,
5632 const INTEGER *IWORK,
5633 INTEGER *INFO);
5634
5635 //-- dtptri --------------------------------------------------------------------
5636 void
5637 LAPACK_DECL(dtptri)(const char *UPLO,
5638 const char *DIAG,
5639 const INTEGER *N,
5640 DOUBLE *AP,
5641 INTEGER *INFO);
5642
5643 //-- dtptrs --------------------------------------------------------------------
5644 void
5645 LAPACK_DECL(dtptrs)(const char *UPLO,
5646 const char *TRANS,
5647 const char *DIAG,
5648 const INTEGER *N,
5649 const INTEGER *NRHS,
5650 const DOUBLE *AP,
5651 DOUBLE *B,
5652 const INTEGER *LDB,
5653 INTEGER *INFO);
5654
5655 //-- dtpttf --------------------------------------------------------------------
5656 void
5657 LAPACK_DECL(dtpttf)(const char *TRANSR,
5658 const char *UPLO,
5659 const INTEGER *N,
5660 const DOUBLE *AP,
5661 DOUBLE *ARF,
5662 INTEGER *INFO);
5663
5664 //-- dtpttr --------------------------------------------------------------------
5665 void
5666 LAPACK_DECL(dtpttr)(const char *UPLO,
5667 const INTEGER *N,
5668 const DOUBLE *AP,
5669 DOUBLE *A,
5670 const INTEGER *LDA,
5671 INTEGER *INFO);
5672
5673 //-- dtrcon --------------------------------------------------------------------
5674 void
5675 LAPACK_DECL(dtrcon)(const char *NORM,
5676 const char *UPLO,
5677 const char *DIAG,
5678 const INTEGER *N,
5679 const DOUBLE *A,
5680 const INTEGER *LDA,
5681 DOUBLE *RCOND,
5682 const DOUBLE *WORK,
5683 const INTEGER *IWORK,
5684 INTEGER *INFO);
5685
5686 //-- dtrevc --------------------------------------------------------------------
5687 void
5688 LAPACK_DECL(dtrevc)(const char *SIDE,
5689 const char *HOWMNY,
5690 LOGICAL *SELECT,
5691 const INTEGER *N,
5692 const DOUBLE *T,
5693 const INTEGER *LDT,
5694 DOUBLE *VL,
5695 const INTEGER *LDVL,
5696 DOUBLE *VR,
5697 const INTEGER *LDVR,
5698 const INTEGER *MM,
5699 INTEGER *M,
5700 const DOUBLE *WORK,
5701 INTEGER *INFO);
5702
5703 //-- dtrexc --------------------------------------------------------------------
5704 void
5705 LAPACK_DECL(dtrexc)(const char *COMPQ,
5706 const INTEGER *N,
5707 DOUBLE *T,
5708 const INTEGER *LDT,
5709 DOUBLE *Q,
5710 const INTEGER *LDQ,
5711 INTEGER *IFST,
5712 INTEGER *ILST,
5713 const DOUBLE *WORK,
5714 INTEGER *INFO);
5715
5716 //-- dtrrfs --------------------------------------------------------------------
5717 void
5718 LAPACK_DECL(dtrrfs)(const char *UPLO,
5719 const char *TRANS,
5720 const char *DIAG,
5721 const INTEGER *N,
5722 const INTEGER *NRHS,
5723 const DOUBLE *A,
5724 const INTEGER *LDA,
5725 const DOUBLE *B,
5726 const INTEGER *LDB,
5727 const DOUBLE *X,
5728 const INTEGER *LDX,
5729 DOUBLE *FERR,
5730 DOUBLE *BERR,
5731 const DOUBLE *WORK,
5732 const INTEGER *IWORK,
5733 INTEGER *INFO);
5734
5735 //-- dtrsen --------------------------------------------------------------------
5736 void
5737 LAPACK_DECL(dtrsen)(const char *JOB,
5738 const char *COMPQ,
5739 const LOGICAL *SELECT,
5740 const INTEGER *N,
5741 DOUBLE *T,
5742 const INTEGER *LDT,
5743 DOUBLE *Q,
5744 const INTEGER *LDQ,
5745 DOUBLE *WR,
5746 DOUBLE *WI,
5747 INTEGER *M,
5748 DOUBLE *S,
5749 DOUBLE *SEP,
5750 DOUBLE *WORK,
5751 const INTEGER *LWORK,
5752 const INTEGER *IWORK,
5753 const INTEGER *LIWORK,
5754 INTEGER *INFO);
5755
5756 //-- dtrsna --------------------------------------------------------------------
5757 void
5758 LAPACK_DECL(dtrsna)(const char *JOB,
5759 const char *HOWMNY,
5760 const LOGICAL *SELECT,
5761 const INTEGER *N,
5762 const DOUBLE *T,
5763 const INTEGER *LDT,
5764 const DOUBLE *VL,
5765 const INTEGER *LDVL,
5766 const DOUBLE *VR,
5767 const INTEGER *LDVR,
5768 DOUBLE *S,
5769 DOUBLE *SEP,
5770 const INTEGER *MM,
5771 INTEGER *M,
5772 const DOUBLE *WORK,
5773 const INTEGER *LDWORK,
5774 const INTEGER *IWORK,
5775 INTEGER *INFO);
5776
5777 //-- dtrsyl --------------------------------------------------------------------
5778 void
5779 LAPACK_DECL(dtrsyl)(const char *TRANA,
5780 const char *TRANB,
5781 const INTEGER *ISGN,
5782 const INTEGER *M,
5783 const INTEGER *N,
5784 const DOUBLE *A,
5785 const INTEGER *LDA,
5786 const DOUBLE *B,
5787 const INTEGER *LDB,
5788 DOUBLE *C,
5789 const INTEGER *LDC,
5790 DOUBLE *SCALE,
5791 INTEGER *INFO);
5792
5793 //-- dtrti2 --------------------------------------------------------------------
5794 void
5795 LAPACK_DECL(dtrti2)(const char *UPLO,
5796 const char *DIAG,
5797 const INTEGER *N,
5798 DOUBLE *A,
5799 const INTEGER *LDA,
5800 INTEGER *INFO);
5801
5802 //-- dtrtri --------------------------------------------------------------------
5803 void
5804 LAPACK_DECL(dtrtri)(const char *UPLO,
5805 const char *DIAG,
5806 const INTEGER *N,
5807 DOUBLE *A,
5808 const INTEGER *LDA,
5809 INTEGER *INFO);
5810
5811 //-- dtrtrs --------------------------------------------------------------------
5812 void
5813 LAPACK_DECL(dtrtrs)(const char *UPLO,
5814 const char *TRANS,
5815 const char *DIAG,
5816 const INTEGER *N,
5817 const INTEGER *NRHS,
5818 const DOUBLE *A,
5819 const INTEGER *LDA,
5820 DOUBLE *B,
5821 const INTEGER *LDB,
5822 INTEGER *INFO);
5823
5824 //-- dtrttf --------------------------------------------------------------------
5825 void
5826 LAPACK_DECL(dtrttf)(const char *TRANSR,
5827 const char *UPLO,
5828 const INTEGER *N,
5829 const DOUBLE *A,
5830 const INTEGER *LDA,
5831 DOUBLE *ARF,
5832 INTEGER *INFO);
5833
5834 //-- dtrttp --------------------------------------------------------------------
5835 void
5836 LAPACK_DECL(dtrttp)(const char *UPLO,
5837 const INTEGER *N,
5838 const DOUBLE *A,
5839 const INTEGER *LDA,
5840 DOUBLE *AP,
5841 INTEGER *INFO);
5842
5843 //-- dtzrqf --------------------------------------------------------------------
5844 void
5845 LAPACK_DECL(dtzrqf)(const INTEGER *M,
5846 const INTEGER *N,
5847 DOUBLE *A,
5848 const INTEGER *LDA,
5849 DOUBLE *TAU,
5850 INTEGER *INFO);
5851
5852 //-- dtzrzf --------------------------------------------------------------------
5853 void
5854 LAPACK_DECL(dtzrzf)(const INTEGER *M,
5855 const INTEGER *N,
5856 DOUBLE *A,
5857 const INTEGER *LDA,
5858 DOUBLE *TAU,
5859 DOUBLE *WORK,
5860 const INTEGER *LWORK,
5861 INTEGER *INFO);
5862
5863 //-- dzsum1 --------------------------------------------------------------------
5864 DOUBLE
5865 LAPACK_DECL(dzsum1)(const INTEGER *N,
5866 const DOUBLE_COMPLEX *CX,
5867 const INTEGER *INCX);
5868
5869 //-- ieeeck --------------------------------------------------------------------
5870 INTEGER
5871 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
5872 const FLOAT *ZERO,
5873 const FLOAT *ONE);
5874
5875 //-- iladlc --------------------------------------------------------------------
5876 INTEGER
5877 LAPACK_DECL(iladlc)(const INTEGER *M,
5878 const INTEGER *N,
5879 const DOUBLE *A,
5880 const INTEGER *LDA);
5881
5882 //-- iladlr --------------------------------------------------------------------
5883 INTEGER
5884 LAPACK_DECL(iladlr)(const INTEGER *M,
5885 const INTEGER *N,
5886 const DOUBLE *A,
5887 const INTEGER *LDA);
5888
5889 //-- ilaslc --------------------------------------------------------------------
5890 INTEGER
5891 LAPACK_DECL(ilaslc)(const INTEGER *M,
5892 const INTEGER *N,
5893 const FLOAT *A,
5894 const INTEGER *LDA);
5895
5896 //-- ilaslr --------------------------------------------------------------------
5897 INTEGER
5898 LAPACK_DECL(ilaslr)(const INTEGER *M,
5899 const INTEGER *N,
5900 const FLOAT *A,
5901 const INTEGER *LDA);
5902
5903 //-- ilatrans ------------------------------------------------------------------
5904 INTEGER
5905 LAPACK_DECL(ilatrans)(const char *TRANS);
5906
5907 //-- ilauplo -------------------------------------------------------------------
5908 INTEGER
5909 LAPACK_DECL(ilauplo)(const char *UPLO);
5910
5911 // warning: VERS_MAJOR has unknown type
5912 // warning: VERS_MINOR has unknown type
5913 // warning: VERS_PATCH has unknown type
5914 //-- ilaver --------------------------------------------------------------------
5915 void
5916 LAPACK_DECL(ilaver)(INTEGER *VERS_MAJOR,
5917 INTEGER *VERS_MINOR,
5918 INTEGER *VERS_PATCH);
5919
5920 // warning: NAME has unknown type
5921 // warning: OPTS has unknown type
5922 //-- iparmq --------------------------------------------------------------------
5923 INTEGER
5924 LAPACK_DECL(iparmq)(const INTEGER *ISPEC,
5925 UNKNOWN *NAME,
5926 UNKNOWN *OPTS,
5927 const INTEGER *N,
5928 const INTEGER *ILO,
5929 const INTEGER *IHI,
5930 const INTEGER *LWORK);
5931
5932 //-- lsame ---------------------------------------------------------------------
5933 LOGICAL
5934 LAPACK_DECL(lsame)(const char *CA,
5935 const char *CB);
5936
5937 //-- lsamen --------------------------------------------------------------------
5938 LOGICAL
5939 LAPACK_DECL(lsamen)(const INTEGER *N,
5940 const char *CA,
5941 const char *CB);
5942
5943 //-- sgetf2 --------------------------------------------------------------------
5944 void
5945 LAPACK_DECL(sgetf2)(const INTEGER *M,
5946 const INTEGER *N,
5947 FLOAT *A,
5948 const INTEGER *LDA,
5949 INTEGER *IPIV,
5950 INTEGER *INFO);
5951
5952 //-- sgetrf --------------------------------------------------------------------
5953 void
5954 LAPACK_DECL(sgetrf)(const INTEGER *M,
5955 const INTEGER *N,
5956 FLOAT *A,
5957 const INTEGER *LDA,
5958 INTEGER *IPIV,
5959 INTEGER *INFO);
5960
5961 //-- sgetrs --------------------------------------------------------------------
5962 void
5963 LAPACK_DECL(sgetrs)(const char *TRANS,
5964 const INTEGER *N,
5965 const INTEGER *NRHS,
5966 const FLOAT *A,
5967 const INTEGER *LDA,
5968 const INTEGER *IPIV,
5969 FLOAT *B,
5970 const INTEGER *LDB,
5971 INTEGER *INFO);
5972
5973 //-- sisnan --------------------------------------------------------------------
5974 LOGICAL
5975 LAPACK_DECL(sisnan)(const FLOAT *SIN);
5976
5977 //-- slag2d --------------------------------------------------------------------
5978 void
5979 LAPACK_DECL(slag2d)(const INTEGER *M,
5980 const INTEGER *N,
5981 const FLOAT *SA,
5982 const INTEGER *LDSA,
5983 DOUBLE *A,
5984 const INTEGER *LDA,
5985 INTEGER *INFO);
5986
5987 //-- slaisnan ------------------------------------------------------------------
5988 LOGICAL
5989 LAPACK_DECL(slaisnan)(const FLOAT *SIN1,
5990 const FLOAT *SIN2);
5991
5992 //-- slamch --------------------------------------------------------------------
5993 FLOAT
5994 LAPACK_DECL(slamch)(const char *CMACH);
5995
5996 //-- slaswp --------------------------------------------------------------------
5997 void
5998 LAPACK_DECL(slaswp)(const INTEGER *N,
5999 FLOAT *A,
6000 const INTEGER *LDA,
6001 const INTEGER *K1,
6002 const INTEGER *K2,
6003 const INTEGER *IPIV,
6004 const INTEGER *INCX);
6005
6006 //-- spotf2 --------------------------------------------------------------------
6007 void
6008 LAPACK_DECL(spotf2)(const char *UPLO,
6009 const INTEGER *N,
6010 FLOAT *A,
6011 const INTEGER *LDA,
6012 INTEGER *INFO);
6013
6014 //-- spotrf --------------------------------------------------------------------
6015 void
6016 LAPACK_DECL(spotrf)(const char *UPLO,
6017 const INTEGER *N,
6018 FLOAT *A,
6019 const INTEGER *LDA,
6020 INTEGER *INFO);
6021
6022 //-- spotrs --------------------------------------------------------------------
6023 void
6024 LAPACK_DECL(spotrs)(const char *UPLO,
6025 const INTEGER *N,
6026 const INTEGER *NRHS,
6027 const FLOAT *A,
6028 const INTEGER *LDA,
6029 FLOAT *B,
6030 const INTEGER *LDB,
6031 INTEGER *INFO);
6032
2 #define INTEGER int
3 #endif
4
5 #ifndef FLOAT
6 #define FLOAT float
7 #endif
8
9 #ifndef DOUBLE
10 #define DOUBLE double
11 #endif
12
13 #ifndef DOUBLE_COMPLEX
14 #define DOUBLE_COMPLEX double
15 #endif
16
17 #ifndef LOGICAL
18 #define LOGICAL int
19 #endif
20
21 #ifndef UNKNOWN
22 #define UNKNOWN void
23 #endif
24
25 //-- dbbcsd --------------------------------------------------------------------
26 void
27 LAPACK_DECL(dbbcsd)(const char *JOBU1,
28 const char *JOBU2,
29 const char *JOBV1T,
30 const char *JOBV2T,
31 const char *TRANS,
32 const INTEGER *M,
33 const INTEGER *P,
34 const INTEGER *Q,
35 DOUBLE *THETA,
36 const DOUBLE *PHI,
37 DOUBLE *U1,
38 const INTEGER *LDU1,
39 DOUBLE *U2,
40 const INTEGER *LDU2,
41 DOUBLE *V1T,
42 const INTEGER *LDV1T,
43 DOUBLE *V2T,
44 const INTEGER *LDV2T,
45 DOUBLE *B11D,
46 DOUBLE *B11E,
47 DOUBLE *B12D,
48 DOUBLE *B12E,
49 const DOUBLE *B21D,
50 const DOUBLE *B21E,
51 const DOUBLE *B22D,
52 const DOUBLE *B22E,
53 const DOUBLE *WORK,
54 const INTEGER *LWORK,
55 INTEGER *INFO);
56
57 //-- dbdsdc --------------------------------------------------------------------
58 void
59 LAPACK_DECL(dbdsdc)(const char *UPLO,
60 const char *COMPQ,
61 const INTEGER *N,
62 DOUBLE *D,
63 DOUBLE *E,
64 DOUBLE *U,
65 const INTEGER *LDU,
66 DOUBLE *VT,
67 const INTEGER *LDVT,
68 DOUBLE *Q,
69 INTEGER *IQ,
70 const DOUBLE *WORK,
71 const INTEGER *IWORK,
72 INTEGER *INFO);
73
74 //-- dbdsqr --------------------------------------------------------------------
75 void
76 LAPACK_DECL(dbdsqr)(const char *UPLO,
77 const INTEGER *N,
78 const INTEGER *NCVT,
79 const INTEGER *NRU,
80 const INTEGER *NCC,
81 DOUBLE *D,
82 DOUBLE *E,
83 DOUBLE *VT,
84 const INTEGER *LDVT,
85 DOUBLE *U,
86 const INTEGER *LDU,
87 DOUBLE *C,
88 const INTEGER *LDC,
89 const DOUBLE *WORK,
90 INTEGER *INFO);
91
92 //-- ddisna --------------------------------------------------------------------
93 void
94 LAPACK_DECL(ddisna)(const char *JOB,
95 const INTEGER *M,
96 const INTEGER *N,
97 const DOUBLE *D,
98 DOUBLE *SEP,
99 INTEGER *INFO);
100
101 //-- dgbbrd --------------------------------------------------------------------
102 void
103 LAPACK_DECL(dgbbrd)(const char *VECT,
104 const INTEGER *M,
105 const INTEGER *N,
106 const INTEGER *NCC,
107 const INTEGER *KL,
108 const INTEGER *KU,
109 DOUBLE *AB,
110 const INTEGER *LDAB,
111 DOUBLE *D,
112 DOUBLE *E,
113 DOUBLE *Q,
114 const INTEGER *LDQ,
115 DOUBLE *PT,
116 const INTEGER *LDPT,
117 DOUBLE *C,
118 const INTEGER *LDC,
119 const DOUBLE *WORK,
120 INTEGER *INFO);
121
122 //-- dgbcon --------------------------------------------------------------------
123 void
124 LAPACK_DECL(dgbcon)(const char *NORM,
125 const INTEGER *N,
126 const INTEGER *KL,
127 const INTEGER *KU,
128 const DOUBLE *AB,
129 const INTEGER *LDAB,
130 const INTEGER *IPIV,
131 const DOUBLE *ANORM,
132 DOUBLE *RCOND,
133 const DOUBLE *WORK,
134 const INTEGER *IWORK,
135 INTEGER *INFO);
136
137 //-- dgbequ --------------------------------------------------------------------
138 void
139 LAPACK_DECL(dgbequ)(const INTEGER *M,
140 const INTEGER *N,
141 const INTEGER *KL,
142 const INTEGER *KU,
143 const DOUBLE *AB,
144 const INTEGER *LDAB,
145 DOUBLE *R,
146 DOUBLE *C,
147 DOUBLE *ROWCND,
148 DOUBLE *COLCND,
149 DOUBLE *AMAX,
150 INTEGER *INFO);
151
152 //-- dgbequb -------------------------------------------------------------------
153 void
154 LAPACK_DECL(dgbequb)(const INTEGER *M,
155 const INTEGER *N,
156 const INTEGER *KL,
157 const INTEGER *KU,
158 const DOUBLE *AB,
159 const INTEGER *LDAB,
160 DOUBLE *R,
161 DOUBLE *C,
162 DOUBLE *ROWCND,
163 DOUBLE *COLCND,
164 DOUBLE *AMAX,
165 INTEGER *INFO);
166
167 //-- dgbrfs --------------------------------------------------------------------
168 void
169 LAPACK_DECL(dgbrfs)(const char *TRANS,
170 const INTEGER *N,
171 const INTEGER *KL,
172 const INTEGER *KU,
173 const INTEGER *NRHS,
174 const DOUBLE *AB,
175 const INTEGER *LDAB,
176 const DOUBLE *AFB,
177 const INTEGER *LDAFB,
178 const INTEGER *IPIV,
179 const DOUBLE *B,
180 const INTEGER *LDB,
181 DOUBLE *X,
182 const INTEGER *LDX,
183 DOUBLE *FERR,
184 DOUBLE *BERR,
185 const DOUBLE *WORK,
186 const INTEGER *IWORK,
187 INTEGER *INFO);
188
189 //-- dgbsv ---------------------------------------------------------------------
190 void
191 LAPACK_DECL(dgbsv)(const INTEGER *N,
192 const INTEGER *KL,
193 const INTEGER *KU,
194 const INTEGER *NRHS,
195 DOUBLE *AB,
196 const INTEGER *LDAB,
197 INTEGER *IPIV,
198 DOUBLE *B,
199 const INTEGER *LDB,
200 INTEGER *INFO);
201
202 //-- dgbsvx --------------------------------------------------------------------
203 void
204 LAPACK_DECL(dgbsvx)(const char *FACT,
205 const char *TRANS,
206 const INTEGER *N,
207 const INTEGER *KL,
208 const INTEGER *KU,
209 const INTEGER *NRHS,
210 DOUBLE *AB,
211 const INTEGER *LDAB,
212 DOUBLE *AFB,
213 const INTEGER *LDAFB,
214 INTEGER *IPIV,
215 char *EQUED,
216 DOUBLE *R,
217 DOUBLE *C,
218 DOUBLE *B,
219 const INTEGER *LDB,
220 DOUBLE *X,
221 const INTEGER *LDX,
222 DOUBLE *RCOND,
223 DOUBLE *FERR,
224 DOUBLE *BERR,
225 DOUBLE *WORK,
226 const INTEGER *IWORK,
227 INTEGER *INFO);
228
229 //-- dgbtf2 --------------------------------------------------------------------
230 void
231 LAPACK_DECL(dgbtf2)(const INTEGER *M,
232 const INTEGER *N,
233 const INTEGER *KL,
234 const INTEGER *KU,
235 DOUBLE *AB,
236 const INTEGER *LDAB,
237 INTEGER *IPIV,
238 INTEGER *INFO);
239
240 //-- dgbtrf --------------------------------------------------------------------
241 void
242 LAPACK_DECL(dgbtrf)(const INTEGER *M,
243 const INTEGER *N,
244 const INTEGER *KL,
245 const INTEGER *KU,
246 DOUBLE *AB,
247 const INTEGER *LDAB,
248 INTEGER *IPIV,
249 INTEGER *INFO);
250
251 //-- dgbtrs --------------------------------------------------------------------
252 void
253 LAPACK_DECL(dgbtrs)(const char *TRANS,
254 const INTEGER *N,
255 const INTEGER *KL,
256 const INTEGER *KU,
257 const INTEGER *NRHS,
258 const DOUBLE *AB,
259 const INTEGER *LDAB,
260 const INTEGER *IPIV,
261 DOUBLE *B,
262 const INTEGER *LDB,
263 INTEGER *INFO);
264
265 //-- dgebak --------------------------------------------------------------------
266 void
267 LAPACK_DECL(dgebak)(const char *JOB,
268 const char *SIDE,
269 const INTEGER *N,
270 const INTEGER *ILO,
271 const INTEGER *IHI,
272 const DOUBLE *SCALE,
273 const INTEGER *M,
274 DOUBLE *V,
275 const INTEGER *LDV,
276 INTEGER *INFO);
277
278 //-- dgebal --------------------------------------------------------------------
279 void
280 LAPACK_DECL(dgebal)(const char *JOB,
281 const INTEGER *N,
282 DOUBLE *A,
283 const INTEGER *LDA,
284 INTEGER *ILO,
285 INTEGER *IHI,
286 DOUBLE *SCALE,
287 INTEGER *INFO);
288
289 //-- dgebd2 --------------------------------------------------------------------
290 void
291 LAPACK_DECL(dgebd2)(const INTEGER *M,
292 const INTEGER *N,
293 DOUBLE *A,
294 const INTEGER *LDA,
295 DOUBLE *D,
296 DOUBLE *E,
297 DOUBLE *TAUQ,
298 DOUBLE *TAUP,
299 const DOUBLE *WORK,
300 INTEGER *INFO);
301
302 //-- dgebrd --------------------------------------------------------------------
303 void
304 LAPACK_DECL(dgebrd)(const INTEGER *M,
305 const INTEGER *N,
306 DOUBLE *A,
307 const INTEGER *LDA,
308 DOUBLE *D,
309 DOUBLE *E,
310 DOUBLE *TAUQ,
311 DOUBLE *TAUP,
312 DOUBLE *WORK,
313 const INTEGER *LWORK,
314 INTEGER *INFO);
315
316 //-- dgecon --------------------------------------------------------------------
317 void
318 LAPACK_DECL(dgecon)(const char *NORM,
319 const INTEGER *N,
320 const DOUBLE *A,
321 const INTEGER *LDA,
322 const DOUBLE *ANORM,
323 DOUBLE *RCOND,
324 const DOUBLE *WORK,
325 const INTEGER *IWORK,
326 INTEGER *INFO);
327
328 //-- dgeequ --------------------------------------------------------------------
329 void
330 LAPACK_DECL(dgeequ)(const INTEGER *M,
331 const INTEGER *N,
332 const DOUBLE *A,
333 const INTEGER *LDA,
334 DOUBLE *R,
335 DOUBLE *C,
336 DOUBLE *ROWCND,
337 DOUBLE *COLCND,
338 DOUBLE *AMAX,
339 INTEGER *INFO);
340
341 //-- dgeequb -------------------------------------------------------------------
342 void
343 LAPACK_DECL(dgeequb)(const INTEGER *M,
344 const INTEGER *N,
345 const DOUBLE *A,
346 const INTEGER *LDA,
347 DOUBLE *R,
348 DOUBLE *C,
349 DOUBLE *ROWCND,
350 DOUBLE *COLCND,
351 DOUBLE *AMAX,
352 INTEGER *INFO);
353
354 //-- dgees ---------------------------------------------------------------------
355 void
356 LAPACK_DECL(dgees)(const char *JOBVS,
357 const char *SORT,
358 LOGICAL (*SELECT)(const DOUBLE *, const DOUBLE *),
359 const INTEGER *N,
360 DOUBLE *A,
361 const INTEGER *LDA,
362 INTEGER *SDIM,
363 DOUBLE *WR,
364 DOUBLE *WI,
365 DOUBLE *VS,
366 const INTEGER *LDVS,
367 DOUBLE *WORK,
368 const INTEGER *LWORK,
369 LOGICAL *BWORK,
370 INTEGER *INFO);
371
372 //-- dgeesx --------------------------------------------------------------------
373 void
374 LAPACK_DECL(dgeesx)(const char *JOBVS,
375 const char *SORT,
376 LOGICAL (*SELECT)(const DOUBLE *, const DOUBLE *),
377 const char *SENSE,
378 const INTEGER *N,
379 DOUBLE *A,
380 const INTEGER *LDA,
381 INTEGER *SDIM,
382 DOUBLE *WR,
383 DOUBLE *WI,
384 DOUBLE *VS,
385 const INTEGER *LDVS,
386 DOUBLE *RCONDE,
387 DOUBLE *RCONDV,
388 DOUBLE *WORK,
389 const INTEGER *LWORK,
390 INTEGER *IWORK,
391 const INTEGER *LIWORK,
392 LOGICAL *BWORK,
393 INTEGER *INFO);
394
395 //-- dgeev ---------------------------------------------------------------------
396 void
397 LAPACK_DECL(dgeev)(const char *JOBVL,
398 const char *JOBVR,
399 const INTEGER *N,
400 DOUBLE *A,
401 const INTEGER *LDA,
402 DOUBLE *WR,
403 DOUBLE *WI,
404 DOUBLE *VL,
405 const INTEGER *LDVL,
406 DOUBLE *VR,
407 const INTEGER *LDVR,
408 DOUBLE *WORK,
409 const INTEGER *LWORK,
410 INTEGER *INFO);
411
412 //-- dgeevx --------------------------------------------------------------------
413 void
414 LAPACK_DECL(dgeevx)(const char *BALANC,
415 const char *JOBVL,
416 const char *JOBVR,
417 const char *SENSE,
418 const INTEGER *N,
419 DOUBLE *A,
420 const INTEGER *LDA,
421 DOUBLE *WR,
422 DOUBLE *WI,
423 DOUBLE *VL,
424 const INTEGER *LDVL,
425 DOUBLE *VR,
426 const INTEGER *LDVR,
427 INTEGER *ILO,
428 INTEGER *IHI,
429 DOUBLE *SCALE,
430 DOUBLE *ABNRM,
431 DOUBLE *RCONDE,
432 DOUBLE *RCONDV,
433 DOUBLE *WORK,
434 const INTEGER *LWORK,
435 INTEGER *IWORK,
436 INTEGER *INFO);
437
438 //-- dgegs ---------------------------------------------------------------------
439 void
440 LAPACK_DECL(dgegs)(const char *JOBVSL,
441 const char *JOBVSR,
442 const INTEGER *N,
443 DOUBLE *A,
444 const INTEGER *LDA,
445 DOUBLE *B,
446 const INTEGER *LDB,
447 DOUBLE *ALPHAR,
448 DOUBLE *ALPHAI,
449 DOUBLE *BETA,
450 DOUBLE *VSL,
451 const INTEGER *LDVSL,
452 DOUBLE *VSR,
453 const INTEGER *LDVSR,
454 DOUBLE *WORK,
455 const INTEGER *LWORK,
456 INTEGER *INFO);
457
458 //-- dgegv ---------------------------------------------------------------------
459 void
460 LAPACK_DECL(dgegv)(const char *JOBVL,
461 const char *JOBVR,
462 const INTEGER *N,
463 DOUBLE *A,
464 const INTEGER *LDA,
465 DOUBLE *B,
466 const INTEGER *LDB,
467 DOUBLE *ALPHAR,
468 DOUBLE *ALPHAI,
469 DOUBLE *BETA,
470 DOUBLE *VL,
471 const INTEGER *LDVL,
472 DOUBLE *VR,
473 const INTEGER *LDVR,
474 DOUBLE *WORK,
475 const INTEGER *LWORK,
476 INTEGER *INFO);
477
478 //-- dgehd2 --------------------------------------------------------------------
479 void
480 LAPACK_DECL(dgehd2)(const INTEGER *N,
481 const INTEGER *ILO,
482 const INTEGER *IHI,
483 DOUBLE *A,
484 const INTEGER *LDA,
485 DOUBLE *TAU,
486 DOUBLE *WORK,
487 INTEGER *INFO);
488
489 //-- dgehrd --------------------------------------------------------------------
490 void
491 LAPACK_DECL(dgehrd)(const INTEGER *N,
492 const INTEGER *ILO,
493 const INTEGER *IHI,
494 DOUBLE *A,
495 const INTEGER *LDA,
496 DOUBLE *TAU,
497 DOUBLE *WORK,
498 const INTEGER *LWORK,
499 INTEGER *INFO);
500
501 //-- dgejsv --------------------------------------------------------------------
502 void
503 LAPACK_DECL(dgejsv)(const char *JOBA,
504 const char *JOBU,
505 const char *JOBV,
506 const char *JOBR,
507 const char *JOBT,
508 const char *JOBP,
509 const INTEGER *M,
510 const INTEGER *N,
511 const DOUBLE *A,
512 const INTEGER *LDA,
513 DOUBLE *SVA,
514 DOUBLE *U,
515 const INTEGER *LDU,
516 DOUBLE *V,
517 const INTEGER *LDV,
518 DOUBLE *WORK,
519 const INTEGER *LWORK,
520 INTEGER *IWORK,
521 INTEGER *INFO);
522
523 //-- dgelq2 --------------------------------------------------------------------
524 void
525 LAPACK_DECL(dgelq2)(const INTEGER *M,
526 const INTEGER *N,
527 DOUBLE *A,
528 const INTEGER *LDA,
529 DOUBLE *TAU,
530 const DOUBLE *WORK,
531 INTEGER *INFO);
532
533 //-- dgelqf --------------------------------------------------------------------
534 void
535 LAPACK_DECL(dgelqf)(const INTEGER *M,
536 const INTEGER *N,
537 DOUBLE *A,
538 const INTEGER *LDA,
539 DOUBLE *TAU,
540 DOUBLE *WORK,
541 const INTEGER *LWORK,
542 INTEGER *INFO);
543
544 //-- dgels ---------------------------------------------------------------------
545 void
546 LAPACK_DECL(dgels)(const char *TRANS,
547 const INTEGER *M,
548 const INTEGER *N,
549 const INTEGER *NRHS,
550 DOUBLE *A,
551 const INTEGER *LDA,
552 DOUBLE *B,
553 const INTEGER *LDB,
554 DOUBLE *WORK,
555 const INTEGER *LWORK,
556 INTEGER *INFO);
557
558 //-- dgelsd --------------------------------------------------------------------
559 void
560 LAPACK_DECL(dgelsd)(const INTEGER *M,
561 const INTEGER *N,
562 const INTEGER *NRHS,
563 const DOUBLE *A,
564 const INTEGER *LDA,
565 DOUBLE *B,
566 const INTEGER *LDB,
567 DOUBLE *S,
568 const DOUBLE *RCOND,
569 INTEGER *RANK,
570 DOUBLE *WORK,
571 const INTEGER *LWORK,
572 const INTEGER *IWORK,
573 INTEGER *INFO);
574
575 //-- dgelss --------------------------------------------------------------------
576 void
577 LAPACK_DECL(dgelss)(const INTEGER *M,
578 const INTEGER *N,
579 const INTEGER *NRHS,
580 DOUBLE *A,
581 const INTEGER *LDA,
582 DOUBLE *B,
583 const INTEGER *LDB,
584 DOUBLE *S,
585 const DOUBLE *RCOND,
586 INTEGER *RANK,
587 DOUBLE *WORK,
588 const INTEGER *LWORK,
589 INTEGER *INFO);
590
591 //-- dgelsx --------------------------------------------------------------------
592 void
593 LAPACK_DECL(dgelsx)(const INTEGER *M,
594 const INTEGER *N,
595 const INTEGER *NRHS,
596 DOUBLE *A,
597 const INTEGER *LDA,
598 DOUBLE *B,
599 const INTEGER *LDB,
600 INTEGER *JPVT,
601 const DOUBLE *RCOND,
602 INTEGER *RANK,
603 const DOUBLE *WORK,
604 INTEGER *INFO);
605
606 //-- dgelsy --------------------------------------------------------------------
607 void
608 LAPACK_DECL(dgelsy)(const INTEGER *M,
609 const INTEGER *N,
610 const INTEGER *NRHS,
611 DOUBLE *A,
612 const INTEGER *LDA,
613 DOUBLE *B,
614 const INTEGER *LDB,
615 INTEGER *JPVT,
616 const DOUBLE *RCOND,
617 INTEGER *RANK,
618 DOUBLE *WORK,
619 const INTEGER *LWORK,
620 INTEGER *INFO);
621
622 //-- dgeql2 --------------------------------------------------------------------
623 void
624 LAPACK_DECL(dgeql2)(const INTEGER *M,
625 const INTEGER *N,
626 DOUBLE *A,
627 const INTEGER *LDA,
628 DOUBLE *TAU,
629 const DOUBLE *WORK,
630 INTEGER *INFO);
631
632 //-- dgeqlf --------------------------------------------------------------------
633 void
634 LAPACK_DECL(dgeqlf)(const INTEGER *M,
635 const INTEGER *N,
636 DOUBLE *A,
637 const INTEGER *LDA,
638 DOUBLE *TAU,
639 DOUBLE *WORK,
640 const INTEGER *LWORK,
641 INTEGER *INFO);
642
643 //-- dgeqp3 --------------------------------------------------------------------
644 void
645 LAPACK_DECL(dgeqp3)(const INTEGER *M,
646 const INTEGER *N,
647 DOUBLE *A,
648 const INTEGER *LDA,
649 INTEGER *JPVT,
650 DOUBLE *TAU,
651 DOUBLE *WORK,
652 const INTEGER *LWORK,
653 INTEGER *INFO);
654
655 //-- dgeqpf --------------------------------------------------------------------
656 void
657 LAPACK_DECL(dgeqpf)(const INTEGER *M,
658 const INTEGER *N,
659 DOUBLE *A,
660 const INTEGER *LDA,
661 INTEGER *JPVT,
662 DOUBLE *TAU,
663 const DOUBLE *WORK,
664 INTEGER *INFO);
665
666 //-- dgeqr2 --------------------------------------------------------------------
667 void
668 LAPACK_DECL(dgeqr2)(const INTEGER *M,
669 const INTEGER *N,
670 DOUBLE *A,
671 const INTEGER *LDA,
672 DOUBLE *TAU,
673 const DOUBLE *WORK,
674 INTEGER *INFO);
675
676 //-- dgeqr2p -------------------------------------------------------------------
677 void
678 LAPACK_DECL(dgeqr2p)(const INTEGER *M,
679 const INTEGER *N,
680 DOUBLE *A,
681 const INTEGER *LDA,
682 DOUBLE *TAU,
683 const DOUBLE *WORK,
684 INTEGER *INFO);
685
686 //-- dgeqrf --------------------------------------------------------------------
687 void
688 LAPACK_DECL(dgeqrf)(const INTEGER *M,
689 const INTEGER *N,
690 DOUBLE *A,
691 const INTEGER *LDA,
692 DOUBLE *TAU,
693 DOUBLE *WORK,
694 const INTEGER *LWORK,
695 INTEGER *INFO);
696
697 //-- dgeqrfp -------------------------------------------------------------------
698 void
699 LAPACK_DECL(dgeqrfp)(const INTEGER *M,
700 const INTEGER *N,
701 DOUBLE *A,
702 const INTEGER *LDA,
703 DOUBLE *TAU,
704 DOUBLE *WORK,
705 const INTEGER *LWORK,
706 INTEGER *INFO);
707
708 //-- dgerfs --------------------------------------------------------------------
709 void
710 LAPACK_DECL(dgerfs)(const char *TRANS,
711 const INTEGER *N,
712 const INTEGER *NRHS,
713 const DOUBLE *A,
714 const INTEGER *LDA,
715 const DOUBLE *AF,
716 const INTEGER *LDAF,
717 const INTEGER *IPIV,
718 const DOUBLE *B,
719 const INTEGER *LDB,
720 DOUBLE *X,
721 const INTEGER *LDX,
722 DOUBLE *FERR,
723 DOUBLE *BERR,
724 const DOUBLE *WORK,
725 const INTEGER *IWORK,
726 INTEGER *INFO);
727
728 //-- dgerq2 --------------------------------------------------------------------
729 void
730 LAPACK_DECL(dgerq2)(const INTEGER *M,
731 const INTEGER *N,
732 DOUBLE *A,
733 const INTEGER *LDA,
734 DOUBLE *TAU,
735 const DOUBLE *WORK,
736 INTEGER *INFO);
737
738 //-- dgerqf --------------------------------------------------------------------
739 void
740 LAPACK_DECL(dgerqf)(const INTEGER *M,
741 const INTEGER *N,
742 DOUBLE *A,
743 const INTEGER *LDA,
744 DOUBLE *TAU,
745 DOUBLE *WORK,
746 const INTEGER *LWORK,
747 INTEGER *INFO);
748
749 //-- dgesc2 --------------------------------------------------------------------
750 void
751 LAPACK_DECL(dgesc2)(const INTEGER *N,
752 const DOUBLE *A,
753 const INTEGER *LDA,
754 DOUBLE *RHS,
755 const INTEGER *IPIV,
756 const INTEGER *JPIV,
757 DOUBLE *SCALE);
758
759 //-- dgesdd --------------------------------------------------------------------
760 void
761 LAPACK_DECL(dgesdd)(const char *JOBZ,
762 const INTEGER *M,
763 const INTEGER *N,
764 DOUBLE *A,
765 const INTEGER *LDA,
766 DOUBLE *S,
767 DOUBLE *U,
768 const INTEGER *LDU,
769 DOUBLE *VT,
770 const INTEGER *LDVT,
771 DOUBLE *WORK,
772 const INTEGER *LWORK,
773 const INTEGER *IWORK,
774 INTEGER *INFO);
775
776 //-- dgesv ---------------------------------------------------------------------
777 void
778 LAPACK_DECL(dgesv)(const INTEGER *N,
779 const INTEGER *NRHS,
780 DOUBLE *A,
781 const INTEGER *LDA,
782 INTEGER *IPIV,
783 DOUBLE *B,
784 const INTEGER *LDB,
785 INTEGER *INFO);
786
787 //-- dgesvd --------------------------------------------------------------------
788 void
789 LAPACK_DECL(dgesvd)(const char *JOBU,
790 const char *JOBVT,
791 const INTEGER *M,
792 const INTEGER *N,
793 DOUBLE *A,
794 const INTEGER *LDA,
795 DOUBLE *S,
796 DOUBLE *U,
797 const INTEGER *LDU,
798 DOUBLE *VT,
799 const INTEGER *LDVT,
800 DOUBLE *WORK,
801 const INTEGER *LWORK,
802 INTEGER *INFO);
803
804 //-- dgesvj --------------------------------------------------------------------
805 void
806 LAPACK_DECL(dgesvj)(const char *JOBA,
807 const char *JOBU,
808 const char *JOBV,
809 const INTEGER *M,
810 const INTEGER *N,
811 DOUBLE *A,
812 const INTEGER *LDA,
813 DOUBLE *SVA,
814 const INTEGER *MV,
815 DOUBLE *V,
816 const INTEGER *LDV,
817 DOUBLE *WORK,
818 const INTEGER *LWORK,
819 INTEGER *INFO);
820
821 //-- dgesvx --------------------------------------------------------------------
822 void
823 LAPACK_DECL(dgesvx)(const char *FACT,
824 const char *TRANS,
825 const INTEGER *N,
826 const INTEGER *NRHS,
827 DOUBLE *A,
828 const INTEGER *LDA,
829 DOUBLE *AF,
830 const INTEGER *LDAF,
831 INTEGER *IPIV,
832 char *EQUED,
833 DOUBLE *R,
834 DOUBLE *C,
835 DOUBLE *B,
836 const INTEGER *LDB,
837 DOUBLE *X,
838 const INTEGER *LDX,
839 DOUBLE *RCOND,
840 DOUBLE *FERR,
841 DOUBLE *BERR,
842 DOUBLE *WORK,
843 const INTEGER *IWORK,
844 INTEGER *INFO);
845
846 //-- dgetc2 --------------------------------------------------------------------
847 void
848 LAPACK_DECL(dgetc2)(const INTEGER *N,
849 DOUBLE *A,
850 const INTEGER *LDA,
851 INTEGER *IPIV,
852 INTEGER *JPIV,
853 INTEGER *INFO);
854
855 //-- dgetf2 --------------------------------------------------------------------
856 void
857 LAPACK_DECL(dgetf2)(const INTEGER *M,
858 const INTEGER *N,
859 DOUBLE *A,
860 const INTEGER *LDA,
861 INTEGER *IPIV,
862 INTEGER *INFO);
863
864 //-- dgetrf --------------------------------------------------------------------
865 void
866 LAPACK_DECL(dgetrf)(const INTEGER *M,
867 const INTEGER *N,
868 DOUBLE *A,
869 const INTEGER *LDA,
870 INTEGER *IPIV,
871 INTEGER *INFO);
872
873 //-- dgetri --------------------------------------------------------------------
874 void
875 LAPACK_DECL(dgetri)(const INTEGER *N,
876 DOUBLE *A,
877 const INTEGER *LDA,
878 const INTEGER *IPIV,
879 DOUBLE *WORK,
880 const INTEGER *LWORK,
881 INTEGER *INFO);
882
883 //-- dgetrs --------------------------------------------------------------------
884 void
885 LAPACK_DECL(dgetrs)(const char *TRANS,
886 const INTEGER *N,
887 const INTEGER *NRHS,
888 const DOUBLE *A,
889 const INTEGER *LDA,
890 const INTEGER *IPIV,
891 DOUBLE *B,
892 const INTEGER *LDB,
893 INTEGER *INFO);
894
895 //-- dggbak --------------------------------------------------------------------
896 void
897 LAPACK_DECL(dggbak)(const char *JOB,
898 const char *SIDE,
899 const INTEGER *N,
900 const INTEGER *ILO,
901 const INTEGER *IHI,
902 const DOUBLE *LSCALE,
903 const DOUBLE *RSCALE,
904 const INTEGER *M,
905 DOUBLE *V,
906 const INTEGER *LDV,
907 INTEGER *INFO);
908
909 //-- dggbal --------------------------------------------------------------------
910 void
911 LAPACK_DECL(dggbal)(const char *JOB,
912 const INTEGER *N,
913 DOUBLE *A,
914 const INTEGER *LDA,
915 DOUBLE *B,
916 const INTEGER *LDB,
917 INTEGER *ILO,
918 INTEGER *IHI,
919 DOUBLE *LSCALE,
920 DOUBLE *RSCALE,
921 const DOUBLE *WORK,
922 INTEGER *INFO);
923
924 //-- dgges ---------------------------------------------------------------------
925 void
926 LAPACK_DECL(dgges)(const char *JOBVSL,
927 const char *JOBVSR,
928 const char *SORT,
929 const LOGICAL *SELCTG,
930 const INTEGER *N,
931 DOUBLE *A,
932 const INTEGER *LDA,
933 DOUBLE *B,
934 const INTEGER *LDB,
935 INTEGER *SDIM,
936 DOUBLE *ALPHAR,
937 DOUBLE *ALPHAI,
938 DOUBLE *BETA,
939 DOUBLE *VSL,
940 const INTEGER *LDVSL,
941 DOUBLE *VSR,
942 const INTEGER *LDVSR,
943 DOUBLE *WORK,
944 const INTEGER *LWORK,
945 const LOGICAL *BWORK,
946 INTEGER *INFO);
947
948 //-- dggesx --------------------------------------------------------------------
949 void
950 LAPACK_DECL(dggesx)(const char *JOBVSL,
951 const char *JOBVSR,
952 const char *SORT,
953 const LOGICAL *SELCTG,
954 const char *SENSE,
955 const INTEGER *N,
956 DOUBLE *A,
957 const INTEGER *LDA,
958 DOUBLE *B,
959 const INTEGER *LDB,
960 INTEGER *SDIM,
961 DOUBLE *ALPHAR,
962 DOUBLE *ALPHAI,
963 DOUBLE *BETA,
964 DOUBLE *VSL,
965 const INTEGER *LDVSL,
966 DOUBLE *VSR,
967 const INTEGER *LDVSR,
968 DOUBLE *RCONDE,
969 DOUBLE *RCONDV,
970 DOUBLE *WORK,
971 const INTEGER *LWORK,
972 const INTEGER *IWORK,
973 const INTEGER *LIWORK,
974 const LOGICAL *BWORK,
975 INTEGER *INFO);
976
977 //-- dggev ---------------------------------------------------------------------
978 void
979 LAPACK_DECL(dggev)(const char *JOBVL,
980 const char *JOBVR,
981 const INTEGER *N,
982 DOUBLE *A,
983 const INTEGER *LDA,
984 DOUBLE *B,
985 const INTEGER *LDB,
986 DOUBLE *ALPHAR,
987 DOUBLE *ALPHAI,
988 DOUBLE *BETA,
989 DOUBLE *VL,
990 const INTEGER *LDVL,
991 DOUBLE *VR,
992 const INTEGER *LDVR,
993 DOUBLE *WORK,
994 const INTEGER *LWORK,
995 INTEGER *INFO);
996
997 //-- dggevx --------------------------------------------------------------------
998 void
999 LAPACK_DECL(dggevx)(const char *BALANC,
1000 const char *JOBVL,
1001 const char *JOBVR,
1002 const char *SENSE,
1003 const INTEGER *N,
1004 DOUBLE *A,
1005 const INTEGER *LDA,
1006 DOUBLE *B,
1007 const INTEGER *LDB,
1008 DOUBLE *ALPHAR,
1009 DOUBLE *ALPHAI,
1010 DOUBLE *BETA,
1011 DOUBLE *VL,
1012 const INTEGER *LDVL,
1013 DOUBLE *VR,
1014 const INTEGER *LDVR,
1015 INTEGER *ILO,
1016 INTEGER *IHI,
1017 DOUBLE *LSCALE,
1018 DOUBLE *RSCALE,
1019 DOUBLE *ABNRM,
1020 DOUBLE *BBNRM,
1021 DOUBLE *RCONDE,
1022 DOUBLE *RCONDV,
1023 DOUBLE *WORK,
1024 const INTEGER *LWORK,
1025 const INTEGER *IWORK,
1026 const LOGICAL *BWORK,
1027 INTEGER *INFO);
1028
1029 //-- dggglm --------------------------------------------------------------------
1030 void
1031 LAPACK_DECL(dggglm)(const INTEGER *N,
1032 const INTEGER *M,
1033 const INTEGER *P,
1034 DOUBLE *A,
1035 const INTEGER *LDA,
1036 DOUBLE *B,
1037 const INTEGER *LDB,
1038 DOUBLE *D,
1039 DOUBLE *X,
1040 DOUBLE *Y,
1041 DOUBLE *WORK,
1042 const INTEGER *LWORK,
1043 INTEGER *INFO);
1044
1045 //-- dgghrd --------------------------------------------------------------------
1046 void
1047 LAPACK_DECL(dgghrd)(const char *COMPQ,
1048 const char *COMPZ,
1049 const INTEGER *N,
1050 const INTEGER *ILO,
1051 const INTEGER *IHI,
1052 DOUBLE *A,
1053 const INTEGER *LDA,
1054 DOUBLE *B,
1055 const INTEGER *LDB,
1056 DOUBLE *Q,
1057 const INTEGER *LDQ,
1058 DOUBLE *Z,
1059 const INTEGER *LDZ,
1060 INTEGER *INFO);
1061
1062 //-- dgglse --------------------------------------------------------------------
1063 void
1064 LAPACK_DECL(dgglse)(const INTEGER *M,
1065 const INTEGER *N,
1066 const INTEGER *P,
1067 DOUBLE *A,
1068 const INTEGER *LDA,
1069 DOUBLE *B,
1070 const INTEGER *LDB,
1071 DOUBLE *C,
1072 DOUBLE *D,
1073 DOUBLE *X,
1074 DOUBLE *WORK,
1075 const INTEGER *LWORK,
1076 INTEGER *INFO);
1077
1078 //-- dggqrf --------------------------------------------------------------------
1079 void
1080 LAPACK_DECL(dggqrf)(const INTEGER *N,
1081 const INTEGER *M,
1082 const INTEGER *P,
1083 DOUBLE *A,
1084 const INTEGER *LDA,
1085 DOUBLE *TAUA,
1086 DOUBLE *B,
1087 const INTEGER *LDB,
1088 DOUBLE *TAUB,
1089 DOUBLE *WORK,
1090 const INTEGER *LWORK,
1091 INTEGER *INFO);
1092
1093 //-- dggrqf --------------------------------------------------------------------
1094 void
1095 LAPACK_DECL(dggrqf)(const INTEGER *M,
1096 const INTEGER *P,
1097 const INTEGER *N,
1098 DOUBLE *A,
1099 const INTEGER *LDA,
1100 DOUBLE *TAUA,
1101 DOUBLE *B,
1102 const INTEGER *LDB,
1103 DOUBLE *TAUB,
1104 DOUBLE *WORK,
1105 const INTEGER *LWORK,
1106 INTEGER *INFO);
1107
1108 //-- dggsvd --------------------------------------------------------------------
1109 void
1110 LAPACK_DECL(dggsvd)(const char *JOBU,
1111 const char *JOBV,
1112 const char *JOBQ,
1113 const INTEGER *M,
1114 const INTEGER *N,
1115 const INTEGER *P,
1116 INTEGER *K,
1117 INTEGER *L,
1118 DOUBLE *A,
1119 const INTEGER *LDA,
1120 DOUBLE *B,
1121 const INTEGER *LDB,
1122 DOUBLE *ALPHA,
1123 DOUBLE *BETA,
1124 DOUBLE *U,
1125 const INTEGER *LDU,
1126 DOUBLE *V,
1127 const INTEGER *LDV,
1128 DOUBLE *Q,
1129 const INTEGER *LDQ,
1130 const DOUBLE *WORK,
1131 INTEGER *IWORK,
1132 INTEGER *INFO);
1133
1134 //-- dggsvp --------------------------------------------------------------------
1135 void
1136 LAPACK_DECL(dggsvp)(const char *JOBU,
1137 const char *JOBV,
1138 const char *JOBQ,
1139 const INTEGER *M,
1140 const INTEGER *P,
1141 const INTEGER *N,
1142 DOUBLE *A,
1143 const INTEGER *LDA,
1144 DOUBLE *B,
1145 const INTEGER *LDB,
1146 const DOUBLE *TOLA,
1147 const DOUBLE *TOLB,
1148 INTEGER *K,
1149 INTEGER *L,
1150 DOUBLE *U,
1151 const INTEGER *LDU,
1152 DOUBLE *V,
1153 const INTEGER *LDV,
1154 DOUBLE *Q,
1155 const INTEGER *LDQ,
1156 const INTEGER *IWORK,
1157 const DOUBLE *TAU,
1158 const DOUBLE *WORK,
1159 INTEGER *INFO);
1160
1161 //-- dgsvj0 --------------------------------------------------------------------
1162 void
1163 LAPACK_DECL(dgsvj0)(const char *JOBV,
1164 const INTEGER *M,
1165 const INTEGER *N,
1166 DOUBLE *A,
1167 const INTEGER *LDA,
1168 DOUBLE *D,
1169 DOUBLE *SVA,
1170 const INTEGER *MV,
1171 DOUBLE *V,
1172 const INTEGER *LDV,
1173 const DOUBLE *EPS,
1174 const DOUBLE *SFMIN,
1175 const DOUBLE *TOL,
1176 const INTEGER *NSWEEP,
1177 const DOUBLE *WORK,
1178 const INTEGER *LWORK,
1179 INTEGER *INFO);
1180
1181 //-- dgsvj1 --------------------------------------------------------------------
1182 void
1183 LAPACK_DECL(dgsvj1)(const char *JOBV,
1184 const INTEGER *M,
1185 const INTEGER *N,
1186 const INTEGER *N1,
1187 DOUBLE *A,
1188 const INTEGER *LDA,
1189 DOUBLE *D,
1190 DOUBLE *SVA,
1191 const INTEGER *MV,
1192 DOUBLE *V,
1193 const INTEGER *LDV,
1194 const DOUBLE *EPS,
1195 const DOUBLE *SFMIN,
1196 const DOUBLE *TOL,
1197 const INTEGER *NSWEEP,
1198 const DOUBLE *WORK,
1199 const INTEGER *LWORK,
1200 INTEGER *INFO);
1201
1202 //-- dgtcon --------------------------------------------------------------------
1203 void
1204 LAPACK_DECL(dgtcon)(const char *NORM,
1205 const INTEGER *N,
1206 const DOUBLE *DL,
1207 const DOUBLE *D,
1208 const DOUBLE *DU,
1209 const DOUBLE *DU2,
1210 const INTEGER *IPIV,
1211 const DOUBLE *ANORM,
1212 DOUBLE *RCOND,
1213 const DOUBLE *WORK,
1214 const INTEGER *IWORK,
1215 INTEGER *INFO);
1216
1217 //-- dgtrfs --------------------------------------------------------------------
1218 void
1219 LAPACK_DECL(dgtrfs)(const char *TRANS,
1220 const INTEGER *N,
1221 const INTEGER *NRHS,
1222 const DOUBLE *DL,
1223 const DOUBLE *D,
1224 const DOUBLE *DU,
1225 const DOUBLE *DLF,
1226 const DOUBLE *DF,
1227 const DOUBLE *DUF,
1228 const DOUBLE *DU2,
1229 const INTEGER *IPIV,
1230 const DOUBLE *B,
1231 const INTEGER *LDB,
1232 DOUBLE *X,
1233 const INTEGER *LDX,
1234 DOUBLE *FERR,
1235 DOUBLE *BERR,
1236 const DOUBLE *WORK,
1237 const INTEGER *IWORK,
1238 INTEGER *INFO);
1239
1240 //-- dgtsv ---------------------------------------------------------------------
1241 void
1242 LAPACK_DECL(dgtsv)(const INTEGER *N,
1243 const INTEGER *NRHS,
1244 DOUBLE *DL,
1245 DOUBLE *D,
1246 DOUBLE *DU,
1247 DOUBLE *B,
1248 const INTEGER *LDB,
1249 INTEGER *INFO);
1250
1251 //-- dgtsvx --------------------------------------------------------------------
1252 void
1253 LAPACK_DECL(dgtsvx)(const char *FACT,
1254 const char *TRANS,
1255 const INTEGER *N,
1256 const INTEGER *NRHS,
1257 const DOUBLE *DL,
1258 const DOUBLE *D,
1259 const DOUBLE *DU,
1260 DOUBLE *DLF,
1261 DOUBLE *DF,
1262 DOUBLE *DUF,
1263 DOUBLE *DU2,
1264 INTEGER *IPIV,
1265 const DOUBLE *B,
1266 const INTEGER *LDB,
1267 DOUBLE *X,
1268 const INTEGER *LDX,
1269 DOUBLE *RCOND,
1270 DOUBLE *FERR,
1271 DOUBLE *BERR,
1272 const DOUBLE *WORK,
1273 const INTEGER *IWORK,
1274 INTEGER *INFO);
1275
1276 //-- dgttrf --------------------------------------------------------------------
1277 void
1278 LAPACK_DECL(dgttrf)(const INTEGER *N,
1279 DOUBLE *DL,
1280 DOUBLE *D,
1281 DOUBLE *DU,
1282 DOUBLE *DU2,
1283 INTEGER *IPIV,
1284 INTEGER *INFO);
1285
1286 //-- dgttrs --------------------------------------------------------------------
1287 void
1288 LAPACK_DECL(dgttrs)(const char *TRANS,
1289 const INTEGER *N,
1290 const INTEGER *NRHS,
1291 const DOUBLE *DL,
1292 const DOUBLE *D,
1293 const DOUBLE *DU,
1294 const DOUBLE *DU2,
1295 const INTEGER *IPIV,
1296 DOUBLE *B,
1297 const INTEGER *LDB,
1298 INTEGER *INFO);
1299
1300 //-- dgtts2 --------------------------------------------------------------------
1301 void
1302 LAPACK_DECL(dgtts2)(const INTEGER *ITRANS,
1303 const INTEGER *N,
1304 const INTEGER *NRHS,
1305 const DOUBLE *DL,
1306 const DOUBLE *D,
1307 const DOUBLE *DU,
1308 const DOUBLE *DU2,
1309 const INTEGER *IPIV,
1310 DOUBLE *B,
1311 const INTEGER *LDB);
1312
1313 //-- dhgeqz --------------------------------------------------------------------
1314 void
1315 LAPACK_DECL(dhgeqz)(const char *JOB,
1316 const char *COMPQ,
1317 const char *COMPZ,
1318 const INTEGER *N,
1319 const INTEGER *ILO,
1320 const INTEGER *IHI,
1321 DOUBLE *H,
1322 const INTEGER *LDH,
1323 DOUBLE *T,
1324 const INTEGER *LDT,
1325 DOUBLE *ALPHAR,
1326 DOUBLE *ALPHAI,
1327 DOUBLE *BETA,
1328 DOUBLE *Q,
1329 const INTEGER *LDQ,
1330 DOUBLE *Z,
1331 const INTEGER *LDZ,
1332 DOUBLE *WORK,
1333 const INTEGER *LWORK,
1334 INTEGER *INFO);
1335
1336 //-- dhsein --------------------------------------------------------------------
1337 void
1338 LAPACK_DECL(dhsein)(const char *SIDE,
1339 const char *EIGSRC,
1340 const char *INITV,
1341 LOGICAL *SELECT,
1342 const INTEGER *N,
1343 const DOUBLE *H,
1344 const INTEGER *LDH,
1345 DOUBLE *WR,
1346 const DOUBLE *WI,
1347 DOUBLE *VL,
1348 const INTEGER *LDVL,
1349 DOUBLE *VR,
1350 const INTEGER *LDVR,
1351 const INTEGER *MM,
1352 INTEGER *M,
1353 const DOUBLE *WORK,
1354 INTEGER *IFAILL,
1355 INTEGER *IFAILR,
1356 INTEGER *INFO);
1357
1358 //-- dhseqr --------------------------------------------------------------------
1359 void
1360 LAPACK_DECL(dhseqr)(const char *JOB,
1361 const char *COMPZ,
1362 const INTEGER *N,
1363 const INTEGER *ILO,
1364 const INTEGER *IHI,
1365 DOUBLE *H,
1366 const INTEGER *LDH,
1367 DOUBLE *WR,
1368 DOUBLE *WI,
1369 DOUBLE *Z,
1370 const INTEGER *LDZ,
1371 DOUBLE *WORK,
1372 const INTEGER *LWORK,
1373 INTEGER *INFO);
1374
1375 //-- disnan --------------------------------------------------------------------
1376 LOGICAL
1377 LAPACK_DECL(disnan)(const DOUBLE *DIN);
1378
1379 //-- dla_gbamv -----------------------------------------------------------------
1380 void
1381 LAPACK_DECL(dla_gbamv)(const INTEGER *TRANS,
1382 const INTEGER *M,
1383 const INTEGER *N,
1384 const INTEGER *KL,
1385 const INTEGER *KU,
1386 const DOUBLE *ALPHA,
1387 const DOUBLE *AB,
1388 const INTEGER *LDAB,
1389 const DOUBLE *X,
1390 const INTEGER *INCX,
1391 const DOUBLE *BETA,
1392 DOUBLE *Y,
1393 const INTEGER *INCY);
1394
1395 //-- dla_gbrcond ---------------------------------------------------------------
1396 DOUBLE
1397 LAPACK_DECL(dla_gbrcond)(const char *TRANS,
1398 const INTEGER *N,
1399 const INTEGER *KL,
1400 const INTEGER *KU,
1401 const DOUBLE *AB,
1402 const INTEGER *LDAB,
1403 const DOUBLE *AFB,
1404 const INTEGER *LDAFB,
1405 const INTEGER *IPIV,
1406 const INTEGER *CMODE,
1407 const DOUBLE *C,
1408 INTEGER *INFO,
1409 const DOUBLE *WORK,
1410 const INTEGER *IWORK);
1411
1412 //-- dla_gbrpvgrw --------------------------------------------------------------
1413 DOUBLE
1414 LAPACK_DECL(dla_gbrpvgrw)(const INTEGER *N,
1415 const INTEGER *KL,
1416 const INTEGER *KU,
1417 const INTEGER *NCOLS,
1418 const DOUBLE *AB,
1419 const INTEGER *LDAB,
1420 const DOUBLE *AFB,
1421 const INTEGER *LDAFB);
1422
1423 //-- dla_geamv -----------------------------------------------------------------
1424 void
1425 LAPACK_DECL(dla_geamv)(const INTEGER *TRANS,
1426 const INTEGER *M,
1427 const INTEGER *N,
1428 const DOUBLE *ALPHA,
1429 const DOUBLE *A,
1430 const INTEGER *LDA,
1431 const DOUBLE *X,
1432 const INTEGER *INCX,
1433 const DOUBLE *BETA,
1434 DOUBLE *Y,
1435 const INTEGER *INCY);
1436
1437 //-- dla_gercond ---------------------------------------------------------------
1438 DOUBLE
1439 LAPACK_DECL(dla_gercond)(const char *TRANS,
1440 const INTEGER *N,
1441 const DOUBLE *A,
1442 const INTEGER *LDA,
1443 const DOUBLE *AF,
1444 const INTEGER *LDAF,
1445 const INTEGER *IPIV,
1446 const INTEGER *CMODE,
1447 const DOUBLE *C,
1448 INTEGER *INFO,
1449 const DOUBLE *WORK,
1450 const INTEGER *IWORK);
1451
1452 //-- dla_lin_berr --------------------------------------------------------------
1453 void
1454 LAPACK_DECL(dla_lin_berr)(const INTEGER *N,
1455 const INTEGER *NZ,
1456 const INTEGER *NRHS,
1457 const DOUBLE *RES,
1458 const DOUBLE *AYB,
1459 DOUBLE *BERR);
1460
1461 //-- dla_porcond ---------------------------------------------------------------
1462 DOUBLE
1463 LAPACK_DECL(dla_porcond)(const char *UPLO,
1464 const INTEGER *N,
1465 const DOUBLE *A,
1466 const INTEGER *LDA,
1467 const DOUBLE *AF,
1468 const INTEGER *LDAF,
1469 const INTEGER *CMODE,
1470 const DOUBLE *C,
1471 INTEGER *INFO,
1472 const DOUBLE *WORK,
1473 const INTEGER *IWORK);
1474
1475 //-- dla_porpvgrw --------------------------------------------------------------
1476 DOUBLE
1477 LAPACK_DECL(dla_porpvgrw)(const char *UPLO,
1478 const INTEGER *NCOLS,
1479 const DOUBLE *A,
1480 const INTEGER *LDA,
1481 const DOUBLE *AF,
1482 const INTEGER *LDAF,
1483 const DOUBLE *WORK);
1484
1485 //-- dla_rpvgrw ----------------------------------------------------------------
1486 DOUBLE
1487 LAPACK_DECL(dla_rpvgrw)(const INTEGER *N,
1488 const INTEGER *NCOLS,
1489 const DOUBLE *A,
1490 const INTEGER *LDA,
1491 const DOUBLE *AF,
1492 const INTEGER *LDAF);
1493
1494 //-- dla_syamv -----------------------------------------------------------------
1495 void
1496 LAPACK_DECL(dla_syamv)(const INTEGER *UPLO,
1497 const INTEGER *N,
1498 const DOUBLE *ALPHA,
1499 const DOUBLE *A,
1500 const INTEGER *LDA,
1501 const DOUBLE *X,
1502 const INTEGER *INCX,
1503 const DOUBLE *BETA,
1504 DOUBLE *Y,
1505 const INTEGER *INCY);
1506
1507 //-- dla_syrcond ---------------------------------------------------------------
1508 DOUBLE
1509 LAPACK_DECL(dla_syrcond)(const char *UPLO,
1510 const INTEGER *N,
1511 const DOUBLE *A,
1512 const INTEGER *LDA,
1513 const DOUBLE *AF,
1514 const INTEGER *LDAF,
1515 const INTEGER *IPIV,
1516 const INTEGER *CMODE,
1517 const DOUBLE *C,
1518 INTEGER *INFO,
1519 const DOUBLE *WORK,
1520 const INTEGER *IWORK);
1521
1522 //-- dla_syrpvgrw --------------------------------------------------------------
1523 DOUBLE
1524 LAPACK_DECL(dla_syrpvgrw)(const char *UPLO,
1525 const INTEGER *N,
1526 const INTEGER *INFO,
1527 const DOUBLE *A,
1528 const INTEGER *LDA,
1529 const DOUBLE *AF,
1530 const INTEGER *LDAF,
1531 const INTEGER *IPIV,
1532 const DOUBLE *WORK);
1533
1534 //-- dla_wwaddw ----------------------------------------------------------------
1535 void
1536 LAPACK_DECL(dla_wwaddw)(const INTEGER *N,
1537 DOUBLE *X,
1538 DOUBLE *Y,
1539 const DOUBLE *W);
1540
1541 //-- dlabad --------------------------------------------------------------------
1542 void
1543 LAPACK_DECL(dlabad)(DOUBLE *SMALL,
1544 DOUBLE *LARGE);
1545
1546 //-- dlabrd --------------------------------------------------------------------
1547 void
1548 LAPACK_DECL(dlabrd)(const INTEGER *M,
1549 const INTEGER *N,
1550 const INTEGER *NB,
1551 DOUBLE *A,
1552 const INTEGER *LDA,
1553 DOUBLE *D,
1554 DOUBLE *E,
1555 DOUBLE *TAUQ,
1556 DOUBLE *TAUP,
1557 DOUBLE *X,
1558 const INTEGER *LDX,
1559 DOUBLE *Y,
1560 const INTEGER *LDY);
1561
1562 //-- dlacn2 --------------------------------------------------------------------
1563 void
1564 LAPACK_DECL(dlacn2)(const INTEGER *N,
1565 const DOUBLE *V,
1566 DOUBLE *X,
1567 const INTEGER *ISGN,
1568 DOUBLE *EST,
1569 INTEGER *KASE,
1570 INTEGER *ISAVE);
1571
1572 //-- dlacon --------------------------------------------------------------------
1573 void
1574 LAPACK_DECL(dlacon)(const INTEGER *N,
1575 const DOUBLE *V,
1576 DOUBLE *X,
1577 const INTEGER *ISGN,
1578 DOUBLE *EST,
1579 INTEGER *KASE);
1580
1581 //-- dlacpy --------------------------------------------------------------------
1582 void
1583 LAPACK_DECL(dlacpy)(const char *UPLO,
1584 const INTEGER *M,
1585 const INTEGER *N,
1586 const DOUBLE *A,
1587 const INTEGER *LDA,
1588 DOUBLE *B,
1589 const INTEGER *LDB);
1590
1591 //-- dladiv --------------------------------------------------------------------
1592 void
1593 LAPACK_DECL(dladiv)(const DOUBLE *A,
1594 const DOUBLE *B,
1595 const DOUBLE *C,
1596 const DOUBLE *D,
1597 DOUBLE *P,
1598 DOUBLE *Q);
1599
1600 //-- dlae2 ---------------------------------------------------------------------
1601 void
1602 LAPACK_DECL(dlae2)(const DOUBLE *A,
1603 const DOUBLE *B,
1604 const DOUBLE *C,
1605 DOUBLE *RT1,
1606 DOUBLE *RT2);
1607
1608 //-- dlaebz --------------------------------------------------------------------
1609 void
1610 LAPACK_DECL(dlaebz)(const INTEGER *IJOB,
1611 const INTEGER *NITMAX,
1612 const INTEGER *N,
1613 const INTEGER *MMAX,
1614 const INTEGER *MINP,
1615 const INTEGER *NBMIN,
1616 const DOUBLE *ABSTOL,
1617 const DOUBLE *RELTOL,
1618 const DOUBLE *PIVMIN,
1619 const DOUBLE *D,
1620 const DOUBLE *E,
1621 const DOUBLE *E2,
1622 INTEGER *NVAL,
1623 DOUBLE *AB,
1624 DOUBLE *C,
1625 INTEGER *MOUT,
1626 INTEGER *NAB,
1627 const DOUBLE *WORK,
1628 const INTEGER *IWORK,
1629 INTEGER *INFO);
1630
1631 //-- dlaed0 --------------------------------------------------------------------
1632 void
1633 LAPACK_DECL(dlaed0)(const INTEGER *ICOMPQ,
1634 const INTEGER *QSIZ,
1635 const INTEGER *N,
1636 DOUBLE *D,
1637 const DOUBLE *E,
1638 DOUBLE *Q,
1639 const INTEGER *LDQ,
1640 const DOUBLE *QSTORE,
1641 const INTEGER *LDQS,
1642 const DOUBLE *WORK,
1643 const INTEGER *IWORK,
1644 INTEGER *INFO);
1645
1646 //-- dlaed1 --------------------------------------------------------------------
1647 void
1648 LAPACK_DECL(dlaed1)(const INTEGER *N,
1649 DOUBLE *D,
1650 DOUBLE *Q,
1651 const INTEGER *LDQ,
1652 INTEGER *INDXQ,
1653 const DOUBLE *RHO,
1654 const INTEGER *CUTPNT,
1655 const DOUBLE *WORK,
1656 const INTEGER *IWORK,
1657 INTEGER *INFO);
1658
1659 //-- dlaed2 --------------------------------------------------------------------
1660 void
1661 LAPACK_DECL(dlaed2)(INTEGER *K,
1662 const INTEGER *N,
1663 const INTEGER *N1,
1664 DOUBLE *D,
1665 DOUBLE *Q,
1666 const INTEGER *LDQ,
1667 INTEGER *INDXQ,
1668 DOUBLE *RHO,
1669 const DOUBLE *Z,
1670 DOUBLE *DLAMDA,
1671 DOUBLE *W,
1672 DOUBLE *Q2,
1673 const INTEGER *INDX,
1674 INTEGER *INDXC,
1675 const INTEGER *INDXP,
1676 INTEGER *COLTYP,
1677 INTEGER *INFO);
1678
1679 //-- dlaed3 --------------------------------------------------------------------
1680 void
1681 LAPACK_DECL(dlaed3)(const INTEGER *K,
1682 const INTEGER *N,
1683 const INTEGER *N1,
1684 DOUBLE *D,
1685 DOUBLE *Q,
1686 const INTEGER *LDQ,
1687 const DOUBLE *RHO,
1688 DOUBLE *DLAMDA,
1689 const DOUBLE *Q2,
1690 const INTEGER *INDX,
1691 const INTEGER *CTOT,
1692 DOUBLE *W,
1693 const DOUBLE *S,
1694 INTEGER *INFO);
1695
1696 //-- dlaed4 --------------------------------------------------------------------
1697 void
1698 LAPACK_DECL(dlaed4)(const INTEGER *N,
1699 const INTEGER *I,
1700 const DOUBLE *D,
1701 const DOUBLE *Z,
1702 DOUBLE *DELTA,
1703 const DOUBLE *RHO,
1704 DOUBLE *DLAM,
1705 INTEGER *INFO);
1706
1707 //-- dlaed5 --------------------------------------------------------------------
1708 void
1709 LAPACK_DECL(dlaed5)(const INTEGER *I,
1710 const DOUBLE *D,
1711 const DOUBLE *Z,
1712 DOUBLE *DELTA,
1713 const DOUBLE *RHO,
1714 DOUBLE *DLAM);
1715
1716 //-- dlaed6 --------------------------------------------------------------------
1717 void
1718 LAPACK_DECL(dlaed6)(const INTEGER *KNITER,
1719 const LOGICAL *ORGATI,
1720 const DOUBLE *RHO,
1721 const DOUBLE *D,
1722 const DOUBLE *Z,
1723 const DOUBLE *FINIT,
1724 DOUBLE *TAU,
1725 INTEGER *INFO);
1726
1727 //-- dlaed7 --------------------------------------------------------------------
1728 void
1729 LAPACK_DECL(dlaed7)(const INTEGER *ICOMPQ,
1730 const INTEGER *N,
1731 const INTEGER *QSIZ,
1732 const INTEGER *TLVLS,
1733 const INTEGER *CURLVL,
1734 const INTEGER *CURPBM,
1735 DOUBLE *D,
1736 DOUBLE *Q,
1737 const INTEGER *LDQ,
1738 INTEGER *INDXQ,
1739 const DOUBLE *RHO,
1740 const INTEGER *CUTPNT,
1741 DOUBLE *QSTORE,
1742 INTEGER *QPTR,
1743 const INTEGER *PRMPTR,
1744 const INTEGER *PERM,
1745 const INTEGER *GIVPTR,
1746 const INTEGER *GIVCOL,
1747 const DOUBLE *GIVNUM,
1748 const DOUBLE *WORK,
1749 const INTEGER *IWORK,
1750 INTEGER *INFO);
1751
1752 //-- dlaed8 --------------------------------------------------------------------
1753 void
1754 LAPACK_DECL(dlaed8)(const INTEGER *ICOMPQ,
1755 INTEGER *K,
1756 const INTEGER *N,
1757 const INTEGER *QSIZ,
1758 DOUBLE *D,
1759 DOUBLE *Q,
1760 const INTEGER *LDQ,
1761 const INTEGER *INDXQ,
1762 DOUBLE *RHO,
1763 const INTEGER *CUTPNT,
1764 const DOUBLE *Z,
1765 DOUBLE *DLAMDA,
1766 DOUBLE *Q2,
1767 const INTEGER *LDQ2,
1768 DOUBLE *W,
1769 INTEGER *PERM,
1770 INTEGER *GIVPTR,
1771 INTEGER *GIVCOL,
1772 DOUBLE *GIVNUM,
1773 const INTEGER *INDXP,
1774 const INTEGER *INDX,
1775 INTEGER *INFO);
1776
1777 //-- dlaed9 --------------------------------------------------------------------
1778 void
1779 LAPACK_DECL(dlaed9)(const INTEGER *K,
1780 const INTEGER *KSTART,
1781 const INTEGER *KSTOP,
1782 const INTEGER *N,
1783 DOUBLE *D,
1784 const DOUBLE *Q,
1785 const INTEGER *LDQ,
1786 const DOUBLE *RHO,
1787 const DOUBLE *DLAMDA,
1788 const DOUBLE *W,
1789 DOUBLE *S,
1790 const INTEGER *LDS,
1791 INTEGER *INFO);
1792
1793 //-- dlaeda --------------------------------------------------------------------
1794 void
1795 LAPACK_DECL(dlaeda)(const INTEGER *N,
1796 const INTEGER *TLVLS,
1797 const INTEGER *CURLVL,
1798 const INTEGER *CURPBM,
1799 const INTEGER *PRMPTR,
1800 const INTEGER *PERM,
1801 const INTEGER *GIVPTR,
1802 const INTEGER *GIVCOL,
1803 const DOUBLE *GIVNUM,
1804 const DOUBLE *Q,
1805 const INTEGER *QPTR,
1806 DOUBLE *Z,
1807 const DOUBLE *ZTEMP,
1808 INTEGER *INFO);
1809
1810 //-- dlaein --------------------------------------------------------------------
1811 void
1812 LAPACK_DECL(dlaein)(const LOGICAL *RIGHTV,
1813 const LOGICAL *NOINIT,
1814 const INTEGER *N,
1815 const DOUBLE *H,
1816 const INTEGER *LDH,
1817 const DOUBLE *WR,
1818 const DOUBLE *WI,
1819 DOUBLE *VR,
1820 DOUBLE *VI,
1821 const DOUBLE *B,
1822 const INTEGER *LDB,
1823 const DOUBLE *WORK,
1824 const DOUBLE *EPS3,
1825 const DOUBLE *SMLNUM,
1826 const DOUBLE *BIGNUM,
1827 INTEGER *INFO);
1828
1829 //-- dlaev2 --------------------------------------------------------------------
1830 void
1831 LAPACK_DECL(dlaev2)(const DOUBLE *A,
1832 const DOUBLE *B,
1833 const DOUBLE *C,
1834 DOUBLE *RT1,
1835 DOUBLE *RT2,
1836 DOUBLE *CS1,
1837 DOUBLE *SN1);
1838
1839 //-- dlaexc --------------------------------------------------------------------
1840 void
1841 LAPACK_DECL(dlaexc)(const LOGICAL *WANTQ,
1842 const INTEGER *N,
1843 DOUBLE *T,
1844 const INTEGER *LDT,
1845 DOUBLE *Q,
1846 const INTEGER *LDQ,
1847 const INTEGER *J1,
1848 const INTEGER *N1,
1849 const INTEGER *N2,
1850 const DOUBLE *WORK,
1851 INTEGER *INFO);
1852
1853 //-- dlag2 ---------------------------------------------------------------------
1854 void
1855 LAPACK_DECL(dlag2)(const DOUBLE *A,
1856 const INTEGER *LDA,
1857 const DOUBLE *B,
1858 const INTEGER *LDB,
1859 const DOUBLE *SAFMIN,
1860 DOUBLE *SCALE1,
1861 DOUBLE *SCALE2,
1862 DOUBLE *WR1,
1863 DOUBLE *WR2,
1864 DOUBLE *WI);
1865
1866 //-- dlag2s --------------------------------------------------------------------
1867 void
1868 LAPACK_DECL(dlag2s)(const INTEGER *M,
1869 const INTEGER *N,
1870 const DOUBLE *A,
1871 const INTEGER *LDA,
1872 FLOAT *SA,
1873 const INTEGER *LDSA,
1874 INTEGER *INFO);
1875
1876 //-- dlags2 --------------------------------------------------------------------
1877 void
1878 LAPACK_DECL(dlags2)(const LOGICAL *UPPER,
1879 const DOUBLE *A1,
1880 const DOUBLE *A2,
1881 const DOUBLE *A3,
1882 const DOUBLE *B1,
1883 const DOUBLE *B2,
1884 const DOUBLE *B3,
1885 DOUBLE *CSU,
1886 DOUBLE *SNU,
1887 DOUBLE *CSV,
1888 DOUBLE *SNV,
1889 DOUBLE *CSQ,
1890 DOUBLE *SNQ);
1891
1892 //-- dlagtf --------------------------------------------------------------------
1893 void
1894 LAPACK_DECL(dlagtf)(const INTEGER *N,
1895 DOUBLE *A,
1896 const DOUBLE *LAMBDA,
1897 DOUBLE *B,
1898 DOUBLE *C,
1899 const DOUBLE *TOL,
1900 DOUBLE *D,
1901 INTEGER *IN,
1902 INTEGER *INFO);
1903
1904 //-- dlagtm --------------------------------------------------------------------
1905 void
1906 LAPACK_DECL(dlagtm)(const char *TRANS,
1907 const INTEGER *N,
1908 const INTEGER *NRHS,
1909 const DOUBLE *ALPHA,
1910 const DOUBLE *DL,
1911 const DOUBLE *D,
1912 const DOUBLE *DU,
1913 const DOUBLE *X,
1914 const INTEGER *LDX,
1915 const DOUBLE *BETA,
1916 DOUBLE *B,
1917 const INTEGER *LDB);
1918
1919 //-- dlagts --------------------------------------------------------------------
1920 void
1921 LAPACK_DECL(dlagts)(const INTEGER *JOB,
1922 const INTEGER *N,
1923 const DOUBLE *A,
1924 const DOUBLE *B,
1925 const DOUBLE *C,
1926 const DOUBLE *D,
1927 const INTEGER *IN,
1928 DOUBLE *Y,
1929 DOUBLE *TOL,
1930 INTEGER *INFO);
1931
1932 //-- dlagv2 --------------------------------------------------------------------
1933 void
1934 LAPACK_DECL(dlagv2)(DOUBLE *A,
1935 const INTEGER *LDA,
1936 DOUBLE *B,
1937 const INTEGER *LDB,
1938 DOUBLE *ALPHAR,
1939 DOUBLE *ALPHAI,
1940 DOUBLE *BETA,
1941 DOUBLE *CSL,
1942 DOUBLE *SNL,
1943 DOUBLE *CSR,
1944 DOUBLE *SNR);
1945
1946 //-- dlahqr --------------------------------------------------------------------
1947 void
1948 LAPACK_DECL(dlahqr)(const LOGICAL *WANTT,
1949 const LOGICAL *WANTZ,
1950 const INTEGER *N,
1951 const INTEGER *ILO,
1952 const INTEGER *IHI,
1953 DOUBLE *H,
1954 const INTEGER *LDH,
1955 DOUBLE *WR,
1956 DOUBLE *WI,
1957 const INTEGER *ILOZ,
1958 const INTEGER *IHIZ,
1959 DOUBLE *Z,
1960 const INTEGER *LDZ,
1961 INTEGER *INFO);
1962
1963 //-- dlahr2 --------------------------------------------------------------------
1964 void
1965 LAPACK_DECL(dlahr2)(const INTEGER *N,
1966 const INTEGER *K,
1967 const INTEGER *NB,
1968 DOUBLE *A,
1969 const INTEGER *LDA,
1970 DOUBLE *TAU,
1971 DOUBLE *T,
1972 const INTEGER *LDT,
1973 DOUBLE *Y,
1974 const INTEGER *LDY);
1975
1976 //-- dlahrd --------------------------------------------------------------------
1977 void
1978 LAPACK_DECL(dlahrd)(const INTEGER *N,
1979 const INTEGER *K,
1980 const INTEGER *NB,
1981 DOUBLE *A,
1982 const INTEGER *LDA,
1983 DOUBLE *TAU,
1984 DOUBLE *T,
1985 const INTEGER *LDT,
1986 DOUBLE *Y,
1987 const INTEGER *LDY);
1988
1989 //-- dlaic1 --------------------------------------------------------------------
1990 void
1991 LAPACK_DECL(dlaic1)(const INTEGER *JOB,
1992 const INTEGER *J,
1993 const DOUBLE *X,
1994 const DOUBLE *SEST,
1995 const DOUBLE *W,
1996 const DOUBLE *GAMMA,
1997 DOUBLE *SESTPR,
1998 DOUBLE *S,
1999 DOUBLE *C);
2000
2001 //-- dlaisnan ------------------------------------------------------------------
2002 LOGICAL
2003 LAPACK_DECL(dlaisnan)(const DOUBLE *DIN1,
2004 const DOUBLE *DIN2);
2005
2006 //-- dlaln2 --------------------------------------------------------------------
2007 void
2008 LAPACK_DECL(dlaln2)(const LOGICAL *LTRANS,
2009 const INTEGER *NA,
2010 const INTEGER *NW,
2011 const DOUBLE *SMIN,
2012 const DOUBLE *CA,
2013 const DOUBLE *A,
2014 const INTEGER *LDA,
2015 const DOUBLE *D1,
2016 const DOUBLE *D2,
2017 const DOUBLE *B,
2018 const INTEGER *LDB,
2019 const DOUBLE *WR,
2020 const DOUBLE *WI,
2021 DOUBLE *X,
2022 const INTEGER *LDX,
2023 DOUBLE *SCALE,
2024 DOUBLE *XNORM,
2025 INTEGER *INFO);
2026
2027 //-- dlals0 --------------------------------------------------------------------
2028 void
2029 LAPACK_DECL(dlals0)(const INTEGER *ICOMPQ,
2030 const INTEGER *NL,
2031 const INTEGER *NR,
2032 const INTEGER *SQRE,
2033 const INTEGER *NRHS,
2034 DOUBLE *B,
2035 const INTEGER *LDB,
2036 const DOUBLE *BX,
2037 const INTEGER *LDBX,
2038 const INTEGER *PERM,
2039 const INTEGER *GIVPTR,
2040 const INTEGER *GIVCOL,
2041 const INTEGER *LDGCOL,
2042 const DOUBLE *GIVNUM,
2043 const INTEGER *LDGNUM,
2044 const DOUBLE *POLES,
2045 const DOUBLE *DIFL,
2046 const DOUBLE *DIFR,
2047 const DOUBLE *Z,
2048 const INTEGER *K,
2049 const DOUBLE *C,
2050 const DOUBLE *S,
2051 const DOUBLE *WORK,
2052 INTEGER *INFO);
2053
2054 //-- dlalsa --------------------------------------------------------------------
2055 void
2056 LAPACK_DECL(dlalsa)(const INTEGER *ICOMPQ,
2057 const INTEGER *SMLSIZ,
2058 const INTEGER *N,
2059 const INTEGER *NRHS,
2060 DOUBLE *B,
2061 const INTEGER *LDB,
2062 DOUBLE *BX,
2063 const INTEGER *LDBX,
2064 const DOUBLE *U,
2065 const INTEGER *LDU,
2066 const DOUBLE *VT,
2067 const INTEGER *K,
2068 const DOUBLE *DIFL,
2069 const DOUBLE *DIFR,
2070 const DOUBLE *Z,
2071 const DOUBLE *POLES,
2072 const INTEGER *GIVPTR,
2073 const INTEGER *GIVCOL,
2074 const INTEGER *LDGCOL,
2075 const INTEGER *PERM,
2076 const DOUBLE *GIVNUM,
2077 const DOUBLE *C,
2078 const DOUBLE *S,
2079 const DOUBLE *WORK,
2080 const INTEGER *IWORK,
2081 INTEGER *INFO);
2082
2083 //-- dlalsd --------------------------------------------------------------------
2084 void
2085 LAPACK_DECL(dlalsd)(const char *UPLO,
2086 const INTEGER *SMLSIZ,
2087 const INTEGER *N,
2088 const INTEGER *NRHS,
2089 DOUBLE *D,
2090 DOUBLE *E,
2091 DOUBLE *B,
2092 const INTEGER *LDB,
2093 const DOUBLE *RCOND,
2094 INTEGER *RANK,
2095 const DOUBLE *WORK,
2096 const INTEGER *IWORK,
2097 INTEGER *INFO);
2098
2099 //-- dlamch --------------------------------------------------------------------
2100 DOUBLE
2101 LAPACK_DECL(dlamch)(const char *CMACH);
2102
2103 //-- dlamrg --------------------------------------------------------------------
2104 void
2105 LAPACK_DECL(dlamrg)(const INTEGER *N1,
2106 const INTEGER *N2,
2107 const DOUBLE *A,
2108 const INTEGER *DTRD1,
2109 const INTEGER *DTRD2,
2110 INTEGER *INDEX);
2111
2112 //-- dlaneg --------------------------------------------------------------------
2113 INTEGER
2114 LAPACK_DECL(dlaneg)(const INTEGER *N,
2115 const DOUBLE *D,
2116 const DOUBLE *LLD,
2117 const DOUBLE *SIGMA,
2118 const DOUBLE *PIVMIN,
2119 const INTEGER *R);
2120
2121 //-- dlangb --------------------------------------------------------------------
2122 DOUBLE
2123 LAPACK_DECL(dlangb)(const char *NORM,
2124 const INTEGER *N,
2125 const INTEGER *KL,
2126 const INTEGER *KU,
2127 const DOUBLE *AB,
2128 const INTEGER *LDAB,
2129 const DOUBLE *WORK);
2130
2131 //-- dlange --------------------------------------------------------------------
2132 DOUBLE
2133 LAPACK_DECL(dlange)(const char *NORM,
2134 const INTEGER *M,
2135 const INTEGER *N,
2136 const DOUBLE *A,
2137 const INTEGER *LDA,
2138 const DOUBLE *WORK);
2139
2140 //-- dlangt --------------------------------------------------------------------
2141 DOUBLE
2142 LAPACK_DECL(dlangt)(const char *NORM,
2143 const INTEGER *N,
2144 const DOUBLE *DL,
2145 const DOUBLE *D,
2146 const DOUBLE *DU);
2147
2148 //-- dlanhs --------------------------------------------------------------------
2149 DOUBLE
2150 LAPACK_DECL(dlanhs)(const char *NORM,
2151 const INTEGER *N,
2152 const DOUBLE *A,
2153 const INTEGER *LDA,
2154 const DOUBLE *WORK);
2155
2156 //-- dlansb --------------------------------------------------------------------
2157 DOUBLE
2158 LAPACK_DECL(dlansb)(const char *NORM,
2159 const char *UPLO,
2160 const INTEGER *N,
2161 const INTEGER *K,
2162 const DOUBLE *AB,
2163 const INTEGER *LDAB,
2164 const DOUBLE *WORK);
2165
2166 //-- dlansf --------------------------------------------------------------------
2167 DOUBLE
2168 LAPACK_DECL(dlansf)(const char *NORM,
2169 const char *TRANSR,
2170 const char *UPLO,
2171 const INTEGER *N,
2172 const DOUBLE *A,
2173 const DOUBLE *WORK);
2174
2175 //-- dlansp --------------------------------------------------------------------
2176 DOUBLE
2177 LAPACK_DECL(dlansp)(const char *NORM,
2178 const char *UPLO,
2179 const INTEGER *N,
2180 const DOUBLE *AP,
2181 const DOUBLE *WORK);
2182
2183 //-- dlanst --------------------------------------------------------------------
2184 DOUBLE
2185 LAPACK_DECL(dlanst)(const char *NORM,
2186 const INTEGER *N,
2187 const DOUBLE *D,
2188 const DOUBLE *E);
2189
2190 //-- dlansy --------------------------------------------------------------------
2191 DOUBLE
2192 LAPACK_DECL(dlansy)(const char *NORM,
2193 const char *UPLO,
2194 const INTEGER *N,
2195 const DOUBLE *A,
2196 const INTEGER *LDA,
2197 const DOUBLE *WORK);
2198
2199 //-- dlantb --------------------------------------------------------------------
2200 DOUBLE
2201 LAPACK_DECL(dlantb)(const char *NORM,
2202 const char *UPLO,
2203 const char *DIAG,
2204 const INTEGER *N,
2205 const INTEGER *K,
2206 const DOUBLE *AB,
2207 const INTEGER *LDAB,
2208 const DOUBLE *WORK);
2209
2210 //-- dlantp --------------------------------------------------------------------
2211 DOUBLE
2212 LAPACK_DECL(dlantp)(const char *NORM,
2213 const char *UPLO,
2214 const char *DIAG,
2215 const INTEGER *N,
2216 const DOUBLE *AP,
2217 const DOUBLE *WORK);
2218
2219 //-- dlantr --------------------------------------------------------------------
2220 DOUBLE
2221 LAPACK_DECL(dlantr)(const char *NORM,
2222 const char *UPLO,
2223 const char *DIAG,
2224 const INTEGER *M,
2225 const INTEGER *N,
2226 const DOUBLE *A,
2227 const INTEGER *LDA,
2228 const DOUBLE *WORK);
2229
2230 //-- dlanv2 --------------------------------------------------------------------
2231 void
2232 LAPACK_DECL(dlanv2)(DOUBLE *A,
2233 DOUBLE *B,
2234 DOUBLE *C,
2235 DOUBLE *D,
2236 DOUBLE *RT1R,
2237 DOUBLE *RT1I,
2238 DOUBLE *RT2R,
2239 DOUBLE *RT2I,
2240 DOUBLE *CS,
2241 DOUBLE *SN);
2242
2243 //-- dlapll --------------------------------------------------------------------
2244 void
2245 LAPACK_DECL(dlapll)(const INTEGER *N,
2246 DOUBLE *X,
2247 const INTEGER *INCX,
2248 DOUBLE *Y,
2249 const INTEGER *INCY,
2250 DOUBLE *SSMIN);
2251
2252 //-- dlapmr --------------------------------------------------------------------
2253 void
2254 LAPACK_DECL(dlapmr)(const LOGICAL *FORWRD,
2255 const INTEGER *M,
2256 const INTEGER *N,
2257 DOUBLE *X,
2258 const INTEGER *LDX,
2259 INTEGER *K);
2260
2261 //-- dlapmt --------------------------------------------------------------------
2262 void
2263 LAPACK_DECL(dlapmt)(const LOGICAL *FORWRD,
2264 const INTEGER *M,
2265 const INTEGER *N,
2266 DOUBLE *X,
2267 const INTEGER *LDX,
2268 INTEGER *K);
2269
2270 //-- dlapy2 --------------------------------------------------------------------
2271 DOUBLE
2272 LAPACK_DECL(dlapy2)(const DOUBLE *X,
2273 const DOUBLE *Y);
2274
2275 //-- dlapy3 --------------------------------------------------------------------
2276 DOUBLE
2277 LAPACK_DECL(dlapy3)(const DOUBLE *X,
2278 const DOUBLE *Y,
2279 const DOUBLE *Z);
2280
2281 //-- dlaqgb --------------------------------------------------------------------
2282 void
2283 LAPACK_DECL(dlaqgb)(const INTEGER *M,
2284 const INTEGER *N,
2285 const INTEGER *KL,
2286 const INTEGER *KU,
2287 DOUBLE *AB,
2288 const INTEGER *LDAB,
2289 const DOUBLE *R,
2290 const DOUBLE *C,
2291 const DOUBLE *ROWCND,
2292 const DOUBLE *COLCND,
2293 const DOUBLE *AMAX,
2294 char *EQUED);
2295
2296 //-- dlaqge --------------------------------------------------------------------
2297 void
2298 LAPACK_DECL(dlaqge)(const INTEGER *M,
2299 const INTEGER *N,
2300 DOUBLE *A,
2301 const INTEGER *LDA,
2302 const DOUBLE *R,
2303 const DOUBLE *C,
2304 const DOUBLE *ROWCND,
2305 const DOUBLE *COLCND,
2306 const DOUBLE *AMAX,
2307 char *EQUED);
2308
2309 //-- dlaqp2 --------------------------------------------------------------------
2310 void
2311 LAPACK_DECL(dlaqp2)(const INTEGER *M,
2312 const INTEGER *N,
2313 const INTEGER *OFFSET,
2314 DOUBLE *A,
2315 const INTEGER *LDA,
2316 INTEGER *JPVT,
2317 DOUBLE *TAU,
2318 DOUBLE *VN1,
2319 DOUBLE *VN2,
2320 const DOUBLE *WORK);
2321
2322 //-- dlaqps --------------------------------------------------------------------
2323 void
2324 LAPACK_DECL(dlaqps)(const INTEGER *M,
2325 const INTEGER *N,
2326 const INTEGER *OFFSET,
2327 const INTEGER *NB,
2328 INTEGER *KB,
2329 DOUBLE *A,
2330 const INTEGER *LDA,
2331 INTEGER *JPVT,
2332 DOUBLE *TAU,
2333 DOUBLE *VN1,
2334 DOUBLE *VN2,
2335 DOUBLE *AUXV,
2336 DOUBLE *F,
2337 const INTEGER *LDF);
2338
2339 //-- dlaqr0 --------------------------------------------------------------------
2340 void
2341 LAPACK_DECL(dlaqr0)(const LOGICAL *WANTT,
2342 const LOGICAL *WANTZ,
2343 const INTEGER *N,
2344 const INTEGER *ILO,
2345 const INTEGER *IHI,
2346 DOUBLE *H,
2347 const INTEGER *LDH,
2348 DOUBLE *WR,
2349 DOUBLE *WI,
2350 const INTEGER *ILOZ,
2351 const INTEGER *IHIZ,
2352 DOUBLE *Z,
2353 const INTEGER *LDZ,
2354 DOUBLE *WORK,
2355 const INTEGER *LWORK,
2356 INTEGER *INFO);
2357
2358 //-- dlaqr1 --------------------------------------------------------------------
2359 void
2360 LAPACK_DECL(dlaqr1)(const INTEGER *N,
2361 const DOUBLE *H,
2362 const INTEGER *LDH,
2363 const DOUBLE *SR1,
2364 const DOUBLE *SI1,
2365 const DOUBLE *SR2,
2366 const DOUBLE *SI2,
2367 DOUBLE *V);
2368
2369 //-- dlaqr2 --------------------------------------------------------------------
2370 void
2371 LAPACK_DECL(dlaqr2)(const LOGICAL *WANTT,
2372 const LOGICAL *WANTZ,
2373 const INTEGER *N,
2374 const INTEGER *KTOP,
2375 const INTEGER *KBOT,
2376 const INTEGER *NW,
2377 DOUBLE *H,
2378 const INTEGER *LDH,
2379 const INTEGER *ILOZ,
2380 const INTEGER *IHIZ,
2381 DOUBLE *Z,
2382 const INTEGER *LDZ,
2383 INTEGER *NS,
2384 INTEGER *ND,
2385 DOUBLE *SR,
2386 DOUBLE *SI,
2387 const DOUBLE *V,
2388 const INTEGER *LDV,
2389 const INTEGER *NH,
2390 const DOUBLE *T,
2391 const INTEGER *LDT,
2392 const INTEGER *NV,
2393 const DOUBLE *WV,
2394 const INTEGER *LDWV,
2395 const DOUBLE *WORK,
2396 const INTEGER *LWORK);
2397
2398 //-- dlaqr3 --------------------------------------------------------------------
2399 void
2400 LAPACK_DECL(dlaqr3)(const LOGICAL *WANTT,
2401 const LOGICAL *WANTZ,
2402 const INTEGER *N,
2403 const INTEGER *KTOP,
2404 const INTEGER *KBOT,
2405 const INTEGER *NW,
2406 DOUBLE *H,
2407 const INTEGER *LDH,
2408 const INTEGER *ILOZ,
2409 const INTEGER *IHIZ,
2410 DOUBLE *Z,
2411 const INTEGER *LDZ,
2412 INTEGER *NS,
2413 INTEGER *ND,
2414 DOUBLE *SR,
2415 DOUBLE *SI,
2416 const DOUBLE *V,
2417 const INTEGER *LDV,
2418 const INTEGER *NH,
2419 const DOUBLE *T,
2420 const INTEGER *LDT,
2421 const INTEGER *NV,
2422 const DOUBLE *WV,
2423 const INTEGER *LDWV,
2424 const DOUBLE *WORK,
2425 const INTEGER *LWORK);
2426
2427 //-- dlaqr4 --------------------------------------------------------------------
2428 void
2429 LAPACK_DECL(dlaqr4)(const LOGICAL *WANTT,
2430 const LOGICAL *WANTZ,
2431 const INTEGER *N,
2432 const INTEGER *ILO,
2433 const INTEGER *IHI,
2434 DOUBLE *H,
2435 const INTEGER *LDH,
2436 DOUBLE *WR,
2437 DOUBLE *WI,
2438 const INTEGER *ILOZ,
2439 const INTEGER *IHIZ,
2440 DOUBLE *Z,
2441 const INTEGER *LDZ,
2442 DOUBLE *WORK,
2443 const INTEGER *LWORK,
2444 INTEGER *INFO);
2445
2446 //-- dlaqr5 --------------------------------------------------------------------
2447 void
2448 LAPACK_DECL(dlaqr5)(const LOGICAL *WANTT,
2449 const LOGICAL *WANTZ,
2450 const INTEGER *KACC22,
2451 const INTEGER *N,
2452 const INTEGER *KTOP,
2453 const INTEGER *KBOT,
2454 const INTEGER *NSHFTS,
2455 DOUBLE *SR,
2456 DOUBLE *SI,
2457 DOUBLE *H,
2458 const INTEGER *LDH,
2459 const INTEGER *ILOZ,
2460 const INTEGER *IHIZ,
2461 DOUBLE *Z,
2462 const INTEGER *LDZ,
2463 const DOUBLE *V,
2464 const INTEGER *LDV,
2465 const DOUBLE *U,
2466 const INTEGER *LDU,
2467 const INTEGER *NV,
2468 const DOUBLE *WV,
2469 const INTEGER *LDWV,
2470 const INTEGER *NH,
2471 const DOUBLE *WH,
2472 const INTEGER *LDWH);
2473
2474 //-- dlaqsb --------------------------------------------------------------------
2475 void
2476 LAPACK_DECL(dlaqsb)(const char *UPLO,
2477 const INTEGER *N,
2478 const INTEGER *KD,
2479 DOUBLE *AB,
2480 const INTEGER *LDAB,
2481 const DOUBLE *S,
2482 const DOUBLE *SCOND,
2483 const DOUBLE *AMAX,
2484 char *EQUED);
2485
2486 //-- dlaqsp --------------------------------------------------------------------
2487 void
2488 LAPACK_DECL(dlaqsp)(const char *UPLO,
2489 const INTEGER *N,
2490 DOUBLE *AP,
2491 const DOUBLE *S,
2492 const DOUBLE *SCOND,
2493 const DOUBLE *AMAX,
2494 char *EQUED);
2495
2496 //-- dlaqsy --------------------------------------------------------------------
2497 void
2498 LAPACK_DECL(dlaqsy)(const char *UPLO,
2499 const INTEGER *N,
2500 DOUBLE *A,
2501 const INTEGER *LDA,
2502 const DOUBLE *S,
2503 const DOUBLE *SCOND,
2504 const DOUBLE *AMAX,
2505 char *EQUED);
2506
2507 //-- dlaqtr --------------------------------------------------------------------
2508 void
2509 LAPACK_DECL(dlaqtr)(const LOGICAL *LTRAN,
2510 const LOGICAL *LREAL,
2511 const INTEGER *N,
2512 const DOUBLE *T,
2513 const INTEGER *LDT,
2514 const DOUBLE *B,
2515 const DOUBLE *W,
2516 DOUBLE *SCALE,
2517 DOUBLE *X,
2518 const DOUBLE *WORK,
2519 INTEGER *INFO);
2520
2521 //-- dlar1v --------------------------------------------------------------------
2522 void
2523 LAPACK_DECL(dlar1v)(const INTEGER *N,
2524 const INTEGER *B1,
2525 const INTEGER *BN,
2526 const DOUBLE *LAMBDA,
2527 const DOUBLE *D,
2528 const DOUBLE *L,
2529 const DOUBLE *LD,
2530 const DOUBLE *LLD,
2531 const DOUBLE *PIVMIN,
2532 const DOUBLE *GAPTOL,
2533 DOUBLE *Z,
2534 const LOGICAL *WANTNC,
2535 INTEGER *NEGCNT,
2536 DOUBLE *ZTZ,
2537 DOUBLE *MINGMA,
2538 INTEGER *R,
2539 INTEGER *ISUPPZ,
2540 DOUBLE *NRMINV,
2541 DOUBLE *RESID,
2542 DOUBLE *RQCORR,
2543 const DOUBLE *WORK);
2544
2545 //-- dlar2v --------------------------------------------------------------------
2546 void
2547 LAPACK_DECL(dlar2v)(const INTEGER *N,
2548 DOUBLE *X,
2549 DOUBLE *Y,
2550 DOUBLE *Z,
2551 const INTEGER *INCX,
2552 const DOUBLE *C,
2553 const DOUBLE *S,
2554 const INTEGER *INCC);
2555
2556 //-- dlarf ---------------------------------------------------------------------
2557 void
2558 LAPACK_DECL(dlarf)(const char *SIDE,
2559 const INTEGER *M,
2560 const INTEGER *N,
2561 const DOUBLE *V,
2562 const INTEGER *INCV,
2563 const DOUBLE *TAU,
2564 DOUBLE *C,
2565 const INTEGER *LDC,
2566 const DOUBLE *WORK);
2567
2568 //-- dlarfb --------------------------------------------------------------------
2569 void
2570 LAPACK_DECL(dlarfb)(const char *SIDE,
2571 const char *TRANS,
2572 const char *DIRECT,
2573 const char *STOREV,
2574 const INTEGER *M,
2575 const INTEGER *N,
2576 const INTEGER *K,
2577 const DOUBLE *V,
2578 const INTEGER *LDV,
2579 const DOUBLE *T,
2580 const INTEGER *LDT,
2581 DOUBLE *C,
2582 const INTEGER *LDC,
2583 const DOUBLE *WORK,
2584 const INTEGER *LDWORK);
2585
2586 //-- dlarfg --------------------------------------------------------------------
2587 void
2588 LAPACK_DECL(dlarfg)(const INTEGER *N,
2589 DOUBLE *ALPHA,
2590 DOUBLE *X,
2591 const INTEGER *INCX,
2592 DOUBLE *TAU);
2593
2594 //-- dlarfgp -------------------------------------------------------------------
2595 void
2596 LAPACK_DECL(dlarfgp)(const INTEGER *N,
2597 DOUBLE *ALPHA,
2598 DOUBLE *X,
2599 const INTEGER *INCX,
2600 DOUBLE *TAU);
2601
2602 //-- dlarft --------------------------------------------------------------------
2603 void
2604 LAPACK_DECL(dlarft)(const char *DIRECT,
2605 const char *STOREV,
2606 const INTEGER *N,
2607 const INTEGER *K,
2608 DOUBLE *V,
2609 const INTEGER *LDV,
2610 const DOUBLE *TAU,
2611 DOUBLE *T,
2612 const INTEGER *LDT);
2613
2614 //-- dlarfx --------------------------------------------------------------------
2615 void
2616 LAPACK_DECL(dlarfx)(const char *SIDE,
2617 const INTEGER *M,
2618 const INTEGER *N,
2619 const DOUBLE *V,
2620 const DOUBLE *TAU,
2621 DOUBLE *C,
2622 const INTEGER *LDC,
2623 const DOUBLE *WORK);
2624
2625 //-- dlargv --------------------------------------------------------------------
2626 void
2627 LAPACK_DECL(dlargv)(const INTEGER *N,
2628 DOUBLE *X,
2629 const INTEGER *INCX,
2630 DOUBLE *Y,
2631 const INTEGER *INCY,
2632 DOUBLE *C,
2633 const INTEGER *INCC);
2634
2635 //-- dlarnv --------------------------------------------------------------------
2636 void
2637 LAPACK_DECL(dlarnv)(const INTEGER *IDIST,
2638 INTEGER *ISEED,
2639 const INTEGER *N,
2640 DOUBLE *X);
2641
2642 //-- dlarra --------------------------------------------------------------------
2643 void
2644 LAPACK_DECL(dlarra)(const INTEGER *N,
2645 const DOUBLE *D,
2646 DOUBLE *E,
2647 DOUBLE *E2,
2648 const DOUBLE *SPLTOL,
2649 const DOUBLE *TNRM,
2650 INTEGER *NSPLIT,
2651 INTEGER *ISPLIT,
2652 INTEGER *INFO);
2653
2654 //-- dlarrb --------------------------------------------------------------------
2655 void
2656 LAPACK_DECL(dlarrb)(const INTEGER *N,
2657 const DOUBLE *D,
2658 const DOUBLE *LLD,
2659 const INTEGER *IFIRST,
2660 const INTEGER *ILAST,
2661 const DOUBLE *RTOL1,
2662 const DOUBLE *RTOL2,
2663 const INTEGER *OFFSET,
2664 DOUBLE *W,
2665 DOUBLE *WGAP,
2666 DOUBLE *WERR,
2667 const DOUBLE *WORK,
2668 const INTEGER *IWORK,
2669 const DOUBLE *PIVMIN,
2670 const DOUBLE *SPDIAM,
2671 const INTEGER *TWIST,
2672 INTEGER *INFO);
2673
2674 //-- dlarrc --------------------------------------------------------------------
2675 void
2676 LAPACK_DECL(dlarrc)(const char *JOBT,
2677 const INTEGER *N,
2678 const DOUBLE *VL,
2679 const DOUBLE *VU,
2680 const DOUBLE *D,
2681 const DOUBLE *E,
2682 const DOUBLE *PIVMIN,
2683 INTEGER *EIGCNT,
2684 INTEGER *LCNT,
2685 INTEGER *RCNT,
2686 INTEGER *INFO);
2687
2688 //-- dlarrd --------------------------------------------------------------------
2689 void
2690 LAPACK_DECL(dlarrd)(const char *RANGE,
2691 const char *ORDER,
2692 const INTEGER *N,
2693 const DOUBLE *VL,
2694 const DOUBLE *VU,
2695 const INTEGER *IL,
2696 const INTEGER *IU,
2697 const DOUBLE *GERS,
2698 const DOUBLE *RELTOL,
2699 const DOUBLE *D,
2700 const DOUBLE *E,
2701 const DOUBLE *E2,
2702 const DOUBLE *PIVMIN,
2703 const INTEGER *NSPLIT,
2704 const INTEGER *ISPLIT,
2705 INTEGER *M,
2706 DOUBLE *W,
2707 DOUBLE *WERR,
2708 DOUBLE *WL,
2709 DOUBLE *WU,
2710 INTEGER *IBLOCK,
2711 INTEGER *INDEXW,
2712 const DOUBLE *WORK,
2713 const INTEGER *IWORK,
2714 INTEGER *INFO);
2715
2716 //-- dlarre --------------------------------------------------------------------
2717 void
2718 LAPACK_DECL(dlarre)(const char *RANGE,
2719 const INTEGER *N,
2720 DOUBLE *VL,
2721 DOUBLE *VU,
2722 const INTEGER *IL,
2723 const INTEGER *IU,
2724 DOUBLE *D,
2725 DOUBLE *E,
2726 DOUBLE *E2,
2727 const DOUBLE *RTOL1,
2728 const DOUBLE *RTOL2,
2729 const DOUBLE *SPLTOL,
2730 INTEGER *NSPLIT,
2731 INTEGER *ISPLIT,
2732 INTEGER *M,
2733 DOUBLE *W,
2734 DOUBLE *WERR,
2735 DOUBLE *WGAP,
2736 INTEGER *IBLOCK,
2737 INTEGER *INDEXW,
2738 DOUBLE *GERS,
2739 DOUBLE *PIVMIN,
2740 const DOUBLE *WORK,
2741 const INTEGER *IWORK,
2742 INTEGER *INFO);
2743
2744 //-- dlarrf --------------------------------------------------------------------
2745 void
2746 LAPACK_DECL(dlarrf)(const INTEGER *N,
2747 const DOUBLE *D,
2748 const DOUBLE *L,
2749 const DOUBLE *LD,
2750 const INTEGER *CLSTRT,
2751 const INTEGER *CLEND,
2752 const DOUBLE *W,
2753 DOUBLE *WGAP,
2754 const DOUBLE *WERR,
2755 const DOUBLE *SPDIAM,
2756 const DOUBLE *CLGAPL,
2757 const DOUBLE *CLGAPR,
2758 const DOUBLE *PIVMIN,
2759 DOUBLE *SIGMA,
2760 DOUBLE *DPLUS,
2761 DOUBLE *LPLUS,
2762 const DOUBLE *WORK,
2763 INTEGER *INFO);
2764
2765 //-- dlarrj --------------------------------------------------------------------
2766 void
2767 LAPACK_DECL(dlarrj)(const INTEGER *N,
2768 const DOUBLE *D,
2769 const DOUBLE *E2,
2770 const INTEGER *IFIRST,
2771 const INTEGER *ILAST,
2772 const DOUBLE *RTOL,
2773 const INTEGER *OFFSET,
2774 DOUBLE *W,
2775 DOUBLE *WERR,
2776 const DOUBLE *WORK,
2777 const INTEGER *IWORK,
2778 const DOUBLE *PIVMIN,
2779 const DOUBLE *SPDIAM,
2780 INTEGER *INFO);
2781
2782 //-- dlarrk --------------------------------------------------------------------
2783 void
2784 LAPACK_DECL(dlarrk)(const INTEGER *N,
2785 const INTEGER *IW,
2786 const DOUBLE *GL,
2787 const DOUBLE *GU,
2788 const DOUBLE *D,
2789 const DOUBLE *E2,
2790 const DOUBLE *PIVMIN,
2791 const DOUBLE *RELTOL,
2792 DOUBLE *W,
2793 DOUBLE *WERR,
2794 INTEGER *INFO);
2795
2796 //-- dlarrr --------------------------------------------------------------------
2797 void
2798 LAPACK_DECL(dlarrr)(const INTEGER *N,
2799 const DOUBLE *D,
2800 DOUBLE *E,
2801 INTEGER *INFO);
2802
2803 //-- dlarrv --------------------------------------------------------------------
2804 void
2805 LAPACK_DECL(dlarrv)(const INTEGER *N,
2806 const DOUBLE *VL,
2807 const DOUBLE *VU,
2808 DOUBLE *D,
2809 DOUBLE *L,
2810 const DOUBLE *PIVMIN,
2811 const INTEGER *ISPLIT,
2812 const INTEGER *M,
2813 const INTEGER *DOL,
2814 const INTEGER *DOU,
2815 const DOUBLE *MINRGP,
2816 const DOUBLE *RTOL1,
2817 const DOUBLE *RTOL2,
2818 DOUBLE *W,
2819 DOUBLE *WERR,
2820 DOUBLE *WGAP,
2821 const INTEGER *IBLOCK,
2822 const INTEGER *INDEXW,
2823 const DOUBLE *GERS,
2824 DOUBLE *Z,
2825 const INTEGER *LDZ,
2826 INTEGER *ISUPPZ,
2827 const DOUBLE *WORK,
2828 const INTEGER *IWORK,
2829 INTEGER *INFO);
2830
2831 //-- dlarscl2 ------------------------------------------------------------------
2832 void
2833 LAPACK_DECL(dlarscl2)(const INTEGER *M,
2834 const INTEGER *N,
2835 const DOUBLE *D,
2836 DOUBLE *X,
2837 const INTEGER *LDX);
2838
2839 //-- dlartg --------------------------------------------------------------------
2840 void
2841 LAPACK_DECL(dlartg)(const DOUBLE *F,
2842 const DOUBLE *G,
2843 DOUBLE *CS,
2844 DOUBLE *SN,
2845 DOUBLE *R);
2846
2847 //-- dlartgp -------------------------------------------------------------------
2848 void
2849 LAPACK_DECL(dlartgp)(const DOUBLE *F,
2850 const DOUBLE *G,
2851 DOUBLE *CS,
2852 DOUBLE *SN,
2853 DOUBLE *R);
2854
2855 //-- dlartgs -------------------------------------------------------------------
2856 void
2857 LAPACK_DECL(dlartgs)(const DOUBLE *X,
2858 const DOUBLE *Y,
2859 const DOUBLE *SIGMA,
2860 DOUBLE *CS,
2861 DOUBLE *SN);
2862
2863 //-- dlartv --------------------------------------------------------------------
2864 void
2865 LAPACK_DECL(dlartv)(const INTEGER *N,
2866 DOUBLE *X,
2867 const INTEGER *INCX,
2868 DOUBLE *Y,
2869 const INTEGER *INCY,
2870 const DOUBLE *C,
2871 const DOUBLE *S,
2872 const INTEGER *INCC);
2873
2874 //-- dlaruv --------------------------------------------------------------------
2875 void
2876 LAPACK_DECL(dlaruv)(INTEGER *ISEED,
2877 const INTEGER *N,
2878 DOUBLE *X);
2879
2880 //-- dlarz ---------------------------------------------------------------------
2881 void
2882 LAPACK_DECL(dlarz)(const char *SIDE,
2883 const INTEGER *M,
2884 const INTEGER *N,
2885 const INTEGER *L,
2886 const DOUBLE *V,
2887 const INTEGER *INCV,
2888 const DOUBLE *TAU,
2889 DOUBLE *C,
2890 const INTEGER *LDC,
2891 const DOUBLE *WORK);
2892
2893 //-- dlarzb --------------------------------------------------------------------
2894 void
2895 LAPACK_DECL(dlarzb)(const char *SIDE,
2896 const char *TRANS,
2897 const char *DIRECT,
2898 const char *STOREV,
2899 const INTEGER *M,
2900 const INTEGER *N,
2901 const INTEGER *K,
2902 const INTEGER *L,
2903 const DOUBLE *V,
2904 const INTEGER *LDV,
2905 const DOUBLE *T,
2906 const INTEGER *LDT,
2907 DOUBLE *C,
2908 const INTEGER *LDC,
2909 const DOUBLE *WORK,
2910 const INTEGER *LDWORK);
2911
2912 //-- dlarzt --------------------------------------------------------------------
2913 void
2914 LAPACK_DECL(dlarzt)(const char *DIRECT,
2915 const char *STOREV,
2916 const INTEGER *N,
2917 const INTEGER *K,
2918 DOUBLE *V,
2919 const INTEGER *LDV,
2920 const DOUBLE *TAU,
2921 DOUBLE *T,
2922 const INTEGER *LDT);
2923
2924 //-- dlas2 ---------------------------------------------------------------------
2925 void
2926 LAPACK_DECL(dlas2)(const DOUBLE *F,
2927 const DOUBLE *G,
2928 const DOUBLE *H,
2929 DOUBLE *SSMIN,
2930 DOUBLE *SSMAX);
2931
2932 //-- dlascl --------------------------------------------------------------------
2933 void
2934 LAPACK_DECL(dlascl)(const char *TYPE,
2935 const INTEGER *KL,
2936 const INTEGER *KU,
2937 const DOUBLE *CFROM,
2938 const DOUBLE *CTO,
2939 const INTEGER *M,
2940 const INTEGER *N,
2941 DOUBLE *A,
2942 const INTEGER *LDA,
2943 INTEGER *INFO);
2944
2945 //-- dlascl2 -------------------------------------------------------------------
2946 void
2947 LAPACK_DECL(dlascl2)(const INTEGER *M,
2948 const INTEGER *N,
2949 const DOUBLE *D,
2950 DOUBLE *X,
2951 const INTEGER *LDX);
2952
2953 //-- dlasd0 --------------------------------------------------------------------
2954 void
2955 LAPACK_DECL(dlasd0)(const INTEGER *N,
2956 const INTEGER *SQRE,
2957 DOUBLE *D,
2958 const DOUBLE *E,
2959 DOUBLE *U,
2960 const INTEGER *LDU,
2961 DOUBLE *VT,
2962 const INTEGER *LDVT,
2963 const INTEGER *SMLSIZ,
2964 const INTEGER *IWORK,
2965 const DOUBLE *WORK,
2966 INTEGER *INFO);
2967
2968 //-- dlasd1 --------------------------------------------------------------------
2969 void
2970 LAPACK_DECL(dlasd1)(const INTEGER *NL,
2971 const INTEGER *NR,
2972 const INTEGER *SQRE,
2973 DOUBLE *D,
2974 DOUBLE *ALPHA,
2975 DOUBLE *BETA,
2976 DOUBLE *U,
2977 const INTEGER *LDU,
2978 DOUBLE *VT,
2979 const INTEGER *LDVT,
2980 INTEGER *IDXQ,
2981 const INTEGER *IWORK,
2982 const DOUBLE *WORK,
2983 INTEGER *INFO);
2984
2985 //-- dlasd2 --------------------------------------------------------------------
2986 void
2987 LAPACK_DECL(dlasd2)(const INTEGER *NL,
2988 const INTEGER *NR,
2989 const INTEGER *SQRE,
2990 INTEGER *K,
2991 DOUBLE *D,
2992 DOUBLE *Z,
2993 const DOUBLE *ALPHA,
2994 const DOUBLE *BETA,
2995 DOUBLE *U,
2996 const INTEGER *LDU,
2997 DOUBLE *VT,
2998 const INTEGER *LDVT,
2999 DOUBLE *DSIGMA,
3000 DOUBLE *U2,
3001 const INTEGER *LDU2,
3002 DOUBLE *VT2,
3003 const INTEGER *LDVT2,
3004 const INTEGER *IDXP,
3005 const INTEGER *IDX,
3006 INTEGER *IDXC,
3007 INTEGER *IDXQ,
3008 INTEGER *COLTYP,
3009 INTEGER *INFO);
3010
3011 //-- dlasd3 --------------------------------------------------------------------
3012 void
3013 LAPACK_DECL(dlasd3)(const INTEGER *NL,
3014 const INTEGER *NR,
3015 const INTEGER *SQRE,
3016 const INTEGER *K,
3017 DOUBLE *D,
3018 const DOUBLE *Q,
3019 const INTEGER *LDQ,
3020 const DOUBLE *DSIGMA,
3021 DOUBLE *U,
3022 const INTEGER *LDU,
3023 DOUBLE *U2,
3024 const INTEGER *LDU2,
3025 DOUBLE *VT,
3026 const INTEGER *LDVT,
3027 DOUBLE *VT2,
3028 const INTEGER *LDVT2,
3029 const INTEGER *IDXC,
3030 const INTEGER *CTOT,
3031 const DOUBLE *Z,
3032 INTEGER *INFO);
3033
3034 //-- dlasd4 --------------------------------------------------------------------
3035 void
3036 LAPACK_DECL(dlasd4)(const INTEGER *N,
3037 const INTEGER *I,
3038 const DOUBLE *D,
3039 const DOUBLE *Z,
3040 DOUBLE *DELTA,
3041 const DOUBLE *RHO,
3042 DOUBLE *SIGMA,
3043 const DOUBLE *WORK,
3044 INTEGER *INFO);
3045
3046 //-- dlasd5 --------------------------------------------------------------------
3047 void
3048 LAPACK_DECL(dlasd5)(const INTEGER *I,
3049 const DOUBLE *D,
3050 const DOUBLE *Z,
3051 DOUBLE *DELTA,
3052 const DOUBLE *RHO,
3053 DOUBLE *DSIGMA,
3054 const DOUBLE *WORK);
3055
3056 //-- dlasd6 --------------------------------------------------------------------
3057 void
3058 LAPACK_DECL(dlasd6)(const INTEGER *ICOMPQ,
3059 const INTEGER *NL,
3060 const INTEGER *NR,
3061 const INTEGER *SQRE,
3062 DOUBLE *D,
3063 DOUBLE *VF,
3064 DOUBLE *VL,
3065 DOUBLE *ALPHA,
3066 DOUBLE *BETA,
3067 INTEGER *IDXQ,
3068 INTEGER *PERM,
3069 INTEGER *GIVPTR,
3070 INTEGER *GIVCOL,
3071 const INTEGER *LDGCOL,
3072 DOUBLE *GIVNUM,
3073 const INTEGER *LDGNUM,
3074 DOUBLE *POLES,
3075 DOUBLE *DIFL,
3076 DOUBLE *DIFR,
3077 DOUBLE *Z,
3078 INTEGER *K,
3079 DOUBLE *C,
3080 DOUBLE *S,
3081 const DOUBLE *WORK,
3082 const INTEGER *IWORK,
3083 INTEGER *INFO);
3084
3085 //-- dlasd7 --------------------------------------------------------------------
3086 void
3087 LAPACK_DECL(dlasd7)(const INTEGER *ICOMPQ,
3088 const INTEGER *NL,
3089 const INTEGER *NR,
3090 const INTEGER *SQRE,
3091 INTEGER *K,
3092 DOUBLE *D,
3093 DOUBLE *Z,
3094 const DOUBLE *ZW,
3095 DOUBLE *VF,
3096 const DOUBLE *VFW,
3097 DOUBLE *VL,
3098 const DOUBLE *VLW,
3099 const DOUBLE *ALPHA,
3100 const DOUBLE *BETA,
3101 DOUBLE *DSIGMA,
3102 const INTEGER *IDX,
3103 const INTEGER *IDXP,
3104 const INTEGER *IDXQ,
3105 INTEGER *PERM,
3106 INTEGER *GIVPTR,
3107 INTEGER *GIVCOL,
3108 const INTEGER *LDGCOL,
3109 DOUBLE *GIVNUM,
3110 const INTEGER *LDGNUM,
3111 DOUBLE *C,
3112 DOUBLE *S,
3113 INTEGER *INFO);
3114
3115 //-- dlasd8 --------------------------------------------------------------------
3116 void
3117 LAPACK_DECL(dlasd8)(const INTEGER *ICOMPQ,
3118 const INTEGER *K,
3119 DOUBLE *D,
3120 DOUBLE *Z,
3121 DOUBLE *VF,
3122 DOUBLE *VL,
3123 DOUBLE *DIFL,
3124 DOUBLE *DIFR,
3125 const INTEGER *LDDIFR,
3126 DOUBLE *DSIGMA,
3127 const DOUBLE *WORK,
3128 INTEGER *INFO);
3129
3130 //-- dlasda --------------------------------------------------------------------
3131 void
3132 LAPACK_DECL(dlasda)(const INTEGER *ICOMPQ,
3133 const INTEGER *SMLSIZ,
3134 const INTEGER *N,
3135 const INTEGER *SQRE,
3136 DOUBLE *D,
3137 const DOUBLE *E,
3138 DOUBLE *U,
3139 const INTEGER *LDU,
3140 DOUBLE *VT,
3141 INTEGER *K,
3142 DOUBLE *DIFL,
3143 DOUBLE *DIFR,
3144 DOUBLE *Z,
3145 DOUBLE *POLES,
3146 INTEGER *GIVPTR,
3147 INTEGER *GIVCOL,
3148 const INTEGER *LDGCOL,
3149 INTEGER *PERM,
3150 DOUBLE *GIVNUM,
3151 DOUBLE *C,
3152 DOUBLE *S,
3153 const DOUBLE *WORK,
3154 const INTEGER *IWORK,
3155 INTEGER *INFO);
3156
3157 //-- dlasdq --------------------------------------------------------------------
3158 void
3159 LAPACK_DECL(dlasdq)(const char *UPLO,
3160 const INTEGER *SQRE,
3161 const INTEGER *N,
3162 const INTEGER *NCVT,
3163 const INTEGER *NRU,
3164 const INTEGER *NCC,
3165 DOUBLE *D,
3166 DOUBLE *E,
3167 DOUBLE *VT,
3168 const INTEGER *LDVT,
3169 DOUBLE *U,
3170 const INTEGER *LDU,
3171 DOUBLE *C,
3172 const INTEGER *LDC,
3173 const DOUBLE *WORK,
3174 INTEGER *INFO);
3175
3176 //-- dlasdt --------------------------------------------------------------------
3177 void
3178 LAPACK_DECL(dlasdt)(const INTEGER *N,
3179 INTEGER *LVL,
3180 INTEGER *ND,
3181 INTEGER *INODE,
3182 INTEGER *NDIML,
3183 INTEGER *NDIMR,
3184 const INTEGER *MSUB);
3185
3186 //-- dlaset --------------------------------------------------------------------
3187 void
3188 LAPACK_DECL(dlaset)(const char *UPLO,
3189 const INTEGER *M,
3190 const INTEGER *N,
3191 const DOUBLE *ALPHA,
3192 const DOUBLE *BETA,
3193 DOUBLE *A,
3194 const INTEGER *LDA);
3195
3196 //-- dlasq1 --------------------------------------------------------------------
3197 void
3198 LAPACK_DECL(dlasq1)(const INTEGER *N,
3199 DOUBLE *D,
3200 DOUBLE *E,
3201 const DOUBLE *WORK,
3202 INTEGER *INFO);
3203
3204 //-- dlasq2 --------------------------------------------------------------------
3205 void
3206 LAPACK_DECL(dlasq2)(const INTEGER *N,
3207 DOUBLE *Z,
3208 INTEGER *INFO);
3209
3210 //-- dlasq3 --------------------------------------------------------------------
3211 void
3212 LAPACK_DECL(dlasq3)(const INTEGER *I0,
3213 INTEGER *N0,
3214 const DOUBLE *Z,
3215 INTEGER *PP,
3216 DOUBLE *DMIN,
3217 DOUBLE *SIGMA,
3218 DOUBLE *DESIG,
3219 const DOUBLE *QMAX,
3220 INTEGER *NFAIL,
3221 INTEGER *ITER,
3222 INTEGER *NDIV,
3223 const LOGICAL *IEEE,
3224 INTEGER *TTYPE,
3225 DOUBLE *DMIN1,
3226 DOUBLE *DMIN2,
3227 DOUBLE *DN,
3228 DOUBLE *DN1,
3229 DOUBLE *DN2,
3230 DOUBLE *G,
3231 DOUBLE *TAU);
3232
3233 //-- dlasq4 --------------------------------------------------------------------
3234 void
3235 LAPACK_DECL(dlasq4)(const INTEGER *I0,
3236 const INTEGER *N0,
3237 const DOUBLE *Z,
3238 const INTEGER *PP,
3239 const INTEGER *N0IN,
3240 const DOUBLE *DMIN,
3241 const DOUBLE *DMIN1,
3242 const DOUBLE *DMIN2,
3243 const DOUBLE *DN,
3244 const DOUBLE *DN1,
3245 const DOUBLE *DN2,
3246 DOUBLE *TAU,
3247 INTEGER *TTYPE,
3248 DOUBLE *G);
3249
3250 //-- dlasq5 --------------------------------------------------------------------
3251 void
3252 LAPACK_DECL(dlasq5)(const INTEGER *I0,
3253 const INTEGER *N0,
3254 const DOUBLE *Z,
3255 const INTEGER *PP,
3256 const DOUBLE *TAU,
3257 DOUBLE *DMIN,
3258 DOUBLE *DMIN1,
3259 DOUBLE *DMIN2,
3260 DOUBLE *DN,
3261 DOUBLE *DNM1,
3262 DOUBLE *DNM2,
3263 const LOGICAL *IEEE);
3264
3265 //-- dlasq6 --------------------------------------------------------------------
3266 void
3267 LAPACK_DECL(dlasq6)(const INTEGER *I0,
3268 const INTEGER *N0,
3269 const DOUBLE *Z,
3270 const INTEGER *PP,
3271 DOUBLE *DMIN,
3272 DOUBLE *DMIN1,
3273 DOUBLE *DMIN2,
3274 DOUBLE *DN,
3275 DOUBLE *DNM1,
3276 DOUBLE *DNM2);
3277
3278 //-- dlasr ---------------------------------------------------------------------
3279 void
3280 LAPACK_DECL(dlasr)(const char *SIDE,
3281 const char *PIVOT,
3282 const char *DIRECT,
3283 const INTEGER *M,
3284 const INTEGER *N,
3285 const DOUBLE *C,
3286 const DOUBLE *S,
3287 DOUBLE *A,
3288 const INTEGER *LDA);
3289
3290 //-- dlasrt --------------------------------------------------------------------
3291 void
3292 LAPACK_DECL(dlasrt)(const char *ID,
3293 const INTEGER *N,
3294 DOUBLE *D,
3295 INTEGER *INFO);
3296
3297 //-- dlassq --------------------------------------------------------------------
3298 void
3299 LAPACK_DECL(dlassq)(const INTEGER *N,
3300 const DOUBLE *X,
3301 const INTEGER *INCX,
3302 DOUBLE *SCALE,
3303 DOUBLE *SUMSQ);
3304
3305 //-- dlasv2 --------------------------------------------------------------------
3306 void
3307 LAPACK_DECL(dlasv2)(const DOUBLE *F,
3308 const DOUBLE *G,
3309 const DOUBLE *H,
3310 DOUBLE *SSMIN,
3311 DOUBLE *SSMAX,
3312 DOUBLE *SNR,
3313 DOUBLE *CSR,
3314 DOUBLE *SNL,
3315 DOUBLE *CSL);
3316
3317 //-- dlaswp --------------------------------------------------------------------
3318 void
3319 LAPACK_DECL(dlaswp)(const INTEGER *N,
3320 DOUBLE *A,
3321 const INTEGER *LDA,
3322 const INTEGER *K1,
3323 const INTEGER *K2,
3324 const INTEGER *IPIV,
3325 const INTEGER *INCX);
3326
3327 //-- dlasy2 --------------------------------------------------------------------
3328 void
3329 LAPACK_DECL(dlasy2)(const LOGICAL *LTRANL,
3330 const LOGICAL *LTRANR,
3331 const INTEGER *ISGN,
3332 const INTEGER *N1,
3333 const INTEGER *N2,
3334 const DOUBLE *TL,
3335 const INTEGER *LDTL,
3336 const DOUBLE *TR,
3337 const INTEGER *LDTR,
3338 const DOUBLE *B,
3339 const INTEGER *LDB,
3340 DOUBLE *SCALE,
3341 DOUBLE *X,
3342 const INTEGER *LDX,
3343 DOUBLE *XNORM,
3344 INTEGER *INFO);
3345
3346 //-- dlasyf --------------------------------------------------------------------
3347 void
3348 LAPACK_DECL(dlasyf)(const char *UPLO,
3349 const INTEGER *N,
3350 const INTEGER *NB,
3351 INTEGER *KB,
3352 DOUBLE *A,
3353 const INTEGER *LDA,
3354 INTEGER *IPIV,
3355 const DOUBLE *W,
3356 const INTEGER *LDW,
3357 INTEGER *INFO);
3358
3359 //-- dlat2s --------------------------------------------------------------------
3360 void
3361 LAPACK_DECL(dlat2s)(const char *UPLO,
3362 const INTEGER *N,
3363 const DOUBLE *A,
3364 const INTEGER *LDA,
3365 FLOAT *SA,
3366 const INTEGER *LDSA,
3367 INTEGER *INFO);
3368
3369 //-- dlatbs --------------------------------------------------------------------
3370 void
3371 LAPACK_DECL(dlatbs)(const char *UPLO,
3372 const char *TRANS,
3373 const char *DIAG,
3374 const char *NORMIN,
3375 const INTEGER *N,
3376 const INTEGER *KD,
3377 const DOUBLE *AB,
3378 const INTEGER *LDAB,
3379 DOUBLE *X,
3380 DOUBLE *SCALE,
3381 DOUBLE *CNORM,
3382 INTEGER *INFO);
3383
3384 //-- dlatdf --------------------------------------------------------------------
3385 void
3386 LAPACK_DECL(dlatdf)(const INTEGER *IJOB,
3387 const INTEGER *N,
3388 const DOUBLE *Z,
3389 const INTEGER *LDZ,
3390 DOUBLE *RHS,
3391 DOUBLE *RDSUM,
3392 DOUBLE *RDSCAL,
3393 const INTEGER *IPIV,
3394 const INTEGER *JPIV);
3395
3396 //-- dlatps --------------------------------------------------------------------
3397 void
3398 LAPACK_DECL(dlatps)(const char *UPLO,
3399 const char *TRANS,
3400 const char *DIAG,
3401 const char *NORMIN,
3402 const INTEGER *N,
3403 const DOUBLE *AP,
3404 DOUBLE *X,
3405 DOUBLE *SCALE,
3406 DOUBLE *CNORM,
3407 INTEGER *INFO);
3408
3409 //-- dlatrd --------------------------------------------------------------------
3410 void
3411 LAPACK_DECL(dlatrd)(const char *UPLO,
3412 const INTEGER *N,
3413 const INTEGER *NB,
3414 DOUBLE *A,
3415 const INTEGER *LDA,
3416 DOUBLE *E,
3417 DOUBLE *TAU,
3418 DOUBLE *W,
3419 const INTEGER *LDW);
3420
3421 //-- dlatrs --------------------------------------------------------------------
3422 void
3423 LAPACK_DECL(dlatrs)(const char *UPLO,
3424 const char *TRANS,
3425 const char *DIAG,
3426 const char *NORMIN,
3427 const INTEGER *N,
3428 const DOUBLE *A,
3429 const INTEGER *LDA,
3430 DOUBLE *X,
3431 DOUBLE *SCALE,
3432 DOUBLE *CNORM,
3433 INTEGER *INFO);
3434
3435 //-- dlatrz --------------------------------------------------------------------
3436 void
3437 LAPACK_DECL(dlatrz)(const INTEGER *M,
3438 const INTEGER *N,
3439 const INTEGER *L,
3440 DOUBLE *A,
3441 const INTEGER *LDA,
3442 DOUBLE *TAU,
3443 const DOUBLE *WORK);
3444
3445 //-- dlatzm --------------------------------------------------------------------
3446 void
3447 LAPACK_DECL(dlatzm)(const char *SIDE,
3448 const INTEGER *M,
3449 const INTEGER *N,
3450 const DOUBLE *V,
3451 const INTEGER *INCV,
3452 const DOUBLE *TAU,
3453 DOUBLE *C1,
3454 DOUBLE *C2,
3455 const INTEGER *LDC,
3456 const DOUBLE *WORK);
3457
3458 //-- dlauu2 --------------------------------------------------------------------
3459 void
3460 LAPACK_DECL(dlauu2)(const char *UPLO,
3461 const INTEGER *N,
3462 DOUBLE *A,
3463 const INTEGER *LDA,
3464 INTEGER *INFO);
3465
3466 //-- dlauum --------------------------------------------------------------------
3467 void
3468 LAPACK_DECL(dlauum)(const char *UPLO,
3469 const INTEGER *N,
3470 DOUBLE *A,
3471 const INTEGER *LDA,
3472 INTEGER *INFO);
3473
3474 //-- dopgtr --------------------------------------------------------------------
3475 void
3476 LAPACK_DECL(dopgtr)(const char *UPLO,
3477 const INTEGER *N,
3478 const DOUBLE *AP,
3479 const DOUBLE *TAU,
3480 DOUBLE *Q,
3481 const INTEGER *LDQ,
3482 const DOUBLE *WORK,
3483 INTEGER *INFO);
3484
3485 //-- dopmtr --------------------------------------------------------------------
3486 void
3487 LAPACK_DECL(dopmtr)(const char *SIDE,
3488 const char *UPLO,
3489 const char *TRANS,
3490 const INTEGER *M,
3491 const INTEGER *N,
3492 const DOUBLE *AP,
3493 const DOUBLE *TAU,
3494 DOUBLE *C,
3495 const INTEGER *LDC,
3496 const DOUBLE *WORK,
3497 INTEGER *INFO);
3498
3499 //-- dorbdb --------------------------------------------------------------------
3500 void
3501 LAPACK_DECL(dorbdb)(const char *TRANS,
3502 const char *SIGNS,
3503 const INTEGER *M,
3504 const INTEGER *P,
3505 const INTEGER *Q,
3506 DOUBLE *X11,
3507 const INTEGER *LDX11,
3508 DOUBLE *X12,
3509 const INTEGER *LDX12,
3510 DOUBLE *X21,
3511 const INTEGER *LDX21,
3512 DOUBLE *X22,
3513 const INTEGER *LDX22,
3514 DOUBLE *THETA,
3515 DOUBLE *PHI,
3516 DOUBLE *TAUP1,
3517 DOUBLE *TAUP2,
3518 DOUBLE *TAUQ1,
3519 DOUBLE *TAUQ2,
3520 const DOUBLE *WORK,
3521 const INTEGER *LWORK,
3522 INTEGER *INFO);
3523
3524 //-- dorcsd --------------------------------------------------------------------
3525 void
3526 LAPACK_DECL(dorcsd)(const char *JOBU1,
3527 const char *JOBU2,
3528 const char *JOBV1T,
3529 const char *JOBV2T,
3530 const char *TRANS,
3531 const char *SIGNS,
3532 const INTEGER *M,
3533 const INTEGER *P,
3534 const INTEGER *Q,
3535 const DOUBLE *X11,
3536 const INTEGER *LDX11,
3537 const DOUBLE *X12,
3538 const INTEGER *LDX12,
3539 const DOUBLE *X21,
3540 const INTEGER *LDX21,
3541 const DOUBLE *X22,
3542 const INTEGER *LDX22,
3543 DOUBLE *THETA,
3544 DOUBLE *U1,
3545 const INTEGER *LDU1,
3546 DOUBLE *U2,
3547 const INTEGER *LDU2,
3548 DOUBLE *V1T,
3549 const INTEGER *LDV1T,
3550 DOUBLE *V2T,
3551 const INTEGER *LDV2T,
3552 const DOUBLE *WORK,
3553 const INTEGER *LWORK,
3554 const INTEGER *IWORK,
3555 INTEGER *INFO);
3556
3557 //-- dorg2l --------------------------------------------------------------------
3558 void
3559 LAPACK_DECL(dorg2l)(const INTEGER *M,
3560 const INTEGER *N,
3561 const INTEGER *K,
3562 DOUBLE *A,
3563 const INTEGER *LDA,
3564 const DOUBLE *TAU,
3565 const DOUBLE *WORK,
3566 INTEGER *INFO);
3567
3568 //-- dorg2r --------------------------------------------------------------------
3569 void
3570 LAPACK_DECL(dorg2r)(const INTEGER *M,
3571 const INTEGER *N,
3572 const INTEGER *K,
3573 DOUBLE *A,
3574 const INTEGER *LDA,
3575 const DOUBLE *TAU,
3576 DOUBLE *WORK,
3577 INTEGER *INFO);
3578
3579 //-- dorgbr --------------------------------------------------------------------
3580 void
3581 LAPACK_DECL(dorgbr)(const char *VECT,
3582 const INTEGER *M,
3583 const INTEGER *N,
3584 const INTEGER *K,
3585 DOUBLE *A,
3586 const INTEGER *LDA,
3587 const DOUBLE *TAU,
3588 DOUBLE *WORK,
3589 const INTEGER *LWORK,
3590 INTEGER *INFO);
3591
3592 //-- dorghr --------------------------------------------------------------------
3593 void
3594 LAPACK_DECL(dorghr)(const INTEGER *N,
3595 const INTEGER *ILO,
3596 const INTEGER *IHI,
3597 DOUBLE *A,
3598 const INTEGER *LDA,
3599 const DOUBLE *TAU,
3600 DOUBLE *WORK,
3601 const INTEGER *LWORK,
3602 INTEGER *INFO);
3603
3604 //-- dorgl2 --------------------------------------------------------------------
3605 void
3606 LAPACK_DECL(dorgl2)(const INTEGER *M,
3607 const INTEGER *N,
3608 const INTEGER *K,
3609 DOUBLE *A,
3610 const INTEGER *LDA,
3611 const DOUBLE *TAU,
3612 const DOUBLE *WORK,
3613 INTEGER *INFO);
3614
3615 //-- dorglq --------------------------------------------------------------------
3616 void
3617 LAPACK_DECL(dorglq)(const INTEGER *M,
3618 const INTEGER *N,
3619 const INTEGER *K,
3620 DOUBLE *A,
3621 const INTEGER *LDA,
3622 const DOUBLE *TAU,
3623 DOUBLE *WORK,
3624 const INTEGER *LWORK,
3625 INTEGER *INFO);
3626
3627 //-- dorgql --------------------------------------------------------------------
3628 void
3629 LAPACK_DECL(dorgql)(const INTEGER *M,
3630 const INTEGER *N,
3631 const INTEGER *K,
3632 DOUBLE *A,
3633 const INTEGER *LDA,
3634 const DOUBLE *TAU,
3635 DOUBLE *WORK,
3636 const INTEGER *LWORK,
3637 INTEGER *INFO);
3638
3639 //-- dorgqr --------------------------------------------------------------------
3640 void
3641 LAPACK_DECL(dorgqr)(const INTEGER *M,
3642 const INTEGER *N,
3643 const INTEGER *K,
3644 DOUBLE *A,
3645 const INTEGER *LDA,
3646 const DOUBLE *TAU,
3647 DOUBLE *WORK,
3648 const INTEGER *LWORK,
3649 INTEGER *INFO);
3650
3651 //-- dorgr2 --------------------------------------------------------------------
3652 void
3653 LAPACK_DECL(dorgr2)(const INTEGER *M,
3654 const INTEGER *N,
3655 const INTEGER *K,
3656 DOUBLE *A,
3657 const INTEGER *LDA,
3658 const DOUBLE *TAU,
3659 const DOUBLE *WORK,
3660 INTEGER *INFO);
3661
3662 //-- dorgrq --------------------------------------------------------------------
3663 void
3664 LAPACK_DECL(dorgrq)(const INTEGER *M,
3665 const INTEGER *N,
3666 const INTEGER *K,
3667 DOUBLE *A,
3668 const INTEGER *LDA,
3669 const DOUBLE *TAU,
3670 DOUBLE *WORK,
3671 const INTEGER *LWORK,
3672 INTEGER *INFO);
3673
3674 //-- dorgtr --------------------------------------------------------------------
3675 void
3676 LAPACK_DECL(dorgtr)(const char *UPLO,
3677 const INTEGER *N,
3678 DOUBLE *A,
3679 const INTEGER *LDA,
3680 const DOUBLE *TAU,
3681 DOUBLE *WORK,
3682 const INTEGER *LWORK,
3683 INTEGER *INFO);
3684
3685 //-- dorm2l --------------------------------------------------------------------
3686 void
3687 LAPACK_DECL(dorm2l)(const char *SIDE,
3688 const char *TRANS,
3689 const INTEGER *M,
3690 const INTEGER *N,
3691 const INTEGER *K,
3692 const DOUBLE *A,
3693 const INTEGER *LDA,
3694 const DOUBLE *TAU,
3695 DOUBLE *C,
3696 const INTEGER *LDC,
3697 const DOUBLE *WORK,
3698 INTEGER *INFO);
3699
3700 //-- dorm2r --------------------------------------------------------------------
3701 void
3702 LAPACK_DECL(dorm2r)(const char *SIDE,
3703 const char *TRANS,
3704 const INTEGER *M,
3705 const INTEGER *N,
3706 const INTEGER *K,
3707 const DOUBLE *A,
3708 const INTEGER *LDA,
3709 const DOUBLE *TAU,
3710 DOUBLE *C,
3711 const INTEGER *LDC,
3712 const DOUBLE *WORK,
3713 INTEGER *INFO);
3714
3715 //-- dormbr --------------------------------------------------------------------
3716 void
3717 LAPACK_DECL(dormbr)(const char *VECT,
3718 const char *SIDE,
3719 const char *TRANS,
3720 const INTEGER *M,
3721 const INTEGER *N,
3722 const INTEGER *K,
3723 const DOUBLE *A,
3724 const INTEGER *LDA,
3725 const DOUBLE *TAU,
3726 DOUBLE *C,
3727 const INTEGER *LDC,
3728 DOUBLE *WORK,
3729 const INTEGER *LWORK,
3730 INTEGER *INFO);
3731
3732 //-- dormhr --------------------------------------------------------------------
3733 void
3734 LAPACK_DECL(dormhr)(const char *SIDE,
3735 const char *TRANS,
3736 const INTEGER *M,
3737 const INTEGER *N,
3738 const INTEGER *ILO,
3739 const INTEGER *IHI,
3740 const DOUBLE *A,
3741 const INTEGER *LDA,
3742 const DOUBLE *TAU,
3743 DOUBLE *C,
3744 const INTEGER *LDC,
3745 DOUBLE *WORK,
3746 const INTEGER *LWORK,
3747 INTEGER *INFO);
3748
3749 //-- dorml2 --------------------------------------------------------------------
3750 void
3751 LAPACK_DECL(dorml2)(const char *SIDE,
3752 const char *TRANS,
3753 const INTEGER *M,
3754 const INTEGER *N,
3755 const INTEGER *K,
3756 const DOUBLE *A,
3757 const INTEGER *LDA,
3758 const DOUBLE *TAU,
3759 DOUBLE *C,
3760 const INTEGER *LDC,
3761 const DOUBLE *WORK,
3762 INTEGER *INFO);
3763
3764 //-- dormlq --------------------------------------------------------------------
3765 void
3766 LAPACK_DECL(dormlq)(const char *SIDE,
3767 const char *TRANS,
3768 const INTEGER *M,
3769 const INTEGER *N,
3770 const INTEGER *K,
3771 const DOUBLE *A,
3772 const INTEGER *LDA,
3773 const DOUBLE *TAU,
3774 DOUBLE *C,
3775 const INTEGER *LDC,
3776 DOUBLE *WORK,
3777 const INTEGER *LWORK,
3778 INTEGER *INFO);
3779
3780 //-- dormql --------------------------------------------------------------------
3781 void
3782 LAPACK_DECL(dormql)(const char *SIDE,
3783 const char *TRANS,
3784 const INTEGER *M,
3785 const INTEGER *N,
3786 const INTEGER *K,
3787 const DOUBLE *A,
3788 const INTEGER *LDA,
3789 const DOUBLE *TAU,
3790 DOUBLE *C,
3791 const INTEGER *LDC,
3792 DOUBLE *WORK,
3793 const INTEGER *LWORK,
3794 INTEGER *INFO);
3795
3796 //-- dormqr --------------------------------------------------------------------
3797 void
3798 LAPACK_DECL(dormqr)(const char *SIDE,
3799 const char *TRANS,
3800 const INTEGER *M,
3801 const INTEGER *N,
3802 const INTEGER *K,
3803 DOUBLE *A,
3804 const INTEGER *LDA,
3805 const DOUBLE *TAU,
3806 DOUBLE *C,
3807 const INTEGER *LDC,
3808 DOUBLE *WORK,
3809 const INTEGER *LWORK,
3810 INTEGER *INFO);
3811
3812 //-- dormr2 --------------------------------------------------------------------
3813 void
3814 LAPACK_DECL(dormr2)(const char *SIDE,
3815 const char *TRANS,
3816 const INTEGER *M,
3817 const INTEGER *N,
3818 const INTEGER *K,
3819 const DOUBLE *A,
3820 const INTEGER *LDA,
3821 const DOUBLE *TAU,
3822 DOUBLE *C,
3823 const INTEGER *LDC,
3824 const DOUBLE *WORK,
3825 INTEGER *INFO);
3826
3827 //-- dormr3 --------------------------------------------------------------------
3828 void
3829 LAPACK_DECL(dormr3)(const char *SIDE,
3830 const char *TRANS,
3831 const INTEGER *M,
3832 const INTEGER *N,
3833 const INTEGER *K,
3834 const INTEGER *L,
3835 const DOUBLE *A,
3836 const INTEGER *LDA,
3837 const DOUBLE *TAU,
3838 DOUBLE *C,
3839 const INTEGER *LDC,
3840 const DOUBLE *WORK,
3841 INTEGER *INFO);
3842
3843 //-- dormrq --------------------------------------------------------------------
3844 void
3845 LAPACK_DECL(dormrq)(const char *SIDE,
3846 const char *TRANS,
3847 const INTEGER *M,
3848 const INTEGER *N,
3849 const INTEGER *K,
3850 const DOUBLE *A,
3851 const INTEGER *LDA,
3852 const DOUBLE *TAU,
3853 DOUBLE *C,
3854 const INTEGER *LDC,
3855 DOUBLE *WORK,
3856 const INTEGER *LWORK,
3857 INTEGER *INFO);
3858
3859 //-- dormrz --------------------------------------------------------------------
3860 void
3861 LAPACK_DECL(dormrz)(const char *SIDE,
3862 const char *TRANS,
3863 const INTEGER *M,
3864 const INTEGER *N,
3865 const INTEGER *K,
3866 const INTEGER *L,
3867 const DOUBLE *A,
3868 const INTEGER *LDA,
3869 const DOUBLE *TAU,
3870 DOUBLE *C,
3871 const INTEGER *LDC,
3872 DOUBLE *WORK,
3873 const INTEGER *LWORK,
3874 INTEGER *INFO);
3875
3876 //-- dormtr --------------------------------------------------------------------
3877 void
3878 LAPACK_DECL(dormtr)(const char *SIDE,
3879 const char *UPLO,
3880 const char *TRANS,
3881 const INTEGER *M,
3882 const INTEGER *N,
3883 const DOUBLE *A,
3884 const INTEGER *LDA,
3885 const DOUBLE *TAU,
3886 DOUBLE *C,
3887 const INTEGER *LDC,
3888 DOUBLE *WORK,
3889 const INTEGER *LWORK,
3890 INTEGER *INFO);
3891
3892 //-- dpbcon --------------------------------------------------------------------
3893 void
3894 LAPACK_DECL(dpbcon)(const char *UPLO,
3895 const INTEGER *N,
3896 const INTEGER *KD,
3897 const DOUBLE *AB,
3898 const INTEGER *LDAB,
3899 const DOUBLE *ANORM,
3900 DOUBLE *RCOND,
3901 const DOUBLE *WORK,
3902 const INTEGER *IWORK,
3903 INTEGER *INFO);
3904
3905 //-- dpbequ --------------------------------------------------------------------
3906 void
3907 LAPACK_DECL(dpbequ)(const char *UPLO,
3908 const INTEGER *N,
3909 const INTEGER *KD,
3910 const DOUBLE *AB,
3911 const INTEGER *LDAB,
3912 DOUBLE *S,
3913 DOUBLE *SCOND,
3914 DOUBLE *AMAX,
3915 INTEGER *INFO);
3916
3917 //-- dpbrfs --------------------------------------------------------------------
3918 void
3919 LAPACK_DECL(dpbrfs)(const char *UPLO,
3920 const INTEGER *N,
3921 const INTEGER *KD,
3922 const INTEGER *NRHS,
3923 const DOUBLE *AB,
3924 const INTEGER *LDAB,
3925 const DOUBLE *AFB,
3926 const INTEGER *LDAFB,
3927 const DOUBLE *B,
3928 const INTEGER *LDB,
3929 DOUBLE *X,
3930 const INTEGER *LDX,
3931 DOUBLE *FERR,
3932 DOUBLE *BERR,
3933 const DOUBLE *WORK,
3934 const INTEGER *IWORK,
3935 INTEGER *INFO);
3936
3937 //-- dpbstf --------------------------------------------------------------------
3938 void
3939 LAPACK_DECL(dpbstf)(const char *UPLO,
3940 const INTEGER *N,
3941 const INTEGER *KD,
3942 DOUBLE *AB,
3943 const INTEGER *LDAB,
3944 INTEGER *INFO);
3945
3946 //-- dpbsv ---------------------------------------------------------------------
3947 void
3948 LAPACK_DECL(dpbsv)(const char *UPLO,
3949 const INTEGER *N,
3950 const INTEGER *KD,
3951 const INTEGER *NRHS,
3952 DOUBLE *AB,
3953 const INTEGER *LDAB,
3954 DOUBLE *B,
3955 const INTEGER *LDB,
3956 INTEGER *INFO);
3957
3958 //-- dpbsvx --------------------------------------------------------------------
3959 void
3960 LAPACK_DECL(dpbsvx)(const char *FACT,
3961 const char *UPLO,
3962 const INTEGER *N,
3963 const INTEGER *KD,
3964 const INTEGER *NRHS,
3965 DOUBLE *AB,
3966 const INTEGER *LDAB,
3967 DOUBLE *AFB,
3968 const INTEGER *LDAFB,
3969 char *EQUED,
3970 DOUBLE *S,
3971 DOUBLE *B,
3972 const INTEGER *LDB,
3973 DOUBLE *X,
3974 const INTEGER *LDX,
3975 DOUBLE *RCOND,
3976 DOUBLE *FERR,
3977 DOUBLE *BERR,
3978 const DOUBLE *WORK,
3979 const INTEGER *IWORK,
3980 INTEGER *INFO);
3981
3982 //-- dpbtf2 --------------------------------------------------------------------
3983 void
3984 LAPACK_DECL(dpbtf2)(const char *UPLO,
3985 const INTEGER *N,
3986 const INTEGER *KD,
3987 DOUBLE *AB,
3988 const INTEGER *LDAB,
3989 INTEGER *INFO);
3990
3991 //-- dpbtrf --------------------------------------------------------------------
3992 void
3993 LAPACK_DECL(dpbtrf)(const char *UPLO,
3994 const INTEGER *N,
3995 const INTEGER *KD,
3996 DOUBLE *AB,
3997 const INTEGER *LDAB,
3998 INTEGER *INFO);
3999
4000 //-- dpbtrs --------------------------------------------------------------------
4001 void
4002 LAPACK_DECL(dpbtrs)(const char *UPLO,
4003 const INTEGER *N,
4004 const INTEGER *KD,
4005 const INTEGER *NRHS,
4006 const DOUBLE *AB,
4007 const INTEGER *LDAB,
4008 DOUBLE *B,
4009 const INTEGER *LDB,
4010 INTEGER *INFO);
4011
4012 //-- dpftrf --------------------------------------------------------------------
4013 void
4014 LAPACK_DECL(dpftrf)(const char *TRANSR,
4015 const char *UPLO,
4016 const INTEGER *N,
4017 DOUBLE *A,
4018 INTEGER *INFO);
4019
4020 //-- dpftri --------------------------------------------------------------------
4021 void
4022 LAPACK_DECL(dpftri)(const char *TRANSR,
4023 const char *UPLO,
4024 const INTEGER *N,
4025 DOUBLE *A,
4026 INTEGER *INFO);
4027
4028 //-- dpftrs --------------------------------------------------------------------
4029 void
4030 LAPACK_DECL(dpftrs)(const char *TRANSR,
4031 const char *UPLO,
4032 const INTEGER *N,
4033 const INTEGER *NRHS,
4034 const DOUBLE *A,
4035 DOUBLE *B,
4036 const INTEGER *LDB,
4037 INTEGER *INFO);
4038
4039 //-- dpocon --------------------------------------------------------------------
4040 void
4041 LAPACK_DECL(dpocon)(const char *UPLO,
4042 const INTEGER *N,
4043 const DOUBLE *A,
4044 const INTEGER *LDA,
4045 const DOUBLE *ANORM,
4046 DOUBLE *RCOND,
4047 const DOUBLE *WORK,
4048 const INTEGER *IWORK,
4049 INTEGER *INFO);
4050
4051 //-- dpoequ --------------------------------------------------------------------
4052 void
4053 LAPACK_DECL(dpoequ)(const INTEGER *N,
4054 const DOUBLE *A,
4055 const INTEGER *LDA,
4056 DOUBLE *S,
4057 DOUBLE *SCOND,
4058 DOUBLE *AMAX,
4059 INTEGER *INFO);
4060
4061 //-- dpoequb -------------------------------------------------------------------
4062 void
4063 LAPACK_DECL(dpoequb)(const INTEGER *N,
4064 const DOUBLE *A,
4065 const INTEGER *LDA,
4066 DOUBLE *S,
4067 DOUBLE *SCOND,
4068 DOUBLE *AMAX,
4069 INTEGER *INFO);
4070
4071 //-- dporfs --------------------------------------------------------------------
4072 void
4073 LAPACK_DECL(dporfs)(const char *UPLO,
4074 const INTEGER *N,
4075 const INTEGER *NRHS,
4076 const DOUBLE *A,
4077 const INTEGER *LDA,
4078 const DOUBLE *AF,
4079 const INTEGER *LDAF,
4080 const DOUBLE *B,
4081 const INTEGER *LDB,
4082 DOUBLE *X,
4083 const INTEGER *LDX,
4084 DOUBLE *FERR,
4085 DOUBLE *BERR,
4086 const DOUBLE *WORK,
4087 const INTEGER *IWORK,
4088 INTEGER *INFO);
4089
4090 //-- dposv ---------------------------------------------------------------------
4091 void
4092 LAPACK_DECL(dposv)(const char *UPLO,
4093 const INTEGER *N,
4094 const INTEGER *NRHS,
4095 DOUBLE *A,
4096 const INTEGER *LDA,
4097 DOUBLE *B,
4098 const INTEGER *LDB,
4099 INTEGER *INFO);
4100
4101 //-- dposvx --------------------------------------------------------------------
4102 void
4103 LAPACK_DECL(dposvx)(const char *FACT,
4104 const char *UPLO,
4105 const INTEGER *N,
4106 const INTEGER *NRHS,
4107 DOUBLE *A,
4108 const INTEGER *LDA,
4109 DOUBLE *AF,
4110 const INTEGER *LDAF,
4111 char *EQUED,
4112 DOUBLE *S,
4113 DOUBLE *B,
4114 const INTEGER *LDB,
4115 DOUBLE *X,
4116 const INTEGER *LDX,
4117 DOUBLE *RCOND,
4118 DOUBLE *FERR,
4119 DOUBLE *BERR,
4120 const DOUBLE *WORK,
4121 const INTEGER *IWORK,
4122 INTEGER *INFO);
4123
4124 //-- dpotf2 --------------------------------------------------------------------
4125 void
4126 LAPACK_DECL(dpotf2)(const char *UPLO,
4127 const INTEGER *N,
4128 DOUBLE *A,
4129 const INTEGER *LDA,
4130 INTEGER *INFO);
4131
4132 //-- dpotrf --------------------------------------------------------------------
4133 void
4134 LAPACK_DECL(dpotrf)(const char *UPLO,
4135 const INTEGER *N,
4136 DOUBLE *A,
4137 const INTEGER *LDA,
4138 INTEGER *INFO);
4139
4140 //-- dpotri --------------------------------------------------------------------
4141 void
4142 LAPACK_DECL(dpotri)(const char *UPLO,
4143 const INTEGER *N,
4144 DOUBLE *A,
4145 const INTEGER *LDA,
4146 INTEGER *INFO);
4147
4148 //-- dpotrs --------------------------------------------------------------------
4149 void
4150 LAPACK_DECL(dpotrs)(const char *UPLO,
4151 const INTEGER *N,
4152 const INTEGER *NRHS,
4153 const DOUBLE *A,
4154 const INTEGER *LDA,
4155 DOUBLE *B,
4156 const INTEGER *LDB,
4157 INTEGER *INFO);
4158
4159 //-- dppcon --------------------------------------------------------------------
4160 void
4161 LAPACK_DECL(dppcon)(const char *UPLO,
4162 const INTEGER *N,
4163 const DOUBLE *AP,
4164 const DOUBLE *ANORM,
4165 DOUBLE *RCOND,
4166 const DOUBLE *WORK,
4167 const INTEGER *IWORK,
4168 INTEGER *INFO);
4169
4170 //-- dppequ --------------------------------------------------------------------
4171 void
4172 LAPACK_DECL(dppequ)(const char *UPLO,
4173 const INTEGER *N,
4174 const DOUBLE *AP,
4175 DOUBLE *S,
4176 DOUBLE *SCOND,
4177 DOUBLE *AMAX,
4178 INTEGER *INFO);
4179
4180 //-- dpprfs --------------------------------------------------------------------
4181 void
4182 LAPACK_DECL(dpprfs)(const char *UPLO,
4183 const INTEGER *N,
4184 const INTEGER *NRHS,
4185 const DOUBLE *AP,
4186 const DOUBLE *AFP,
4187 const DOUBLE *B,
4188 const INTEGER *LDB,
4189 DOUBLE *X,
4190 const INTEGER *LDX,
4191 DOUBLE *FERR,
4192 DOUBLE *BERR,
4193 const DOUBLE *WORK,
4194 const INTEGER *IWORK,
4195 INTEGER *INFO);
4196
4197 //-- dppsv ---------------------------------------------------------------------
4198 void
4199 LAPACK_DECL(dppsv)(const char *UPLO,
4200 const INTEGER *N,
4201 const INTEGER *NRHS,
4202 DOUBLE *AP,
4203 DOUBLE *B,
4204 const INTEGER *LDB,
4205 INTEGER *INFO);
4206
4207 //-- dppsvx --------------------------------------------------------------------
4208 void
4209 LAPACK_DECL(dppsvx)(const char *FACT,
4210 const char *UPLO,
4211 const INTEGER *N,
4212 const INTEGER *NRHS,
4213 DOUBLE *AP,
4214 DOUBLE *AFP,
4215 char *EQUED,
4216 DOUBLE *S,
4217 DOUBLE *B,
4218 const INTEGER *LDB,
4219 DOUBLE *X,
4220 const INTEGER *LDX,
4221 DOUBLE *RCOND,
4222 DOUBLE *FERR,
4223 DOUBLE *BERR,
4224 const DOUBLE *WORK,
4225 const INTEGER *IWORK,
4226 INTEGER *INFO);
4227
4228 //-- dpptrf --------------------------------------------------------------------
4229 void
4230 LAPACK_DECL(dpptrf)(const char *UPLO,
4231 const INTEGER *N,
4232 DOUBLE *AP,
4233 INTEGER *INFO);
4234
4235 //-- dpptri --------------------------------------------------------------------
4236 void
4237 LAPACK_DECL(dpptri)(const char *UPLO,
4238 const INTEGER *N,
4239 DOUBLE *AP,
4240 INTEGER *INFO);
4241
4242 //-- dpptrs --------------------------------------------------------------------
4243 void
4244 LAPACK_DECL(dpptrs)(const char *UPLO,
4245 const INTEGER *N,
4246 const INTEGER *NRHS,
4247 const DOUBLE *AP,
4248 DOUBLE *B,
4249 const INTEGER *LDB,
4250 INTEGER *INFO);
4251
4252 //-- dpstf2 --------------------------------------------------------------------
4253 void
4254 LAPACK_DECL(dpstf2)(const char *UPLO,
4255 const INTEGER *N,
4256 DOUBLE *A,
4257 const INTEGER *LDA,
4258 INTEGER *PIV,
4259 INTEGER *RANK,
4260 const DOUBLE *TOL,
4261 const DOUBLE *WORK,
4262 INTEGER *INFO);
4263
4264 //-- dpstrf --------------------------------------------------------------------
4265 void
4266 LAPACK_DECL(dpstrf)(const char *UPLO,
4267 const INTEGER *N,
4268 DOUBLE *A,
4269 const INTEGER *LDA,
4270 INTEGER *PIV,
4271 INTEGER *RANK,
4272 const DOUBLE *TOL,
4273 const DOUBLE *WORK,
4274 INTEGER *INFO);
4275
4276 //-- dptcon --------------------------------------------------------------------
4277 void
4278 LAPACK_DECL(dptcon)(const INTEGER *N,
4279 const DOUBLE *D,
4280 const DOUBLE *E,
4281 const DOUBLE *ANORM,
4282 DOUBLE *RCOND,
4283 const DOUBLE *WORK,
4284 INTEGER *INFO);
4285
4286 //-- dpteqr --------------------------------------------------------------------
4287 void
4288 LAPACK_DECL(dpteqr)(const char *COMPZ,
4289 const INTEGER *N,
4290 DOUBLE *D,
4291 DOUBLE *E,
4292 DOUBLE *Z,
4293 const INTEGER *LDZ,
4294 const DOUBLE *WORK,
4295 INTEGER *INFO);
4296
4297 //-- dptrfs --------------------------------------------------------------------
4298 void
4299 LAPACK_DECL(dptrfs)(const INTEGER *N,
4300 const INTEGER *NRHS,
4301 const DOUBLE *D,
4302 const DOUBLE *E,
4303 const DOUBLE *DF,
4304 const DOUBLE *EF,
4305 const DOUBLE *B,
4306 const INTEGER *LDB,
4307 DOUBLE *X,
4308 const INTEGER *LDX,
4309 DOUBLE *FERR,
4310 DOUBLE *BERR,
4311 const DOUBLE *WORK,
4312 INTEGER *INFO);
4313
4314 //-- dptsv ---------------------------------------------------------------------
4315 void
4316 LAPACK_DECL(dptsv)(const INTEGER *N,
4317 const INTEGER *NRHS,
4318 DOUBLE *D,
4319 DOUBLE *E,
4320 DOUBLE *B,
4321 const INTEGER *LDB,
4322 INTEGER *INFO);
4323
4324 //-- dptsvx --------------------------------------------------------------------
4325 void
4326 LAPACK_DECL(dptsvx)(const char *FACT,
4327 const INTEGER *N,
4328 const INTEGER *NRHS,
4329 const DOUBLE *D,
4330 const DOUBLE *E,
4331 DOUBLE *DF,
4332 DOUBLE *EF,
4333 const DOUBLE *B,
4334 const INTEGER *LDB,
4335 DOUBLE *X,
4336 const INTEGER *LDX,
4337 DOUBLE *RCOND,
4338 DOUBLE *FERR,
4339 DOUBLE *BERR,
4340 const DOUBLE *WORK,
4341 INTEGER *INFO);
4342
4343 //-- dpttrf --------------------------------------------------------------------
4344 void
4345 LAPACK_DECL(dpttrf)(const INTEGER *N,
4346 DOUBLE *D,
4347 DOUBLE *E,
4348 INTEGER *INFO);
4349
4350 //-- dpttrs --------------------------------------------------------------------
4351 void
4352 LAPACK_DECL(dpttrs)(const INTEGER *N,
4353 const INTEGER *NRHS,
4354 const DOUBLE *D,
4355 const DOUBLE *E,
4356 DOUBLE *B,
4357 const INTEGER *LDB,
4358 INTEGER *INFO);
4359
4360 //-- dptts2 --------------------------------------------------------------------
4361 void
4362 LAPACK_DECL(dptts2)(const INTEGER *N,
4363 const INTEGER *NRHS,
4364 const DOUBLE *D,
4365 const DOUBLE *E,
4366 DOUBLE *B,
4367 const INTEGER *LDB);
4368
4369 //-- drscl ---------------------------------------------------------------------
4370 void
4371 LAPACK_DECL(drscl)(const INTEGER *N,
4372 const DOUBLE *SA,
4373 DOUBLE *SX,
4374 const INTEGER *INCX);
4375
4376 //-- dsbev ---------------------------------------------------------------------
4377 void
4378 LAPACK_DECL(dsbev)(const char *JOBZ,
4379 const char *UPLO,
4380 const INTEGER *N,
4381 const INTEGER *KD,
4382 DOUBLE *AB,
4383 const INTEGER *LDAB,
4384 DOUBLE *W,
4385 DOUBLE *Z,
4386 const INTEGER *LDZ,
4387 const DOUBLE *WORK,
4388 INTEGER *INFO);
4389
4390 //-- dsbevd --------------------------------------------------------------------
4391 void
4392 LAPACK_DECL(dsbevd)(const char *JOBZ,
4393 const char *UPLO,
4394 const INTEGER *N,
4395 const INTEGER *KD,
4396 DOUBLE *AB,
4397 const INTEGER *LDAB,
4398 DOUBLE *W,
4399 DOUBLE *Z,
4400 const INTEGER *LDZ,
4401 DOUBLE *WORK,
4402 const INTEGER *LWORK,
4403 INTEGER *IWORK,
4404 const INTEGER *LIWORK,
4405 INTEGER *INFO);
4406
4407 //-- dsbevx --------------------------------------------------------------------
4408 void
4409 LAPACK_DECL(dsbevx)(const char *JOBZ,
4410 const char *RANGE,
4411 const char *UPLO,
4412 const INTEGER *N,
4413 const INTEGER *KD,
4414 DOUBLE *AB,
4415 const INTEGER *LDAB,
4416 DOUBLE *Q,
4417 const INTEGER *LDQ,
4418 const DOUBLE *VL,
4419 const DOUBLE *VU,
4420 const INTEGER *IL,
4421 const INTEGER *IU,
4422 const DOUBLE *ABSTOL,
4423 INTEGER *M,
4424 DOUBLE *W,
4425 DOUBLE *Z,
4426 const INTEGER *LDZ,
4427 const DOUBLE *WORK,
4428 const INTEGER *IWORK,
4429 INTEGER *IFAIL,
4430 INTEGER *INFO);
4431
4432 //-- dsbgst --------------------------------------------------------------------
4433 void
4434 LAPACK_DECL(dsbgst)(const char *VECT,
4435 const char *UPLO,
4436 const INTEGER *N,
4437 const INTEGER *KA,
4438 const INTEGER *KB,
4439 DOUBLE *AB,
4440 const INTEGER *LDAB,
4441 const DOUBLE *BB,
4442 const INTEGER *LDBB,
4443 DOUBLE *X,
4444 const INTEGER *LDX,
4445 const DOUBLE *WORK,
4446 INTEGER *INFO);
4447
4448 //-- dsbgv ---------------------------------------------------------------------
4449 void
4450 LAPACK_DECL(dsbgv)(const char *JOBZ,
4451 const char *UPLO,
4452 const INTEGER *N,
4453 const INTEGER *KA,
4454 const INTEGER *KB,
4455 DOUBLE *AB,
4456 const INTEGER *LDAB,
4457 DOUBLE *BB,
4458 const INTEGER *LDBB,
4459 DOUBLE *W,
4460 DOUBLE *Z,
4461 const INTEGER *LDZ,
4462 const DOUBLE *WORK,
4463 INTEGER *INFO);
4464
4465 //-- dsbgvd --------------------------------------------------------------------
4466 void
4467 LAPACK_DECL(dsbgvd)(const char *JOBZ,
4468 const char *UPLO,
4469 const INTEGER *N,
4470 const INTEGER *KA,
4471 const INTEGER *KB,
4472 DOUBLE *AB,
4473 const INTEGER *LDAB,
4474 DOUBLE *BB,
4475 const INTEGER *LDBB,
4476 DOUBLE *W,
4477 DOUBLE *Z,
4478 const INTEGER *LDZ,
4479 DOUBLE *WORK,
4480 const INTEGER *LWORK,
4481 INTEGER *IWORK,
4482 const INTEGER *LIWORK,
4483 INTEGER *INFO);
4484
4485 //-- dsbgvx --------------------------------------------------------------------
4486 void
4487 LAPACK_DECL(dsbgvx)(const char *JOBZ,
4488 const char *RANGE,
4489 const char *UPLO,
4490 const INTEGER *N,
4491 const INTEGER *KA,
4492 const INTEGER *KB,
4493 DOUBLE *AB,
4494 const INTEGER *LDAB,
4495 DOUBLE *BB,
4496 const INTEGER *LDBB,
4497 DOUBLE *Q,
4498 const INTEGER *LDQ,
4499 const DOUBLE *VL,
4500 const DOUBLE *VU,
4501 const INTEGER *IL,
4502 const INTEGER *IU,
4503 const DOUBLE *ABSTOL,
4504 INTEGER *M,
4505 DOUBLE *W,
4506 DOUBLE *Z,
4507 const INTEGER *LDZ,
4508 DOUBLE *WORK,
4509 INTEGER *IWORK,
4510 INTEGER *IFAIL,
4511 INTEGER *INFO);
4512
4513 //-- dsbtrd --------------------------------------------------------------------
4514 void
4515 LAPACK_DECL(dsbtrd)(const char *VECT,
4516 const char *UPLO,
4517 const INTEGER *N,
4518 const INTEGER *KD,
4519 DOUBLE *AB,
4520 const INTEGER *LDAB,
4521 DOUBLE *D,
4522 DOUBLE *E,
4523 DOUBLE *Q,
4524 const INTEGER *LDQ,
4525 const DOUBLE *WORK,
4526 INTEGER *INFO);
4527
4528 //-- dsecnd --------------------------------------------------------------------
4529 DOUBLE
4530 LAPACK_DECL(dsecnd)();
4531
4532 //-- dsfrk ---------------------------------------------------------------------
4533 void
4534 LAPACK_DECL(dsfrk)(const char *TRANSR,
4535 const char *UPLO,
4536 const char *TRANS,
4537 const INTEGER *N,
4538 const INTEGER *K,
4539 const DOUBLE *ALPHA,
4540 const DOUBLE *A,
4541 const INTEGER *LDA,
4542 const DOUBLE *BETA,
4543 DOUBLE *C);
4544
4545 //-- dsgesv --------------------------------------------------------------------
4546 void
4547 LAPACK_DECL(dsgesv)(const INTEGER *N,
4548 const INTEGER *NRHS,
4549 DOUBLE *A,
4550 const INTEGER *LDA,
4551 INTEGER *IPIV,
4552 const DOUBLE *B,
4553 const INTEGER *LDB,
4554 DOUBLE *X,
4555 const INTEGER *LDX,
4556 const DOUBLE *WORK,
4557 const FLOAT *SWORK,
4558 INTEGER *ITER,
4559 INTEGER *INFO);
4560
4561 //-- dspcon --------------------------------------------------------------------
4562 void
4563 LAPACK_DECL(dspcon)(const char *UPLO,
4564 const INTEGER *N,
4565 const DOUBLE *AP,
4566 const INTEGER *IPIV,
4567 const DOUBLE *ANORM,
4568 DOUBLE *RCOND,
4569 const DOUBLE *WORK,
4570 const INTEGER *IWORK,
4571 INTEGER *INFO);
4572
4573 //-- dspev ---------------------------------------------------------------------
4574 void
4575 LAPACK_DECL(dspev)(const char *JOBZ,
4576 const char *UPLO,
4577 const INTEGER *N,
4578 DOUBLE *AP,
4579 DOUBLE *W,
4580 DOUBLE *Z,
4581 const INTEGER *LDZ,
4582 const DOUBLE *WORK,
4583 INTEGER *INFO);
4584
4585 //-- dspevd --------------------------------------------------------------------
4586 void
4587 LAPACK_DECL(dspevd)(const char *JOBZ,
4588 const char *UPLO,
4589 const INTEGER *N,
4590 DOUBLE *AP,
4591 DOUBLE *W,
4592 DOUBLE *Z,
4593 const INTEGER *LDZ,
4594 DOUBLE *WORK,
4595 const INTEGER *LWORK,
4596 INTEGER *IWORK,
4597 const INTEGER *LIWORK,
4598 INTEGER *INFO);
4599
4600 //-- dspevx --------------------------------------------------------------------
4601 void
4602 LAPACK_DECL(dspevx)(const char *JOBZ,
4603 const char *RANGE,
4604 const char *UPLO,
4605 const INTEGER *N,
4606 DOUBLE *AP,
4607 const DOUBLE *VL,
4608 const DOUBLE *VU,
4609 const INTEGER *IL,
4610 const INTEGER *IU,
4611 const DOUBLE *ABSTOL,
4612 INTEGER *M,
4613 DOUBLE *W,
4614 DOUBLE *Z,
4615 const INTEGER *LDZ,
4616 const DOUBLE *WORK,
4617 const INTEGER *IWORK,
4618 INTEGER *IFAIL,
4619 INTEGER *INFO);
4620
4621 //-- dspgst --------------------------------------------------------------------
4622 void
4623 LAPACK_DECL(dspgst)(const INTEGER *ITYPE,
4624 const char *UPLO,
4625 const INTEGER *N,
4626 DOUBLE *AP,
4627 const DOUBLE *BP,
4628 INTEGER *INFO);
4629
4630 //-- dspgv ---------------------------------------------------------------------
4631 void
4632 LAPACK_DECL(dspgv)(const INTEGER *ITYPE,
4633 const char *JOBZ,
4634 const char *UPLO,
4635 const INTEGER *N,
4636 DOUBLE *AP,
4637 DOUBLE *BP,
4638 DOUBLE *W,
4639 DOUBLE *Z,
4640 const INTEGER *LDZ,
4641 const DOUBLE *WORK,
4642 INTEGER *INFO);
4643
4644 //-- dspgvd --------------------------------------------------------------------
4645 void
4646 LAPACK_DECL(dspgvd)(const INTEGER *ITYPE,
4647 const char *JOBZ,
4648 const char *UPLO,
4649 const INTEGER *N,
4650 DOUBLE *AP,
4651 DOUBLE *BP,
4652 DOUBLE *W,
4653 DOUBLE *Z,
4654 const INTEGER *LDZ,
4655 DOUBLE *WORK,
4656 const INTEGER *LWORK,
4657 INTEGER *IWORK,
4658 const INTEGER *LIWORK,
4659 INTEGER *INFO);
4660
4661 //-- dspgvx --------------------------------------------------------------------
4662 void
4663 LAPACK_DECL(dspgvx)(const INTEGER *ITYPE,
4664 const char *JOBZ,
4665 const char *RANGE,
4666 const char *UPLO,
4667 const INTEGER *N,
4668 DOUBLE *AP,
4669 DOUBLE *BP,
4670 const DOUBLE *VL,
4671 const DOUBLE *VU,
4672 const INTEGER *IL,
4673 const INTEGER *IU,
4674 const DOUBLE *ABSTOL,
4675 INTEGER *M,
4676 DOUBLE *W,
4677 DOUBLE *Z,
4678 const INTEGER *LDZ,
4679 const DOUBLE *WORK,
4680 const INTEGER *IWORK,
4681 INTEGER *IFAIL,
4682 INTEGER *INFO);
4683
4684 //-- dsposv --------------------------------------------------------------------
4685 void
4686 LAPACK_DECL(dsposv)(const char *UPLO,
4687 const INTEGER *N,
4688 const INTEGER *NRHS,
4689 DOUBLE *A,
4690 const INTEGER *LDA,
4691 const DOUBLE *B,
4692 const INTEGER *LDB,
4693 DOUBLE *X,
4694 const INTEGER *LDX,
4695 const DOUBLE *WORK,
4696 const FLOAT *SWORK,
4697 INTEGER *ITER,
4698 INTEGER *INFO);
4699
4700 //-- dsprfs --------------------------------------------------------------------
4701 void
4702 LAPACK_DECL(dsprfs)(const char *UPLO,
4703 const INTEGER *N,
4704 const INTEGER *NRHS,
4705 const DOUBLE *AP,
4706 const DOUBLE *AFP,
4707 const INTEGER *IPIV,
4708 const DOUBLE *B,
4709 const INTEGER *LDB,
4710 DOUBLE *X,
4711 const INTEGER *LDX,
4712 DOUBLE *FERR,
4713 DOUBLE *BERR,
4714 const DOUBLE *WORK,
4715 const INTEGER *IWORK,
4716 INTEGER *INFO);
4717
4718 //-- dspsv ---------------------------------------------------------------------
4719 void
4720 LAPACK_DECL(dspsv)(const char *UPLO,
4721 const INTEGER *N,
4722 const INTEGER *NRHS,
4723 DOUBLE *AP,
4724 INTEGER *IPIV,
4725 DOUBLE *B,
4726 const INTEGER *LDB,
4727 INTEGER *INFO);
4728
4729 //-- dspsvx --------------------------------------------------------------------
4730 void
4731 LAPACK_DECL(dspsvx)(const char *FACT,
4732 const char *UPLO,
4733 const INTEGER *N,
4734 const INTEGER *NRHS,
4735 const DOUBLE *AP,
4736 DOUBLE *AFP,
4737 INTEGER *IPIV,
4738 const DOUBLE *B,
4739 const INTEGER *LDB,
4740 DOUBLE *X,
4741 const INTEGER *LDX,
4742 DOUBLE *RCOND,
4743 DOUBLE *FERR,
4744 DOUBLE *BERR,
4745 const DOUBLE *WORK,
4746 const INTEGER *IWORK,
4747 INTEGER *INFO);
4748
4749 //-- dsptrd --------------------------------------------------------------------
4750 void
4751 LAPACK_DECL(dsptrd)(const char *UPLO,
4752 const INTEGER *N,
4753 DOUBLE *AP,
4754 DOUBLE *D,
4755 DOUBLE *E,
4756 DOUBLE *TAU,
4757 INTEGER *INFO);
4758
4759 //-- dsptrf --------------------------------------------------------------------
4760 void
4761 LAPACK_DECL(dsptrf)(const char *UPLO,
4762 const INTEGER *N,
4763 DOUBLE *AP,
4764 INTEGER *IPIV,
4765 INTEGER *INFO);
4766
4767 //-- dsptri --------------------------------------------------------------------
4768 void
4769 LAPACK_DECL(dsptri)(const char *UPLO,
4770 const INTEGER *N,
4771 DOUBLE *AP,
4772 const INTEGER *IPIV,
4773 const DOUBLE *WORK,
4774 INTEGER *INFO);
4775
4776 //-- dsptrs --------------------------------------------------------------------
4777 void
4778 LAPACK_DECL(dsptrs)(const char *UPLO,
4779 const INTEGER *N,
4780 const INTEGER *NRHS,
4781 const DOUBLE *AP,
4782 const INTEGER *IPIV,
4783 DOUBLE *B,
4784 const INTEGER *LDB,
4785 INTEGER *INFO);
4786
4787 //-- dstebz --------------------------------------------------------------------
4788 void
4789 LAPACK_DECL(dstebz)(const char *RANGE,
4790 const char *ORDER,
4791 const INTEGER *N,
4792 const DOUBLE *VL,
4793 const DOUBLE *VU,
4794 const INTEGER *IL,
4795 const INTEGER *IU,
4796 const DOUBLE *ABSTOL,
4797 const DOUBLE *D,
4798 const DOUBLE *E,
4799 INTEGER *M,
4800 INTEGER *NSPLIT,
4801 DOUBLE *W,
4802 INTEGER *IBLOCK,
4803 INTEGER *ISPLIT,
4804 const DOUBLE *WORK,
4805 const INTEGER *IWORK,
4806 INTEGER *INFO);
4807
4808 //-- dstedc --------------------------------------------------------------------
4809 void
4810 LAPACK_DECL(dstedc)(const char *COMPZ,
4811 const INTEGER *N,
4812 DOUBLE *D,
4813 DOUBLE *E,
4814 DOUBLE *Z,
4815 const INTEGER *LDZ,
4816 DOUBLE *WORK,
4817 const INTEGER *LWORK,
4818 INTEGER *IWORK,
4819 const INTEGER *LIWORK,
4820 INTEGER *INFO);
4821
4822 //-- dstegr --------------------------------------------------------------------
4823 void
4824 LAPACK_DECL(dstegr)(const char *JOBZ,
4825 const char *RANGE,
4826 const INTEGER *N,
4827 DOUBLE *D,
4828 DOUBLE *E,
4829 const DOUBLE *VL,
4830 const DOUBLE *VU,
4831 const INTEGER *IL,
4832 const INTEGER *IU,
4833 const DOUBLE *ABSTOL,
4834 INTEGER *M,
4835 DOUBLE *W,
4836 DOUBLE *Z,
4837 const INTEGER *LDZ,
4838 INTEGER *ISUPPZ,
4839 DOUBLE *WORK,
4840 const INTEGER *LWORK,
4841 INTEGER *IWORK,
4842 const INTEGER *LIWORK,
4843 INTEGER *INFO);
4844
4845 //-- dstein --------------------------------------------------------------------
4846 void
4847 LAPACK_DECL(dstein)(const INTEGER *N,
4848 const DOUBLE *D,
4849 const DOUBLE *E,
4850 const INTEGER *M,
4851 const DOUBLE *W,
4852 const INTEGER *IBLOCK,
4853 const INTEGER *ISPLIT,
4854 DOUBLE *Z,
4855 const INTEGER *LDZ,
4856 const DOUBLE *WORK,
4857 const INTEGER *IWORK,
4858 INTEGER *IFAIL,
4859 INTEGER *INFO);
4860
4861 //-- dstemr --------------------------------------------------------------------
4862 void
4863 LAPACK_DECL(dstemr)(const char *JOBZ,
4864 const char *RANGE,
4865 const INTEGER *N,
4866 DOUBLE *D,
4867 DOUBLE *E,
4868 const DOUBLE *VL,
4869 const DOUBLE *VU,
4870 const INTEGER *IL,
4871 const INTEGER *IU,
4872 INTEGER *M,
4873 DOUBLE *W,
4874 DOUBLE *Z,
4875 const INTEGER *LDZ,
4876 const INTEGER *NZC,
4877 INTEGER *ISUPPZ,
4878 LOGICAL *TRYRAC,
4879 DOUBLE *WORK,
4880 const INTEGER *LWORK,
4881 INTEGER *IWORK,
4882 const INTEGER *LIWORK,
4883 INTEGER *INFO);
4884
4885 //-- dsteqr --------------------------------------------------------------------
4886 void
4887 LAPACK_DECL(dsteqr)(const char *COMPZ,
4888 const INTEGER *N,
4889 DOUBLE *D,
4890 DOUBLE *E,
4891 DOUBLE *Z,
4892 const INTEGER *LDZ,
4893 const DOUBLE *WORK,
4894 INTEGER *INFO);
4895
4896 //-- dsterf --------------------------------------------------------------------
4897 void
4898 LAPACK_DECL(dsterf)(const INTEGER *N,
4899 DOUBLE *D,
4900 DOUBLE *E,
4901 INTEGER *INFO);
4902
4903 //-- dstev ---------------------------------------------------------------------
4904 void
4905 LAPACK_DECL(dstev)(const char *JOBZ,
4906 const INTEGER *N,
4907 DOUBLE *D,
4908 DOUBLE *E,
4909 DOUBLE *Z,
4910 const INTEGER *LDZ,
4911 const DOUBLE *WORK,
4912 INTEGER *INFO);
4913
4914 //-- dstevd --------------------------------------------------------------------
4915 void
4916 LAPACK_DECL(dstevd)(const char *JOBZ,
4917 const INTEGER *N,
4918 DOUBLE *D,
4919 DOUBLE *E,
4920 DOUBLE *Z,
4921 const INTEGER *LDZ,
4922 DOUBLE *WORK,
4923 const INTEGER *LWORK,
4924 INTEGER *IWORK,
4925 const INTEGER *LIWORK,
4926 INTEGER *INFO);
4927
4928 //-- dstevr --------------------------------------------------------------------
4929 void
4930 LAPACK_DECL(dstevr)(const char *JOBZ,
4931 const char *RANGE,
4932 const INTEGER *N,
4933 DOUBLE *D,
4934 DOUBLE *E,
4935 const DOUBLE *VL,
4936 const DOUBLE *VU,
4937 const INTEGER *IL,
4938 const INTEGER *IU,
4939 const DOUBLE *ABSTOL,
4940 INTEGER *M,
4941 DOUBLE *W,
4942 DOUBLE *Z,
4943 const INTEGER *LDZ,
4944 INTEGER *ISUPPZ,
4945 DOUBLE *WORK,
4946 const INTEGER *LWORK,
4947 INTEGER *IWORK,
4948 const INTEGER *LIWORK,
4949 INTEGER *INFO);
4950
4951 //-- dstevx --------------------------------------------------------------------
4952 void
4953 LAPACK_DECL(dstevx)(const char *JOBZ,
4954 const char *RANGE,
4955 const INTEGER *N,
4956 DOUBLE *D,
4957 DOUBLE *E,
4958 const DOUBLE *VL,
4959 const DOUBLE *VU,
4960 const INTEGER *IL,
4961 const INTEGER *IU,
4962 const DOUBLE *ABSTOL,
4963 INTEGER *M,
4964 DOUBLE *W,
4965 DOUBLE *Z,
4966 const INTEGER *LDZ,
4967 const DOUBLE *WORK,
4968 const INTEGER *IWORK,
4969 INTEGER *IFAIL,
4970 INTEGER *INFO);
4971
4972 //-- dsycon --------------------------------------------------------------------
4973 void
4974 LAPACK_DECL(dsycon)(const char *UPLO,
4975 const INTEGER *N,
4976 const DOUBLE *A,
4977 const INTEGER *LDA,
4978 const INTEGER *IPIV,
4979 const DOUBLE *ANORM,
4980 DOUBLE *RCOND,
4981 const DOUBLE *WORK,
4982 const INTEGER *IWORK,
4983 INTEGER *INFO);
4984
4985 //-- dsyconv -------------------------------------------------------------------
4986 void
4987 LAPACK_DECL(dsyconv)(const char *UPLO,
4988 const char *WAY,
4989 const INTEGER *N,
4990 const DOUBLE *A,
4991 const INTEGER *LDA,
4992 const INTEGER *IPIV,
4993 const DOUBLE *WORK,
4994 INTEGER *INFO);
4995
4996 //-- dsyequb -------------------------------------------------------------------
4997 void
4998 LAPACK_DECL(dsyequb)(const char *UPLO,
4999 const INTEGER *N,
5000 const DOUBLE *A,
5001 const INTEGER *LDA,
5002 DOUBLE *S,
5003 DOUBLE *SCOND,
5004 DOUBLE *AMAX,
5005 const DOUBLE *WORK,
5006 INTEGER *INFO);
5007
5008 //-- dsyev ---------------------------------------------------------------------
5009 void
5010 LAPACK_DECL(dsyev)(const char *JOBZ,
5011 const char *UPLO,
5012 const INTEGER *N,
5013 DOUBLE *A,
5014 const INTEGER *LDA,
5015 DOUBLE *W,
5016 DOUBLE *WORK,
5017 const INTEGER *LWORK,
5018 INTEGER *INFO);
5019
5020 //-- dsyevd --------------------------------------------------------------------
5021 void
5022 LAPACK_DECL(dsyevd)(const char *JOBZ,
5023 const char *UPLO,
5024 const INTEGER *N,
5025 DOUBLE *A,
5026 const INTEGER *LDA,
5027 DOUBLE *W,
5028 DOUBLE *WORK,
5029 const INTEGER *LWORK,
5030 INTEGER *IWORK,
5031 const INTEGER *LIWORK,
5032 INTEGER *INFO);
5033
5034 //-- dsyevr --------------------------------------------------------------------
5035 void
5036 LAPACK_DECL(dsyevr)(const char *JOBZ,
5037 const char *RANGE,
5038 const char *UPLO,
5039 const INTEGER *N,
5040 DOUBLE *A,
5041 const INTEGER *LDA,
5042 const DOUBLE *VL,
5043 const DOUBLE *VU,
5044 const INTEGER *IL,
5045 const INTEGER *IU,
5046 const DOUBLE *ABSTOL,
5047 INTEGER *M,
5048 DOUBLE *W,
5049 DOUBLE *Z,
5050 const INTEGER *LDZ,
5051 INTEGER *ISUPPZ,
5052 DOUBLE *WORK,
5053 const INTEGER *LWORK,
5054 INTEGER *IWORK,
5055 const INTEGER *LIWORK,
5056 INTEGER *INFO);
5057
5058 //-- dsyevx --------------------------------------------------------------------
5059 void
5060 LAPACK_DECL(dsyevx)(const char *JOBZ,
5061 const char *RANGE,
5062 const char *UPLO,
5063 const INTEGER *N,
5064 DOUBLE *A,
5065 const INTEGER *LDA,
5066 const DOUBLE *VL,
5067 const DOUBLE *VU,
5068 const INTEGER *IL,
5069 const INTEGER *IU,
5070 const DOUBLE *ABSTOL,
5071 INTEGER *M,
5072 DOUBLE *W,
5073 DOUBLE *Z,
5074 const INTEGER *LDZ,
5075 DOUBLE *WORK,
5076 const INTEGER *LWORK,
5077 const INTEGER *IWORK,
5078 INTEGER *IFAIL,
5079 INTEGER *INFO);
5080
5081 //-- dsygs2 --------------------------------------------------------------------
5082 void
5083 LAPACK_DECL(dsygs2)(const INTEGER *ITYPE,
5084 const char *UPLO,
5085 const INTEGER *N,
5086 DOUBLE *A,
5087 const INTEGER *LDA,
5088 const DOUBLE *B,
5089 const INTEGER *LDB,
5090 INTEGER *INFO);
5091
5092 //-- dsygst --------------------------------------------------------------------
5093 void
5094 LAPACK_DECL(dsygst)(const INTEGER *ITYPE,
5095 const char *UPLO,
5096 const INTEGER *N,
5097 DOUBLE *A,
5098 const INTEGER *LDA,
5099 const DOUBLE *B,
5100 const INTEGER *LDB,
5101 INTEGER *INFO);
5102
5103 //-- dsygv ---------------------------------------------------------------------
5104 void
5105 LAPACK_DECL(dsygv)(const INTEGER *ITYPE,
5106 const char *JOBZ,
5107 const char *UPLO,
5108 const INTEGER *N,
5109 DOUBLE *A,
5110 const INTEGER *LDA,
5111 DOUBLE *B,
5112 const INTEGER *LDB,
5113 DOUBLE *W,
5114 DOUBLE *WORK,
5115 const INTEGER *LWORK,
5116 INTEGER *INFO);
5117
5118 //-- dsygvd --------------------------------------------------------------------
5119 void
5120 LAPACK_DECL(dsygvd)(const INTEGER *ITYPE,
5121 const char *JOBZ,
5122 const char *UPLO,
5123 const INTEGER *N,
5124 DOUBLE *A,
5125 const INTEGER *LDA,
5126 DOUBLE *B,
5127 const INTEGER *LDB,
5128 DOUBLE *W,
5129 DOUBLE *WORK,
5130 const INTEGER *LWORK,
5131 INTEGER *IWORK,
5132 const INTEGER *LIWORK,
5133 INTEGER *INFO);
5134
5135 //-- dsygvx --------------------------------------------------------------------
5136 void
5137 LAPACK_DECL(dsygvx)(const INTEGER *ITYPE,
5138 const char *JOBZ,
5139 const char *RANGE,
5140 const char *UPLO,
5141 const INTEGER *N,
5142 DOUBLE *A,
5143 const INTEGER *LDA,
5144 DOUBLE *B,
5145 const INTEGER *LDB,
5146 const DOUBLE *VL,
5147 const DOUBLE *VU,
5148 const INTEGER *IL,
5149 const INTEGER *IU,
5150 const DOUBLE *ABSTOL,
5151 INTEGER *M,
5152 DOUBLE *W,
5153 DOUBLE *Z,
5154 const INTEGER *LDZ,
5155 DOUBLE *WORK,
5156 const INTEGER *LWORK,
5157 const INTEGER *IWORK,
5158 INTEGER *IFAIL,
5159 INTEGER *INFO);
5160
5161 //-- dsyrfs --------------------------------------------------------------------
5162 void
5163 LAPACK_DECL(dsyrfs)(const char *UPLO,
5164 const INTEGER *N,
5165 const INTEGER *NRHS,
5166 const DOUBLE *A,
5167 const INTEGER *LDA,
5168 const DOUBLE *AF,
5169 const INTEGER *LDAF,
5170 const INTEGER *IPIV,
5171 const DOUBLE *B,
5172 const INTEGER *LDB,
5173 DOUBLE *X,
5174 const INTEGER *LDX,
5175 DOUBLE *FERR,
5176 DOUBLE *BERR,
5177 const DOUBLE *WORK,
5178 const INTEGER *IWORK,
5179 INTEGER *INFO);
5180
5181 //-- dsysv ---------------------------------------------------------------------
5182 void
5183 LAPACK_DECL(dsysv)(const char *UPLO,
5184 const INTEGER *N,
5185 const INTEGER *NRHS,
5186 DOUBLE *A,
5187 const INTEGER *LDA,
5188 INTEGER *IPIV,
5189 DOUBLE *B,
5190 const INTEGER *LDB,
5191 DOUBLE *WORK,
5192 const INTEGER *LWORK,
5193 INTEGER *INFO);
5194
5195 //-- dsysvx --------------------------------------------------------------------
5196 void
5197 LAPACK_DECL(dsysvx)(const char *FACT,
5198 const char *UPLO,
5199 const INTEGER *N,
5200 const INTEGER *NRHS,
5201 const DOUBLE *A,
5202 const INTEGER *LDA,
5203 DOUBLE *AF,
5204 const INTEGER *LDAF,
5205 INTEGER *IPIV,
5206 const DOUBLE *B,
5207 const INTEGER *LDB,
5208 DOUBLE *X,
5209 const INTEGER *LDX,
5210 DOUBLE *RCOND,
5211 DOUBLE *FERR,
5212 DOUBLE *BERR,
5213 DOUBLE *WORK,
5214 const INTEGER *LWORK,
5215 const INTEGER *IWORK,
5216 INTEGER *INFO);
5217
5218 //-- dsyswapr ------------------------------------------------------------------
5219 void
5220 LAPACK_DECL(dsyswapr)(const char *UPLO,
5221 const INTEGER *N,
5222 DOUBLE *A,
5223 const INTEGER *LDA,
5224 const INTEGER *I1,
5225 const INTEGER *I2);
5226
5227 //-- dsytd2 --------------------------------------------------------------------
5228 void
5229 LAPACK_DECL(dsytd2)(const char *UPLO,
5230 const INTEGER *N,
5231 DOUBLE *A,
5232 const INTEGER *LDA,
5233 DOUBLE *D,
5234 DOUBLE *E,
5235 DOUBLE *TAU,
5236 INTEGER *INFO);
5237
5238 //-- dsytf2 --------------------------------------------------------------------
5239 void
5240 LAPACK_DECL(dsytf2)(const char *UPLO,
5241 const INTEGER *N,
5242 DOUBLE *A,
5243 const INTEGER *LDA,
5244 INTEGER *IPIV,
5245 INTEGER *INFO);
5246
5247 //-- dsytrd --------------------------------------------------------------------
5248 void
5249 LAPACK_DECL(dsytrd)(const char *UPLO,
5250 const INTEGER *N,
5251 DOUBLE *A,
5252 const INTEGER *LDA,
5253 DOUBLE *D,
5254 DOUBLE *E,
5255 DOUBLE *TAU,
5256 DOUBLE *WORK,
5257 const INTEGER *LWORK,
5258 INTEGER *INFO);
5259
5260 //-- dsytrf --------------------------------------------------------------------
5261 void
5262 LAPACK_DECL(dsytrf)(const char *UPLO,
5263 const INTEGER *N,
5264 DOUBLE *A,
5265 const INTEGER *LDA,
5266 INTEGER *IPIV,
5267 DOUBLE *WORK,
5268 const INTEGER *LWORK,
5269 INTEGER *INFO);
5270
5271 //-- dsytri --------------------------------------------------------------------
5272 void
5273 LAPACK_DECL(dsytri)(const char *UPLO,
5274 const INTEGER *N,
5275 DOUBLE *A,
5276 const INTEGER *LDA,
5277 const INTEGER *IPIV,
5278 const DOUBLE *WORK,
5279 INTEGER *INFO);
5280
5281 //-- dsytri2 -------------------------------------------------------------------
5282 void
5283 LAPACK_DECL(dsytri2)(const char *UPLO,
5284 const INTEGER *N,
5285 DOUBLE *A,
5286 const INTEGER *LDA,
5287 const INTEGER *IPIV,
5288 const DOUBLE *WORK,
5289 const INTEGER *LWORK,
5290 INTEGER *INFO);
5291
5292 //-- dsytri2x ------------------------------------------------------------------
5293 void
5294 LAPACK_DECL(dsytri2x)(const char *UPLO,
5295 const INTEGER *N,
5296 DOUBLE *A,
5297 const INTEGER *LDA,
5298 const INTEGER *IPIV,
5299 const DOUBLE *WORK,
5300 const INTEGER *NB,
5301 INTEGER *INFO);
5302
5303 //-- dsytrs --------------------------------------------------------------------
5304 void
5305 LAPACK_DECL(dsytrs)(const char *UPLO,
5306 const INTEGER *N,
5307 const INTEGER *NRHS,
5308 const DOUBLE *A,
5309 const INTEGER *LDA,
5310 const INTEGER *IPIV,
5311 DOUBLE *B,
5312 const INTEGER *LDB,
5313 INTEGER *INFO);
5314
5315 //-- dsytrs2 -------------------------------------------------------------------
5316 void
5317 LAPACK_DECL(dsytrs2)(const char *UPLO,
5318 const INTEGER *N,
5319 const INTEGER *NRHS,
5320 const DOUBLE *A,
5321 const INTEGER *LDA,
5322 const INTEGER *IPIV,
5323 DOUBLE *B,
5324 const INTEGER *LDB,
5325 const DOUBLE *WORK,
5326 INTEGER *INFO);
5327
5328 //-- dtbcon --------------------------------------------------------------------
5329 void
5330 LAPACK_DECL(dtbcon)(const char *NORM,
5331 const char *UPLO,
5332 const char *DIAG,
5333 const INTEGER *N,
5334 const INTEGER *KD,
5335 const DOUBLE *AB,
5336 const INTEGER *LDAB,
5337 DOUBLE *RCOND,
5338 const DOUBLE *WORK,
5339 const INTEGER *IWORK,
5340 INTEGER *INFO);
5341
5342 //-- dtbrfs --------------------------------------------------------------------
5343 void
5344 LAPACK_DECL(dtbrfs)(const char *UPLO,
5345 const char *TRANS,
5346 const char *DIAG,
5347 const INTEGER *N,
5348 const INTEGER *KD,
5349 const INTEGER *NRHS,
5350 const DOUBLE *AB,
5351 const INTEGER *LDAB,
5352 const DOUBLE *B,
5353 const INTEGER *LDB,
5354 const DOUBLE *X,
5355 const INTEGER *LDX,
5356 DOUBLE *FERR,
5357 DOUBLE *BERR,
5358 const DOUBLE *WORK,
5359 const INTEGER *IWORK,
5360 INTEGER *INFO);
5361
5362 //-- dtbtrs --------------------------------------------------------------------
5363 void
5364 LAPACK_DECL(dtbtrs)(const char *UPLO,
5365 const char *TRANS,
5366 const char *DIAG,
5367 const INTEGER *N,
5368 const INTEGER *KD,
5369 const INTEGER *NRHS,
5370 const DOUBLE *AB,
5371 const INTEGER *LDAB,
5372 DOUBLE *B,
5373 const INTEGER *LDB,
5374 INTEGER *INFO);
5375
5376 //-- dtfsm ---------------------------------------------------------------------
5377 void
5378 LAPACK_DECL(dtfsm)(const char *TRANSR,
5379 const char *SIDE,
5380 const char *UPLO,
5381 const char *TRANS,
5382 const char *DIAG,
5383 const INTEGER *M,
5384 const INTEGER *N,
5385 const DOUBLE *ALPHA,
5386 const DOUBLE *A,
5387 DOUBLE *B,
5388 const INTEGER *LDB);
5389
5390 //-- dtftri --------------------------------------------------------------------
5391 void
5392 LAPACK_DECL(dtftri)(const char *TRANSR,
5393 const char *UPLO,
5394 const char *DIAG,
5395 const INTEGER *N,
5396 DOUBLE *A,
5397 INTEGER *INFO);
5398
5399 //-- dtfttp --------------------------------------------------------------------
5400 void
5401 LAPACK_DECL(dtfttp)(const char *TRANSR,
5402 const char *UPLO,
5403 const INTEGER *N,
5404 const DOUBLE *ARF,
5405 DOUBLE *AP,
5406 INTEGER *INFO);
5407
5408 //-- dtfttr --------------------------------------------------------------------
5409 void
5410 LAPACK_DECL(dtfttr)(const char *TRANSR,
5411 const char *UPLO,
5412 const INTEGER *N,
5413 const DOUBLE *ARF,
5414 DOUBLE *A,
5415 const INTEGER *LDA,
5416 INTEGER *INFO);
5417
5418 //-- dtgevc --------------------------------------------------------------------
5419 void
5420 LAPACK_DECL(dtgevc)(const char *SIDE,
5421 const char *HOWMNY,
5422 const LOGICAL *SELECT,
5423 const INTEGER *N,
5424 const DOUBLE *S,
5425 const INTEGER *LDS,
5426 const DOUBLE *P,
5427 const INTEGER *LDP,
5428 DOUBLE *VL,
5429 const INTEGER *LDVL,
5430 DOUBLE *VR,
5431 const INTEGER *LDVR,
5432 const INTEGER *MM,
5433 INTEGER *M,
5434 const DOUBLE *WORK,
5435 INTEGER *INFO);
5436
5437 //-- dtgex2 --------------------------------------------------------------------
5438 void
5439 LAPACK_DECL(dtgex2)(const LOGICAL *WANTQ,
5440 const LOGICAL *WANTZ,
5441 const INTEGER *N,
5442 DOUBLE *A,
5443 const INTEGER *LDA,
5444 DOUBLE *B,
5445 const INTEGER *LDB,
5446 DOUBLE *Q,
5447 const INTEGER *LDQ,
5448 DOUBLE *Z,
5449 const INTEGER *LDZ,
5450 const INTEGER *J1,
5451 const INTEGER *N1,
5452 const INTEGER *N2,
5453 const DOUBLE *WORK,
5454 const INTEGER *LWORK,
5455 INTEGER *INFO);
5456
5457 //-- dtgexc --------------------------------------------------------------------
5458 void
5459 LAPACK_DECL(dtgexc)(const LOGICAL *WANTQ,
5460 const LOGICAL *WANTZ,
5461 const INTEGER *N,
5462 DOUBLE *A,
5463 const INTEGER *LDA,
5464 DOUBLE *B,
5465 const INTEGER *LDB,
5466 DOUBLE *Q,
5467 const INTEGER *LDQ,
5468 DOUBLE *Z,
5469 const INTEGER *LDZ,
5470 INTEGER *IFST,
5471 INTEGER *ILST,
5472 DOUBLE *WORK,
5473 const INTEGER *LWORK,
5474 INTEGER *INFO);
5475
5476 //-- dtgsen --------------------------------------------------------------------
5477 void
5478 LAPACK_DECL(dtgsen)(const INTEGER *IJOB,
5479 const LOGICAL *WANTQ,
5480 const LOGICAL *WANTZ,
5481 const LOGICAL *SELECT,
5482 const INTEGER *N,
5483 DOUBLE *A,
5484 const INTEGER *LDA,
5485 DOUBLE *B,
5486 const INTEGER *LDB,
5487 DOUBLE *ALPHAR,
5488 DOUBLE *ALPHAI,
5489 DOUBLE *BETA,
5490 DOUBLE *Q,
5491 const INTEGER *LDQ,
5492 DOUBLE *Z,
5493 const INTEGER *LDZ,
5494 INTEGER *M,
5495 DOUBLE *PL,
5496 DOUBLE *PR,
5497 DOUBLE *DIF,
5498 DOUBLE *WORK,
5499 const INTEGER *LWORK,
5500 INTEGER *IWORK,
5501 const INTEGER *LIWORK,
5502 INTEGER *INFO);
5503
5504 //-- dtgsja --------------------------------------------------------------------
5505 void
5506 LAPACK_DECL(dtgsja)(const char *JOBU,
5507 const char *JOBV,
5508 const char *JOBQ,
5509 const INTEGER *M,
5510 const INTEGER *P,
5511 const INTEGER *N,
5512 const INTEGER *K,
5513 const INTEGER *L,
5514 DOUBLE *A,
5515 const INTEGER *LDA,
5516 DOUBLE *B,
5517 const INTEGER *LDB,
5518 const DOUBLE *TOLA,
5519 const DOUBLE *TOLB,
5520 DOUBLE *ALPHA,
5521 DOUBLE *BETA,
5522 DOUBLE *U,
5523 const INTEGER *LDU,
5524 DOUBLE *V,
5525 const INTEGER *LDV,
5526 DOUBLE *Q,
5527 const INTEGER *LDQ,
5528 const DOUBLE *WORK,
5529 INTEGER *NCYCLE,
5530 INTEGER *INFO);
5531
5532 //-- dtgsna --------------------------------------------------------------------
5533 void
5534 LAPACK_DECL(dtgsna)(const char *JOB,
5535 const char *HOWMNY,
5536 const LOGICAL *SELECT,
5537 const INTEGER *N,
5538 const DOUBLE *A,
5539 const INTEGER *LDA,
5540 const DOUBLE *B,
5541 const INTEGER *LDB,
5542 const DOUBLE *VL,
5543 const INTEGER *LDVL,
5544 const DOUBLE *VR,
5545 const INTEGER *LDVR,
5546 DOUBLE *S,
5547 DOUBLE *DIF,
5548 const INTEGER *MM,
5549 INTEGER *M,
5550 DOUBLE *WORK,
5551 const INTEGER *LWORK,
5552 const INTEGER *IWORK,
5553 INTEGER *INFO);
5554
5555 //-- dtgsy2 --------------------------------------------------------------------
5556 void
5557 LAPACK_DECL(dtgsy2)(const char *TRANS,
5558 const INTEGER *IJOB,
5559 const INTEGER *M,
5560 const INTEGER *N,
5561 const DOUBLE *A,
5562 const INTEGER *LDA,
5563 const DOUBLE *B,
5564 const INTEGER *LDB,
5565 DOUBLE *C,
5566 const INTEGER *LDC,
5567 const DOUBLE *D,
5568 const INTEGER *LDD,
5569 const DOUBLE *E,
5570 const INTEGER *LDE,
5571 DOUBLE *F,
5572 const INTEGER *LDF,
5573 DOUBLE *SCALE,
5574 DOUBLE *RDSUM,
5575 DOUBLE *RDSCAL,
5576 const INTEGER *IWORK,
5577 INTEGER *PQ,
5578 INTEGER *INFO);
5579
5580 //-- dtgsyl --------------------------------------------------------------------
5581 void
5582 LAPACK_DECL(dtgsyl)(const char *TRANS,
5583 const INTEGER *IJOB,
5584 const INTEGER *M,
5585 const INTEGER *N,
5586 const DOUBLE *A,
5587 const INTEGER *LDA,
5588 const DOUBLE *B,
5589 const INTEGER *LDB,
5590 DOUBLE *C,
5591 const INTEGER *LDC,
5592 const DOUBLE *D,
5593 const INTEGER *LDD,
5594 const DOUBLE *E,
5595 const INTEGER *LDE,
5596 DOUBLE *F,
5597 const INTEGER *LDF,
5598 DOUBLE *SCALE,
5599 DOUBLE *DIF,
5600 DOUBLE *WORK,
5601 const INTEGER *LWORK,
5602 const INTEGER *IWORK,
5603 INTEGER *INFO);
5604
5605 //-- dtpcon --------------------------------------------------------------------
5606 void
5607 LAPACK_DECL(dtpcon)(const char *NORM,
5608 const char *UPLO,
5609 const char *DIAG,
5610 const INTEGER *N,
5611 const DOUBLE *AP,
5612 DOUBLE *RCOND,
5613 const DOUBLE *WORK,
5614 const INTEGER *IWORK,
5615 INTEGER *INFO);
5616
5617 //-- dtprfs --------------------------------------------------------------------
5618 void
5619 LAPACK_DECL(dtprfs)(const char *UPLO,
5620 const char *TRANS,
5621 const char *DIAG,
5622 const INTEGER *N,
5623 const INTEGER *NRHS,
5624 const DOUBLE *AP,
5625 const DOUBLE *B,
5626 const INTEGER *LDB,
5627 const DOUBLE *X,
5628 const INTEGER *LDX,
5629 DOUBLE *FERR,
5630 DOUBLE *BERR,
5631 const DOUBLE *WORK,
5632 const INTEGER *IWORK,
5633 INTEGER *INFO);
5634
5635 //-- dtptri --------------------------------------------------------------------
5636 void
5637 LAPACK_DECL(dtptri)(const char *UPLO,
5638 const char *DIAG,
5639 const INTEGER *N,
5640 DOUBLE *AP,
5641 INTEGER *INFO);
5642
5643 //-- dtptrs --------------------------------------------------------------------
5644 void
5645 LAPACK_DECL(dtptrs)(const char *UPLO,
5646 const char *TRANS,
5647 const char *DIAG,
5648 const INTEGER *N,
5649 const INTEGER *NRHS,
5650 const DOUBLE *AP,
5651 DOUBLE *B,
5652 const INTEGER *LDB,
5653 INTEGER *INFO);
5654
5655 //-- dtpttf --------------------------------------------------------------------
5656 void
5657 LAPACK_DECL(dtpttf)(const char *TRANSR,
5658 const char *UPLO,
5659 const INTEGER *N,
5660 const DOUBLE *AP,
5661 DOUBLE *ARF,
5662 INTEGER *INFO);
5663
5664 //-- dtpttr --------------------------------------------------------------------
5665 void
5666 LAPACK_DECL(dtpttr)(const char *UPLO,
5667 const INTEGER *N,
5668 const DOUBLE *AP,
5669 DOUBLE *A,
5670 const INTEGER *LDA,
5671 INTEGER *INFO);
5672
5673 //-- dtrcon --------------------------------------------------------------------
5674 void
5675 LAPACK_DECL(dtrcon)(const char *NORM,
5676 const char *UPLO,
5677 const char *DIAG,
5678 const INTEGER *N,
5679 const DOUBLE *A,
5680 const INTEGER *LDA,
5681 DOUBLE *RCOND,
5682 const DOUBLE *WORK,
5683 const INTEGER *IWORK,
5684 INTEGER *INFO);
5685
5686 //-- dtrevc --------------------------------------------------------------------
5687 void
5688 LAPACK_DECL(dtrevc)(const char *SIDE,
5689 const char *HOWMNY,
5690 LOGICAL *SELECT,
5691 const INTEGER *N,
5692 const DOUBLE *T,
5693 const INTEGER *LDT,
5694 DOUBLE *VL,
5695 const INTEGER *LDVL,
5696 DOUBLE *VR,
5697 const INTEGER *LDVR,
5698 const INTEGER *MM,
5699 INTEGER *M,
5700 const DOUBLE *WORK,
5701 INTEGER *INFO);
5702
5703 //-- dtrexc --------------------------------------------------------------------
5704 void
5705 LAPACK_DECL(dtrexc)(const char *COMPQ,
5706 const INTEGER *N,
5707 DOUBLE *T,
5708 const INTEGER *LDT,
5709 DOUBLE *Q,
5710 const INTEGER *LDQ,
5711 INTEGER *IFST,
5712 INTEGER *ILST,
5713 const DOUBLE *WORK,
5714 INTEGER *INFO);
5715
5716 //-- dtrrfs --------------------------------------------------------------------
5717 void
5718 LAPACK_DECL(dtrrfs)(const char *UPLO,
5719 const char *TRANS,
5720 const char *DIAG,
5721 const INTEGER *N,
5722 const INTEGER *NRHS,
5723 const DOUBLE *A,
5724 const INTEGER *LDA,
5725 const DOUBLE *B,
5726 const INTEGER *LDB,
5727 const DOUBLE *X,
5728 const INTEGER *LDX,
5729 DOUBLE *FERR,
5730 DOUBLE *BERR,
5731 const DOUBLE *WORK,
5732 const INTEGER *IWORK,
5733 INTEGER *INFO);
5734
5735 //-- dtrsen --------------------------------------------------------------------
5736 void
5737 LAPACK_DECL(dtrsen)(const char *JOB,
5738 const char *COMPQ,
5739 const LOGICAL *SELECT,
5740 const INTEGER *N,
5741 DOUBLE *T,
5742 const INTEGER *LDT,
5743 DOUBLE *Q,
5744 const INTEGER *LDQ,
5745 DOUBLE *WR,
5746 DOUBLE *WI,
5747 INTEGER *M,
5748 DOUBLE *S,
5749 DOUBLE *SEP,
5750 DOUBLE *WORK,
5751 const INTEGER *LWORK,
5752 const INTEGER *IWORK,
5753 const INTEGER *LIWORK,
5754 INTEGER *INFO);
5755
5756 //-- dtrsna --------------------------------------------------------------------
5757 void
5758 LAPACK_DECL(dtrsna)(const char *JOB,
5759 const char *HOWMNY,
5760 const LOGICAL *SELECT,
5761 const INTEGER *N,
5762 const DOUBLE *T,
5763 const INTEGER *LDT,
5764 const DOUBLE *VL,
5765 const INTEGER *LDVL,
5766 const DOUBLE *VR,
5767 const INTEGER *LDVR,
5768 DOUBLE *S,
5769 DOUBLE *SEP,
5770 const INTEGER *MM,
5771 INTEGER *M,
5772 const DOUBLE *WORK,
5773 const INTEGER *LDWORK,
5774 const INTEGER *IWORK,
5775 INTEGER *INFO);
5776
5777 //-- dtrsyl --------------------------------------------------------------------
5778 void
5779 LAPACK_DECL(dtrsyl)(const char *TRANA,
5780 const char *TRANB,
5781 const INTEGER *ISGN,
5782 const INTEGER *M,
5783 const INTEGER *N,
5784 const DOUBLE *A,
5785 const INTEGER *LDA,
5786 const DOUBLE *B,
5787 const INTEGER *LDB,
5788 DOUBLE *C,
5789 const INTEGER *LDC,
5790 DOUBLE *SCALE,
5791 INTEGER *INFO);
5792
5793 //-- dtrti2 --------------------------------------------------------------------
5794 void
5795 LAPACK_DECL(dtrti2)(const char *UPLO,
5796 const char *DIAG,
5797 const INTEGER *N,
5798 DOUBLE *A,
5799 const INTEGER *LDA,
5800 INTEGER *INFO);
5801
5802 //-- dtrtri --------------------------------------------------------------------
5803 void
5804 LAPACK_DECL(dtrtri)(const char *UPLO,
5805 const char *DIAG,
5806 const INTEGER *N,
5807 DOUBLE *A,
5808 const INTEGER *LDA,
5809 INTEGER *INFO);
5810
5811 //-- dtrtrs --------------------------------------------------------------------
5812 void
5813 LAPACK_DECL(dtrtrs)(const char *UPLO,
5814 const char *TRANS,
5815 const char *DIAG,
5816 const INTEGER *N,
5817 const INTEGER *NRHS,
5818 const DOUBLE *A,
5819 const INTEGER *LDA,
5820 DOUBLE *B,
5821 const INTEGER *LDB,
5822 INTEGER *INFO);
5823
5824 //-- dtrttf --------------------------------------------------------------------
5825 void
5826 LAPACK_DECL(dtrttf)(const char *TRANSR,
5827 const char *UPLO,
5828 const INTEGER *N,
5829 const DOUBLE *A,
5830 const INTEGER *LDA,
5831 DOUBLE *ARF,
5832 INTEGER *INFO);
5833
5834 //-- dtrttp --------------------------------------------------------------------
5835 void
5836 LAPACK_DECL(dtrttp)(const char *UPLO,
5837 const INTEGER *N,
5838 const DOUBLE *A,
5839 const INTEGER *LDA,
5840 DOUBLE *AP,
5841 INTEGER *INFO);
5842
5843 //-- dtzrqf --------------------------------------------------------------------
5844 void
5845 LAPACK_DECL(dtzrqf)(const INTEGER *M,
5846 const INTEGER *N,
5847 DOUBLE *A,
5848 const INTEGER *LDA,
5849 DOUBLE *TAU,
5850 INTEGER *INFO);
5851
5852 //-- dtzrzf --------------------------------------------------------------------
5853 void
5854 LAPACK_DECL(dtzrzf)(const INTEGER *M,
5855 const INTEGER *N,
5856 DOUBLE *A,
5857 const INTEGER *LDA,
5858 DOUBLE *TAU,
5859 DOUBLE *WORK,
5860 const INTEGER *LWORK,
5861 INTEGER *INFO);
5862
5863 //-- dzsum1 --------------------------------------------------------------------
5864 DOUBLE
5865 LAPACK_DECL(dzsum1)(const INTEGER *N,
5866 const DOUBLE_COMPLEX *CX,
5867 const INTEGER *INCX);
5868
5869 //-- ieeeck --------------------------------------------------------------------
5870 INTEGER
5871 LAPACK_DECL(ieeeck)(const INTEGER *ISPEC,
5872 const FLOAT *ZERO,
5873 const FLOAT *ONE);
5874
5875 //-- iladlc --------------------------------------------------------------------
5876 INTEGER
5877 LAPACK_DECL(iladlc)(const INTEGER *M,
5878 const INTEGER *N,
5879 const DOUBLE *A,
5880 const INTEGER *LDA);
5881
5882 //-- iladlr --------------------------------------------------------------------
5883 INTEGER
5884 LAPACK_DECL(iladlr)(const INTEGER *M,
5885 const INTEGER *N,
5886 const DOUBLE *A,
5887 const INTEGER *LDA);
5888
5889 //-- ilaslc --------------------------------------------------------------------
5890 INTEGER
5891 LAPACK_DECL(ilaslc)(const INTEGER *M,
5892 const INTEGER *N,
5893 const FLOAT *A,
5894 const INTEGER *LDA);
5895
5896 //-- ilaslr --------------------------------------------------------------------
5897 INTEGER
5898 LAPACK_DECL(ilaslr)(const INTEGER *M,
5899 const INTEGER *N,
5900 const FLOAT *A,
5901 const INTEGER *LDA);
5902
5903 //-- ilatrans ------------------------------------------------------------------
5904 INTEGER
5905 LAPACK_DECL(ilatrans)(const char *TRANS);
5906
5907 //-- ilauplo -------------------------------------------------------------------
5908 INTEGER
5909 LAPACK_DECL(ilauplo)(const char *UPLO);
5910
5911 // warning: VERS_MAJOR has unknown type
5912 // warning: VERS_MINOR has unknown type
5913 // warning: VERS_PATCH has unknown type
5914 //-- ilaver --------------------------------------------------------------------
5915 void
5916 LAPACK_DECL(ilaver)(INTEGER *VERS_MAJOR,
5917 INTEGER *VERS_MINOR,
5918 INTEGER *VERS_PATCH);
5919
5920 // warning: NAME has unknown type
5921 // warning: OPTS has unknown type
5922 //-- iparmq --------------------------------------------------------------------
5923 INTEGER
5924 LAPACK_DECL(iparmq)(const INTEGER *ISPEC,
5925 UNKNOWN *NAME,
5926 UNKNOWN *OPTS,
5927 const INTEGER *N,
5928 const INTEGER *ILO,
5929 const INTEGER *IHI,
5930 const INTEGER *LWORK);
5931
5932 //-- lsame ---------------------------------------------------------------------
5933 LOGICAL
5934 LAPACK_DECL(lsame)(const char *CA,
5935 const char *CB);
5936
5937 //-- lsamen --------------------------------------------------------------------
5938 LOGICAL
5939 LAPACK_DECL(lsamen)(const INTEGER *N,
5940 const char *CA,
5941 const char *CB);
5942
5943 //-- sgetf2 --------------------------------------------------------------------
5944 void
5945 LAPACK_DECL(sgetf2)(const INTEGER *M,
5946 const INTEGER *N,
5947 FLOAT *A,
5948 const INTEGER *LDA,
5949 INTEGER *IPIV,
5950 INTEGER *INFO);
5951
5952 //-- sgetrf --------------------------------------------------------------------
5953 void
5954 LAPACK_DECL(sgetrf)(const INTEGER *M,
5955 const INTEGER *N,
5956 FLOAT *A,
5957 const INTEGER *LDA,
5958 INTEGER *IPIV,
5959 INTEGER *INFO);
5960
5961 //-- sgetrs --------------------------------------------------------------------
5962 void
5963 LAPACK_DECL(sgetrs)(const char *TRANS,
5964 const INTEGER *N,
5965 const INTEGER *NRHS,
5966 const FLOAT *A,
5967 const INTEGER *LDA,
5968 const INTEGER *IPIV,
5969 FLOAT *B,
5970 const INTEGER *LDB,
5971 INTEGER *INFO);
5972
5973 //-- sisnan --------------------------------------------------------------------
5974 LOGICAL
5975 LAPACK_DECL(sisnan)(const FLOAT *SIN);
5976
5977 //-- slag2d --------------------------------------------------------------------
5978 void
5979 LAPACK_DECL(slag2d)(const INTEGER *M,
5980 const INTEGER *N,
5981 const FLOAT *SA,
5982 const INTEGER *LDSA,
5983 DOUBLE *A,
5984 const INTEGER *LDA,
5985 INTEGER *INFO);
5986
5987 //-- slaisnan ------------------------------------------------------------------
5988 LOGICAL
5989 LAPACK_DECL(slaisnan)(const FLOAT *SIN1,
5990 const FLOAT *SIN2);
5991
5992 //-- slamch --------------------------------------------------------------------
5993 FLOAT
5994 LAPACK_DECL(slamch)(const char *CMACH);
5995
5996 //-- slaswp --------------------------------------------------------------------
5997 void
5998 LAPACK_DECL(slaswp)(const INTEGER *N,
5999 FLOAT *A,
6000 const INTEGER *LDA,
6001 const INTEGER *K1,
6002 const INTEGER *K2,
6003 const INTEGER *IPIV,
6004 const INTEGER *INCX);
6005
6006 //-- spotf2 --------------------------------------------------------------------
6007 void
6008 LAPACK_DECL(spotf2)(const char *UPLO,
6009 const INTEGER *N,
6010 FLOAT *A,
6011 const INTEGER *LDA,
6012 INTEGER *INFO);
6013
6014 //-- spotrf --------------------------------------------------------------------
6015 void
6016 LAPACK_DECL(spotrf)(const char *UPLO,
6017 const INTEGER *N,
6018 FLOAT *A,
6019 const INTEGER *LDA,
6020 INTEGER *INFO);
6021
6022 //-- spotrs --------------------------------------------------------------------
6023 void
6024 LAPACK_DECL(spotrs)(const char *UPLO,
6025 const INTEGER *N,
6026 const INTEGER *NRHS,
6027 const FLOAT *A,
6028 const INTEGER *LDA,
6029 FLOAT *B,
6030 const INTEGER *LDB,
6031 INTEGER *INFO);
6032