1 files changed, 14 insertions, 0 deletions
diff --git a/bench/btl/libs/f77/data.f b/bench/btl/libs/f77/data.f
new file mode 100644
index 000000000..709211ca5
--- /dev/null
+++ b/bench/btl/libs/f77/data.f
@@ -0,0 +1,14 @@
+      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