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 3252 of file zblat3.f.

3252 *
3253 * Tests if two arrays are identical.
3254 *
3255 * Auxiliary routine for test program for Level 3 Blas.
3256 *
3257 * -- Written on 8-February-1989.
3258 * Jack Dongarra, Argonne National Laboratory.
3259 * Iain Duff, AERE Harwell.
3260 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
3261 * Sven Hammarling, Numerical Algorithms Group Ltd.
3262 *
3263 * .. Scalar Arguments ..
3264  INTEGER lr
3265 * .. Array Arguments ..
3266  COMPLEX*16 ri( * ), rj( * )
3267 * .. Local Scalars ..
3268  INTEGER i
3269 * .. Executable Statements ..
3270  DO 10 i = 1, lr
3271  IF( ri( i ).NE.rj( i ) )
3272  $ GO TO 20
3273  10 CONTINUE
3274  lze = .true.
3275  GO TO 30
3276  20 CONTINUE
3277  lze = .false.
3278  30 RETURN
3279 *
3280 * End of LZE.
3281 *
logical function lze(RI, RJ, LR)
Definition: zblat2.f:3050
Here is the call graph for this function: