LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lze()

logical function lze ( complex*16, dimension( * )  RI,
complex*16, dimension( * )  RJ,
integer  LR 
)

Definition at line 3050 of file zblat2.f.

3050 *
3051 * Tests if two arrays are identical.
3052 *
3053 * Auxiliary routine for test program for Level 2 Blas.
3054 *
3055 * -- Written on 10-August-1987.
3056 * Richard Hanson, Sandia National Labs.
3057 * Jeremy Du Croz, NAG Central Office.
3058 *
3059 * .. Scalar Arguments ..
3060  INTEGER lr
3061 * .. Array Arguments ..
3062  COMPLEX*16 ri( * ), rj( * )
3063 * .. Local Scalars ..
3064  INTEGER i
3065 * .. Executable Statements ..
3066  DO 10 i = 1, lr
3067  IF( ri( i ).NE.rj( i ) )
3068  $ GO TO 20
3069  10 CONTINUE
3070  lze = .true.
3071  GO TO 30
3072  20 CONTINUE
3073  lze = .false.
3074  30 RETURN
3075 *
3076 * End of LZE.
3077 *
logical function lze(RI, RJ, LR)
Definition: zblat2.f:3050
Here is the caller graph for this function: