/dports/math/cmlib/cmlib-3.0_8/src/eispack/ |
H A D | qzval.f | 235 SZI = (A1 * A2I - A1I * A2) / CZ 236 R = SQRT(CZ*CZ+SZR*SZR+SZI*SZI) 239 SZI = SZI / R 242 SZI = 0.0E0 245 A1I = SZI * B12 247 A2I = SZI * B22 250 A1I = SZI * A12 252 A2I = SZI * A22 267 500 SSR = SQR * SZR + SQI * SZI 268 SSI = SQR * SZI - SQI * SZR [all …]
|
/dports/math/slatec/src/ |
H A D | qzval.f | 251 SZI = (A1 * A2I - A1I * A2) / CZ 252 R = SQRT(CZ*CZ+SZR*SZR+SZI*SZI) 255 SZI = SZI / R 258 SZI = 0.0E0 261 A1I = SZI * B12 263 A2I = SZI * B22 266 A1I = SZI * A12 268 A2I = SZI * A22 283 500 SSR = SQR * SZR + SQI * SZI 284 SSI = SQR * SZI - SQI * SZR [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/toms/ |
H A D | rpoly.f | 24 * H, SZR, SZI, LZR, LZI, ETA, ARE, MRE, N, NN 27 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 219 ZEROI(J) = SZI 254 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 366 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 380 10 CALL QUAD(1.D0, U, V, SZR, SZI, LZR, LZI) 388 MP = DABS(A-SZR*B) + DABS(SZI*B) 451 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 484 SZI = 0.D0 542 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/toms/ |
H A D | rpoly.f | 24 * H, SZR, SZI, LZR, LZI, ETA, ARE, MRE, N, NN 27 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 219 ZEROI(J) = SZI 254 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 366 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 380 10 CALL QUAD(1.D0, U, V, SZR, SZI, LZR, LZI) 388 MP = DABS(A-SZR*B) + DABS(SZI*B) 451 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, 484 SZI = 0.D0 542 * A1, A2, A3, A6, A7, E, F, G, H, SZR, SZI, [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
H A D | dhgeqz.f | 228 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T, 851 SZI = -C11I / T 857 SZI = ZERO 864 SZI = C21*TEMPI / T 880 SQI = -SZI*B22 883 A1I = SZI*A12 885 A2I = SZI*A22 905 TEMPR = SQR*SZR - SQI*SZI 906 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | shgeqz.f | 342 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 976 SZI = -C11I / T1 982 SZI = ZERO 989 SZI = C21*TEMPI / T1 1005 SQI = -SZI*B22 1008 A1I = SZI*A12 1010 A2I = SZI*A22 1030 TEMPR = SQR*SZR - SQI*SZI 1031 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dhgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | dhgeqz.f | 239 $ SAFMAX, SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, 913 SZI = -C11I / T 919 SZI = ZERO 926 SZI = C21*TEMPI / T 942 SQI = -SZI*B22 945 A1I = SZI*A12 947 A2I = SZI*A22 967 TEMPR = SQR*SZR - SQI*SZI 968 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 239 $ SAFMAX, SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, 913 SZI = -C11I / T 919 SZI = ZERO 926 SZI = C21*TEMPI / T 942 SQI = -SZI*B22 945 A1I = SZI*A12 947 A2I = SZI*A22 967 TEMPR = SQR*SZR - SQI*SZI 968 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dhgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | shgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
H A D | dhgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dhgeqz.f | 228 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T, local 851 SZI = -C11I / T 857 SZI = ZERO 864 SZI = C21*TEMPI / T 880 SQI = -SZI*B22 883 A1I = SZI*A12 885 A2I = SZI*A22 905 TEMPR = SQR*SZR - SQI*SZI 906 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 228 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T, local 851 SZI = -C11I / T 857 SZI = ZERO 864 SZI = C21*TEMPI / T 880 SQI = -SZI*B22 883 A1I = SZI*A12 885 A2I = SZI*A22 905 TEMPR = SQR*SZR - SQI*SZI 906 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dhgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 339 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 982 SZI = -C11I / T1 988 SZI = ZERO 995 SZI = C21*TEMPI / T1 1011 SQI = -SZI*B22 1014 A1I = SZI*A12 1016 A2I = SZI*A22 1036 TEMPR = SQR*SZR - SQI*SZI 1037 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dhgeqz.f | 230 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, 853 SZI = -C11I / T1 859 SZI = ZERO 866 SZI = C21*TEMPI / T1 882 SQI = -SZI*B22 885 A1I = SZI*A12 887 A2I = SZI*A22 907 TEMPR = SQR*SZR - SQI*SZI 908 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dhgeqz.f | 342 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, local 976 SZI = -C11I / T1 982 SZI = ZERO 989 SZI = C21*TEMPI / T1 1005 SQI = -SZI*B22 1008 A1I = SZI*A12 1010 A2I = SZI*A22 1030 TEMPR = SQR*SZR - SQI*SZI 1031 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 342 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T1, local 976 SZI = -C11I / T1 982 SZI = ZERO 989 SZI = C21*TEMPI / T1 1005 SQI = -SZI*B22 1008 A1I = SZI*A12 1010 A2I = SZI*A22 1030 TEMPR = SQR*SZR - SQI*SZI 1031 TEMPI = SQR*SZI + SQI*SZR
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | dhgeqz.f | 239 $ SAFMAX, SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, 913 SZI = -C11I / T 919 SZI = ZERO 926 SZI = C21*TEMPI / T 942 SQI = -SZI*B22 945 A1I = SZI*A12 947 A2I = SZI*A22 967 TEMPR = SQR*SZR - SQI*SZI 968 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 239 $ SAFMAX, SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, 913 SZI = -C11I / T 919 SZI = ZERO 926 SZI = C21*TEMPI / T 942 SQI = -SZI*B22 945 A1I = SZI*A12 947 A2I = SZI*A22 967 TEMPR = SQR*SZR - SQI*SZI 968 TEMPI = SQR*SZI + SQI*SZR
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dhgeqz.f | 228 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T, 851 SZI = -C11I / T 857 SZI = ZERO 864 SZI = C21*TEMPI / T 880 SQI = -SZI*B22 883 A1I = SZI*A12 885 A2I = SZI*A22 905 TEMPR = SQR*SZR - SQI*SZI 906 TEMPI = SQR*SZI + SQI*SZR
|
H A D | shgeqz.f | 228 $ SAFMIN, SCALE, SL, SQI, SQR, SR, SZI, SZR, T, 851 SZI = -C11I / T 857 SZI = ZERO 864 SZI = C21*TEMPI / T 880 SQI = -SZI*B22 883 A1I = SZI*A12 885 A2I = SZI*A22 905 TEMPR = SQR*SZR - SQI*SZI 906 TEMPI = SQR*SZI + SQI*SZR
|