diff options
Diffstat (limited to 'kaldi_io/src/tools/ATLAS/include/atlas_f77wrap.h')
-rw-r--r-- | kaldi_io/src/tools/ATLAS/include/atlas_f77wrap.h | 1088 |
1 files changed, 0 insertions, 1088 deletions
diff --git a/kaldi_io/src/tools/ATLAS/include/atlas_f77wrap.h b/kaldi_io/src/tools/ATLAS/include/atlas_f77wrap.h deleted file mode 100644 index db6099c..0000000 --- a/kaldi_io/src/tools/ATLAS/include/atlas_f77wrap.h +++ /dev/null @@ -1,1088 +0,0 @@ -/* --------------------------------------------------------------------- - * - * -- Automatically Tuned Linear Algebra Software (ATLAS) - * (C) Copyright 2000 All Rights Reserved - * - * -- ATLAS routine -- Version 3.2 -- December 25, 2000 - * - * Author : Antoine P. Petitet - * Originally developed at the University of Tennessee, - * Innovative Computing Laboratory, Knoxville TN, 37996-1301, USA. - * - * --------------------------------------------------------------------- - * - * -- Copyright notice and Licensing terms: - * - * 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 distri- - * bution. - * 3. The name of the University, the ATLAS group, or the names of its - * contributors may not be used to endorse or promote products deri- - * ved from this software without specific written permission. - * - * -- Disclaimer: - * - * 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 UNIVERSITY - * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPE- - * CIAL, 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 THEO- - * RY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (IN- - * CLUDING 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_F77WRAP_H -#define ATLAS_F77WRAP_H -/* - * ===================================================================== - * Include Files - * ===================================================================== - */ -#include "atlas_misc.h" -#include "atlas_f77.h" -/* - * ===================================================================== - * Multi-threaded/reference implementation function names re-definition - * ===================================================================== - * - * Uncomment the following definition macros to call the multi-threaded - * implementation or define those macros at compile time. - * - * #define USE_L1_PTHREADS - * #define USE_L2_PTHREADS - * #define USE_L3_PTHREADS - * - * Uncomment the following definition macros to call the reference im- - * plementation or define those macros at compile time. - * - * #define USE_L1_REFERENCE - * #define USE_L2_REFERENCE - * #define USE_L3_REFERENCE - * - * ===================================================================== - */ - -#ifdef ATL_USEPTHREADS -#define USE_L3_PTHREADS -#endif - -/* - * ===================================================================== - * ATLAS Levels 1, 2 and 3 Prototypes - * ===================================================================== - */ -#if defined( USE_L1_PTHREADS ) -#include "atlas_ptalias1.h" -#include "atlas_ptlevel1.h" -#elif defined( USE_L1_REFERENCE ) -#include "atlas_refalias1.h" -#include "atlas_reflevel1.h" -#else -#include "atlas_level1.h" -#endif - -#if defined( USE_L2_PTHREADS ) -#include "atlas_ptalias2.h" -#include "atlas_ptlevel2.h" -#elif defined( USE_L2_REFERENCE ) -#include "atlas_refalias2.h" -#include "atlas_reflevel2.h" -#else -#include "atlas_level2.h" -#endif - -#if defined( USE_L3_PTHREADS ) -#include "atlas_ptalias3.h" -#include "atlas_ptlevel3.h" -#elif defined( USE_L3_REFERENCE ) -#include "atlas_refalias3.h" -#include "atlas_reflevel3.h" -#else -#include "atlas_level3.h" -#endif -/* - * ===================================================================== - * #define macro constants - * ===================================================================== - */ -#define PATLF77WRAP Mjoin( ATL_F77wrap_, PRE ) - -#ifdef TREAL -#define ATLPUF77WRAP Mjoin( ATL_F77wrap_, PRE ) -#define ATLUPF77WRAP Mjoin( ATL_F77wrap_, PRE ) -#else -#define ATLPUF77WRAP Mjoin( Mjoin( ATL_F77wrap_, PRE ), UPR ) -#define ATLUPF77WRAP Mjoin( Mjoin( ATL_F77wrap_, UPR ), PRE ) -#endif - -#define F77_INOTRAN 111 -#define F77_ITRAN 112 -#define F77_ICOTRAN 113 - -#define F77_IUPPER 121 -#define F77_ILOWER 122 - -#define F77_INONUNIT 131 -#define F77_IUNIT 132 - -#define F77_ILEFT 141 -#define F77_IRIGHT 142 -/* - * ===================================================================== - * #define macro functions - * ===================================================================== - */ -#ifdef TREAL -#define V1N( n_, x_, incx_ ) \ - ( (*n_) > 0 ? (x_)+(1-(*n_))*(*incx_) : (x_) ) -#define VN1( n_, x_, incx_ ) \ - ( (*n_) > 0 ? (x_)+((*n_)-1)*(*incx_) : (x_) ) -#define W1N( n_, x_, incx_ ) \ - ( (*incx_) < 0 ? V1N( n_, x_, incx_ ) : (x_) ) -#else -#define V1N( n_, x_, incx_ ) \ - ( (*n_) > 0 ? (x_)+( ( (1-(*n_))*(*incx_) ) << 1 ) : (x_) ) -#define VN1( n_, x_, incx_ ) \ - ( (*n_) > 0 ? (x_)+( ( ((*n_)-1)*(*incx_) ) << 1 ) : (x_) ) -#define W1N( n_, x_, incx_ ) \ - ( (*incx_) < 0 ? V1N( n_, x_, incx_ ) : (x_) ) -#endif -/* - * ===================================================================== - * FORTRAN <-> C interface - * ===================================================================== - * - * These macros identifies how these wrappers will be called as follows: - * - * Add_: the FORTRAN compiler expects the name of C functions to be - * in all lower case and to have an underscore postfixed it (Suns, Intel - * compilers expect this). - * - * NoChange: the FORTRAN compiler expects the name of C functions to be - * in all lower case (IBM RS6K compilers do this). - * - * UpCase: the FORTRAN compiler expects the name of C functions to be - * in all upcase. (Cray compilers expect this). - * - * Add__: the FORTRAN compiler in use is f2c, a FORTRAN to C conver- - * ter. - */ -#if defined( Add_ ) -/* - * These defines set up the naming scheme required to have a FORTRAN - * routine calling a C routine. - * - * FORTRAN CALL C declaration - * CALL ATL_F77WRAP_SGEMM(...) void atl_f77wrap_sgemm_(...) - * - * This is the default. - */ -#if defined( SREAL ) - -#define ATL_F77wrap_srotg atl_f77wrap_srotg_ -#define ATL_F77wrap_srotmg atl_f77wrap_srotmg_ -#define ATL_F77wrap_snrm2 atl_f77wrap_snrm2_ -#define ATL_F77wrap_sasum atl_f77wrap_sasum_ -#define ATL_F77wrap_sscal atl_f77wrap_sscal_ -#define ATL_F77wrap_isamax atl_f77wrap_isamax_ -#define ATL_F77wrap_saxpy atl_f77wrap_saxpy_ -#define ATL_F77wrap_scopy atl_f77wrap_scopy_ -#define ATL_F77wrap_sswap atl_f77wrap_sswap_ -#define ATL_F77wrap_srot atl_f77wrap_srot_ -#define ATL_F77wrap_srotm atl_f77wrap_srotm_ -#define ATL_F77wrap_sdot atl_f77wrap_sdot_ -#define ATL_F77wrap_dsdot atl_f77wrap_dsdot_ -#define ATL_F77wrap_sdsdot atl_f77wrap_sdsdot_ - -#define ATL_F77wrap_sgbmv atl_f77wrap_sgbmv_ -#define ATL_F77wrap_sgemv atl_f77wrap_sgemv_ -#define ATL_F77wrap_sger atl_f77wrap_sger_ -#define ATL_F77wrap_ssbmv atl_f77wrap_ssbmv_ -#define ATL_F77wrap_sspmv atl_f77wrap_sspmv_ -#define ATL_F77wrap_ssymv atl_f77wrap_ssymv_ -#define ATL_F77wrap_sspr atl_f77wrap_sspr_ -#define ATL_F77wrap_ssyr atl_f77wrap_ssyr_ -#define ATL_F77wrap_sspr2 atl_f77wrap_sspr2_ -#define ATL_F77wrap_ssyr2 atl_f77wrap_ssyr2_ -#define ATL_F77wrap_stbmv atl_f77wrap_stbmv_ -#define ATL_F77wrap_stpmv atl_f77wrap_stpmv_ -#define ATL_F77wrap_strmv atl_f77wrap_strmv_ -#define ATL_F77wrap_stbsv atl_f77wrap_stbsv_ -#define ATL_F77wrap_stpsv atl_f77wrap_stpsv_ -#define ATL_F77wrap_strsv atl_f77wrap_strsv_ - -#define ATL_F77wrap_sgemm atl_f77wrap_sgemm_ -#define ATL_F77wrap_ssymm atl_f77wrap_ssymm_ -#define ATL_F77wrap_ssyrk atl_f77wrap_ssyrk_ -#define ATL_F77wrap_ssyr2k atl_f77wrap_ssyr2k_ -#define ATL_F77wrap_strmm atl_f77wrap_strmm_ -#define ATL_F77wrap_strsm atl_f77wrap_strsm_ - -#elif defined( DREAL ) - -#define ATL_F77wrap_drotg atl_f77wrap_drotg_ -#define ATL_F77wrap_drotmg atl_f77wrap_drotmg_ -#define ATL_F77wrap_dnrm2 atl_f77wrap_dnrm2_ -#define ATL_F77wrap_dasum atl_f77wrap_dasum_ -#define ATL_F77wrap_dscal atl_f77wrap_dscal_ -#define ATL_F77wrap_idamax atl_f77wrap_idamax_ -#define ATL_F77wrap_daxpy atl_f77wrap_daxpy_ -#define ATL_F77wrap_dcopy atl_f77wrap_dcopy_ -#define ATL_F77wrap_dswap atl_f77wrap_dswap_ -#define ATL_F77wrap_drot atl_f77wrap_drot_ -#define ATL_F77wrap_drotm atl_f77wrap_drotm_ -#define ATL_F77wrap_ddot atl_f77wrap_ddot_ - -#define ATL_F77wrap_dgbmv atl_f77wrap_dgbmv_ -#define ATL_F77wrap_dgemv atl_f77wrap_dgemv_ -#define ATL_F77wrap_dger atl_f77wrap_dger_ -#define ATL_F77wrap_dsbmv atl_f77wrap_dsbmv_ -#define ATL_F77wrap_dspmv atl_f77wrap_dspmv_ -#define ATL_F77wrap_dsymv atl_f77wrap_dsymv_ -#define ATL_F77wrap_dspr atl_f77wrap_dspr_ -#define ATL_F77wrap_dsyr atl_f77wrap_dsyr_ -#define ATL_F77wrap_dspr2 atl_f77wrap_dspr2_ -#define ATL_F77wrap_dsyr2 atl_f77wrap_dsyr2_ -#define ATL_F77wrap_dtbmv atl_f77wrap_dtbmv_ -#define ATL_F77wrap_dtpmv atl_f77wrap_dtpmv_ -#define ATL_F77wrap_dtrmv atl_f77wrap_dtrmv_ -#define ATL_F77wrap_dtbsv atl_f77wrap_dtbsv_ -#define ATL_F77wrap_dtpsv atl_f77wrap_dtpsv_ -#define ATL_F77wrap_dtrsv atl_f77wrap_dtrsv_ - -#define ATL_F77wrap_dgemm atl_f77wrap_dgemm_ -#define ATL_F77wrap_dsymm atl_f77wrap_dsymm_ -#define ATL_F77wrap_dsyrk atl_f77wrap_dsyrk_ -#define ATL_F77wrap_dsyr2k atl_f77wrap_dsyr2k_ -#define ATL_F77wrap_dtrmm atl_f77wrap_dtrmm_ -#define ATL_F77wrap_dtrsm atl_f77wrap_dtrsm_ - -#elif defined( SCPLX ) - -#define ATL_F77wrap_crotg atl_f77wrap_crotg_ -#define ATL_F77wrap_scnrm2 atl_f77wrap_scnrm2_ -#define ATL_F77wrap_scasum atl_f77wrap_scasum_ -#define ATL_F77wrap_cscal atl_f77wrap_cscal_ -#define ATL_F77wrap_csscal atl_f77wrap_csscal_ -#define ATL_F77wrap_icamax atl_f77wrap_icamax_ -#define ATL_F77wrap_caxpy atl_f77wrap_caxpy_ -#define ATL_F77wrap_ccopy atl_f77wrap_ccopy_ -#define ATL_F77wrap_cswap atl_f77wrap_cswap_ -#define ATL_F77wrap_csrot atl_f77wrap_csrot_ -#define ATL_F77wrap_cdotc atl_f77wrap_cdotc_ -#define ATL_F77wrap_cdotu atl_f77wrap_cdotu_ - -#define ATL_F77wrap_cgbmv atl_f77wrap_cgbmv_ -#define ATL_F77wrap_cgemv atl_f77wrap_cgemv_ -#define ATL_F77wrap_cgerc atl_f77wrap_cgerc_ -#define ATL_F77wrap_cgeru atl_f77wrap_cgeru_ -#define ATL_F77wrap_chbmv atl_f77wrap_chbmv_ -#define ATL_F77wrap_chpmv atl_f77wrap_chpmv_ -#define ATL_F77wrap_chemv atl_f77wrap_chemv_ -#define ATL_F77wrap_chpr atl_f77wrap_chpr_ -#define ATL_F77wrap_cher atl_f77wrap_cher_ -#define ATL_F77wrap_chpr2 atl_f77wrap_chpr2_ -#define ATL_F77wrap_cher2 atl_f77wrap_cher2_ -#define ATL_F77wrap_ctbmv atl_f77wrap_ctbmv_ -#define ATL_F77wrap_ctpmv atl_f77wrap_ctpmv_ -#define ATL_F77wrap_ctrmv atl_f77wrap_ctrmv_ -#define ATL_F77wrap_ctbsv atl_f77wrap_ctbsv_ -#define ATL_F77wrap_ctpsv atl_f77wrap_ctpsv_ -#define ATL_F77wrap_ctrsv atl_f77wrap_ctrsv_ - -#define ATL_F77wrap_cgemm atl_f77wrap_cgemm_ -#define ATL_F77wrap_chemm atl_f77wrap_chemm_ -#define ATL_F77wrap_cherk atl_f77wrap_cherk_ -#define ATL_F77wrap_cher2k atl_f77wrap_cher2k_ -#define ATL_F77wrap_csymm atl_f77wrap_csymm_ -#define ATL_F77wrap_csyrk atl_f77wrap_csyrk_ -#define ATL_F77wrap_csyr2k atl_f77wrap_csyr2k_ -#define ATL_F77wrap_ctrmm atl_f77wrap_ctrmm_ -#define ATL_F77wrap_ctrsm atl_f77wrap_ctrsm_ - -#elif defined( DCPLX ) - -#define ATL_F77wrap_zrotg atl_f77wrap_zrotg_ -#define ATL_F77wrap_dznrm2 atl_f77wrap_dznrm2_ -#define ATL_F77wrap_dzasum atl_f77wrap_dzasum_ -#define ATL_F77wrap_zscal atl_f77wrap_zscal_ -#define ATL_F77wrap_zdscal atl_f77wrap_zdscal_ -#define ATL_F77wrap_izamax atl_f77wrap_izamax_ -#define ATL_F77wrap_zaxpy atl_f77wrap_zaxpy_ -#define ATL_F77wrap_zcopy atl_f77wrap_zcopy_ -#define ATL_F77wrap_zswap atl_f77wrap_zswap_ -#define ATL_F77wrap_zdrot atl_f77wrap_zdrot_ -#define ATL_F77wrap_zdotc atl_f77wrap_zdotc_ -#define ATL_F77wrap_zdotu atl_f77wrap_zdotu_ - -#define ATL_F77wrap_zgbmv atl_f77wrap_zgbmv_ -#define ATL_F77wrap_zgemv atl_f77wrap_zgemv_ -#define ATL_F77wrap_zgerc atl_f77wrap_zgerc_ -#define ATL_F77wrap_zgeru atl_f77wrap_zgeru_ -#define ATL_F77wrap_zhbmv atl_f77wrap_zhbmv_ -#define ATL_F77wrap_zhpmv atl_f77wrap_zhpmv_ -#define ATL_F77wrap_zhemv atl_f77wrap_zhemv_ -#define ATL_F77wrap_zhpr atl_f77wrap_zhpr_ -#define ATL_F77wrap_zher atl_f77wrap_zher_ -#define ATL_F77wrap_zhpr2 atl_f77wrap_zhpr2_ -#define ATL_F77wrap_zher2 atl_f77wrap_zher2_ -#define ATL_F77wrap_ztbmv atl_f77wrap_ztbmv_ -#define ATL_F77wrap_ztpmv atl_f77wrap_ztpmv_ -#define ATL_F77wrap_ztrmv atl_f77wrap_ztrmv_ -#define ATL_F77wrap_ztbsv atl_f77wrap_ztbsv_ -#define ATL_F77wrap_ztpsv atl_f77wrap_ztpsv_ -#define ATL_F77wrap_ztrsv atl_f77wrap_ztrsv_ - -#define ATL_F77wrap_zgemm atl_f77wrap_zgemm_ -#define ATL_F77wrap_zhemm atl_f77wrap_zhemm_ -#define ATL_F77wrap_zherk atl_f77wrap_zherk_ -#define ATL_F77wrap_zher2k atl_f77wrap_zher2k_ -#define ATL_F77wrap_zsymm atl_f77wrap_zsymm_ -#define ATL_F77wrap_zsyrk atl_f77wrap_zsyrk_ -#define ATL_F77wrap_zsyr2k atl_f77wrap_zsyr2k_ -#define ATL_F77wrap_ztrmm atl_f77wrap_ztrmm_ -#define ATL_F77wrap_ztrsm atl_f77wrap_ztrsm_ - -#endif - -#elif defined( UpCase ) -/* - * These defines set up the naming scheme required to have a FORTRAN - * routine calling a C routine with the following interface: - * - * FORTRAN CALL C declaration - * CALL ATL_F77WRAP_SGEMM(...) void ATL_F77WRAP_SGEMM(...) - * - */ -#if defined( SREAL ) - -#define ATL_F77wrap_srotg ATL_F77WRAP_SROTG -#define ATL_F77wrap_srotmg ATL_F77WRAP_SROTMG -#define ATL_F77wrap_snrm2 ATL_F77WRAP_SNRM2 -#define ATL_F77wrap_sasum ATL_F77WRAP_SASUM -#define ATL_F77wrap_sscal ATL_F77WRAP_SSCAL -#define ATL_F77wrap_isamax ATL_F77WRAP_ISAMAX -#define ATL_F77wrap_saxpy ATL_F77WRAP_SAXPY -#define ATL_F77wrap_scopy ATL_F77WRAP_SCOPY -#define ATL_F77wrap_sswap ATL_F77WRAP_SSWAP -#define ATL_F77wrap_srot ATL_F77WRAP_SROT -#define ATL_F77wrap_srotm ATL_F77WRAP_SROTM -#define ATL_F77wrap_sdot ATL_F77WRAP_SDOT -#define ATL_F77wrap_dsdot ATL_F77WRAP_DSDOT -#define ATL_F77wrap_sdsdot ATL_F77WRAP_SDSDOT - -#define ATL_F77wrap_sgbmv ATL_F77WRAP_SGBMV -#define ATL_F77wrap_sgemv ATL_F77WRAP_SGEMV -#define ATL_F77wrap_sger ATL_F77WRAP_SGER -#define ATL_F77wrap_ssbmv ATL_F77WRAP_SSBMV -#define ATL_F77wrap_sspmv ATL_F77WRAP_SSPMV -#define ATL_F77wrap_ssymv ATL_F77WRAP_SSYMV -#define ATL_F77wrap_sspr ATL_F77WRAP_SSPR -#define ATL_F77wrap_ssyr ATL_F77WRAP_SSYR -#define ATL_F77wrap_sspr2 ATL_F77WRAP_SSPR2 -#define ATL_F77wrap_ssyr2 ATL_F77WRAP_SSYR2 -#define ATL_F77wrap_stbmv ATL_F77WRAP_STBMV -#define ATL_F77wrap_stpmv ATL_F77WRAP_STPMV -#define ATL_F77wrap_strmv ATL_F77WRAP_STRMV -#define ATL_F77wrap_stbsv ATL_F77WRAP_STBSV -#define ATL_F77wrap_stpsv ATL_F77WRAP_STPSV -#define ATL_F77wrap_strsv ATL_F77WRAP_STRSV - -#define ATL_F77wrap_sgemm ATL_F77WRAP_SGEMM -#define ATL_F77wrap_ssymm ATL_F77WRAP_SSYMM -#define ATL_F77wrap_ssyrk ATL_F77WRAP_SSYRK -#define ATL_F77wrap_ssyr2k ATL_F77WRAP_SSYR2K -#define ATL_F77wrap_strmm ATL_F77WRAP_STRMM -#define ATL_F77wrap_strsm ATL_F77WRAP_STRSM - -#elif defined( DREAL ) - -#define ATL_F77wrap_drotg ATL_F77WRAP_DROTG -#define ATL_F77wrap_drotmg ATL_F77WRAP_DROTMG -#define ATL_F77wrap_dnrm2 ATL_F77WRAP_DNRM2 -#define ATL_F77wrap_dasum ATL_F77WRAP_DASUM -#define ATL_F77wrap_dscal ATL_F77WRAP_DSCAL -#define ATL_F77wrap_idamax ATL_F77WRAP_IDAMAX -#define ATL_F77wrap_daxpy ATL_F77WRAP_DAXPY -#define ATL_F77wrap_dcopy ATL_F77WRAP_DCOPY -#define ATL_F77wrap_dswap ATL_F77WRAP_DSWAP -#define ATL_F77wrap_drot ATL_F77WRAP_DROT -#define ATL_F77wrap_drotm ATL_F77WRAP_DROTM -#define ATL_F77wrap_ddot ATL_F77WRAP_DDOT - -#define ATL_F77wrap_dgbmv ATL_F77WRAP_DGBMV -#define ATL_F77wrap_dgemv ATL_F77WRAP_DGEMV -#define ATL_F77wrap_dger ATL_F77WRAP_DGER -#define ATL_F77wrap_dsbmv ATL_F77WRAP_DSBMV -#define ATL_F77wrap_dspmv ATL_F77WRAP_DSPMV -#define ATL_F77wrap_dsymv ATL_F77WRAP_DSYMV -#define ATL_F77wrap_dspr ATL_F77WRAP_DSPR -#define ATL_F77wrap_dsyr ATL_F77WRAP_DSYR -#define ATL_F77wrap_dspr2 ATL_F77WRAP_DSPR2 -#define ATL_F77wrap_dsyr2 ATL_F77WRAP_DSYR2 -#define ATL_F77wrap_dtbmv ATL_F77WRAP_DTBMV -#define ATL_F77wrap_dtpmv ATL_F77WRAP_DTPMV -#define ATL_F77wrap_dtrmv ATL_F77WRAP_DTRMV -#define ATL_F77wrap_dtbsv ATL_F77WRAP_DTBSV -#define ATL_F77wrap_dtpsv ATL_F77WRAP_DTPSV -#define ATL_F77wrap_dtrsv ATL_F77WRAP_DTRSV - -#define ATL_F77wrap_dgemm ATL_F77WRAP_DGEMM -#define ATL_F77wrap_dsymm ATL_F77WRAP_DSYMM -#define ATL_F77wrap_dsyrk ATL_F77WRAP_DSYRK -#define ATL_F77wrap_dsyr2k ATL_F77WRAP_DSYR2K -#define ATL_F77wrap_dtrmm ATL_F77WRAP_DTRMM -#define ATL_F77wrap_dtrsm ATL_F77WRAP_DTRSM - -#elif defined( SCPLX ) - -#define ATL_F77wrap_crotg ATL_F77WRAP_CROTG -#define ATL_F77wrap_scnrm2 ATL_F77WRAP_SCNRM2 -#define ATL_F77wrap_scasum ATL_F77WRAP_SCASUM -#define ATL_F77wrap_cscal ATL_F77WRAP_CSCAL -#define ATL_F77wrap_csscal ATL_F77WRAP_CSSCAL -#define ATL_F77wrap_icamax ATL_F77WRAP_ICAMAX -#define ATL_F77wrap_caxpy ATL_F77WRAP_CAXPY -#define ATL_F77wrap_ccopy ATL_F77WRAP_CCOPY -#define ATL_F77wrap_cswap ATL_F77WRAP_CSWAP -#define ATL_F77wrap_csrot ATL_F77WRAP_CSROT -#define ATL_F77wrap_cdotc ATL_F77WRAP_CDOTC -#define ATL_F77wrap_cdotu ATL_F77WRAP_CDOTU - -#define ATL_F77wrap_cgbmv ATL_F77WRAP_CGBMV -#define ATL_F77wrap_cgemv ATL_F77WRAP_CGEMV -#define ATL_F77wrap_cgerc ATL_F77WRAP_CGERC -#define ATL_F77wrap_cgeru ATL_F77WRAP_CGERU -#define ATL_F77wrap_chbmv ATL_F77WRAP_CHBMV -#define ATL_F77wrap_chpmv ATL_F77WRAP_CHPMV -#define ATL_F77wrap_chemv ATL_F77WRAP_CHEMV -#define ATL_F77wrap_chpr ATL_F77WRAP_CHPR -#define ATL_F77wrap_cher ATL_F77WRAP_CHER -#define ATL_F77wrap_chpr2 ATL_F77WRAP_CHPR2 -#define ATL_F77wrap_cher2 ATL_F77WRAP_CHER2 -#define ATL_F77wrap_ctbmv ATL_F77WRAP_CTBMV -#define ATL_F77wrap_ctpmv ATL_F77WRAP_CTPMV -#define ATL_F77wrap_ctrmv ATL_F77WRAP_CTRMV -#define ATL_F77wrap_ctbsv ATL_F77WRAP_CTBSV -#define ATL_F77wrap_ctpsv ATL_F77WRAP_CTPSV -#define ATL_F77wrap_ctrsv ATL_F77WRAP_CTRSV - -#define ATL_F77wrap_cgemm ATL_F77WRAP_CGEMM -#define ATL_F77wrap_chemm ATL_F77WRAP_CHEMM -#define ATL_F77wrap_cherk ATL_F77WRAP_CHERK -#define ATL_F77wrap_cher2k ATL_F77WRAP_CHER2K -#define ATL_F77wrap_csymm ATL_F77WRAP_CSYMM -#define ATL_F77wrap_csyrk ATL_F77WRAP_CSYRK -#define ATL_F77wrap_csyr2k ATL_F77WRAP_CSYR2K -#define ATL_F77wrap_ctrmm ATL_F77WRAP_CTRMM -#define ATL_F77wrap_ctrsm ATL_F77WRAP_CTRSM - -#elif defined( DCPLX ) - -#define ATL_F77wrap_zrotg ATL_F77WRAP_ZROTG -#define ATL_F77wrap_dznrm2 ATL_F77WRAP_DZNRM2 -#define ATL_F77wrap_dzasum ATL_F77WRAP_DZASUM -#define ATL_F77wrap_zscal ATL_F77WRAP_ZSCAL -#define ATL_F77wrap_zdscal ATL_F77WRAP_ZDSCAL -#define ATL_F77wrap_izamax ATL_F77WRAP_IZAMAX -#define ATL_F77wrap_zaxpy ATL_F77WRAP_ZAXPY -#define ATL_F77wrap_zcopy ATL_F77WRAP_ZCOPY -#define ATL_F77wrap_zswap ATL_F77WRAP_ZSWAP -#define ATL_F77wrap_zdrot ATL_F77WRAP_ZDROT -#define ATL_F77wrap_zdotc ATL_F77WRAP_ZDOTC -#define ATL_F77wrap_zdotu ATL_F77WRAP_ZDOTU - -#define ATL_F77wrap_zgbmv ATL_F77WRAP_ZGBMV -#define ATL_F77wrap_zgemv ATL_F77WRAP_ZGEMV -#define ATL_F77wrap_zgerc ATL_F77WRAP_ZGERC -#define ATL_F77wrap_zgeru ATL_F77WRAP_ZGERU -#define ATL_F77wrap_zhbmv ATL_F77WRAP_ZHBMV -#define ATL_F77wrap_zhpmv ATL_F77WRAP_ZHPMV -#define ATL_F77wrap_zhemv ATL_F77WRAP_ZHEMV -#define ATL_F77wrap_zhpr ATL_F77WRAP_ZHPR -#define ATL_F77wrap_zher ATL_F77WRAP_ZHER -#define ATL_F77wrap_zhpr2 ATL_F77WRAP_ZHPR2 -#define ATL_F77wrap_zher2 ATL_F77WRAP_ZHER2 -#define ATL_F77wrap_ztbmv ATL_F77WRAP_ZTBMV -#define ATL_F77wrap_ztpmv ATL_F77WRAP_ZTPMV -#define ATL_F77wrap_ztrmv ATL_F77WRAP_ZTRMV -#define ATL_F77wrap_ztbsv ATL_F77WRAP_ZTBSV -#define ATL_F77wrap_ztpsv ATL_F77WRAP_ZTPSV -#define ATL_F77wrap_ztrsv ATL_F77WRAP_ZTRSV - -#define ATL_F77wrap_zgemm ATL_F77WRAP_ZGEMM -#define ATL_F77wrap_zhemm ATL_F77WRAP_ZHEMM -#define ATL_F77wrap_zherk ATL_F77WRAP_ZHERK -#define ATL_F77wrap_zher2k ATL_F77WRAP_ZHER2K -#define ATL_F77wrap_zsymm ATL_F77WRAP_ZSYMM -#define ATL_F77wrap_zsyrk ATL_F77WRAP_ZSYRK -#define ATL_F77wrap_zsyr2k ATL_F77WRAP_ZSYR2K -#define ATL_F77wrap_ztrmm ATL_F77WRAP_ZTRMM -#define ATL_F77wrap_ztrsm ATL_F77WRAP_ZTRSM - -#endif - -#elif defined( NoChange ) -/* - * These defines set up the naming scheme required to have a FORTRAN - * routine calling a C routine with the following interface: - * - * FORTRAN CALL C declaration - * CALL ATL_F77WRAP_SGEMM(...) void atl_f77wrap_sgemm(...) - */ -#if defined( SREAL ) - -#define ATL_F77wrap_srotg atl_f77wrap_srotg -#define ATL_F77wrap_srotmg atl_f77wrap_srotmg -#define ATL_F77wrap_snrm2 atl_f77wrap_snrm2 -#define ATL_F77wrap_sasum atl_f77wrap_sasum -#define ATL_F77wrap_sscal atl_f77wrap_sscal -#define ATL_F77wrap_isamax atl_f77wrap_isamax -#define ATL_F77wrap_saxpy atl_f77wrap_saxpy -#define ATL_F77wrap_scopy atl_f77wrap_scopy -#define ATL_F77wrap_sswap atl_f77wrap_sswap -#define ATL_F77wrap_srot atl_f77wrap_srot -#define ATL_F77wrap_srotm atl_f77wrap_srotm -#define ATL_F77wrap_sdot atl_f77wrap_sdot -#define ATL_F77wrap_dsdot atl_f77wrap_dsdot -#define ATL_F77wrap_sdsdot atl_f77wrap_sdsdot - -#define ATL_F77wrap_sgbmv atl_f77wrap_sgbmv -#define ATL_F77wrap_sgemv atl_f77wrap_sgemv -#define ATL_F77wrap_sger atl_f77wrap_sger -#define ATL_F77wrap_ssbmv atl_f77wrap_ssbmv -#define ATL_F77wrap_sspmv atl_f77wrap_sspmv -#define ATL_F77wrap_ssymv atl_f77wrap_ssymv -#define ATL_F77wrap_sspr atl_f77wrap_sspr -#define ATL_F77wrap_ssyr atl_f77wrap_ssyr -#define ATL_F77wrap_sspr2 atl_f77wrap_sspr2 -#define ATL_F77wrap_ssyr2 atl_f77wrap_ssyr2 -#define ATL_F77wrap_stbmv atl_f77wrap_stbmv -#define ATL_F77wrap_stpmv atl_f77wrap_stpmv -#define ATL_F77wrap_strmv atl_f77wrap_strmv -#define ATL_F77wrap_stbsv atl_f77wrap_stbsv -#define ATL_F77wrap_stpsv atl_f77wrap_stpsv -#define ATL_F77wrap_strsv atl_f77wrap_strsv - -#define ATL_F77wrap_sgemm atl_f77wrap_sgemm -#define ATL_F77wrap_ssymm atl_f77wrap_ssymm -#define ATL_F77wrap_ssyrk atl_f77wrap_ssyrk -#define ATL_F77wrap_ssyr2k atl_f77wrap_ssyr2k -#define ATL_F77wrap_strmm atl_f77wrap_strmm -#define ATL_F77wrap_strsm atl_f77wrap_strsm - -#elif defined( DREAL ) - -#define ATL_F77wrap_drotg atl_f77wrap_drotg -#define ATL_F77wrap_drotmg atl_f77wrap_drotmg -#define ATL_F77wrap_dnrm2 atl_f77wrap_dnrm2 -#define ATL_F77wrap_dasum atl_f77wrap_dasum -#define ATL_F77wrap_dscal atl_f77wrap_dscal -#define ATL_F77wrap_idamax atl_f77wrap_idamax -#define ATL_F77wrap_daxpy atl_f77wrap_daxpy -#define ATL_F77wrap_dcopy atl_f77wrap_dcopy -#define ATL_F77wrap_dswap atl_f77wrap_dswap -#define ATL_F77wrap_drot atl_f77wrap_drot -#define ATL_F77wrap_drotm atl_f77wrap_drotm -#define ATL_F77wrap_ddot atl_f77wrap_ddot - -#define ATL_F77wrap_dgbmv atl_f77wrap_dgbmv -#define ATL_F77wrap_dgemv atl_f77wrap_dgemv -#define ATL_F77wrap_dger atl_f77wrap_dger -#define ATL_F77wrap_dsbmv atl_f77wrap_dsbmv -#define ATL_F77wrap_dspmv atl_f77wrap_dspmv -#define ATL_F77wrap_dsymv atl_f77wrap_dsymv -#define ATL_F77wrap_dspr atl_f77wrap_dspr -#define ATL_F77wrap_dsyr atl_f77wrap_dsyr -#define ATL_F77wrap_dspr2 atl_f77wrap_dspr2 -#define ATL_F77wrap_dsyr2 atl_f77wrap_dsyr2 -#define ATL_F77wrap_dtbmv atl_f77wrap_dtbmv -#define ATL_F77wrap_dtpmv atl_f77wrap_dtpmv -#define ATL_F77wrap_dtrmv atl_f77wrap_dtrmv -#define ATL_F77wrap_dtbsv atl_f77wrap_dtbsv -#define ATL_F77wrap_dtpsv atl_f77wrap_dtpsv -#define ATL_F77wrap_dtrsv atl_f77wrap_dtrsv - -#define ATL_F77wrap_dgemm atl_f77wrap_dgemm -#define ATL_F77wrap_dsymm atl_f77wrap_dsymm -#define ATL_F77wrap_dsyrk atl_f77wrap_dsyrk -#define ATL_F77wrap_dsyr2k atl_f77wrap_dsyr2k -#define ATL_F77wrap_dtrmm atl_f77wrap_dtrmm -#define ATL_F77wrap_dtrsm atl_f77wrap_dtrsm - -#elif defined( SCPLX ) - -#define ATL_F77wrap_crotg atl_f77wrap_crotg -#define ATL_F77wrap_scnrm2 atl_f77wrap_scnrm2 -#define ATL_F77wrap_scasum atl_f77wrap_scasum -#define ATL_F77wrap_cscal atl_f77wrap_cscal -#define ATL_F77wrap_csscal atl_f77wrap_csscal -#define ATL_F77wrap_icamax atl_f77wrap_icamax -#define ATL_F77wrap_caxpy atl_f77wrap_caxpy -#define ATL_F77wrap_ccopy atl_f77wrap_ccopy -#define ATL_F77wrap_cswap atl_f77wrap_cswap -#define ATL_F77wrap_csrot atl_f77wrap_csrot -#define ATL_F77wrap_cdotc atl_f77wrap_cdotc -#define ATL_F77wrap_cdotu atl_f77wrap_cdotu - -#define ATL_F77wrap_cgbmv atl_f77wrap_cgbmv -#define ATL_F77wrap_cgemv atl_f77wrap_cgemv -#define ATL_F77wrap_cgerc atl_f77wrap_cgerc -#define ATL_F77wrap_cgeru atl_f77wrap_cgeru -#define ATL_F77wrap_chbmv atl_f77wrap_chbmv -#define ATL_F77wrap_chpmv atl_f77wrap_chpmv -#define ATL_F77wrap_chemv atl_f77wrap_chemv -#define ATL_F77wrap_chpr atl_f77wrap_chpr -#define ATL_F77wrap_cher atl_f77wrap_cher -#define ATL_F77wrap_chpr2 atl_f77wrap_chpr2 -#define ATL_F77wrap_cher2 atl_f77wrap_cher2 -#define ATL_F77wrap_ctbmv atl_f77wrap_ctbmv -#define ATL_F77wrap_ctpmv atl_f77wrap_ctpmv -#define ATL_F77wrap_ctrmv atl_f77wrap_ctrmv -#define ATL_F77wrap_ctbsv atl_f77wrap_ctbsv -#define ATL_F77wrap_ctpsv atl_f77wrap_ctpsv -#define ATL_F77wrap_ctrsv atl_f77wrap_ctrsv - -#define ATL_F77wrap_cgemm atl_f77wrap_cgemm -#define ATL_F77wrap_chemm atl_f77wrap_chemm -#define ATL_F77wrap_cherk atl_f77wrap_cherk -#define ATL_F77wrap_cher2k atl_f77wrap_cher2k -#define ATL_F77wrap_csymm atl_f77wrap_csymm -#define ATL_F77wrap_csyrk atl_f77wrap_csyrk -#define ATL_F77wrap_csyr2k atl_f77wrap_csyr2k -#define ATL_F77wrap_ctrmm atl_f77wrap_ctrmm -#define ATL_F77wrap_ctrsm atl_f77wrap_ctrsm - -#elif defined( DCPLX ) - -#define ATL_F77wrap_zrotg atl_f77wrap_zrotg -#define ATL_F77wrap_dznrm2 atl_f77wrap_dznrm2 -#define ATL_F77wrap_dzasum atl_f77wrap_dzasum -#define ATL_F77wrap_zscal atl_f77wrap_zscal -#define ATL_F77wrap_zdscal atl_f77wrap_zdscal -#define ATL_F77wrap_izamax atl_f77wrap_izamax -#define ATL_F77wrap_zaxpy atl_f77wrap_zaxpy -#define ATL_F77wrap_zcopy atl_f77wrap_zcopy -#define ATL_F77wrap_zswap atl_f77wrap_zswap -#define ATL_F77wrap_zdrot atl_f77wrap_zdrot -#define ATL_F77wrap_zdotc atl_f77wrap_zdotc -#define ATL_F77wrap_zdotu atl_f77wrap_zdotu - -#define ATL_F77wrap_zgbmv atl_f77wrap_zgbmv -#define ATL_F77wrap_zgemv atl_f77wrap_zgemv -#define ATL_F77wrap_zgerc atl_f77wrap_zgerc -#define ATL_F77wrap_zgeru atl_f77wrap_zgeru -#define ATL_F77wrap_zhbmv atl_f77wrap_zhbmv -#define ATL_F77wrap_zhpmv atl_f77wrap_zhpmv -#define ATL_F77wrap_zhemv atl_f77wrap_zhemv -#define ATL_F77wrap_zhpr atl_f77wrap_zhpr -#define ATL_F77wrap_zher atl_f77wrap_zher -#define ATL_F77wrap_zhpr2 atl_f77wrap_zhpr2 -#define ATL_F77wrap_zher2 atl_f77wrap_zher2 -#define ATL_F77wrap_ztbmv atl_f77wrap_ztbmv -#define ATL_F77wrap_ztpmv atl_f77wrap_ztpmv -#define ATL_F77wrap_ztrmv atl_f77wrap_ztrmv -#define ATL_F77wrap_ztbsv atl_f77wrap_ztbsv -#define ATL_F77wrap_ztpsv atl_f77wrap_ztpsv -#define ATL_F77wrap_ztrsv atl_f77wrap_ztrsv - -#define ATL_F77wrap_zgemm atl_f77wrap_zgemm -#define ATL_F77wrap_zhemm atl_f77wrap_zhemm -#define ATL_F77wrap_zherk atl_f77wrap_zherk -#define ATL_F77wrap_zher2k atl_f77wrap_zher2k -#define ATL_F77wrap_zsymm atl_f77wrap_zsymm -#define ATL_F77wrap_zsyrk atl_f77wrap_zsyrk -#define ATL_F77wrap_zsyr2k atl_f77wrap_zsyr2k -#define ATL_F77wrap_ztrmm atl_f77wrap_ztrmm -#define ATL_F77wrap_ztrsm atl_f77wrap_ztrsm - -#endif - -#elif defined( Add__ ) -/* - * These defines set up the naming scheme required to have a FORTRAN - * routine calling a C routine with the following interface: - * - * FORTRAN CALL C declaration - * CALL ATL_F77WRAP_SGEMM(...) void atl_f77wrap_sgemm__(...) - */ -#if defined( SREAL ) - -#define ATL_F77wrap_srotg atl_f77wrap_srotg__ -#define ATL_F77wrap_srotmg atl_f77wrap_srotmg__ -#define ATL_F77wrap_snrm2 atl_f77wrap_snrm2__ -#define ATL_F77wrap_sasum atl_f77wrap_sasum__ -#define ATL_F77wrap_sscal atl_f77wrap_sscal__ -#define ATL_F77wrap_isamax atl_f77wrap_isamax__ -#define ATL_F77wrap_saxpy atl_f77wrap_saxpy__ -#define ATL_F77wrap_scopy atl_f77wrap_scopy__ -#define ATL_F77wrap_sswap atl_f77wrap_sswap__ -#define ATL_F77wrap_srot atl_f77wrap_srot__ -#define ATL_F77wrap_srotm atl_f77wrap_srotm__ -#define ATL_F77wrap_sdot atl_f77wrap_sdot__ -#define ATL_F77wrap_dsdot atl_f77wrap_dsdot__ -#define ATL_F77wrap_sdsdot atl_f77wrap_sdsdot__ - -#define ATL_F77wrap_sgbmv atl_f77wrap_sgbmv__ -#define ATL_F77wrap_sgemv atl_f77wrap_sgemv__ -#define ATL_F77wrap_sger atl_f77wrap_sger__ -#define ATL_F77wrap_ssbmv atl_f77wrap_ssbmv__ -#define ATL_F77wrap_sspmv atl_f77wrap_sspmv__ -#define ATL_F77wrap_ssymv atl_f77wrap_ssymv__ -#define ATL_F77wrap_sspr atl_f77wrap_sspr__ -#define ATL_F77wrap_ssyr atl_f77wrap_ssyr__ -#define ATL_F77wrap_sspr2 atl_f77wrap_sspr2__ -#define ATL_F77wrap_ssyr2 atl_f77wrap_ssyr2__ -#define ATL_F77wrap_stbmv atl_f77wrap_stbmv__ -#define ATL_F77wrap_stpmv atl_f77wrap_stpmv__ -#define ATL_F77wrap_strmv atl_f77wrap_strmv__ -#define ATL_F77wrap_stbsv atl_f77wrap_stbsv__ -#define ATL_F77wrap_stpsv atl_f77wrap_stpsv__ -#define ATL_F77wrap_strsv atl_f77wrap_strsv__ - -#define ATL_F77wrap_sgemm atl_f77wrap_sgemm__ -#define ATL_F77wrap_ssymm atl_f77wrap_ssymm__ -#define ATL_F77wrap_ssyrk atl_f77wrap_ssyrk__ -#define ATL_F77wrap_ssyr2k atl_f77wrap_ssyr2k__ -#define ATL_F77wrap_strmm atl_f77wrap_strmm__ -#define ATL_F77wrap_strsm atl_f77wrap_strsm__ - -#elif defined( DREAL ) - -#define ATL_F77wrap_drotg atl_f77wrap_drotg__ -#define ATL_F77wrap_drotmg atl_f77wrap_drotmg__ -#define ATL_F77wrap_dnrm2 atl_f77wrap_dnrm2__ -#define ATL_F77wrap_dasum atl_f77wrap_dasum__ -#define ATL_F77wrap_dscal atl_f77wrap_dscal__ -#define ATL_F77wrap_idamax atl_f77wrap_idamax__ -#define ATL_F77wrap_daxpy atl_f77wrap_daxpy__ -#define ATL_F77wrap_dcopy atl_f77wrap_dcopy__ -#define ATL_F77wrap_dswap atl_f77wrap_dswap__ -#define ATL_F77wrap_drot atl_f77wrap_drot__ -#define ATL_F77wrap_drotm atl_f77wrap_drotm__ -#define ATL_F77wrap_ddot atl_f77wrap_ddot__ - -#define ATL_F77wrap_dgbmv atl_f77wrap_dgbmv__ -#define ATL_F77wrap_dgemv atl_f77wrap_dgemv__ -#define ATL_F77wrap_dger atl_f77wrap_dger__ -#define ATL_F77wrap_dsbmv atl_f77wrap_dsbmv__ -#define ATL_F77wrap_dspmv atl_f77wrap_dspmv__ -#define ATL_F77wrap_dsymv atl_f77wrap_dsymv__ -#define ATL_F77wrap_dspr atl_f77wrap_dspr__ -#define ATL_F77wrap_dsyr atl_f77wrap_dsyr__ -#define ATL_F77wrap_dspr2 atl_f77wrap_dspr2__ -#define ATL_F77wrap_dsyr2 atl_f77wrap_dsyr2__ -#define ATL_F77wrap_dtbmv atl_f77wrap_dtbmv__ -#define ATL_F77wrap_dtpmv atl_f77wrap_dtpmv__ -#define ATL_F77wrap_dtrmv atl_f77wrap_dtrmv__ -#define ATL_F77wrap_dtbsv atl_f77wrap_dtbsv__ -#define ATL_F77wrap_dtpsv atl_f77wrap_dtpsv__ -#define ATL_F77wrap_dtrsv atl_f77wrap_dtrsv__ - -#define ATL_F77wrap_dgemm atl_f77wrap_dgemm__ -#define ATL_F77wrap_dsymm atl_f77wrap_dsymm__ -#define ATL_F77wrap_dsyrk atl_f77wrap_dsyrk__ -#define ATL_F77wrap_dsyr2k atl_f77wrap_dsyr2k__ -#define ATL_F77wrap_dtrmm atl_f77wrap_dtrmm__ -#define ATL_F77wrap_dtrsm atl_f77wrap_dtrsm__ - -#elif defined( SCPLX ) - -#define ATL_F77wrap_crotg atl_f77wrap_crotg__ -#define ATL_F77wrap_scnrm2 atl_f77wrap_scnrm2__ -#define ATL_F77wrap_scasum atl_f77wrap_scasum__ -#define ATL_F77wrap_cscal atl_f77wrap_cscal__ -#define ATL_F77wrap_csscal atl_f77wrap_csscal__ -#define ATL_F77wrap_icamax atl_f77wrap_icamax__ -#define ATL_F77wrap_caxpy atl_f77wrap_caxpy__ -#define ATL_F77wrap_ccopy atl_f77wrap_ccopy__ -#define ATL_F77wrap_cswap atl_f77wrap_cswap__ -#define ATL_F77wrap_csrot atl_f77wrap_csrot__ -#define ATL_F77wrap_cdotc atl_f77wrap_cdotc__ -#define ATL_F77wrap_cdotu atl_f77wrap_cdotu__ - -#define ATL_F77wrap_cgbmv atl_f77wrap_cgbmv__ -#define ATL_F77wrap_cgemv atl_f77wrap_cgemv__ -#define ATL_F77wrap_cgerc atl_f77wrap_cgerc__ -#define ATL_F77wrap_cgeru atl_f77wrap_cgeru__ -#define ATL_F77wrap_chbmv atl_f77wrap_chbmv__ -#define ATL_F77wrap_chpmv atl_f77wrap_chpmv__ -#define ATL_F77wrap_chemv atl_f77wrap_chemv__ -#define ATL_F77wrap_chpr atl_f77wrap_chpr__ -#define ATL_F77wrap_cher atl_f77wrap_cher__ -#define ATL_F77wrap_chpr2 atl_f77wrap_chpr2__ -#define ATL_F77wrap_cher2 atl_f77wrap_cher2__ -#define ATL_F77wrap_ctbmv atl_f77wrap_ctbmv__ -#define ATL_F77wrap_ctpmv atl_f77wrap_ctpmv__ -#define ATL_F77wrap_ctrmv atl_f77wrap_ctrmv__ -#define ATL_F77wrap_ctbsv atl_f77wrap_ctbsv__ -#define ATL_F77wrap_ctpsv atl_f77wrap_ctpsv__ -#define ATL_F77wrap_ctrsv atl_f77wrap_ctrsv__ - -#define ATL_F77wrap_cgemm atl_f77wrap_cgemm__ -#define ATL_F77wrap_chemm atl_f77wrap_chemm__ -#define ATL_F77wrap_cherk atl_f77wrap_cherk__ -#define ATL_F77wrap_cher2k atl_f77wrap_cher2k__ -#define ATL_F77wrap_csymm atl_f77wrap_csymm__ -#define ATL_F77wrap_csyrk atl_f77wrap_csyrk__ -#define ATL_F77wrap_csyr2k atl_f77wrap_csyr2k__ -#define ATL_F77wrap_ctrmm atl_f77wrap_ctrmm__ -#define ATL_F77wrap_ctrsm atl_f77wrap_ctrsm__ - -#elif defined( DCPLX ) - -#define ATL_F77wrap_zrotg atl_f77wrap_zrotg__ -#define ATL_F77wrap_dznrm2 atl_f77wrap_dznrm2__ -#define ATL_F77wrap_dzasum atl_f77wrap_dzasum__ -#define ATL_F77wrap_zscal atl_f77wrap_zscal__ -#define ATL_F77wrap_zdscal atl_f77wrap_zdscal__ -#define ATL_F77wrap_izamax atl_f77wrap_izamax__ -#define ATL_F77wrap_zaxpy atl_f77wrap_zaxpy__ -#define ATL_F77wrap_zcopy atl_f77wrap_zcopy__ -#define ATL_F77wrap_zswap atl_f77wrap_zswap__ -#define ATL_F77wrap_zdrot atl_f77wrap_zdrot__ -#define ATL_F77wrap_zdotc atl_f77wrap_zdotc__ -#define ATL_F77wrap_zdotu atl_f77wrap_zdotu__ - -#define ATL_F77wrap_zgbmv atl_f77wrap_zgbmv__ -#define ATL_F77wrap_zgemv atl_f77wrap_zgemv__ -#define ATL_F77wrap_zgerc atl_f77wrap_zgerc__ -#define ATL_F77wrap_zgeru atl_f77wrap_zgeru__ -#define ATL_F77wrap_zhbmv atl_f77wrap_zhbmv__ -#define ATL_F77wrap_zhpmv atl_f77wrap_zhpmv__ -#define ATL_F77wrap_zhemv atl_f77wrap_zhemv__ -#define ATL_F77wrap_zhpr atl_f77wrap_zhpr__ -#define ATL_F77wrap_zher atl_f77wrap_zher__ -#define ATL_F77wrap_zhpr2 atl_f77wrap_zhpr2__ -#define ATL_F77wrap_zher2 atl_f77wrap_zher2__ -#define ATL_F77wrap_ztbmv atl_f77wrap_ztbmv__ -#define ATL_F77wrap_ztpmv atl_f77wrap_ztpmv__ -#define ATL_F77wrap_ztrmv atl_f77wrap_ztrmv__ -#define ATL_F77wrap_ztbsv atl_f77wrap_ztbsv__ -#define ATL_F77wrap_ztpsv atl_f77wrap_ztpsv__ -#define ATL_F77wrap_ztrsv atl_f77wrap_ztrsv__ - -#define ATL_F77wrap_zgemm atl_f77wrap_zgemm__ -#define ATL_F77wrap_zhemm atl_f77wrap_zhemm__ -#define ATL_F77wrap_zherk atl_f77wrap_zherk__ -#define ATL_F77wrap_zher2k atl_f77wrap_zher2k__ -#define ATL_F77wrap_zsymm atl_f77wrap_zsymm__ -#define ATL_F77wrap_zsyrk atl_f77wrap_zsyrk__ -#define ATL_F77wrap_zsyr2k atl_f77wrap_zsyr2k__ -#define ATL_F77wrap_ztrmm atl_f77wrap_ztrmm__ -#define ATL_F77wrap_ztrsm atl_f77wrap_ztrsm__ - -#endif - -#endif -/* - * ===================================================================== - * Prototypes for F77 interface wrappers ATLAS BLAS routines - * ===================================================================== - */ -void Mjoin( PATLF77WRAP, rotg ) -( TYPE *, TYPE *, TYPE *, TYPE * ); -#ifdef TREAL -void Mjoin( PATLF77WRAP, rotmg ) -( TYPE *, TYPE *, TYPE *, TYPE *, - TYPE * ); -#endif -void Mjoin( ATLUPF77WRAP, nrm2 ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE * ); -void Mjoin( ATLUPF77WRAP, asum ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE * ); -void Mjoin( PATLF77WRAP, scal ) -( F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER * ); -#ifdef TCPLX -void Mjoin( ATLPUF77WRAP, scal ) -( F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER * ); -#endif -void Mjoin( Mjoin( ATL_F77wrap_i, PRE ), amax ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, axpy ) -( F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER *, - TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, copy ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, swap ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -void Mjoin( ATLPUF77WRAP, rot ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE *, TYPE * ); -#ifdef TREAL -void Mjoin( PATLF77WRAP, rotm ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE * ); -#endif -#ifdef TREAL -void Mjoin( PATLF77WRAP, dot ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE * ); -#else -void Mjoin( PATLF77WRAP, dotc ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE * ); -void Mjoin( PATLF77WRAP, dotu ) -( F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE * ); -#endif -void ATL_F77wrap_dsdot -( F77_INTEGER *, float *, F77_INTEGER *, float *, - F77_INTEGER *, double * ); -void ATL_F77wrap_sdsdot -( F77_INTEGER *, float *, float *, F77_INTEGER *, - float *, F77_INTEGER *, float * ); - -void Mjoin( PATLF77WRAP, gbmv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER *, - TYPE *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, gemv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, TYPE *, - TYPE *, F77_INTEGER *, TYPE *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER * ); -#ifdef TREAL -void Mjoin( PATLF77WRAP, ger ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, sbmv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, TYPE *, - TYPE *, F77_INTEGER *, TYPE *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, spmv ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - TYPE *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, symv ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, spr ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE * ); -void Mjoin( PATLF77WRAP, syr ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, spr2 ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE * ); -void Mjoin( PATLF77WRAP, syr2 ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -#else -void Mjoin( PATLF77WRAP, gerc ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, geru ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, hbmv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, TYPE *, - TYPE *, F77_INTEGER *, TYPE *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, hpmv ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - TYPE *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, hemv ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, hpr ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE * ); -void Mjoin( PATLF77WRAP, her ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, hpr2 ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE * ); -void Mjoin( PATLF77WRAP, her2 ) -( F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -#endif -void Mjoin( PATLF77WRAP, tbmv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, tpmv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, trmv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, F77_INTEGER *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, tbsv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - F77_INTEGER *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER * ); -void Mjoin( PATLF77WRAP, tpsv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, trsv ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, F77_INTEGER *, TYPE *, F77_INTEGER * ); - -void Mjoin( PATLF77WRAP, gemm ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER *, - TYPE *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER * ); -#ifdef TCPLX -void Mjoin( PATLF77WRAP, hemm ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, herk ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER *, TYPE *, - TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, her2k ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER * ); -#endif -void Mjoin( PATLF77WRAP, symm ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, syrk ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER *, TYPE *, - TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, syr2k ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - TYPE *, TYPE *, F77_INTEGER *, TYPE *, - F77_INTEGER *, TYPE *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, trmm ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER * ); -void Mjoin( PATLF77WRAP, trsm ) -( F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, F77_INTEGER *, - F77_INTEGER *, F77_INTEGER *, TYPE *, TYPE *, - F77_INTEGER *, TYPE *, F77_INTEGER * ); - -#endif -/* - * End of atlas_f77wrap.h - */ |