c_zblas1.c

/*
 * c_zblas1.c
 *
 * The program is a C wrapper for zcblat1.
 *
 * Written by Keita Teranishi. 2/11/1998
 *
 */
#include"cblas_test.h"
#include"cblas.h"
voidF77_zaxpy(constint*N, constvoid*alpha, void*X,
constint*incX, void*Y, constint*incY)
{
cblas_zaxpy(*N, alpha, X, *incX, Y, *incY);
return;
}

voidF77_zcopy(constint*N, void*X, constint*incX,
void*Y, constint*incY)
{
cblas_zcopy(*N, X, *incX, Y, *incY);
return;
}

voidF77_zdotc(constint*N, constvoid*X, constint*incX,
constvoid*Y, constint*incY,void*dotc)
{
cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
return;
}

voidF77_zdotu(constint*N, void*X, constint*incX,
void*Y, constint*incY,void*dotu)
{
cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);
return;
}

voidF77_zdscal(constint*N, constdouble*alpha, void*X,
constint*incX)
{
cblas_zdscal(*N, *alpha, X, *incX);
return;
}

voidF77_zscal(constint*N, constvoid**alpha, void*X,
constint*incX)
{
cblas_zscal(*N, alpha, X, *incX);
return;
}

voidF77_zswap( constint*N, void*X, constint*incX,
void*Y, constint*incY)
{
cblas_zswap(*N,X,*incX,Y,*incY);
return;
}

intF77_izamax(constint*N, constvoid*X, constint*incX)
{
if (*N<1||*incX<1) return(0);
return(cblas_izamax(*N, X, *incX)+1);
}

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

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