1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
*
LOGICAL FUNCTION LDE(DI,DJ,M,N,LDI)
C TEST IF TWO DOUBLE PRECISION ARRAYS ARE IDENTICAL.
C THE ARRAYS ARE M BY N.
C THIS IS A TEST SUBPROGRAM FOR THE LEVEL TWO BLAS.
C REVISED 860623
C REVISED YYMMDD
C AUTH=R. J. HANSON, SANDIA NATIONAL LABS.
DOUBLE PRECISION DI(LDI,*),DJ(LDI,*)
DO 20 I = 1,M
DO 10 J = 1,N
IF (DI(I,J).NE.DJ(I,J)) THEN
LDE = .FALSE.
GO TO 30
*
END IF
*
10 CONTINUE
20 CONTINUE
LDE = .TRUE.
30 CONTINUE
RETURN
* LAST EXECUTABLE LINE OF LDE
END
|
