path: root/bench/btl/libs/f77/daat.f

      SUBROUTINE DAAT(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(I,K)*A(J,K)
   10    CONTINUE
         X(I,J)=R
   20 CONTINUE
      RETURN
      END