LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ 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 3080 of file zblat2.f.

3080 *
3081 * Tests if selected elements in two arrays are equal.
3082 *
3083 * TYPE is 'GE', 'HE' or 'HP'.
3084 *
3085 * Auxiliary routine for test program for Level 2 Blas.
3086 *
3087 * -- Written on 10-August-1987.
3088 * Richard Hanson, Sandia National Labs.
3089 * Jeremy Du Croz, NAG Central Office.
3090 *
3091 * .. Scalar Arguments ..
3092  INTEGER lda, m, n
3093  CHARACTER*1 uplo
3094  CHARACTER*2 type
3095 * .. Array Arguments ..
3096  COMPLEX*16 aa( lda, * ), as( lda, * )
3097 * .. Local Scalars ..
3098  INTEGER i, ibeg, iend, j
3099  LOGICAL upper
3100 * .. Executable Statements ..
3101  upper = uplo.EQ.'U'
3102  IF( type.EQ.'GE' )THEN
3103  DO 20 j = 1, n
3104  DO 10 i = m + 1, lda
3105  IF( aa( i, j ).NE.as( i, j ) )
3106  $ GO TO 70
3107  10 CONTINUE
3108  20 CONTINUE
3109  ELSE IF( type.EQ.'HE' )THEN
3110  DO 50 j = 1, n
3111  IF( upper )THEN
3112  ibeg = 1
3113  iend = j
3114  ELSE
3115  ibeg = j
3116  iend = n
3117  END IF
3118  DO 30 i = 1, ibeg - 1
3119  IF( aa( i, j ).NE.as( i, j ) )
3120  $ GO TO 70
3121  30 CONTINUE
3122  DO 40 i = iend + 1, lda
3123  IF( aa( i, j ).NE.as( i, j ) )
3124  $ GO TO 70
3125  40 CONTINUE
3126  50 CONTINUE
3127  END IF
3128 *
3129  lzeres = .true.
3130  GO TO 80
3131  70 CONTINUE
3132  lzeres = .false.
3133  80 RETURN
3134 *
3135 * End of LZERES.
3136 *
logical function lzeres(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: zblat2.f:3080
Here is the caller graph for this function: