23 #define MAC_Apply_GTG_ops( gamma, sigma, delta1, epsilon, delta2 ) \
38 tgse = 2.0 * g * s * e; \
40 *(delta1) = g2 * d1 + tgse + s2 * d2; \
41 *(delta2) = s2 * d1 - tgse + g2 * d2; \
42 *(epsilon) = g * s * (d2 - d1) + e * (g2 - s2); \
45 #define MAC_Apply_GTG_opd( gamma, sigma, delta1, epsilon, delta2 ) \
71 double g2, s2, tgse; \
82 tgse = 2.0 * g * s * e; \
84 *(delta1) = g2 * d1 + tgse + s2 * d2; \
85 *(delta2) = s2 * d1 - tgse + g2 * d2; \
86 *(epsilon) = g * s * (d2 - d1) + e * (g2 - s2); \
FLA_Error FLA_Apply_GTG(FLA_Obj gamma, FLA_Obj sigma, FLA_Obj delta1, FLA_Obj epsilon1, FLA_Obj delta2)
FLA_Error FLA_Apply_GTG_opd(double *gamma, double *sigma, double *delta1, double *epsilon1, double *delta2)
FLA_Error FLA_Apply_GTG_ops(float *gamma, float *sigma, float *delta1, float *epsilon1, float *delta2)
int FLA_Error
Definition: FLA_type_defs.h:47
Definition: FLA_type_defs.h:159