BLAS/TESTING/zblat2.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	ZBLAT2
subroutine	ZCHK1 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G)
subroutine	ZCHK2 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G)
subroutine	ZCHK3 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, XT, G, Z)
subroutine	ZCHK4 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z)
subroutine	ZCHK5 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z)
subroutine	ZCHK6 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS, YT, G, Z)
subroutine	ZCHKE (ISNUM, SRNAMT, NOUT)
subroutine	ZMAKE (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, KU, RESET, TRANSL)
subroutine	ZMVCH (TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV)
LOGICAL	LZE (RI, RJ, LR)
LOGICAL	LZERES (TYPE, UPLO, M, N, AA, AS, LDA)
program	__zblat2.f__
DOUBLE PRECISION	DDIFF (X, Y)
subroutine	CHKXER (SRNAMT, INFOT, NOUT, LERR, OK)
subroutine	XERBLA (SRNAME, INFO)

---

Function Documentation

program __zblat2.f__

(

)

Definition at line 3116 of file zblat2.f.

subroutine CHKXER	(	CHARACTER*6	SRNAMT,
		INTEGER	INFOT,
		INTEGER	NOUT,
		LOGICAL	LERR,
		LOGICAL	OK
	)

Definition at line 3172 of file zblat2.f.

DOUBLE PRECISION DDIFF	(	DOUBLE PRECISION	X,
		DOUBLE PRECISION	Y
	)

Definition at line 3156 of file zblat2.f.

LOGICAL LZE	(	COMPLEX*16,dimension( * )	RI,
		COMPLEX*16,dimension( * )	RJ,
		INTEGER	LR
	)

Definition at line 3014 of file zblat2.f.

LOGICAL LZERES	(	CHARACTER*2	TYPE,
		CHARACTER*1	UPLO,
		INTEGER	M,
		INTEGER	N,
		COMPLEX*16,dimension( lda, * )	AA,
		COMPLEX*16,dimension( lda, * )	AS,
		INTEGER	LDA
	)

Definition at line 3044 of file zblat2.f.

subroutine XERBLA	(	CHARACTER*6	SRNAME,
		INTEGER	INFO
	)

Definition at line 3200 of file zblat2.f.

program ZBLAT2

(

)

Definition at line 1 of file zblat2.f.

subroutine ZCHK1	(	CHARACTER*6	SNAME,
		DOUBLE PRECISION	EPS,
		DOUBLE PRECISION	THRESH,
		INTEGER	NOUT,
		INTEGER	NTRA,
		LOGICAL	TRACE,
		LOGICAL	REWI,
		LOGICAL	FATAL,
		INTEGER	NIDIM,
		INTEGER,dimension( nidim )	IDIM,
		INTEGER	NKB,
		INTEGER,dimension( nkb )	KB,
		INTEGER	NALF,
		COMPLEX*16,dimension( nalf )	ALF,
		INTEGER	NBET,
		COMPLEX*16,dimension( nbet )	BET,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		COMPLEX*16,dimension( nmax, nmax )	A,
		COMPLEX*16,dimension( nmax*nmax )	AA,
		COMPLEX*16,dimension( nmax*nmax )	AS,
		COMPLEX*16,dimension( nmax )	X,
		COMPLEX*16,dimension( nmax*incmax )	XX,
		COMPLEX*16,dimension( nmax*incmax )	XS,
		COMPLEX*16,dimension( nmax )	Y,
		COMPLEX*16,dimension( nmax*incmax )	YY,
		COMPLEX*16,dimension( nmax*incmax )	YS,
		COMPLEX*16,dimension( nmax )	YT,
		DOUBLE PRECISION,dimension( nmax )	G
	)

Definition at line 403 of file zblat2.f.

