Télécharger chrepe.eso

Retour à la liste

Numérotation des lignes :

  1. C CHREPE SOURCE CHAT 05/01/12 22:01:58 5004
  2. SUBROUTINE CHREPE(CO,SI,ADON,FDON)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION ADON(*),FDON(*)
  6. C -------------------------------------------------------------
  7. C CHANGEMENT DE REPERE (CONTRAINTES OU DEFORMATIONS)
  8. C -------------------------------------------------------------
  9. C
  10. FDON(1)=CO*CO*ADON(1)+SI*SI*ADON(2)+2.D0*CO*SI*ADON(4)
  11. FDON(2)=SI*SI*ADON(1)+CO*CO*ADON(2)-2.D0*CO*SI*ADON(4)
  12. FDON(3)=ADON(3)
  13. FDON(4)=SI*CO*(-ADON(1)+ADON(2))+(CO*CO-SI*SI)*ADON(4)
  14. END
  15.  
  16.  

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