LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lde()

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

Definition at line 2945 of file dblat2.f.

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