cblas_f77.h

基本的C语言线性代数函数库,在linux下可直接编译；在windows下要显示地申明包含

/*
 * cblas_f77.h
 * Written by Keita Teranishi
 *
 * Updated by Jeff Horner
 * Merged cblas_f77.h and cblas_fortran_header.h
 */

#ifndef CBLAS_F77_H
#define CBLAS_f77_H

#ifdef CRAY
   #include <fortran.h>
   #define F77_CHAR _fcd
   #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
   #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
   #define F77_STRLEN(a) (_fcdlen)
#endif

#ifdef WeirdNEC
   #define F77_INT long
#endif

#ifdef  F77_CHAR
   #define FCHAR F77_CHAR
#else
   #define FCHAR char *
#endif

#ifdef F77_INT
   #define FINT const F77_INT *
   #define FINT2 F77_INT *
#else
   #define FINT const int *
   #define FINT2 int *
#endif

#if defined(ADD_)
/*
 * Level 1 BLAS
 */
#define F77_xerbla xerbla_
   #define F77_srotg      srotg_
   #define F77_srotmg     srotmg_
   #define F77_srot       srot_
   #define F77_srotm      srotm_
   #define F77_drotg      drotg_
   #define F77_drotmg     drotmg_
   #define F77_drot       drot_
   #define F77_drotm      drotm_
   #define F77_sswap      sswap_
   #define F77_scopy      scopy_
   #define F77_saxpy      saxpy_
   #define F77_isamax_sub isamaxsub_
   #define F77_dswap      dswap_
   #define F77_dcopy      dcopy_
   #define F77_daxpy      daxpy_
   #define F77_idamax_sub idamaxsub_
   #define F77_cswap      cswap_
   #define F77_ccopy      ccopy_
   #define F77_caxpy      caxpy_
   #define F77_icamax_sub icamaxsub_
   #define F77_zswap      zswap_
   #define F77_zcopy      zcopy_
   #define F77_zaxpy      zaxpy_
   #define F77_izamax_sub izamaxsub_
   #define F77_sdot_sub   sdotsub_
   #define F77_ddot_sub   ddotsub_
   #define F77_dsdot_sub   dsdotsub_
   #define F77_sscal      sscal_
   #define F77_dscal      dscal_
   #define F77_cscal      cscal_
   #define F77_zscal      zscal_
   #define F77_csscal      csscal_
   #define F77_zdscal      zdscal_
   #define F77_cdotu_sub  cdotusub_
   #define F77_cdotc_sub  cdotcsub_
   #define F77_zdotu_sub  zdotusub_
   #define F77_zdotc_sub  zdotcsub_
   #define F77_snrm2_sub  snrm2sub_
   #define F77_sasum_sub  sasumsub_
   #define F77_dnrm2_sub  dnrm2sub_
   #define F77_dasum_sub  dasumsub_
   #define F77_scnrm2_sub  scnrm2sub_
   #define F77_scasum_sub  scasumsub_
   #define F77_dznrm2_sub  dznrm2sub_
   #define F77_dzasum_sub  dzasumsub_
   #define F77_sdsdot_sub   sdsdotsub_
/*
 * Level 2 BLAS
 */
   #define F77_ssymv      ssymv_
   #define F77_ssbmv      ssbmv_
   #define F77_sspmv      sspmv_
   #define F77_sger       sger_
   #define F77_ssyr       ssyr_
   #define F77_sspr       sspr_
   #define F77_ssyr2      ssyr2_
   #define F77_sspr2      sspr2_
   #define F77_dsymv      dsymv_
   #define F77_dsbmv      dsbmv_
   #define F77_dspmv      dspmv_
   #define F77_dger       dger_
   #define F77_dsyr       dsyr_
   #define F77_dspr       dspr_
   #define F77_dsyr2      dsyr2_
   #define F77_dspr2      dspr2_
   #define F77_chemv      chemv_
   #define F77_chbmv      chbmv_
   #define F77_chpmv      chpmv_
   #define F77_cgeru      cgeru_
   #define F77_cgerc      cgerc_
   #define F77_cher       cher_
   #define F77_chpr       chpr_
   #define F77_cher2      cher2_
   #define F77_chpr2      chpr2_
   #define F77_zhemv      zhemv_
   #define F77_zhbmv      zhbmv_
   #define F77_zhpmv      zhpmv_
   #define F77_zgeru      zgeru_
   #define F77_zgerc      zgerc_
   #define F77_zher       zher_
   #define F77_zhpr       zhpr_
   #define F77_zher2      zher2_
   #define F77_zhpr2      zhpr2_
   #define F77_sgemv      sgemv_
   #define F77_sgbmv      sgbmv_
   #define F77_strmv      strmv_
   #define F77_stbmv      stbmv_
   #define F77_stpmv      stpmv_
   #define F77_strsv      strsv_
   #define F77_stbsv      stbsv_
   #define F77_stpsv      stpsv_
   #define F77_dgemv      dgemv_
   #define F77_dgbmv      dgbmv_
   #define F77_dtrmv      dtrmv_
   #define F77_dtbmv      dtbmv_
   #define F77_dtpmv      dtpmv_
   #define F77_dtrsv      dtrsv_
   #define F77_dtbsv      dtbsv_
   #define F77_dtpsv      dtpsv_
   #define F77_cgemv      cgemv_
   #define F77_cgbmv      cgbmv_
   #define F77_ctrmv      ctrmv_
   #define F77_ctbmv      ctbmv_
   #define F77_ctpmv      ctpmv_
   #define F77_ctrsv      ctrsv_
   #define F77_ctbsv      ctbsv_
   #define F77_ctpsv      ctpsv_
   #define F77_zgemv      zgemv_
   #define F77_zgbmv      zgbmv_
   #define F77_ztrmv      ztrmv_
   #define F77_ztbmv      ztbmv_
   #define F77_ztpmv      ztpmv_
   #define F77_ztrsv      ztrsv_
   #define F77_ztbsv      ztbsv_
   #define F77_ztpsv      ztpsv_
