c_dblas1.c File Reference

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

Go to the source code of this file.

Functions
double	F77_dasum (const int *N, double *X, const int *incX)
void	F77_daxpy (const int *N, const double *alpha, const double *X, const int *incX, double *Y, const int *incY)
void	F77_dcopy (const int *N, double *X, const int *incX, double *Y, const int *incY)
double	F77_ddot (const int *N, const double *X, const int *incX, const double *Y, const int *incY)
double	F77_dnrm2 (const int *N, const double *X, const int *incX)
void	F77_drotg (double *a, double *b, double *c, double *s)
void	F77_drot (const int *N, double *X, const int *incX, double *Y, const int *incY, const double *c, const double *s)
void	F77_dscal (const int *N, const double *alpha, double *X, const int *incX)
void	F77_dswap (const int *N, double *X, const int *incX, double *Y, const int *incY)
double	F77_dzasum (const int *N, void *X, const int *incX)
double	F77_dznrm2 (const int *N, const void *X, const int *incX)
int	F77_idamax (const int *N, const double *X, const int *incX)

Function Documentation

F77_dasum()

double F77_dasum	(	const int *	N,
		double *	X,
		const int *	incX )

Definition at line 11 of file c_dblas1.c.

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

F77_daxpy()

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

Definition at line 16 of file c_dblas1.c.

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

F77_dcopy()

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

Definition at line 23 of file c_dblas1.c.

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

F77_ddot()

double F77_ddot	(	const int *	N,
		const double *	X,
		const int *	incX,
		const double *	Y,
		const int *	incY )

Definition at line 30 of file c_dblas1.c.

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

F77_dnrm2()

double F77_dnrm2	(	const int *	N,
		const double *	X,
		const int *	incX )

Definition at line 36 of file c_dblas1.c.

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

F77_drot()

void F77_drot	(	const int *	N,
		double *	X,
		const int *	incX,
		double *	Y,
		const int *	incY,
		const double *	c,
		const double *	s )

Definition at line 47 of file c_dblas1.c.

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

F77_drotg()

void F77_drotg	(	double *	a,
		double *	b,
		double *	c,
		double *	s )

Definition at line 41 of file c_dblas1.c.

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

F77_dscal()

void F77_dscal	(	const int *	N,
		const double *	alpha,
		double *	X,
		const int *	incX )

Definition at line 55 of file c_dblas1.c.

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

F77_dswap()

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

Definition at line 62 of file c_dblas1.c.

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

F77_dzasum()

double F77_dzasum	(	const int *	N,
		void *	X,
		const int *	incX )

Definition at line 69 of file c_dblas1.c.

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

F77_dznrm2()

double F77_dznrm2	(	const int *	N,
		const void *	X,
		const int *	incX )

Definition at line 74 of file c_dblas1.c.

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

F77_idamax()

int F77_idamax	(	const int *	N,
		const double *	X,
		const int *	incX )

Definition at line 79 of file c_dblas1.c.

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