libflame  revision_anchor
Functions
bl1_asum.c File Reference

(r)

Functions

void bl1_sasum (int n, float *x, int incx, float *norm)
 
void bl1_dasum (int n, double *x, int incx, double *norm)
 
void bl1_casum (int n, scomplex *x, int incx, float *norm)
 
void bl1_zasum (int n, dcomplex *x, int incx, double *norm)
 

Function Documentation

◆ bl1_casum()

void bl1_casum ( int  n,
scomplex x,
int  incx,
float *  norm 
)

References cblas_scasum(), and F77_scasum().

Referenced by FLA_Asum_external().

36 {
37 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
38  *norm = cblas_scasum( n,
39  x, incx );
40 #else
41  *norm = F77_scasum( &n,
42  x, &incx );
43 #endif
44 }
float F77_scasum(int *n, scomplex *x, int *incx)
float cblas_scasum(const int N, const void *X, const int incX)

◆ bl1_dasum()

void bl1_dasum ( int  n,
double *  x,
int  incx,
double *  norm 
)

References cblas_dasum(), and F77_dasum().

Referenced by FLA_Asum_external().

25 {
26 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
27  *norm = cblas_dasum( n,
28  x, incx );
29 #else
30  *norm = F77_dasum( &n,
31  x, &incx );
32 #endif
33 }
double F77_dasum(int *n, double *x, int *incx)
double cblas_dasum(const int N, const double *X, const int incX)

◆ bl1_sasum()

void bl1_sasum ( int  n,
float *  x,
int  incx,
float *  norm 
)

References cblas_sasum(), and F77_sasum().

Referenced by FLA_Asum_external().

14 {
15 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
16  *norm = cblas_sasum( n,
17  x, incx );
18 #else
19  *norm = F77_sasum( &n,
20  x, &incx );
21 #endif
22 }
float F77_sasum(int *n, float *x, int *incx)
float cblas_sasum(const int N, const float *X, const int incX)

◆ bl1_zasum()

void bl1_zasum ( int  n,
dcomplex x,
int  incx,
double *  norm 
)

References cblas_dzasum(), and F77_dzasum().

Referenced by FLA_Asum_external().

47 {
48 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
49  *norm = cblas_dzasum( n,
50  x, incx );
51 #else
52  *norm = F77_dzasum( &n,
53  x, &incx );
54 #endif
55 }
double cblas_dzasum(const int N, const void *X, const int incX)
double F77_dzasum(int *n, dcomplex *x, int *incx)