/external/cblas/testing/ |
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_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_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_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,
|
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,
|
/external/eigen/blas/testing/ |
D | cblat3.f | 1274 REAL ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS local 1352 RALPHA = REAL( ALPHA ) 1353 ALPHA = CMPLX( RALPHA, RZERO ) 1364 $ NULL = NULL.OR.( ( K.LE.0.OR.RALPHA.EQ. 1381 RALS = RALPHA 1404 $ TRANS, N, K, RALPHA, LDA, RBETA, LDC 1407 CALL CHERK( UPLO, TRANS, N, K, RALPHA, AA, 1434 ISAME( 5 ) = RALS.EQ.RALPHA 1541 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA, 1967 REAL RALPHA, RBETA local [all …]
|
D | zblat3.f | 1276 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS, RBETA, RBETS local 1354 RALPHA = DBLE( ALPHA ) 1355 ALPHA = DCMPLX( RALPHA, RZERO ) 1366 $ NULL = NULL.OR.( ( K.LE.0.OR.RALPHA.EQ. 1383 RALS = RALPHA 1406 $ TRANS, N, K, RALPHA, LDA, RBETA, LDC 1409 CALL ZHERK( UPLO, TRANS, N, K, RALPHA, AA, 1436 ISAME( 5 ) = RALS.EQ.RALPHA 1543 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA, 1970 DOUBLE PRECISION RALPHA, RBETA local [all …]
|
D | zblat2.f | 1769 DOUBLE PRECISION ERR, ERRMAX, RALPHA, RALS local 1840 RALPHA = DBLE( ALF( IA ) ) 1841 ALPHA = DCMPLX( RALPHA, RZERO ) 1842 NULL = N.LE.0.OR.RALPHA.EQ.RZERO 1856 RALS = RALPHA 1871 $ RALPHA, INCX, LDA 1874 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA ) 1878 $ RALPHA, INCX 1881 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA ) 1896 ISAME( 3 ) = RALS.EQ.RALPHA [all …]
|
D | cblat2.f | 1763 REAL ERR, ERRMAX, RALPHA, RALS local 1834 RALPHA = REAL( ALF( IA ) ) 1835 ALPHA = CMPLX( RALPHA, RZERO ) 1836 NULL = N.LE.0.OR.RALPHA.EQ.RZERO 1850 RALS = RALPHA 1865 $ RALPHA, INCX, LDA 1868 CALL CHER( UPLO, N, RALPHA, XX, INCX, AA, LDA ) 1872 $ RALPHA, INCX 1875 CALL CHPR( UPLO, N, RALPHA, XX, INCX, AA ) 1890 ISAME( 3 ) = RALS.EQ.RALPHA [all …]
|