logical function lde	(	double precision, dimension( * )	RI,
		double precision, dimension( * )	RJ,
		integer	LR
	)

Definition at line 2631 of file dblat3.f.

*
*  Tests if two arrays are identical.
*
*  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            lr
*     .. Array Arguments ..
      DOUBLE PRECISION   ri( * ), rj( * )
*     .. Local Scalars ..
      INTEGER            i
*     .. Executable Statements ..
      DO 10 i = 1, lr
         IF( ri( i ).NE.rj( i ) )
     $      GO TO 20
   10 CONTINUE
      lde = .true.
      GO TO 30
   20 CONTINUE
      lde = .false.
   30 RETURN
*
*     End of LDE.
*

Here is the call graph for this function: