Télécharger cphook.eso

Retour à la liste

Numérotation des lignes :

  1. C CPHOOK SOURCE CHAT 05/01/12 22:26:18 5004
  2. SUBROUTINE CPHOOK(EPSX,EPSY,EPSZ,EPSXY,SIGX,SIGY,SIGZ,SIGXY,
  3. 1 YNU,YOUN)
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. C----------------------------------------------------------------
  7. C PERMET DE CALCULER LE TENSEUR SIGMA FONCTION DU TENSEUR
  8. C EPSILLON
  9. C----------------------------------------------------------------
  10. HOOK=YOUN/(1.D0-YNU*YNU)
  11. SIGX=HOOK*(EPSX+YNU*EPSY)
  12. SIGY=HOOK*(YNU*EPSX+EPSY)
  13. SIGZ=0.D0
  14. SIGXY=HOOK*(1.D0-YNU)*EPSXY
  15. RETURN
  16. END
  17.  
  18.  

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