LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ lceres()

logical function lceres ( character*2  TYPE,
character*1  UPLO,
integer  M,
integer  N,
complex, dimension( lda, * )  AA,
complex, dimension( lda, * )  AS,
integer  LDA 
)

Definition at line 3068 of file cblat2.f.

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