Sébastien Villemot
776a0223b0
This patch replaces all instances of “int” by “CBLAS_INT” in CBLAS/testing/*.c (except for RowMajorStrg which has must remain an “int”, since it is declared as such in CBLAS main code). Interestingly, the bug would not manifest on low endian architectures, because interpreting an int64_t pointer as an int32_t pointer works there (as long as the integers fits in 31 bits, which is the case here). But on big endian architectures, this of course fails badly.
75 lines
1.8 KiB
C
75 lines
1.8 KiB
C
/*
|
|
* c_cblas1.c
|
|
*
|
|
* The program is a C wrapper for ccblat1.
|
|
*
|
|
* Written by Keita Teranishi. 2/11/1998
|
|
*
|
|
*/
|
|
#include "cblas_test.h"
|
|
#include "cblas.h"
|
|
void F77_caxpy(const CBLAS_INT *N, const void *alpha, void *X,
|
|
const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY)
|
|
{
|
|
cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
|
|
return;
|
|
}
|
|
|
|
void F77_ccopy(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
|
|
void *Y, const CBLAS_INT *incY)
|
|
{
|
|
cblas_ccopy(*N, X, *incX, Y, *incY);
|
|
return;
|
|
}
|
|
|
|
void F77_cdotc(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
|
|
void *Y, const CBLAS_INT *incY, void *dotc)
|
|
{
|
|
cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
|
|
return;
|
|
}
|
|
|
|
void F77_cdotu(const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
|
|
void *Y, const CBLAS_INT *incY,void *dotu)
|
|
{
|
|
cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
|
|
return;
|
|
}
|
|
|
|
void F77_cscal(const CBLAS_INT *N, const void * *alpha, void *X,
|
|
const CBLAS_INT *incX)
|
|
{
|
|
cblas_cscal(*N, alpha, X, *incX);
|
|
return;
|
|
}
|
|
|
|
void F77_csscal(const CBLAS_INT *N, const float *alpha, void *X,
|
|
const CBLAS_INT *incX)
|
|
{
|
|
cblas_csscal(*N, *alpha, X, *incX);
|
|
return;
|
|
}
|
|
|
|
void F77_cswap( const CBLAS_INT *N, void *X, const CBLAS_INT *incX,
|
|
void *Y, const CBLAS_INT *incY)
|
|
{
|
|
cblas_cswap(*N,X,*incX,Y,*incY);
|
|
return;
|
|
}
|
|
|
|
CBLAS_INT F77_icamax(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
|
|
{
|
|
if (*N < 1 || *incX < 1) return(0);
|
|
return (cblas_icamax(*N, X, *incX)+1);
|
|
}
|
|
|
|
float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX)
|
|
{
|
|
return cblas_scnrm2(*N, X, *incX);
|
|
}
|
|
|
|
float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX)
|
|
{
|
|
return cblas_scasum(*N, X, *incX);
|
|
}
|