LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ lde()

logical function lde ( double precision, dimension( * )  RI,
double precision, dimension( * )  RJ,
integer  LR 
)

Definition at line 2941 of file dblat2.f.

2942 *
2943 * Tests if two arrays are identical.
2944 *
2945 * Auxiliary routine for test program for Level 2 Blas.
2946 *
2947 * -- Written on 10-August-1987.
2948 * Richard Hanson, Sandia National Labs.
2949 * Jeremy Du Croz, NAG Central Office.
2950 *
2951 * .. Scalar Arguments ..
2952  INTEGER LR
2953 * .. Array Arguments ..
2954  DOUBLE PRECISION RI( * ), RJ( * )
2955 * .. Local Scalars ..
2956  INTEGER I
2957 * .. Executable Statements ..
2958  DO 10 i = 1, lr
2959  IF( ri( i ).NE.rj( i ) )
2960  $ GO TO 20
2961  10 CONTINUE
2962  lde = .true.
2963  GO TO 30
2964  20 CONTINUE
2965  lde = .false.
2966  30 RETURN
2967 *
2968 * End of LDE
2969 *
logical function lde(RI, RJ, LR)
Definition: dblat2.f:2942
Here is the caller graph for this function: