Télécharger sdot.eso

Retour à la liste

Numérotation des lignes :

  1. C SDOT SOURCE CHAT 05/01/13 03:13:04 5004
  2. FUNCTION SDOT(N,V,M,W,L)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C PRODUIT DE DEUX VECTEURS
  6. DIMENSION V(1),W(1)
  7. P=0.D0
  8. I1=1
  9. J1=1
  10. IF(M.EQ.1.AND.L.EQ.1) GO TO 2
  11. DO 1 I=1,N
  12. P = P + V(I1) * W(J1)
  13. I1=I1+M
  14. J1=J1+L
  15. 1 CONTINUE
  16. SDOT = P
  17. RETURN
  18. 2 DO 3 I = 1,N
  19. 3 P = P + V(I) * W(I)
  20. SDOT = P
  21. RETURN
  22. END
  23.  
  24.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales