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.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
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