| 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 */
 
 
  |