amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-05-13 18:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Moved init_safe(), finalize_safe() to BLAS compat.

Browse Source 
Details:
- Moved the bli_init_safe() and bli_finalize_safe() function calls from the
  BLAS-like BLIS layer to the BLAS compatibility layer. Having these auto-
  initializers in the BLIS layer wasn't buying us anything because the user
  could still call the library with uninitialized global scalar constants,
  for example. Thus, we will just have to live with the constraint that
  bli_init() MUST be called before calling ANY routine with a bli_ prefix.
- Added the missing _init_safe() and finalize_safe() calls to the level-1
  BLAS compatibility wrappers.
This commit is contained in:
Field G. Van Zee
2013-08-08 14:39:35 -05:00
parent 8abfe55f2a
commit 12dbd2f334
47 changed files with 189 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
frame/2/gemv/bli_gemv.c
View File

@@ -181,9 +181,6 @@ void PASTEMAC(ch,opname)( \
dim_t m_y; \
inc_t rs_x, cs_x; \
inc_t rs_y, cs_y; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dims_with_trans( BLIS_NO_TRANSPOSE, m, n, m_a, n_a ); \
bli_set_dims_with_trans( transa, m, n, m_y, m_x ); \
@@ -206,8 +203,6 @@ void PASTEMAC(ch,opname)( \
&xo, \
&betao, \
&yo ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( gemv, gemv )

5
frame/2/ger/bli_ger.c
View File

@@ -142,9 +142,6 @@ void PASTEMAC(ch,opname)( \
dim_t m_y; \
inc_t rs_x, cs_x; \
inc_t rs_y, cs_y; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dims_with_trans( BLIS_NO_TRANSPOSE, m, n, m_x, m_y ); \
\
@@ -164,8 +161,6 @@ void PASTEMAC(ch,opname)( \
&xo, \
&yo, \
&ao ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( ger, ger )

5
frame/2/hemv/bli_hemv.c
View File

@@ -176,9 +176,6 @@ void PASTEMAC(ch,opname)( \
\
inc_t rs_x, cs_x; \
inc_t rs_y, cs_y; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
rs_y = incy; cs_y = m * incy; \
@@ -201,8 +198,6 @@ void PASTEMAC(ch,opname)( \
&xo, \
&betao, \
&yo ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( hemv, hemv )

5
frame/2/her/bli_her.c
View File

@@ -148,9 +148,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, xo, co; \
\
inc_t rs_x, cs_x; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
\
@@ -167,8 +164,6 @@ void PASTEMAC(ch,opname)( \
PASTEMAC0(opname)( &alphao, \
&xo, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNCR_BASIC( her, her )

5
frame/2/her2/bli_her2.c
View File

@@ -167,9 +167,6 @@ void PASTEMAC(ch,opname)( \
\
inc_t rs_x, cs_x; \
inc_t rs_y, cs_y; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
rs_y = incy; cs_y = m * incy; \
@@ -190,8 +187,6 @@ void PASTEMAC(ch,opname)( \
&xo, \
&yo, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( her2, her2 )

5
frame/2/symv/bli_symv.c
View File

@@ -176,9 +176,6 @@ void PASTEMAC(ch,opname)( \
\
inc_t rs_x, cs_x; \
inc_t rs_y, cs_y; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
rs_y = incy; cs_y = m * incy; \
@@ -201,8 +198,6 @@ void PASTEMAC(ch,opname)( \
&xo, \
&betao, \
&yo ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( symv, symv )

5
frame/2/syr/bli_syr.c
View File

@@ -149,9 +149,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, xo, co; \
\
inc_t rs_x, cs_x; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
\
@@ -168,8 +165,6 @@ void PASTEMAC(ch,opname)( \
PASTEMAC0(opname)( &alphao, \
&xo, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( syr, syr )

5
frame/2/syr2/bli_syr2.c
View File

@@ -160,9 +160,6 @@ void PASTEMAC(ch,opname)( \
\
inc_t rs_x, cs_x; \
inc_t rs_y, cs_y; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
rs_y = incy; cs_y = m * incy; \
@@ -183,8 +180,6 @@ void PASTEMAC(ch,opname)( \
&xo, \
&yo, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( syr2, syr2 )

5
frame/2/trmv/bli_trmv.c
View File

@@ -147,9 +147,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, ao, xo; \
\
inc_t rs_x, cs_x; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
\
@@ -167,8 +164,6 @@ void PASTEMAC(ch,opname)( \
PASTEMAC0(opname)( &alphao, \
&ao, \
&xo ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( trmv, trmv )

5
frame/2/trsv/bli_trsv.c
View File

@@ -144,9 +144,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, ao, xo; \
\
inc_t rs_x, cs_x; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
rs_x = incx; cs_x = m * incx; \
\
@@ -164,8 +161,6 @@ void PASTEMAC(ch,opname)( \
PASTEMAC0(opname)( &alphao, \
&ao, \
&xo ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( trsv, trsv )

5
frame/3/gemm/bli_gemm.c
View File

@@ -155,9 +155,6 @@ void PASTEMAC(ch,opname)( \
\
dim_t m_a, n_a; \
dim_t m_b, n_b; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dims_with_trans( transa, m, k, m_a, n_a ); \
bli_set_dims_with_trans( transb, k, n, m_b, n_b ); \
@@ -177,8 +174,6 @@ void PASTEMAC(ch,opname)( \
&bo, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( gemm, gemm )

5
frame/3/hemm/bli_hemm.c
View File

@@ -151,9 +151,6 @@ void PASTEMAC(ch,opname)( \
\
dim_t mn_a; \
dim_t m_b, n_b; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dim_with_side( side, m, n, mn_a ); \
bli_set_dims_with_trans( transb, m, n, m_b, n_b ); \
@@ -177,8 +174,6 @@ void PASTEMAC(ch,opname)( \
&bo, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( hemm, hemm )

5
frame/3/her2k/bli_her2k.c
View File

@@ -190,9 +190,6 @@ void PASTEMAC(ch,opname)( \
\
dim_t m_a, n_a; \
dim_t m_b, n_b; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dims_with_trans( transa, m, k, m_a, n_a ); \
bli_set_dims_with_trans( transb, m, k, m_b, n_b ); \
@@ -215,8 +212,6 @@ void PASTEMAC(ch,opname)( \
&bo, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNCR_BASIC( her2k, her2k )

5
frame/3/herk/bli_herk.c
View File

@@ -145,9 +145,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, ao, betao, co; \
\
dim_t m_a, n_a; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dims_with_trans( transa, m, k, m_a, n_a ); \
\
@@ -166,8 +163,6 @@ void PASTEMAC(ch,opname)( \
&ao, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNCR_BASIC( herk, herk )

5
frame/3/symm/bli_symm.c
View File

@@ -151,9 +151,6 @@ void PASTEMAC(ch,opname)( \
\
dim_t mn_a; \
dim_t m_b, n_b; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dim_with_side( side, m, n, mn_a ); \
bli_set_dims_with_trans( transb, m, n, m_b, n_b ); \
@@ -177,8 +174,6 @@ void PASTEMAC(ch,opname)( \
&bo, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( symm, symm )

5
frame/3/syr2k/bli_syr2k.c
View File

@@ -171,9 +171,6 @@ void PASTEMAC(ch,opname)( \
\
dim_t m_a, n_a; \
dim_t m_b, n_b; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dims_with_trans( transa, m, k, m_a, n_a ); \
bli_set_dims_with_trans( transb, m, k, m_b, n_b ); \
@@ -196,8 +193,6 @@ void PASTEMAC(ch,opname)( \
&bo, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( syr2k, syr2k )

5
frame/3/syrk/bli_syrk.c
View File

@@ -141,9 +141,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, ao, betao, co; \
\
dim_t m_a, n_a; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dims_with_trans( transa, m, k, m_a, n_a ); \
\
@@ -162,8 +159,6 @@ void PASTEMAC(ch,opname)( \
&ao, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( syrk, syrk )

5
frame/3/trmm/bli_trmm.c
View File

@@ -176,9 +176,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, ao, bo; \
\
dim_t mn_a; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dim_with_side( side, m, n, mn_a ); \
\
@@ -197,8 +194,6 @@ void PASTEMAC(ch,opname)( \
&alphao, \
&ao, \
&bo ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( trmm, trmm )

5
frame/3/trmm3/bli_trmm3.c
View File

@@ -171,9 +171,6 @@ void PASTEMAC(ch,opname)( \
\
dim_t mn_a; \
dim_t m_b, n_b; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dim_with_side( side, m, n, mn_a ); \
bli_set_dims_with_trans( transb, m, n, m_b, n_b ); \
@@ -198,8 +195,6 @@ void PASTEMAC(ch,opname)( \
&bo, \
&betao, \
&co ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( trmm3, trmm3 )

5
frame/3/trsm/bli_trsm.c
View File

@@ -182,9 +182,6 @@ void PASTEMAC(ch,opname)( \
obj_t alphao, ao, bo; \
\
dim_t mn_a; \
err_t init_result; \
\
bli_init_safe( &init_result ); \
\
bli_set_dim_with_side( side, m, n, mn_a ); \
\
@@ -203,8 +200,6 @@ void PASTEMAC(ch,opname)( \
&alphao, \
&ao, \
&bo ); \
\
bli_finalize_safe( init_result ); \
}
INSERT_GENTFUNC_BASIC( trsm, trsm )

7
frame/compat/bla_amax.c
View File

@@ -51,6 +51,10 @@ f77_int PASTEF772(i,chx,blasname)( \
inc_t incx0; \
gint_t bli_index; \
f77_int f77_index; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -67,6 +71,9 @@ f77_int PASTEF772(i,chx,blasname)( \
/* Convert zero-based BLIS (C) index to one-based BLAS (Fortran)
index. */ \
f77_index = bli_index + 1; \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
\
return f77_index; \
}

7
frame/compat/bla_asum.c
View File

@@ -50,6 +50,10 @@ ftype_r PASTEF772(chr,chx,blasname)( \
ftype_x* x0; \
inc_t incx0; \
ftype_r absum; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -62,6 +66,9 @@ ftype_r PASTEF772(chr,chx,blasname)( \
PASTEMAC(chx,absumv)( n0, \
x0, incx0, \
&absum ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
\
return absum; \
}

7
frame/compat/bla_axpy.c
View File

@@ -53,6 +53,10 @@ void PASTEF77(ch,blasname)( \
ftype* y0; \
inc_t incx0; \
inc_t incy0; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -68,6 +72,9 @@ void PASTEF77(ch,blasname)( \
alpha, \
x0, incx0, \
y0, incy0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_copy.c
View File

@@ -52,6 +52,10 @@ void PASTEF77(ch,blasname)( \
ftype* y0; \
inc_t incx0; \
inc_t incy0; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -66,6 +70,9 @@ void PASTEF77(ch,blasname)( \
n0, \
x0, incx0, \
y0, incy0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_dot.c
View File

@@ -53,6 +53,10 @@ ftype PASTEF772(chxy,blasname,chc)( \
inc_t incx0; \
inc_t incy0; \
ftype rho; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -69,6 +73,9 @@ ftype PASTEF772(chxy,blasname,chc)( \
x0, incx0, \
y0, incy0, \
&rho ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
\
return rho; \
}

7
frame/compat/bla_gemm.c
View File

@@ -60,6 +60,10 @@ void PASTEF77(ch,blasname)( \
inc_t rs_a, cs_a; \
inc_t rs_b, cs_b; \
inc_t rs_c, cs_c; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -101,6 +105,9 @@ void PASTEF77(ch,blasname)( \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_gemv.c
View File

@@ -60,6 +60,10 @@ void PASTEF77(ch,blasname)( \
inc_t incx0; \
inc_t incy0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -101,6 +105,9 @@ void PASTEF77(ch,blasname)( \
x0, incx0, \
beta, \
y0, incy0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_ger.c
View File

@@ -56,6 +56,10 @@ void PASTEF772(chxy,blasname,chc)( \
inc_t incx0; \
inc_t incy0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -88,6 +92,9 @@ void PASTEF772(chxy,blasname,chc)( \
x0, incx0, \
y0, incy0, \
a, rs_a, cs_a ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_hemm.c
View File

@@ -59,6 +59,10 @@ void PASTEF77(ch,blasname)( \
inc_t rs_a, cs_a; \
inc_t rs_b, cs_b; \
inc_t rs_c, cs_c; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -99,6 +103,9 @@ void PASTEF77(ch,blasname)( \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_hemv.c
View File

@@ -58,6 +58,10 @@ void PASTEF77(ch,blasname)( \
inc_t incx0; \
inc_t incy0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -93,6 +97,9 @@ void PASTEF77(ch,blasname)( \
x0, incx0, \
beta, \
y0, incy0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_her.c
View File

@@ -54,6 +54,10 @@ void PASTEF77(ch,blasname)( \
ftype* x0; \
inc_t incx0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -84,6 +88,9 @@ void PASTEF77(ch,blasname)( \
alpha, \
x0, incx0, \
a, rs_a, cs_a ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_her2.c
View File

@@ -57,6 +57,10 @@ void PASTEF77(ch,blasname)( \
inc_t incx0; \
inc_t incy0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -91,6 +95,9 @@ void PASTEF77(ch,blasname)( \
x0, incx0, \
y0, incy0, \
a, rs_a, cs_a ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_her2k.c
View File

@@ -59,6 +59,10 @@ void PASTEF77(ch,blasname)( \
inc_t rs_a, cs_a; \
inc_t rs_b, cs_b; \
inc_t rs_c, cs_c; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -98,6 +102,9 @@ void PASTEF77(ch,blasname)( \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_herk.c
View File

@@ -57,6 +57,10 @@ void PASTEF77(ch,blasname)( \
dim_t m0, k0; \
inc_t rs_a, cs_a; \
inc_t rs_c, cs_c; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -91,6 +95,9 @@ void PASTEF77(ch,blasname)( \
a, rs_a, cs_a, \
beta, \
c, rs_c, cs_c ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_nrm2.c
View File

@@ -50,6 +50,10 @@ ftype_r PASTEF772(chr,chx,blasname)( \
ftype_x* x0; \
inc_t incx0; \
ftype_r absum; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -62,6 +66,9 @@ ftype_r PASTEF772(chr,chx,blasname)( \
PASTEMAC(chx,fnormv)( n0, \
x0, incx0, \
&absum ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
\
return absum; \
}

7
frame/compat/bla_scal.c
View File

@@ -51,6 +51,10 @@ void PASTEF772(chx,cha,blasname)( \
ftype_x* x0; \
inc_t incx0; \
ftype_x alpha_cast; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -72,6 +76,9 @@ void PASTEF772(chx,cha,blasname)( \
n0, \
&alpha_cast, \
x0, incx0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_swap.c
View File

@@ -52,6 +52,10 @@ void PASTEF77(ch,blasname)( \
ftype* y0; \
inc_t incx0; \
inc_t incy0; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -65,6 +69,9 @@ void PASTEF77(ch,blasname)( \
PASTEMAC2(ch,ch,blisname)( n0, \
x0, incx0, \
y0, incy0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_symm.c
View File

@@ -59,6 +59,10 @@ void PASTEF77(ch,blasname)( \
inc_t rs_a, cs_a; \
inc_t rs_b, cs_b; \
inc_t rs_c, cs_c; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -99,6 +103,9 @@ void PASTEF77(ch,blasname)( \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_symv.c
View File

@@ -58,6 +58,10 @@ void PASTEF77(ch,blasname)( \
inc_t incx0; \
inc_t incy0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -93,6 +97,9 @@ void PASTEF77(ch,blasname)( \
x0, incx0, \
beta, \
y0, incy0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_syr.c
View File

@@ -54,6 +54,10 @@ void PASTEF77(ch,blasname)( \
ftype* x0; \
inc_t incx0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -84,6 +88,9 @@ void PASTEF77(ch,blasname)( \
alpha, \
x0, incx0, \
a, rs_a, cs_a ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_syr2.c
View File

@@ -57,6 +57,10 @@ void PASTEF77(ch,blasname)( \
inc_t incx0; \
inc_t incy0; \
inc_t rs_a, cs_a; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -91,6 +95,9 @@ void PASTEF77(ch,blasname)( \
x0, incx0, \
y0, incy0, \
a, rs_a, cs_a ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_syr2k.c
View File

@@ -59,6 +59,10 @@ void PASTEF77(ch,blasname)( \
inc_t rs_a, cs_a; \
inc_t rs_b, cs_b; \
inc_t rs_c, cs_c; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -98,6 +102,9 @@ void PASTEF77(ch,blasname)( \
b, rs_b, cs_b, \
beta, \
c, rs_c, cs_c ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_syrk.c
View File

@@ -57,6 +57,10 @@ void PASTEF77(ch,blasname)( \
dim_t m0, k0; \
inc_t rs_a, cs_a; \
inc_t rs_c, cs_c; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -91,6 +95,9 @@ void PASTEF77(ch,blasname)( \
a, rs_a, cs_a, \
beta, \
c, rs_c, cs_c ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_trmm.c
View File

@@ -60,6 +60,10 @@ void PASTEF77(ch,blasname)( \
dim_t m0, n0; \
inc_t rs_a, cs_a; \
inc_t rs_b, cs_b; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -99,6 +103,9 @@ void PASTEF77(ch,blasname)( \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_trmv.c
View File

@@ -58,6 +58,10 @@ void PASTEF77(ch,blasname)( \
inc_t incx0; \
inc_t rs_a, cs_a; \
ftype one; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -97,6 +101,9 @@ void PASTEF77(ch,blasname)( \
&one, \
a, rs_a, cs_a, \
x0, incx0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_trsm.c
View File

@@ -60,6 +60,10 @@ void PASTEF77(ch,blasname)( \
dim_t m0, n0; \
inc_t rs_a, cs_a; \
inc_t rs_b, cs_b; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -99,6 +103,9 @@ void PASTEF77(ch,blasname)( \
alpha, \
a, rs_a, cs_a, \
b, rs_b, cs_b ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS

7
frame/compat/bla_trsv.c
View File

@@ -58,6 +58,10 @@ void PASTEF77(ch,blasname)( \
inc_t incx0; \
inc_t rs_a, cs_a; \
ftype one; \
err_t init_result; \
\
/* Initialize BLIS (if it is not already initialized). */ \
bli_init_safe( &init_result ); \
\
/* Perform BLAS parameter checking. */ \
PASTEBLACHK(blasname)( MKSTR(ch), \
@@ -97,6 +101,9 @@ void PASTEF77(ch,blasname)( \
&one, \
a, rs_a, cs_a, \
x0, incx0 ); \
\
/* Finalize BLIS (if it was initialized above). */ \
bli_finalize_safe( init_result ); \
}
#ifdef BLIS_ENABLE_BLAS2BLIS