181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * cblas_f77.h 381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Written by Keita Teranishi 481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * 581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Updated by Jeff Horner 681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Merged cblas_f77.h and cblas_fortran_header.h 781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#ifndef CBLAS_F77_H 1081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define CBLAS_F77_H 1181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 1281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define FCHAR char * 1381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define FINT const int * 1481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 1581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 1681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 1 BLAS 1781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 1881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray// Google-local: Nonstandard xerbla name to avoid collisions with LAPACK. 1981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_xerbla cblas_f77_xerbla_ 2081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_srotg srotg_ 2181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_srotmg srotmg_ 2281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_srot srot_ 2381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_srotm srotm_ 2481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_drotg drotg_ 2581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_drotmg drotmg_ 2681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_drot drot_ 2781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_drotm drotm_ 2881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sswap sswap_ 2981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_scopy scopy_ 3081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_saxpy saxpy_ 3181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dswap dswap_ 3281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dcopy dcopy_ 3381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_daxpy daxpy_ 3481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cswap cswap_ 3581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ccopy ccopy_ 3681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_caxpy caxpy_ 3781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zswap zswap_ 3881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zcopy zcopy_ 3981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zaxpy zaxpy_ 4081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sscal sscal_ 4181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dscal dscal_ 4281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cscal cscal_ 4381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zscal zscal_ 4481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_csscal csscal_ 4581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zdscal zdscal_ 4681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 4781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray// Google-local: Use the function version of these, so that we don't need 4881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray// the built-in Fortran wrappers. 4981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sdot sdot_ 5081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ddot ddot_ 5181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsdot dsdot_ 5281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sdsdot sdsdot_ 5381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_snrm2 snrm2_ 5481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sasum sasum_ 5581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dnrm2 dnrm2_ 5681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dasum dasum_ 5781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_isamax isamax_ 5881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_idamax idamax_ 5981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_icamax icamax_ 6081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_izamax izamax_ 6181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_scnrm2 scnrm2_ 6281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_scasum scasum_ 6381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dznrm2 dznrm2_ 6481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dzasum dzasum_ 6581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 6681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray// Google-local: Use Eigen's "subroutine" versions of these functions, not 6781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray// the built-in Fortran wrappers. 6881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cdotc_sub cdotcw_ 6981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cdotu_sub cdotuw_ 7081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zdotu_sub zdotuw_ 7181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zdotc_sub zdotcw_ 7281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 7381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 7481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 2 BLAS 7581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 7681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ssymv ssymv_ 7781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ssbmv ssbmv_ 7881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sspmv sspmv_ 7981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sger sger_ 8081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ssyr ssyr_ 8181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sspr sspr_ 8281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ssyr2 ssyr2_ 8381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sspr2 sspr2_ 8481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsymv dsymv_ 8581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsbmv dsbmv_ 8681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dspmv dspmv_ 8781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dger dger_ 8881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsyr dsyr_ 8981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dspr dspr_ 9081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsyr2 dsyr2_ 9181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dspr2 dspr2_ 9281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_chemv chemv_ 9381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_chbmv chbmv_ 9481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_chpmv chpmv_ 9581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cgeru cgeru_ 9681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cgerc cgerc_ 9781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cher cher_ 9881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_chpr chpr_ 9981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cher2 cher2_ 10081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_chpr2 chpr2_ 10181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zhemv zhemv_ 10281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zhbmv zhbmv_ 10381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zhpmv zhpmv_ 10481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zgeru zgeru_ 10581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zgerc zgerc_ 10681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zher zher_ 10781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zhpr zhpr_ 10881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zher2 zher2_ 10981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zhpr2 zhpr2_ 11081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sgemv sgemv_ 11181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sgbmv sgbmv_ 11281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_strmv strmv_ 11381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_stbmv stbmv_ 11481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_stpmv stpmv_ 11581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_strsv strsv_ 11681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_stbsv stbsv_ 11781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_stpsv stpsv_ 11881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dgemv dgemv_ 11981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dgbmv dgbmv_ 12081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtrmv dtrmv_ 12181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtbmv dtbmv_ 12281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtpmv dtpmv_ 12381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtrsv dtrsv_ 12481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtbsv dtbsv_ 12581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtpsv dtpsv_ 12681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cgemv cgemv_ 12781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cgbmv cgbmv_ 12881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctrmv ctrmv_ 12981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctbmv ctbmv_ 13081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctpmv ctpmv_ 13181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctrsv ctrsv_ 13281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctbsv ctbsv_ 13381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctpsv ctpsv_ 13481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zgemv zgemv_ 13581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zgbmv zgbmv_ 13681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztrmv ztrmv_ 13781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztbmv ztbmv_ 13881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztpmv ztpmv_ 13981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztrsv ztrsv_ 14081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztbsv ztbsv_ 14181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztpsv ztpsv_ 14281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 14381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 3 BLAS 14481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 14581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_chemm chemm_ 14681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cherk cherk_ 14781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cher2k cher2k_ 14881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zhemm zhemm_ 14981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zherk zherk_ 15081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zher2k zher2k_ 15181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_sgemm sgemm_ 15281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ssymm ssymm_ 15381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ssyrk ssyrk_ 15481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ssyr2k ssyr2k_ 15581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_strmm strmm_ 15681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_strsm strsm_ 15781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dgemm dgemm_ 15881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsymm dsymm_ 15981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsyrk dsyrk_ 16081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dsyr2k dsyr2k_ 16181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtrmm dtrmm_ 16281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_dtrsm dtrsm_ 16381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_cgemm cgemm_ 16481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_csymm csymm_ 16581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_csyrk csyrk_ 16681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_csyr2k csyr2k_ 16781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctrmm ctrmm_ 16881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ctrsm ctrsm_ 16981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zgemm zgemm_ 17081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zsymm zsymm_ 17181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zsyrk zsyrk_ 17281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_zsyr2k zsyr2k_ 17381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztrmm ztrmm_ 17481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#define F77_ztrsm ztrsm_ 17581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 17681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#ifdef __cplusplus 17781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murrayextern "C" { 17881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#endif 17981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 18081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_xerbla(FCHAR, void *); 18181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 18281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 1 Fortran Prototypes 18381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 18481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 18581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Single Precision */ 18681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 18781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *); 18881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_srotg(float *,float *,float *,float *); 18981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_srotm( FINT, float *, FINT, float *, FINT, const float *); 19081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_srotmg(float *,float *,float *,const float *, float *); 19181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sswap( FINT, float *, FINT, float *, FINT); 19281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_scopy( FINT, const float *, FINT, float *, FINT); 19381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT); 19481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sscal( FINT, const float *, float *, FINT); 19581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 19681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // Google-local: Use the function version of these, so that we don't need 19781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // the built-in Fortran wrappers. 19881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray float F77_sdot(FINT, const float *, FINT, const float *, FINT); 19981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray float F77_sdsdot( FINT, const float *, const float *, FINT, const float *, FINT); 20081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray float F77_snrm2( FINT, const float *, FINT); 20181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray float F77_sasum( FINT, const float *, FINT); 20281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray int F77_isamax( FINT, const float *, FINT); 20381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Double Precision */ 20581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 20681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *); 20781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_drotg(double *,double *,double *,double *); 20881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_drotm( FINT, double *, FINT, double *, FINT, const double *); 20981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_drotmg(double *,double *,double *,const double *, double *); 21081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dswap( FINT, double *, FINT, double *, FINT); 21181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dcopy( FINT, const double *, FINT, double *, FINT); 21281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT); 21381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dswap( FINT, double *, FINT, double *, FINT); 21481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dscal( FINT, const double *, double *, FINT); 21581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 21681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // Google-local: Use the function version of these, so that we don't need 21781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // the built-in Fortran wrappers. 21881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray double F77_ddot(FINT, const double *, FINT, const double *, FINT); 21981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray double F77_dsdot(FINT, const float *, FINT, const float *, FINT); 22081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray double F77_dnrm2( FINT, const double *, FINT); 22181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray double F77_dasum( FINT, const double *, FINT); 22281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray int F77_idamax( FINT, const double * , FINT); 22381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 22481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Single Complex Precision */ 22581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 22681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cswap( FINT, void *, FINT, void *, FINT); 22781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ccopy( FINT, const void *, FINT, void *, FINT); 22881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT); 22981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cswap( FINT, void *, FINT, void *, FINT); 23081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *); 23181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *); 23281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cscal( FINT, const void *, void *, FINT); 23381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_csscal( FINT, const float *, void *, FINT); 23481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 23581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // Google-local: Use the function version of these, so that we don't need 23681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // the built-in Fortran wrappers. 23781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray int F77_icamax( FINT, const void *, FINT); 23881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray float F77_scnrm2( FINT, const void *, FINT); 23981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray float F77_scasum( FINT, const void *, FINT); 24081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 24181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Double Complex Precision */ 24281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 24381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zswap( FINT, void *, FINT, void *, FINT); 24481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zcopy( FINT, const void *, FINT, void *, FINT); 24581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT); 24681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zswap( FINT, void *, FINT, void *, FINT); 24781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *); 24881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *); 24981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zdscal( FINT, const double *, void *, FINT); 25081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zscal( FINT, const void *, void *, FINT); 25181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 25281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // Google-local: Use the function version of these, so that we don't need 25381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray // the built-in Fortran wrappers. 25481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray int F77_izamax( FINT, const void *, FINT); 25581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray double F77_dznrm2( FINT, const void *, FINT); 25681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray double F77_dzasum( FINT, const void *, FINT); 25781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 25881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 25981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 2 Fortran Prototypes 26081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 26181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 26281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Single Precision */ 26381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 26481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 26581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 26681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 26781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 26881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT); 26981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT); 27081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT); 27181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT); 27281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT); 27381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT); 27481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT); 27581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT); 27681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT); 27781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *); 27881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *); 27981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT); 28081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 28181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Double Precision */ 28281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 28381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 28481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 28581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 28681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 28781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT); 28881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT); 28981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT); 29081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT); 29181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT); 29281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT); 29381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT); 29481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT); 29581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT); 29681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *); 29781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *); 29881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT); 29981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 30081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Single Complex Precision */ 30181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 30281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 30381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 30481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 30581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 30681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT); 30781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); 30881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); 30981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT); 31081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); 31181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); 31281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT); 31381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); 31481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); 31581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT); 31681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); 31781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *); 31881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *); 31981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 32081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Double Complex Precision */ 32181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 32281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 32381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 32481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 32581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); 32681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT); 32781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); 32881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); 32981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT); 33081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); 33181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); 33281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT); 33381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); 33481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); 33581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT); 33681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); 33781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *); 33881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *); 33981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 34081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* 34181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray * Level 3 Fortran Prototypes 34281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray */ 34381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 34481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Single Precision */ 34581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 34681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 34781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 34881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT); 34981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 35081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); 35181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); 35281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 35381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Double Precision */ 35481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 35581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 35681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 35781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT); 35881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 35981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); 36081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); 36181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 36281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Single Complex Precision */ 36381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 36481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 36581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 36681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 36781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT); 36881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT); 36981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 37081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); 37181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); 37281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); 37381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 37481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray/* Double Complex Precision */ 37581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 37681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 37781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 37881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 37981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT); 38081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT); 38181253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 38281253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); 38381253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); 38481253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); 38581253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 38681253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#ifdef __cplusplus 38781253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray} 38881253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#endif 38981253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray 39081253e9afbc34b99e9adc22ddf33a1bfac56c697Tim Murray#endif /* CBLAS_F77_H */ 391