Migrated 'bl2' prefix to 'bli'.

Details:
- Changed all filename and function prefixes from 'bl2' to 'bli'.
- Changed the "blis2.h" header filename to "blis.h" and changed all
  corresponding #include statements accordingly.
- Fixed incorrect association for Fran in CREDITS file.

frame/include/level0/bli_absq2s.h

@@ -42,63 +42,63 @@
 // - The second char encodes the type of a.
 
 
-#define bl2_ssabsq2s( x, a ) \
+#define bli_ssabsq2s( x, a ) \
 { \
 	(a) = ( float  )( (x)      * (x) ); \
 }
-#define bl2_dsabsq2s( x, a ) \
+#define bli_dsabsq2s( x, a ) \
 { \
 	(a) = ( float  )( (x)      * (x) ); \
 }
-#define bl2_csabsq2s( x, a ) \
+#define bli_csabsq2s( x, a ) \
 { \
 	(a) = ( float  )( (x).real * (x).real + \
 	                  (x).imag * (x).imag ); \
 }
-#define bl2_zsabsq2s( x, a ) \
+#define bli_zsabsq2s( x, a ) \
 { \
 	(a) = ( float  )( (x).real * (x).real + \
 	                  (x).imag * (x).imag ); \
 }
 
 
-#define bl2_sdabsq2s( x, a ) \
+#define bli_sdabsq2s( x, a ) \
 { \
 	(a) = ( double )( (x)      * (x) ); \
 }
-#define bl2_ddabsq2s( x, a ) \
+#define bli_ddabsq2s( x, a ) \
 { \
 	(a) = ( double )( (x)      * (x) ); \
 }
-#define bl2_cdabsq2s( x, a ) \
+#define bli_cdabsq2s( x, a ) \
 { \
 	(a) = ( double )( (x).real * (x).real + \
 	                  (x).imag * (x).imag ); \
 }
-#define bl2_zdabsq2s( x, a ) \
+#define bli_zdabsq2s( x, a ) \
 { \
 	(a) = ( double )( (x).real * (x).real + \
 	                  (x).imag * (x).imag ); \
 }
 
 
