LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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 *
logical function lce(RI, RJ, LR)
Definition: cblat2.f:3039
Here is the call graph for this function: