bench/btl/libs/f77/saat.f

      SUBROUTINE SAAT(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(I,K)*A(J,K)
   10    CONTINUE
         X(I,J)=R
   20 CONTINUE
      RETURN
      END
imported a reworked version of BTL (Benchmark for Templated Libraries). 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 2008-07-09 14:04:48 +00:00			`SUBROUTINE SAAT(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(I,K)*A(J,K)`
			`10 CONTINUE`
			`X(I,J)=R`
			`20 CONTINUE`
			`RETURN`
			`END`