sgennd()

logical function sgennd	(	integer	m,
		integer	n,
		real, dimension( lda, * )	a,
		integer	lda
	)

SGENND

Purpose:

    SGENND tests that its argument has a non-negative diagonal.

Parameters

[in]	M	M is INTEGER The number of rows in A.
[in]	N	N is INTEGER The number of columns in A.
[in]	A	A is REAL array, dimension (LDA, N) The matrix.
[in]	LDA	LDA is INTEGER Leading dimension of A.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.