LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lce()

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

Definition at line 3242 of file cblat3.f.

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