Logo Search packages:      
Sourcecode: eigen3 version File versions  Download package

saxpy.f

      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

Generated by  Doxygen 1.6.0   Back to index