c_cblas1.c File Reference

#include "cblas_test.h"
#include "cblas.h"

Go to the source code of this file.

Functions
void	F77_caxpy (const int *N, const void *alpha, void *X, const int *incX, void *Y, const int *incY)
void	F77_ccopy (const int *N, void *X, const int *incX, void *Y, const int *incY)
void	F77_cdotc (const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotc)
void	F77_cdotu (const int *N, void *X, const int *incX, void *Y, const int *incY, void *dotu)
void	F77_cscal (const int *N, const void **alpha, void *X, const int *incX)
void	F77_csscal (const int *N, const float *alpha, void *X, const int *incX)
void	F77_cswap (const int *N, void *X, const int *incX, void *Y, const int *incY)
int	F77_icamax (const int *N, const void *X, const int *incX)
float	F77_scnrm2 (const int *N, const void *X, const int *incX)
float	F77_scasum (const int *N, void *X, const int *incX)

Function Documentation

F77_caxpy()

void F77_caxpy	(	const int *	N,
		const void *	alpha,
		void *	X,
		const int *	incX,
		void *	Y,
		const int *	incY )

Definition at line 11 of file c_cblas1.c.

{
   cblas_caxpy(*N, alpha, X, *incX, Y, *incY);
   return;
}

F77_ccopy()

void F77_ccopy	(	const int *	N,
		void *	X,
		const int *	incX,
		void *	Y,
		const int *	incY )

Definition at line 18 of file c_cblas1.c.

{
   cblas_ccopy(*N, X, *incX, Y, *incY);
   return;
}

F77_cdotc()

void F77_cdotc	(	const int *	N,
		void *	X,
		const int *	incX,
		void *	Y,
		const int *	incY,
		void *	dotc )

Definition at line 25 of file c_cblas1.c.

{
   cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
   return;
}

F77_cdotu()

void F77_cdotu	(	const int *	N,
		void *	X,
		const int *	incX,
		void *	Y,
		const int *	incY,
		void *	dotu )

Definition at line 32 of file c_cblas1.c.

{
   cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);
   return;
}

F77_cscal()

void F77_cscal	(	const int *	N,
		const void **	alpha,
		void *	X,
		const int *	incX )

Definition at line 39 of file c_cblas1.c.

{
   cblas_cscal(*N, alpha, X, *incX);
   return;
}

F77_csscal()

void F77_csscal	(	const int *	N,
		const float *	alpha,
		void *	X,
		const int *	incX )

Definition at line 46 of file c_cblas1.c.

{
   cblas_csscal(*N, *alpha, X, *incX);
   return;
}

F77_cswap()

void F77_cswap	(	const int *	N,
		void *	X,
		const int *	incX,
		void *	Y,
		const int *	incY )

Definition at line 53 of file c_cblas1.c.

{
   cblas_cswap(*N,X,*incX,Y,*incY);
   return;
}

F77_icamax()

int F77_icamax	(	const int *	N,
		const void *	X,
		const int *	incX )

Definition at line 60 of file c_cblas1.c.

{
   if (*N < 1 || *incX < 1) return(0);
   return (cblas_icamax(*N, X, *incX)+1);
}

F77_scasum()

float F77_scasum	(	const int *	N,
		void *	X,
		const int *	incX )

Definition at line 71 of file c_cblas1.c.

{
   return cblas_scasum(*N, X, *incX);
}

F77_scnrm2()

float F77_scnrm2	(	const int *	N,
		const void *	X,
		const int *	incX )

Definition at line 66 of file c_cblas1.c.

{
   return cblas_scnrm2(*N, X, *incX);
}