amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-04-20 15:48:50 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add blis_impl wrappers for matrix copy etc APIs (2)

Browse Source 
Previous commit on this (e0b86c69af)
was incorrect and incomplete. Add additional changes to enable
blis_impl layer for extension APIs for copying and transposing
matrices.

Change-Id: Ic707e3585acc1c0c554d7e00435464620a8c85dc
This commit is contained in:
Edward Smyth
2025-04-07 07:09:46 -04:00
parent c68c258fad
commit a5f11a1540
10 changed files with 99 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
frame/compat/bla_imatcopy.c
View File

@@ -34,8 +34,6 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLAS
static dim_t bli_siMatCopy_cn
(
dim_t rows,
@@ -573,7 +571,7 @@ static dim_t bli_siMatCopy_cn(dim_t rows,dim_t cols,const float alpha,float* a,d
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_siMatCopy_cn), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_siMatCopy_cn), &mem_fail_info, (f77_int)16);
}
}
@@ -656,7 +654,7 @@ static dim_t bli_diMatCopy_cn(dim_t rows,dim_t cols,const double alpha,double* a
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_diMatCopy_cn), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_diMatCopy_cn), &mem_fail_info, (f77_int)16);
}
}
@@ -743,7 +741,7 @@ static dim_t bli_ciMatCopy_cn(dim_t rows,dim_t cols,const scomplex alpha,scomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ciMatCopy_cn), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ciMatCopy_cn), &mem_fail_info, (f77_int)16);
}
}
@@ -830,7 +828,7 @@ static dim_t bli_ziMatCopy_cn(dim_t rows,dim_t cols,const dcomplex alpha,dcomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ziMatCopy_cn), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ziMatCopy_cn), &mem_fail_info, (f77_int)16);
}
}
@@ -911,7 +909,7 @@ static dim_t bli_siMatCopy_ct(dim_t rows,dim_t cols,const float alpha,float* a,d
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_siMatCopy_ct), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_siMatCopy_ct), &mem_fail_info, (f77_int)16);
}
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
@@ -991,7 +989,7 @@ static dim_t bli_diMatCopy_ct(dim_t rows,dim_t cols,const double alpha,double* a
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_diMatCopy_ct), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_diMatCopy_ct), &mem_fail_info, (f77_int)16);
}
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
@@ -1073,7 +1071,7 @@ static dim_t bli_ciMatCopy_ct(dim_t rows,dim_t cols,const scomplex alpha,scomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ciMatCopy_ct), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ciMatCopy_ct), &mem_fail_info, (f77_int)16);
}
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
@@ -1155,7 +1153,7 @@ static dim_t bli_ziMatCopy_ct(dim_t rows,dim_t cols,const dcomplex alpha,dcomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ziMatCopy_ct), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ziMatCopy_ct), &mem_fail_info, (f77_int)16);
}
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
@@ -1238,7 +1236,7 @@ static dim_t bli_ciMatCopy_cr(dim_t rows,dim_t cols,const scomplex alpha,scomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ciMatCopy_cr), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ciMatCopy_cr), &mem_fail_info, (f77_int)16);
}
}
@@ -1322,7 +1320,7 @@ static dim_t bli_ziMatCopy_cr(dim_t rows,dim_t cols,const dcomplex alpha,dcomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ziMatCopy_cr), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ziMatCopy_cr), &mem_fail_info, (f77_int)16);
}
}
@@ -1391,7 +1389,7 @@ static dim_t bli_ciMatCopy_cc(dim_t rows,dim_t cols,const scomplex alpha,scomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ciMatCopy_ct), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ciMatCopy_ct), &mem_fail_info, (f77_int)16);
}
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
@@ -1459,11 +1457,9 @@ static dim_t bli_ziMatCopy_cc(dim_t rows,dim_t cols,const dcomplex alpha,dcomple
else
{
f77_int mem_fail_info = -10;
xerbla_(MKSTR(bli_ziMatCopy_ct), &mem_fail_info, (f77_int)16);
xerbla_blis_impl(MKSTR(bli_ziMatCopy_ct), &mem_fail_info, (f77_int)16);
}
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
return ( 0 );
}
#endif

