namesblas.h

数学算法的实现库。可以实现常见的线性计算。

#ifndef _NAMESBLAS_H
#define _NAMESBLAS_H

#include "f2c.h"


/* on several architectures names of fortran routines are passed to C in 
   different ways. To cover this different architectures use in C only lower
   letters for the fortran names. Dependent on the switch you use they are
   replaced by the correct function name
*/

/* only use capital letters */
#if defined __CAPS__ && !defined __UNDERSCORE__ && !defined __2UNDERSCORES__
#define caxpy           CAXPY
#define ccopy           CCOPY
#define cdotc           CDOTC
#define cdotu           CDOTU
#define cgbmv           CGBMV
#define cgemm           CGEMM
#define cgemv           CGEMV
#define cgerc           CGERC
#define cgeru           CGERU
#define chbmv           CHBMV
#define chemm           CHEMM
#define chemv           CHEMV
#define cher            CHER
#define cher2           CHER2
#define cher2k          CHER2K
#define cherk           CHERK
#define chpmv           CHPMV
#define chpr            CHPR
#define chpr2           CHPR2
#define crotg           CROTG
#define cscal           CSCAL
#define csscal          CSSCAL
#define cswap           CSWAP
#define csymm           CSYMM
#define csyr2k          CSYR2K
#define csyrk           CSYRK
#define ctbmv           CTBMV
#define ctbsv           CTBSV
#define ctpmv           CTPMV
#define ctpsv           CTPSV
#define ctrmm           CTRMM
#define ctrmv           CTRMV
#define ctrsm           CTRSM
#define ctrsv           CTRSV

#define dasum           DASUM
#define daxpy           DAXPY
#define dcabs1          DCABS1
#define dcopy           DCOPY
#define ddot            DDOT
#define dgbmv           DGBMV
#define dgemm           DGEMM
#define dgemv           DGEMV
#define dger            DGER
#define dnrm2           DNRM2
#define drot            DROT
#define drotg           DROTG
#define dsbmv           DSBMV
#define dscal           DSCAL
#define dspmv           DSPMV
#define dspr            DSPR
#define dspr2           DSPR2
#define dswap           DSWAP
#define dsymm           DSYMM
#define dsymv           DSYMV
#define dsyr            DSYR
#define dsyr2           DSYR2
#define dsyr2k          DSYR2K
#define dsyrk           DSYRK
#define dtbmv           DTBMV
#define dtbsv           DTBSV
#define dtpmv           DTPMV
#define dtpsv           DTPSV
#define dtrmm           DTRMM
#define dtrmv           DTRMV
#define dtrsm           DTRSM
#define dtrsv           DTRSV
#define dzasum          DZASUM
#define dznrm2          DZNRM2

#define sasum           SASUM
#define sgemm           SGEMM
#define sscal           SSCAL
#define ssyr            SSYR
#define stpsv           STPSV
#define saxpy           SAXPY 
#define sgemv           SGEMV 
#define sspmv           SSPMV    
#define ssyr2           SSYR2  
#define strmm           STRMM   
#define scasum          SCASUM    
#define sger            SGER    
#define sspr            SSPR
#define ssyr2k          SSYR2K
#define strmv           STRMV  
#define scnrm2          SCNRM2    
#define snrm2           SNRM2   
#define sspr2           SSPR2   
#define ssyrk           SSYRK   
#define strsm           STRSM   
#define scopy           SCOPY   
#define srot            SROT  
#define sswap           SSWAP    
#define stbmv           STBMV
#define strsv           STRSV
#define sdot            SDOT
#define srotg           SROTG
#define ssymm           SSYMM
#define stbsv           STBSV 
#define sgbmv           SGBMV   
#define ssbmv           SSBMV
#define ssymv           SSYMV  
#define stpmv           STPMV

#define zaxpy           ZAXPY
#define zgemv           ZGEMV
#define zher2           ZHER2
#define zscal           ZSCAL
#define ztpmv           ZTPMV
#define zcopy           ZCOPY
#define zgerc           ZGERC
#define zher2k          ZHER2K
#define zswap           ZSWAP
#define ztpsv           ZTPSV
#define zdotc           ZDOTC
#define zgeru           ZGERU
#define zherk           ZHERK
#define zsymm           ZSYMM
#define ztrmm           ZTRMM
#define zdotu           ZDOTU
#define zhbmv           ZHBMV
#define zhpmv           ZHPMV
#define zsyr2k          ZSYR2K
#define ztrmv           ZTRMV
#define zdscal          ZDSCAL
#define zhemm           ZHEMM
#define zhpr            ZHPR
#define zsyrk           ZSYRK
#define ztrsm           ZTRSM
#define zgbmv           ZGBMV
#define zhemv           ZHEMV
#define zhpr2           ZHPR2 
#define ztbmv           ZTBMV
#define ztrsv           ZTRSV
#define zgemm           ZGEMM
#define zher            ZHER
#define zrot            ZROT
#define zrotg           ZROTG
#define ztbsv           ZTBSV

