Télécharger la plaquette Cast3M


fr en

Télécharger xxyy.eso

Retour à la liste

Numérotation des lignes : 

xxyy

  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