libflame  revision_anchor
Functions
bl1_amax.c File Reference

(r)

Functions

void bl1_samax (int n, float *x, int incx, int *index)
 
void bl1_damax (int n, double *x, int incx, int *index)
 
void bl1_camax (int n, scomplex *x, int incx, int *index)
 
void bl1_zamax (int n, dcomplex *x, int incx, int *index)
 

Function Documentation

◆ bl1_camax()

void bl1_camax ( int  n,
scomplex x,
int  incx,
int *  index 
)
36 {
37 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
38  *index = cblas_icamax( n,
39  x, incx );
40 #else
41  *index = F77_icamax( &n,
42  x, &incx ) - 1;
43 #endif
44 }
int F77_icamax(int *n, scomplex *x, int *incx)
CBLAS_INDEX cblas_icamax(const int N, const void *X, const int incX)

References cblas_icamax(), and F77_icamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_opc_var3(), FLA_LU_piv_opc_var4(), FLA_LU_piv_opc_var5(), and FLA_SA_LU_unb().

◆ bl1_damax()

void bl1_damax ( int  n,
double *  x,
int  incx,
int *  index 
)
25 {
26 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
27  *index = cblas_idamax( n,
28  x, incx );
29 #else
30  *index = F77_idamax( &n,
31  x, &incx ) - 1;
32 #endif
33 }
int F77_idamax(int *n, double *x, int *incx)
CBLAS_INDEX cblas_idamax(const int N, const double *X, const int incX)

References cblas_idamax(), and F77_idamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_opd_var3(), FLA_LU_piv_opd_var4(), FLA_LU_piv_opd_var5(), and FLA_SA_LU_unb().

◆ bl1_samax()

void bl1_samax ( int  n,
float *  x,
int  incx,
int *  index 
)
14 {
15 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
16  *index = cblas_isamax( n,
17  x, incx );
18 #else
19  *index = F77_isamax( &n,
20  x, &incx ) - 1;
21 #endif
22 }
int F77_isamax(int *n, float *x, int *incx)
CBLAS_INDEX cblas_isamax(const int N, const float *X, const int incX)

References cblas_isamax(), and F77_isamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_ops_var3(), FLA_LU_piv_ops_var4(), FLA_LU_piv_ops_var5(), and FLA_SA_LU_unb().

◆ bl1_zamax()

void bl1_zamax ( int  n,
dcomplex x,
int  incx,
int *  index 
)
47 {
48 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
49  *index = cblas_izamax( n,
50  x, incx );
51 #else
52  *index = F77_izamax( &n,
53  x, &incx ) - 1;
54 #endif
55 }
int F77_izamax(int *n, dcomplex *x, int *incx)
CBLAS_INDEX cblas_izamax(const int N, const void *X, const int incX)

References cblas_izamax(), and F77_izamax().

Referenced by FLA_Amax_external(), FLA_LU_piv_opz_var3(), FLA_LU_piv_opz_var4(), FLA_LU_piv_opz_var5(), and FLA_SA_LU_unb().