#define icamax          ICAMAX
#define idamax          IDAMAX
#define isamax          ISAMAX
#define izamax          IZAMAX

#define lsame           LSAME
#define xerbla          XERBLA


/* no capital letters */
#elif defined __UNDERSCORE__ && !defined __CAPS__ && !defined __2UNDERSCORES__
#define caxpy           caxpy_
#define ccopy           ccopy_
#define cdotc           cdotc_
#define cdotu           cdotu_
#define cgbmv           cgbmv_
#define cgemm           cgemm_
#define cgemv           cgemv_
#define cgerc           cgerc_
#define cgeru           cgeru_
#define chbmv           chbmv_
#define chemm           chemm_
#define chemv           chemv_
#define cher            cher_
#define cher2           cher2_
#define cher2k          cher2k_
#define cherk           cherk_
#define chpmv           chpmv_
#define chpr            chpr_
#define chpr2           chpr2_
#define crotg           crotg_
#define cscal           cscal_
#define csscal          csscal_
#define cswap           cswap_
#define csymm           csymm_
#define csyr2k          csyr2k_
#define csyrk           csyrk_
#define ctbmv           ctbmv_
#define ctbsv           ctbsv_
#define ctpmv           ctpmv_
#define ctpsv           ctpsv_
#define ctrmm           ctrmm_
#define ctrmv           ctrmv_
#define ctrsm           ctrsm_
#define ctrsv           ctrsv_

#define dasum           dasum_
#define daxpy           daxpy_
#define dcabs1          dcabs1_
#define dcopy           dcopy_
#define ddot            ddot_
#define dgbmv           dgbmv_
#define dgemm           dgemm_
#define dgemv           dgemv_
#define dger            dger_
#define dnrm2           dnrm2_
#define drot            drot_
#define drotg           drotg_
#define dsbmv           dsbmv_
#define dscal           dscal_
#define dspmv           dspmv_
#define dspr            dspr_
#define dspr2           dspr2_
#define dswap           dswap_
#define dsymm           dsymm_
#define dsymv           dsymv_
#define dsyr            dsyr_
#define dsyr2           dsyr2_
#define dsyr2k          dsyr2k_
#define dsyrk           dsyrk_
#define dtbmv           dtbmv_
#define dtbsv           dtbsv_
#define dtpmv           dtpmv_
#define dtpsv           dtpsv_
#define dtrmm           dtrmm_
#define dtrmv           dtrmv_
#define dtrsm           dtrsm_
#define dtrsv           dtrsv_
#define dzasum          dzasum_
#define dznrm2          dznrm2_

#define sasum           sasum_
#define sgemm           sgemm_
#define sscal           sscal_
#define ssyr            ssyr_
#define stpsv           stpsv_
#define saxpy           saxpy_
#define sgemv           sgemv_
#define sspmv           sspmv_    
#define ssyr2           ssyr2_ 
#define strmm           strmm_ 
#define scasum          scasum_  
#define sger            sger_   
#define sspr            sspr_
#define ssyr2k          ssyr2k_
#define strmv           strmv_
#define scnrm2          scnrm2_    
#define snrm2           snrm2_ 
#define sspr2           sspr2_  
#define ssyrk           ssyrk_  
#define strsm           strsm_  
#define scopy           scopy_  
#define srot            srot_
#define sswap           sswap_    
#define stbmv           stbmv_
#define strsv           strsv_
#define sdot            sdot_
#define srotg           srotg_
#define ssymm           ssymm_
#define stbsv           stbsv_
#define sgbmv           sgbmv_   
#define ssbmv           ssbmv_
#define ssymv           ssymv_ 
#define stpmv           stpmv_

#define zaxpy           zaxpy_
#define zgemv           zgemv_
#define zher2           zher2_
#define zscal           zscal_
#define ztpmv           ztpmv_
#define zcopy           zcopy_
#define zgerc           zgerc_
#define zher2k          zher2k_
#define zswap           zswap_
#define ztpsv           ztpsv_
#define zdotc           zdotc_
#define zgeru           zgeru_
#define zherk           zherk_
#define zsymm           zsymm_
#define ztrmm           ztrmm_
#define zdotu           zdotu_
#define zhbmv           zhbmv_
#define zhpmv           zhpmv_
#define zsyr2k          zsyr2k_
#define ztrmv           ztrmv_
#define zdscal          zdscal_
#define zhemm           zhemm_
#define zhpr            zhpr_
#define zsyrk           zsyrk_
#define ztrsm           ztrsm_
#define zgbmv           zgbmv_
#define zhemv           zhemv_
#define zhpr2           zhpr2_
#define ztbmv           ztbmv_
#define ztrsv           ztrsv_
#define zgemm           zgemm_
#define zher            zher_
#define zrot            zrot_
#define zrotg           zrotg_
#define ztbsv           ztbsv_

#define icamax          icamax_
#define idamax          idamax_
#define isamax          isamax_
#define izamax          izamax_

#define lsame           lsame_
#define xerbla          xerbla_

/* both are defined */
#elif defined __CAPS__ && defined __UNDERSCORE__ && !defined __2UNDERSCORES__
#define caxpy           CAXPY_
#define ccopy           CCOPY_
#define cdotc           CDOTC_
#define cdotu           CDOTU_
#define cgbmv           CGBMV_
#define cgemm           CGEMM_
#define cgemv           CGEMV_
#define cgerc           CGERC_
#define cgeru           CGERU_
#define chbmv           CHBMV_
#define chemm           CHEMM_
#define chemv           CHEMV_
#define cher            CHER_
#define cher2           CHER2_
#define cher2k          CHER2K_
#define cherk           CHERK_
#define chpmv           CHPMV_
#define chpr            CHPR_
#define chpr2           CHPR2_
#define crotg           CROTG_
#define cscal           CSCAL_
#define csscal          CSSCAL_
#define cswap           CSWAP_
#define csymm           CSYMM_
#define csyr2k          CSYR2K_
#define csyrk           CSYRK_
#define ctbmv           CTBMV_
#define ctbsv           CTBSV_
#define ctpmv           CTPMV_
#define ctpsv           CTPSV_
#define ctrmm           CTRMM_
#define ctrmv           CTRMV_
#define ctrsm           CTRSM_
#define ctrsv           CTRSV_

#define dasum           DASUM_
#define daxpy           DAXPY_
#define dcabs1          DCABS1_
#define dcopy           DCOPY_
#define ddot            DDOT_
#define dgbmv           DGBMV_
#define dgemm           DGEMM_
#define dgemv           DGEMV_
#define dger            DGER_
#define dnrm2           DNRM2_
#define drot            DROT_
#define drotg           DROTG_
#define dsbmv           DSBMV_
#define dscal           DSCAL_
#define dspmv           DSPMV_
#define dspr            DSPR_
#define dspr2           DSPR2_
#define dswap           DSWAP_
#define dsymm           DSYMM_
#define dsymv           DSYMV_
#define dsyr            DSYR_
#define dsyr2           DSYR2_
#define dsyr2k          DSYR2K_
#define dsyrk           DSYRK_
#define dtbmv           DTBMV_
#define dtbsv           DTBSV_
#define dtpmv           DTPMV_
#define dtpsv           DTPSV_
#define dtrmm           DTRMM_
#define dtrmv           DTRMV_
#define dtrsm           DTRSM_
#define dtrsv           DTRSV_
#define dzasum          DZASUM_
#define dznrm2          DZNRM2_

#define sasum           SASUM_
#define sgemm           SGEMM_
#define sscal           SSCAL_
#define ssyr            SSYR_
#define stpsv           STPSV_
#define saxpy           SAXPY_
#define sgemv           SGEMV_
#define sspmv           SSPMV_  
#define ssyr2           SSYR2_
#define strmm           STRMM_
#define scasum          SCASUM_ 
#define sger            SGER_
#define sspr            SSPR_
#define ssyr2k          SSYR2K_
#define strmv           STRMV_
#define scnrm2          SCNRM2_  
#define snrm2           SNRM2_
#define sspr2           SSPR2_
#define ssyrk           SSYRK_
#define strsm           STRSM_
#define scopy           SCOPY_
#define srot            SROT_
#define sswap           SSWAP_  
#define stbmv           STBMV_
#define strsv           STRSV_
#define sdot            SDOT_
#define srotg           SROTG_
#define ssymm           SSYMM_
#define stbsv           STBSV_
#define sgbmv           SGBMV_ 
#define ssbmv           SSBMV_
#define ssymv           SSYMV_ 
#define stpmv           STPMV_

#define zaxpy           ZAXPY_
#define zgemv           ZGEMV_
#define zher2           ZHER2_
#define zscal           ZSCAL_
#define ztpmv           ZTPMV_
#define zcopy           ZCOPY_
#define zgerc           ZGERC_
#define zher2k          ZHER2K_
#define zswap           ZSWAP_
#define ztpsv           ZTPSV_
#define zdotc           ZDOTC_
#define zgeru           ZGERU_
#define zherk           ZHERK_
#define zsymm           ZSYMM_
#define ztrmm           ZTRMM_
#define zdotu           ZDOTU_
#define zhbmv           ZHBMV_
#define zhpmv           ZHPMV_
#define zsyr2k          ZSYR2K_
#define ztrmv           ZTRMV_
#define zdscal          ZDSCAL_
#define zhemm           ZHEMM_
#define zhpr            ZHPR_
#define zsyrk           ZSYRK_
#define ztrsm           ZTRSM_
#define zgbmv           ZGBMV_
#define zhemv           ZHEMV_
#define zhpr2           ZHPR2_
#define ztbmv           ZTBMV_
#define ztrsv           ZTRSV_
#define zgemm           ZGEMM_
#define zher            ZHER_
#define zrot            ZROT_
#define zrotg           ZROTG_
#define ztbsv           ZTBSV_

#define icamax          ICAMAX_
#define idamax          IDAMAX_
#define isamax          ISAMAX_
#define izamax          IZAMAX_

#define lsame           LSAME_