Télécharger cphomo.eso

Retour à la liste

Numérotation des lignes :

  1. C CPHOMO SOURCE CHAT 05/01/12 22:26:11 5004
  2. SUBROUTINE CPHOMO(ENT,SOR,YOUN,ANU,ALPHA)
  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 PASSER DE EPS
  9. C A SIGMA DANS LE CAS DES CONTRAINTES
  10. C PLANES
  11. C-----------------------------------------------
  12. C
  13. YU=YOUN/(1.D0-ANU*ANU)
  14. SOR(1)=YU*(ENT(1)+ANU*ENT(2))
  15. SOR(2)=YU*(ENT(2)+ANU*ENT(1))
  16. SOR(3)=ALPHA*YOUN/(1.D0+ANU)*ENT(3)
  17. END
  18.  
  19.  

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