Télécharger cphoob.eso

Retour à la liste

Numérotation des lignes :

  1. C CPHOOB SOURCE CHAT 05/01/12 22:26:15 5004
  2. SUBROUTINE CPHOOB(ENT,SOR,YOUN,ANU)
  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)=YOUN/(1.D0+ANU)*ENT(3)
  17. RETURN
  18. END
  19.  
  20.  

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