Esope source files

   1 : C SAXPY     SOURCE    CHAT      05/01/13    03:12:00     5004           
   2 :       SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       REAL*8 SA,SX(1),SY(1)
   6 : C
   7 : C         CE SOUS PROGRAMME FAIT PARTIE DE LA BIBLIOTHEQUE CRAY
   8 : C           ET DOIT ETRE CHARGE UNIQUEMENT SUR IBM
   9 : C
  10 : C
  11 :       Z=0.D0
  12 :       DO 1 I=1,N
  13 :       SY(I)=SY(I)+SA*SX(I)
  14 :  1    CONTINUE
  15 :       RETURN
  16 :       END
  17 : 
  18 :  
  19 :