Télécharger la plaquette Cast3M


fr en

Télécharger mulve1.eso

Retour à la liste

Numérotation des lignes : 

mulve1

  1. C MULVE1    SOURCE    CHAT      05/01/13    01:55:38     5004
  2.       SUBROUTINE MULVE1 (ALPHA,VECTOR,LVECT)
  3. ************************************************************************
  4. *
  5. *                             M U L V E 1
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     PRODUIT D'UN VECTEUR PAR UN REEL.
  12. *
  13. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  14. * -----------
  15. *
  16. *     ALPHA   (E)  COEFFICIENT MULTIPLICATEUR.
  17. *     VECTOR  (E)  VECTEUR A MULTIPLIER.
  18. *             (S)  = ALPHA * VECTOR.
  19. *     LVECT   (E)  LONGUEUR DE "VECTOR".
  20. *
  21.       IMPLICIT INTEGER(I-N)
  22.       INTEGER LVECT
  23.       REAL*8 ALPHA,VECTOR(*)
  24. *
  25. * AUTEUR, DATE DE CREATION:
  26. * -------------------------
  27. *
  28. *     PASCAL MANIGOT     28 MARS 1988
  29. *
  30. * LANGAGE:
  31. * --------
  32. *
  33. *     FORTRAN77
  34. *
  35. ************************************************************************
  36. *
  37.       DO 10 I=1,LVECT
  38.          VECTOR(I) = ALPHA * VECTOR(I)
  39.    10    CONTINUE
  40. *     END DO
  41. *
  42.       END
  43.  
  44.  

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