nl_blas.c File Reference

#include <NL/nl_blas.h>

Include dependency graph for nl_blas.c:

Go to the source code of this file.

Defines
#define	A(I, J)   a[(I)-1 + ((J)-1)* ( *lda)]
#define	DX(I)   dx[(I)-1]
#define	DX(I)   dx[(I)-1]
#define	DX(I)   dx[(I)-1]
#define	DX(I)   dx[(I)-1]
#define	DY(I)   dy[(I)-1]
#define	DY(I)   dy[(I)-1]
#define	DY(I)   dy[(I)-1]
#define	max(x, y)   ((x) > (y) ? (x) : (y))
#define	NEEDS_DTPSV
#define	X(I)   x[(I)-1]
#define	X(I)   x[(I)-1]
#define	Y(I)   y[(I)-1]
Typedefs
typedef NLdouble	doublereal
typedef NLint	ftnlen
typedef NLint	integer
typedef NLboolean	logical
Functions
void	daxpy (int n, double alpha, double *x, int incx, double *y, int incy)
int NL_FORTRAN_WRAP()	daxpy (integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
void	dcopy (int n, double *x, int incx, double *y, int incy)
int NL_FORTRAN_WRAP()	dcopy (integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
double	ddot (int n, double *x, int incx, double *y, int incy)
doublereal NL_FORTRAN_WRAP()	ddot (integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy)
void	dgemv (MatrixTranspose trans, int m, int n, double alpha, double *A, int ldA, double *x, int incx, double beta, double *y, int incy)
int NL_FORTRAN_WRAP()	dgemv (char *trans, integer *m, integer *n, doublereal *alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal *beta, doublereal *y, integer *incy)
double	dnrm2 (int n, double *x, int incx)
doublereal NL_FORTRAN_WRAP()	dnrm2 (integer *n, doublereal *x, integer *incx)
void	dscal (int n, double alpha, double *x, int incx)
int NL_FORTRAN_WRAP()	dscal (integer *n, doublereal *da, doublereal *dx, integer *incx)
void	dtpsv (MatrixTriangle uplo, MatrixTranspose trans, MatrixUnitTriangular diag, int n, double *AP, double *x, int incx)
int NL_FORTRAN_WRAP()	dtpsv (char *uplo, char *trans, char *diag, integer *n, doublereal *ap, doublereal *x, integer *incx, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
int NL_FORTRAN_WRAP()	lsame (char *ca, char *cb)
int NL_FORTRAN_WRAP()	xerbla (char *srname, int *info)

---

Define Documentation

#define A	(	I,
		J		)	a[(I)-1 + ((J)-1)* ( *lda)]

#define DX

(

I

)

dx[(I)-1]

#define DX

(

I

)

dx[(I)-1]

#define DX

(

I

)

dx[(I)-1]

#define DX

(

I

)

dx[(I)-1]

#define DY

(

I

)

dy[(I)-1]

#define DY

(

I

)

dy[(I)-1]

#define DY

(

I

)

dy[(I)-1]

#define max	(	x,
		y		)	((x) > (y) ? (x) : (y))

Definition at line 92 of file nl_blas.c.

#define NEEDS_DTPSV

Definition at line 63 of file nl_blas.c.

#define X

(

I

)

x[(I)-1]

#define X

(

I

)

x[(I)-1]

#define Y

(

I

)

y[(I)-1]

---

Typedef Documentation

typedef NLdouble doublereal

Definition at line 86 of file nl_blas.c.

typedef NLint ftnlen

Definition at line 88 of file nl_blas.c.

typedef NLint integer

Definition at line 85 of file nl_blas.c.

typedef NLboolean logical

Definition at line 87 of file nl_blas.c.

---

Function Documentation

void daxpy	(	int	n,
		double	alpha,
		double *	x,
		int	incx,
		double *	y,
		int	incy
	)

Definition at line 1358 of file nl_blas.c.

int NL_FORTRAN_WRAP() daxpy	(	integer *	n,
		doublereal *	da,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

Definition at line 214 of file nl_blas.c.

void dcopy	(	int	n,
		double *	x,
		int	incx,
		double *	y,
		int	incy
	)

Definition at line 1351 of file nl_blas.c.

int NL_FORTRAN_WRAP() dcopy	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

Definition at line 550 of file nl_blas.c.

double ddot	(	int	n,
		double *	x,
		int	incx,
		double *	y,
		int	incy
	)

Definition at line 1366 of file nl_blas.c.

doublereal NL_FORTRAN_WRAP() ddot	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

Definition at line 303 of file nl_blas.c.

void dgemv	(	MatrixTranspose	trans,
		int	m,
		int	n,
		double	alpha,
		double *	A,
		int	ldA,
		double *	x,
		int	incx,
		double	beta,
		double *	y,
		int	incy
	)

y <- alpha*A*x + beta*y, y <- alpha*A^T*x + beta*y, A-(m,n)

Definition at line 1390 of file nl_blas.c.

int NL_FORTRAN_WRAP() dgemv	(	char *	trans,
		integer *	m,
		integer *	n,
		doublereal *	alpha,
		doublereal *	a,
		integer *	lda,
		doublereal *	x,
		integer *	incx,
		doublereal *	beta,
		doublereal *	y,
		integer *	incy
	)

Definition at line 638 of file nl_blas.c.

double dnrm2	(	int	n,
		double *	x,
		int	incx
	)

returns |x|_2

Definition at line 1373 of file nl_blas.c.

doublereal NL_FORTRAN_WRAP() dnrm2	(	integer *	n,
		doublereal *	x,
		integer *	incx
	)

Definition at line 471 of file nl_blas.c.

void dscal	(	int	n,
		double	alpha,
		double *	x,
		int	incx
	)

Definition at line 1346 of file nl_blas.c.

int NL_FORTRAN_WRAP() dscal	(	integer *	n,
		doublereal *	da,
		doublereal *	dx,
		integer *	incx
	)

Definition at line 392 of file nl_blas.c.

void dtpsv	(	MatrixTriangle	uplo,
		MatrixTranspose	trans,
		MatrixUnitTriangular	diag,
		int	n,
		double *	AP,
		double *	x,
		int	incx
	)

x <- A^{-1}*x, x <- A^{-T}*x

Definition at line 1378 of file nl_blas.c.

int NL_FORTRAN_WRAP() dtpsv	(	char *	uplo,
		char *	trans,
		char *	diag,
		integer *	n,
		doublereal *	ap,
		doublereal *	x,
		integer *	incx,
		ftnlen	uplo_len,
		ftnlen	trans_len,
		ftnlen	diag_len
	)

Definition at line 974 of file nl_blas.c.

int NL_FORTRAN_WRAP() lsame	(	char *	ca,
		char *	cb
	)

Definition at line 97 of file nl_blas.c.

int NL_FORTRAN_WRAP() xerbla	(	char *	srname,
		int *	info
	)

Definition at line 173 of file nl_blas.c.