/*
 * Level 3 BLAS
 */
   #define F77_chemm      chemm_
   #define F77_cherk      cherk_
   #define F77_cher2k     cher2k_
   #define F77_zhemm      zhemm_
   #define F77_zherk      zherk_
   #define F77_zher2k     zher2k_
   #define F77_sgemm      sgemm_
   #define F77_ssymm      ssymm_
   #define F77_ssyrk      ssyrk_
   #define F77_ssyr2k     ssyr2k_
   #define F77_strmm      strmm_
   #define F77_strsm      strsm_
   #define F77_dgemm      dgemm_
   #define F77_dsymm      dsymm_
   #define F77_dsyrk      dsyrk_
   #define F77_dsyr2k     dsyr2k_
   #define F77_dtrmm      dtrmm_
   #define F77_dtrsm      dtrsm_
   #define F77_cgemm      cgemm_
   #define F77_csymm      csymm_
   #define F77_csyrk      csyrk_
   #define F77_csyr2k     csyr2k_
   #define F77_ctrmm      ctrmm_
   #define F77_ctrsm      ctrsm_
   #define F77_zgemm      zgemm_
   #define F77_zsymm      zsymm_
   #define F77_zsyrk      zsyrk_
   #define F77_zsyr2k     zsyr2k_
   #define F77_ztrmm      ztrmm_
   #define F77_ztrsm      ztrsm_
#elif defined(UPCASE)
/*
 * Level 1 BLAS
 */
#define F77_xerbla  XERBLA
   #define F77_srotg      SROTG
   #define F77_srotmg     SROTMG
   #define F77_srot       SROT
   #define F77_srotm      SROTM
   #define F77_drotg      DROTG
   #define F77_drotmg     DROTMG
   #define F77_drot       DROT
   #define F77_drotm      DROTM
   #define F77_sswap      SSWAP
   #define F77_scopy      SCOPY
   #define F77_saxpy      SAXPY
   #define F77_isamax_sub ISAMAXSUB
   #define F77_dswap      DSWAP
   #define F77_dcopy      DCOPY
   #define F77_daxpy      DAXPY
   #define F77_idamax_sub IDAMAXSUB
   #define F77_cswap      CSWAP
   #define F77_ccopy      CCOPY
   #define F77_caxpy      CAXPY
   #define F77_icamax_sub ICAMAXSUB
   #define F77_zswap      ZSWAP
   #define F77_zcopy      ZCOPY
   #define F77_zaxpy      ZAXPY
   #define F77_izamax_sub IZAMAXSUB
   #define F77_sdot_sub   SDOTSUB
   #define F77_ddot_sub   DDOTSUB
   #define F77_dsdot_sub   DSDOTSUB
   #define F77_sscal      SSCAL
   #define F77_dscal      DSCAL
   #define F77_cscal      CSCAL
   #define F77_zscal      ZSCAL
   #define F77_csscal      CSSCAL
   #define F77_zdscal      ZDSCAL
   #define F77_cdotu_sub  CDOTUSUB
   #define F77_cdotc_sub  CDOTCSUB
   #define F77_zdotu_sub  ZDOTUSUB
   #define F77_zdotc_sub  ZDOTCSUB
   #define F77_snrm2_sub  SNRM2SUB
   #define F77_sasum_sub  SASUMSUB
   #define F77_dnrm2_sub  DNRM2SUB
   #define F77_dasum_sub  DASUMSUB
   #define F77_scnrm2_sub  SCNRM2SUB
   #define F77_scasum_sub  SCASUMSUB
   #define F77_dznrm2_sub  DZNRM2SUB
   #define F77_dzasum_sub  DZASUMSUB
   #define F77_sdsdot_sub   SDSDOTSUB
