libflame
revision_anchor
|
Functions | |
FLA_Error | FLA_Apply_G_rf_blk_var3b (FLA_Obj G, FLA_Obj A, dim_t b_alg) |
FLA_Error | FLA_Apply_G_rf_bls_var3b (int k_G, int m_A, int n_A, int i_k, scomplex *buff_G, int rs_G, int cs_G, float *buff_A, int rs_A, int cs_A, int b_alg) |
FLA_Error | FLA_Apply_G_rf_bld_var3b (int k_G, int m_A, int n_A, int i_k, dcomplex *buff_G, int rs_G, int cs_G, double *buff_A, int rs_A, int cs_A, int b_alg) |
FLA_Error | FLA_Apply_G_rf_blc_var3b (int k_G, int m_A, int n_A, int i_k, scomplex *buff_G, int rs_G, int cs_G, scomplex *buff_A, int rs_A, int cs_A, int b_alg) |
FLA_Error | FLA_Apply_G_rf_blz_var3b (int k_G, int m_A, int n_A, int i_k, dcomplex *buff_G, int rs_G, int cs_G, dcomplex *buff_A, int rs_A, int cs_A, int b_alg) |
FLA_Error FLA_Apply_G_rf_blc_var3b | ( | int | k_G, |
int | m_A, | ||
int | n_A, | ||
int | i_k, | ||
scomplex * | buff_G, | ||
int | rs_G, | ||
int | cs_G, | ||
scomplex * | buff_A, | ||
int | rs_A, | ||
int | cs_A, | ||
int | b_alg | ||
) |
Referenced by FLA_Apply_G_rf_blk_var3b().
{
FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
return FLA_SUCCESS;
}
FLA_Error FLA_Apply_G_rf_bld_var3b | ( | int | k_G, |
int | m_A, | ||
int | n_A, | ||
int | i_k, | ||
dcomplex * | buff_G, | ||
int | rs_G, | ||
int | cs_G, | ||
double * | buff_A, | ||
int | rs_A, | ||
int | cs_A, | ||
int | b_alg | ||
) |
References FLA_Apply_G_rf_asd_var3b().
Referenced by FLA_Apply_G_rf_blk_var3b(), FLA_Bsvd_v_opd_var2(), FLA_Bsvd_v_opz_var2(), FLA_Tevd_v_opd_var2(), FLA_Tevd_v_opd_var4(), FLA_Tevd_v_opz_var2(), and FLA_Tevd_v_opz_var4().
{ int i; int b = 0; for ( i = 0; i < m_A; i += b ) { double* A1 = buff_A + (0 )*cs_A + (i )*rs_A; int m_behind = i; int m_ahead = max( 0, m_A - i ); b = min( b_alg, m_ahead ); //FLA_Apply_G_rf_opd_var3b( k_G, FLA_Apply_G_rf_asd_var3b( k_G, b, n_A, i_k, m_behind, buff_G, rs_G, cs_G, A1, rs_A, cs_A ); } return FLA_SUCCESS; }
FLA_Error FLA_Apply_G_rf_blk_var3b | ( | FLA_Obj | G, |
FLA_Obj | A, | ||
dim_t | b_alg | ||
) |
References FLA_Apply_G_rf_blc_var3b(), FLA_Apply_G_rf_bld_var3b(), FLA_Apply_G_rf_bls_var3b(), FLA_Apply_G_rf_blz_var3b(), FLA_Obj_col_stride(), FLA_Obj_datatype(), FLA_Obj_length(), FLA_Obj_row_stride(), and FLA_Obj_width().
{ FLA_Datatype datatype; int k_G, m_A, n_A; int rs_G, cs_G; int rs_A, cs_A; datatype = FLA_Obj_datatype( A ); k_G = FLA_Obj_width( G ); m_A = FLA_Obj_length( A ); n_A = FLA_Obj_width( A ); rs_G = FLA_Obj_row_stride( G ); cs_G = FLA_Obj_col_stride( G ); rs_A = FLA_Obj_row_stride( A ); cs_A = FLA_Obj_col_stride( A ); switch ( datatype ) { case FLA_FLOAT: { scomplex* buff_G = ( scomplex* ) FLA_COMPLEX_PTR( G ); float* buff_A = ( float* ) FLA_FLOAT_PTR( A ); FLA_Apply_G_rf_bls_var3b( k_G, m_A, n_A, 0, buff_G, rs_G, cs_G, buff_A, rs_A, cs_A, b_alg ); break; } case FLA_DOUBLE: { dcomplex* buff_G = ( dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( G ); double* buff_A = ( double* ) FLA_DOUBLE_PTR( A ); FLA_Apply_G_rf_bld_var3b( k_G, m_A, n_A, 0, buff_G, rs_G, cs_G, buff_A, rs_A, cs_A, b_alg ); break; } case FLA_COMPLEX: { scomplex* buff_G = ( scomplex* ) FLA_COMPLEX_PTR( G ); scomplex* buff_A = ( scomplex* ) FLA_COMPLEX_PTR( A ); FLA_Apply_G_rf_blc_var3b( k_G, m_A, n_A, 0, buff_G, rs_G, cs_G, buff_A, rs_A, cs_A, b_alg ); break; } case FLA_DOUBLE_COMPLEX: { dcomplex* buff_G = ( dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( G ); dcomplex* buff_A = ( dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( A ); FLA_Apply_G_rf_blz_var3b( k_G, m_A, n_A, 0, buff_G, rs_G, cs_G, buff_A, rs_A, cs_A, b_alg ); break; } } return FLA_SUCCESS; }
FLA_Error FLA_Apply_G_rf_bls_var3b | ( | int | k_G, |
int | m_A, | ||
int | n_A, | ||
int | i_k, | ||
scomplex * | buff_G, | ||
int | rs_G, | ||
int | cs_G, | ||
float * | buff_A, | ||
int | rs_A, | ||
int | cs_A, | ||
int | b_alg | ||
) |
References FLA_Apply_G_rf_ass_var3b().
Referenced by FLA_Apply_G_rf_blk_var3b().
{ int i; int b = 0; for ( i = 0; i < m_A; i += b ) { float* A1 = buff_A + (0 )*cs_A + (i )*rs_A; int m_behind = i; int m_ahead = max( 0, m_A - i ); b = min( b_alg, m_ahead ); //FLA_Apply_G_rf_ops_var3b( k_G, FLA_Apply_G_rf_ass_var3b( k_G, b, n_A, i_k, m_behind, buff_G, rs_G, cs_G, A1, rs_A, cs_A ); } return FLA_SUCCESS; }
FLA_Error FLA_Apply_G_rf_blz_var3b | ( | int | k_G, |
int | m_A, | ||
int | n_A, | ||
int | i_k, | ||
dcomplex * | buff_G, | ||
int | rs_G, | ||
int | cs_G, | ||
dcomplex * | buff_A, | ||
int | rs_A, | ||
int | cs_A, | ||
int | b_alg | ||
) |
Referenced by FLA_Apply_G_rf_blk_var3b().
{
FLA_Check_error_code( FLA_NOT_YET_IMPLEMENTED );
return FLA_SUCCESS;
}