00001 #if TYPE == FLOAT
00002 #define ASUM cblas_sasum
00003 #define AXPY cblas_saxpy
00004 #define COPY cblas_scopy
00005 #define DOT cblas_sdot
00006 #define DOTU cblas_sdot
00007 #define DOTC cblas_sdot
00008 #define NRM2 cblas_snrm2
00009 #define ROT cblas_srot
00010 #define ROTG cblas_srotg
00011 #define ROTM cblas_srotm
00012 #define ROTMG cblas_srotmg
00013 #define SCAL cblas_sscal
00014 #define SWAP cblas_sswap
00015 #define AMAX cblas_isamax
00016 #define AMIN cblas_isamin
00017 #elif TYPE == DOUBLE
00018 #define ASUM cblas_dasum
00019 #define AXPY cblas_daxpy
00020 #define COPY cblas_dcopy
00021 #define DOT cblas_ddot
00022 #define DOTU cblas_ddot
00023 #define DOTC cblas_ddot
00024 #define NRM2 cblas_dnrm2
00025 #define ROT cblas_drot
00026 #define ROTG cblas_drotg
00027 #define ROTM cblas_drotm
00028 #define ROTMG cblas_drotmg
00029 #define SCAL cblas_dscal
00030 #define SWAP cblas_dswap
00031 #define AMAX cblas_idamax
00032 #define AMIN cblas_idamin
00033 #elif TYPE == COMPLEXFLOAT
00034 #define ASUM cblas_casum
00035 #define AXPY cblas_caxpy
00036 #define COPY cblas_ccopy
00037 #define DOT cblas_cdotc
00038 #define DOTU cblas_cdotu
00039 #define DOTC cblas_cdotc
00040 #define NRM2 cblas_scnrm2
00041 #define ROT cblas_srot
00042 #define ROTG cblas_srotg
00043 #define ROTM cblas_srotm
00044 #define ROTMG cblas_srotmg
00045 #define SCAL cblas_cscal
00046 #define SWAP cblas_cswap
00047 #define AMAX cblas_icamax
00048 #define AMIN cblas_icamin
00049 #elif TYPE == COMPLEXDOUBLE
00050 #define ASUM cblas_zasum
00051 #define AXPY cblas_zaxpy
00052 #define COPY cblas_zcopy
00053 #define DOT cblas_zdotc
00054 #define DOTU cblas_zdotu
00055 #define DOTC cblas_zdotc
00056 #define NRM2 cblas_dznrm2
00057 #define ROT cblas_drot
00058 #define ROTG cblas_drotg
00059 #define ROTM cblas_drotm
00060 #define ROTMG cblas_drotmg
00061 #define SCAL cblas_zscal
00062 #define SWAP cblas_zswap
00063 #define AMAX cblas_izamax
00064 #define AMIN cblas_izamin
00065 #endif
