/external/cblas/testing/ |
D | c_z2chke.c | 34 RALPHA = 0.0; in F77_z2chke() local 772 cblas_zher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 ); in F77_z2chke() 775 cblas_zher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); in F77_z2chke() 778 cblas_zher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); in F77_z2chke() 781 cblas_zher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); in F77_z2chke() 784 cblas_zher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); in F77_z2chke() 787 cblas_zher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); in F77_z2chke() 790 cblas_zher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); in F77_z2chke() 793 cblas_zher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); in F77_z2chke() 796 cblas_zher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); in F77_z2chke() [all …]
|
D | c_c2chke.c | 34 RALPHA = 0.0; in F77_c2chke() local 772 cblas_cher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 ); in F77_c2chke() 775 cblas_cher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); in F77_c2chke() 778 cblas_cher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); in F77_c2chke() 781 cblas_cher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); in F77_c2chke() 784 cblas_cher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); in F77_c2chke() 787 cblas_cher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); in F77_c2chke() 790 cblas_cher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); in F77_c2chke() 793 cblas_cher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); in F77_c2chke() 796 cblas_cher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); in F77_c2chke() [all …]
|
D | c_z3chke.c | 34 RALPHA = 0.0, RBETA = 0.0; in F77_z3chke() local 1193 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1197 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1201 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1205 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1209 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1213 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1217 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1221 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() 1225 RALPHA, A, 1, RBETA, C, 1 ); in F77_z3chke() [all …]
|
D | c_c3chke.c | 34 RALPHA = 0.0, RBETA = 0.0; in F77_c3chke() local 1193 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1197 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1201 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1205 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1209 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1213 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1217 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1221 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() 1225 RALPHA, A, 1, RBETA, C, 1 ); in F77_c3chke() [all …]
|
D | c_cblat2.f | 1866 REAL ERR, ERRMAX, RALPHA, RALS local 1943 RALPHA = REAL( ALF( IA ) ) 1944 ALPHA = CMPLX( RALPHA, RZERO ) 1945 NULL = N.LE.0.OR.RALPHA.EQ.RZERO 1959 RALS = RALPHA 1974 $ RALPHA, INCX, LDA 1977 CALL CCHER( IORDER, UPLO, N, RALPHA, XX, 1982 $ RALPHA, INCX 1985 CALL CCHPR( IORDER, UPLO, N, RALPHA, 2001 ISAME( 3 ) = RALS.EQ.RALPHA [all …]
|
D | c_zblat2.f | 1871 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS local 1948 RALPHA = DBLE( ALF( IA ) ) 1949 ALPHA = DCMPLX( RALPHA, RZERO ) 1950 NULL = N.LE.0.OR.RALPHA.EQ.RZERO 1964 RALS = RALPHA 1979 $ RALPHA, INCX, LDA 1982 CALL CZHER( IORDER, UPLO, N, RALPHA, XX, 1987 $ RALPHA, INCX 1990 CALL CZHPR( IORDER, UPLO, N, RALPHA, 2006 ISAME( 3 ) = RALS.EQ.RALPHA [all …]
|
D | c_zblat3.f | 1476 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS local 1554 RALPHA = DBLE( ALPHA ) 1555 ALPHA = DCMPLX( RALPHA, RZERO ) 1566 $ NULL = NULL.OR.( ( K.LE.0.OR.RALPHA.EQ. 1583 RALS = RALPHA 1606 $ UPLO, TRANS, N, K, RALPHA, LDA, RBETA, 1611 $ RALPHA, AA, LDA, RBETA, CC, 1638 ISAME( 5 ) = RALS.EQ.RALPHA 1747 CALL ZPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
|
D | c_cblat3.f | 1475 REAL ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS local 1553 RALPHA = REAL( ALPHA ) 1554 ALPHA = CMPLX( RALPHA, RZERO ) 1565 $ NULL = NULL.OR.( ( K.LE.0.OR.RALPHA.EQ. 1582 RALS = RALPHA 1605 $ UPLO, TRANS, N, K, RALPHA, LDA, RBETA, 1610 $ RALPHA, AA, LDA, RBETA, CC, 1637 ISAME( 5 ) = RALS.EQ.RALPHA 1746 CALL CPRCN6( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, RALPHA,
|
/external/eigen/blas/testing/ |
D | cblat3.f | 1313 REAL ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS local 1391 RALPHA = REAL( ALPHA ) 1392 ALPHA = CMPLX( RALPHA, RZERO ) 1403 $ NULL = NULL.OR.( ( K.LE.0.OR.RALPHA.EQ. 1420 RALS = RALPHA 1443 $ TRANS, N, K, RALPHA, LDA, RBETA, LDC 1446 CALL CHERK( UPLO, TRANS, N, K, RALPHA, AA, 1473 ISAME( 5 ) = RALS.EQ.RALPHA 1580 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA, 2013 REAL RALPHA, RBETA local [all …]
|
D | zblat3.f | 1316 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS local 1394 RALPHA = DBLE( ALPHA ) 1395 ALPHA = DCMPLX( RALPHA, RZERO ) 1406 $ NULL = NULL.OR.( ( K.LE.0.OR.RALPHA.EQ. 1423 RALS = RALPHA 1446 $ TRANS, N, K, RALPHA, LDA, RBETA, LDC 1449 CALL ZHERK( UPLO, TRANS, N, K, RALPHA, AA, 1476 ISAME( 5 ) = RALS.EQ.RALPHA 1583 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA, 2018 DOUBLE PRECISION RALPHA, RBETA local [all …]
|
D | cblat2.f | 1802 REAL ERR, ERRMAX, RALPHA, RALS local 1873 RALPHA = REAL( ALF( IA ) ) 1874 ALPHA = CMPLX( RALPHA, RZERO ) 1875 NULL = N.LE.0.OR.RALPHA.EQ.RZERO 1889 RALS = RALPHA 1904 $ RALPHA, INCX, LDA 1907 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA ) 1911 $ RALPHA, INCX 1914 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA ) 1929 ISAME( 3 ) = RALS.EQ.RALPHA [all …]
|
D | zblat2.f | 1808 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS local 1879 RALPHA = DBLE( ALF( IA ) ) 1880 ALPHA = DCMPLX( RALPHA, RZERO ) 1881 NULL = N.LE.0.OR.RALPHA.EQ.RZERO 1895 RALS = RALPHA 1910 $ RALPHA, INCX, LDA 1913 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA ) 1917 $ RALPHA, INCX 1920 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA ) 1935 ISAME( 3 ) = RALS.EQ.RALPHA [all …]
|