/* --------------------------------------------------------------------- * * -- 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 */