diff options
author | Gael Guennebaud <g.gael@free.fr> | 2011-03-23 10:07:24 +0100 |
---|---|---|
committer | Gael Guennebaud <g.gael@free.fr> | 2011-03-23 10:07:24 +0100 |
commit | e35b1ef3f39bac2fc4391a8326b50602425fb588 (patch) | |
tree | f7598761a1506ea8be009532a3dc92b1bc676611 /bench/btl/libs/f77/daat.f | |
parent | fe595e91ae9a2d8544cae167775d7a076fcaf27c (diff) |
BTL: rm stupid backends
Diffstat (limited to 'bench/btl/libs/f77/daat.f')
-rw-r--r-- | bench/btl/libs/f77/daat.f | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/bench/btl/libs/f77/daat.f b/bench/btl/libs/f77/daat.f deleted file mode 100644 index a50329a66..000000000 --- a/bench/btl/libs/f77/daat.f +++ /dev/null @@ -1,14 +0,0 @@ - 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 |