c_sblas1.c File Reference

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

Go to the source code of this file.

Functions
float	F77_sasum (const int *N, float *X, const int *incX)
void	F77_saxpy (const int *N, const float *alpha, const float *X, const int *incX, float *Y, const int *incY)
float	F77_scasum (const int *N, void *X, const int *incX)
float	F77_scnrm2 (const int *N, const void *X, const int *incX)
void	F77_scopy (const int *N, const float *X, const int *incX, float *Y, const int *incY)
float	F77_sdot (const int *N, const float *X, const int *incX, const float *Y, const int *incY)
float	F77_snrm2 (const int *N, const float *X, const int *incX)
void	F77_srotg (float *a, float *b, float *c, float *s)
void	F77_srot (const int *N, float *X, const int *incX, float *Y, const int *incY, const float *c, const float *s)
void	F77_sscal (const int *N, const float *alpha, float *X, const int *incX)
void	F77_sswap (const int *N, float *X, const int *incX, float *Y, const int *incY)
int	F77_isamax (const int *N, const float *X, const int *incX)

Function Documentation

F77_isamax()

int F77_isamax	(	const int *	N,
		const float *	X,
		const int *	incX )

Definition at line 78 of file c_sblas1.c.

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

F77_sasum()

float F77_sasum	(	const int *	N,
		float *	X,
		const int *	incX )

Definition at line 11 of file c_sblas1.c.

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

F77_saxpy()

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

Definition at line 16 of file c_sblas1.c.

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

F77_scasum()

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

Definition at line 23 of file c_sblas1.c.

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

F77_scnrm2()

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

Definition at line 28 of file c_sblas1.c.

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

F77_scopy()

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

Definition at line 33 of file c_sblas1.c.

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

F77_sdot()

float F77_sdot	(	const int *	N,
		const float *	X,
		const int *	incX,
		const float *	Y,
		const int *	incY )

Definition at line 40 of file c_sblas1.c.

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

F77_snrm2()

float F77_snrm2	(	const int *	N,
		const float *	X,
		const int *	incX )

Definition at line 46 of file c_sblas1.c.

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

F77_srot()

void F77_srot	(	const int *	N,
		float *	X,
		const int *	incX,
		float *	Y,
		const int *	incY,
		const float *	c,
		const float *	s )

Definition at line 57 of file c_sblas1.c.

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

F77_srotg()

void F77_srotg	(	float *	a,
		float *	b,
		float *	c,
		float *	s )

Definition at line 51 of file c_sblas1.c.

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

F77_sscal()

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

Definition at line 64 of file c_sblas1.c.

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

F77_sswap()

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

Definition at line 71 of file c_sblas1.c.

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