mirror of
https://gitlab.com/libeigen/eigen.git
synced 2024-12-21 07:19:46 +08:00
28539e7597
the modifications to initial code follow: * changed build system from plain makefiles to cmake * added eigen2 (4 versions: vec/novec and fixed/dynamic), GMM++, MTL4 interfaces * added "transposed matrix * vector" product action * updated blitz interface to use condensed products instead of hand coded loops * removed some deprecated interfaces * changed default storage order to column major for all libraries * new generic bench timer strategy which is supposed to be more accurate * various code clean-up
15 lines
253 B
Fortran
15 lines
253 B
Fortran
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
|