BLAS/TESTING/sblat2.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	SBLAT2
subroutine	SCHK1 (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	SCHK2 (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	SCHK3 (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	SCHK4 (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	SCHK5 (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	SCHK6 (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	SCHKE (ISNUM, SRNAMT, NOUT)
subroutine	SMAKE (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, KU, RESET, TRANSL)
subroutine	SMVCH (TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV)
LOGICAL	LSE (RI, RJ, LR)
LOGICAL	LSERES (TYPE, UPLO, M, N, AA, AS, LDA)
REAL	SBEG (RESET)
REAL	SDIFF (X, Y)
subroutine	CHKXER (SRNAMT, INFOT, NOUT, LERR, OK)
subroutine	XERBLA (SRNAME, INFO)

---

Function Documentation

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

Definition at line 3061 of file sblat2.f.

LOGICAL LSE	(	REAL,dimension( * )	RI,
		REAL,dimension( * )	RJ,
		INTEGER	LR
	)

Definition at line 2909 of file sblat2.f.

LOGICAL LSERES	(	CHARACTER*2	TYPE,
		CHARACTER*1	UPLO,
		INTEGER	M,
		INTEGER	N,
		REAL,dimension( lda, * )	AA,
		REAL,dimension( lda, * )	AS,
		INTEGER	LDA
	)

Definition at line 2939 of file sblat2.f.

REAL SBEG

(

LOGICAL

RESET )

Definition at line 2999 of file sblat2.f.

program SBLAT2

(

)

Definition at line 1 of file sblat2.f.

subroutine SCHK1	(	CHARACTER*6	SNAME,
		REAL	EPS,
		REAL	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,
		REAL,dimension( nalf )	ALF,
		INTEGER	NBET,
		REAL,dimension( nbet )	BET,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		REAL,dimension( nmax, nmax )	A,
		REAL,dimension( nmax*nmax )	AA,
		REAL,dimension( nmax*nmax )	AS,
		REAL,dimension( nmax )	X,
		REAL,dimension( nmax*incmax )	XX,
		REAL,dimension( nmax*incmax )	XS,
		REAL,dimension( nmax )	Y,
		REAL,dimension( nmax*incmax )	YY,
		REAL,dimension( nmax*incmax )	YS,
		REAL,dimension( nmax )	YT,
		REAL,dimension( nmax )	G
	)

Definition at line 395 of file sblat2.f.

subroutine SCHK2	(	CHARACTER*6	SNAME,
		REAL	EPS,
		REAL	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,
		REAL,dimension( nalf )	ALF,
		INTEGER	NBET,
		REAL,dimension( nbet )	BET,
		INTEGER	NINC,
		INTEGER,dimension( ninc )	INC,
		INTEGER	NMAX,
		INTEGER	INCMAX,
		REAL,dimension( nmax, nmax )	A,
		REAL,dimension( nmax*nmax )	AA,
		REAL,dimension( nmax*nmax )	AS,
		REAL,dimension( nmax )	X,
		REAL,dimension( nmax*incmax )	XX,
		REAL,dimension( nmax*incmax )	XS,
		REAL,dimension( nmax )	Y,
		REAL,dimension( nmax*incmax )	YY,
		REAL,dimension( nmax*incmax )	YS,
		REAL,dimension( nmax )	YT,
		REAL,dimension( nmax )	G
	)

Definition at line 736 of file sblat2.f.

subroutine SCHK3	(	CHARACTER*6	SNAME,
		REAL	EPS,
		REAL	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,
		REAL,dimension( nmax, nmax )	A,
		REAL,dimension( nmax*nmax )	AA,
		REAL,dimension( nmax*nmax )	AS,
		REAL,dimension( nmax )	X,
		REAL,dimension( nmax*incmax )	XX,
		REAL,dimension( nmax*incmax )	XS,
		REAL,dimension( nmax )	XT,
		REAL,dimension( nmax )	G,
		REAL,dimension( nmax )	Z
	)

Definition at line 1079 of file sblat2.f.

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

Definition at line 1436 of file sblat2.f.

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

Definition at line 1697 of file sblat2.f.

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

Definition at line 1975 of file sblat2.f.

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

Definition at line 2290 of file sblat2.f.

REAL SDIFF	(	REAL	X,
		REAL	Y
	)

Definition at line 3045 of file sblat2.f.

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

Definition at line 2616 of file sblat2.f.

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

Definition at line 2792 of file sblat2.f.

subroutine XERBLA	(	CHARACTER*6	SRNAME,
		INTEGER	INFO
	)

Definition at line 3089 of file sblat2.f.