-#define bl2_scabsq2s( x, a ) \
+#define bli_scabsq2s( x, a ) \
 { \
 	(a).real = ( float  )( (x)      * (x) ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_dcabsq2s( x, a ) \
+#define bli_dcabsq2s( x, a ) \
 { \
 	(a).real = ( float  )( (x)      * (x) ); \
 	(a).imag = 0.0; \
 }
-#define bl2_ccabsq2s( x, a ) \
+#define bli_ccabsq2s( x, a ) \
 { \
 	(a).real = ( float  )( (x).real * (x).real + \
 	                       (x).imag * (x).imag ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_zcabsq2s( x, a ) \
+#define bli_zcabsq2s( x, a ) \
 { \
 	(a).real = ( float  )( (x).real * (x).real + \
 	                       (x).imag * (x).imag ); \
@@ -106,23 +106,23 @@
 }
 
 
-#define bl2_szabsq2s( x, a ) \
+#define bli_szabsq2s( x, a ) \
 { \
 	(a).real = ( double )( (x)      * (x) ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_dzabsq2s( x, a ) \
+#define bli_dzabsq2s( x, a ) \
 { \
 	(a).real = ( double )( (x)      * (x) ); \
 	(a).imag = 0.0; \
 }
-#define bl2_czabsq2s( x, a ) \
+#define bli_czabsq2s( x, a ) \
 { \
 	(a).real = ( double )( (x).real * (x).real + \
 	                       (x).imag * (x).imag ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_zzabsq2s( x, a ) \
+#define bli_zzabsq2s( x, a ) \
 { \
 	(a).real = ( double )( (x).real * (x).real + \
 	                       (x).imag * (x).imag ); \
@@ -130,21 +130,21 @@
 }
 
 
-#define bl2_sabsq2s( x, a ) \
+#define bli_sabsq2s( x, a ) \
 { \
-	bl2_ssabsq2s( x, a ); \
+	bli_ssabsq2s( x, a ); \
 }
-#define bl2_dabsq2s( x, a ) \
+#define bli_dabsq2s( x, a ) \
 { \
-	bl2_ddabsq2s( x, a ); \
+	bli_ddabsq2s( x, a ); \
 }
-#define bl2_cabsq2s( x, a ) \
+#define bli_cabsq2s( x, a ) \
 { \
-	bl2_ccabsq2s( x, a ); \
+	bli_ccabsq2s( x, a ); \
 }
-#define bl2_zabsq2s( x, a ) \
+#define bli_zabsq2s( x, a ) \
 { \
-	bl2_zzabsq2s( x, a ); \
+	bli_zzabsq2s( x, a ); \
 }
 
 

frame/include/level0/bli_abval2s.h

@@ -42,105 +42,105 @@
 // - The second char encodes the type of a.
 
 
-#define bl2_ssabval2s( x, a ) \
+#define bli_ssabval2s( x, a ) \
 { \
 	a = ( float  )fabsf( ( float  )x ); \
 }
-#define bl2_dsabval2s( x, a ) \
+#define bli_dsabval2s( x, a ) \
 { \
 	a = ( float  )fabs( ( double )x ); \
 }
-#define bl2_csabval2s( x, a ) \
+#define bli_csabval2s( x, a ) \
 { \
-	bl2_csabsq2s( x, a ); \
-	bl2_sssqrt2s( a, a ); \
+	bli_csabsq2s( x, a ); \
+	bli_sssqrt2s( a, a ); \
 }
-#define bl2_zsabval2s( x, a ) \
+#define bli_zsabval2s( x, a ) \
 { \
-	bl2_zsabsq2s( x, a ); \
-	bl2_sssqrt2s( a, a ); \
+	bli_zsabsq2s( x, a ); \
+	bli_sssqrt2s( a, a ); \
 }
 
 
-#define bl2_sdabval2s( x, a ) \
+#define bli_sdabval2s( x, a ) \
 { \
 	a = ( double )fabsf( ( float  )x ); \
 }
-#define bl2_ddabval2s( x, a ) \
+#define bli_ddabval2s( x, a ) \
 { \
 	a = ( double )fabs( ( double )x ); \
 }
-#define bl2_cdabval2s( x, a ) \
+#define bli_cdabval2s( x, a ) \
 { \
-	bl2_cdabsq2s( x, a ); \
-	bl2_ddsqrt2s( a, a ); \
+	bli_cdabsq2s( x, a ); \
+	bli_ddsqrt2s( a, a ); \
 }
-#define bl2_zdabval2s( x, a ) \
+#define bli_zdabval2s( x, a ) \
 { \
-	bl2_zdabsq2s( x, a ); \
-	bl2_ddsqrt2s( a, a ); \
+	bli_zdabsq2s( x, a ); \
+	bli_ddsqrt2s( a, a ); \
 }
 
 
-#define bl2_scabval2s( x, a ) \
+#define bli_scabval2s( x, a ) \
 { \
 	(a).real = ( float  )fabsf( ( float  )x ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_dcabval2s( x, a ) \
+#define bli_dcabval2s( x, a ) \
 { \
 	(a).real = ( float  )fabs( ( double )x ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_ccabval2s( x, a ) \
+#define bli_ccabval2s( x, a ) \
 { \
-	bl2_ccabsq2s( x, a ); \
-	bl2_ccsqrt2s( a, a ); \
+	bli_ccabsq2s( x, a ); \
+	bli_ccsqrt2s( a, a ); \
 }
-#define bl2_zcabval2s( x, a ) \
+#define bli_zcabval2s( x, a ) \
 { \
-	bl2_zcabsq2s( x, a ); \
-	bl2_ccsqrt2s( a, a ); \
+	bli_zcabsq2s( x, a ); \
+	bli_ccsqrt2s( a, a ); \
 }
 
 
-#define bl2_szabval2s( x, a ) \
+#define bli_szabval2s( x, a ) \
 { \
 	(a).real = ( double )fabsf( ( float  )x ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_dzabval2s( x, a ) \
+#define bli_dzabval2s( x, a ) \
 { \
 	(a).real = ( double )fabs( ( double )x ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_czabval2s( x, a ) \
+#define bli_czabval2s( x, a ) \
 { \
-	bl2_czabsq2s( x, a ); \
-	bl2_zzsqrt2s( a, a ); \
+	bli_czabsq2s( x, a ); \
+	bli_zzsqrt2s( a, a ); \
 }
-#define bl2_zzabval2s( x, a ) \
+#define bli_zzabval2s( x, a ) \
 { \
-	bl2_zzabsq2s( x, a ); \
-	bl2_zzsqrt2s( a, a ); \
+	bli_zzabsq2s( x, a ); \
+	bli_zzsqrt2s( a, a ); \
 }
 
 
-#define bl2_sabval2s( x, a ) \
+#define bli_sabval2s( x, a ) \
 { \
-	bl2_ssabval2s( x, a ); \
+	bli_ssabval2s( x, a ); \
 }
-#define bl2_dabval2s( x, a ) \
+#define bli_dabval2s( x, a ) \
 { \
-	bl2_ddabval2s( x, a ); \
+	bli_ddabval2s( x, a ); \
 }
-#define bl2_cabval2s( x, a ) \
+#define bli_cabval2s( x, a ) \
 { \
-	bl2_ccabval2s( x, a ); \
+	bli_ccabval2s( x, a ); \
 }
-#define bl2_zabval2s( x, a ) \
+#define bli_zabval2s( x, a ) \
 { \
-	bl2_zzabval2s( x, a ); \
+	bli_zzabval2s( x, a ); \
 }
 
 

frame/include/level0/bli_addjs.h

@@ -41,98 +41,98 @@
 // - The first char encodes the type of a.
 // - The second char encodes the type of x.
 
-#define bl2_ssaddjs( a, y ) \
+#define bli_ssaddjs( a, y ) \
 { \
 	(y)      += ( float  )(a); \
 }
-#define bl2_sdaddjs( a, y ) \
+#define bli_sdaddjs( a, y ) \
 { \
 	(y)      += ( double )(a); \
 }
-#define bl2_scaddjs( a, y ) \
+#define bli_scaddjs( a, y ) \
 { \
 	(y).real += ( float  )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
-#define bl2_szaddjs( a, y ) \
+#define bli_szaddjs( a, y ) \
 { \
 	(y).real += ( double )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
 
-#define bl2_dsaddjs( a, y ) \
+#define bli_dsaddjs( a, y ) \
 { \
 	(y)      += ( float  )(a); \
 }
-#define bl2_ddaddjs( a, y ) \
+#define bli_ddaddjs( a, y ) \
 { \
 	(y)      += ( double )(a); \
 }
-#define bl2_dcaddjs( a, y ) \
+#define bli_dcaddjs( a, y ) \
 { \
 	(y).real += ( float  )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
-#define bl2_dzaddjs( a, y ) \
+#define bli_dzaddjs( a, y ) \
 { \
 	(y).real += ( double )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
 
-#define bl2_csaddjs( a, y ) \
+#define bli_csaddjs( a, y ) \
 { \
 	(y)      += ( float  )(a).real; \
 }
-#define bl2_cdaddjs( a, y ) \
+#define bli_cdaddjs( a, y ) \
 { \
 	(y)      += ( double )(a).real; \
 }
-#define bl2_ccaddjs( a, y ) \
+#define bli_ccaddjs( a, y ) \
 { \
 	(y).real += ( float  )(a).real; \
 	(y).imag -= ( float  )(a).imag; \
 }
-#define bl2_czaddjs( a, y ) \
+#define bli_czaddjs( a, y ) \
 { \
 	(y).real += ( double )(a).real; \
 	(y).imag -= ( double )(a).imag; \
 }
 
-#define bl2_zsaddjs( a, y ) \
+#define bli_zsaddjs( a, y ) \
 { \
 	(y)      += ( float  )(a).real; \
 }
-#define bl2_zdaddjs( a, y ) \
+#define bli_zdaddjs( a, y ) \
 { \
 	(y)      += ( double )(a).real; \
 }
-#define bl2_zcaddjs( a, y ) \
+#define bli_zcaddjs( a, y ) \
 { \
 	(y).real += ( float  )(a).real; \
 	(y).imag -= ( float  )(a).imag; \
 }
-#define bl2_zzaddjs( a, y ) \
+#define bli_zzaddjs( a, y ) \
 { \
 	(y).real += ( double )(a).real; \
 	(y).imag -= ( double )(a).imag; \
 }
 
 
-#define bl2_saddjs( a, y ) \
+#define bli_saddjs( a, y ) \
 { \
-	bl2_ssaddjs( a, y ); \
+	bli_ssaddjs( a, y ); \
 }
-#define bl2_daddjs( a, y ) \
+#define bli_daddjs( a, y ) \
 { \
-	bl2_ddaddjs( a, y ); \
+	bli_ddaddjs( a, y ); \
 }
-#define bl2_caddjs( a, y ) \
+#define bli_caddjs( a, y ) \
 { \
-	bl2_ccaddjs( a, y ); \
+	bli_ccaddjs( a, y ); \
 }
-#define bl2_zaddjs( a, y ) \
+#define bli_zaddjs( a, y ) \
 { \
-	bl2_zzaddjs( a, y ); \
+	bli_zzaddjs( a, y ); \
 }
 
 

frame/include/level0/bli_adds.h

@@ -41,98 +41,98 @@
 // - The first char encodes the type of a.
 // - The second char encodes the type of x.
 
-#define bl2_ssadds( a, y ) \
+#define bli_ssadds( a, y ) \
 { \
 	(y)      += ( float  )(a); \
 }
-#define bl2_sdadds( a, y ) \
+#define bli_sdadds( a, y ) \
 { \
 	(y)      += ( double )(a); \
 }
-#define bl2_scadds( a, y ) \
+#define bli_scadds( a, y ) \
 { \
 	(y).real += ( float  )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
-#define bl2_szadds( a, y ) \
+#define bli_szadds( a, y ) \
 { \
 	(y).real += ( double )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
 
-#define bl2_dsadds( a, y ) \
+#define bli_dsadds( a, y ) \
 { \
 	(y)      += ( float  )(a); \
 }
-#define bl2_ddadds( a, y ) \
+#define bli_ddadds( a, y ) \
 { \
 	(y)      += ( double )(a); \
 }
-#define bl2_dcadds( a, y ) \
+#define bli_dcadds( a, y ) \
 { \
 	(y).real += ( float  )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
-#define bl2_dzadds( a, y ) \
+#define bli_dzadds( a, y ) \
 { \
 	(y).real += ( double )(a); \
 	/*(y).imag += 0.0F;*/ \
 }
 
-#define bl2_csadds( a, y ) \
+#define bli_csadds( a, y ) \
 { \
 	(y)      += ( float  )(a).real; \
 }
-#define bl2_cdadds( a, y ) \
+#define bli_cdadds( a, y ) \
 { \
 	(y)      += ( double )(a).real; \
 }
-#define bl2_ccadds( a, y ) \
+#define bli_ccadds( a, y ) \
 { \
 	(y).real += ( float  )(a).real; \
 	(y).imag += ( float  )(a).imag; \
 }
-#define bl2_czadds( a, y ) \
+#define bli_czadds( a, y ) \
 { \
 	(y).real += ( double )(a).real; \
 	(y).imag += ( double )(a).imag; \
 }
 
-#define bl2_zsadds( a, y ) \
+#define bli_zsadds( a, y ) \
 { \
 	(y)      += ( float  )(a).real; \
 }
-#define bl2_zdadds( a, y ) \
+#define bli_zdadds( a, y ) \
 { \
 	(y)      += ( double )(a).real; \
 }
-#define bl2_zcadds( a, y ) \
+#define bli_zcadds( a, y ) \
 { \
 	(y).real += ( float  )(a).real; \
 	(y).imag += ( float  )(a).imag; \
 }
-#define bl2_zzadds( a, y ) \
+#define bli_zzadds( a, y ) \
 { \
 	(y).real += ( double )(a).real; \
 	(y).imag += ( double )(a).imag; \
 }
 
 
-#define bl2_sadds( a, y ) \
+#define bli_sadds( a, y ) \
 { \
-	bl2_ssadds( a, y ); \
+	bli_ssadds( a, y ); \
 }
-#define bl2_dadds( a, y ) \
+#define bli_dadds( a, y ) \
 { \
-	bl2_ddadds( a, y ); \
+	bli_ddadds( a, y ); \
 }
-#define bl2_cadds( a, y ) \
+#define bli_cadds( a, y ) \
 { \
-	bl2_ccadds( a, y ); \
+	bli_ccadds( a, y ); \
 }
-#define bl2_zadds( a, y ) \
+#define bli_zadds( a, y ) \
 { \
-	bl2_zzadds( a, y ); \
+	bli_zzadds( a, y ); \
 }
 
 

frame/include/level0/bli_adds_mxn.h

@@ -41,43 +41,43 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_ssadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ssadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_ssadds( *(x + i*rs_x + j*cs_x), \
+	bli_ssadds( *(x + i*rs_x + j*cs_x), \
 	            *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_ddadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ddadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_ddadds( *(x + i*rs_x + j*cs_x), \
+	bli_ddadds( *(x + i*rs_x + j*cs_x), \
 	            *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_ccadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ccadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_ccadds( *(x + i*rs_x + j*cs_x), \
+	bli_ccadds( *(x + i*rs_x + j*cs_x), \
 	            *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_zzadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_zzadds_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_zzadds( *(x + i*rs_x + j*cs_x), \
+	bli_zzadds( *(x + i*rs_x + j*cs_x), \
 	            *(y + i*rs_y + j*cs_y) ); \
 }
 

frame/include/level0/bli_adds_mxn_uplo.h

@@ -37,7 +37,7 @@
 
 // adds_mxn_u
 
-#define bl2_ssadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ssadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -47,14 +47,14 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_ssadds( *(x + i*rs_x + j*cs_x), \
+				bli_ssadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \
 	} \
 }
 
-#define bl2_ddadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ddadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -64,14 +64,14 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_ddadds( *(x + i*rs_x + j*cs_x), \
+				bli_ddadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \
 	} \
 }
 
-#define bl2_ccadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ccadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -81,14 +81,14 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_ccadds( *(x + i*rs_x + j*cs_x), \
+				bli_ccadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \
 	} \
 }
 
-#define bl2_zzadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_zzadds_mxn_u( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -98,7 +98,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_zzadds( *(x + i*rs_x + j*cs_x), \
+				bli_zzadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \
@@ -107,7 +107,7 @@
 
 // adds_mxn_l
 
-#define bl2_ssadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ssadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -117,14 +117,14 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
-				bl2_ssadds( *(x + i*rs_x + j*cs_x), \
+				bli_ssadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \
 	} \
 }
 
-#define bl2_ddadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ddadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -135,14 +135,14 @@
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
 				/*printf( "copying elem (%u,%u) with diagoff %d\n", i, j, diagoff );*/ \
-				bl2_ddadds( *(x + i*rs_x + j*cs_x), \
+				bli_ddadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \
 	} \
 }
 
-#define bl2_ccadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ccadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -152,14 +152,14 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
-				bl2_ccadds( *(x + i*rs_x + j*cs_x), \
+				bli_ccadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \
 	} \
 }
 
-#define bl2_zzadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_zzadds_mxn_l( diagoff, m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -169,7 +169,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
-				bl2_zzadds( *(x + i*rs_x + j*cs_x), \
+				bli_zzadds( *(x + i*rs_x + j*cs_x), \
 				            *(y + i*rs_y + j*cs_y) ); \
 			} \
 		} \

frame/include/level0/bli_axmys.h

@@ -44,58 +44,58 @@
 
 // -- (axy) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssaxmys( a, x, y ) \
+#define bli_sssaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_ssdaxmys( a, x, y ) \
+#define bli_ssdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sscaxmys( a, x, y ) \
+#define bli_sscaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sszaxmys( a, x, y ) \
+#define bli_sszaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
 
 // -- (axy) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsaxmys( a, x, y ) \
+#define bli_sdsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sddaxmys( a, x, y ) \
+#define bli_sddaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdcaxmys( a, x, y ) \
+#define bli_sdcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdzaxmys( a, x, y ) \
+#define bli_sdzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsaxmys( a, x, y ) \
+#define bli_scsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_scdaxmys( a, x, y ) \
+#define bli_scdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_sccaxmys( a, x, y ) \
+#define bli_sccaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag -= ( float  )( ( float  ) (a)      * ( float  ) (x).imag ); \
 }
-#define bl2_sczaxmys( a, x, y ) \
+#define bli_sczaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag -= ( double )( ( float  ) (a)      * ( float  ) (x).imag ); \
@@ -103,20 +103,20 @@
 
 // -- (axy) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsaxmys( a, x, y ) \
+#define bli_szsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szdaxmys( a, x, y ) \
+#define bli_szdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szcaxmys( a, x, y ) \
+#define bli_szcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag -= ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_szzaxmys( a, x, y ) \
+#define bli_szzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag -= ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -124,58 +124,58 @@
 
 // -- (axy) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssaxmys( a, x, y ) \
+#define bli_dssaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dsdaxmys( a, x, y ) \
+#define bli_dsdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dscaxmys( a, x, y ) \
+#define bli_dscaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dszaxmys( a, x, y ) \
+#define bli_dszaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsaxmys( a, x, y ) \
+#define bli_ddsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dddaxmys( a, x, y ) \
+#define bli_dddaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddcaxmys( a, x, y ) \
+#define bli_ddcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddzaxmys( a, x, y ) \
+#define bli_ddzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsaxmys( a, x, y ) \
+#define bli_dcsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dcdaxmys( a, x, y ) \
+#define bli_dcdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dccaxmys( a, x, y ) \
+#define bli_dccaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag -= ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_dczaxmys( a, x, y ) \
+#define bli_dczaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag -= ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -183,20 +183,20 @@
 
 // -- (axy) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsaxmys( a, x, y ) \
+#define bli_dzsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzdaxmys( a, x, y ) \
+#define bli_dzdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzcaxmys( a, x, y ) \
+#define bli_dzcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag -= ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_dzzaxmys( a, x, y ) \
+#define bli_dzzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag -= ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -204,20 +204,20 @@
 
 // -- (axy) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssaxmys( a, x, y ) \
+#define bli_cssaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_csdaxmys( a, x, y ) \
+#define bli_csdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_cscaxmys( a, x, y ) \
+#define bli_cscaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag -= ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_cszaxmys( a, x, y ) \
+#define bli_cszaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag -= ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -225,20 +225,20 @@
 
 // -- (axy) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsaxmys( a, x, y ) \
+#define bli_cdsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cddaxmys( a, x, y ) \
+#define bli_cddaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cdcaxmys( a, x, y ) \
+#define bli_cdcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag -= ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_cdzaxmys( a, x, y ) \
+#define bli_cdzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag -= ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -246,20 +246,20 @@
 
 // -- (axy) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsaxmys( a, x, y ) \
+#define bli_ccsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_ccdaxmys( a, x, y ) \
+#define bli_ccdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_cccaxmys( a, x, y ) \
+#define bli_cccaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag -= ( float  )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_cczaxmys( a, x, y ) \
+#define bli_cczaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag -= ( double )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -267,20 +267,20 @@
 
 // -- (axy) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsaxmys( a, x, y ) \
+#define bli_czsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czdaxmys( a, x, y ) \
+#define bli_czdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czcaxmys( a, x, y ) \
+#define bli_czcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag -= ( float  )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_czzaxmys( a, x, y ) \
+#define bli_czzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag -= ( double )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
@@ -288,20 +288,20 @@
 
 // -- (axy) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssaxmys( a, x, y ) \
+#define bli_zssaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zsdaxmys( a, x, y ) \
+#define bli_zsdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zscaxmys( a, x, y ) \
+#define bli_zscaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag -= ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_zszaxmys( a, x, y ) \
+#define bli_zszaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag -= ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -309,20 +309,20 @@
 
 // -- (axy) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsaxmys( a, x, y ) \
+#define bli_zdsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zddaxmys( a, x, y ) \
+#define bli_zddaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zdcaxmys( a, x, y ) \
+#define bli_zdcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag -= ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_zdzaxmys( a, x, y ) \
+#define bli_zdzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag -= ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -330,20 +330,20 @@
 
 // -- (axy) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsaxmys( a, x, y ) \
+#define bli_zcsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zcdaxmys( a, x, y ) \
+#define bli_zcdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zccaxmys( a, x, y ) \
+#define bli_zccaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag -= ( float  )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_zczaxmys( a, x, y ) \
+#define bli_zczaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag -= ( double )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -351,20 +351,20 @@
 
 // -- (axy) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsaxmys( a, x, y ) \
+#define bli_zzsaxmys( a, x, y ) \
 { \
 	(y)      -= ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzdaxmys( a, x, y ) \
+#define bli_zzdaxmys( a, x, y ) \
 { \
 	(y)      -= ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzcaxmys( a, x, y ) \
+#define bli_zzcaxmys( a, x, y ) \
 { \
 	(y).real -= ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag -= ( float  )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_zzzaxmys( a, x, y ) \
+#define bli_zzzaxmys( a, x, y ) \
 { \
 	(y).real -= ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag -= ( double )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
@@ -375,21 +375,21 @@
 
 
 
-#define bl2_saxmys( a, x, y ) \
+#define bli_saxmys( a, x, y ) \
 { \
-	bl2_sssaxmys( a, x, y ); \
+	bli_sssaxmys( a, x, y ); \
 }
-#define bl2_daxmys( a, x, y ) \
+#define bli_daxmys( a, x, y ) \
 { \
-	bl2_dddaxmys( a, x, y ); \
+	bli_dddaxmys( a, x, y ); \
 }
-#define bl2_caxmys( a, x, y ) \
+#define bli_caxmys( a, x, y ) \
 { \
-	bl2_cccaxmys( a, x, y ); \
+	bli_cccaxmys( a, x, y ); \
 }
-#define bl2_zaxmys( a, x, y ) \
+#define bli_zaxmys( a, x, y ) \
 { \
-	bl2_zzzaxmys( a, x, y ); \
+	bli_zzzaxmys( a, x, y ); \
 }
 
 

frame/include/level0/bli_axpyjs.h

@@ -45,58 +45,58 @@
 
 // -- (axy) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssaxpyjs( a, x, y ) \
+#define bli_sssaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_ssdaxpyjs( a, x, y ) \
+#define bli_ssdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sscaxpyjs( a, x, y ) \
+#define bli_sscaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sszaxpyjs( a, x, y ) \
+#define bli_sszaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
 
 // -- (axy) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsaxpyjs( a, x, y ) \
+#define bli_sdsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sddaxpyjs( a, x, y ) \
+#define bli_sddaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdcaxpyjs( a, x, y ) \
+#define bli_sdcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdzaxpyjs( a, x, y ) \
+#define bli_sdzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsaxpyjs( a, x, y ) \
+#define bli_scsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_scdaxpyjs( a, x, y ) \
+#define bli_scdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_sccaxpyjs( a, x, y ) \
+#define bli_sccaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag += ( float  )( ( float  ) (a)      * ( float  )-(x).imag ); \
 }
-#define bl2_sczaxpyjs( a, x, y ) \
+#define bli_sczaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag += ( double )( ( float  ) (a)      * ( float  )-(x).imag ); \
@@ -104,20 +104,20 @@
 
 // -- (axy) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsaxpyjs( a, x, y ) \
+#define bli_szsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szdaxpyjs( a, x, y ) \
+#define bli_szdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szcaxpyjs( a, x, y ) \
+#define bli_szcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( float  )( ( double ) (a)      * ( double )-(x).imag ); \
 }
-#define bl2_szzaxpyjs( a, x, y ) \
+#define bli_szzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( double )( ( double ) (a)      * ( double )-(x).imag ); \
@@ -125,58 +125,58 @@
 
 // -- (axy) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssaxpyjs( a, x, y ) \
+#define bli_dssaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dsdaxpyjs( a, x, y ) \
+#define bli_dsdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dscaxpyjs( a, x, y ) \
+#define bli_dscaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dszaxpyjs( a, x, y ) \
+#define bli_dszaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsaxpyjs( a, x, y ) \
+#define bli_ddsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dddaxpyjs( a, x, y ) \
+#define bli_dddaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddcaxpyjs( a, x, y ) \
+#define bli_ddcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddzaxpyjs( a, x, y ) \
+#define bli_ddzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsaxpyjs( a, x, y ) \
+#define bli_dcsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dcdaxpyjs( a, x, y ) \
+#define bli_dcdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dccaxpyjs( a, x, y ) \
+#define bli_dccaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( float  )( ( double ) (a)      * ( double )-(x).imag ); \
 }
-#define bl2_dczaxpyjs( a, x, y ) \
+#define bli_dczaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( double )( ( double ) (a)      * ( double )-(x).imag ); \
@@ -184,20 +184,20 @@
 
 // -- (axy) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsaxpyjs( a, x, y ) \
+#define bli_dzsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzdaxpyjs( a, x, y ) \
+#define bli_dzdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzcaxpyjs( a, x, y ) \
+#define bli_dzcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( float  )( ( double ) (a)      * ( double )-(x).imag ); \
 }
-#define bl2_dzzaxpyjs( a, x, y ) \
+#define bli_dzzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( double )( ( double ) (a)      * ( double )-(x).imag ); \
@@ -205,20 +205,20 @@
 
 // -- (axy) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssaxpyjs( a, x, y ) \
+#define bli_cssaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_csdaxpyjs( a, x, y ) \
+#define bli_csdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_cscaxpyjs( a, x, y ) \
+#define bli_cscaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_cszaxpyjs( a, x, y ) \
+#define bli_cszaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -226,20 +226,20 @@
 
 // -- (axy) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsaxpyjs( a, x, y ) \
+#define bli_cdsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cddaxpyjs( a, x, y ) \
+#define bli_cddaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cdcaxpyjs( a, x, y ) \
+#define bli_cdcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_cdzaxpyjs( a, x, y ) \
+#define bli_cdzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -247,20 +247,20 @@
 
 // -- (axy) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsaxpyjs( a, x, y ) \
+#define bli_ccsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_ccdaxpyjs( a, x, y ) \
+#define bli_ccdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_cccaxpyjs( a, x, y ) \
+#define bli_cccaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_cczaxpyjs( a, x, y ) \
+#define bli_cczaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -268,20 +268,20 @@
 
 // -- (axy) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsaxpyjs( a, x, y ) \
+#define bli_czsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czdaxpyjs( a, x, y ) \
+#define bli_czdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czcaxpyjs( a, x, y ) \
+#define bli_czcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_czzaxpyjs( a, x, y ) \
+#define bli_czzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
@@ -289,20 +289,20 @@
 
 // -- (axy) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssaxpyjs( a, x, y ) \
+#define bli_zssaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zsdaxpyjs( a, x, y ) \
+#define bli_zsdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zscaxpyjs( a, x, y ) \
+#define bli_zscaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_zszaxpyjs( a, x, y ) \
+#define bli_zszaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -310,20 +310,20 @@
 
 // -- (axy) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsaxpyjs( a, x, y ) \
+#define bli_zdsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zddaxpyjs( a, x, y ) \
+#define bli_zddaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zdcaxpyjs( a, x, y ) \
+#define bli_zdcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_zdzaxpyjs( a, x, y ) \
+#define bli_zdzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -331,20 +331,20 @@
 
 // -- (axy) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsaxpyjs( a, x, y ) \
+#define bli_zcsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zcdaxpyjs( a, x, y ) \
+#define bli_zcdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zccaxpyjs( a, x, y ) \
+#define bli_zccaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_zczaxpyjs( a, x, y ) \
+#define bli_zczaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -352,20 +352,20 @@
 
 // -- (axy) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsaxpyjs( a, x, y ) \
+#define bli_zzsaxpyjs( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzdaxpyjs( a, x, y ) \
+#define bli_zzdaxpyjs( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzcaxpyjs( a, x, y ) \
+#define bli_zzcaxpyjs( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_zzzaxpyjs( a, x, y ) \
+#define bli_zzzaxpyjs( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
@@ -376,21 +376,21 @@
 
 
 
-#define bl2_saxpyjs( a, x, y ) \
+#define bli_saxpyjs( a, x, y ) \
 { \
-	bl2_sssaxpyjs( a, x, y ); \
+	bli_sssaxpyjs( a, x, y ); \
 }
-#define bl2_daxpyjs( a, x, y ) \
+#define bli_daxpyjs( a, x, y ) \
 { \
-	bl2_dddaxpyjs( a, x, y ); \
+	bli_dddaxpyjs( a, x, y ); \
 }
-#define bl2_caxpyjs( a, x, y ) \
+#define bli_caxpyjs( a, x, y ) \
 { \
-	bl2_cccaxpyjs( a, x, y ); \
+	bli_cccaxpyjs( a, x, y ); \
 }
-#define bl2_zaxpyjs( a, x, y ) \
+#define bli_zaxpyjs( a, x, y ) \
 { \
-	bl2_zzzaxpyjs( a, x, y ); \
+	bli_zzzaxpyjs( a, x, y ); \
 }
 
 

frame/include/level0/bli_axpys.h

@@ -44,58 +44,58 @@
 
 // -- (axy) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssaxpys( a, x, y ) \
+#define bli_sssaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_ssdaxpys( a, x, y ) \
+#define bli_ssdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sscaxpys( a, x, y ) \
+#define bli_sscaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sszaxpys( a, x, y ) \
+#define bli_sszaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
 
 // -- (axy) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsaxpys( a, x, y ) \
+#define bli_sdsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sddaxpys( a, x, y ) \
+#define bli_sddaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdcaxpys( a, x, y ) \
+#define bli_sdcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdzaxpys( a, x, y ) \
+#define bli_sdzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsaxpys( a, x, y ) \
+#define bli_scsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_scdaxpys( a, x, y ) \
+#define bli_scdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_sccaxpys( a, x, y ) \
+#define bli_sccaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag += ( float  )( ( float  ) (a)      * ( float  ) (x).imag ); \
 }
-#define bl2_sczaxpys( a, x, y ) \
+#define bli_sczaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag += ( double )( ( float  ) (a)      * ( float  ) (x).imag ); \
@@ -103,20 +103,20 @@
 
 // -- (axy) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsaxpys( a, x, y ) \
+#define bli_szsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szdaxpys( a, x, y ) \
+#define bli_szdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szcaxpys( a, x, y ) \
+#define bli_szcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_szzaxpys( a, x, y ) \
+#define bli_szzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -124,58 +124,58 @@
 
 // -- (axy) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssaxpys( a, x, y ) \
+#define bli_dssaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dsdaxpys( a, x, y ) \
+#define bli_dsdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dscaxpys( a, x, y ) \
+#define bli_dscaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dszaxpys( a, x, y ) \
+#define bli_dszaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsaxpys( a, x, y ) \
+#define bli_ddsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dddaxpys( a, x, y ) \
+#define bli_dddaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddcaxpys( a, x, y ) \
+#define bli_ddcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddzaxpys( a, x, y ) \
+#define bli_ddzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsaxpys( a, x, y ) \
+#define bli_dcsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dcdaxpys( a, x, y ) \
+#define bli_dcdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dccaxpys( a, x, y ) \
+#define bli_dccaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_dczaxpys( a, x, y ) \
+#define bli_dczaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -183,20 +183,20 @@
 
 // -- (axy) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsaxpys( a, x, y ) \
+#define bli_dzsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzdaxpys( a, x, y ) \
+#define bli_dzdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzcaxpys( a, x, y ) \
+#define bli_dzcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_dzzaxpys( a, x, y ) \
+#define bli_dzzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag += ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -204,20 +204,20 @@
 
 // -- (axy) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssaxpys( a, x, y ) \
+#define bli_cssaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_csdaxpys( a, x, y ) \
+#define bli_csdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_cscaxpys( a, x, y ) \
+#define bli_cscaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_cszaxpys( a, x, y ) \
+#define bli_cszaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -225,20 +225,20 @@
 
 // -- (axy) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsaxpys( a, x, y ) \
+#define bli_cdsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cddaxpys( a, x, y ) \
+#define bli_cddaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cdcaxpys( a, x, y ) \
+#define bli_cdcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_cdzaxpys( a, x, y ) \
+#define bli_cdzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -246,20 +246,20 @@
 
 // -- (axy) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsaxpys( a, x, y ) \
+#define bli_ccsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_ccdaxpys( a, x, y ) \
+#define bli_ccdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_cccaxpys( a, x, y ) \
+#define bli_cccaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_cczaxpys( a, x, y ) \
+#define bli_cczaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -267,20 +267,20 @@
 
 // -- (axy) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsaxpys( a, x, y ) \
+#define bli_czsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czdaxpys( a, x, y ) \
+#define bli_czdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czcaxpys( a, x, y ) \
+#define bli_czcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_czzaxpys( a, x, y ) \
+#define bli_czzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
@@ -288,20 +288,20 @@
 
 // -- (axy) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssaxpys( a, x, y ) \
+#define bli_zssaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zsdaxpys( a, x, y ) \
+#define bli_zsdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zscaxpys( a, x, y ) \
+#define bli_zscaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_zszaxpys( a, x, y ) \
+#define bli_zszaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -309,20 +309,20 @@
 
 // -- (axy) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsaxpys( a, x, y ) \
+#define bli_zdsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zddaxpys( a, x, y ) \
+#define bli_zddaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zdcaxpys( a, x, y ) \
+#define bli_zdcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_zdzaxpys( a, x, y ) \
+#define bli_zdzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -330,20 +330,20 @@
 
 // -- (axy) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsaxpys( a, x, y ) \
+#define bli_zcsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zcdaxpys( a, x, y ) \
+#define bli_zcdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zccaxpys( a, x, y ) \
+#define bli_zccaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( float  )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_zczaxpys( a, x, y ) \
+#define bli_zczaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag += ( double )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -351,20 +351,20 @@
 
 // -- (axy) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsaxpys( a, x, y ) \
+#define bli_zzsaxpys( a, x, y ) \
 { \
 	(y)      += ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzdaxpys( a, x, y ) \
+#define bli_zzdaxpys( a, x, y ) \
 { \
 	(y)      += ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzcaxpys( a, x, y ) \
+#define bli_zzcaxpys( a, x, y ) \
 { \
 	(y).real += ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( float  )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_zzzaxpys( a, x, y ) \
+#define bli_zzzaxpys( a, x, y ) \
 { \
 	(y).real += ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag += ( double )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
@@ -375,21 +375,21 @@
 
 
 
-#define bl2_saxpys( a, x, y ) \
+#define bli_saxpys( a, x, y ) \
 { \
-	bl2_sssaxpys( a, x, y ); \
+	bli_sssaxpys( a, x, y ); \
 }
-#define bl2_daxpys( a, x, y ) \
+#define bli_daxpys( a, x, y ) \
 { \
-	bl2_dddaxpys( a, x, y ); \
+	bli_dddaxpys( a, x, y ); \
 }
-#define bl2_caxpys( a, x, y ) \
+#define bli_caxpys( a, x, y ) \
 { \
-	bl2_cccaxpys( a, x, y ); \
+	bli_cccaxpys( a, x, y ); \
 }
-#define bl2_zaxpys( a, x, y ) \
+#define bli_zaxpys( a, x, y ) \
 { \
-	bl2_zzzaxpys( a, x, y ); \
+	bli_zzzaxpys( a, x, y ); \
 }
 
 

frame/include/level0/bli_cast.h

@@ -41,96 +41,96 @@
 // - The first char encodes the type of *ap.
 // - The second char encodes the type of b.
 
-#define bl2_sscast( ap, b ) \
+#define bli_sscast( ap, b ) \
 { \
 	(b) = ( float  ) *(( float*    )(ap)); \
 }
-#define bl2_dscast( ap, b ) \
+#define bli_dscast( ap, b ) \
 { \
 	(b) = ( float  ) *(( double*   )(ap)); \
 }
-#define bl2_cscast( ap, b ) \
+#define bli_cscast( ap, b ) \
 { \
 	(b) = ( float  )  (( scomplex* )(ap))->real; \
 }
-#define bl2_zscast( ap, b ) \
+#define bli_zscast( ap, b ) \
 { \
 	(b) = ( float  )  (( dcomplex* )(ap))->real; \
 }
 
-#define bl2_sdcast( ap, b ) \
+#define bli_sdcast( ap, b ) \
 { \
 	(b) = ( double ) *(( float*    )(ap)); \
 }
-#define bl2_ddcast( ap, b ) \
+#define bli_ddcast( ap, b ) \
 { \
 	(b) = ( double ) *(( double*   )(ap)); \
 }
-#define bl2_cdcast( ap, b ) \
+#define bli_cdcast( ap, b ) \
 { \
 	(b) = ( double )  (( scomplex* )(ap))->real; \
 }
-#define bl2_zdcast( ap, b ) \
+#define bli_zdcast( ap, b ) \
 { \
 	(b) = ( double )  (( dcomplex* )(ap))->real; \
 }
 
-#define bl2_sccast( ap, b ) \
+#define bli_sccast( ap, b ) \
 { \
 	(b).real = ( float  ) *(( float*    )(ap)); \
 	(b).imag = 0.0F; \
 }
-#define bl2_dccast( ap, b ) \
+#define bli_dccast( ap, b ) \
 { \
 	(b).real = ( float  ) *(( double*   )(ap)); \
 	(b).imag = 0.0F; \
 }
-#define bl2_cccast( ap, b ) \
+#define bli_cccast( ap, b ) \
 { \
 	(b).real = ( float  )  (( scomplex* )(ap))->real; \
 	(b).imag = ( float  )  (( scomplex* )(ap))->imag; \
 }
-#define bl2_zccast( ap, b ) \
+#define bli_zccast( ap, b ) \
 { \
 	(b).real = ( float  )  (( dcomplex* )(ap))->real; \
 	(b).imag = ( float  )  (( dcomplex* )(ap))->imag; \
 }
 
-#define bl2_szcast( ap, b ) \
+#define bli_szcast( ap, b ) \
 { \
 	(b).real = ( double ) *(( float*    )(ap)); \
 	(b).imag = 0.0; \
 }
-#define bl2_dzcast( ap, b ) \
+#define bli_dzcast( ap, b ) \
 { \
 	(b).real = ( double ) *(( double*   )(ap)); \
 	(b).imag = 0.0; \
 }
-#define bl2_czcast( ap, b ) \
+#define bli_czcast( ap, b ) \
 { \
 	(b).real = ( double )  (( scomplex* )(ap))->real; \
 	(b).imag = ( double )  (( scomplex* )(ap))->imag; \
 }
-#define bl2_zzcast( ap, b ) \
+#define bli_zzcast( ap, b ) \
 { \
 	(b).real = ( double )  (( dcomplex* )(ap))->real; \
 	(b).imag = ( double )  (( dcomplex* )(ap))->imag; \
 }
 
-#define bl2_scast( ap, b ) \
+#define bli_scast( ap, b ) \
 \
-	bl2_sscast( ap, b );
+	bli_sscast( ap, b );
 
-#define bl2_dcast( ap, b ) \
+#define bli_dcast( ap, b ) \
 \
-	bl2_ddcast( ap, b );
+	bli_ddcast( ap, b );
 
-#define bl2_ccast( ap, b ) \
+#define bli_ccast( ap, b ) \
 \
-	bl2_cccast( ap, b );
+	bli_cccast( ap, b );
 
-#define bl2_zcast( ap, b ) \
+#define bli_zcast( ap, b ) \
 \
-	bl2_zzcast( ap, b );
+	bli_zzcast( ap, b );
 
 #endif

frame/include/level0/bli_conjs.h

@@ -37,19 +37,19 @@
 
 // conjs
 
-#define bl2_sconjs( x ) \
+#define bli_sconjs( x ) \
 { \
 	; \
 }
-#define bl2_dconjs( x ) \
+#define bli_dconjs( x ) \
 { \
 	; \
 }
-#define bl2_cconjs( x ) \
+#define bli_cconjs( x ) \
 { \
 	(x).imag = -(x).imag; \
 }
-#define bl2_zconjs( x ) \
+#define bli_zconjs( x ) \
 { \
 	(x).imag = -(x).imag; \
 }

frame/include/level0/bli_constants.h

@@ -39,91 +39,91 @@
 
 // 2
 
-#define bl2_s2 \
+#define bli_s2 \
 \
 	( BLIS_CONST_S_PTR( BLIS_TWO ) )
 
-#define bl2_d2 \
+#define bli_d2 \
 \
 	( BLIS_CONST_D_PTR( BLIS_TWO ) )
 
-#define bl2_c2 \
+#define bli_c2 \
 \
 	( BLIS_CONST_C_PTR( BLIS_TWO ) )
 
-#define bl2_z2 \
+#define bli_z2 \
 \
 	( BLIS_CONST_Z_PTR( BLIS_TWO ) )
 
 // 1
 
-#define bl2_s1 \
+#define bli_s1 \
 \
 	( BLIS_CONST_S_PTR( BLIS_ONE ) )
 
-#define bl2_d1 \
+#define bli_d1 \
 \
 	( BLIS_CONST_D_PTR( BLIS_ONE ) )
 
-#define bl2_c1 \
+#define bli_c1 \
 \
 	( BLIS_CONST_C_PTR( BLIS_ONE ) )
 
-#define bl2_z1 \
+#define bli_z1 \
 \
 	( BLIS_CONST_Z_PTR( BLIS_ONE ) )
 
 // 0
 
-#define bl2_s0 \
+#define bli_s0 \
 \
 	( BLIS_CONST_S_PTR( BLIS_ZERO ) )
 
-#define bl2_d0 \
+#define bli_d0 \
 \
 	( BLIS_CONST_D_PTR( BLIS_ZERO ) )
 
-#define bl2_c0 \
+#define bli_c0 \
 \
 	( BLIS_CONST_C_PTR( BLIS_ZERO ) )
 
-#define bl2_z0 \
+#define bli_z0 \
 \
 	( BLIS_CONST_Z_PTR( BLIS_ZERO ) )
 
 // -1
 
-#define bl2_sm1 \
+#define bli_sm1 \
 \
 	( BLIS_CONST_S_PTR( BLIS_MINUS_ONE ) )
 
-#define bl2_dm1 \
+#define bli_dm1 \
 \
 	( BLIS_CONST_D_PTR( BLIS_MINUS_ONE ) )
 
-#define bl2_cm1 \
+#define bli_cm1 \
 \
 	( BLIS_CONST_C_PTR( BLIS_MINUS_ONE ) )
 
-#define bl2_zm1 \
+#define bli_zm1 \
 \
 	( BLIS_CONST_Z_PTR( BLIS_MINUS_ONE ) )
 
 // -2
 
-#define bl2_sm2 \
+#define bli_sm2 \
 \
 	( BLIS_CONST_S_PTR( BLIS_MINUS_TWO ) )
 
-#define bl2_dm2 \
+#define bli_dm2 \
 \
 	( BLIS_CONST_D_PTR( BLIS_MINUS_TWO ) )
 
-#define bl2_cm2 \
+#define bli_cm2 \
 \
 	( BLIS_CONST_C_PTR( BLIS_MINUS_TWO ) )
 
-#define bl2_zm2 \
+#define bli_zm2 \
 \
 	( BLIS_CONST_Z_PTR( BLIS_MINUS_TWO ) )
 
@@ -132,20 +132,20 @@
 
 // set0s
 
-#define bl2_sset0s( a ) \
+#define bli_sset0s( a ) \
 { \
 	(a) = 0.0F; \
 }
-#define bl2_dset0s( a ) \
+#define bli_dset0s( a ) \
 { \
 	(a) = 0.0; \
 }
-#define bl2_cset0s( a ) \
+#define bli_cset0s( a ) \
 { \
 	(a).real = 0.0F; \
 	(a).imag = 0.0F; \
 }
-#define bl2_zset0s( a ) \
+#define bli_zset0s( a ) \
 { \
 	(a).real = 0.0; \
 	(a).imag = 0.0; \
@@ -153,19 +153,19 @@
 
 // setimag0
 
-#define bl2_ssetimag0( a ) \
+#define bli_ssetimag0( a ) \
 { \
 	; \
 }
-#define bl2_dsetimag0( a ) \
+#define bli_dsetimag0( a ) \
 { \
 	; \
 }
-#define bl2_csetimag0( a ) \
+#define bli_csetimag0( a ) \
 { \
 	(a).imag = 0.0F; \
 }
-#define bl2_zsetimag0( a ) \
+#define bli_zsetimag0( a ) \
 { \
 	(a).imag = 0.0; \
 }

frame/include/level0/bli_copycjs.h

@@ -42,110 +42,110 @@
 // - The second char encodes the type of y.
 // - x is (conditionally) copied in conjugated form.
 
-#define bl2_sscopycjs( conj, x, y ) \
+#define bli_sscopycjs( conj, x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_dscopycjs( conj, x, y ) \
+#define bli_dscopycjs( conj, x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_cscopycjs( conj, x, y ) \
+#define bli_cscopycjs( conj, x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
-#define bl2_zscopycjs( conj, x, y ) \
+#define bli_zscopycjs( conj, x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
 
-#define bl2_sdcopycjs( conj, x, y ) \
+#define bli_sdcopycjs( conj, x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_ddcopycjs( conj, x, y ) \
+#define bli_ddcopycjs( conj, x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_cdcopycjs( conj, x, y ) \
+#define bli_cdcopycjs( conj, x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
-#define bl2_zdcopycjs( conj, x, y ) \
+#define bli_zdcopycjs( conj, x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
 
-#define bl2_sccopycjs( conj, x, y ) \
+#define bli_sccopycjs( conj, x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_dccopycjs( conj, x, y ) \
+#define bli_dccopycjs( conj, x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_cccopycjs( conj, x, y ) \
+#define bli_cccopycjs( conj, x, y ) \
 { \
 	(y).real = ( float  )  (x).real; \
-	if ( bl2_is_conj( conj ) ) \
+	if ( bli_is_conj( conj ) ) \
 		(y).imag = ( float  ) -(x).imag; \
 	else \
 		(y).imag = ( float  )  (x).imag; \
 }
-#define bl2_zccopycjs( conj, x, y ) \
+#define bli_zccopycjs( conj, x, y ) \
 { \
 	(y).real = ( float  )  (x).real; \
-	if ( bl2_is_conj( conj ) ) \
+	if ( bli_is_conj( conj ) ) \
 		(y).imag = ( float  ) -(x).imag; \
 	else \
 		(y).imag = ( float  )  (x).imag; \
 }
 
-#define bl2_szcopycjs( conj, x, y ) \
+#define bli_szcopycjs( conj, x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	(y).imag = 0.0; \
 }
-#define bl2_dzcopycjs( conj, x, y ) \
+#define bli_dzcopycjs( conj, x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	(y).imag = 0.0; \
 }
-#define bl2_czcopycjs( conj, x, y ) \
+#define bli_czcopycjs( conj, x, y ) \
 { \
 	(y).real = ( double )  (x).real; \
-	if ( bl2_is_conj( conj ) ) \
+	if ( bli_is_conj( conj ) ) \
 		(y).imag = ( double ) -(x).imag; \
 	else \
 		(y).imag = ( double )  (x).imag; \
 }
-#define bl2_zzcopycjs( conj, x, y ) \
+#define bli_zzcopycjs( conj, x, y ) \
 { \
 	(y).real = ( double )  (x).real; \
-	if ( bl2_is_conj( conj ) ) \
+	if ( bli_is_conj( conj ) ) \
 		(y).imag = ( double ) -(x).imag; \
 	else \
 		(y).imag = ( double )  (x).imag; \
 }
 
 
-#define bl2_scopycjs( conj, x, y ) \
+#define bli_scopycjs( conj, x, y ) \
 { \
-	bl2_sscopycjs( conj, x, y ); \
+	bli_sscopycjs( conj, x, y ); \
 }
-#define bl2_dcopycjs( conj, x, y ) \
+#define bli_dcopycjs( conj, x, y ) \
 { \
-	bl2_ddcopycjs( conj, x, y ); \
+	bli_ddcopycjs( conj, x, y ); \
 }
-#define bl2_ccopycjs( conj, x, y ) \
+#define bli_ccopycjs( conj, x, y ) \
 { \
-	bl2_cccopycjs( conj, x, y ); \
+	bli_cccopycjs( conj, x, y ); \
 }
-#define bl2_zcopycjs( conj, x, y ) \
+#define bli_zcopycjs( conj, x, y ) \
 { \
-	bl2_zzcopycjs( conj, x, y ); \
+	bli_zzcopycjs( conj, x, y ); \
 }
 
 

frame/include/level0/bli_copyjs.h

@@ -42,98 +42,98 @@
 // - The second char encodes the type of y.
 // - x is copied in conjugated form.
 
-#define bl2_sscopyjs( x, y ) \
+#define bli_sscopyjs( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_dscopyjs( x, y ) \
+#define bli_dscopyjs( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_cscopyjs( x, y ) \
+#define bli_cscopyjs( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
-#define bl2_zscopyjs( x, y ) \
+#define bli_zscopyjs( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
 
-#define bl2_sdcopyjs( x, y ) \
+#define bli_sdcopyjs( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_ddcopyjs( x, y ) \
+#define bli_ddcopyjs( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_cdcopyjs( x, y ) \
+#define bli_cdcopyjs( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
-#define bl2_zdcopyjs( x, y ) \
+#define bli_zdcopyjs( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
 
-#define bl2_sccopyjs( x, y ) \
+#define bli_sccopyjs( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_dccopyjs( x, y ) \
+#define bli_dccopyjs( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_cccopyjs( x, y ) \
+#define bli_cccopyjs( x, y ) \
 { \
 	(y).real = ( float  )  (x).real; \
 	(y).imag = ( float  ) -(x).imag; \
 }
-#define bl2_zccopyjs( x, y ) \
+#define bli_zccopyjs( x, y ) \
 { \
 	(y).real = ( float  )  (x).real; \
 	(y).imag = ( float  ) -(x).imag; \
 }
 
-#define bl2_szcopyjs( x, y ) \
+#define bli_szcopyjs( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	(y).imag = 0.0; \
 }
-#define bl2_dzcopyjs( x, y ) \
+#define bli_dzcopyjs( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	(y).imag = 0.0; \
 }
-#define bl2_czcopyjs( x, y ) \
+#define bli_czcopyjs( x, y ) \
 { \
 	(y).real = ( double )  (x).real; \
 	(y).imag = ( double ) -(x).imag; \
 }
-#define bl2_zzcopyjs( x, y ) \
+#define bli_zzcopyjs( x, y ) \
 { \
 	(y).real = ( double )  (x).real; \
 	(y).imag = ( double ) -(x).imag; \
 }
 
 
-#define bl2_scopyjs( x, y ) \
+#define bli_scopyjs( x, y ) \
 { \
-	bl2_sscopyjs( x, y ); \
+	bli_sscopyjs( x, y ); \
 }
-#define bl2_dcopyjs( x, y ) \
+#define bli_dcopyjs( x, y ) \
 { \
-	bl2_ddcopyjs( x, y ); \
+	bli_ddcopyjs( x, y ); \
 }
-#define bl2_ccopyjs( x, y ) \
+#define bli_ccopyjs( x, y ) \
 { \
-	bl2_cccopyjs( x, y ); \
+	bli_cccopyjs( x, y ); \
 }
-#define bl2_zcopyjs( x, y ) \
+#define bli_zcopyjs( x, y ) \
 { \
-	bl2_zzcopyjs( x, y ); \
+	bli_zzcopyjs( x, y ); \
 }
 
 

frame/include/level0/bli_copynzjs.h

@@ -42,98 +42,98 @@
 // - The second char encodes the type of y.
 // - x is copied in conjugated form.
 
-#define bl2_sscopynzjs( x, y ) \
+#define bli_sscopynzjs( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_dscopynzjs( x, y ) \
+#define bli_dscopynzjs( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_cscopynzjs( x, y ) \
+#define bli_cscopynzjs( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
-#define bl2_zscopynzjs( x, y ) \
+#define bli_zscopynzjs( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
 
-#define bl2_sdcopynzjs( x, y ) \
+#define bli_sdcopynzjs( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_ddcopynzjs( x, y ) \
+#define bli_ddcopynzjs( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_cdcopynzjs( x, y ) \
+#define bli_cdcopynzjs( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
-#define bl2_zdcopynzjs( x, y ) \
+#define bli_zdcopynzjs( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
 
-#define bl2_sccopynzjs( x, y ) \
+#define bli_sccopynzjs( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	/* (y).imag = 0.0F; (SKIP COPYING OF ZERO) */ \
 }
-#define bl2_dccopynzjs( x, y ) \
+#define bli_dccopynzjs( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	/* (y).imag = 0.0F; (SKIP COPYING OF ZERO) */ \
 }
-#define bl2_cccopynzjs( x, y ) \
+#define bli_cccopynzjs( x, y ) \
 { \
 	(y).real = ( float  )  (x).real; \
 	(y).imag = ( float  ) -(x).imag; \
 }
-#define bl2_zccopynzjs( x, y ) \
+#define bli_zccopynzjs( x, y ) \
 { \
 	(y).real = ( float  )  (x).real; \
 	(y).imag = ( float  ) -(x).imag; \
 }
 
-#define bl2_szcopynzjs( x, y ) \
+#define bli_szcopynzjs( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	/* (y).imag = 0.0; (SKIP COPYING OF ZERO) */ \
 }
-#define bl2_dzcopynzjs( x, y ) \
+#define bli_dzcopynzjs( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	/* (y).imag = 0.0; (SKIP COPYING OF ZERO) */ \
 }
-#define bl2_czcopynzjs( x, y ) \
+#define bli_czcopynzjs( x, y ) \
 { \
 	(y).real = ( double )  (x).real; \
 	(y).imag = ( double ) -(x).imag; \
 }
-#define bl2_zzcopynzjs( x, y ) \
+#define bli_zzcopynzjs( x, y ) \
 { \
 	(y).real = ( double )  (x).real; \
 	(y).imag = ( double ) -(x).imag; \
 }
 
 
-#define bl2_scopynzjs( x, y ) \
+#define bli_scopynzjs( x, y ) \
 { \
-	bl2_sscopynzjs( x, y ); \
+	bli_sscopynzjs( x, y ); \
 }
-#define bl2_dcopynzjs( x, y ) \
+#define bli_dcopynzjs( x, y ) \
 { \
-	bl2_ddcopynzjs( x, y ); \
+	bli_ddcopynzjs( x, y ); \
 }
-#define bl2_ccopynzjs( x, y ) \
+#define bli_ccopynzjs( x, y ) \
 { \
-	bl2_cccopynzjs( x, y ); \
+	bli_cccopynzjs( x, y ); \
 }
-#define bl2_zcopynzjs( x, y ) \
+#define bli_zcopynzjs( x, y ) \
 { \
-	bl2_zzcopynzjs( x, y ); \
+	bli_zzcopynzjs( x, y ); \
 }
 
 

frame/include/level0/bli_copynzs.h

@@ -41,98 +41,98 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_sscopynzs( x, y ) \
+#define bli_sscopynzs( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_dscopynzs( x, y ) \
+#define bli_dscopynzs( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_cscopynzs( x, y ) \
+#define bli_cscopynzs( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
-#define bl2_zscopynzs( x, y ) \
+#define bli_zscopynzs( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
 
-#define bl2_sdcopynzs( x, y ) \
+#define bli_sdcopynzs( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_ddcopynzs( x, y ) \
+#define bli_ddcopynzs( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_cdcopynzs( x, y ) \
+#define bli_cdcopynzs( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
-#define bl2_zdcopynzs( x, y ) \
+#define bli_zdcopynzs( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
 
-#define bl2_sccopynzs( x, y ) \
+#define bli_sccopynzs( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	/* (y).imag = 0.0F; (SKIP COPYING OF ZERO) */ \
 }
-#define bl2_dccopynzs( x, y ) \
+#define bli_dccopynzs( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	/* (y).imag = 0.0F (SKIP COPYING OF ZERO) */; \
 }
-#define bl2_cccopynzs( x, y ) \
+#define bli_cccopynzs( x, y ) \
 { \
 	(y).real = ( float  ) (x).real; \
 	(y).imag = ( float  ) (x).imag; \
 }
-#define bl2_zccopynzs( x, y ) \
+#define bli_zccopynzs( x, y ) \
 { \
 	(y).real = ( float  ) (x).real; \
 	(y).imag = ( float  ) (x).imag; \
 }
 
-#define bl2_szcopynzs( x, y ) \
+#define bli_szcopynzs( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	/* (y).imag = 0.0; (SKIP COPYING OF ZERO) */ \
 }
-#define bl2_dzcopynzs( x, y ) \
+#define bli_dzcopynzs( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	/* (y).imag = 0.0; (SKIP COPYING OF ZERO) */ \
 }
-#define bl2_czcopynzs( x, y ) \
+#define bli_czcopynzs( x, y ) \
 { \
 	(y).real = ( double ) (x).real; \
 	(y).imag = ( double ) (x).imag; \
 }
-#define bl2_zzcopynzs( x, y ) \
+#define bli_zzcopynzs( x, y ) \
 { \
 	(y).real = ( double ) (x).real; \
 	(y).imag = ( double ) (x).imag; \
 }
 
 
-#define bl2_scopynzs( x, y ) \
+#define bli_scopynzs( x, y ) \
 { \
-	bl2_sscopynzs( x, y ); \
+	bli_sscopynzs( x, y ); \
 }
-#define bl2_dcopynzs( x, y ) \
+#define bli_dcopynzs( x, y ) \
 { \
-	bl2_ddcopynzs( x, y ); \
+	bli_ddcopynzs( x, y ); \
 }
-#define bl2_ccopynzs( x, y ) \
+#define bli_ccopynzs( x, y ) \
 { \
-	bl2_cccopynzs( x, y ); \
+	bli_cccopynzs( x, y ); \
 }
-#define bl2_zcopynzs( x, y ) \
+#define bli_zcopynzs( x, y ) \
 { \
-	bl2_zzcopynzs( x, y ); \
+	bli_zzcopynzs( x, y ); \
 }
 
 

frame/include/level0/bli_copys.h

@@ -41,98 +41,98 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_sscopys( x, y ) \
+#define bli_sscopys( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_dscopys( x, y ) \
+#define bli_dscopys( x, y ) \
 { \
 	(y) = ( float  ) (x); \
 }
-#define bl2_cscopys( x, y ) \
+#define bli_cscopys( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
-#define bl2_zscopys( x, y ) \
+#define bli_zscopys( x, y ) \
 { \
 	(y) = ( float  ) (x).real; \
 }
 
-#define bl2_sdcopys( x, y ) \
+#define bli_sdcopys( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_ddcopys( x, y ) \
+#define bli_ddcopys( x, y ) \
 { \
 	(y) = ( double ) (x); \
 }
-#define bl2_cdcopys( x, y ) \
+#define bli_cdcopys( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
-#define bl2_zdcopys( x, y ) \
+#define bli_zdcopys( x, y ) \
 { \
 	(y) = ( double ) (x).real; \
 }
 
-#define bl2_sccopys( x, y ) \
+#define bli_sccopys( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_dccopys( x, y ) \
+#define bli_dccopys( x, y ) \
 { \
 	(y).real = ( float  ) (x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_cccopys( x, y ) \
+#define bli_cccopys( x, y ) \
 { \
 	(y).real = ( float  ) (x).real; \
 	(y).imag = ( float  ) (x).imag; \
 }
-#define bl2_zccopys( x, y ) \
+#define bli_zccopys( x, y ) \
 { \
 	(y).real = ( float  ) (x).real; \
 	(y).imag = ( float  ) (x).imag; \
 }
 
-#define bl2_szcopys( x, y ) \
+#define bli_szcopys( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	(y).imag = 0.0; \
 }
-#define bl2_dzcopys( x, y ) \
+#define bli_dzcopys( x, y ) \
 { \
 	(y).real = ( double ) (x); \
 	(y).imag = 0.0; \
 }
-#define bl2_czcopys( x, y ) \
+#define bli_czcopys( x, y ) \
 { \
 	(y).real = ( double ) (x).real; \
 	(y).imag = ( double ) (x).imag; \
 }
-#define bl2_zzcopys( x, y ) \
+#define bli_zzcopys( x, y ) \
 { \
 	(y).real = ( double ) (x).real; \
 	(y).imag = ( double ) (x).imag; \
 }
 
 
-#define bl2_scopys( x, y ) \
+#define bli_scopys( x, y ) \
 { \
-	bl2_sscopys( x, y ); \
+	bli_sscopys( x, y ); \
 }
-#define bl2_dcopys( x, y ) \
+#define bli_dcopys( x, y ) \
 { \
-	bl2_ddcopys( x, y ); \
+	bli_ddcopys( x, y ); \
 }
-#define bl2_ccopys( x, y ) \
+#define bli_ccopys( x, y ) \
 { \
-	bl2_cccopys( x, y ); \
+	bli_cccopys( x, y ); \
 }
-#define bl2_zcopys( x, y ) \
+#define bli_zcopys( x, y ) \
 { \
-	bl2_zzcopys( x, y ); \
+	bli_zzcopys( x, y ); \
 }
 
 

frame/include/level0/bli_copys_mxn.h

@@ -41,43 +41,43 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_sscopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_sscopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_sscopys( *(x + i*rs_x + j*cs_x), \
+	bli_sscopys( *(x + i*rs_x + j*cs_x), \
 	             *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_ddcopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_ddcopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_ddcopys( *(x + i*rs_x + j*cs_x), \
+	bli_ddcopys( *(x + i*rs_x + j*cs_x), \
 	             *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_cccopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_cccopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_cccopys( *(x + i*rs_x + j*cs_x), \
+	bli_cccopys( *(x + i*rs_x + j*cs_x), \
 	             *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_zzcopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
+#define bli_zzcopys_mxn( m, n, x, rs_x, cs_x, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_zzcopys( *(x + i*rs_x + j*cs_x), \
+	bli_zzcopys( *(x + i*rs_x + j*cs_x), \
 	             *(y + i*rs_y + j*cs_y) ); \
 }
 

frame/include/level0/bli_dotjs.h

@@ -45,20 +45,20 @@
 
 // -- (xyr) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssdotjs( x, y, a ) \
+#define bli_sssdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_ssddotjs( x, y, a ) \
+#define bli_ssddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_sscdotjs( x, y, a ) \
+#define bli_sscdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_sszdotjs( x, y, a ) \
+#define bli_sszdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -66,20 +66,20 @@
 
 // -- (xyr) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsdotjs( x, y, a ) \
+#define bli_sdsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_sdddotjs( x, y, a ) \
+#define bli_sdddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_sdcdotjs( x, y, a ) \
+#define bli_sdcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_sdzdotjs( x, y, a ) \
+#define bli_sdzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -87,20 +87,20 @@
 
 // -- (xyr) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsdotjs( x, y, a ) \
+#define bli_scsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_scddotjs( x, y, a ) \
+#define bli_scddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_sccdotjs( x, y, a ) \
+#define bli_sccdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_sczdotjs( x, y, a ) \
+#define bli_sczdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -108,20 +108,20 @@
 
 // -- (xyr) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsdotjs( x, y, a ) \
+#define bli_szsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_szddotjs( x, y, a ) \
+#define bli_szddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_szcdotjs( x, y, a ) \
+#define bli_szcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_szzdotjs( x, y, a ) \
+#define bli_szzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -129,20 +129,20 @@
 
 // -- (xyr) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssdotjs( x, y, a ) \
+#define bli_dssdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_dsddotjs( x, y, a ) \
+#define bli_dsddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_dscdotjs( x, y, a ) \
+#define bli_dscdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_dszdotjs( x, y, a ) \
+#define bli_dszdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -150,20 +150,20 @@
 
 // -- (xyr) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsdotjs( x, y, a ) \
+#define bli_ddsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_ddddotjs( x, y, a ) \
+#define bli_ddddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_ddcdotjs( x, y, a ) \
+#define bli_ddcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_ddzdotjs( x, y, a ) \
+#define bli_ddzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -171,20 +171,20 @@
 
 // -- (xyr) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsdotjs( x, y, a ) \
+#define bli_dcsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_dcddotjs( x, y, a ) \
+#define bli_dcddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_dccdotjs( x, y, a ) \
+#define bli_dccdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_dczdotjs( x, y, a ) \
+#define bli_dczdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -192,20 +192,20 @@
 
 // -- (xyr) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsdotjs( x, y, a ) \
+#define bli_dzsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_dzddotjs( x, y, a ) \
+#define bli_dzddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_dzcdotjs( x, y, a ) \
+#define bli_dzcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_dzzdotjs( x, y, a ) \
+#define bli_dzzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -213,20 +213,20 @@
 
 // -- (xyr) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssdotjs( x, y, a ) \
+#define bli_cssdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_csddotjs( x, y, a ) \
+#define bli_csddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_cscdotjs( x, y, a ) \
+#define bli_cscdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  )-(x).imag * ( float  ) (y); \
 }
-#define bl2_cszdotjs( x, y, a ) \
+#define bli_cszdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double )-(x).imag * ( double ) (y); \
@@ -234,20 +234,20 @@
 
 // -- (xyr) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsdotjs( x, y, a ) \
+#define bli_cdsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_cdddotjs( x, y, a ) \
+#define bli_cdddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_cdcdotjs( x, y, a ) \
+#define bli_cdcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  )-(x).imag * ( float  ) (y); \
 }
-#define bl2_cdzdotjs( x, y, a ) \
+#define bli_cdzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double )-(x).imag * ( double ) (y); \
@@ -255,20 +255,20 @@
 
 // -- (xyr) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsdotjs( x, y, a ) \
+#define bli_ccsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_ccddotjs( x, y, a ) \
+#define bli_ccddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_cccdotjs( x, y, a ) \
+#define bli_cccdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real + ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag - ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_cczdotjs( x, y, a ) \
+#define bli_cczdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real + ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag - ( double ) (x).imag * ( double ) (y).real; \
@@ -276,20 +276,20 @@
 
 // -- (xyr) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsdotjs( x, y, a ) \
+#define bli_czsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_czddotjs( x, y, a ) \
+#define bli_czddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_czcdotjs( x, y, a ) \
+#define bli_czcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real + ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag - ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_czzdotjs( x, y, a ) \
+#define bli_czzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real + ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag - ( double ) (x).imag * ( double ) (y).real; \
@@ -297,20 +297,20 @@
 
 // -- (xyr) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssdotjs( x, y, a ) \
+#define bli_zssdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_zsddotjs( x, y, a ) \
+#define bli_zsddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_zscdotjs( x, y, a ) \
+#define bli_zscdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  ) (x).imag * ( float  ) (y); \
 }
-#define bl2_zszdotjs( x, y, a ) \
+#define bli_zszdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double ) (x).imag * ( double ) (y); \
@@ -318,20 +318,20 @@
 
 // -- (xyr) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsdotjs( x, y, a ) \
+#define bli_zdsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_zdddotjs( x, y, a ) \
+#define bli_zdddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_zdcdotjs( x, y, a ) \
+#define bli_zdcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  ) (x).imag * ( float  ) (y); \
 }
-#define bl2_zdzdotjs( x, y, a ) \
+#define bli_zdzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double ) (x).imag * ( double ) (y); \
@@ -339,20 +339,20 @@
 
 // -- (xyr) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsdotjs( x, y, a ) \
+#define bli_zcsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_zcddotjs( x, y, a ) \
+#define bli_zcddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_zccdotjs( x, y, a ) \
+#define bli_zccdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real + ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag - ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_zczdotjs( x, y, a ) \
+#define bli_zczdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real + ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag - ( double ) (x).imag * ( double ) (y).real; \
@@ -360,20 +360,20 @@
 
 // -- (xyr) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsdotjs( x, y, a ) \
+#define bli_zzsdotjs( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_zzddotjs( x, y, a ) \
+#define bli_zzddotjs( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_zzcdotjs( x, y, a ) \
+#define bli_zzcdotjs( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real + ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag - ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_zzzdotjs( x, y, a ) \
+#define bli_zzzdotjs( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real + ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag - ( double ) (x).imag * ( double ) (y).real; \
@@ -381,21 +381,21 @@
 
 
 
-#define bl2_sdotjs( x, y, a ) \
+#define bli_sdotjs( x, y, a ) \
 { \
-	bl2_sssdotjs( x, y, a ); \
+	bli_sssdotjs( x, y, a ); \
 }
-#define bl2_ddotjs( x, y, a ) \
+#define bli_ddotjs( x, y, a ) \
 { \
-	bl2_ddddotjs( x, y, a ); \
+	bli_ddddotjs( x, y, a ); \
 }
-#define bl2_cdotjs( x, y, a ) \
+#define bli_cdotjs( x, y, a ) \
 { \
-	bl2_cccdotjs( x, y, a ); \
+	bli_cccdotjs( x, y, a ); \
 }
-#define bl2_zdotjs( x, y, a ) \
+#define bli_zdotjs( x, y, a ) \
 { \
-	bl2_zzzdotjs( x, y, a ); \
+	bli_zzzdotjs( x, y, a ); \
 }
 
 

frame/include/level0/bli_dots.h

@@ -44,20 +44,20 @@
 
 // -- (xyr) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssdots( x, y, a ) \
+#define bli_sssdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_ssddots( x, y, a ) \
+#define bli_ssddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_sscdots( x, y, a ) \
+#define bli_sscdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_sszdots( x, y, a ) \
+#define bli_sszdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -65,20 +65,20 @@
 
 // -- (xyr) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsdots( x, y, a ) \
+#define bli_sdsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_sdddots( x, y, a ) \
+#define bli_sdddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_sdcdots( x, y, a ) \
+#define bli_sdcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_sdzdots( x, y, a ) \
+#define bli_sdzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -86,20 +86,20 @@
 
 // -- (xyr) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsdots( x, y, a ) \
+#define bli_scsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_scddots( x, y, a ) \
+#define bli_scddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_sccdots( x, y, a ) \
+#define bli_sccdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_sczdots( x, y, a ) \
+#define bli_sczdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -107,20 +107,20 @@
 
 // -- (xyr) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsdots( x, y, a ) \
+#define bli_szsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_szddots( x, y, a ) \
+#define bli_szddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_szcdots( x, y, a ) \
+#define bli_szcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_szzdots( x, y, a ) \
+#define bli_szzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -128,20 +128,20 @@
 
 // -- (xyr) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssdots( x, y, a ) \
+#define bli_dssdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_dsddots( x, y, a ) \
+#define bli_dsddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_dscdots( x, y, a ) \
+#define bli_dscdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_dszdots( x, y, a ) \
+#define bli_dszdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -149,20 +149,20 @@
 
 // -- (xyr) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsdots( x, y, a ) \
+#define bli_ddsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y); \
 }
-#define bl2_ddddots( x, y, a ) \
+#define bli_ddddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y); \
 }
-#define bl2_ddcdots( x, y, a ) \
+#define bli_ddcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y); \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_ddzdots( x, y, a ) \
+#define bli_ddzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y); \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -170,20 +170,20 @@
 
 // -- (xyr) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsdots( x, y, a ) \
+#define bli_dcsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_dcddots( x, y, a ) \
+#define bli_dcddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_dccdots( x, y, a ) \
+#define bli_dccdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_dczdots( x, y, a ) \
+#define bli_dczdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -191,20 +191,20 @@
 
 // -- (xyr) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsdots( x, y, a ) \
+#define bli_dzsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x) * ( float  ) (y).real; \
 }
-#define bl2_dzddots( x, y, a ) \
+#define bli_dzddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x) * ( double ) (y).real; \
 }
-#define bl2_dzcdots( x, y, a ) \
+#define bli_dzcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x) * ( float  ) (y).real; \
 	/* (a).imag += ( float  ) 0.0; */ \
 }
-#define bl2_dzzdots( x, y, a ) \
+#define bli_dzzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x) * ( double ) (y).real; \
 	/* (a).imag += ( double ) 0.0; */ \
@@ -212,20 +212,20 @@
 
 // -- (xyr) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssdots( x, y, a ) \
+#define bli_cssdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_csddots( x, y, a ) \
+#define bli_csddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_cscdots( x, y, a ) \
+#define bli_cscdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  ) (x).imag * ( float  ) (y); \
 }
-#define bl2_cszdots( x, y, a ) \
+#define bli_cszdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double ) (x).imag * ( double ) (y); \
@@ -233,20 +233,20 @@
 
 // -- (xyr) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsdots( x, y, a ) \
+#define bli_cdsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_cdddots( x, y, a ) \
+#define bli_cdddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_cdcdots( x, y, a ) \
+#define bli_cdcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  ) (x).imag * ( float  ) (y); \
 }
-#define bl2_cdzdots( x, y, a ) \
+#define bli_cdzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double ) (x).imag * ( double ) (y); \
@@ -254,20 +254,20 @@
 
 // -- (xyr) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsdots( x, y, a ) \
+#define bli_ccsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_ccddots( x, y, a ) \
+#define bli_ccddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_cccdots( x, y, a ) \
+#define bli_cccdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag + ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_cczdots( x, y, a ) \
+#define bli_cczdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag + ( double ) (x).imag * ( double ) (y).real; \
@@ -275,20 +275,20 @@
 
 // -- (xyr) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsdots( x, y, a ) \
+#define bli_czsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_czddots( x, y, a ) \
+#define bli_czddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_czcdots( x, y, a ) \
+#define bli_czcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag + ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_czzdots( x, y, a ) \
+#define bli_czzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag + ( double ) (x).imag * ( double ) (y).real; \
@@ -296,20 +296,20 @@
 
 // -- (xyr) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssdots( x, y, a ) \
+#define bli_zssdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_zsddots( x, y, a ) \
+#define bli_zsddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_zscdots( x, y, a ) \
+#define bli_zscdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  ) (x).imag * ( float  ) (y); \
 }
-#define bl2_zszdots( x, y, a ) \
+#define bli_zszdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double ) (x).imag * ( double ) (y); \
@@ -317,20 +317,20 @@
 
 // -- (xyr) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsdots( x, y, a ) \
+#define bli_zdsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y); \
 }
-#define bl2_zdddots( x, y, a ) \
+#define bli_zdddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y); \
 }
-#define bl2_zdcdots( x, y, a ) \
+#define bli_zdcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y); \
 	(a).imag += ( float  ) (x).imag * ( float  ) (y); \
 }
-#define bl2_zdzdots( x, y, a ) \
+#define bli_zdzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y); \
 	(a).imag += ( double ) (x).imag * ( double ) (y); \
@@ -338,20 +338,20 @@
 
 // -- (xyr) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsdots( x, y, a ) \
+#define bli_zcsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_zcddots( x, y, a ) \
+#define bli_zcddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_zccdots( x, y, a ) \
+#define bli_zccdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag + ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_zczdots( x, y, a ) \
+#define bli_zczdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag + ( double ) (x).imag * ( double ) (y).real; \
@@ -359,20 +359,20 @@
 
 // -- (xyr) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsdots( x, y, a ) \
+#define bli_zzsdots( x, y, a ) \
 { \
 	(a)      += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 }
-#define bl2_zzddots( x, y, a ) \
+#define bli_zzddots( x, y, a ) \
 { \
 	(a)      += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 }
-#define bl2_zzcdots( x, y, a ) \
+#define bli_zzcdots( x, y, a ) \
 { \
 	(a).real += ( float  ) (x).real * ( float  ) (y).real - ( float  ) (x).imag * ( float  ) (y).imag; \
 	(a).imag += ( float  ) (x).real * ( float  ) (y).imag + ( float  ) (x).imag * ( float  ) (y).real; \
 }
-#define bl2_zzzdots( x, y, a ) \
+#define bli_zzzdots( x, y, a ) \
 { \
 	(a).real += ( double ) (x).real * ( double ) (y).real - ( double ) (x).imag * ( double ) (y).imag; \
 	(a).imag += ( double ) (x).real * ( double ) (y).imag + ( double ) (x).imag * ( double ) (y).real; \
@@ -380,21 +380,21 @@
 
 
 
-#define bl2_sdots( x, y, a ) \
+#define bli_sdots( x, y, a ) \
 { \
-	bl2_sssdots( x, y, a ); \
+	bli_sssdots( x, y, a ); \
 }
-#define bl2_ddots( x, y, a ) \
+#define bli_ddots( x, y, a ) \
 { \
-	bl2_ddddots( x, y, a ); \
+	bli_ddddots( x, y, a ); \
 }
-#define bl2_cdots( x, y, a ) \
+#define bli_cdots( x, y, a ) \
 { \
-	bl2_cccdots( x, y, a ); \
+	bli_cccdots( x, y, a ); \
 }
-#define bl2_zdots( x, y, a ) \
+#define bli_zdots( x, y, a ) \
 { \
-	bl2_zzzdots( x, y, a ); \
+	bli_zzzdots( x, y, a ); \
 }
 
 

frame/include/level0/bli_eq.h

@@ -38,122 +38,122 @@
 
 // eq1
 
-#define bl2_seq1( a ) \
+#define bli_seq1( a ) \
 \
 	( (a) == 1.0F )
 
-#define bl2_deq1( a ) \
+#define bli_deq1( a ) \
 \
 	( (a) == 1.0 )
 
-#define bl2_ceq1( a ) \
+#define bli_ceq1( a ) \
 \
 	( (a).real == 1.0F && (a).imag == 0.0F )
 
-#define bl2_zeq1( a ) \
+#define bli_zeq1( a ) \
 \
 	( (a).real == 1.0 && (a).imag == 0.0 )
 
 // eq0
 
-#define bl2_seq0( a ) \
+#define bli_seq0( a ) \
 \
 	( (a) == 0.0F )
 
-#define bl2_deq0( a ) \
+#define bli_deq0( a ) \
 \
 	( (a) == 0.0 )
 
-#define bl2_ceq0( a ) \
+#define bli_ceq0( a ) \
 \
 	( (a).real == 0.0F && (a).imag == 0.0F )
 
-#define bl2_zeq0( a ) \
+#define bli_zeq0( a ) \
 \
 	( (a).real == 0.0 && (a).imag == 0.0 )
 
 // eqm1
 
-#define bl2_seqm1( a ) \
+#define bli_seqm1( a ) \
 \
 	( (a) == -1.0F )
 
-#define bl2_deqm1( a ) \
+#define bli_deqm1( a ) \
 \
 	( (a) == -1.0 )
 
-#define bl2_ceqm1( a ) \
+#define bli_ceqm1( a ) \
 \
 	( (a).real == -1.0F && (a).imag == 0.0F )
 
-#define bl2_zeqm1( a ) \
+#define bli_zeqm1( a ) \
 \
 	( (a).real == -1.0 && (a).imag == 0.0 )
 
 
 // eq (passed by value)
 
-#define bl2_seq( a, b ) \
+#define bli_seq( a, b ) \
 \
 	( (a) == (b) )
 
-#define bl2_deq( a, b ) \
+#define bli_deq( a, b ) \
 \
 	( (a) == (b) )
 
-#define bl2_ceq( a, b ) \
+#define bli_ceq( a, b ) \
 \
 	( ( (a).real == (b).real ) && \
 	  ( (a).imag == (b).imag ) )
 
-#define bl2_zeq( a, b ) \
+#define bli_zeq( a, b ) \
 \
 	( ( (a).real == (b).real ) && \
 	  ( (a).imag == (b).imag ) )
 
-#define bl2_ieq( a, b ) \
+#define bli_ieq( a, b ) \
 \
 	( (a) == (b) )
 
 // eqa (passed by address)
 
-#define bl2_seqa( a, b ) \
+#define bli_seqa( a, b ) \
 \
 	( *(( float* )(a)) == *(( float* )(b)) )
 
-#define bl2_deqa( a, b ) \
+#define bli_deqa( a, b ) \
 \
 	( *(( double* )(a)) == *(( double* )(b)) )
 
-#define bl2_ceqa( a, b ) \
+#define bli_ceqa( a, b ) \
 \
 	( ( (( scomplex* )(a))->real == (( scomplex* )(b))->real ) && \
 	  ( (( scomplex* )(a))->imag == (( scomplex* )(b))->imag ) )
 
-#define bl2_zeqa( a, b ) \
+#define bli_zeqa( a, b ) \
 \
 	( ( (( dcomplex* )(a))->real == (( dcomplex* )(b))->real ) && \
 	  ( (( dcomplex* )(a))->imag == (( dcomplex* )(b))->imag ) )
 
-#define bl2_ieqa( a, b ) \
+#define bli_ieqa( a, b ) \
 \
 	( *(( int* )(a)) == *(( int* )(b)) )
 
 // imageq0
 
-#define bl2_simageq0( a ) \
+#define bli_simageq0( a ) \
 \
 	( TRUE )
 
-#define bl2_dimageq0( a ) \
+#define bli_dimageq0( a ) \
 \
 	( TRUE )
 
-#define bl2_cimageq0( a ) \
+#define bli_cimageq0( a ) \
 \
 	( (( scomplex* )(a))->imag == ( float  ) 0.0 )
 
-#define bl2_zimageq0( a ) \
+#define bli_zimageq0( a ) \
 \
 	( (( dcomplex* )(a))->imag == ( double ) 0.0 )
 

frame/include/level0/bli_fprints.h

@@ -37,22 +37,22 @@
 
 // prints
 
-#define bl2_sfprints( file, spec, x ) \
+#define bli_sfprints( file, spec, x ) \
 { \
 	fprintf( file, spec, (x) ); \
 }
-#define bl2_dfprints( file, spec, x ) \
+#define bli_dfprints( file, spec, x ) \
 { \
 	fprintf( file, spec, (x) ); \
 }
-#define bl2_cfprints( file, spec, x ) \
+#define bli_cfprints( file, spec, x ) \
 { \
 	fprintf( file, spec, (x).real ); \
 	fprintf( file, " + " ); \
 	fprintf( file, spec, (x).imag ); \
 	fprintf( file, " " ); \
 }
-#define bl2_zfprints( file, spec, x ) \
+#define bli_zfprints( file, spec, x ) \
 { \
 	fprintf( file, spec, (x).real ); \
 	fprintf( file, " + " ); \

frame/include/level0/bli_getris.h

@@ -41,44 +41,44 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_ssgetris( x, yr, yi ) \
+#define bli_ssgetris( x, yr, yi ) \
 { \
 	(yr)     = ( float  ) (x); \
 	(yi)     = 0.0F; \
 }
-#define bl2_dsgetris( x, yr, yi ) \
+#define bli_dsgetris( x, yr, yi ) \
 { \
 	(yr)     = ( float  ) (x); \
 	(yi)     = 0.0F; \
 }
-#define bl2_csgetris( x, yr, yi ) \
+#define bli_csgetris( x, yr, yi ) \
 { \
 	(yr)     = ( float  ) (x).real; \
 	(yi)     = ( float  ) (x).imag; \
 }
-#define bl2_zsgetris( x, yr, yi ) \
+#define bli_zsgetris( x, yr, yi ) \
 { \
 	(yr)     = ( float  ) (x).real; \
 	(yi)     = ( float  ) (x).imag; \
 }
 
 
-#define bl2_sdgetris( x, yr, yi ) \
+#define bli_sdgetris( x, yr, yi ) \
 { \
 	(yr)     = ( double ) (x); \
 	(yi)     = 0.0; \
 }
-#define bl2_ddgetris( x, yr, yi ) \
+#define bli_ddgetris( x, yr, yi ) \
 { \
 	(yr)     = ( double ) (x); \
 	(yi)     = 0.0; \
 }
-#define bl2_cdgetris( x, yr, yi ) \
+#define bli_cdgetris( x, yr, yi ) \
 { \
 	(yr)     = ( double ) (x).real; \
 	(yi)     = ( double ) (x).imag; \
 }
-#define bl2_zdgetris( x, yr, yi ) \
+#define bli_zdgetris( x, yr, yi ) \
 { \
 	(yr)     = ( double ) (x).real; \
 	(yi)     = ( double ) (x).imag; \
@@ -86,21 +86,21 @@
 
 
 
-#define bl2_sgetris( x, yr, yi ) \
+#define bli_sgetris( x, yr, yi ) \
 { \
-	bl2_ssgetris( x, yr, yi ); \
+	bli_ssgetris( x, yr, yi ); \
 }
-#define bl2_dgetris( x, yr, yi ) \
+#define bli_dgetris( x, yr, yi ) \
 { \
-	bl2_ddgetris( x, yr, yi ); \
+	bli_ddgetris( x, yr, yi ); \
 }
-#define bl2_cgetris( x, yr, yi ) \
+#define bli_cgetris( x, yr, yi ) \
 { \
-	bl2_csgetris( x, yr, yi ); \
+	bli_csgetris( x, yr, yi ); \
 }
-#define bl2_zgetris( x, yr, yi ) \
+#define bli_zgetris( x, yr, yi ) \
 { \
-	bl2_zdgetris( x, yr, yi ); \
+	bli_zdgetris( x, yr, yi ); \
 }
 
 

frame/include/level0/bli_inverts.h

@@ -40,17 +40,17 @@
 // Notes:
 // - The first char encodes the type of x.
 
-#define bl2_sinverts( x ) \
+#define bli_sinverts( x ) \
 { \
 	(x) = 1.0F / ( float  ) (x); \
 }
 
-#define bl2_dinverts( x ) \
+#define bli_dinverts( x ) \
 { \
 	(x) = 1.0  / ( double ) (x); \
 }
 
-#define bl2_cinverts( x ) \
+#define bli_cinverts( x ) \
 { \
 	float  temp = 1.0F / ( ( float  ) (x).real * (x).real + \
 	                       ( float  ) (x).imag * (x).imag ); \
@@ -58,7 +58,7 @@
 	(x).imag = ( float  ) (x).imag * -temp; \
 }
 
-#define bl2_zinverts( x ) \
+#define bli_zinverts( x ) \
 { \
 	double temp = 1.0  / ( ( double ) (x).real * (x).real + \
 	                       ( double ) (x).imag * (x).imag ); \

frame/include/level0/bli_invscalcjs.h

@@ -41,53 +41,53 @@
 // - The first char encodes the type of a.
 // - The second char encodes the type of x.
 
-#define bl2_ssinvscalcjs( conj, a, x ) \
+#define bli_ssinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( float  ) (a); \
 }
-#define bl2_dsinvscalcjs( conj, a, x ) \
+#define bli_dsinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( float  ) (a); \
 }
-#define bl2_csinvscalcjs( conj, a, x ) \
+#define bli_csinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( float  ) (a).real; \
 }
-#define bl2_zsinvscalcjs( conj, a, x ) \
+#define bli_zsinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( float  ) (a).real; \
 }
 
-#define bl2_sdinvscalcjs( conj, a, x ) \
+#define bli_sdinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( double ) (a); \
 }
