diff options
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 |