Télécharger scvect.eso

Retour à la liste

Numérotation des lignes :

  1. C SCVECT SOURCE CHAT 05/01/13 03:13:01 5004
  2. FUNCTION SCVECT(U,V,N)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION U(N),V(N)
  6. C
  7. C-----------------------------------------------------
  8. C CALCUL DE LE PRODUIT SCALAIRE DE 2 VECTEURS
  9. C DE DIMENSION EGALE QUELCONQUE
  10. C SCVECT=U.V
  11. C-----------------------------------------------------
  12. C
  13. SCVECT=0.D0
  14. DO IE1=1,N
  15. SCVECT=SCVECT+U(IE1)*V(IE1)
  16. ENDDO
  17. C
  18. RETURN
  19. END
  20.  
  21.  
  22.  

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