-#define bl2_ddinvscalcjs( conj, a, x ) \
+#define bli_ddinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( double ) (a); \
 }
-#define bl2_cdinvscalcjs( conj, a, x ) \
+#define bli_cdinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( double ) (a).real; \
 }
-#define bl2_zdinvscalcjs( conj, a, x ) \
+#define bli_zdinvscalcjs( conj, a, x ) \
 { \
 	(x) /= ( double ) (a).real; \
 }
 
-#define bl2_scinvscalcjs( conj, a, x ) \
+#define bli_scinvscalcjs( conj, a, x ) \
 { \
 	(x).real /= ( float  ) (a); \
 	(x).imag /= ( float  ) (a); \
 }
-#define bl2_dcinvscalcjs( conj, a, x ) \
+#define bli_dcinvscalcjs( conj, a, x ) \
 { \
 	(x).real /= ( float  ) (a); \
 	(x).imag /= ( float  ) (a); \
 }
-#define bl2_ccinvscalcjs( conj, a, x ) \
+#define bli_ccinvscalcjs( conj, a, x ) \
 { \
-	float  aimag = ( bl2_is_conj( conj ) ? ( float  ) -(a).imag : \
+	float  aimag = ( bli_is_conj( conj ) ? ( float  ) -(a).imag : \
 	                                       ( float  )  (a).imag ); \
 	float  temp =              ( float  ) (a).real * (a).real + ( float  ) aimag * (a).imag; \
 	float  xr   = ( float  ) ( ( float  ) (a).real * (x).real + ( float  ) aimag * (x).imag ) / temp; \
@@ -95,9 +95,9 @@
 	(x).real    = xr; \
 	(x).imag    = xi; \
 }
-#define bl2_zcinvscalcjs( conj, a, x ) \
+#define bli_zcinvscalcjs( conj, a, x ) \
 { \
-	float  aimag = ( bl2_is_conj( conj ) ? ( float  ) -(a).imag : \
+	float  aimag = ( bli_is_conj( conj ) ? ( float  ) -(a).imag : \
 	                                       ( float  )  (a).imag ); \
 	float  temp =              ( float  ) (a).real * (a).real + ( float  ) aimag * (a).imag; \
 	float  xr   = ( float  ) ( ( float  ) (a).real * (x).real + ( float  ) aimag * (x).imag ) / temp; \
@@ -106,19 +106,19 @@
 	(x).imag    = xi; \
 }
 
-#define bl2_szinvscalcjs( conj, a, x ) \
+#define bli_szinvscalcjs( conj, a, x ) \
 { \
 	(x).real /= ( double ) (a); \
 	(x).imag /= ( double ) (a); \
 }
-#define bl2_dzinvscalcjs( conj, a, x ) \
+#define bli_dzinvscalcjs( conj, a, x ) \
 { \
 	(x).real /= ( double ) (a); \
 	(x).imag /= ( double ) (a); \
 }
-#define bl2_czinvscalcjs( conj, a, x ) \
+#define bli_czinvscalcjs( conj, a, x ) \
 { \
-	double aimag = ( bl2_is_conj( conj ) ? ( double ) -(a).imag : \
+	double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \
 	                                       ( double )  (a).imag ); \
 	double temp =              ( double ) (a).real * (a).real + ( double ) aimag * (a).imag; \
 	double xr   = ( double ) ( ( double ) (a).real * (x).real + ( double ) aimag * (x).imag ) / temp; \
@@ -126,9 +126,9 @@
 	(x).real    = xr; \
 	(x).imag    = xi; \
 }
-#define bl2_zzinvscalcjs( conj, a, x ) \
+#define bli_zzinvscalcjs( conj, a, x ) \
 { \
-	double aimag = ( bl2_is_conj( conj ) ? ( double ) -(a).imag : \
+	double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \
 	                                       ( double )  (a).imag ); \
 	double temp =              ( double ) (a).real * (a).real + ( double ) aimag * (a).imag; \
 	double xr   = ( double ) ( ( double ) (a).real * (x).real + ( double ) aimag * (x).imag ) / temp; \
@@ -138,21 +138,21 @@
 }
 
 
-#define bl2_sinvscalcjs( conj, a, x ) \
+#define bli_sinvscalcjs( conj, a, x ) \
 { \
-	bl2_ssinvscalcjs( conj, a, x ); \
+	bli_ssinvscalcjs( conj, a, x ); \
 }
-#define bl2_dinvscalcjs( conj, a, x ) \
+#define bli_dinvscalcjs( conj, a, x ) \
 { \
-	bl2_ddinvscalcjs( conj, a, x ); \
+	bli_ddinvscalcjs( conj, a, x ); \
 }
-#define bl2_cinvscalcjs( conj, a, x ) \
+#define bli_cinvscalcjs( conj, a, x ) \
 { \
-	bl2_ccinvscalcjs( conj, a, x ); \
+	bli_ccinvscalcjs( conj, a, x ); \
 }
-#define bl2_zinvscalcjs( conj, a, x ) \
+#define bli_zinvscalcjs( conj, a, x ) \
 { \
-	bl2_zzinvscalcjs( conj, a, x ); \
+	bli_zzinvscalcjs( conj, a, x ); \
 }
 
 

frame/include/level0/bli_invscaljs.h

@@ -42,51 +42,51 @@
 // - The second char encodes the type of x.
 // - a is used in conjugated form.
 
-#define bl2_ssinvscaljs( a, x ) \
+#define bli_ssinvscaljs( a, x ) \
 { \
 	(x) /= ( float  ) (a); \
 }
-#define bl2_dsinvscaljs( a, x ) \
+#define bli_dsinvscaljs( a, x ) \
 { \
 	(x) /= ( float  ) (a); \
 }
-#define bl2_csinvscaljs( a, x ) \
+#define bli_csinvscaljs( a, x ) \
 { \
 	(x) /= ( float  ) (a).real; \
 }
-#define bl2_zsinvscaljs( a, x ) \
+#define bli_zsinvscaljs( a, x ) \
 { \
 	(x) /= ( float  ) (a).real; \
 }
 
-#define bl2_sdinvscaljs( a, x ) \
+#define bli_sdinvscaljs( a, x ) \
 { \
 	(x) /= ( double ) (a); \
 }
-#define bl2_ddinvscaljs( a, x ) \
+#define bli_ddinvscaljs( a, x ) \
 { \
 	(x) /= ( double ) (a); \
 }
-#define bl2_cdinvscaljs( a, x ) \
+#define bli_cdinvscaljs( a, x ) \
 { \
 	(x) /= ( double ) (a).real; \
 }
-#define bl2_zdinvscaljs( a, x ) \
+#define bli_zdinvscaljs( a, x ) \
 { \
 	(x) /= ( double ) (a).real; \
 }
 
-#define bl2_scinvscaljs( a, x ) \
+#define bli_scinvscaljs( a, x ) \
 { \
 	(x).real /= ( float  ) (a); \
 	(x).imag /= ( float  ) (a); \
 }
-#define bl2_dcinvscaljs( a, x ) \
+#define bli_dcinvscaljs( a, x ) \
 { \
 	(x).real /= ( float  ) (a); \
 	(x).imag /= ( float  ) (a); \
 }
-#define bl2_ccinvscaljs( a, x ) \
+#define bli_ccinvscaljs( a, x ) \
 { \
 	float  temp =              ( float  ) (a).real * (a).real + ( float  ) (a).imag * (a).imag; \
 	float  xr   = ( float  ) ( ( float  ) (a).real * (x).real - ( float  ) (a).imag * (x).imag ) / temp; \
@@ -94,7 +94,7 @@
 	(x).real    = xr; \
 	(x).imag    = xi; \
 }
-#define bl2_zcinvscaljs( a, x ) \
+#define bli_zcinvscaljs( a, x ) \
 { \
 	float  temp =              ( float  ) (a).real * (a).real + ( float  ) (a).imag * (a).imag; \
 	float  xr   = ( float  ) ( ( float  ) (a).real * (x).real - ( float  ) (a).imag * (x).imag ) / temp; \
@@ -103,17 +103,17 @@
 	(x).imag    = xi; \
 }
 
-#define bl2_szinvscaljs( a, x ) \
+#define bli_szinvscaljs( a, x ) \
 { \
 	(x).real /= ( double ) (a); \
 	(x).imag /= ( double ) (a); \
 }
-#define bl2_dzinvscaljs( a, x ) \
+#define bli_dzinvscaljs( a, x ) \
 { \
 	(x).real /= ( double ) (a); \
 	(x).imag /= ( double ) (a); \
 }
-#define bl2_czinvscaljs( a, x ) \
+#define bli_czinvscaljs( a, x ) \
 { \
 	double temp =              ( double ) (a).real * (a).real + ( double ) (a).imag * (a).imag; \
 	double xr   = ( double ) ( ( double ) (a).real * (x).real - ( double ) (a).imag * (x).imag ) / temp; \
@@ -121,7 +121,7 @@
 	(x).real    = xr; \
 	(x).imag    = xi; \
 }
-#define bl2_zzinvscaljs( a, x ) \
+#define bli_zzinvscaljs( a, x ) \
 { \
 	double temp =              ( double ) (a).real * (a).real + ( double ) (a).imag * (a).imag; \
 	double xr   = ( double ) ( ( double ) (a).real * (x).real - ( double ) (a).imag * (x).imag ) / temp; \
@@ -131,21 +131,21 @@
 }
 
 
-#define bl2_sinvscaljs( a, x ) \
+#define bli_sinvscaljs( a, x ) \
 { \
-	bl2_ssinvscaljs( a, x ); \
+	bli_ssinvscaljs( a, x ); \
 }
-#define bl2_dinvscaljs( a, x ) \
+#define bli_dinvscaljs( a, x ) \
 { \
-	bl2_ddinvscaljs( a, x ); \
+	bli_ddinvscaljs( a, x ); \
 }
-#define bl2_cinvscaljs( a, x ) \
+#define bli_cinvscaljs( a, x ) \
 { \
-	bl2_ccinvscaljs( a, x ); \
+	bli_ccinvscaljs( a, x ); \
 }
-#define bl2_zinvscaljs( a, x ) \
+#define bli_zinvscaljs( a, x ) \
 { \
-	bl2_zzinvscaljs( a, x ); \
+	bli_zzinvscaljs( a, x ); \
 }
 
 

frame/include/level0/bli_invscals.h

@@ -41,51 +41,51 @@
 // - The first char encodes the type of a.
 // - The second char encodes the type of x.
 
-#define bl2_ssinvscals( a, x ) \
+#define bli_ssinvscals( a, x ) \
 { \
 	(x) /= ( float  ) (a); \
 }
-#define bl2_dsinvscals( a, x ) \
+#define bli_dsinvscals( a, x ) \
 { \
 	(x) /= ( float  ) (a); \
 }
-#define bl2_csinvscals( a, x ) \
+#define bli_csinvscals( a, x ) \
 { \
 	(x) /= ( float  ) (a).real; \
 }
-#define bl2_zsinvscals( a, x ) \
+#define bli_zsinvscals( a, x ) \
 { \
 	(x) /= ( float  ) (a).real; \
 }
 
-#define bl2_sdinvscals( a, x ) \
+#define bli_sdinvscals( a, x ) \
 { \
 	(x) /= ( double ) (a); \
 }
-#define bl2_ddinvscals( a, x ) \
+#define bli_ddinvscals( a, x ) \
 { \
 	(x) /= ( double ) (a); \
 }
-#define bl2_cdinvscals( a, x ) \
+#define bli_cdinvscals( a, x ) \
 { \
 	(x) /= ( double ) (a).real; \
 }
-#define bl2_zdinvscals( a, x ) \
+#define bli_zdinvscals( a, x ) \
 { \
 	(x) /= ( double ) (a).real; \
 }
 
-#define bl2_scinvscals( a, x ) \
+#define bli_scinvscals( a, x ) \
 { \
 	(x).real /= ( float  ) (a); \
 	(x).imag /= ( float  ) (a); \
 }
-#define bl2_dcinvscals( a, x ) \
+#define bli_dcinvscals( a, x ) \
 { \
 	(x).real /= ( float  ) (a); \
 	(x).imag /= ( float  ) (a); \
 }
-#define bl2_ccinvscals( a, x ) \
+#define bli_ccinvscals( a, x ) \
 { \
 	float  temp =              ( float  ) (a).real * (a).real + ( float  ) (a).imag * (a).imag; \
 	float  xr   = ( float  ) ( ( float  ) (a).real * (x).real + ( float  ) (a).imag * (x).imag ) / temp; \
@@ -93,7 +93,7 @@
 	(x).real    = xr; \
 	(x).imag    = xi; \
 }
-#define bl2_zcinvscals( a, x ) \
+#define bli_zcinvscals( a, x ) \
 { \
 	float  temp =              ( float  ) (a).real * (a).real + ( float  ) (a).imag * (a).imag; \
 	float  xr   = ( float  ) ( ( float  ) (a).real * (x).real + ( float  ) (a).imag * (x).imag ) / temp; \
@@ -102,17 +102,17 @@
 	(x).imag    = xi; \
 }
 
-#define bl2_szinvscals( a, x ) \
+#define bli_szinvscals( a, x ) \
 { \
 	(x).real /= ( double ) (a); \
 	(x).imag /= ( double ) (a); \
 }
-#define bl2_dzinvscals( a, x ) \
+#define bli_dzinvscals( a, x ) \
 { \
 	(x).real /= ( double ) (a); \
 	(x).imag /= ( double ) (a); \
 }
-#define bl2_czinvscals( a, x ) \
+#define bli_czinvscals( a, x ) \
 { \
 	double temp =              ( double ) (a).real * (a).real + ( double ) (a).imag * (a).imag; \
 	double xr   = ( double ) ( ( double ) (a).real * (x).real + ( double ) (a).imag * (x).imag ) / temp; \
@@ -120,7 +120,7 @@
 	(x).real    = xr; \
 	(x).imag    = xi; \
 }
-#define bl2_zzinvscals( a, x ) \
+#define bli_zzinvscals( a, x ) \
 { \
 	double temp =              ( double ) (a).real * (a).real + ( double ) (a).imag * (a).imag; \
 	double xr   = ( double ) ( ( double ) (a).real * (x).real + ( double ) (a).imag * (x).imag ) / temp; \
@@ -130,21 +130,21 @@
 }
 
 
-#define bl2_sinvscals( a, x ) \
+#define bli_sinvscals( a, x ) \
 { \
-	bl2_ssinvscals( a, x ); \
+	bli_ssinvscals( a, x ); \
 }
-#define bl2_dinvscals( a, x ) \
+#define bli_dinvscals( a, x ) \
 { \
-	bl2_ddinvscals( a, x ); \
+	bli_ddinvscals( a, x ); \
 }
-#define bl2_cinvscals( a, x ) \
+#define bli_cinvscals( a, x ) \
 { \
-	bl2_ccinvscals( a, x ); \
+	bli_ccinvscals( a, x ); \
 }
-#define bl2_zinvscals( a, x ) \
+#define bli_zinvscals( a, x ) \
 { \
-	bl2_zzinvscals( a, x ); \
+	bli_zzinvscals( a, x ); \
 }
 
 

frame/include/level0/bli_neg2s.h

@@ -41,98 +41,98 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_ssneg2s( x, y ) \
+#define bli_ssneg2s( x, y ) \
 { \
 	(y) = ( float  ) -(x); \
 }
-#define bl2_dsneg2s( x, y ) \
+#define bli_dsneg2s( x, y ) \
 { \
 	(y) = ( float  ) -(x); \
 }
-#define bl2_csneg2s( x, y ) \
+#define bli_csneg2s( x, y ) \
 { \
 	(y) = ( float  ) -(x).real; \
 }
-#define bl2_zsneg2s( x, y ) \
+#define bli_zsneg2s( x, y ) \
 { \
 	(y) = ( float  ) -(x).real; \
 }
 
-#define bl2_sdneg2s( x, y ) \
+#define bli_sdneg2s( x, y ) \
 { \
 	(y) = ( double ) -(x); \
 }
-#define bl2_ddneg2s( x, y ) \
+#define bli_ddneg2s( x, y ) \
 { \
 	(y) = ( double ) -(x); \
 }
-#define bl2_cdneg2s( x, y ) \
+#define bli_cdneg2s( x, y ) \
 { \
 	(y) = ( double ) -(x).real; \
 }
-#define bl2_zdneg2s( x, y ) \
+#define bli_zdneg2s( x, y ) \
 { \
 	(y) = ( double ) -(x).real; \
 }
 
-#define bl2_scneg2s( x, y ) \
+#define bli_scneg2s( x, y ) \
 { \
 	(y).real = ( float  ) -(x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_dcneg2s( x, y ) \
+#define bli_dcneg2s( x, y ) \
 { \
 	(y).real = ( float  ) -(x); \
 	(y).imag = 0.0F; \
 }
-#define bl2_ccneg2s( x, y ) \
+#define bli_ccneg2s( x, y ) \
 { \
 	(y).real = ( float  ) -(x).real; \
 	(y).imag = ( float  ) -(x).imag; \
 }
-#define bl2_zcneg2s( x, y ) \
+#define bli_zcneg2s( x, y ) \
 { \
 	(y).real = ( float  ) -(x).real; \
 	(y).imag = ( float  ) -(x).imag; \
 }
 
-#define bl2_szneg2s( x, y ) \
+#define bli_szneg2s( x, y ) \
 { \
 	(y).real = ( double ) -(x); \
 	(y).imag = 0.0; \
 }
-#define bl2_dzneg2s( x, y ) \
+#define bli_dzneg2s( x, y ) \
 { \
 	(y).real = ( double ) -(x); \
 	(y).imag = 0.0; \
 }
-#define bl2_czneg2s( x, y ) \
+#define bli_czneg2s( x, y ) \
 { \
 	(y).real = ( double ) -(x).real; \
 	(y).imag = ( double ) -(x).imag; \
 }
-#define bl2_zzneg2s( x, y ) \
+#define bli_zzneg2s( x, y ) \
 { \
 	(y).real = ( double ) -(x).real; \
 	(y).imag = ( double ) -(x).imag; \
 }
 
 
-#define bl2_sneg2s( x, y ) \
+#define bli_sneg2s( x, y ) \
 { \
-	bl2_ssneg2s( x, y ); \
+	bli_ssneg2s( x, y ); \
 }
-#define bl2_dneg2s( x, y ) \
+#define bli_dneg2s( x, y ) \
 { \
-	bl2_ddneg2s( x, y ); \
+	bli_ddneg2s( x, y ); \
 }
-#define bl2_cneg2s( x, y ) \
+#define bli_cneg2s( x, y ) \
 { \
-	bl2_ccneg2s( x, y ); \
+	bli_ccneg2s( x, y ); \
 }
-#define bl2_zneg2s( x, y ) \
+#define bli_zneg2s( x, y ) \
 { \
-	bl2_zzneg2s( x, y ); \
+	bli_zzneg2s( x, y ); \
 }
 
 

frame/include/level0/bli_rands.h

@@ -36,27 +36,27 @@
 #define BLIS_RANDS_H
 
 
-#define bl2_srands( a ) \
+#define bli_srands( a ) \
 { \
 	(a) = ( float  ) (   ( double ) rand() / \
 	                   ( ( double ) RAND_MAX / 2.0 ) \
 	                 ) - 1.0F; \
 }
-#define bl2_drands( a ) \
+#define bli_drands( a ) \
 { \
 	(a) = ( double ) (   ( double ) rand() / \
 	                   ( ( double ) RAND_MAX / 2.0 ) \
 	                 ) - 1.0F; \
 }
-#define bl2_crands( a ) \
+#define bli_crands( a ) \
 { \
-	bl2_srands( (a).real ); \
-	bl2_srands( (a).imag ); \
+	bli_srands( (a).real ); \
+	bli_srands( (a).imag ); \
 }
-#define bl2_zrands( a ) \
+#define bli_zrands( a ) \
 { \
-	bl2_drands( (a).real ); \
-	bl2_drands( (a).imag ); \
+	bli_drands( (a).real ); \
+	bli_drands( (a).imag ); \
 }
 
 #endif

frame/include/level0/bli_scal2js.h

@@ -45,58 +45,58 @@
 
 // -- (axy) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssscal2js( a, x, y ) \
+#define bli_sssscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_ssdscal2js( a, x, y ) \
+#define bli_ssdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sscscal2js( a, x, y ) \
+#define bli_sscscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sszscal2js( a, x, y ) \
+#define bli_sszscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
 
 // -- (axy) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsscal2js( a, x, y ) \
+#define bli_sdsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sddscal2js( a, x, y ) \
+#define bli_sddscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdcscal2js( a, x, y ) \
+#define bli_sdcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdzscal2js( a, x, y ) \
+#define bli_sdzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsscal2js( a, x, y ) \
+#define bli_scsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_scdscal2js( a, x, y ) \
+#define bli_scdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_sccscal2js( a, x, y ) \
+#define bli_sccscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag  = ( float  )( ( float  ) (a)      * ( float  )-(x).imag ); \
 }
-#define bl2_sczscal2js( a, x, y ) \
+#define bli_sczscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag  = ( double )( ( float  ) (a)      * ( float  )-(x).imag ); \
@@ -104,20 +104,20 @@
 
 // -- (axy) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsscal2js( a, x, y ) \
+#define bli_szsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szdscal2js( a, x, y ) \
+#define bli_szdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szcscal2js( a, x, y ) \
+#define bli_szcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( float  )( ( double ) (a)      * ( double )-(x).imag ); \
 }
-#define bl2_szzscal2js( a, x, y ) \
+#define bli_szzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( double )( ( double ) (a)      * ( double )-(x).imag ); \
@@ -125,58 +125,58 @@
 
 // -- (axy) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssscal2js( a, x, y ) \
+#define bli_dssscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dsdscal2js( a, x, y ) \
+#define bli_dsdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dscscal2js( a, x, y ) \
+#define bli_dscscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dszscal2js( a, x, y ) \
+#define bli_dszscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsscal2js( a, x, y ) \
+#define bli_ddsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dddscal2js( a, x, y ) \
+#define bli_dddscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddcscal2js( a, x, y ) \
+#define bli_ddcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddzscal2js( a, x, y ) \
+#define bli_ddzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsscal2js( a, x, y ) \
+#define bli_dcsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dcdscal2js( a, x, y ) \
+#define bli_dcdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dccscal2js( a, x, y ) \
+#define bli_dccscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( float  )( ( double ) (a)      * ( double )-(x).imag ); \
 }
-#define bl2_dczscal2js( a, x, y ) \
+#define bli_dczscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( double )( ( double ) (a)      * ( double )-(x).imag ); \
@@ -184,20 +184,20 @@
 
 // -- (axy) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsscal2js( a, x, y ) \
+#define bli_dzsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzdscal2js( a, x, y ) \
+#define bli_dzdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzcscal2js( a, x, y ) \
+#define bli_dzcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( float  )( ( double ) (a)      * ( double )-(x).imag ); \
 }
