LAPACK  3.8.0 LAPACK: Linear Algebra PACKage

## ◆ zgennd()

 logical function zgennd ( integer M, integer N, complex*16, dimension( lda, * ) A, integer LDA )

ZGENND

Purpose:
`    ZGENND tests that its argument has a real, 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 COMPLEX*16 array, dimension (LDA, N) The matrix.``` [in] LDA ``` LDA is INTEGER Leading dimension of A.```
Date
December 2016

Definition at line 70 of file zgennd.f.

70 *
71 * -- LAPACK test routine (version 3.7.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 * December 2016
75 *
76 * .. Scalar Arguments ..
77  INTEGER m, n, lda
78 * ..
79 * .. Array Arguments ..
80  COMPLEX*16 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  COMPLEX*16 aii
92 * ..
93 * .. Intrinsics ..
94  INTRINSIC min, dble, dimag
95 * ..
96 * .. Executable Statements ..
97  k = min( m, n )
98  DO i = 1, k
99  aii = a( i, i )
100  IF( dble( aii ).LT.zero.OR.dimag( aii ).NE.zero ) THEN
101  zgennd = .false.
102  RETURN
103  END IF
104  END DO
105  zgennd = .true.
106  RETURN
logical function zgennd(M, N, A, LDA)
ZGENND
Definition: zgennd.f:70