10
frame/compat/bla_imatcopy.h
View File

@@ -4,7 +4,7 @@
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2020, Advanced Micro Devices, Inc. All rights reserved.
Copyright (C) 2020 - 2025, Advanced Micro Devices, Inc. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
@@ -47,3 +47,11 @@ BLIS_EXPORT_BLAS void cimatcopy_ (f77_char* trans, f77_int* rows, f77_int* cols,
BLIS_EXPORT_BLAS void zimatcopy_ (f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha,dcomplex* aptr, f77_int* lda, f77_int* ldb);
#endif
BLIS_EXPORT_BLAS void simatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha,float* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLAS void dimatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha,double* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLAS void cimatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha,scomplex* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLAS void zimatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha,dcomplex* aptr, f77_int* lda, f77_int* ldb);

3
frame/compat/bla_omatadd.c
View File

@@ -34,8 +34,6 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLAS
static dim_t bli_soMatAdd_cn(dim_t m,dim_t n,const float alpha,float* aptr,dim_t lda,const float beta,float* bptr,dim_t ldb,float* C,dim_t ldc);
static dim_t bli_doMatAdd_cn(dim_t m,dim_t n,const double alpha,double* aptr,dim_t lda,const double beta,double* bptr,dim_t ldb,double* C,dim_t ldc);
@@ -535,4 +533,3 @@ static dim_t bli_zoMatAdd_cn(dim_t rows,dim_t cols,const dcomplex alpha,dcomplex
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
return(0);
}
#endif

10
frame/compat/bla_omatadd.h
View File

@@ -4,7 +4,7 @@
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2020, Advanced Micro Devices, Inc. All rights reserved.
Copyright (C) 2020 - 2025, Advanced Micro Devices, Inc. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
@@ -47,3 +47,11 @@ BLIS_EXPORT_BLAS void comatadd_ (f77_char* transa,f77_char* transb, f77_int* m,
BLIS_EXPORT_BLAS void zomatadd_ (f77_char* transa,f77_char* transb, f77_int* m, f77_int* n, const dcomplex* alpha, const dcomplex* A, f77_int* lda,const dcomplex* beta, dcomplex* B, f77_int* ldb, dcomplex* C, f77_int* ldc);
#endif
BLIS_EXPORT_BLAS void somatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int* n, const float* alpha, const float* A, f77_int* lda, const float* beta, const float* B, f77_int* ldb, float* C, f77_int* ldc);
BLIS_EXPORT_BLAS void domatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int* n, const double* alpha, const double* A, f77_int* lda, const double* beta, const double* B, f77_int* ldb, double* C, f77_int* ldc);
BLIS_EXPORT_BLAS void comatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int* n, const scomplex* alpha, const scomplex* A, f77_int* lda,const scomplex* beta, scomplex* B, f77_int* ldb, scomplex* C, f77_int* ldc);
BLIS_EXPORT_BLAS void zomatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int* n, const dcomplex* alpha, const dcomplex* A, f77_int* lda,const dcomplex* beta, dcomplex* B, f77_int* ldb, dcomplex* C, f77_int* ldc);

4
frame/compat/bla_omatcopy.c
View File

@@ -34,8 +34,6 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLAS
static dim_t bli_soMatCopy_cn(dim_t rows, dim_t cols, const float alpha, const float* a, dim_t lda, float* b, dim_t ldb);
static dim_t bli_soMatCopy_ct(dim_t rows, dim_t cols, const float alpha, const float* a, dim_t lda, float* b, dim_t ldb);
@@ -966,5 +964,3 @@ static dim_t bli_zoMatCopy_cc(dim_t rows, dim_t cols, const dcomplex alpha, cons
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
return(0);
}
#endif

10
frame/compat/bla_omatcopy.h
View File

