c@427: /* CLAPACK 3.0 BLAS wrapper macros c@427: * Feb 5, 2000 c@427: */ c@427: c@427: #ifndef __BLASWRAP_H c@427: #define __BLASWRAP_H c@427: c@427: #ifndef NO_BLAS_WRAP c@427: c@427: /* BLAS1 routines */ c@427: #define srotg_ f2c_srotg c@427: #define crotg_ f2c_crotg c@427: #define drotg_ f2c_drotg c@427: #define zrotg_ f2c_zrotg c@427: #define srotmg_ f2c_srotmg c@427: #define drotmg_ f2c_drotmg c@427: #define srot_ f2c_srot c@427: #define drot_ f2c_drot c@427: #define srotm_ f2c_srotm c@427: #define drotm_ f2c_drotm c@427: #define sswap_ f2c_sswap c@427: #define dswap_ f2c_dswap c@427: #define cswap_ f2c_cswap c@427: #define zswap_ f2c_zswap c@427: #define sscal_ f2c_sscal c@427: #define dscal_ f2c_dscal c@427: #define cscal_ f2c_cscal c@427: #define zscal_ f2c_zscal c@427: #define csscal_ f2c_csscal c@427: #define zdscal_ f2c_zdscal c@427: #define scopy_ f2c_scopy c@427: #define dcopy_ f2c_dcopy c@427: #define ccopy_ f2c_ccopy c@427: #define zcopy_ f2c_zcopy c@427: #define saxpy_ f2c_saxpy c@427: #define daxpy_ f2c_daxpy c@427: #define caxpy_ f2c_caxpy c@427: #define zaxpy_ f2c_zaxpy c@427: #define sdot_ f2c_sdot c@427: #define ddot_ f2c_ddot c@427: #define cdotu_ f2c_cdotu c@427: #define zdotu_ f2c_zdotu c@427: #define cdotc_ f2c_cdotc c@427: #define zdotc_ f2c_zdotc c@427: #define snrm2_ f2c_snrm2 c@427: #define dnrm2_ f2c_dnrm2 c@427: #define scnrm2_ f2c_scnrm2 c@427: #define dznrm2_ f2c_dznrm2 c@427: #define sasum_ f2c_sasum c@427: #define dasum_ f2c_dasum c@427: #define scasum_ f2c_scasum c@427: #define dzasum_ f2c_dzasum c@427: #define isamax_ f2c_isamax c@427: #define idamax_ f2c_idamax c@427: #define icamax_ f2c_icamax c@427: #define izamax_ f2c_izamax c@427: c@427: /* BLAS2 routines */ c@427: #define sgemv_ f2c_sgemv c@427: #define dgemv_ f2c_dgemv c@427: #define cgemv_ f2c_cgemv c@427: #define zgemv_ f2c_zgemv c@427: #define sgbmv_ f2c_sgbmv c@427: #define dgbmv_ f2c_dgbmv c@427: #define cgbmv_ f2c_cgbmv c@427: #define zgbmv_ f2c_zgbmv c@427: #define chemv_ f2c_chemv c@427: #define zhemv_ f2c_zhemv c@427: #define chbmv_ f2c_chbmv c@427: #define zhbmv_ f2c_zhbmv c@427: #define chpmv_ f2c_chpmv c@427: #define zhpmv_ f2c_zhpmv c@427: #define ssymv_ f2c_ssymv c@427: #define dsymv_ f2c_dsymv c@427: #define ssbmv_ f2c_ssbmv c@427: #define dsbmv_ f2c_dsbmv c@427: #define sspmv_ f2c_sspmv c@427: #define dspmv_ f2c_dspmv c@427: #define strmv_ f2c_strmv c@427: #define dtrmv_ f2c_dtrmv c@427: #define ctrmv_ f2c_ctrmv c@427: #define ztrmv_ f2c_ztrmv c@427: #define stbmv_ f2c_stbmv c@427: #define dtbmv_ f2c_dtbmv c@427: #define ctbmv_ f2c_ctbmv c@427: #define ztbmv_ f2c_ztbmv c@427: #define stpmv_ f2c_stpmv c@427: #define dtpmv_ f2c_dtpmv c@427: #define ctpmv_ f2c_ctpmv c@427: #define ztpmv_ f2c_ztpmv c@427: #define strsv_ f2c_strsv c@427: #define dtrsv_ f2c_dtrsv c@427: #define ctrsv_ f2c_ctrsv c@427: #define ztrsv_ f2c_ztrsv c@427: #define stbsv_ f2c_stbsv c@427: #define dtbsv_ f2c_dtbsv c@427: #define ctbsv_ f2c_ctbsv c@427: #define ztbsv_ f2c_ztbsv c@427: #define stpsv_ f2c_stpsv c@427: #define dtpsv_ f2c_dtpsv c@427: #define ctpsv_ f2c_ctpsv c@427: #define ztpsv_ f2c_ztpsv c@427: #define sger_ f2c_sger c@427: #define dger_ f2c_dger c@427: #define cgeru_ f2c_cgeru c@427: #define zgeru_ f2c_zgeru c@427: #define cgerc_ f2c_cgerc c@427: #define zgerc_ f2c_zgerc c@427: #define cher_ f2c_cher c@427: #define zher_ f2c_zher c@427: #define chpr_ f2c_chpr c@427: #define zhpr_ f2c_zhpr c@427: #define cher2_ f2c_cher2 c@427: #define zher2_ f2c_zher2 c@427: #define chpr2_ f2c_chpr2 c@427: #define zhpr2_ f2c_zhpr2 c@427: #define ssyr_ f2c_ssyr c@427: #define dsyr_ f2c_dsyr c@427: #define sspr_ f2c_sspr c@427: #define dspr_ f2c_dspr c@427: #define ssyr2_ f2c_ssyr2 c@427: #define dsyr2_ f2c_dsyr2 c@427: #define sspr2_ f2c_sspr2 c@427: #define dspr2_ f2c_dspr2 c@427: c@427: /* BLAS3 routines */ c@427: #define sgemm_ f2c_sgemm c@427: #define dgemm_ f2c_dgemm c@427: #define cgemm_ f2c_cgemm c@427: #define zgemm_ f2c_zgemm c@427: #define ssymm_ f2c_ssymm c@427: #define dsymm_ f2c_dsymm c@427: #define csymm_ f2c_csymm c@427: #define zsymm_ f2c_zsymm c@427: #define chemm_ f2c_chemm c@427: #define zhemm_ f2c_zhemm c@427: #define ssyrk_ f2c_ssyrk c@427: #define dsyrk_ f2c_dsyrk c@427: #define csyrk_ f2c_csyrk c@427: #define zsyrk_ f2c_zsyrk c@427: #define cherk_ f2c_cherk c@427: #define zherk_ f2c_zherk c@427: #define ssyr2k_ f2c_ssyr2k c@427: #define dsyr2k_ f2c_dsyr2k c@427: #define csyr2k_ f2c_csyr2k c@427: #define zsyr2k_ f2c_zsyr2k c@427: #define cher2k_ f2c_cher2k c@427: #define zher2k_ f2c_zher2k c@427: #define strmm_ f2c_strmm c@427: #define dtrmm_ f2c_dtrmm c@427: #define ctrmm_ f2c_ctrmm c@427: #define ztrmm_ f2c_ztrmm c@427: #define strsm_ f2c_strsm c@427: #define dtrsm_ f2c_dtrsm c@427: #define ctrsm_ f2c_ctrsm c@427: #define ztrsm_ f2c_ztrsm c@427: c@427: #endif /* NO_BLAS_WRAP */ c@427: c@427: #endif /* __BLASWRAP_H */