1 files changed, 0 insertions, 14 deletions
diff --git a/bench/btl/libs/f77/sata.f b/bench/btl/libs/f77/sata.f
deleted file mode 100644
index 3ab83d958..000000000
--- a/bench/btl/libs/f77/sata.f
+++ /dev/null
@@ -1,14 +0,0 @@
-      SUBROUTINE SATA(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(K,I)*A(K,J)
-   10    CONTINUE
-         X(I,J)=R
-   20 CONTINUE
-      RETURN
-      END