R_ext/BLAS.h File Reference

#include <R_ext/RS.h>
#include <R_ext/Complex.h>

Include dependency graph for BLAS.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Defines
#define	BLAS_extern   extern
Functions
BLAS_extern double F77_NAME()	dasum (const int *n, const double *dx, const int *incx)
BLAS_extern void F77_NAME()	daxpy (const int *n, const double *alpha, const double *dx, const int *incx, double *dy, const int *incy)
BLAS_extern void F77_NAME()	dcopy (const int *n, const double *dx, const int *incx, double *dy, const int *incy)
BLAS_extern double F77_NAME()	ddot (const int *n, const double *dx, const int *incx, const double *dy, const int *incy)
BLAS_extern double F77_NAME()	dnrm2 (const int *n, const double *dx, const int *incx)
BLAS_extern void F77_NAME()	drot (const int *n, double *dx, const int *incx, double *dy, const int *incy, const double *c, const double *s)
BLAS_extern void F77_NAME()	drotg (const double *a, const double *b, double *c, double *s)
BLAS_extern void F77_NAME()	drotm (const int *n, double *dx, const int *incx, double *dy, const int *incy, const double *dparam)
BLAS_extern void F77_NAME()	drotmg (const double *dd1, const double *dd2, const double *dx1, const double *dy1, double *param)
BLAS_extern void F77_NAME()	dscal (const int *n, const double *alpha, double *dx, const int *incx)
BLAS_extern void F77_NAME()	dswap (const int *n, double *dx, const int *incx, double *dy, const int *incy)
BLAS_extern int F77_NAME()	idamax (const int *n, const double *dx, const int *incx)
BLAS_extern void F77_NAME()	dgbmv (const char *trans, const int *m, const int *n, const int *kl, const int *ku, const double *alpha, const double *a, const int *lda, const double *x, const int *incx, const double *beta, double *y, const int *incy)
BLAS_extern void F77_NAME()	dgemv (const char *trans, const int *m, const int *n, const double *alpha, const double *a, const int *lda, const double *x, const int *incx, const double *beta, double *y, const int *incy)
BLAS_extern void F77_NAME()	dsbmv (const char *uplo, const int *n, const int *k, const double *alpha, const double *a, const int *lda, const double *x, const int *incx, const double *beta, double *y, const int *incy)
BLAS_extern void F77_NAME()	dspmv (const char *uplo, const int *n, const double *alpha, const double *ap, const double *x, const int *incx, const double *beta, double *y, const int *incy)
BLAS_extern void F77_NAME()	dsymv (const char *uplo, const int *n, const double *alpha, const double *a, const int *lda, const double *x, const int *incx, const double *beta, double *y, const int *incy)
BLAS_extern void F77_NAME()	dtbmv (const char *uplo, const char *trans, const char *diag, const int *n, const int *k, const double *a, const int *lda, double *x, const int *incx)
BLAS_extern void F77_NAME()	dtpmv (const char *uplo, const char *trans, const char *diag, const int *n, const double *ap, double *x, const int *incx)
BLAS_extern void F77_NAME()	dtrmv (const char *uplo, const char *trans, const char *diag, const int *n, const double *a, const int *lda, double *x, const int *incx)
BLAS_extern void F77_NAME()	dtbsv (const char *uplo, const char *trans, const char *diag, const int *n, const int *k, const double *a, const int *lda, double *x, const int *incx)
BLAS_extern void F77_NAME()	dtpsv (const char *uplo, const char *trans, const char *diag, const int *n, const double *ap, double *x, const int *incx)
BLAS_extern void F77_NAME()	dtrsv (const char *uplo, const char *trans, const char *diag, const int *n, const double *a, const int *lda, double *x, const int *incx)
BLAS_extern void F77_NAME()	dger (const int *m, const int *n, const double *alpha, const double *x, const int *incx, const double *y, const int *incy, double *a, const int *lda)
BLAS_extern void F77_NAME()	dsyr (const char *uplo, const int *n, const double *alpha, const double *x, const int *incx, double *a, const int *lda)
BLAS_extern void F77_NAME()	dspr (const char *uplo, const int *n, const double *alpha, const double *x, const int *incx, double *ap)
BLAS_extern void F77_NAME()	dsyr2 (const char *uplo, const int *n, const double *alpha, const double *x, const int *incx, const double *y, const int *incy, double *a, const int *lda)
BLAS_extern void F77_NAME()	dspr2 (const char *uplo, const int *n, const double *alpha, const double *x, const int *incx, const double *y, const int *incy, double *ap)
BLAS_extern void F77_NAME()	dgemm (const char *transa, const char *transb, const int *m, const int *n, const int *k, const double *alpha, const double *a, const int *lda, const double *b, const int *ldb, const double *beta, double *c, const int *ldc)
BLAS_extern void F77_NAME()	dtrsm (const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n, const double *alpha, const double *a, const int *lda, double *b, const int *ldb)
BLAS_extern void F77_NAME()	dtrmm (const char *side, const char *uplo, const char *transa, const char *diag, const int *m, const int *n, const double *alpha, const double *a, const int *lda, double *b, const int *ldb)
BLAS_extern void F77_NAME()	dsymm (const char *side, const char *uplo, const int *m, const int *n, const double *alpha, const double *a, const int *lda, const double *b, const int *ldb, const double *beta, double *c, const int *ldc)
BLAS_extern void F77_NAME()	dsyrk (const char *uplo, const char *trans, const int *n, const int *k, const double *alpha, const double *a, const int *lda, const double *beta, double *c, const int *ldc)
BLAS_extern void F77_NAME()	dsyr2k (const char *uplo, const char *trans, const int *n, const int *k, const double *alpha, const double *a, const int *lda, const double *b, const int *ldb, const double *beta, double *c, const int *ldc)
BLAS_extern double F77_NAME()	dcabs1 (double *z)
BLAS_extern double F77_NAME()	dzasum (int *n, Rcomplex *zx, int *incx)
BLAS_extern double F77_NAME()	dznrm2 (int *n, Rcomplex *x, int *incx)
BLAS_extern int F77_NAME()	izamax (int *n, Rcomplex *zx, int *incx)
BLAS_extern void F77_NAME()	zaxpy (int *n, Rcomplex *za, Rcomplex *zx, int *incx, Rcomplex *zy, int *incy)
BLAS_extern void F77_NAME()	zcopy (int *n, Rcomplex *zx, int *incx, Rcomplex *zy, int *incy)
BLAS_extern Rcomplex F77_NAME()	zdotc (int *n, Rcomplex *zx, int *incx, Rcomplex *zy, int *incy)
BLAS_extern Rcomplex F77_NAME()	zdotu (int *n, Rcomplex *zx, int *incx, Rcomplex *zy, int *incy)
BLAS_extern void F77_NAME()	zdrot (int *n, Rcomplex *zx, int *incx, Rcomplex *zy, int *incy, double *c, double *s)
BLAS_extern void F77_NAME()	zdscal (int *n, double *da, Rcomplex *zx, int *incx)
BLAS_extern void F77_NAME()	zgbmv (char *trans, int *m, int *n, int *kl, int *ku, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *x, int *incx, Rcomplex *beta, Rcomplex *y, int *incy)
BLAS_extern void F77_NAME()	zgemm (const char *transa, const char *transb, const int *m, const int *n, const int *k, const Rcomplex *alpha, const Rcomplex *a, const int *lda, const Rcomplex *b, const int *ldb, const Rcomplex *beta, Rcomplex *c, const int *ldc)
BLAS_extern void F77_NAME()	zgemv (char *trans, int *m, int *n, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *x, int *incx, Rcomplex *beta, Rcomplex *y, int *incy)
BLAS_extern void F77_NAME()	zgerc (int *m, int *n, Rcomplex *alpha, Rcomplex *x, int *incx, Rcomplex *y, int *incy, Rcomplex *a, int *lda)
BLAS_extern void F77_NAME()	zgeru (int *m, int *n, Rcomplex *alpha, Rcomplex *x, int *incx, Rcomplex *y, int *incy, Rcomplex *a, int *lda)
BLAS_extern void F77_NAME()	zhbmv (char *uplo, int *n, int *k, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *x, int *incx, Rcomplex *beta, Rcomplex *y, int *incy)
BLAS_extern void F77_NAME()	zhemm (char *side, char *uplo, int *m, int *n, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *b, int *ldb, Rcomplex *beta, Rcomplex *c, int *ldc)
BLAS_extern void F77_NAME()	zhemv (char *uplo, int *n, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *x, int *incx, Rcomplex *beta, Rcomplex *y, int *incy)
BLAS_extern void F77_NAME()	zher (char *uplo, int *n, double *alpha, Rcomplex *x, int *incx, Rcomplex *a, int *lda)
BLAS_extern void F77_NAME()	zher2 (char *uplo, int *n, Rcomplex *alpha, Rcomplex *x, int *incx, Rcomplex *y, int *incy, Rcomplex *a, int *lda)
BLAS_extern void F77_NAME()	zher2k (char *uplo, char *trans, int *n, int *k, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *b, int *ldb, double *beta, Rcomplex *c, int *ldc)
BLAS_extern void F77_NAME()	zherk (char *uplo, char *trans, int *n, int *k, double *alpha, Rcomplex *a, int *lda, double *beta, Rcomplex *c, int *ldc)
BLAS_extern void F77_NAME()	zhpmv (char *uplo, int *n, Rcomplex *alpha, Rcomplex *ap, Rcomplex *x, int *incx, Rcomplex *beta, Rcomplex *y, int *incy)
BLAS_extern void F77_NAME()	zhpr (char *uplo, int *n, double *alpha, Rcomplex *x, int *incx, Rcomplex *ap)
BLAS_extern void F77_NAME()	zhpr2 (char *uplo, int *n, Rcomplex *alpha, Rcomplex *x, int *incx, Rcomplex *y, int *incy, Rcomplex *ap)
BLAS_extern void F77_NAME()	zrotg (Rcomplex *ca, Rcomplex *cb, double *c, Rcomplex *s)
BLAS_extern void F77_NAME()	zscal (int *n, Rcomplex *za, Rcomplex *zx, int *incx)
BLAS_extern void F77_NAME()	zswap (int *n, Rcomplex *zx, int *incx, Rcomplex *zy, int *incy)
BLAS_extern void F77_NAME()	zsymm (char *side, char *uplo, int *m, int *n, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *b, int *ldb, Rcomplex *beta, Rcomplex *c, int *ldc)
BLAS_extern void F77_NAME()	zsyr2k (char *uplo, char *trans, int *n, int *k, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *b, int *ldb, Rcomplex *beta, Rcomplex *c, int *ldc)
BLAS_extern void F77_NAME()	zsyrk (char *uplo, char *trans, int *n, int *k, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *beta, Rcomplex *c, int *ldc)
BLAS_extern void F77_NAME()	ztbmv (char *uplo, char *trans, char *diag, int *n, int *k, Rcomplex *a, int *lda, Rcomplex *x, int *incx)
BLAS_extern void F77_NAME()	ztbsv (char *uplo, char *trans, char *diag, int *n, int *k, Rcomplex *a, int *lda, Rcomplex *x, int *incx)
BLAS_extern void F77_NAME()	ztpmv (char *uplo, char *trans, char *diag, int *n, Rcomplex *ap, Rcomplex *x, int *incx)
BLAS_extern void F77_NAME()	ztpsv (char *uplo, char *trans, char *diag, int *n, Rcomplex *ap, Rcomplex *x, int *incx)
BLAS_extern void F77_NAME()	ztrmm (char *side, char *uplo, char *transa, char *diag, int *m, int *n, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *b, int *ldb)
BLAS_extern void F77_NAME()	ztrmv (char *uplo, char *trans, char *diag, int *n, Rcomplex *a, int *lda, Rcomplex *x, int *incx)
BLAS_extern void F77_NAME()	ztrsm (char *side, char *uplo, char *transa, char *diag, int *m, int *n, Rcomplex *alpha, Rcomplex *a, int *lda, Rcomplex *b, int *ldb)
BLAS_extern void F77_NAME()	ztrsv (char *uplo, char *trans, char *diag, int *n, Rcomplex *a, int *lda, Rcomplex *x, int *incx)

