Télécharger plvect.eso

Retour à la liste

Numérotation des lignes :

  1. C PLVECT SOURCE CHAT 05/01/13 02:15:14 5004
  2. SUBROUTINE PLVECT(U,COU,V,COV,N,W)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION U(N),V(N),W(N)
  6. C
  7. C-----------------------------------------------------
  8. C CALCUL DE LA SOMME PONDEREE DE 2 VECTEURS
  9. C DE DIMENSION EGALE QUELCONQUE
  10. C W=COU*U+COV*V
  11. C-----------------------------------------------------
  12. C
  13. USV=0.D0
  14. DO IE1=1,N
  15. W(IE1)=COU*U(IE1)+COV*V(IE1)
  16. ENDDO
  17. C
  18. RETURN
  19. END
  20.  
  21.  
  22.  

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