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