Télécharger dpcont.eso

Retour à la liste

Numérotation des lignes :

  1. C DPCONT SOURCE CHAT 05/01/12 22:54:38 5004
  2. SUBROUTINE DPCONT(BDON,CDON,YNU,YOUN)
  3. C---------------------------------------------
  4. C PERMET DE CALCULER LE TENSEUR EPSILLON
  5. C A PARTIR DU TENSEUR SIGMA EN DEFO PLANES
  6. C---------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9. DIMENSION CDON(*),BDON(*)
  10. CDON(1)=(BDON(1)-YNU*BDON(2)-YNU*BDON(3))/YOUN
  11. CDON(2)=(BDON(2)-YNU*BDON(1)-YNU*BDON(3))/YOUN
  12. CDON(3)=0.D0
  13. CDON(4)=BDON(4)/YOUN*(1.D0+YNU)
  14. RETURN
  15. END
  16.  
  17.  

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