---

Define Documentation

#define BLAS_extern   extern

---

Function Documentation

BLAS_extern double F77_NAME() dasum	(	const int *	n,
		const double *	dx,
		const int *	incx
	)

BLAS_extern void F77_NAME() daxpy	(	const int *	n,
		const double *	alpha,
		const double *	dx,
		const int *	incx,
		double *	dy,
		const int *	incy
	)

BLAS_extern double F77_NAME() dcabs1

(

double *

z

)

BLAS_extern void F77_NAME() dcopy	(	const int *	n,
		const double *	dx,
		const int *	incx,
		double *	dy,
		const int *	incy
	)

BLAS_extern double F77_NAME() ddot	(	const int *	n,
		const double *	dx,
		const int *	incx,
		const double *	dy,
		const int *	incy
	)

BLAS_extern void F77_NAME() dgbmv	(	const char *	trans,
		const int *	m,
		const int *	n,
		const int *	kl,
		const int *	ku,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	x,
		const int *	incx,
		const double *	beta,
		double *	y,
		const int *	incy
	)

BLAS_extern void F77_NAME() dgemm	(	const char *	transa,
		const char *	transb,
		const int *	m,
		const int *	n,
		const int *	k,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	b,
		const int *	ldb,
		const double *	beta,
		double *	c,
		const int *	ldc
	)

BLAS_extern void F77_NAME() dgemv	(	const char *	trans,
		const int *	m,
		const int *	n,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	x,
		const int *	incx,
		const double *	beta,
		double *	y,
		const int *	incy
	)

BLAS_extern void F77_NAME() dger	(	const int *	m,
		const int *	n,
		const double *	alpha,
		const double *	x,
		const int *	incx,
		const double *	y,
		const int *	incy,
		double *	a,
		const int *	lda
	)

BLAS_extern double F77_NAME() dnrm2	(	const int *	n,
		const double *	dx,
		const int *	incx
	)

BLAS_extern void F77_NAME() drot	(	const int *	n,
		double *	dx,
		const int *	incx,
		double *	dy,
		const int *	incy,
		const double *	c,
		const double *	s
	)

BLAS_extern void F77_NAME() drotg	(	const double *	a,
		const double *	b,
		double *	c,
		double *	s
	)

BLAS_extern void F77_NAME() drotm	(	const int *	n,
		double *	dx,
		const int *	incx,
		double *	dy,
		const int *	incy,
		const double *	dparam
	)

BLAS_extern void F77_NAME() drotmg	(	const double *	dd1,
		const double *	dd2,
		const double *	dx1,
		const double *	dy1,
		double *	param
	)

BLAS_extern void F77_NAME() dsbmv	(	const char *	uplo,
		const int *	n,
		const int *	k,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	x,
		const int *	incx,
		const double *	beta,
		double *	y,
		const int *	incy
	)