/*
 * Level 2 BLAS
 */
   #define F77_ssymv      SSYMV
   #define F77_ssbmv      SSBMV
   #define F77_sspmv      SSPMV
   #define F77_sger       SGER
   #define F77_ssyr       SSYR
   #define F77_sspr       SSPR
   #define F77_ssyr2      SSYR2
   #define F77_sspr2      SSPR2
   #define F77_dsymv      DSYMV
   #define F77_dsbmv      DSBMV
   #define F77_dspmv      DSPMV
   #define F77_dger       DGER
   #define F77_dsyr       DSYR
   #define F77_dspr       DSPR
   #define F77_dsyr2      DSYR2
   #define F77_dspr2      DSPR2
   #define F77_chemv      CHEMV
   #define F77_chbmv      CHBMV
   #define F77_chpmv      CHPMV
   #define F77_cgeru      CGERU
   #define F77_cgerc      CGERC
   #define F77_cher       CHER
   #define F77_chpr       CHPR
   #define F77_cher2      CHER2
   #define F77_chpr2      CHPR2
   #define F77_zhemv      ZHEMV
   #define F77_zhbmv      ZHBMV
   #define F77_zhpmv      ZHPMV
   #define F77_zgeru      ZGERU
   #define F77_zgerc      ZGERC
   #define F77_zher       ZHER
   #define F77_zhpr       ZHPR
   #define F77_zher2      ZHER2
   #define F77_zhpr2      ZHPR2
   #define F77_sgemv      SGEMV
   #define F77_sgbmv      SGBMV
   #define F77_strmv      STRMV
   #define F77_stbmv      STBMV
   #define F77_stpmv      STPMV
   #define F77_strsv      STRSV
   #define F77_stbsv      STBSV
   #define F77_stpsv      STPSV
   #define F77_dgemv      DGEMV
   #define F77_dgbmv      DGBMV
   #define F77_dtrmv      DTRMV
   #define F77_dtbmv      DTBMV
   #define F77_dtpmv      DTPMV
   #define F77_dtrsv      DTRSV
   #define F77_dtbsv      DTBSV
   #define F77_dtpsv      DTPSV
   #define F77_cgemv      CGEMV
   #define F77_cgbmv      CGBMV
   #define F77_ctrmv      CTRMV
   #define F77_ctbmv      CTBMV
   #define F77_ctpmv      CTPMV
   #define F77_ctrsv      CTRSV
   #define F77_ctbsv      CTBSV
   #define F77_ctpsv      CTPSV
   #define F77_zgemv      ZGEMV
   #define F77_zgbmv      ZGBMV
   #define F77_ztrmv      ZTRMV
   #define F77_ztbmv      ZTBMV
   #define F77_ztpmv      ZTPMV
   #define F77_ztrsv      ZTRSV
   #define F77_ztbsv      ZTBSV
   #define F77_ztpsv      ZTPSV
/*
 * Level 3 BLAS
 */
   #define F77_chemm      CHEMM
   #define F77_cherk      CHERK
   #define F77_cher2k     CHER2K
   #define F77_zhemm      ZHEMM
   #define F77_zherk      ZHERK
   #define F77_zher2k     ZHER2K
   #define F77_sgemm      SGEMM
   #define F77_ssymm      SSYMM
   #define F77_ssyrk      SSYRK
   #define F77_ssyr2k     SSYR2K
   #define F77_strmm      STRMM
   #define F77_strsm      STRSM
   #define F77_dgemm      DGEMM
   #define F77_dsymm      DSYMM
   #define F77_dsyrk      DSYRK
   #define F77_dsyr2k     DSYR2K
   #define F77_dtrmm      DTRMM
   #define F77_dtrsm      DTRSM
   #define F77_cgemm      CGEMM
   #define F77_csymm      CSYMM
   #define F77_csyrk      CSYRK
   #define F77_csyr2k     CSYR2K
   #define F77_ctrmm      CTRMM
   #define F77_ctrsm      CTRSM
   #define F77_zgemm      ZGEMM
   #define F77_zsymm      ZSYMM
   #define F77_zsyrk      ZSYRK
   #define F77_zsyr2k     ZSYR2K
   #define F77_ztrmm      ZTRMM
   #define F77_ztrsm      ZTRSM
#elif defined(NOCHANGE)
/*
 * Level 1 BLAS
 */