LAPACK  3.10.0 LAPACK: Linear Algebra PACKage

## ◆ 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.```

Definition at line 67 of file sgennd.f.

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