diff --git a/build/bli_config.h.in b/build/bli_config.h.in index 1bd5e57f6..7debcfa38 100644 --- a/build/bli_config.h.in +++ b/build/bli_config.h.in @@ -159,7 +159,23 @@ #define BLIS_DISABLE_SHARED #endif -#define BLIS_EXPORT_BLAS -#define BLIS_EXPORT_BLIS +#if !defined(BLIS_ENABLE_SHARED) + #define BLIS_EXPORT +#else + #if defined(_WIN32) || defined(__CYGWIN__) + #ifdef BLIS_IS_BUILDING_LIBRARY + #define BLIS_EXPORT __declspec(dllexport) + #else + #define BLIS_EXPORT __declspec(dllimport) + #endif + #elif defined(__GNUC__) && __GNUC__ >= 4 + #define BLIS_EXPORT __attribute__ ((visibility ("default"))) + #else + #define BLIS_EXPORT + #endif +#endif + +#define BLIS_EXPORT_BLIS BLIS_EXPORT +#define BLIS_EXPORT_BLAS BLIS_EXPORT #endif diff --git a/build/libblis-symbols.def b/build/libblis-symbols.def index f8752018b..e1bfce807 100644 --- a/build/libblis-symbols.def +++ b/build/libblis-symbols.def @@ -183,8 +183,6 @@ bli_cgemm4mb bli_cgemm4mb_ker_var2 bli_cgemm4mh bli_cgemm_ex -bli_cgemm_haswell_asm_3x8 -bli_cgemm_haswell_asm_8x3 bli_cgemm_ker_var2 bli_cgemm_md_c2r_ref bli_cgemmtrsm_l_ukernel @@ -591,7 +589,6 @@ bli_daddv bli_daddv_ex bli_damaxv bli_damaxv_ex -bli_damaxv_zen_int bli_dasumv bli_dasumv_ex bli_dasumv_unb_var1 @@ -603,14 +600,11 @@ bli_daxpyd bli_daxpyd_ex bli_daxpyf bli_daxpyf_ex -bli_daxpyf_zen_int_8 bli_daxpym bli_daxpym_ex bli_daxpym_unb_var1 bli_daxpyv bli_daxpyv_ex -bli_daxpyv_zen_int -bli_daxpyv_zen_int10 bli_dccastm bli_dccastnzm bli_dccastv @@ -640,16 +634,12 @@ bli_ddotaxpyv bli_ddotaxpyv_ex bli_ddotv bli_ddotv_ex -bli_ddotv_zen_int -bli_ddotv_zen_int10 bli_ddotxaxpyf bli_ddotxaxpyf_ex bli_ddotxf bli_ddotxf_ex -bli_ddotxf_zen_int_8 bli_ddotxv bli_ddotxv_ex -bli_ddotxv_zen_int bli_ddpackm_blk_var1_md bli_ddpackm_cxk_1e_md bli_ddpackm_cxk_1r_md @@ -673,12 +663,8 @@ bli_dgemm4mb bli_dgemm4mb_ker_var2 bli_dgemm4mh bli_dgemm_ex -bli_dgemm_haswell_asm_6x8 -bli_dgemm_haswell_asm_8x6 bli_dgemm_ker_var2 -bli_dgemmtrsm_l_haswell_asm_6x8 bli_dgemmtrsm_l_ukernel -bli_dgemmtrsm_u_haswell_asm_6x8 bli_dgemmtrsm_u_ukernel bli_dgemm_ukernel bli_dgemv @@ -746,11 +732,6 @@ bli_dinvertv_ex bli_divsc bli_divsc_check bli_divsc_qfp -bli_dlamc1 -bli_dlamc2 -bli_dlamc3 -bli_dlamc4 -bli_dlamc5 bli_dlamch bli_dmachval bli_dmkherm @@ -838,8 +819,6 @@ bli_dscalm_ex bli_dscalm_unb_var1 bli_dscalv bli_dscalv_ex -bli_dscalv_zen_int -bli_dscalv_zen_int10 bli_dscastm bli_dscastnzm bli_dscastv @@ -1452,8 +1431,6 @@ bli_pool_init bli_pool_print bli_pool_reinit bli_pool_shrink -bli_pow_di -bli_pow_ri bli_prime_factorization bli_printm bli_printm_ex @@ -1510,7 +1487,6 @@ bli_saddv bli_saddv_ex bli_samaxv bli_samaxv_ex -bli_samaxv_zen_int bli_sasumv bli_sasumv_ex bli_sasumv_unb_var1 @@ -1522,14 +1498,11 @@ bli_saxpyd bli_saxpyd_ex bli_saxpyf bli_saxpyf_ex -bli_saxpyf_zen_int_8 bli_saxpym bli_saxpym_ex bli_saxpym_unb_var1 bli_saxpyv bli_saxpyv_ex -bli_saxpyv_zen_int -bli_saxpyv_zen_int10 bli_sba_acquire bli_sba_checkin_array bli_sba_checkout_array @@ -1591,16 +1564,12 @@ bli_sdotaxpyv bli_sdotaxpyv_ex bli_sdotv bli_sdotv_ex -bli_sdotv_zen_int -bli_sdotv_zen_int10 bli_sdotxaxpyf bli_sdotxaxpyf_ex bli_sdotxf bli_sdotxf_ex -bli_sdotxf_zen_int_8 bli_sdotxv bli_sdotxv_ex -bli_sdotxv_zen_int bli_sdpackm_blk_var1_md bli_sdpackm_cxk_1e_md bli_sdpackm_cxk_1r_md @@ -1643,12 +1612,8 @@ bli_sgemm4mb bli_sgemm4mb_ker_var2 bli_sgemm4mh bli_sgemm_ex -bli_sgemm_haswell_asm_16x6 -bli_sgemm_haswell_asm_6x16 bli_sgemm_ker_var2 -bli_sgemmtrsm_l_haswell_asm_6x16 bli_sgemmtrsm_l_ukernel -bli_sgemmtrsm_u_haswell_asm_6x16 bli_sgemmtrsm_u_ukernel bli_sgemm_ukernel bli_sgemv @@ -1717,11 +1682,6 @@ bli_sinvertd_ex bli_sinvertsc bli_sinvertv bli_sinvertv_ex -bli_slamc1 -bli_slamc2 -bli_slamc3 -bli_slamc4 -bli_slamc5 bli_slamch bli_sleep bli_smachval @@ -1793,8 +1753,6 @@ bli_sscalm_ex bli_sscalm_unb_var1 bli_sscalv bli_sscalv_ex -bli_sscalv_zen_int -bli_sscalv_zen_int10 bli_sscastm bli_sscastnzm bli_sscastv @@ -2245,8 +2203,6 @@ bli_zgemm4mb bli_zgemm4mb_ker_var2 bli_zgemm4mh bli_zgemm_ex -bli_zgemm_haswell_asm_3x4 -bli_zgemm_haswell_asm_4x3 bli_zgemm_ker_var2 bli_zgemm_md_c2r_ref bli_zgemmtrsm_l_ukernel @@ -2528,19 +2484,6 @@ bli_zzpackm_struc_cxk_md bli_zzxpbym_md bli_zzxpbym_md_ex bli_zzxpbym_md_unb_var1 -bla_c_abs -bla_c_div -bla_d_abs -bla_d_cnjg -bla_d_imag -bla_d_sign -bla_f__cabs -bla_r_abs -bla_r_cnjg -bla_r_imag -bla_r_sign -bla_z_abs -bla_z_div sasum_ sasumsub_ saxpy_ diff --git a/common.mk b/common.mk index 2e43a46f8..75e563878 100644 --- a/common.mk +++ b/common.mk @@ -506,9 +506,9 @@ SOFLAGS := -shared ifeq ($(IS_WIN),yes) # Windows shared library link flags. ifeq ($(CC_VENDOR),clang) -SOFLAGS += -Wl,-def:build/libblis-symbols.def -Wl,-implib:$(BASE_LIB_PATH)/$(LIBBLIS).lib +SOFLAGS += -Wl,-implib:$(BASE_LIB_PATH)/$(LIBBLIS).lib else -SOFLAGS += -Wl,--export-all-symbols -Wl,--out-implib,$(BASE_LIB_PATH)/$(LIBBLIS).dll.a +SOFLAGS += -Wl,--out-implib,$(BASE_LIB_PATH)/$(LIBBLIS).dll.a endif else # Linux shared library link flags. diff --git a/frame/0/bli_l0_check.c b/frame/0/bli_l0_check.c index aa046285e..65eeda1b7 100644 --- a/frame/0/bli_l0_check.c +++ b/frame/0/bli_l0_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -61,7 +61,7 @@ GENFRONT( subsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi \ ) \ @@ -75,7 +75,7 @@ GENFRONT( invertsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* chi, \ obj_t* norm \ diff --git a/frame/0/bli_l0_oapi.c b/frame/0/bli_l0_oapi.c index c6e98f7b6..9a5492971 100644 --- a/frame/0/bli_l0_oapi.c +++ b/frame/0/bli_l0_oapi.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* absq \ @@ -81,7 +81,7 @@ GENFRONT( normfsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -120,7 +120,7 @@ GENFRONT( subsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi \ ) \ @@ -153,7 +153,7 @@ GENFRONT( invertsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -186,7 +186,7 @@ GENFRONT( sqrtsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ double* zeta_r, \ @@ -230,7 +230,7 @@ GENFRONT( getsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ double zeta_r, \ double zeta_i, \ @@ -264,7 +264,7 @@ GENFRONT( setsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* zeta_r, \ @@ -307,7 +307,7 @@ GENFRONT( unzipsc ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* zeta_r, \ obj_t* zeta_i, \ diff --git a/frame/0/bli_l0_tapi.c b/frame/0/bli_l0_tapi.c index 1a86ebd0a..620cad299 100644 --- a/frame/0/bli_l0_tapi.c +++ b/frame/0/bli_l0_tapi.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjchi, \ ctype* chi, \ @@ -64,7 +64,7 @@ INSERT_GENTFUNC_BASIC( subsc, subs ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjchi, \ ctype* chi \ @@ -85,7 +85,7 @@ INSERT_GENTFUNC_BASIC( invertsc, inverts ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjchi, \ ctype* chi, \ @@ -114,7 +114,7 @@ INSERT_GENTFUNC_BASIC( mulsc, scals ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype_r* absq \ @@ -143,7 +143,7 @@ INSERT_GENTFUNCR_BASIC0( absqsc ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype_r* norm \ @@ -161,7 +161,7 @@ INSERT_GENTFUNCR_BASIC0( normfsc ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype* psi \ @@ -179,7 +179,7 @@ INSERT_GENTFUNC_BASIC0( sqrtsc ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ double* zeta_r, \ @@ -197,7 +197,7 @@ INSERT_GENTFUNC_BASIC0( getsc ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ double zeta_r, \ double zeta_i, \ @@ -215,7 +215,7 @@ INSERT_GENTFUNC_BASIC0( setsc ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* chi, \ ctype_r* zeta_r, \ @@ -233,7 +233,7 @@ INSERT_GENTFUNCR_BASIC0( unzipsc ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype_r* zeta_r, \ ctype_r* zeta_i, \ diff --git a/frame/0/copysc/bli_copysc.c b/frame/0/copysc/bli_copysc.c index b01678877..3001aa6c7 100644 --- a/frame/0/copysc/bli_copysc.c +++ b/frame/0/copysc/bli_copysc.c @@ -55,7 +55,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,copysc); #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* chi, \ obj_t* psi \ @@ -103,7 +103,7 @@ GENFRONT( copysc ) #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chx,chy,varname) \ +void PASTEMAC2(chx,chy,varname) \ ( \ conj_t conjchi, \ void* chi, \ diff --git a/frame/1/bli_l1v_check.c b/frame/1/bli_l1v_check.c index e795f7e00..74b60febd 100644 --- a/frame/1/bli_l1v_check.c +++ b/frame/1/bli_l1v_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -59,7 +59,7 @@ GENFRONT( swapv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* index \ @@ -74,7 +74,7 @@ GENFRONT( amaxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -91,7 +91,7 @@ GENFRONT( axpbyv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -108,7 +108,7 @@ GENFRONT( scal2v ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y, \ @@ -124,7 +124,7 @@ GENFRONT( dotv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -142,7 +142,7 @@ GENFRONT( dotxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -156,7 +156,7 @@ GENFRONT( invertv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -172,7 +172,7 @@ GENFRONT( setv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1/bli_l1v_oapi.c b/frame/1/bli_l1v_oapi.c index 9c50d93ab..19e61bb7a 100644 --- a/frame/1/bli_l1v_oapi.c +++ b/frame/1/bli_l1v_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -90,7 +90,7 @@ GENFRONT( subv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* index \ @@ -133,7 +133,7 @@ GENFRONT( amaxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -197,7 +197,7 @@ GENFRONT( axpbyv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -255,7 +255,7 @@ GENFRONT( scal2v ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y, \ @@ -305,7 +305,7 @@ GENFRONT( dotv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -374,7 +374,7 @@ GENFRONT( dotxv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -413,7 +413,7 @@ GENFRONT( invertv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -467,7 +467,7 @@ GENFRONT( setv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -510,7 +510,7 @@ GENFRONT( swapv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1/bli_l1v_tapi.c b/frame/1/bli_l1v_tapi.c index 1127cefe4..5fdfdb91e 100644 --- a/frame/1/bli_l1v_tapi.c +++ b/frame/1/bli_l1v_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ @@ -81,7 +81,7 @@ INSERT_GENTFUNC_BASIC( subv, BLIS_SUBV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -115,7 +115,7 @@ INSERT_GENTFUNC_BASIC( amaxv, BLIS_AMAXV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ @@ -155,7 +155,7 @@ INSERT_GENTFUNC_BASIC( axpbyv, BLIS_AXPBYV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ @@ -195,7 +195,7 @@ INSERT_GENTFUNC_BASIC( scal2v, BLIS_SCAL2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -235,7 +235,7 @@ INSERT_GENTFUNC_BASIC( dotv, BLIS_DOTV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -279,7 +279,7 @@ INSERT_GENTFUNC_BASIC( dotxv, BLIS_DOTXV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx \ @@ -311,7 +311,7 @@ INSERT_GENTFUNC_BASIC( invertv, BLIS_INVERTV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjalpha, \ dim_t n, \ @@ -348,7 +348,7 @@ INSERT_GENTFUNC_BASIC( setv, BLIS_SETV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -381,7 +381,7 @@ INSERT_GENTFUNC_BASIC( swapv, BLIS_SWAPV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ dim_t n, \ diff --git a/frame/1/other/packv/bli_packv_unb_var1.c b/frame/1/other/packv/bli_packv_unb_var1.c index 5da136ae4..23b370949 100644 --- a/frame/1/other/packv/bli_packv_unb_var1.c +++ b/frame/1/other/packv/bli_packv_unb_var1.c @@ -81,7 +81,7 @@ void bli_packv_unb_var1( obj_t* c, #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t m, \ void* c, inc_t incc, \ diff --git a/frame/1/other/unpackv/bli_unpackv_unb_var1.c b/frame/1/other/unpackv/bli_unpackv_unb_var1.c index c23f6dc79..5dc1101b6 100644 --- a/frame/1/other/unpackv/bli_unpackv_unb_var1.c +++ b/frame/1/other/unpackv/bli_unpackv_unb_var1.c @@ -81,7 +81,7 @@ void bli_unpackv_unb_var1( obj_t* p, #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t m, \ void* p, inc_t incp, \ diff --git a/frame/1d/bli_l1d_check.c b/frame/1d/bli_l1d_check.c index 4745c8d17..908a410ad 100644 --- a/frame/1d/bli_l1d_check.c +++ b/frame/1d/bli_l1d_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -58,7 +58,7 @@ GENFRONT( subd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -75,7 +75,7 @@ GENFRONT( scal2d ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -89,7 +89,7 @@ GENFRONT( invertd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -107,7 +107,7 @@ GENFRONT( shiftd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1d/bli_l1d_oapi.c b/frame/1d/bli_l1d_oapi.c index f548410b6..1a8b8f124 100644 --- a/frame/1d/bli_l1d_oapi.c +++ b/frame/1d/bli_l1d_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -98,7 +98,7 @@ GENFRONT( subd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -164,7 +164,7 @@ GENFRONT( scal2d ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -208,7 +208,7 @@ GENFRONT( invertd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -267,7 +267,7 @@ GENFRONT( setd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -315,7 +315,7 @@ GENFRONT( setid ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -371,7 +371,7 @@ GENFRONT( shiftd ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1d/bli_l1d_tapi.c b/frame/1d/bli_l1d_tapi.c index 65a24f4cc..a8f9e844a 100644 --- a/frame/1d/bli_l1d_tapi.c +++ b/frame/1d/bli_l1d_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -121,7 +121,7 @@ INSERT_GENTFUNC_BASIC2( subd, subv, BLIS_SUBV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -200,7 +200,7 @@ INSERT_GENTFUNC_BASIC2( scal2d, scal2v, BLIS_SCAL2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ dim_t m, \ @@ -255,7 +255,7 @@ INSERT_GENTFUNC_BASIC2( invertd, invertv, BLIS_INVERTV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjalpha, \ doff_t diagoffx, \ @@ -315,7 +315,7 @@ INSERT_GENTFUNC_BASIC2( setd, setv, BLIS_SETV_KER ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ dim_t m, \ @@ -390,7 +390,7 @@ INSERT_GENTFUNCR_BASIC2( setid, setv, BLIS_SETV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ dim_t m, \ @@ -448,7 +448,7 @@ INSERT_GENTFUNC_BASIC2( shiftd, addv, BLIS_ADDV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ diff --git a/frame/1f/bli_l1f_oapi.c b/frame/1f/bli_l1f_oapi.c index 285be9370..d1e7f0dbe 100644 --- a/frame/1f/bli_l1f_oapi.c +++ b/frame/1f/bli_l1f_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alphax, \ obj_t* alphay, \ @@ -113,7 +113,7 @@ GENFRONT( axpy2v ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -182,7 +182,7 @@ GENFRONT( axpyf ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* xt, \ @@ -251,7 +251,7 @@ GENFRONT( dotaxpyv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* at, \ @@ -340,7 +340,7 @@ GENFRONT( dotxaxpyf ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/1f/bli_l1f_tapi.c b/frame/1f/bli_l1f_tapi.c index 787273982..332ff5af2 100644 --- a/frame/1f/bli_l1f_tapi.c +++ b/frame/1f/bli_l1f_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -87,7 +87,7 @@ INSERT_GENTFUNC_BASIC( axpy2v, BLIS_AXPY2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conja, \ conj_t conjx, \ @@ -131,7 +131,7 @@ INSERT_GENTFUNC_BASIC( axpyf, BLIS_AXPYF_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjxt, \ conj_t conjx, \ @@ -177,7 +177,7 @@ INSERT_GENTFUNC_BASIC( dotaxpyv, BLIS_DOTAXPYV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjat, \ conj_t conja, \ @@ -231,7 +231,7 @@ INSERT_GENTFUNC_BASIC( dotxaxpyf, BLIS_DOTXAXPYF_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjat, \ conj_t conjx, \ diff --git a/frame/1m/bli_l1m_check.c b/frame/1m/bli_l1m_check.c index e65ac1bbe..8914e43b1 100644 --- a/frame/1m/bli_l1m_check.c +++ b/frame/1m/bli_l1m_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* y \ @@ -58,7 +58,7 @@ GENFRONT( subm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -75,7 +75,7 @@ GENFRONT( scal2m ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -91,7 +91,7 @@ GENFRONT( setm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1m/bli_l1m_oapi.c b/frame/1m/bli_l1m_oapi.c index eb94e5aea..4bb0de784 100644 --- a/frame/1m/bli_l1m_oapi.c +++ b/frame/1m/bli_l1m_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* y \ @@ -100,7 +100,7 @@ GENFRONT( subm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -168,7 +168,7 @@ GENFRONT( scal2m ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -243,7 +243,7 @@ GENFRONT( scalm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x \ @@ -305,7 +305,7 @@ GENFRONT( setm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ @@ -375,7 +375,7 @@ GENFRONT( xpbym ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* beta, \ diff --git a/frame/1m/bli_l1m_tapi.c b/frame/1m/bli_l1m_tapi.c index 45a17182f..2b3c4bb4a 100644 --- a/frame/1m/bli_l1m_tapi.c +++ b/frame/1m/bli_l1m_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, auxker ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -108,7 +108,7 @@ INSERT_GENTFUNC_BASIC( subm, subd ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -177,7 +177,7 @@ INSERT_GENTFUNC_BASIC0( copym ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -247,7 +247,7 @@ INSERT_GENTFUNC_BASIC0( axpym ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -339,7 +339,7 @@ INSERT_GENTFUNC_BASIC0( scal2m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjalpha, \ doff_t diagoffx, \ @@ -385,7 +385,7 @@ INSERT_GENTFUNC_BASIC0( setm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -472,7 +472,7 @@ INSERT_GENTFUNC_BASIC0( xpbym ) #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC3(chx,chy,opname,EX_SUF) \ +void PASTEMAC3(chx,chy,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ diff --git a/frame/1m/bli_l1m_unb_var1.c b/frame/1m/bli_l1m_unb_var1.c index c9104c8d8..cb6098e3f 100644 --- a/frame/1m/bli_l1m_unb_var1.c +++ b/frame/1m/bli_l1m_unb_var1.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -157,7 +157,7 @@ INSERT_GENTFUNC_BASIC2( subm_unb_var1, subv, BLIS_SUBV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -276,7 +276,7 @@ INSERT_GENTFUNC_BASIC2( scal2m_unb_var1, scal2v, BLIS_SCAL2V_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjalpha, \ doff_t diagoffx, \ @@ -382,7 +382,7 @@ INSERT_GENTFUNC_BASIC2( setm_unb_var1, setv, BLIS_SETV_KER ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, kername, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -500,7 +500,7 @@ INSERT_GENTFUNC_BASIC2( xpbym_unb_var1, xpbyv, BLIS_XPBYV_KER ) #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chx,chy,opname) \ +void PASTEMAC2(chx,chy,opname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ diff --git a/frame/1m/packm/bli_packm_blk_var1.c b/frame/1m/packm/bli_packm_blk_var1.c index 54baec41f..3f753a914 100644 --- a/frame/1m/packm/bli_packm_blk_var1.c +++ b/frame/1m/packm/bli_packm_blk_var1.c @@ -276,7 +276,7 @@ void bli_packm_blk_var1 #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/packm/bli_packm_blk_var1_md.c b/frame/1m/packm/bli_packm_blk_var1_md.c index c0b5b4709..8d4906c50 100644 --- a/frame/1m/packm/bli_packm_blk_var1_md.c +++ b/frame/1m/packm/bli_packm_blk_var1_md.c @@ -57,7 +57,7 @@ typedef void (*FUNCPTR_T)( static FUNCPTR_T GENARRAY2_ALL(ftypes,packm_blk_var1_md); -BLIS_EXPORT_BLIS void bli_packm_blk_var1_md +void bli_packm_blk_var1_md ( obj_t* c, obj_t* p, @@ -164,7 +164,7 @@ BLIS_EXPORT_BLIS void bli_packm_blk_var1_md #undef GENTFUNC2 #define GENTFUNC2( ctype_c, ctype_p, chc, chp, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,chp,varname) \ +void PASTEMAC2(chc,chp,varname) \ ( \ trans_t transc, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_check.c b/frame/1m/packm/bli_packm_check.c index 2e0c059c7..e662a85df 100644 --- a/frame/1m/packm/bli_packm_check.c +++ b/frame/1m/packm/bli_packm_check.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_packm_init_check +void bli_packm_init_check ( obj_t* a, obj_t* p, @@ -57,7 +57,7 @@ BLIS_EXPORT_BLIS void bli_packm_init_check //bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_packm_int_check +void bli_packm_int_check ( obj_t* a, obj_t* p, diff --git a/frame/1m/packm/bli_packm_cxk.c b/frame/1m/packm/bli_packm_cxk.c index 9e82bfc8d..59f99dd18 100644 --- a/frame/1m/packm/bli_packm_cxk.c +++ b/frame/1m/packm/bli_packm_cxk.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_1er.c b/frame/1m/packm/bli_packm_cxk_1er.c index 8331acf1c..e583c8a82 100644 --- a/frame/1m/packm/bli_packm_cxk_1er.c +++ b/frame/1m/packm/bli_packm_cxk_1er.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_cxk_3mis.c b/frame/1m/packm/bli_packm_cxk_3mis.c index 900eefb50..9435f6a73 100644 --- a/frame/1m/packm/bli_packm_cxk_3mis.c +++ b/frame/1m/packm/bli_packm_cxk_3mis.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_4mi.c b/frame/1m/packm/bli_packm_cxk_4mi.c index 03f151681..c22f551cc 100644 --- a/frame/1m/packm/bli_packm_cxk_4mi.c +++ b/frame/1m/packm/bli_packm_cxk_4mi.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ dim_t panel_dim, \ diff --git a/frame/1m/packm/bli_packm_cxk_rih.c b/frame/1m/packm/bli_packm_cxk_rih.c index 62e4b5246..1f2c9f240 100644 --- a/frame/1m/packm/bli_packm_cxk_rih.c +++ b/frame/1m/packm/bli_packm_cxk_rih.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conja, \ pack_t schema, \ diff --git a/frame/1m/packm/bli_packm_int.c b/frame/1m/packm/bli_packm_int.c index c59781532..6dc9ec85a 100644 --- a/frame/1m/packm/bli_packm_int.c +++ b/frame/1m/packm/bli_packm_int.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_packm_int +void bli_packm_int ( obj_t* a, obj_t* p, diff --git a/frame/1m/packm/bli_packm_part.c b/frame/1m/packm/bli_packm_part.c index 09cedbed1..2fff4b7c8 100644 --- a/frame/1m/packm/bli_packm_part.c +++ b/frame/1m/packm/bli_packm_part.c @@ -38,7 +38,7 @@ // -- Matrix partitioning ------------------------------------------------------ -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_t2b( subpart_t requested_part, +void bli_packm_acquire_mpart_t2b( subpart_t requested_part, dim_t i, dim_t b, obj_t* obj, @@ -110,7 +110,7 @@ BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_t2b( subpart_t requested_part, -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_l2r( subpart_t requested_part, +void bli_packm_acquire_mpart_l2r( subpart_t requested_part, dim_t j, dim_t b, obj_t* obj, @@ -186,7 +186,7 @@ BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_l2r( subpart_t requested_part, -BLIS_EXPORT_BLIS void bli_packm_acquire_mpart_tl2br( subpart_t requested_part, +void bli_packm_acquire_mpart_tl2br( subpart_t requested_part, dim_t ij, dim_t b, obj_t* obj, diff --git a/frame/1m/packm/bli_packm_struc_cxk.c b/frame/1m/packm/bli_packm_struc_cxk.c index 5e7decea6..b86a9ebbd 100644 --- a/frame/1m/packm/bli_packm_struc_cxk.c +++ b/frame/1m/packm/bli_packm_struc_cxk.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -278,7 +278,7 @@ INSERT_GENTFUNC_BASIC( packm_struc_cxk, packm_cxk ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -532,7 +532,7 @@ INSERT_GENTFUNC_BASIC( packm_herm_cxk, packm_cxk ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_1er.c b/frame/1m/packm/bli_packm_struc_cxk_1er.c index 9a2c079c3..038ee1b8f 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_1er.c +++ b/frame/1m/packm/bli_packm_struc_cxk_1er.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -274,7 +274,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_1er, packm_cxk_1er ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -520,7 +520,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_1er, packm_cxk_1er ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_3mis.c b/frame/1m/packm/bli_packm_struc_cxk_3mis.c index 7530ad42b..9d01b3b40 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_3mis.c +++ b/frame/1m/packm/bli_packm_struc_cxk_3mis.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -338,7 +338,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_3mis, packm_cxk_3mis ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -657,7 +657,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_3mis, packm_cxk_3mis ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_4mi.c b/frame/1m/packm/bli_packm_struc_cxk_4mi.c index 80ce1ffb8..3df849921 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_4mi.c +++ b/frame/1m/packm/bli_packm_struc_cxk_4mi.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -308,7 +308,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_4mi, packm_cxk_4mi ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -612,7 +612,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_4mi, packm_cxk_4mi ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_md.c b/frame/1m/packm/bli_packm_struc_cxk_md.c index 8bae422a6..52a1f9817 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_md.c +++ b/frame/1m/packm/bli_packm_struc_cxk_md.c @@ -39,7 +39,7 @@ #undef GENTFUNC2 #define GENTFUNC2( ctype_c, ctype_p, chc, chp, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,chp,varname) \ +void PASTEMAC2(chc,chp,varname) \ ( \ conj_t conjc, \ pack_t schema, \ @@ -313,7 +313,7 @@ INSERT_GENTFUNC2_MIXDP0( packm_struc_cxk_md ) #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_p, cha, chp, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chp,opname) \ +void PASTEMAC2(cha,chp,opname) \ ( \ conj_t conja, \ dim_t m, \ @@ -440,7 +440,7 @@ INSERT_GENTFUNC2_MIXDP0( packm_cxk_1r_md ) #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_p, cha, chp, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chp,opname) \ +void PASTEMAC2(cha,chp,opname) \ ( \ conj_t conja, \ dim_t m, \ diff --git a/frame/1m/packm/bli_packm_struc_cxk_rih.c b/frame/1m/packm/bli_packm_struc_cxk_rih.c index e73970ab5..32a7ec1a7 100644 --- a/frame/1m/packm/bli_packm_struc_cxk_rih.c +++ b/frame/1m/packm/bli_packm_struc_cxk_rih.c @@ -37,7 +37,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -269,7 +269,7 @@ INSERT_GENTFUNCCO_BASIC( packm_struc_cxk_rih, packm_cxk_rih ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ @@ -522,7 +522,7 @@ INSERT_GENTFUNCCO_BASIC( packm_herm_cxk_rih, packm_cxk_rih ) #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffp, \ diff --git a/frame/1m/packm/bli_packm_thrinfo.c b/frame/1m/packm/bli_packm_thrinfo.c index 26637c0f3..92162c422 100644 --- a/frame/1m/packm/bli_packm_thrinfo.c +++ b/frame/1m/packm/bli_packm_thrinfo.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_packm_thrinfo_init +void bli_packm_thrinfo_init ( thrinfo_t* thread, thrcomm_t* ocomm, @@ -57,7 +57,7 @@ BLIS_EXPORT_BLIS void bli_packm_thrinfo_init ); } -BLIS_EXPORT_BLIS void bli_packm_thrinfo_init_single +void bli_packm_thrinfo_init_single ( thrinfo_t* thread ) diff --git a/frame/1m/packm/bli_packm_unb_var1.c b/frame/1m/packm/bli_packm_unb_var1.c index c6705b956..6e72b3e9d 100644 --- a/frame/1m/packm/bli_packm_unb_var1.c +++ b/frame/1m/packm/bli_packm_unb_var1.c @@ -125,7 +125,7 @@ void bli_packm_unb_var1 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/unpackm/bli_unpackm_blk_var1.c b/frame/1m/unpackm/bli_unpackm_blk_var1.c index 430efd45b..b2c862045 100644 --- a/frame/1m/unpackm/bli_unpackm_blk_var1.c +++ b/frame/1m/unpackm/bli_unpackm_blk_var1.c @@ -55,7 +55,7 @@ typedef void (*FUNCPTR_T)( static FUNCPTR_T GENARRAY(ftypes,unpackm_blk_var1); -BLIS_EXPORT_BLIS void bli_unpackm_blk_var1 +void bli_unpackm_blk_var1 ( obj_t* p, obj_t* c, @@ -126,7 +126,7 @@ BLIS_EXPORT_BLIS void bli_unpackm_blk_var1 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ struc_t strucc, \ doff_t diagoffc, \ diff --git a/frame/1m/unpackm/bli_unpackm_check.c b/frame/1m/unpackm/bli_unpackm_check.c index 19189bdbf..5bce60ed3 100644 --- a/frame/1m/unpackm/bli_unpackm_check.c +++ b/frame/1m/unpackm/bli_unpackm_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_unpackm_int_check +void bli_unpackm_int_check ( obj_t* p, obj_t* a, diff --git a/frame/1m/unpackm/bli_unpackm_cxk.c b/frame/1m/unpackm/bli_unpackm_cxk.c index 88dffd692..4423c41a2 100644 --- a/frame/1m/unpackm/bli_unpackm_cxk.c +++ b/frame/1m/unpackm/bli_unpackm_cxk.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjp, \ dim_t panel_dim, \ diff --git a/frame/1m/unpackm/bli_unpackm_int.c b/frame/1m/unpackm/bli_unpackm_int.c index 83b0acfbe..f4c8ab82d 100644 --- a/frame/1m/unpackm/bli_unpackm_int.c +++ b/frame/1m/unpackm/bli_unpackm_int.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_unpackm_int +void bli_unpackm_int ( obj_t* p, obj_t* a, diff --git a/frame/1m/unpackm/bli_unpackm_unb_var1.c b/frame/1m/unpackm/bli_unpackm_unb_var1.c index d7bb57e60..c1033c2cb 100644 --- a/frame/1m/unpackm/bli_unpackm_unb_var1.c +++ b/frame/1m/unpackm/bli_unpackm_unb_var1.c @@ -50,7 +50,7 @@ typedef void (*FUNCPTR_T)( static FUNCPTR_T GENARRAY(ftypes,unpackm_unb_var1); -BLIS_EXPORT_BLIS void bli_unpackm_unb_var1 +void bli_unpackm_unb_var1 ( obj_t* p, obj_t* c, @@ -98,7 +98,7 @@ BLIS_EXPORT_BLIS void bli_unpackm_unb_var1 #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname)( \ +void PASTEMAC(ch,varname)( \ doff_t diagoffp, \ uplo_t uplop, \ trans_t transp, \ diff --git a/frame/2/bli_l2_oapi.c b/frame/2/bli_l2_oapi.c index 6d4d14170..25acb4207 100644 --- a/frame/2/bli_l2_oapi.c +++ b/frame/2/bli_l2_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -116,7 +116,7 @@ GENFRONT( gemv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -182,7 +182,7 @@ GENFRONT( ger ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -256,7 +256,7 @@ GENFRONT( symv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -317,7 +317,7 @@ GENFRONT( syr ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* x, \ @@ -384,7 +384,7 @@ GENFRONT( syr2 ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/bli_l2_tapi.c b/frame/2/bli_l2_tapi.c index 6b7f5cd12..f6eb6c7d9 100644 --- a/frame/2/bli_l2_tapi.c +++ b/frame/2/bli_l2_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ trans_t transa, \ conj_t conjx, \ @@ -126,7 +126,7 @@ INSERT_GENTFUNC_BASIC3( gemv, gemv, gemv_unf_var1, gemv_unf_var2 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ conj_t conjx, \ conj_t conjy, \ @@ -178,7 +178,7 @@ INSERT_GENTFUNC_BASIC3( ger, ger, ger_unb_var1, ger_unb_var2 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conja, \ @@ -255,7 +255,7 @@ INSERT_GENTFUNC_BASIC4( symv, hemv, BLIS_NO_CONJUGATE, hemv_unf_var1, hemv_unf_v #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname, ftname, conjh, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conjx, \ @@ -319,7 +319,7 @@ INSERT_GENTFUNCR_BASIC4( her, her, BLIS_CONJUGATE, her_unb_var1, her_unb_var2 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conjx, \ @@ -376,7 +376,7 @@ INSERT_GENTFUNC_BASIC4( syr, her, BLIS_NO_CONJUGATE, her_unb_var1, her_unb_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, conjh, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ conj_t conjx, \ @@ -438,7 +438,7 @@ INSERT_GENTFUNC_BASIC4( syr2, her2, BLIS_NO_CONJUGATE, her2_unf_var1, her2_unf_v #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, ftname, rvarname, cvarname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/gemv/bli_gemv_unb_var1.c b/frame/2/gemv/bli_gemv_unb_var1.c index e3d5de14c..3f5681d2b 100644 --- a/frame/2/gemv/bli_gemv_unb_var1.c +++ b/frame/2/gemv/bli_gemv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_unb_var2.c b/frame/2/gemv/bli_gemv_unb_var2.c index 4bdad7ab2..8166aa417 100644 --- a/frame/2/gemv/bli_gemv_unb_var2.c +++ b/frame/2/gemv/bli_gemv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_unf_var1.c b/frame/2/gemv/bli_gemv_unf_var1.c index 65e00f32f..e392e830e 100644 --- a/frame/2/gemv/bli_gemv_unf_var1.c +++ b/frame/2/gemv/bli_gemv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_unf_var2.c b/frame/2/gemv/bli_gemv_unf_var2.c index 729826220..fe7702e4c 100644 --- a/frame/2/gemv/bli_gemv_unf_var2.c +++ b/frame/2/gemv/bli_gemv_unf_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/gemv/bli_gemv_var_oapi.c b/frame/2/gemv/bli_gemv_var_oapi.c index d137d21b0..2e746b417 100644 --- a/frame/2/gemv/bli_gemv_var_oapi.c +++ b/frame/2/gemv/bli_gemv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/gemv/other/bli_gemv_front.c b/frame/2/gemv/other/bli_gemv_front.c index a7f24610c..3fd1c8cf7 100644 --- a/frame/2/gemv/other/bli_gemv_front.c +++ b/frame/2/gemv/other/bli_gemv_front.c @@ -165,7 +165,7 @@ void bli_gemv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ trans_t transa, \ conj_t conjx, \ diff --git a/frame/2/ger/bli_ger_unb_var1.c b/frame/2/ger/bli_ger_unb_var1.c index d2af2a1b9..d6cda277e 100644 --- a/frame/2/ger/bli_ger_unb_var1.c +++ b/frame/2/ger/bli_ger_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/ger/bli_ger_unb_var2.c b/frame/2/ger/bli_ger_unb_var2.c index ed0ab0305..1590bfe5e 100644 --- a/frame/2/ger/bli_ger_unb_var2.c +++ b/frame/2/ger/bli_ger_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/ger/bli_ger_var_oapi.c b/frame/2/ger/bli_ger_var_oapi.c index 41e83fdaf..3fd95e89f 100644 --- a/frame/2/ger/bli_ger_var_oapi.c +++ b/frame/2/ger/bli_ger_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* x, \ diff --git a/frame/2/ger/other/bli_ger_front.c b/frame/2/ger/other/bli_ger_front.c index 8ec5549b8..8f641fe2e 100644 --- a/frame/2/ger/other/bli_ger_front.c +++ b/frame/2/ger/other/bli_ger_front.c @@ -129,7 +129,7 @@ void bli_ger_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ conj_t conjx, \ conj_t conjy, \ diff --git a/frame/2/hemv/bli_hemv_unb_var1.c b/frame/2/hemv/bli_hemv_unb_var1.c index dd6eebb76..ea5d478be 100644 --- a/frame/2/hemv/bli_hemv_unb_var1.c +++ b/frame/2/hemv/bli_hemv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unb_var2.c b/frame/2/hemv/bli_hemv_unb_var2.c index d75b05394..1f7346517 100644 --- a/frame/2/hemv/bli_hemv_unb_var2.c +++ b/frame/2/hemv/bli_hemv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unb_var3.c b/frame/2/hemv/bli_hemv_unb_var3.c index c2797faf4..6573e59fc 100644 --- a/frame/2/hemv/bli_hemv_unb_var3.c +++ b/frame/2/hemv/bli_hemv_unb_var3.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unb_var4.c b/frame/2/hemv/bli_hemv_unb_var4.c index 2b46b83e0..deabc3ab4 100644 --- a/frame/2/hemv/bli_hemv_unb_var4.c +++ b/frame/2/hemv/bli_hemv_unb_var4.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var1.c b/frame/2/hemv/bli_hemv_unf_var1.c index f95699068..d36dc0098 100644 --- a/frame/2/hemv/bli_hemv_unf_var1.c +++ b/frame/2/hemv/bli_hemv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var1a.c b/frame/2/hemv/bli_hemv_unf_var1a.c index b99f17bd1..31ab1515f 100644 --- a/frame/2/hemv/bli_hemv_unf_var1a.c +++ b/frame/2/hemv/bli_hemv_unf_var1a.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var3.c b/frame/2/hemv/bli_hemv_unf_var3.c index a1b2e984b..d8db9bc78 100644 --- a/frame/2/hemv/bli_hemv_unf_var3.c +++ b/frame/2/hemv/bli_hemv_unf_var3.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_unf_var3a.c b/frame/2/hemv/bli_hemv_unf_var3a.c index b2bd018d5..54ab0f6ce 100644 --- a/frame/2/hemv/bli_hemv_unf_var3a.c +++ b/frame/2/hemv/bli_hemv_unf_var3a.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conja, \ diff --git a/frame/2/hemv/bli_hemv_var_oapi.c b/frame/2/hemv/bli_hemv_var_oapi.c index 8d70f8ab1..845f288c3 100644 --- a/frame/2/hemv/bli_hemv_var_oapi.c +++ b/frame/2/hemv/bli_hemv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ conj_t conjh, \ obj_t* alpha, \ diff --git a/frame/2/hemv/other/bli_hemv_front.c b/frame/2/hemv/other/bli_hemv_front.c index 149d8d6db..1293f6b8e 100644 --- a/frame/2/hemv/other/bli_hemv_front.c +++ b/frame/2/hemv/other/bli_hemv_front.c @@ -162,7 +162,7 @@ void bli_hemv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ conj_t conja, \ diff --git a/frame/2/her/bli_her_unb_var1.c b/frame/2/her/bli_her_unb_var1.c index cdfd116ac..e7f718680 100644 --- a/frame/2/her/bli_her_unb_var1.c +++ b/frame/2/her/bli_her_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her/bli_her_unb_var2.c b/frame/2/her/bli_her_unb_var2.c index 90d6051dd..4b39e1df0 100644 --- a/frame/2/her/bli_her_unb_var2.c +++ b/frame/2/her/bli_her_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her/bli_her_var_oapi.c b/frame/2/her/bli_her_var_oapi.c index d063f368b..ffca2e71e 100644 --- a/frame/2/her/bli_her_var_oapi.c +++ b/frame/2/her/bli_her_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ conj_t conjh, \ obj_t* alpha, \ diff --git a/frame/2/her/other/bli_her_front.c b/frame/2/her/other/bli_her_front.c index 7f1a5dce6..7753b28cf 100644 --- a/frame/2/her/other/bli_her_front.c +++ b/frame/2/her/other/bli_her_front.c @@ -137,7 +137,7 @@ void bli_her_front #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unb_var1.c b/frame/2/her2/bli_her2_unb_var1.c index fdd06f26d..37423bfcb 100644 --- a/frame/2/her2/bli_her2_unb_var1.c +++ b/frame/2/her2/bli_her2_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unb_var2.c b/frame/2/her2/bli_her2_unb_var2.c index fa274f1ca..22d6de07a 100644 --- a/frame/2/her2/bli_her2_unb_var2.c +++ b/frame/2/her2/bli_her2_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unb_var3.c b/frame/2/her2/bli_her2_unb_var3.c index d176fb2af..297b9b702 100644 --- a/frame/2/her2/bli_her2_unb_var3.c +++ b/frame/2/her2/bli_her2_unb_var3.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unb_var4.c b/frame/2/her2/bli_her2_unb_var4.c index 0ebeef77c..58adb0e70 100644 --- a/frame/2/her2/bli_her2_unb_var4.c +++ b/frame/2/her2/bli_her2_unb_var4.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unf_var1.c b/frame/2/her2/bli_her2_unf_var1.c index 3abc1b316..a0aec48f7 100644 --- a/frame/2/her2/bli_her2_unf_var1.c +++ b/frame/2/her2/bli_her2_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_unf_var4.c b/frame/2/her2/bli_her2_unf_var4.c index 799f3485f..3dea31d53 100644 --- a/frame/2/her2/bli_her2_unf_var4.c +++ b/frame/2/her2/bli_her2_unf_var4.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uplo, \ conj_t conjx, \ diff --git a/frame/2/her2/bli_her2_var_oapi.c b/frame/2/her2/bli_her2_var_oapi.c index 22e05744e..2b26e5476 100644 --- a/frame/2/her2/bli_her2_var_oapi.c +++ b/frame/2/her2/bli_her2_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ conj_t conjh, \ obj_t* alpha, \ diff --git a/frame/2/her2/other/bli_her2_front.c b/frame/2/her2/other/bli_her2_front.c index 65bb2ab55..21c9027b5 100644 --- a/frame/2/her2/other/bli_her2_front.c +++ b/frame/2/her2/other/bli_her2_front.c @@ -154,7 +154,7 @@ void bli_her2_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/symv/other/bli_symv_front.c b/frame/2/symv/other/bli_symv_front.c index ffce1bac5..bac3f2243 100644 --- a/frame/2/symv/other/bli_symv_front.c +++ b/frame/2/symv/other/bli_symv_front.c @@ -163,7 +163,7 @@ void bli_symv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ conj_t conja, \ diff --git a/frame/2/syr/other/bli_syr_front.c b/frame/2/syr/other/bli_syr_front.c index 93ac6e6e9..efbd24cf8 100644 --- a/frame/2/syr/other/bli_syr_front.c +++ b/frame/2/syr/other/bli_syr_front.c @@ -139,7 +139,7 @@ void bli_syr_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/syr2/other/bli_syr2_front.c b/frame/2/syr2/other/bli_syr2_front.c index 547ff3f06..59a36f478 100644 --- a/frame/2/syr2/other/bli_syr2_front.c +++ b/frame/2/syr2/other/bli_syr2_front.c @@ -147,7 +147,7 @@ void bli_syr2_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ conj_t conjx, \ diff --git a/frame/2/trmv/bli_trmv_unb_var1.c b/frame/2/trmv/bli_trmv_unb_var1.c index e1b8711b5..31bfa6a83 100644 --- a/frame/2/trmv/bli_trmv_unb_var1.c +++ b/frame/2/trmv/bli_trmv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_unb_var2.c b/frame/2/trmv/bli_trmv_unb_var2.c index f6ab264a0..00d4d95f3 100644 --- a/frame/2/trmv/bli_trmv_unb_var2.c +++ b/frame/2/trmv/bli_trmv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_unf_var1.c b/frame/2/trmv/bli_trmv_unf_var1.c index 032856dfe..6dc3cea36 100644 --- a/frame/2/trmv/bli_trmv_unf_var1.c +++ b/frame/2/trmv/bli_trmv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_unf_var2.c b/frame/2/trmv/bli_trmv_unf_var2.c index 81ad30769..8bbd51820 100644 --- a/frame/2/trmv/bli_trmv_unf_var2.c +++ b/frame/2/trmv/bli_trmv_unf_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trmv/bli_trmv_var_oapi.c b/frame/2/trmv/bli_trmv_var_oapi.c index 38c5becb1..931eb2abb 100644 --- a/frame/2/trmv/bli_trmv_var_oapi.c +++ b/frame/2/trmv/bli_trmv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/trmv/other/bli_trmv_front.c b/frame/2/trmv/other/bli_trmv_front.c index 0b361b8a2..698f48710 100644 --- a/frame/2/trmv/other/bli_trmv_front.c +++ b/frame/2/trmv/other/bli_trmv_front.c @@ -137,7 +137,7 @@ void bli_trmv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_unb_var1.c b/frame/2/trsv/bli_trsv_unb_var1.c index 9b24333d3..c7493e33d 100644 --- a/frame/2/trsv/bli_trsv_unb_var1.c +++ b/frame/2/trsv/bli_trsv_unb_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_unb_var2.c b/frame/2/trsv/bli_trsv_unb_var2.c index def6d92e0..a78e7eef0 100644 --- a/frame/2/trsv/bli_trsv_unb_var2.c +++ b/frame/2/trsv/bli_trsv_unb_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_unf_var1.c b/frame/2/trsv/bli_trsv_unf_var1.c index df6913bbc..3b03b43e5 100644 --- a/frame/2/trsv/bli_trsv_unf_var1.c +++ b/frame/2/trsv/bli_trsv_unf_var1.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_unf_var2.c b/frame/2/trsv/bli_trsv_unf_var2.c index 2e9deea47..10741d291 100644 --- a/frame/2/trsv/bli_trsv_unf_var2.c +++ b/frame/2/trsv/bli_trsv_unf_var2.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/2/trsv/bli_trsv_var_oapi.c b/frame/2/trsv/bli_trsv_var_oapi.c index 3d1670335..4cf346acf 100644 --- a/frame/2/trsv/bli_trsv_var_oapi.c +++ b/frame/2/trsv/bli_trsv_var_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(varname) \ +void PASTEMAC0(varname) \ ( \ obj_t* alpha, \ obj_t* a, \ diff --git a/frame/2/trsv/other/bli_trsv_front.c b/frame/2/trsv/other/bli_trsv_front.c index 478dc94db..90a152e89 100644 --- a/frame/2/trsv/other/bli_trsv_front.c +++ b/frame/2/trsv/other/bli_trsv_front.c @@ -133,7 +133,7 @@ void bli_trsv_front #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploa, \ trans_t transa, \ diff --git a/frame/3/bli_l3_oapi.c b/frame/3/bli_l3_oapi.c index 5792638ef..d9ba27369 100644 --- a/frame/3/bli_l3_oapi.c +++ b/frame/3/bli_l3_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -88,7 +88,7 @@ GENFRONT( syr2k ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ side_t side, \ obj_t* alpha, \ @@ -132,7 +132,7 @@ GENFRONT( trmm3 ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -172,7 +172,7 @@ GENFRONT( syrk ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/3/bli_l3_prune.c b/frame/3/bli_l3_prune.c index 02f6d4f55..fa008fd15 100644 --- a/frame/3/bli_l3_prune.c +++ b/frame/3/bli_l3_prune.c @@ -56,7 +56,7 @@ void bli_l3_prune_unref_mparts_m #undef GENFRONT #define GENFRONT( dim ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(l3_prune_unref_mparts_,dim) \ +void PASTEMAC(l3_prune_unref_mparts_,dim) \ ( \ obj_t* a, \ obj_t* b, \ @@ -82,7 +82,7 @@ GENFRONT( k ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ +void PASTEMAC(opname,_prune_unref_mparts_m) \ ( \ obj_t* a, \ obj_t* b, \ @@ -91,7 +91,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ { \ /* No pruning is necessary for gemm. */ \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ +void PASTEMAC(opname,_prune_unref_mparts_n) \ ( \ obj_t* a, \ obj_t* b, \ @@ -100,7 +100,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ { \ /* No pruning is necessary for gemm. */ \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_k) \ +void PASTEMAC(opname,_prune_unref_mparts_k) \ ( \ obj_t* a, \ obj_t* b, \ @@ -117,7 +117,7 @@ GENFRONT( gemm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ +void PASTEMAC(opname,_prune_unref_mparts_m) \ ( \ obj_t* a, \ obj_t* ah, \ @@ -129,7 +129,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ subpartition of A accordingly. */ \ bli_prune_unref_mparts( c, BLIS_M, a, BLIS_M ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ +void PASTEMAC(opname,_prune_unref_mparts_n) \ ( \ obj_t* a, \ obj_t* ah, \ @@ -141,7 +141,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ subpartition of Ah accordingly. */ \ bli_prune_unref_mparts( c, BLIS_N, ah, BLIS_N ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_k) \ +void PASTEMAC(opname,_prune_unref_mparts_k) \ ( \ obj_t* a, \ obj_t* ah, \ @@ -159,7 +159,7 @@ GENFRONT( herk ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ +void PASTEMAC(opname,_prune_unref_mparts_m) \ ( \ obj_t* a, \ obj_t* b, \ @@ -171,7 +171,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_m) \ subpartition of C accordingly. */ \ bli_prune_unref_mparts( a, BLIS_M, c, BLIS_M ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ +void PASTEMAC(opname,_prune_unref_mparts_n) \ ( \ obj_t* a, \ obj_t* b, \ @@ -183,7 +183,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_n) \ subpartition of C accordingly. */ \ bli_prune_unref_mparts( b, BLIS_N, c, BLIS_N ); \ } \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_prune_unref_mparts_k) \ +void PASTEMAC(opname,_prune_unref_mparts_k) \ ( \ obj_t* a, \ obj_t* b, \ diff --git a/frame/3/bli_l3_tapi.c b/frame/3/bli_l3_tapi.c index e977a9d06..4eeba1971 100644 --- a/frame/3/bli_l3_tapi.c +++ b/frame/3/bli_l3_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ trans_t transa, \ trans_t transb, \ @@ -100,7 +100,7 @@ INSERT_GENTFUNC_BASIC0( gemm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, struca ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ side_t side, \ uplo_t uploa, \ @@ -163,7 +163,7 @@ INSERT_GENTFUNC_BASIC( symm, BLIS_SYMMETRIC ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -217,7 +217,7 @@ INSERT_GENTFUNCR_BASIC0( herk ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -278,7 +278,7 @@ INSERT_GENTFUNCR_BASIC0( her2k ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -331,7 +331,7 @@ INSERT_GENTFUNC_BASIC0( syrk ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -391,7 +391,7 @@ INSERT_GENTFUNC_BASIC0( syr2k ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ side_t side, \ uplo_t uploa, \ @@ -455,7 +455,7 @@ INSERT_GENTFUNC_BASIC0( trmm3 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ side_t side, \ uplo_t uploa, \ diff --git a/frame/3/bli_l3_ukr_oapi.c b/frame/3/bli_l3_ukr_oapi.c index 5b10cf6ab..a8191b1aa 100644 --- a/frame/3/bli_l3_ukr_oapi.c +++ b/frame/3/bli_l3_ukr_oapi.c @@ -37,7 +37,7 @@ #undef GENFRONT #define GENFRONT( tname, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -92,7 +92,7 @@ GENFRONT( gemm, gemm_ukernel ) #undef GENFRONT #define GENFRONT( tname, opname, opnamel, opnameu ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* alpha, \ obj_t* a1x, \ @@ -175,7 +175,7 @@ GENFRONT( gemmtrsm, gemmtrsm_ukernel, gemmtrsm_l_ukernel, gemmtrsm_u_ukernel ) #undef GENFRONT #define GENFRONT( tname, opname, opnamel, opnameu ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC0(opname) \ +void PASTEMAC0(opname) \ ( \ obj_t* a, \ obj_t* b, \ diff --git a/frame/3/bli_l3_ukr_tapi.c b/frame/3/bli_l3_ukr_tapi.c index 3f17ff6a7..67e33175b 100644 --- a/frame/3/bli_l3_ukr_tapi.c +++ b/frame/3/bli_l3_ukr_tapi.c @@ -37,7 +37,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, tname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -76,7 +76,7 @@ INSERT_GENTFUNC_BASIC2( gemm_ukernel, gemm, BLIS_GEMM_UKR ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, tname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t k, \ ctype* restrict alpha, \ @@ -118,7 +118,7 @@ INSERT_GENTFUNC_BASIC2( gemmtrsm_u_ukernel, gemmtrsm, BLIS_GEMMTRSM_U_UKR ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, tname, kerid ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ ctype* restrict a, \ ctype* restrict b, \ diff --git a/frame/3/gemm/bli_gemm_cntl.c b/frame/3/gemm/bli_gemm_cntl.c index 8e327f002..67c71e798 100644 --- a/frame/3/gemm/bli_gemm_cntl.c +++ b/frame/3/gemm/bli_gemm_cntl.c @@ -253,7 +253,7 @@ cntl_t* bli_gemmpb_cntl_create // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_gemm_cntl_free +void bli_gemm_cntl_free ( rntm_t* rntm, cntl_t* cntl, diff --git a/frame/3/gemm/bli_gemm_front.c b/frame/3/gemm/bli_gemm_front.c index 491cfba8a..97bc5c5d0 100644 --- a/frame/3/gemm/bli_gemm_front.c +++ b/frame/3/gemm/bli_gemm_front.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_gemm_front +void bli_gemm_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/gemm/bli_gemm_int.c b/frame/3/gemm/bli_gemm_int.c index 4f35de640..25a6215df 100644 --- a/frame/3/gemm/bli_gemm_int.c +++ b/frame/3/gemm/bli_gemm_int.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_gemm_int +void bli_gemm_int ( obj_t* alpha, obj_t* a, diff --git a/frame/3/gemm/bli_gemm_ker_var2.c b/frame/3/gemm/bli_gemm_ker_var2.c index 5b1dd30b6..41bb3f455 100644 --- a/frame/3/gemm/bli_gemm_ker_var2.c +++ b/frame/3/gemm/bli_gemm_ker_var2.c @@ -191,7 +191,7 @@ void bli_gemm_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/bli_gemm_ker_var2_md.c b/frame/3/gemm/bli_gemm_ker_var2_md.c index 6badf4a08..3428be9b4 100644 --- a/frame/3/gemm/bli_gemm_ker_var2_md.c +++ b/frame/3/gemm/bli_gemm_ker_var2_md.c @@ -192,7 +192,7 @@ void bli_gemm_ker_var2_md #undef GENTFUNC2 #define GENTFUNC2( ctype_c, ctype_e, chc, che, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chc,che,varname) \ +void PASTEMAC2(chc,che,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/bli_gemm_md_c2r_ref.c b/frame/3/gemm/bli_gemm_md_c2r_ref.c index ff4d0dee7..6198d85b2 100644 --- a/frame/3/gemm/bli_gemm_md_c2r_ref.c +++ b/frame/3/gemm/bli_gemm_md_c2r_ref.c @@ -39,7 +39,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ctype, ctype_r, ch, chr, opname, suf ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,suf) \ +void PASTEMAC2(ch,opname,suf) \ ( \ dim_t k, \ ctype* restrict alpha, \ diff --git a/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c b/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c index 619457752..e4b377b37 100644 --- a/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c +++ b/frame/3/gemm/ind/bli_gemm4mb_ker_var2.c @@ -138,7 +138,7 @@ void bli_gemm4mb_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c b/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c index 34bf0c656..09830753e 100644 --- a/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c +++ b/frame/3/gemm/ind/old/bli_gemm3m2_ker_var2.c @@ -134,7 +134,7 @@ void bli_gemm3m2_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var2.c b/frame/3/gemm/other/bli_gemm_ker_var2.c index 9de95a83b..6ae8df0c1 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var2.c +++ b/frame/3/gemm/other/bli_gemm_ker_var2.c @@ -159,7 +159,7 @@ void bli_gemm_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var2rr.c b/frame/3/gemm/other/bli_gemm_ker_var2rr.c index 111b3a9c1..a213e50fc 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var2rr.c +++ b/frame/3/gemm/other/bli_gemm_ker_var2rr.c @@ -160,7 +160,7 @@ void bli_gemm_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var2sl.c b/frame/3/gemm/other/bli_gemm_ker_var2sl.c index 68c53b22c..0d710bd73 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var2sl.c +++ b/frame/3/gemm/other/bli_gemm_ker_var2sl.c @@ -160,7 +160,7 @@ void bli_gemm_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ pack_t schema_a, \ pack_t schema_b, \ diff --git a/frame/3/gemm/other/bli_gemm_ker_var5.c b/frame/3/gemm/other/bli_gemm_ker_var5.c index 2298e631c..0d0c914d8 100644 --- a/frame/3/gemm/other/bli_gemm_ker_var5.c +++ b/frame/3/gemm/other/bli_gemm_ker_var5.c @@ -126,7 +126,7 @@ void bli_gemm_ker_var5( obj_t* a, #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, ukrtype ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname)( \ +void PASTEMAC(ch,varname)( \ dim_t m, \ dim_t n, \ dim_t k, \ diff --git a/frame/3/hemm/bli_hemm_front.c b/frame/3/hemm/bli_hemm_front.c index 8202d5cf0..5949a2e6c 100644 --- a/frame/3/hemm/bli_hemm_front.c +++ b/frame/3/hemm/bli_hemm_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_hemm_front +void bli_hemm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/her2k/bli_her2k_front.c b/frame/3/her2k/bli_her2k_front.c index 234b04e16..a99aa05c8 100644 --- a/frame/3/her2k/bli_her2k_front.c +++ b/frame/3/her2k/bli_her2k_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_her2k_front +void bli_her2k_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/herk/bli_herk_front.c b/frame/3/herk/bli_herk_front.c index 40020afb9..be0118f18 100644 --- a/frame/3/herk/bli_herk_front.c +++ b/frame/3/herk/bli_herk_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_herk_front +void bli_herk_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/herk/bli_herk_l_ker_var2.c b/frame/3/herk/bli_herk_l_ker_var2.c index 480595931..d077b8f89 100644 --- a/frame/3/herk/bli_herk_l_ker_var2.c +++ b/frame/3/herk/bli_herk_l_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_l_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/bli_herk_u_ker_var2.c b/frame/3/herk/bli_herk_u_ker_var2.c index 4cdca5cc0..b20a96df7 100644 --- a/frame/3/herk/bli_herk_u_ker_var2.c +++ b/frame/3/herk/bli_herk_u_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_u_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c b/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c index e6a59e248..38675b11b 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2.1looprr.c @@ -143,7 +143,7 @@ void bli_herk_l_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2.c b/frame/3/herk/other/bli_herk_l_ker_var2.c index 86df7455b..904da9f5e 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_l_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2rr.c b/frame/3/herk/other/bli_herk_l_ker_var2rr.c index 43772a3a5..a313f04b2 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2rr.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2rr.c @@ -146,7 +146,7 @@ void bli_herk_l_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_l_ker_var2sl.c b/frame/3/herk/other/bli_herk_l_ker_var2sl.c index c0dd268d8..f913cced2 100644 --- a/frame/3/herk/other/bli_herk_l_ker_var2sl.c +++ b/frame/3/herk/other/bli_herk_l_ker_var2sl.c @@ -146,7 +146,7 @@ void bli_herk_l_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c b/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c index 15be08932..cd4a4e7ad 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2.1looprr.c @@ -143,7 +143,7 @@ void bli_herk_u_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2.c b/frame/3/herk/other/bli_herk_u_ker_var2.c index 13fb5eb6e..0bdc0b0a4 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2.c @@ -143,7 +143,7 @@ void bli_herk_u_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2rr.c b/frame/3/herk/other/bli_herk_u_ker_var2rr.c index 1ac932763..4ffa8085c 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2rr.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2rr.c @@ -146,7 +146,7 @@ void bli_herk_u_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/herk/other/bli_herk_u_ker_var2sl.c b/frame/3/herk/other/bli_herk_u_ker_var2sl.c index 9ad7b8621..7af7ee56d 100644 --- a/frame/3/herk/other/bli_herk_u_ker_var2sl.c +++ b/frame/3/herk/other/bli_herk_u_ker_var2sl.c @@ -146,7 +146,7 @@ void bli_herk_u_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffc, \ pack_t schema_a, \ diff --git a/frame/3/symm/bli_symm_front.c b/frame/3/symm/bli_symm_front.c index cb59e1657..820c26fd1 100644 --- a/frame/3/symm/bli_symm_front.c +++ b/frame/3/symm/bli_symm_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_symm_front +void bli_symm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/syr2k/bli_syr2k_front.c b/frame/3/syr2k/bli_syr2k_front.c index 77300ba3d..3ccd28c5c 100644 --- a/frame/3/syr2k/bli_syr2k_front.c +++ b/frame/3/syr2k/bli_syr2k_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_syr2k_front +void bli_syr2k_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/syrk/bli_syrk_front.c b/frame/3/syrk/bli_syrk_front.c index f6388e523..534848e33 100644 --- a/frame/3/syrk/bli_syrk_front.c +++ b/frame/3/syrk/bli_syrk_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_syrk_front +void bli_syrk_front ( obj_t* alpha, obj_t* a, diff --git a/frame/3/trmm/bli_trmm_front.c b/frame/3/trmm/bli_trmm_front.c index 773f9639d..aee9d1d6f 100644 --- a/frame/3/trmm/bli_trmm_front.c +++ b/frame/3/trmm/bli_trmm_front.c @@ -35,7 +35,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trmm_front +void bli_trmm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trmm/bli_trmm_ll_ker_var2.c b/frame/3/trmm/bli_trmm_ll_ker_var2.c index c9162c349..98e62926c 100644 --- a/frame/3/trmm/bli_trmm_ll_ker_var2.c +++ b/frame/3/trmm/bli_trmm_ll_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/bli_trmm_lu_ker_var2.c b/frame/3/trmm/bli_trmm_lu_ker_var2.c index ca9c02e72..624604141 100644 --- a/frame/3/trmm/bli_trmm_lu_ker_var2.c +++ b/frame/3/trmm/bli_trmm_lu_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/bli_trmm_rl_ker_var2.c b/frame/3/trmm/bli_trmm_rl_ker_var2.c index c8985c135..117cf63c5 100644 --- a/frame/3/trmm/bli_trmm_rl_ker_var2.c +++ b/frame/3/trmm/bli_trmm_rl_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/bli_trmm_ru_ker_var2.c b/frame/3/trmm/bli_trmm_ru_ker_var2.c index a252fda5d..ea59959c7 100644 --- a/frame/3/trmm/bli_trmm_ru_ker_var2.c +++ b/frame/3/trmm/bli_trmm_ru_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ll_ker_var2.c b/frame/3/trmm/other/bli_trmm_ll_ker_var2.c index 74492ae00..3747a0dcf 100644 --- a/frame/3/trmm/other/bli_trmm_ll_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_ll_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c index 58a53e93a..ea979d7c3 100644 --- a/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_ll_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_ll_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c index 209d231b2..e612b340c 100644 --- a/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_ll_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_ll_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_lu_ker_var2.c b/frame/3/trmm/other/bli_trmm_lu_ker_var2.c index 496d7c3db..9a4e36b65 100644 --- a/frame/3/trmm/other/bli_trmm_lu_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_lu_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c index c4e019c8f..551bc097d 100644 --- a/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_lu_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_lu_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c index 4bc995fcf..132c732d6 100644 --- a/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_lu_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_lu_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_rl_ker_var2.c b/frame/3/trmm/other/bli_trmm_rl_ker_var2.c index 6482bcbab..b29df0850 100644 --- a/frame/3/trmm/other/bli_trmm_rl_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_rl_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c index 23162fa6c..14b235918 100644 --- a/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_rl_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_rl_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c index 7952cb8c4..cf4a6e086 100644 --- a/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_rl_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_rl_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ru_ker_var2.c b/frame/3/trmm/other/bli_trmm_ru_ker_var2.c index 9a39776d4..602f4cc3b 100644 --- a/frame/3/trmm/other/bli_trmm_ru_ker_var2.c +++ b/frame/3/trmm/other/bli_trmm_ru_ker_var2.c @@ -137,7 +137,7 @@ void bli_trmm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c b/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c index 3723dde6d..03eaa6ea6 100644 --- a/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c +++ b/frame/3/trmm/other/bli_trmm_ru_ker_var2rr.c @@ -140,7 +140,7 @@ void bli_trmm_ru_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c b/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c index 50b9050cd..2411a24a4 100644 --- a/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c +++ b/frame/3/trmm/other/bli_trmm_ru_ker_var2sl.c @@ -140,7 +140,7 @@ void bli_trmm_ru_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trmm3/bli_trmm3_front.c b/frame/3/trmm3/bli_trmm3_front.c index ff508d0b5..39067ac0b 100644 --- a/frame/3/trmm3/bli_trmm3_front.c +++ b/frame/3/trmm3/bli_trmm3_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trmm3_front +void bli_trmm3_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trsm/bli_trsm_cntl.c b/frame/3/trsm/bli_trsm_cntl.c index 68ae074c0..9b59cae61 100644 --- a/frame/3/trsm/bli_trsm_cntl.c +++ b/frame/3/trsm/bli_trsm_cntl.c @@ -301,7 +301,7 @@ cntl_t* bli_trsm_r_cntl_create return trsm_cntl_vl_mm; } -BLIS_EXPORT_BLIS void bli_trsm_cntl_free +void bli_trsm_cntl_free ( rntm_t* rntm, cntl_t* cntl, diff --git a/frame/3/trsm/bli_trsm_front.c b/frame/3/trsm/bli_trsm_front.c index 932a44d24..5093d1a4a 100644 --- a/frame/3/trsm/bli_trsm_front.c +++ b/frame/3/trsm/bli_trsm_front.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trsm_front +void bli_trsm_front ( side_t side, obj_t* alpha, diff --git a/frame/3/trsm/bli_trsm_int.c b/frame/3/trsm/bli_trsm_int.c index c94b70ec3..dc39e69e0 100644 --- a/frame/3/trsm/bli_trsm_int.c +++ b/frame/3/trsm/bli_trsm_int.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_trsm_int +void bli_trsm_int ( obj_t* alpha, obj_t* a, diff --git a/frame/3/trsm/bli_trsm_ll_ker_var2.c b/frame/3/trsm/bli_trsm_ll_ker_var2.c index 19292a2f3..37823d7bf 100644 --- a/frame/3/trsm/bli_trsm_ll_ker_var2.c +++ b/frame/3/trsm/bli_trsm_ll_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/bli_trsm_lu_ker_var2.c b/frame/3/trsm/bli_trsm_lu_ker_var2.c index 94f3180ae..853bccf91 100644 --- a/frame/3/trsm/bli_trsm_lu_ker_var2.c +++ b/frame/3/trsm/bli_trsm_lu_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/bli_trsm_rl_ker_var2.c b/frame/3/trsm/bli_trsm_rl_ker_var2.c index 14fa2a30a..87e1a0b28 100644 --- a/frame/3/trsm/bli_trsm_rl_ker_var2.c +++ b/frame/3/trsm/bli_trsm_rl_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trsm/bli_trsm_ru_ker_var2.c b/frame/3/trsm/bli_trsm_ru_ker_var2.c index a7a65264a..71a72ea24 100644 --- a/frame/3/trsm/bli_trsm_ru_ker_var2.c +++ b/frame/3/trsm/bli_trsm_ru_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ll_ker_var2.c b/frame/3/trsm/other/bli_trsm_ll_ker_var2.c index f58602903..1c4b0b5c7 100644 --- a/frame/3/trsm/other/bli_trsm_ll_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_ll_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ll_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c b/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c index ffb4102fd..3891bffc0 100644 --- a/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c +++ b/frame/3/trsm/other/bli_trsm_ll_ker_var2rr.c @@ -143,7 +143,7 @@ void bli_trsm_ll_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c b/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c index 9065c1d10..1bc2f6e42 100644 --- a/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c +++ b/frame/3/trsm/other/bli_trsm_ll_ker_var2sl.c @@ -143,7 +143,7 @@ void bli_trsm_ll_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_lu_ker_var2.c b/frame/3/trsm/other/bli_trsm_lu_ker_var2.c index e7a0c956c..673e1eaa3 100644 --- a/frame/3/trsm/other/bli_trsm_lu_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_lu_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_lu_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c b/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c index 675a2ab19..72761ee54 100644 --- a/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c +++ b/frame/3/trsm/other/bli_trsm_lu_ker_var2rr.c @@ -143,7 +143,7 @@ void bli_trsm_lu_ker_var2rr #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c b/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c index 386c87b37..491ae8198 100644 --- a/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c +++ b/frame/3/trsm/other/bli_trsm_lu_ker_var2sl.c @@ -143,7 +143,7 @@ void bli_trsm_lu_ker_var2sl #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffa, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_rl_ker_var2.c b/frame/3/trsm/other/bli_trsm_rl_ker_var2.c index 97509d01b..3293289a1 100644 --- a/frame/3/trsm/other/bli_trsm_rl_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_rl_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_rl_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/3/trsm/other/bli_trsm_ru_ker_var2.c b/frame/3/trsm/other/bli_trsm_ru_ker_var2.c index 8fa33210c..9726fd467 100644 --- a/frame/3/trsm/other/bli_trsm_ru_ker_var2.c +++ b/frame/3/trsm/other/bli_trsm_ru_ker_var2.c @@ -140,7 +140,7 @@ void bli_trsm_ru_ker_var2 #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffb, \ pack_t schema_a, \ diff --git a/frame/base/bli_error.c b/frame/base/bli_error.c index 0a10ba2cf..8ed386af5 100644 --- a/frame/base/bli_error.c +++ b/frame/base/bli_error.c @@ -143,7 +143,7 @@ errlev_t bli_error_checking_level( void ) return bli_err_chk_level; } -BLIS_EXPORT_BLIS void bli_error_checking_level_set( errlev_t new_level ) +void bli_error_checking_level_set( errlev_t new_level ) { err_t e_val; diff --git a/frame/base/bli_getopt.c b/frame/base/bli_getopt.c index 3ce8ea81c..222223484 100644 --- a/frame/base/bli_getopt.c +++ b/frame/base/bli_getopt.c @@ -37,7 +37,7 @@ static const char OPT_MARKER = '-'; -BLIS_EXPORT_BLIS void bli_getopt_init_state( int opterr, getopt_t* state ) +void bli_getopt_init_state( int opterr, getopt_t* state ) { state->optarg = NULL; state->optind = 1; diff --git a/frame/base/bli_machval.c b/frame/base/bli_machval.c index 495d20b01..e26c5a4d8 100644 --- a/frame/base/bli_machval.c +++ b/frame/base/bli_machval.c @@ -72,7 +72,7 @@ void bli_machval( machval_t mval, #undef GENTFUNCR #define GENTFUNCR( ctype_v, ctype_vr, chv, chvr, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(chv,opname) \ +void PASTEMAC(chv,opname) \ ( \ machval_t mval, \ void* v \ diff --git a/frame/base/bli_malloc.c b/frame/base/bli_malloc.c index f586e26f7..25ebeb1e0 100644 --- a/frame/base/bli_malloc.c +++ b/frame/base/bli_malloc.c @@ -249,7 +249,7 @@ void bli_ffree_noalign // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_fmalloc_align_check +void bli_fmalloc_align_check ( malloc_ft f, size_t size, diff --git a/frame/base/bli_setgetij.c b/frame/base/bli_setgetij.c index 0830b8ae8..744e24c27 100644 --- a/frame/base/bli_setgetij.c +++ b/frame/base/bli_setgetij.c @@ -88,7 +88,7 @@ err_t bli_setijm #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ double ar, \ double ai, \ @@ -182,7 +182,7 @@ err_t bli_getijm #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ dim_t i, \ dim_t j, \ diff --git a/frame/base/cast/bli_castm.c b/frame/base/cast/bli_castm.c index 0e04dc175..64db75d24 100644 --- a/frame/base/cast/bli_castm.c +++ b/frame/base/cast/bli_castm.c @@ -54,7 +54,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,castm); // Define object-based interface. // -BLIS_EXPORT_BLIS void bli_castm +void bli_castm ( obj_t* a, obj_t* b @@ -115,7 +115,7 @@ BLIS_EXPORT_BLIS void bli_castm #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_b, cha, chb, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chb,opname) \ +void PASTEMAC2(cha,chb,opname) \ ( \ trans_t transa, \ dim_t m, \ @@ -219,7 +219,7 @@ INSERT_GENTFUNC2_MIXDP0( castm ) // Define object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castm_check +void bli_castm_check ( obj_t* a, obj_t* b diff --git a/frame/base/cast/bli_castnzm.c b/frame/base/cast/bli_castnzm.c index 04b04e147..a50bdfc15 100644 --- a/frame/base/cast/bli_castnzm.c +++ b/frame/base/cast/bli_castnzm.c @@ -54,7 +54,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,castnzm); // Define object-based interface. // -BLIS_EXPORT_BLIS void bli_castnzm +void bli_castnzm ( obj_t* a, obj_t* b @@ -115,7 +115,7 @@ BLIS_EXPORT_BLIS void bli_castnzm #undef GENTFUNC2 #define GENTFUNC2( ctype_a, ctype_b, cha, chb, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(cha,chb,opname) \ +void PASTEMAC2(cha,chb,opname) \ ( \ trans_t transa, \ dim_t m, \ @@ -219,7 +219,7 @@ INSERT_GENTFUNC2_MIXDP0( castnzm ) // Define object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castnzm_check +void bli_castnzm_check ( obj_t* a, obj_t* b diff --git a/frame/base/cast/bli_castv.c b/frame/base/cast/bli_castv.c index f07617ac8..213c960d8 100644 --- a/frame/base/cast/bli_castv.c +++ b/frame/base/cast/bli_castv.c @@ -53,7 +53,7 @@ static FUNCPTR_T GENARRAY2_ALL(ftypes,castv); // Define object-based interface. // -BLIS_EXPORT_BLIS void bli_castv +void bli_castv ( obj_t* x, obj_t* y @@ -110,7 +110,7 @@ BLIS_EXPORT_BLIS void bli_castv #undef GENTFUNC2 #define GENTFUNC2( ctype_x, ctype_y, chx, chy, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(chx,chy,opname) \ +void PASTEMAC2(chx,chy,opname) \ ( \ conj_t conjx, \ dim_t n, \ @@ -173,7 +173,7 @@ INSERT_GENTFUNC2_MIXDP0( castv ) // Define object-based _check() function. // -BLIS_EXPORT_BLIS void bli_castv_check +void bli_castv_check ( obj_t* x, obj_t* y diff --git a/frame/base/cast/old/bli_cast_check.c b/frame/base/cast/old/bli_cast_check.c index 7b2610a92..b1184c8e4 100644 --- a/frame/base/cast/old/bli_cast_check.c +++ b/frame/base/cast/old/bli_cast_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_castm_check +void bli_castm_check ( obj_t* a, obj_t* b @@ -80,7 +80,7 @@ BLIS_EXPORT_BLIS void bli_castm_check bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_castv_check +void bli_castv_check ( obj_t* x, obj_t* y diff --git a/frame/base/check/bli_obj_check.c b/frame/base/check/bli_obj_check.c index 0f1e86f40..a971fa19a 100644 --- a/frame/base/check/bli_obj_check.c +++ b/frame/base/check/bli_obj_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_obj_create_check( num_t dt, +void bli_obj_create_check( num_t dt, dim_t m, dim_t n, inc_t rs, @@ -53,7 +53,7 @@ BLIS_EXPORT_BLIS void bli_obj_create_check( num_t dt, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_create_without_buffer_check( num_t dt, +void bli_obj_create_without_buffer_check( num_t dt, dim_t m, dim_t n, obj_t* obj ) @@ -67,7 +67,7 @@ BLIS_EXPORT_BLIS void bli_obj_create_without_buffer_check( num_t dt, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_alloc_buffer_check( inc_t rs, +void bli_obj_alloc_buffer_check( inc_t rs, inc_t cs, inc_t is, obj_t* obj ) @@ -83,7 +83,7 @@ BLIS_EXPORT_BLIS void bli_obj_alloc_buffer_check( inc_t rs, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_attach_buffer_check( void* p, +void bli_obj_attach_buffer_check( void* p, inc_t rs, inc_t cs, inc_t is, @@ -109,7 +109,7 @@ BLIS_EXPORT_BLIS void bli_obj_attach_buffer_check( void* p, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_create_scalar_check( num_t dt, +void bli_obj_create_scalar_check( num_t dt, obj_t* obj ) { err_t e_val; @@ -121,7 +121,7 @@ BLIS_EXPORT_BLIS void bli_obj_create_scalar_check( num_t dt, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_free_check( obj_t* obj ) +void bli_obj_free_check( obj_t* obj ) { //err_t e_val; @@ -131,7 +131,7 @@ BLIS_EXPORT_BLIS void bli_obj_free_check( obj_t* obj ) //bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_create_const_check( double value, obj_t* obj ) +void bli_obj_create_const_check( double value, obj_t* obj ) { err_t e_val; @@ -158,7 +158,7 @@ void bli_obj_create_const_copy_of_check( obj_t* a, obj_t* b ) } #endif -BLIS_EXPORT_BLIS void bli_dt_size_check( num_t dt ) +void bli_dt_size_check( num_t dt ) { err_t e_val; @@ -166,7 +166,7 @@ BLIS_EXPORT_BLIS void bli_dt_size_check( num_t dt ) bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_dt_string_check( num_t dt ) +void bli_dt_string_check( num_t dt ) { err_t e_val; @@ -174,7 +174,7 @@ BLIS_EXPORT_BLIS void bli_dt_string_check( num_t dt ) bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_dt_union_check( num_t dt1, num_t dt2 ) +void bli_dt_union_check( num_t dt1, num_t dt2 ) { err_t e_val; @@ -185,7 +185,7 @@ BLIS_EXPORT_BLIS void bli_dt_union_check( num_t dt1, num_t dt2 ) bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_obj_print_check( char* label, obj_t* obj ) +void bli_obj_print_check( char* label, obj_t* obj ) { err_t e_val; diff --git a/frame/base/check/bli_part_check.c b/frame/base/check/bli_part_check.c index a50a1705d..6d9aa37b9 100644 --- a/frame/base/check/bli_part_check.c +++ b/frame/base/check/bli_part_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_acquire_mpart_t2b_check( subpart_t requested_part, +void bli_acquire_mpart_t2b_check( subpart_t requested_part, dim_t i, dim_t b, obj_t* obj, @@ -52,7 +52,7 @@ BLIS_EXPORT_BLIS void bli_acquire_mpart_t2b_check( subpart_t requested_part, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_acquire_mpart_l2r_check( subpart_t requested_part, +void bli_acquire_mpart_l2r_check( subpart_t requested_part, dim_t j, dim_t b, obj_t* obj, @@ -70,7 +70,7 @@ BLIS_EXPORT_BLIS void bli_acquire_mpart_l2r_check( subpart_t requested_part, bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_acquire_mpart_tl2br_check( subpart_t requested_part, +void bli_acquire_mpart_tl2br_check( subpart_t requested_part, dim_t ij, dim_t b, obj_t* obj, diff --git a/frame/base/proj/bli_projm.c b/frame/base/proj/bli_projm.c index 2e458cbcd..949bc2cc9 100644 --- a/frame/base/proj/bli_projm.c +++ b/frame/base/proj/bli_projm.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_projm +void bli_projm ( obj_t* a, obj_t* b @@ -86,7 +86,7 @@ BLIS_EXPORT_BLIS void bli_projm // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_projm_check +void bli_projm_check ( obj_t* a, obj_t* b diff --git a/frame/base/proj/bli_projv.c b/frame/base/proj/bli_projv.c index d27746f79..9a6587e5b 100644 --- a/frame/base/proj/bli_projv.c +++ b/frame/base/proj/bli_projv.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_projv +void bli_projv ( obj_t* x, obj_t* y @@ -86,7 +86,7 @@ BLIS_EXPORT_BLIS void bli_projv // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_projv_check +void bli_projv_check ( obj_t* x, obj_t* y diff --git a/frame/base/proj/old/bli_proj_check.c b/frame/base/proj/old/bli_proj_check.c index 9eb3dd4c7..9ffeef653 100644 --- a/frame/base/proj/old/bli_proj_check.c +++ b/frame/base/proj/old/bli_proj_check.c @@ -34,7 +34,7 @@ #include "blis.h" -BLIS_EXPORT_BLIS void bli_projm_check +void bli_projm_check ( obj_t* a, obj_t* b @@ -73,7 +73,7 @@ BLIS_EXPORT_BLIS void bli_projm_check bli_check_error_code( e_val ); } -BLIS_EXPORT_BLIS void bli_projv_check +void bli_projv_check ( obj_t* x, obj_t* y diff --git a/frame/compat/attic/bla_gbmv.c b/frame/compat/attic/bla_gbmv.c index 09f01d16f..0d903fa43 100644 --- a/frame/compat/attic/bla_gbmv.c +++ b/frame/compat/attic/bla_gbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* transa, \ f77_int* m, \ f77_int* n, \ diff --git a/frame/compat/attic/bla_hbmv.c b/frame/compat/attic/bla_hbmv.c index 1bc0482c2..e34313394 100644 --- a/frame/compat/attic/bla_hbmv.c +++ b/frame/compat/attic/bla_hbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ f77_int* k, \ diff --git a/frame/compat/attic/bla_hpmv.c b/frame/compat/attic/bla_hpmv.c index 27fee32e2..d53da2e4e 100644 --- a/frame/compat/attic/bla_hpmv.c +++ b/frame/compat/attic/bla_hpmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_hpr.c b/frame/compat/attic/bla_hpr.c index 21ec33e63..c0205f41b 100644 --- a/frame/compat/attic/bla_hpr.c +++ b/frame/compat/attic/bla_hpr.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype_r* alpha, \ diff --git a/frame/compat/attic/bla_hpr2.c b/frame/compat/attic/bla_hpr2.c index 882db3b28..2153857d1 100644 --- a/frame/compat/attic/bla_hpr2.c +++ b/frame/compat/attic/bla_hpr2.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_rot.c b/frame/compat/attic/bla_rot.c index 0fdb9fa4b..5c97d3961 100644 --- a/frame/compat/attic/bla_rot.c +++ b/frame/compat/attic/bla_rot.c @@ -41,7 +41,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_xy, ftype_r, chxy, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF772(chxy,chr,blasname)( \ +void PASTEF772(chxy,chr,blasname)( \ f77_int* n, \ ftype_xy* x, f77_int* incx, \ ftype_xy* y, f77_int* incy, \ diff --git a/frame/compat/attic/bla_rotg.c b/frame/compat/attic/bla_rotg.c index 317987f8e..f45ef9810 100644 --- a/frame/compat/attic/bla_rotg.c +++ b/frame/compat/attic/bla_rotg.c @@ -41,7 +41,7 @@ #undef GENTFUNCR #define GENTFUNCR( ftype_xy, ftype_r, chxy, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(chxy,blasname)( \ +void PASTEF77(chxy,blasname)( \ ftype_xy* x, \ ftype_xy* y, \ ftype_r* c, \ diff --git a/frame/compat/attic/bla_rotm.c b/frame/compat/attic/bla_rotm.c index 3626e2897..5660f7238 100644 --- a/frame/compat/attic/bla_rotm.c +++ b/frame/compat/attic/bla_rotm.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_int* n, \ ftype* x, f77_int* incx, \ ftype* y, f77_int* incy, \ diff --git a/frame/compat/attic/bla_rotmg.c b/frame/compat/attic/bla_rotmg.c index 5a662283b..5130cb6e5 100644 --- a/frame/compat/attic/bla_rotmg.c +++ b/frame/compat/attic/bla_rotmg.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ ftype* d1, \ ftype* d2, \ ftype* x, \ diff --git a/frame/compat/attic/bla_sbmv.c b/frame/compat/attic/bla_sbmv.c index 8aca3c8e4..8aa1e63a4 100644 --- a/frame/compat/attic/bla_sbmv.c +++ b/frame/compat/attic/bla_sbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ f77_int* k, \ diff --git a/frame/compat/attic/bla_spmv.c b/frame/compat/attic/bla_spmv.c index 12896d2d0..2e562da97 100644 --- a/frame/compat/attic/bla_spmv.c +++ b/frame/compat/attic/bla_spmv.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_spr.c b/frame/compat/attic/bla_spr.c index 2b4431395..7c2a9e93c 100644 --- a/frame/compat/attic/bla_spr.c +++ b/frame/compat/attic/bla_spr.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_spr2.c b/frame/compat/attic/bla_spr2.c index 729742c0b..08770c4f7 100644 --- a/frame/compat/attic/bla_spr2.c +++ b/frame/compat/attic/bla_spr2.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_int* m, \ ftype* alpha, \ diff --git a/frame/compat/attic/bla_tbmv.c b/frame/compat/attic/bla_tbmv.c index 159f907fa..95765d59b 100644 --- a/frame/compat/attic/bla_tbmv.c +++ b/frame/compat/attic/bla_tbmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/attic/bla_tbsv.c b/frame/compat/attic/bla_tbsv.c index dffe53375..eb4be901f 100644 --- a/frame/compat/attic/bla_tbsv.c +++ b/frame/compat/attic/bla_tbsv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/attic/bla_tpmv.c b/frame/compat/attic/bla_tpmv.c index a913875ba..4abe6ba46 100644 --- a/frame/compat/attic/bla_tpmv.c +++ b/frame/compat/attic/bla_tpmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/attic/bla_tpsv.c b/frame/compat/attic/bla_tpsv.c index 63900b3ab..f1a039c66 100644 --- a/frame/compat/attic/bla_tpsv.c +++ b/frame/compat/attic/bla_tpsv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname)( \ +void PASTEF77(ch,blasname)( \ f77_char* uploa, \ f77_char* transa, \ f77_char* diaga, \ diff --git a/frame/compat/bla_amax.c b/frame/compat/bla_amax.c index ef2ac46d0..9fcce920b 100644 --- a/frame/compat/bla_amax.c +++ b/frame/compat/bla_amax.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype_x, chx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS f77_int PASTEF772(i,chx,blasname) \ +f77_int PASTEF772(i,chx,blasname) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx \ diff --git a/frame/compat/bla_asum.c b/frame/compat/bla_asum.c index 920dd823d..8e71bfa8c 100644 --- a/frame/compat/bla_asum.c +++ b/frame/compat/bla_asum.c @@ -41,7 +41,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS ftype_r PASTEF772(chr,chx,blasname) \ +ftype_r PASTEF772(chr,chx,blasname) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx \ diff --git a/frame/compat/bla_axpy.c b/frame/compat/bla_axpy.c index abe4c0da7..e3c67fd55 100644 --- a/frame/compat/bla_axpy.c +++ b/frame/compat/bla_axpy.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_int* n, \ const ftype* alpha, \ diff --git a/frame/compat/bla_copy.c b/frame/compat/bla_copy.c index 2d0f50ca3..d9d3b7cce 100644 --- a/frame/compat/bla_copy.c +++ b/frame/compat/bla_copy.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_int* n, \ const ftype* x, const f77_int* incx, \ diff --git a/frame/compat/bla_dot.c b/frame/compat/bla_dot.c index 453c7aec8..dbab039d1 100644 --- a/frame/compat/bla_dot.c +++ b/frame/compat/bla_dot.c @@ -41,7 +41,7 @@ #undef GENTFUNCDOT #define GENTFUNCDOT( ftype, ch, chc, blis_conjx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS ftype PASTEF772(ch,blasname,chc) \ +ftype PASTEF772(ch,blasname,chc) \ ( \ const f77_int* n, \ const ftype* x, const f77_int* incx, \ @@ -93,7 +93,7 @@ INSERT_GENTFUNCDOT_BLAS( dot, dotv ) // Input vectors stored in single precision, computed in double precision, // with result returned in single precision. -BLIS_EXPORT_BLAS float PASTEF77(sd,sdot) +float PASTEF77(sd,sdot) ( const f77_int* n, const float* sb, @@ -109,7 +109,7 @@ BLIS_EXPORT_BLAS float PASTEF77(sd,sdot) // Input vectors stored in single precision, computed in double precision, // with result returned in double precision. -BLIS_EXPORT_BLAS double PASTEF77(d,sdot) +double PASTEF77(d,sdot) ( const f77_int* n, const float* x, const f77_int* incx, diff --git a/frame/compat/bla_gemm.c b/frame/compat/bla_gemm.c index dc2d2a74d..1effececa 100644 --- a/frame/compat/bla_gemm.c +++ b/frame/compat/bla_gemm.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* transa, \ const f77_char* transb, \ diff --git a/frame/compat/bla_gemv.c b/frame/compat/bla_gemv.c index b4f27177d..85c65dde4 100644 --- a/frame/compat/bla_gemv.c +++ b/frame/compat/bla_gemv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* transa, \ const f77_int* m, \ diff --git a/frame/compat/bla_ger.c b/frame/compat/bla_ger.c index 7113b73bd..db4f76f18 100644 --- a/frame/compat/bla_ger.c +++ b/frame/compat/bla_ger.c @@ -41,7 +41,7 @@ #undef GENTFUNCDOT #define GENTFUNCDOT( ftype, ch, chc, blis_conjy, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF772(ch,blasname,chc) \ +void PASTEF772(ch,blasname,chc) \ ( \ const f77_int* m, \ const f77_int* n, \ diff --git a/frame/compat/bla_hemm.c b/frame/compat/bla_hemm.c index 33c9e1f75..88e9c8b55 100644 --- a/frame/compat/bla_hemm.c +++ b/frame/compat/bla_hemm.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_hemv.c b/frame/compat/bla_hemv.c index fa488b052..944468278 100644 --- a/frame/compat/bla_hemv.c +++ b/frame/compat/bla_hemv.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_her.c b/frame/compat/bla_her.c index a80d1b364..ade3cbdda 100644 --- a/frame/compat/bla_her.c +++ b/frame/compat/bla_her.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_her2.c b/frame/compat/bla_her2.c index 1286e21bc..e3ed4ce31 100644 --- a/frame/compat/bla_her2.c +++ b/frame/compat/bla_her2.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_her2k.c b/frame/compat/bla_her2k.c index d15e73b4f..0bbe98e1c 100644 --- a/frame/compat/bla_her2k.c +++ b/frame/compat/bla_her2k.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_herk.c b/frame/compat/bla_herk.c index 27446fc2f..88185de0b 100644 --- a/frame/compat/bla_herk.c +++ b/frame/compat/bla_herk.c @@ -41,7 +41,7 @@ #undef GENTFUNCCO #define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_nrm2.c b/frame/compat/bla_nrm2.c index 79fa9116e..0b41a0673 100644 --- a/frame/compat/bla_nrm2.c +++ b/frame/compat/bla_nrm2.c @@ -41,7 +41,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS ftype_r PASTEF772(chr,chx,blasname) \ +ftype_r PASTEF772(chr,chx,blasname) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx \ diff --git a/frame/compat/bla_scal.c b/frame/compat/bla_scal.c index 9dc3a89c6..6c2a3c3db 100644 --- a/frame/compat/bla_scal.c +++ b/frame/compat/bla_scal.c @@ -41,7 +41,7 @@ #undef GENTFUNCSCAL #define GENTFUNCSCAL( ftype_x, ftype_a, chx, cha, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF772(chx,cha,blasname) \ +void PASTEF772(chx,cha,blasname) \ ( \ const f77_int* n, \ const ftype_a* alpha, \ diff --git a/frame/compat/bla_swap.c b/frame/compat/bla_swap.c index b2619510e..72bc9d6d5 100644 --- a/frame/compat/bla_swap.c +++ b/frame/compat/bla_swap.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_int* n, \ ftype* x, const f77_int* incx, \ diff --git a/frame/compat/bla_symm.c b/frame/compat/bla_symm.c index 2dab8e52b..02d3a3b27 100644 --- a/frame/compat/bla_symm.c +++ b/frame/compat/bla_symm.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_symv.c b/frame/compat/bla_symv.c index 76ebd07e5..79076194c 100644 --- a/frame/compat/bla_symv.c +++ b/frame/compat/bla_symv.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_syr.c b/frame/compat/bla_syr.c index 3abcca28a..0ed4aebb1 100644 --- a/frame/compat/bla_syr.c +++ b/frame/compat/bla_syr.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_syr2.c b/frame/compat/bla_syr2.c index 302864b8f..dbae67027 100644 --- a/frame/compat/bla_syr2.c +++ b/frame/compat/bla_syr2.c @@ -41,7 +41,7 @@ #undef GENTFUNCRO #define GENTFUNCRO( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_int* m, \ diff --git a/frame/compat/bla_syr2k.c b/frame/compat/bla_syr2k.c index 2f5b65df6..7e611b1d6 100644 --- a/frame/compat/bla_syr2k.c +++ b/frame/compat/bla_syr2k.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_syrk.c b/frame/compat/bla_syrk.c index 0e8fb791a..9c08dd06b 100644 --- a/frame/compat/bla_syrk.c +++ b/frame/compat/bla_syrk.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploc, \ const f77_char* transa, \ diff --git a/frame/compat/bla_trmm.c b/frame/compat/bla_trmm.c index 78b73d004..116d2b8c4 100644 --- a/frame/compat/bla_trmm.c +++ b/frame/compat/bla_trmm.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_trmv.c b/frame/compat/bla_trmv.c index 783d975e7..ffb31b12f 100644 --- a/frame/compat/bla_trmv.c +++ b/frame/compat/bla_trmv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_char* transa, \ diff --git a/frame/compat/bla_trsm.c b/frame/compat/bla_trsm.c index efc9aed71..70597cc93 100644 --- a/frame/compat/bla_trsm.c +++ b/frame/compat/bla_trsm.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* side, \ const f77_char* uploa, \ diff --git a/frame/compat/bla_trsv.c b/frame/compat/bla_trsv.c index 2717b1940..445059720 100644 --- a/frame/compat/bla_trsv.c +++ b/frame/compat/bla_trsv.c @@ -41,7 +41,7 @@ #undef GENTFUNC #define GENTFUNC( ftype, ch, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF77(ch,blasname) \ +void PASTEF77(ch,blasname) \ ( \ const f77_char* uploa, \ const f77_char* transa, \ diff --git a/frame/compat/blis/thread/b77_thread.c b/frame/compat/blis/thread/b77_thread.c index 28ba737aa..c864339a3 100644 --- a/frame/compat/blis/thread/b77_thread.c +++ b/frame/compat/blis/thread/b77_thread.c @@ -39,7 +39,7 @@ // Define Fortran-compatible BLIS interfaces. // -BLIS_EXPORT_BLAS void PASTEF770(bli_thread_set_ways) +void PASTEF770(bli_thread_set_ways) ( const f77_int* jc, const f77_int* pc, @@ -71,7 +71,7 @@ BLIS_EXPORT_BLAS void PASTEF770(bli_thread_set_ways) bli_finalize_auto(); } -BLIS_EXPORT_BLAS void PASTEF770(bli_thread_set_num_threads) +void PASTEF770(bli_thread_set_num_threads) ( const f77_int* nt ) diff --git a/frame/compat/cblas/f77_sub/f77_amax_sub.c b/frame/compat/cblas/f77_sub/f77_amax_sub.c index 3fa18894c..cc26196d7 100644 --- a/frame/compat/cblas/f77_sub/f77_amax_sub.c +++ b/frame/compat/cblas/f77_sub/f77_amax_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNC #define GENTFUNC( ftype_x, chx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(i,chx,blasname,sub) \ +void PASTEF773(i,chx,blasname,sub) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx, \ diff --git a/frame/compat/cblas/f77_sub/f77_asum_sub.c b/frame/compat/cblas/f77_sub/f77_asum_sub.c index f0d4abe43..f1cb35b0c 100644 --- a/frame/compat/cblas/f77_sub/f77_asum_sub.c +++ b/frame/compat/cblas/f77_sub/f77_asum_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(chr,chx,blasname,sub) \ +void PASTEF773(chr,chx,blasname,sub) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx, \ diff --git a/frame/compat/cblas/f77_sub/f77_dot_sub.c b/frame/compat/cblas/f77_sub/f77_dot_sub.c index 0dbd5a7e4..6c06133f1 100644 --- a/frame/compat/cblas/f77_sub/f77_dot_sub.c +++ b/frame/compat/cblas/f77_sub/f77_dot_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNCDOT #define GENTFUNCDOT( ftype, ch, chc, blis_conjx, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(ch,blasname,chc,sub) \ +void PASTEF773(ch,blasname,chc,sub) \ ( \ const f77_int* n, \ const ftype* x, const f77_int* incx, \ @@ -66,7 +66,7 @@ INSERT_GENTFUNCDOT_BLAS( dot, NULL ) // Input vectors stored in single precision, computed in double precision, // with result returned in single precision. -BLIS_EXPORT_BLAS void PASTEF772(sds,dot,sub) +void PASTEF772(sds,dot,sub) ( const f77_int* n, const float* sb, @@ -86,7 +86,7 @@ BLIS_EXPORT_BLAS void PASTEF772(sds,dot,sub) // Input vectors stored in single precision, computed in double precision, // with result returned in double precision. -BLIS_EXPORT_BLAS void PASTEF772(ds,dot,sub) +void PASTEF772(ds,dot,sub) ( const f77_int* n, const float* x, const f77_int* incx, diff --git a/frame/compat/cblas/f77_sub/f77_nrm2_sub.c b/frame/compat/cblas/f77_sub/f77_nrm2_sub.c index d3b75a5fe..54ce1a5b4 100644 --- a/frame/compat/cblas/f77_sub/f77_nrm2_sub.c +++ b/frame/compat/cblas/f77_sub/f77_nrm2_sub.c @@ -42,7 +42,7 @@ #undef GENTFUNCR2 #define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \ \ -BLIS_EXPORT_BLAS void PASTEF773(chr,chx,blasname,sub) \ +void PASTEF773(chr,chx,blasname,sub) \ ( \ const f77_int* n, \ const ftype_x* x, const f77_int* incx, \ diff --git a/frame/compat/cblas/src/cblas_caxpy.c b/frame/compat/cblas/src/cblas_caxpy.c index fe63ecc5f..748d146c6 100644 --- a/frame/compat/cblas/src/cblas_caxpy.c +++ b/frame/compat/cblas/src/cblas_caxpy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_caxpy( f77_int N, const void *alpha, const void *X, +void cblas_caxpy( f77_int N, const void *alpha, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_ccopy.c b/frame/compat/cblas/src/cblas_ccopy.c index 3334a0c6b..8871680b1 100644 --- a/frame/compat/cblas/src/cblas_ccopy.c +++ b/frame/compat/cblas/src/cblas_ccopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ccopy( f77_int N, const void *X, +void cblas_ccopy( f77_int N, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cdotc_sub.c b/frame/compat/cblas/src/cblas_cdotc_sub.c index 8ba14bf96..d0800ca4f 100644 --- a/frame/compat/cblas/src/cblas_cdotc_sub.c +++ b/frame/compat/cblas/src/cblas_cdotc_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cdotc_sub( f77_int N, const void *X, f77_int incX, +void cblas_cdotc_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY,void *dotc) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cdotu_sub.c b/frame/compat/cblas/src/cblas_cdotu_sub.c index af5d14a55..fd14f5bb4 100644 --- a/frame/compat/cblas/src/cblas_cdotu_sub.c +++ b/frame/compat/cblas/src/cblas_cdotu_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cdotu_sub( f77_int N, const void *X, +void cblas_cdotu_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY,void *dotu) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cgbmv.c b/frame/compat/cblas/src/cblas_cgbmv.c index 1be1c3838..74872186e 100644 --- a/frame/compat/cblas/src/cblas_cgbmv.c +++ b/frame/compat/cblas/src/cblas_cgbmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgbmv(enum CBLAS_ORDER order, +void cblas_cgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_cgemm.c b/frame/compat/cblas/src/cblas_cgemm.c index 343140922..5680a19f6 100644 --- a/frame/compat/cblas/src/cblas_cgemm.c +++ b/frame/compat/cblas/src/cblas_cgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_cgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_cgemv.c b/frame/compat/cblas/src/cblas_cgemv.c index 3203b4d6e..e5d226262 100644 --- a/frame/compat/cblas/src/cblas_cgemv.c +++ b/frame/compat/cblas/src/cblas_cgemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgemv(enum CBLAS_ORDER order, +void cblas_cgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_cgerc.c b/frame/compat/cblas/src/cblas_cgerc.c index 4f84d1c24..dc582dd04 100644 --- a/frame/compat/cblas/src/cblas_cgerc.c +++ b/frame/compat/cblas/src/cblas_cgerc.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_cgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_cgeru.c b/frame/compat/cblas/src/cblas_cgeru.c index c494d24d7..6339ef08a 100644 --- a/frame/compat/cblas/src/cblas_cgeru.c +++ b/frame/compat/cblas/src/cblas_cgeru.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_cgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_chbmv.c b/frame/compat/cblas/src/cblas_chbmv.c index d2f128dcd..463f8ef25 100644 --- a/frame/compat/cblas/src/cblas_chbmv.c +++ b/frame/compat/cblas/src/cblas_chbmv.c @@ -11,7 +11,7 @@ #include "cblas_f77.h" #include #include -void BLIS_EXPORT_BLAS cblas_chbmv(enum CBLAS_ORDER order, +void cblas_chbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N,f77_int K, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_chemm.c b/frame/compat/cblas/src/cblas_chemm.c index f2e772edb..e8e1e374d 100644 --- a/frame/compat/cblas/src/cblas_chemm.c +++ b/frame/compat/cblas/src/cblas_chemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, +void cblas_chemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_chemv.c b/frame/compat/cblas/src/cblas_chemv.c index 949ece77c..b1df3ef12 100644 --- a/frame/compat/cblas/src/cblas_chemv.c +++ b/frame/compat/cblas/src/cblas_chemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chemv(enum CBLAS_ORDER order, +void cblas_chemv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_cher.c b/frame/compat/cblas/src/cblas_cher.c index 01f7ccc69..05e1c684a 100644 --- a/frame/compat/cblas/src/cblas_cher.c +++ b/frame/compat/cblas/src/cblas_cher.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_cher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const void *X, f77_int incX ,void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_cher2.c b/frame/compat/cblas/src/cblas_cher2.c index 1eb711f33..9b82423d6 100644 --- a/frame/compat/cblas/src/cblas_cher2.c +++ b/frame/compat/cblas/src/cblas_cher2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_cher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_cher2k.c b/frame/compat/cblas/src/cblas_cher2k.c index 6e3e3b01d..fcd1c4b01 100644 --- a/frame/compat/cblas/src/cblas_cher2k.c +++ b/frame/compat/cblas/src/cblas_cher2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_cher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, float beta, diff --git a/frame/compat/cblas/src/cblas_cherk.c b/frame/compat/cblas/src/cblas_cherk.c index 8adf3c2b9..80bc4a7a8 100644 --- a/frame/compat/cblas/src/cblas_cherk.c +++ b/frame/compat/cblas/src/cblas_cherk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_cherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, float alpha, const void *A, f77_int lda, float beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_chpmv.c b/frame/compat/cblas/src/cblas_chpmv.c index 79c72b090..5857070a0 100644 --- a/frame/compat/cblas/src/cblas_chpmv.c +++ b/frame/compat/cblas/src/cblas_chpmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chpmv(enum CBLAS_ORDER order, +void cblas_chpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N, const void *alpha, const void *AP, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_chpr.c b/frame/compat/cblas/src/cblas_chpr.c index 031b275a2..cd2f5baa3 100644 --- a/frame/compat/cblas/src/cblas_chpr.c +++ b/frame/compat/cblas/src/cblas_chpr.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_chpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const void *X, f77_int incX, void *A) { diff --git a/frame/compat/cblas/src/cblas_chpr2.c b/frame/compat/cblas/src/cblas_chpr2.c index 67e1a6aaa..f696083ab 100644 --- a/frame/compat/cblas/src/cblas_chpr2.c +++ b/frame/compat/cblas/src/cblas_chpr2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_chpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_chpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N,const void *alpha, const void *X, f77_int incX,const void *Y, f77_int incY, void *Ap) diff --git a/frame/compat/cblas/src/cblas_cscal.c b/frame/compat/cblas/src/cblas_cscal.c index 5e3aaff2b..966b93ae9 100644 --- a/frame/compat/cblas/src/cblas_cscal.c +++ b/frame/compat/cblas/src/cblas_cscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cscal( f77_int N, const void *alpha, void *X, +void cblas_cscal( f77_int N, const void *alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_csscal.c b/frame/compat/cblas/src/cblas_csscal.c index f40e88976..b2940d7d4 100644 --- a/frame/compat/cblas/src/cblas_csscal.c +++ b/frame/compat/cblas/src/cblas_csscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csscal( f77_int N, float alpha, void *X, +void cblas_csscal( f77_int N, float alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_cswap.c b/frame/compat/cblas/src/cblas_cswap.c index d5b166e5e..a5713a24c 100644 --- a/frame/compat/cblas/src/cblas_cswap.c +++ b/frame/compat/cblas/src/cblas_cswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_cswap( f77_int N, void *X, f77_int incX, void *Y, +void cblas_cswap( f77_int N, void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_csymm.c b/frame/compat/cblas/src/cblas_csymm.c index 9d2d34a3f..22cb266e4 100644 --- a/frame/compat/cblas/src/cblas_csymm.c +++ b/frame/compat/cblas/src/cblas_csymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_csymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_csyr2k.c b/frame/compat/cblas/src/cblas_csyr2k.c index a6f32622e..c47072d74 100644 --- a/frame/compat/cblas/src/cblas_csyr2k.c +++ b/frame/compat/cblas/src/cblas_csyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_csyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_csyrk.c b/frame/compat/cblas/src/cblas_csyrk.c index 7a085e45c..94d9e2a8f 100644 --- a/frame/compat/cblas/src/cblas_csyrk.c +++ b/frame/compat/cblas/src/cblas_csyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_csyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_csyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_ctbmv.c b/frame/compat/cblas/src/cblas_ctbmv.c index 3689facfb..8dd2499c7 100644 --- a/frame/compat/cblas/src/cblas_ctbmv.c +++ b/frame/compat/cblas/src/cblas_ctbmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ctbsv.c b/frame/compat/cblas/src/cblas_ctbsv.c index 2f4832922..d9dfdcd22 100644 --- a/frame/compat/cblas/src/cblas_ctbsv.c +++ b/frame/compat/cblas/src/cblas_ctbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ctpmv.c b/frame/compat/cblas/src/cblas_ctpmv.c index 6a384baa1..8f9cb33a4 100644 --- a/frame/compat/cblas/src/cblas_ctpmv.c +++ b/frame/compat/cblas/src/cblas_ctpmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ctpsv.c b/frame/compat/cblas/src/cblas_ctpsv.c index e76a1ba4d..77d5821e3 100644 --- a/frame/compat/cblas/src/cblas_ctpsv.c +++ b/frame/compat/cblas/src/cblas_ctpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ctrmm.c b/frame/compat/cblas/src/cblas_ctrmm.c index 5335bf893..7eb621f3b 100644 --- a/frame/compat/cblas/src/cblas_ctrmm.c +++ b/frame/compat/cblas/src/cblas_ctrmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ctrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ctrmv.c b/frame/compat/cblas/src/cblas_ctrmv.c index f546a6a6f..756720207 100644 --- a/frame/compat/cblas/src/cblas_ctrmv.c +++ b/frame/compat/cblas/src/cblas_ctrmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ctrsm.c b/frame/compat/cblas/src/cblas_ctrsm.c index 04b1f0f71..f6e016a21 100644 --- a/frame/compat/cblas/src/cblas_ctrsm.c +++ b/frame/compat/cblas/src/cblas_ctrsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ctrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ctrsv.c b/frame/compat/cblas/src/cblas_ctrsv.c index e0824dd98..539d97e55 100644 --- a/frame/compat/cblas/src/cblas_ctrsv.c +++ b/frame/compat/cblas/src/cblas_ctrsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ctrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ctrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_daxpy.c b/frame/compat/cblas/src/cblas_daxpy.c index 16032c5f6..5a3d08d6a 100644 --- a/frame/compat/cblas/src/cblas_daxpy.c +++ b/frame/compat/cblas/src/cblas_daxpy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_daxpy( f77_int N, double alpha, const double *X, +void cblas_daxpy( f77_int N, double alpha, const double *X, f77_int incX, double *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dcopy.c b/frame/compat/cblas/src/cblas_dcopy.c index 27bf873c0..186c3d1d6 100644 --- a/frame/compat/cblas/src/cblas_dcopy.c +++ b/frame/compat/cblas/src/cblas_dcopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dcopy( f77_int N, const double *X, +void cblas_dcopy( f77_int N, const double *X, f77_int incX, double *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dgbmv.c b/frame/compat/cblas/src/cblas_dgbmv.c index 610eaf7d5..f0a19d5e8 100644 --- a/frame/compat/cblas/src/cblas_dgbmv.c +++ b/frame/compat/cblas/src/cblas_dgbmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dgbmv(enum CBLAS_ORDER order, +void cblas_dgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, double alpha, const double *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_dgemm.c b/frame/compat/cblas/src/cblas_dgemm.c index f27d4a835..479a15abd 100644 --- a/frame/compat/cblas/src/cblas_dgemm.c +++ b/frame/compat/cblas/src/cblas_dgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_dgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, const double *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_dgemv.c b/frame/compat/cblas/src/cblas_dgemv.c index f781e66a2..025523b2c 100644 --- a/frame/compat/cblas/src/cblas_dgemv.c +++ b/frame/compat/cblas/src/cblas_dgemv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dgemv(enum CBLAS_ORDER order, +void cblas_dgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dger.c b/frame/compat/cblas/src/cblas_dger.c index b178f0ceb..366d393b6 100644 --- a/frame/compat/cblas/src/cblas_dger.c +++ b/frame/compat/cblas/src/cblas_dger.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dger(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_dger(enum CBLAS_ORDER order, f77_int M, f77_int N, double alpha, const double *X, f77_int incX, const double *Y, f77_int incY, double *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_drot.c b/frame/compat/cblas/src/cblas_drot.c index 314e4972e..b5dac7cad 100644 --- a/frame/compat/cblas/src/cblas_drot.c +++ b/frame/compat/cblas/src/cblas_drot.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drot(f77_int N, double *X, f77_int incX, +void cblas_drot(f77_int N, double *X, f77_int incX, double *Y, f77_int incY, const double c, const double s) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_drotg.c b/frame/compat/cblas/src/cblas_drotg.c index fc174084c..c509bafc7 100644 --- a/frame/compat/cblas/src/cblas_drotg.c +++ b/frame/compat/cblas/src/cblas_drotg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drotg( double *a, double *b, double *c, double *s) +void cblas_drotg( double *a, double *b, double *c, double *s) { F77_drotg(a,b,c,s); } diff --git a/frame/compat/cblas/src/cblas_drotm.c b/frame/compat/cblas/src/cblas_drotm.c index 1b05592df..f0ae348dd 100644 --- a/frame/compat/cblas/src/cblas_drotm.c +++ b/frame/compat/cblas/src/cblas_drotm.c @@ -2,7 +2,7 @@ #ifdef BLIS_ENABLE_CBLAS #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drotm( f77_int N, double *X, f77_int incX, double *Y, +void cblas_drotm( f77_int N, double *X, f77_int incX, double *Y, f77_int incY, const double *P) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_drotmg.c b/frame/compat/cblas/src/cblas_drotmg.c index ebbea6573..6b969bf87 100644 --- a/frame/compat/cblas/src/cblas_drotmg.c +++ b/frame/compat/cblas/src/cblas_drotmg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_drotmg( double *d1, double *d2, double *b1, +void cblas_drotmg( double *d1, double *d2, double *b1, const double b2, double *p) { F77_drotmg(d1,d2,b1,&b2,p); diff --git a/frame/compat/cblas/src/cblas_dsbmv.c b/frame/compat/cblas/src/cblas_dsbmv.c index af04d90a0..8398dd6ce 100644 --- a/frame/compat/cblas/src/cblas_dsbmv.c +++ b/frame/compat/cblas/src/cblas_dsbmv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsbmv(enum CBLAS_ORDER order, +void cblas_dsbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dscal.c b/frame/compat/cblas/src/cblas_dscal.c index 6c5bda1b9..bb6da3f67 100644 --- a/frame/compat/cblas/src/cblas_dscal.c +++ b/frame/compat/cblas/src/cblas_dscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dscal( f77_int N, double alpha, double *X, +void cblas_dscal( f77_int N, double alpha, double *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dspmv.c b/frame/compat/cblas/src/cblas_dspmv.c index c56c4125d..b8e95cfa8 100644 --- a/frame/compat/cblas/src/cblas_dspmv.c +++ b/frame/compat/cblas/src/cblas_dspmv.c @@ -12,7 +12,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dspmv(enum CBLAS_ORDER order, +void cblas_dspmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const double *AP, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dspr.c b/frame/compat/cblas/src/cblas_dspr.c index 21a2da21c..9156f7a83 100644 --- a/frame/compat/cblas/src/cblas_dspr.c +++ b/frame/compat/cblas/src/cblas_dspr.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const double *X, f77_int incX, double *Ap) { diff --git a/frame/compat/cblas/src/cblas_dspr2.c b/frame/compat/cblas/src/cblas_dspr2.c index 0fd33c080..8fade8319 100644 --- a/frame/compat/cblas/src/cblas_dspr2.c +++ b/frame/compat/cblas/src/cblas_dspr2.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const double alpha, const double *X, f77_int incX, const double *Y, f77_int incY, double *A) { diff --git a/frame/compat/cblas/src/cblas_dswap.c b/frame/compat/cblas/src/cblas_dswap.c index ec676d9ca..e204baea0 100644 --- a/frame/compat/cblas/src/cblas_dswap.c +++ b/frame/compat/cblas/src/cblas_dswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dswap( f77_int N, double *X, f77_int incX, double *Y, +void cblas_dswap( f77_int N, double *X, f77_int incX, double *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_dsymm.c b/frame/compat/cblas/src/cblas_dsymm.c index 119f7a419..81bc52268 100644 --- a/frame/compat/cblas/src/cblas_dsymm.c +++ b/frame/compat/cblas/src/cblas_dsymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_dsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, const double *B, f77_int ldb, double beta, diff --git a/frame/compat/cblas/src/cblas_dsymv.c b/frame/compat/cblas/src/cblas_dsymv.c index 6e3ddc1f4..d0c2aa642 100644 --- a/frame/compat/cblas/src/cblas_dsymv.c +++ b/frame/compat/cblas/src/cblas_dsymv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsymv(enum CBLAS_ORDER order, +void cblas_dsymv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const double *A, f77_int lda, const double *X, f77_int incX, double beta, diff --git a/frame/compat/cblas/src/cblas_dsyr.c b/frame/compat/cblas/src/cblas_dsyr.c index 69eec6ff4..f6dd66c75 100644 --- a/frame/compat/cblas/src/cblas_dsyr.c +++ b/frame/compat/cblas/src/cblas_dsyr.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dsyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const double alpha, const double *X, f77_int incX, double *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_dsyr2.c b/frame/compat/cblas/src/cblas_dsyr2.c index b43ce4c6a..c0d773939 100644 --- a/frame/compat/cblas/src/cblas_dsyr2.c +++ b/frame/compat/cblas/src/cblas_dsyr2.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dsyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const double alpha, const double *X, f77_int incX, const double *Y, f77_int incY, double *A, f77_int lda) diff --git a/frame/compat/cblas/src/cblas_dsyr2k.c b/frame/compat/cblas/src/cblas_dsyr2k.c index 45b12a12c..2c35b9929 100644 --- a/frame/compat/cblas/src/cblas_dsyr2k.c +++ b/frame/compat/cblas/src/cblas_dsyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_dsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, const double *B, f77_int ldb, double beta, diff --git a/frame/compat/cblas/src/cblas_dsyrk.c b/frame/compat/cblas/src/cblas_dsyrk.c index 4a71e3b40..8a7ca1651 100644 --- a/frame/compat/cblas/src/cblas_dsyrk.c +++ b/frame/compat/cblas/src/cblas_dsyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_dsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, double alpha, const double *A, f77_int lda, double beta, double *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_dtbmv.c b/frame/compat/cblas/src/cblas_dtbmv.c index 702bfca63..6502c1c22 100644 --- a/frame/compat/cblas/src/cblas_dtbmv.c +++ b/frame/compat/cblas/src/cblas_dtbmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_dtbsv.c b/frame/compat/cblas/src/cblas_dtbsv.c index 2817ff3d2..aae08e956 100644 --- a/frame/compat/cblas/src/cblas_dtbsv.c +++ b/frame/compat/cblas/src/cblas_dtbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_dtpmv.c b/frame/compat/cblas/src/cblas_dtpmv.c index 4e74b95f6..b72b4ed7e 100644 --- a/frame/compat/cblas/src/cblas_dtpmv.c +++ b/frame/compat/cblas/src/cblas_dtpmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *Ap, double *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_dtpsv.c b/frame/compat/cblas/src/cblas_dtpsv.c index 484358acf..501e4a256 100644 --- a/frame/compat/cblas/src/cblas_dtpsv.c +++ b/frame/compat/cblas/src/cblas_dtpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *Ap, double *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_dtrmm.c b/frame/compat/cblas/src/cblas_dtrmm.c index 4cd180261..c93c4862a 100644 --- a/frame/compat/cblas/src/cblas_dtrmm.c +++ b/frame/compat/cblas/src/cblas_dtrmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_dtrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_dtrmv.c b/frame/compat/cblas/src/cblas_dtrmv.c index 404110b91..904d4b75b 100644 --- a/frame/compat/cblas/src/cblas_dtrmv.c +++ b/frame/compat/cblas/src/cblas_dtrmv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_dtrsm.c b/frame/compat/cblas/src/cblas_dtrsm.c index 1480ff2c5..552620495 100644 --- a/frame/compat/cblas/src/cblas_dtrsm.c +++ b/frame/compat/cblas/src/cblas_dtrsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_dtrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, double alpha, const double *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_dtrsv.c b/frame/compat/cblas/src/cblas_dtrsv.c index 428b36781..4d257f7ea 100644 --- a/frame/compat/cblas/src/cblas_dtrsv.c +++ b/frame/compat/cblas/src/cblas_dtrsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_dtrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_dtrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const double *A, f77_int lda, double *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_saxpy.c b/frame/compat/cblas/src/cblas_saxpy.c index c3846e9e4..b7f2b2d4e 100644 --- a/frame/compat/cblas/src/cblas_saxpy.c +++ b/frame/compat/cblas/src/cblas_saxpy.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_saxpy( f77_int N, float alpha, const float *X, +void cblas_saxpy( f77_int N, float alpha, const float *X, f77_int incX, float *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_scopy.c b/frame/compat/cblas/src/cblas_scopy.c index 5f254eb52..f54343ff1 100644 --- a/frame/compat/cblas/src/cblas_scopy.c +++ b/frame/compat/cblas/src/cblas_scopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_scopy( f77_int N, const float *X, +void cblas_scopy( f77_int N, const float *X, f77_int incX, float *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_sgbmv.c b/frame/compat/cblas/src/cblas_sgbmv.c index bf6b02ad9..8bf944f9d 100644 --- a/frame/compat/cblas/src/cblas_sgbmv.c +++ b/frame/compat/cblas/src/cblas_sgbmv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sgbmv(enum CBLAS_ORDER order, +void cblas_sgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, float alpha, const float *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_sgemm.c b/frame/compat/cblas/src/cblas_sgemm.c index 09ed071ff..89d0f07a8 100644 --- a/frame/compat/cblas/src/cblas_sgemm.c +++ b/frame/compat/cblas/src/cblas_sgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_sgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, const float *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_sgemv.c b/frame/compat/cblas/src/cblas_sgemv.c index 79d536f6b..552140fec 100644 --- a/frame/compat/cblas/src/cblas_sgemv.c +++ b/frame/compat/cblas/src/cblas_sgemv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sgemv(enum CBLAS_ORDER order, +void cblas_sgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, const float *X, f77_int incX, float beta, diff --git a/frame/compat/cblas/src/cblas_sger.c b/frame/compat/cblas/src/cblas_sger.c index 64fb8bf8d..0617bad1e 100644 --- a/frame/compat/cblas/src/cblas_sger.c +++ b/frame/compat/cblas/src/cblas_sger.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sger(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_sger(enum CBLAS_ORDER order, f77_int M, f77_int N, const float alpha, const float *X, f77_int incX, const float *Y, f77_int incY, float *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_srot.c b/frame/compat/cblas/src/cblas_srot.c index 3279a5b99..b9e7ede46 100644 --- a/frame/compat/cblas/src/cblas_srot.c +++ b/frame/compat/cblas/src/cblas_srot.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srot( f77_int N, float *X, f77_int incX, float *Y, +void cblas_srot( f77_int N, float *X, f77_int incX, float *Y, f77_int incY, const float c, const float s) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_srotg.c b/frame/compat/cblas/src/cblas_srotg.c index 761dc34e3..165497f7e 100644 --- a/frame/compat/cblas/src/cblas_srotg.c +++ b/frame/compat/cblas/src/cblas_srotg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srotg( float *a, float *b, float *c, float *s) +void cblas_srotg( float *a, float *b, float *c, float *s) { F77_srotg(a,b,c,s); } diff --git a/frame/compat/cblas/src/cblas_srotm.c b/frame/compat/cblas/src/cblas_srotm.c index 335f76733..ce417d769 100644 --- a/frame/compat/cblas/src/cblas_srotm.c +++ b/frame/compat/cblas/src/cblas_srotm.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srotm( f77_int N, float *X, f77_int incX, float *Y, +void cblas_srotm( f77_int N, float *X, f77_int incX, float *Y, f77_int incY, const float *P) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_srotmg.c b/frame/compat/cblas/src/cblas_srotmg.c index c5c845aa7..7f26ac659 100644 --- a/frame/compat/cblas/src/cblas_srotmg.c +++ b/frame/compat/cblas/src/cblas_srotmg.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_srotmg( float *d1, float *d2, float *b1, +void cblas_srotmg( float *d1, float *d2, float *b1, const float b2, float *p) { F77_srotmg(d1,d2,b1,&b2,p); diff --git a/frame/compat/cblas/src/cblas_ssbmv.c b/frame/compat/cblas/src/cblas_ssbmv.c index 4935323b0..ef8a96cfb 100644 --- a/frame/compat/cblas/src/cblas_ssbmv.c +++ b/frame/compat/cblas/src/cblas_ssbmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ssbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, const float *X, f77_int incX, float beta, float *Y, f77_int incY) diff --git a/frame/compat/cblas/src/cblas_sscal.c b/frame/compat/cblas/src/cblas_sscal.c index fda92231c..55547ae64 100644 --- a/frame/compat/cblas/src/cblas_sscal.c +++ b/frame/compat/cblas/src/cblas_sscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sscal( f77_int N, float alpha, float *X, +void cblas_sscal( f77_int N, float alpha, float *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_sspmv.c b/frame/compat/cblas/src/cblas_sspmv.c index 28dc0b36c..a54f64214 100644 --- a/frame/compat/cblas/src/cblas_sspmv.c +++ b/frame/compat/cblas/src/cblas_sspmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sspmv(enum CBLAS_ORDER order, +void cblas_sspmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const float *AP, const float *X, f77_int incX, float beta, diff --git a/frame/compat/cblas/src/cblas_sspr.c b/frame/compat/cblas/src/cblas_sspr.c index a2b60e96d..693dbba8c 100644 --- a/frame/compat/cblas/src/cblas_sspr.c +++ b/frame/compat/cblas/src/cblas_sspr.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_sspr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, float *Ap) { diff --git a/frame/compat/cblas/src/cblas_sspr2.c b/frame/compat/cblas/src/cblas_sspr2.c index e38e6749f..a4b612897 100644 --- a/frame/compat/cblas/src/cblas_sspr2.c +++ b/frame/compat/cblas/src/cblas_sspr2.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_sspr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, const float *Y, f77_int incY, float *A) { diff --git a/frame/compat/cblas/src/cblas_sswap.c b/frame/compat/cblas/src/cblas_sswap.c index e97aa27ef..2c24ad0fa 100644 --- a/frame/compat/cblas/src/cblas_sswap.c +++ b/frame/compat/cblas/src/cblas_sswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_sswap( f77_int N, float *X, f77_int incX, float *Y, +void cblas_sswap( f77_int N, float *X, f77_int incX, float *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_ssymm.c b/frame/compat/cblas/src/cblas_ssymm.c index 138c3b47d..218ddba6a 100644 --- a/frame/compat/cblas/src/cblas_ssymm.c +++ b/frame/compat/cblas/src/cblas_ssymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ssymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, const float *B, f77_int ldb, float beta, diff --git a/frame/compat/cblas/src/cblas_ssymv.c b/frame/compat/cblas/src/cblas_ssymv.c index 43a835cdd..6027aaddf 100644 --- a/frame/compat/cblas/src/cblas_ssymv.c +++ b/frame/compat/cblas/src/cblas_ssymv.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssymv(enum CBLAS_ORDER order, +void cblas_ssymv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, float alpha, const float *A, f77_int lda, const float *X, f77_int incX, float beta, diff --git a/frame/compat/cblas/src/cblas_ssyr.c b/frame/compat/cblas/src/cblas_ssyr.c index 90d4a748f..14ed8fe54 100644 --- a/frame/compat/cblas/src/cblas_ssyr.c +++ b/frame/compat/cblas/src/cblas_ssyr.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ssyr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, float *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_ssyr2.c b/frame/compat/cblas/src/cblas_ssyr2.c index 287eacdd6..48263f2ae 100644 --- a/frame/compat/cblas/src/cblas_ssyr2.c +++ b/frame/compat/cblas/src/cblas_ssyr2.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ssyr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const float alpha, const float *X, f77_int incX, const float *Y, f77_int incY, float *A, f77_int lda) diff --git a/frame/compat/cblas/src/cblas_ssyr2k.c b/frame/compat/cblas/src/cblas_ssyr2k.c index 9687f2dd9..50cf8bf1d 100644 --- a/frame/compat/cblas/src/cblas_ssyr2k.c +++ b/frame/compat/cblas/src/cblas_ssyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_ssyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, const float *B, f77_int ldb, float beta, diff --git a/frame/compat/cblas/src/cblas_ssyrk.c b/frame/compat/cblas/src/cblas_ssyrk.c index 63364bb91..6f486870f 100644 --- a/frame/compat/cblas/src/cblas_ssyrk.c +++ b/frame/compat/cblas/src/cblas_ssyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ssyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_ssyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, float alpha, const float *A, f77_int lda, float beta, float *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_stbmv.c b/frame/compat/cblas/src/cblas_stbmv.c index 7f67b0d64..15daa49da 100644 --- a/frame/compat/cblas/src/cblas_stbmv.c +++ b/frame/compat/cblas/src/cblas_stbmv.c @@ -9,7 +9,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_stbsv.c b/frame/compat/cblas/src/cblas_stbsv.c index d2137984b..ec9d9c844 100644 --- a/frame/compat/cblas/src/cblas_stbsv.c +++ b/frame/compat/cblas/src/cblas_stbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_stpmv.c b/frame/compat/cblas/src/cblas_stpmv.c index f8b9dc979..91b308176 100644 --- a/frame/compat/cblas/src/cblas_stpmv.c +++ b/frame/compat/cblas/src/cblas_stpmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *Ap, float *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_stpsv.c b/frame/compat/cblas/src/cblas_stpsv.c index d0bbc7661..548eaec79 100644 --- a/frame/compat/cblas/src/cblas_stpsv.c +++ b/frame/compat/cblas/src/cblas_stpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_stpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_stpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *Ap, float *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_strmm.c b/frame/compat/cblas/src/cblas_strmm.c index 93f2406c5..a7737109b 100644 --- a/frame/compat/cblas/src/cblas_strmm.c +++ b/frame/compat/cblas/src/cblas_strmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_strmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_strmv.c b/frame/compat/cblas/src/cblas_strmv.c index 4d0e7ebc7..987589eb7 100644 --- a/frame/compat/cblas/src/cblas_strmv.c +++ b/frame/compat/cblas/src/cblas_strmv.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_strmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_strsm.c b/frame/compat/cblas/src/cblas_strsm.c index 64cea9327..ef78969f0 100644 --- a/frame/compat/cblas/src/cblas_strsm.c +++ b/frame/compat/cblas/src/cblas_strsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_strsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, float alpha, const float *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_strsv.c b/frame/compat/cblas/src/cblas_strsv.c index d3c2cb063..a37c797b8 100644 --- a/frame/compat/cblas/src/cblas_strsv.c +++ b/frame/compat/cblas/src/cblas_strsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_strsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_strsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const float *A, f77_int lda, float *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_xerbla.c b/frame/compat/cblas/src/cblas_xerbla.c index 8577f5fb2..ebe6bd800 100644 --- a/frame/compat/cblas/src/cblas_xerbla.c +++ b/frame/compat/cblas/src/cblas_xerbla.c @@ -7,7 +7,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_xerbla(f77_int info, const char *rout, const char *form, ...) +void cblas_xerbla(f77_int info, const char *rout, const char *form, ...) { extern int RowMajorStrg; char empty[1] = ""; diff --git a/frame/compat/cblas/src/cblas_zaxpy.c b/frame/compat/cblas/src/cblas_zaxpy.c index 60998af86..dcf2f5c78 100644 --- a/frame/compat/cblas/src/cblas_zaxpy.c +++ b/frame/compat/cblas/src/cblas_zaxpy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zaxpy( f77_int N, const void *alpha, const void *X, +void cblas_zaxpy( f77_int N, const void *alpha, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zcopy.c b/frame/compat/cblas/src/cblas_zcopy.c index 81bac5ae9..5b0a7dd5d 100644 --- a/frame/compat/cblas/src/cblas_zcopy.c +++ b/frame/compat/cblas/src/cblas_zcopy.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zcopy( f77_int N, const void *X, +void cblas_zcopy( f77_int N, const void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zdotc_sub.c b/frame/compat/cblas/src/cblas_zdotc_sub.c index d9603a849..2e0808c88 100644 --- a/frame/compat/cblas/src/cblas_zdotc_sub.c +++ b/frame/compat/cblas/src/cblas_zdotc_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zdotc_sub( f77_int N, const void *X, f77_int incX, +void cblas_zdotc_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY, void *dotc) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zdotu_sub.c b/frame/compat/cblas/src/cblas_zdotu_sub.c index 2561df276..255ad833f 100644 --- a/frame/compat/cblas/src/cblas_zdotu_sub.c +++ b/frame/compat/cblas/src/cblas_zdotu_sub.c @@ -11,7 +11,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zdotu_sub( f77_int N, const void *X, f77_int incX, +void cblas_zdotu_sub( f77_int N, const void *X, f77_int incX, const void *Y, f77_int incY, void *dotu) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zdscal.c b/frame/compat/cblas/src/cblas_zdscal.c index 062609b08..9666e4509 100644 --- a/frame/compat/cblas/src/cblas_zdscal.c +++ b/frame/compat/cblas/src/cblas_zdscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zdscal( f77_int N, double alpha, void *X, +void cblas_zdscal( f77_int N, double alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zgbmv.c b/frame/compat/cblas/src/cblas_zgbmv.c index 967b14981..f6efa4e7b 100644 --- a/frame/compat/cblas/src/cblas_zgbmv.c +++ b/frame/compat/cblas/src/cblas_zgbmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgbmv(enum CBLAS_ORDER order, +void cblas_zgbmv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, f77_int KL, f77_int KU, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_zgemm.c b/frame/compat/cblas/src/cblas_zgemm.c index a3ccc9a07..e50de2205 100644 --- a/frame/compat/cblas/src/cblas_zgemm.c +++ b/frame/compat/cblas/src/cblas_zgemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, +void cblas_zgemm(enum CBLAS_ORDER Order, enum CBLAS_TRANSPOSE TransA, enum CBLAS_TRANSPOSE TransB, f77_int M, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, diff --git a/frame/compat/cblas/src/cblas_zgemv.c b/frame/compat/cblas/src/cblas_zgemv.c index 689702d6f..05b0bfe84 100644 --- a/frame/compat/cblas/src/cblas_zgemv.c +++ b/frame/compat/cblas/src/cblas_zgemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgemv(enum CBLAS_ORDER order, +void cblas_zgemv(enum CBLAS_ORDER order, enum CBLAS_TRANSPOSE TransA, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zgerc.c b/frame/compat/cblas/src/cblas_zgerc.c index e93fa21b8..9667958c5 100644 --- a/frame/compat/cblas/src/cblas_zgerc.c +++ b/frame/compat/cblas/src/cblas_zgerc.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_zgerc(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zgeru.c b/frame/compat/cblas/src/cblas_zgeru.c index 9471781f7..3538ed044 100644 --- a/frame/compat/cblas/src/cblas_zgeru.c +++ b/frame/compat/cblas/src/cblas_zgeru.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, +void cblas_zgeru(enum CBLAS_ORDER order, f77_int M, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zhbmv.c b/frame/compat/cblas/src/cblas_zhbmv.c index dc544841a..8bfd139e9 100644 --- a/frame/compat/cblas/src/cblas_zhbmv.c +++ b/frame/compat/cblas/src/cblas_zhbmv.c @@ -11,7 +11,7 @@ #include "cblas_f77.h" #include #include -void BLIS_EXPORT_BLAS cblas_zhbmv(enum CBLAS_ORDER order, +void cblas_zhbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N,f77_int K, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zhemm.c b/frame/compat/cblas/src/cblas_zhemm.c index bc19ae828..7da2a41e6 100644 --- a/frame/compat/cblas/src/cblas_zhemm.c +++ b/frame/compat/cblas/src/cblas_zhemm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, +void cblas_zhemm(enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zhemv.c b/frame/compat/cblas/src/cblas_zhemv.c index 62d44b3e6..a0b6082ce 100644 --- a/frame/compat/cblas/src/cblas_zhemv.c +++ b/frame/compat/cblas/src/cblas_zhemv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhemv(enum CBLAS_ORDER order, +void cblas_zhemv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *A, f77_int lda, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zher.c b/frame/compat/cblas/src/cblas_zher.c index ecbd36418..9e513d43b 100644 --- a/frame/compat/cblas/src/cblas_zher.c +++ b/frame/compat/cblas/src/cblas_zher.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zher(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const void *X, f77_int incX ,void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zher2.c b/frame/compat/cblas/src/cblas_zher2.c index 9c523d952..5d49302f9 100644 --- a/frame/compat/cblas/src/cblas_zher2.c +++ b/frame/compat/cblas/src/cblas_zher2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zher2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, const void *alpha, const void *X, f77_int incX, const void *Y, f77_int incY, void *A, f77_int lda) { diff --git a/frame/compat/cblas/src/cblas_zher2k.c b/frame/compat/cblas/src/cblas_zher2k.c index d03ec1370..424f650d0 100644 --- a/frame/compat/cblas/src/cblas_zher2k.c +++ b/frame/compat/cblas/src/cblas_zher2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zher2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, double beta, diff --git a/frame/compat/cblas/src/cblas_zherk.c b/frame/compat/cblas/src/cblas_zherk.c index 3167dc0fa..5ddb45184 100644 --- a/frame/compat/cblas/src/cblas_zherk.c +++ b/frame/compat/cblas/src/cblas_zherk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zherk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, double alpha, const void *A, f77_int lda, double beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_zhpmv.c b/frame/compat/cblas/src/cblas_zhpmv.c index 602007023..912300d44 100644 --- a/frame/compat/cblas/src/cblas_zhpmv.c +++ b/frame/compat/cblas/src/cblas_zhpmv.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhpmv(enum CBLAS_ORDER order, +void cblas_zhpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,f77_int N, const void *alpha, const void *AP, const void *X, f77_int incX, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zhpr.c b/frame/compat/cblas/src/cblas_zhpr.c index 0f45fd261..80d238170 100644 --- a/frame/compat/cblas/src/cblas_zhpr.c +++ b/frame/compat/cblas/src/cblas_zhpr.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zhpr(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N, double alpha, const void *X, f77_int incX, void *A) { diff --git a/frame/compat/cblas/src/cblas_zhpr2.c b/frame/compat/cblas/src/cblas_zhpr2.c index 6358efc1a..2aa46062a 100644 --- a/frame/compat/cblas/src/cblas_zhpr2.c +++ b/frame/compat/cblas/src/cblas_zhpr2.c @@ -11,7 +11,7 @@ #include #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zhpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_zhpr2(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, f77_int N,const void *alpha, const void *X, f77_int incX,const void *Y, f77_int incY, void *Ap) diff --git a/frame/compat/cblas/src/cblas_zscal.c b/frame/compat/cblas/src/cblas_zscal.c index c58ddf84b..a66ea6f9d 100644 --- a/frame/compat/cblas/src/cblas_zscal.c +++ b/frame/compat/cblas/src/cblas_zscal.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zscal( f77_int N, const void *alpha, void *X, +void cblas_zscal( f77_int N, const void *alpha, void *X, f77_int incX) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zswap.c b/frame/compat/cblas/src/cblas_zswap.c index 662933988..6b2eb1a20 100644 --- a/frame/compat/cblas/src/cblas_zswap.c +++ b/frame/compat/cblas/src/cblas_zswap.c @@ -10,7 +10,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zswap( f77_int N, void *X, f77_int incX, void *Y, +void cblas_zswap( f77_int N, void *X, f77_int incX, void *Y, f77_int incY) { #ifdef F77_INT diff --git a/frame/compat/cblas/src/cblas_zsymm.c b/frame/compat/cblas/src/cblas_zsymm.c index 4292d6709..9303c5921 100644 --- a/frame/compat/cblas/src/cblas_zsymm.c +++ b/frame/compat/cblas/src/cblas_zsymm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_zsymm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zsyr2k.c b/frame/compat/cblas/src/cblas_zsyr2k.c index f4a4f0e12..c275cc693 100644 --- a/frame/compat/cblas/src/cblas_zsyr2k.c +++ b/frame/compat/cblas/src/cblas_zsyr2k.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zsyr2k(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *B, f77_int ldb, const void *beta, diff --git a/frame/compat/cblas/src/cblas_zsyrk.c b/frame/compat/cblas/src/cblas_zsyrk.c index 641a975e6..ce2c0e1c8 100644 --- a/frame/compat/cblas/src/cblas_zsyrk.c +++ b/frame/compat/cblas/src/cblas_zsyrk.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_zsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, +void cblas_zsyrk(enum CBLAS_ORDER Order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE Trans, f77_int N, f77_int K, const void *alpha, const void *A, f77_int lda, const void *beta, void *C, f77_int ldc) diff --git a/frame/compat/cblas/src/cblas_ztbmv.c b/frame/compat/cblas/src/cblas_ztbmv.c index e07fb42d2..3c7f58b96 100644 --- a/frame/compat/cblas/src/cblas_ztbmv.c +++ b/frame/compat/cblas/src/cblas_ztbmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztbmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ztbsv.c b/frame/compat/cblas/src/cblas_ztbsv.c index e2126e49c..56d936e1b 100644 --- a/frame/compat/cblas/src/cblas_ztbsv.c +++ b/frame/compat/cblas/src/cblas_ztbsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztbsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, f77_int K, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ztpmv.c b/frame/compat/cblas/src/cblas_ztpmv.c index a89a3fdc7..a8717ccc5 100644 --- a/frame/compat/cblas/src/cblas_ztpmv.c +++ b/frame/compat/cblas/src/cblas_ztpmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztpmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ztpsv.c b/frame/compat/cblas/src/cblas_ztpsv.c index 1f51f5d9f..4aa3706cc 100644 --- a/frame/compat/cblas/src/cblas_ztpsv.c +++ b/frame/compat/cblas/src/cblas_ztpsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztpsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *Ap, void *X, f77_int incX) { diff --git a/frame/compat/cblas/src/cblas_ztrmm.c b/frame/compat/cblas/src/cblas_ztrmm.c index 958a232b3..6fa8a2ca9 100644 --- a/frame/compat/cblas/src/cblas_ztrmm.c +++ b/frame/compat/cblas/src/cblas_ztrmm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ztrmm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ztrmv.c b/frame/compat/cblas/src/cblas_ztrmv.c index bb3bf4516..590105d62 100644 --- a/frame/compat/cblas/src/cblas_ztrmv.c +++ b/frame/compat/cblas/src/cblas_ztrmv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztrmv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/cblas/src/cblas_ztrsm.c b/frame/compat/cblas/src/cblas_ztrsm.c index fda012933..a68c70e1c 100644 --- a/frame/compat/cblas/src/cblas_ztrsm.c +++ b/frame/compat/cblas/src/cblas_ztrsm.c @@ -11,7 +11,7 @@ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, +void cblas_ztrsm(enum CBLAS_ORDER Order, enum CBLAS_SIDE Side, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int M, f77_int N, const void *alpha, const void *A, f77_int lda, diff --git a/frame/compat/cblas/src/cblas_ztrsv.c b/frame/compat/cblas/src/cblas_ztrsv.c index e68d9ebe8..1a541f7b1 100644 --- a/frame/compat/cblas/src/cblas_ztrsv.c +++ b/frame/compat/cblas/src/cblas_ztrsv.c @@ -9,7 +9,7 @@ */ #include "cblas.h" #include "cblas_f77.h" -void BLIS_EXPORT_BLAS cblas_ztrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, +void cblas_ztrsv(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, enum CBLAS_TRANSPOSE TransA, enum CBLAS_DIAG Diag, f77_int N, const void *A, f77_int lda, void *X, f77_int incX) diff --git a/frame/compat/f2c/bla_cabs1.c b/frame/compat/f2c/bla_cabs1.c index c62cb233a..59459f2fe 100644 --- a/frame/compat/f2c/bla_cabs1.c +++ b/frame/compat/f2c/bla_cabs1.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ bla_real BLIS_EXPORT_BLAS PASTEF77(s,cabs1)(bla_scomplex *z) +/* Subroutine */ bla_real PASTEF77(s,cabs1)(bla_scomplex *z) { return bli_fabs( bli_creal( *z ) ) + bli_fabs( bli_cimag( *z ) ); @@ -52,7 +52,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ bla_double BLIS_EXPORT_BLAS PASTEF77(d,cabs1)(bla_dcomplex *z) +/* Subroutine */ bla_double PASTEF77(d,cabs1)(bla_dcomplex *z) { return bli_fabs( bli_zreal( *z ) ) + bli_fabs( bli_zimag( *z ) ); diff --git a/frame/compat/f2c/bla_gbmv.c b/frame/compat/f2c/bla_gbmv.c index 5f68b5beb..d53dd322a 100644 --- a/frame/compat/f2c/bla_gbmv.c +++ b/frame/compat/f2c/bla_gbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_scomplex *alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(c,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_scomplex *alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj; bla_integer kup1; @@ -482,7 +482,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(d,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -491,9 +491,9 @@ bla_integer info; bla_double temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_integer kup1; /* .. Scalar Arguments .. */ @@ -838,7 +838,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer * incx, const bla_real *beta, bla_real *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(s,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer * incx, const bla_real *beta, bla_real *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -847,9 +847,9 @@ bla_integer info; bla_real temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_integer kup1; /* .. Scalar Arguments .. */ @@ -1194,7 +1194,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex * y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(z,gbmv)(const bla_character *trans, const bla_integer *m, const bla_integer *n, const bla_integer *kl, const bla_integer *ku, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex * y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6; @@ -1207,9 +1207,9 @@ bla_integer info; bla_dcomplex temp; bla_integer lenx, leny, i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj; bla_integer kup1; diff --git a/frame/compat/f2c/bla_hbmv.c b/frame/compat/f2c/bla_hbmv.c index f548331f6..198336d04 100644 --- a/frame/compat/f2c/bla_hbmv.c +++ b/frame/compat/f2c/bla_hbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_scomplex * alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(c,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_scomplex * alpha, const bla_scomplex *a, const bla_integer *lda, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -487,7 +487,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer * incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(z,hbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_dcomplex *alpha, const bla_dcomplex *a, const bla_integer *lda, const bla_dcomplex *x, const bla_integer * incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -501,9 +501,9 @@ bla_integer info; bla_dcomplex temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_hpmv.c b/frame/compat/f2c/bla_hpmv.c index 2daa47bf5..0d7ebce9d 100644 --- a/frame/compat/f2c/bla_hpmv.c +++ b/frame/compat/f2c/bla_hpmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex * ap, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(c,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex * ap, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *beta, bla_scomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -439,7 +439,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *ap, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(z,hpmv)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *ap, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *beta, bla_dcomplex *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -453,9 +453,9 @@ bla_integer info; bla_dcomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_hpr.c b/frame/compat/f2c/bla_hpr.c index be0f796c6..da1f0a0f3 100644 --- a/frame/compat/f2c/bla_hpr.c +++ b/frame/compat/f2c/bla_hpr.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hpr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_scomplex *x, const bla_integer *incx, bla_scomplex *ap) +/* Subroutine */ int PASTEF77(c,hpr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_scomplex *x, const bla_integer *incx, bla_scomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -353,7 +353,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hpr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_dcomplex *x, const bla_integer *incx, bla_dcomplex *ap) +/* Subroutine */ int PASTEF77(z,hpr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_dcomplex *x, const bla_integer *incx, bla_dcomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -367,9 +367,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_hpr2.c b/frame/compat/f2c/bla_hpr2.c index 597ab7439..c78c1eec0 100644 --- a/frame/compat/f2c/bla_hpr2.c +++ b/frame/compat/f2c/bla_hpr2.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *y, const bla_integer *incy, bla_scomplex *ap) +/* Subroutine */ int PASTEF77(c,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_scomplex *alpha, const bla_scomplex *x, const bla_integer *incx, const bla_scomplex *y, const bla_integer *incy, bla_scomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5, i__6; @@ -55,9 +55,9 @@ bla_integer info; bla_scomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -429,7 +429,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *y, const bla_integer *incy, bla_dcomplex *ap) +/* Subroutine */ int PASTEF77(z,hpr2)(const bla_character *uplo, const bla_integer *n, const bla_dcomplex *alpha, const bla_dcomplex *x, const bla_integer *incx, const bla_dcomplex *y, const bla_integer *incy, bla_dcomplex *ap) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5, i__6; @@ -443,9 +443,9 @@ bla_integer info; bla_dcomplex temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_lsame.c b/frame/compat/f2c/bla_lsame.c index c5a7d2558..edee918d1 100644 --- a/frame/compat/f2c/bla_lsame.c +++ b/frame/compat/f2c/bla_lsame.c @@ -45,7 +45,7 @@ #ifdef LAPACK_ILP64 long PASTEF770(lsame)(const char *ca, const char *cb, long ca_len, long cb_len) #else -BLIS_EXPORT_BLAS int PASTEF770(lsame)(const char *ca, const char *cb, int ca_len, int cb_len) +int PASTEF770(lsame)(const char *ca, const char *cb, int ca_len, int cb_len) #endif { /* System generated locals */ diff --git a/frame/compat/f2c/bla_rot.c b/frame/compat/f2c/bla_rot.c index 4c66e4aa8..c79769bc0 100644 --- a/frame/compat/f2c/bla_rot.c +++ b/frame/compat/f2c/bla_rot.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rot)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *c__, const bla_real *s) +/* Subroutine */ int PASTEF77(s,rot)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *c__, const bla_real *s) { /* System generated locals */ bla_integer i__1; @@ -109,7 +109,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rot)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *c__, const bla_double *s) +/* Subroutine */ int PASTEF77(d,rot)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *c__, const bla_double *s) { /* System generated locals */ bla_integer i__1; @@ -177,7 +177,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(cs,rot)(const bla_integer *n, bla_scomplex *cx, const bla_integer *incx, bla_scomplex *cy, const bla_integer *incy, const bla_real *c__, const bla_real *s) +/* Subroutine */ int PASTEF77(cs,rot)(const bla_integer *n, bla_scomplex *cx, const bla_integer *incx, bla_scomplex *cy, const bla_integer *incy, const bla_real *c__, const bla_real *s) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4; @@ -270,7 +270,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(zd,rot)(const bla_integer *n, bla_dcomplex *zx, const bla_integer *incx, bla_dcomplex *zy, const bla_integer *incy, const bla_double *c__, const bla_double *s) +/* Subroutine */ int PASTEF77(zd,rot)(const bla_integer *n, bla_dcomplex *zx, const bla_integer *incx, bla_dcomplex *zy, const bla_integer *incy, const bla_double *c__, const bla_double *s) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4; diff --git a/frame/compat/f2c/bla_rotg.c b/frame/compat/f2c/bla_rotg.c index 1315bd6aa..1572689f5 100644 --- a/frame/compat/f2c/bla_rotg.c +++ b/frame/compat/f2c/bla_rotg.c @@ -45,7 +45,7 @@ static bla_real sc_b4 = 1.f; -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rotg)(bla_real *sa, bla_real *sb, bla_real *c__, bla_real *s) +/* Subroutine */ int PASTEF77(s,rotg)(bla_real *sa, bla_real *sb, bla_real *c__, bla_real *s) { /* System generated locals */ bla_real r__1, r__2; @@ -105,7 +105,7 @@ L20: static bla_double dc_b4 = 1.; -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rotg)(bla_double *da, bla_double *db, bla_double *c__, bla_double *s) +/* Subroutine */ int PASTEF77(d,rotg)(bla_double *da, bla_double *db, bla_double *c__, bla_double *s) { /* System generated locals */ bla_double d__1, d__2; @@ -161,7 +161,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,rotg)(bla_scomplex *ca, bla_scomplex *cb, bla_real *c__, bla_scomplex *s) +/* Subroutine */ int PASTEF77(c,rotg)(bla_scomplex *ca, bla_scomplex *cb, bla_real *c__, bla_scomplex *s) { /* System generated locals */ bla_real r__1, r__2; @@ -211,7 +211,7 @@ L20: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,rotg)(bla_dcomplex *ca, bla_dcomplex *cb, bla_double *c__, bla_dcomplex *s) +/* Subroutine */ int PASTEF77(z,rotg)(bla_dcomplex *ca, bla_dcomplex *cb, bla_double *c__, bla_dcomplex *s) { /* System generated locals */ bla_double d__1, d__2; diff --git a/frame/compat/f2c/bla_rotm.c b/frame/compat/f2c/bla_rotm.c index b39d33115..003dea715 100644 --- a/frame/compat/f2c/bla_rotm.c +++ b/frame/compat/f2c/bla_rotm.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rotm)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *sparam) +/* Subroutine */ int PASTEF77(s,rotm)(const bla_integer *n, bla_real *sx, const bla_integer *incx, bla_real *sy, const bla_integer *incy, const bla_real *sparam) { /* Initialized data */ @@ -207,7 +207,7 @@ L140: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rotm)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *dparam) +/* Subroutine */ int PASTEF77(d,rotm)(const bla_integer *n, bla_double *dx, const bla_integer *incx, bla_double *dy, const bla_integer *incy, const bla_double *dparam) { /* Initialized data */ diff --git a/frame/compat/f2c/bla_rotmg.c b/frame/compat/f2c/bla_rotmg.c index 2803417fe..11ccc6f33 100644 --- a/frame/compat/f2c/bla_rotmg.c +++ b/frame/compat/f2c/bla_rotmg.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,rotmg)(bla_real *sd1, bla_real *sd2, bla_real *sx1, const bla_real *sy1, bla_real *sparam) +/* Subroutine */ int PASTEF77(s,rotmg)(bla_real *sd1, bla_real *sd2, bla_real *sx1, const bla_real *sy1, bla_real *sparam) { /* Initialized data */ @@ -281,7 +281,7 @@ L260: -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,rotmg)(bla_double *dd1, bla_double *dd2, bla_double *dx1, const bla_double *dy1, bla_double *dparam) +/* Subroutine */ int PASTEF77(d,rotmg)(bla_double *dd1, bla_double *dd2, bla_double *dx1, const bla_double *dy1, bla_double *dparam) { /* Initialized data */ diff --git a/frame/compat/f2c/bla_sbmv.c b/frame/compat/f2c/bla_sbmv.c index ddedc9ea7..566fabd81 100644 --- a/frame/compat/f2c/bla_sbmv.c +++ b/frame/compat/f2c/bla_sbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(d,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_double *alpha, const bla_double *a, const bla_integer *lda, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -392,7 +392,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(s,sbmv)(const bla_character *uplo, const bla_integer *n, const bla_integer *k, const bla_real *alpha, const bla_real *a, const bla_integer *lda, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -401,9 +401,9 @@ bla_integer info; bla_real temp1, temp2; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_spmv.c b/frame/compat/f2c/bla_spmv.c index 909085f38..0485e1dc3 100644 --- a/frame/compat/f2c/bla_spmv.c +++ b/frame/compat/f2c/bla_spmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,spmv)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *ap, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(d,spmv)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *ap, const bla_double *x, const bla_integer *incx, const bla_double *beta, bla_double *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -342,7 +342,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,spmv)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *ap, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) +/* Subroutine */ int PASTEF77(s,spmv)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *ap, const bla_real *x, const bla_integer *incx, const bla_real *beta, bla_real *y, const bla_integer *incy) { /* System generated locals */ bla_integer i__1, i__2; @@ -351,9 +351,9 @@ bla_integer info; bla_real temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx, jy, kx, ky; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_spr.c b/frame/compat/f2c/bla_spr.c index 84f33b569..d276458b4 100644 --- a/frame/compat/f2c/bla_spr.c +++ b/frame/compat/f2c/bla_spr.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,spr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, bla_double *ap) +/* Subroutine */ int PASTEF77(d,spr)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, bla_double *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -268,7 +268,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,spr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, bla_real *ap) +/* Subroutine */ int PASTEF77(s,spr)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, bla_real *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -277,9 +277,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_spr2.c b/frame/compat/f2c/bla_spr2.c index e2df99299..7c7538212 100644 --- a/frame/compat/f2c/bla_spr2.c +++ b/frame/compat/f2c/bla_spr2.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,spr2)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, const bla_double *y, const bla_integer *incy, bla_double *ap) +/* Subroutine */ int PASTEF77(d,spr2)(const bla_character *uplo, const bla_integer *n, const bla_double *alpha, const bla_double *x, const bla_integer *incx, const bla_double *y, const bla_integer *incy, bla_double *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -50,9 +50,9 @@ bla_integer info; bla_double temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ @@ -300,7 +300,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,spr2)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, const bla_real *y, const bla_integer *incy, bla_real *ap) +/* Subroutine */ int PASTEF77(s,spr2)(const bla_character *uplo, const bla_integer *n, const bla_real *alpha, const bla_real *x, const bla_integer *incx, const bla_real *y, const bla_integer *incy, bla_real *ap) { /* System generated locals */ bla_integer i__1, i__2; @@ -309,9 +309,9 @@ bla_integer info; bla_real temp1, temp2; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, iy, jx = 0, jy = 0, kx = 0, ky = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); /* .. Scalar Arguments .. */ /* .. Array Arguments .. */ diff --git a/frame/compat/f2c/bla_tbmv.c b/frame/compat/f2c/bla_tbmv.c index 2d25bde6c..78feb7056 100644 --- a/frame/compat/f2c/bla_tbmv.c +++ b/frame/compat/f2c/bla_tbmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -611,7 +611,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -620,9 +620,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1022,7 +1022,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -1031,9 +1031,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1433,7 +1433,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tbmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -1446,9 +1446,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_tbsv.c b/frame/compat/f2c/bla_tbsv.c index 733e90a2d..6914882d2 100644 --- a/frame/compat/f2c/bla_tbsv.c +++ b/frame/compat/f2c/bla_tbsv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_scomplex *a, const bla_integer *lda, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -603,7 +603,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_double *a, const bla_integer *lda, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -612,9 +612,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1018,7 +1018,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_real *a, const bla_integer *lda, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4; @@ -1027,9 +1027,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1433,7 +1433,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tbsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_integer *k, const bla_dcomplex *a, const bla_integer *lda, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5; @@ -1447,9 +1447,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, l; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kplus1, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_tpmv.c b/frame/compat/f2c/bla_tpmv.c index eddd776d6..8fa46f4c4 100644 --- a/frame/compat/f2c/bla_tpmv.c +++ b/frame/compat/f2c/bla_tpmv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -542,7 +542,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -551,9 +551,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -890,7 +890,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -899,9 +899,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1238,7 +1238,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tpmv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -1251,9 +1251,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_tpsv.c b/frame/compat/f2c/bla_tpsv.c index 8cb43f007..076494097 100644 --- a/frame/compat/f2c/bla_tpsv.c +++ b/frame/compat/f2c/bla_tpsv.c @@ -41,7 +41,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(c,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(c,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_scomplex *ap, bla_scomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -54,9 +54,9 @@ bla_integer info; bla_scomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ @@ -534,7 +534,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(d,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(d,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_double *ap, bla_double *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -543,9 +543,9 @@ bla_integer info; bla_double temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -885,7 +885,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(s,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(s,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_real *ap, bla_real *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2; @@ -894,9 +894,9 @@ bla_integer info; bla_real temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical nounit; /* .. Scalar Arguments .. */ @@ -1236,7 +1236,7 @@ -lf2c -lm (in that order) */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF77(z,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) +/* Subroutine */ int PASTEF77(z,tpsv)(const bla_character *uplo, const bla_character *trans, const bla_character *diag, const bla_integer *n, const bla_dcomplex *ap, bla_dcomplex *x, const bla_integer *incx) { /* System generated locals */ bla_integer i__1, i__2, i__3, i__4, i__5; @@ -1250,9 +1250,9 @@ bla_integer info; bla_dcomplex temp; bla_integer i__, j, k; - //extern bla_logical BLIS_EXPORT_BLAS PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); + //extern bla_logical PASTEF770(lsame)(bla_character *, bla_character *, ftnlen, ftnlen); bla_integer kk, ix, jx, kx = 0; - //extern /* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); + //extern /* Subroutine */ int PASTEF770(xerbla)(bla_character *, bla_integer *, ftnlen); bla_logical noconj, nounit; /* .. Scalar Arguments .. */ diff --git a/frame/compat/f2c/bla_xerbla.c b/frame/compat/f2c/bla_xerbla.c index 543e06fdb..a6500c443 100644 --- a/frame/compat/f2c/bla_xerbla.c +++ b/frame/compat/f2c/bla_xerbla.c @@ -43,7 +43,7 @@ /* Table of constant values */ -/* Subroutine */ int BLIS_EXPORT_BLAS PASTEF770(xerbla)(const bla_character *srname, const bla_integer *info, ftnlen srname_len) +/* Subroutine */ int PASTEF770(xerbla)(const bla_character *srname, const bla_integer *info, ftnlen srname_len) { /* -- LAPACK auxiliary routine (preliminary version) -- */ /* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., */ diff --git a/frame/include/bli_extern_defs.h b/frame/include/bli_extern_defs.h index d577de4bf..9773e5e69 100644 --- a/frame/include/bli_extern_defs.h +++ b/frame/include/bli_extern_defs.h @@ -35,28 +35,16 @@ #ifndef BLIS_EXTERN_DEFS_H #define BLIS_EXTERN_DEFS_H -#if !defined(BLIS_ENABLE_SHARED) || !defined(_MSC_VER) -#define BLIS_EXPORT -#else -// Windows builds require us to explicitly identify global variable symbols -// to be imported from the .dll. -#ifdef BLIS_IS_BUILDING_LIBRARY -#define BLIS_EXPORT __declspec(dllexport) -#else -#define BLIS_EXPORT __declspec(dllimport) -#endif -#endif +BLIS_EXPORT_BLIS extern obj_t BLIS_TWO; +BLIS_EXPORT_BLIS extern obj_t BLIS_ONE; +//BLIS_EXPORT_BLIS extern obj_t BLIS_ONE_HALF; +BLIS_EXPORT_BLIS extern obj_t BLIS_ZERO; +//BLIS_EXPORT_BLIS extern obj_t BLIS_MINUS_ONE_HALF; +BLIS_EXPORT_BLIS extern obj_t BLIS_MINUS_ONE; +BLIS_EXPORT_BLIS extern obj_t BLIS_MINUS_TWO; -BLIS_EXPORT extern obj_t BLIS_TWO; -BLIS_EXPORT extern obj_t BLIS_ONE; -//BLIS_EXPORT extern obj_t BLIS_ONE_HALF; -BLIS_EXPORT extern obj_t BLIS_ZERO; -//BLIS_EXPORT extern obj_t BLIS_MINUS_ONE_HALF; -BLIS_EXPORT extern obj_t BLIS_MINUS_ONE; -BLIS_EXPORT extern obj_t BLIS_MINUS_TWO; - -BLIS_EXPORT extern thrcomm_t BLIS_SINGLE_COMM; -BLIS_EXPORT extern thrinfo_t BLIS_PACKM_SINGLE_THREADED; -BLIS_EXPORT extern thrinfo_t BLIS_GEMM_SINGLE_THREADED; +BLIS_EXPORT_BLIS extern thrcomm_t BLIS_SINGLE_COMM; +BLIS_EXPORT_BLIS extern thrinfo_t BLIS_PACKM_SINGLE_THREADED; +BLIS_EXPORT_BLIS extern thrinfo_t BLIS_GEMM_SINGLE_THREADED; #endif diff --git a/frame/ind/cntx/bli_cntx_ind_stage.c b/frame/ind/cntx/bli_cntx_ind_stage.c index c48dbe234..671be681d 100644 --- a/frame/ind/cntx/bli_cntx_ind_stage.c +++ b/frame/ind/cntx/bli_cntx_ind_stage.c @@ -53,7 +53,7 @@ static void* bli_cntx_ind_stage_fp[BLIS_NUM_IND_METHODS] = // Execute the context initialization/finalization function associated // with a given induced method. -BLIS_EXPORT_BLIS void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cntx ) +void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cntx ) { cntx_stage_ft func = bli_cntx_ind_stage_fp[ method ]; @@ -69,7 +69,7 @@ BLIS_EXPORT_BLIS void bli_cntx_ind_stage( ind_t method, dim_t stage, cntx_t* cnt // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ) { // Set the pack_t schemas as a function of the stage of execution. if ( stage == 0 ) @@ -91,13 +91,13 @@ BLIS_EXPORT_BLIS void bli_cntx_3mh_stage( dim_t stage, cntx_t* cntx ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_3m1_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_3m1_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ) { // Set the pack_t schemas as a function of the stage of execution. if ( stage == 0 ) @@ -124,25 +124,25 @@ BLIS_EXPORT_BLIS void bli_cntx_4mh_stage( dim_t stage, cntx_t* cntx ) // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_4mb_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_4mb_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_4m1_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_4m1_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_1m_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_1m_stage( dim_t stage, cntx_t* cntx ) { } // ----------------------------------------------------------------------------- -BLIS_EXPORT_BLIS void bli_cntx_nat_stage( dim_t stage, cntx_t* cntx ) +void bli_cntx_nat_stage( dim_t stage, cntx_t* cntx ) { } diff --git a/frame/ind/oapi/bli_l3_3m4m1m_oapi.c b/frame/ind/oapi/bli_l3_3m4m1m_oapi.c index 9386a2738..087e1beef 100644 --- a/frame/ind/oapi/bli_l3_3m4m1m_oapi.c +++ b/frame/ind/oapi/bli_l3_3m4m1m_oapi.c @@ -40,7 +40,7 @@ #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -147,7 +147,7 @@ GENFRONT( syr2k, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -240,7 +240,7 @@ GENFRONT( trmm3, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -323,7 +323,7 @@ GENFRONT( syrk, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -387,7 +387,7 @@ GENFRONT( trmm, gemm, 1m, 1 ) #undef GENFRONT #define GENFRONT( opname, cname, imeth, nstage ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/ind/oapi/bli_l3_ind_oapi.c b/frame/ind/oapi/bli_l3_ind_oapi.c index 87755e277..213753019 100644 --- a/frame/ind/oapi/bli_l3_ind_oapi.c +++ b/frame/ind/oapi/bli_l3_ind_oapi.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -76,7 +76,7 @@ GENFRONT( syr2k, ind ) #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -112,7 +112,7 @@ GENFRONT( trmm3, ind ) #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -145,7 +145,7 @@ GENFRONT( syrk, ind ) #undef GENFRONT #define GENFRONT( opname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/ind/oapi/bli_l3_nat_oapi.c b/frame/ind/oapi/bli_l3_nat_oapi.c index c45e74f12..52b7e98ad 100644 --- a/frame/ind/oapi/bli_l3_nat_oapi.c +++ b/frame/ind/oapi/bli_l3_nat_oapi.c @@ -46,7 +46,7 @@ #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -89,7 +89,7 @@ GENFRONT( syr2k, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -129,7 +129,7 @@ GENFRONT( trmm3, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ obj_t* alpha, \ obj_t* a, \ @@ -166,7 +166,7 @@ GENFRONT( syrk, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ @@ -202,7 +202,7 @@ GENFRONT( trmm, gemm, nat ) #undef GENFRONT #define GENFRONT( opname, cname, imeth ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,imeth) \ +void PASTEMAC(opname,imeth) \ ( \ side_t side, \ obj_t* alpha, \ diff --git a/frame/ind/tapi/bli_l3_ind_tapi.c b/frame/ind/tapi/bli_l3_ind_tapi.c index 35060a572..9ca7746bc 100644 --- a/frame/ind/tapi/bli_l3_ind_tapi.c +++ b/frame/ind/tapi/bli_l3_ind_tapi.c @@ -40,7 +40,7 @@ #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ trans_t transa, \ trans_t transb, \ @@ -103,7 +103,7 @@ INSERT_GENTFUNC_BASIC0( gemm1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -170,7 +170,7 @@ INSERT_GENTFUNC_BASIC0( hemm1m ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -229,7 +229,7 @@ INSERT_GENTFUNCR_BASIC0( herk1m ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -295,7 +295,7 @@ INSERT_GENTFUNCR_BASIC0( her2k1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -362,7 +362,7 @@ INSERT_GENTFUNC_BASIC0( symm1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -420,7 +420,7 @@ INSERT_GENTFUNC_BASIC0( syrk1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ uplo_t uploc, \ trans_t transa, \ @@ -485,7 +485,7 @@ INSERT_GENTFUNC_BASIC0( syr2k1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -554,7 +554,7 @@ INSERT_GENTFUNC_BASIC0( trmm31m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ @@ -611,7 +611,7 @@ INSERT_GENTFUNC_BASIC0( trmm1m ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ side_t side, \ uplo_t uploa, \ diff --git a/frame/util/bli_util_check.c b/frame/util/bli_util_check.c index 27a21279e..ae4ebb461 100644 --- a/frame/util/bli_util_check.c +++ b/frame/util/bli_util_check.c @@ -41,7 +41,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* asum \ @@ -56,7 +56,7 @@ GENFRONT( asumv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -72,7 +72,7 @@ GENFRONT( mktrim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* norm \ @@ -89,7 +89,7 @@ GENFRONT( normiv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* norm \ @@ -106,7 +106,7 @@ GENFRONT( normim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ FILE* file, \ char* s1, \ @@ -125,7 +125,7 @@ GENFRONT( fprintm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x \ ) \ @@ -142,7 +142,7 @@ GENFRONT( randnm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,_check) \ +void PASTEMAC(opname,_check) \ ( \ obj_t* x, \ obj_t* scale, \ diff --git a/frame/util/bli_util_oapi.c b/frame/util/bli_util_oapi.c index b786a56dd..f9f9b4c93 100644 --- a/frame/util/bli_util_oapi.c +++ b/frame/util/bli_util_oapi.c @@ -43,7 +43,7 @@ #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* asum \ @@ -86,7 +86,7 @@ GENFRONT( asumv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* a \ BLIS_OAPI_EX_PARAMS \ @@ -130,7 +130,7 @@ GENFRONT( mktrim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* norm \ @@ -174,7 +174,7 @@ GENFRONT( normiv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* norm \ @@ -227,7 +227,7 @@ GENFRONT( normim ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ FILE* file, \ char* s1, \ @@ -278,7 +278,7 @@ GENFRONT( fprintv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ FILE* file, \ char* s1, \ @@ -347,7 +347,7 @@ GENFRONT( fprintm ) #undef GENFRONT #define GENFRONT( opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ char* s1, \ obj_t* x, \ @@ -381,7 +381,7 @@ GENFRONT( printm, fprintm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -421,7 +421,7 @@ GENFRONT( randnv ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x \ BLIS_OAPI_EX_PARAMS \ @@ -468,7 +468,7 @@ GENFRONT( randnm ) #undef GENFRONT #define GENFRONT( opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(opname,EX_SUF) \ +void PASTEMAC(opname,EX_SUF) \ ( \ obj_t* x, \ obj_t* scale, \ diff --git a/frame/util/bli_util_tapi.c b/frame/util/bli_util_tapi.c index b069b3b27..6bef27d43 100644 --- a/frame/util/bli_util_tapi.c +++ b/frame/util/bli_util_tapi.c @@ -43,7 +43,7 @@ #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -84,7 +84,7 @@ INSERT_GENTFUNCR_BASIC0( asumv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -122,7 +122,7 @@ INSERT_GENTFUNC_BASIC0( mktrim ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -165,7 +165,7 @@ INSERT_GENTFUNCR_BASIC0( normiv ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -216,7 +216,7 @@ INSERT_GENTFUNCR_BASIC0( normim ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ char* s1, \ dim_t n, \ @@ -244,7 +244,7 @@ INSERT_GENTFUNC_BASIC_I( printv, fprintv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ char* s1, \ dim_t m, \ @@ -274,7 +274,7 @@ INSERT_GENTFUNC_BASIC_I( printm, fprintm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx \ @@ -309,7 +309,7 @@ INSERT_GENTFUNC_BASIC0( randnv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ doff_t diagoffx, \ uplo_t uplox, \ @@ -350,7 +350,7 @@ INSERT_GENTFUNC_BASIC0( randnm ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC2(ch,opname,EX_SUF) \ +void PASTEMAC2(ch,opname,EX_SUF) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ diff --git a/frame/util/bli_util_unb_var1.c b/frame/util/bli_util_unb_var1.c index b688fbae5..203a63a1d 100644 --- a/frame/util/bli_util_unb_var1.c +++ b/frame/util/bli_util_unb_var1.c @@ -43,7 +43,7 @@ #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -87,7 +87,7 @@ INSERT_GENTFUNCR_BASIC0( asumv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -143,7 +143,7 @@ INSERT_GENTFUNCR_BASIC0( mkherm_unb_var1 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -185,7 +185,7 @@ INSERT_GENTFUNC_BASIC0( mksymm_unb_var1 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ uplo_t uploa, \ dim_t m, \ @@ -230,7 +230,7 @@ INSERT_GENTFUNC_BASIC0( mktrim_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -268,7 +268,7 @@ INSERT_GENTFUNCR_BASIC0( norm1v_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -314,7 +314,7 @@ GENTFUNCR( dcomplex, double, z, d, normfv_unb_var1, sumsqv_unb_var1 ) #ifdef FE_OVERFLOW #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -393,7 +393,7 @@ BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ #else #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -439,7 +439,7 @@ GENTFUNCR( double, double, d, d, normfv_unb_var1, sumsqv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -485,7 +485,7 @@ INSERT_GENTFUNCR_BASIC0( normiv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -649,7 +649,7 @@ INSERT_GENTFUNCR_BASIC( norm1m_unb_var1, norm1v_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -816,7 +816,7 @@ INSERT_GENTFUNCR_BASIC( normfm_unb_var1, sumsqv_unb_var1 ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ diag_t diagx, \ @@ -858,7 +858,7 @@ INSERT_GENTFUNCR_BASIC( normim_unb_var1, norm1m_unb_var1 ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ FILE* file, \ char* s1, \ @@ -895,7 +895,7 @@ INSERT_GENTFUNC_BASIC0_I( fprintv ) #undef GENTFUNC #define GENTFUNC( ctype, ch, opname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,opname) \ +void PASTEMAC(ch,opname) \ ( \ FILE* file, \ char* s1, \ @@ -937,7 +937,7 @@ INSERT_GENTFUNC_BASIC0_I( fprintm ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, randmac ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \ @@ -965,7 +965,7 @@ INSERT_GENTFUNC_BASIC( randnv_unb_var1, randnp2s ) #undef GENTFUNC #define GENTFUNC( ctype, ch, varname, kername ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ doff_t diagoffx, \ uplo_t uplox, \ @@ -1118,7 +1118,7 @@ INSERT_GENTFUNC_BASIC( randnm_unb_var1, randnv ) #undef GENTFUNCR #define GENTFUNCR( ctype, ctype_r, ch, chr, varname ) \ \ -BLIS_EXPORT_BLIS void PASTEMAC(ch,varname) \ +void PASTEMAC(ch,varname) \ ( \ dim_t n, \ ctype* x, inc_t incx, \