Home
last modified time | relevance | path

Searched refs:RMUL (Results 1 – 25 of 74) sorted by relevance

123

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/
H A Dzget35.f115 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 Dcget35.f115 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 Dzget35.f112 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 Dcget35.f112 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 Ddget35.f100 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 Dsget35.f100 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 Dcget35.f112 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 Dzget35.f112 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 Ddget35.f100 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 Dsget35.f100 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 Dcget35.f112 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 Dzget35.f112 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 Dzget35.f112 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 Dcget35.f112 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 Ddget35.f100 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 Dcget35.f115 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 Dzget35.f115 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 Dzget35.f115 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 Dcget35.f115 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 Dcget35.f115 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 Dzget35.f115 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 Dcget35.f115 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 Dzget35.f115 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 Dcget35.f112 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 Dzget35.f112 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 )

123