blob: 3ab83d958b76360ced16ff2ae438e0b6b97e00ff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
SUBROUTINE SATA(A,X,N)
**
** X = AT * A
REAL*4 A(N,N),X(N,N)
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
|