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 2355 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: