LAPACK 3.12.0 LAPACK: Linear Algebra PACKage
Searching...
No Matches

## ◆ lzeres()

 logical function lzeres ( character*2 type, character*1 uplo, integer m, integer n, complex*16, dimension( lda, * ) aa, complex*16, dimension( lda, * ) as, integer lda )

Definition at line 3104 of file zblat2.f.

3105*
3106* Tests if selected elements in two arrays are equal.
3107*
3108* TYPE is 'GE', 'HE' or 'HP'.
3109*
3110* Auxiliary routine for test program for Level 2 Blas.
3111*
3112* -- Written on 10-August-1987.
3113* Richard Hanson, Sandia National Labs.
3114* Jeremy Du Croz, NAG Central Office.
3115*
3116* .. Scalar Arguments ..
3117 INTEGER LDA, M, N
3118 CHARACTER*1 UPLO
3119 CHARACTER*2 TYPE
3120* .. Array Arguments ..
3121 COMPLEX*16 AA( LDA, * ), AS( LDA, * )
3122* .. Local Scalars ..
3123 INTEGER I, IBEG, IEND, J
3124 LOGICAL UPPER
3125* .. Executable Statements ..
3126 upper = uplo.EQ.'U'
3127 IF( type.EQ.'GE' )THEN
3128 DO 20 j = 1, n
3129 DO 10 i = m + 1, lda
3130 IF( aa( i, j ).NE.as( i, j ) )
3131 \$ GO TO 70
3132 10 CONTINUE
3133 20 CONTINUE
3134 ELSE IF( type.EQ.'HE' )THEN
3135 DO 50 j = 1, n
3136 IF( upper )THEN
3137 ibeg = 1
3138 iend = j
3139 ELSE
3140 ibeg = j
3141 iend = n
3142 END IF
3143 DO 30 i = 1, ibeg - 1
3144 IF( aa( i, j ).NE.as( i, j ) )
3145 \$ GO TO 70
3146 30 CONTINUE
3147 DO 40 i = iend + 1, lda
3148 IF( aa( i, j ).NE.as( i, j ) )
3149 \$ GO TO 70
3150 40 CONTINUE
3151 50 CONTINUE
3152 END IF
3153*
3154 lzeres = .true.
3155 GO TO 80
3156 70 CONTINUE
3157 lzeres = .false.
3158 80 RETURN
3159*
3160* End of LZERES
3161*
logical function lzeres(type, uplo, m, n, aa, as, lda)
Definition zblat2.f:3105
Here is the call graph for this function:
Here is the caller graph for this function: