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