c_dblas1.c

/*
 * c_dblas1.c
 *
 * The program is a C wrapper for dcblat1.
 *
 * Written by Keita Teranishi. 2/11/1998
 *
 */
#include"cblas_test.h"
#include"cblas.h"
doubleF77_dasum(constint*N, double*X, constint*incX)
{
returncblas_dasum(*N, X, *incX);
}

voidF77_daxpy(constint*N, constdouble*alpha, constdouble*X,
constint*incX, double*Y, constint*incY)
{
cblas_daxpy(*N, *alpha, X, *incX, Y, *incY);
return;
}

voidF77_dcopy(constint*N, double*X, constint*incX,
double*Y, constint*incY)
{
cblas_dcopy(*N, X, *incX, Y, *incY);
return;
}

doubleF77_ddot(constint*N, constdouble*X, constint*incX,
constdouble*Y, constint*incY)
{
returncblas_ddot(*N, X, *incX, Y, *incY);
}

doubleF77_dnrm2(constint*N, constdouble*X, constint*incX)
{
returncblas_dnrm2(*N, X, *incX);
}

voidF77_drotg( double*a, double*b, double*c, double*s)
{
cblas_drotg(a,b,c,s);
return;
}

voidF77_drot( constint*N, double*X, constint*incX, double*Y,
constint*incY, constdouble*c, constdouble*s)
{

cblas_drot(*N,X,*incX,Y,*incY,*c,*s);
return;
}

voidF77_dscal(constint*N, constdouble*alpha, double*X,
constint*incX)
{
cblas_dscal(*N, *alpha, X, *incX);
return;
}

voidF77_dswap( constint*N, double*X, constint*incX,
double*Y, constint*incY)
{
cblas_dswap(*N,X,*incX,Y,*incY);
return;
}

doubleF77_dzasum(constint*N, void*X, constint*incX)
{
returncblas_dzasum(*N, X, *incX);
}

doubleF77_dznrm2(constint*N, constvoid*X, constint*incX)
{
returncblas_dznrm2(*N, X, *incX);
}

intF77_idamax(constint*N, constdouble*X, constint*incX)
{
if (*N<1||*incX<1) return(0);
return (cblas_idamax(*N, X, *incX)+1);
}