Télécharger piscal.eso

Retour à la liste

Numérotation des lignes :

  1. C PISCAL SOURCE CHAT 05/01/13 02:14:15 5004
  2. FUNCTION PISCAL (A,B,NL)
  3. C
  4. C-----------------------------------------------------------
  5. C PRODUIT SCALAIRE DES VECTEURS A B DE LONGUEUR NL
  6. C-----------------------------------------------------------
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8 (A-H,O-Z)
  10. C
  11. DIMENSION A(1),B(1)
  12. C
  13. PIS=0.
  14. DO 10 I=1,NL
  15. PIS=PIS+A(I)*B(I)
  16. 10 CONTINUE
  17. C
  18. PISCAL=PIS
  19. C
  20. RETURN
  21. END
  22.  
  23.  

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