Remove spurious tests for complex ASUM and NRM2
This commit is contained in:
parent
ec2948f147
commit
de139337b8
|
@ -21,16 +21,6 @@ void F77_saxpy(blasint *N, const float *alpha, OPENBLAS_CONST float *X,
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
float F77_scasum(blasint *N, float *X, blasint *incX)
|
|
||||||
{
|
|
||||||
return cblas_scasum(*N, X, *incX);
|
|
||||||
}
|
|
||||||
|
|
||||||
float F77_scnrm2(blasint *N, OPENBLAS_CONST float *X, blasint *incX)
|
|
||||||
{
|
|
||||||
return cblas_scnrm2(*N, X, *incX);
|
|
||||||
}
|
|
||||||
|
|
||||||
void F77_scopy(blasint *N, OPENBLAS_CONST float *X, blasint *incX,
|
void F77_scopy(blasint *N, OPENBLAS_CONST float *X, blasint *incX,
|
||||||
float *Y, blasint *incY)
|
float *Y, blasint *incY)
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue