LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ lce()

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

Definition at line 3038 of file cblat2.f.

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