bench/btl/libs/f77/data.f

      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
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 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`