diff --git a/frame/1m/packm/bli_packm_herm_cxk.c b/frame/1m/packm/bli_packm_herm_cxk.c index 3a82eeedb..7d1347d91 100644 --- a/frame/1m/packm/bli_packm_herm_cxk.c +++ b/frame/1m/packm/bli_packm_herm_cxk.c @@ -499,10 +499,10 @@ void PASTEMAC(ch,varname)( \ ctype_r* c11_i = ( ctype_r* )c11 + 1; \ ctype_r* p11_r = ( ctype_r* )p11; \ ctype_r* p11_i = ( ctype_r* )p11 + psp; \ - ctype_r* kappa_r = &PASTEMAC(ch,real)( *kappa ); \ - ctype_r* kappa_i = &PASTEMAC(ch,imag)( *kappa ); \ ctype_r* alpha_r = one_r; \ ctype_r* alpha_i = ( bli_is_conj( conjc ) ? minus_one_r : one_r ); \ + ctype_r kappa_r = PASTEMAC(ch,real)( *kappa ); \ + ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \ \ /* Copy the real part of the stored triangle of c11 to p11_r. */ \ PASTEMAC(chr,scal2m)( 0, \ @@ -547,8 +547,8 @@ void PASTEMAC(ch,varname)( \ PASTEMAC(ch,scalris_mxn_u)( 0, \ p11_m, \ p11_n, \ - kappa_r, \ - kappa_i, \ + &kappa_r, \ + &kappa_i, \ p11_r, \ p11_i, rs_p11, cs_p11 ); \ } \ @@ -557,8 +557,8 @@ void PASTEMAC(ch,varname)( \ PASTEMAC(ch,scalris_mxn_l)( 0, \ p11_m, \ p11_n, \ - kappa_r, \ - kappa_i, \ + &kappa_r, \ + &kappa_i, \ p11_r, \ p11_i, rs_p11, cs_p11 ); \ } \ @@ -835,10 +835,10 @@ void PASTEMAC(ch,varname)( \ ctype_r* c11_i = ( ctype_r* )c11 + 1; \ ctype_r* p11_r = ( ctype_r* )p11; \ ctype_r* p11_i = ( ctype_r* )p11 + psp; \ - ctype_r* kappa_r = &PASTEMAC(ch,real)( *kappa ); \ - ctype_r* kappa_i = &PASTEMAC(ch,imag)( *kappa ); \ ctype_r* alpha_r = one_r; \ ctype_r* alpha_i = ( bli_is_conj( conjc ) ? minus_one_r : one_r ); \ + ctype_r kappa_r = PASTEMAC(ch,real)( *kappa ); \ + ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \ \ /* Copy the real part of the stored triangle of c11 to p11_r. */ \ PASTEMAC(chr,scal2m)( 0, \ @@ -883,8 +883,8 @@ void PASTEMAC(ch,varname)( \ PASTEMAC(ch,scalris_mxn_u)( 0, \ p11_m, \ p11_n, \ - kappa_r, \ - kappa_i, \ + &kappa_r, \ + &kappa_i, \ p11_r, \ p11_i, rs_p11, cs_p11 ); \ } \ @@ -893,8 +893,8 @@ void PASTEMAC(ch,varname)( \ PASTEMAC(ch,scalris_mxn_l)( 0, \ p11_m, \ p11_n, \ - kappa_r, \ - kappa_i, \ + &kappa_r, \ + &kappa_i, \ p11_r, \ p11_i, rs_p11, cs_p11 ); \ } \ diff --git a/frame/1m/packm/bli_packm_tri_cxk.c b/frame/1m/packm/bli_packm_tri_cxk.c index 7de7f2717..de213a542 100644 --- a/frame/1m/packm/bli_packm_tri_cxk.c +++ b/frame/1m/packm/bli_packm_tri_cxk.c @@ -302,18 +302,18 @@ void PASTEMAC(ch,varname)( \ the diagonal of the packed panel to kappa. */ \ if ( bli_is_unit_diag( diagc ) ) \ { \ - ctype_r* kappa_r = &PASTEMAC(ch,real)( *kappa ); \ - ctype_r* kappa_i = &PASTEMAC(ch,imag)( *kappa ); \ + ctype_r kappa_r = PASTEMAC(ch,real)( *kappa ); \ + ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \ \ PASTEMAC(chr,setd)( 0, \ m_panel, \ n_panel, \ - kappa_r, \ + &kappa_r, \ p11_r, rs_p11, cs_p11 ); \ PASTEMAC(chr,setd)( 0, \ m_panel, \ n_panel, \ - kappa_i, \ + &kappa_i, \ p11_i, rs_p11, cs_p11 ); \ } \ \ @@ -539,23 +539,23 @@ void PASTEMAC(ch,varname)( \ the diagonal of the packed panel to kappa. */ \ if ( bli_is_unit_diag( diagc ) ) \ { \ - ctype_r* kappa_r = &PASTEMAC(ch,real)( *kappa ); \ - ctype_r* kappa_i = &PASTEMAC(ch,imag)( *kappa ); \ + ctype_r kappa_r = PASTEMAC(ch,real)( *kappa ); \ + ctype_r kappa_i = PASTEMAC(ch,imag)( *kappa ); \ \ PASTEMAC(chr,setd)( 0, \ m_panel, \ n_panel, \ - kappa_r, \ + &kappa_r, \ p11_r, rs_p11, cs_p11 ); \ PASTEMAC(chr,setd)( 0, \ m_panel, \ n_panel, \ - kappa_i, \ + &kappa_i, \ p11_i, rs_p11, cs_p11 ); \ PASTEMAC(chr,setd)( 0, \ m_panel, \ n_panel, \ - kappa_i, \ + &kappa_r, \ p11_ri, rs_p11, cs_p11 ); \ } \ \ diff --git a/frame/3/gemm/3m/ukernels/bli_gemm3m_ukr_ref.c b/frame/3/gemm/3m/ukernels/bli_gemm3m_ukr_ref.c index 93fba2a76..f8be95c1b 100644 --- a/frame/3/gemm/3m/ukernels/bli_gemm3m_ukr_ref.c +++ b/frame/3/gemm/3m/ukernels/bli_gemm3m_ukr_ref.c @@ -90,11 +90,11 @@ void PASTEMAC(ch,varname)( \ ctype_r* restrict one_r = PASTEMAC(chr,1); \ ctype_r* restrict zero_r = PASTEMAC(chr,0); \ \ - ctype_r* restrict alpha_r = &PASTEMAC(ch,real)( *alpha ); \ - ctype_r* restrict alpha_i = &PASTEMAC(ch,imag)( *alpha ); \ + ctype_r alpha_r = PASTEMAC(ch,real)( *alpha ); \ + ctype_r alpha_i = PASTEMAC(ch,imag)( *alpha ); \ \ - ctype_r* restrict beta_r = &PASTEMAC(ch,real)( *beta ); \ - ctype_r* restrict beta_i = &PASTEMAC(ch,imag)( *beta ); \ + ctype_r beta_r = PASTEMAC(ch,real)( *beta ); \ + ctype_r beta_i = PASTEMAC(ch,imag)( *beta ); \ \ void* a_next = bli_auxinfo_next_a( data ); \ void* b_next = bli_auxinfo_next_b( data ); \ @@ -106,27 +106,27 @@ void PASTEMAC(ch,varname)( \ allow an alpha with non-zero imaginary component to be passed in, because it can't be applied properly using the 3m method. If alpha is not real, then something is very wrong. */ \ - if ( !PASTEMAC(chr,eq0)( *alpha_i ) ) \ + if ( !PASTEMAC(chr,eq0)( alpha_i ) ) \ bli_check_error_code( BLIS_NOT_YET_IMPLEMENTED ); \ \ \ /* Copy the contents of c to a temporary buffer ct. */ \ - if ( !PASTEMAC(chr,eq0)( *beta_i ) ) \ + if ( !PASTEMAC(chr,eq0)( beta_i ) ) \ { \ /* We can handle a non-zero imaginary component on beta, but to do so we have to manually scale c and then use beta == 1 for the micro-kernel calls. */ \ for ( i = 0; i < m; ++i ) \ for ( j = 0; j < n; ++j ) \ - PASTEMAC(ch,scal2ris)( *beta_r, \ - *beta_i, \ + PASTEMAC(ch,scal2ris)( beta_r, \ + beta_i, \ *(c_r + i*rs_c2 + j*cs_c2), \ *(c_i + i*rs_c2 + j*cs_c2), \ *(ct_r + i*rs_ct + j*cs_ct), \ *(ct_i + i*rs_ct + j*cs_ct) ); \ \ /* Use beta.r == 1.0. */ \ - beta_r = one_r; \ + beta_r = *one_r; \ } \ else \ { \ @@ -147,7 +147,7 @@ void PASTEMAC(ch,varname)( \ \ /* ab.r = a.r * b.r; */ \ PASTEMAC(chr,gemmukr)( k, \ - alpha_r, \ + &alpha_r, \ a_r, \ b_r, \ zero_r, \ @@ -158,7 +158,7 @@ void PASTEMAC(ch,varname)( \ \ /* ab.i = a.i * b.i; */ \ PASTEMAC(chr,gemmukr)( k, \ - alpha_r, \ + &alpha_r, \ a_i, \ b_i, \ zero_r, \ @@ -169,10 +169,10 @@ void PASTEMAC(ch,varname)( \ \ /* ct.i = a.ri * b.ri; */ \ PASTEMAC(chr,gemmukr)( k, \ - alpha_r, \ + &alpha_r, \ a_ri, \ b_ri, \ - beta_r, \ + &beta_r, \ ct_i, rs_ct, cs_ct, \ data ); \ \ @@ -189,7 +189,7 @@ void PASTEMAC(ch,varname)( \ ctype_r gammat_r = *(ct_r + i*rs_ct + j*cs_ct); \ ctype_r gammat_i = *(ct_i + i*rs_ct + j*cs_ct); \ \ - PASTEMAC(chr,scals)( *beta_r, gammat_r ); \ + PASTEMAC(chr,scals)( beta_r, gammat_r ); \ \ PASTEMAC(chr,adds)( alphabeta_r, gammat_r ); \ PASTEMAC(chr,subs)( alphabeta_i, gammat_r ); \ diff --git a/frame/3/gemm/4m/ukernels/bli_gemm4m_ukr_ref.c b/frame/3/gemm/4m/ukernels/bli_gemm4m_ukr_ref.c index 246750ca5..c91cbde55 100644 --- a/frame/3/gemm/4m/ukernels/bli_gemm4m_ukr_ref.c +++ b/frame/3/gemm/4m/ukernels/bli_gemm4m_ukr_ref.c @@ -77,11 +77,11 @@ void PASTEMAC(ch,varname)( \ \ ctype_r* restrict one_r = PASTEMAC(chr,1); \ \ - ctype_r* restrict alpha_r = &PASTEMAC(ch,real)( *alpha ); \ - ctype_r* restrict alpha_i = &PASTEMAC(ch,imag)( *alpha ); \ + ctype_r alpha_r = PASTEMAC(ch,real)( *alpha ); \ + ctype_r alpha_i = PASTEMAC(ch,imag)( *alpha ); \ \ - ctype_r* restrict beta_r = &PASTEMAC(ch,real)( *beta ); \ - ctype_r* restrict beta_i = &PASTEMAC(ch,imag)( *beta ); \ + ctype_r beta_r = PASTEMAC(ch,real)( *beta ); \ + ctype_r beta_i = PASTEMAC(ch,imag)( *beta ); \ \ ctype_r m_alpha_r = -PASTEMAC(ch,real)( *alpha ); \ \ @@ -95,27 +95,27 @@ void PASTEMAC(ch,varname)( \ allow an alpha with non-zero imaginary component to be passed in, because it can't be applied properly using the 4m method. If alpha is not real, then something is very wrong. */ \ - if ( !PASTEMAC(chr,eq0)( *alpha_i ) ) \ + if ( !PASTEMAC(chr,eq0)( alpha_i ) ) \ bli_check_error_code( BLIS_NOT_YET_IMPLEMENTED ); \ \ \ /* Copy the contents of c to a temporary buffer ct. */ \ - if ( !PASTEMAC(chr,eq0)( *beta_i ) ) \ + if ( !PASTEMAC(chr,eq0)( beta_i ) ) \ { \ /* We can handle a non-zero imaginary component on beta, but to do so we have to manually scale c and then use beta == 1 for the micro-kernel calls. */ \ for ( j = 0; j < n; ++j ) \ for ( i = 0; i < m; ++i ) \ - PASTEMAC(ch,scal2ris)( *beta_r, \ - *beta_i, \ + PASTEMAC(ch,scal2ris)( beta_r, \ + beta_i, \ *(c_r + i*rs_c2 + j*cs_c2), \ *(c_i + i*rs_c2 + j*cs_c2), \ *(ct_r + i*rs_ct + j*cs_ct), \ *(ct_i + i*rs_ct + j*cs_ct) ); \ \ /* Use beta.r == 1.0. */ \ - beta_r = one_r; \ + beta_r = *one_r; \ } \ else \ { \ @@ -138,10 +138,10 @@ void PASTEMAC(ch,varname)( \ \ /* c.r = beta * c.r + a.r * b.r; */ \ PASTEMAC(chr,gemmukr)( k, \ - alpha_r, \ + &alpha_r, \ a_r, \ b_r, \ - beta_r, \ + &beta_r, \ ct_r, rs_ct, cs_ct, \ data ); \ \ @@ -149,10 +149,10 @@ void PASTEMAC(ch,varname)( \ \ /* c.i = beta * c.i + a.r * b.i; */ \ PASTEMAC(chr,gemmukr)( k, \ - alpha_r, \ + &alpha_r, \ a_r, \ b_i, \ - beta_r, \ + &beta_r, \ ct_i, rs_ct, cs_ct, \ data ); \ \ @@ -160,7 +160,7 @@ void PASTEMAC(ch,varname)( \ \ /* c.i = 1.0 * c.i + a.i * b.r; */ \ PASTEMAC(chr,gemmukr)( k, \ - alpha_r, \ + &alpha_r, \ a_i, \ b_r, \ one_r, \ diff --git a/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_l_ukr_ref.c b/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_l_ukr_ref.c index c32e2b527..19c7cdaaf 100644 --- a/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_l_ukr_ref.c +++ b/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_l_ukr_ref.c @@ -85,8 +85,8 @@ void PASTEMAC(ch,varname)( \ ctype_r* restrict zero_r = PASTEMAC(chr,0); \ ctype_r* restrict minus_one_r = PASTEMAC(chr,m1); \ \ - ctype_r* restrict alpha_r = &PASTEMAC(ch,real)( *alpha ); \ - ctype_r* restrict alpha_i = &PASTEMAC(ch,imag)( *alpha ); \ + ctype_r alpha_r = PASTEMAC(ch,real)( *alpha ); \ + ctype_r alpha_i = PASTEMAC(ch,imag)( *alpha ); \ \ void* a_next = bli_auxinfo_next_a( data ); \ void* b_next = bli_auxinfo_next_b( data ); \ @@ -95,20 +95,20 @@ void PASTEMAC(ch,varname)( \ \ \ /* Copy the contents of c to a temporary buffer ct. */ \ - if ( !PASTEMAC(chr,eq0)( *alpha_i ) ) \ + if ( !PASTEMAC(chr,eq0)( alpha_i ) ) \ { \ /* We can handle a non-zero imaginary component on alpha, but to do so we have to manually scale b and then use alpha == 1 for the micro-kernel calls. */ \ for ( i = 0; i < m; ++i ) \ for ( j = 0; j < n; ++j ) \ - PASTEMAC(ch,scalris)( *alpha_r, \ - *alpha_i, \ + PASTEMAC(ch,scalris)( alpha_r, \ + alpha_i, \ *(b11_r + i*rs_b + j*cs_b), \ *(b11_i + i*rs_b + j*cs_b) ); \ \ /* Use alpha.r == 1.0. */ \ - alpha_r = one_r; \ + alpha_r = *one_r; \ } \ \ \ @@ -144,7 +144,7 @@ void PASTEMAC(ch,varname)( \ minus_one_r, \ a10_ri, \ b01_ri, \ - alpha_r, \ + &alpha_r, \ b11_i, rs_b, cs_b, \ data ); \ \ @@ -161,7 +161,7 @@ void PASTEMAC(ch,varname)( \ ctype_r beta11_r = *(b11_r + i*rs_b + j*cs_b); \ ctype_r beta11_i = *(b11_i + i*rs_b + j*cs_b); \ \ - PASTEMAC(chr,scals)( *alpha_r, beta11_r ); \ + PASTEMAC(chr,scals)( alpha_r, beta11_r ); \ \ PASTEMAC(chr,subs)( alphabeta_r, beta11_r ); \ PASTEMAC(chr,adds)( alphabeta_i, beta11_r ); \ diff --git a/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_u_ukr_ref.c b/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_u_ukr_ref.c index 60c3b609d..95501f694 100644 --- a/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_u_ukr_ref.c +++ b/frame/3/trsm/3m/ukernels/bli_gemmtrsm3m_u_ukr_ref.c @@ -85,8 +85,8 @@ void PASTEMAC(ch,varname)( \ ctype_r* restrict zero_r = PASTEMAC(chr,0); \ ctype_r* restrict minus_one_r = PASTEMAC(chr,m1); \ \ - ctype_r* restrict alpha_r = &PASTEMAC(ch,real)( *alpha ); \ - ctype_r* restrict alpha_i = &PASTEMAC(ch,imag)( *alpha ); \ + ctype_r alpha_r = PASTEMAC(ch,real)( *alpha ); \ + ctype_r alpha_i = PASTEMAC(ch,imag)( *alpha ); \ \ void* a_next = bli_auxinfo_next_a( data ); \ void* b_next = bli_auxinfo_next_b( data ); \ @@ -95,20 +95,20 @@ void PASTEMAC(ch,varname)( \ \ \ /* Copy the contents of c to a temporary buffer ct. */ \ - if ( !PASTEMAC(chr,eq0)( *alpha_i ) ) \ + if ( !PASTEMAC(chr,eq0)( alpha_i ) ) \ { \ /* We can handle a non-zero imaginary component on alpha, but to do so we have to manually scale b and then use alpha == 1 for the micro-kernel calls. */ \ for ( i = 0; i < m; ++i ) \ for ( j = 0; j < n; ++j ) \ - PASTEMAC(ch,scalris)( *alpha_r, \ - *alpha_i, \ + PASTEMAC(ch,scalris)( alpha_r, \ + alpha_i, \ *(b11_r + i*rs_b + j*cs_b), \ *(b11_i + i*rs_b + j*cs_b) ); \ \ /* Use alpha.r == 1.0. */ \ - alpha_r = one_r; \ + alpha_r = *one_r; \ } \ \ \ @@ -144,7 +144,7 @@ void PASTEMAC(ch,varname)( \ minus_one_r, \ a12_ri, \ b21_ri, \ - alpha_r, \ + &alpha_r, \ b11_i, rs_b, cs_b, \ data ); \ \ @@ -161,7 +161,7 @@ void PASTEMAC(ch,varname)( \ ctype_r beta11_r = *(b11_r + i*rs_b + j*cs_b); \ ctype_r beta11_i = *(b11_i + i*rs_b + j*cs_b); \ \ - PASTEMAC(chr,scals)( *alpha_r, beta11_r ); \ + PASTEMAC(chr,scals)( alpha_r, beta11_r ); \ \ PASTEMAC(chr,subs)( alphabeta_r, beta11_r ); \ PASTEMAC(chr,adds)( alphabeta_i, beta11_r ); \ diff --git a/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_l_ukr_ref.c b/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_l_ukr_ref.c index fc188568c..0654cd0b4 100644 --- a/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_l_ukr_ref.c +++ b/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_l_ukr_ref.c @@ -71,8 +71,8 @@ void PASTEMAC(ch,varname)( \ ctype_r* restrict one_r = PASTEMAC(chr,1); \ ctype_r* restrict minus_one_r = PASTEMAC(chr,m1); \ \ - ctype_r* alpha_r = &PASTEMAC(ch,real)( *alpha ); \ - ctype_r* alpha_i = &PASTEMAC(ch,imag)( *alpha ); \ + ctype_r alpha_r = PASTEMAC(ch,real)( *alpha ); \ + ctype_r alpha_i = PASTEMAC(ch,imag)( *alpha ); \ \ void* a_next = bli_auxinfo_next_a( data ); \ void* b_next = bli_auxinfo_next_b( data ); \ @@ -81,20 +81,20 @@ void PASTEMAC(ch,varname)( \ \ \ /* Copy the contents of c to a temporary buffer ct. */ \ - if ( !PASTEMAC(chr,eq0)( *alpha_i ) ) \ + if ( !PASTEMAC(chr,eq0)( alpha_i ) ) \ { \ /* We can handle a non-zero imaginary component on alpha, but to do so we have to manually scale b and then use alpha == 1 for the micro-kernel calls. */ \ for ( i = 0; i < m; ++i ) \ for ( j = 0; j < n; ++j ) \ - PASTEMAC(ch,scalris)( *alpha_r, \ - *alpha_i, \ + PASTEMAC(ch,scalris)( alpha_r, \ + alpha_i, \ *(b11_r + i*rs_b + j*cs_b), \ *(b11_i + i*rs_b + j*cs_b) ); \ \ /* Use alpha.r == 1.0. */ \ - alpha_r = one_r; \ + alpha_r = *one_r; \ } \ \ \ @@ -108,7 +108,7 @@ void PASTEMAC(ch,varname)( \ minus_one_r, \ a10_r, \ b01_r, \ - alpha_r, \ + &alpha_r, \ b11_r, rs_b, cs_b, \ data ); \ \ @@ -119,7 +119,7 @@ void PASTEMAC(ch,varname)( \ minus_one_r, \ a10_r, \ b01_i, \ - alpha_r, \ + &alpha_r, \ b11_i, rs_b, cs_b, \ data ); \ \ diff --git a/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_u_ukr_ref.c b/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_u_ukr_ref.c index 6318b6526..5b775a17b 100644 --- a/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_u_ukr_ref.c +++ b/frame/3/trsm/4m/ukernels/bli_gemmtrsm4m_u_ukr_ref.c @@ -71,8 +71,8 @@ void PASTEMAC(ch,varname)( \ ctype_r* restrict one_r = PASTEMAC(chr,1); \ ctype_r* restrict minus_one_r = PASTEMAC(chr,m1); \ \ - ctype_r* alpha_r = &PASTEMAC(ch,real)( *alpha ); \ - ctype_r* alpha_i = &PASTEMAC(ch,imag)( *alpha ); \ + ctype_r alpha_r = PASTEMAC(ch,real)( *alpha ); \ + ctype_r alpha_i = PASTEMAC(ch,imag)( *alpha ); \ \ void* a_next = bli_auxinfo_next_a( data ); \ void* b_next = bli_auxinfo_next_b( data ); \ @@ -81,20 +81,20 @@ void PASTEMAC(ch,varname)( \ \ \ /* Copy the contents of c to a temporary buffer ct. */ \ - if ( !PASTEMAC(chr,eq0)( *alpha_i ) ) \ + if ( !PASTEMAC(chr,eq0)( alpha_i ) ) \ { \ /* We can handle a non-zero imaginary component on alpha, but to do so we have to manually scale b and then use alpha == 1 for the micro-kernel calls. */ \ for ( i = 0; i < m; ++i ) \ for ( j = 0; j < n; ++j ) \ - PASTEMAC(ch,scalris)( *alpha_r, \ - *alpha_i, \ + PASTEMAC(ch,scalris)( alpha_r, \ + alpha_i, \ *(b11_r + i*rs_b + j*cs_b), \ *(b11_i + i*rs_b + j*cs_b) ); \ \ /* Use alpha.r == 1.0. */ \ - alpha_r = one_r; \ + alpha_r = *one_r; \ } \ \ \ @@ -108,7 +108,7 @@ void PASTEMAC(ch,varname)( \ minus_one_r, \ a12_r, \ b21_r, \ - alpha_r, \ + &alpha_r, \ b11_r, rs_b, cs_b, \ data ); \ \ @@ -119,7 +119,7 @@ void PASTEMAC(ch,varname)( \ minus_one_r, \ a12_r, \ b21_i, \ - alpha_r, \ + &alpha_r, \ b11_i, rs_b, cs_b, \ data ); \ \ diff --git a/frame/base/bli_obj.c b/frame/base/bli_obj.c index 189381a89..02426633a 100644 --- a/frame/base/bli_obj.c +++ b/frame/base/bli_obj.c @@ -268,13 +268,14 @@ void bli_obj_create_const( double value, obj_t* obj ) temp_z = bli_obj_buffer_for_const( BLIS_DCOMPLEX, *obj ); temp_i = bli_obj_buffer_for_const( BLIS_INT, *obj ); - *temp_s = ( float ) value; - *temp_d = value; - temp_c->real = ( float ) value; - temp_c->imag = ( float ) 0.0; - temp_z->real = value; - temp_z->imag = 0.0; - *temp_i = ( gint_t ) value; + // Use the bli_??sets() macros to set the temp variables in order to + // properly support BLIS_ENABLE_C99_COMPLEX. + bli_dssets( value, 0.0, *temp_s ); + bli_ddsets( value, 0.0, *temp_d ); + bli_dcsets( value, 0.0, *temp_c ); + bli_dzsets( value, 0.0, *temp_z ); + + *temp_i = ( gint_t ) value; } void bli_obj_create_const_copy_of( obj_t* a, obj_t* b ) @@ -284,6 +285,7 @@ void bli_obj_create_const_copy_of( obj_t* a, obj_t* b ) double* temp_d; scomplex* temp_c; dcomplex* temp_z; + void* buf_a; dcomplex value; if ( bli_error_checking_is_enabled() ) @@ -297,41 +299,37 @@ void bli_obj_create_const_copy_of( obj_t* a, obj_t* b ) temp_z = bli_obj_buffer_for_const( BLIS_DCOMPLEX, *b ); temp_i = bli_obj_buffer_for_const( BLIS_INT, *b ); - value.real = 0.0; - value.imag = 0.0; + buf_a = bli_obj_buffer_at_off( *a ); + + bli_zzsets( 0.0, 0.0, value ); if ( bli_obj_is_float( *a ) ) { - value.real = *(( float* )( bli_obj_buffer_at_off( *a ) )); - value.imag = 0.0; + bli_szcopys( *(( float* )buf_a), value ); } else if ( bli_obj_is_double( *a ) ) { - value.real = *(( double* )( bli_obj_buffer_at_off( *a ) )); - value.imag = 0.0; + bli_dzcopys( *(( double* )buf_a), value ); } else if ( bli_obj_is_scomplex( *a ) ) { - value.real = (( scomplex* )( bli_obj_buffer_at_off( *a ) ))->real; - value.imag = (( scomplex* )( bli_obj_buffer_at_off( *a ) ))->imag; + bli_czcopys( *(( scomplex* )buf_a), value ); } else if ( bli_obj_is_dcomplex( *a ) ) { - value.real = (( dcomplex* )( bli_obj_buffer_at_off( *a ) ))->real; - value.imag = (( dcomplex* )( bli_obj_buffer_at_off( *a ) ))->imag; + bli_zzcopys( *(( dcomplex* )buf_a), value ); } else { bli_check_error_code( BLIS_NOT_YET_IMPLEMENTED ); } - *temp_s = ( float ) value.real; - *temp_d = value.real; - temp_c->real = ( float ) value.real; - temp_c->imag = ( float ) value.imag; - temp_z->real = value.real; - temp_z->imag = value.imag; - *temp_i = ( gint_t ) value.real; + bli_zscopys( value, *temp_s ); + bli_zdcopys( value, *temp_d ); + bli_zccopys( value, *temp_c ); + bli_zzcopys( value, *temp_z ); + + *temp_i = ( gint_t ) bli_zreal( value ); } void bli_adjust_strides( dim_t m, diff --git a/frame/compat/f2c/bla_gbmv.c b/frame/compat/f2c/bla_gbmv.c index b3a4f224f..ffa1a4ced 100644 --- a/frame/compat/f2c/bla_gbmv.c +++ b/frame/compat/f2c/bla_gbmv.c @@ -229,8 +229,8 @@ /* Quick return if possible. */ - if (*m == 0 || *n == 0 || (alpha->real == 0.f && alpha->imag == 0.f && (beta->real - == 1.f && beta->imag == 0.f))) { + if (*m == 0 || *n == 0 || (bli_creal(*alpha) == 0.f && bli_cimag(*alpha) == 0.f && (bli_creal(*beta) + == 1.f && bli_cimag(*beta) == 0.f))) { return 0; } @@ -262,13 +262,13 @@ /* First form y := beta*y. */ - if (beta->real != 1.f || beta->imag != 0.f) { + if (bli_creal(*beta) != 1.f || bli_cimag(*beta) != 0.f) { if (*incy == 1) { - if (beta->real == 0.f && beta->imag == 0.f) { + if (bli_creal(*beta) == 0.f && bli_cimag(*beta) == 0.f) { i__1 = leny; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - y[i__2].real = 0.f, y[i__2].imag = 0.f; + bli_csets( (0.f), (0.f), y[i__2] ); /* L10: */ } } else { @@ -276,20 +276,18 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; i__3 = i__; - q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*beta) * bli_creal(y[i__3]) - bli_cimag(*beta) * bli_cimag(y[i__3])), (bli_creal(*beta) * bli_cimag(y[i__3]) + bli_cimag(*beta) * bli_creal(y[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); /* L20: */ } } } else { iy = ky; - if (beta->real == 0.f && beta->imag == 0.f) { + if (bli_creal(*beta) == 0.f && bli_cimag(*beta) == 0.f) { i__1 = leny; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; - y[i__2].real = 0.f, y[i__2].imag = 0.f; + bli_csets( (0.f), (0.f), y[i__2] ); iy += *incy; /* L30: */ } @@ -298,17 +296,15 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; i__3 = iy; - q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*beta) * bli_creal(y[i__3]) - bli_cimag(*beta) * bli_cimag(y[i__3])), (bli_creal(*beta) * bli_cimag(y[i__3]) + bli_cimag(*beta) * bli_creal(y[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); iy += *incy; /* L40: */ } } } } - if (alpha->real == 0.f && alpha->imag == 0.f) { + if (bli_creal(*alpha) == 0.f && bli_cimag(*alpha) == 0.f) { return 0; } kup1 = *ku + 1; @@ -321,12 +317,10 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { i__2 = jx; - q__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - q__1.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); k = kup1 - j; /* Computing MAX */ i__2 = 1, i__3 = j - *ku; @@ -337,12 +331,9 @@ i__2 = i__; i__3 = i__; i__5 = k + i__ + j * a_dim1; - q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - q__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5] - .real; - q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + - q__2.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__5]) - bli_cimag(temp) * bli_cimag(a[i__5])), (bli_creal(temp) * bli_cimag(a[i__5]) + bli_cimag(temp) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__2)), (bli_cimag(y[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); /* L50: */ } } @@ -353,12 +344,10 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__4 = jx; - if (x[i__4].real != 0.f || x[i__4].imag != 0.f) { + if (bli_creal(x[i__4]) != 0.f || bli_cimag(x[i__4]) != 0.f) { i__4 = jx; - q__1.real = alpha->real * x[i__4].real - alpha->imag * x[i__4].imag, - q__1.imag = alpha->real * x[i__4].imag + alpha->imag * x[i__4] - .real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__4]) - bli_cimag(*alpha) * bli_cimag(x[i__4])), (bli_creal(*alpha) * bli_cimag(x[i__4]) + bli_cimag(*alpha) * bli_creal(x[i__4])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); iy = ky; k = kup1 - j; /* Computing MAX */ @@ -370,12 +359,9 @@ i__4 = iy; i__2 = iy; i__5 = k + i__ + j * a_dim1; - q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - q__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5] - .real; - q__1.real = y[i__2].real + q__2.real, q__1.imag = y[i__2].imag + - q__2.imag; - y[i__4].real = q__1.real, y[i__4].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__5]) - bli_cimag(temp) * bli_cimag(a[i__5])), (bli_creal(temp) * bli_cimag(a[i__5]) + bli_cimag(temp) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__2]) + bli_creal(q__2)), (bli_cimag(y[i__2]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__4] ); iy += *incy; /* L70: */ } @@ -395,7 +381,7 @@ if (*incx == 1) { i__1 = *n; for (j = 1; j <= i__1; ++j) { - temp.real = 0.f, temp.imag = 0.f; + bli_csets( (0.f), (0.f), temp ); k = kup1 - j; if (noconj) { /* Computing MAX */ @@ -406,11 +392,9 @@ for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) { i__3 = k + i__ + j * a_dim1; i__4 = i__; - q__2.real = a[i__3].real * x[i__4].real - a[i__3].imag * x[i__4] - .imag, q__2.imag = a[i__3].real * x[i__4].imag + a[i__3] - .imag * x[i__4].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__3]) * bli_creal(x[i__4]) - bli_cimag(a[i__3]) * bli_cimag(x[i__4])), (bli_creal(a[i__3]) * bli_cimag(x[i__4]) + bli_cimag(a[i__3]) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L90: */ } } else { @@ -422,27 +406,24 @@ for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) { bla_r_cnjg(&q__3, &a[k + i__ + j * a_dim1]); i__2 = i__; - q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag, - q__2.imag = q__3.real * x[i__2].imag + q__3.imag * x[i__2] - .real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__2]) - bli_cimag(q__3) * bli_cimag(x[i__2])), (bli_creal(q__3) * bli_cimag(x[i__2]) + bli_cimag(q__3) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L100: */ } } i__4 = jy; i__2 = jy; - q__2.real = alpha->real * temp.real - alpha->imag * temp.imag, q__2.imag = - alpha->real * temp.imag + alpha->imag * temp.real; - q__1.real = y[i__2].real + q__2.real, q__1.imag = y[i__2].imag + q__2.imag; - y[i__4].real = q__1.real, y[i__4].imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(temp) - bli_cimag(*alpha) * bli_cimag(temp)), (bli_creal(*alpha) * bli_cimag(temp) + bli_cimag(*alpha) * bli_creal(temp)), q__2 ); + bli_csets( (bli_creal(y[i__2]) + bli_creal(q__2)), (bli_cimag(y[i__2]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__4] ); jy += *incy; /* L110: */ } } else { i__1 = *n; for (j = 1; j <= i__1; ++j) { - temp.real = 0.f, temp.imag = 0.f; + bli_csets( (0.f), (0.f), temp ); ix = kx; k = kup1 - j; if (noconj) { @@ -454,11 +435,9 @@ for (i__ = f2c_max(i__4,i__2); i__ <= i__3; ++i__) { i__4 = k + i__ + j * a_dim1; i__2 = ix; - q__2.real = a[i__4].real * x[i__2].real - a[i__4].imag * x[i__2] - .imag, q__2.imag = a[i__4].real * x[i__2].imag + a[i__4] - .imag * x[i__2].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__4]) * bli_creal(x[i__2]) - bli_cimag(a[i__4]) * bli_cimag(x[i__2])), (bli_creal(a[i__4]) * bli_cimag(x[i__2]) + bli_cimag(a[i__4]) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L120: */ } @@ -471,21 +450,18 @@ for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) { bla_r_cnjg(&q__3, &a[k + i__ + j * a_dim1]); i__3 = ix; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, - q__2.imag = q__3.real * x[i__3].imag + q__3.imag * x[i__3] - .real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L130: */ } } i__2 = jy; i__3 = jy; - q__2.real = alpha->real * temp.real - alpha->imag * temp.imag, q__2.imag = - alpha->real * temp.imag + alpha->imag * temp.real; - q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + q__2.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(temp) - bli_cimag(*alpha) * bli_cimag(temp)), (bli_creal(*alpha) * bli_cimag(temp) + bli_cimag(*alpha) * bli_creal(temp)), q__2 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__2)), (bli_cimag(y[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); jy += *incy; if (j > *ku) { kx += *incx; @@ -1406,8 +1382,8 @@ /* Quick return if possible. */ - if (*m == 0 || *n == 0 || (alpha->real == 0. && alpha->imag == 0. && (beta->real == - 1. && beta->imag == 0.))) { + if (*m == 0 || *n == 0 || (bli_zreal(*alpha) == 0. && bli_zimag(*alpha) == 0. && (bli_zreal(*beta) == + 1. && bli_zimag(*beta) == 0.))) { return 0; } @@ -1439,13 +1415,13 @@ /* First form y := beta*y. */ - if (beta->real != 1. || beta->imag != 0.) { + if (bli_zreal(*beta) != 1. || bli_zimag(*beta) != 0.) { if (*incy == 1) { - if (beta->real == 0. && beta->imag == 0.) { + if (bli_zreal(*beta) == 0. && bli_zimag(*beta) == 0.) { i__1 = leny; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - y[i__2].real = 0., y[i__2].imag = 0.; + bli_zsets( (0.), (0.), y[i__2] ); /* L10: */ } } else { @@ -1453,20 +1429,18 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; i__3 = i__; - z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*beta) * bli_zreal(y[i__3]) - bli_zimag(*beta) * bli_zimag(y[i__3])), (bli_zreal(*beta) * bli_zimag(y[i__3]) + bli_zimag(*beta) * bli_zreal(y[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); /* L20: */ } } } else { iy = ky; - if (beta->real == 0. && beta->imag == 0.) { + if (bli_zreal(*beta) == 0. && bli_zimag(*beta) == 0.) { i__1 = leny; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; - y[i__2].real = 0., y[i__2].imag = 0.; + bli_zsets( (0.), (0.), y[i__2] ); iy += *incy; /* L30: */ } @@ -1475,17 +1449,15 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; i__3 = iy; - z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*beta) * bli_zreal(y[i__3]) - bli_zimag(*beta) * bli_zimag(y[i__3])), (bli_zreal(*beta) * bli_zimag(y[i__3]) + bli_zimag(*beta) * bli_zreal(y[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); iy += *incy; /* L40: */ } } } } - if (alpha->real == 0. && alpha->imag == 0.) { + if (bli_zreal(*alpha) == 0. && bli_zimag(*alpha) == 0.) { return 0; } kup1 = *ku + 1; @@ -1498,12 +1470,10 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { i__2 = jx; - z__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - z__1.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); k = kup1 - j; /* Computing MAX */ i__2 = 1, i__3 = j - *ku; @@ -1514,12 +1484,9 @@ i__2 = i__; i__3 = i__; i__5 = k + i__ + j * a_dim1; - z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - z__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5] - .real; - z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + - z__2.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__5]) - bli_zimag(temp) * bli_zimag(a[i__5])), (bli_zreal(temp) * bli_zimag(a[i__5]) + bli_zimag(temp) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__2)), (bli_zimag(y[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); /* L50: */ } } @@ -1530,12 +1497,10 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__4 = jx; - if (x[i__4].real != 0. || x[i__4].imag != 0.) { + if (bli_zreal(x[i__4]) != 0. || bli_zimag(x[i__4]) != 0.) { i__4 = jx; - z__1.real = alpha->real * x[i__4].real - alpha->imag * x[i__4].imag, - z__1.imag = alpha->real * x[i__4].imag + alpha->imag * x[i__4] - .real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__4]) - bli_zimag(*alpha) * bli_zimag(x[i__4])), (bli_zreal(*alpha) * bli_zimag(x[i__4]) + bli_zimag(*alpha) * bli_zreal(x[i__4])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); iy = ky; k = kup1 - j; /* Computing MAX */ @@ -1547,12 +1512,9 @@ i__4 = iy; i__2 = iy; i__5 = k + i__ + j * a_dim1; - z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - z__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5] - .real; - z__1.real = y[i__2].real + z__2.real, z__1.imag = y[i__2].imag + - z__2.imag; - y[i__4].real = z__1.real, y[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__5]) - bli_zimag(temp) * bli_zimag(a[i__5])), (bli_zreal(temp) * bli_zimag(a[i__5]) + bli_zimag(temp) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__2]) + bli_zreal(z__2)), (bli_zimag(y[i__2]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__4] ); iy += *incy; /* L70: */ } @@ -1572,7 +1534,7 @@ if (*incx == 1) { i__1 = *n; for (j = 1; j <= i__1; ++j) { - temp.real = 0., temp.imag = 0.; + bli_zsets( (0.), (0.), temp ); k = kup1 - j; if (noconj) { /* Computing MAX */ @@ -1583,11 +1545,9 @@ for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) { i__3 = k + i__ + j * a_dim1; i__4 = i__; - z__2.real = a[i__3].real * x[i__4].real - a[i__3].imag * x[i__4] - .imag, z__2.imag = a[i__3].real * x[i__4].imag + a[i__3] - .imag * x[i__4].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__3]) * bli_zreal(x[i__4]) - bli_zimag(a[i__3]) * bli_zimag(x[i__4])), (bli_zreal(a[i__3]) * bli_zimag(x[i__4]) + bli_zimag(a[i__3]) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L90: */ } } else { @@ -1599,27 +1559,24 @@ for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) { bla_d_cnjg(&z__3, &a[k + i__ + j * a_dim1]); i__2 = i__; - z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag, - z__2.imag = z__3.real * x[i__2].imag + z__3.imag * x[i__2] - .real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__2]) - bli_zimag(z__3) * bli_zimag(x[i__2])), (bli_zreal(z__3) * bli_zimag(x[i__2]) + bli_zimag(z__3) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L100: */ } } i__4 = jy; i__2 = jy; - z__2.real = alpha->real * temp.real - alpha->imag * temp.imag, z__2.imag = - alpha->real * temp.imag + alpha->imag * temp.real; - z__1.real = y[i__2].real + z__2.real, z__1.imag = y[i__2].imag + z__2.imag; - y[i__4].real = z__1.real, y[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp) - bli_zimag(*alpha) * bli_zimag(temp)), (bli_zreal(*alpha) * bli_zimag(temp) + bli_zimag(*alpha) * bli_zreal(temp)), z__2 ); + bli_zsets( (bli_zreal(y[i__2]) + bli_zreal(z__2)), (bli_zimag(y[i__2]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__4] ); jy += *incy; /* L110: */ } } else { i__1 = *n; for (j = 1; j <= i__1; ++j) { - temp.real = 0., temp.imag = 0.; + bli_zsets( (0.), (0.), temp ); ix = kx; k = kup1 - j; if (noconj) { @@ -1631,11 +1588,9 @@ for (i__ = f2c_max(i__4,i__2); i__ <= i__3; ++i__) { i__4 = k + i__ + j * a_dim1; i__2 = ix; - z__2.real = a[i__4].real * x[i__2].real - a[i__4].imag * x[i__2] - .imag, z__2.imag = a[i__4].real * x[i__2].imag + a[i__4] - .imag * x[i__2].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__4]) * bli_zreal(x[i__2]) - bli_zimag(a[i__4]) * bli_zimag(x[i__2])), (bli_zreal(a[i__4]) * bli_zimag(x[i__2]) + bli_zimag(a[i__4]) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L120: */ } @@ -1648,21 +1603,18 @@ for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) { bla_d_cnjg(&z__3, &a[k + i__ + j * a_dim1]); i__3 = ix; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, - z__2.imag = z__3.real * x[i__3].imag + z__3.imag * x[i__3] - .real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L130: */ } } i__2 = jy; i__3 = jy; - z__2.real = alpha->real * temp.real - alpha->imag * temp.imag, z__2.imag = - alpha->real * temp.imag + alpha->imag * temp.real; - z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + z__2.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp) - bli_zimag(*alpha) * bli_zimag(temp)), (bli_zreal(*alpha) * bli_zimag(temp) + bli_zimag(*alpha) * bli_zreal(temp)), z__2 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__2)), (bli_zimag(y[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); jy += *incy; if (j > *ku) { kx += *incx; diff --git a/frame/compat/f2c/bla_hbmv.c b/frame/compat/f2c/bla_hbmv.c index aef596c11..a313cf79b 100644 --- a/frame/compat/f2c/bla_hbmv.c +++ b/frame/compat/f2c/bla_hbmv.c @@ -225,8 +225,8 @@ /* Quick return if possible. */ - if (*n == 0 || (alpha->real == 0.f && alpha->imag == 0.f && (beta->real == 1.f && - beta->imag == 0.f))) { + if (*n == 0 || (bli_creal(*alpha) == 0.f && bli_cimag(*alpha) == 0.f && (bli_creal(*beta) == 1.f && + bli_cimag(*beta) == 0.f))) { return 0; } @@ -248,13 +248,13 @@ /* First form y := beta*y. */ - if (beta->real != 1.f || beta->imag != 0.f) { + if (bli_creal(*beta) != 1.f || bli_cimag(*beta) != 0.f) { if (*incy == 1) { - if (beta->real == 0.f && beta->imag == 0.f) { + if (bli_creal(*beta) == 0.f && bli_cimag(*beta) == 0.f) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - y[i__2].real = 0.f, y[i__2].imag = 0.f; + bli_csets( (0.f), (0.f), y[i__2] ); /* L10: */ } } else { @@ -262,20 +262,18 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; i__3 = i__; - q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*beta) * bli_creal(y[i__3]) - bli_cimag(*beta) * bli_cimag(y[i__3])), (bli_creal(*beta) * bli_cimag(y[i__3]) + bli_cimag(*beta) * bli_creal(y[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); /* L20: */ } } } else { iy = ky; - if (beta->real == 0.f && beta->imag == 0.f) { + if (bli_creal(*beta) == 0.f && bli_cimag(*beta) == 0.f) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; - y[i__2].real = 0.f, y[i__2].imag = 0.f; + bli_csets( (0.f), (0.f), y[i__2] ); iy += *incy; /* L30: */ } @@ -284,17 +282,15 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; i__3 = iy; - q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*beta) * bli_creal(y[i__3]) - bli_cimag(*beta) * bli_cimag(y[i__3])), (bli_creal(*beta) * bli_cimag(y[i__3]) + bli_cimag(*beta) * bli_creal(y[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); iy += *incy; /* L40: */ } } } } - if (alpha->real == 0.f && alpha->imag == 0.f) { + if (bli_creal(*alpha) == 0.f && bli_cimag(*alpha) == 0.f) { return 0; } if (PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1)) { @@ -306,10 +302,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - q__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, q__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); l = kplus1 - j; /* Computing MAX */ i__2 = 1, i__3 = j - *k; @@ -318,29 +313,25 @@ i__2 = i__; i__3 = i__; i__5 = l + i__ + j * a_dim1; - q__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - q__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + q__2.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(a[i__5]) - bli_cimag(temp1) * bli_cimag(a[i__5])), (bli_creal(temp1) * bli_cimag(a[i__5]) + bli_cimag(temp1) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__2)), (bli_cimag(y[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__2 = i__; - q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag, q__2.imag = - q__3.real * x[i__2].imag + q__3.imag * x[i__2].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__2]) - bli_cimag(q__3) * bli_cimag(x[i__2])), (bli_creal(q__3) * bli_cimag(x[i__2]) + bli_cimag(q__3) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); /* L50: */ } i__4 = j; i__2 = j; i__3 = kplus1 + j * a_dim1; - r__1 = a[i__3].real; - q__3.real = r__1 * temp1.real, q__3.imag = r__1 * temp1.imag; - q__2.real = y[i__2].real + q__3.real, q__2.imag = y[i__2].imag + q__3.imag; - q__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - y[i__4].real = q__1.real, y[i__4].imag = q__1.imag; + r__1 = bli_creal(a[i__3]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__3 ); + bli_csets( (bli_creal(y[i__2]) + bli_creal(q__3)), (bli_cimag(y[i__2]) + bli_cimag(q__3)), q__2 ); + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__4] ); /* L60: */ } } else { @@ -349,10 +340,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__4 = jx; - q__1.real = alpha->real * x[i__4].real - alpha->imag * x[i__4].imag, q__1.imag = - alpha->real * x[i__4].imag + alpha->imag * x[i__4].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__4]) - bli_cimag(*alpha) * bli_cimag(x[i__4])), (bli_creal(*alpha) * bli_cimag(x[i__4]) + bli_cimag(*alpha) * bli_creal(x[i__4])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); ix = kx; iy = ky; l = kplus1 - j; @@ -363,17 +353,14 @@ i__4 = iy; i__2 = iy; i__5 = l + i__ + j * a_dim1; - q__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - q__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - q__1.real = y[i__2].real + q__2.real, q__1.imag = y[i__2].imag + q__2.imag; - y[i__4].real = q__1.real, y[i__4].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(a[i__5]) - bli_cimag(temp1) * bli_cimag(a[i__5])), (bli_creal(temp1) * bli_cimag(a[i__5]) + bli_cimag(temp1) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__2]) + bli_creal(q__2)), (bli_cimag(y[i__2]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__4] ); bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__4 = ix; - q__2.real = q__3.real * x[i__4].real - q__3.imag * x[i__4].imag, q__2.imag = - q__3.real * x[i__4].imag + q__3.imag * x[i__4].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__4]) - bli_cimag(q__3) * bli_cimag(x[i__4])), (bli_creal(q__3) * bli_cimag(x[i__4]) + bli_cimag(q__3) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); ix += *incx; iy += *incy; /* L70: */ @@ -381,13 +368,12 @@ i__3 = jy; i__4 = jy; i__2 = kplus1 + j * a_dim1; - r__1 = a[i__2].real; - q__3.real = r__1 * temp1.real, q__3.imag = r__1 * temp1.imag; - q__2.real = y[i__4].real + q__3.real, q__2.imag = y[i__4].imag + q__3.imag; - q__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + r__1 = bli_creal(a[i__2]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__3 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__3)), (bli_cimag(y[i__4]) + bli_cimag(q__3)), q__2 ); + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); jx += *incx; jy += *incy; if (j > *k) { @@ -405,17 +391,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__3 = j; - q__1.real = alpha->real * x[i__3].real - alpha->imag * x[i__3].imag, q__1.imag = - alpha->real * x[i__3].imag + alpha->imag * x[i__3].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__3]) - bli_cimag(*alpha) * bli_cimag(x[i__3])), (bli_creal(*alpha) * bli_cimag(x[i__3]) + bli_cimag(*alpha) * bli_creal(x[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); i__3 = j; i__4 = j; i__2 = j * a_dim1 + 1; - r__1 = a[i__2].real; - q__2.real = r__1 * temp1.real, q__2.imag = r__1 * temp1.imag; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + r__1 = bli_creal(a[i__2]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); l = 1 - j; /* Computing MIN */ i__4 = *n, i__2 = j + *k; @@ -424,25 +409,21 @@ i__4 = i__; i__2 = i__; i__5 = l + i__ + j * a_dim1; - q__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - q__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - q__1.real = y[i__2].real + q__2.real, q__1.imag = y[i__2].imag + q__2.imag; - y[i__4].real = q__1.real, y[i__4].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(a[i__5]) - bli_cimag(temp1) * bli_cimag(a[i__5])), (bli_creal(temp1) * bli_cimag(a[i__5]) + bli_cimag(temp1) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__2]) + bli_creal(q__2)), (bli_cimag(y[i__2]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__4] ); bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__4 = i__; - q__2.real = q__3.real * x[i__4].real - q__3.imag * x[i__4].imag, q__2.imag = - q__3.real * x[i__4].imag + q__3.imag * x[i__4].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__4]) - bli_cimag(q__3) * bli_cimag(x[i__4])), (bli_creal(q__3) * bli_cimag(x[i__4]) + bli_cimag(q__3) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); /* L90: */ } i__3 = j; i__4 = j; - q__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); /* L100: */ } } else { @@ -451,17 +432,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__3 = jx; - q__1.real = alpha->real * x[i__3].real - alpha->imag * x[i__3].imag, q__1.imag = - alpha->real * x[i__3].imag + alpha->imag * x[i__3].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__3]) - bli_cimag(*alpha) * bli_cimag(x[i__3])), (bli_creal(*alpha) * bli_cimag(x[i__3]) + bli_cimag(*alpha) * bli_creal(x[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); i__3 = jy; i__4 = jy; i__2 = j * a_dim1 + 1; - r__1 = a[i__2].real; - q__2.real = r__1 * temp1.real, q__2.imag = r__1 * temp1.imag; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + r__1 = bli_creal(a[i__2]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); l = 1 - j; ix = jx; iy = jy; @@ -474,25 +454,21 @@ i__4 = iy; i__2 = iy; i__5 = l + i__ + j * a_dim1; - q__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - q__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - q__1.real = y[i__2].real + q__2.real, q__1.imag = y[i__2].imag + q__2.imag; - y[i__4].real = q__1.real, y[i__4].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(a[i__5]) - bli_cimag(temp1) * bli_cimag(a[i__5])), (bli_creal(temp1) * bli_cimag(a[i__5]) + bli_cimag(temp1) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__2]) + bli_creal(q__2)), (bli_cimag(y[i__2]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__4] ); bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__4 = ix; - q__2.real = q__3.real * x[i__4].real - q__3.imag * x[i__4].imag, q__2.imag = - q__3.real * x[i__4].imag + q__3.imag * x[i__4].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__4]) - bli_cimag(q__3) * bli_cimag(x[i__4])), (bli_creal(q__3) * bli_cimag(x[i__4]) + bli_cimag(q__3) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); /* L110: */ } i__3 = jy; i__4 = jy; - q__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); jx += *incx; jy += *incy; /* L120: */ @@ -695,8 +671,8 @@ /* Quick return if possible. */ - if (*n == 0 || (alpha->real == 0. && alpha->imag == 0. && (beta->real == 1. && - beta->imag == 0.))) { + if (*n == 0 || (bli_zreal(*alpha) == 0. && bli_zimag(*alpha) == 0. && (bli_zreal(*beta) == 1. && + bli_zimag(*beta) == 0.))) { return 0; } @@ -718,13 +694,13 @@ /* First form y := beta*y. */ - if (beta->real != 1. || beta->imag != 0.) { + if (bli_zreal(*beta) != 1. || bli_zimag(*beta) != 0.) { if (*incy == 1) { - if (beta->real == 0. && beta->imag == 0.) { + if (bli_zreal(*beta) == 0. && bli_zimag(*beta) == 0.) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - y[i__2].real = 0., y[i__2].imag = 0.; + bli_zsets( (0.), (0.), y[i__2] ); /* L10: */ } } else { @@ -732,20 +708,18 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; i__3 = i__; - z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*beta) * bli_zreal(y[i__3]) - bli_zimag(*beta) * bli_zimag(y[i__3])), (bli_zreal(*beta) * bli_zimag(y[i__3]) + bli_zimag(*beta) * bli_zreal(y[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); /* L20: */ } } } else { iy = ky; - if (beta->real == 0. && beta->imag == 0.) { + if (bli_zreal(*beta) == 0. && bli_zimag(*beta) == 0.) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; - y[i__2].real = 0., y[i__2].imag = 0.; + bli_zsets( (0.), (0.), y[i__2] ); iy += *incy; /* L30: */ } @@ -754,17 +728,15 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; i__3 = iy; - z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*beta) * bli_zreal(y[i__3]) - bli_zimag(*beta) * bli_zimag(y[i__3])), (bli_zreal(*beta) * bli_zimag(y[i__3]) + bli_zimag(*beta) * bli_zreal(y[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); iy += *incy; /* L40: */ } } } } - if (alpha->real == 0. && alpha->imag == 0.) { + if (bli_zreal(*alpha) == 0. && bli_zimag(*alpha) == 0.) { return 0; } if (PASTEF770(lsame)(uplo, "U", (ftnlen)1, (ftnlen)1)) { @@ -776,10 +748,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - z__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, z__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); l = kplus1 - j; /* Computing MAX */ i__2 = 1, i__3 = j - *k; @@ -788,29 +759,25 @@ i__2 = i__; i__3 = i__; i__5 = l + i__ + j * a_dim1; - z__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - z__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + z__2.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(a[i__5]) - bli_zimag(temp1) * bli_zimag(a[i__5])), (bli_zreal(temp1) * bli_zimag(a[i__5]) + bli_zimag(temp1) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__2)), (bli_zimag(y[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__2 = i__; - z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag, z__2.imag = - z__3.real * x[i__2].imag + z__3.imag * x[i__2].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__2]) - bli_zimag(z__3) * bli_zimag(x[i__2])), (bli_zreal(z__3) * bli_zimag(x[i__2]) + bli_zimag(z__3) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); /* L50: */ } i__4 = j; i__2 = j; i__3 = kplus1 + j * a_dim1; - d__1 = a[i__3].real; - z__3.real = d__1 * temp1.real, z__3.imag = d__1 * temp1.imag; - z__2.real = y[i__2].real + z__3.real, z__2.imag = y[i__2].imag + z__3.imag; - z__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - y[i__4].real = z__1.real, y[i__4].imag = z__1.imag; + d__1 = bli_zreal(a[i__3]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__3 ); + bli_zsets( (bli_zreal(y[i__2]) + bli_zreal(z__3)), (bli_zimag(y[i__2]) + bli_zimag(z__3)), z__2 ); + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__4] ); /* L60: */ } } else { @@ -819,10 +786,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__4 = jx; - z__1.real = alpha->real * x[i__4].real - alpha->imag * x[i__4].imag, z__1.imag = - alpha->real * x[i__4].imag + alpha->imag * x[i__4].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__4]) - bli_zimag(*alpha) * bli_zimag(x[i__4])), (bli_zreal(*alpha) * bli_zimag(x[i__4]) + bli_zimag(*alpha) * bli_zreal(x[i__4])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); ix = kx; iy = ky; l = kplus1 - j; @@ -833,17 +799,14 @@ i__4 = iy; i__2 = iy; i__5 = l + i__ + j * a_dim1; - z__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - z__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - z__1.real = y[i__2].real + z__2.real, z__1.imag = y[i__2].imag + z__2.imag; - y[i__4].real = z__1.real, y[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(a[i__5]) - bli_zimag(temp1) * bli_zimag(a[i__5])), (bli_zreal(temp1) * bli_zimag(a[i__5]) + bli_zimag(temp1) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__2]) + bli_zreal(z__2)), (bli_zimag(y[i__2]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__4] ); bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__4 = ix; - z__2.real = z__3.real * x[i__4].real - z__3.imag * x[i__4].imag, z__2.imag = - z__3.real * x[i__4].imag + z__3.imag * x[i__4].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__4]) - bli_zimag(z__3) * bli_zimag(x[i__4])), (bli_zreal(z__3) * bli_zimag(x[i__4]) + bli_zimag(z__3) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); ix += *incx; iy += *incy; /* L70: */ @@ -851,13 +814,12 @@ i__3 = jy; i__4 = jy; i__2 = kplus1 + j * a_dim1; - d__1 = a[i__2].real; - z__3.real = d__1 * temp1.real, z__3.imag = d__1 * temp1.imag; - z__2.real = y[i__4].real + z__3.real, z__2.imag = y[i__4].imag + z__3.imag; - z__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + d__1 = bli_zreal(a[i__2]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__3 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__3)), (bli_zimag(y[i__4]) + bli_zimag(z__3)), z__2 ); + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); jx += *incx; jy += *incy; if (j > *k) { @@ -875,17 +837,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__3 = j; - z__1.real = alpha->real * x[i__3].real - alpha->imag * x[i__3].imag, z__1.imag = - alpha->real * x[i__3].imag + alpha->imag * x[i__3].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__3]) - bli_zimag(*alpha) * bli_zimag(x[i__3])), (bli_zreal(*alpha) * bli_zimag(x[i__3]) + bli_zimag(*alpha) * bli_zreal(x[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); i__3 = j; i__4 = j; i__2 = j * a_dim1 + 1; - d__1 = a[i__2].real; - z__2.real = d__1 * temp1.real, z__2.imag = d__1 * temp1.imag; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + d__1 = bli_zreal(a[i__2]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); l = 1 - j; /* Computing MIN */ i__4 = *n, i__2 = j + *k; @@ -894,25 +855,21 @@ i__4 = i__; i__2 = i__; i__5 = l + i__ + j * a_dim1; - z__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - z__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - z__1.real = y[i__2].real + z__2.real, z__1.imag = y[i__2].imag + z__2.imag; - y[i__4].real = z__1.real, y[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(a[i__5]) - bli_zimag(temp1) * bli_zimag(a[i__5])), (bli_zreal(temp1) * bli_zimag(a[i__5]) + bli_zimag(temp1) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__2]) + bli_zreal(z__2)), (bli_zimag(y[i__2]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__4] ); bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__4 = i__; - z__2.real = z__3.real * x[i__4].real - z__3.imag * x[i__4].imag, z__2.imag = - z__3.real * x[i__4].imag + z__3.imag * x[i__4].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__4]) - bli_zimag(z__3) * bli_zimag(x[i__4])), (bli_zreal(z__3) * bli_zimag(x[i__4]) + bli_zimag(z__3) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); /* L90: */ } i__3 = j; i__4 = j; - z__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); /* L100: */ } } else { @@ -921,17 +878,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__3 = jx; - z__1.real = alpha->real * x[i__3].real - alpha->imag * x[i__3].imag, z__1.imag = - alpha->real * x[i__3].imag + alpha->imag * x[i__3].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__3]) - bli_zimag(*alpha) * bli_zimag(x[i__3])), (bli_zreal(*alpha) * bli_zimag(x[i__3]) + bli_zimag(*alpha) * bli_zreal(x[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); i__3 = jy; i__4 = jy; i__2 = j * a_dim1 + 1; - d__1 = a[i__2].real; - z__2.real = d__1 * temp1.real, z__2.imag = d__1 * temp1.imag; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + d__1 = bli_zreal(a[i__2]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); l = 1 - j; ix = jx; iy = jy; @@ -944,25 +900,21 @@ i__4 = iy; i__2 = iy; i__5 = l + i__ + j * a_dim1; - z__2.real = temp1.real * a[i__5].real - temp1.imag * a[i__5].imag, - z__2.imag = temp1.real * a[i__5].imag + temp1.imag * a[i__5] - .real; - z__1.real = y[i__2].real + z__2.real, z__1.imag = y[i__2].imag + z__2.imag; - y[i__4].real = z__1.real, y[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(a[i__5]) - bli_zimag(temp1) * bli_zimag(a[i__5])), (bli_zreal(temp1) * bli_zimag(a[i__5]) + bli_zimag(temp1) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__2]) + bli_zreal(z__2)), (bli_zimag(y[i__2]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__4] ); bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__4 = ix; - z__2.real = z__3.real * x[i__4].real - z__3.imag * x[i__4].imag, z__2.imag = - z__3.real * x[i__4].imag + z__3.imag * x[i__4].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__4]) - bli_zimag(z__3) * bli_zimag(x[i__4])), (bli_zreal(z__3) * bli_zimag(x[i__4]) + bli_zimag(z__3) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); /* L110: */ } i__3 = jy; i__4 = jy; - z__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); jx += *incx; jy += *incy; /* L120: */ diff --git a/frame/compat/f2c/bla_hpmv.c b/frame/compat/f2c/bla_hpmv.c index bc25fb50a..d42e29370 100644 --- a/frame/compat/f2c/bla_hpmv.c +++ b/frame/compat/f2c/bla_hpmv.c @@ -185,8 +185,8 @@ /* Quick return if possible. */ - if (*n == 0 || (alpha->real == 0.f && alpha->imag == 0.f && (beta->real == 1.f && - beta->imag == 0.f))) { + if (*n == 0 || (bli_creal(*alpha) == 0.f && bli_cimag(*alpha) == 0.f && (bli_creal(*beta) == 1.f && + bli_cimag(*beta) == 0.f))) { return 0; } @@ -208,13 +208,13 @@ /* First form y := beta*y. */ - if (beta->real != 1.f || beta->imag != 0.f) { + if (bli_creal(*beta) != 1.f || bli_cimag(*beta) != 0.f) { if (*incy == 1) { - if (beta->real == 0.f && beta->imag == 0.f) { + if (bli_creal(*beta) == 0.f && bli_cimag(*beta) == 0.f) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - y[i__2].real = 0.f, y[i__2].imag = 0.f; + bli_csets( (0.f), (0.f), y[i__2] ); /* L10: */ } } else { @@ -222,20 +222,18 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; i__3 = i__; - q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*beta) * bli_creal(y[i__3]) - bli_cimag(*beta) * bli_cimag(y[i__3])), (bli_creal(*beta) * bli_cimag(y[i__3]) + bli_cimag(*beta) * bli_creal(y[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); /* L20: */ } } } else { iy = ky; - if (beta->real == 0.f && beta->imag == 0.f) { + if (bli_creal(*beta) == 0.f && bli_cimag(*beta) == 0.f) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; - y[i__2].real = 0.f, y[i__2].imag = 0.f; + bli_csets( (0.f), (0.f), y[i__2] ); iy += *incy; /* L30: */ } @@ -244,17 +242,15 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; i__3 = iy; - q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*beta) * bli_creal(y[i__3]) - bli_cimag(*beta) * bli_cimag(y[i__3])), (bli_creal(*beta) * bli_cimag(y[i__3]) + bli_cimag(*beta) * bli_creal(y[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); iy += *incy; /* L40: */ } } } } - if (alpha->real == 0.f && alpha->imag == 0.f) { + if (bli_creal(*alpha) == 0.f && bli_cimag(*alpha) == 0.f) { return 0; } kk = 1; @@ -266,40 +262,35 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - q__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, q__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - q__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - q__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(ap[i__5]) - bli_cimag(temp1) * bli_cimag(ap[i__5])), (bli_creal(temp1) * bli_cimag(ap[i__5]) + bli_cimag(temp1) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); bla_r_cnjg(&q__3, &ap[k]); i__3 = i__; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, q__2.imag = - q__3.real * x[i__3].imag + q__3.imag * x[i__3].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); ++k; /* L50: */ } i__2 = j; i__3 = j; i__4 = kk + j - 1; - r__1 = ap[i__4].real; - q__3.real = r__1 * temp1.real, q__3.imag = r__1 * temp1.imag; - q__2.real = y[i__3].real + q__3.real, q__2.imag = y[i__3].imag + q__3.imag; - q__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + r__1 = bli_creal(ap[i__4]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__3 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__3)), (bli_cimag(y[i__3]) + bli_cimag(q__3)), q__2 ); + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); kk += j; /* L60: */ } @@ -309,10 +300,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - q__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, q__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); ix = kx; iy = ky; i__2 = kk + j - 2; @@ -320,17 +310,14 @@ i__3 = iy; i__4 = iy; i__5 = k; - q__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - q__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(ap[i__5]) - bli_cimag(temp1) * bli_cimag(ap[i__5])), (bli_creal(temp1) * bli_cimag(ap[i__5]) + bli_cimag(temp1) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); bla_r_cnjg(&q__3, &ap[k]); i__3 = ix; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, q__2.imag = - q__3.real * x[i__3].imag + q__3.imag * x[i__3].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); ix += *incx; iy += *incy; /* L70: */ @@ -338,13 +325,12 @@ i__2 = jy; i__3 = jy; i__4 = kk + j - 1; - r__1 = ap[i__4].real; - q__3.real = r__1 * temp1.real, q__3.imag = r__1 * temp1.imag; - q__2.real = y[i__3].real + q__3.real, q__2.imag = y[i__3].imag + q__3.imag; - q__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + r__1 = bli_creal(ap[i__4]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__3 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__3)), (bli_cimag(y[i__3]) + bli_cimag(q__3)), q__2 ); + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); jx += *incx; jy += *incy; kk += j; @@ -359,43 +345,38 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - q__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, q__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); i__2 = j; i__3 = j; i__4 = kk; - r__1 = ap[i__4].real; - q__2.real = r__1 * temp1.real, q__2.imag = r__1 * temp1.imag; - q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + q__2.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + r__1 = bli_creal(ap[i__4]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__2 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__2)), (bli_cimag(y[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - q__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - q__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(ap[i__5]) - bli_cimag(temp1) * bli_cimag(ap[i__5])), (bli_creal(temp1) * bli_cimag(ap[i__5]) + bli_cimag(temp1) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); bla_r_cnjg(&q__3, &ap[k]); i__3 = i__; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, q__2.imag = - q__3.real * x[i__3].imag + q__3.imag * x[i__3].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); ++k; /* L90: */ } i__2 = j; i__3 = j; - q__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + q__2.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__2 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__2)), (bli_cimag(y[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); kk += *n - j + 1; /* L100: */ } @@ -405,17 +386,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - q__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, q__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = q__1.real, temp1.imag = q__1.imag; - temp2.real = 0.f, temp2.imag = 0.f; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); + bli_csets( (0.f), (0.f), temp2 ); i__2 = jy; i__3 = jy; i__4 = kk; - r__1 = ap[i__4].real; - q__2.real = r__1 * temp1.real, q__2.imag = r__1 * temp1.imag; - q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + q__2.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + r__1 = bli_creal(ap[i__4]); + bli_csets( (r__1 * bli_creal(temp1)), (r__1 * bli_cimag(temp1)), q__2 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__2)), (bli_cimag(y[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); ix = jx; iy = jy; i__2 = kk + *n - j; @@ -425,25 +405,21 @@ i__3 = iy; i__4 = iy; i__5 = k; - q__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - q__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - q__1.real = y[i__4].real + q__2.real, q__1.imag = y[i__4].imag + q__2.imag; - y[i__3].real = q__1.real, y[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp1) * bli_creal(ap[i__5]) - bli_cimag(temp1) * bli_cimag(ap[i__5])), (bli_creal(temp1) * bli_cimag(ap[i__5]) + bli_cimag(temp1) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(y[i__4]) + bli_creal(q__2)), (bli_cimag(y[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__3] ); bla_r_cnjg(&q__3, &ap[k]); i__3 = ix; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, q__2.imag = - q__3.real * x[i__3].imag + q__3.imag * x[i__3].real; - q__1.real = temp2.real + q__2.real, q__1.imag = temp2.imag + q__2.imag; - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp2) + bli_creal(q__2)), (bli_cimag(temp2) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); /* L110: */ } i__2 = jy; i__3 = jy; - q__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, q__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + q__2.imag; - y[i__2].real = q__1.real, y[i__2].imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(temp2) - bli_cimag(*alpha) * bli_cimag(temp2)), (bli_creal(*alpha) * bli_cimag(temp2) + bli_cimag(*alpha) * bli_creal(temp2)), q__2 ); + bli_csets( (bli_creal(y[i__3]) + bli_creal(q__2)), (bli_cimag(y[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), y[i__2] ); jx += *incx; jy += *incy; kk += *n - j + 1; @@ -607,8 +583,8 @@ /* Quick return if possible. */ - if (*n == 0 || (alpha->real == 0. && alpha->imag == 0. && (beta->real == 1. && - beta->imag == 0.))) { + if (*n == 0 || (bli_zreal(*alpha) == 0. && bli_zimag(*alpha) == 0. && (bli_zreal(*beta) == 1. && + bli_zimag(*beta) == 0.))) { return 0; } @@ -630,13 +606,13 @@ /* First form y := beta*y. */ - if (beta->real != 1. || beta->imag != 0.) { + if (bli_zreal(*beta) != 1. || bli_zimag(*beta) != 0.) { if (*incy == 1) { - if (beta->real == 0. && beta->imag == 0.) { + if (bli_zreal(*beta) == 0. && bli_zimag(*beta) == 0.) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - y[i__2].real = 0., y[i__2].imag = 0.; + bli_zsets( (0.), (0.), y[i__2] ); /* L10: */ } } else { @@ -644,20 +620,18 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; i__3 = i__; - z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*beta) * bli_zreal(y[i__3]) - bli_zimag(*beta) * bli_zimag(y[i__3])), (bli_zreal(*beta) * bli_zimag(y[i__3]) + bli_zimag(*beta) * bli_zreal(y[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); /* L20: */ } } } else { iy = ky; - if (beta->real == 0. && beta->imag == 0.) { + if (bli_zreal(*beta) == 0. && bli_zimag(*beta) == 0.) { i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; - y[i__2].real = 0., y[i__2].imag = 0.; + bli_zsets( (0.), (0.), y[i__2] ); iy += *incy; /* L30: */ } @@ -666,17 +640,15 @@ for (i__ = 1; i__ <= i__1; ++i__) { i__2 = iy; i__3 = iy; - z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag, - z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3] - .real; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*beta) * bli_zreal(y[i__3]) - bli_zimag(*beta) * bli_zimag(y[i__3])), (bli_zreal(*beta) * bli_zimag(y[i__3]) + bli_zimag(*beta) * bli_zreal(y[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); iy += *incy; /* L40: */ } } } } - if (alpha->real == 0. && alpha->imag == 0.) { + if (bli_zreal(*alpha) == 0. && bli_zimag(*alpha) == 0.) { return 0; } kk = 1; @@ -688,40 +660,35 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - z__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, z__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - z__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - z__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(ap[i__5]) - bli_zimag(temp1) * bli_zimag(ap[i__5])), (bli_zreal(temp1) * bli_zimag(ap[i__5]) + bli_zimag(temp1) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); bla_d_cnjg(&z__3, &ap[k]); i__3 = i__; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, z__2.imag = - z__3.real * x[i__3].imag + z__3.imag * x[i__3].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); ++k; /* L50: */ } i__2 = j; i__3 = j; i__4 = kk + j - 1; - d__1 = ap[i__4].real; - z__3.real = d__1 * temp1.real, z__3.imag = d__1 * temp1.imag; - z__2.real = y[i__3].real + z__3.real, z__2.imag = y[i__3].imag + z__3.imag; - z__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + d__1 = bli_zreal(ap[i__4]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__3 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__3)), (bli_zimag(y[i__3]) + bli_zimag(z__3)), z__2 ); + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); kk += j; /* L60: */ } @@ -731,10 +698,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - z__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, z__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); ix = kx; iy = ky; i__2 = kk + j - 2; @@ -742,17 +708,14 @@ i__3 = iy; i__4 = iy; i__5 = k; - z__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - z__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(ap[i__5]) - bli_zimag(temp1) * bli_zimag(ap[i__5])), (bli_zreal(temp1) * bli_zimag(ap[i__5]) + bli_zimag(temp1) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); bla_d_cnjg(&z__3, &ap[k]); i__3 = ix; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, z__2.imag = - z__3.real * x[i__3].imag + z__3.imag * x[i__3].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); ix += *incx; iy += *incy; /* L70: */ @@ -760,13 +723,12 @@ i__2 = jy; i__3 = jy; i__4 = kk + j - 1; - d__1 = ap[i__4].real; - z__3.real = d__1 * temp1.real, z__3.imag = d__1 * temp1.imag; - z__2.real = y[i__3].real + z__3.real, z__2.imag = y[i__3].imag + z__3.imag; - z__4.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__4.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + d__1 = bli_zreal(ap[i__4]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__3 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__3)), (bli_zimag(y[i__3]) + bli_zimag(z__3)), z__2 ); + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); jx += *incx; jy += *incy; kk += j; @@ -781,43 +743,38 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - z__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, z__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); i__2 = j; i__3 = j; i__4 = kk; - d__1 = ap[i__4].real; - z__2.real = d__1 * temp1.real, z__2.imag = d__1 * temp1.imag; - z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + z__2.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + d__1 = bli_zreal(ap[i__4]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__2 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__2)), (bli_zimag(y[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - z__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - z__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(ap[i__5]) - bli_zimag(temp1) * bli_zimag(ap[i__5])), (bli_zreal(temp1) * bli_zimag(ap[i__5]) + bli_zimag(temp1) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); bla_d_cnjg(&z__3, &ap[k]); i__3 = i__; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, z__2.imag = - z__3.real * x[i__3].imag + z__3.imag * x[i__3].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); ++k; /* L90: */ } i__2 = j; i__3 = j; - z__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + z__2.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__2 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__2)), (bli_zimag(y[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); kk += *n - j + 1; /* L100: */ } @@ -827,17 +784,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - z__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, z__1.imag = - alpha->real * x[i__2].imag + alpha->imag * x[i__2].real; - temp1.real = z__1.real, temp1.imag = z__1.imag; - temp2.real = 0., temp2.imag = 0.; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); + bli_zsets( (0.), (0.), temp2 ); i__2 = jy; i__3 = jy; i__4 = kk; - d__1 = ap[i__4].real; - z__2.real = d__1 * temp1.real, z__2.imag = d__1 * temp1.imag; - z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + z__2.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + d__1 = bli_zreal(ap[i__4]); + bli_zsets( (d__1 * bli_zreal(temp1)), (d__1 * bli_zimag(temp1)), z__2 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__2)), (bli_zimag(y[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); ix = jx; iy = jy; i__2 = kk + *n - j; @@ -847,25 +803,21 @@ i__3 = iy; i__4 = iy; i__5 = k; - z__2.real = temp1.real * ap[i__5].real - temp1.imag * ap[i__5].imag, - z__2.imag = temp1.real * ap[i__5].imag + temp1.imag * ap[i__5] - .real; - z__1.real = y[i__4].real + z__2.real, z__1.imag = y[i__4].imag + z__2.imag; - y[i__3].real = z__1.real, y[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp1) * bli_zreal(ap[i__5]) - bli_zimag(temp1) * bli_zimag(ap[i__5])), (bli_zreal(temp1) * bli_zimag(ap[i__5]) + bli_zimag(temp1) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(y[i__4]) + bli_zreal(z__2)), (bli_zimag(y[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__3] ); bla_d_cnjg(&z__3, &ap[k]); i__3 = ix; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, z__2.imag = - z__3.real * x[i__3].imag + z__3.imag * x[i__3].real; - z__1.real = temp2.real + z__2.real, z__1.imag = temp2.imag + z__2.imag; - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp2) + bli_zreal(z__2)), (bli_zimag(temp2) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); /* L110: */ } i__2 = jy; i__3 = jy; - z__2.real = alpha->real * temp2.real - alpha->imag * temp2.imag, z__2.imag = - alpha->real * temp2.imag + alpha->imag * temp2.real; - z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + z__2.imag; - y[i__2].real = z__1.real, y[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(temp2) - bli_zimag(*alpha) * bli_zimag(temp2)), (bli_zreal(*alpha) * bli_zimag(temp2) + bli_zimag(*alpha) * bli_zreal(temp2)), z__2 ); + bli_zsets( (bli_zreal(y[i__3]) + bli_zreal(z__2)), (bli_zimag(y[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), y[i__2] ); jx += *incx; jy += *incy; kk += *n - j + 1; diff --git a/frame/compat/f2c/bla_hpr.c b/frame/compat/f2c/bla_hpr.c index 4ac9ba7a7..3242e7454 100644 --- a/frame/compat/f2c/bla_hpr.c +++ b/frame/compat/f2c/bla_hpr.c @@ -194,37 +194,33 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { bla_r_cnjg(&q__2, &x[j]); - q__1.real = *alpha * q__2.real, q__1.imag = *alpha * q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (*alpha * bli_creal(q__2)), (*alpha * bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - q__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - q__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - q__1.real = ap[i__4].real + q__2.real, q__1.imag = ap[i__4].imag + - q__2.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp) - bli_cimag(x[i__5]) * bli_cimag(temp)), (bli_creal(x[i__5]) * bli_cimag(temp) + bli_cimag(x[i__5]) * bli_creal(temp)), q__2 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__2)), (bli_cimag(ap[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); ++k; /* L10: */ } i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = j; - q__1.real = x[i__4].real * temp.real - x[i__4].imag * temp.imag, q__1.imag = - x[i__4].real * temp.imag + x[i__4].imag * temp.real; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(x[i__4]) * bli_creal(temp) - bli_cimag(x[i__4]) * bli_cimag(temp)), (bli_creal(x[i__4]) * bli_cimag(temp) + bli_cimag(x[i__4]) * bli_creal(temp)), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } kk += j; /* L20: */ @@ -234,37 +230,33 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { bla_r_cnjg(&q__2, &x[jx]); - q__1.real = *alpha * q__2.real, q__1.imag = *alpha * q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (*alpha * bli_creal(q__2)), (*alpha * bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix = kx; i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { i__3 = k; i__4 = k; i__5 = ix; - q__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - q__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - q__1.real = ap[i__4].real + q__2.real, q__1.imag = ap[i__4].imag + - q__2.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp) - bli_cimag(x[i__5]) * bli_cimag(temp)), (bli_creal(x[i__5]) * bli_cimag(temp) + bli_cimag(x[i__5]) * bli_creal(temp)), q__2 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__2)), (bli_cimag(ap[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); ix += *incx; /* L30: */ } i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = jx; - q__1.real = x[i__4].real * temp.real - x[i__4].imag * temp.imag, q__1.imag = - x[i__4].real * temp.imag + x[i__4].imag * temp.real; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(x[i__4]) * bli_creal(temp) - bli_cimag(x[i__4]) * bli_cimag(temp)), (bli_creal(x[i__4]) * bli_cimag(temp) + bli_cimag(x[i__4]) * bli_creal(temp)), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } jx += *incx; kk += j; @@ -279,37 +271,33 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { bla_r_cnjg(&q__2, &x[j]); - q__1.real = *alpha * q__2.real, q__1.imag = *alpha * q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (*alpha * bli_creal(q__2)), (*alpha * bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); i__2 = kk; i__3 = kk; i__4 = j; - q__1.real = temp.real * x[i__4].real - temp.imag * x[i__4].imag, q__1.imag = - temp.real * x[i__4].imag + temp.imag * x[i__4].real; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(temp) * bli_creal(x[i__4]) - bli_cimag(temp) * bli_cimag(x[i__4])), (bli_creal(temp) * bli_cimag(x[i__4]) + bli_cimag(temp) * bli_creal(x[i__4])), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - q__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - q__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - q__1.real = ap[i__4].real + q__2.real, q__1.imag = ap[i__4].imag + - q__2.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp) - bli_cimag(x[i__5]) * bli_cimag(temp)), (bli_creal(x[i__5]) * bli_cimag(temp) + bli_cimag(x[i__5]) * bli_creal(temp)), q__2 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__2)), (bli_cimag(ap[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); ++k; /* L50: */ } } else { i__2 = kk; i__3 = kk; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } kk = kk + *n - j + 1; /* L60: */ @@ -319,17 +307,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { bla_r_cnjg(&q__2, &x[jx]); - q__1.real = *alpha * q__2.real, q__1.imag = *alpha * q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (*alpha * bli_creal(q__2)), (*alpha * bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); i__2 = kk; i__3 = kk; i__4 = jx; - q__1.real = temp.real * x[i__4].real - temp.imag * x[i__4].imag, q__1.imag = - temp.real * x[i__4].imag + temp.imag * x[i__4].real; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(temp) * bli_creal(x[i__4]) - bli_cimag(temp) * bli_cimag(x[i__4])), (bli_creal(temp) * bli_cimag(x[i__4]) + bli_cimag(temp) * bli_creal(x[i__4])), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); ix = jx; i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { @@ -337,19 +324,16 @@ i__3 = k; i__4 = k; i__5 = ix; - q__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - q__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - q__1.real = ap[i__4].real + q__2.real, q__1.imag = ap[i__4].imag + - q__2.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp) - bli_cimag(x[i__5]) * bli_cimag(temp)), (bli_creal(x[i__5]) * bli_cimag(temp) + bli_cimag(x[i__5]) * bli_creal(temp)), q__2 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__2)), (bli_cimag(ap[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); /* L70: */ } } else { i__2 = kk; i__3 = kk; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } jx += *incx; kk = kk + *n - j + 1; @@ -522,37 +506,33 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { bla_d_cnjg(&z__2, &x[j]); - z__1.real = *alpha * z__2.real, z__1.imag = *alpha * z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (*alpha * bli_zreal(z__2)), (*alpha * bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - z__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - z__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - z__1.real = ap[i__4].real + z__2.real, z__1.imag = ap[i__4].imag + - z__2.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp) - bli_zimag(x[i__5]) * bli_zimag(temp)), (bli_zreal(x[i__5]) * bli_zimag(temp) + bli_zimag(x[i__5]) * bli_zreal(temp)), z__2 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__2)), (bli_zimag(ap[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); ++k; /* L10: */ } i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = j; - z__1.real = x[i__4].real * temp.real - x[i__4].imag * temp.imag, z__1.imag = - x[i__4].real * temp.imag + x[i__4].imag * temp.real; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(temp) - bli_zimag(x[i__4]) * bli_zimag(temp)), (bli_zreal(x[i__4]) * bli_zimag(temp) + bli_zimag(x[i__4]) * bli_zreal(temp)), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } kk += j; /* L20: */ @@ -562,37 +542,33 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { bla_d_cnjg(&z__2, &x[jx]); - z__1.real = *alpha * z__2.real, z__1.imag = *alpha * z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (*alpha * bli_zreal(z__2)), (*alpha * bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix = kx; i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { i__3 = k; i__4 = k; i__5 = ix; - z__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - z__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - z__1.real = ap[i__4].real + z__2.real, z__1.imag = ap[i__4].imag + - z__2.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp) - bli_zimag(x[i__5]) * bli_zimag(temp)), (bli_zreal(x[i__5]) * bli_zimag(temp) + bli_zimag(x[i__5]) * bli_zreal(temp)), z__2 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__2)), (bli_zimag(ap[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); ix += *incx; /* L30: */ } i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = jx; - z__1.real = x[i__4].real * temp.real - x[i__4].imag * temp.imag, z__1.imag = - x[i__4].real * temp.imag + x[i__4].imag * temp.real; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(temp) - bli_zimag(x[i__4]) * bli_zimag(temp)), (bli_zreal(x[i__4]) * bli_zimag(temp) + bli_zimag(x[i__4]) * bli_zreal(temp)), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } jx += *incx; kk += j; @@ -607,37 +583,33 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { bla_d_cnjg(&z__2, &x[j]); - z__1.real = *alpha * z__2.real, z__1.imag = *alpha * z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (*alpha * bli_zreal(z__2)), (*alpha * bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); i__2 = kk; i__3 = kk; i__4 = j; - z__1.real = temp.real * x[i__4].real - temp.imag * x[i__4].imag, z__1.imag = - temp.real * x[i__4].imag + temp.imag * x[i__4].real; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(temp) * bli_zreal(x[i__4]) - bli_zimag(temp) * bli_zimag(x[i__4])), (bli_zreal(temp) * bli_zimag(x[i__4]) + bli_zimag(temp) * bli_zreal(x[i__4])), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - z__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - z__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - z__1.real = ap[i__4].real + z__2.real, z__1.imag = ap[i__4].imag + - z__2.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp) - bli_zimag(x[i__5]) * bli_zimag(temp)), (bli_zreal(x[i__5]) * bli_zimag(temp) + bli_zimag(x[i__5]) * bli_zreal(temp)), z__2 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__2)), (bli_zimag(ap[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); ++k; /* L50: */ } } else { i__2 = kk; i__3 = kk; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } kk = kk + *n - j + 1; /* L60: */ @@ -647,17 +619,16 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { bla_d_cnjg(&z__2, &x[jx]); - z__1.real = *alpha * z__2.real, z__1.imag = *alpha * z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (*alpha * bli_zreal(z__2)), (*alpha * bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); i__2 = kk; i__3 = kk; i__4 = jx; - z__1.real = temp.real * x[i__4].real - temp.imag * x[i__4].imag, z__1.imag = - temp.real * x[i__4].imag + temp.imag * x[i__4].real; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(temp) * bli_zreal(x[i__4]) - bli_zimag(temp) * bli_zimag(x[i__4])), (bli_zreal(temp) * bli_zimag(x[i__4]) + bli_zimag(temp) * bli_zreal(x[i__4])), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); ix = jx; i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { @@ -665,19 +636,16 @@ i__3 = k; i__4 = k; i__5 = ix; - z__2.real = x[i__5].real * temp.real - x[i__5].imag * temp.imag, - z__2.imag = x[i__5].real * temp.imag + x[i__5].imag * - temp.real; - z__1.real = ap[i__4].real + z__2.real, z__1.imag = ap[i__4].imag + - z__2.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp) - bli_zimag(x[i__5]) * bli_zimag(temp)), (bli_zreal(x[i__5]) * bli_zimag(temp) + bli_zimag(x[i__5]) * bli_zreal(temp)), z__2 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__2)), (bli_zimag(ap[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); /* L70: */ } } else { i__2 = kk; i__3 = kk; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } jx += *incx; kk = kk + *n - j + 1; diff --git a/frame/compat/f2c/bla_hpr2.c b/frame/compat/f2c/bla_hpr2.c index bbeb5f8b8..fe7e728e3 100644 --- a/frame/compat/f2c/bla_hpr2.c +++ b/frame/compat/f2c/bla_hpr2.c @@ -184,7 +184,7 @@ /* Quick return if possible. */ - if (*n == 0 || (alpha->real == 0.f && alpha->imag == 0.f)) { + if (*n == 0 || (bli_creal(*alpha) == 0.f && bli_cimag(*alpha) == 0.f)) { return 0; } @@ -219,56 +219,44 @@ for (j = 1; j <= i__1; ++j) { i__2 = j; i__3 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f || (y[i__3].real != 0.f - || y[i__3].imag != 0.f)) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f || (bli_creal(y[i__3]) != 0.f + || bli_cimag(y[i__3]) != 0.f)) { bla_r_cnjg(&q__2, &y[j]); - q__1.real = alpha->real * q__2.real - alpha->imag * q__2.imag, q__1.imag = - alpha->real * q__2.imag + alpha->imag * q__2.real; - temp1.real = q__1.real, temp1.imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(q__2) - bli_cimag(*alpha) * bli_cimag(q__2)), (bli_creal(*alpha) * bli_cimag(q__2) + bli_cimag(*alpha) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); i__2 = j; - q__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - q__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__2 ); bla_r_cnjg(&q__1, &q__2); - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - q__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - q__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - q__2.real = ap[i__4].real + q__3.real, q__2.imag = ap[i__4].imag + - q__3.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp1) - bli_cimag(x[i__5]) * bli_cimag(temp1)), (bli_creal(x[i__5]) * bli_cimag(temp1) + bli_cimag(x[i__5]) * bli_creal(temp1)), q__3 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__3)), (bli_cimag(ap[i__4]) + bli_cimag(q__3)), q__2 ); i__6 = i__; - q__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - q__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(y[i__6]) * bli_creal(temp2) - bli_cimag(y[i__6]) * bli_cimag(temp2)), (bli_creal(y[i__6]) * bli_cimag(temp2) + bli_cimag(y[i__6]) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); ++k; /* L10: */ } i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = j; - q__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - q__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_csets( (bli_creal(x[i__4]) * bli_creal(temp1) - bli_cimag(x[i__4]) * bli_cimag(temp1)), (bli_creal(x[i__4]) * bli_cimag(temp1) + bli_cimag(x[i__4]) * bli_creal(temp1)), q__2 ); i__5 = j; - q__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - q__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - q__1.real = q__2.real + q__3.real, q__1.imag = q__2.imag + q__3.imag; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(y[i__5]) * bli_creal(temp2) - bli_cimag(y[i__5]) * bli_cimag(temp2)), (bli_creal(y[i__5]) * bli_cimag(temp2) + bli_cimag(y[i__5]) * bli_creal(temp2)), q__3 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__3)), (bli_cimag(q__2) + bli_cimag(q__3)), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } kk += j; /* L20: */ @@ -278,18 +266,15 @@ for (j = 1; j <= i__1; ++j) { i__2 = jx; i__3 = jy; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f || (y[i__3].real != 0.f - || y[i__3].imag != 0.f)) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f || (bli_creal(y[i__3]) != 0.f + || bli_cimag(y[i__3]) != 0.f)) { bla_r_cnjg(&q__2, &y[jy]); - q__1.real = alpha->real * q__2.real - alpha->imag * q__2.imag, q__1.imag = - alpha->real * q__2.imag + alpha->imag * q__2.real; - temp1.real = q__1.real, temp1.imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(q__2) - bli_cimag(*alpha) * bli_cimag(q__2)), (bli_creal(*alpha) * bli_cimag(q__2) + bli_cimag(*alpha) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); i__2 = jx; - q__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - q__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__2 ); bla_r_cnjg(&q__1, &q__2); - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); ix = kx; iy = ky; i__2 = kk + j - 2; @@ -297,17 +282,12 @@ i__3 = k; i__4 = k; i__5 = ix; - q__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - q__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - q__2.real = ap[i__4].real + q__3.real, q__2.imag = ap[i__4].imag + - q__3.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp1) - bli_cimag(x[i__5]) * bli_cimag(temp1)), (bli_creal(x[i__5]) * bli_cimag(temp1) + bli_cimag(x[i__5]) * bli_creal(temp1)), q__3 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__3)), (bli_cimag(ap[i__4]) + bli_cimag(q__3)), q__2 ); i__6 = iy; - q__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - q__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(y[i__6]) * bli_creal(temp2) - bli_cimag(y[i__6]) * bli_cimag(temp2)), (bli_creal(y[i__6]) * bli_cimag(temp2) + bli_cimag(y[i__6]) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); ix += *incx; iy += *incy; /* L30: */ @@ -315,21 +295,17 @@ i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = jx; - q__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - q__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_csets( (bli_creal(x[i__4]) * bli_creal(temp1) - bli_cimag(x[i__4]) * bli_cimag(temp1)), (bli_creal(x[i__4]) * bli_cimag(temp1) + bli_cimag(x[i__4]) * bli_creal(temp1)), q__2 ); i__5 = jy; - q__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - q__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - q__1.real = q__2.real + q__3.real, q__1.imag = q__2.imag + q__3.imag; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(y[i__5]) * bli_creal(temp2) - bli_cimag(y[i__5]) * bli_cimag(temp2)), (bli_creal(y[i__5]) * bli_cimag(temp2) + bli_cimag(y[i__5]) * bli_creal(temp2)), q__3 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__3)), (bli_cimag(q__2) + bli_cimag(q__3)), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } jx += *incx; jy += *incy; @@ -346,56 +322,44 @@ for (j = 1; j <= i__1; ++j) { i__2 = j; i__3 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f || (y[i__3].real != 0.f - || y[i__3].imag != 0.f)) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f || (bli_creal(y[i__3]) != 0.f + || bli_cimag(y[i__3]) != 0.f)) { bla_r_cnjg(&q__2, &y[j]); - q__1.real = alpha->real * q__2.real - alpha->imag * q__2.imag, q__1.imag = - alpha->real * q__2.imag + alpha->imag * q__2.real; - temp1.real = q__1.real, temp1.imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(q__2) - bli_cimag(*alpha) * bli_cimag(q__2)), (bli_creal(*alpha) * bli_cimag(q__2) + bli_cimag(*alpha) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); i__2 = j; - q__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - q__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__2 ); bla_r_cnjg(&q__1, &q__2); - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); i__2 = kk; i__3 = kk; i__4 = j; - q__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - q__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_csets( (bli_creal(x[i__4]) * bli_creal(temp1) - bli_cimag(x[i__4]) * bli_cimag(temp1)), (bli_creal(x[i__4]) * bli_cimag(temp1) + bli_cimag(x[i__4]) * bli_creal(temp1)), q__2 ); i__5 = j; - q__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - q__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - q__1.real = q__2.real + q__3.real, q__1.imag = q__2.imag + q__3.imag; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(y[i__5]) * bli_creal(temp2) - bli_cimag(y[i__5]) * bli_cimag(temp2)), (bli_creal(y[i__5]) * bli_cimag(temp2) + bli_cimag(y[i__5]) * bli_creal(temp2)), q__3 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__3)), (bli_cimag(q__2) + bli_cimag(q__3)), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - q__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - q__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - q__2.real = ap[i__4].real + q__3.real, q__2.imag = ap[i__4].imag + - q__3.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp1) - bli_cimag(x[i__5]) * bli_cimag(temp1)), (bli_creal(x[i__5]) * bli_cimag(temp1) + bli_cimag(x[i__5]) * bli_creal(temp1)), q__3 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__3)), (bli_cimag(ap[i__4]) + bli_cimag(q__3)), q__2 ); i__6 = i__; - q__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - q__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(y[i__6]) * bli_creal(temp2) - bli_cimag(y[i__6]) * bli_cimag(temp2)), (bli_creal(y[i__6]) * bli_cimag(temp2) + bli_cimag(y[i__6]) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); ++k; /* L50: */ } } else { i__2 = kk; i__3 = kk; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } kk = kk + *n - j + 1; /* L60: */ @@ -405,31 +369,24 @@ for (j = 1; j <= i__1; ++j) { i__2 = jx; i__3 = jy; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f || (y[i__3].real != 0.f - || y[i__3].imag != 0.f)) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f || (bli_creal(y[i__3]) != 0.f + || bli_cimag(y[i__3]) != 0.f)) { bla_r_cnjg(&q__2, &y[jy]); - q__1.real = alpha->real * q__2.real - alpha->imag * q__2.imag, q__1.imag = - alpha->real * q__2.imag + alpha->imag * q__2.real; - temp1.real = q__1.real, temp1.imag = q__1.imag; + bli_csets( (bli_creal(*alpha) * bli_creal(q__2) - bli_cimag(*alpha) * bli_cimag(q__2)), (bli_creal(*alpha) * bli_cimag(q__2) + bli_cimag(*alpha) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp1 ); i__2 = jx; - q__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - q__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_csets( (bli_creal(*alpha) * bli_creal(x[i__2]) - bli_cimag(*alpha) * bli_cimag(x[i__2])), (bli_creal(*alpha) * bli_cimag(x[i__2]) + bli_cimag(*alpha) * bli_creal(x[i__2])), q__2 ); bla_r_cnjg(&q__1, &q__2); - temp2.real = q__1.real, temp2.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp2 ); i__2 = kk; i__3 = kk; i__4 = jx; - q__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - q__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_csets( (bli_creal(x[i__4]) * bli_creal(temp1) - bli_cimag(x[i__4]) * bli_cimag(temp1)), (bli_creal(x[i__4]) * bli_cimag(temp1) + bli_cimag(x[i__4]) * bli_creal(temp1)), q__2 ); i__5 = jy; - q__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - q__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - q__1.real = q__2.real + q__3.real, q__1.imag = q__2.imag + q__3.imag; - r__1 = ap[i__3].real + q__1.real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + bli_csets( (bli_creal(y[i__5]) * bli_creal(temp2) - bli_cimag(y[i__5]) * bli_cimag(temp2)), (bli_creal(y[i__5]) * bli_cimag(temp2) + bli_cimag(y[i__5]) * bli_creal(temp2)), q__3 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__3)), (bli_cimag(q__2) + bli_cimag(q__3)), q__1 ); + r__1 = bli_creal(ap[i__3]) + bli_creal(q__1); + bli_csets( (r__1), (0.f), ap[i__2] ); ix = jx; iy = jy; i__2 = kk + *n - j; @@ -439,24 +396,19 @@ i__3 = k; i__4 = k; i__5 = ix; - q__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - q__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - q__2.real = ap[i__4].real + q__3.real, q__2.imag = ap[i__4].imag + - q__3.imag; + bli_csets( (bli_creal(x[i__5]) * bli_creal(temp1) - bli_cimag(x[i__5]) * bli_cimag(temp1)), (bli_creal(x[i__5]) * bli_cimag(temp1) + bli_cimag(x[i__5]) * bli_creal(temp1)), q__3 ); + bli_csets( (bli_creal(ap[i__4]) + bli_creal(q__3)), (bli_cimag(ap[i__4]) + bli_cimag(q__3)), q__2 ); i__6 = iy; - q__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - q__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - q__1.real = q__2.real + q__4.real, q__1.imag = q__2.imag + q__4.imag; - ap[i__3].real = q__1.real, ap[i__3].imag = q__1.imag; + bli_csets( (bli_creal(y[i__6]) * bli_creal(temp2) - bli_cimag(y[i__6]) * bli_cimag(temp2)), (bli_creal(y[i__6]) * bli_cimag(temp2) + bli_cimag(y[i__6]) * bli_creal(temp2)), q__4 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__4)), (bli_cimag(q__2) + bli_cimag(q__4)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ap[i__3] ); /* L70: */ } } else { i__2 = kk; i__3 = kk; - r__1 = ap[i__3].real; - ap[i__2].real = r__1, ap[i__2].imag = 0.f; + r__1 = bli_creal(ap[i__3]); + bli_csets( (r__1), (0.f), ap[i__2] ); } jx += *incx; jy += *incy; @@ -620,7 +572,7 @@ /* Quick return if possible. */ - if (*n == 0 || (alpha->real == 0. && alpha->imag == 0.)) { + if (*n == 0 || (bli_zreal(*alpha) == 0. && bli_zimag(*alpha) == 0.)) { return 0; } @@ -655,56 +607,44 @@ for (j = 1; j <= i__1; ++j) { i__2 = j; i__3 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0. || (y[i__3].real != 0. || - y[i__3].imag != 0.)) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0. || (bli_zreal(y[i__3]) != 0. || + bli_zimag(y[i__3]) != 0.)) { bla_d_cnjg(&z__2, &y[j]); - z__1.real = alpha->real * z__2.real - alpha->imag * z__2.imag, z__1.imag = - alpha->real * z__2.imag + alpha->imag * z__2.real; - temp1.real = z__1.real, temp1.imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(z__2) - bli_zimag(*alpha) * bli_zimag(z__2)), (bli_zreal(*alpha) * bli_zimag(z__2) + bli_zimag(*alpha) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); i__2 = j; - z__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - z__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__2 ); bla_d_cnjg(&z__1, &z__2); - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - z__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - z__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - z__2.real = ap[i__4].real + z__3.real, z__2.imag = ap[i__4].imag + - z__3.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp1) - bli_zimag(x[i__5]) * bli_zimag(temp1)), (bli_zreal(x[i__5]) * bli_zimag(temp1) + bli_zimag(x[i__5]) * bli_zreal(temp1)), z__3 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__3)), (bli_zimag(ap[i__4]) + bli_zimag(z__3)), z__2 ); i__6 = i__; - z__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - z__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(y[i__6]) * bli_zreal(temp2) - bli_zimag(y[i__6]) * bli_zimag(temp2)), (bli_zreal(y[i__6]) * bli_zimag(temp2) + bli_zimag(y[i__6]) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); ++k; /* L10: */ } i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = j; - z__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - z__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(temp1) - bli_zimag(x[i__4]) * bli_zimag(temp1)), (bli_zreal(x[i__4]) * bli_zimag(temp1) + bli_zimag(x[i__4]) * bli_zreal(temp1)), z__2 ); i__5 = j; - z__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - z__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - z__1.real = z__2.real + z__3.real, z__1.imag = z__2.imag + z__3.imag; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(y[i__5]) * bli_zreal(temp2) - bli_zimag(y[i__5]) * bli_zimag(temp2)), (bli_zreal(y[i__5]) * bli_zimag(temp2) + bli_zimag(y[i__5]) * bli_zreal(temp2)), z__3 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__3)), (bli_zimag(z__2) + bli_zimag(z__3)), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } kk += j; /* L20: */ @@ -714,18 +654,15 @@ for (j = 1; j <= i__1; ++j) { i__2 = jx; i__3 = jy; - if (x[i__2].real != 0. || x[i__2].imag != 0. || (y[i__3].real != 0. || - y[i__3].imag != 0.)) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0. || (bli_zreal(y[i__3]) != 0. || + bli_zimag(y[i__3]) != 0.)) { bla_d_cnjg(&z__2, &y[jy]); - z__1.real = alpha->real * z__2.real - alpha->imag * z__2.imag, z__1.imag = - alpha->real * z__2.imag + alpha->imag * z__2.real; - temp1.real = z__1.real, temp1.imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(z__2) - bli_zimag(*alpha) * bli_zimag(z__2)), (bli_zreal(*alpha) * bli_zimag(z__2) + bli_zimag(*alpha) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); i__2 = jx; - z__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - z__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__2 ); bla_d_cnjg(&z__1, &z__2); - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); ix = kx; iy = ky; i__2 = kk + j - 2; @@ -733,17 +670,12 @@ i__3 = k; i__4 = k; i__5 = ix; - z__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - z__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - z__2.real = ap[i__4].real + z__3.real, z__2.imag = ap[i__4].imag + - z__3.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp1) - bli_zimag(x[i__5]) * bli_zimag(temp1)), (bli_zreal(x[i__5]) * bli_zimag(temp1) + bli_zimag(x[i__5]) * bli_zreal(temp1)), z__3 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__3)), (bli_zimag(ap[i__4]) + bli_zimag(z__3)), z__2 ); i__6 = iy; - z__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - z__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(y[i__6]) * bli_zreal(temp2) - bli_zimag(y[i__6]) * bli_zimag(temp2)), (bli_zreal(y[i__6]) * bli_zimag(temp2) + bli_zimag(y[i__6]) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); ix += *incx; iy += *incy; /* L30: */ @@ -751,21 +683,17 @@ i__2 = kk + j - 1; i__3 = kk + j - 1; i__4 = jx; - z__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - z__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(temp1) - bli_zimag(x[i__4]) * bli_zimag(temp1)), (bli_zreal(x[i__4]) * bli_zimag(temp1) + bli_zimag(x[i__4]) * bli_zreal(temp1)), z__2 ); i__5 = jy; - z__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - z__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - z__1.real = z__2.real + z__3.real, z__1.imag = z__2.imag + z__3.imag; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(y[i__5]) * bli_zreal(temp2) - bli_zimag(y[i__5]) * bli_zimag(temp2)), (bli_zreal(y[i__5]) * bli_zimag(temp2) + bli_zimag(y[i__5]) * bli_zreal(temp2)), z__3 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__3)), (bli_zimag(z__2) + bli_zimag(z__3)), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); } else { i__2 = kk + j - 1; i__3 = kk + j - 1; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } jx += *incx; jy += *incy; @@ -782,56 +710,44 @@ for (j = 1; j <= i__1; ++j) { i__2 = j; i__3 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0. || (y[i__3].real != 0. || - y[i__3].imag != 0.)) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0. || (bli_zreal(y[i__3]) != 0. || + bli_zimag(y[i__3]) != 0.)) { bla_d_cnjg(&z__2, &y[j]); - z__1.real = alpha->real * z__2.real - alpha->imag * z__2.imag, z__1.imag = - alpha->real * z__2.imag + alpha->imag * z__2.real; - temp1.real = z__1.real, temp1.imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(z__2) - bli_zimag(*alpha) * bli_zimag(z__2)), (bli_zreal(*alpha) * bli_zimag(z__2) + bli_zimag(*alpha) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); i__2 = j; - z__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - z__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__2 ); bla_d_cnjg(&z__1, &z__2); - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); i__2 = kk; i__3 = kk; i__4 = j; - z__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - z__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(temp1) - bli_zimag(x[i__4]) * bli_zimag(temp1)), (bli_zreal(x[i__4]) * bli_zimag(temp1) + bli_zimag(x[i__4]) * bli_zreal(temp1)), z__2 ); i__5 = j; - z__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - z__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - z__1.real = z__2.real + z__3.real, z__1.imag = z__2.imag + z__3.imag; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(y[i__5]) * bli_zreal(temp2) - bli_zimag(y[i__5]) * bli_zimag(temp2)), (bli_zreal(y[i__5]) * bli_zimag(temp2) + bli_zimag(y[i__5]) * bli_zreal(temp2)), z__3 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__3)), (bli_zimag(z__2) + bli_zimag(z__3)), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = k; i__5 = i__; - z__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - z__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - z__2.real = ap[i__4].real + z__3.real, z__2.imag = ap[i__4].imag + - z__3.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp1) - bli_zimag(x[i__5]) * bli_zimag(temp1)), (bli_zreal(x[i__5]) * bli_zimag(temp1) + bli_zimag(x[i__5]) * bli_zreal(temp1)), z__3 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__3)), (bli_zimag(ap[i__4]) + bli_zimag(z__3)), z__2 ); i__6 = i__; - z__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - z__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(y[i__6]) * bli_zreal(temp2) - bli_zimag(y[i__6]) * bli_zimag(temp2)), (bli_zreal(y[i__6]) * bli_zimag(temp2) + bli_zimag(y[i__6]) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); ++k; /* L50: */ } } else { i__2 = kk; i__3 = kk; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } kk = kk + *n - j + 1; /* L60: */ @@ -841,31 +757,24 @@ for (j = 1; j <= i__1; ++j) { i__2 = jx; i__3 = jy; - if (x[i__2].real != 0. || x[i__2].imag != 0. || (y[i__3].real != 0. || - y[i__3].imag != 0.)) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0. || (bli_zreal(y[i__3]) != 0. || + bli_zimag(y[i__3]) != 0.)) { bla_d_cnjg(&z__2, &y[jy]); - z__1.real = alpha->real * z__2.real - alpha->imag * z__2.imag, z__1.imag = - alpha->real * z__2.imag + alpha->imag * z__2.real; - temp1.real = z__1.real, temp1.imag = z__1.imag; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(z__2) - bli_zimag(*alpha) * bli_zimag(z__2)), (bli_zreal(*alpha) * bli_zimag(z__2) + bli_zimag(*alpha) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp1 ); i__2 = jx; - z__2.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag, - z__2.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2] - .real; + bli_zsets( (bli_zreal(*alpha) * bli_zreal(x[i__2]) - bli_zimag(*alpha) * bli_zimag(x[i__2])), (bli_zreal(*alpha) * bli_zimag(x[i__2]) + bli_zimag(*alpha) * bli_zreal(x[i__2])), z__2 ); bla_d_cnjg(&z__1, &z__2); - temp2.real = z__1.real, temp2.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp2 ); i__2 = kk; i__3 = kk; i__4 = jx; - z__2.real = x[i__4].real * temp1.real - x[i__4].imag * temp1.imag, - z__2.imag = x[i__4].real * temp1.imag + x[i__4].imag * - temp1.real; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(temp1) - bli_zimag(x[i__4]) * bli_zimag(temp1)), (bli_zreal(x[i__4]) * bli_zimag(temp1) + bli_zimag(x[i__4]) * bli_zreal(temp1)), z__2 ); i__5 = jy; - z__3.real = y[i__5].real * temp2.real - y[i__5].imag * temp2.imag, - z__3.imag = y[i__5].real * temp2.imag + y[i__5].imag * - temp2.real; - z__1.real = z__2.real + z__3.real, z__1.imag = z__2.imag + z__3.imag; - d__1 = ap[i__3].real + z__1.real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + bli_zsets( (bli_zreal(y[i__5]) * bli_zreal(temp2) - bli_zimag(y[i__5]) * bli_zimag(temp2)), (bli_zreal(y[i__5]) * bli_zimag(temp2) + bli_zimag(y[i__5]) * bli_zreal(temp2)), z__3 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__3)), (bli_zimag(z__2) + bli_zimag(z__3)), z__1 ); + d__1 = bli_zreal(ap[i__3]) + bli_zreal(z__1); + bli_zsets( (d__1), (0.), ap[i__2] ); ix = jx; iy = jy; i__2 = kk + *n - j; @@ -875,24 +784,19 @@ i__3 = k; i__4 = k; i__5 = ix; - z__3.real = x[i__5].real * temp1.real - x[i__5].imag * temp1.imag, - z__3.imag = x[i__5].real * temp1.imag + x[i__5].imag * - temp1.real; - z__2.real = ap[i__4].real + z__3.real, z__2.imag = ap[i__4].imag + - z__3.imag; + bli_zsets( (bli_zreal(x[i__5]) * bli_zreal(temp1) - bli_zimag(x[i__5]) * bli_zimag(temp1)), (bli_zreal(x[i__5]) * bli_zimag(temp1) + bli_zimag(x[i__5]) * bli_zreal(temp1)), z__3 ); + bli_zsets( (bli_zreal(ap[i__4]) + bli_zreal(z__3)), (bli_zimag(ap[i__4]) + bli_zimag(z__3)), z__2 ); i__6 = iy; - z__4.real = y[i__6].real * temp2.real - y[i__6].imag * temp2.imag, - z__4.imag = y[i__6].real * temp2.imag + y[i__6].imag * - temp2.real; - z__1.real = z__2.real + z__4.real, z__1.imag = z__2.imag + z__4.imag; - ap[i__3].real = z__1.real, ap[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(y[i__6]) * bli_zreal(temp2) - bli_zimag(y[i__6]) * bli_zimag(temp2)), (bli_zreal(y[i__6]) * bli_zimag(temp2) + bli_zimag(y[i__6]) * bli_zreal(temp2)), z__4 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__4)), (bli_zimag(z__2) + bli_zimag(z__4)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ap[i__3] ); /* L70: */ } } else { i__2 = kk; i__3 = kk; - d__1 = ap[i__3].real; - ap[i__2].real = d__1, ap[i__2].imag = 0.; + d__1 = bli_zreal(ap[i__3]); + bli_zsets( (d__1), (0.), ap[i__2] ); } jx += *incx; jy += *incy; diff --git a/frame/compat/f2c/bla_rot.c b/frame/compat/f2c/bla_rot.c index 4c2cfb06f..4f845789f 100644 --- a/frame/compat/f2c/bla_rot.c +++ b/frame/compat/f2c/bla_rot.c @@ -220,20 +220,20 @@ L20: i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = ix; - q__2.real = *c__ * cx[i__2].real, q__2.imag = *c__ * cx[i__2].imag; + bli_csets( (*c__ * bli_creal(cx[i__2])), (*c__ * bli_cimag(cx[i__2])), q__2 ); i__3 = iy; - q__3.real = *s * cy[i__3].real, q__3.imag = *s * cy[i__3].imag; - q__1.real = q__2.real + q__3.real, q__1.imag = q__2.imag + q__3.imag; - ctemp.real = q__1.real, ctemp.imag = q__1.imag; + bli_csets( (*s * bli_creal(cy[i__3])), (*s * bli_cimag(cy[i__3])), q__3 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__3)), (bli_cimag(q__2) + bli_cimag(q__3)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ctemp ); i__2 = iy; i__3 = iy; - q__2.real = *c__ * cy[i__3].real, q__2.imag = *c__ * cy[i__3].imag; + bli_csets( (*c__ * bli_creal(cy[i__3])), (*c__ * bli_cimag(cy[i__3])), q__2 ); i__4 = ix; - q__3.real = *s * cx[i__4].real, q__3.imag = *s * cx[i__4].imag; - q__1.real = q__2.real - q__3.real, q__1.imag = q__2.imag - q__3.imag; - cy[i__2].real = q__1.real, cy[i__2].imag = q__1.imag; + bli_csets( (*s * bli_creal(cx[i__4])), (*s * bli_cimag(cx[i__4])), q__3 ); + bli_csets( (bli_creal(q__2) - bli_creal(q__3)), (bli_cimag(q__2) - bli_cimag(q__3)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), cy[i__2] ); i__2 = ix; - cx[i__2].real = ctemp.real, cx[i__2].imag = ctemp.imag; + bli_csets( (bli_creal(ctemp)), (bli_cimag(ctemp)), cx[i__2] ); ix += *incx; iy += *incy; /* L10: */ @@ -246,20 +246,20 @@ L20: i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - q__2.real = *c__ * cx[i__2].real, q__2.imag = *c__ * cx[i__2].imag; + bli_csets( (*c__ * bli_creal(cx[i__2])), (*c__ * bli_cimag(cx[i__2])), q__2 ); i__3 = i__; - q__3.real = *s * cy[i__3].real, q__3.imag = *s * cy[i__3].imag; - q__1.real = q__2.real + q__3.real, q__1.imag = q__2.imag + q__3.imag; - ctemp.real = q__1.real, ctemp.imag = q__1.imag; + bli_csets( (*s * bli_creal(cy[i__3])), (*s * bli_cimag(cy[i__3])), q__3 ); + bli_csets( (bli_creal(q__2) + bli_creal(q__3)), (bli_cimag(q__2) + bli_cimag(q__3)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), ctemp ); i__2 = i__; i__3 = i__; - q__2.real = *c__ * cy[i__3].real, q__2.imag = *c__ * cy[i__3].imag; + bli_csets( (*c__ * bli_creal(cy[i__3])), (*c__ * bli_cimag(cy[i__3])), q__2 ); i__4 = i__; - q__3.real = *s * cx[i__4].real, q__3.imag = *s * cx[i__4].imag; - q__1.real = q__2.real - q__3.real, q__1.imag = q__2.imag - q__3.imag; - cy[i__2].real = q__1.real, cy[i__2].imag = q__1.imag; + bli_csets( (*s * bli_creal(cx[i__4])), (*s * bli_cimag(cx[i__4])), q__3 ); + bli_csets( (bli_creal(q__2) - bli_creal(q__3)), (bli_cimag(q__2) - bli_cimag(q__3)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), cy[i__2] ); i__2 = i__; - cx[i__2].real = ctemp.real, cx[i__2].imag = ctemp.imag; + bli_csets( (bli_creal(ctemp)), (bli_cimag(ctemp)), cx[i__2] ); /* L30: */ } return 0; @@ -313,20 +313,20 @@ L20: i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = ix; - z__2.real = *c__ * zx[i__2].real, z__2.imag = *c__ * zx[i__2].imag; + bli_zsets( (*c__ * bli_zreal(zx[i__2])), (*c__ * bli_zimag(zx[i__2])), z__2 ); i__3 = iy; - z__3.real = *s * zy[i__3].real, z__3.imag = *s * zy[i__3].imag; - z__1.real = z__2.real + z__3.real, z__1.imag = z__2.imag + z__3.imag; - ztemp.real = z__1.real, ztemp.imag = z__1.imag; + bli_zsets( (*s * bli_zreal(zy[i__3])), (*s * bli_zimag(zy[i__3])), z__3 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__3)), (bli_zimag(z__2) + bli_zimag(z__3)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ztemp ); i__2 = iy; i__3 = iy; - z__2.real = *c__ * zy[i__3].real, z__2.imag = *c__ * zy[i__3].imag; + bli_zsets( (*c__ * bli_zreal(zy[i__3])), (*c__ * bli_zimag(zy[i__3])), z__2 ); i__4 = ix; - z__3.real = *s * zx[i__4].real, z__3.imag = *s * zx[i__4].imag; - z__1.real = z__2.real - z__3.real, z__1.imag = z__2.imag - z__3.imag; - zy[i__2].real = z__1.real, zy[i__2].imag = z__1.imag; + bli_zsets( (*s * bli_zreal(zx[i__4])), (*s * bli_zimag(zx[i__4])), z__3 ); + bli_zsets( (bli_zreal(z__2) - bli_zreal(z__3)), (bli_zimag(z__2) - bli_zimag(z__3)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), zy[i__2] ); i__2 = ix; - zx[i__2].real = ztemp.real, zx[i__2].imag = ztemp.imag; + bli_zsets( (bli_zreal(ztemp)), (bli_zimag(ztemp)), zx[i__2] ); ix += *incx; iy += *incy; /* L10: */ @@ -339,20 +339,20 @@ L20: i__1 = *n; for (i__ = 1; i__ <= i__1; ++i__) { i__2 = i__; - z__2.real = *c__ * zx[i__2].real, z__2.imag = *c__ * zx[i__2].imag; + bli_zsets( (*c__ * bli_zreal(zx[i__2])), (*c__ * bli_zimag(zx[i__2])), z__2 ); i__3 = i__; - z__3.real = *s * zy[i__3].real, z__3.imag = *s * zy[i__3].imag; - z__1.real = z__2.real + z__3.real, z__1.imag = z__2.imag + z__3.imag; - ztemp.real = z__1.real, ztemp.imag = z__1.imag; + bli_zsets( (*s * bli_zreal(zy[i__3])), (*s * bli_zimag(zy[i__3])), z__3 ); + bli_zsets( (bli_zreal(z__2) + bli_zreal(z__3)), (bli_zimag(z__2) + bli_zimag(z__3)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), ztemp ); i__2 = i__; i__3 = i__; - z__2.real = *c__ * zy[i__3].real, z__2.imag = *c__ * zy[i__3].imag; + bli_zsets( (*c__ * bli_zreal(zy[i__3])), (*c__ * bli_zimag(zy[i__3])), z__2 ); i__4 = i__; - z__3.real = *s * zx[i__4].real, z__3.imag = *s * zx[i__4].imag; - z__1.real = z__2.real - z__3.real, z__1.imag = z__2.imag - z__3.imag; - zy[i__2].real = z__1.real, zy[i__2].imag = z__1.imag; + bli_zsets( (*s * bli_zreal(zx[i__4])), (*s * bli_zimag(zx[i__4])), z__3 ); + bli_zsets( (bli_zreal(z__2) - bli_zreal(z__3)), (bli_zimag(z__2) - bli_zimag(z__3)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), zy[i__2] ); i__2 = i__; - zx[i__2].real = ztemp.real, zx[i__2].imag = ztemp.imag; + bli_zsets( (bli_zreal(ztemp)), (bli_zimag(ztemp)), zx[i__2] ); /* L30: */ } return 0; diff --git a/frame/compat/f2c/bla_rotg.c b/frame/compat/f2c/bla_rotg.c index 91257611e..32acbdfd1 100644 --- a/frame/compat/f2c/bla_rotg.c +++ b/frame/compat/f2c/bla_rotg.c @@ -180,29 +180,28 @@ L20: goto L10; } *c__ = 0.f; - s->real = 1.f, s->imag = 0.f; - ca->real = cb->real, ca->imag = cb->imag; + bli_csets( 1.f, 0.f, *s ); + bli_csets( bli_creal(*cb), bli_cimag(*cb), *ca ); goto L20; L10: scale = bla_c_abs(ca) + bla_c_abs(cb); - q__1.real = ca->real / scale, q__1.imag = ca->imag / scale; + bli_csets( (bli_creal(*ca) / scale), (bli_cimag(*ca) / scale), q__1 ); /* Computing 2nd power */ r__1 = bla_c_abs(&q__1); - q__2.real = cb->real / scale, q__2.imag = cb->imag / scale; + bli_csets( (bli_creal(*cb) / scale), (bli_cimag(*cb) / scale), q__2 ); /* Computing 2nd power */ r__2 = bla_c_abs(&q__2); norm = scale * sqrt(r__1 * r__1 + r__2 * r__2); r__1 = bla_c_abs(ca); - q__1.real = ca->real / r__1, q__1.imag = ca->imag / r__1; - alpha.real = q__1.real, alpha.imag = q__1.imag; + bli_csets( (bli_creal(*ca) / r__1), (bli_cimag(*ca) / r__1), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), alpha ); *c__ = bla_c_abs(ca) / norm; bla_r_cnjg(&q__3, cb); - q__2.real = alpha.real * q__3.real - alpha.imag * q__3.imag, q__2.imag = alpha.real * q__3.imag + - alpha.imag * q__3.real; - q__1.real = q__2.real / norm, q__1.imag = q__2.imag / norm; - s->real = q__1.real, s->imag = q__1.imag; - q__1.real = norm * alpha.real, q__1.imag = norm * alpha.imag; - ca->real = q__1.real, ca->imag = q__1.imag; + bli_csets( (bli_creal(alpha) * bli_creal(q__3) - bli_cimag(alpha) * bli_cimag(q__3)), (bli_creal(alpha) * bli_cimag(q__3) + bli_cimag(alpha) * bli_creal(q__3)), q__2 ); + bli_csets( (bli_creal(q__2) / norm), (bli_cimag(q__2) / norm), q__1 ); + bli_csets( bli_creal(q__1), bli_cimag(q__1), *s ); + bli_csets( (norm * bli_creal(alpha)), (norm * bli_cimag(alpha)), q__1 ); + bli_csets( bli_creal(q__1), bli_cimag(q__1), *ca ); L20: return 0; } /* crotg_ */ @@ -233,31 +232,30 @@ L20: goto L10; } *c__ = 0.; - s->real = 1., s->imag = 0.; - ca->real = cb->real, ca->imag = cb->imag; + bli_zsets( 1., 0., *s ); + bli_zsets( bli_zreal(*cb), bli_zimag(*cb), *ca ); goto L20; L10: scale = bla_z_abs(ca) + bla_z_abs(cb); - z__2.real = scale, z__2.imag = 0.; + bli_zsets( (scale), (0.), z__2 ); bla_z_div(&z__1, ca, &z__2); /* Computing 2nd power */ d__1 = bla_z_abs(&z__1); - z__4.real = scale, z__4.imag = 0.; + bli_zsets( (scale), (0.), z__4 ); bla_z_div(&z__3, cb, &z__4); /* Computing 2nd power */ d__2 = bla_z_abs(&z__3); norm = scale * sqrt(d__1 * d__1 + d__2 * d__2); d__1 = bla_z_abs(ca); - z__1.real = ca->real / d__1, z__1.imag = ca->imag / d__1; - alpha.real = z__1.real, alpha.imag = z__1.imag; + bli_zsets( (bli_zreal(*ca) / d__1), (bli_zimag(*ca) / d__1), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), alpha ); *c__ = bla_z_abs(ca) / norm; bla_d_cnjg(&z__3, cb); - z__2.real = alpha.real * z__3.real - alpha.imag * z__3.imag, z__2.imag = alpha.real * z__3.imag + - alpha.imag * z__3.real; - z__1.real = z__2.real / norm, z__1.imag = z__2.imag / norm; - s->real = z__1.real, s->imag = z__1.imag; - z__1.real = norm * alpha.real, z__1.imag = norm * alpha.imag; - ca->real = z__1.real, ca->imag = z__1.imag; + bli_zsets( (bli_zreal(alpha) * bli_zreal(z__3) - bli_zimag(alpha) * bli_zimag(z__3)), (bli_zreal(alpha) * bli_zimag(z__3) + bli_zimag(alpha) * bli_zreal(z__3)), z__2 ); + bli_zsets( (bli_zreal(z__2) / norm), (bli_zimag(z__2) / norm), z__1 ); + bli_zsets( bli_zreal(z__1), bli_zimag(z__1), *s ); + bli_zsets( (norm * bli_zreal(alpha)), (norm * bli_zimag(alpha)), z__1 ); + bli_zsets( bli_zreal(z__1), bli_zimag(z__1), *ca ); L20: return 0; } /* zrotg_ */ diff --git a/frame/compat/f2c/bla_tbmv.c b/frame/compat/f2c/bla_tbmv.c index 9a2bdc9c8..8dbaa6402 100644 --- a/frame/compat/f2c/bla_tbmv.c +++ b/frame/compat/f2c/bla_tbmv.c @@ -264,9 +264,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); l = kplus1 - j; /* Computing MAX */ i__2 = 1, i__3 = j - *k; @@ -275,22 +275,17 @@ i__2 = i__; i__3 = i__; i__5 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - q__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - q__1.real = x[i__3].real + q__2.real, q__1.imag = x[i__3].imag + - q__2.imag; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__5]) - bli_cimag(temp) * bli_cimag(a[i__5])), (bli_creal(temp) * bli_cimag(a[i__5]) + bli_cimag(temp) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__3]) + bli_creal(q__2)), (bli_cimag(x[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); /* L10: */ } if (nounit) { i__4 = j; i__2 = j; i__3 = kplus1 + j * a_dim1; - q__1.real = x[i__2].real * a[i__3].real - x[i__2].imag * a[ - i__3].imag, q__1.imag = x[i__2].real * a[i__3].imag + - x[i__2].imag * a[i__3].real; - x[i__4].real = q__1.real, x[i__4].imag = q__1.imag; + bli_csets( (bli_creal(x[i__2]) * bli_creal(a[i__3]) - bli_cimag(x[i__2]) * bli_cimag(a[i__3])), (bli_creal(x[i__2]) * bli_cimag(a[i__3]) + bli_cimag(x[i__2]) * bli_creal(a[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__4] ); } } /* L20: */ @@ -300,9 +295,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__4 = jx; - if (x[i__4].real != 0.f || x[i__4].imag != 0.f) { + if (bli_creal(x[i__4]) != 0.f || bli_cimag(x[i__4]) != 0.f) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_csets( (bli_creal(x[i__4])), (bli_cimag(x[i__4])), temp ); ix = kx; l = kplus1 - j; /* Computing MAX */ @@ -312,12 +307,9 @@ i__4 = ix; i__2 = ix; i__5 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - q__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - q__1.real = x[i__2].real + q__2.real, q__1.imag = x[i__2].imag + - q__2.imag; - x[i__4].real = q__1.real, x[i__4].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__5]) - bli_cimag(temp) * bli_cimag(a[i__5])), (bli_creal(temp) * bli_cimag(a[i__5]) + bli_cimag(temp) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__2]) + bli_creal(q__2)), (bli_cimag(x[i__2]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__4] ); ix += *incx; /* L30: */ } @@ -325,10 +317,8 @@ i__3 = jx; i__4 = jx; i__2 = kplus1 + j * a_dim1; - q__1.real = x[i__4].real * a[i__2].real - x[i__4].imag * a[ - i__2].imag, q__1.imag = x[i__4].real * a[i__2].imag + - x[i__4].imag * a[i__2].real; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(x[i__4]) * bli_creal(a[i__2]) - bli_cimag(x[i__4]) * bli_cimag(a[i__2])), (bli_creal(x[i__4]) * bli_cimag(a[i__2]) + bli_cimag(x[i__4]) * bli_creal(a[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); } } jx += *incx; @@ -342,9 +332,9 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0.f || x[i__1].imag != 0.f) { + if (bli_creal(x[i__1]) != 0.f || bli_cimag(x[i__1]) != 0.f) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); l = 1 - j; /* Computing MIN */ i__1 = *n, i__3 = j + *k; @@ -353,22 +343,17 @@ i__1 = i__; i__3 = i__; i__2 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__2].real - temp.imag * a[i__2].imag, - q__2.imag = temp.real * a[i__2].imag + temp.imag * a[ - i__2].real; - q__1.real = x[i__3].real + q__2.real, q__1.imag = x[i__3].imag + - q__2.imag; - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__2]) - bli_cimag(temp) * bli_cimag(a[i__2])), (bli_creal(temp) * bli_cimag(a[i__2]) + bli_cimag(temp) * bli_creal(a[i__2])), q__2 ); + bli_csets( (bli_creal(x[i__3]) + bli_creal(q__2)), (bli_cimag(x[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); /* L50: */ } if (nounit) { i__4 = j; i__1 = j; i__3 = j * a_dim1 + 1; - q__1.real = x[i__1].real * a[i__3].real - x[i__1].imag * a[ - i__3].imag, q__1.imag = x[i__1].real * a[i__3].imag + - x[i__1].imag * a[i__3].real; - x[i__4].real = q__1.real, x[i__4].imag = q__1.imag; + bli_csets( (bli_creal(x[i__1]) * bli_creal(a[i__3]) - bli_cimag(x[i__1]) * bli_cimag(a[i__3])), (bli_creal(x[i__1]) * bli_cimag(a[i__3]) + bli_cimag(x[i__1]) * bli_creal(a[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__4] ); } } /* L60: */ @@ -378,9 +363,9 @@ jx = kx; for (j = *n; j >= 1; --j) { i__4 = jx; - if (x[i__4].real != 0.f || x[i__4].imag != 0.f) { + if (bli_creal(x[i__4]) != 0.f || bli_cimag(x[i__4]) != 0.f) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_csets( (bli_creal(x[i__4])), (bli_cimag(x[i__4])), temp ); ix = kx; l = 1 - j; /* Computing MIN */ @@ -390,12 +375,9 @@ i__4 = ix; i__1 = ix; i__2 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__2].real - temp.imag * a[i__2].imag, - q__2.imag = temp.real * a[i__2].imag + temp.imag * a[ - i__2].real; - q__1.real = x[i__1].real + q__2.real, q__1.imag = x[i__1].imag + - q__2.imag; - x[i__4].real = q__1.real, x[i__4].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__2]) - bli_cimag(temp) * bli_cimag(a[i__2])), (bli_creal(temp) * bli_cimag(a[i__2]) + bli_cimag(temp) * bli_creal(a[i__2])), q__2 ); + bli_csets( (bli_creal(x[i__1]) + bli_creal(q__2)), (bli_cimag(x[i__1]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__4] ); ix -= *incx; /* L70: */ } @@ -403,10 +385,8 @@ i__3 = jx; i__4 = jx; i__1 = j * a_dim1 + 1; - q__1.real = x[i__4].real * a[i__1].real - x[i__4].imag * a[ - i__1].imag, q__1.imag = x[i__4].real * a[i__1].imag + - x[i__4].imag * a[i__1].real; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(x[i__4]) * bli_creal(a[i__1]) - bli_cimag(x[i__4]) * bli_cimag(a[i__1])), (bli_creal(x[i__4]) * bli_cimag(a[i__1]) + bli_cimag(x[i__4]) * bli_creal(a[i__1])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); } } jx -= *incx; @@ -426,15 +406,13 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__3 = j; - temp.real = x[i__3].real, temp.imag = x[i__3].imag; + bli_csets( (bli_creal(x[i__3])), (bli_cimag(x[i__3])), temp ); l = kplus1 - j; if (noconj) { if (nounit) { i__3 = kplus1 + j * a_dim1; - q__1.real = temp.real * a[i__3].real - temp.imag * a[i__3].imag, - q__1.imag = temp.real * a[i__3].imag + temp.imag * a[ - i__3].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__3]) - bli_cimag(temp) * bli_cimag(a[i__3])), (bli_creal(temp) * bli_cimag(a[i__3]) + bli_cimag(temp) * bli_creal(a[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -442,21 +420,16 @@ for (i__ = j - 1; i__ >= i__3; --i__) { i__4 = l + i__ + j * a_dim1; i__1 = i__; - q__2.real = a[i__4].real * x[i__1].real - a[i__4].imag * x[ - i__1].imag, q__2.imag = a[i__4].real * x[i__1].imag + - a[i__4].imag * x[i__1].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__4]) * bli_creal(x[i__1]) - bli_cimag(a[i__4]) * bli_cimag(x[i__1])), (bli_creal(a[i__4]) * bli_cimag(x[i__1]) + bli_cimag(a[i__4]) * bli_creal(x[i__1])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L90: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &a[kplus1 + j * a_dim1]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -464,17 +437,14 @@ for (i__ = j - 1; i__ >= i__3; --i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__4 = i__; - q__2.real = q__3.real * x[i__4].real - q__3.imag * x[i__4].imag, - q__2.imag = q__3.real * x[i__4].imag + q__3.imag * x[ - i__4].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__4]) - bli_cimag(q__3) * bli_cimag(x[i__4])), (bli_creal(q__3) * bli_cimag(x[i__4]) + bli_cimag(q__3) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L100: */ } } i__3 = j; - x[i__3].real = temp.real, x[i__3].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__3] ); /* L110: */ } } else { @@ -482,17 +452,15 @@ jx = kx; for (j = *n; j >= 1; --j) { i__3 = jx; - temp.real = x[i__3].real, temp.imag = x[i__3].imag; + bli_csets( (bli_creal(x[i__3])), (bli_cimag(x[i__3])), temp ); kx -= *incx; ix = kx; l = kplus1 - j; if (noconj) { if (nounit) { i__3 = kplus1 + j * a_dim1; - q__1.real = temp.real * a[i__3].real - temp.imag * a[i__3].imag, - q__1.imag = temp.real * a[i__3].imag + temp.imag * a[ - i__3].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__3]) - bli_cimag(temp) * bli_cimag(a[i__3])), (bli_creal(temp) * bli_cimag(a[i__3]) + bli_cimag(temp) * bli_creal(a[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -500,22 +468,17 @@ for (i__ = j - 1; i__ >= i__3; --i__) { i__4 = l + i__ + j * a_dim1; i__1 = ix; - q__2.real = a[i__4].real * x[i__1].real - a[i__4].imag * x[ - i__1].imag, q__2.imag = a[i__4].real * x[i__1].imag + - a[i__4].imag * x[i__1].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__4]) * bli_creal(x[i__1]) - bli_cimag(a[i__4]) * bli_cimag(x[i__1])), (bli_creal(a[i__4]) * bli_cimag(x[i__1]) + bli_cimag(a[i__4]) * bli_creal(x[i__1])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix -= *incx; /* L120: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &a[kplus1 + j * a_dim1]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -523,18 +486,15 @@ for (i__ = j - 1; i__ >= i__3; --i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__4 = ix; - q__2.real = q__3.real * x[i__4].real - q__3.imag * x[i__4].imag, - q__2.imag = q__3.real * x[i__4].imag + q__3.imag * x[ - i__4].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__4]) - bli_cimag(q__3) * bli_cimag(x[i__4])), (bli_creal(q__3) * bli_cimag(x[i__4]) + bli_cimag(q__3) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix -= *incx; /* L130: */ } } i__3 = jx; - x[i__3].real = temp.real, x[i__3].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__3] ); jx -= *incx; /* L140: */ } @@ -544,15 +504,13 @@ i__3 = *n; for (j = 1; j <= i__3; ++j) { i__4 = j; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_csets( (bli_creal(x[i__4])), (bli_cimag(x[i__4])), temp ); l = 1 - j; if (noconj) { if (nounit) { i__4 = j * a_dim1 + 1; - q__1.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - q__1.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__4]) - bli_cimag(temp) * bli_cimag(a[i__4])), (bli_creal(temp) * bli_cimag(a[i__4]) + bli_cimag(temp) * bli_creal(a[i__4])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -560,21 +518,16 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { i__1 = l + i__ + j * a_dim1; i__2 = i__; - q__2.real = a[i__1].real * x[i__2].real - a[i__1].imag * x[ - i__2].imag, q__2.imag = a[i__1].real * x[i__2].imag + - a[i__1].imag * x[i__2].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__1]) * bli_creal(x[i__2]) - bli_cimag(a[i__1]) * bli_cimag(x[i__2])), (bli_creal(a[i__1]) * bli_cimag(x[i__2]) + bli_cimag(a[i__1]) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L150: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &a[j * a_dim1 + 1]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -582,17 +535,14 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__1 = i__; - q__2.real = q__3.real * x[i__1].real - q__3.imag * x[i__1].imag, - q__2.imag = q__3.real * x[i__1].imag + q__3.imag * x[ - i__1].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__1]) - bli_cimag(q__3) * bli_cimag(x[i__1])), (bli_creal(q__3) * bli_cimag(x[i__1]) + bli_cimag(q__3) * bli_creal(x[i__1])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L160: */ } } i__4 = j; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__4] ); /* L170: */ } } else { @@ -600,17 +550,15 @@ i__3 = *n; for (j = 1; j <= i__3; ++j) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_csets( (bli_creal(x[i__4])), (bli_cimag(x[i__4])), temp ); kx += *incx; ix = kx; l = 1 - j; if (noconj) { if (nounit) { i__4 = j * a_dim1 + 1; - q__1.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - q__1.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__4]) - bli_cimag(temp) * bli_cimag(a[i__4])), (bli_creal(temp) * bli_cimag(a[i__4]) + bli_cimag(temp) * bli_creal(a[i__4])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -618,22 +566,17 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { i__1 = l + i__ + j * a_dim1; i__2 = ix; - q__2.real = a[i__1].real * x[i__2].real - a[i__1].imag * x[ - i__2].imag, q__2.imag = a[i__1].real * x[i__2].imag + - a[i__1].imag * x[i__2].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__1]) * bli_creal(x[i__2]) - bli_cimag(a[i__1]) * bli_cimag(x[i__2])), (bli_creal(a[i__1]) * bli_cimag(x[i__2]) + bli_cimag(a[i__1]) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L180: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &a[j * a_dim1 + 1]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -641,18 +584,15 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__1 = ix; - q__2.real = q__3.real * x[i__1].real - q__3.imag * x[i__1].imag, - q__2.imag = q__3.real * x[i__1].imag + q__3.imag * x[ - i__1].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__1]) - bli_cimag(q__3) * bli_cimag(x[i__1])), (bli_creal(q__3) * bli_cimag(x[i__1]) + bli_cimag(q__3) * bli_creal(x[i__1])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L190: */ } } i__4 = jx; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__4] ); jx += *incx; /* L200: */ } @@ -1716,9 +1656,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); l = kplus1 - j; /* Computing MAX */ i__2 = 1, i__3 = j - *k; @@ -1727,22 +1667,17 @@ i__2 = i__; i__3 = i__; i__5 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - z__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - z__1.real = x[i__3].real + z__2.real, z__1.imag = x[i__3].imag + - z__2.imag; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__5]) - bli_zimag(temp) * bli_zimag(a[i__5])), (bli_zreal(temp) * bli_zimag(a[i__5]) + bli_zimag(temp) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__3]) + bli_zreal(z__2)), (bli_zimag(x[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); /* L10: */ } if (nounit) { i__4 = j; i__2 = j; i__3 = kplus1 + j * a_dim1; - z__1.real = x[i__2].real * a[i__3].real - x[i__2].imag * a[ - i__3].imag, z__1.imag = x[i__2].real * a[i__3].imag + - x[i__2].imag * a[i__3].real; - x[i__4].real = z__1.real, x[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__2]) * bli_zreal(a[i__3]) - bli_zimag(x[i__2]) * bli_zimag(a[i__3])), (bli_zreal(x[i__2]) * bli_zimag(a[i__3]) + bli_zimag(x[i__2]) * bli_zreal(a[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__4] ); } } /* L20: */ @@ -1752,9 +1687,9 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__4 = jx; - if (x[i__4].real != 0. || x[i__4].imag != 0.) { + if (bli_zreal(x[i__4]) != 0. || bli_zimag(x[i__4]) != 0.) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_zsets( (bli_zreal(x[i__4])), (bli_zimag(x[i__4])), temp ); ix = kx; l = kplus1 - j; /* Computing MAX */ @@ -1764,12 +1699,9 @@ i__4 = ix; i__2 = ix; i__5 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - z__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - z__1.real = x[i__2].real + z__2.real, z__1.imag = x[i__2].imag + - z__2.imag; - x[i__4].real = z__1.real, x[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__5]) - bli_zimag(temp) * bli_zimag(a[i__5])), (bli_zreal(temp) * bli_zimag(a[i__5]) + bli_zimag(temp) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__2]) + bli_zreal(z__2)), (bli_zimag(x[i__2]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__4] ); ix += *incx; /* L30: */ } @@ -1777,10 +1709,8 @@ i__3 = jx; i__4 = jx; i__2 = kplus1 + j * a_dim1; - z__1.real = x[i__4].real * a[i__2].real - x[i__4].imag * a[ - i__2].imag, z__1.imag = x[i__4].real * a[i__2].imag + - x[i__4].imag * a[i__2].real; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(a[i__2]) - bli_zimag(x[i__4]) * bli_zimag(a[i__2])), (bli_zreal(x[i__4]) * bli_zimag(a[i__2]) + bli_zimag(x[i__4]) * bli_zreal(a[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); } } jx += *incx; @@ -1794,9 +1724,9 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0. || x[i__1].imag != 0.) { + if (bli_zreal(x[i__1]) != 0. || bli_zimag(x[i__1]) != 0.) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); l = 1 - j; /* Computing MIN */ i__1 = *n, i__3 = j + *k; @@ -1805,22 +1735,17 @@ i__1 = i__; i__3 = i__; i__2 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__2].real - temp.imag * a[i__2].imag, - z__2.imag = temp.real * a[i__2].imag + temp.imag * a[ - i__2].real; - z__1.real = x[i__3].real + z__2.real, z__1.imag = x[i__3].imag + - z__2.imag; - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__2]) - bli_zimag(temp) * bli_zimag(a[i__2])), (bli_zreal(temp) * bli_zimag(a[i__2]) + bli_zimag(temp) * bli_zreal(a[i__2])), z__2 ); + bli_zsets( (bli_zreal(x[i__3]) + bli_zreal(z__2)), (bli_zimag(x[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); /* L50: */ } if (nounit) { i__4 = j; i__1 = j; i__3 = j * a_dim1 + 1; - z__1.real = x[i__1].real * a[i__3].real - x[i__1].imag * a[ - i__3].imag, z__1.imag = x[i__1].real * a[i__3].imag + - x[i__1].imag * a[i__3].real; - x[i__4].real = z__1.real, x[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__1]) * bli_zreal(a[i__3]) - bli_zimag(x[i__1]) * bli_zimag(a[i__3])), (bli_zreal(x[i__1]) * bli_zimag(a[i__3]) + bli_zimag(x[i__1]) * bli_zreal(a[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__4] ); } } /* L60: */ @@ -1830,9 +1755,9 @@ jx = kx; for (j = *n; j >= 1; --j) { i__4 = jx; - if (x[i__4].real != 0. || x[i__4].imag != 0.) { + if (bli_zreal(x[i__4]) != 0. || bli_zimag(x[i__4]) != 0.) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_zsets( (bli_zreal(x[i__4])), (bli_zimag(x[i__4])), temp ); ix = kx; l = 1 - j; /* Computing MIN */ @@ -1842,12 +1767,9 @@ i__4 = ix; i__1 = ix; i__2 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__2].real - temp.imag * a[i__2].imag, - z__2.imag = temp.real * a[i__2].imag + temp.imag * a[ - i__2].real; - z__1.real = x[i__1].real + z__2.real, z__1.imag = x[i__1].imag + - z__2.imag; - x[i__4].real = z__1.real, x[i__4].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__2]) - bli_zimag(temp) * bli_zimag(a[i__2])), (bli_zreal(temp) * bli_zimag(a[i__2]) + bli_zimag(temp) * bli_zreal(a[i__2])), z__2 ); + bli_zsets( (bli_zreal(x[i__1]) + bli_zreal(z__2)), (bli_zimag(x[i__1]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__4] ); ix -= *incx; /* L70: */ } @@ -1855,10 +1777,8 @@ i__3 = jx; i__4 = jx; i__1 = j * a_dim1 + 1; - z__1.real = x[i__4].real * a[i__1].real - x[i__4].imag * a[ - i__1].imag, z__1.imag = x[i__4].real * a[i__1].imag + - x[i__4].imag * a[i__1].real; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__4]) * bli_zreal(a[i__1]) - bli_zimag(x[i__4]) * bli_zimag(a[i__1])), (bli_zreal(x[i__4]) * bli_zimag(a[i__1]) + bli_zimag(x[i__4]) * bli_zreal(a[i__1])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); } } jx -= *incx; @@ -1878,15 +1798,13 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__3 = j; - temp.real = x[i__3].real, temp.imag = x[i__3].imag; + bli_zsets( (bli_zreal(x[i__3])), (bli_zimag(x[i__3])), temp ); l = kplus1 - j; if (noconj) { if (nounit) { i__3 = kplus1 + j * a_dim1; - z__1.real = temp.real * a[i__3].real - temp.imag * a[i__3].imag, - z__1.imag = temp.real * a[i__3].imag + temp.imag * a[ - i__3].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__3]) - bli_zimag(temp) * bli_zimag(a[i__3])), (bli_zreal(temp) * bli_zimag(a[i__3]) + bli_zimag(temp) * bli_zreal(a[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -1894,21 +1812,16 @@ for (i__ = j - 1; i__ >= i__3; --i__) { i__4 = l + i__ + j * a_dim1; i__1 = i__; - z__2.real = a[i__4].real * x[i__1].real - a[i__4].imag * x[ - i__1].imag, z__2.imag = a[i__4].real * x[i__1].imag + - a[i__4].imag * x[i__1].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__4]) * bli_zreal(x[i__1]) - bli_zimag(a[i__4]) * bli_zimag(x[i__1])), (bli_zreal(a[i__4]) * bli_zimag(x[i__1]) + bli_zimag(a[i__4]) * bli_zreal(x[i__1])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L90: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &a[kplus1 + j * a_dim1]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -1916,17 +1829,14 @@ for (i__ = j - 1; i__ >= i__3; --i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__4 = i__; - z__2.real = z__3.real * x[i__4].real - z__3.imag * x[i__4].imag, - z__2.imag = z__3.real * x[i__4].imag + z__3.imag * x[ - i__4].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__4]) - bli_zimag(z__3) * bli_zimag(x[i__4])), (bli_zreal(z__3) * bli_zimag(x[i__4]) + bli_zimag(z__3) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L100: */ } } i__3 = j; - x[i__3].real = temp.real, x[i__3].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__3] ); /* L110: */ } } else { @@ -1934,17 +1844,15 @@ jx = kx; for (j = *n; j >= 1; --j) { i__3 = jx; - temp.real = x[i__3].real, temp.imag = x[i__3].imag; + bli_zsets( (bli_zreal(x[i__3])), (bli_zimag(x[i__3])), temp ); kx -= *incx; ix = kx; l = kplus1 - j; if (noconj) { if (nounit) { i__3 = kplus1 + j * a_dim1; - z__1.real = temp.real * a[i__3].real - temp.imag * a[i__3].imag, - z__1.imag = temp.real * a[i__3].imag + temp.imag * a[ - i__3].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__3]) - bli_zimag(temp) * bli_zimag(a[i__3])), (bli_zreal(temp) * bli_zimag(a[i__3]) + bli_zimag(temp) * bli_zreal(a[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -1952,22 +1860,17 @@ for (i__ = j - 1; i__ >= i__3; --i__) { i__4 = l + i__ + j * a_dim1; i__1 = ix; - z__2.real = a[i__4].real * x[i__1].real - a[i__4].imag * x[ - i__1].imag, z__2.imag = a[i__4].real * x[i__1].imag + - a[i__4].imag * x[i__1].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__4]) * bli_zreal(x[i__1]) - bli_zimag(a[i__4]) * bli_zimag(x[i__1])), (bli_zreal(a[i__4]) * bli_zimag(x[i__1]) + bli_zimag(a[i__4]) * bli_zreal(x[i__1])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix -= *incx; /* L120: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &a[kplus1 + j * a_dim1]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MAX */ i__4 = 1, i__1 = j - *k; @@ -1975,18 +1878,15 @@ for (i__ = j - 1; i__ >= i__3; --i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__4 = ix; - z__2.real = z__3.real * x[i__4].real - z__3.imag * x[i__4].imag, - z__2.imag = z__3.real * x[i__4].imag + z__3.imag * x[ - i__4].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__4]) - bli_zimag(z__3) * bli_zimag(x[i__4])), (bli_zreal(z__3) * bli_zimag(x[i__4]) + bli_zimag(z__3) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix -= *incx; /* L130: */ } } i__3 = jx; - x[i__3].real = temp.real, x[i__3].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__3] ); jx -= *incx; /* L140: */ } @@ -1996,15 +1896,13 @@ i__3 = *n; for (j = 1; j <= i__3; ++j) { i__4 = j; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_zsets( (bli_zreal(x[i__4])), (bli_zimag(x[i__4])), temp ); l = 1 - j; if (noconj) { if (nounit) { i__4 = j * a_dim1 + 1; - z__1.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - z__1.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__4]) - bli_zimag(temp) * bli_zimag(a[i__4])), (bli_zreal(temp) * bli_zimag(a[i__4]) + bli_zimag(temp) * bli_zreal(a[i__4])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -2012,21 +1910,16 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { i__1 = l + i__ + j * a_dim1; i__2 = i__; - z__2.real = a[i__1].real * x[i__2].real - a[i__1].imag * x[ - i__2].imag, z__2.imag = a[i__1].real * x[i__2].imag + - a[i__1].imag * x[i__2].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__1]) * bli_zreal(x[i__2]) - bli_zimag(a[i__1]) * bli_zimag(x[i__2])), (bli_zreal(a[i__1]) * bli_zimag(x[i__2]) + bli_zimag(a[i__1]) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L150: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &a[j * a_dim1 + 1]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -2034,17 +1927,14 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__1 = i__; - z__2.real = z__3.real * x[i__1].real - z__3.imag * x[i__1].imag, - z__2.imag = z__3.real * x[i__1].imag + z__3.imag * x[ - i__1].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__1]) - bli_zimag(z__3) * bli_zimag(x[i__1])), (bli_zreal(z__3) * bli_zimag(x[i__1]) + bli_zimag(z__3) * bli_zreal(x[i__1])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L160: */ } } i__4 = j; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__4] ); /* L170: */ } } else { @@ -2052,17 +1942,15 @@ i__3 = *n; for (j = 1; j <= i__3; ++j) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_zsets( (bli_zreal(x[i__4])), (bli_zimag(x[i__4])), temp ); kx += *incx; ix = kx; l = 1 - j; if (noconj) { if (nounit) { i__4 = j * a_dim1 + 1; - z__1.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - z__1.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__4]) - bli_zimag(temp) * bli_zimag(a[i__4])), (bli_zreal(temp) * bli_zimag(a[i__4]) + bli_zimag(temp) * bli_zreal(a[i__4])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -2070,22 +1958,17 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { i__1 = l + i__ + j * a_dim1; i__2 = ix; - z__2.real = a[i__1].real * x[i__2].real - a[i__1].imag * x[ - i__2].imag, z__2.imag = a[i__1].real * x[i__2].imag + - a[i__1].imag * x[i__2].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__1]) * bli_zreal(x[i__2]) - bli_zimag(a[i__1]) * bli_zimag(x[i__2])), (bli_zreal(a[i__1]) * bli_zimag(x[i__2]) + bli_zimag(a[i__1]) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L180: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &a[j * a_dim1 + 1]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } /* Computing MIN */ i__1 = *n, i__2 = j + *k; @@ -2093,18 +1976,15 @@ for (i__ = j + 1; i__ <= i__4; ++i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__1 = ix; - z__2.real = z__3.real * x[i__1].real - z__3.imag * x[i__1].imag, - z__2.imag = z__3.real * x[i__1].imag + z__3.imag * x[ - i__1].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__1]) - bli_zimag(z__3) * bli_zimag(x[i__1])), (bli_zreal(z__3) * bli_zimag(x[i__1]) + bli_zimag(z__3) * bli_zreal(x[i__1])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L190: */ } } i__4 = jx; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__4] ); jx += *incx; /* L200: */ } diff --git a/frame/compat/f2c/bla_tbsv.c b/frame/compat/f2c/bla_tbsv.c index 877cac852..1f8945b86 100644 --- a/frame/compat/f2c/bla_tbsv.c +++ b/frame/compat/f2c/bla_tbsv.c @@ -267,15 +267,15 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0.f || x[i__1].imag != 0.f) { + if (bli_creal(x[i__1]) != 0.f || bli_cimag(x[i__1]) != 0.f) { l = kplus1 - j; if (nounit) { i__1 = j; bla_c_div(&q__1, &x[j], &a[kplus1 + j * a_dim1]); - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); } i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); /* Computing MAX */ i__2 = 1, i__3 = j - *k; i__1 = f2c_max(i__2,i__3); @@ -283,12 +283,9 @@ i__2 = i__; i__3 = i__; i__4 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - q__2.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - q__1.real = x[i__3].real - q__2.real, q__1.imag = x[i__3].imag - - q__2.imag; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__4]) - bli_cimag(temp) * bli_cimag(a[i__4])), (bli_creal(temp) * bli_cimag(a[i__4]) + bli_cimag(temp) * bli_creal(a[i__4])), q__2 ); + bli_csets( (bli_creal(x[i__3]) - bli_creal(q__2)), (bli_cimag(x[i__3]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); /* L10: */ } } @@ -300,16 +297,16 @@ for (j = *n; j >= 1; --j) { kx -= *incx; i__1 = jx; - if (x[i__1].real != 0.f || x[i__1].imag != 0.f) { + if (bli_creal(x[i__1]) != 0.f || bli_cimag(x[i__1]) != 0.f) { ix = kx; l = kplus1 - j; if (nounit) { i__1 = jx; bla_c_div(&q__1, &x[jx], &a[kplus1 + j * a_dim1]); - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); } i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); /* Computing MAX */ i__2 = 1, i__3 = j - *k; i__1 = f2c_max(i__2,i__3); @@ -317,12 +314,9 @@ i__2 = ix; i__3 = ix; i__4 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - q__2.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - q__1.real = x[i__3].real - q__2.real, q__1.imag = x[i__3].imag - - q__2.imag; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__4]) - bli_cimag(temp) * bli_cimag(a[i__4])), (bli_creal(temp) * bli_cimag(a[i__4]) + bli_cimag(temp) * bli_creal(a[i__4])), q__2 ); + bli_csets( (bli_creal(x[i__3]) - bli_creal(q__2)), (bli_cimag(x[i__3]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); ix -= *incx; /* L30: */ } @@ -336,15 +330,15 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { l = 1 - j; if (nounit) { i__2 = j; bla_c_div(&q__1, &x[j], &a[j * a_dim1 + 1]); - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); } i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); /* Computing MIN */ i__3 = *n, i__4 = j + *k; i__2 = f2c_min(i__3,i__4); @@ -352,12 +346,9 @@ i__3 = i__; i__4 = i__; i__5 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - q__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - q__1.real = x[i__4].real - q__2.real, q__1.imag = x[i__4].imag - - q__2.imag; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__5]) - bli_cimag(temp) * bli_cimag(a[i__5])), (bli_creal(temp) * bli_cimag(a[i__5]) + bli_cimag(temp) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__4]) - bli_creal(q__2)), (bli_cimag(x[i__4]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); /* L50: */ } } @@ -369,16 +360,16 @@ for (j = 1; j <= i__1; ++j) { kx += *incx; i__2 = jx; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { ix = kx; l = 1 - j; if (nounit) { i__2 = jx; bla_c_div(&q__1, &x[jx], &a[j * a_dim1 + 1]); - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); } i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); /* Computing MIN */ i__3 = *n, i__4 = j + *k; i__2 = f2c_min(i__3,i__4); @@ -386,12 +377,9 @@ i__3 = ix; i__4 = ix; i__5 = l + i__ + j * a_dim1; - q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - q__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - q__1.real = x[i__4].real - q__2.real, q__1.imag = x[i__4].imag - - q__2.imag; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(a[i__5]) - bli_cimag(temp) * bli_cimag(a[i__5])), (bli_creal(temp) * bli_cimag(a[i__5]) + bli_cimag(temp) * bli_creal(a[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__4]) - bli_creal(q__2)), (bli_cimag(x[i__4]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); ix += *incx; /* L70: */ } @@ -411,7 +399,7 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); l = kplus1 - j; if (noconj) { /* Computing MAX */ @@ -420,17 +408,14 @@ for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) { i__2 = l + i__ + j * a_dim1; i__3 = i__; - q__2.real = a[i__2].real * x[i__3].real - a[i__2].imag * x[ - i__3].imag, q__2.imag = a[i__2].real * x[i__3].imag + - a[i__2].imag * x[i__3].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__2]) * bli_creal(x[i__3]) - bli_cimag(a[i__2]) * bli_cimag(x[i__3])), (bli_creal(a[i__2]) * bli_cimag(x[i__3]) + bli_cimag(a[i__2]) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L90: */ } if (nounit) { bla_c_div(&q__1, &temp, &a[kplus1 + j * a_dim1]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { /* Computing MAX */ @@ -439,22 +424,19 @@ for (i__ = f2c_max(i__4,i__2); i__ <= i__3; ++i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__4 = i__; - q__2.real = q__3.real * x[i__4].real - q__3.imag * x[i__4].imag, - q__2.imag = q__3.real * x[i__4].imag + q__3.imag * x[ - i__4].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__4]) - bli_cimag(q__3) * bli_cimag(x[i__4])), (bli_creal(q__3) * bli_cimag(x[i__4]) + bli_cimag(q__3) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L100: */ } if (nounit) { bla_r_cnjg(&q__2, &a[kplus1 + j * a_dim1]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__3 = j; - x[i__3].real = temp.real, x[i__3].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__3] ); /* L110: */ } } else { @@ -462,7 +444,7 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__3 = jx; - temp.real = x[i__3].real, temp.imag = x[i__3].imag; + bli_csets( (bli_creal(x[i__3])), (bli_cimag(x[i__3])), temp ); ix = kx; l = kplus1 - j; if (noconj) { @@ -472,18 +454,15 @@ for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) { i__3 = l + i__ + j * a_dim1; i__4 = ix; - q__2.real = a[i__3].real * x[i__4].real - a[i__3].imag * x[ - i__4].imag, q__2.imag = a[i__3].real * x[i__4].imag + - a[i__3].imag * x[i__4].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__3]) * bli_creal(x[i__4]) - bli_cimag(a[i__3]) * bli_cimag(x[i__4])), (bli_creal(a[i__3]) * bli_cimag(x[i__4]) + bli_cimag(a[i__3]) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L120: */ } if (nounit) { bla_c_div(&q__1, &temp, &a[kplus1 + j * a_dim1]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { /* Computing MAX */ @@ -492,23 +471,20 @@ for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__2 = ix; - q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag, - q__2.imag = q__3.real * x[i__2].imag + q__3.imag * x[ - i__2].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__2]) - bli_cimag(q__3) * bli_cimag(x[i__2])), (bli_creal(q__3) * bli_cimag(x[i__2]) + bli_cimag(q__3) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L130: */ } if (nounit) { bla_r_cnjg(&q__2, &a[kplus1 + j * a_dim1]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__4 = jx; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__4] ); jx += *incx; if (j > *k) { kx += *incx; @@ -520,7 +496,7 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); l = 1 - j; if (noconj) { /* Computing MIN */ @@ -529,17 +505,14 @@ for (i__ = f2c_min(i__1,i__4); i__ >= i__2; --i__) { i__1 = l + i__ + j * a_dim1; i__4 = i__; - q__2.real = a[i__1].real * x[i__4].real - a[i__1].imag * x[ - i__4].imag, q__2.imag = a[i__1].real * x[i__4].imag + - a[i__1].imag * x[i__4].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__1]) * bli_creal(x[i__4]) - bli_cimag(a[i__1]) * bli_cimag(x[i__4])), (bli_creal(a[i__1]) * bli_cimag(x[i__4]) + bli_cimag(a[i__1]) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L150: */ } if (nounit) { bla_c_div(&q__1, &temp, &a[j * a_dim1 + 1]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { /* Computing MIN */ @@ -548,22 +521,19 @@ for (i__ = f2c_min(i__2,i__1); i__ >= i__4; --i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__2 = i__; - q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag, - q__2.imag = q__3.real * x[i__2].imag + q__3.imag * x[ - i__2].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__2]) - bli_cimag(q__3) * bli_cimag(x[i__2])), (bli_creal(q__3) * bli_cimag(x[i__2]) + bli_cimag(q__3) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L160: */ } if (nounit) { bla_r_cnjg(&q__2, &a[j * a_dim1 + 1]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__4 = j; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__4] ); /* L170: */ } } else { @@ -571,7 +541,7 @@ jx = kx; for (j = *n; j >= 1; --j) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_csets( (bli_creal(x[i__4])), (bli_cimag(x[i__4])), temp ); ix = kx; l = 1 - j; if (noconj) { @@ -581,18 +551,15 @@ for (i__ = f2c_min(i__4,i__2); i__ >= i__1; --i__) { i__4 = l + i__ + j * a_dim1; i__2 = ix; - q__2.real = a[i__4].real * x[i__2].real - a[i__4].imag * x[ - i__2].imag, q__2.imag = a[i__4].real * x[i__2].imag + - a[i__4].imag * x[i__2].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(a[i__4]) * bli_creal(x[i__2]) - bli_cimag(a[i__4]) * bli_cimag(x[i__2])), (bli_creal(a[i__4]) * bli_cimag(x[i__2]) + bli_cimag(a[i__4]) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix -= *incx; /* L180: */ } if (nounit) { bla_c_div(&q__1, &temp, &a[j * a_dim1 + 1]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { /* Computing MIN */ @@ -601,23 +568,20 @@ for (i__ = f2c_min(i__1,i__4); i__ >= i__2; --i__) { bla_r_cnjg(&q__3, &a[l + i__ + j * a_dim1]); i__1 = ix; - q__2.real = q__3.real * x[i__1].real - q__3.imag * x[i__1].imag, - q__2.imag = q__3.real * x[i__1].imag + q__3.imag * x[ - i__1].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__1]) - bli_cimag(q__3) * bli_cimag(x[i__1])), (bli_creal(q__3) * bli_cimag(x[i__1]) + bli_cimag(q__3) * bli_creal(x[i__1])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix -= *incx; /* L190: */ } if (nounit) { bla_r_cnjg(&q__2, &a[j * a_dim1 + 1]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__2 = jx; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__2] ); jx -= *incx; if (*n - j >= *k) { kx -= *incx; @@ -1696,15 +1660,15 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0. || x[i__1].imag != 0.) { + if (bli_zreal(x[i__1]) != 0. || bli_zimag(x[i__1]) != 0.) { l = kplus1 - j; if (nounit) { i__1 = j; bla_z_div(&z__1, &x[j], &a[kplus1 + j * a_dim1]); - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); } i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); /* Computing MAX */ i__2 = 1, i__3 = j - *k; i__1 = f2c_max(i__2,i__3); @@ -1712,12 +1676,9 @@ i__2 = i__; i__3 = i__; i__4 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - z__2.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - z__1.real = x[i__3].real - z__2.real, z__1.imag = x[i__3].imag - - z__2.imag; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__4]) - bli_zimag(temp) * bli_zimag(a[i__4])), (bli_zreal(temp) * bli_zimag(a[i__4]) + bli_zimag(temp) * bli_zreal(a[i__4])), z__2 ); + bli_zsets( (bli_zreal(x[i__3]) - bli_zreal(z__2)), (bli_zimag(x[i__3]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); /* L10: */ } } @@ -1729,16 +1690,16 @@ for (j = *n; j >= 1; --j) { kx -= *incx; i__1 = jx; - if (x[i__1].real != 0. || x[i__1].imag != 0.) { + if (bli_zreal(x[i__1]) != 0. || bli_zimag(x[i__1]) != 0.) { ix = kx; l = kplus1 - j; if (nounit) { i__1 = jx; bla_z_div(&z__1, &x[jx], &a[kplus1 + j * a_dim1]); - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); } i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); /* Computing MAX */ i__2 = 1, i__3 = j - *k; i__1 = f2c_max(i__2,i__3); @@ -1746,12 +1707,9 @@ i__2 = ix; i__3 = ix; i__4 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__4].real - temp.imag * a[i__4].imag, - z__2.imag = temp.real * a[i__4].imag + temp.imag * a[ - i__4].real; - z__1.real = x[i__3].real - z__2.real, z__1.imag = x[i__3].imag - - z__2.imag; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__4]) - bli_zimag(temp) * bli_zimag(a[i__4])), (bli_zreal(temp) * bli_zimag(a[i__4]) + bli_zimag(temp) * bli_zreal(a[i__4])), z__2 ); + bli_zsets( (bli_zreal(x[i__3]) - bli_zreal(z__2)), (bli_zimag(x[i__3]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); ix -= *incx; /* L30: */ } @@ -1765,15 +1723,15 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { l = 1 - j; if (nounit) { i__2 = j; bla_z_div(&z__1, &x[j], &a[j * a_dim1 + 1]); - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); } i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); /* Computing MIN */ i__3 = *n, i__4 = j + *k; i__2 = f2c_min(i__3,i__4); @@ -1781,12 +1739,9 @@ i__3 = i__; i__4 = i__; i__5 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - z__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - z__1.real = x[i__4].real - z__2.real, z__1.imag = x[i__4].imag - - z__2.imag; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__5]) - bli_zimag(temp) * bli_zimag(a[i__5])), (bli_zreal(temp) * bli_zimag(a[i__5]) + bli_zimag(temp) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__4]) - bli_zreal(z__2)), (bli_zimag(x[i__4]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); /* L50: */ } } @@ -1798,16 +1753,16 @@ for (j = 1; j <= i__1; ++j) { kx += *incx; i__2 = jx; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { ix = kx; l = 1 - j; if (nounit) { i__2 = jx; bla_z_div(&z__1, &x[jx], &a[j * a_dim1 + 1]); - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); } i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); /* Computing MIN */ i__3 = *n, i__4 = j + *k; i__2 = f2c_min(i__3,i__4); @@ -1815,12 +1770,9 @@ i__3 = ix; i__4 = ix; i__5 = l + i__ + j * a_dim1; - z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag, - z__2.imag = temp.real * a[i__5].imag + temp.imag * a[ - i__5].real; - z__1.real = x[i__4].real - z__2.real, z__1.imag = x[i__4].imag - - z__2.imag; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(a[i__5]) - bli_zimag(temp) * bli_zimag(a[i__5])), (bli_zreal(temp) * bli_zimag(a[i__5]) + bli_zimag(temp) * bli_zreal(a[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__4]) - bli_zreal(z__2)), (bli_zimag(x[i__4]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); ix += *incx; /* L70: */ } @@ -1840,7 +1792,7 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); l = kplus1 - j; if (noconj) { /* Computing MAX */ @@ -1849,17 +1801,14 @@ for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) { i__2 = l + i__ + j * a_dim1; i__3 = i__; - z__2.real = a[i__2].real * x[i__3].real - a[i__2].imag * x[ - i__3].imag, z__2.imag = a[i__2].real * x[i__3].imag + - a[i__2].imag * x[i__3].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__2]) * bli_zreal(x[i__3]) - bli_zimag(a[i__2]) * bli_zimag(x[i__3])), (bli_zreal(a[i__2]) * bli_zimag(x[i__3]) + bli_zimag(a[i__2]) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L90: */ } if (nounit) { bla_z_div(&z__1, &temp, &a[kplus1 + j * a_dim1]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { /* Computing MAX */ @@ -1868,22 +1817,19 @@ for (i__ = f2c_max(i__4,i__2); i__ <= i__3; ++i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__4 = i__; - z__2.real = z__3.real * x[i__4].real - z__3.imag * x[i__4].imag, - z__2.imag = z__3.real * x[i__4].imag + z__3.imag * x[ - i__4].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__4]) - bli_zimag(z__3) * bli_zimag(x[i__4])), (bli_zreal(z__3) * bli_zimag(x[i__4]) + bli_zimag(z__3) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L100: */ } if (nounit) { bla_d_cnjg(&z__2, &a[kplus1 + j * a_dim1]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__3 = j; - x[i__3].real = temp.real, x[i__3].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__3] ); /* L110: */ } } else { @@ -1891,7 +1837,7 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__3 = jx; - temp.real = x[i__3].real, temp.imag = x[i__3].imag; + bli_zsets( (bli_zreal(x[i__3])), (bli_zimag(x[i__3])), temp ); ix = kx; l = kplus1 - j; if (noconj) { @@ -1901,18 +1847,15 @@ for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) { i__3 = l + i__ + j * a_dim1; i__4 = ix; - z__2.real = a[i__3].real * x[i__4].real - a[i__3].imag * x[ - i__4].imag, z__2.imag = a[i__3].real * x[i__4].imag + - a[i__3].imag * x[i__4].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__3]) * bli_zreal(x[i__4]) - bli_zimag(a[i__3]) * bli_zimag(x[i__4])), (bli_zreal(a[i__3]) * bli_zimag(x[i__4]) + bli_zimag(a[i__3]) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L120: */ } if (nounit) { bla_z_div(&z__1, &temp, &a[kplus1 + j * a_dim1]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { /* Computing MAX */ @@ -1921,23 +1864,20 @@ for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__2 = ix; - z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag, - z__2.imag = z__3.real * x[i__2].imag + z__3.imag * x[ - i__2].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__2]) - bli_zimag(z__3) * bli_zimag(x[i__2])), (bli_zreal(z__3) * bli_zimag(x[i__2]) + bli_zimag(z__3) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L130: */ } if (nounit) { bla_d_cnjg(&z__2, &a[kplus1 + j * a_dim1]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__4 = jx; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__4] ); jx += *incx; if (j > *k) { kx += *incx; @@ -1949,7 +1889,7 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); l = 1 - j; if (noconj) { /* Computing MIN */ @@ -1958,17 +1898,14 @@ for (i__ = f2c_min(i__1,i__4); i__ >= i__2; --i__) { i__1 = l + i__ + j * a_dim1; i__4 = i__; - z__2.real = a[i__1].real * x[i__4].real - a[i__1].imag * x[ - i__4].imag, z__2.imag = a[i__1].real * x[i__4].imag + - a[i__1].imag * x[i__4].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__1]) * bli_zreal(x[i__4]) - bli_zimag(a[i__1]) * bli_zimag(x[i__4])), (bli_zreal(a[i__1]) * bli_zimag(x[i__4]) + bli_zimag(a[i__1]) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L150: */ } if (nounit) { bla_z_div(&z__1, &temp, &a[j * a_dim1 + 1]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { /* Computing MIN */ @@ -1977,22 +1914,19 @@ for (i__ = f2c_min(i__2,i__1); i__ >= i__4; --i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__2 = i__; - z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag, - z__2.imag = z__3.real * x[i__2].imag + z__3.imag * x[ - i__2].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__2]) - bli_zimag(z__3) * bli_zimag(x[i__2])), (bli_zreal(z__3) * bli_zimag(x[i__2]) + bli_zimag(z__3) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L160: */ } if (nounit) { bla_d_cnjg(&z__2, &a[j * a_dim1 + 1]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__4 = j; - x[i__4].real = temp.real, x[i__4].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__4] ); /* L170: */ } } else { @@ -2000,7 +1934,7 @@ jx = kx; for (j = *n; j >= 1; --j) { i__4 = jx; - temp.real = x[i__4].real, temp.imag = x[i__4].imag; + bli_zsets( (bli_zreal(x[i__4])), (bli_zimag(x[i__4])), temp ); ix = kx; l = 1 - j; if (noconj) { @@ -2010,18 +1944,15 @@ for (i__ = f2c_min(i__4,i__2); i__ >= i__1; --i__) { i__4 = l + i__ + j * a_dim1; i__2 = ix; - z__2.real = a[i__4].real * x[i__2].real - a[i__4].imag * x[ - i__2].imag, z__2.imag = a[i__4].real * x[i__2].imag + - a[i__4].imag * x[i__2].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(a[i__4]) * bli_zreal(x[i__2]) - bli_zimag(a[i__4]) * bli_zimag(x[i__2])), (bli_zreal(a[i__4]) * bli_zimag(x[i__2]) + bli_zimag(a[i__4]) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix -= *incx; /* L180: */ } if (nounit) { bla_z_div(&z__1, &temp, &a[j * a_dim1 + 1]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { /* Computing MIN */ @@ -2030,23 +1961,20 @@ for (i__ = f2c_min(i__1,i__4); i__ >= i__2; --i__) { bla_d_cnjg(&z__3, &a[l + i__ + j * a_dim1]); i__1 = ix; - z__2.real = z__3.real * x[i__1].real - z__3.imag * x[i__1].imag, - z__2.imag = z__3.real * x[i__1].imag + z__3.imag * x[ - i__1].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__1]) - bli_zimag(z__3) * bli_zimag(x[i__1])), (bli_zreal(z__3) * bli_zimag(x[i__1]) + bli_zimag(z__3) * bli_zreal(x[i__1])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix -= *incx; /* L190: */ } if (nounit) { bla_d_cnjg(&z__2, &a[j * a_dim1 + 1]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__2 = jx; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__2] ); jx -= *incx; if (*n - j >= *k) { kx -= *incx; diff --git a/frame/compat/f2c/bla_tpmv.c b/frame/compat/f2c/bla_tpmv.c index 1cda63798..51a4a2c13 100644 --- a/frame/compat/f2c/bla_tpmv.c +++ b/frame/compat/f2c/bla_tpmv.c @@ -218,21 +218,18 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - q__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, q__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - q__1.real = x[i__4].real + q__2.real, q__1.imag = x[i__4].imag + - q__2.imag; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__5]) - bli_cimag(temp) * bli_cimag(ap[i__5])), (bli_creal(temp) * bli_cimag(ap[i__5]) + bli_cimag(temp) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__4]) + bli_creal(q__2)), (bli_cimag(x[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); ++k; /* L10: */ } @@ -240,10 +237,8 @@ i__2 = j; i__3 = j; i__4 = kk + j - 1; - q__1.real = x[i__3].real * ap[i__4].real - x[i__3].imag * ap[ - i__4].imag, q__1.imag = x[i__3].real * ap[i__4].imag - + x[i__3].imag * ap[i__4].real; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(x[i__3]) * bli_creal(ap[i__4]) - bli_cimag(x[i__3]) * bli_cimag(ap[i__4])), (bli_creal(x[i__3]) * bli_cimag(ap[i__4]) + bli_cimag(x[i__3]) * bli_creal(ap[i__4])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); } } kk += j; @@ -254,21 +249,18 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); ix = kx; i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { i__3 = ix; i__4 = ix; i__5 = k; - q__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, q__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - q__1.real = x[i__4].real + q__2.real, q__1.imag = x[i__4].imag + - q__2.imag; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__5]) - bli_cimag(temp) * bli_cimag(ap[i__5])), (bli_creal(temp) * bli_cimag(ap[i__5]) + bli_cimag(temp) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__4]) + bli_creal(q__2)), (bli_cimag(x[i__4]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); ix += *incx; /* L30: */ } @@ -276,10 +268,8 @@ i__2 = jx; i__3 = jx; i__4 = kk + j - 1; - q__1.real = x[i__3].real * ap[i__4].real - x[i__3].imag * ap[ - i__4].imag, q__1.imag = x[i__3].real * ap[i__4].imag - + x[i__3].imag * ap[i__4].real; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(x[i__3]) * bli_creal(ap[i__4]) - bli_cimag(x[i__3]) * bli_cimag(ap[i__4])), (bli_creal(x[i__3]) * bli_cimag(ap[i__4]) + bli_cimag(x[i__3]) * bli_creal(ap[i__4])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); } } jx += *incx; @@ -292,21 +282,18 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0.f || x[i__1].imag != 0.f) { + if (bli_creal(x[i__1]) != 0.f || bli_cimag(x[i__1]) != 0.f) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); k = kk; i__1 = j + 1; for (i__ = *n; i__ >= i__1; --i__) { i__2 = i__; i__3 = i__; i__4 = k; - q__2.real = temp.real * ap[i__4].real - temp.imag * ap[i__4] - .imag, q__2.imag = temp.real * ap[i__4].imag + temp.imag - * ap[i__4].real; - q__1.real = x[i__3].real + q__2.real, q__1.imag = x[i__3].imag + - q__2.imag; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__4]) - bli_cimag(temp) * bli_cimag(ap[i__4])), (bli_creal(temp) * bli_cimag(ap[i__4]) + bli_cimag(temp) * bli_creal(ap[i__4])), q__2 ); + bli_csets( (bli_creal(x[i__3]) + bli_creal(q__2)), (bli_cimag(x[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); --k; /* L50: */ } @@ -314,10 +301,8 @@ i__1 = j; i__2 = j; i__3 = kk - *n + j; - q__1.real = x[i__2].real * ap[i__3].real - x[i__2].imag * ap[ - i__3].imag, q__1.imag = x[i__2].real * ap[i__3].imag - + x[i__2].imag * ap[i__3].real; - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(x[i__2]) * bli_creal(ap[i__3]) - bli_cimag(x[i__2]) * bli_cimag(ap[i__3])), (bli_creal(x[i__2]) * bli_cimag(ap[i__3]) + bli_cimag(x[i__2]) * bli_creal(ap[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); } } kk -= *n - j + 1; @@ -328,21 +313,18 @@ jx = kx; for (j = *n; j >= 1; --j) { i__1 = jx; - if (x[i__1].real != 0.f || x[i__1].imag != 0.f) { + if (bli_creal(x[i__1]) != 0.f || bli_cimag(x[i__1]) != 0.f) { i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); ix = kx; i__1 = kk - (*n - (j + 1)); for (k = kk; k >= i__1; --k) { i__2 = ix; i__3 = ix; i__4 = k; - q__2.real = temp.real * ap[i__4].real - temp.imag * ap[i__4] - .imag, q__2.imag = temp.real * ap[i__4].imag + temp.imag - * ap[i__4].real; - q__1.real = x[i__3].real + q__2.real, q__1.imag = x[i__3].imag + - q__2.imag; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__4]) - bli_cimag(temp) * bli_cimag(ap[i__4])), (bli_creal(temp) * bli_cimag(ap[i__4]) + bli_cimag(temp) * bli_creal(ap[i__4])), q__2 ); + bli_csets( (bli_creal(x[i__3]) + bli_creal(q__2)), (bli_cimag(x[i__3]) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); ix -= *incx; /* L70: */ } @@ -350,10 +332,8 @@ i__1 = jx; i__2 = jx; i__3 = kk - *n + j; - q__1.real = x[i__2].real * ap[i__3].real - x[i__2].imag * ap[ - i__3].imag, q__1.imag = x[i__2].real * ap[i__3].imag - + x[i__2].imag * ap[i__3].real; - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(x[i__2]) * bli_creal(ap[i__3]) - bli_cimag(x[i__2]) * bli_cimag(ap[i__3])), (bli_creal(x[i__2]) * bli_cimag(ap[i__3]) + bli_cimag(x[i__2]) * bli_creal(ap[i__3])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); } } jx -= *incx; @@ -371,51 +351,41 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); k = kk - 1; if (noconj) { if (nounit) { i__1 = kk; - q__1.real = temp.real * ap[i__1].real - temp.imag * ap[i__1] - .imag, q__1.imag = temp.real * ap[i__1].imag + temp.imag - * ap[i__1].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__1]) - bli_cimag(temp) * bli_cimag(ap[i__1])), (bli_creal(temp) * bli_cimag(ap[i__1]) + bli_cimag(temp) * bli_creal(ap[i__1])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } for (i__ = j - 1; i__ >= 1; --i__) { i__1 = k; i__2 = i__; - q__2.real = ap[i__1].real * x[i__2].real - ap[i__1].imag * x[ - i__2].imag, q__2.imag = ap[i__1].real * x[i__2].imag - + ap[i__1].imag * x[i__2].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__1]) * bli_creal(x[i__2]) - bli_cimag(ap[i__1]) * bli_cimag(x[i__2])), (bli_creal(ap[i__1]) * bli_cimag(x[i__2]) + bli_cimag(ap[i__1]) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); --k; /* L90: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &ap[kk]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } for (i__ = j - 1; i__ >= 1; --i__) { bla_r_cnjg(&q__3, &ap[k]); i__1 = i__; - q__2.real = q__3.real * x[i__1].real - q__3.imag * x[i__1].imag, - q__2.imag = q__3.real * x[i__1].imag + q__3.imag * x[ - i__1].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__1]) - bli_cimag(q__3) * bli_cimag(x[i__1])), (bli_creal(q__3) * bli_cimag(x[i__1]) + bli_cimag(q__3) * bli_creal(x[i__1])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); --k; /* L100: */ } } i__1 = j; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__1] ); kk -= j; /* L110: */ } @@ -423,53 +393,43 @@ jx = kx + (*n - 1) * *incx; for (j = *n; j >= 1; --j) { i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); ix = jx; if (noconj) { if (nounit) { i__1 = kk; - q__1.real = temp.real * ap[i__1].real - temp.imag * ap[i__1] - .imag, q__1.imag = temp.real * ap[i__1].imag + temp.imag - * ap[i__1].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__1]) - bli_cimag(temp) * bli_cimag(ap[i__1])), (bli_creal(temp) * bli_cimag(ap[i__1]) + bli_cimag(temp) * bli_creal(ap[i__1])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } i__1 = kk - j + 1; for (k = kk - 1; k >= i__1; --k) { ix -= *incx; i__2 = k; i__3 = ix; - q__2.real = ap[i__2].real * x[i__3].real - ap[i__2].imag * x[ - i__3].imag, q__2.imag = ap[i__2].real * x[i__3].imag - + ap[i__2].imag * x[i__3].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__2]) * bli_creal(x[i__3]) - bli_cimag(ap[i__2]) * bli_cimag(x[i__3])), (bli_creal(ap[i__2]) * bli_cimag(x[i__3]) + bli_cimag(ap[i__2]) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L120: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &ap[kk]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } i__1 = kk - j + 1; for (k = kk - 1; k >= i__1; --k) { ix -= *incx; bla_r_cnjg(&q__3, &ap[k]); i__2 = ix; - q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag, - q__2.imag = q__3.real * x[i__2].imag + q__3.imag * x[ - i__2].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__2]) - bli_cimag(q__3) * bli_cimag(x[i__2])), (bli_creal(q__3) * bli_cimag(x[i__2]) + bli_cimag(q__3) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L130: */ } } i__1 = jx; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__1] ); jx -= *incx; kk -= j; /* L140: */ @@ -481,53 +441,43 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); k = kk + 1; if (noconj) { if (nounit) { i__2 = kk; - q__1.real = temp.real * ap[i__2].real - temp.imag * ap[i__2] - .imag, q__1.imag = temp.real * ap[i__2].imag + temp.imag - * ap[i__2].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__2]) - bli_cimag(temp) * bli_cimag(ap[i__2])), (bli_creal(temp) * bli_cimag(ap[i__2]) + bli_cimag(temp) * bli_creal(ap[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = i__; - q__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, q__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__3]) * bli_creal(x[i__4]) - bli_cimag(ap[i__3]) * bli_cimag(x[i__4])), (bli_creal(ap[i__3]) * bli_cimag(x[i__4]) + bli_cimag(ap[i__3]) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ++k; /* L150: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &ap[kk]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { bla_r_cnjg(&q__3, &ap[k]); i__3 = i__; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, - q__2.imag = q__3.real * x[i__3].imag + q__3.imag * x[ - i__3].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ++k; /* L160: */ } } i__2 = j; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__2] ); kk += *n - j + 1; /* L170: */ } @@ -536,53 +486,43 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); ix = jx; if (noconj) { if (nounit) { i__2 = kk; - q__1.real = temp.real * ap[i__2].real - temp.imag * ap[i__2] - .imag, q__1.imag = temp.real * ap[i__2].imag + temp.imag - * ap[i__2].real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__2]) - bli_cimag(temp) * bli_cimag(ap[i__2])), (bli_creal(temp) * bli_cimag(ap[i__2]) + bli_cimag(temp) * bli_creal(ap[i__2])), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { ix += *incx; i__3 = k; i__4 = ix; - q__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, q__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__3]) * bli_creal(x[i__4]) - bli_cimag(ap[i__3]) * bli_cimag(x[i__4])), (bli_creal(ap[i__3]) * bli_cimag(x[i__4]) + bli_cimag(ap[i__3]) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L180: */ } } else { if (nounit) { bla_r_cnjg(&q__2, &ap[kk]); - q__1.real = temp.real * q__2.real - temp.imag * q__2.imag, - q__1.imag = temp.real * q__2.imag + temp.imag * - q__2.real; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(q__2) - bli_cimag(temp) * bli_cimag(q__2)), (bli_creal(temp) * bli_cimag(q__2) + bli_cimag(temp) * bli_creal(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { ix += *incx; bla_r_cnjg(&q__3, &ap[k]); i__3 = ix; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, - q__2.imag = q__3.real * x[i__3].imag + q__3.imag * x[ - i__3].real; - q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) + bli_creal(q__2)), (bli_cimag(temp) + bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); /* L190: */ } } i__2 = jx; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__2] ); jx += *incx; kk += *n - j + 1; /* L200: */ @@ -1475,21 +1415,18 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); k = kk; i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - z__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, z__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - z__1.real = x[i__4].real + z__2.real, z__1.imag = x[i__4].imag + - z__2.imag; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__5]) - bli_zimag(temp) * bli_zimag(ap[i__5])), (bli_zreal(temp) * bli_zimag(ap[i__5]) + bli_zimag(temp) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__4]) + bli_zreal(z__2)), (bli_zimag(x[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); ++k; /* L10: */ } @@ -1497,10 +1434,8 @@ i__2 = j; i__3 = j; i__4 = kk + j - 1; - z__1.real = x[i__3].real * ap[i__4].real - x[i__3].imag * ap[ - i__4].imag, z__1.imag = x[i__3].real * ap[i__4].imag - + x[i__3].imag * ap[i__4].real; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__3]) * bli_zreal(ap[i__4]) - bli_zimag(x[i__3]) * bli_zimag(ap[i__4])), (bli_zreal(x[i__3]) * bli_zimag(ap[i__4]) + bli_zimag(x[i__3]) * bli_zreal(ap[i__4])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); } } kk += j; @@ -1511,21 +1446,18 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); ix = kx; i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { i__3 = ix; i__4 = ix; i__5 = k; - z__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, z__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - z__1.real = x[i__4].real + z__2.real, z__1.imag = x[i__4].imag + - z__2.imag; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__5]) - bli_zimag(temp) * bli_zimag(ap[i__5])), (bli_zreal(temp) * bli_zimag(ap[i__5]) + bli_zimag(temp) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__4]) + bli_zreal(z__2)), (bli_zimag(x[i__4]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); ix += *incx; /* L30: */ } @@ -1533,10 +1465,8 @@ i__2 = jx; i__3 = jx; i__4 = kk + j - 1; - z__1.real = x[i__3].real * ap[i__4].real - x[i__3].imag * ap[ - i__4].imag, z__1.imag = x[i__3].real * ap[i__4].imag - + x[i__3].imag * ap[i__4].real; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__3]) * bli_zreal(ap[i__4]) - bli_zimag(x[i__3]) * bli_zimag(ap[i__4])), (bli_zreal(x[i__3]) * bli_zimag(ap[i__4]) + bli_zimag(x[i__3]) * bli_zreal(ap[i__4])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); } } jx += *incx; @@ -1549,21 +1479,18 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0. || x[i__1].imag != 0.) { + if (bli_zreal(x[i__1]) != 0. || bli_zimag(x[i__1]) != 0.) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); k = kk; i__1 = j + 1; for (i__ = *n; i__ >= i__1; --i__) { i__2 = i__; i__3 = i__; i__4 = k; - z__2.real = temp.real * ap[i__4].real - temp.imag * ap[i__4] - .imag, z__2.imag = temp.real * ap[i__4].imag + temp.imag - * ap[i__4].real; - z__1.real = x[i__3].real + z__2.real, z__1.imag = x[i__3].imag + - z__2.imag; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__4]) - bli_zimag(temp) * bli_zimag(ap[i__4])), (bli_zreal(temp) * bli_zimag(ap[i__4]) + bli_zimag(temp) * bli_zreal(ap[i__4])), z__2 ); + bli_zsets( (bli_zreal(x[i__3]) + bli_zreal(z__2)), (bli_zimag(x[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); --k; /* L50: */ } @@ -1571,10 +1498,8 @@ i__1 = j; i__2 = j; i__3 = kk - *n + j; - z__1.real = x[i__2].real * ap[i__3].real - x[i__2].imag * ap[ - i__3].imag, z__1.imag = x[i__2].real * ap[i__3].imag - + x[i__2].imag * ap[i__3].real; - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__2]) * bli_zreal(ap[i__3]) - bli_zimag(x[i__2]) * bli_zimag(ap[i__3])), (bli_zreal(x[i__2]) * bli_zimag(ap[i__3]) + bli_zimag(x[i__2]) * bli_zreal(ap[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); } } kk -= *n - j + 1; @@ -1585,21 +1510,18 @@ jx = kx; for (j = *n; j >= 1; --j) { i__1 = jx; - if (x[i__1].real != 0. || x[i__1].imag != 0.) { + if (bli_zreal(x[i__1]) != 0. || bli_zimag(x[i__1]) != 0.) { i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); ix = kx; i__1 = kk - (*n - (j + 1)); for (k = kk; k >= i__1; --k) { i__2 = ix; i__3 = ix; i__4 = k; - z__2.real = temp.real * ap[i__4].real - temp.imag * ap[i__4] - .imag, z__2.imag = temp.real * ap[i__4].imag + temp.imag - * ap[i__4].real; - z__1.real = x[i__3].real + z__2.real, z__1.imag = x[i__3].imag + - z__2.imag; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__4]) - bli_zimag(temp) * bli_zimag(ap[i__4])), (bli_zreal(temp) * bli_zimag(ap[i__4]) + bli_zimag(temp) * bli_zreal(ap[i__4])), z__2 ); + bli_zsets( (bli_zreal(x[i__3]) + bli_zreal(z__2)), (bli_zimag(x[i__3]) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); ix -= *incx; /* L70: */ } @@ -1607,10 +1529,8 @@ i__1 = jx; i__2 = jx; i__3 = kk - *n + j; - z__1.real = x[i__2].real * ap[i__3].real - x[i__2].imag * ap[ - i__3].imag, z__1.imag = x[i__2].real * ap[i__3].imag - + x[i__2].imag * ap[i__3].real; - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(x[i__2]) * bli_zreal(ap[i__3]) - bli_zimag(x[i__2]) * bli_zimag(ap[i__3])), (bli_zreal(x[i__2]) * bli_zimag(ap[i__3]) + bli_zimag(x[i__2]) * bli_zreal(ap[i__3])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); } } jx -= *incx; @@ -1628,51 +1548,41 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); k = kk - 1; if (noconj) { if (nounit) { i__1 = kk; - z__1.real = temp.real * ap[i__1].real - temp.imag * ap[i__1] - .imag, z__1.imag = temp.real * ap[i__1].imag + temp.imag - * ap[i__1].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__1]) - bli_zimag(temp) * bli_zimag(ap[i__1])), (bli_zreal(temp) * bli_zimag(ap[i__1]) + bli_zimag(temp) * bli_zreal(ap[i__1])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } for (i__ = j - 1; i__ >= 1; --i__) { i__1 = k; i__2 = i__; - z__2.real = ap[i__1].real * x[i__2].real - ap[i__1].imag * x[ - i__2].imag, z__2.imag = ap[i__1].real * x[i__2].imag - + ap[i__1].imag * x[i__2].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__1]) * bli_zreal(x[i__2]) - bli_zimag(ap[i__1]) * bli_zimag(x[i__2])), (bli_zreal(ap[i__1]) * bli_zimag(x[i__2]) + bli_zimag(ap[i__1]) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); --k; /* L90: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &ap[kk]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } for (i__ = j - 1; i__ >= 1; --i__) { bla_d_cnjg(&z__3, &ap[k]); i__1 = i__; - z__2.real = z__3.real * x[i__1].real - z__3.imag * x[i__1].imag, - z__2.imag = z__3.real * x[i__1].imag + z__3.imag * x[ - i__1].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__1]) - bli_zimag(z__3) * bli_zimag(x[i__1])), (bli_zreal(z__3) * bli_zimag(x[i__1]) + bli_zimag(z__3) * bli_zreal(x[i__1])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); --k; /* L100: */ } } i__1 = j; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__1] ); kk -= j; /* L110: */ } @@ -1680,53 +1590,43 @@ jx = kx + (*n - 1) * *incx; for (j = *n; j >= 1; --j) { i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); ix = jx; if (noconj) { if (nounit) { i__1 = kk; - z__1.real = temp.real * ap[i__1].real - temp.imag * ap[i__1] - .imag, z__1.imag = temp.real * ap[i__1].imag + temp.imag - * ap[i__1].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__1]) - bli_zimag(temp) * bli_zimag(ap[i__1])), (bli_zreal(temp) * bli_zimag(ap[i__1]) + bli_zimag(temp) * bli_zreal(ap[i__1])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } i__1 = kk - j + 1; for (k = kk - 1; k >= i__1; --k) { ix -= *incx; i__2 = k; i__3 = ix; - z__2.real = ap[i__2].real * x[i__3].real - ap[i__2].imag * x[ - i__3].imag, z__2.imag = ap[i__2].real * x[i__3].imag - + ap[i__2].imag * x[i__3].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__2]) * bli_zreal(x[i__3]) - bli_zimag(ap[i__2]) * bli_zimag(x[i__3])), (bli_zreal(ap[i__2]) * bli_zimag(x[i__3]) + bli_zimag(ap[i__2]) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L120: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &ap[kk]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } i__1 = kk - j + 1; for (k = kk - 1; k >= i__1; --k) { ix -= *incx; bla_d_cnjg(&z__3, &ap[k]); i__2 = ix; - z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag, - z__2.imag = z__3.real * x[i__2].imag + z__3.imag * x[ - i__2].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__2]) - bli_zimag(z__3) * bli_zimag(x[i__2])), (bli_zreal(z__3) * bli_zimag(x[i__2]) + bli_zimag(z__3) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L130: */ } } i__1 = jx; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__1] ); jx -= *incx; kk -= j; /* L140: */ @@ -1738,53 +1638,43 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); k = kk + 1; if (noconj) { if (nounit) { i__2 = kk; - z__1.real = temp.real * ap[i__2].real - temp.imag * ap[i__2] - .imag, z__1.imag = temp.real * ap[i__2].imag + temp.imag - * ap[i__2].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__2]) - bli_zimag(temp) * bli_zimag(ap[i__2])), (bli_zreal(temp) * bli_zimag(ap[i__2]) + bli_zimag(temp) * bli_zreal(ap[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = i__; - z__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, z__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__3]) * bli_zreal(x[i__4]) - bli_zimag(ap[i__3]) * bli_zimag(x[i__4])), (bli_zreal(ap[i__3]) * bli_zimag(x[i__4]) + bli_zimag(ap[i__3]) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ++k; /* L150: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &ap[kk]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { bla_d_cnjg(&z__3, &ap[k]); i__3 = i__; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, - z__2.imag = z__3.real * x[i__3].imag + z__3.imag * x[ - i__3].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ++k; /* L160: */ } } i__2 = j; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__2] ); kk += *n - j + 1; /* L170: */ } @@ -1793,53 +1683,43 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); ix = jx; if (noconj) { if (nounit) { i__2 = kk; - z__1.real = temp.real * ap[i__2].real - temp.imag * ap[i__2] - .imag, z__1.imag = temp.real * ap[i__2].imag + temp.imag - * ap[i__2].real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__2]) - bli_zimag(temp) * bli_zimag(ap[i__2])), (bli_zreal(temp) * bli_zimag(ap[i__2]) + bli_zimag(temp) * bli_zreal(ap[i__2])), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { ix += *incx; i__3 = k; i__4 = ix; - z__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, z__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__3]) * bli_zreal(x[i__4]) - bli_zimag(ap[i__3]) * bli_zimag(x[i__4])), (bli_zreal(ap[i__3]) * bli_zimag(x[i__4]) + bli_zimag(ap[i__3]) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L180: */ } } else { if (nounit) { bla_d_cnjg(&z__2, &ap[kk]); - z__1.real = temp.real * z__2.real - temp.imag * z__2.imag, - z__1.imag = temp.real * z__2.imag + temp.imag * - z__2.real; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(z__2) - bli_zimag(temp) * bli_zimag(z__2)), (bli_zreal(temp) * bli_zimag(z__2) + bli_zimag(temp) * bli_zreal(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { ix += *incx; bla_d_cnjg(&z__3, &ap[k]); i__3 = ix; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, - z__2.imag = z__3.real * x[i__3].imag + z__3.imag * x[ - i__3].real; - z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) + bli_zreal(z__2)), (bli_zimag(temp) + bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); /* L190: */ } } i__2 = jx; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__2] ); jx += *incx; kk += *n - j + 1; /* L200: */ diff --git a/frame/compat/f2c/bla_tpsv.c b/frame/compat/f2c/bla_tpsv.c index 6bff17285..fa62d2a0f 100644 --- a/frame/compat/f2c/bla_tpsv.c +++ b/frame/compat/f2c/bla_tpsv.c @@ -220,25 +220,22 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0.f || x[i__1].imag != 0.f) { + if (bli_creal(x[i__1]) != 0.f || bli_cimag(x[i__1]) != 0.f) { if (nounit) { i__1 = j; bla_c_div(&q__1, &x[j], &ap[kk]); - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); } i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); k = kk - 1; for (i__ = j - 1; i__ >= 1; --i__) { i__1 = i__; i__2 = i__; i__3 = k; - q__2.real = temp.real * ap[i__3].real - temp.imag * ap[i__3] - .imag, q__2.imag = temp.real * ap[i__3].imag + temp.imag - * ap[i__3].real; - q__1.real = x[i__2].real - q__2.real, q__1.imag = x[i__2].imag - - q__2.imag; - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__3]) - bli_cimag(temp) * bli_cimag(ap[i__3])), (bli_creal(temp) * bli_cimag(ap[i__3]) + bli_cimag(temp) * bli_creal(ap[i__3])), q__2 ); + bli_csets( (bli_creal(x[i__2]) - bli_creal(q__2)), (bli_cimag(x[i__2]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); --k; /* L10: */ } @@ -250,14 +247,14 @@ jx = kx + (*n - 1) * *incx; for (j = *n; j >= 1; --j) { i__1 = jx; - if (x[i__1].real != 0.f || x[i__1].imag != 0.f) { + if (bli_creal(x[i__1]) != 0.f || bli_cimag(x[i__1]) != 0.f) { if (nounit) { i__1 = jx; bla_c_div(&q__1, &x[jx], &ap[kk]); - x[i__1].real = q__1.real, x[i__1].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__1] ); } i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); ix = jx; i__1 = kk - j + 1; for (k = kk - 1; k >= i__1; --k) { @@ -265,12 +262,9 @@ i__2 = ix; i__3 = ix; i__4 = k; - q__2.real = temp.real * ap[i__4].real - temp.imag * ap[i__4] - .imag, q__2.imag = temp.real * ap[i__4].imag + temp.imag - * ap[i__4].real; - q__1.real = x[i__3].real - q__2.real, q__1.imag = x[i__3].imag - - q__2.imag; - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__4]) - bli_cimag(temp) * bli_cimag(ap[i__4])), (bli_creal(temp) * bli_cimag(ap[i__4]) + bli_cimag(temp) * bli_creal(ap[i__4])), q__2 ); + bli_csets( (bli_creal(x[i__3]) - bli_creal(q__2)), (bli_cimag(x[i__3]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); /* L30: */ } } @@ -285,26 +279,23 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { if (nounit) { i__2 = j; bla_c_div(&q__1, &x[j], &ap[kk]); - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); } i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - q__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, q__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - q__1.real = x[i__4].real - q__2.real, q__1.imag = x[i__4].imag - - q__2.imag; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__5]) - bli_cimag(temp) * bli_cimag(ap[i__5])), (bli_creal(temp) * bli_cimag(ap[i__5]) + bli_cimag(temp) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__4]) - bli_creal(q__2)), (bli_cimag(x[i__4]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); ++k; /* L50: */ } @@ -317,14 +308,14 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0.f || x[i__2].imag != 0.f) { + if (bli_creal(x[i__2]) != 0.f || bli_cimag(x[i__2]) != 0.f) { if (nounit) { i__2 = jx; bla_c_div(&q__1, &x[jx], &ap[kk]); - x[i__2].real = q__1.real, x[i__2].imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__2] ); } i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); ix = jx; i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { @@ -332,12 +323,9 @@ i__3 = ix; i__4 = ix; i__5 = k; - q__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, q__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - q__1.real = x[i__4].real - q__2.real, q__1.imag = x[i__4].imag - - q__2.imag; - x[i__3].real = q__1.real, x[i__3].imag = q__1.imag; + bli_csets( (bli_creal(temp) * bli_creal(ap[i__5]) - bli_cimag(temp) * bli_cimag(ap[i__5])), (bli_creal(temp) * bli_cimag(ap[i__5]) + bli_cimag(temp) * bli_creal(ap[i__5])), q__2 ); + bli_csets( (bli_creal(x[i__4]) - bli_creal(q__2)), (bli_cimag(x[i__4]) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), x[i__3] ); /* L70: */ } } @@ -357,48 +345,42 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); k = kk; if (noconj) { i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = i__; - q__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, q__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__3]) * bli_creal(x[i__4]) - bli_cimag(ap[i__3]) * bli_cimag(x[i__4])), (bli_creal(ap[i__3]) * bli_cimag(x[i__4]) + bli_cimag(ap[i__3]) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ++k; /* L90: */ } if (nounit) { bla_c_div(&q__1, &temp, &ap[kk + j - 1]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { bla_r_cnjg(&q__3, &ap[k]); i__3 = i__; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, - q__2.imag = q__3.real * x[i__3].imag + q__3.imag * x[ - i__3].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ++k; /* L100: */ } if (nounit) { bla_r_cnjg(&q__2, &ap[kk + j - 1]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__2 = j; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__2] ); kk += j; /* L110: */ } @@ -407,48 +389,42 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_csets( (bli_creal(x[i__2])), (bli_cimag(x[i__2])), temp ); ix = kx; if (noconj) { i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { i__3 = k; i__4 = ix; - q__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, q__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__3]) * bli_creal(x[i__4]) - bli_cimag(ap[i__3]) * bli_cimag(x[i__4])), (bli_creal(ap[i__3]) * bli_cimag(x[i__4]) + bli_cimag(ap[i__3]) * bli_creal(x[i__4])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L120: */ } if (nounit) { bla_c_div(&q__1, &temp, &ap[kk + j - 1]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { bla_r_cnjg(&q__3, &ap[k]); i__3 = ix; - q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag, - q__2.imag = q__3.real * x[i__3].imag + q__3.imag * x[ - i__3].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__3]) - bli_cimag(q__3) * bli_cimag(x[i__3])), (bli_creal(q__3) * bli_cimag(x[i__3]) + bli_cimag(q__3) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix += *incx; /* L130: */ } if (nounit) { bla_r_cnjg(&q__2, &ap[kk + j - 1]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__2 = jx; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__2] ); jx += *incx; kk += j; /* L140: */ @@ -459,48 +435,42 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); k = kk; if (noconj) { i__1 = j + 1; for (i__ = *n; i__ >= i__1; --i__) { i__2 = k; i__3 = i__; - q__2.real = ap[i__2].real * x[i__3].real - ap[i__2].imag * x[ - i__3].imag, q__2.imag = ap[i__2].real * x[i__3].imag - + ap[i__2].imag * x[i__3].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__2]) * bli_creal(x[i__3]) - bli_cimag(ap[i__2]) * bli_cimag(x[i__3])), (bli_creal(ap[i__2]) * bli_cimag(x[i__3]) + bli_cimag(ap[i__2]) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); --k; /* L150: */ } if (nounit) { bla_c_div(&q__1, &temp, &ap[kk - *n + j]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { i__1 = j + 1; for (i__ = *n; i__ >= i__1; --i__) { bla_r_cnjg(&q__3, &ap[k]); i__2 = i__; - q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag, - q__2.imag = q__3.real * x[i__2].imag + q__3.imag * x[ - i__2].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__2]) - bli_cimag(q__3) * bli_cimag(x[i__2])), (bli_creal(q__3) * bli_cimag(x[i__2]) + bli_cimag(q__3) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); --k; /* L160: */ } if (nounit) { bla_r_cnjg(&q__2, &ap[kk - *n + j]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__1 = j; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__1] ); kk -= *n - j + 1; /* L170: */ } @@ -509,48 +479,42 @@ jx = kx; for (j = *n; j >= 1; --j) { i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_csets( (bli_creal(x[i__1])), (bli_cimag(x[i__1])), temp ); ix = kx; if (noconj) { i__1 = kk - (*n - (j + 1)); for (k = kk; k >= i__1; --k) { i__2 = k; i__3 = ix; - q__2.real = ap[i__2].real * x[i__3].real - ap[i__2].imag * x[ - i__3].imag, q__2.imag = ap[i__2].real * x[i__3].imag - + ap[i__2].imag * x[i__3].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(ap[i__2]) * bli_creal(x[i__3]) - bli_cimag(ap[i__2]) * bli_cimag(x[i__3])), (bli_creal(ap[i__2]) * bli_cimag(x[i__3]) + bli_cimag(ap[i__2]) * bli_creal(x[i__3])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix -= *incx; /* L180: */ } if (nounit) { bla_c_div(&q__1, &temp, &ap[kk - *n + j]); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } else { i__1 = kk - (*n - (j + 1)); for (k = kk; k >= i__1; --k) { bla_r_cnjg(&q__3, &ap[k]); i__2 = ix; - q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag, - q__2.imag = q__3.real * x[i__2].imag + q__3.imag * x[ - i__2].real; - q__1.real = temp.real - q__2.real, q__1.imag = temp.imag - - q__2.imag; - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__3) * bli_creal(x[i__2]) - bli_cimag(q__3) * bli_cimag(x[i__2])), (bli_creal(q__3) * bli_cimag(x[i__2]) + bli_cimag(q__3) * bli_creal(x[i__2])), q__2 ); + bli_csets( (bli_creal(temp) - bli_creal(q__2)), (bli_cimag(temp) - bli_cimag(q__2)), q__1 ); + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); ix -= *incx; /* L190: */ } if (nounit) { bla_r_cnjg(&q__2, &ap[kk - *n + j]); bla_c_div(&q__1, &temp, &q__2); - temp.real = q__1.real, temp.imag = q__1.imag; + bli_csets( (bli_creal(q__1)), (bli_cimag(q__1)), temp ); } } i__1 = jx; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_csets( (bli_creal(temp)), (bli_cimag(temp)), x[i__1] ); jx -= *incx; kk -= *n - j + 1; /* L200: */ @@ -1452,25 +1416,22 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - if (x[i__1].real != 0. || x[i__1].imag != 0.) { + if (bli_zreal(x[i__1]) != 0. || bli_zimag(x[i__1]) != 0.) { if (nounit) { i__1 = j; bla_z_div(&z__1, &x[j], &ap[kk]); - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); } i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); k = kk - 1; for (i__ = j - 1; i__ >= 1; --i__) { i__1 = i__; i__2 = i__; i__3 = k; - z__2.real = temp.real * ap[i__3].real - temp.imag * ap[i__3] - .imag, z__2.imag = temp.real * ap[i__3].imag + temp.imag - * ap[i__3].real; - z__1.real = x[i__2].real - z__2.real, z__1.imag = x[i__2].imag - - z__2.imag; - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__3]) - bli_zimag(temp) * bli_zimag(ap[i__3])), (bli_zreal(temp) * bli_zimag(ap[i__3]) + bli_zimag(temp) * bli_zreal(ap[i__3])), z__2 ); + bli_zsets( (bli_zreal(x[i__2]) - bli_zreal(z__2)), (bli_zimag(x[i__2]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); --k; /* L10: */ } @@ -1482,14 +1443,14 @@ jx = kx + (*n - 1) * *incx; for (j = *n; j >= 1; --j) { i__1 = jx; - if (x[i__1].real != 0. || x[i__1].imag != 0.) { + if (bli_zreal(x[i__1]) != 0. || bli_zimag(x[i__1]) != 0.) { if (nounit) { i__1 = jx; bla_z_div(&z__1, &x[jx], &ap[kk]); - x[i__1].real = z__1.real, x[i__1].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__1] ); } i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); ix = jx; i__1 = kk - j + 1; for (k = kk - 1; k >= i__1; --k) { @@ -1497,12 +1458,9 @@ i__2 = ix; i__3 = ix; i__4 = k; - z__2.real = temp.real * ap[i__4].real - temp.imag * ap[i__4] - .imag, z__2.imag = temp.real * ap[i__4].imag + temp.imag - * ap[i__4].real; - z__1.real = x[i__3].real - z__2.real, z__1.imag = x[i__3].imag - - z__2.imag; - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__4]) - bli_zimag(temp) * bli_zimag(ap[i__4])), (bli_zreal(temp) * bli_zimag(ap[i__4]) + bli_zimag(temp) * bli_zreal(ap[i__4])), z__2 ); + bli_zsets( (bli_zreal(x[i__3]) - bli_zreal(z__2)), (bli_zimag(x[i__3]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); /* L30: */ } } @@ -1517,26 +1475,23 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { if (nounit) { i__2 = j; bla_z_div(&z__1, &x[j], &ap[kk]); - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); } i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); k = kk + 1; i__2 = *n; for (i__ = j + 1; i__ <= i__2; ++i__) { i__3 = i__; i__4 = i__; i__5 = k; - z__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, z__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - z__1.real = x[i__4].real - z__2.real, z__1.imag = x[i__4].imag - - z__2.imag; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__5]) - bli_zimag(temp) * bli_zimag(ap[i__5])), (bli_zreal(temp) * bli_zimag(ap[i__5]) + bli_zimag(temp) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__4]) - bli_zreal(z__2)), (bli_zimag(x[i__4]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); ++k; /* L50: */ } @@ -1549,14 +1504,14 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - if (x[i__2].real != 0. || x[i__2].imag != 0.) { + if (bli_zreal(x[i__2]) != 0. || bli_zimag(x[i__2]) != 0.) { if (nounit) { i__2 = jx; bla_z_div(&z__1, &x[jx], &ap[kk]); - x[i__2].real = z__1.real, x[i__2].imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__2] ); } i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); ix = jx; i__2 = kk + *n - j; for (k = kk + 1; k <= i__2; ++k) { @@ -1564,12 +1519,9 @@ i__3 = ix; i__4 = ix; i__5 = k; - z__2.real = temp.real * ap[i__5].real - temp.imag * ap[i__5] - .imag, z__2.imag = temp.real * ap[i__5].imag + temp.imag - * ap[i__5].real; - z__1.real = x[i__4].real - z__2.real, z__1.imag = x[i__4].imag - - z__2.imag; - x[i__3].real = z__1.real, x[i__3].imag = z__1.imag; + bli_zsets( (bli_zreal(temp) * bli_zreal(ap[i__5]) - bli_zimag(temp) * bli_zimag(ap[i__5])), (bli_zreal(temp) * bli_zimag(ap[i__5]) + bli_zimag(temp) * bli_zreal(ap[i__5])), z__2 ); + bli_zsets( (bli_zreal(x[i__4]) - bli_zreal(z__2)), (bli_zimag(x[i__4]) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), x[i__3] ); /* L70: */ } } @@ -1589,48 +1541,42 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = j; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); k = kk; if (noconj) { i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { i__3 = k; i__4 = i__; - z__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, z__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__3]) * bli_zreal(x[i__4]) - bli_zimag(ap[i__3]) * bli_zimag(x[i__4])), (bli_zreal(ap[i__3]) * bli_zimag(x[i__4]) + bli_zimag(ap[i__3]) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ++k; /* L90: */ } if (nounit) { bla_z_div(&z__1, &temp, &ap[kk + j - 1]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { i__2 = j - 1; for (i__ = 1; i__ <= i__2; ++i__) { bla_d_cnjg(&z__3, &ap[k]); i__3 = i__; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, - z__2.imag = z__3.real * x[i__3].imag + z__3.imag * x[ - i__3].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ++k; /* L100: */ } if (nounit) { bla_d_cnjg(&z__2, &ap[kk + j - 1]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__2 = j; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__2] ); kk += j; /* L110: */ } @@ -1639,48 +1585,42 @@ i__1 = *n; for (j = 1; j <= i__1; ++j) { i__2 = jx; - temp.real = x[i__2].real, temp.imag = x[i__2].imag; + bli_zsets( (bli_zreal(x[i__2])), (bli_zimag(x[i__2])), temp ); ix = kx; if (noconj) { i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { i__3 = k; i__4 = ix; - z__2.real = ap[i__3].real * x[i__4].real - ap[i__3].imag * x[ - i__4].imag, z__2.imag = ap[i__3].real * x[i__4].imag - + ap[i__3].imag * x[i__4].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__3]) * bli_zreal(x[i__4]) - bli_zimag(ap[i__3]) * bli_zimag(x[i__4])), (bli_zreal(ap[i__3]) * bli_zimag(x[i__4]) + bli_zimag(ap[i__3]) * bli_zreal(x[i__4])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L120: */ } if (nounit) { bla_z_div(&z__1, &temp, &ap[kk + j - 1]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { i__2 = kk + j - 2; for (k = kk; k <= i__2; ++k) { bla_d_cnjg(&z__3, &ap[k]); i__3 = ix; - z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag, - z__2.imag = z__3.real * x[i__3].imag + z__3.imag * x[ - i__3].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__3]) - bli_zimag(z__3) * bli_zimag(x[i__3])), (bli_zreal(z__3) * bli_zimag(x[i__3]) + bli_zimag(z__3) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix += *incx; /* L130: */ } if (nounit) { bla_d_cnjg(&z__2, &ap[kk + j - 1]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__2 = jx; - x[i__2].real = temp.real, x[i__2].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__2] ); jx += *incx; kk += j; /* L140: */ @@ -1691,48 +1631,42 @@ if (*incx == 1) { for (j = *n; j >= 1; --j) { i__1 = j; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); k = kk; if (noconj) { i__1 = j + 1; for (i__ = *n; i__ >= i__1; --i__) { i__2 = k; i__3 = i__; - z__2.real = ap[i__2].real * x[i__3].real - ap[i__2].imag * x[ - i__3].imag, z__2.imag = ap[i__2].real * x[i__3].imag - + ap[i__2].imag * x[i__3].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__2]) * bli_zreal(x[i__3]) - bli_zimag(ap[i__2]) * bli_zimag(x[i__3])), (bli_zreal(ap[i__2]) * bli_zimag(x[i__3]) + bli_zimag(ap[i__2]) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); --k; /* L150: */ } if (nounit) { bla_z_div(&z__1, &temp, &ap[kk - *n + j]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { i__1 = j + 1; for (i__ = *n; i__ >= i__1; --i__) { bla_d_cnjg(&z__3, &ap[k]); i__2 = i__; - z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag, - z__2.imag = z__3.real * x[i__2].imag + z__3.imag * x[ - i__2].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__2]) - bli_zimag(z__3) * bli_zimag(x[i__2])), (bli_zreal(z__3) * bli_zimag(x[i__2]) + bli_zimag(z__3) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); --k; /* L160: */ } if (nounit) { bla_d_cnjg(&z__2, &ap[kk - *n + j]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__1 = j; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__1] ); kk -= *n - j + 1; /* L170: */ } @@ -1741,48 +1675,42 @@ jx = kx; for (j = *n; j >= 1; --j) { i__1 = jx; - temp.real = x[i__1].real, temp.imag = x[i__1].imag; + bli_zsets( (bli_zreal(x[i__1])), (bli_zimag(x[i__1])), temp ); ix = kx; if (noconj) { i__1 = kk - (*n - (j + 1)); for (k = kk; k >= i__1; --k) { i__2 = k; i__3 = ix; - z__2.real = ap[i__2].real * x[i__3].real - ap[i__2].imag * x[ - i__3].imag, z__2.imag = ap[i__2].real * x[i__3].imag - + ap[i__2].imag * x[i__3].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(ap[i__2]) * bli_zreal(x[i__3]) - bli_zimag(ap[i__2]) * bli_zimag(x[i__3])), (bli_zreal(ap[i__2]) * bli_zimag(x[i__3]) + bli_zimag(ap[i__2]) * bli_zreal(x[i__3])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix -= *incx; /* L180: */ } if (nounit) { bla_z_div(&z__1, &temp, &ap[kk - *n + j]); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } else { i__1 = kk - (*n - (j + 1)); for (k = kk; k >= i__1; --k) { bla_d_cnjg(&z__3, &ap[k]); i__2 = ix; - z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag, - z__2.imag = z__3.real * x[i__2].imag + z__3.imag * x[ - i__2].real; - z__1.real = temp.real - z__2.real, z__1.imag = temp.imag - - z__2.imag; - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__3) * bli_zreal(x[i__2]) - bli_zimag(z__3) * bli_zimag(x[i__2])), (bli_zreal(z__3) * bli_zimag(x[i__2]) + bli_zimag(z__3) * bli_zreal(x[i__2])), z__2 ); + bli_zsets( (bli_zreal(temp) - bli_zreal(z__2)), (bli_zimag(temp) - bli_zimag(z__2)), z__1 ); + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); ix -= *incx; /* L190: */ } if (nounit) { bla_d_cnjg(&z__2, &ap[kk - *n + j]); bla_z_div(&z__1, &temp, &z__2); - temp.real = z__1.real, temp.imag = z__1.imag; + bli_zsets( (bli_zreal(z__1)), (bli_zimag(z__1)), temp ); } } i__1 = jx; - x[i__1].real = temp.real, x[i__1].imag = temp.imag; + bli_zsets( (bli_zreal(temp)), (bli_zimag(temp)), x[i__1] ); jx -= *incx; kk -= *n - j + 1; /* L200: */ diff --git a/frame/compat/f2c/util/bla_d_abs.c b/frame/compat/f2c/util/bla_d_abs.c index 1c0fcdc95..749ec91e0 100644 --- a/frame/compat/f2c/util/bla_d_abs.c +++ b/frame/compat/f2c/util/bla_d_abs.c @@ -38,7 +38,7 @@ double bla_d_abs(doublereal *x) { - if(*x >= 0) + if(*x >= 0.0) return(*x); return(- *x); diff --git a/frame/compat/f2c/util/bla_d_sign.c b/frame/compat/f2c/util/bla_d_sign.c index bd739be08..11f8d40e3 100644 --- a/frame/compat/f2c/util/bla_d_sign.c +++ b/frame/compat/f2c/util/bla_d_sign.c @@ -38,9 +38,9 @@ double bla_d_sign(doublereal *a, doublereal *b) { - double x = (*a >= 0 ? *a : - *a); + double x = (*a >= 0.0 ? *a : - *a); - return(*b >= 0 ? x : -x); + return(*b >= 0.0 ? x : -x); } #endif diff --git a/frame/compat/f2c/util/bla_r_abs.c b/frame/compat/f2c/util/bla_r_abs.c index 71a997425..956e45b75 100644 --- a/frame/compat/f2c/util/bla_r_abs.c +++ b/frame/compat/f2c/util/bla_r_abs.c @@ -38,7 +38,7 @@ double bla_r_abs(real *x) { - if(*x >= 0) + if(*x >= 0.0) return(*x); return(- *x); diff --git a/frame/compat/f2c/util/bla_r_sign.c b/frame/compat/f2c/util/bla_r_sign.c index 3abf4398e..3f425a02d 100644 --- a/frame/compat/f2c/util/bla_r_sign.c +++ b/frame/compat/f2c/util/bla_r_sign.c @@ -38,9 +38,9 @@ double bla_r_sign(real *a, real *b) { - double x = (*a >= 0 ? *a : - *a); + double x = (*a >= 0.0 ? *a : - *a); - return(*b >= 0 ? x : -x); + return(*b >= 0.0 ? x : -x); } #endif diff --git a/frame/include/bli_obj_macro_defs.h b/frame/include/bli_obj_macro_defs.h index 6931ea074..346b50a06 100644 --- a/frame/include/bli_obj_macro_defs.h +++ b/frame/include/bli_obj_macro_defs.h @@ -232,9 +232,9 @@ (obj).info = ( (obj).info & ~BLIS_TRANS_BIT ) | (trans); \ } -#define bli_obj_set_conj( conj, obj ) \ +#define bli_obj_set_conj( conjval, obj ) \ { \ - (obj).info = ( (obj).info & ~BLIS_CONJ_BIT ) | (conj); \ + (obj).info = ( (obj).info & ~BLIS_CONJ_BIT ) | (conjval); \ } #define bli_obj_set_uplo( uplo, obj ) \ @@ -329,9 +329,9 @@ (obj).info = ( (obj).info ^ (trans) ); \ } -#define bli_obj_apply_conj( conj, obj )\ +#define bli_obj_apply_conj( conjval, obj )\ { \ - (obj).info = ( (obj).info ^ (conj) ); \ + (obj).info = ( (obj).info ^ (conjval) ); \ } @@ -842,10 +842,10 @@ bli_obj_width_stored( obj ) // Create an alias with a conj value applied. -#define bli_obj_alias_with_conj( conj, a, b ) \ +#define bli_obj_alias_with_conj( conja, a, b ) \ { \ bli_obj_alias_to( a, b ); \ - bli_obj_apply_conj( conj, b ); \ + bli_obj_apply_conj( conja, b ); \ } diff --git a/frame/include/bli_param_macro_defs.h b/frame/include/bli_param_macro_defs.h index 593a2611a..46dbed477 100644 --- a/frame/include/bli_param_macro_defs.h +++ b/frame/include/bli_param_macro_defs.h @@ -199,25 +199,25 @@ // conj -#define bli_is_noconj( conj ) \ +#define bli_is_noconj( conjval ) \ \ - ( conj == BLIS_NO_CONJUGATE ) + ( conjval == BLIS_NO_CONJUGATE ) -#define bli_is_conj( conj ) \ +#define bli_is_conj( conjval ) \ \ - ( conj == BLIS_CONJUGATE ) + ( conjval == BLIS_CONJUGATE ) -#define bli_conj_toggled( conj ) \ +#define bli_conj_toggled( conjval ) \ \ - ( conj ^ BLIS_CONJ_BIT ) + ( conjval ^ BLIS_CONJ_BIT ) -#define bli_apply_conj( conjapp, conj )\ +#define bli_apply_conj( conjapp, conjval )\ \ - ( conj ^ (conjapp) ) + ( conjval ^ (conjapp) ) -#define bli_toggle_conj( conj ) \ +#define bli_toggle_conj( conjval ) \ { \ - conj = bli_conj_toggled( conj ); \ + conjval = bli_conj_toggled( conjval ); \ } diff --git a/frame/include/level0/bli_abval2s.h b/frame/include/level0/bli_abval2s.h index d375043cb..bbae707fb 100644 --- a/frame/include/level0/bli_abval2s.h +++ b/frame/include/level0/bli_abval2s.h @@ -41,6 +41,8 @@ // - The first char encodes the type of x. // - The second char encodes the type of a. +#ifndef BLIS_ENABLE_C99_COMPLEX + #define bli_ssabval2s( x, a ) bli_sabval2ris( bli_sreal(x), bli_simag(x), bli_sreal(a), bli_simag(a) ) #define bli_dsabval2s( x, a ) bli_sabval2ris( bli_dreal(x), bli_dimag(x), bli_sreal(a), bli_simag(a) ) #define bli_csabval2s( x, a ) bli_sabval2ris( bli_creal(x), bli_cimag(x), bli_sreal(a), bli_simag(a) ) @@ -51,8 +53,6 @@ #define bli_cdabval2s( x, a ) bli_dabval2ris( bli_creal(x), bli_cimag(x), bli_dreal(a), bli_dimag(a) ) #define bli_zdabval2s( x, a ) bli_dabval2ris( bli_zreal(x), bli_zimag(x), bli_dreal(a), bli_dimag(a) ) -#ifndef BLIS_ENABLE_C99_COMPLEX - #define bli_scabval2s( x, a ) bli_cabval2ris( bli_sreal(x), bli_simag(x), bli_creal(a), bli_cimag(a) ) #define bli_dcabval2s( x, a ) bli_cabval2ris( bli_dreal(x), bli_dimag(x), bli_creal(a), bli_cimag(a) ) #define bli_ccabval2s( x, a ) bli_cabval2ris( bli_creal(x), bli_cimag(x), bli_creal(a), bli_cimag(a) ) diff --git a/frame/include/level0/bli_copycjs.h b/frame/include/level0/bli_copycjs.h index 6c780313d..588e5e288 100644 --- a/frame/include/level0/bli_copycjs.h +++ b/frame/include/level0/bli_copycjs.h @@ -41,51 +41,51 @@ // - The first char encodes the type of x. // - The second char encodes the type of y. -#define bli_sscopycjs( conj, x, y ) bli_scopycjris( conj, bli_sreal(x), bli_simag(x), bli_sreal(y), bli_simag(y) ) -#define bli_dscopycjs( conj, x, y ) bli_scopycjris( conj, bli_dreal(x), bli_dimag(x), bli_sreal(y), bli_simag(y) ) -#define bli_cscopycjs( conj, x, y ) bli_scopycjris( conj, bli_creal(x), bli_cimag(x), bli_sreal(y), bli_simag(y) ) -#define bli_zscopycjs( conj, x, y ) bli_scopycjris( conj, bli_zreal(x), bli_zimag(x), bli_sreal(y), bli_simag(y) ) +#define bli_sscopycjs( conjx, x, y ) bli_scopycjris( conjx, bli_sreal(x), bli_simag(x), bli_sreal(y), bli_simag(y) ) +#define bli_dscopycjs( conjx, x, y ) bli_scopycjris( conjx, bli_dreal(x), bli_dimag(x), bli_sreal(y), bli_simag(y) ) +#define bli_cscopycjs( conjx, x, y ) bli_scopycjris( conjx, bli_creal(x), bli_cimag(x), bli_sreal(y), bli_simag(y) ) +#define bli_zscopycjs( conjx, x, y ) bli_scopycjris( conjx, bli_zreal(x), bli_zimag(x), bli_sreal(y), bli_simag(y) ) -#define bli_sdcopycjs( conj, x, y ) bli_dcopycjris( conj, bli_sreal(x), bli_simag(x), bli_dreal(y), bli_dimag(y) ) -#define bli_ddcopycjs( conj, x, y ) bli_dcopycjris( conj, bli_dreal(x), bli_dimag(x), bli_dreal(y), bli_dimag(y) ) -#define bli_cdcopycjs( conj, x, y ) bli_dcopycjris( conj, bli_creal(x), bli_cimag(x), bli_dreal(y), bli_dimag(y) ) -#define bli_zdcopycjs( conj, x, y ) bli_dcopycjris( conj, bli_zreal(x), bli_zimag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_sdcopycjs( conjx, x, y ) bli_dcopycjris( conjx, bli_sreal(x), bli_simag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_ddcopycjs( conjx, x, y ) bli_dcopycjris( conjx, bli_dreal(x), bli_dimag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_cdcopycjs( conjx, x, y ) bli_dcopycjris( conjx, bli_creal(x), bli_cimag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_zdcopycjs( conjx, x, y ) bli_dcopycjris( conjx, bli_zreal(x), bli_zimag(x), bli_dreal(y), bli_dimag(y) ) #ifndef BLIS_ENABLE_C99_COMPLEX -#define bli_sccopycjs( conj, x, y ) bli_ccopycjris( conj, bli_sreal(x), bli_simag(x), bli_creal(y), bli_cimag(y) ) -#define bli_dccopycjs( conj, x, y ) bli_ccopycjris( conj, bli_dreal(x), bli_dimag(x), bli_creal(y), bli_cimag(y) ) -#define bli_cccopycjs( conj, x, y ) bli_ccopycjris( conj, bli_creal(x), bli_cimag(x), bli_creal(y), bli_cimag(y) ) -#define bli_zccopycjs( conj, x, y ) bli_ccopycjris( conj, bli_zreal(x), bli_zimag(x), bli_creal(y), bli_cimag(y) ) +#define bli_sccopycjs( conjx, x, y ) bli_ccopycjris( conjx, bli_sreal(x), bli_simag(x), bli_creal(y), bli_cimag(y) ) +#define bli_dccopycjs( conjx, x, y ) bli_ccopycjris( conjx, bli_dreal(x), bli_dimag(x), bli_creal(y), bli_cimag(y) ) +#define bli_cccopycjs( conjx, x, y ) bli_ccopycjris( conjx, bli_creal(x), bli_cimag(x), bli_creal(y), bli_cimag(y) ) +#define bli_zccopycjs( conjx, x, y ) bli_ccopycjris( conjx, bli_zreal(x), bli_zimag(x), bli_creal(y), bli_cimag(y) ) -#define bli_szcopycjs( conj, x, y ) bli_zcopycjris( conj, bli_sreal(x), bli_simag(x), bli_zreal(y), bli_zimag(y) ) -#define bli_dzcopycjs( conj, x, y ) bli_zcopycjris( conj, bli_dreal(x), bli_dimag(x), bli_zreal(y), bli_zimag(y) ) -#define bli_czcopycjs( conj, x, y ) bli_zcopycjris( conj, bli_creal(x), bli_cimag(x), bli_zreal(y), bli_zimag(y) ) -#define bli_zzcopycjs( conj, x, y ) bli_zcopycjris( conj, bli_zreal(x), bli_zimag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_szcopycjs( conjx, x, y ) bli_zcopycjris( conjx, bli_sreal(x), bli_simag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_dzcopycjs( conjx, x, y ) bli_zcopycjris( conjx, bli_dreal(x), bli_dimag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_czcopycjs( conjx, x, y ) bli_zcopycjris( conjx, bli_creal(x), bli_cimag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_zzcopycjs( conjx, x, y ) bli_zcopycjris( conjx, bli_zreal(x), bli_zimag(x), bli_zreal(y), bli_zimag(y) ) #else // ifdef BLIS_ENABLE_C99_COMPLEX -#define bli_sccopycjs( conj, x, y ) { (y) = (x); } -#define bli_dccopycjs( conj, x, y ) { (y) = (x); } -#define bli_cccopycjs( conj, x, y ) { (y) = ( bli_is_conj( conj ) ? conjf(x) : (x) ); } -#define bli_zccopycjs( conj, x, y ) { (y) = ( bli_is_conj( conj ) ? conj (x) : (x) ); } +#define bli_sccopycjs( conjx, x, y ) { (y) = (x); } +#define bli_dccopycjs( conjx, x, y ) { (y) = (x); } +#define bli_cccopycjs( conjx, x, y ) { (y) = ( bli_is_conj( conjx ) ? conjf(x) : (x) ); } +#define bli_zccopycjs( conjx, x, y ) { (y) = ( bli_is_conj( conjx ) ? conj (x) : (x) ); } -#define bli_szcopycjs( conj, x, y ) { (y) = (x); } -#define bli_dzcopycjs( conj, x, y ) { (y) = (x); } -#define bli_czcopycjs( conj, x, y ) { (y) = ( bli_is_conj( conj ) ? conjf(x) : (x) ); } -#define bli_zzcopycjs( conj, x, y ) { (y) = ( bli_is_conj( conj ) ? conj (x) : (x) ); } +#define bli_szcopycjs( conjx, x, y ) { (y) = (x); } +#define bli_dzcopycjs( conjx, x, y ) { (y) = (x); } +#define bli_czcopycjs( conjx, x, y ) { (y) = ( bli_is_conj( conjx ) ? conjf(x) : (x) ); } +#define bli_zzcopycjs( conjx, x, y ) { (y) = ( bli_is_conj( conjx ) ? conj (x) : (x) ); } #endif // BLIS_ENABLE_C99_COMPLEX -#define bli_iicopycjs( conj, x, y ) { (y) = ( gint_t ) (x); } +#define bli_iicopycjs( conjx, x, y ) { (y) = ( gint_t ) (x); } -#define bli_scopycjs( conj, x, y ) bli_sscopycjs( conj, x, y ) -#define bli_dcopycjs( conj, x, y ) bli_ddcopycjs( conj, x, y ) -#define bli_ccopycjs( conj, x, y ) bli_cccopycjs( conj, x, y ) -#define bli_zcopycjs( conj, x, y ) bli_zzcopycjs( conj, x, y ) -#define bli_icopycjs( conj, x, y ) bli_iicopycjs( conj, x, y ) +#define bli_scopycjs( conjx, x, y ) bli_sscopycjs( conjx, x, y ) +#define bli_dcopycjs( conjx, x, y ) bli_ddcopycjs( conjx, x, y ) +#define bli_ccopycjs( conjx, x, y ) bli_cccopycjs( conjx, x, y ) +#define bli_zcopycjs( conjx, x, y ) bli_zzcopycjs( conjx, x, y ) +#define bli_icopycjs( conjx, x, y ) bli_iicopycjs( conjx, x, y ) #endif diff --git a/frame/include/level0/bli_scalcjs.h b/frame/include/level0/bli_scalcjs.h index 389dce3fb..29ebd452f 100644 --- a/frame/include/level0/bli_scalcjs.h +++ b/frame/include/level0/bli_scalcjs.h @@ -41,47 +41,47 @@ // - The first char encodes the type of x. // - The second char encodes the type of y. -#define bli_ssscalcjs( conj, x, y ) bli_sscalcjris( conj, bli_sreal(x), bli_simag(x), bli_sreal(y), bli_simag(y) ) -#define bli_dsscalcjs( conj, x, y ) bli_sscalcjris( conj, bli_dreal(x), bli_dimag(x), bli_sreal(y), bli_simag(y) ) -#define bli_csscalcjs( conj, x, y ) bli_sscalcjris( conj, bli_creal(x), bli_cimag(x), bli_sreal(y), bli_simag(y) ) -#define bli_zsscalcjs( conj, x, y ) bli_sscalcjris( conj, bli_zreal(x), bli_zimag(x), bli_sreal(y), bli_simag(y) ) +#define bli_ssscalcjs( conjx, x, y ) bli_sscalcjris( conjx, bli_sreal(x), bli_simag(x), bli_sreal(y), bli_simag(y) ) +#define bli_dsscalcjs( conjx, x, y ) bli_sscalcjris( conjx, bli_dreal(x), bli_dimag(x), bli_sreal(y), bli_simag(y) ) +#define bli_csscalcjs( conjx, x, y ) bli_sscalcjris( conjx, bli_creal(x), bli_cimag(x), bli_sreal(y), bli_simag(y) ) +#define bli_zsscalcjs( conjx, x, y ) bli_sscalcjris( conjx, bli_zreal(x), bli_zimag(x), bli_sreal(y), bli_simag(y) ) -#define bli_sdscalcjs( conj, x, y ) bli_dscalcjris( conj, bli_sreal(x), bli_simag(x), bli_dreal(y), bli_dimag(y) ) -#define bli_ddscalcjs( conj, x, y ) bli_dscalcjris( conj, bli_dreal(x), bli_dimag(x), bli_dreal(y), bli_dimag(y) ) -#define bli_cdscalcjs( conj, x, y ) bli_dscalcjris( conj, bli_creal(x), bli_cimag(x), bli_dreal(y), bli_dimag(y) ) -#define bli_zdscalcjs( conj, x, y ) bli_dscalcjris( conj, bli_zreal(x), bli_zimag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_sdscalcjs( conjx, x, y ) bli_dscalcjris( conjx, bli_sreal(x), bli_simag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_ddscalcjs( conjx, x, y ) bli_dscalcjris( conjx, bli_dreal(x), bli_dimag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_cdscalcjs( conjx, x, y ) bli_dscalcjris( conjx, bli_creal(x), bli_cimag(x), bli_dreal(y), bli_dimag(y) ) +#define bli_zdscalcjs( conjx, x, y ) bli_dscalcjris( conjx, bli_zreal(x), bli_zimag(x), bli_dreal(y), bli_dimag(y) ) #ifndef BLIS_ENABLE_C99_COMPLEX -#define bli_scscalcjs( conj, x, y ) bli_scscalcjris( conj, bli_sreal(x), bli_simag(x), bli_creal(y), bli_cimag(y) ) -#define bli_dcscalcjs( conj, x, y ) bli_scscalcjris( conj, bli_dreal(x), bli_dimag(x), bli_creal(y), bli_cimag(y) ) -#define bli_ccscalcjs( conj, x, y ) bli_cscalcjris( conj, bli_creal(x), bli_cimag(x), bli_creal(y), bli_cimag(y) ) -#define bli_zcscalcjs( conj, x, y ) bli_cscalcjris( conj, bli_zreal(x), bli_zimag(x), bli_creal(y), bli_cimag(y) ) +#define bli_scscalcjs( conjx, x, y ) bli_scscalcjris( conjx, bli_sreal(x), bli_simag(x), bli_creal(y), bli_cimag(y) ) +#define bli_dcscalcjs( conjx, x, y ) bli_scscalcjris( conjx, bli_dreal(x), bli_dimag(x), bli_creal(y), bli_cimag(y) ) +#define bli_ccscalcjs( conjx, x, y ) bli_cscalcjris( conjx, bli_creal(x), bli_cimag(x), bli_creal(y), bli_cimag(y) ) +#define bli_zcscalcjs( conjx, x, y ) bli_cscalcjris( conjx, bli_zreal(x), bli_zimag(x), bli_creal(y), bli_cimag(y) ) -#define bli_szscalcjs( conj, x, y ) bli_dzscalcjris( conj, bli_sreal(x), bli_simag(x), bli_zreal(y), bli_zimag(y) ) -#define bli_dzscalcjs( conj, x, y ) bli_dzscalcjris( conj, bli_dreal(x), bli_dimag(x), bli_zreal(y), bli_zimag(y) ) -#define bli_czscalcjs( conj, x, y ) bli_zscalcjris( conj, bli_creal(x), bli_cimag(x), bli_zreal(y), bli_zimag(y) ) -#define bli_zzscalcjs( conj, x, y ) bli_zscalcjris( conj, bli_zreal(x), bli_zimag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_szscalcjs( conjx, x, y ) bli_dzscalcjris( conjx, bli_sreal(x), bli_simag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_dzscalcjs( conjx, x, y ) bli_dzscalcjris( conjx, bli_dreal(x), bli_dimag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_czscalcjs( conjx, x, y ) bli_zscalcjris( conjx, bli_creal(x), bli_cimag(x), bli_zreal(y), bli_zimag(y) ) +#define bli_zzscalcjs( conjx, x, y ) bli_zscalcjris( conjx, bli_zreal(x), bli_zimag(x), bli_zreal(y), bli_zimag(y) ) #else // ifdef BLIS_ENABLE_C99_COMPLEX -#define bli_scscalcjs( conj, x, y ) { (y) *= (x); } -#define bli_dcscalcjs( conj, x, y ) { (y) *= (x); } -#define bli_ccscalcjs( conj, x, y ) { (y) *= ( bli_is_conj( conj ) ? conjf(x) : (x) ); } -#define bli_zcscalcjs( conj, x, y ) { (y) *= ( bli_is_conj( conj ) ? conj (x) : (x) ); } +#define bli_scscalcjs( conjx, x, y ) { (y) *= (x); } +#define bli_dcscalcjs( conjx, x, y ) { (y) *= (x); } +#define bli_ccscalcjs( conjx, x, y ) { (y) *= ( bli_is_conj( conjx ) ? conjf(x) : (x) ); } +#define bli_zcscalcjs( conjx, x, y ) { (y) *= ( bli_is_conj( conjx ) ? conj (x) : (x) ); } -#define bli_szscalcjs( conj, x, y ) { (y) *= (x); } -#define bli_dzscalcjs( conj, x, y ) { (y) *= (x); } -#define bli_czscalcjs( conj, x, y ) { (y) *= ( bli_is_conj( conj ) ? conjf(x) : (x) ); } -#define bli_zzscalcjs( conj, x, y ) { (y) *= ( bli_is_conj( conj ) ? conj (x) : (x) ); } +#define bli_szscalcjs( conjx, x, y ) { (y) *= (x); } +#define bli_dzscalcjs( conjx, x, y ) { (y) *= (x); } +#define bli_czscalcjs( conjx, x, y ) { (y) *= ( bli_is_conj( conjx ) ? conjf(x) : (x) ); } +#define bli_zzscalcjs( conjx, x, y ) { (y) *= ( bli_is_conj( conjx ) ? conj (x) : (x) ); } #endif // BLIS_ENABLE_C99_COMPLEX -#define bli_sscalcjs( conj, x, y ) bli_ssscalcjs( conj, x, y ) -#define bli_dscalcjs( conj, x, y ) bli_ddscalcjs( conj, x, y ) -#define bli_cscalcjs( conj, x, y ) bli_ccscalcjs( conj, x, y ) -#define bli_zscalcjs( conj, x, y ) bli_zzscalcjs( conj, x, y ) +#define bli_sscalcjs( conjx, x, y ) bli_ssscalcjs( conjx, x, y ) +#define bli_dscalcjs( conjx, x, y ) bli_ddscalcjs( conjx, x, y ) +#define bli_cscalcjs( conjx, x, y ) bli_ccscalcjs( conjx, x, y ) +#define bli_zscalcjs( conjx, x, y ) bli_zzscalcjs( conjx, x, y ) #endif diff --git a/frame/util/printm/bli_fprintm.c b/frame/util/printm/bli_fprintm.c index b4dfdd51c..1ecb18916 100644 --- a/frame/util/printm/bli_fprintm.c +++ b/frame/util/printm/bli_fprintm.c @@ -69,14 +69,14 @@ void bli_fprintm( FILE* file, char* s1, obj_t* x, char* format, char* s2 ) double* dp = bli_obj_buffer_for_const( BLIS_DOUBLE, *x ); scomplex* cp = bli_obj_buffer_for_const( BLIS_SCOMPLEX, *x ); dcomplex* zp = bli_obj_buffer_for_const( BLIS_DCOMPLEX, *x ); - int* ip = bli_obj_buffer_for_const( BLIS_INT, *x ); + gint_t* ip = bli_obj_buffer_for_const( BLIS_INT, *x ); fprintf( file, "%s\n", s1 ); - fprintf( file, " float: %9.2e\n", *sp ); - fprintf( file, " double: %9.2e\n", *dp ); - fprintf( file, " scomplex: %9.2e + %9.2e\n", cp->real, cp->imag ); - fprintf( file, " dcomplex: %9.2e + %9.2e\n", zp->real, zp->imag ); - fprintf( file, " int: %d\n", *ip ); + fprintf( file, " float: %9.2e\n", bli_sreal( *sp ) ); + fprintf( file, " double: %9.2e\n", bli_dreal( *dp ) ); + fprintf( file, " scomplex: %9.2e + %9.2e\n", bli_creal( *cp ), bli_cimag( *cp ) ); + fprintf( file, " dcomplex: %9.2e + %9.2e\n", bli_zreal( *zp ), bli_zimag( *zp ) ); + fprintf( file, " int: %ld\n", *ip ); fprintf( file, "\n" ); return; }