@@ -4,7 +4,7 @@
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2020, Advanced Micro Devices, Inc. All rights reserved.
Copyright (C) 2020 - 2025, Advanced Micro Devices, Inc. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
@@ -47,3 +47,11 @@ BLIS_EXPORT_BLAS void comatcopy_ (f77_char* trans, f77_int* rows, f77_int* cols,
BLIS_EXPORT_BLAS void zomatcopy_ (f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, dcomplex* bptr, f77_int* ldb);
#endif
BLIS_EXPORT_BLAS void somatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, float* bptr, f77_int* ldb);
BLIS_EXPORT_BLAS void domatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, double* bptr, f77_int* ldb);
BLIS_EXPORT_BLAS void comatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, scomplex* bptr, f77_int* ldb);
BLIS_EXPORT_BLAS void zomatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, dcomplex* bptr, f77_int* ldb);

4
frame/compat/bla_omatcopy2.c
View File

@@ -34,8 +34,6 @@
#include "blis.h"
#ifdef BLIS_ENABLE_BLAS
static dim_t bli_soMatCopy2_cn
(
dim_t rows,
@@ -1453,5 +1451,3 @@ static dim_t bli_zoMatCopy2_cc
AOCL_DTL_TRACE_EXIT(AOCL_DTL_LEVEL_TRACE_2);
return ( 0 );
}
#endif

10
frame/compat/bla_omatcopy2.h
View File

@@ -4,7 +4,7 @@
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2020, Advanced Micro Devices, Inc. All rights reserved.
Copyright (C) 2020 - 2025, Advanced Micro Devices, Inc. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
@@ -48,3 +48,11 @@ BLIS_EXPORT_BLAS void comatcopy2_ (f77_char* trans, f77_int* rows, f77_int* cols
BLIS_EXPORT_BLAS void zomatcopy2_ (f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda,f77_int* stridea, dcomplex* bptr, f77_int* ldb,f77_int* strideb);
#endif
BLIS_EXPORT_BLAS void somatcopy2_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda,f77_int* stridea, float* bptr, f77_int* ldb,f77_int* strideb);
BLIS_EXPORT_BLAS void domatcopy2_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda,f77_int* stridea, double* bptr, f77_int* ldb,f77_int* strideb);
BLIS_EXPORT_BLAS void comatcopy2_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda,f77_int* stridea, scomplex* bptr, f77_int* ldb,f77_int* strideb);
BLIS_EXPORT_BLAS void zomatcopy2_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda,f77_int* stridea, dcomplex* bptr, f77_int* ldb,f77_int* strideb);

36
frame/include/bli_blas_blis_impl_interface_defs.h
View File

@@ -4,7 +4,7 @@
An object-based framework for developing high-performance BLAS-like
libraries.
Copyright (C) 2024, Advanced Micro Devices, Inc. All rights reserved.
Copyright (C) 2024 - 2025, Advanced Micro Devices, Inc. All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are
@@ -155,6 +155,23 @@
#define ztrsm_blis_impl_ ztrsm_blis_impl
#define lsame_blis_impl_ lsame_blis_impl
#define cimatcopy_blis_impl_ cimatcopy_blis_impl
#define comatadd_blis_impl_ comatadd_blis_impl
#define comatcopy2_blis_impl_ comatcopy2_blis_impl
#define comatcopy_blis_impl_ comatcopy_blis_impl
#define dimatcopy_blis_impl_ dimatcopy_blis_impl
#define domatadd_blis_impl_ domatadd_blis_impl
#define domatcopy2_blis_impl_ domatcopy2_blis_impl
#define domatcopy_blis_impl_ domatcopy_blis_impl
#define simatcopy_blis_impl_ simatcopy_blis_impl
#define somatadd_blis_impl_ somatadd_blis_impl
#define somatcopy2_blis_impl_ somatcopy2_blis_impl
#define somatcopy_blis_impl_ somatcopy_blis_impl
#define zimatcopy_blis_impl_ zimatcopy_blis_impl
#define zomatadd_blis_impl_ zomatadd_blis_impl
#define zomatcopy2_blis_impl_ zomatcopy2_blis_impl
#define zomatcopy_blis_impl_ zomatcopy_blis_impl
#endif // BLIS_ENABLE_BLAS
#endif // BLIS_ENABLE_NO_UNDERSCORE_API
@@ -360,6 +377,23 @@
#define ztrsm_blis_impl ZTRSM_BLIS_IMPL
#define ztrsv_blis_impl ZTRSV_BLIS_IMPL
#define cimatcopy_blis_impl CIMATCOPY_BLIS_IMPL
#define comatadd_blis_impl COMATADD_BLIS_IMPL
#define comatcopy2_blis_impl COMATCOPY2_BLIS_IMPL
#define comatcopy_blis_impl COMATCOPY_BLIS_IMPL
#define dimatcopy_blis_impl DIMATCOPY_BLIS_IMPL
#define domatadd_blis_impl DOMATADD_BLIS_IMPL
#define domatcopy2_blis_impl DOMATCOPY2_BLIS_IMPL
#define domatcopy_blis_impl DOMATCOPY_BLIS_IMPL
#define simatcopy_blis_impl SIMATCOPY_BLIS_IMPL
#define somatadd_blis_impl SOMATADD_BLIS_IMPL
#define somatcopy2_blis_impl SOMATCOPY2_BLIS_IMPL
#define somatcopy_blis_impl SOMATCOPY_BLIS_IMPL
#define zimatcopy_blis_impl ZIMATCOPY_BLIS_IMPL
#define zomatadd_blis_impl ZOMATADD_BLIS_IMPL
#define zomatcopy2_blis_impl ZOMATCOPY2_BLIS_IMPL
#define zomatcopy_blis_impl ZOMATCOPY_BLIS_IMPL
#endif // BLIS_ENABLE_BLAS
#endif // BLIS_ENABLE_UPPERCASE_API

