kusano 2b45e8
/*****************************************************************************
kusano 2b45e8
Copyright (c) 2011, Lab of Parallel Software and Computational Science,ICSAS
kusano 2b45e8
All rights reserved.
kusano 2b45e8
kusano 2b45e8
Redistribution and use in source and binary forms, with or without
kusano 2b45e8
modification, are permitted provided that the following conditions are
kusano 2b45e8
met:
kusano 2b45e8
kusano 2b45e8
   1. Redistributions of source code must retain the above copyright
kusano 2b45e8
      notice, this list of conditions and the following disclaimer.
kusano 2b45e8
kusano 2b45e8
   2. Redistributions in binary form must reproduce the above copyright
kusano 2b45e8
      notice, this list of conditions and the following disclaimer in
kusano 2b45e8
      the documentation and/or other materials provided with the
kusano 2b45e8
      distribution.
kusano 2b45e8
   3. Neither the name of the ISCAS nor the names of its contributors may 
kusano 2b45e8
      be used to endorse or promote products derived from this software 
kusano 2b45e8
      without specific prior written permission.
kusano 2b45e8
kusano 2b45e8
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
kusano 2b45e8
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
kusano 2b45e8
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
kusano 2b45e8
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE 
kusano 2b45e8
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 
kusano 2b45e8
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 
kusano 2b45e8
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 
kusano 2b45e8
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 
kusano 2b45e8
OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE 
kusano 2b45e8
USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
kusano 2b45e8
kusano 2b45e8
**********************************************************************************/
kusano 2b45e8
#ifndef ASSEMBLER
kusano 2b45e8
kusano 2b45e8
#define REF_BU f
kusano 2b45e8
#define BLASFUNC_REF_2(x,y) BLASFUNC(x## y)
kusano 2b45e8
#define BLASFUNC_REF_1(x,y) BLASFUNC_REF_2(x,y)
kusano 2b45e8
#define BLASFUNC_REF(x) BLASFUNC_REF_1(x,REF_BU)
kusano 2b45e8
kusano 2b45e8
void  BLASFUNC_REF(srot)  (blasint *, float  *, blasint *, float  *, blasint *, float  *, float  *);
kusano 2b45e8
void  BLASFUNC_REF(drot)  (blasint *, double *, blasint *, double *, blasint *, double *, double *);
kusano 2b45e8
void  BLASFUNC_REF(qrot)  (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
kusano 2b45e8
void  BLASFUNC_REF(csrot) (blasint *, float  *, blasint *, float  *, blasint *, float  *, float  *);
kusano 2b45e8
void  BLASFUNC_REF(zdrot) (blasint *, double *, blasint *, double *, blasint *, double *, double *);
kusano 2b45e8
void  BLASFUNC_REF(xqrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
kusano 2b45e8
kusano 2b45e8
void BLASFUNC_REF(sswap) (blasint *, float  *, blasint *, float  *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(dswap) (blasint *, double *, blasint *, double *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(qswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(cswap) (blasint *, float  *, blasint *, float  *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(zswap) (blasint *, double *, blasint *, double *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(xswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
kusano 2b45e8
kusano 2b45e8
void BLASFUNC_REF(saxpy) (blasint *, float  *, float  *, blasint *, float  *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(daxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(caxpy) (blasint *, float  *, float  *, blasint *, float  *, blasint *);
kusano 2b45e8
void BLASFUNC_REF(zaxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
kusano 2b45e8
kusano 2b45e8
float   _Complex BLASFUNC_REF(cdotu)  (blasint *, float  *, blasint *, float  *, blasint *);
kusano 2b45e8
float   _Complex BLASFUNC_REF(cdotc)  (blasint *, float  *, blasint *, float  *, blasint *);
kusano 2b45e8
double  _Complex BLASFUNC_REF(zdotu)  (blasint *, double  *, blasint *, double  *, blasint *);
kusano 2b45e8
double  _Complex BLASFUNC_REF(zdotc)  (blasint *, double  *, blasint *, double  *, blasint *);
kusano 2b45e8
kusano 2b45e8
void BLASFUNC_REF(drotmg)(double *, double *, double *, double *, double *);
kusano 2b45e8
kusano 2b45e8
double BLASFUNC_REF(dsdot)(blasint *, float *, blasint *, float *, blasint*);
kusano 2b45e8
kusano 2b45e8
FLOATRET  BLASFUNC_REF(samax) (blasint *, float  *, blasint *);
kusano 2b45e8
												   
kusano 2b45e8
#endif