-#define bl2_dzzscal2js( a, x, y ) \
+#define bli_dzzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( double )( ( double ) (a)      * ( double )-(x).imag ); \
@@ -205,20 +205,20 @@
 
 // -- (axy) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssscal2js( a, x, y ) \
+#define bli_cssscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_csdscal2js( a, x, y ) \
+#define bli_csdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_cscscal2js( a, x, y ) \
+#define bli_cscscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_cszscal2js( a, x, y ) \
+#define bli_cszscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -226,20 +226,20 @@
 
 // -- (axy) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsscal2js( a, x, y ) \
+#define bli_cdsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cddscal2js( a, x, y ) \
+#define bli_cddscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cdcscal2js( a, x, y ) \
+#define bli_cdcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_cdzscal2js( a, x, y ) \
+#define bli_cdzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -247,20 +247,20 @@
 
 // -- (axy) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsscal2js( a, x, y ) \
+#define bli_ccsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_ccdscal2js( a, x, y ) \
+#define bli_ccdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_cccscal2js( a, x, y ) \
+#define bli_cccscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_cczscal2js( a, x, y ) \
+#define bli_cczscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -268,20 +268,20 @@
 
 // -- (axy) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsscal2js( a, x, y ) \
+#define bli_czsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czdscal2js( a, x, y ) \
+#define bli_czdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czcscal2js( a, x, y ) \
+#define bli_czcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_czzscal2js( a, x, y ) \
+#define bli_czzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
@@ -289,20 +289,20 @@
 
 // -- (axy) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssscal2js( a, x, y ) \
