74 dim_t m_U, rs_U, cs_U;
75 dim_t m_V, rs_V, cs_V;
76 dim_t n_C, rs_C, cs_C;
86 if ( apply_U == FALSE && apply_V == FALSE )
94 FLA_SORT_BSVD_EXT_DEFINE_OBJ_VARIABLES( U, apply_U, datatype, m_U,
FLA_Obj_length, rs_U, cs_U );
95 FLA_SORT_BSVD_EXT_DEFINE_OBJ_VARIABLES( V, apply_V, datatype, m_V,
FLA_Obj_length, rs_V, cs_V );
96 FLA_SORT_BSVD_EXT_DEFINE_OBJ_VARIABLES( C, apply_C, datatype, n_C,
FLA_Obj_width, rs_C, cs_C );
102 float* s_p = (
float* ) FLA_FLOAT_PTR( s );
103 float* U_p = ( apply_U == TRUE ? (
float* ) FLA_FLOAT_PTR( U ) : NULL );
104 float* V_p = ( apply_V == TRUE ? (
float* ) FLA_FLOAT_PTR( V ) : NULL );
105 float* C_p = ( apply_C == TRUE ? (
float* ) FLA_FLOAT_PTR( C ) : NULL );
107 if ( direct == FLA_FORWARD )
109 m_U, U_p, rs_U, cs_U,
110 m_V, V_p, rs_V, cs_V,
111 n_C, C_p, rs_C, cs_C );
114 m_U, U_p, rs_U, cs_U,
115 m_V, V_p, rs_V, cs_V,
116 n_C, C_p, rs_C, cs_C );
121 double* s_p = (
double* ) FLA_DOUBLE_PTR( s );
122 double* U_p = ( apply_U == TRUE ? (
double* ) FLA_DOUBLE_PTR( U ) : NULL );
123 double* V_p = ( apply_V == TRUE ? (
double* ) FLA_DOUBLE_PTR( V ) : NULL );
124 double* C_p = ( apply_C == TRUE ? (
double* ) FLA_DOUBLE_PTR( C ) : NULL );
126 if ( direct == FLA_FORWARD )
128 m_U, U_p, rs_U, cs_U,
129 m_V, V_p, rs_V, cs_V,
130 n_C, C_p, rs_C, cs_C );
133 m_U, U_p, rs_U, cs_U,
134 m_V, V_p, rs_V, cs_V,
135 n_C, C_p, rs_C, cs_C );
140 float* s_p = (
float* ) FLA_FLOAT_PTR( s );
141 scomplex* U_p = ( apply_U == TRUE ? (
scomplex* ) FLA_COMPLEX_PTR( U ) : NULL );
142 scomplex* V_p = ( apply_V == TRUE ? (
scomplex* ) FLA_COMPLEX_PTR( V ) : NULL );
143 scomplex* C_p = ( apply_C == TRUE ? (
scomplex* ) FLA_COMPLEX_PTR( C ) : NULL );
145 if ( direct == FLA_FORWARD )
147 m_U, U_p, rs_U, cs_U,
148 m_V, V_p, rs_V, cs_V,
149 n_C, C_p, rs_C, cs_C );
152 m_U, U_p, rs_U, cs_U,
153 m_V, V_p, rs_V, cs_V,
154 n_C, C_p, rs_C, cs_C );
157 case FLA_DOUBLE_COMPLEX:
159 double* s_p = (
double* ) FLA_DOUBLE_PTR( s );
160 dcomplex* U_p = ( apply_U == TRUE ? (
dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( U ) : NULL );
161 dcomplex* V_p = ( apply_V == TRUE ? (
dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( V ) : NULL );
162 dcomplex* C_p = ( apply_C == TRUE ? (
dcomplex* ) FLA_DOUBLE_COMPLEX_PTR( C ) : NULL );
164 if ( direct == FLA_FORWARD )
166 m_U, U_p, rs_U, cs_U,
167 m_V, V_p, rs_V, cs_V,
168 n_C, C_p, rs_C, cs_C );
171 m_U, U_p, rs_U, cs_U,
172 m_V, V_p, rs_V, cs_V,
173 n_C, C_p, rs_C, cs_C );
FLA_Error FLA_Sort_bsvd_ext_f_opd(int m_s, double *s, int inc_s, int m_U, double *U, int rs_U, int cs_U, int m_V, double *V, int rs_V, int cs_V, int n_C, double *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:203
FLA_Error FLA_Sort_bsvd_ext_f_ops(int m_s, float *s, int inc_s, int m_U, float *U, int rs_U, int cs_U, int m_V, float *V, int rs_V, int cs_V, int n_C, float *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:181
FLA_Error FLA_Sort_bsvd_ext_b_opd(int m_s, double *s, int inc_s, int m_U, double *U, int rs_U, int cs_U, int m_V, double *V, int rs_V, int cs_V, int n_C, double *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:213
FLA_Error FLA_Sort_bsvd_ext_f_opc(int m_s, float *s, int inc_s, int m_U, scomplex *U, int rs_U, int cs_U, int m_V, scomplex *V, int rs_V, int cs_V, int n_C, scomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:225
FLA_Error FLA_Sort_bsvd_ext_b_ops(int m_s, float *s, int inc_s, int m_U, float *U, int rs_U, int cs_U, int m_V, float *V, int rs_V, int cs_V, int n_C, float *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:191
FLA_Error FLA_Sort_bsvd_ext_b_opz(int m_s, double *s, int inc_s, int m_U, dcomplex *U, int rs_U, int cs_U, int m_V, dcomplex *V, int rs_V, int cs_V, int n_C, dcomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:257
FLA_Error FLA_Sort_bsvd_ext_f_opz(int m_s, double *s, int inc_s, int m_U, dcomplex *U, int rs_U, int cs_U, int m_V, dcomplex *V, int rs_V, int cs_V, int n_C, dcomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:247
FLA_Error FLA_Sort_bsvd_ext_b_opc(int m_s, float *s, int inc_s, int m_U, scomplex *U, int rs_U, int cs_U, int m_V, scomplex *V, int rs_V, int cs_V, int n_C, scomplex *C, int rs_C, int cs_C)
Definition: FLA_Sort_bsvd_ext.c:235
dim_t FLA_Obj_width(FLA_Obj obj)
Definition: FLA_Query.c:123
dim_t FLA_Obj_length(FLA_Obj obj)
Definition: FLA_Query.c:116
dim_t FLA_Obj_vector_inc(FLA_Obj obj)
Definition: FLA_Query.c:145
dim_t FLA_Obj_vector_dim(FLA_Obj obj)
Definition: FLA_Query.c:137
int FLA_Datatype
Definition: FLA_type_defs.h:49
unsigned long dim_t
Definition: FLA_type_defs.h:71
FLA_Error FLA_Sort(FLA_Direct direct, FLA_Obj x)
Definition: FLA_Sort.c:18
Definition: blis_type_defs.h:138
Definition: blis_type_defs.h:133