Télécharger muscve.eso

Retour à la liste

Numérotation des lignes :

  1. C MUSCVE SOURCE CHAT 05/01/13 01:55:52 5004
  2. SUBROUTINE MUSCVE(V1,SCAL,IDIMC,VSL)
  3. C ***************************************************************
  4. C MULTIPLIE UN VECTEUR PAR UN SCALAIRE VSL = SCAL * V1
  5. C ***************************************************************
  6. IMPLICIT INTEGER(I-N)
  7. INTEGER IDIMC
  8. REAL*8 V1(*),SCAL,VSL(*)
  9. C
  10. INTEGER I
  11. C
  12. IF(IDIMC.LE.0) RETURN
  13. DO 10 I=1,IDIMC
  14. VSL(I) = SCAL * V1(I)
  15. 10 CONTINUE
  16. END
  17.  
  18.  
  19.  

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