LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ lce()

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

Definition at line 3238 of file cblat3.f.

3239*
3240* Tests if two arrays are identical.
3241*
3242* Auxiliary routine for test program for Level 3 Blas.
3243*
3244* -- Written on 8-February-1989.
3245* Jack Dongarra, Argonne National Laboratory.
3246* Iain Duff, AERE Harwell.
3247* Jeremy Du Croz, Numerical Algorithms Group Ltd.
3248* Sven Hammarling, Numerical Algorithms Group Ltd.
3249*
3250* .. Scalar Arguments ..
3251 INTEGER LR
3252* .. Array Arguments ..
3253 COMPLEX RI( * ), RJ( * )
3254* .. Local Scalars ..
3255 INTEGER I
3256* .. Executable Statements ..
3257 DO 10 i = 1, lr
3258 IF( ri( i ).NE.rj( i ) )
3259 $ GO TO 20
3260 10 CONTINUE
3261 lce = .true.
3262 GO TO 30
3263 20 CONTINUE
3264 lce = .false.
3265 30 RETURN
3266*
3267* End of LCE
3268*
lce
logical function lce(ri, rj, lr)
Definition cblat2.f:3067
Here is the call graph for this function: