lze()

logical function lze	(	complex*16, dimension( * )	ri,
		complex*16, dimension( * )	rj,
		integer	lr
	)

Definition at line 2589 of file c_zblat2.f.

*
*  Tests if two arrays are identical.
*
*  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            LR
*     .. Array Arguments ..
      COMPLEX*16         RI( * ), RJ( * )
*     .. Local Scalars ..
      INTEGER            I
*     .. Executable Statements ..
      DO 10 i = 1, lr
         IF( ri( i ).NE.rj( i ) )
     $      GO TO 20
   10 CONTINUE
      lze = .true.
      GO TO 30
   20 CONTINUE
      lze = .false.
   30 RETURN
*
*     End of LZE.
*

Here is the call graph for this function: