LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ lde()

logical function lde ( double precision, dimension( * )  ri,
double precision, dimension( * )  rj,
integer  lr 
)

Definition at line 2969 of file dblat2.f.

2970*
2971* Tests if two arrays are identical.
2972*
2973* Auxiliary routine for test program for Level 2 Blas.
2974*
2975* -- Written on 10-August-1987.
2976* Richard Hanson, Sandia National Labs.
2977* Jeremy Du Croz, NAG Central Office.
2978*
2979* .. Scalar Arguments ..
2980 INTEGER LR
2981* .. Array Arguments ..
2982 DOUBLE PRECISION RI( * ), RJ( * )
2983* .. Local Scalars ..
2984 INTEGER I
2985* .. Executable Statements ..
2986 DO 10 i = 1, lr
2987 IF( ri( i ).NE.rj( i ) )
2988 $ GO TO 20
2989 10 CONTINUE
2990 lde = .true.
2991 GO TO 30
2992 20 CONTINUE
2993 lde = .false.
2994 30 RETURN
2995*
2996* End of LDE
2997*
logical function lde(ri, rj, lr)
Definition dblat2.f:2970
Here is the call graph for this function:
Here is the caller graph for this function: