libflame  revision_anchor
Functions
bl1_nrm2.c File Reference

(r)

Functions

void bl1_snrm2 (int n, float *x, int incx, float *norm)
 
void bl1_dnrm2 (int n, double *x, int incx, double *norm)
 
void bl1_cnrm2 (int n, scomplex *x, int incx, float *norm)
 
void bl1_znrm2 (int n, dcomplex *x, int incx, double *norm)
 

Function Documentation

◆ bl1_cnrm2()

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

References cblas_scnrm2(), and F77_scnrm2().

Referenced by FLA_Househ2_UT_l_opc(), FLA_Househ2s_UT_l_opc(), FLA_Househ3UD_UT_opc(), and FLA_Nrm2_external().

◆ bl1_dnrm2()

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

References cblas_dnrm2(), and F77_dnrm2().

Referenced by FLA_Househ2_UT_l_opd(), FLA_Househ2s_UT_l_opd(), FLA_Househ3UD_UT_opd(), and FLA_Nrm2_external().

◆ bl1_snrm2()

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

References cblas_snrm2(), and F77_snrm2().

Referenced by FLA_Househ2_UT_l_ops(), FLA_Househ2s_UT_l_ops(), FLA_Househ3UD_UT_ops(), and FLA_Nrm2_external().

◆ bl1_znrm2()

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

References cblas_dznrm2(), and F77_dznrm2().

Referenced by FLA_Househ2_UT_l_opz(), FLA_Househ2s_UT_l_opz(), FLA_Househ3UD_UT_opz(), and FLA_Nrm2_external().