libflame revision_anchor
|
Functions | |
void | bli_sident (int m, float *a, int a_rs, int a_cs) |
void | bli_dident (int m, double *a, int a_rs, int a_cs) |
void | bli_cident (int m, scomplex *a, int a_rs, int a_cs) |
void | bli_zident (int m, dcomplex *a, int a_rs, int a_cs) |
void bli_cident | ( | int | m, |
scomplex * | a, | ||
int | a_rs, | ||
int | a_cs | ||
) |
References scomplex::imag, and scomplex::real.
Referenced by FLA_UDdate_UT_opc_var1().
void bli_dident | ( | int | m, |
double * | a, | ||
int | a_rs, | ||
int | a_cs | ||
) |
Referenced by FLA_UDdate_UT_opd_var1().
{ double* alpha; int i, j; for ( j = 0; j < m; ++j ) { for ( i = 0; i < m; ++i ) { alpha = a + i*a_rs + j*a_cs; *alpha = 0.0; if ( i == j ) *alpha = 1.0; } } }
void bli_sident | ( | int | m, |
float * | a, | ||
int | a_rs, | ||
int | a_cs | ||
) |
Referenced by FLA_UDdate_UT_ops_var1().
{ float* alpha; int i, j; for ( j = 0; j < m; ++j ) { for ( i = 0; i < m; ++i ) { alpha = a + i*a_rs + j*a_cs; *alpha = 0.0F; if ( i == j ) *alpha = 1.0F; } } }
void bli_zident | ( | int | m, |
dcomplex * | a, | ||
int | a_rs, | ||
int | a_cs | ||
) |
References dcomplex::imag, and dcomplex::real.
Referenced by FLA_UDdate_UT_opz_var1().