coco
702 lines
28 KiB
C
702 lines
28 KiB
C
/*
|
|
* 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
|
|
*/
|
|
#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
|
|
#endif
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
void F77_xerbla(FCHAR, void *);
|
|
/*
|
|
* Level 1 Fortran Prototypes
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
|
|
void F77_srotg(float *,float *,float *,float *);
|
|
void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
|
|
void F77_srotmg(float *,float *,float *,const float *, float *);
|
|
void F77_sswap( FINT, float *, FINT, float *, FINT);
|
|
void F77_scopy( FINT, const float *, FINT, float *, FINT);
|
|
void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT);
|
|
void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *);
|
|
void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *);
|
|
void F77_sscal( FINT, const float *, float *, FINT);
|
|
void F77_snrm2_sub( FINT, const float *, FINT, float *);
|
|
void F77_sasum_sub( FINT, const float *, FINT, float *);
|
|
void F77_isamax_sub( FINT, const float * , FINT, FINT2);
|
|
|
|
/* Double Precision */
|
|
|
|
void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
|
|
void F77_drotg(double *,double *,double *,double *);
|
|
void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
|
|
void F77_drotmg(double *,double *,double *,const double *, double *);
|
|
void F77_dswap( FINT, double *, FINT, double *, FINT);
|
|
void F77_dcopy( FINT, const double *, FINT, double *, FINT);
|
|
void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT);
|
|
void F77_dswap( FINT, double *, FINT, double *, FINT);
|
|
void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *);
|
|
void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *);
|
|
void F77_dscal( FINT, const double *, double *, FINT);
|
|
void F77_dnrm2_sub( FINT, const double *, FINT, double *);
|
|
void F77_dasum_sub( FINT, const double *, FINT, double *);
|
|
void F77_idamax_sub( FINT, const double * , FINT, FINT2);
|
|
|
|
/* Single Complex Precision */
|
|
|
|
void F77_cswap( FINT, void *, FINT, void *, FINT);
|
|
void F77_ccopy( FINT, const void *, FINT, void *, FINT);
|
|
void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT);
|
|
void F77_cswap( FINT, void *, FINT, void *, FINT);
|
|
void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_cscal( FINT, const void *, void *, FINT);
|
|
void F77_icamax_sub( FINT, const void *, FINT, FINT2);
|
|
void F77_csscal( FINT, const float *, void *, FINT);
|
|
void F77_scnrm2_sub( FINT, const void *, FINT, float *);
|
|
void F77_scasum_sub( FINT, const void *, FINT, float *);
|
|
|
|
/* Double Complex Precision */
|
|
|
|
void F77_zswap( FINT, void *, FINT, void *, FINT);
|
|
void F77_zcopy( FINT, const void *, FINT, void *, FINT);
|
|
void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT);
|
|
void F77_zswap( FINT, void *, FINT, void *, FINT);
|
|
void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_zdscal( FINT, const double *, void *, FINT);
|
|
void F77_zscal( FINT, const void *, void *, FINT);
|
|
void F77_dznrm2_sub( FINT, const void *, FINT, double *);
|
|
void F77_dzasum_sub( FINT, const void *, FINT, double *);
|
|
void F77_izamax_sub( FINT, const void *, FINT, FINT2);
|
|
|
|
/*
|
|
* Level 2 Fortran Prototypes
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT);
|
|
void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
|
|
void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
|
|
void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
|
|
void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
|
|
void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
|
|
void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
|
|
void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
|
|
void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
|
|
void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
|
|
void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *);
|
|
void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
|
|
|
|
/* Double Precision */
|
|
|
|
void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
|
|
void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
|
|
void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
|
|
void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
|
|
void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
|
|
void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
|
|
void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
|
|
void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
|
|
void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
|
|
void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *);
|
|
void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
|
|
|
|
/* Single Complex Precision */
|
|
|
|
void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
|
|
void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
|
|
void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
|
|
void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT);
|
|
void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *);
|
|
void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *);
|
|
|
|
/* Double Complex Precision */
|
|
|
|
void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
|
|
void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
|
|
void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
|
|
void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
|
|
void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
|
|
void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT);
|
|
void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *);
|
|
void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *);
|
|
|
|
/*
|
|
* Level 3 Fortran Prototypes
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
|
|
void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
|
|
/* Double Precision */
|
|
|
|
void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
|
|
/* Single Complex Precision */
|
|
|
|
void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
|
|
void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
|
|
void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
|
|
void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
|
|
|
|
/* Double Complex Precision */
|
|
|
|
void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
|
|
void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
|
|
void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
|
|
void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif /* CBLAS_F77_H */
|