+#define bli_zssscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zsdscal2js( a, x, y ) \
+#define bli_zsdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zscscal2js( a, x, y ) \
+#define bli_zscscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_zszscal2js( a, x, y ) \
+#define bli_zszscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -310,20 +310,20 @@
 
 // -- (axy) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsscal2js( a, x, y ) \
+#define bli_zdsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zddscal2js( a, x, y ) \
+#define bli_zddscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zdcscal2js( a, x, y ) \
+#define bli_zdcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_zdzscal2js( a, x, y ) \
+#define bli_zdzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -331,20 +331,20 @@
 
 // -- (axy) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsscal2js( a, x, y ) \
+#define bli_zcsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zcdscal2js( a, x, y ) \
+#define bli_zcdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zccscal2js( a, x, y ) \
+#define bli_zccscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_zczscal2js( a, x, y ) \
+#define bli_zczscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x).real + ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x).real - ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -352,20 +352,20 @@
 
 // -- (axy) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsscal2js( a, x, y ) \
+#define bli_zzsscal2js( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzdscal2js( a, x, y ) \
+#define bli_zzdscal2js( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzcscal2js( a, x, y ) \
+#define bli_zzcscal2js( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_zzzscal2js( a, x, y ) \
+#define bli_zzzscal2js( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x).real + ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x).real - ( double ) (a).real * ( double ) (x).imag ); \
@@ -376,21 +376,21 @@
 
 
 
