mirror of
https://github.com/amd/blis.git
synced 2026-05-22 01:18:18 +00:00
ffcb338531
details: Wrapper code will be enabled when selecting the cmake option ENABLE_WRAPPER and also this commit will fixing the ScaLAPACK build error on windows. AMD-Internal: [CPUPL-1848] Change-Id: I3d687cbc00e7603fdfb45937a00daf86bd07878e
533 lines
18 KiB
C
533 lines
18 KiB
C
/*
|
|
|
|
BLIS
|
|
An object-based framework for developing high-performance BLAS-like
|
|
libraries.
|
|
|
|
Copyright (C) 2014, The University of Texas at Austin
|
|
Copyright (C) 2018-2021, 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
|
|
met:
|
|
- Redistributions of source code must retain the above copyright
|
|
notice, this list of conditions and the following disclaimer.
|
|
- Redistributions in binary form must reproduce the above copyright
|
|
notice, this list of conditions and the following disclaimer in the
|
|
documentation and/or other materials provided with the distribution.
|
|
- Neither the name(s) of the copyright holder(s) nor the names of its
|
|
contributors may be used to endorse or promote products derived
|
|
from this software without specific prior written permission.
|
|
|
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
|
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
|
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
|
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
*/
|
|
|
|
#ifndef BLIS_MACRO_DEFS_H
|
|
#define BLIS_MACRO_DEFS_H
|
|
|
|
|
|
// -- Undefine restrict for C++ and C89/90 --
|
|
|
|
#ifdef __cplusplus
|
|
// Language is C++; define restrict as nothing.
|
|
#ifndef restrict
|
|
#define restrict
|
|
#endif
|
|
#elif __STDC_VERSION__ >= 199901L
|
|
// Language is C99 (or later); do nothing since restrict is recognized.
|
|
#else
|
|
// Language is pre-C99; define restrict as nothing.
|
|
#ifndef restrict
|
|
#define restrict
|
|
#endif
|
|
#endif
|
|
|
|
|
|
// -- Define typeof() operator if using non-GNU compiler --
|
|
|
|
#ifndef __GNUC__
|
|
#define typeof __typeof__
|
|
#else
|
|
#ifndef typeof
|
|
#define typeof __typeof__
|
|
#endif
|
|
#endif
|
|
|
|
|
|
// -- BLIS Thread Local Storage Keyword --
|
|
|
|
// __thread for TLS is supported by GCC, CLANG, ICC, and IBMC.
|
|
// There is a small risk here as __GNUC__ can also be defined by some other
|
|
// compiler (other than ICC and CLANG which we know define it) that
|
|
// doesn't support __thread, as __GNUC__ is not quite unique to GCC.
|
|
// But the possibility of someone using such non-main-stream compiler
|
|
// for building BLIS is low.
|
|
#if defined(__GNUC__) || defined(__clang__) || defined(__ICC) || defined(__IBMC__)
|
|
#define BLIS_THREAD_LOCAL __thread
|
|
#else
|
|
#define BLIS_THREAD_LOCAL
|
|
#endif
|
|
|
|
|
|
// -- BLIS constructor/destructor function attribute --
|
|
|
|
// __attribute__((constructor/destructor)) is supported by GCC only.
|
|
// There is a small risk here as __GNUC__ can also be defined by some other
|
|
// compiler (other than ICC and CLANG which we know define it) that
|
|
// doesn't support this, as __GNUC__ is not quite unique to GCC.
|
|
// But the possibility of someone using such non-main-stream compiler
|
|
// for building BLIS is low.
|
|
|
|
#if defined(__ICC) || defined(__INTEL_COMPILER)
|
|
// ICC defines __GNUC__ but doesn't support this
|
|
#define BLIS_ATTRIB_CTOR
|
|
#define BLIS_ATTRIB_DTOR
|
|
#elif defined(__clang__)
|
|
// CLANG supports __attribute__, but its documentation doesn't
|
|
// mention support for constructor/destructor. Compiling with
|
|
// clang and testing shows that it does support.
|
|
#define BLIS_ATTRIB_CTOR __attribute__((constructor))
|
|
#define BLIS_ATTRIB_DTOR __attribute__((destructor))
|
|
#elif defined(__GNUC__)
|
|
#define BLIS_ATTRIB_CTOR __attribute__((constructor))
|
|
#define BLIS_ATTRIB_DTOR __attribute__((destructor))
|
|
#else
|
|
#define BLIS_ATTRIB_CTOR
|
|
#define BLIS_ATTRIB_DTOR
|
|
#endif
|
|
|
|
|
|
// -- Concatenation macros --
|
|
|
|
#define BLIS_FUNC_PREFIX_STR "bli"
|
|
|
|
// We add an extra layer the definitions of these string-pasting macros
|
|
// because sometimes it is needed if, for example, one of the PASTE
|
|
// macros is invoked with an "op" argument that is itself a macro.
|
|
|
|
#define PASTEMAC0_(op) bli_ ## op
|
|
#define PASTEMAC0(op) PASTEMAC0_(op)
|
|
|
|
#define PASTEMAC_(ch,op) bli_ ## ch ## op
|
|
#define PASTEMAC(ch,op) PASTEMAC_(ch,op)
|
|
|
|
#define PASTEMAC2_(ch1,ch2,op) bli_ ## ch1 ## ch2 ## op
|
|
#define PASTEMAC2(ch1,ch2,op) PASTEMAC2_(ch1,ch2,op)
|
|
|
|
#define PASTEMAC3_(ch1,ch2,ch3,op) bli_ ## ch1 ## ch2 ## ch3 ## op
|
|
#define PASTEMAC3(ch1,ch2,ch3,op) PASTEMAC3_(ch1,ch2,ch3,op)
|
|
|
|
#define PASTEMAC4_(ch1,ch2,ch3,ch4,op) bli_ ## ch1 ## ch2 ## ch3 ## ch4 ## op
|
|
#define PASTEMAC4(ch1,ch2,ch3,ch4,op) PASTEMAC4_(ch1,ch2,ch3,ch4,op)
|
|
|
|
#define PASTEMAC5_(ch1,ch2,ch3,ch4,ch5,op) bli_ ## ch1 ## ch2 ## ch3 ## ch4 ## ch5 ## op
|
|
#define PASTEMAC5(ch1,ch2,ch3,ch4,ch5,op) PASTEMAC5_(ch1,ch2,ch3,ch4,ch5,op)
|
|
|
|
#define PASTEMAC6_(ch1,ch2,ch3,ch4,ch5,ch6,op) bli_ ## ch1 ## ch2 ## ch3 ## ch4 ## ch5 ## ch6 ## op
|
|
#define PASTEMAC6(ch1,ch2,ch3,ch4,ch5,ch6,op) PASTEMAC6_(ch1,ch2,ch3,ch4,ch5,ch6,op)
|
|
|
|
#define PASTEBLACHK_(op) bla_ ## op ## _check
|
|
#define PASTEBLACHK(op) PASTEBLACHK_(op)
|
|
|
|
#define PASTECH0_(op) op
|
|
#define PASTECH0(op) PASTECH0_(op)
|
|
|
|
#define PASTECH_(ch,op) ch ## op
|
|
#define PASTECH(ch,op) PASTECH_(ch,op)
|
|
|
|
#define PASTECH2_(ch1,ch2,op) ch1 ## ch2 ## op
|
|
#define PASTECH2(ch1,ch2,op) PASTECH2_(ch1,ch2,op)
|
|
|
|
#define PASTECH3_(ch1,ch2,ch3,op) ch1 ## ch2 ## ch3 ## op
|
|
#define PASTECH3(ch1,ch2,ch3,op) PASTECH3_(ch1,ch2,ch3,op)
|
|
|
|
#define MKSTR(s1) #s1
|
|
#define STRINGIFY_INT( s ) MKSTR( s )
|
|
|
|
#define PASTEMACT(ch1, ch2, ch3, ch4) bli_ ## ch1 ## ch2 ## _ ## ch3 ## _ ## ch4
|
|
// name-mangling macros.
|
|
#ifdef BLIS_ENABLE_NO_UNDERSCORE_API
|
|
#define PASTEF770(name) name
|
|
#define PASTEF77(ch1,name) ch1 ## name
|
|
#define PASTEF772(ch1,ch2,name) ch1 ## ch2 ## name
|
|
#define PASTEF773(ch1,ch2,ch3,name) ch1 ## ch2 ## ch3 ## name
|
|
#else
|
|
#define PASTEF770(name) name ## _
|
|
#define PASTEF77(ch1,name) ch1 ## name ## _
|
|
#define PASTEF772(ch1,ch2,name) ch1 ## ch2 ## name ## _
|
|
#define PASTEF773(ch1,ch2,ch3,name) ch1 ## ch2 ## ch3 ## name ## _
|
|
#endif
|
|
|
|
// -- Include other groups of macros
|
|
|
|
#include "bli_genarray_macro_defs.h"
|
|
#include "bli_gentdef_macro_defs.h"
|
|
#include "bli_gentfunc_macro_defs.h"
|
|
#include "bli_gentprot_macro_defs.h"
|
|
|
|
#include "bli_misc_macro_defs.h"
|
|
#include "bli_param_macro_defs.h"
|
|
#include "bli_obj_macro_defs.h"
|
|
#include "bli_complex_macro_defs.h"
|
|
#include "bli_scalar_macro_defs.h"
|
|
#include "bli_error_macro_defs.h"
|
|
#include "bli_blas_macro_defs.h"
|
|
#include "bli_builtin_macro_defs.h"
|
|
|
|
#include "bli_oapi_macro_defs.h"
|
|
#include "bli_tapi_macro_defs.h"
|
|
|
|
#ifdef BLIS_ENABLE_NO_UNDERSCORE_API
|
|
#define isamax_ isamax
|
|
#define idamax_ idamax
|
|
#define icamax_ icamax
|
|
#define izamax_ izamax
|
|
#define sasum_ sasum
|
|
#define dasum_ dasum
|
|
#define scasum_ scasum
|
|
#define dzasum_ dzasum
|
|
#define saxpy_ saxpy
|
|
#define daxpy_ daxpy
|
|
#define caxpy_ caxpy
|
|
#define zaxpy_ zaxpy
|
|
#define scopy_ scopy
|
|
#define dcopy_ dcopy
|
|
#define ccopy_ ccopy
|
|
#define zcopy_ zcopy
|
|
#define sdot_ sdot
|
|
#define ddot_ ddot
|
|
#define cdotc_ cdotc
|
|
#define zdotc_ zdotc
|
|
#define cdotu_ cdotu
|
|
#define zdotu_ zdotu
|
|
#define snrm2_ snrm2
|
|
#define dnrm2_ dnrm2
|
|
#define scnrm2_ scnrm2
|
|
#define dznrm2_ dznrm2
|
|
#define sscal_ sscal
|
|
#define dscal_ dscal
|
|
#define cscal_ cscal
|
|
#define csscal_ csscal
|
|
#define zscal_ zscal
|
|
#define zdscal_ zdscal
|
|
#define sswap_ sswap
|
|
#define dswap_ dswap
|
|
#define cswap_ cswap
|
|
#define zswap_ zswap
|
|
#define sgemv_ sgemv
|
|
#define dgemv_ dgemv
|
|
#define cgemv_ cgemv
|
|
#define zgemv_ zgemv
|
|
#define sger_ sger
|
|
#define dger_ dger
|
|
#define cgerc_ cgerc
|
|
#define cgeru_ cgeru
|
|
#define zgerc_ zgerc
|
|
#define zgeru_ zgeru
|
|
#define chemv_ chemv
|
|
#define zhemv_ zhemv
|
|
#define cher_ cher
|
|
#define zher_ zher
|
|
#define cher2_ cher2
|
|
#define zher2_ zher2
|
|
#define ssymv_ ssymv
|
|
#define dsymv_ dsymv
|
|
#define csymm_ csymm
|
|
#define zsymm_ zsymm
|
|
#define ssyr_ ssyr
|
|
#define dsyr_ dsyr
|
|
#define csyrk_ csyrk
|
|
#define csyrk_ csyrk
|
|
#define zsyrk_ zsyrk
|
|
#define ssyr2_ ssyr2
|
|
#define dsyr2_ dsyr2
|
|
#define csyr2k_ csyr2k
|
|
#define zsyr2k_ zsyr2k
|
|
#define strmv_ strmv
|
|
#define dtrmv_ dtrmv
|
|
#define ctrmv_ ctrmv
|
|
#define ztrmv_ ztrmv
|
|
#define strsv_ strsv
|
|
#define dtrsv_ dtrsv
|
|
#define ctrsv_ ctrsv
|
|
#define ztrsv_ ztrsv
|
|
#define sgemm_ sgemm
|
|
#define dgemm_ dgemm
|
|
#define cgemm_ cgemm
|
|
#define zgemm_ zgemm
|
|
#define chemm_ chemm
|
|
#define zhemm_ zhemm
|
|
#define dgemmt_ dgemmt
|
|
#define sgemmt_ sgemmt
|
|
#define zgemmt_ zgemmt
|
|
#define cgemmt_ cgemmt
|
|
#define sgemm_batch_ sgemm_batch
|
|
#define dgemm_batch_ dgemm_batch
|
|
#define cgemm_batch_ cgemm_batch
|
|
#define zgemm_batch_ zgemm_batch
|
|
#define saxpby_ saxpby
|
|
#define daxpby_ daxpby
|
|
#define caxpby_ caxpby
|
|
#define zaxpby_ zaxpby
|
|
#define cher2k_ cher2k
|
|
#define zher2k_ zher2k
|
|
#define cherk_ cherk
|
|
#define zherk_ zherk
|
|
#define ssymm_ ssymm
|
|
#define dsymm_ dsymm
|
|
#define ssyr2k_ ssyr2k
|
|
#define dsyr2k_ dsyr2k
|
|
#define ssyrk_ ssyrk
|
|
#define dsyrk_ dsyrk
|
|
#define strmm_ strmm
|
|
#define dtrmm_ dtrmm
|
|
#define ctrmm_ ctrmm
|
|
#define ztrmm_ ztrmm
|
|
#define strsm_ strsm
|
|
#define dtrsm_ dtrsm
|
|
#define ctrsm_ ctrsm
|
|
#define ztrsm_ ztrsm
|
|
#define lsame_ lsame
|
|
#define cimatcopy_ cimatcopy
|
|
#define comatadd_ comatadd
|
|
#define comatcopy2_ comatcopy2
|
|
#define comatcopy_ comatcopy
|
|
#define dimatcopy_ dimatcopy
|
|
#define domatadd_ domatadd
|
|
#define domatcopy2_ domatcopy2
|
|
#define domatcopy_ domatcopy
|
|
#define simatcopy_ simatcopy
|
|
#define somatadd_ somatadd
|
|
#define somatcopy2_ somatcopy2
|
|
#define somatcopy_ somatcopy
|
|
#define zimatcopy_ zimatcopy
|
|
#define zomatadd_ zomatadd
|
|
#define zomatcopy2_ zomatcopy2
|
|
#define zomatcopy_ zomatcopy
|
|
#endif
|
|
|
|
#ifdef BLIS_ENABLE_UPPERCASE_API
|
|
#define caxpby CAXPBY
|
|
#define caxpy CAXPY
|
|
#define ccopy CCOPY
|
|
#define cdotc CDOTC
|
|
#define cdotcsub CDOTCSUB
|
|
#define cdotu CDOTU
|
|
#define cdotusub CDOTUSUB
|
|
#define cgbmv CGBMV
|
|
#define cgemm CGEMM
|
|
#define cgemm3m CGEMM3M
|
|
#define cgemm_batch CGEMM_BATCH
|
|
#define cgemmt CGEMMT
|
|
#define cgemv CGEMV
|
|
#define cgerc CGERC
|
|
#define cgeru CGERU
|
|
#define chbmv CHBMV
|
|
#define chemm CHEMM
|
|
#define chemv CHEMV
|
|
#define cher CHER
|
|
#define cher2 CHER2
|
|
#define cher2k CHER2K
|
|
#define cherk CHERK
|
|
#define chpmv CHPMV
|
|
#define chpr CHPR
|
|
#define chpr2 CHPR2
|
|
#define cimatcopy CIMATCOPY
|
|
#define comatadd COMATADD
|
|
#define comatcopy2 COMATCOPY2
|
|
#define comatcopy COMATCOPY
|
|
#define crotg CROTG
|
|
#define cscal CSCAL
|
|
#define csrot CSROT
|
|
#define csscal CSSCAL
|
|
#define cswap CSWAP
|
|
#define csymm CSYMM
|
|
#define csyr2k CSYR2K
|
|
#define csyrk CSYRK
|
|
#define ctbmv CTBMV
|
|
#define ctbsv CTBSV
|
|
#define ctpmv CTPMV
|
|
#define ctpsv CTPSV
|
|
#define ctrmm CTRMM
|
|
#define ctrmv CTRMV
|
|
#define ctrsm CTRSM
|
|
#define ctrsv CTRSV
|
|
#define dasum DASUM
|
|
#define dasumsub DASUMSUB
|
|
#define daxpby DAXPBY
|
|
#define daxpy DAXPY
|
|
#define dcabs1 DCABS1
|
|
#define dcopy DCOPY
|
|
#define ddot DDOT
|
|
#define ddotsub DDOTSUB
|
|
#define dgbmv DGBMV
|
|
#define dgemm DGEMM
|
|
#define dgemm_batch DGEMM_BATCH
|
|
#define dgemmt DGEMMT
|
|
#define dgemv DGEMV
|
|
#define dger DGER
|
|
#define dnrm2 DNRM2
|
|
#define dnrm2sub DNRM2SUB
|
|
#define dimatcopy DIMATCOPY
|
|
#define domatadd DOMATADD
|
|
#define domatcopy2 DOMATCOPY2
|
|
#define domatcopy DOMATCOPY
|
|
#define drot DROT
|
|
#define drotg DROTG
|
|
#define drotm DROTM
|
|
#define drotmg DROTMG
|
|
#define dsbmv DSBMV
|
|
#define dscal DSCAL
|
|
#define dsdot DSDOT
|
|
#define dsdotsub DSDOTSUB
|
|
#define dspmv DSPMV
|
|
#define dspr DSPR
|
|
#define dspr2 DSPR2
|
|
#define dswap DSWAP
|
|
#define dsymm DSYMM
|
|
#define dsymv DSYMV
|
|
#define dsyr DSYR
|
|
#define dsyr2 DSYR2
|
|
#define dsyr2k DSYR2K
|
|
#define dsyrk DSYRK
|
|
#define dtbmv DTBMV
|
|
#define dtbsv DTBSV
|
|
#define dtpmv DTPMV
|
|
#define dtpsv DTPSV
|
|
#define dtrmm DTRMM
|
|
#define dtrmv DTRMV
|
|
#define dtrsm DTRSM
|
|
#define dtrsv DTRSV
|
|
#define dzasum DZASUM
|
|
#define dzasumsub DZASUMSUB
|
|
#define dznrm2 DZNRM2
|
|
#define dznrm2sub DZNRM2SUB
|
|
#define icamax ICAMAX
|
|
#define icamaxsub ICAMAXSUB
|
|
#define icamin ICAMIN
|
|
#define icaminsub ICAMINSUB
|
|
#define idamax IDAMAX
|
|
#define idamaxsub IDAMAXSUB
|
|
#define idamin IDAMIN
|
|
#define idaminsub IDAMINSUB
|
|
#define isamax ISAMAX
|
|
#define isamaxsub ISAMAXSUB
|
|
#define isamin ISAMIN
|
|
#define isaminsub ISAMINSUB
|
|
#define izamax IZAMAX
|
|
#define izamaxsub IZAMAXSUB
|
|
#define izamin IZAMIN
|
|
#define izaminsub IZAMINSUB
|
|
#define lsame LSAME
|
|
#define sasum SASUM
|
|
#define sasumsub SASUMSUB
|
|
#define saxpby SAXPBY
|
|
#define saxpy SAXPY
|
|
#define scabs1 SCABS1
|
|
#define scasum SCASUM
|
|
#define scasumsub SCASUMSUB
|
|
#define scnrm2 SCNRM2
|
|
#define scnrm2sub SCNRM2SUB
|
|
#define scopy SCOPY
|
|
#define sdot SDOT
|
|
#define sdotsub SDOTSUB
|
|
#define sdsdot SDSDOT
|
|
#define sdsdotsub SDSDOTSUB
|
|
#define sgbmv SGBMV
|
|
#define sgemm SGEMM
|
|
#define sgemm_batch SGEMM_BATCH
|
|
#define sgemmt SGEMMT
|
|
#define sgemv SGEMV
|
|
#define sger SGER
|
|
#define snrm2 SNRM2
|
|
#define snrm2sub SNRM2SUB
|
|
#define simatcopy SIMATCOPY
|
|
#define somatadd SOMATADD
|
|
#define somatcopy2 SOMATCOPY2
|
|
#define somatcopy SOMATCOPY
|
|
#define srot SROT
|
|
#define srotg SROTG
|
|
#define srotm SROTM
|
|
#define srotmg SROTMG
|
|
#define ssbmv SSBMV
|
|
#define sscal SSCAL
|
|
#define sspmv SSPMV
|
|
#define sspr SSPR
|
|
#define sspr2 SSPR2
|
|
#define sswap SSWAP
|
|
#define ssymm SSYMM
|
|
#define ssymv SSYMV
|
|
#define ssyr SSYR
|
|
#define ssyr2 SSYR2
|
|
#define ssyr2k SSYR2K
|
|
#define ssyrk SSYRK
|
|
#define stbmv STBMV
|
|
#define stbsv STBSV
|
|
#define stpmv STPMV
|
|
#define stpsv STPSV
|
|
#define strmm STRMM
|
|
#define strmv STRMV
|
|
#define strsm STRSM
|
|
#define strsv STRSV
|
|
#define xerbla XERBLA
|
|
#define zaxpby ZAXPBY
|
|
#define zaxpy ZAXPY
|
|
#define zcopy ZCOPY
|
|
#define zdotc ZDOTC
|
|
#define zdotcsub ZDOTCSUB
|
|
#define zdotu ZDOTU
|
|
#define zdotusub ZDOTUSUB
|
|
#define zdrot ZDROT
|
|
#define zdscal ZDSCAL
|
|
#define zgbmv ZGBMV
|
|
#define zgemm ZGEMM
|
|
#define zgemm3m ZGEMM3M
|
|
#define zgemm_batch ZGEMM_BATCH
|
|
#define zgemmt ZGEMMT
|
|
#define zgemv ZGEMV
|
|
#define zgerc ZGERC
|
|
#define zgeru ZGERU
|
|
#define zhbmv ZHBMV
|
|
#define zhemm ZHEMM
|
|
#define zhemv ZHEMV
|
|
#define zher ZHER
|
|
#define zher2 ZHER2
|
|
#define zher2k ZHER2K
|
|
#define zherk ZHERK
|
|
#define zhpmv ZHPMV
|
|
#define zhpr ZHPR
|
|
#define zhpr2 ZHPR2
|
|
#define zimatcopy ZIMATCOPY
|
|
#define zomatadd ZOMATADD
|
|
#define zomatcopy2 ZOMATCOPY2
|
|
#define zomatcopy ZOMATCOPY
|
|
#define zrotg ZROTG
|
|
#define zscal ZSCAL
|
|
#define zswap ZSWAP
|
|
#define zsymm ZSYMM
|
|
#define zsyr2k ZSYR2K
|
|
#define zsyrk ZSYRK
|
|
#define ztbmv ZTBMV
|
|
#define ztbsv ZTBSV
|
|
#define ztpmv ZTPMV
|
|
#define ztpsv ZTPSV
|
|
#define ztrmm ZTRMM
|
|
#define ztrmv ZTRMV
|
|
#define ztrsm ZTRSM
|
|
#define ztrsv ZTRSV
|
|
#endif
|
|
|
|
#endif
|
|
|