Télécharger scal.eso

Retour à la liste

Numérotation des lignes :

scal
  1. C SCAL SOURCE CHAT 05/01/13 03:12:28 5004
  2. SUBROUTINE SCAL(ENT,SOR,VAL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION ENT(3),SOR(3)
  6. C
  7. C-----------------------------------------------------
  8. C CALCUL DE LE PRODUIT SCALAIRE DE 2 VECTEURS
  9. C-----------------------------------------------------
  10. C
  11. VAL=SOR(1)*ENT(1)+SOR(2)*ENT(2)+SOR(3)*ENT(3)
  12. RETURN
  13. END
  14.  
  15.  

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