-#define bl2_sscal2js( a, x, y ) \
+#define bli_sscal2js( a, x, y ) \
 { \
-	bl2_sssscal2js( a, x, y ); \
+	bli_sssscal2js( a, x, y ); \
 }
-#define bl2_dscal2js( a, x, y ) \
+#define bli_dscal2js( a, x, y ) \
 { \
-	bl2_dddscal2js( a, x, y ); \
+	bli_dddscal2js( a, x, y ); \
 }
-#define bl2_cscal2js( a, x, y ) \
+#define bli_cscal2js( a, x, y ) \
 { \
-	bl2_cccscal2js( a, x, y ); \
+	bli_cccscal2js( a, x, y ); \
 }
-#define bl2_zscal2js( a, x, y ) \
+#define bli_zscal2js( a, x, y ) \
 { \
-	bl2_zzzscal2js( a, x, y ); \
+	bli_zzzscal2js( a, x, y ); \
 }
 
 

frame/include/level0/bli_scal2s.h

@@ -44,58 +44,58 @@
 
 // -- (axy) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssscal2s( a, x, y ) \
+#define bli_sssscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_ssdscal2s( a, x, y ) \
+#define bli_ssdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sscscal2s( a, x, y ) \
+#define bli_sscscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
-#define bl2_sszscal2s( a, x, y ) \
+#define bli_sszscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a)      * ( float  ) (x)      ); \
 }
 
 // -- (axy) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsscal2s( a, x, y ) \
+#define bli_sdsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sddscal2s( a, x, y ) \
+#define bli_sddscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdcscal2s( a, x, y ) \
+#define bli_sdcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_sdzscal2s( a, x, y ) \
+#define bli_sdzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsscal2s( a, x, y ) \
+#define bli_scsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_scdscal2s( a, x, y ) \
+#define bli_scdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 }
-#define bl2_sccscal2s( a, x, y ) \
+#define bli_sccscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag  = ( float  )( ( float  ) (a)      * ( float  ) (x).imag ); \
 }
-#define bl2_sczscal2s( a, x, y ) \
+#define bli_sczscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a)      * ( float  ) (x).real ); \
 	(y).imag  = ( double )( ( float  ) (a)      * ( float  ) (x).imag ); \
@@ -103,20 +103,20 @@
 
 // -- (axy) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsscal2s( a, x, y ) \
+#define bli_szsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szdscal2s( a, x, y ) \
+#define bli_szdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_szcscal2s( a, x, y ) \
+#define bli_szcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_szzscal2s( a, x, y ) \
+#define bli_szzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -124,58 +124,58 @@
 
 // -- (axy) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssscal2s( a, x, y ) \
+#define bli_dssscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dsdscal2s( a, x, y ) \
+#define bli_dsdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dscscal2s( a, x, y ) \
+#define bli_dscscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dszscal2s( a, x, y ) \
+#define bli_dszscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsscal2s( a, x, y ) \
+#define bli_ddsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_dddscal2s( a, x, y ) \
+#define bli_dddscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddcscal2s( a, x, y ) \
+#define bli_ddcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x)      ); \
 }
-#define bl2_ddzscal2s( a, x, y ) \
+#define bli_ddzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x)      ); \
 }
 
 // -- (axy) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsscal2s( a, x, y ) \
+#define bli_dcsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dcdscal2s( a, x, y ) \
+#define bli_dcdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dccscal2s( a, x, y ) \
+#define bli_dccscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_dczscal2s( a, x, y ) \
+#define bli_dczscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -183,20 +183,20 @@
 
 // -- (axy) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsscal2s( a, x, y ) \
+#define bli_dzsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzdscal2s( a, x, y ) \
+#define bli_dzdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 }
-#define bl2_dzcscal2s( a, x, y ) \
+#define bli_dzcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( float  )( ( double ) (a)      * ( double ) (x).imag ); \
 }
-#define bl2_dzzscal2s( a, x, y ) \
+#define bli_dzzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a)      * ( double ) (x).real ); \
 	(y).imag  = ( double )( ( double ) (a)      * ( double ) (x).imag ); \
@@ -204,20 +204,20 @@
 
 // -- (axy) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssscal2s( a, x, y ) \
+#define bli_cssscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_csdscal2s( a, x, y ) \
+#define bli_csdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_cscscal2s( a, x, y ) \
+#define bli_cscscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_cszscal2s( a, x, y ) \
+#define bli_cszscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -225,20 +225,20 @@
 
 // -- (axy) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsscal2s( a, x, y ) \
+#define bli_cdsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cddscal2s( a, x, y ) \
+#define bli_cddscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_cdcscal2s( a, x, y ) \
+#define bli_cdcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_cdzscal2s( a, x, y ) \
+#define bli_cdzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -246,20 +246,20 @@
 
 // -- (axy) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsscal2s( a, x, y ) \
+#define bli_ccsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_ccdscal2s( a, x, y ) \
+#define bli_ccdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_cccscal2s( a, x, y ) \
+#define bli_cccscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_cczscal2s( a, x, y ) \
+#define bli_cczscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -267,20 +267,20 @@
 
 // -- (axy) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsscal2s( a, x, y ) \
+#define bli_czsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czdscal2s( a, x, y ) \
+#define bli_czdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_czcscal2s( a, x, y ) \
+#define bli_czcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_czzscal2s( a, x, y ) \
+#define bli_czzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
@@ -288,20 +288,20 @@
 
 // -- (axy) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssscal2s( a, x, y ) \
+#define bli_zssscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zsdscal2s( a, x, y ) \
+#define bli_zsdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 }
-#define bl2_zscscal2s( a, x, y ) \
+#define bli_zscscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x)      ); \
 }
-#define bl2_zszscal2s( a, x, y ) \
+#define bli_zszscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x)      ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x)      ); \
@@ -309,20 +309,20 @@
 
 // -- (axy) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsscal2s( a, x, y ) \
+#define bli_zdsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zddscal2s( a, x, y ) \
+#define bli_zddscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 }
-#define bl2_zdcscal2s( a, x, y ) \
+#define bli_zdcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x)      ); \
 }
-#define bl2_zdzscal2s( a, x, y ) \
+#define bli_zdzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x)      ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x)      ); \
@@ -330,20 +330,20 @@
 
 // -- (axy) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsscal2s( a, x, y ) \
+#define bli_zcsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zcdscal2s( a, x, y ) \
+#define bli_zcdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 }
-#define bl2_zccscal2s( a, x, y ) \
+#define bli_zccscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( float  )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
 }
-#define bl2_zczscal2s( a, x, y ) \
+#define bli_zczscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( float  ) (a).real * ( float  ) (x).real - ( float  ) (a).imag * ( float  ) (x).imag ); \
 	(y).imag  = ( double )( ( float  ) (a).imag * ( float  ) (x).real + ( float  ) (a).real * ( float  ) (x).imag ); \
@@ -351,20 +351,20 @@
 
 // -- (axy) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsscal2s( a, x, y ) \