BLAS_extern void F77_NAME() dscal	(	const int *	n,
		const double *	alpha,
		double *	dx,
		const int *	incx
	)

BLAS_extern void F77_NAME() dspmv	(	const char *	uplo,
		const int *	n,
		const double *	alpha,
		const double *	ap,
		const double *	x,
		const int *	incx,
		const double *	beta,
		double *	y,
		const int *	incy
	)

BLAS_extern void F77_NAME() dspr	(	const char *	uplo,
		const int *	n,
		const double *	alpha,
		const double *	x,
		const int *	incx,
		double *	ap
	)

BLAS_extern void F77_NAME() dspr2	(	const char *	uplo,
		const int *	n,
		const double *	alpha,
		const double *	x,
		const int *	incx,
		const double *	y,
		const int *	incy,
		double *	ap
	)

BLAS_extern void F77_NAME() dswap	(	const int *	n,
		double *	dx,
		const int *	incx,
		double *	dy,
		const int *	incy
	)

BLAS_extern void F77_NAME() dsymm	(	const char *	side,
		const char *	uplo,
		const int *	m,
		const int *	n,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	b,
		const int *	ldb,
		const double *	beta,
		double *	c,
		const int *	ldc
	)

BLAS_extern void F77_NAME() dsymv	(	const char *	uplo,
		const int *	n,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	x,
		const int *	incx,
		const double *	beta,
		double *	y,
		const int *	incy
	)

BLAS_extern void F77_NAME() dsyr	(	const char *	uplo,
		const int *	n,
		const double *	alpha,
		const double *	x,
		const int *	incx,
		double *	a,
		const int *	lda
	)

BLAS_extern void F77_NAME() dsyr2	(	const char *	uplo,
		const int *	n,
		const double *	alpha,
		const double *	x,
		const int *	incx,
		const double *	y,
		const int *	incy,
		double *	a,
		const int *	lda
	)

BLAS_extern void F77_NAME() dsyr2k	(	const char *	uplo,
		const char *	trans,
		const int *	n,
		const int *	k,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	b,
		const int *	ldb,
		const double *	beta,
		double *	c,
		const int *	ldc
	)

BLAS_extern void F77_NAME() dsyrk	(	const char *	uplo,
		const char *	trans,
		const int *	n,
		const int *	k,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		const double *	beta,
		double *	c,
		const int *	ldc
	)

BLAS_extern void F77_NAME() dtbmv	(	const char *	uplo,
		const char *	trans,
		const char *	diag,
		const int *	n,
		const int *	k,
		const double *	a,
		const int *	lda,
		double *	x,
		const int *	incx
	)