subroutine ZCHK2	(	CHARACTER*6	SNAME,
		DOUBLE PRECISION	EPS,
		DOUBLE PRECISION	THRESH,
		INTEGER	NOUT,
		INTEGER	NTRA,
		LOGICAL	TRACE,
		LOGICAL	REWI,
		LOGICAL	FATAL,
		INTEGER	NIDIM,
		INTEGER,dimension( nidim )	IDIM,
		INTEGER	NKB,
		INTEGER,dimension( nkb )	KB,
		INTEGER	NALF,
		COMPLEX*16,dimension( nalf )	ALF,
		INTEGER	NBET,
		COMPLEX*16,dimension( nbet )	BET,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		COMPLEX*16,dimension( nmax, nmax )	A,
		COMPLEX*16,dimension( nmax*nmax )	AA,
		COMPLEX*16,dimension( nmax*nmax )	AS,
		COMPLEX*16,dimension( nmax )	X,
		COMPLEX*16,dimension( nmax*incmax )	XX,
		COMPLEX*16,dimension( nmax*incmax )	XS,
		COMPLEX*16,dimension( nmax )	Y,
		COMPLEX*16,dimension( nmax*incmax )	YY,
		COMPLEX*16,dimension( nmax*incmax )	YS,
		COMPLEX*16,dimension( nmax )	YT,
		DOUBLE PRECISION,dimension( nmax )	G
	)

Definition at line 749 of file zblat2.f.

subroutine ZCHK3	(	CHARACTER*6	SNAME,
		DOUBLE PRECISION	EPS,
		DOUBLE PRECISION	THRESH,
		INTEGER	NOUT,
		INTEGER	NTRA,
		LOGICAL	TRACE,
		LOGICAL	REWI,
		LOGICAL	FATAL,
		INTEGER	NIDIM,
		INTEGER,dimension( nidim )	IDIM,
		INTEGER	NKB,
		INTEGER,dimension( nkb )	KB,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		COMPLEX*16,dimension( nmax, nmax )	A,
		COMPLEX*16,dimension( nmax*nmax )	AA,
		COMPLEX*16,dimension( nmax*nmax )	AS,
		COMPLEX*16,dimension( nmax )	X,
		COMPLEX*16,dimension( nmax*incmax )	XX,
		COMPLEX*16,dimension( nmax*incmax )	XS,
		COMPLEX*16,dimension( nmax )	XT,
		DOUBLE PRECISION,dimension( nmax )	G,
		COMPLEX*16,dimension( nmax )	Z
	)

Definition at line 1098 of file zblat2.f.

subroutine ZCHK4	(	CHARACTER*6	SNAME,
		DOUBLE PRECISION	EPS,
		DOUBLE PRECISION	THRESH,
		INTEGER	NOUT,
		INTEGER	NTRA,
		LOGICAL	TRACE,
		LOGICAL	REWI,
		LOGICAL	FATAL,
		INTEGER	NIDIM,
		INTEGER,dimension( nidim )	IDIM,
		INTEGER	NALF,
		COMPLEX*16,dimension( nalf )	ALF,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		COMPLEX*16,dimension( nmax, nmax )	A,
		COMPLEX*16,dimension( nmax*nmax )	AA,
		COMPLEX*16,dimension( nmax*nmax )	AS,
		COMPLEX*16,dimension( nmax )	X,
		COMPLEX*16,dimension( nmax*incmax )	XX,
		COMPLEX*16,dimension( nmax*incmax )	XS,
		COMPLEX*16,dimension( nmax )	Y,
		COMPLEX*16,dimension( nmax*incmax )	YY,
		COMPLEX*16,dimension( nmax*incmax )	YS,
		COMPLEX*16,dimension( nmax )	YT,
		DOUBLE PRECISION,dimension( nmax )	G,
		COMPLEX*16,dimension( nmax )	Z
	)

Definition at line 1460 of file zblat2.f.

