391 lines
19 KiB
C
391 lines
19 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
|
|
|
|
#define FCHAR char *
|
|
#define FINT const int *
|
|
|
|
/*
|
|
* Level 1 BLAS
|
|
*/
|
|
// Google-local: Nonstandard xerbla name to avoid collisions with LAPACK.
|
|
#define F77_xerbla cblas_f77_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_dswap dswap_
|
|
#define F77_dcopy dcopy_
|
|
#define F77_daxpy daxpy_
|
|
#define F77_cswap cswap_
|
|
#define F77_ccopy ccopy_
|
|
#define F77_caxpy caxpy_
|
|
#define F77_zswap zswap_
|
|
#define F77_zcopy zcopy_
|
|
#define F77_zaxpy zaxpy_
|
|
#define F77_sscal sscal_
|
|
#define F77_dscal dscal_
|
|
#define F77_cscal cscal_
|
|
#define F77_zscal zscal_
|
|
#define F77_csscal csscal_
|
|
#define F77_zdscal zdscal_
|
|
|
|
// Google-local: Use the function version of these, so that we don't need
|
|
// the built-in Fortran wrappers.
|
|
#define F77_sdot sdot_
|
|
#define F77_ddot ddot_
|
|
#define F77_dsdot dsdot_
|
|
#define F77_sdsdot sdsdot_
|
|
#define F77_snrm2 snrm2_
|
|
#define F77_sasum sasum_
|
|
#define F77_dnrm2 dnrm2_
|
|
#define F77_dasum dasum_
|
|
#define F77_isamax isamax_
|
|
#define F77_idamax idamax_
|
|
#define F77_icamax icamax_
|
|
#define F77_izamax izamax_
|
|
#define F77_scnrm2 scnrm2_
|
|
#define F77_scasum scasum_
|
|
#define F77_dznrm2 dznrm2_
|
|
#define F77_dzasum dzasum_
|
|
|
|
// Google-local: Use Eigen's "subroutine" versions of these functions, not
|
|
// the built-in Fortran wrappers.
|
|
#define F77_cdotc_sub cdotcw_
|
|
#define F77_cdotu_sub cdotuw_
|
|
#define F77_zdotu_sub zdotuw_
|
|
#define F77_zdotc_sub zdotcw_
|
|
|
|
/*
|
|
* 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_
|
|
|
|
#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_sscal( FINT, const float *, float *, FINT);
|
|
|
|
// Google-local: Use the function version of these, so that we don't need
|
|
// the built-in Fortran wrappers.
|
|
float F77_sdot(FINT, const float *, FINT, const float *, FINT);
|
|
float F77_sdsdot( FINT, const float *, const float *, FINT, const float *, FINT);
|
|
float F77_snrm2( FINT, const float *, FINT);
|
|
float F77_sasum( FINT, const float *, FINT);
|
|
int F77_isamax( FINT, const float *, FINT);
|
|
|
|
/* 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_dscal( FINT, const double *, double *, FINT);
|
|
|
|
// Google-local: Use the function version of these, so that we don't need
|
|
// the built-in Fortran wrappers.
|
|
double F77_ddot(FINT, const double *, FINT, const double *, FINT);
|
|
double F77_dsdot(FINT, const float *, FINT, const float *, FINT);
|
|
double F77_dnrm2( FINT, const double *, FINT);
|
|
double F77_dasum( FINT, const double *, FINT);
|
|
int F77_idamax( FINT, const double * , FINT);
|
|
|
|
/* 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_csscal( FINT, const float *, void *, FINT);
|
|
|
|
// Google-local: Use the function version of these, so that we don't need
|
|
// the built-in Fortran wrappers.
|
|
int F77_icamax( FINT, const void *, FINT);
|
|
float F77_scnrm2( FINT, const void *, FINT);
|
|
float F77_scasum( FINT, const void *, FINT);
|
|
|
|
/* 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);
|
|
|
|
// Google-local: Use the function version of these, so that we don't need
|
|
// the built-in Fortran wrappers.
|
|
int F77_izamax( FINT, const void *, FINT);
|
|
double F77_dznrm2( FINT, const void *, FINT);
|
|
double F77_dzasum( FINT, const void *, FINT);
|
|
|
|
/*
|
|
* 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 */
|