00001 #ifndef MALL_GLOBAL_H 00002 #define MALL_GLOBAL_H 00003 00004 #ifndef BALL_COMMON_GLOBAL_H 00005 # include <BALL/COMMON/global.h> 00006 #endif 00007 00008 #ifndef BALL_MATHS_COMPLEX_H 00009 # include <BALL/MATHS/complex.h> 00010 #endif 00011 00012 00013 // rename BLAS-functions in order to match the ones within 00014 // the lapack-cblas library 00015 // TODO: adapt to ATLAS instead if it is used. 00016 00017 // BLAS1 routines 00018 // #define cblas_srotg f2c_srotg 00019 // #define cblas_drotg f2c_drotg 00020 // #define cblas_srotmg f2c_srotmg 00021 // #define cblas_drotmg f2c_drotmg 00022 // #define cblas_srot f2c_srot 00023 // #define cblas_drot f2c_drot 00024 // #define cblas_srotm f2c_srotm 00025 // #define cblas_drotm f2c_drotm 00026 // #define cblas_sswap f2c_sswap 00027 // #define cblas_dswap f2c_dswap 00028 // #define cblas_cswap f2c_cswap 00029 // #define cblas_zswap f2c_zswap 00030 // #define cblas_sscal f2c_sscal 00031 // #define cblas_dscal f2c_dscal 00032 // #define cblas_cscal f2c_cscal 00033 // #define cblas_zscal f2c_zscal 00034 // #define cblas_csscal f2c_csscal 00035 // #define cblas_zdscal f2c_zdscal 00036 // #define cblas_scopy f2c_scopy 00037 // #define cblas_dcopy f2c_dcopy 00038 // #define cblas_ccopy f2c_ccopy 00039 // #define cblas_zcopy f2c_zcopy 00040 // #define cblas_saxpy f2c_saxpy 00041 // #define cblas_daxpy f2c_daxpy 00042 // #define cblas_caxpy f2c_caxpy 00043 // #define cblas_zaxpy f2c_zaxpy 00044 // #define cblas_sdot f2c_sdot 00045 // #define cblas_ddot f2c_ddot 00046 // #define cblas_cdotu f2c_cdotu 00047 // #define cblas_zdotu f2c_zdotu 00048 // #define cblas_cdotc f2c_cdotc 00049 // #define cblas_zdotc f2c_zdotc 00050 // #define cblas_snrm2 f2c_snrm2 00051 // #define cblas_dnrm2 f2c_dnrm2 00052 // #define cblas_scnrm2 f2c_scnrm2 00053 // #define cblas_dznrm2 f2c_dznrm2 00054 // #define cblas_sasum f2c_sasum 00055 // #define cblas_dasum f2c_dasum 00056 // #define cblas_scasum f2c_scasum 00057 // #define cblas_dzasum f2c_dzasum 00058 // #define cblas_isamax f2c_isamax 00059 // #define cblas_idamax f2c_idamax 00060 // #define cblas_icamax f2c_icamax 00061 // #define cblas_izamax f2c_izamax 00062 // 00063 // // BLAS2 routines 00064 // #define cblas_sgemv f2c_sgemv 00065 // #define cblas_dgemv f2c_dgemv 00066 // #define cblas_cgemv f2c_cgemv 00067 // #define cblas_zgemv f2c_zgemv 00068 // #define cblas_sgbmv f2c_sgbmv 00069 // #define cblas_dgbmv f2c_dgbmv 00070 // #define cblas_cgbmv f2c_cgbmv 00071 // #define cblas_zgbmv f2c_zgbmv 00072 // #define cblas_chemv f2c_chemv 00073 // #define cblas_zhemv f2c_zhemv 00074 // #define cblas_chbmv f2c_chbmv 00075 // #define cblas_zhbmv f2c_zhbmv 00076 // #define cblas_chpmv f2c_chpmv 00077 // #define cblas_zhpmv f2c_zhpmv 00078 // #define cblas_ssymv f2c_ssymv 00079 // #define cblas_dsymv f2c_dsymv 00080 // #define cblas_ssbmv f2c_ssbmv 00081 // #define cblas_dsbmv f2c_dsbmv 00082 // #define cblas_sspmv f2c_sspmv 00083 // #define cblas_dspmv f2c_dspmv 00084 // #define cblas_strmv f2c_strmv 00085 // #define cblas_dtrmv f2c_dtrmv 00086 // #define cblas_ctrmv f2c_ctrmv 00087 // #define cblas_ztrmv f2c_ztrmv 00088 // #define cblas_stbmv f2c_stbmv 00089 // #define cblas_dtbmv f2c_dtbmv 00090 // #define cblas_ctbmv f2c_ctbmv 00091 // #define cblas_ztbmv f2c_ztbmv 00092 // #define cblas_stpmv f2c_stpmv 00093 // #define cblas_dtpmv f2c_dtpmv 00094 // #define cblas_ctpmv f2c_ctpmv 00095 // #define cblas_ztpmv f2c_ztpmv 00096 // #define cblas_strsv f2c_strsv 00097 // #define cblas_dtrsv f2c_dtrsv 00098 // #define cblas_ctrsv f2c_ctrsv 00099 // #define cblas_ztrsv f2c_ztrsv 00100 // #define cblas_stbsv f2c_stbsv 00101 // #define cblas_dtbsv f2c_dtbsv 00102 // #define cblas_ctbsv f2c_ctbsv 00103 // #define cblas_ztbsv f2c_ztbsv 00104 // #define cblas_stpsv f2c_stpsv 00105 // #define cblas_dtpsv f2c_dtpsv 00106 // #define cblas_ctpsv f2c_ctpsv 00107 // #define cblas_ztpsv f2c_ztpsv 00108 // #define cblas_sger f2c_sger 00109 // #define cblas_dger f2c_dger 00110 // #define cblas_cgeru f2c_cgeru 00111 // #define cblas_zgeru f2c_zgeru 00112 // #define cblas_cgerc f2c_cgerc 00113 // #define cblas_zgerc f2c_zgerc 00114 // #define cblas_cher f2c_cher 00115 // #define cblas_zher f2c_zher 00116 // #define cblas_chpr f2c_chpr 00117 // #define cblas_zhpr f2c_zhpr 00118 // #define cblas_cher2 f2c_cher2 00119 // #define cblas_zher2 f2c_zher2 00120 // #define cblas_chpr2 f2c_chpr2 00121 // #define cblas_zhpr2 f2c_zhpr2 00122 // #define cblas_ssyr f2c_ssyr 00123 // #define cblas_dsyr f2c_dsyr 00124 // #define cblas_sspr f2c_sspr 00125 // #define cblas_dspr f2c_dspr 00126 // #define cblas_ssyr2 f2c_ssyr2 00127 // #define cblas_dsyr2 f2c_dsyr2 00128 // #define cblas_sspr2 f2c_sspr2 00129 // #define cblas_dspr2 f2c_dspr2 00130 // 00131 // // BLAS3 routines 00132 // #define cblas_sgemm f2c_sgemm 00133 // #define cblas_dgemm f2c_dgemm 00134 // #define cblas_cgemm f2c_cgemm 00135 // #define cblas_zgemm f2c_zgemm 00136 // #define cblas_ssymm f2c_ssymm 00137 // #define cblas_dsymm f2c_dsymm 00138 // #define cblas_csymm f2c_csymm 00139 // #define cblas_zsymm f2c_zsymm 00140 // #define cblas_chemm f2c_chemm 00141 // #define cblas_zhemm f2c_zhemm 00142 // #define cblas_ssyrk f2c_ssyrk 00143 // #define cblas_dsyrk f2c_dsyrk 00144 // #define cblas_csyrk f2c_csyrk 00145 // #define cblas_zsyrk f2c_zsyrk 00146 // #define cblas_cherk f2c_cherk 00147 // #define cblas_zherk f2c_zherk 00148 // #define cblas_ssyr2k f2c_ssyr2k 00149 // #define cblas_dsyr2k f2c_dsyr2k 00150 // #define cblas_csyr2k f2c_csyr2k 00151 // #define cblas_zsyr2k f2c_zsyr2k 00152 // #define cblas_cher2k f2c_cher2k 00153 // #define cblas_zher2k f2c_zher2k 00154 // #define cblas_strmm f2c_strmm 00155 // #define cblas_dtrmm f2c_dtrmm 00156 // #define cblas_ctrmm f2c_ctrmm 00157 // #define cblas_ztrmm f2c_ztrmm 00158 // #define cblas_strsm f2c_strsm 00159 // #define cblas_dtrsm f2c_dtrsm 00160 // #define cblas_ctrsm f2c_ctrsm 00161 // #define cblas_ztrsm f2c_ztrsm 00162 00163 00164 #include "cblas.h" 00165 #define BLAS_PREFIX_ cblas_ 00166 00167 00168 00169 #endif