| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dgeev.c | 299 vr_dim1 = *ldvr; in igraphdgeev_()
300 vr_offset = 1 + vr_dim1; in igraphdgeev_()
584 scl = 1. / igraphdnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeev_()
585 igraphdscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeev_()
587 d__1 = igraphdnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeev_()
590 igraphdscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeev_()
595 d__1 = vr[k + i__ * vr_dim1]; in igraphdgeev_()
597 d__2 = vr[k + (i__ + 1) * vr_dim1]; in igraphdgeev_()
602 igraphdlartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], in igraphdgeev_()
605 vr_dim1 + 1], &c__1, &cs, &sn); in igraphdgeev_()
[all …]
|
| H A D | dgeevx.c | 416 vr_dim1 = *ldvr; in igraphdgeevx_()
417 vr_offset = 1 + vr_dim1; in igraphdgeevx_()
746 scl = 1. / igraphdnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeevx_()
747 igraphdscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeevx_()
749 d__1 = igraphdnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeevx_()
752 igraphdscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in igraphdgeevx_()
757 d__1 = vr[k + i__ * vr_dim1]; in igraphdgeevx_()
759 d__2 = vr[k + (i__ + 1) * vr_dim1]; in igraphdgeevx_()
764 igraphdlartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], in igraphdgeevx_()
767 vr_dim1 + 1], &c__1, &cs, &sn); in igraphdgeevx_()
[all …]
|
| H A D | dtrsna.c | 290 integer t_dim1, t_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, in igraphdtrsna_() local
358 vr_dim1 = *ldvr; in igraphdtrsna_()
359 vr_offset = 1 + vr_dim1; in igraphdtrsna_()
506 prod = igraphddot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in igraphdtrsna_()
508 rnrm = igraphdnrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in igraphdtrsna_()
515 prod1 = igraphddot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in igraphdtrsna_()
517 prod1 += igraphddot_(n, &vr[(ks + 1) * vr_dim1 + 1], &c__1, &vl[(ks in igraphdtrsna_()
520 vr_dim1 + 1], &c__1); in igraphdtrsna_()
522 vr_dim1 + 1], &c__1); in igraphdtrsna_()
523 d__1 = igraphdnrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in igraphdtrsna_()
[all …]
|
| H A D | dtrevc.c | 319 vr_dim1 = *ldvr; in igraphdtrevc_()
320 vr_offset = 1 + vr_dim1; in igraphdtrevc_()
599 vr[k + is * vr_dim1] = 0.; in igraphdtrevc_()
607 vr_dim1 + 1], &c__1); in igraphdtrevc_()
774 d__3 = emax, d__4 = (d__1 = vr[k + (is - 1) * vr_dim1] in igraphdtrevc_()
775 , abs(d__1)) + (d__2 = vr[k + is * vr_dim1], in igraphdtrevc_()
787 vr[k + (is - 1) * vr_dim1] = 0.; in igraphdtrevc_()
788 vr[k + is * vr_dim1] = 0.; in igraphdtrevc_()
798 ki - 1) * vr_dim1 + 1], &c__1); in igraphdtrevc_()
802 vr_dim1 + 1], &c__1); in igraphdtrevc_()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | sgeev.c | 266 vr_dim1 = *ldvr; in sgeev_()
267 vr_offset = 1 + vr_dim1; in sgeev_()
538 scl = 1.f / snrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
539 sscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
543 r__1 = snrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
546 sscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
554 r__1 = vr[k + i__ * vr_dim1]; in sgeev_()
556 r__2 = vr[k + (i__ + 1) * vr_dim1]; in sgeev_()
561 slartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], &cs, &sn, &r__); in sgeev_()
562 … srot_(n, &vr[i__ * vr_dim1 + 1], &c__1, &vr[(i__ + 1) * vr_dim1 + 1], &c__1, &cs, &sn); in sgeev_()
[all …]
|
| H A D | dgeev.c | 266 vr_dim1 = *ldvr; in dgeev_()
267 vr_offset = 1 + vr_dim1; in dgeev_()
538 scl = 1. / dnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
539 dscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
543 d__1 = dnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
546 dscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
554 d__1 = vr[k + i__ * vr_dim1]; in dgeev_()
556 d__2 = vr[k + (i__ + 1) * vr_dim1]; in dgeev_()
561 dlartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], &cs, &sn, &r__); in dgeev_()
562 … drot_(n, &vr[i__ * vr_dim1 + 1], &c__1, &vr[(i__ + 1) * vr_dim1 + 1], &c__1, &cs, &sn); in dgeev_()
[all …]
|
| H A D | sgeevx.c | 385 vr_dim1 = *ldvr; in sgeevx_()
386 vr_offset = 1 + vr_dim1; in sgeevx_()
709 scl = 1.f / snrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in sgeevx_()
710 sscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in sgeevx_()
714 r__1 = snrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in sgeevx_()
717 sscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in sgeevx_()
725 r__1 = vr[k + i__ * vr_dim1]; in sgeevx_()
727 r__2 = vr[k + (i__ + 1) * vr_dim1]; in sgeevx_()
732 slartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], &cs, &sn, &r__); in sgeevx_()
733 … srot_(n, &vr[i__ * vr_dim1 + 1], &c__1, &vr[(i__ + 1) * vr_dim1 + 1], &c__1, &cs, &sn); in sgeevx_()
[all …]
|
| H A D | dgeevx.c | 383 vr_dim1 = *ldvr; in dgeevx_()
384 vr_offset = 1 + vr_dim1; in dgeevx_()
707 scl = 1. / dnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in dgeevx_()
708 dscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in dgeevx_()
712 d__1 = dnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in dgeevx_()
715 dscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in dgeevx_()
723 d__1 = vr[k + i__ * vr_dim1]; in dgeevx_()
725 d__2 = vr[k + (i__ + 1) * vr_dim1]; in dgeevx_()
730 dlartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], &cs, &sn, &r__); in dgeevx_()
731 … drot_(n, &vr[i__ * vr_dim1 + 1], &c__1, &vr[(i__ + 1) * vr_dim1 + 1], &c__1, &cs, &sn); in dgeevx_()
[all …]
|
| H A D | strsna.c | 268 …integer t_dim1, t_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, work_dim1, work_offset, i__1, i_… in strsna_() local
341 vr_dim1 = *ldvr; in strsna_()
342 vr_offset = 1 + vr_dim1; in strsna_()
523 prod = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * vl_dim1 + 1], &c__1); in strsna_()
524 rnrm = snrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in strsna_()
531 prod1 = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * vl_dim1 + 1], &c__1); in strsna_()
532 … prod1 += sdot_(n, &vr[(ks + 1) * vr_dim1 + 1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], &c__1); in strsna_()
533 prod2 = sdot_(n, &vl[ks * vl_dim1 + 1], &c__1, &vr[(ks + 1) * vr_dim1 + 1], &c__1); in strsna_()
534 prod2 -= sdot_(n, &vl[(ks + 1) * vl_dim1 + 1], &c__1, &vr[ks * vr_dim1 + 1], &c__1); in strsna_()
535 r__1 = snrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in strsna_()
[all …]
|
| H A D | dtrsna.c | 268 …integer t_dim1, t_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, work_dim1, work_offset, i__1, i_… in dtrsna_() local
339 vr_dim1 = *ldvr; in dtrsna_()
340 vr_offset = 1 + vr_dim1; in dtrsna_()
521 prod = ddot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * vl_dim1 + 1], &c__1); in dtrsna_()
522 rnrm = dnrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in dtrsna_()
529 prod1 = ddot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * vl_dim1 + 1], &c__1); in dtrsna_()
530 … prod1 += ddot_(n, &vr[(ks + 1) * vr_dim1 + 1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], &c__1); in dtrsna_()
531 prod2 = ddot_(n, &vl[ks * vl_dim1 + 1], &c__1, &vr[(ks + 1) * vr_dim1 + 1], &c__1); in dtrsna_()
532 prod2 -= ddot_(n, &vl[(ks + 1) * vl_dim1 + 1], &c__1, &vr[ks * vr_dim1 + 1], &c__1); in dtrsna_()
533 d__1 = dnrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in dtrsna_()
[all …]
|
| H A D | dtrevc.c | 302 vr_dim1 = *ldvr; in dtrevc_()
303 vr_offset = 1 + vr_dim1; in dtrevc_()
591 ii = idamax_(&ki, &vr[is * vr_dim1 + 1], &c__1); in dtrevc_()
599 vr[k + is * vr_dim1] = 0.; in dtrevc_()
610 ii = idamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in dtrevc_()
612 dscal_(n, &remax, &vr[ki * vr_dim1 + 1], &c__1); in dtrevc_()
758 …d__4 = (d__1 = vr[k + (is - 1) * vr_dim1] , f2c_abs(d__1)) + (d__2 = vr[k + is * vr_dim1], f2c_abs… in dtrevc_()
770 vr[k + (is - 1) * vr_dim1] = 0.; in dtrevc_()
771 vr[k + is * vr_dim1] = 0.; in dtrevc_()
797 …d__4 = (d__1 = vr[k + (ki - 1) * vr_dim1] , f2c_abs(d__1)) + (d__2 = vr[k + ki * vr_dim1], f2c_abs… in dtrevc_()
[all …]
|
| H A D | strevc.c | 300 vr_dim1 = *ldvr; in strevc_()
301 vr_offset = 1 + vr_dim1; in strevc_()
589 ii = isamax_(&ki, &vr[is * vr_dim1 + 1], &c__1); in strevc_()
597 vr[k + is * vr_dim1] = 0.f; in strevc_()
608 ii = isamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in strevc_()
610 sscal_(n, &remax, &vr[ki * vr_dim1 + 1], &c__1); in strevc_()
756 …r__4 = (r__1 = vr[k + (is - 1) * vr_dim1] , f2c_abs(r__1)) + (r__2 = vr[k + is * vr_dim1], f2c_abs… in strevc_()
768 vr[k + (is - 1) * vr_dim1] = 0.f; in strevc_()
769 vr[k + is * vr_dim1] = 0.f; in strevc_()
795 …r__4 = (r__1 = vr[k + (ki - 1) * vr_dim1] , f2c_abs(r__1)) + (r__2 = vr[k + ki * vr_dim1], f2c_abs… in strevc_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | sgeev.c | 216 vr_dim1 = *ldvr; in sgeev_()
217 vr_offset = 1 + vr_dim1; in sgeev_()
506 scl = 1.f / snrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
507 sscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
509 r__1 = snrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
512 sscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in sgeev_()
517 r__1 = vr[k + i__ * vr_dim1]; in sgeev_()
519 r__2 = vr[k + (i__ + 1) * vr_dim1]; in sgeev_()
524 slartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], in sgeev_()
527 vr_dim1 + 1], &c__1, &cs, &sn); in sgeev_()
[all …]
|
| H A D | dgeev.c | 222 vr_dim1 = *ldvr; in dgeev_()
223 vr_offset = 1 + vr_dim1; in dgeev_()
512 scl = 1. / dnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
513 dscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
515 d__1 = dnrm2_(n, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
518 dscal_(n, &scl, &vr[i__ * vr_dim1 + 1], &c__1); in dgeev_()
523 d__1 = vr[k + i__ * vr_dim1]; in dgeev_()
525 d__2 = vr[k + (i__ + 1) * vr_dim1]; in dgeev_()
530 dlartg_(&vr[k + i__ * vr_dim1], &vr[k + (i__ + 1) * vr_dim1], in dgeev_()
533 vr_dim1 + 1], &c__1, &cs, &sn); in dgeev_()
[all …]
|
| H A D | dtrsna.c | 21 integer t_dim1, t_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, in dtrsna_() local
258 vr_dim1 = *ldvr; in dtrsna_()
259 vr_offset = 1 + vr_dim1; in dtrsna_()
406 prod = ddot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in dtrsna_()
408 rnrm = dnrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in dtrsna_()
415 prod1 = ddot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in dtrsna_()
417 prod1 += ddot_(n, &vr[(ks + 1) * vr_dim1 + 1], &c__1, &vl[(ks in dtrsna_()
420 vr_dim1 + 1], &c__1); in dtrsna_()
422 vr_dim1 + 1], &c__1); in dtrsna_()
423 d__1 = dnrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in dtrsna_()
[all …]
|
| H A D | strsna.c | 21 integer t_dim1, t_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, in strsna_() local
256 vr_dim1 = *ldvr; in strsna_()
257 vr_offset = 1 + vr_dim1; in strsna_()
404 prod = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in strsna_()
406 rnrm = snrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in strsna_()
413 prod1 = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in strsna_()
415 prod1 += sdot_(n, &vr[(ks + 1) * vr_dim1 + 1], &c__1, &vl[(ks in strsna_()
418 vr_dim1 + 1], &c__1); in strsna_()
420 vr_dim1 + 1], &c__1); in strsna_()
421 r__1 = snrm2_(n, &vr[ks * vr_dim1 + 1], &c__1); in strsna_()
[all …]
|
| H A D | dtrevc.c | 258 vr_dim1 = *ldvr; in dtrevc_()
259 vr_offset = 1 + vr_dim1; in dtrevc_()
538 vr[k + is * vr_dim1] = 0.; in dtrevc_()
546 vr_dim1 + 1], &c__1, (ftnlen)1); in dtrevc_()
549 ii = idamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in dtrevc_()
714 , abs(d__1)) + (d__2 = vr[k + is * vr_dim1], in dtrevc_()
726 vr[k + (is - 1) * vr_dim1] = 0.; in dtrevc_()
727 vr[k + is * vr_dim1] = 0.; in dtrevc_()
737 ki - 1) * vr_dim1 + 1], &c__1, (ftnlen)1); in dtrevc_()
741 vr_dim1 + 1], &c__1, (ftnlen)1); in dtrevc_()
[all …]
|
| H A D | strevc.c | 254 vr_dim1 = *ldvr; in strevc_()
255 vr_offset = 1 + vr_dim1; in strevc_()
534 vr[k + is * vr_dim1] = 0.f; in strevc_()
542 vr_dim1 + 1], &c__1, (ftnlen)1); in strevc_()
545 ii = isamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in strevc_()
710 , dabs(r__1)) + (r__2 = vr[k + is * vr_dim1], in strevc_()
722 vr[k + (is - 1) * vr_dim1] = 0.f; in strevc_()
723 vr[k + is * vr_dim1] = 0.f; in strevc_()
733 ki - 1) * vr_dim1 + 1], &c__1, (ftnlen)1); in strevc_()
737 vr_dim1 + 1], &c__1, (ftnlen)1); in strevc_()
[all …]
|
| H A D | ztrevc.c | 217 vr_dim1 = *ldvr; in ztrevc_()
218 vr_offset = 1 + vr_dim1; in ztrevc_()
370 ii = izamax_(&ki, &vr[is * vr_dim1 + 1], &c__1); in ztrevc_()
371 i__1 = ii + is * vr_dim1; in ztrevc_()
373 &vr[ii + is * vr_dim1]), abs(d__2))); in ztrevc_()
374 zdscal_(&ki, &remax, &vr[is * vr_dim1 + 1], &c__1); in ztrevc_()
378 i__2 = k + is * vr_dim1; in ztrevc_()
391 ii = izamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in ztrevc_()
392 i__1 = ii + ki * vr_dim1; in ztrevc_()
394 &vr[ii + ki * vr_dim1]), abs(d__2))); in ztrevc_()
[all …]
|
| H A D | ctrevc.c | 214 vr_dim1 = *ldvr; in ctrevc_()
215 vr_offset = 1 + vr_dim1; in ctrevc_()
367 ii = icamax_(&ki, &vr[is * vr_dim1 + 1], &c__1); in ctrevc_()
368 i__1 = ii + is * vr_dim1; in ctrevc_()
370 r_imag(&vr[ii + is * vr_dim1]), dabs(r__2))); in ctrevc_()
371 csscal_(&ki, &remax, &vr[is * vr_dim1 + 1], &c__1); in ctrevc_()
375 i__2 = k + is * vr_dim1; in ctrevc_()
388 ii = icamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in ctrevc_()
389 i__1 = ii + ki * vr_dim1; in ctrevc_()
391 r_imag(&vr[ii + ki * vr_dim1]), dabs(r__2))); in ctrevc_()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | strevc.c | 236 vr_dim1 = *ldvr; in strevc_()
237 vr_offset = 1 + vr_dim1; in strevc_()
516 vr[k + is * vr_dim1] = 0.f; in strevc_()
524 vr_dim1 + 1], &c__1); in strevc_()
527 ii = isamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in strevc_()
692 , dabs(r__1)) + (r__2 = vr[k + is * vr_dim1], in strevc_()
704 vr[k + (is - 1) * vr_dim1] = 0.f; in strevc_()
705 vr[k + is * vr_dim1] = 0.f; in strevc_()
715 ki - 1) * vr_dim1 + 1], &c__1); in strevc_()
719 vr_dim1 + 1], &c__1); in strevc_()
[all …]
|
| H A D | dtrevc.c | 242 vr_dim1 = *ldvr; in dtrevc_()
243 vr_offset = 1 + vr_dim1; in dtrevc_()
522 vr[k + is * vr_dim1] = 0.; in dtrevc_()
530 vr_dim1 + 1], &c__1); in dtrevc_()
533 ii = idamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in dtrevc_()
698 , abs(d__1)) + (d__2 = vr[k + is * vr_dim1], in dtrevc_()
710 vr[k + (is - 1) * vr_dim1] = 0.; in dtrevc_()
711 vr[k + is * vr_dim1] = 0.; in dtrevc_()
721 ki - 1) * vr_dim1 + 1], &c__1); in dtrevc_()
725 vr_dim1 + 1], &c__1); in dtrevc_()
[all …]
|
| H A D | ctrevc.c | 218 vr_dim1 = *ldvr; in ctrevc_()
219 vr_offset = 1 + vr_dim1; in ctrevc_()
370 ii = icamax_(&ki, &vr[is * vr_dim1 + 1], &c__1); in ctrevc_()
371 i__1 = ii + is * vr_dim1; in ctrevc_()
373 r_imag(&vr[ii + is * vr_dim1]), dabs(r__2))); in ctrevc_()
374 csscal_(&ki, &remax, &vr[is * vr_dim1 + 1], &c__1); in ctrevc_()
378 i__2 = k + is * vr_dim1; in ctrevc_()
390 ii = icamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in ctrevc_()
391 i__1 = ii + ki * vr_dim1; in ctrevc_()
393 r_imag(&vr[ii + ki * vr_dim1]), dabs(r__2))); in ctrevc_()
[all …]
|
| H A D | ztrevc.c | 219 vr_dim1 = *ldvr; in ztrevc_()
220 vr_offset = 1 + vr_dim1; in ztrevc_()
371 ii = izamax_(&ki, &vr[is * vr_dim1 + 1], &c__1); in ztrevc_()
372 i__1 = ii + is * vr_dim1; in ztrevc_()
374 &vr[ii + is * vr_dim1]), abs(d__2))); in ztrevc_()
375 zdscal_(&ki, &remax, &vr[is * vr_dim1 + 1], &c__1); in ztrevc_()
379 i__2 = k + is * vr_dim1; in ztrevc_()
391 ii = izamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in ztrevc_()
392 i__1 = ii + ki * vr_dim1; in ztrevc_()
394 &vr[ii + ki * vr_dim1]), abs(d__2))); in ztrevc_()
[all …]
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
| H A D | ztrevc.c | 251 vr_dim1 = *ldvr; in ztrevc_()
252 vr_offset = 1 + vr_dim1; in ztrevc_()
472 ii = izamax_(&ki, &vr[is * vr_dim1 + 1], &c__1); in ztrevc_()
474 i__1 = ii + is * vr_dim1; in ztrevc_()
476 &vr[ii + is * vr_dim1]), abs(d__2))); in ztrevc_()
478 zdscal_(&ki, &remax, &vr[is * vr_dim1 + 1], &c__1); in ztrevc_()
484 i__2 = k + is * vr_dim1; in ztrevc_()
501 ii = izamax_(n, &vr[ki * vr_dim1 + 1], &c__1); in ztrevc_()
503 i__1 = ii + ki * vr_dim1; in ztrevc_()
505 &vr[ii + ki * vr_dim1]), abs(d__2))); in ztrevc_()
[all …]
|