subroutine ZCHK5	(	CHARACTER*6	SNAME,
		DOUBLE PRECISION	EPS,
		DOUBLE PRECISION	THRESH,
		INTEGER	NOUT,
		INTEGER	NTRA,
		LOGICAL	TRACE,
		LOGICAL	REWI,
		LOGICAL	FATAL,
		INTEGER	NIDIM,
		INTEGER,dimension( nidim )	IDIM,
		INTEGER	NALF,
		COMPLEX*16,dimension( nalf )	ALF,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		COMPLEX*16,dimension( nmax, nmax )	A,
		COMPLEX*16,dimension( nmax*nmax )	AA,
		COMPLEX*16,dimension( nmax*nmax )	AS,
		COMPLEX*16,dimension( nmax )	X,
		COMPLEX*16,dimension( nmax*incmax )	XX,
		COMPLEX*16,dimension( nmax*incmax )	XS,
		COMPLEX*16,dimension( nmax )	Y,
		COMPLEX*16,dimension( nmax*incmax )	YY,
		COMPLEX*16,dimension( nmax*incmax )	YS,
		COMPLEX*16,dimension( nmax )	YT,
		DOUBLE PRECISION,dimension( nmax )	G,
		COMPLEX*16,dimension( nmax )	Z
	)

Definition at line 1738 of file zblat2.f.

subroutine ZCHK6	(	CHARACTER*6	SNAME,
		DOUBLE PRECISION	EPS,
		DOUBLE PRECISION	THRESH,
		INTEGER	NOUT,
		INTEGER	NTRA,
		LOGICAL	TRACE,
		LOGICAL	REWI,
		LOGICAL	FATAL,
		INTEGER	NIDIM,
		INTEGER,dimension( nidim )	IDIM,
		INTEGER	NALF,
		COMPLEX*16,dimension( nalf )	ALF,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		COMPLEX*16,dimension( nmax, nmax )	A,
		COMPLEX*16,dimension( nmax*nmax )	AA,
		COMPLEX*16,dimension( nmax*nmax )	AS,
		COMPLEX*16,dimension( nmax )	X,
		COMPLEX*16,dimension( nmax*incmax )	XX,
		COMPLEX*16,dimension( nmax*incmax )	XS,
		COMPLEX*16,dimension( nmax )	Y,
		COMPLEX*16,dimension( nmax*incmax )	YY,
		COMPLEX*16,dimension( nmax*incmax )	YS,
		COMPLEX*16,dimension( nmax )	YT,
		DOUBLE PRECISION,dimension( nmax )	G,
		COMPLEX*16,dimension( nmax, 2 )	Z
	)

Definition at line 2023 of file zblat2.f.

subroutine ZCHKE	(	INTEGER	ISNUM,
		CHARACTER*6	SRNAMT,
		INTEGER	NOUT
	)

Definition at line 2346 of file zblat2.f.

subroutine ZMAKE	(	CHARACTER*2	TYPE,
		CHARACTER*1	UPLO,
		CHARACTER*1	DIAG,
		INTEGER	M,
		INTEGER	N,
		COMPLEX*16,dimension( nmax, * )	A,
		INTEGER	NMAX,
		COMPLEX*16,dimension( * )	AA,
		INTEGER	LDA,
		INTEGER	KL,
		INTEGER	KU,
		LOGICAL	RESET,
		COMPLEX*16	TRANSL
	)

Definition at line 2689 of file zblat2.f.

subroutine ZMVCH	(	CHARACTER*1	TRANS,
		INTEGER	M,
		INTEGER	N,
		COMPLEX*16	ALPHA,
		COMPLEX*16,dimension( nmax, * )	A,
		INTEGER	NMAX,
		COMPLEX*16,dimension( * )	X,
		INTEGER	INCX,
		COMPLEX*16	BETA,
		COMPLEX*16,dimension( * )	Y,
		INTEGER	INCY,
		COMPLEX*16,dimension( * )	YT,
		DOUBLE PRECISION,dimension( * )	G,
		COMPLEX*16,dimension( * )	YY,
		DOUBLE PRECISION	EPS,
		DOUBLE PRECISION	ERR,
		LOGICAL	FATAL,
		INTEGER	NOUT,
		LOGICAL	MV
	)

Definition at line 2882 of file zblat2.f.