Télécharger chrep.eso

Retour à la liste

Numérotation des lignes :

  1. C CHREP SOURCE CHAT 05/01/12 22:02:01 5004
  2. SUBROUTINE CHREP(ENT,SOR,ANG)
  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 CETTE ROUTINE PERMET DE CHANGER DE |
  9. C REPERE POUR CONTRAINTE ET DEFORMATION |
  10. C----------------------------------------------
  11. C
  12. S=SIN(ANG)
  13. C=COS(ANG)
  14. CC=C*C
  15. SS=S*S
  16. CS=S*C
  17. SOR(1)=CC*ENT(1)+SS*ENT(2)+2.D0*CS*ENT(3)
  18. SOR(2)=CC*ENT(2)+SS*ENT(1)-2.D0*CS*ENT(3)
  19. SOR(3)=CS*(ENT(2)-ENT(1))+(CC-SS)*ENT(3)
  20. RETURN
  21. END
  22.  
  23.  

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