Merge https://github.com/flame/blis

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

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

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 ); \

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, \

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 ); \

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 ); \

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 ); \
 \

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 ); \
 \

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,

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;

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: */

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;

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;

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;

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;

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_ */

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: */
 		}

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;

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: */

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: */

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

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

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

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

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

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

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) )

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

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

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