/*********************************************************************/

/* Copyright 2009, 2010 The University of Texas at Austin.           */

/* All rights reserved.                                              */

/*                                                                   */

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

/*                                                                   */

/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */

/*    AUSTIN  ``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  OF TEXAS AT    */

/*    AUSTIN OR 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.                                    */

/*                                                                   */

/* The views and conclusions contained in the software and           */

/* documentation are those of the authors and should not be          */

/* interpreted as representing official policies, either expressed   */

/* or implied, of The University of Texas at Austin.                 */

/*********************************************************************/

#ifndef ASSEMBLER

#ifdef __CUDACC__

extern "C" {

#endif

float   sdot_k(BLASLONG, float   *, BLASLONG, float   *, BLASLONG);

double dsdot_k(BLASLONG, float   *, BLASLONG, float *, BLASLONG);

double  ddot_k(BLASLONG, double  *, BLASLONG, double  *, BLASLONG);

xdouble qdot_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

float   _Complex cdotc_k (BLASLONG, float  *, BLASLONG, float  *, BLASLONG);

float   _Complex cdotu_k (BLASLONG, float  *, BLASLONG, float  *, BLASLONG);

double  _Complex zdotc_k (BLASLONG, double *, BLASLONG, double *, BLASLONG);

double  _Complex zdotu_k (BLASLONG, double *, BLASLONG, double *, BLASLONG);

xdouble _Complex xdotc_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

xdouble _Complex xdotu_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

int    saxpy_k (BLASLONG, BLASLONG, BLASLONG, float, 

	       float  *, BLASLONG, float  *, BLASLONG, float  *, BLASLONG);

int    daxpy_k (BLASLONG, BLASLONG, BLASLONG, double, 

	       double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);

int    qaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble, 

	       xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

int    caxpy_k (BLASLONG, BLASLONG, BLASLONG, float,  float,

	       float  *, BLASLONG, float  *, BLASLONG, float  *, BLASLONG);

int    zaxpy_k (BLASLONG, BLASLONG, BLASLONG, double, double,

	       double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);

int    xaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,

	       xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

int    caxpyc_k (BLASLONG, BLASLONG, BLASLONG, float,  float,

	       float  *, BLASLONG, float  *, BLASLONG, float  *, BLASLONG);

int    zaxpyc_k (BLASLONG, BLASLONG, BLASLONG, double, double,

	       double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);

int    xaxpyc_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,

	       xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

int    scopy_k(BLASLONG, float  *, BLASLONG, float  *, BLASLONG);

int    dcopy_k(BLASLONG, double *, BLASLONG, double *, BLASLONG);

int    qcopy_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

int    ccopy_k(BLASLONG, float  *, BLASLONG, float  *, BLASLONG);

int    zcopy_k(BLASLONG, double *, BLASLONG, double *, BLASLONG);

int    xcopy_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

int    sswap_k (BLASLONG, BLASLONG, BLASLONG, float, 

	       float  *, BLASLONG, float  *, BLASLONG, float *, BLASLONG);

int    dswap_k (BLASLONG, BLASLONG, BLASLONG, double, 

	       double *, BLASLONG, double *, BLASLONG, double*, BLASLONG);

int    qswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble, 

	       xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble*, BLASLONG);

int    cswap_k (BLASLONG, BLASLONG, BLASLONG, float,  float,

	       float  *, BLASLONG, float  *, BLASLONG, float *, BLASLONG);

int    zswap_k (BLASLONG, BLASLONG, BLASLONG, double, double,

	       double *, BLASLONG, double *, BLASLONG, double*, BLASLONG);

int    xswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,

	       xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble*, BLASLONG);

float   sasum_k (BLASLONG, float  *, BLASLONG);

double  dasum_k (BLASLONG, double *, BLASLONG);

xdouble qasum_k (BLASLONG, xdouble *, BLASLONG);

float   casum_k (BLASLONG, float  *, BLASLONG);

double  zasum_k (BLASLONG, double *, BLASLONG);

xdouble xasum_k (BLASLONG, xdouble *, BLASLONG);

float   samax_k (BLASLONG, float  *, BLASLONG);

double  damax_k (BLASLONG, double *, BLASLONG);

xdouble qamax_k (BLASLONG, xdouble *, BLASLONG);

float   camax_k (BLASLONG, float  *, BLASLONG);

double  zamax_k (BLASLONG, double *, BLASLONG);

xdouble xamax_k (BLASLONG, xdouble *, BLASLONG);

float   samin_k (BLASLONG, float  *, BLASLONG);

double  damin_k (BLASLONG, double *, BLASLONG);

xdouble qamin_k (BLASLONG, xdouble *, BLASLONG);

float   camin_k (BLASLONG, float  *, BLASLONG);

double  zamin_k (BLASLONG, double *, BLASLONG);

xdouble xamin_k (BLASLONG, xdouble *, BLASLONG);

BLASLONG   isamax_k(BLASLONG, float  *, BLASLONG);

BLASLONG   idamax_k(BLASLONG, double *, BLASLONG);

BLASLONG   iqamax_k(BLASLONG, xdouble *, BLASLONG);

BLASLONG   icamax_k(BLASLONG, float  *, BLASLONG);

BLASLONG   izamax_k(BLASLONG, double *, BLASLONG);

BLASLONG   ixamax_k(BLASLONG, xdouble *, BLASLONG);

BLASLONG   isamin_k(BLASLONG, float  *, BLASLONG);

BLASLONG   idamin_k(BLASLONG, double *, BLASLONG);

BLASLONG   iqamin_k(BLASLONG, xdouble *, BLASLONG);

BLASLONG   icamin_k(BLASLONG, float  *, BLASLONG);

BLASLONG   izamin_k(BLASLONG, double *, BLASLONG);

BLASLONG   ixamin_k(BLASLONG, xdouble *, BLASLONG);

float   smax_k (BLASLONG, float  *, BLASLONG);

double  dmax_k (BLASLONG, double *, BLASLONG);

xdouble qmax_k (BLASLONG, xdouble *, BLASLONG);

float   cmax_k (BLASLONG, float  *, BLASLONG);

double  zmax_k (BLASLONG, double *, BLASLONG);

xdouble xmax_k (BLASLONG, xdouble *, BLASLONG);

float   smin_k (BLASLONG, float  *, BLASLONG);

double  dmin_k (BLASLONG, double *, BLASLONG);

xdouble qmin_k (BLASLONG, xdouble *, BLASLONG);

float   cmin_k (BLASLONG, float  *, BLASLONG);

double  zmin_k (BLASLONG, double *, BLASLONG);

xdouble xmin_k (BLASLONG, xdouble *, BLASLONG);

BLASLONG   ismax_k(BLASLONG, float  *, BLASLONG);

BLASLONG   idmax_k(BLASLONG, double *, BLASLONG);

BLASLONG   iqmax_k(BLASLONG, xdouble *, BLASLONG);

BLASLONG   icmax_k(BLASLONG, float  *, BLASLONG);

BLASLONG   izmax_k(BLASLONG, double *, BLASLONG);

BLASLONG   ixmax_k(BLASLONG, xdouble *, BLASLONG);

BLASLONG   ismin_k(BLASLONG, float  *, BLASLONG);

BLASLONG   idmin_k(BLASLONG, double *, BLASLONG);

BLASLONG   iqmin_k(BLASLONG, xdouble *, BLASLONG);

BLASLONG   icmin_k(BLASLONG, float  *, BLASLONG);

BLASLONG   izmin_k(BLASLONG, double *, BLASLONG);

BLASLONG   ixmin_k(BLASLONG, xdouble *, BLASLONG);

int    sscal_k(BLASLONG, BLASLONG, BLASLONG, float, 

	      float *, BLASLONG, float *, BLASLONG,  float  *, BLASLONG);

int    dscal_k(BLASLONG, BLASLONG, BLASLONG, double, 

	      double *, BLASLONG, double *, BLASLONG,  double  *, BLASLONG);

int    qscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, 

	      xdouble *, BLASLONG, xdouble *, BLASLONG,  xdouble  *, BLASLONG);

int    cscal_k(BLASLONG, BLASLONG, BLASLONG, float, float,

	      float *, BLASLONG, float *, BLASLONG,  float  *, BLASLONG);

int    zscal_k(BLASLONG, BLASLONG, BLASLONG, double, double,

	      double *, BLASLONG, double *, BLASLONG,  double  *, BLASLONG);

int    xscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,

	      xdouble *, BLASLONG, xdouble *, BLASLONG,  xdouble  *, BLASLONG);

int    csscal_k(BLASLONG, BLASLONG, BLASLONG, float, float,

	       float *, BLASLONG, float *, BLASLONG,  float  *, BLASLONG);

int    zdscal_k(BLASLONG, BLASLONG, BLASLONG, double, double,

	       double *, BLASLONG, double *, BLASLONG,  double  *, BLASLONG);

int    xqscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,

	       xdouble *, BLASLONG, xdouble *, BLASLONG,  xdouble  *, BLASLONG);

float   snrm2_k(BLASLONG, float   *, BLASLONG);

double  dnrm2_k(BLASLONG, double  *, BLASLONG);

xdouble qnrm2_k(BLASLONG, xdouble *, BLASLONG);

float   cnrm2_k(BLASLONG, float   *, BLASLONG);

double  znrm2_k(BLASLONG, double  *, BLASLONG);

xdouble xnrm2_k(BLASLONG, xdouble *, BLASLONG);

int    srot_k (BLASLONG, float  *, BLASLONG, float  *, BLASLONG, float , float );

int    drot_k (BLASLONG, double *, BLASLONG, double *, BLASLONG, double, double);

int    qrot_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble);

int    csrot_k(BLASLONG, float  *, BLASLONG, float  *, BLASLONG, float , float );

int    zdrot_k(BLASLONG, double *, BLASLONG, double *, BLASLONG, double, double);

int    xqrot_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble);

int    srotg_k(float  *, float  *, float  *, float  *);

int    drotg_k(double *, double *, double *, double *);

int    qrotg_k(xdouble *, xdouble *, xdouble *, xdouble *);

int    csrotg_k(float  *, float  *, float  *, float  *);

int    zdrotg_k(double *, double *, double *, double *);

int    xqrotg_k(xdouble *, xdouble *, xdouble *, xdouble *);

int    srotmg_k(float  *, float  *, float  *, float  *, float  *);

int    drotmg_k(double *, double *, double *, double *, double *);

int    qrotmg_k(xdouble *, xdouble *, xdouble *, xdouble *, xdouble *);

int    srotm_k (BLASLONG, float,  BLASLONG, float,  BLASLONG, float);

int    drotm_k (BLASLONG, double, BLASLONG, double, BLASLONG, double);

int    qrotm_k (BLASLONG, xdouble, BLASLONG, xdouble, BLASLONG, xdouble);

#ifdef __CUDACC__

}

#endif

#endif