| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | zgeev.c | 178 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in zgeev_() local
252 vl_offset = 1 + vl_dim1; in zgeev_()
253 vl -= vl_offset; in zgeev_()
315 …zhseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[1], &c_n1, i… in zgeev_()
397 zlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in zgeev_()
402 zunghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], &i__1, &ierr); in zgeev_()
408 …zhseqr_("S", "V", n, &ilo, &ihi, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[iwrk], &i_… in zgeev_()
414 zlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in zgeev_()
455 …ztrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in zgeev_()
462 zgebak_("B", "L", n, &ilo, &ihi, &rwork[ibal], n, &vl[vl_offset], ldvl, &ierr); in zgeev_()
|
| H A D | cgeev.c | 178 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in cgeev_() local
248 vl_offset = 1 + vl_dim1; in cgeev_()
249 vl -= vl_offset; in cgeev_()
311 …chseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[1], &c_n1, i… in cgeev_()
393 clacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in cgeev_()
398 cunghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], &i__1, &ierr); in cgeev_()
404 …chseqr_("S", "V", n, &ilo, &ihi, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[iwrk], &i_… in cgeev_()
410 clacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in cgeev_()
451 …ctrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in cgeev_()
458 cgebak_("B", "L", n, &ilo, &ihi, &rwork[ibal], n, &vl[vl_offset], ldvl, &ierr); in cgeev_()
|
| H A D | sgeevx.c | 308 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in sgeevx_() local
383 vl_offset = 1 + vl_dim1; in sgeevx_()
384 vl -= vl_offset; in sgeevx_()
455 …shseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &wr[1], &wi[ 1], &vl[vl_offset], ldvl, &work[1],… in sgeevx_()
587 slacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in sgeevx_()
591 sorghr_(n, ilo, ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], & i__1, &ierr); in sgeevx_()
596 …shseqr_("S", "V", n, ilo, ihi, &a[a_offset], lda, &wr[1], &wi[1], &vl[ vl_offset], ldvl, &work[iwr… in sgeevx_()
602 slacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in sgeevx_()
647 …strevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in sgeevx_()
653 …strsna_(sense, "A", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &rco… in sgeevx_()
[all …]
|
| H A D | dgeevx.c | 308 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in dgeevx_() local
381 vl_offset = 1 + vl_dim1; in dgeevx_()
382 vl -= vl_offset; in dgeevx_()
453 …dhseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &wr[1], &wi[ 1], &vl[vl_offset], ldvl, &work[1],… in dgeevx_()
585 dlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in dgeevx_()
589 dorghr_(n, ilo, ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], & i__1, &ierr); in dgeevx_()
594 …dhseqr_("S", "V", n, ilo, ihi, &a[a_offset], lda, &wr[1], &wi[1], &vl[ vl_offset], ldvl, &work[iwr… in dgeevx_()
600 dlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in dgeevx_()
645 …dtrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in dgeevx_()
651 …dtrsna_(sense, "A", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &rco… in dgeevx_()
[all …]
|
| H A D | zgeevx.c | 291 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in zgeevx_() local
365 vl_offset = 1 + vl_dim1; in zgeevx_()
366 vl -= vl_offset; in zgeevx_()
438 …zhseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[1], &c_n1, i… in zgeevx_()
572 zlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in zgeevx_()
577 zunghr_(n, ilo, ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], & i__1, &ierr); in zgeevx_()
583 …zhseqr_("S", "V", n, ilo, ihi, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[iwrk], &i__1… in zgeevx_()
589 zlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in zgeevx_()
638 …ztrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in zgeevx_()
645 …ztrsna_(sense, "A", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &rco… in zgeevx_()
[all …]
|
| H A D | cgeevx.c | 291 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in cgeevx_() local
363 vl_offset = 1 + vl_dim1; in cgeevx_()
364 vl -= vl_offset; in cgeevx_()
436 …chseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[1], &c_n1, i… in cgeevx_()
570 clacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in cgeevx_()
575 cunghr_(n, ilo, ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], & i__1, &ierr); in cgeevx_()
581 …chseqr_("S", "V", n, ilo, ihi, &a[a_offset], lda, &w[1], &vl[ vl_offset], ldvl, &work[iwrk], &i__1… in cgeevx_()
587 clacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in cgeevx_()
636 …ctrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in cgeevx_()
643 …ctrsna_(sense, "A", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &rco… in cgeevx_()
[all …]
|
| H A D | sgeev.c | 190 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in sgeev_() local
264 vl_offset = 1 + vl_dim1; in sgeev_()
265 vl -= vl_offset; in sgeev_()
325 …shseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &wr[1], &wi[ 1], &vl[vl_offset], ldvl, &work[1],… in sgeev_()
429 slacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in sgeev_()
433 sorghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], &i__1, &ierr); in sgeev_()
438 …shseqr_("S", "V", n, &ilo, &ihi, &a[a_offset], lda, &wr[1], &wi[1], & vl[vl_offset], ldvl, &work[i… in sgeev_()
444 slacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in sgeev_()
480 …strevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in sgeev_()
486 sgebak_("B", "L", n, &ilo, &ihi, &work[ibal], n, &vl[vl_offset], ldvl, &ierr); in sgeev_()
|
| H A D | dgeev.c | 190 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i__3; in dgeev_() local
264 vl_offset = 1 + vl_dim1; in dgeev_()
265 vl -= vl_offset; in dgeev_()
325 …dhseqr_("S", "V", n, &c__1, n, &a[a_offset], lda, &wr[1], &wi[ 1], &vl[vl_offset], ldvl, &work[1],… in dgeev_()
429 dlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) ; in dgeev_()
433 dorghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], &i__1, &ierr); in dgeev_()
438 …dhseqr_("S", "V", n, &ilo, &ihi, &a[a_offset], lda, &wr[1], &wi[1], & vl[vl_offset], ldvl, &work[i… in dgeev_()
444 dlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in dgeev_()
480 …dtrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &n… in dgeev_()
486 dgebak_("B", "L", n, &ilo, &ihi, &work[ibal], n, &vl[vl_offset], ldvl, &ierr); in dgeev_()
|
| H A D | zggev.c | 225 …integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i_… in zggev_() local
307 vl_offset = 1 + vl_dim1; in zggev_()
308 vl -= vl_offset; in zggev_()
497 zlaset_("Full", n, n, &c_b1, &c_b2, &vl[vl_offset], ldvl); in zggev_()
516 …zgghrd_(jobvl, jobvr, n, &ilo, &ihi, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &… in zggev_()
520 …, &irows, &a[ilo + ilo * a_dim1], lda, &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ vr_… in zggev_()
536 …, &ihi, &a[a_offset], lda, &b[ b_offset], ldb, &alpha[1], &beta[1], &vl[vl_offset], ldvl, &vr[ vr_… in zggev_()
573 …ztgevc_(chtemp, "B", ldumma, n, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &vr[vr… in zggev_()
583 … zggbak_("P", "L", n, &ilo, &ihi, &rwork[ileft], &rwork[iright], n, &vl[vl_offset], ldvl, &ierr); in zggev_()
|
| H A D | cggev.c | 225 …integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2, i_… in cggev_() local
306 vl_offset = 1 + vl_dim1; in cggev_()
307 vl -= vl_offset; in cggev_()
496 claset_("Full", n, n, &c_b1, &c_b2, &vl[vl_offset], ldvl); in cggev_()
515 …cgghrd_(jobvl, jobvr, n, &ilo, &ihi, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &… in cggev_()
519 …, &irows, &a[ilo + ilo * a_dim1], lda, &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ vr_… in cggev_()
535 …, &ihi, &a[a_offset], lda, &b[ b_offset], ldb, &alpha[1], &beta[1], &vl[vl_offset], ldvl, &vr[ vr_… in cggev_()
572 …ctgevc_(chtemp, "B", ldumma, n, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &vr[vr… in cggev_()
582 … cggbak_("P", "L", n, &ilo, &ihi, &rwork[ileft], &rwork[iright], n, &vl[vl_offset], ldvl, &ierr); in cggev_()
|
| H A D | dggev.c | 227 integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2; in dggev_() local
299 vl_offset = 1 + vl_dim1; in dggev_()
300 vl -= vl_offset; in dggev_()
487 dlaset_("Full", n, n, &c_b36, &c_b37, &vl[vl_offset], ldvl) ; in dggev_()
507 …dgghrd_(jobvl, jobvr, n, &ilo, &ihi, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &… in dggev_()
511 …, &irows, &a[ilo + ilo * a_dim1], lda, &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ vr_… in dggev_()
526 …offset], lda, &b[ b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vl[vl_offset], ldvl, &vr[vr_o… in dggev_()
562 …dtgevc_(chtemp, "B", ldumma, n, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &vr[vr… in dggev_()
572 … dggbak_("P", "L", n, &ilo, &ihi, &work[ileft], &work[iright], n, & vl[vl_offset], ldvl, &ierr); in dggev_()
|
| H A D | sggev.c | 227 integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, i__2; in sggev_() local
304 vl_offset = 1 + vl_dim1; in sggev_()
305 vl -= vl_offset; in sggev_()
492 slaset_("Full", n, n, &c_b36, &c_b37, &vl[vl_offset], ldvl) ; in sggev_()
512 …sgghrd_(jobvl, jobvr, n, &ilo, &ihi, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &… in sggev_()
516 …, &irows, &a[ilo + ilo * a_dim1], lda, &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ vr_… in sggev_()
531 …offset], lda, &b[ b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vl[vl_offset], ldvl, &vr[vr_o… in sggev_()
567 …stgevc_(chtemp, "B", ldumma, n, &a[a_offset], lda, &b[b_offset], ldb, &vl[vl_offset], ldvl, &vr[vr… in sggev_()
577 … sggbak_("P", "L", n, &ilo, &ihi, &work[ileft], &work[iright], n, & vl[vl_offset], ldvl, &ierr); in sggev_()
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dgeevx.c | 330 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in igraphdgeevx_() local
414 vl_offset = 1 + vl_dim1; in igraphdgeevx_()
415 vl -= vl_offset; in igraphdgeevx_()
474 1], &vl[vl_offset], ldvl, &work[1], &c_n1, info); in igraphdgeevx_()
600 igraphdlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) in igraphdgeevx_()
607 igraphdorghr_(n, ilo, ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], & in igraphdgeevx_()
616 vl_offset], ldvl, &work[iwrk], &i__1, info); in igraphdgeevx_()
624 igraphdlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in igraphdgeevx_()
681 igraphdtrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in igraphdgeevx_()
689 igraphdtrsna_(sense, "A", select, n, &a[a_offset], lda, &vl[vl_offset], in igraphdgeevx_()
[all …]
|
| H A D | dgeev.c | 215 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in igraphdgeev_() local
297 vl_offset = 1 + vl_dim1; in igraphdgeev_()
298 vl -= vl_offset; in igraphdgeev_()
348 1], &vl[vl_offset], ldvl, &work[1], &c_n1, info); in igraphdgeev_()
453 igraphdlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl) in igraphdgeev_()
460 igraphdorghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], in igraphdgeev_()
469 vl[vl_offset], ldvl, &work[iwrk], &i__1, info); in igraphdgeev_()
477 igraphdlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr); in igraphdgeev_()
526 igraphdtrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in igraphdgeev_()
535 igraphdgebak_("B", "L", n, &ilo, &ihi, &work[ibal], n, &vl[vl_offset], ldvl, in igraphdgeev_()
|
| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_ggev.h | 189 integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, in template_lapack_ggev() local
230 vl_offset = 1 + vl_dim1 * 1; in template_lapack_ggev()
231 vl -= vl_offset; in template_lapack_ggev()
398 template_lapack_laset("Full", n, n, &c_b26, &c_b27, &vl[vl_offset], ldvl) in template_lapack_ggev()
424 ldb, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &ierr); in template_lapack_ggev()
427 b_ref(ilo, ilo), ldb, &vl[vl_offset], ldvl, &vr[vr_offset], in template_lapack_ggev()
443 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vl[vl_offset], in template_lapack_ggev()
470 &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &in, &work[ in template_lapack_ggev()
482 vl[vl_offset], ldvl, &ierr); in template_lapack_ggev()
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
| H A D | zgeev.c | 34 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in zgeev_() local
239 vl_offset = 1 + vl_dim1; in zgeev_()
240 vl -= vl_offset; in zgeev_()
461 zlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl, (ftnlen)1) in zgeev_()
470 zunghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], in zgeev_()
482 vl_offset], ldvl, &work[iwrk], &i__1, info, (ftnlen)1, ( in zgeev_()
494 zlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, ( in zgeev_()
566 ztrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in zgeev_()
580 zgebak_("B", "L", n, &ilo, &ihi, &rwork[ibal], n, &vl[vl_offset], in zgeev_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | sggev.c | 21 integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, in sggev_() local
245 vl_offset = 1 + vl_dim1; in sggev_()
246 vl -= vl_offset; in sggev_()
409 slaset_("Full", n, n, &c_b26, &c_b27, &vl[vl_offset], ldvl, (ftnlen)4) in sggev_()
435 ldb, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &ierr, ( in sggev_()
439 &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ in sggev_()
455 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vl[vl_offset], in sggev_()
483 &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &in, &work[ in sggev_()
495 vl[vl_offset], ldvl, &ierr, (ftnlen)1, (ftnlen)1); in sggev_()
|
| H A D | zggev.c | 23 integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, in zggev_() local
252 vl_offset = 1 + vl_dim1; in zggev_()
253 vl -= vl_offset; in zggev_()
418 zlaset_("Full", n, n, &c_b1, &c_b2, &vl[vl_offset], ldvl, (ftnlen)4); in zggev_()
441 ldb, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &ierr, ( in zggev_()
445 &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ in zggev_()
462 b_offset], ldb, &alpha[1], &beta[1], &vl[vl_offset], ldvl, &vr[ in zggev_()
492 &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &in, &work[ in zggev_()
504 &vl[vl_offset], ldvl, &ierr, (ftnlen)1, (ftnlen)1); in zggev_()
|
| H A D | cggev.c | 22 integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, in cggev_() local
242 vl_offset = 1 + vl_dim1; in cggev_()
243 vl -= vl_offset; in cggev_()
408 claset_("Full", n, n, &c_b1, &c_b2, &vl[vl_offset], ldvl, (ftnlen)4); in cggev_()
431 ldb, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &ierr, ( in cggev_()
435 &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ in cggev_()
452 b_offset], ldb, &alpha[1], &beta[1], &vl[vl_offset], ldvl, &vr[ in cggev_()
482 &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &in, &work[ in cggev_()
494 &vl[vl_offset], ldvl, &ierr, (ftnlen)1, (ftnlen)1); in cggev_()
|
| H A D | cgeev.c | 22 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in cgeev_() local
201 vl_offset = 1 + vl_dim1; in cgeev_()
202 vl -= vl_offset; in cgeev_()
354 clacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl, (ftnlen)1) in cgeev_()
362 cunghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], in cgeev_()
372 vl_offset], ldvl, &work[iwrk], &i__1, info, (ftnlen)1, ( in cgeev_()
381 clacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, ( in cgeev_()
438 ctrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in cgeev_()
449 cgebak_("B", "L", n, &ilo, &ihi, &rwork[ibal], n, &vl[vl_offset], in cgeev_()
|
| H A D | dggev.c | 22 integer a_dim1, a_offset, b_dim1, b_offset, vl_dim1, vl_offset, vr_dim1, in dggev_() local
249 vl_offset = 1 + vl_dim1; in dggev_()
250 vl -= vl_offset; in dggev_()
413 dlaset_("Full", n, n, &c_b26, &c_b27, &vl[vl_offset], ldvl, (ftnlen)4) in dggev_()
439 ldb, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, &ierr, ( in dggev_()
443 &b[ilo + ilo * b_dim1], ldb, &vl[vl_offset], ldvl, &vr[ in dggev_()
459 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vl[vl_offset], in dggev_()
487 &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, n, &in, &work[ in dggev_()
499 vl[vl_offset], ldvl, &ierr, (ftnlen)1, (ftnlen)1); in dggev_()
|
| H A D | zgeev.c | 23 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in zgeev_() local
207 vl_offset = 1 + vl_dim1; in zgeev_()
208 vl -= vl_offset; in zgeev_()
360 zlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl, (ftnlen)1) in zgeev_()
368 zunghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], in zgeev_()
378 vl_offset], ldvl, &work[iwrk], &i__1, info, (ftnlen)1, ( in zgeev_()
387 zlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, ( in zgeev_()
444 ztrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in zgeev_()
455 zgebak_("B", "L", n, &ilo, &ihi, &rwork[ibal], n, &vl[vl_offset], in zgeev_()
|
| H A D | zgeevx.c | 25 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in zgeevx_() local
293 vl_offset = 1 + vl_dim1; in zgeevx_()
294 vl -= vl_offset; in zgeevx_()
499 zlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl, (ftnlen)1) in zgeevx_()
507 zunghr_(n, ilo, ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], & in zgeevx_()
517 vl_offset], ldvl, &work[iwrk], &i__1, info, (ftnlen)1, ( in zgeevx_()
526 zlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, ( in zgeevx_()
590 ztrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in zgeevx_()
600 ztrsna_(sense, "A", select, n, &a[a_offset], lda, &vl[vl_offset], in zgeevx_()
609 zgebak_(balanc, "L", n, ilo, ihi, &scale[1], n, &vl[vl_offset], ldvl, in zgeevx_()
|
| H A D | sgeevx.c | 24 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in sgeevx_() local
299 vl_offset = 1 + vl_dim1; in sgeevx_()
300 vl -= vl_offset; in sgeevx_()
503 slacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl, (ftnlen)1) in sgeevx_()
510 sorghr_(n, ilo, ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], & in sgeevx_()
519 vl_offset], ldvl, &work[iwrk], &i__1, info, (ftnlen)1, ( in sgeevx_()
528 slacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, ( in sgeevx_()
588 strevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in sgeevx_()
597 strsna_(sense, "A", select, n, &a[a_offset], lda, &vl[vl_offset], in sgeevx_()
606 sgebak_(balanc, "L", n, ilo, ihi, &scale[1], n, &vl[vl_offset], ldvl, in sgeevx_()
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/complex16/ |
| H A D | zgeev.c | 34 integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, in zgeev_() local
239 vl_offset = 1 + vl_dim1; in zgeev_()
240 vl -= vl_offset; in zgeev_()
461 zlacpy_("L", n, n, &a[a_offset], lda, &vl[vl_offset], ldvl, (ftnlen)1) in zgeev_()
470 zunghr_(n, &ilo, &ihi, &vl[vl_offset], ldvl, &work[itau], &work[iwrk], in zgeev_()
482 vl_offset], ldvl, &work[iwrk], &i__1, info, (ftnlen)1, ( in zgeev_()
494 zlacpy_("F", n, n, &vl[vl_offset], ldvl, &vr[vr_offset], ldvr, ( in zgeev_()
566 ztrevc_(side, "B", select, n, &a[a_offset], lda, &vl[vl_offset], ldvl, in zgeev_()
580 zgebak_("B", "L", n, &ilo, &ihi, &rwork[ibal], n, &vl[vl_offset], in zgeev_()
|