Télécharger cpcont.eso

Retour à la liste

Numérotation des lignes :

  1. C CPCONT SOURCE CHAT 05/01/12 22:26:00 5004
  2. SUBROUTINE CPCONT(BDON,CDON,YNU,YOUN)
  3. C---------------------------------------------
  4. C PERMET DE CALCULER LE TENSEUR EPSILLON
  5. C A PARTIR DU TENSEUR SIGMA EN CONT 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))/YOUN
  11. CDON(2)=(BDON(2)-YNU*BDON(1))/YOUN
  12. CDON(3)=-(BDON(2)+BDON(1))/YOUN*YNU
  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