32
frame/util/bli_util_api_wrap_blis_impl.h
View File

@@ -1674,7 +1674,7 @@ BLIS_EXPORT_BLIS void ZGEMMT_BLIS_IMPL_( const f77_char* uploc, const f77_char*
BLIS_EXPORT_BLIS void CIMATCOPY_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, scomplex* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void cimatcopy_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, scomplex* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void cimatcopy_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, scomplex* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void CIMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, scomplex* aptr, f77_int* lda, f77_int* ldb);
@@ -1682,7 +1682,7 @@ BLIS_EXPORT_BLIS void CIMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77
BLIS_EXPORT_BLIS void COMATADD_BLIS_IMPL(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const scomplex* alpha, const scomplex* A, f77_int* lda, const scomplex* beta, scomplex* B, f77_int* ldb, scomplex* C, f77_int* ldc);
BLIS_EXPORT_BLIS void comatadd_blis_impl(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const scomplex* alpha, const scomplex* A, f77_int* lda, const scomplex* beta, scomplex* B, f77_int* ldb, scomplex* C, f77_int* ldc);
BLIS_EXPORT_BLIS void comatadd_blis_impl_(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const scomplex* alpha, const scomplex* A, f77_int* lda, const scomplex* beta, scomplex* B, f77_int* ldb, scomplex* C, f77_int* ldc);
BLIS_EXPORT_BLIS void COMATADD_BLIS_IMPL_(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const scomplex* alpha, const scomplex* A, f77_int* lda, const scomplex* beta, scomplex* B, f77_int* ldb, scomplex* C, f77_int* ldc);
@@ -1690,7 +1690,7 @@ BLIS_EXPORT_BLIS void COMATADD_BLIS_IMPL_(f77_char* transa, f77_char* transb, f
BLIS_EXPORT_BLIS void COMATCOPY2_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, f77_int* stridea, scomplex* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void comatcopy2_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, f77_int* stridea, scomplex* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void comatcopy2_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, f77_int* stridea, scomplex* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void COMATCOPY2_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, f77_int* stridea, scomplex* bptr, f77_int* ldb, f77_int* strideb);
@@ -1698,7 +1698,7 @@ BLIS_EXPORT_BLIS void COMATCOPY2_BLIS_IMPL_(f77_char* trans, f77_int* rows, f7
BLIS_EXPORT_BLIS void COMATCOPY_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, scomplex* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void comatcopy_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, scomplex* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void comatcopy_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, scomplex* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void COMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const scomplex* alpha, const scomplex* aptr, f77_int* lda, scomplex* bptr, f77_int* ldb);
@@ -1706,7 +1706,7 @@ BLIS_EXPORT_BLIS void COMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77
BLIS_EXPORT_BLIS void DIMATCOPY_BLIS_IMPL( f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, double* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void dimatcopy_blis_impl( f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, double* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void dimatcopy_blis_impl_( f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, double* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void DIMATCOPY_BLIS_IMPL_( f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, double* aptr, f77_int* lda, f77_int* ldb);
@@ -1714,7 +1714,7 @@ BLIS_EXPORT_BLIS void DIMATCOPY_BLIS_IMPL_( f77_char* trans, f77_int* rows, f7
BLIS_EXPORT_BLIS void DOMATADD_BLIS_IMPL(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const double* alpha, const double* A, f77_int* lda, const double* beta, const double* B, f77_int* ldb, double* C, f77_int* ldc);
BLIS_EXPORT_BLIS void domatadd_blis_impl(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const double* alpha, const double* A, f77_int* lda, const double* beta, const double* B, f77_int* ldb, double* C, f77_int* ldc);
BLIS_EXPORT_BLIS void domatadd_blis_impl_(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const double* alpha, const double* A, f77_int* lda, const double* beta, const double* B, f77_int* ldb, double* C, f77_int* ldc);
BLIS_EXPORT_BLIS void DOMATADD_BLIS_IMPL_(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const double* alpha, const double* A, f77_int* lda, const double* beta, const double* B, f77_int* ldb, double* C, f77_int* ldc);
@@ -1722,7 +1722,7 @@ BLIS_EXPORT_BLIS void DOMATADD_BLIS_IMPL_(f77_char* transa, f77_char* transb, f
BLIS_EXPORT_BLIS void DOMATCOPY2_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, f77_int* stridea, double* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void domatcopy2_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, f77_int* stridea, double* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void domatcopy2_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, f77_int* stridea, double* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void DOMATCOPY2_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, f77_int* stridea, double* bptr, f77_int* ldb, f77_int* strideb);
@@ -1730,7 +1730,7 @@ BLIS_EXPORT_BLIS void DOMATCOPY2_BLIS_IMPL_(f77_char* trans, f77_int* rows, f7
BLIS_EXPORT_BLIS void DOMATCOPY_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, double* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void domatcopy_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, double* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void domatcopy_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, double* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void DOMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const double* alpha, const double* aptr, f77_int* lda, double* bptr, f77_int* ldb);
@@ -1738,7 +1738,7 @@ BLIS_EXPORT_BLIS void DOMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77
BLIS_EXPORT_BLIS void SIMATCOPY_BLIS_IMPL( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, float* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void simatcopy_blis_impl( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, float* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void simatcopy_blis_impl_( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, float* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void SIMATCOPY_BLIS_IMPL_( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, float* aptr, f77_int* lda, f77_int* ldb);
@@ -1746,7 +1746,7 @@ BLIS_EXPORT_BLIS void SIMATCOPY_BLIS_IMPL_( f77_char* trans, f77_int* rows, f7
BLIS_EXPORT_BLIS void SOMATADD_BLIS_IMPL( f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const float* alpha, const float* A, f77_int* lda, const float* beta, const float* B, f77_int* ldb, float* C, f77_int* ldc);
BLIS_EXPORT_BLIS void somatadd_blis_impl( f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const float* alpha, const float* A, f77_int* lda, const float* beta, const float* B, f77_int* ldb, float* C, f77_int* ldc);
BLIS_EXPORT_BLIS void somatadd_blis_impl_( f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const float* alpha, const float* A, f77_int* lda, const float* beta, const float* B, f77_int* ldb, float* C, f77_int* ldc);
BLIS_EXPORT_BLIS void SOMATADD_BLIS_IMPL_( f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const float* alpha, const float* A, f77_int* lda, const float* beta, const float* B, f77_int* ldb, float* C, f77_int* ldc);
@@ -1754,7 +1754,7 @@ BLIS_EXPORT_BLIS void SOMATADD_BLIS_IMPL_( f77_char* transa, f77_char* transb,
BLIS_EXPORT_BLIS void SOMATCOPY2_BLIS_IMPL( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, f77_int* stridea, float* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void somatcopy2_blis_impl( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, f77_int* stridea, float* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void somatcopy2_blis_impl_( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, f77_int* stridea, float* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void SOMATCOPY2_BLIS_IMPL_( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, f77_int* stridea, float* bptr, f77_int* ldb, f77_int* strideb);
@@ -1762,7 +1762,7 @@ BLIS_EXPORT_BLIS void SOMATCOPY2_BLIS_IMPL_( f77_char* trans, f77_int* rows, f
BLIS_EXPORT_BLIS void SOMATCOPY_BLIS_IMPL( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, float* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void somatcopy_blis_impl( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, float* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void somatcopy_blis_impl_( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, float* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void SOMATCOPY_BLIS_IMPL_( f77_char* trans, f77_int* rows, f77_int* cols, const float* alpha, const float* aptr, f77_int* lda, float* bptr, f77_int* ldb);
@@ -1770,7 +1770,7 @@ BLIS_EXPORT_BLIS void SOMATCOPY_BLIS_IMPL_( f77_char* trans, f77_int* rows, f7
BLIS_EXPORT_BLIS void ZIMATCOPY_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, dcomplex* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void zimatcopy_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, dcomplex* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void zimatcopy_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, dcomplex* aptr, f77_int* lda, f77_int* ldb);
BLIS_EXPORT_BLIS void ZIMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, dcomplex* aptr, f77_int* lda, f77_int* ldb);
@@ -1778,7 +1778,7 @@ BLIS_EXPORT_BLIS void ZIMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77
BLIS_EXPORT_BLIS void ZOMATADD_BLIS_IMPL(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const dcomplex* alpha, const dcomplex* A, f77_int* lda, const dcomplex* beta, dcomplex* B, f77_int* ldb, dcomplex* C, f77_int* ldc);
BLIS_EXPORT_BLIS void zomatadd_blis_impl(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const dcomplex* alpha, const dcomplex* A, f77_int* lda, const dcomplex* beta, dcomplex* B, f77_int* ldb, dcomplex* C, f77_int* ldc);
BLIS_EXPORT_BLIS void zomatadd_blis_impl_(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const dcomplex* alpha, const dcomplex* A, f77_int* lda, const dcomplex* beta, dcomplex* B, f77_int* ldb, dcomplex* C, f77_int* ldc);
BLIS_EXPORT_BLIS void ZOMATADD_BLIS_IMPL_(f77_char* transa, f77_char* transb, f77_int* m, f77_int* n, const dcomplex* alpha, const dcomplex* A, f77_int* lda, const dcomplex* beta, dcomplex* B, f77_int* ldb, dcomplex* C, f77_int* ldc);
@@ -1786,7 +1786,7 @@ BLIS_EXPORT_BLIS void ZOMATADD_BLIS_IMPL_(f77_char* transa, f77_char* transb, f
BLIS_EXPORT_BLIS void ZOMATCOPY2_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, f77_int* stridea, dcomplex* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void zomatcopy2_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, f77_int* stridea, dcomplex* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void zomatcopy2_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, f77_int* stridea, dcomplex* bptr, f77_int* ldb, f77_int* strideb);
BLIS_EXPORT_BLIS void ZOMATCOPY2_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, f77_int* stridea, dcomplex* bptr, f77_int* ldb, f77_int* strideb);
@@ -1794,7 +1794,7 @@ BLIS_EXPORT_BLIS void ZOMATCOPY2_BLIS_IMPL_(f77_char* trans, f77_int* rows, f7
BLIS_EXPORT_BLIS void ZOMATCOPY_BLIS_IMPL(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, dcomplex* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void zomatcopy_blis_impl(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, dcomplex* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void zomatcopy_blis_impl_(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, dcomplex* bptr, f77_int* ldb);
BLIS_EXPORT_BLIS void ZOMATCOPY_BLIS_IMPL_(f77_char* trans, f77_int* rows, f77_int* cols, const dcomplex* alpha, const dcomplex* aptr, f77_int* lda, dcomplex* bptr, f77_int* ldb);