LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ lderes()

logical function lderes ( character*2  TYPE,
character*1  UPLO,
integer  M,
integer  N,
double precision, dimension( lda, * )  AA,
double precision, dimension( lda, * )  AS,
integer  LDA 
)

Definition at line 2971 of file dblat2.f.

2972 *
2973 * Tests if selected elements in two arrays are equal.
2974 *
2975 * TYPE is 'GE', 'SY' or 'SP'.
2976 *
2977 * Auxiliary routine for test program for Level 2 Blas.
2978 *
2979 * -- Written on 10-August-1987.
2980 * Richard Hanson, Sandia National Labs.
2981 * Jeremy Du Croz, NAG Central Office.
2982 *
2983 * .. Scalar Arguments ..
2984  INTEGER LDA, M, N
2985  CHARACTER*1 UPLO
2986  CHARACTER*2 TYPE
2987 * .. Array Arguments ..
2988  DOUBLE PRECISION AA( LDA, * ), AS( LDA, * )
2989 * .. Local Scalars ..
2990  INTEGER I, IBEG, IEND, J
2991  LOGICAL UPPER
2992 * .. Executable Statements ..
2993  upper = uplo.EQ.'U'
2994  IF( type.EQ.'GE' )THEN
2995  DO 20 j = 1, n
2996  DO 10 i = m + 1, lda
2997  IF( aa( i, j ).NE.as( i, j ) )
2998  $ GO TO 70
2999  10 CONTINUE
3000  20 CONTINUE
3001  ELSE IF( type.EQ.'SY' )THEN
3002  DO 50 j = 1, n
3003  IF( upper )THEN
3004  ibeg = 1
3005  iend = j
3006  ELSE
3007  ibeg = j
3008  iend = n
3009  END IF
3010  DO 30 i = 1, ibeg - 1
3011  IF( aa( i, j ).NE.as( i, j ) )
3012  $ GO TO 70
3013  30 CONTINUE
3014  DO 40 i = iend + 1, lda
3015  IF( aa( i, j ).NE.as( i, j ) )
3016  $ GO TO 70
3017  40 CONTINUE
3018  50 CONTINUE
3019  END IF
3020 *
3021  lderes = .true.
3022  GO TO 80
3023  70 CONTINUE
3024  lderes = .false.
3025  80 RETURN
3026 *
3027 * End of LDERES
3028 *
logical function lderes(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: dblat2.f:2972
Here is the caller graph for this function: