lseres()

logical function lseres	(	character*2	type,
		character*1	uplo,
		integer	m,
		integer	n,
		real, dimension( lda, * )	aa,
		real, dimension( lda, * )	as,
		integer	lda )

Definition at line 2372 of file c_sblat3.f.

*
*  Tests if selected elements in two arrays are equal.
*
*  TYPE is 'GE' or 'SY'.
*
*  Auxiliary routine for test program for Level 3 Blas.
*
*  -- Written on 8-February-1989.
*     Jack Dongarra, Argonne National Laboratory.
*     Iain Duff, AERE Harwell.
*     Jeremy Du Croz, Numerical Algorithms Group Ltd.
*     Sven Hammarling, Numerical Algorithms Group Ltd.
*
*     .. Scalar Arguments ..
      INTEGER            LDA, M, N
      CHARACTER*1        UPLO
      CHARACTER*2        TYPE
*     .. Array Arguments ..
      REAL               AA( LDA, * ), AS( LDA, * )
*     .. Local Scalars ..
      INTEGER            I, IBEG, IEND, J
      LOGICAL            UPPER
*     .. Executable Statements ..
      upper = uplo.EQ.'U'
      IF( type.EQ.'GE' )THEN
         DO 20 j = 1, n
            DO 10 i = m + 1, lda
               IF( aa( i, j ).NE.as( i, j ) )
     $            GO TO 70
   10       CONTINUE
   20    CONTINUE
      ELSE IF( type.EQ.'SY' )THEN
         DO 50 j = 1, n
            IF( upper )THEN
               ibeg = 1
               iend = j
            ELSE
               ibeg = j
               iend = n
            END IF
            DO 30 i = 1, ibeg - 1
               IF( aa( i, j ).NE.as( i, j ) )
     $            GO TO 70
   30       CONTINUE
            DO 40 i = iend + 1, lda
               IF( aa( i, j ).NE.as( i, j ) )
     $            GO TO 70
   40       CONTINUE
   50    CONTINUE
      END IF
*
   60 CONTINUE
      lseres = .true.
      GO TO 80
   70 CONTINUE
      lseres = .false.
   80 RETURN
*
*     End of LSERES.
*

Here is the call graph for this function: