blob: d0f74fd7059b45612ed342f7cd16f013e1038afb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
SUBROUTINE SAXPYF(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
|