Télécharger cphoin.eso

Retour à la liste

Numérotation des lignes :

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

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