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