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 2787 of file c_sblat2.f.

*
*  Tests if selected elements in two arrays are equal.
*
*  TYPE is 'ge', 'sy' or 'sp'.
*
*  Auxiliary routine for test program for Level 2 Blas.
*
*  -- Written on 10-August-1987.
*     Richard Hanson, Sandia National Labs.
*     Jeremy Du Croz, NAG Central Office.
*
*     .. 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: