diff options
Diffstat (limited to 'kaldi_io/src/tools/ATLAS/include/atlas_tst.h')
-rw-r--r-- | kaldi_io/src/tools/ATLAS/include/atlas_tst.h | 909 |
1 files changed, 0 insertions, 909 deletions
diff --git a/kaldi_io/src/tools/ATLAS/include/atlas_tst.h b/kaldi_io/src/tools/ATLAS/include/atlas_tst.h deleted file mode 100644 index 1ea5f5e..0000000 --- a/kaldi_io/src/tools/ATLAS/include/atlas_tst.h +++ /dev/null @@ -1,909 +0,0 @@ -/* - * Automatically Tuned Linear Algebra Software v3.8.3 - * (C) Copyright 1999 R. Clint Whaley - * - * Code contributers : R. Clint Whaley, Antoine P. Petitet - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions, and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. The name of the ATLAS group or the names of its contributers may - * not be used to endorse or promote products derived from this - * software without specific written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS - * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED - * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR - * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE ATLAS GROUP OR ITS CONTRIBUTORS - * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR - * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF - * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS - * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN - * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) - * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE - * POSSIBILITY OF SUCH DAMAGE. - * - */ - -#ifndef ATLAS_TST_H - #define ATLAS_TST_H - -#include "atlas_enum.h" - -double time00(); -#ifndef UseCRand - void ATL_srand(int iseed); - int ATL_rand(void); - #define dumb_seed(iseed_) ATL_srand(iseed_) - #define dumb_rand() ( 0.5 - ((double)ATL_rand())/(2147483648.0) ) -#else - #define dumb_seed(iseed_) srand(iseed_) - #ifndef RAND_MAX /* rather dangerous non-ansi workaround */ - #define RAND_MAX ((unsigned long)(1<<30)) - #endif - #define dumb_rand() ( 0.5 - ((double)rand())/((double)RAND_MAX) ) -#endif - -void ATL_ststsqtran(const int N, float *A, const int lda); -void ATL_sgeprint - (char *mat, const int M, const int N, const float *A, const int lda); - -float ATL_sgediffnrm1 - (const int M, const int N, const float *A, const int lda, - const float *B, const int ldb); -float ATL_shediffnrm - (const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo, const int N, - const float *A0, const int ld0, const float *A1, const int ld1); -float ATL_sinfnrm(const int N, const float *X, const int incX); -float ATL_sgenrm1 - (const int M, const int N, const float *A, const int lda); -float ATL_strnrm1 - (const enum ATLAS_UPLO Upper, const enum ATLAS_DIAG Diag, const int N, - const float *A, const int lda); -float ATL_sgbnrm1 - (const int M, const int N, const int KL, const int KU, - const float *A, const int lda); -float ATL_stpnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, const int N, - const float *A); -float ATL_stbnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, - const int N, const int K, const float *A, const int LDA); -float ATL_ssynrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A, const int LDA); -float ATL_shenrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A, const int LDA); -float ATL_sspnrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A); -float ATL_shpnrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A); -float ATL_ssbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const float *A, const int LDA); -float ATL_shbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const float *A, const int LDA); - -void ATL_sgefillgap(const int M, const int N, float *A, const int lda0); -int ATL_sgechkgap(const int M0, const int N, float *A, const int lda0); -void ATL_strgen(const enum ATLAS_UPLO Uplo, const enum ATLAS_DIAG Diag, - const int N, float *A, const int lda, const int seed); -void ATL_sgegen(const int M0, const int N, float *A, const int lda, - const int seed); -float ATL_sepsilon(void); -void ATL_svdiff(const int N, const float *X, const int incX, - const float *Y, const int incY, float *Z, const int incZ); -void ATL_sgediff(const int M, const int N, const float *A, const int lda, - const float *B, const int ldb, float *C, const int ldc); -void ATL_dtstsqtran(const int N, double *A, const int lda); -void ATL_dgeprint - (char *mat, const int M, const int N, const double *A, const int lda); - -double ATL_dgediffnrm1 - (const int M, const int N, const double *A, const int lda, - const double *B, const int ldb); -double ATL_dhediffnrm - (const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo, const int N, - const double *A0, const int ld0, const double *A1, const int ld1); -double ATL_dinfnrm(const int N, const double *X, const int incX); -double ATL_dgenrm1 - (const int M, const int N, const double *A, const int lda); -double ATL_dtrnrm1 - (const enum ATLAS_UPLO Upper, const enum ATLAS_DIAG Diag, const int N, - const double *A, const int lda); -double ATL_dgbnrm1 - (const int M, const int N, const int KL, const int KU, - const double *A, const int lda); -double ATL_dtpnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, const int N, - const double *A); -double ATL_dtbnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, - const int N, const int K, const double *A, const int LDA); -double ATL_dsynrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A, const int LDA); -double ATL_dhenrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A, const int LDA); -double ATL_dspnrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A); -double ATL_dhpnrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A); -double ATL_dsbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const double *A, const int LDA); -double ATL_dhbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const double *A, const int LDA); - -void ATL_dgefillgap(const int M, const int N, double *A, const int lda0); -int ATL_dgechkgap(const int M0, const int N, double *A, const int lda0); -void ATL_dtrgen(const enum ATLAS_UPLO Uplo, const enum ATLAS_DIAG Diag, - const int N, double *A, const int lda, const int seed); -void ATL_dgegen(const int M0, const int N, double *A, const int lda, - const int seed); -double ATL_depsilon(void); -void ATL_dvdiff(const int N, const double *X, const int incX, - const double *Y, const int incY, double *Z, const int incZ); -void ATL_dgediff(const int M, const int N, const double *A, const int lda, - const double *B, const int ldb, double *C, const int ldc); -void ATL_ctstsqtran(const int N, float *A, const int lda); -void ATL_cgeprint - (char *mat, const int M, const int N, const float *A, const int lda); - -float ATL_cgediffnrm1 - (const int M, const int N, const float *A, const int lda, - const float *B, const int ldb); -float ATL_chediffnrm - (const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo, const int N, - const float *A0, const int ld0, const float *A1, const int ld1); -float ATL_cinfnrm(const int N, const float *X, const int incX); -float ATL_cgenrm1 - (const int M, const int N, const float *A, const int lda); -float ATL_ctrnrm1 - (const enum ATLAS_UPLO Upper, const enum ATLAS_DIAG Diag, const int N, - const float *A, const int lda); -float ATL_cgbnrm1 - (const int M, const int N, const int KL, const int KU, - const float *A, const int lda); -float ATL_ctpnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, const int N, - const float *A); -float ATL_ctbnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, - const int N, const int K, const float *A, const int LDA); -float ATL_csynrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A, const int LDA); -float ATL_chenrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A, const int LDA); -float ATL_cspnrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A); -float ATL_chpnrm - (const enum ATLAS_UPLO UPLO, const int N, const float *A); -float ATL_csbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const float *A, const int LDA); -float ATL_chbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const float *A, const int LDA); - -void ATL_cgefillgap(const int M, const int N, float *A, const int lda0); -int ATL_cgechkgap(const int M0, const int N, float *A, const int lda0); -void ATL_ctrgen(const enum ATLAS_UPLO Uplo, const enum ATLAS_DIAG Diag, - const int N, float *A, const int lda, const int seed); -void ATL_cgegen(const int M0, const int N, float *A, const int lda, - const int seed); -float ATL_cepsilon(void); -void ATL_cvdiff(const int N, const float *X, const int incX, - const float *Y, const int incY, float *Z, const int incZ); -void ATL_cgediff(const int M, const int N, const float *A, const int lda, - const float *B, const int ldb, float *C, const int ldc); -void ATL_ztstsqtran(const int N, double *A, const int lda); -void ATL_zgeprint - (char *mat, const int M, const int N, const double *A, const int lda); - -double ATL_zgediffnrm1 - (const int M, const int N, const double *A, const int lda, - const double *B, const int ldb); -double ATL_zhediffnrm - (const enum ATLAS_ORDER Order, const enum ATLAS_UPLO Uplo, const int N, - const double *A0, const int ld0, const double *A1, const int ld1); -double ATL_zinfnrm(const int N, const double *X, const int incX); -double ATL_zgenrm1 - (const int M, const int N, const double *A, const int lda); -double ATL_ztrnrm1 - (const enum ATLAS_UPLO Upper, const enum ATLAS_DIAG Diag, const int N, - const double *A, const int lda); -double ATL_zgbnrm1 - (const int M, const int N, const int KL, const int KU, - const double *A, const int lda); -double ATL_ztpnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, const int N, - const double *A); -double ATL_ztbnrm1 - (const enum ATLAS_UPLO UPLO, const enum ATLAS_DIAG DIAG, - const int N, const int K, const double *A, const int LDA); -double ATL_zsynrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A, const int LDA); -double ATL_zhenrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A, const int LDA); -double ATL_zspnrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A); -double ATL_zhpnrm - (const enum ATLAS_UPLO UPLO, const int N, const double *A); -double ATL_zsbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const double *A, const int LDA); -double ATL_zhbnrm - (const enum ATLAS_UPLO UPLO, const int N, const int K, - const double *A, const int LDA); - -void ATL_zgefillgap(const int M, const int N, double *A, const int lda0); -int ATL_zgechkgap(const int M0, const int N, double *A, const int lda0); -void ATL_ztrgen(const enum ATLAS_UPLO Uplo, const enum ATLAS_DIAG Diag, - const int N, double *A, const int lda, const int seed); -void ATL_zgegen(const int M0, const int N, double *A, const int lda, - const int seed); -double ATL_zepsilon(void); -void ATL_zvdiff(const int N, const double *X, const int incX, - const double *Y, const int incY, double *Z, const int incZ); -void ATL_zgediff(const int M, const int N, const double *A, const int lda, - const double *B, const int ldb, double *C, const int ldc); - -/* - * Wrappers so that C can call F77 LAPACK - */ -int ATL_sf77getri - (const enum ATLAS_ORDER, const int, float*, const int, int*, - float*, int*); -int ATL_sf77getrf - (const enum ATLAS_ORDER, const int, const int, float*, const int, int*); -int ATL_sf77potrf(const enum ATLAS_UPLO, const int, float*, const int); -int ATL_sf77lauum(const enum ATLAS_UPLO, const int, float*, const int); -int ATL_sf77trtri(const enum ATLAS_UPLO, const enum ATLAS_DIAG, const int, - float*, const int); -int ATL_sf77posv(const enum ATLAS_UPLO, const int, const int, float*, const int, float*, const int); -int ATL_sf77gesv(const int, const int, float*, const int, int*, float*, const int); -int ATL_sf77gels(const enum ATLAS_TRANS, const int, const int, const int, float*, const int, float*, const int); -int ATL_df77getri - (const enum ATLAS_ORDER, const int, double*, const int, int*, - double*, int*); -int ATL_df77getrf - (const enum ATLAS_ORDER, const int, const int, double*, const int, int*); -int ATL_df77potrf(const enum ATLAS_UPLO, const int, double*, const int); -int ATL_df77lauum(const enum ATLAS_UPLO, const int, double*, const int); -int ATL_df77trtri(const enum ATLAS_UPLO, const enum ATLAS_DIAG, const int, - double*, const int); -int ATL_df77posv(const enum ATLAS_UPLO, const int, const int, double*, const int, double*, const int); -int ATL_df77gesv(const int, const int, double*, const int, int*, double*, const int); -int ATL_df77gels(const enum ATLAS_TRANS, const int, const int, const int, double*, const int, double*, const int); -int ATL_cf77getri - (const enum ATLAS_ORDER, const int, float*, const int, int*, - float*, int*); -int ATL_cf77getrf - (const enum ATLAS_ORDER, const int, const int, float*, const int, int*); -int ATL_cf77potrf(const enum ATLAS_UPLO, const int, float*, const int); -int ATL_cf77lauum(const enum ATLAS_UPLO, const int, float*, const int); -int ATL_cf77trtri(const enum ATLAS_UPLO, const enum ATLAS_DIAG, const int, - float*, const int); -int ATL_cf77posv(const enum ATLAS_UPLO, const int, const int, float*, const int, float*, const int); -int ATL_cf77gesv(const int, const int, float*, const int, int*, float*, const int); -int ATL_cf77gels(const enum ATLAS_TRANS, const int, const int, const int, float*, const int, float*, const int); -int ATL_zf77getri - (const enum ATLAS_ORDER, const int, double*, const int, int*, - double*, int*); -int ATL_zf77getrf - (const enum ATLAS_ORDER, const int, const int, double*, const int, int*); -int ATL_zf77potrf(const enum ATLAS_UPLO, const int, double*, const int); -int ATL_zf77lauum(const enum ATLAS_UPLO, const int, double*, const int); -int ATL_zf77trtri(const enum ATLAS_UPLO, const enum ATLAS_DIAG, const int, - double*, const int); -int ATL_zf77posv(const enum ATLAS_UPLO, const int, const int, double*, const int, double*, const int); -int ATL_zf77gesv(const int, const int, double*, const int, int*, double*, const int); -int ATL_zf77gels(const enum ATLAS_TRANS, const int, const int, const int, double*, const int, double*, const int); -/* - * ===================================================================== - * Prototypes for C-callable F77 interface to the Level 1 BLAS routines - * ===================================================================== - */ -void ATL_sf77rotg -( float *, float *, float *, float * ); -void ATL_df77rotg -( double *, double *, double *, double * ); -void ATL_cf77rotg -( float *, const float *, float *, float * ); -void ATL_zf77rotg -( double *, const double *, double *, double * ); - -void ATL_sf77rotmg -( float *, float *, float *, const float, - float * ); -void ATL_df77rotmg -( double *, double *, double *, const double, - double * ); - -float ATL_sf77nrm2 -( const int, const float *, const int ); -double ATL_df77nrm2 -( const int, const double *, const int ); -float ATL_scf77nrm2 -( const int, const float *, const int ); -double ATL_dzf77nrm2 -( const int, const double *, const int ); - -float ATL_sf77asum -( const int, const float *, const int ); -double ATL_df77asum -( const int, const double *, const int ); -float ATL_scf77asum -( const int, const float *, const int ); -double ATL_dzf77asum -( const int, const double *, const int ); - -int ATL_isf77amax -( const int, const float *, const int ); -int ATL_idf77amax -( const int, const double *, const int ); -int ATL_icf77amax -( const int, const float *, const int ); -int ATL_izf77amax -( const int, const double *, const int ); - -void ATL_sf77scal -( const int, const float, float *, const int ); -void ATL_df77scal -( const int, const double, double *, const int ); -void ATL_cf77scal -( const int, const float *, float *, const int ); -void ATL_zf77scal -( const int, const double *, double *, const int ); -void ATL_csf77scal -( const int, const float, float *, const int ); -void ATL_zdf77scal -( const int, const double, double *, const int ); - -void ATL_sf77set(const int, const float, float*, const int); -void ATL_df77set(const int, const double, double*, const int); -void ATL_cf77set(const int, const float*, float*, const int); -void ATL_zf77set(const int, const double*, double*, const int); -void ATL_sf77axpby - (const int, const float, const float*, const int, const float, - float*, const int); -void ATL_df77axpby - (const int, const double, const double*, const int, const double, - double*, const int); -void ATL_cf77axpby - (const int, const float*, const float*, const int, const float*, - float*, const int); -void ATL_zf77axpby - (const int, const double*, const double*, const int, const double*, - double*, const int); - -void ATL_sf77axpy -( const int, const float, const float *, const int, - float *, const int ); -void ATL_df77axpy -( const int, const double, const double *, const int, - double *, const int ); -void ATL_cf77axpy -( const int, const float *, const float *, const int, - float *, const int ); -void ATL_zf77axpy -( const int, const double *, const double *, const int, - double *, const int ); - -void ATL_sf77copy -( const int, const float *, const int, float *, - const int ); -void ATL_df77copy -( const int, const double *, const int, double *, - const int ); -void ATL_cf77copy -( const int, const float *, const int, float *, - const int ); -void ATL_zf77copy -( const int, const double *, const int, double *, - const int ); - -void ATL_sf77swap -( const int, float *, const int, float *, - const int ); -void ATL_df77swap -( const int, double *, const int, double *, - const int ); -void ATL_cf77swap -( const int, float *, const int, float *, - const int ); -void ATL_zf77swap -( const int, double *, const int, double *, - const int ); - -void ATL_sf77rot -( const int, float *, const int, float *, - const int, const float, const float ); -void ATL_df77rot -( const int, double *, const int, double *, - const int, const double, const double ); -void ATL_csf77rot -( const int, float *, const int, float *, - const int, const float, const float ); -void ATL_zdf77rot -( const int, double *, const int, double *, - const int, const double, const double ); - -void ATL_sf77rotm -( const int, float *, const int, float *, - const int, const float * ); -void ATL_df77rotm -( const int, double *, const int, double *, - const int, const double * ); - -float ATL_sf77dot -( const int, const float *, const int, const float *, - const int ); -double ATL_df77dot -( const int, const double *, const int, const double *, - const int ); -void ATL_cf77dotu_sub -( const int, const float *, const int, const float *, - const int, float * ); -void ATL_cf77dotc_sub -( const int, const float *, const int, const float *, - const int, float * ); -void ATL_zf77dotu_sub -( const int, const double *, const int, const double *, - const int, double * ); -void ATL_zf77dotc_sub -( const int, const double *, const int, const double *, - const int, double * ); - -float ATL_sdsf77dot -( const int, const float, const float *, const int, - const float *, const int ); -double ATL_dsf77dot -( const int, const float *, const int, const float *, - const int ); -/* - * ===================================================================== - * Prototypes for C-callable F77 interface to the Level 2 BLAS routines - * ===================================================================== - */ -void ATL_sf77gemv -( const enum ATLAS_TRANS, const int, const int, - const float, const float *, const int, const float *, - const int, const float, float *, const int ); -void ATL_df77gemv -( const enum ATLAS_TRANS, const int, const int, - const double, const double *, const int, const double *, - const int, const double, double *, const int ); -void ATL_cf77gemv -( const enum ATLAS_TRANS, const int, const int, - const float *, const float *, const int, const float *, - const int, const float *, float *, const int ); -void ATL_zf77gemv -( const enum ATLAS_TRANS, const int, const int, - const double *, const double *, const int, const double *, - const int, const double *, double *, const int ); - -void ATL_sf77gbmv -( const enum ATLAS_TRANS, const int, const int, - const int, const int, const float, const float *, - const int, const float *, const int, const float, - float *, const int ); -void ATL_df77gbmv -( const enum ATLAS_TRANS, const int, const int, - const int, const int, const double, const double *, - const int, const double *, const int, const double, - double *, const int ); -void ATL_cf77gbmv -( const enum ATLAS_TRANS, const int, const int, - const int, const int, const float *, const float *, - const int, const float *, const int, const float *, - float *, const int ); -void ATL_zf77gbmv -( const enum ATLAS_TRANS, const int, const int, - const int, const int, const double *, const double *, - const int, const double *, const int, const double *, - double *, const int ); - -void ATL_sf77trmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - const int, float *, const int ); -void ATL_df77trmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - const int, double *, const int ); -void ATL_cf77trmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - const int, float *, const int ); -void ATL_zf77trmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - const int, double *, const int ); - -void ATL_sf77tbmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const float *, const int, float *, const int ); -void ATL_df77tbmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const double *, const int, double *, const int ); -void ATL_cf77tbmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const float *, const int, float *, const int ); -void ATL_zf77tbmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const double *, const int, double *, const int ); - -void ATL_sf77tpmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - float *, const int ); -void ATL_df77tpmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - double *, const int ); -void ATL_cf77tpmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - float *, const int ); -void ATL_zf77tpmv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - double *, const int ); - -void ATL_sf77trsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - const int, float *, const int ); -void ATL_df77trsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - const int, double *, const int ); -void ATL_cf77trsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - const int, float *, const int ); -void ATL_zf77trsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - const int, double *, const int ); - -void ATL_sf77tbsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const float *, const int, float *, const int ); -void ATL_df77tbsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const double *, const int, double *, const int ); -void ATL_cf77tbsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const float *, const int, float *, const int ); -void ATL_zf77tbsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const int, - const double *, const int, double *, const int ); - -void ATL_sf77tpsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - float *, const int ); -void ATL_df77tpsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - double *, const int ); -void ATL_cf77tpsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const float *, - float *, const int ); -void ATL_zf77tpsv -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const enum ATLAS_DIAG, const int, const double *, - double *, const int ); - -void ATL_sf77symv -( const enum ATLAS_UPLO, const int, const float, - const float *, const int, const float *, const int, - const float, float *, const int ); -void ATL_df77symv -( const enum ATLAS_UPLO, const int, const double, - const double *, const int, const double *, const int, - const double, double *, const int ); - -void ATL_cf77hemv -( const enum ATLAS_UPLO, const int, const float *, - const float *, const int, const float *, const int, - const float *, float *, const int ); -void ATL_zf77hemv -( const enum ATLAS_UPLO, const int, const double *, - const double *, const int, const double *, const int, - const double *, double *, const int ); - -void ATL_sf77sbmv -( const enum ATLAS_UPLO, const int, const int, - const float, const float *, const int, const float *, - const int, const float, float *, const int ); -void ATL_df77sbmv -( const enum ATLAS_UPLO, const int, const int, - const double, const double *, const int, const double *, - const int, const double, double *, const int ); -void ATL_cf77hbmv -( const enum ATLAS_UPLO, const int, const int, - const float *, const float *, const int, const float *, - const int, const float *, float *, const int ); -void ATL_zf77hbmv -( const enum ATLAS_UPLO, const int, const int, - const double *, const double *, const int, const double *, - const int, const double *, double *, const int ); - -void ATL_sf77spmv -( const enum ATLAS_UPLO, const int, const float, - const float *, const float *, const int, const float, - float *, const int ); -void ATL_df77spmv -( const enum ATLAS_UPLO, const int, const double, - const double *, const double *, const int, const double, - double *, const int ); -void ATL_cf77hpmv -( const enum ATLAS_UPLO, const int, const float *, - const float *, const float *, const int, const float *, - float *, const int ); -void ATL_zf77hpmv -( const enum ATLAS_UPLO, const int, const double *, - const double *, const double *, const int, const double *, - double *, const int ); - -void ATL_sf77ger -( const int, const int, const float, const float *, - const int, const float *, const int, float *, - const int ); -void ATL_df77ger -( const int, const int, const double, const double *, - const int, const double *, const int, double *, - const int ); -void ATL_cf77gerc -( const int, const int, const float *, const float *, - const int, const float *, const int, float *, - const int ); -void ATL_cf77geru -( const int, const int, const float *, const float *, - const int, const float *, const int, float *, - const int ); -void ATL_zf77gerc -( const int, const int, const double *, const double *, - const int, const double *, const int, double *, - const int ); -void ATL_zf77geru -( const int, const int, const double *, const double *, - const int, const double *, const int, double *, - const int ); - -void ATL_sf77syr -( const enum ATLAS_UPLO, const int, const float, - const float *, const int, float *, const int ); -void ATL_df77syr -( const enum ATLAS_UPLO, const int, const double, - const double *, const int, double *, const int ); -void ATL_cf77her -( const enum ATLAS_UPLO, const int, const float, - const float *, const int, float *, const int ); -void ATL_zf77her -( const enum ATLAS_UPLO, const int, const double, - const double *, const int, double *, const int ); - -void ATL_sf77spr -( const enum ATLAS_UPLO, const int, const float, - const float *, const int, float * ); -void ATL_df77spr -( const enum ATLAS_UPLO, const int, const double, - const double *, const int, double * ); -void ATL_cf77hpr -( const enum ATLAS_UPLO, const int, const float, - const float *, const int, float * ); -void ATL_zf77hpr -( const enum ATLAS_UPLO, const int, const double, - const double *, const int, double * ); - -void ATL_sf77syr2 -( const enum ATLAS_UPLO, const int, const float, - const float *, const int, const float *, const int, - float *, const int ); -void ATL_df77syr2 -( const enum ATLAS_UPLO, const int, const double, - const double *, const int, const double *, const int, - double *, const int ); -void ATL_cf77her2 -( const enum ATLAS_UPLO, const int, const float *, - const float *, const int, const float *, const int, - float *, const int ); -void ATL_zf77her2 -( const enum ATLAS_UPLO, const int, const double *, - const double *, const int, const double *, const int, - double *, const int ); - -void ATL_sf77spr2 -( const enum ATLAS_UPLO, const int, const float, - const float *, const int, const float *, const int, - float * ); -void ATL_df77spr2 -( const enum ATLAS_UPLO, const int, const double, - const double *, const int, const double *, const int, - double * ); -void ATL_cf77hpr2 -( const enum ATLAS_UPLO, const int, const float *, - const float *, const int, const float *, const int, - float * ); -void ATL_zf77hpr2 -( const enum ATLAS_UPLO, const int, const double *, - const double *, const int, const double *, const int, - double * ); -/* - * ===================================================================== - * Prototypes for C-callable F77 interface to the Level 3 BLAS routines - * ===================================================================== - */ -void ATL_sf77gemm -( const enum ATLAS_TRANS, const enum ATLAS_TRANS, - const int, const int, const int, const float, - const float *, const int, const float *, const int, - const float, float *, const int ); -void ATL_df77gemm -( const enum ATLAS_TRANS, const enum ATLAS_TRANS, - const int, const int, const int, const double, - const double *, const int, const double *, const int, - const double, double *, const int ); -void ATL_cf77gemm -( const enum ATLAS_TRANS, const enum ATLAS_TRANS, - const int, const int, const int, const float *, - const float *, const int, const float *, const int, - const float *, float *, const int ); -void ATL_zf77gemm -( const enum ATLAS_TRANS, const enum ATLAS_TRANS, - const int, const int, const int, const double *, - const double *, const int, const double *, const int, - const double *, double *, const int ); - -void ATL_cf77hemm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const int, const int, const float *, const float *, - const int, const float *, const int, const float *, - float *, const int ); -void ATL_zf77hemm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const int, const int, const double *, const double *, - const int, const double *, const int, const double *, - double *, const int ); - -void ATL_cf77herk -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const float, const float *, - const int, const float, float *, const int ); -void ATL_zf77herk -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const double, const double *, - const int, const double, double *, const int ); - -void ATL_cf77her2k -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const float *, const float *, - const int, const float *, const int, const float, - float *, const int ); -void ATL_zf77her2k -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const double *, const double *, - const int, const double *, const int, const double, - double *, const int ); - -void ATL_sf77symm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const int, const int, const float, const float *, - const int, const float *, const int, const float, - float *, const int ); -void ATL_df77symm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const int, const int, const double, const double *, - const int, const double *, const int, const double, - double *, const int ); -void ATL_cf77symm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const int, const int, const float *, const float *, - const int, const float *, const int, const float *, - float *, const int ); -void ATL_zf77symm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const int, const int, const double *, const double *, - const int, const double *, const int, const double *, - double *, const int ); - -void ATL_sf77syrk -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const float, const float *, - const int, const float, float *, const int ); -void ATL_df77syrk -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const double, const double *, - const int, const double, double *, const int ); -void ATL_cf77syrk -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const float *, const float *, - const int, const float *, float *, const int ); -void ATL_zf77syrk -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const double *, const double *, - const int, const double *, double *, const int ); - -void ATL_sf77syr2k -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const float, const float *, - const int, const float *, const int, const float, - float *, const int ); -void ATL_df77syr2k -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const double, const double *, - const int, const double *, const int, const double, - double *, const int ); -void ATL_cf77syr2k -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const float *, const float *, - const int, const float *, const int, const float *, - float *, const int ); -void ATL_zf77syr2k -( const enum ATLAS_UPLO, const enum ATLAS_TRANS, - const int, const int, const double *, const double *, - const int, const double *, const int, const double *, - double *, const int ); - -void ATL_sf77trmm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const float, const float *, - const int, float *, const int ); -void ATL_df77trmm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const double, const double *, - const int, double *, const int ); -void ATL_cf77trmm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const float *, const float *, - const int, float *, const int ); -void ATL_zf77trmm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const double *, const double *, - const int, double *, const int ); - -void ATL_sf77trsm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const float, const float *, - const int, float *, const int ); -void ATL_df77trsm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const double, const double *, - const int, double *, const int ); -void ATL_cf77trsm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const float *, const float *, - const int, float *, const int ); -void ATL_zf77trsm -( const enum ATLAS_SIDE, const enum ATLAS_UPLO, - const enum ATLAS_TRANS, const enum ATLAS_DIAG, - const int, const int, const double *, const double *, - const int, double *, const int ); - -#endif |