Functions/Subroutines
program	dblat3

subroutine	dchk1 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER)

subroutine	dprcn1 (NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N, K, ALPHA, LDA, LDB, BETA, LDC)

subroutine	dchk2 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER)

subroutine	dprcn2 (NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, LDB, BETA, LDC)

subroutine	dchk3 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, B, BB, BS, CT, G, C, IORDER)

subroutine	dprcn3 (NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, LDA, LDB)

subroutine	dchk4 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, A, AA, AS, B, BB, BS, C, CC, CS, CT, G, IORDER)

subroutine	dprcn4 (NOUT, NC, SNAME, IORDER, UPLO, TRANSA, N, K, ALPHA, LDA, BETA, LDC)

subroutine	dchk5 (SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, IORDER)

subroutine	dprcn5 (NOUT, NC, SNAME, IORDER, UPLO, TRANSA, N, K, ALPHA, LDA, LDB, BETA, LDC)

subroutine	dmake (TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, TRANSL)

subroutine	dmmch (TRANSA, TRANSB, M, N, KK, ALPHA, A, LDA, B, LDB, BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL, NOUT, MV)

logical function	lde (RI, RJ, LR)

logical function	lderes (TYPE, UPLO, M, N, AA, AS, LDA)

double precision function	dbeg (RESET)

double precision function	ddiff (X, Y)

Function/Subroutine Documentation

double precision function dbeg ( logical RESET )

program dblat3 ( )

subroutine dchk1	(	character*12	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,
		double precision, dimension( nalf )	ALF,
		integer	NBET,
		double precision, dimension( nbet )	BET,
		integer	NMAX,
		double precision, dimension( nmax, nmax )	A,
		double precision, dimension( nmax*nmax )	AA,
		double precision, dimension( nmax*nmax )	AS,
		double precision, dimension( nmax, nmax )	B,
		double precision, dimension( nmax*nmax )	BB,
		double precision, dimension( nmax*nmax )	BS,
		double precision, dimension( nmax, nmax )	C,
		double precision, dimension( nmax*nmax )	CC,
		double precision, dimension( nmax*nmax )	CS,
		double precision, dimension( nmax )	CT,
		double precision, dimension( nmax )	G,
		integer	IORDER
	)

subroutine dchk2	(	character*12	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,
		double precision, dimension( nalf )	ALF,
		integer	NBET,
		double precision, dimension( nbet )	BET,
		integer	NMAX,
		double precision, dimension( nmax, nmax )	A,
		double precision, dimension( nmax*nmax )	AA,
		double precision, dimension( nmax*nmax )	AS,
		double precision, dimension( nmax, nmax )	B,
		double precision, dimension( nmax*nmax )	BB,
		double precision, dimension( nmax*nmax )	BS,
		double precision, dimension( nmax, nmax )	C,
		double precision, dimension( nmax*nmax )	CC,
		double precision, dimension( nmax*nmax )	CS,
		double precision, dimension( nmax )	CT,
		double precision, dimension( nmax )	G,
		integer	IORDER
	)

subroutine dchk3	(	character*12	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,
		double precision, dimension( nalf )	ALF,
		integer	NMAX,
		double precision, dimension( nmax, nmax )	A,
		double precision, dimension( nmax*nmax )	AA,
		double precision, dimension( nmax*nmax )	AS,
		double precision, dimension( nmax, nmax )	B,
		double precision, dimension( nmax*nmax )	BB,
		double precision, dimension( nmax*nmax )	BS,
		double precision, dimension( nmax )	CT,
		double precision, dimension( nmax )	G,
		double precision, dimension( nmax, nmax )	C,
		integer	IORDER
	)

subroutine dchk4	(	character*12	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,
		double precision, dimension( nalf )	ALF,
		integer	NBET,
		double precision, dimension( nbet )	BET,
		integer	NMAX,
		double precision, dimension( nmax, nmax )	A,
		double precision, dimension( nmax*nmax )	AA,
		double precision, dimension( nmax*nmax )	AS,
		double precision, dimension( nmax, nmax )	B,
		double precision, dimension( nmax*nmax )	BB,
		double precision, dimension( nmax*nmax )	BS,
		double precision, dimension( nmax, nmax )	C,
		double precision, dimension( nmax*nmax )	CC,
		double precision, dimension( nmax*nmax )	CS,
		double precision, dimension( nmax )	CT,
		double precision, dimension( nmax )	G,
		integer	IORDER
	)

