LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 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.
Date
November 2011

Definition at line 70 of file sgennd.f.

70 *
71 * -- LAPACK test routine (version 3.4.0) --
72 * -- LAPACK is a software package provided by Univ. of Tennessee, --
73 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
74 * November 2011
75 *
76 * .. Scalar Arguments ..
77  INTEGER m, n, lda
78 * ..
79 * .. Array Arguments ..
80  REAL a( lda, * )
81 * ..
82 *
83 * =====================================================================
84 *
85 * .. Parameters ..
86  REAL zero
87  parameter ( zero = 0.0e0 )
88 * ..
89 * .. Local Scalars ..
90  INTEGER i, k
91 * ..
92 * .. Intrinsics ..
93  INTRINSIC min
94 * ..
95 * .. Executable Statements ..
96  k = min( m, n )
97  DO i = 1, k
98  IF( a( i, i ).LT.zero ) THEN
99  sgennd = .false.
100  RETURN
101  END IF
102  END DO
103  sgennd = .true.
104  RETURN
logical function sgennd(M, N, A, LDA)
SGENND
Definition: sgennd.f:70