Télécharger xxyy.eso

Retour à la liste

Numérotation des lignes :

  1. C XXYY SOURCE CHAT 05/01/13 04:15:59 5004
  2. FUNCTION XXYY ( XX , YY )
  3. C Calcul du produit XXt*YY
  4. C 16/06/95
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. C
  9. C========================================================================
  10. C
  11. C ENTREES:
  12. C -------
  13. C
  14. C XX et YY: vecteurs contraintes avec 3 composantes
  15. C
  16. C SORTIES:
  17. C -------
  18. C XXYY = Scalaire resultat
  19. C
  20. C
  21. C========================================================================
  22. C
  23. C
  24. DIMENSION XX(4), YY(4)
  25. C
  26.  
  27. XXYY = (XX(1)*YY(1) + XX(2)*YY(2) + XX(4)*YY(4))
  28. C
  29. C#################################################################
  30. C Fin
  31. C#################################################################
  32. RETURN
  33. END
  34.  
  35.  
  36.  

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