blob: 709211ca58e641bed96530ff08c92a9544df3178 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
SUBROUTINE DATA(A,X,N)
**
** X = AT * A
REAL*8 A(N,N),X(N,N),R
DO 20 I=1,N
DO 20 J=1,N
R=0.
DO 10 K=1,N
R=R+A(K,I)*A(K,J)
10 CONTINUE
X(I,J)=R
20 CONTINUE
RETURN
END
|