#ifndef ASSEMBLER
#define REF_BU f
#define BLASFUNC_REF_2(x,y) BLASFUNC(x## y)
#define BLASFUNC_REF_1(x,y) BLASFUNC_REF_2(x,y)
#define BLASFUNC_REF(x) BLASFUNC_REF_1(x,REF_BU)
void BLASFUNC_REF(srot) (blasint *, float *, blasint *, float *, blasint *, float *, float *);
void BLASFUNC_REF(drot) (blasint *, double *, blasint *, double *, blasint *, double *, double *);
void BLASFUNC_REF(qrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
void BLASFUNC_REF(csrot) (blasint *, float *, blasint *, float *, blasint *, float *, float *);
void BLASFUNC_REF(zdrot) (blasint *, double *, blasint *, double *, blasint *, double *, double *);
void BLASFUNC_REF(xqrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *);
void BLASFUNC_REF(sswap) (blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(dswap) (blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(qswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC_REF(cswap) (blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(zswap) (blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(xswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC_REF(saxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(daxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(caxpy) (blasint *, float *, float *, blasint *, float *, blasint *);
void BLASFUNC_REF(zaxpy) (blasint *, double *, double *, blasint *, double *, blasint *);
float _Complex BLASFUNC_REF(cdotu) (blasint *, float *, blasint *, float *, blasint *);
float _Complex BLASFUNC_REF(cdotc) (blasint *, float *, blasint *, float *, blasint *);
double _Complex BLASFUNC_REF(zdotu) (blasint *, double *, blasint *, double *, blasint *);
double _Complex BLASFUNC_REF(zdotc) (blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC_REF(drotmg)(double *, double *, double *, double *, double *);
double BLASFUNC_REF(dsdot)(blasint *, float *, blasint *, float *, blasint*);
FLOATRET BLASFUNC_REF(samax) (blasint *, float *, blasint *);
#endif