FLA_Apply_G_rf_blk_var3b.c File Reference

(r)

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)

---

Function Documentation

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;
}