Home
last modified time | relevance | path

Searched refs:IU2SN (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.f432 IU2SN = IU2CS + Q
433 IV1TCS = IU2SN + Q
639 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
658 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
667 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
811 $ RWORK(IU2SN+I-1) )
814 $ RWORK(IU2SN+I-1) )
817 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
829 $ RWORK(IU2SN+I-1)*B21E(I)
843 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Dzbbcsd.f431 IU2SN = IU2CS + Q
432 IV1TCS = IU2SN + Q
638 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
657 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
666 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
810 $ RWORK(IU2SN+I-1) )
813 $ RWORK(IU2SN+I-1) )
816 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
828 $ RWORK(IU2SN+I-1)*B21E(I)
842 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Dsbbcsd.f432 IU2SN = IU2CS + Q
433 IV1TCS = IU2SN + Q
639 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
658 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
667 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
669 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
811 $ WORK(IU2SN+I-1) )
814 $ WORK(IU2SN+I-1) )
817 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
829 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
/dports/math/xlapack/lapack-3.10.0/SRC/
H A Ddbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dsbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dcbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
656 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
809 $ RWORK(IU2SN+I-1) )
812 $ RWORK(IU2SN+I-1) )
815 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
827 $ RWORK(IU2SN+I-1)*B21E(I)
841 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Dzbbcsd.f429 IU2SN = IU2CS + Q
430 IV1TCS = IU2SN + Q
636 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
655 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
664 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
808 $ RWORK(IU2SN+I-1) )
811 $ RWORK(IU2SN+I-1) )
814 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
826 $ RWORK(IU2SN+I-1)*B21E(I)
840 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
/dports/math/blas/lapack-3.10.0/SRC/
H A Dzbbcsd.f429 IU2SN = IU2CS + Q
430 IV1TCS = IU2SN + Q
636 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
655 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
664 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
808 $ RWORK(IU2SN+I-1) )
811 $ RWORK(IU2SN+I-1) )
814 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
826 $ RWORK(IU2SN+I-1)*B21E(I)
840 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Dsbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Ddbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dcbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
656 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
809 $ RWORK(IU2SN+I-1) )
812 $ RWORK(IU2SN+I-1) )
815 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
827 $ RWORK(IU2SN+I-1)*B21E(I)
841 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
/dports/math/lapacke/lapack-3.10.0/SRC/
H A Dzbbcsd.f429 IU2SN = IU2CS + Q
430 IV1TCS = IU2SN + Q
636 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
655 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
664 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
808 $ RWORK(IU2SN+I-1) )
811 $ RWORK(IU2SN+I-1) )
814 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
826 $ RWORK(IU2SN+I-1)*B21E(I)
840 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Ddbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dcbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
656 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
809 $ RWORK(IU2SN+I-1) )
812 $ RWORK(IU2SN+I-1) )
815 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
827 $ RWORK(IU2SN+I-1)*B21E(I)
841 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Dsbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
/dports/math/lapack/lapack-3.10.0/SRC/
H A Dcbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
656 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
809 $ RWORK(IU2SN+I-1) )
812 $ RWORK(IU2SN+I-1) )
815 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
827 $ RWORK(IU2SN+I-1)*B21E(I)
841 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Ddbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dsbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dzbbcsd.f429 IU2SN = IU2CS + Q
430 IV1TCS = IU2SN + Q
636 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
655 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
664 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
808 $ RWORK(IU2SN+I-1) )
811 $ RWORK(IU2SN+I-1) )
814 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
826 $ RWORK(IU2SN+I-1)*B21E(I)
840 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/
H A Dcbbcsd.f432 IU2SN = IU2CS + Q
433 IV1TCS = IU2SN + Q
639 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
658 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
667 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
811 $ RWORK(IU2SN+I-1) )
814 $ RWORK(IU2SN+I-1) )
817 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
829 $ RWORK(IU2SN+I-1)*B21E(I)
843 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
H A Dsbbcsd.f432 IU2SN = IU2CS + Q
433 IV1TCS = IU2SN + Q
639 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
658 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
667 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
669 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
811 $ WORK(IU2SN+I-1) )
814 $ WORK(IU2SN+I-1) )
817 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
829 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Ddbbcsd.f432 IU2SN = IU2CS + Q
433 IV1TCS = IU2SN + Q
639 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
658 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
667 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
669 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
811 $ WORK(IU2SN+I-1) )
814 $ WORK(IU2SN+I-1) )
817 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
829 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dzbbcsd.f431 IU2SN = IU2CS + Q
432 IV1TCS = IU2SN + Q
638 RWORK(IU2SN+IMIN-1) = -RWORK(IU2SN+IMIN-1)
657 $ RWORK(IU2SN+IMIN-1)*B21D(IMIN+1)
666 $ RWORK(IU2SN+IMIN-1)*B22E(IMIN)
810 $ RWORK(IU2SN+I-1) )
813 $ RWORK(IU2SN+I-1) )
816 RWORK(IU2SN+I-1) = -RWORK(IU2SN+I-1)
828 $ RWORK(IU2SN+I-1)*B21E(I)
842 $ RWORK(IU2SN+I-1)*B22D(I)
[all …]
/dports/math/cblas/lapack-3.10.0/SRC/
H A Ddbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]
H A Dsbbcsd.f430 IU2SN = IU2CS + Q
431 IV1TCS = IU2SN + Q
637 WORK(IU2SN+IMIN-1) = -WORK(IU2SN+IMIN-1)
656 $ WORK(IU2SN+IMIN-1)*B21D(IMIN+1)
665 $ WORK(IU2SN+IMIN-1)*B22E(IMIN)
667 $ WORK(IU2SN+IMIN-1)*B22D(IMIN)
809 $ WORK(IU2SN+I-1) )
812 $ WORK(IU2SN+I-1) )
815 WORK(IU2SN+I-1) = -WORK(IU2SN+I-1)
827 $ WORK(IU2SN+I-1)*B21E(I)
[all …]

12