diff options
Diffstat (limited to 'kaldi_io/src/tools/ATLAS/include/atlas_f77blas.h')
-rw-r--r-- | kaldi_io/src/tools/ATLAS/include/atlas_f77blas.h | 849 |
1 files changed, 0 insertions, 849 deletions
diff --git a/kaldi_io/src/tools/ATLAS/include/atlas_f77blas.h b/kaldi_io/src/tools/ATLAS/include/atlas_f77blas.h deleted file mode 100644 index a7c109d..0000000 --- a/kaldi_io/src/tools/ATLAS/include/atlas_f77blas.h +++ /dev/null @@ -1,849 +0,0 @@ -#ifndef ATLAS_F77_LVLS -#define ATLAS_F77_LVLS - -#include "atlas_f77.h" - -#if defined( StringSunStyle ) -#define F77_CHAR_DECL F77_CHAR /* input character*1 */ -#define F77_1_CHAR , F77_INTEGER -#define F77_2_CHAR F77_1_CHAR F77_1_CHAR -#define F77_3_CHAR F77_2_CHAR F77_1_CHAR -#define F77_4_CHAR F77_3_CHAR F77_1_CHAR -#elif defined( StringCrayStyle ) -#define F77_CHAR_DECL F77_CHAR /* input character*1 */ -#elif defined( StringStructVal ) -#define F77_CHAR_DECL F77_CHAR /* input character*1 */ -#elif defined( StringStructPtr ) -#define F77_CHAR_DECL F77_CHAR * /* input character*1 */ -#endif - -#ifndef F77_1_CHAR -#define F77_1_CHAR -#define F77_2_CHAR -#define F77_3_CHAR -#define F77_4_CHAR -#endif - -#ifndef F77_CHAR_DECL - #define F77_CHAR_DECL F77_CHAR * /* input character*1 */ -#endif - -#define F77_INT_DECL const F77_INTEGER * /* input integer */ - -#ifdef TREAL -#define F77_SIN_DECL const TYPE * /* input scalar */ -#define F77_SINOUT_DECL TYPE * /* input/output scalar */ -#define F77_RIN_DECL const TYPE * /* input real scalar */ -#define F77_RINOUT_DECL TYPE * /* input/output real scalar */ -#else -#define F77_SIN_DECL const TYPE * /* input scalar */ -#define F77_SINOUT_DECL TYPE * /* input/output scalar */ -#define F77_RIN_DECL const TYPE * /* input real scalar */ -#define F77_RINOUT_DECL TYPE * /* input/output real scalar */ -#endif - -#define F77_VIN_DECL const TYPE * /* input vector */ -#define F77_VINOUT_DECL TYPE * /* input/output matrix */ - -#define F77_MIN_DECL const TYPE * /* input matrix */ -#define F77_MINOUT_DECL TYPE * /* input/output matrix */ - -#if defined( CRAY ) -#define F77_VOID_FUN extern fortran void /* subroutine */ -#define F77_INT_FUN extern fortran int /* integer function */ -#define F77_TYPE_FUN extern fortran TYPE /* real function */ -#define F77_DBLE_FUN extern fortran double /* dble function */ -#else -#define F77_VOID_FUN extern void /* subroutine */ -#define F77_INT_FUN extern int /* integer function */ -#define F77_TYPE_FUN extern TYPE /* real function */ -#define F77_DBLE_FUN extern double /* dble function */ -#endif - -#if defined( NoChange ) -/* - * These defines set up the naming scheme required to have a FORTRAN - * routine called by a C routine with the following FORTRAN to C inter- - * face: - * - * FORTRAN DECLARATION C CALL - * SUBROUTINE DGEMM(...) dgemm(...) - */ -#if defined( SREAL ) - -#define F77rotg srotg -#define F77rotmg srotmg -#define F77nrm2 swrapnrm2 -#define F77asum swrapasum -#define F77amax isamax -#define F77scal sscal -#define F77axpy saxpy -#define F77axpby fatlas_saxpby -#define F77set fatlas_sset -#define F77copy scopy -#define F77swap sswap -#define F77rot srot -#define F77rotm srotm -#define F77dot swrapdot -#define F77dsdot dswrapdot -#define F77sdsdot sdswrapdot - -#define F77gemv sgemv -#define F77gbmv sgbmv -#define F77sbmv ssbmv -#define F77spmv sspmv -#define F77symv ssymv -#define F77tbmv stbmv -#define F77tpmv stpmv -#define F77trmv strmv -#define F77tbsv stbsv -#define F77tpsv stpsv -#define F77trsv strsv -#define F77ger sger -#define F77spr sspr -#define F77syr ssyr -#define F77spr2 sspr2 -#define F77syr2 ssyr2 - -#define F77gemm sgemm -#define F77symm ssymm -#define F77syrk ssyrk -#define F77syr2k ssyr2k -#define F77trmm strmm -#define F77trsm strsm - -#elif defined( DREAL ) - -#define F77rotg drotg -#define F77rotmg drotmg -#define F77nrm2 dwrapnrm2 -#define F77asum dwrapasum -#define F77amax idamax -#define F77scal dscal -#define F77axpy daxpy -#define F77axpby fatlas_daxpby -#define F77set fatlas_dset -#define F77copy dcopy -#define F77swap dswap -#define F77rot drot -#define F77rotm drotm -#define F77dot dwrapdot - -#define F77gemv dgemv -#define F77gbmv dgbmv -#define F77sbmv dsbmv -#define F77spmv dspmv -#define F77symv dsymv -#define F77tbmv dtbmv -#define F77tpmv dtpmv -#define F77trmv dtrmv -#define F77tbsv dtbsv -#define F77tpsv dtpsv -#define F77trsv dtrsv -#define F77ger dger -#define F77spr dspr -#define F77syr dsyr -#define F77spr2 dspr2 -#define F77syr2 dsyr2 - -#define F77gemm dgemm -#define F77symm dsymm -#define F77syrk dsyrk -#define F77syr2k dsyr2k -#define F77trmm dtrmm -#define F77trsm dtrsm - -#elif defined( SCPLX ) - -#define F77rotg crotg -#define F77nrm2 scwrapnrm2 -#define F77asum scwrapasum -#define F77amax icamax -#define F77scal cscal -#define F77rscal csscal -#define F77axpy caxpy -#define F77axpby fatlas_caxpby -#define F77set fatlas_cset -#define F77copy ccopy -#define F77swap cswap -#define F77rot csrot -#define F77dotc cwrapdotc -#define F77dotu cwrapdotu - -#define F77gbmv cgbmv -#define F77gemv cgemv -#define F77hbmv chbmv -#define F77hpmv chpmv -#define F77hemv chemv -#define F77tbmv ctbmv -#define F77tpmv ctpmv -#define F77trmv ctrmv -#define F77tbsv ctbsv -#define F77tpsv ctpsv -#define F77trsv ctrsv -#define F77gerc cgerc -#define F77geru cgeru -#define F77hpr chpr -#define F77her cher -#define F77hpr2 chpr2 -#define F77her2 cher2 - -#define F77gemm cgemm -#define F77hemm chemm -#define F77herk cherk -#define F77her2k cher2k -#define F77symm csymm -#define F77syrk csyrk -#define F77syr2k csyr2k -#define F77trmm ctrmm -#define F77trsm ctrsm - -#elif defined( DCPLX ) - -#define F77rotg zrotg -#define F77nrm2 dzwrapnrm2 -#define F77asum dzwrapasum -#define F77amax izamax -#define F77scal zscal -#define F77rscal zdscal -#define F77axpy zaxpy -#define F77axpby fatlas_zaxpby -#define F77set fatlas_zset -#define F77copy zcopy -#define F77swap zswap -#define F77rot zdrot -#define F77dotc zwrapdotc -#define F77dotu zwrapdotu - -#define F77gbmv zgbmv -#define F77gemv zgemv -#define F77hbmv zhbmv -#define F77hpmv zhpmv -#define F77hemv zhemv -#define F77tbmv ztbmv -#define F77tpmv ztpmv -#define F77trmv ztrmv -#define F77tbsv ztbsv -#define F77tpsv ztpsv -#define F77trsv ztrsv -#define F77gerc zgerc -#define F77geru zgeru -#define F77hpr zhpr -#define F77her zher -#define F77hpr2 zhpr2 -#define F77her2 zher2 - -#define F77gemm zgemm -#define F77hemm zhemm -#define F77herk zherk -#define F77her2k zher2k -#define F77symm zsymm -#define F77syrk zsyrk -#define F77syr2k zsyr2k -#define F77trmm ztrmm -#define F77trsm ztrsm - -#endif - -#elif defined( UpCase ) -/* - * These defines set up the naming scheme required to have a FORTRAN - * routine called by a C routine with the following FORTRAN to C inter- - * face: - * - * FORTRAN DECLARATION C CALL - * SUBROUTINE DGEMM(...) DGEMM(...) - */ -#if defined( SREAL ) - -#define F77rotg SROTG -#define F77rotmg SROTMG -#define F77nrm2 SWRAPNRM2 -#define F77asum SWRAPASUM -#define F77amax ISAMAX -#define F77scal SSCAL -#define F77axpy SAXPY -#define F77axpby FATLAS_SAXPBY -#define F77set FATLAS_SSET -#define F77copy SCOPY -#define F77swap SSWAP -#define F77rot SROT -#define F77rotm SROTM -#define F77dot SWRAPDOT -#define F77dsdot DSWRAPDOT -#define F77sdsdot SDSWRAPDOT - -#define F77gemv SGEMV -#define F77gbmv SGBMV -#define F77sbmv SSBMV -#define F77spmv SSPMV -#define F77symv SSYMV -#define F77tbmv STBMV -#define F77tpmv STPMV -#define F77trmv STRMV -#define F77tbsv STBSV -#define F77tpsv STPSV -#define F77trsv STRSV -#define F77ger SGER -#define F77spr SSPR -#define F77syr SSYR -#define F77spr2 SSPR2 -#define F77syr2 SSYR2 - -#define F77gemm SGEMM -#define F77symm SSYMM -#define F77syrk SSYRK -#define F77syr2k SSYR2K -#define F77trmm STRMM -#define F77trsm STRSM - -#elif defined( DREAL ) - -#define F77rotg DROTG -#define F77rotmg DROTMG -#define F77nrm2 DWRAPNRM2 -#define F77asum DWRAPASUM -#define F77amax IDAMAX -#define F77scal DSCAL -#define F77axpy DAXPY -#define F77axpby FATLAS_DAXPBY -#define F77set FATLAS_DSET -#define F77copy DCOPY -#define F77swap DSWAP -#define F77rot DROT -#define F77rotm DROTM -#define F77dot DWRAPDOT - -#define F77gemv DGEMV -#define F77gbmv DGBMV -#define F77sbmv DSBMV -#define F77spmv DSPMV -#define F77symv DSYMV -#define F77tbmv DTBMV -#define F77tpmv DTPMV -#define F77trmv DTRMV -#define F77tbsv DTBSV -#define F77tpsv DTPSV -#define F77trsv DTRSV -#define F77ger DGER -#define F77spr DSPR -#define F77syr DSYR -#define F77spr2 DSPR2 -#define F77syr2 DSYR2 - -#define F77gemm DGEMM -#define F77symm DSYMM -#define F77syrk DSYRK -#define F77syr2k DSYR2K -#define F77trmm DTRMM -#define F77trsm DTRSM - -#elif defined( SCPLX ) - -#define F77rotg CROTG -#define F77nrm2 SCWRAPNRM2 -#define F77asum SCWRAPASUM -#define F77amax ICAMAX -#define F77scal CSCAL -#define F77rscal CSSCAL -#define F77axpy CAXPY -#define F77axpby FATLAS_CAXPBY -#define F77set FATLAS_CSET -#define F77copy CCOPY -#define F77swap CSWAP -#define F77rot CSROT -#define F77dotc CWRAPDOTC -#define F77dotu CWRAPDOTU - -#define F77gbmv CGBMV -#define F77gemv CGEMV -#define F77hbmv CHBMV -#define F77hpmv CHPMV -#define F77hemv CHEMV -#define F77tbmv CTBMV -#define F77tpmv CTPMV -#define F77trmv CTRMV -#define F77tbsv CTBSV -#define F77tpsv CTPSV -#define F77trsv CTRSV -#define F77gerc CGERC -#define F77geru CGERU -#define F77hpr CHPR -#define F77her CHER -#define F77hpr2 CHPR2 -#define F77her2 CHER2 - -#define F77gemm CGEMM -#define F77hemm CHEMM -#define F77herk CHERK -#define F77her2k CHER2K -#define F77symm CSYMM -#define F77syrk CSYRK -#define F77syr2k CSYR2K -#define F77trmm CTRMM -#define F77trsm CTRSM - -#elif defined( DCPLX ) - -#define F77rotg ZROTG -#define F77nrm2 DZWRAPNRM2 -#define F77asum DZWRAPASUM -#define F77amax IZAMAX -#define F77scal ZSCAL -#define F77rscal ZDSCAL -#define F77axpy ZAXPY -#define F77axpby FATLAS_ZAXPBY -#define F77set FATLAS_ZSET -#define F77copy ZCOPY -#define F77swap ZSWAP -#define F77rot ZDROT -#define F77dotc ZWRAPDOTC -#define F77dotu ZWRAPDOTU - -#define F77gbmv ZGBMV -#define F77gemv ZGEMV -#define F77hbmv ZHBMV -#define F77hpmv ZHPMV -#define F77hemv ZHEMV -#define F77tbmv ZTBMV -#define F77tpmv ZTPMV -#define F77trmv ZTRMV -#define F77tbsv ZTBSV -#define F77tpsv ZTPSV -#define F77trsv ZTRSV -#define F77gerc ZGERC -#define F77geru ZGERU -#define F77hpr ZHPR -#define F77her ZHER -#define F77hpr2 ZHPR2 -#define F77her2 ZHER2 - -#define F77gemm ZGEMM -#define F77hemm ZHEMM -#define F77herk ZHERK -#define F77her2k ZHER2K -#define F77symm ZSYMM -#define F77syrk ZSYRK -#define F77syr2k ZSYR2K -#define F77trmm ZTRMM -#define F77trsm ZTRSM - -#endif - -#elif defined( Add_ ) || defined( Add__ ) -/* - * These defines set up the naming scheme required to have a FORTRAN - * routine called by a C routine with the following FORTRAN to C inter- - * face: - * - * FORTRAN DECLARATION C CALL - * SUBROUTINE DGEMM(...) dgemm_(...) - */ -#if defined( SREAL ) - -#define F77rotg srotg_ -#define F77rotmg srotmg_ -#define F77nrm2 swrapnrm2_ -#define F77asum swrapasum_ -#define F77amax isamax_ -#define F77scal sscal_ -#define F77axpy saxpy_ -#ifdef Add_ - #define F77axpby fatlas_saxpby_ - #define F77set fatlas_sset_ -#else - #define F77axpby fatlas_saxpby__ - #define F77set fatlas_sset__ -#endif -#define F77copy scopy_ -#define F77swap sswap_ -#define F77rot srot_ -#define F77rotm srotm_ -#define F77dot swrapdot_ -#define F77dsdot dswrapdot_ -#define F77sdsdot sdswrapdot_ - -#define F77gemv sgemv_ -#define F77gbmv sgbmv_ -#define F77sbmv ssbmv_ -#define F77spmv sspmv_ -#define F77symv ssymv_ -#define F77tbmv stbmv_ -#define F77tpmv stpmv_ -#define F77trmv strmv_ -#define F77tbsv stbsv_ -#define F77tpsv stpsv_ -#define F77trsv strsv_ -#define F77ger sger_ -#define F77spr sspr_ -#define F77syr ssyr_ -#define F77spr2 sspr2_ -#define F77syr2 ssyr2_ - -#define F77gemm sgemm_ -#define F77symm ssymm_ -#define F77syrk ssyrk_ -#define F77syr2k ssyr2k_ -#define F77trmm strmm_ -#define F77trsm strsm_ - -#elif defined( DREAL ) - -#define F77rotg drotg_ -#define F77rotmg drotmg_ -#define F77nrm2 dwrapnrm2_ -#define F77asum dwrapasum_ -#define F77amax idamax_ -#define F77scal dscal_ -#define F77axpy daxpy_ -#ifdef Add_ - #define F77axpby fatlas_daxpby_ - #define F77set fatlas_dset_ -#else - #define F77axpby fatlas_daxpby__ - #define F77set fatlas_dset__ -#endif -#define F77copy dcopy_ -#define F77swap dswap_ -#define F77rot drot_ -#define F77rotm drotm_ -#define F77dot dwrapdot_ - -#define F77gemv dgemv_ -#define F77gbmv dgbmv_ -#define F77sbmv dsbmv_ -#define F77spmv dspmv_ -#define F77symv dsymv_ -#define F77tbmv dtbmv_ -#define F77tpmv dtpmv_ -#define F77trmv dtrmv_ -#define F77tbsv dtbsv_ -#define F77tpsv dtpsv_ -#define F77trsv dtrsv_ -#define F77ger dger_ -#define F77spr dspr_ -#define F77syr dsyr_ -#define F77spr2 dspr2_ -#define F77syr2 dsyr2_ - -#define F77gemm dgemm_ -#define F77symm dsymm_ -#define F77syrk dsyrk_ -#define F77syr2k dsyr2k_ -#define F77trmm dtrmm_ -#define F77trsm dtrsm_ - -#elif defined( SCPLX ) - -#define F77rotg crotg_ -#define F77nrm2 scwrapnrm2_ -#define F77asum scwrapasum_ -#define F77amax icamax_ -#define F77scal cscal_ -#define F77rscal csscal_ -#define F77axpy caxpy_ -#ifdef Add_ - #define F77axpby fatlas_caxpby_ - #define F77set fatlas_cset_ -#else - #define F77axpby fatlas_caxpby__ - #define F77set fatlas_cset__ -#endif -#define F77copy ccopy_ -#define F77swap cswap_ -#define F77rot csrot_ -#define F77dotc cwrapdotc_ -#define F77dotu cwrapdotu_ - -#define F77gbmv cgbmv_ -#define F77gemv cgemv_ -#define F77hbmv chbmv_ -#define F77hpmv chpmv_ -#define F77hemv chemv_ -#define F77tbmv ctbmv_ -#define F77tpmv ctpmv_ -#define F77trmv ctrmv_ -#define F77tbsv ctbsv_ -#define F77tpsv ctpsv_ -#define F77trsv ctrsv_ -#define F77gerc cgerc_ -#define F77geru cgeru_ -#define F77hpr chpr_ -#define F77her cher_ -#define F77hpr2 chpr2_ -#define F77her2 cher2_ - -#define F77gemm cgemm_ -#define F77hemm chemm_ -#define F77herk cherk_ -#define F77her2k cher2k_ -#define F77symm csymm_ -#define F77syrk csyrk_ -#define F77syr2k csyr2k_ -#define F77trmm ctrmm_ -#define F77trsm ctrsm_ - -#elif defined( DCPLX ) - -#define F77rotg zrotg_ -#define F77nrm2 dzwrapnrm2_ -#define F77asum dzwrapasum_ -#define F77amax izamax_ -#define F77scal zscal_ -#define F77rscal zdscal_ -#define F77axpy zaxpy_ -#ifdef Add_ - #define F77axpby fatlas_zaxpby_ - #define F77set fatlas_zset_ -#else - #define F77axpby fatlas_zaxpby__ - #define F77set fatlas_zset__ -#endif -#define F77copy zcopy_ -#define F77swap zswap_ -#define F77rot zdrot_ -#define F77dotc zwrapdotc_ -#define F77dotu zwrapdotu_ - -#define F77gbmv zgbmv_ -#define F77gemv zgemv_ -#define F77hbmv zhbmv_ -#define F77hpmv zhpmv_ -#define F77hemv zhemv_ -#define F77tbmv ztbmv_ -#define F77tpmv ztpmv_ -#define F77trmv ztrmv_ -#define F77tbsv ztbsv_ -#define F77tpsv ztpsv_ -#define F77trsv ztrsv_ -#define F77gerc zgerc_ -#define F77geru zgeru_ -#define F77hpr zhpr_ -#define F77her zher_ -#define F77hpr2 zhpr2_ -#define F77her2 zher2_ - -#define F77gemm zgemm_ -#define F77hemm zhemm_ -#define F77herk zherk_ -#define F77her2k zher2k_ -#define F77symm zsymm_ -#define F77syrk zsyrk_ -#define F77syr2k zsyr2k_ -#define F77trmm ztrmm_ -#define F77trsm ztrsm_ - -#endif - -#endif - -#ifdef TREAL -F77_VOID_FUN F77rotg -( F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL ); -F77_VOID_FUN F77rotmg -( F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SIN_DECL, - F77_VINOUT_DECL ); -#else -F77_VOID_FUN F77rotg -( F77_SINOUT_DECL, F77_SIN_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL ); -#endif -F77_VOID_FUN F77nrm2 -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_RINOUT_DECL ); -F77_VOID_FUN F77asum -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_RINOUT_DECL ); -F77_INT_FUN F77amax -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL ); -F77_VOID_FUN F77scal -( F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); -#ifdef TCPLX -F77_VOID_FUN F77rscal -( F77_INT_DECL, F77_RIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); -#endif -void F77set -( F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); -void F77axpby -( F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); -F77_VOID_FUN F77axpy -( F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_VINOUT_DECL, F77_INT_DECL ); -F77_VOID_FUN F77copy -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL ); -F77_VOID_FUN F77swap -( F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL ); -F77_VOID_FUN F77rot -( F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL, F77_SIN_DECL, F77_SIN_DECL ); -#ifdef TREAL -F77_VOID_FUN F77rotm -( F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL, F77_VIN_DECL ); -#endif -#ifdef TREAL -F77_VOID_FUN F77dot -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_SINOUT_DECL ); -#ifdef SREAL -F77_VOID_FUN F77dsdot -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, - F77_INT_DECL, double * ); -F77_VOID_FUN F77sdsdot -( F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_VIN_DECL, F77_INT_DECL, F77_SINOUT_DECL ); -#endif -#else -F77_VOID_FUN F77dotc -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_SINOUT_DECL ); -F77_VOID_FUN F77dotu -( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_SINOUT_DECL ); -#endif - -F77_VOID_FUN F77gbmv -( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_INT_DECL, - F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, - F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77gemv -( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, - F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_1_CHAR ); -#ifdef TREAL -F77_VOID_FUN F77ger -( F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, - F77_INT_DECL ); -F77_VOID_FUN F77sbmv -( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, - F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77spmv -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, - F77_MIN_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77symv -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, - F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77spr -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_MINOUT_DECL F77_1_CHAR ); -F77_VOID_FUN F77syr -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77spr2 -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL - F77_1_CHAR ); -F77_VOID_FUN F77syr2 -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, - F77_INT_DECL F77_1_CHAR ); -#else -F77_VOID_FUN F77gerc -( F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, - F77_INT_DECL ); -F77_VOID_FUN F77geru -( F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, - F77_INT_DECL ); -F77_VOID_FUN F77hbmv -( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, - F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77hpmv -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, - F77_MIN_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77hemv -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, - F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77hpr -( F77_CHAR_DECL, F77_INT_DECL, F77_RIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_MINOUT_DECL F77_1_CHAR ); -F77_VOID_FUN F77her -( F77_CHAR_DECL, F77_INT_DECL, F77_RIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_1_CHAR ); -F77_VOID_FUN F77hpr2 -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL - F77_1_CHAR ); -F77_VOID_FUN F77her2 -( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, - F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, - F77_INT_DECL F77_1_CHAR ); -#endif -F77_VOID_FUN F77tbmv -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, - F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_3_CHAR ); -F77_VOID_FUN F77tpmv -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, - F77_MIN_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_3_CHAR ); -F77_VOID_FUN F77trmv -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, - F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_3_CHAR ); -F77_VOID_FUN F77tbsv -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, - F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_3_CHAR ); -F77_VOID_FUN F77tpsv -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, - F77_MIN_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_3_CHAR ); -F77_VOID_FUN F77trsv -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, - F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, - F77_INT_DECL F77_3_CHAR ); - -F77_VOID_FUN F77gemm -( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, - F77_MIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, - F77_INT_DECL F77_2_CHAR ); -F77_VOID_FUN F77hemm -( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, - F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL - F77_2_CHAR ); -F77_VOID_FUN F77her2k -( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, - F77_INT_DECL, F77_RIN_DECL, F77_MINOUT_DECL, F77_INT_DECL - F77_2_CHAR ); -F77_VOID_FUN F77herk -( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_RIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_RIN_DECL, - F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); -F77_VOID_FUN F77symm -( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, - F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL - F77_2_CHAR ); -F77_VOID_FUN F77syr2k -( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, - F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL - F77_2_CHAR ); -F77_VOID_FUN F77syrk -( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, - F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_SIN_DECL, - F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); -F77_VOID_FUN F77trmm -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, - F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, - F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_4_CHAR ); -F77_VOID_FUN F77trsm -( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, - F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, - F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_4_CHAR ); - -#endif |