c@427: /* c@427: * cblas_f77.h c@427: * Written by Keita Teranishi c@427: * c@427: * Updated by Jeff Horner c@427: * Merged cblas_f77.h and cblas_fortran_header.h c@427: */ c@427: c@427: #ifndef CBLAS_F77_H c@427: #define CBLAS_f77_H c@427: c@427: #ifdef CRAY c@427: #include c@427: #define F77_CHAR _fcd c@427: #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) ) c@427: #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) ) c@427: #define F77_STRLEN(a) (_fcdlen) c@427: #endif c@427: c@427: #ifdef WeirdNEC c@427: #define F77_INT long c@427: #endif c@427: c@427: #ifdef F77_CHAR c@427: #define FCHAR F77_CHAR c@427: #else c@427: #define FCHAR char * c@427: #endif c@427: c@427: #ifdef F77_INT c@427: #define FINT const F77_INT * c@427: #define FINT2 F77_INT * c@427: #else c@427: #define FINT const int * c@427: #define FINT2 int * c@427: #endif c@427: c@427: #if defined(ADD_) c@427: /* c@427: * Level 1 BLAS c@427: */ c@427: #define F77_xerbla xerbla_ c@427: #define F77_srotg srotg_ c@427: #define F77_srotmg srotmg_ c@427: #define F77_srot srot_ c@427: #define F77_srotm srotm_ c@427: #define F77_drotg drotg_ c@427: #define F77_drotmg drotmg_ c@427: #define F77_drot drot_ c@427: #define F77_drotm drotm_ c@427: #define F77_sswap sswap_ c@427: #define F77_scopy scopy_ c@427: #define F77_saxpy saxpy_ c@427: #define F77_isamax_sub isamaxsub_ c@427: #define F77_dswap dswap_ c@427: #define F77_dcopy dcopy_ c@427: #define F77_daxpy daxpy_ c@427: #define F77_idamax_sub idamaxsub_ c@427: #define F77_cswap cswap_ c@427: #define F77_ccopy ccopy_ c@427: #define F77_caxpy caxpy_ c@427: #define F77_icamax_sub icamaxsub_ c@427: #define F77_zswap zswap_ c@427: #define F77_zcopy zcopy_ c@427: #define F77_zaxpy zaxpy_ c@427: #define F77_izamax_sub izamaxsub_ c@427: #define F77_sdot_sub sdotsub_ c@427: #define F77_ddot_sub ddotsub_ c@427: #define F77_dsdot_sub dsdotsub_ c@427: #define F77_sscal sscal_ c@427: #define F77_dscal dscal_ c@427: #define F77_cscal cscal_ c@427: #define F77_zscal zscal_ c@427: #define F77_csscal csscal_ c@427: #define F77_zdscal zdscal_ c@427: #define F77_cdotu_sub cdotusub_ c@427: #define F77_cdotc_sub cdotcsub_ c@427: #define F77_zdotu_sub zdotusub_ c@427: #define F77_zdotc_sub zdotcsub_ c@427: #define F77_snrm2_sub snrm2sub_ c@427: #define F77_sasum_sub sasumsub_ c@427: #define F77_dnrm2_sub dnrm2sub_ c@427: #define F77_dasum_sub dasumsub_ c@427: #define F77_scnrm2_sub scnrm2sub_ c@427: #define F77_scasum_sub scasumsub_ c@427: #define F77_dznrm2_sub dznrm2sub_ c@427: #define F77_dzasum_sub dzasumsub_ c@427: #define F77_sdsdot_sub sdsdotsub_ c@427: /* c@427: * Level 2 BLAS c@427: */ c@427: #define F77_ssymv ssymv_ c@427: #define F77_ssbmv ssbmv_ c@427: #define F77_sspmv sspmv_ c@427: #define F77_sger sger_ c@427: #define F77_ssyr ssyr_ c@427: #define F77_sspr sspr_ c@427: #define F77_ssyr2 ssyr2_ c@427: #define F77_sspr2 sspr2_ c@427: #define F77_dsymv dsymv_ c@427: #define F77_dsbmv dsbmv_ c@427: #define F77_dspmv dspmv_ c@427: #define F77_dger dger_ c@427: #define F77_dsyr dsyr_ c@427: #define F77_dspr dspr_ c@427: #define F77_dsyr2 dsyr2_ c@427: #define F77_dspr2 dspr2_ c@427: #define F77_chemv chemv_ c@427: #define F77_chbmv chbmv_ c@427: #define F77_chpmv chpmv_ c@427: #define F77_cgeru cgeru_ c@427: #define F77_cgerc cgerc_ c@427: #define F77_cher cher_ c@427: #define F77_chpr chpr_ c@427: #define F77_cher2 cher2_ c@427: #define F77_chpr2 chpr2_ c@427: #define F77_zhemv zhemv_ c@427: #define F77_zhbmv zhbmv_ c@427: #define F77_zhpmv zhpmv_ c@427: #define F77_zgeru zgeru_ c@427: #define F77_zgerc zgerc_ c@427: #define F77_zher zher_ c@427: #define F77_zhpr zhpr_ c@427: #define F77_zher2 zher2_ c@427: #define F77_zhpr2 zhpr2_ c@427: #define F77_sgemv sgemv_ c@427: #define F77_sgbmv sgbmv_ c@427: #define F77_strmv strmv_ c@427: #define F77_stbmv stbmv_ c@427: #define F77_stpmv stpmv_ c@427: #define F77_strsv strsv_ c@427: #define F77_stbsv stbsv_ c@427: #define F77_stpsv stpsv_ c@427: #define F77_dgemv dgemv_ c@427: #define F77_dgbmv dgbmv_ c@427: #define F77_dtrmv dtrmv_ c@427: #define F77_dtbmv dtbmv_ c@427: #define F77_dtpmv dtpmv_ c@427: #define F77_dtrsv dtrsv_ c@427: #define F77_dtbsv dtbsv_ c@427: #define F77_dtpsv dtpsv_ c@427: #define F77_cgemv cgemv_ c@427: #define F77_cgbmv cgbmv_ c@427: #define F77_ctrmv ctrmv_ c@427: #define F77_ctbmv ctbmv_ c@427: #define F77_ctpmv ctpmv_ c@427: #define F77_ctrsv ctrsv_ c@427: #define F77_ctbsv ctbsv_ c@427: #define F77_ctpsv ctpsv_ c@427: #define F77_zgemv zgemv_ c@427: #define F77_zgbmv zgbmv_ c@427: #define F77_ztrmv ztrmv_ c@427: #define F77_ztbmv ztbmv_ c@427: #define F77_ztpmv ztpmv_ c@427: #define F77_ztrsv ztrsv_ c@427: #define F77_ztbsv ztbsv_ c@427: #define F77_ztpsv ztpsv_ c@427: /* c@427: * Level 3 BLAS c@427: */ c@427: #define F77_chemm chemm_ c@427: #define F77_cherk cherk_ c@427: #define F77_cher2k cher2k_ c@427: #define F77_zhemm zhemm_ c@427: #define F77_zherk zherk_ c@427: #define F77_zher2k zher2k_ c@427: #define F77_sgemm sgemm_ c@427: #define F77_ssymm ssymm_ c@427: #define F77_ssyrk ssyrk_ c@427: #define F77_ssyr2k ssyr2k_ c@427: #define F77_strmm strmm_ c@427: #define F77_strsm strsm_ c@427: #define F77_dgemm dgemm_ c@427: #define F77_dsymm dsymm_ c@427: #define F77_dsyrk dsyrk_ c@427: #define F77_dsyr2k dsyr2k_ c@427: #define F77_dtrmm dtrmm_ c@427: #define F77_dtrsm dtrsm_ c@427: #define F77_cgemm cgemm_ c@427: #define F77_csymm csymm_ c@427: #define F77_csyrk csyrk_ c@427: #define F77_csyr2k csyr2k_ c@427: #define F77_ctrmm ctrmm_ c@427: #define F77_ctrsm ctrsm_ c@427: #define F77_zgemm zgemm_ c@427: #define F77_zsymm zsymm_ c@427: #define F77_zsyrk zsyrk_ c@427: #define F77_zsyr2k zsyr2k_ c@427: #define F77_ztrmm ztrmm_ c@427: #define F77_ztrsm ztrsm_ c@427: #elif defined(UPCASE) c@427: /* c@427: * Level 1 BLAS c@427: */ c@427: #define F77_xerbla XERBLA c@427: #define F77_srotg SROTG c@427: #define F77_srotmg SROTMG c@427: #define F77_srot SROT c@427: #define F77_srotm SROTM c@427: #define F77_drotg DROTG c@427: #define F77_drotmg DROTMG c@427: #define F77_drot DROT c@427: #define F77_drotm DROTM c@427: #define F77_sswap SSWAP c@427: #define F77_scopy SCOPY c@427: #define F77_saxpy SAXPY c@427: #define F77_isamax_sub ISAMAXSUB c@427: #define F77_dswap DSWAP c@427: #define F77_dcopy DCOPY c@427: #define F77_daxpy DAXPY c@427: #define F77_idamax_sub IDAMAXSUB c@427: #define F77_cswap CSWAP c@427: #define F77_ccopy CCOPY c@427: #define F77_caxpy CAXPY c@427: #define F77_icamax_sub ICAMAXSUB c@427: #define F77_zswap ZSWAP c@427: #define F77_zcopy ZCOPY c@427: #define F77_zaxpy ZAXPY c@427: #define F77_izamax_sub IZAMAXSUB c@427: #define F77_sdot_sub SDOTSUB c@427: #define F77_ddot_sub DDOTSUB c@427: #define F77_dsdot_sub DSDOTSUB c@427: #define F77_sscal SSCAL c@427: #define F77_dscal DSCAL c@427: #define F77_cscal CSCAL c@427: #define F77_zscal ZSCAL c@427: #define F77_csscal CSSCAL c@427: #define F77_zdscal ZDSCAL c@427: #define F77_cdotu_sub CDOTUSUB c@427: #define F77_cdotc_sub CDOTCSUB c@427: #define F77_zdotu_sub ZDOTUSUB c@427: #define F77_zdotc_sub ZDOTCSUB c@427: #define F77_snrm2_sub SNRM2SUB c@427: #define F77_sasum_sub SASUMSUB c@427: #define F77_dnrm2_sub DNRM2SUB c@427: #define F77_dasum_sub DASUMSUB c@427: #define F77_scnrm2_sub SCNRM2SUB c@427: #define F77_scasum_sub SCASUMSUB c@427: #define F77_dznrm2_sub DZNRM2SUB c@427: #define F77_dzasum_sub DZASUMSUB c@427: #define F77_sdsdot_sub SDSDOTSUB c@427: /* c@427: * Level 2 BLAS c@427: */ c@427: #define F77_ssymv SSYMV c@427: #define F77_ssbmv SSBMV c@427: #define F77_sspmv SSPMV c@427: #define F77_sger SGER c@427: #define F77_ssyr SSYR c@427: #define F77_sspr SSPR c@427: #define F77_ssyr2 SSYR2 c@427: #define F77_sspr2 SSPR2 c@427: #define F77_dsymv DSYMV c@427: #define F77_dsbmv DSBMV c@427: #define F77_dspmv DSPMV c@427: #define F77_dger DGER c@427: #define F77_dsyr DSYR c@427: #define F77_dspr DSPR c@427: #define F77_dsyr2 DSYR2 c@427: #define F77_dspr2 DSPR2 c@427: #define F77_chemv CHEMV c@427: #define F77_chbmv CHBMV c@427: #define F77_chpmv CHPMV c@427: #define F77_cgeru CGERU c@427: #define F77_cgerc CGERC c@427: #define F77_cher CHER c@427: #define F77_chpr CHPR c@427: #define F77_cher2 CHER2 c@427: #define F77_chpr2 CHPR2 c@427: #define F77_zhemv ZHEMV c@427: #define F77_zhbmv ZHBMV c@427: #define F77_zhpmv ZHPMV c@427: #define F77_zgeru ZGERU c@427: #define F77_zgerc ZGERC c@427: #define F77_zher ZHER c@427: #define F77_zhpr ZHPR c@427: #define F77_zher2 ZHER2 c@427: #define F77_zhpr2 ZHPR2 c@427: #define F77_sgemv SGEMV c@427: #define F77_sgbmv SGBMV c@427: #define F77_strmv STRMV c@427: #define F77_stbmv STBMV c@427: #define F77_stpmv STPMV c@427: #define F77_strsv STRSV c@427: #define F77_stbsv STBSV c@427: #define F77_stpsv STPSV c@427: #define F77_dgemv DGEMV c@427: #define F77_dgbmv DGBMV c@427: #define F77_dtrmv DTRMV c@427: #define F77_dtbmv DTBMV c@427: #define F77_dtpmv DTPMV c@427: #define F77_dtrsv DTRSV c@427: #define F77_dtbsv DTBSV c@427: #define F77_dtpsv DTPSV c@427: #define F77_cgemv CGEMV c@427: #define F77_cgbmv CGBMV c@427: #define F77_ctrmv CTRMV c@427: #define F77_ctbmv CTBMV c@427: #define F77_ctpmv CTPMV c@427: #define F77_ctrsv CTRSV c@427: #define F77_ctbsv CTBSV c@427: #define F77_ctpsv CTPSV c@427: #define F77_zgemv ZGEMV c@427: #define F77_zgbmv ZGBMV c@427: #define F77_ztrmv ZTRMV c@427: #define F77_ztbmv ZTBMV c@427: #define F77_ztpmv ZTPMV c@427: #define F77_ztrsv ZTRSV c@427: #define F77_ztbsv ZTBSV c@427: #define F77_ztpsv ZTPSV c@427: /* c@427: * Level 3 BLAS c@427: */ c@427: #define F77_chemm CHEMM c@427: #define F77_cherk CHERK c@427: #define F77_cher2k CHER2K c@427: #define F77_zhemm ZHEMM c@427: #define F77_zherk ZHERK c@427: #define F77_zher2k ZHER2K c@427: #define F77_sgemm SGEMM c@427: #define F77_ssymm SSYMM c@427: #define F77_ssyrk SSYRK c@427: #define F77_ssyr2k SSYR2K c@427: #define F77_strmm STRMM c@427: #define F77_strsm STRSM c@427: #define F77_dgemm DGEMM c@427: #define F77_dsymm DSYMM c@427: #define F77_dsyrk DSYRK c@427: #define F77_dsyr2k DSYR2K c@427: #define F77_dtrmm DTRMM c@427: #define F77_dtrsm DTRSM c@427: #define F77_cgemm CGEMM c@427: #define F77_csymm CSYMM c@427: #define F77_csyrk CSYRK c@427: #define F77_csyr2k CSYR2K c@427: #define F77_ctrmm CTRMM c@427: #define F77_ctrsm CTRSM c@427: #define F77_zgemm ZGEMM c@427: #define F77_zsymm ZSYMM c@427: #define F77_zsyrk ZSYRK c@427: #define F77_zsyr2k ZSYR2K c@427: #define F77_ztrmm ZTRMM c@427: #define F77_ztrsm ZTRSM c@427: #elif defined(NOCHANGE) c@427: /* c@427: * Level 1 BLAS c@427: */ c@427: #define F77_xerbla xerbla c@427: #define F77_srotg srotg c@427: #define F77_srotmg srotmg c@427: #define F77_srot srot c@427: #define F77_srotm srotm c@427: #define F77_drotg drotg c@427: #define F77_drotmg drotmg c@427: #define F77_drot drot c@427: #define F77_drotm drotm c@427: #define F77_sswap sswap c@427: #define F77_scopy scopy c@427: #define F77_saxpy saxpy c@427: #define F77_isamax_sub isamaxsub c@427: #define F77_dswap dswap c@427: #define F77_dcopy dcopy c@427: #define F77_daxpy daxpy c@427: #define F77_idamax_sub idamaxsub c@427: #define F77_cswap cswap c@427: #define F77_ccopy ccopy c@427: #define F77_caxpy caxpy c@427: #define F77_icamax_sub icamaxsub c@427: #define F77_zswap zswap c@427: #define F77_zcopy zcopy c@427: #define F77_zaxpy zaxpy c@427: #define F77_izamax_sub izamaxsub c@427: #define F77_sdot_sub sdotsub c@427: #define F77_ddot_sub ddotsub c@427: #define F77_dsdot_sub dsdotsub c@427: #define F77_sscal sscal c@427: #define F77_dscal dscal c@427: #define F77_cscal cscal c@427: #define F77_zscal zscal c@427: #define F77_csscal csscal c@427: #define F77_zdscal zdscal c@427: #define F77_cdotu_sub cdotusub c@427: #define F77_cdotc_sub cdotcsub c@427: #define F77_zdotu_sub zdotusub c@427: #define F77_zdotc_sub zdotcsub c@427: #define F77_snrm2_sub snrm2sub c@427: #define F77_sasum_sub sasumsub c@427: #define F77_dnrm2_sub dnrm2sub c@427: #define F77_dasum_sub dasumsub c@427: #define F77_scnrm2_sub scnrm2sub c@427: #define F77_scasum_sub scasumsub c@427: #define F77_dznrm2_sub dznrm2sub c@427: #define F77_dzasum_sub dzasumsub c@427: #define F77_sdsdot_sub sdsdotsub c@427: /* c@427: * Level 2 BLAS c@427: */ c@427: #define F77_ssymv ssymv c@427: #define F77_ssbmv ssbmv c@427: #define F77_sspmv sspmv c@427: #define F77_sger sger c@427: #define F77_ssyr ssyr c@427: #define F77_sspr sspr c@427: #define F77_ssyr2 ssyr2 c@427: #define F77_sspr2 sspr2 c@427: #define F77_dsymv dsymv c@427: #define F77_dsbmv dsbmv c@427: #define F77_dspmv dspmv c@427: #define F77_dger dger c@427: #define F77_dsyr dsyr c@427: #define F77_dspr dspr c@427: #define F77_dsyr2 dsyr2 c@427: #define F77_dspr2 dspr2 c@427: #define F77_chemv chemv c@427: #define F77_chbmv chbmv c@427: #define F77_chpmv chpmv c@427: #define F77_cgeru cgeru c@427: #define F77_cgerc cgerc c@427: #define F77_cher cher c@427: #define F77_chpr chpr c@427: #define F77_cher2 cher2 c@427: #define F77_chpr2 chpr2 c@427: #define F77_zhemv zhemv c@427: #define F77_zhbmv zhbmv c@427: #define F77_zhpmv zhpmv c@427: #define F77_zgeru zgeru c@427: #define F77_zgerc zgerc c@427: #define F77_zher zher c@427: #define F77_zhpr zhpr c@427: #define F77_zher2 zher2 c@427: #define F77_zhpr2 zhpr2 c@427: #define F77_sgemv sgemv c@427: #define F77_sgbmv sgbmv c@427: #define F77_strmv strmv c@427: #define F77_stbmv stbmv c@427: #define F77_stpmv stpmv c@427: #define F77_strsv strsv c@427: #define F77_stbsv stbsv c@427: #define F77_stpsv stpsv c@427: #define F77_dgemv dgemv c@427: #define F77_dgbmv dgbmv c@427: #define F77_dtrmv dtrmv c@427: #define F77_dtbmv dtbmv c@427: #define F77_dtpmv dtpmv c@427: #define F77_dtrsv dtrsv c@427: #define F77_dtbsv dtbsv c@427: #define F77_dtpsv dtpsv c@427: #define F77_cgemv cgemv c@427: #define F77_cgbmv cgbmv c@427: #define F77_ctrmv ctrmv c@427: #define F77_ctbmv ctbmv c@427: #define F77_ctpmv ctpmv c@427: #define F77_ctrsv ctrsv c@427: #define F77_ctbsv ctbsv c@427: #define F77_ctpsv ctpsv c@427: #define F77_zgemv zgemv c@427: #define F77_zgbmv zgbmv c@427: #define F77_ztrmv ztrmv c@427: #define F77_ztbmv ztbmv c@427: #define F77_ztpmv ztpmv c@427: #define F77_ztrsv ztrsv c@427: #define F77_ztbsv ztbsv c@427: #define F77_ztpsv ztpsv c@427: /* c@427: * Level 3 BLAS c@427: */ c@427: #define F77_chemm chemm c@427: #define F77_cherk cherk c@427: #define F77_cher2k cher2k c@427: #define F77_zhemm zhemm c@427: #define F77_zherk zherk c@427: #define F77_zher2k zher2k c@427: #define F77_sgemm sgemm c@427: #define F77_ssymm ssymm c@427: #define F77_ssyrk ssyrk c@427: #define F77_ssyr2k ssyr2k c@427: #define F77_strmm strmm c@427: #define F77_strsm strsm c@427: #define F77_dgemm dgemm c@427: #define F77_dsymm dsymm c@427: #define F77_dsyrk dsyrk c@427: #define F77_dsyr2k dsyr2k c@427: #define F77_dtrmm dtrmm c@427: #define F77_dtrsm dtrsm c@427: #define F77_cgemm cgemm c@427: #define F77_csymm csymm c@427: #define F77_csyrk csyrk c@427: #define F77_csyr2k csyr2k c@427: #define F77_ctrmm ctrmm c@427: #define F77_ctrsm ctrsm c@427: #define F77_zgemm zgemm c@427: #define F77_zsymm zsymm c@427: #define F77_zsyrk zsyrk c@427: #define F77_zsyr2k zsyr2k c@427: #define F77_ztrmm ztrmm c@427: #define F77_ztrsm ztrsm c@427: #endif c@427: c@427: #ifdef __cplusplus c@427: extern "C" { c@427: #endif c@427: c@427: void F77_xerbla(FCHAR, void *); c@427: /* c@427: * Level 1 Fortran Prototypes c@427: */ c@427: c@427: /* Single Precision */ c@427: c@427: void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *); c@427: void F77_srotg(float *,float *,float *,float *); c@427: void F77_srotm( FINT, float *, FINT, float *, FINT, const float *); c@427: void F77_srotmg(float *,float *,float *,const float *, float *); c@427: void F77_sswap( FINT, float *, FINT, float *, FINT); c@427: void F77_scopy( FINT, const float *, FINT, float *, FINT); c@427: void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT); c@427: void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *); c@427: void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *); c@427: void F77_sscal( FINT, const float *, float *, FINT); c@427: void F77_snrm2_sub( FINT, const float *, FINT, float *); c@427: void F77_sasum_sub( FINT, const float *, FINT, float *); c@427: void F77_isamax_sub( FINT, const float * , FINT, FINT2); c@427: c@427: /* Double Precision */ c@427: c@427: void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *); c@427: void F77_drotg(double *,double *,double *,double *); c@427: void F77_drotm( FINT, double *, FINT, double *, FINT, const double *); c@427: void F77_drotmg(double *,double *,double *,const double *, double *); c@427: void F77_dswap( FINT, double *, FINT, double *, FINT); c@427: void F77_dcopy( FINT, const double *, FINT, double *, FINT); c@427: void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT); c@427: void F77_dswap( FINT, double *, FINT, double *, FINT); c@427: void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *); c@427: void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *); c@427: void F77_dscal( FINT, const double *, double *, FINT); c@427: void F77_dnrm2_sub( FINT, const double *, FINT, double *); c@427: void F77_dasum_sub( FINT, const double *, FINT, double *); c@427: void F77_idamax_sub( FINT, const double * , FINT, FINT2); c@427: c@427: /* Single Complex Precision */ c@427: c@427: void F77_cswap( FINT, void *, FINT, void *, FINT); c@427: void F77_ccopy( FINT, const void *, FINT, void *, FINT); c@427: void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT); c@427: void F77_cswap( FINT, void *, FINT, void *, FINT); c@427: void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *); c@427: void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *); c@427: void F77_cscal( FINT, const void *, void *, FINT); c@427: void F77_icamax_sub( FINT, const void *, FINT, FINT2); c@427: void F77_csscal( FINT, const float *, void *, FINT); c@427: void F77_scnrm2_sub( FINT, const void *, FINT, float *); c@427: void F77_scasum_sub( FINT, const void *, FINT, float *); c@427: c@427: /* Double Complex Precision */ c@427: c@427: void F77_zswap( FINT, void *, FINT, void *, FINT); c@427: void F77_zcopy( FINT, const void *, FINT, void *, FINT); c@427: void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT); c@427: void F77_zswap( FINT, void *, FINT, void *, FINT); c@427: void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *); c@427: void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *); c@427: void F77_zdscal( FINT, const double *, void *, FINT); c@427: void F77_zscal( FINT, const void *, void *, FINT); c@427: void F77_dznrm2_sub( FINT, const void *, FINT, double *); c@427: void F77_dzasum_sub( FINT, const void *, FINT, double *); c@427: void F77_izamax_sub( FINT, const void *, FINT, FINT2); c@427: c@427: /* c@427: * Level 2 Fortran Prototypes c@427: */ c@427: c@427: /* Single Precision */ c@427: c@427: void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT); c@427: void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT); c@427: void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT); c@427: void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT); c@427: void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT); c@427: void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT); c@427: void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT); c@427: void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT); c@427: void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT); c@427: void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *); c@427: void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *); c@427: void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT); c@427: c@427: /* Double Precision */ c@427: c@427: void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT); c@427: void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT); c@427: void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT); c@427: void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT); c@427: void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT); c@427: void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT); c@427: void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT); c@427: void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT); c@427: void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT); c@427: void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *); c@427: void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *); c@427: void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT); c@427: c@427: /* Single Complex Precision */ c@427: c@427: void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT); c@427: void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); c@427: void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); c@427: void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT); c@427: void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); c@427: void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); c@427: void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT); c@427: void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); c@427: void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); c@427: void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT); c@427: void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); c@427: void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *); c@427: void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *); c@427: c@427: /* Double Complex Precision */ c@427: c@427: void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT); c@427: void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT); c@427: void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); c@427: void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); c@427: void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT); c@427: void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT); c@427: void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT); c@427: void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT); c@427: void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); c@427: void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); c@427: void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT); c@427: void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT); c@427: void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *); c@427: void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *); c@427: c@427: /* c@427: * Level 3 Fortran Prototypes c@427: */ c@427: c@427: /* Single Precision */ c@427: c@427: void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT); c@427: void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); c@427: void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); c@427: c@427: /* Double Precision */ c@427: c@427: void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT); c@427: void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); c@427: void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); c@427: c@427: /* Single Complex Precision */ c@427: c@427: void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT); c@427: void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT); c@427: void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT); c@427: void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); c@427: void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT); c@427: c@427: /* Double Complex Precision */ c@427: c@427: void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT); c@427: void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT); c@427: void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT); c@427: void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); c@427: void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT); c@427: c@427: #ifdef __cplusplus c@427: } c@427: #endif c@427: c@427: #endif /* CBLAS_F77_H */