1260 lines
52 KiB
C
1260 lines
52 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
|
|
|
|
#include "cblas_mangling.h"
|
|
|
|
#include <stdarg.h>
|
|
#include <stdint.h>
|
|
|
|
/* It seems all current Fortran compilers put strlen at end.
|
|
* Some historical compilers put strlen after the str argument
|
|
* or make the str argument into a struct. */
|
|
#define BLAS_FORTRAN_STRLEN_END
|
|
|
|
#ifndef FORTRAN_STRLEN
|
|
#define FORTRAN_STRLEN size_t
|
|
#endif
|
|
|
|
#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
|
|
|
|
#ifndef F77_INT
|
|
#ifdef WeirdNEC
|
|
#define F77_INT int64_t
|
|
#else
|
|
#define F77_INT int32_t
|
|
#endif
|
|
#endif
|
|
|
|
#ifdef F77_CHAR
|
|
#define FCHAR F77_CHAR
|
|
#else
|
|
#define FCHAR char *
|
|
#endif
|
|
|
|
#define FINT const F77_INT *
|
|
#define FINT2 F77_INT *
|
|
|
|
/*
|
|
* Integer specific API
|
|
*/
|
|
#ifndef API_SUFFIX
|
|
#ifdef CBLAS_API64
|
|
#define API_SUFFIX(a) a##_64
|
|
#else
|
|
#define API_SUFFIX(a) a
|
|
#endif
|
|
#endif
|
|
|
|
#define F77_GLOBAL_SUFFIX(a,b) F77_GLOBAL_SUFFIX_(API_SUFFIX(a),API_SUFFIX(b))
|
|
#define F77_GLOBAL_SUFFIX_(a,b) F77_GLOBAL(a,b)
|
|
|
|
/*
|
|
* Level 1 BLAS
|
|
*/
|
|
|
|
#define F77_xerbla_base F77_GLOBAL_SUFFIX(xerbla,XERBLA)
|
|
#define F77_srotg_base F77_GLOBAL_SUFFIX(srotg,SROTG)
|
|
#define F77_srotmg_base F77_GLOBAL_SUFFIX(srotmg,SROTMG)
|
|
#define F77_srot_base F77_GLOBAL_SUFFIX(srot,SROT)
|
|
#define F77_srotm_base F77_GLOBAL_SUFFIX(srotm,SROTM)
|
|
#define F77_drotg_base F77_GLOBAL_SUFFIX(drotg,DROTG)
|
|
#define F77_drotmg_base F77_GLOBAL_SUFFIX(drotmg,DROTMG)
|
|
#define F77_drot_base F77_GLOBAL_SUFFIX(drot,DROT)
|
|
#define F77_drotm_base F77_GLOBAL_SUFFIX(drotm,DROTM)
|
|
#define F77_sswap_base F77_GLOBAL_SUFFIX(sswap,SSWAP)
|
|
#define F77_scopy_base F77_GLOBAL_SUFFIX(scopy,SCOPY)
|
|
#define F77_saxpy_base F77_GLOBAL_SUFFIX(saxpy,SAXPY)
|
|
#define F77_saxpby_base F77_GLOBAL_SUFFIX(saxpby,SAXPBY)
|
|
#define F77_isamax_sub_base F77_GLOBAL_SUFFIX(isamaxsub,ISAMAXSUB)
|
|
#define F77_dswap_base F77_GLOBAL_SUFFIX(dswap,DSWAP)
|
|
#define F77_dcopy_base F77_GLOBAL_SUFFIX(dcopy,DCOPY)
|
|
#define F77_daxpy_base F77_GLOBAL_SUFFIX(daxpy,DAXPY)
|
|
#define F77_daxpby_base F77_GLOBAL_SUFFIX(daxpby,DAXPBY)
|
|
#define F77_idamax_sub_base F77_GLOBAL_SUFFIX(idamaxsub,IDAMAXSUB)
|
|
#define F77_cswap_base F77_GLOBAL_SUFFIX(cswap,CSWAP)
|
|
#define F77_ccopy_base F77_GLOBAL_SUFFIX(ccopy,CCOPY)
|
|
#define F77_caxpy_base F77_GLOBAL_SUFFIX(caxpy,CAXPY)
|
|
#define F77_caxpby_base F77_GLOBAL_SUFFIX(caxpby,CAXPBY)
|
|
#define F77_icamax_sub_base F77_GLOBAL_SUFFIX(icamaxsub,ICAMAXSUB)
|
|
#define F77_zswap_base F77_GLOBAL_SUFFIX(zswap,ZSWAP)
|
|
#define F77_zcopy_base F77_GLOBAL_SUFFIX(zcopy,ZCOPY)
|
|
#define F77_zaxpy_base F77_GLOBAL_SUFFIX(zaxpy,ZAXPY)
|
|
#define F77_zaxpby_base F77_GLOBAL_SUFFIX(zaxpby,ZAXPBY)
|
|
#define F77_izamax_sub_base F77_GLOBAL_SUFFIX(izamaxsub,IZAMAXSUB)
|
|
#define F77_sdot_sub_base F77_GLOBAL_SUFFIX(sdotsub,SDOTSUB)
|
|
#define F77_ddot_sub_base F77_GLOBAL_SUFFIX(ddotsub,DDOTSUB)
|
|
#define F77_dsdot_sub_base F77_GLOBAL_SUFFIX(dsdotsub,DSDOTSUB)
|
|
#define F77_sscal_base F77_GLOBAL_SUFFIX(sscal,SSCAL)
|
|
#define F77_dscal_base F77_GLOBAL_SUFFIX(dscal,DSCAL)
|
|
#define F77_cscal_base F77_GLOBAL_SUFFIX(cscal,CSCAL)
|
|
#define F77_zscal_base F77_GLOBAL_SUFFIX(zscal,ZSCAL)
|
|
#define F77_csscal_base F77_GLOBAL_SUFFIX(csscal,CSSCAL)
|
|
#define F77_zdscal_base F77_GLOBAL_SUFFIX(zdscal,ZDSCAL)
|
|
#define F77_cdotu_sub_base F77_GLOBAL_SUFFIX(cdotusub,CDOTUSUB)
|
|
#define F77_cdotc_sub_base F77_GLOBAL_SUFFIX(cdotcsub,CDOTCSUB)
|
|
#define F77_zdotu_sub_base F77_GLOBAL_SUFFIX(zdotusub,ZDOTUSUB)
|
|
#define F77_zdotc_sub_base F77_GLOBAL_SUFFIX(zdotcsub,ZDOTCSUB)
|
|
#define F77_snrm2_sub_base F77_GLOBAL_SUFFIX(snrm2sub,SNRM2SUB)
|
|
#define F77_sasum_sub_base F77_GLOBAL_SUFFIX(sasumsub,SASUMSUB)
|
|
#define F77_dnrm2_sub_base F77_GLOBAL_SUFFIX(dnrm2sub,DNRM2SUB)
|
|
#define F77_dasum_sub_base F77_GLOBAL_SUFFIX(dasumsub,DASUMSUB)
|
|
#define F77_scnrm2_sub_base F77_GLOBAL_SUFFIX(scnrm2sub,SCNRM2SUB)
|
|
#define F77_scasum_sub_base F77_GLOBAL_SUFFIX(scasumsub,SCASUMSUB)
|
|
#define F77_dznrm2_sub_base F77_GLOBAL_SUFFIX(dznrm2sub,DZNRM2SUB)
|
|
#define F77_dzasum_sub_base F77_GLOBAL_SUFFIX(dzasumsub,DZASUMSUB)
|
|
#define F77_sdsdot_sub_base F77_GLOBAL_SUFFIX(sdsdotsub,SDSDOTSUB)
|
|
#define F77_crotg_base F77_GLOBAL_SUFFIX(crotg, CROTG)
|
|
#define F77_csrot_base F77_GLOBAL_SUFFIX(csrot, CSROT)
|
|
#define F77_zrotg_base F77_GLOBAL_SUFFIX(zrotg, ZROTG)
|
|
#define F77_zdrot_base F77_GLOBAL_SUFFIX(zdrot, ZDROT)
|
|
#define F77_scabs1_sub_base F77_GLOBAL_SUFFIX(scabs1sub, SCABS1SUB)
|
|
#define F77_dcabs1_sub_base F77_GLOBAL_SUFFIX(dcabs1sub, DCABS1SUB)
|
|
|
|
/*
|
|
* Level 2 BLAS
|
|
*/
|
|
#define F77_ssymv_base F77_GLOBAL_SUFFIX(ssymv,SSYMV)
|
|
#define F77_ssbmv_base F77_GLOBAL_SUFFIX(ssbmv,SSBMV)
|
|
#define F77_sspmv_base F77_GLOBAL_SUFFIX(sspmv,SSPMV)
|
|
#define F77_sskewsymv_base F77_GLOBAL_SUFFIX(sskewsymv,SSKEWSYMV)
|
|
#define F77_sger_base F77_GLOBAL_SUFFIX(sger,SGER)
|
|
#define F77_ssyr_base F77_GLOBAL_SUFFIX(ssyr,SSYR)
|
|
#define F77_sspr_base F77_GLOBAL_SUFFIX(sspr,SSPR)
|
|
#define F77_ssyr2_base F77_GLOBAL_SUFFIX(ssyr2,SSYR2)
|
|
#define F77_sspr2_base F77_GLOBAL_SUFFIX(sspr2,SSPR2)
|
|
#define F77_sskewsyr2_base F77_GLOBAL_SUFFIX(sskewsyr2,SSKEWSYR2)
|
|
#define F77_dsymv_base F77_GLOBAL_SUFFIX(dsymv,DSYMV)
|
|
#define F77_dsbmv_base F77_GLOBAL_SUFFIX(dsbmv,DSBMV)
|
|
#define F77_dspmv_base F77_GLOBAL_SUFFIX(dspmv,DSPMV)
|
|
#define F77_dskewsymv_base F77_GLOBAL_SUFFIX(dskewsymv,DSKEWSYMV)
|
|
#define F77_dger_base F77_GLOBAL_SUFFIX(dger,DGER)
|
|
#define F77_dsyr_base F77_GLOBAL_SUFFIX(dsyr,DSYR)
|
|
#define F77_dspr_base F77_GLOBAL_SUFFIX(dspr,DSPR)
|
|
#define F77_dsyr2_base F77_GLOBAL_SUFFIX(dsyr2,DSYR2)
|
|
#define F77_dspr2_base F77_GLOBAL_SUFFIX(dspr2,DSPR2)
|
|
#define F77_dskewsyr2_base F77_GLOBAL_SUFFIX(dskewsyr2,DSKEWSYR2)
|
|
#define F77_chemv_base F77_GLOBAL_SUFFIX(chemv,CHEMV)
|
|
#define F77_chbmv_base F77_GLOBAL_SUFFIX(chbmv,CHBMV)
|
|
#define F77_chpmv_base F77_GLOBAL_SUFFIX(chpmv,CHPMV)
|
|
#define F77_cgeru_base F77_GLOBAL_SUFFIX(cgeru,CGERU)
|
|
#define F77_cgerc_base F77_GLOBAL_SUFFIX(cgerc,CGERC)
|
|
#define F77_cher_base F77_GLOBAL_SUFFIX(cher,CHER)
|
|
#define F77_chpr_base F77_GLOBAL_SUFFIX(chpr,CHPR)
|
|
#define F77_cher2_base F77_GLOBAL_SUFFIX(cher2,CHER2)
|
|
#define F77_chpr2_base F77_GLOBAL_SUFFIX(chpr2,CHPR2)
|
|
#define F77_zhemv_base F77_GLOBAL_SUFFIX(zhemv,ZHEMV)
|
|
#define F77_zhbmv_base F77_GLOBAL_SUFFIX(zhbmv,ZHBMV)
|
|
#define F77_zhpmv_base F77_GLOBAL_SUFFIX(zhpmv,ZHPMV)
|
|
#define F77_zgeru_base F77_GLOBAL_SUFFIX(zgeru,ZGERU)
|
|
#define F77_zgerc_base F77_GLOBAL_SUFFIX(zgerc,ZGERC)
|
|
#define F77_zher_base F77_GLOBAL_SUFFIX(zher,ZHER)
|
|
#define F77_zhpr_base F77_GLOBAL_SUFFIX(zhpr,ZHPR)
|
|
#define F77_zher2_base F77_GLOBAL_SUFFIX(zher2,ZHER2)
|
|
#define F77_zhpr2_base F77_GLOBAL_SUFFIX(zhpr2,ZHPR2)
|
|
#define F77_sgemv_base F77_GLOBAL_SUFFIX(sgemv,SGEMV)
|
|
#define F77_sgbmv_base F77_GLOBAL_SUFFIX(sgbmv,SGBMV)
|
|
#define F77_strmv_base F77_GLOBAL_SUFFIX(strmv,STRMV)
|
|
#define F77_stbmv_base F77_GLOBAL_SUFFIX(stbmv,STBMV)
|
|
#define F77_stpmv_base F77_GLOBAL_SUFFIX(stpmv,STPMV)
|
|
#define F77_strsv_base F77_GLOBAL_SUFFIX(strsv,STRSV)
|
|
#define F77_stbsv_base F77_GLOBAL_SUFFIX(stbsv,STBSV)
|
|
#define F77_stpsv_base F77_GLOBAL_SUFFIX(stpsv,STPSV)
|
|
#define F77_dgemv_base F77_GLOBAL_SUFFIX(dgemv,DGEMV)
|
|
#define F77_dgbmv_base F77_GLOBAL_SUFFIX(dgbmv,DGBMV)
|
|
#define F77_dtrmv_base F77_GLOBAL_SUFFIX(dtrmv,DTRMV)
|
|
#define F77_dtbmv_base F77_GLOBAL_SUFFIX(dtbmv,DTBMV)
|
|
#define F77_dtpmv_base F77_GLOBAL_SUFFIX(dtpmv,DTPMV)
|
|
#define F77_dtrsv_base F77_GLOBAL_SUFFIX(dtrsv,DTRSV)
|
|
#define F77_dtbsv_base F77_GLOBAL_SUFFIX(dtbsv,DTBSV)
|
|
#define F77_dtpsv_base F77_GLOBAL_SUFFIX(dtpsv,DTPSV)
|
|
#define F77_cgemv_base F77_GLOBAL_SUFFIX(cgemv,CGEMV)
|
|
#define F77_cgbmv_base F77_GLOBAL_SUFFIX(cgbmv,CGBMV)
|
|
#define F77_ctrmv_base F77_GLOBAL_SUFFIX(ctrmv,CTRMV)
|
|
#define F77_ctbmv_base F77_GLOBAL_SUFFIX(ctbmv,CTBMV)
|
|
#define F77_ctpmv_base F77_GLOBAL_SUFFIX(ctpmv,CTPMV)
|
|
#define F77_ctrsv_base F77_GLOBAL_SUFFIX(ctrsv,CTRSV)
|
|
#define F77_ctbsv_base F77_GLOBAL_SUFFIX(ctbsv,CTBSV)
|
|
#define F77_ctpsv_base F77_GLOBAL_SUFFIX(ctpsv,CTPSV)
|
|
#define F77_zgemv_base F77_GLOBAL_SUFFIX(zgemv,ZGEMV)
|
|
#define F77_zgbmv_base F77_GLOBAL_SUFFIX(zgbmv,ZGBMV)
|
|
#define F77_ztrmv_base F77_GLOBAL_SUFFIX(ztrmv,ZTRMV)
|
|
#define F77_ztbmv_base F77_GLOBAL_SUFFIX(ztbmv,ZTBMV)
|
|
#define F77_ztpmv_base F77_GLOBAL_SUFFIX(ztpmv,ZTPMV)
|
|
#define F77_ztrsv_base F77_GLOBAL_SUFFIX(ztrsv,ZTRSV)
|
|
#define F77_ztbsv_base F77_GLOBAL_SUFFIX(ztbsv,ZTBSV)
|
|
#define F77_ztpsv_base F77_GLOBAL_SUFFIX(ztpsv,ZTPSV)
|
|
/*
|
|
* Level 3 BLAS
|
|
*/
|
|
#define F77_chemm_base F77_GLOBAL_SUFFIX(chemm,CHEMM)
|
|
#define F77_cherk_base F77_GLOBAL_SUFFIX(cherk,CHERK)
|
|
#define F77_cher2k_base F77_GLOBAL_SUFFIX(cher2k,CHER2K)
|
|
#define F77_zhemm_base F77_GLOBAL_SUFFIX(zhemm,ZHEMM)
|
|
#define F77_zherk_base F77_GLOBAL_SUFFIX(zherk,ZHERK)
|
|
#define F77_zher2k_base F77_GLOBAL_SUFFIX(zher2k,ZHER2K)
|
|
#define F77_sgemm_base F77_GLOBAL_SUFFIX(sgemm,SGEMM)
|
|
#define F77_sgemmtr_base F77_GLOBAL_SUFFIX(sgemmtr,SGEMMTR)
|
|
#define F77_ssymm_base F77_GLOBAL_SUFFIX(ssymm,SSYMM)
|
|
#define F77_sskewsymm_base F77_GLOBAL_SUFFIX(sskewsymm,SSKEWSYMM)
|
|
#define F77_ssyrk_base F77_GLOBAL_SUFFIX(ssyrk,SSYRK)
|
|
#define F77_ssyr2k_base F77_GLOBAL_SUFFIX(ssyr2k,SSYR2K)
|
|
#define F77_sskewsyr2k_base F77_GLOBAL_SUFFIX(sskewsyr2k,SSKEWSYR2K)
|
|
#define F77_strmm_base F77_GLOBAL_SUFFIX(strmm,STRMM)
|
|
#define F77_strsm_base F77_GLOBAL_SUFFIX(strsm,STRSM)
|
|
#define F77_dgemm_base F77_GLOBAL_SUFFIX(dgemm,DGEMM)
|
|
#define F77_dgemmtr_base F77_GLOBAL_SUFFIX(dgemmtr,DGEMMTR)
|
|
#define F77_dsymm_base F77_GLOBAL_SUFFIX(dsymm,DSYMM)
|
|
#define F77_dskewsymm_base F77_GLOBAL_SUFFIX(dskewsymm,DSKEWSYMM)
|
|
#define F77_dsyrk_base F77_GLOBAL_SUFFIX(dsyrk,DSYRK)
|
|
#define F77_dsyr2k_base F77_GLOBAL_SUFFIX(dsyr2k,DSYR2K)
|
|
#define F77_dskewsyr2k_base F77_GLOBAL_SUFFIX(dskewsyr2k,DSKEWSYR2K)
|
|
#define F77_dtrmm_base F77_GLOBAL_SUFFIX(dtrmm,DTRMM)
|
|
#define F77_dtrsm_base F77_GLOBAL_SUFFIX(dtrsm,DTRSM)
|
|
#define F77_cgemm_base F77_GLOBAL_SUFFIX(cgemm,CGEMM)
|
|
#define F77_cgemmtr_base F77_GLOBAL_SUFFIX(cgemmtr,CGEMMTR)
|
|
#define F77_csymm_base F77_GLOBAL_SUFFIX(csymm,CSYMM)
|
|
#define F77_csyrk_base F77_GLOBAL_SUFFIX(csyrk,CSYRK)
|
|
#define F77_csyr2k_base F77_GLOBAL_SUFFIX(csyr2k,CSYR2K)
|
|
#define F77_ctrmm_base F77_GLOBAL_SUFFIX(ctrmm,CTRMM)
|
|
#define F77_ctrsm_base F77_GLOBAL_SUFFIX(ctrsm,CTRSM)
|
|
#define F77_zgemm_base F77_GLOBAL_SUFFIX(zgemm,ZGEMM)
|
|
#define F77_zgemmtr_base F77_GLOBAL_SUFFIX(zgemmtr,ZGEMMTR)
|
|
#define F77_zsymm_base F77_GLOBAL_SUFFIX(zsymm,ZSYMM)
|
|
#define F77_zsyrk_base F77_GLOBAL_SUFFIX(zsyrk,ZSYRK)
|
|
#define F77_zsyr2k_base F77_GLOBAL_SUFFIX(zsyr2k,ZSYR2K)
|
|
#define F77_ztrmm_base F77_GLOBAL_SUFFIX(ztrmm,ZTRMM)
|
|
#define F77_ztrsm_base F77_GLOBAL_SUFFIX(ztrsm,ZTRSM)
|
|
|
|
/*
|
|
* Level 1 Fortran variadic definitions
|
|
*/
|
|
|
|
|
|
/* Single Precision */
|
|
|
|
#define F77_srot(...) F77_srot_base(__VA_ARGS__)
|
|
#define F77_srotg(...) F77_srotg_base(__VA_ARGS__)
|
|
#define F77_srotm(...) F77_srotm_base(__VA_ARGS__)
|
|
#define F77_srotmg(...) F77_srotmg_base(__VA_ARGS__)
|
|
#define F77_sswap(...) F77_sswap_base(__VA_ARGS__)
|
|
#define F77_scopy(...) F77_scopy_base(__VA_ARGS__)
|
|
#define F77_saxpy(...) F77_saxpy_base(__VA_ARGS__)
|
|
#define F77_saxpby(...) F77_saxpby_base(__VA_ARGS__)
|
|
#define F77_sdot_sub(...) F77_sdot_sub_base(__VA_ARGS__)
|
|
#define F77_sdsdot_sub(...) F77_sdsdot_sub_base(__VA_ARGS__)
|
|
#define F77_sscal(...) F77_sscal_base(__VA_ARGS__)
|
|
#define F77_snrm2_sub(...) F77_snrm2_sub_base(__VA_ARGS__)
|
|
#define F77_sasum_sub(...) F77_sasum_sub_base(__VA_ARGS__)
|
|
#define F77_isamax_sub(...) F77_isamax_sub_base(__VA_ARGS__)
|
|
#define F77_scabs1_sub(...) F77_scabs1_sub_base(__VA_ARGS__)
|
|
|
|
/* Double Precision */
|
|
|
|
#define F77_drot(...) F77_drot_base(__VA_ARGS__)
|
|
#define F77_drotg(...) F77_drotg_base(__VA_ARGS__)
|
|
#define F77_drotm(...) F77_drotm_base(__VA_ARGS__)
|
|
#define F77_drotmg(...) F77_drotmg_base(__VA_ARGS__)
|
|
#define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
|
|
#define F77_dcopy(...) F77_dcopy_base(__VA_ARGS__)
|
|
#define F77_daxpy(...) F77_daxpy_base(__VA_ARGS__)
|
|
#define F77_daxpby(...) F77_daxpby_base(__VA_ARGS__)
|
|
#define F77_dswap(...) F77_dswap_base(__VA_ARGS__)
|
|
#define F77_dsdot_sub(...) F77_dsdot_sub_base(__VA_ARGS__)
|
|
#define F77_ddot_sub(...) F77_ddot_sub_base(__VA_ARGS__)
|
|
#define F77_dscal(...) F77_dscal_base(__VA_ARGS__)
|
|
#define F77_dnrm2_sub(...) F77_dnrm2_sub_base(__VA_ARGS__)
|
|
#define F77_dasum_sub(...) F77_dasum_sub_base(__VA_ARGS__)
|
|
#define F77_idamax_sub(...) F77_idamax_sub_base(__VA_ARGS__)
|
|
#define F77_dcabs1_sub(...) F77_dcabs1_sub_base(__VA_ARGS__)
|
|
|
|
/* Single Complex Precision */
|
|
|
|
#define F77_crotg(...) F77_crotg_base(__VA_ARGS__)
|
|
#define F77_csrot(...) F77_csrot_base(__VA_ARGS__)
|
|
#define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
|
|
#define F77_ccopy(...) F77_ccopy_base(__VA_ARGS__)
|
|
#define F77_caxpy(...) F77_caxpy_base(__VA_ARGS__)
|
|
#define F77_caxpby(...) F77_caxpby_base(__VA_ARGS__)
|
|
#define F77_cswap(...) F77_cswap_base(__VA_ARGS__)
|
|
#define F77_cdotc_sub(...) F77_cdotc_sub_base(__VA_ARGS__)
|
|
#define F77_cdotu_sub(...) F77_cdotu_sub_base(__VA_ARGS__)
|
|
#define F77_cscal(...) F77_cscal_base(__VA_ARGS__)
|
|
#define F77_icamax_sub(...) F77_icamax_sub_base(__VA_ARGS__)
|
|
#define F77_csscal(...) F77_csscal_base(__VA_ARGS__)
|
|
#define F77_scnrm2_sub(...) F77_scnrm2_sub_base(__VA_ARGS__)
|
|
#define F77_scasum_sub(...) F77_scasum_sub_base(__VA_ARGS__)
|
|
|
|
/* Double Complex Precision */
|
|
|
|
#define F77_zrotg(...) F77_zrotg_base(__VA_ARGS__)
|
|
#define F77_zdrot(...) F77_zdrot_base(__VA_ARGS__)
|
|
#define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
|
|
#define F77_zcopy(...) F77_zcopy_base(__VA_ARGS__)
|
|
#define F77_zaxpy(...) F77_zaxpy_base(__VA_ARGS__)
|
|
#define F77_zaxpby(...) F77_zaxpby_base(__VA_ARGS__)
|
|
#define F77_zswap(...) F77_zswap_base(__VA_ARGS__)
|
|
#define F77_zdotc_sub(...) F77_zdotc_sub_base(__VA_ARGS__)
|
|
#define F77_zdotu_sub(...) F77_zdotu_sub_base(__VA_ARGS__)
|
|
#define F77_zdscal(...) F77_zdscal_base(__VA_ARGS__)
|
|
#define F77_zscal(...) F77_zscal_base(__VA_ARGS__)
|
|
#define F77_dznrm2_sub(...) F77_dznrm2_sub_base(__VA_ARGS__)
|
|
#define F77_dzasum_sub(...) F77_dzasum_sub_base(__VA_ARGS__)
|
|
#define F77_izamax_sub(...) F77_izamax_sub_base(__VA_ARGS__)
|
|
|
|
/*
|
|
* Level 2 Fortran variadic definitions without FCHAR
|
|
*/
|
|
|
|
#define F77_sger(...) F77_sger_base(__VA_ARGS__)
|
|
#define F77_dger(...) F77_dger_base(__VA_ARGS__)
|
|
#define F77_cgerc(...) F77_cgerc_base(__VA_ARGS__)
|
|
#define F77_cgeru(...) F77_cgeru_base(__VA_ARGS__)
|
|
#define F77_zgerc(...) F77_zgerc_base(__VA_ARGS__)
|
|
#define F77_zgeru(...) F77_zgeru_base(__VA_ARGS__)
|
|
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
|
|
/*
|
|
* Level 2 Fortran variadic definitions with BLAS_FORTRAN_STRLEN_END
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
#define F77_sgemv(...) F77_sgemv_base(__VA_ARGS__, 1)
|
|
#define F77_sgbmv(...) F77_sgbmv_base(__VA_ARGS__, 1)
|
|
#define F77_ssymv(...) F77_ssymv_base(__VA_ARGS__, 1)
|
|
#define F77_ssbmv(...) F77_ssbmv_base(__VA_ARGS__, 1)
|
|
#define F77_sspmv(...) F77_sspmv_base(__VA_ARGS__, 1)
|
|
#define F77_sskewsymv(...) F77_sskewsymv_base(__VA_ARGS__, 1)
|
|
#define F77_strmv(...) F77_strmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_stbmv(...) F77_stbmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_strsv(...) F77_strsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_stbsv(...) F77_stbsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_stpmv(...) F77_stpmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_stpsv(...) F77_stpsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ssyr(...) F77_ssyr_base(__VA_ARGS__, 1)
|
|
#define F77_sspr(...) F77_sspr_base(__VA_ARGS__, 1)
|
|
#define F77_sspr2(...) F77_sspr2_base(__VA_ARGS__, 1)
|
|
#define F77_ssyr2(...) F77_ssyr2_base(__VA_ARGS__, 1)
|
|
#define F77_sskewsyr2(...) F77_sskewsyr2_base(__VA_ARGS__, 1)
|
|
|
|
/* Double Precision */
|
|
|
|
#define F77_dgemv(...) F77_dgemv_base(__VA_ARGS__, 1)
|
|
#define F77_dgbmv(...) F77_dgbmv_base(__VA_ARGS__, 1)
|
|
#define F77_dsymv(...) F77_dsymv_base(__VA_ARGS__, 1)
|
|
#define F77_dsbmv(...) F77_dsbmv_base(__VA_ARGS__, 1)
|
|
#define F77_dspmv(...) F77_dspmv_base(__VA_ARGS__, 1)
|
|
#define F77_dskewsymv(...) F77_dskewsymv_base(__VA_ARGS__, 1)
|
|
#define F77_dtrmv(...) F77_dtrmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_dtbmv(...) F77_dtbmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_dtrsv(...) F77_dtrsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_dtbsv(...) F77_dtbsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_dtpmv(...) F77_dtpmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_dtpsv(...) F77_dtpsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_dsyr(...) F77_dsyr_base(__VA_ARGS__, 1)
|
|
#define F77_dspr(...) F77_dspr_base(__VA_ARGS__, 1)
|
|
#define F77_dspr2(...) F77_dspr2_base(__VA_ARGS__, 1)
|
|
#define F77_dsyr2(...) F77_dsyr2_base(__VA_ARGS__, 1)
|
|
#define F77_dskewsyr2(...) F77_dskewsyr2_base(__VA_ARGS__, 1)
|
|
|
|
/* Single Complex Precision */
|
|
|
|
#define F77_cgemv(...) F77_cgemv_base(__VA_ARGS__, 1)
|
|
#define F77_cgbmv(...) F77_cgbmv_base(__VA_ARGS__, 1)
|
|
#define F77_chemv(...) F77_chemv_base(__VA_ARGS__, 1)
|
|
#define F77_chbmv(...) F77_chbmv_base(__VA_ARGS__, 1)
|
|
#define F77_chpmv(...) F77_chpmv_base(__VA_ARGS__, 1)
|
|
#define F77_ctrmv(...) F77_ctrmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ctbmv(...) F77_ctbmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ctpmv(...) F77_ctpmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ctrsv(...) F77_ctrsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ctbsv(...) F77_ctbsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ctpsv(...) F77_ctpsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_cher(...) F77_cher_base(__VA_ARGS__, 1)
|
|
#define F77_cher2(...) F77_cher2_base(__VA_ARGS__, 1)
|
|
#define F77_chpr(...) F77_chpr_base(__VA_ARGS__, 1)
|
|
#define F77_chpr2(...) F77_chpr2_base(__VA_ARGS__, 1)
|
|
|
|
/* Double Complex Precision */
|
|
|
|
#define F77_zgemv(...) F77_zgemv_base(__VA_ARGS__, 1)
|
|
#define F77_zgbmv(...) F77_zgbmv_base(__VA_ARGS__, 1)
|
|
#define F77_zhemv(...) F77_zhemv_base(__VA_ARGS__, 1)
|
|
#define F77_zhbmv(...) F77_zhbmv_base(__VA_ARGS__, 1)
|
|
#define F77_zhpmv(...) F77_zhpmv_base(__VA_ARGS__, 1)
|
|
#define F77_ztrmv(...) F77_ztrmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ztbmv(...) F77_ztbmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ztpmv(...) F77_ztpmv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ztrsv(...) F77_ztrsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ztbsv(...) F77_ztbsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ztpsv(...) F77_ztpsv_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_zher(...) F77_zher_base(__VA_ARGS__, 1)
|
|
#define F77_zher2(...) F77_zher2_base(__VA_ARGS__, 1)
|
|
#define F77_zhpr(...) F77_zhpr_base(__VA_ARGS__, 1)
|
|
#define F77_zhpr2(...) F77_zhpr2_base(__VA_ARGS__, 1)
|
|
|
|
/*
|
|
* Level 3 Fortran variadic definitions with BLAS_FORTRAN_STRLEN_END
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
#define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_sgemmtr(...) F77_sgemmtr_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_sskewsymm(...) F77_sskewsymm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__, 1, 1)
|
|
#define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_sskewsyr2k(...) F77_sskewsyr2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_strmm(...) F77_strmm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
#define F77_strsm(...) F77_strsm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
|
|
/* Double Precision */
|
|
|
|
#define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_dgemmtr(...) F77_dgemmtr_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_dskewsymm(...) F77_dskewsymm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__, 1, 1)
|
|
#define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_dskewsyr2k(...) F77_dskewsyr2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_dtrmm(...) F77_dtrmm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
#define F77_dtrsm(...) F77_dtrsm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
|
|
/* Single Complex Precision */
|
|
|
|
#define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_cgemmtr(...) F77_cgemmtr_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_csymm(...) F77_csymm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_chemm(...) F77_chemm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__, 1, 1)
|
|
#define F77_cherk(...) F77_cherk_base(__VA_ARGS__, 1, 1)
|
|
#define F77_csyr2k(...) F77_csyr2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_cher2k(...) F77_cher2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_ctrmm(...) F77_ctrmm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
#define F77_ctrsm(...) F77_ctrsm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
|
|
/* Double Complex Precision */
|
|
|
|
#define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_zgemmtr(...) F77_zgemmtr_base(__VA_ARGS__, 1, 1, 1)
|
|
#define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__, 1, 1)
|
|
#define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__, 1, 1)
|
|
#define F77_zherk(...) F77_zherk_base(__VA_ARGS__, 1, 1)
|
|
#define F77_zsyr2k(...) F77_zsyr2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_zher2k(...) F77_zher2k_base(__VA_ARGS__, 1, 1)
|
|
#define F77_ztrmm(...) F77_ztrmm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
#define F77_ztrsm(...) F77_ztrsm_base(__VA_ARGS__, 1, 1, 1, 1)
|
|
|
|
#else
|
|
|
|
/*
|
|
* Level 2 Fortran variadic definitions without BLAS_FORTRAN_STRLEN_END
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
#define F77_sgemv(...) F77_sgemv_base(__VA_ARGS__)
|
|
#define F77_sgbmv(...) F77_sgbmv_base(__VA_ARGS__)
|
|
#define F77_ssymv(...) F77_ssymv_base(__VA_ARGS__)
|
|
#define F77_ssbmv(...) F77_ssbmv_base(__VA_ARGS__)
|
|
#define F77_sspmv(...) F77_sspmv_base(__VA_ARGS__)
|
|
#define F77_sskewsymv(...) F77_sskewsymv_base(__VA_ARGS__)
|
|
#define F77_strmv(...) F77_strmv_base(__VA_ARGS__)
|
|
#define F77_stbmv(...) F77_stbmv_base(__VA_ARGS__)
|
|
#define F77_strsv(...) F77_strsv_base(__VA_ARGS__)
|
|
#define F77_stbsv(...) F77_stbsv_base(__VA_ARGS__)
|
|
#define F77_stpmv(...) F77_stpmv_base(__VA_ARGS__)
|
|
#define F77_stpsv(...) F77_stpsv_base(__VA_ARGS__)
|
|
#define F77_ssyr(...) F77_ssyr_base(__VA_ARGS__)
|
|
#define F77_sspr(...) F77_sspr_base(__VA_ARGS__)
|
|
#define F77_sspr2(...) F77_sspr2_base(__VA_ARGS__)
|
|
#define F77_ssyr2(...) F77_ssyr2_base(__VA_ARGS__)
|
|
#define F77_sskewsyr2(...) F77_sskewsyr2_base(__VA_ARGS__)
|
|
|
|
/* Double Precision */
|
|
|
|
#define F77_dgemv(...) F77_dgemv_base(__VA_ARGS__)
|
|
#define F77_dgbmv(...) F77_dgbmv_base(__VA_ARGS__)
|
|
#define F77_dsymv(...) F77_dsymv_base(__VA_ARGS__)
|
|
#define F77_dsbmv(...) F77_dsbmv_base(__VA_ARGS__)
|
|
#define F77_dspmv(...) F77_dspmv_base(__VA_ARGS__)
|
|
#define F77_dskewsymv(...) F77_dskewsymv_base(__VA_ARGS__)
|
|
#define F77_dtrmv(...) F77_dtrmv_base(__VA_ARGS__)
|
|
#define F77_dtbmv(...) F77_dtbmv_base(__VA_ARGS__)
|
|
#define F77_dtrsv(...) F77_dtrsv_base(__VA_ARGS__)
|
|
#define F77_dtbsv(...) F77_dtbsv_base(__VA_ARGS__)
|
|
#define F77_dtpmv(...) F77_dtpmv_base(__VA_ARGS__)
|
|
#define F77_dtpsv(...) F77_dtpsv_base(__VA_ARGS__)
|
|
#define F77_dsyr(...) F77_dsyr_base(__VA_ARGS__)
|
|
#define F77_dspr(...) F77_dspr_base(__VA_ARGS__)
|
|
#define F77_dspr2(...) F77_dspr2_base(__VA_ARGS__)
|
|
#define F77_dsyr2(...) F77_dsyr2_base(__VA_ARGS__)
|
|
#define F77_dskewsyr2(...) F77_dskewsyr2_base(__VA_ARGS__)
|
|
|
|
/* Single Complex Precision */
|
|
|
|
#define F77_cgemv(...) F77_cgemv_base(__VA_ARGS__)
|
|
#define F77_cgbmv(...) F77_cgbmv_base(__VA_ARGS__)
|
|
#define F77_chemv(...) F77_chemv_base(__VA_ARGS__)
|
|
#define F77_chbmv(...) F77_chbmv_base(__VA_ARGS__)
|
|
#define F77_chpmv(...) F77_chpmv_base(__VA_ARGS__)
|
|
#define F77_ctrmv(...) F77_ctrmv_base(__VA_ARGS__)
|
|
#define F77_ctbmv(...) F77_ctbmv_base(__VA_ARGS__)
|
|
#define F77_ctpmv(...) F77_ctpmv_base(__VA_ARGS__)
|
|
#define F77_ctrsv(...) F77_ctrsv_base(__VA_ARGS__)
|
|
#define F77_ctbsv(...) F77_ctbsv_base(__VA_ARGS__)
|
|
#define F77_ctpsv(...) F77_ctpsv_base(__VA_ARGS__)
|
|
#define F77_cher(...) F77_cher_base(__VA_ARGS__)
|
|
#define F77_cher2(...) F77_cher2_base(__VA_ARGS__)
|
|
#define F77_chpr(...) F77_chpr_base(__VA_ARGS__)
|
|
#define F77_chpr2(...) F77_chpr2_base(__VA_ARGS__)
|
|
|
|
/* Double Complex Precision */
|
|
|
|
#define F77_zgemv(...) F77_zgemv_base(__VA_ARGS__)
|
|
#define F77_zgbmv(...) F77_zgbmv_base(__VA_ARGS__)
|
|
#define F77_zhemv(...) F77_zhemv_base(__VA_ARGS__)
|
|
#define F77_zhbmv(...) F77_zhbmv_base(__VA_ARGS__)
|
|
#define F77_zhpmv(...) F77_zhpmv_base(__VA_ARGS__)
|
|
#define F77_ztrmv(...) F77_ztrmv_base(__VA_ARGS__)
|
|
#define F77_ztbmv(...) F77_ztbmv_base(__VA_ARGS__)
|
|
#define F77_ztpmv(...) F77_ztpmv_base(__VA_ARGS__)
|
|
#define F77_ztrsv(...) F77_ztrsv_base(__VA_ARGS__)
|
|
#define F77_ztbsv(...) F77_ztbsv_base(__VA_ARGS__)
|
|
#define F77_ztpsv(...) F77_ztpsv_base(__VA_ARGS__)
|
|
#define F77_zher(...) F77_zher_base(__VA_ARGS__)
|
|
#define F77_zher2(...) F77_zher2_base(__VA_ARGS__)
|
|
#define F77_zhpr(...) F77_zhpr_base(__VA_ARGS__)
|
|
#define F77_zhpr2(...) F77_zhpr2_base(__VA_ARGS__)
|
|
|
|
/*
|
|
* Level 3 Fortran variadic definitions without BLAS_FORTRAN_STRLEN_END
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
#define F77_sgemm(...) F77_sgemm_base(__VA_ARGS__)
|
|
#define F77_sgemmtr(...) F77_sgemmtr_base(__VA_ARGS__)
|
|
#define F77_ssymm(...) F77_ssymm_base(__VA_ARGS__)
|
|
#define F77_sskewsymm(...) F77_sskewsymm_base(__VA_ARGS__)
|
|
#define F77_ssyrk(...) F77_ssyrk_base(__VA_ARGS__)
|
|
#define F77_ssyr2k(...) F77_ssyr2k_base(__VA_ARGS__)
|
|
#define F77_sskewsyr2k(...) F77_sskewsyr2k_base(__VA_ARGS__)
|
|
#define F77_strmm(...) F77_strmm_base(__VA_ARGS__)
|
|
#define F77_strsm(...) F77_strsm_base(__VA_ARGS__)
|
|
|
|
/* Double Precision */
|
|
|
|
#define F77_dgemm(...) F77_dgemm_base(__VA_ARGS__)
|
|
#define F77_dgemmtr(...) F77_dgemmtr_base(__VA_ARGS__)
|
|
#define F77_dsymm(...) F77_dsymm_base(__VA_ARGS__)
|
|
#define F77_dskewsymm(...) F77_dskewsymm_base(__VA_ARGS__)
|
|
#define F77_dsyrk(...) F77_dsyrk_base(__VA_ARGS__)
|
|
#define F77_dsyr2k(...) F77_dsyr2k_base(__VA_ARGS__)
|
|
#define F77_dskewsyr2k(...) F77_dskewsyr2k_base(__VA_ARGS__)
|
|
#define F77_dtrmm(...) F77_dtrmm_base(__VA_ARGS__)
|
|
#define F77_dtrsm(...) F77_dtrsm_base(__VA_ARGS__)
|
|
|
|
/* Single Complex Precision */
|
|
|
|
#define F77_cgemm(...) F77_cgemm_base(__VA_ARGS__)
|
|
#define F77_cgemmtr(...) F77_cgemmtr_base(__VA_ARGS__)
|
|
#define F77_csymm(...) F77_csymm_base(__VA_ARGS__)
|
|
#define F77_chemm(...) F77_chemm_base(__VA_ARGS__)
|
|
#define F77_csyrk(...) F77_csyrk_base(__VA_ARGS__)
|
|
#define F77_cherk(...) F77_cherk_base(__VA_ARGS__)
|
|
#define F77_csyr2k(...) F77_csyr2k_base(__VA_ARGS__)
|
|
#define F77_cher2k(...) F77_cher2k_base(__VA_ARGS__)
|
|
#define F77_ctrmm(...) F77_ctrmm_base(__VA_ARGS__)
|
|
#define F77_ctrsm(...) F77_ctrsm_base(__VA_ARGS__)
|
|
|
|
/* Double Complex Precision */
|
|
|
|
#define F77_zgemm(...) F77_zgemm_base(__VA_ARGS__)
|
|
#define F77_zgemmtr(...) F77_zgemmtr_base(__VA_ARGS__)
|
|
#define F77_zsymm(...) F77_zsymm_base(__VA_ARGS__)
|
|
#define F77_zhemm(...) F77_zhemm_base(__VA_ARGS__)
|
|
#define F77_zsyrk(...) F77_zsyrk_base(__VA_ARGS__)
|
|
#define F77_zherk(...) F77_zherk_base(__VA_ARGS__)
|
|
#define F77_zsyr2k(...) F77_zsyr2k_base(__VA_ARGS__)
|
|
#define F77_zher2k(...) F77_zher2k_base(__VA_ARGS__)
|
|
#define F77_ztrmm(...) F77_ztrmm_base(__VA_ARGS__)
|
|
#define F77_ztrsm(...) F77_ztrsm_base(__VA_ARGS__)
|
|
|
|
#endif
|
|
|
|
/*
|
|
* Base function prototypes
|
|
*/
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
#define F77_xerbla(...) F77_xerbla_base(__VA_ARGS__, 1)
|
|
#else
|
|
#define F77_xerbla(...) F77_xerbla_base(__VA_ARGS__)
|
|
#endif
|
|
void
|
|
#ifdef HAS_ATTRIBUTE_WEAK_SUPPORT
|
|
__attribute__((weak))
|
|
#endif
|
|
F77_xerbla_base(FCHAR, void *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/*
|
|
* Level 1 Fortran Prototypes
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
void F77_srot_base(FINT, float *, FINT, float *, FINT, const float *, const float *);
|
|
void F77_srotg_base(float *,float *,float *,float *);
|
|
void F77_srotm_base(FINT, float *, FINT, float *, FINT, const float *);
|
|
void F77_srotmg_base(float *,float *,float *,const float *, float *);
|
|
void F77_sswap_base(FINT, float *, FINT, float *, FINT);
|
|
void F77_scopy_base(FINT, const float *, FINT, float *, FINT);
|
|
void F77_saxpy_base(FINT, const float *, const float *, FINT, float *, FINT);
|
|
void F77_saxpby_base(FINT, const float *, const float *, FINT, const float *, float *, FINT);
|
|
void F77_sdot_sub_base(FINT, const float *, FINT, const float *, FINT, float *);
|
|
void F77_sdsdot_sub_base(FINT, const float *, const float *, FINT, const float *, FINT, float *);
|
|
void F77_sscal_base(FINT, const float *, float *, FINT);
|
|
void F77_snrm2_sub_base(FINT, const float *, FINT, float *);
|
|
void F77_sasum_sub_base(FINT, const float *, FINT, float *);
|
|
void F77_isamax_sub_base(FINT, const float * , FINT, FINT2);
|
|
|
|
/* Double Precision */
|
|
|
|
void F77_drot_base(FINT, double *, FINT, double *, FINT, const double *, const double *);
|
|
void F77_drotg_base(double *,double *,double *,double *);
|
|
void F77_drotm_base(FINT, double *, FINT, double *, FINT, const double *);
|
|
void F77_drotmg_base(double *,double *,double *,const double *, double *);
|
|
void F77_dswap_base(FINT, double *, FINT, double *, FINT);
|
|
void F77_dcopy_base(FINT, const double *, FINT, double *, FINT);
|
|
void F77_daxpy_base(FINT, const double *, const double *, FINT, double *, FINT);
|
|
void F77_daxpby_base(FINT, const double *, const double *, FINT, const double *, double *, FINT);
|
|
void F77_dswap_base(FINT, double *, FINT, double *, FINT);
|
|
void F77_dsdot_sub_base(FINT, const float *, FINT, const float *, FINT, double *);
|
|
void F77_ddot_sub_base(FINT, const double *, FINT, const double *, FINT, double *);
|
|
void F77_dscal_base(FINT, const double *, double *, FINT);
|
|
void F77_dnrm2_sub_base(FINT, const double *, FINT, double *);
|
|
void F77_dasum_sub_base(FINT, const double *, FINT, double *);
|
|
void F77_idamax_sub_base(FINT, const double * , FINT, FINT2);
|
|
|
|
/* Single Complex Precision */
|
|
|
|
void F77_crotg_base(void *, void *, float *, void *);
|
|
void F77_csrot_base(FINT, void *X, FINT, void *, FINT, const float *, const float *);
|
|
void F77_cswap_base(FINT, void *, FINT, void *, FINT);
|
|
void F77_ccopy_base(FINT, const void *, FINT, void *, FINT);
|
|
void F77_caxpy_base(FINT, const void *, const void *, FINT, void *, FINT);
|
|
void F77_caxpby_base(FINT, const void *, const void *, FINT, const void *, void *, FINT);
|
|
void F77_cswap_base(FINT, void *, FINT, void *, FINT);
|
|
void F77_cdotc_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_cdotu_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_cscal_base(FINT, const void *, void *, FINT);
|
|
void F77_icamax_sub_base(FINT, const void *, FINT, FINT2);
|
|
void F77_csscal_base(FINT, const float *, void *, FINT);
|
|
void F77_scnrm2_sub_base(FINT, const void *, FINT, float *);
|
|
void F77_scasum_sub_base(FINT, const void *, FINT, float *);
|
|
void F77_scabs1_sub_base(const void *, float *);
|
|
|
|
/* Double Complex Precision */
|
|
|
|
void F77_zrotg_base(void *, void *, double *, void *);
|
|
void F77_zdrot_base(FINT, void *X, FINT, void *, FINT, const double *, const double *);
|
|
void F77_zswap_base(FINT, void *, FINT, void *, FINT);
|
|
void F77_zcopy_base(FINT, const void *, FINT, void *, FINT);
|
|
void F77_zaxpy_base(FINT, const void *, const void *, FINT, void *, FINT);
|
|
void F77_zaxpby_base(FINT, const void *, const void *, FINT, const void*, void *, FINT);
|
|
void F77_zswap_base(FINT, void *, FINT, void *, FINT);
|
|
void F77_zdotc_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_zdotu_sub_base(FINT, const void *, FINT, const void *, FINT, void *);
|
|
void F77_zdscal_base(FINT, const double *, void *, FINT);
|
|
void F77_zscal_base(FINT, const void *, void *, FINT);
|
|
void F77_dznrm2_sub_base(FINT, const void *, FINT, double *);
|
|
void F77_dzasum_sub_base(FINT, const void *, FINT, double *);
|
|
void F77_izamax_sub_base(FINT, const void *, FINT, FINT2);
|
|
void F77_dcabs1_sub_base(const void *, double *);
|
|
|
|
/*
|
|
* Level 2 Fortran Prototypes
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
void F77_sgemv_base(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sgbmv_base(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ssymv_base(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ssbmv_base(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sspmv_base(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sskewsymv_base(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_strmv_base(FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_stbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_strsv_base(FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_stbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_stpmv_base(FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_stpsv_base(FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sger_base(FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
|
|
void F77_ssyr_base(FCHAR, FINT, const float *, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sspr_base(FCHAR, FINT, const float *, const float *, FINT, float *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sspr2_base(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ssyr2_base(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sskewsyr2_base(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/* Double Precision */
|
|
|
|
void F77_dgemv_base(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dgbmv_base(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dsymv_base(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dsbmv_base(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dspmv_base(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dskewsymv_base(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtrmv_base(FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtrsv_base(FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtpmv_base(FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtpsv_base(FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dger_base(FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
|
|
void F77_dsyr_base(FCHAR, FINT, const double *, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dspr_base(FCHAR, FINT, const double *, const double *, FINT, double *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dspr2_base(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dsyr2_base(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dskewsyr2_base(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/* Single Complex Precision */
|
|
|
|
void F77_cgemv_base(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_cgbmv_base(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_chemv_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_chbmv_base(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_chpmv_base(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctrmv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctpmv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctrsv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctpsv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_cgerc_base(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_cgeru_base(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_cher_base(FCHAR, FINT, const float *, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_cher2_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_chpr_base(FCHAR, FINT, const float *, const void *, FINT, void *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_chpr2_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/* Double Complex Precision */
|
|
|
|
void F77_zgemv_base(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zgbmv_base(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zhemv_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zhbmv_base(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zhpmv_base(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztrmv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztbmv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztpmv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztrsv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztbsv_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztpsv_base(FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zgerc_base(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_zgeru_base(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
|
|
void F77_zher_base(FCHAR, FINT, const double *, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zher2_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zhpr_base(FCHAR, FINT, const double *, const void *, FINT, void *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zhpr2_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/*
|
|
* Level 3 Fortran Prototypes
|
|
*/
|
|
|
|
/* Single Precision */
|
|
|
|
void F77_sgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
void F77_ssymm_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sskewsymm_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ssyrk_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ssyr2k_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_sskewsyr2k_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_strmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_strsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/* Double Precision */
|
|
|
|
void F77_dgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
void F77_dsymm_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dskewsymm_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dsyrk_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dsyr2k_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dskewsyr2k_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_dtrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/* Single Complex Precision */
|
|
|
|
void F77_cgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
void F77_cgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
void F77_csymm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_chemm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_csyrk_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_cherk_base(FCHAR, FCHAR, FINT, FINT, const float *, const void *, FINT, const float *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_csyr2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_cher2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const float *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ctrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
/* Double Complex Precision */
|
|
|
|
void F77_zgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
void F77_zgemmtr_base(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
void F77_zsymm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zhemm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zsyrk_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zherk_base(FCHAR, FCHAR, FINT, FINT, const double *, const void *, FINT, const double *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zsyr2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_zher2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const double *, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
void F77_ztrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
|
|
#ifdef BLAS_FORTRAN_STRLEN_END
|
|
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
|
|
#endif
|
|
);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif /* CBLAS_F77_H */
|