Remove spurious complex16 tests
This commit is contained in:
parent
26792d2096
commit
74e358bcd5
|
@ -74,16 +74,6 @@ void F77_dswap( const int *N, double *X, const int *incX,
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
double F77_dzasum(const int *N, void *X, const int *incX)
|
|
||||||
{
|
|
||||||
return cblas_dzasum(*N, X, *incX);
|
|
||||||
}
|
|
||||||
|
|
||||||
double F77_dznrm2(const int *N, OPENBLAS_CONST void *X, const int *incX)
|
|
||||||
{
|
|
||||||
return cblas_dznrm2(*N, X, *incX);
|
|
||||||
}
|
|
||||||
|
|
||||||
int F77_idamax(const int *N, OPENBLAS_CONST double *X, const int *incX)
|
int F77_idamax(const int *N, OPENBLAS_CONST double *X, const int *incX)
|
||||||
{
|
{
|
||||||
if (*N < 1 || *incX < 1) return(0);
|
if (*N < 1 || *incX < 1) return(0);
|
||||||
|
|
Loading…
Reference in New Issue