Home
last modified time | relevance | path

Searched refs:IU2CS (Results 1 – 25 of 30) sorted by relevance

12

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Dcbbcsd.f431 IU2CS = IU1SN + Q
432 IU2SN = IU2CS + Q
630 $ RWORK(IU2CS+IMIN-1), R )
638 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
657 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
666 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
805 $ RWORK(IU2CS+I-1), R )
808 $ RWORK(IU2CS+I-1), R )
816 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
842 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Dzbbcsd.f430 IU2CS = IU1SN + Q
431 IU2SN = IU2CS + Q
629 $ RWORK(IU2CS+IMIN-1), R )
637 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
656 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
665 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
804 $ RWORK(IU2CS+I-1), R )
807 $ RWORK(IU2CS+I-1), R )
815 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
841 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Dsbbcsd.f431 IU2CS = IU1SN + Q
432 IU2SN = IU2CS + Q
630 $ WORK(IU2CS+IMIN-1), R )
638 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
657 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
666 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
805 $ WORK(IU2CS+I-1), R )
808 $ WORK(IU2CS+I-1), R )
816 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
828 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dsbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dcbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ RWORK(IU2CS+IMIN-1), R )
636 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
655 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ RWORK(IU2CS+I-1), R )
806 $ RWORK(IU2CS+I-1), R )
814 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
840 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Dzbbcsd.f428 IU2CS = IU1SN + Q
429 IU2SN = IU2CS + Q
627 $ RWORK(IU2CS+IMIN-1), R )
635 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
654 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
663 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
802 $ RWORK(IU2CS+I-1), R )
805 $ RWORK(IU2CS+I-1), R )
813 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
839 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzbbcsd.f428 IU2CS = IU1SN + Q
429 IU2SN = IU2CS + Q
627 $ RWORK(IU2CS+IMIN-1), R )
635 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
654 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
663 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
802 $ RWORK(IU2CS+I-1), R )
805 $ RWORK(IU2CS+I-1), R )
813 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
839 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Dsbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Ddbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dcbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ RWORK(IU2CS+IMIN-1), R )
636 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
655 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ RWORK(IU2CS+I-1), R )
806 $ RWORK(IU2CS+I-1), R )
814 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
840 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dzbbcsd.f428 IU2CS = IU1SN + Q
429 IU2SN = IU2CS + Q
627 $ RWORK(IU2CS+IMIN-1), R )
635 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
654 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
663 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
802 $ RWORK(IU2CS+I-1), R )
805 $ RWORK(IU2CS+I-1), R )
813 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
839 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Ddbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dcbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ RWORK(IU2CS+IMIN-1), R )
636 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
655 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ RWORK(IU2CS+I-1), R )
806 $ RWORK(IU2CS+I-1), R )
814 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
840 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Dsbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dcbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ RWORK(IU2CS+IMIN-1), R )
636 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
655 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ RWORK(IU2CS+I-1), R )
806 $ RWORK(IU2CS+I-1), R )
814 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
840 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Ddbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dsbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dzbbcsd.f428 IU2CS = IU1SN + Q
429 IU2SN = IU2CS + Q
627 $ RWORK(IU2CS+IMIN-1), R )
635 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
654 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
663 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
802 $ RWORK(IU2CS+I-1), R )
805 $ RWORK(IU2CS+I-1), R )
813 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
839 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dcbbcsd.f431 IU2CS = IU1SN + Q
432 IU2SN = IU2CS + Q
630 $ RWORK(IU2CS+IMIN-1), R )
638 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
657 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
666 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
805 $ RWORK(IU2CS+I-1), R )
808 $ RWORK(IU2CS+I-1), R )
816 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
842 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
H A Dsbbcsd.f431 IU2CS = IU1SN + Q
432 IU2SN = IU2CS + Q
630 $ WORK(IU2CS+IMIN-1), R )
638 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
657 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
666 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
805 $ WORK(IU2CS+I-1), R )
808 $ WORK(IU2CS+I-1), R )
816 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
828 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Ddbbcsd.f431 IU2CS = IU1SN + Q
432 IU2SN = IU2CS + Q
630 $ WORK(IU2CS+IMIN-1), R )
638 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
657 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
666 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
805 $ WORK(IU2CS+I-1), R )
808 $ WORK(IU2CS+I-1), R )
816 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
828 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dzbbcsd.f430 IU2CS = IU1SN + Q
431 IU2SN = IU2CS + Q
629 $ RWORK(IU2CS+IMIN-1), R )
637 RWORK(IU2CS+IMIN-1) = -RWORK(IU2CS+IMIN-1)
656 TEMP = RWORK(IU2CS+IMIN-1)*B21E(IMIN) +
665 TEMP = RWORK(IU2CS+IMIN-1)*B22D(IMIN) +
804 $ RWORK(IU2CS+I-1), R )
807 $ RWORK(IU2CS+I-1), R )
815 RWORK(IU2CS+I-1) = -RWORK(IU2CS+I-1)
841 B22E(I) = RWORK(IU2CS+I-1)*B22E(I) -
[all …]
/dports/math/cblas/lapack-3.10.0/SRC/
H A Ddbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]
H A Dsbbcsd.f429 IU2CS = IU1SN + Q
430 IU2SN = IU2CS + Q
628 $ WORK(IU2CS+IMIN-1), R )
636 WORK(IU2CS+IMIN-1) = -WORK(IU2CS+IMIN-1)
655 TEMP = WORK(IU2CS+IMIN-1)*B21E(IMIN) +
664 TEMP = WORK(IU2CS+IMIN-1)*B22D(IMIN) +
803 $ WORK(IU2CS+I-1), R )
806 $ WORK(IU2CS+I-1), R )
814 WORK(IU2CS+I-1) = -WORK(IU2CS+I-1)
826 B21D(I+1) = WORK(IU2CS+I-1)*B21D(I+1) -
[all …]

12