BLAS_extern void F77_NAME() dtbsv	(	const char *	uplo,
		const char *	trans,
		const char *	diag,
		const int *	n,
		const int *	k,
		const double *	a,
		const int *	lda,
		double *	x,
		const int *	incx
	)

BLAS_extern void F77_NAME() dtpmv	(	const char *	uplo,
		const char *	trans,
		const char *	diag,
		const int *	n,
		const double *	ap,
		double *	x,
		const int *	incx
	)

BLAS_extern void F77_NAME() dtpsv	(	const char *	uplo,
		const char *	trans,
		const char *	diag,
		const int *	n,
		const double *	ap,
		double *	x,
		const int *	incx
	)

BLAS_extern void F77_NAME() dtrmm	(	const char *	side,
		const char *	uplo,
		const char *	transa,
		const char *	diag,
		const int *	m,
		const int *	n,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		double *	b,
		const int *	ldb
	)

BLAS_extern void F77_NAME() dtrmv	(	const char *	uplo,
		const char *	trans,
		const char *	diag,
		const int *	n,
		const double *	a,
		const int *	lda,
		double *	x,
		const int *	incx
	)

BLAS_extern void F77_NAME() dtrsm	(	const char *	side,
		const char *	uplo,
		const char *	transa,
		const char *	diag,
		const int *	m,
		const int *	n,
		const double *	alpha,
		const double *	a,
		const int *	lda,
		double *	b,
		const int *	ldb
	)

BLAS_extern void F77_NAME() dtrsv	(	const char *	uplo,
		const char *	trans,
		const char *	diag,
		const int *	n,
		const double *	a,
		const int *	lda,
		double *	x,
		const int *	incx
	)

BLAS_extern double F77_NAME() dzasum	(	int *	n,
		Rcomplex *	zx,
		int *	incx
	)

BLAS_extern double F77_NAME() dznrm2	(	int *	n,
		Rcomplex *	x,
		int *	incx
	)

BLAS_extern int F77_NAME() idamax	(	const int *	n,
		const double *	dx,
		const int *	incx
	)

BLAS_extern int F77_NAME() izamax	(	int *	n,
		Rcomplex *	zx,
		int *	incx
	)

BLAS_extern void F77_NAME() zaxpy	(	int *	n,
		Rcomplex *	za,
		Rcomplex *	zx,
		int *	incx,
		Rcomplex *	zy,
		int *	incy
	)

BLAS_extern void F77_NAME() zcopy	(	int *	n,
		Rcomplex *	zx,
		int *	incx,
		Rcomplex *	zy,
		int *	incy
	)

BLAS_extern Rcomplex F77_NAME() zdotc	(	int *	n,
		Rcomplex *	zx,
		int *	incx,
		Rcomplex *	zy,
		int *	incy
	)

BLAS_extern Rcomplex F77_NAME() zdotu	(	int *	n,
		Rcomplex *	zx,
		int *	incx,
		Rcomplex *	zy,
		int *	incy
	)

BLAS_extern void F77_NAME() zdrot	(	int *	n,
		Rcomplex *	zx,
		int *	incx,
		Rcomplex *	zy,
		int *	incy,
		double *	c,
		double *	s
	)

BLAS_extern void F77_NAME() zdscal	(	int *	n,
		double *	da,
		Rcomplex *	zx,
		int *	incx
	)

BLAS_extern void F77_NAME() zgbmv	(	char *	trans,
		int *	m,
		int *	n,
		int *	kl,
		int *	ku,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	beta,
		Rcomplex *	y,
		int *	incy
	)

BLAS_extern void F77_NAME() zgemm	(	const char *	transa,
		const char *	transb,
		const int *	m,
		const int *	n,
		const int *	k,
		const Rcomplex *	alpha,
		const Rcomplex *	a,
		const int *	lda,
		const Rcomplex *	b,
		const int *	ldb,
		const Rcomplex *	beta,
		Rcomplex *	c,
		const int *	ldc
	)

BLAS_extern void F77_NAME() zgemv	(	char *	trans,
		int *	m,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	beta,
		Rcomplex *	y,
		int *	incy
	)

BLAS_extern void F77_NAME() zgerc	(	int *	m,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	y,
		int *	incy,
		Rcomplex *	a,
		int *	lda
	)

BLAS_extern void F77_NAME() zgeru	(	int *	m,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	y,
		int *	incy,
		Rcomplex *	a,
		int *	lda
	)

BLAS_extern void F77_NAME() zhbmv	(	char *	uplo,
		int *	n,
		int *	k,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	beta,
		Rcomplex *	y,
		int *	incy
	)