subroutine dchk5	(	character*12	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,
		double precision, dimension( nalf )	ALF,
		integer	NBET,
		double precision, dimension( nbet )	BET,
		integer	NMAX,
		double precision, dimension( 2nmaxnmax )	AB,
		double precision, dimension( nmax*nmax )	AA,
		double precision, dimension( nmax*nmax )	AS,
		double precision, dimension( nmax*nmax )	BB,
		double precision, dimension( nmax*nmax )	BS,
		double precision, dimension( nmax, nmax )	C,
		double precision, dimension( nmax*nmax )	CC,
		double precision, dimension( nmax*nmax )	CS,
		double precision, dimension( nmax )	CT,
		double precision, dimension( nmax )	G,
		double precision, dimension( 2*nmax )	W,
		integer	IORDER
	)

double precision function ddiff	(	double precision	X,
		double precision	Y
	)

subroutine dmake	(	character*2	TYPE,
		character*1	UPLO,
		character*1	DIAG,
		integer	M,
		integer	N,
		double precision, dimension( nmax, * )	A,
		integer	NMAX,
		double precision, dimension( * )	AA,
		integer	LDA,
		logical	RESET,
		double precision	TRANSL
	)

subroutine dmmch	(	character*1	TRANSA,
		character*1	TRANSB,
		integer	M,
		integer	N,
		integer	KK,
		double precision	ALPHA,
		double precision, dimension( lda, * )	A,
		integer	LDA,
		double precision, dimension( ldb, * )	B,
		integer	LDB,
		double precision	BETA,
		double precision, dimension( ldc, * )	C,
		integer	LDC,
		double precision, dimension( * )	CT,
		double precision, dimension( * )	G,
		double precision, dimension( ldcc, * )	CC,
		integer	LDCC,
		double precision	EPS,
		double precision	ERR,
		logical	FATAL,
		integer	NOUT,
		logical	MV
	)

subroutine dprcn1	(	integer	NOUT,
		integer	NC,
		character*12	SNAME,
		integer	IORDER,
		character*1	TRANSA,
		character*1	TRANSB,
		integer	M,
		integer	N,
		integer	K,
		double precision	ALPHA,
		integer	LDA,
		integer	LDB,
		double precision	BETA,
		integer	LDC
	)

subroutine dprcn2	(	integer	NOUT,
		integer	NC,
		character*12	SNAME,
		integer	IORDER,
		character*1	SIDE,
		character*1	UPLO,
		integer	M,
		integer	N,
		double precision	ALPHA,
		integer	LDA,
		integer	LDB,
		double precision	BETA,
		integer	LDC
	)

subroutine dprcn3	(	integer	NOUT,
		integer	NC,
		character*12	SNAME,
		integer	IORDER,
		character*1	SIDE,
		character*1	UPLO,
		character*1	TRANSA,
		character*1	DIAG,
		integer	M,
		integer	N,
		double precision	ALPHA,
		integer	LDA,
		integer	LDB
	)

subroutine dprcn4	(	integer	NOUT,
		integer	NC,
		character*12	SNAME,
		integer	IORDER,
		character*1	UPLO,
		character*1	TRANSA,
		integer	N,
		integer	K,
		double precision	ALPHA,
		integer	LDA,
		double precision	BETA,
		integer	LDC
	)

subroutine dprcn5	(	integer	NOUT,
		integer	NC,
		character*12	SNAME,
		integer	IORDER,
		character*1	UPLO,
		character*1	TRANSA,
		integer	N,
		integer	K,
		double precision	ALPHA,
		integer	LDA,
		integer	LDB,
		double precision	BETA,
		integer	LDC
	)

logical function lde	(	double precision, dimension( * )	RI,
		double precision, dimension( * )	RJ,
		integer	LR
	)

logical function lderes	(	character*2	TYPE,
		character*1	UPLO,
		integer	M,
		integer	N,
		double precision, dimension( lda, * )	AA,
		double precision, dimension( lda, * )	AS,
		integer	LDA
	)

Functions/Subroutines

Function/Subroutine Documentation