LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lce()

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

Definition at line 3042 of file cblat2.f.

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