22 #define MAC_Givens2_ops( chi_1, chi_2, gamma, sigma, chi_1_new ) \ 24 float chi_1_orig = *(chi_1); \ 25 float chi_2_orig = *(chi_2); \ 29 norm_x = ( float ) sqrt( ( float ) ( chi_1_orig * chi_1_orig + \ 30 chi_2_orig * chi_2_orig ) ); \ 32 g = chi_1_orig / norm_x; \ 33 s = chi_2_orig / norm_x; \ 35 if ( fabs( chi_1_orig ) > fabs( chi_2_orig ) && g < 0.0F ) \ 44 *(chi_1_new) = norm_x; \ 48 #define MAC_Givens2_opd( chi_1, chi_2, gamma, sigma, chi_1_new ) \ 50 double chi_1_orig = *(chi_1); \ 51 double chi_2_orig = *(chi_2); \ 55 norm_x = ( double ) sqrt( chi_1_orig * chi_1_orig + \ 56 chi_2_orig * chi_2_orig ); \ 58 g = chi_1_orig / norm_x; \ 59 s = chi_2_orig / norm_x; \ 61 if ( fabs( chi_1_orig ) > fabs( chi_2_orig ) && g < 0.0 ) \ 70 *(chi_1_new) = norm_x; \ int FLA_Error
Definition: FLA_type_defs.h:47
FLA_Error FLA_Givens2_ops(float *chi_1, float *chi_2, float *gamma, float *sigma, float *chi_1_new)
Definition: FLA_Givens2.c:98
Definition: FLA_type_defs.h:158
FLA_Error FLA_Givens2_opd(double *chi_1, double *chi_2, double *gamma, double *sigma, double *chi_1_new)
Definition: FLA_Givens2.c:107
FLA_Error FLA_Givens2(FLA_Obj chi_1, FLA_Obj chi_2, FLA_Obj gamma, FLA_Obj sigma, FLA_Obj chi_1_new)
Definition: FLA_Givens2.c:13