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