phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove complex ?asum and ?nrm2 routines from real tests since they are already tested in the complex tests

Browse Source
This commit is contained in:
Simon Maertens
2026-05-02 18:05:01 +02:00
parent cd40e85a40
commit 1092f35f41
2 changed files with 0 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CBLAS/testing/c_dblas1.c
-10
View File
@@ -74,16 +74,6 @@ void F77_dswap( const CBLAS_INT *N, double *X, const CBLAS_INT *incX,
return;
}
double F77_dzasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
{
return cblas_dzasum(*N, X, *incX);
}
double F77_dznrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
{
return cblas_dznrm2(*N, X, *incX);
}
CBLAS_INT F77_idamax(const CBLAS_INT *N, const double *X, const CBLAS_INT *incX)
{
if (*N < 1 || *incX < 1) return(0);
CBLAS/testing/c_sblas1.c
-11
View File
@@ -27,17 +27,6 @@ void F77_saxpby(const CBLAS_INT *N, const float *alpha, const float *X,
return;
}
float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
{
return cblas_scasum(*N, X, *incX);
}
float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
{
return cblas_scnrm2(*N, X, *incX);
}
void F77_scopy(const CBLAS_INT *N, const float *X, const CBLAS_INT *incX,
float *Y, const CBLAS_INT *incY)
{