BLAS_extern void F77_NAME() zhemm	(	char *	side,
		char *	uplo,
		int *	m,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	b,
		int *	ldb,
		Rcomplex *	beta,
		Rcomplex *	c,
		int *	ldc
	)

BLAS_extern void F77_NAME() zhemv	(	char *	uplo,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	beta,
		Rcomplex *	y,
		int *	incy
	)

BLAS_extern void F77_NAME() zher	(	char *	uplo,
		int *	n,
		double *	alpha,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	a,
		int *	lda
	)

BLAS_extern void F77_NAME() zher2	(	char *	uplo,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	y,
		int *	incy,
		Rcomplex *	a,
		int *	lda
	)

BLAS_extern void F77_NAME() zher2k	(	char *	uplo,
		char *	trans,
		int *	n,
		int *	k,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	b,
		int *	ldb,
		double *	beta,
		Rcomplex *	c,
		int *	ldc
	)

BLAS_extern void F77_NAME() zherk	(	char *	uplo,
		char *	trans,
		int *	n,
		int *	k,
		double *	alpha,
		Rcomplex *	a,
		int *	lda,
		double *	beta,
		Rcomplex *	c,
		int *	ldc
	)

BLAS_extern void F77_NAME() zhpmv	(	char *	uplo,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	ap,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	beta,
		Rcomplex *	y,
		int *	incy
	)

BLAS_extern void F77_NAME() zhpr	(	char *	uplo,
		int *	n,
		double *	alpha,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	ap
	)

BLAS_extern void F77_NAME() zhpr2	(	char *	uplo,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	x,
		int *	incx,
		Rcomplex *	y,
		int *	incy,
		Rcomplex *	ap
	)

BLAS_extern void F77_NAME() zrotg	(	Rcomplex *	ca,
		Rcomplex *	cb,
		double *	c,
		Rcomplex *	s
	)

BLAS_extern void F77_NAME() zscal	(	int *	n,
		Rcomplex *	za,
		Rcomplex *	zx,
		int *	incx
	)

BLAS_extern void F77_NAME() zswap	(	int *	n,
		Rcomplex *	zx,
		int *	incx,
		Rcomplex *	zy,
		int *	incy
	)

BLAS_extern void F77_NAME() zsymm	(	char *	side,
		char *	uplo,
		int *	m,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	b,
		int *	ldb,
		Rcomplex *	beta,
		Rcomplex *	c,
		int *	ldc
	)

BLAS_extern void F77_NAME() zsyr2k	(	char *	uplo,
		char *	trans,
		int *	n,
		int *	k,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	b,
		int *	ldb,
		Rcomplex *	beta,
		Rcomplex *	c,
		int *	ldc
	)

BLAS_extern void F77_NAME() zsyrk	(	char *	uplo,
		char *	trans,
		int *	n,
		int *	k,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	beta,
		Rcomplex *	c,
		int *	ldc
	)

BLAS_extern void F77_NAME() ztbmv	(	char *	uplo,
		char *	trans,
		char *	diag,
		int *	n,
		int *	k,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx
	)

BLAS_extern void F77_NAME() ztbsv	(	char *	uplo,
		char *	trans,
		char *	diag,
		int *	n,
		int *	k,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx
	)

BLAS_extern void F77_NAME() ztpmv	(	char *	uplo,
		char *	trans,
		char *	diag,
		int *	n,
		Rcomplex *	ap,
		Rcomplex *	x,
		int *	incx
	)

BLAS_extern void F77_NAME() ztpsv	(	char *	uplo,
		char *	trans,
		char *	diag,
		int *	n,
		Rcomplex *	ap,
		Rcomplex *	x,
		int *	incx
	)

BLAS_extern void F77_NAME() ztrmm	(	char *	side,
		char *	uplo,
		char *	transa,
		char *	diag,
		int *	m,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	b,
		int *	ldb
	)

BLAS_extern void F77_NAME() ztrmv	(	char *	uplo,
		char *	trans,
		char *	diag,
		int *	n,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx
	)

BLAS_extern void F77_NAME() ztrsm	(	char *	side,
		char *	uplo,
		char *	transa,
		char *	diag,
		int *	m,
		int *	n,
		Rcomplex *	alpha,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	b,
		int *	ldb
	)

BLAS_extern void F77_NAME() ztrsv	(	char *	uplo,
		char *	trans,
		char *	diag,
		int *	n,
		Rcomplex *	a,
		int *	lda,
		Rcomplex *	x,
		int *	incx
	)