+#define bli_zzsscal2s( a, x, y ) \
 { \
 	(y)       = ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzdscal2s( a, x, y ) \
+#define bli_zzdscal2s( a, x, y ) \
 { \
 	(y)       = ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 }
-#define bl2_zzcscal2s( a, x, y ) \
+#define bli_zzcscal2s( a, x, y ) \
 { \
 	(y).real  = ( float  )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( float  )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
 }
-#define bl2_zzzscal2s( a, x, y ) \
+#define bli_zzzscal2s( a, x, y ) \
 { \
 	(y).real  = ( double )( ( double ) (a).real * ( double ) (x).real - ( double ) (a).imag * ( double ) (x).imag ); \
 	(y).imag  = ( double )( ( double ) (a).imag * ( double ) (x).real + ( double ) (a).real * ( double ) (x).imag ); \
@@ -375,21 +375,21 @@
 
 
 
-#define bl2_sscal2s( a, x, y ) \
+#define bli_sscal2s( a, x, y ) \
 { \
-	bl2_sssscal2s( a, x, y ); \
+	bli_sssscal2s( a, x, y ); \
 }
-#define bl2_dscal2s( a, x, y ) \
+#define bli_dscal2s( a, x, y ) \
 { \
-	bl2_dddscal2s( a, x, y ); \
+	bli_dddscal2s( a, x, y ); \
 }
-#define bl2_cscal2s( a, x, y ) \
+#define bli_cscal2s( a, x, y ) \
 { \
-	bl2_cccscal2s( a, x, y ); \
+	bli_cccscal2s( a, x, y ); \
 }
-#define bl2_zscal2s( a, x, y ) \
+#define bli_zscal2s( a, x, y ) \
 { \
-	bl2_zzzscal2s( a, x, y ); \
+	bli_zzzscal2s( a, x, y ); \
 }
 
 

frame/include/level0/bli_scalcjs.h

@@ -42,62 +42,62 @@
 // - The second char encodes the type of x.
 // - a is (conditionally) used in conjugated form.
 
-#define bl2_ssscalcjs( conj, a, x ) \
+#define bli_ssscalcjs( conj, a, x ) \
 { \
 	(x) *= ( float  ) (a); \
 }
-#define bl2_dsscalcjs( conj, a, x ) \
+#define bli_dsscalcjs( conj, a, x ) \
 { \
 	(x) *= ( float  ) (a); \
 }
-#define bl2_csscalcjs( conj, a, x ) \
+#define bli_csscalcjs( conj, a, x ) \
 { \
 	(x) *= ( float  ) (a).real; \
 }
-#define bl2_zsscalcjs( conj, a, x ) \
+#define bli_zsscalcjs( conj, a, x ) \
 { \
 	(x) *= ( float  ) (a).real; \
 }
 
-#define bl2_sdscalcjs( conj, a, x ) \
+#define bli_sdscalcjs( conj, a, x ) \
 { \
 	(x) *= ( double ) (a); \
 }
-#define bl2_ddscalcjs( conj, a, x ) \
+#define bli_ddscalcjs( conj, a, x ) \
 { \
 	(x) *= ( double ) (a); \
 }
-#define bl2_cdscalcjs( conj, a, x ) \
+#define bli_cdscalcjs( conj, a, x ) \
 { \
 	(x) *= ( double ) (a).real; \
 }
-#define bl2_zdscalcjs( conj, a, x ) \
+#define bli_zdscalcjs( conj, a, x ) \
 { \
 	(x) *= ( double ) (a).real; \
 }
 
-#define bl2_scscalcjs( conj, a, x ) \
+#define bli_scscalcjs( conj, a, x ) \
 { \
 	(x).real *= ( float  ) (a); \
 	(x).imag *= ( float  ) (a); \
 }
-#define bl2_dcscalcjs( conj, a, x ) \
+#define bli_dcscalcjs( conj, a, x ) \
 { \
 	(x).real *= ( float  ) (a); \
 	(x).imag *= ( float  ) (a); \
 }
-#define bl2_ccscalcjs( conj, a, x ) \
+#define bli_ccscalcjs( conj, a, x ) \
 { \
-	float  aimag = ( bl2_is_conj( conj ) ? ( float  ) -(a).imag : \
+	float  aimag = ( bli_is_conj( conj ) ? ( float  ) -(a).imag : \
 	                                       ( float  )  (a).imag ); \
 	float  tempr = ( float  ) (a).real * (x).real - ( float  ) aimag * (x).imag; \
 	float  tempi = ( float  ) (a).real * (x).imag + ( float  ) aimag * (x).real; \
 	(x).real = tempr; \
 	(x).imag = tempi; \
 }
-#define bl2_zcscalcjs( conj, a, x ) \
+#define bli_zcscalcjs( conj, a, x ) \
 { \
-	float  aimag = ( bl2_is_conj( conj ) ? ( float  ) -(a).imag : \
+	float  aimag = ( bli_is_conj( conj ) ? ( float  ) -(a).imag : \
 	                                       ( float  )  (a).imag ); \
 	float  tempr = ( float  ) (a).real * (x).real - ( float  ) aimag * (x).imag; \
 	float  tempi = ( float  ) (a).real * (x).imag + ( float  ) aimag * (x).real; \
@@ -105,28 +105,28 @@
 	(x).imag = tempi; \
 }
 
-#define bl2_szscalcjs( conj, a, x ) \
+#define bli_szscalcjs( conj, a, x ) \
 { \
 	(x).real *= ( double ) (a); \
 	(x).imag *= ( double ) (a); \
 }
-#define bl2_dzscalcjs( conj, a, x ) \
+#define bli_dzscalcjs( conj, a, x ) \
 { \
 	(x).real *= ( double ) (a); \
 	(x).imag *= ( double ) (a); \
 }
-#define bl2_czscalcjs( conj, a, x ) \
+#define bli_czscalcjs( conj, a, x ) \
 { \
-	double aimag = ( bl2_is_conj( conj ) ? ( double ) -(a).imag : \
+	double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \
 	                                       ( double )  (a).imag ); \
 	double tempr = ( double ) (a).real * (x).real - ( double ) aimag * (x).imag; \
 	double tempi = ( double ) (a).real * (x).imag + ( double ) aimag * (x).real; \
 	(x).real = tempr; \
 	(x).imag = tempi; \
 }
-#define bl2_zzscalcjs( conj, a, x ) \
+#define bli_zzscalcjs( conj, a, x ) \
 { \
-	double aimag = ( bl2_is_conj( conj ) ? ( double ) -(a).imag : \
+	double aimag = ( bli_is_conj( conj ) ? ( double ) -(a).imag : \
 	                                       ( double )  (a).imag ); \
 	double tempr = ( double ) (a).real * (x).real - ( double ) aimag * (x).imag; \
 	double tempi = ( double ) (a).real * (x).imag + ( double ) aimag * (x).real; \
@@ -135,21 +135,21 @@
 }
 
 
-#define bl2_sscalcjs( conj, a, x ) \
+#define bli_sscalcjs( conj, a, x ) \
 { \
-	bl2_ssscalcjs( conj, a, x ); \
+	bli_ssscalcjs( conj, a, x ); \
 }
-#define bl2_dscalcjs( conj, a, x ) \
+#define bli_dscalcjs( conj, a, x ) \
 { \
-	bl2_ddscalcjs( conj, a, x ); \
+	bli_ddscalcjs( conj, a, x ); \
 }
-#define bl2_cscalcjs( conj, a, x ) \
+#define bli_cscalcjs( conj, a, x ) \
 { \
-	bl2_ccscalcjs( conj, a, x ); \
+	bli_ccscalcjs( conj, a, x ); \
 }
-#define bl2_zscalcjs( conj, a, x ) \
+#define bli_zscalcjs( conj, a, x ) \
 { \
-	bl2_zzscalcjs( conj, a, x ); \
+	bli_zzscalcjs( conj, a, x ); \
 }
 
 

frame/include/level0/bli_scaljs.h

@@ -42,58 +42,58 @@
 // - The second char encodes the type of x.
 // - a is used in conjugated form.
 
-#define bl2_ssscaljs( a, x ) \
+#define bli_ssscaljs( a, x ) \
 { \
 	(x) *= ( float  ) (a); \
 }
-#define bl2_dsscaljs( a, x ) \
+#define bli_dsscaljs( a, x ) \
 { \
 	(x) *= ( float  ) (a); \
 }
-#define bl2_csscaljs( a, x ) \
+#define bli_csscaljs( a, x ) \
 { \
 	(x) *= ( float  ) (a).real; \
 }
-#define bl2_zsscaljs( a, x ) \
+#define bli_zsscaljs( a, x ) \
 { \
 	(x) *= ( float  ) (a).real; \
 }
 
-#define bl2_sdscaljs( a, x ) \
+#define bli_sdscaljs( a, x ) \
 { \
 	(x) *= ( double ) (a); \
 }
-#define bl2_ddscaljs( a, x ) \
+#define bli_ddscaljs( a, x ) \
 { \
 	(x) *= ( double ) (a); \
 }
-#define bl2_cdscaljs( a, x ) \
+#define bli_cdscaljs( a, x ) \
 { \
 	(x) *= ( double ) (a).real; \
 }
-#define bl2_zdscaljs( a, x ) \
+#define bli_zdscaljs( a, x ) \
 { \
 	(x) *= ( double ) (a).real; \
 }
 
-#define bl2_scscaljs( a, x ) \
+#define bli_scscaljs( a, x ) \
 { \
 	(x).real *= ( float  ) (a); \
 	(x).imag *= ( float  ) (a); \
 }
-#define bl2_dcscaljs( a, x ) \
+#define bli_dcscaljs( a, x ) \
 { \
 	(x).real *= ( float  ) (a); \
 	(x).imag *= ( float  ) (a); \
 }
-#define bl2_ccscaljs( a, x ) \
+#define bli_ccscaljs( a, x ) \
 { \
 	float tempr = ( float  ) (a).real * (x).real + ( float  ) (a).imag * (x).imag; \
 	float tempi = ( float  ) (a).real * (x).imag - ( float  ) (a).imag * (x).real; \
 	(x).real = tempr; \
 	(x).imag = tempi; \
 }
-#define bl2_zcscaljs( a, x ) \
+#define bli_zcscaljs( a, x ) \
 { \
 	float tempr = ( float  ) (a).real * (x).real + ( float  ) (a).imag * (x).imag; \
 	float tempi = ( float  ) (a).real * (x).imag - ( float  ) (a).imag * (x).real; \
@@ -101,24 +101,24 @@
 	(x).imag = tempi; \
 }
 
-#define bl2_szscaljs( a, x ) \
+#define bli_szscaljs( a, x ) \
 { \
 	(x).real *= ( double ) (a); \
 	(x).imag *= ( double ) (a); \
 }
-#define bl2_dzscaljs( a, x ) \
+#define bli_dzscaljs( a, x ) \
 { \
 	(x).real *= ( double ) (a); \
 	(x).imag *= ( double ) (a); \
 }
-#define bl2_czscaljs( a, x ) \
+#define bli_czscaljs( a, x ) \
 { \
 	double tempr = ( double ) (a).real * (x).real + ( double ) (a).imag * (x).imag; \
 	double tempi = ( double ) (a).real * (x).imag - ( double ) (a).imag * (x).real; \
 	(x).real = tempr; \
 	(x).imag = tempi; \
 }
-#define bl2_zzscaljs( a, x ) \
+#define bli_zzscaljs( a, x ) \
 { \
 	double tempr = ( double ) (a).real * (x).real + ( double ) (a).imag * (x).imag; \
 	double tempi = ( double ) (a).real * (x).imag - ( double ) (a).imag * (x).real; \
@@ -127,21 +127,21 @@
 }
 
 
-#define bl2_sscaljs( a, x ) \
+#define bli_sscaljs( a, x ) \
 { \
-	bl2_ssscaljs( a, x ); \
+	bli_ssscaljs( a, x ); \
 }
-#define bl2_dscaljs( a, x ) \
+#define bli_dscaljs( a, x ) \
 { \
-	bl2_ddscaljs( a, x ); \
+	bli_ddscaljs( a, x ); \
 }
-#define bl2_cscaljs( a, x ) \
+#define bli_cscaljs( a, x ) \
 { \
-	bl2_ccscaljs( a, x ); \
+	bli_ccscaljs( a, x ); \
 }
-#define bl2_zscaljs( a, x ) \
+#define bli_zscaljs( a, x ) \
 { \
-	bl2_zzscaljs( a, x ); \
+	bli_zzscaljs( a, x ); \
 }
 
 

frame/include/level0/bli_scals.h

@@ -41,58 +41,58 @@
 // - The first char encodes the type of a.
 // - The second char encodes the type of x.
 
-#define bl2_ssscals( a, x ) \
+#define bli_ssscals( a, x ) \
 { \
 	(x) *= ( float  ) (a); \
 }
-#define bl2_dsscals( a, x ) \
+#define bli_dsscals( a, x ) \
 { \
 	(x) *= ( float  ) (a); \
 }
-#define bl2_csscals( a, x ) \
+#define bli_csscals( a, x ) \
 { \
 	(x) *= ( float  ) (a).real; \
 }
-#define bl2_zsscals( a, x ) \
+#define bli_zsscals( a, x ) \
 { \
 	(x) *= ( float  ) (a).real; \
 }
 
-#define bl2_sdscals( a, x ) \
+#define bli_sdscals( a, x ) \
 { \
 	(x) *= ( double ) (a); \
 }
-#define bl2_ddscals( a, x ) \
+#define bli_ddscals( a, x ) \
 { \
 	(x) *= ( double ) (a); \
 }
-#define bl2_cdscals( a, x ) \
+#define bli_cdscals( a, x ) \
 { \
 	(x) *= ( double ) (a).real; \
 }
-#define bl2_zdscals( a, x ) \
+#define bli_zdscals( a, x ) \
 { \
 	(x) *= ( double ) (a).real; \
 }
 
-#define bl2_scscals( a, x ) \
+#define bli_scscals( a, x ) \
 { \
 	(x).real *= ( float  ) (a); \
 	(x).imag *= ( float  ) (a); \
 }
-#define bl2_dcscals( a, x ) \
+#define bli_dcscals( a, x ) \
 { \
 	(x).real *= ( float  ) (a); \
 	(x).imag *= ( float  ) (a); \
 }
-#define bl2_ccscals( a, x ) \
+#define bli_ccscals( a, x ) \
 { \
 	float tempr = ( float  ) (a).real * (x).real - ( float  ) (a).imag * (x).imag; \
 	float tempi = ( float  ) (a).real * (x).imag + ( float  ) (a).imag * (x).real; \
 	(x).real = tempr; \
 	(x).imag = tempi; \
 }
-#define bl2_zcscals( a, x ) \
+#define bli_zcscals( a, x ) \
 { \
 	float tempr = ( float  ) (a).real * (x).real - ( float  ) (a).imag * (x).imag; \
 	float tempi = ( float  ) (a).real * (x).imag + ( float  ) (a).imag * (x).real; \
@@ -100,24 +100,24 @@
 	(x).imag = tempi; \
 }
 
-#define bl2_szscals( a, x ) \
+#define bli_szscals( a, x ) \
 { \
 	(x).real *= ( double ) (a); \
 	(x).imag *= ( double ) (a); \
 }
-#define bl2_dzscals( a, x ) \
+#define bli_dzscals( a, x ) \
 { \
 	(x).real *= ( double ) (a); \
 	(x).imag *= ( double ) (a); \
 }
-#define bl2_czscals( a, x ) \
+#define bli_czscals( a, x ) \
 { \
 	double tempr = ( double ) (a).real * (x).real - ( double ) (a).imag * (x).imag; \
 	double tempi = ( double ) (a).real * (x).imag + ( double ) (a).imag * (x).real; \
 	(x).real = tempr; \
 	(x).imag = tempi; \
 }
-#define bl2_zzscals( a, x ) \
+#define bli_zzscals( a, x ) \
 { \
 	double tempr = ( double ) (a).real * (x).real - ( double ) (a).imag * (x).imag; \
 	double tempi = ( double ) (a).real * (x).imag + ( double ) (a).imag * (x).real; \
@@ -126,21 +126,21 @@
 }
 
 
-#define bl2_sscals( a, x ) \
+#define bli_sscals( a, x ) \
 { \
-	bl2_ssscals( a, x ); \
+	bli_ssscals( a, x ); \
 }
-#define bl2_dscals( a, x ) \
+#define bli_dscals( a, x ) \
 { \
-	bl2_ddscals( a, x ); \
+	bli_ddscals( a, x ); \
 }
-#define bl2_cscals( a, x ) \
+#define bli_cscals( a, x ) \
 { \
-	bl2_ccscals( a, x ); \
+	bli_ccscals( a, x ); \
 }
-#define bl2_zscals( a, x ) \
+#define bli_zscals( a, x ) \
 { \
-	bl2_zzscals( a, x ); \
+	bli_zzscals( a, x ); \
 }
 
 

frame/include/level0/bli_set0s_mxn.h

@@ -41,40 +41,40 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_sset0s_mxn( m, n, y, rs_y, cs_y ) \
+#define bli_sset0s_mxn( m, n, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_sset0s( *(y + i*rs_y + j*cs_y) ); \
+	bli_sset0s( *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_dset0s_mxn( m, n, y, rs_y, cs_y ) \
+#define bli_dset0s_mxn( m, n, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_dset0s( *(y + i*rs_y + j*cs_y) ); \
+	bli_dset0s( *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_cset0s_mxn( m, n, y, rs_y, cs_y ) \
+#define bli_cset0s_mxn( m, n, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_cset0s( *(y + i*rs_y + j*cs_y) ); \
+	bli_cset0s( *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_zset0s_mxn( m, n, y, rs_y, cs_y ) \
+#define bli_zset0s_mxn( m, n, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_zset0s( *(y + i*rs_y + j*cs_y) ); \
+	bli_zset0s( *(y + i*rs_y + j*cs_y) ); \
 }
 
 

frame/include/level0/bli_setris.h

@@ -41,65 +41,65 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_sssetris( xr, xi, y ) \
+#define bli_sssetris( xr, xi, y ) \
 { \
 	(y)      = ( float  ) (xr); \
 }
-#define bl2_dssetris( xr, xi, y ) \
+#define bli_dssetris( xr, xi, y ) \
 { \
 	(y)      = ( float  ) (xr); \
 }
 
 
-#define bl2_sdsetris( xr, xi, y ) \
+#define bli_sdsetris( xr, xi, y ) \
 { \
 	(y)      = ( double ) (xr); \
 }
-#define bl2_ddsetris( xr, xi, y ) \
+#define bli_ddsetris( xr, xi, y ) \
 { \
 	(y)      = ( double ) (xr); \
 }
 
 
-#define bl2_scsetris( xr, xi, y ) \
+#define bli_scsetris( xr, xi, y ) \
 { \
 	(y).real = ( float  ) (xr); \
 	(y).imag = ( float  ) (xi); \
 }
-#define bl2_dcsetris( xr, xi, y ) \
+#define bli_dcsetris( xr, xi, y ) \
 { \
 	(y).real = ( float  ) (xr); \
 	(y).imag = ( float  ) (xi); \
 }
 
 
-#define bl2_szsetris( xr, xi, y ) \
+#define bli_szsetris( xr, xi, y ) \
 { \
 	(y).real = ( double ) (xr); \
 	(y).imag = ( double ) (xi); \
 }
-#define bl2_dzsetris( xr, xi, y ) \
+#define bli_dzsetris( xr, xi, y ) \
 { \
 	(y).real = ( double ) (xr); \
 	(y).imag = ( double ) (xi); \
 }
 
 
-#define bl2_ssetris( xr, xi, y ) \
+#define bli_ssetris( xr, xi, y ) \
 { \
-	bl2_sssetris( xr, xi, y ); \
+	bli_sssetris( xr, xi, y ); \
 }
-#define bl2_dsetris( xr, xi, y ) \
+#define bli_dsetris( xr, xi, y ) \
 { \
-	bl2_ddsetris( xr, xi, y ); \
+	bli_ddsetris( xr, xi, y ); \
 }
-#define bl2_csetris( xr, xi, y ) \
+#define bli_csetris( xr, xi, y ) \
 { \
-	bl2_scsetris( xr, xi, y ); \
+	bli_scsetris( xr, xi, y ); \
 }
-#define bl2_zsetris( xr, xi, y ) \
+#define bli_zsetris( xr, xi, y ) \
 { \
-	bl2_dzsetris( xr, xi, y ); \
+	bli_dzsetris( xr, xi, y ); \
 }
 
 

frame/include/level0/bli_sqrt2s.h

@@ -42,22 +42,22 @@
 // - The second char encodes the type of a.
 
 
-#define bl2_sssqrt2s( x, a ) \
+#define bli_sssqrt2s( x, a ) \
 { \
 	(a) = ( float  )sqrtf( (x) ); \
 }
-#define bl2_dssqrt2s( x, a ) \
+#define bli_dssqrt2s( x, a ) \
 { \
 	(a) = ( float  )sqrt( (x) ); \
 }
-#define bl2_cssqrt2s( x, a ) \
+#define bli_cssqrt2s( x, a ) \
 { \
 	float  mag = sqrtf( (x).real * (x).real + \
 	                    (x).imag * (x).imag ); \
 \
 	(a)      = ( float  )sqrt( ( mag + (x).real ) / 2.0F ); \
 }
-#define bl2_zssqrt2s( x, a ) \
+#define bli_zssqrt2s( x, a ) \
 { \
 	double mag = sqrt( (x).real * (x).real + \
 	                   (x).imag * (x).imag ); \
@@ -66,22 +66,22 @@
 }
 
 
-#define bl2_sdsqrt2s( x, a ) \
+#define bli_sdsqrt2s( x, a ) \
 { \
 	(a) = ( double )sqrtf( (x) ); \
 }
-#define bl2_ddsqrt2s( x, a ) \
+#define bli_ddsqrt2s( x, a ) \
 { \
 	(a) = ( double )sqrt( (x) ); \
 }
-#define bl2_cdsqrt2s( x, a ) \
+#define bli_cdsqrt2s( x, a ) \
 { \
 	float  mag = sqrtf( (x).real * (x).real + \
 	                    (x).imag * (x).imag ); \
 \
 	(a)      = ( double )sqrt( ( mag + (x).real ) / 2.0F ); \
 }
-#define bl2_zdsqrt2s( x, a ) \
+#define bli_zdsqrt2s( x, a ) \
 { \
 	double mag = sqrt( (x).real * (x).real + \
 	                   (x).imag * (x).imag ); \
@@ -90,17 +90,17 @@
 }
 
 
-#define bl2_scsqrt2s( x, a ) \
+#define bli_scsqrt2s( x, a ) \
 { \
 	(a).real = ( float  )sqrtf( (x) ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_dcsqrt2s( x, a ) \
+#define bli_dcsqrt2s( x, a ) \
 { \
 	(a).real = ( float  )sqrt( (x) ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_ccsqrt2s( x, a ) \
+#define bli_ccsqrt2s( x, a ) \
 { \
 	float  mag = sqrtf( (x).real * (x).real + \
 	                    (x).imag * (x).imag ); \
@@ -108,7 +108,7 @@
 	(a).real = ( float  )sqrtf( ( mag + (x).real ) / 2.0F ); \
 	(a).imag = ( float  )sqrtf( ( mag - (x).imag ) / 2.0F ); \
 }
-#define bl2_zcsqrt2s( x, a ) \
+#define bli_zcsqrt2s( x, a ) \
 { \
 	double mag = sqrt( (x).real * (x).real + \
 	                   (x).imag * (x).imag ); \
@@ -118,17 +118,17 @@
 }
 
 
-#define bl2_szsqrt2s( x, a ) \
+#define bli_szsqrt2s( x, a ) \
 { \
 	(a).real = ( double )sqrtf( (x) ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_dzsqrt2s( x, a ) \
+#define bli_dzsqrt2s( x, a ) \
 { \
 	(a).real = ( double )sqrt( (x) ); \
 	(a).imag = 0.0F; \
 }
-#define bl2_czsqrt2s( x, a ) \
+#define bli_czsqrt2s( x, a ) \
 { \
 	float  mag = sqrtf( (x).real * (x).real + \
 	                    (x).imag * (x).imag ); \
@@ -136,7 +136,7 @@
 	(a).real = ( double )sqrtf( ( mag + (x).real ) / 2.0F ); \
 	(a).imag = ( double )sqrtf( ( mag - (x).imag ) / 2.0F ); \
 }
-#define bl2_zzsqrt2s( x, a ) \
+#define bli_zzsqrt2s( x, a ) \
 { \
 	double mag = sqrt( (x).real * (x).real + \
 	                   (x).imag * (x).imag ); \
@@ -146,21 +146,21 @@
 }
 
 
-#define bl2_ssqrt2s( x, a ) \
+#define bli_ssqrt2s( x, a ) \
 { \
-	bl2_sssqrt2s( x, a ); \
+	bli_sssqrt2s( x, a ); \
 }
-#define bl2_dsqrt2s( x, a ) \
+#define bli_dsqrt2s( x, a ) \
 { \
-	bl2_ddsqrt2s( x, a ); \
+	bli_ddsqrt2s( x, a ); \
 }
-#define bl2_csqrt2s( x, a ) \
+#define bli_csqrt2s( x, a ) \
 { \
-	bl2_ccsqrt2s( x, a ); \
+	bli_ccsqrt2s( x, a ); \
 }
-#define bl2_zsqrt2s( x, a ) \
+#define bli_zsqrt2s( x, a ) \
 { \
-	bl2_zzsqrt2s( x, a ); \
+	bli_zzsqrt2s( x, a ); \
 }
 
 

frame/include/level0/bli_subjs.h

@@ -41,98 +41,98 @@
 // - The first char encodes the type of a.
 // - The second char encodes the type of x.
 
-#define bl2_sssubjs( a, y ) \
+#define bli_sssubjs( a, y ) \
 { \
 	(y)      -= ( float  )(a); \
 }
-#define bl2_sdsubjs( a, y ) \
+#define bli_sdsubjs( a, y ) \
 { \
 	(y)      -= ( double )(a); \
 }
-#define bl2_scsubjs( a, y ) \
+#define bli_scsubjs( a, y ) \
 { \
 	(y).real -= ( float  )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
-#define bl2_szsubjs( a, y ) \
+#define bli_szsubjs( a, y ) \
 { \
 	(y).real -= ( double )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
 
-#define bl2_dssubjs( a, y ) \
+#define bli_dssubjs( a, y ) \
 { \
 	(y)      -= ( float  )(a); \
 }
-#define bl2_ddsubjs( a, y ) \
+#define bli_ddsubjs( a, y ) \
 { \
 	(y)      -= ( double )(a); \
 }
-#define bl2_dcsubjs( a, y ) \
+#define bli_dcsubjs( a, y ) \
 { \
 	(y).real -= ( float  )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
-#define bl2_dzsubjs( a, y ) \
+#define bli_dzsubjs( a, y ) \
 { \
 	(y).real -= ( double )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
 
-#define bl2_cssubjs( a, y ) \
+#define bli_cssubjs( a, y ) \
 { \
 	(y)      -= ( float  )(a).real; \
 }
-#define bl2_cdsubjs( a, y ) \
+#define bli_cdsubjs( a, y ) \
 { \
 	(y)      -= ( double )(a).real; \
 }
-#define bl2_ccsubjs( a, y ) \
+#define bli_ccsubjs( a, y ) \
 { \
 	(y).real -= ( float  )(a).real; \
 	(y).imag += ( float  )(a).imag; \
 }
-#define bl2_czsubjs( a, y ) \
+#define bli_czsubjs( a, y ) \
 { \
 	(y).real -= ( double )(a).real; \
 	(y).imag += ( double )(a).imag; \
 }
 
-#define bl2_zssubjs( a, y ) \
+#define bli_zssubjs( a, y ) \
 { \
 	(y)      -= ( float  )(a).real; \
 }
-#define bl2_zdsubjs( a, y ) \
+#define bli_zdsubjs( a, y ) \
 { \
 	(y)      -= ( double )(a).real; \
 }
-#define bl2_zcsubjs( a, y ) \
+#define bli_zcsubjs( a, y ) \
 { \
 	(y).real -= ( float  )(a).real; \
 	(y).imag += ( float  )(a).imag; \
 }
-#define bl2_zzsubjs( a, y ) \
+#define bli_zzsubjs( a, y ) \
 { \
 	(y).real -= ( double )(a).real; \
 	(y).imag += ( double )(a).imag; \
 }
 
 
-#define bl2_ssubjs( a, y ) \
+#define bli_ssubjs( a, y ) \
 { \
-	bl2_sssubjs( a, y ); \
+	bli_sssubjs( a, y ); \
 }
-#define bl2_dsubjs( a, y ) \
+#define bli_dsubjs( a, y ) \
 { \
-	bl2_ddsubjs( a, y ); \
+	bli_ddsubjs( a, y ); \
 }
-#define bl2_csubjs( a, y ) \
+#define bli_csubjs( a, y ) \
 { \
-	bl2_ccsubjs( a, y ); \
+	bli_ccsubjs( a, y ); \
 }
-#define bl2_zsubjs( a, y ) \
+#define bli_zsubjs( a, y ) \
 { \
-	bl2_zzsubjs( a, y ); \
+	bli_zzsubjs( a, y ); \
 }
 
 

frame/include/level0/bli_subs.h

@@ -41,98 +41,98 @@
 // - The first char encodes the type of a.
 // - The second char encodes the type of x.
 
-#define bl2_sssubs( a, y ) \
+#define bli_sssubs( a, y ) \
 { \
 	(y)      -= ( float  )(a); \
 }
-#define bl2_sdsubs( a, y ) \
+#define bli_sdsubs( a, y ) \
 { \
 	(y)      -= ( double )(a); \
 }
-#define bl2_scsubs( a, y ) \
+#define bli_scsubs( a, y ) \
 { \
 	(y).real -= ( float  )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
-#define bl2_szsubs( a, y ) \
+#define bli_szsubs( a, y ) \
 { \
 	(y).real -= ( double )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
 
-#define bl2_dssubs( a, y ) \
+#define bli_dssubs( a, y ) \
 { \
 	(y)      -= ( float  )(a); \
 }
-#define bl2_ddsubs( a, y ) \
+#define bli_ddsubs( a, y ) \
 { \
 	(y)      -= ( double )(a); \
 }
-#define bl2_dcsubs( a, y ) \
+#define bli_dcsubs( a, y ) \
 { \
 	(y).real -= ( float  )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
-#define bl2_dzsubs( a, y ) \
+#define bli_dzsubs( a, y ) \
 { \
 	(y).real -= ( double )(a); \
 	/*(y).imag -= 0.0F;*/ \
 }
 
-#define bl2_cssubs( a, y ) \
+#define bli_cssubs( a, y ) \
 { \
 	(y)      -= ( float  )(a).real; \
 }
-#define bl2_cdsubs( a, y ) \
+#define bli_cdsubs( a, y ) \
 { \
 	(y)      -= ( double )(a).real; \
 }
-#define bl2_ccsubs( a, y ) \
+#define bli_ccsubs( a, y ) \
 { \
 	(y).real -= ( float  )(a).real; \
 	(y).imag -= ( float  )(a).imag; \
 }
-#define bl2_czsubs( a, y ) \
+#define bli_czsubs( a, y ) \
 { \
 	(y).real -= ( double )(a).real; \
 	(y).imag -= ( double )(a).imag; \
 }
 
-#define bl2_zssubs( a, y ) \
+#define bli_zssubs( a, y ) \
 { \
 	(y)      -= ( float  )(a).real; \
 }
-#define bl2_zdsubs( a, y ) \
+#define bli_zdsubs( a, y ) \
 { \
 	(y)      -= ( double )(a).real; \
 }
-#define bl2_zcsubs( a, y ) \
+#define bli_zcsubs( a, y ) \
 { \
 	(y).real -= ( float  )(a).real; \
 	(y).imag -= ( float  )(a).imag; \
 }
-#define bl2_zzsubs( a, y ) \
+#define bli_zzsubs( a, y ) \
 { \
 	(y).real -= ( double )(a).real; \
 	(y).imag -= ( double )(a).imag; \
 }
 
 
-#define bl2_ssubs( a, y ) \
+#define bli_ssubs( a, y ) \
 { \
-	bl2_sssubs( a, y ); \
+	bli_sssubs( a, y ); \
 }
-#define bl2_dsubs( a, y ) \
+#define bli_dsubs( a, y ) \
 { \
-	bl2_ddsubs( a, y ); \
+	bli_ddsubs( a, y ); \
 }
-#define bl2_csubs( a, y ) \
+#define bli_csubs( a, y ) \
 { \
-	bl2_ccsubs( a, y ); \
+	bli_ccsubs( a, y ); \
 }
-#define bl2_zsubs( a, y ) \
+#define bli_zsubs( a, y ) \
 { \
-	bl2_zzsubs( a, y ); \
+	bli_zzsubs( a, y ); \
 }
 
 

frame/include/level0/bli_swaps.h

@@ -41,21 +41,21 @@
 // - The first char encodes the type of x.
 // - The second char encodes the type of y.
 
-#define bl2_ssswaps( x, y ) \
+#define bli_ssswaps( x, y ) \
 { \
 	float    xnew; \
 	xnew      = ( float  ) (y); \
 	(y)       = ( float  ) (x); \
 	(x)       =            xnew; \
 }
-#define bl2_dsswaps( x, y ) \
+#define bli_dsswaps( x, y ) \
 { \
 	double   xnew; \
 	xnew      = ( double ) (y); \
 	(y)       = ( float  ) (x); \
 	(x)       =            xnew; \
 }
-#define bl2_csswaps( x, y ) \
+#define bli_csswaps( x, y ) \
 { \
 	float    xnew; \
 	xnew      = ( float  ) (y); \
@@ -63,7 +63,7 @@
 	(x).real  =            xnew; \
 	(x).imag  = 0.0F; \
 }
-#define bl2_zsswaps( x, y ) \
+#define bli_zsswaps( x, y ) \
 { \
 	double   xnew; \
 	xnew      = ( double ) (y); \
@@ -72,21 +72,21 @@
 	(x).imag  = 0.0; \
 }
 
-#define bl2_sdswaps( x, y ) \
+#define bli_sdswaps( x, y ) \
 { \
 	float    xnew; \
 	xnew      = ( float  ) (y); \
 	(y)       = ( double ) (x); \
 	(x)       =            xnew; \
 }
-#define bl2_ddswaps( x, y ) \
+#define bli_ddswaps( x, y ) \
 { \
 	double   xnew; \
 	xnew      = ( double ) (y); \
 	(y)       = ( double ) (x); \
 	(x)       =            xnew; \
 }
-#define bl2_cdswaps( x, y ) \
+#define bli_cdswaps( x, y ) \
 { \
 	float    xnew; \
 	xnew      = ( float  ) (y); \
@@ -94,7 +94,7 @@
 	(x).real  =            xnew; \
 	(x).imag  = 0.0F; \
 }
-#define bl2_zdswaps( x, y ) \
+#define bli_zdswaps( x, y ) \
 { \
 	double   xnew; \
 	xnew      = ( double ) (y); \
@@ -103,7 +103,7 @@
 	(x).imag  = 0.0; \
 }
 
-#define bl2_scswaps( x, y ) \
+#define bli_scswaps( x, y ) \
 { \
 	float    xnew; \
 	xnew      = ( float  ) (y).real; \
@@ -111,7 +111,7 @@
 	(y).imag  = 0.0F; \
 	(x)       =            xnew; \
 }
-#define bl2_dcswaps( x, y ) \
+#define bli_dcswaps( x, y ) \
 { \
 	double   xnew; \
 	xnew      = ( double ) (y).real; \
@@ -119,14 +119,14 @@
 	(y).imag  = 0.0F; \
 	(x)       =            xnew; \
 }
-#define bl2_ccswaps( x, y ) \
+#define bli_ccswaps( x, y ) \
 { \
 	scomplex xnew; \
 	xnew      =            (y); \
 	(y)       =            (x); \
 	(x)       =            xnew; \
 }
-#define bl2_zcswaps( x, y ) \
+#define bli_zcswaps( x, y ) \
 { \
 	dcomplex xnew; \
 	xnew.real = ( double ) (y).real; \
@@ -136,7 +136,7 @@
 	(x)       =            xnew; \
 }
 
-#define bl2_szswaps( x, y ) \
+#define bli_szswaps( x, y ) \
 { \
 	float    xnew; \
 	xnew      = ( float  ) (y).real; \
@@ -144,7 +144,7 @@
 	(y).imag  = 0.0; \
 	(x)       =            xnew; \
 }
-#define bl2_dzswaps( x, y ) \
+#define bli_dzswaps( x, y ) \
 { \
 	double   xnew; \
 	xnew      = ( double ) (y).real; \
@@ -152,7 +152,7 @@
 	(y).imag  = 0.0; \
 	(x)       =            xnew; \
 }
-#define bl2_czswaps( x, y ) \
+#define bli_czswaps( x, y ) \
 { \
 	scomplex xnew; \
 	xnew.real = ( float  ) (y).real; \
@@ -161,7 +161,7 @@
 	(y).imag  = ( double ) (x).imag; \
 	(x)       =            xnew; \
 }
-#define bl2_zzswaps( x, y ) \
+#define bli_zzswaps( x, y ) \
 { \
 	dcomplex xnew; \
 	xnew      =            (y); \
@@ -170,21 +170,21 @@
 }
 
 
-#define bl2_sswaps( x, y ) \
+#define bli_sswaps( x, y ) \
 { \
-	bl2_ssswaps( x, y ); \
+	bli_ssswaps( x, y ); \
 }
-#define bl2_dswaps( x, y ) \
+#define bli_dswaps( x, y ) \
 { \
-	bl2_ddswaps( x, y ); \
+	bli_ddswaps( x, y ); \
 }
-#define bl2_cswaps( x, y ) \
+#define bli_cswaps( x, y ) \
 { \
-	bl2_ccswaps( x, y ); \
+	bli_ccswaps( x, y ); \
 }
-#define bl2_zswaps( x, y ) \
+#define bli_zswaps( x, y ) \
 { \
-	bl2_zzswaps( x, y ); \
+	bli_zzswaps( x, y ); \
 }
 
 

frame/include/level0/bli_xpbys.h

@@ -44,53 +44,53 @@
 
 // -- (xby) = (ss?) ------------------------------------------------------------
 
-#define bl2_sssxpbys( x, b, y ) \
+#define bli_sssxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( float  ) (x)      + ( float  ) (b)      * ( float  ) (y)      ); \
 }
-#define bl2_ssdxpbys( x, b, y ) \
+#define bli_ssdxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x)      + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_sscxpbys( x, b, y ) \
+#define bli_sscxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( float  ) (x)      + ( float  ) (b)      * ( float  ) (y).real ); \
 }
-#define bl2_sszxpbys( x, b, y ) \
+#define bli_sszxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( double ) (x)      + ( double ) (b)      * ( double ) (y).real ); \
 }
 
 // -- (xby) = (sd?) ------------------------------------------------------------
 
-#define bl2_sdsxpbys( x, b, y ) \
+#define bli_sdsxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x)      + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_sddxpbys( x, b, y ) \
+#define bli_sddxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x)      + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_sdcxpbys( x, b, y ) \
+#define bli_sdcxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( double ) (x)      + ( double ) (b)      * ( double ) (y).real ); \
 }
-#define bl2_sdzxpbys( x, b, y ) \
+#define bli_sdzxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( double ) (x)      + ( double ) (b)      * ( double ) (y).real ); \
 }
 
 // -- (xby) = (sc?) ------------------------------------------------------------
 
-#define bl2_scsxpbys( x, b, y ) \
+#define bli_scsxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( float  ) (x)      + ( float  ) (b).real * ( float  ) (y)      ); \
 }
-#define bl2_scdxpbys( x, b, y ) \
+#define bli_scdxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x)      + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_sccxpbys( x, b, y ) \
+#define bli_sccxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( float  ) (x)      + ( float  ) (b).real * ( float  ) (y).real - \
 	                                                 ( float  ) (b).imag * ( float  ) (y).imag ); \
@@ -99,7 +99,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_sczxpbys( x, b, y ) \
+#define bli_sczxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( double ) (x)      + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -111,15 +111,15 @@
 
 // -- (xby) = (sz?) ------------------------------------------------------------
 
-#define bl2_szsxpbys( x, b, y ) \
+#define bli_szsxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x)      + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_szdxpbys( x, b, y ) \
+#define bli_szdxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x)      + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_szcxpbys( x, b, y ) \
+#define bli_szcxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( double ) (x)      + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -128,7 +128,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_szzxpbys( x, b, y ) \
+#define bli_szzxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( double ) (x)      + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -141,53 +141,53 @@
 
 // -- (xby) = (ds?) ------------------------------------------------------------
 
-#define bl2_dssxpbys( x, b, y ) \
+#define bli_dssxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( float  ) (x)      + ( float  ) (b)      * ( float  ) (y)      ); \
 }
-#define bl2_dsdxpbys( x, b, y ) \
+#define bli_dsdxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x)      + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_dscxpbys( x, b, y ) \
+#define bli_dscxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( float  ) (x)      + ( float  ) (b)      * ( float  ) (y).real ); \
 }
-#define bl2_dszxpbys( x, b, y ) \
+#define bli_dszxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( double ) (x)      + ( double ) (b)      * ( double ) (y).real ); \
 }
 
 // -- (xby) = (dd?) ------------------------------------------------------------
 
-#define bl2_ddsxpbys( x, b, y ) \
+#define bli_ddsxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x)      + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_dddxpbys( x, b, y ) \
+#define bli_dddxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x)      + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_ddcxpbys( x, b, y ) \
+#define bli_ddcxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( double ) (x)      + ( double ) (b)      * ( double ) (y).real ); \
 }
-#define bl2_ddzxpbys( x, b, y ) \
+#define bli_ddzxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( double ) (x)      + ( double ) (b)      * ( double ) (y).real ); \
 }
 
 // -- (xby) = (dc?) ------------------------------------------------------------
 
-#define bl2_dcsxpbys( x, b, y ) \
+#define bli_dcsxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( float  ) (x)      + ( float  ) (b).real * ( float  ) (y)      ); \
 }
-#define bl2_dcdxpbys( x, b, y ) \
+#define bli_dcdxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x)      + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_dccxpbys( x, b, y ) \
+#define bli_dccxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( float  ) (x)      + ( float  ) (b).real * ( float  ) (y).real - \
 	                                                 ( float  ) (b).imag * ( float  ) (y).imag ); \
@@ -196,7 +196,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_dczxpbys( x, b, y ) \
+#define bli_dczxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( double ) (x)      + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -208,15 +208,15 @@
 
 // -- (xby) = (dz?) ------------------------------------------------------------
 
-#define bl2_dzsxpbys( x, b, y ) \
+#define bli_dzsxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x)      + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_dzdxpbys( x, b, y ) \
+#define bli_dzdxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x)      + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_dzcxpbys( x, b, y ) \
+#define bli_dzcxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( double ) (x)      + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -225,7 +225,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_dzzxpbys( x, b, y ) \
+#define bli_dzzxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( double ) (x)      + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -237,20 +237,20 @@
 
 // -- (xby) = (cs?) ------------------------------------------------------------
 
-#define bl2_cssxpbys( x, b, y ) \
+#define bli_cssxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( float  ) (x).real + ( float  ) (b)      * ( float  ) (y)      ); \
 }
-#define bl2_csdxpbys( x, b, y ) \
+#define bli_csdxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x).real + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_cscxpbys( x, b, y ) \
+#define bli_cscxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( float  ) (x).real + ( float  ) (b)      * ( float  ) (y).real ); \
 	(y).imag     = ( float  )( ( float  ) (x).imag + ( float  ) (b)      * ( float  ) (y).imag ); \
 }
-#define bl2_cszxpbys( x, b, y ) \
+#define bli_cszxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( double ) (x).real + ( double ) (b)      * ( double ) (y).real ); \
 	(y).imag     = ( float  )( ( double ) (x).imag + ( double ) (b)      * ( double ) (y).imag ); \
@@ -258,20 +258,20 @@
 
 // -- (xby) = (cd?) ------------------------------------------------------------
 
-#define bl2_cdsxpbys( x, b, y ) \
+#define bli_cdsxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x).real + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_cddxpbys( x, b, y ) \
+#define bli_cddxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x).real + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_cdcxpbys( x, b, y ) \
+#define bli_cdcxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( double ) (x).real + ( double ) (b)      * ( double ) (y).real ); \
 	(y).imag     = ( float  )( ( double ) (x).imag + ( double ) (b)      * ( double ) (y).imag ); \
 }
-#define bl2_cdzxpbys( x, b, y ) \
+#define bli_cdzxpbys( x, b, y ) \
 { \
 	(y).real     = ( float  )( ( double ) (x).real + ( double ) (b)      * ( double ) (y).real ); \
 	(y).imag     = ( float  )( ( double ) (x).imag + ( double ) (b)      * ( double ) (y).imag ); \
@@ -279,15 +279,15 @@
 
 // -- (xby) = (cc?) ------------------------------------------------------------
 
-#define bl2_ccsxpbys( x, b, y ) \
+#define bli_ccsxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( float  ) (x).real + ( float  ) (b).real * ( float  ) (y)      ); \
 }
-#define bl2_ccdxpbys( x, b, y ) \
+#define bli_ccdxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x).real + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_cccxpbys( x, b, y ) \
+#define bli_cccxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( float  ) (x).real + ( float  ) (b).real * ( float  ) (y).real - \
 	                                                 ( float  ) (b).imag * ( float  ) (y).imag ); \
@@ -296,7 +296,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_cczxpbys( x, b, y ) \
+#define bli_cczxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( double ) (x).real + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -308,15 +308,15 @@
 
 // -- (xby) = (cz?) ------------------------------------------------------------
 
-#define bl2_czsxpbys( x, b, y ) \
+#define bli_czsxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x).real + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_czdxpbys( x, b, y ) \
+#define bli_czdxpbys( x, b, y ) \
 { \
 	(y)          = ( float  )( ( double ) (x).real + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_czcxpbys( x, b, y ) \
+#define bli_czcxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( double ) (x).real + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -325,7 +325,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_czzxpbys( x, b, y ) \
+#define bli_czzxpbys( x, b, y ) \
 { \
 	float  tempr = ( float  )( ( double ) (x).real + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -337,20 +337,20 @@
 
 // -- (xby) = (zs?) ------------------------------------------------------------
 
-#define bl2_zssxpbys( x, b, y ) \
+#define bli_zssxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_zsdxpbys( x, b, y ) \
+#define bli_zsdxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_zscxpbys( x, b, y ) \
+#define bli_zscxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y).real ); \
 	(y).imag     = ( double )( ( double ) (x).imag + ( double ) (b)      * ( double ) (y).imag ); \
 }
-#define bl2_zszxpbys( x, b, y ) \
+#define bli_zszxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y).real ); \
 	(y).imag     = ( double )( ( double ) (x).imag + ( double ) (b)      * ( double ) (y).imag ); \
@@ -358,20 +358,20 @@
 
 // -- (xby) = (zd?) ------------------------------------------------------------
 
-#define bl2_zdsxpbys( x, b, y ) \
+#define bli_zdsxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_zddxpbys( x, b, y ) \
+#define bli_zddxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y)      ); \
 }
-#define bl2_zdcxpbys( x, b, y ) \
+#define bli_zdcxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y).real ); \
 	(y).imag     = ( double )( ( double ) (x).imag + ( double ) (b)      * ( double ) (y).imag ); \
 }
-#define bl2_zdzxpbys( x, b, y ) \
+#define bli_zdzxpbys( x, b, y ) \
 { \
 	(y).real     = ( double )( ( double ) (x).real + ( double ) (b)      * ( double ) (y).real ); \
 	(y).imag     = ( double )( ( double ) (x).imag + ( double ) (b)      * ( double ) (y).imag ); \
@@ -379,15 +379,15 @@
 
 // -- (xby) = (zc?) ------------------------------------------------------------
 
-#define bl2_zcsxpbys( x, b, y ) \
+#define bli_zcsxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_zcdxpbys( x, b, y ) \
+#define bli_zcdxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_zccxpbys( x, b, y ) \
+#define bli_zccxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -396,7 +396,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_zczxpbys( x, b, y ) \
+#define bli_zczxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -408,15 +408,15 @@
 
 // -- (xby) = (zz?) ------------------------------------------------------------
 
-#define bl2_zzsxpbys( x, b, y ) \
+#define bli_zzsxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_zzdxpbys( x, b, y ) \
+#define bli_zzdxpbys( x, b, y ) \
 { \
 	(y)          = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y)      ); \
 }
-#define bl2_zzcxpbys( x, b, y ) \
+#define bli_zzcxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -425,7 +425,7 @@
 	(y).real  = tempr; \
 	(y).imag  = tempi; \
 }
-#define bl2_zzzxpbys( x, b, y ) \
+#define bli_zzzxpbys( x, b, y ) \
 { \
 	double tempr = ( double )( ( double ) (x).real + ( double ) (b).real * ( double ) (y).real - \
 	                                                 ( double ) (b).imag * ( double ) (y).imag ); \
@@ -438,21 +438,21 @@
 
 
 
-#define bl2_sxpbys( x, b, y ) \
+#define bli_sxpbys( x, b, y ) \
 { \
-	bl2_sssxpbys( x, b, y ); \
+	bli_sssxpbys( x, b, y ); \
 }
-#define bl2_dxpbys( x, b, y ) \
+#define bli_dxpbys( x, b, y ) \
 { \
-	bl2_dddxpbys( x, b, y ); \
+	bli_dddxpbys( x, b, y ); \
 }
-#define bl2_cxpbys( x, b, y ) \
+#define bli_cxpbys( x, b, y ) \
 { \
-	bl2_cccxpbys( x, b, y ); \
+	bli_cccxpbys( x, b, y ); \
 }
-#define bl2_zxpbys( x, b, y ) \
+#define bli_zxpbys( x, b, y ) \
 { \
-	bl2_zzzxpbys( x, b, y ); \
+	bli_zzzxpbys( x, b, y ); \
 }
 
 

frame/include/level0/bli_xpbys_mxn.h

@@ -42,46 +42,46 @@
 // - The second char encodes the type of b.
 // - The third char encodes the type of y.
 
-#define bl2_sssxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_sssxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_sssxpbys( *(x + i*rs_x + j*cs_x), \
+	bli_sssxpbys( *(x + i*rs_x + j*cs_x), \
 	              *(beta), \
 	              *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_dddxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_dddxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_dddxpbys( *(x + i*rs_x + j*cs_x), \
+	bli_dddxpbys( *(x + i*rs_x + j*cs_x), \
 	              *(beta), \
 	              *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_cccxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_cccxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_cccxpbys( *(x + i*rs_x + j*cs_x), \
+	bli_cccxpbys( *(x + i*rs_x + j*cs_x), \
 	              *(beta), \
 	              *(y + i*rs_y + j*cs_y) ); \
 }
 
-#define bl2_zzzxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_zzzxpbys_mxn( m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
 	for ( j = 0; j < n; ++j ) \
 	for ( i = 0; i < m; ++i ) \
-	bl2_zzzxpbys( *(x + i*rs_x + j*cs_x), \
+	bli_zzzxpbys( *(x + i*rs_x + j*cs_x), \
 	              *(beta), \
 	              *(y + i*rs_y + j*cs_y) ); \
 }

frame/include/level0/bli_xpbys_mxn_uplo.h

@@ -37,7 +37,7 @@
 
 // xpbys_mxn_u
 
-#define bl2_sssxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_sssxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -47,7 +47,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_sssxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_sssxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \
@@ -55,7 +55,7 @@
 	} \
 }
 
-#define bl2_dddxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_dddxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -65,7 +65,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_dddxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_dddxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \
@@ -73,7 +73,7 @@
 	} \
 }
 
-#define bl2_cccxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_cccxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -83,7 +83,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_cccxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_cccxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \
@@ -91,7 +91,7 @@
 	} \
 }
 
