LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
logical function lze ( complex*16, dimension( * )  RI,
complex*16, dimension( * )  RJ,
integer  LR 
)

Definition at line 2626 of file c_zblat3.f.

2626 *
2627 * Tests if two arrays are identical.
2628 *
2629 * Auxiliary routine for test program for Level 3 Blas.
2630 *
2631 * -- Written on 8-February-1989.
2632 * Jack Dongarra, Argonne National Laboratory.
2633 * Iain Duff, AERE Harwell.
2634 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
2635 * Sven Hammarling, Numerical Algorithms Group Ltd.
2636 *
2637 * .. Scalar Arguments ..
2638  INTEGER lr
2639 * .. Array Arguments ..
2640  COMPLEX*16 ri( * ), rj( * )
2641 * .. Local Scalars ..
2642  INTEGER i
2643 * .. Executable Statements ..
2644  DO 10 i = 1, lr
2645  IF( ri( i ).NE.rj( i ) )
2646  $ GO TO 20
2647  10 CONTINUE
2648  lze = .true.
2649  GO TO 30
2650  20 CONTINUE
2651  lze = .false.
2652  30 RETURN
2653 *
2654 * End of LZE.
2655 *
logical function lze(RI, RJ, LR)
Definition: zblat2.f:3050

Here is the call graph for this function: