1 files changed, 16 insertions, 0 deletions
diff --git a/bench/btl/libs/f77/saxpy.f b/bench/btl/libs/f77/saxpy.f
new file mode 100644
index 000000000..5eda4c2d2
--- /dev/null
+++ b/bench/btl/libs/f77/saxpy.f
@@ -0,0 +1,16 @@
+      SUBROUTINE SAXPY(N,A,X,Y)
+**  ***************************************
+**    CALCULE  Y = Y + A*X
+**  ***************************************
+*>N     NOMBRE D'OPERATIONS A FAIRE
+*>A     CONSTANTE MULTIPLICATIVE
+*>X     TABLEAU
+*=Y     TABLEAU DES RESULTATS
+*A R. SANCHEZ ( EARLY WINTER 1987 )
+*V M.F. ROBEAU
+      DIMENSION X(1),Y(1)
+           DO 10 I=1,N
+      Y(I)=Y(I)+A*X(I)
+   10 CONTINUE
+      RETURN
+      END