/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | zget35.f | 115 COMPLEX*16 RMUL 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ DBLE( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | cget35.f | 115 COMPLEX RMUL 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ REAL( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | zget35.f | 112 COMPLEX*16 RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ DBLE( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | cget35.f | 112 COMPLEX RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ REAL( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | dget35.f | 100 DOUBLE PRECISION BIGNUM, CNRM, EPS, RES, RES1, RMUL, SCALE, 219 RMUL = ONE 223 RMUL = ONE / MAX( XNRM, TNRM ) 226 CALL DGEMM( TRANA, 'N', M, N, M, RMUL, 227 $ A, 6, C, 6, -SCALE*RMUL, 230 $ DBLE( ISGN )*RMUL, C, 6, B, 234 $ ( ( RMUL*TNRM )*EPS )*XNRM )
|
H A D | sget35.f | 100 REAL BIGNUM, CNRM, EPS, RES, RES1, RMUL, SCALE, 219 RMUL = ONE 223 RMUL = ONE / MAX( XNRM, TNRM ) 226 CALL SGEMM( TRANA, 'N', M, N, M, RMUL, 227 $ A, 6, C, 6, -SCALE*RMUL, 230 $ REAL( ISGN )*RMUL, C, 6, B, 234 $ ( ( RMUL*TNRM )*EPS )*XNRM )
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | cget35.f | 112 COMPLEX RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ REAL( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | zget35.f | 112 COMPLEX*16 RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ DBLE( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | dget35.f | 100 DOUBLE PRECISION BIGNUM, CNRM, EPS, RES, RES1, RMUL, SCALE, 219 RMUL = ONE 223 RMUL = ONE / MAX( XNRM, TNRM ) 226 CALL DGEMM( TRANA, 'N', M, N, M, RMUL, 227 $ A, 6, C, 6, -SCALE*RMUL, 230 $ DBLE( ISGN )*RMUL, C, 6, B, 234 $ ( ( RMUL*TNRM )*EPS )*XNRM )
|
H A D | sget35.f | 100 REAL BIGNUM, CNRM, EPS, RES, RES1, RMUL, SCALE, 219 RMUL = ONE 223 RMUL = ONE / MAX( XNRM, TNRM ) 226 CALL SGEMM( TRANA, 'N', M, N, M, RMUL, 227 $ A, 6, C, 6, -SCALE*RMUL, 230 $ REAL( ISGN )*RMUL, C, 6, B, 234 $ ( ( RMUL*TNRM )*EPS )*XNRM )
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | cget35.f | 112 COMPLEX RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ REAL( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | zget35.f | 112 COMPLEX*16 RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ DBLE( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | zget35.f | 112 COMPLEX*16 RMUL local 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ DBLE( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | cget35.f | 112 COMPLEX RMUL local 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ REAL( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | dget35.f | 100 DOUBLE PRECISION BIGNUM, CNRM, EPS, RES, RES1, RMUL, SCALE, 219 RMUL = ONE 223 RMUL = ONE / MAX( XNRM, TNRM ) 226 CALL DGEMM( TRANA, 'N', M, N, M, RMUL, 227 $ A, 6, C, 6, -SCALE*RMUL, 230 $ DBLE( ISGN )*RMUL, C, 6, B, 234 $ ( ( RMUL*TNRM )*EPS )*XNRM )
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/EIG/ |
H A D | cget35.f | 115 COMPLEX RMUL local 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ REAL( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | zget35.f | 115 COMPLEX*16 RMUL local 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ DBLE( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/EIG/ |
H A D | zget35.f | 115 COMPLEX*16 RMUL local 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ DBLE( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | cget35.f | 115 COMPLEX RMUL local 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ REAL( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | cget35.f | 115 COMPLEX RMUL local 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ REAL( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | zget35.f | 115 COMPLEX*16 RMUL 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ DBLE( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | cget35.f | 115 COMPLEX RMUL 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ REAL( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | zget35.f | 115 COMPLEX*16 RMUL 216 RMUL = CONE 219 RMUL = MAX( XNRM, TNRM ) 220 RMUL = CONE / RMUL 223 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 224 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 227 $ DBLE( ISGN )*RMUL, C, LDT, B, 231 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | cget35.f | 112 COMPLEX RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL CGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ REAL( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|
H A D | zget35.f | 112 COMPLEX*16 RMUL 213 RMUL = CONE 216 RMUL = MAX( XNRM, TNRM ) 217 RMUL = CONE / RMUL 220 CALL ZGEMM( TRANA, 'N', M, N, M, RMUL, A, 221 $ LDT, C, LDT, -SCALE*RMUL, CSAV, 224 $ DBLE( ISGN )*RMUL, C, LDT, B, 228 $ ( ( ABS( RMUL )*TNRM )*EPS )*XNRM )
|