-#define bl2_zzzxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_zzzxpbys_mxn_u( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -101,7 +101,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i >= diagoff ) \
 			{ \
-				bl2_zzzxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_zzzxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \
@@ -111,7 +111,7 @@
 
 // xpbys_mxn_l
 
-#define bl2_sssxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_sssxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -121,7 +121,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
-				bl2_sssxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_sssxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \
@@ -129,7 +129,7 @@
 	} \
 }
 
-#define bl2_dddxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_dddxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -139,7 +139,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
-				bl2_dddxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_dddxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \
@@ -147,7 +147,7 @@
 	} \
 }
 
-#define bl2_cccxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_cccxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -157,7 +157,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
-				bl2_cccxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_cccxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \
@@ -165,7 +165,7 @@
 	} \
 }
 
-#define bl2_zzzxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
+#define bli_zzzxpbys_mxn_l( diagoff, m, n, x, rs_x, cs_x, beta, y, rs_y, cs_y ) \
 { \
 	dim_t i, j; \
 \
@@ -175,7 +175,7 @@
 		{ \
 			if ( (doff_t)j - (doff_t)i <= diagoff ) \
 			{ \
-				bl2_zzzxpbys( *(x + i*rs_x + j*cs_x), \
+				bli_zzzxpbys( *(x + i*rs_x + j*cs_x), \
 				              *(beta), \
 				              *(y + i*rs_y + j*cs_y) ); \
 			} \