Télécharger calcep33.eso

Retour à la liste

Numérotation des lignes :

  1. C CALCEP33 SOURCE BR232186 12/10/04 21:15:00 7520
  2. SUBROUTINE CALCEP33 (EPSIM,XGAMMT,XGAMMC,XD1,XD2,XMUM,XLAMM,
  3. & XEPS33)
  4. C
  5. C====&===1=========2=========3=========4=========5=========6=========7==
  6. C Commentaires : Subroutine permettant de calculer la deformation ep33
  7. C Appelé par la routine lcgldm.eso
  8. C
  9. C Auteur : B. Richard (Dr - Ing.) - CEA/DEN/DANS/DM2S/SEMT/EMSI
  10. C====&===1=========2=========3=========4=========5=========6=========7==
  11. C
  12. C----DECLARATION GENERALES----------------------------------------------
  13. C
  14. IMPLICIT INTEGER(I-N)
  15. IMPLICIT REAL*8(A-H,O-Z)
  16.  
  17. REAL*8 EPSIM(3,3),VAPM(3),VEPM(3,3)
  18. C
  19. C-----CALCUL DE LA DEFORMATION HORS PLAN
  20. C
  21. XTRA = EPSIM(1,1) + EPSIM(2,2)
  22.  
  23. CALL CALCGM(XTRA,XGAMMT,XGAMMC,XGM)
  24.  
  25. CALL JACOB4(EPSIM,2,VAPM,VEPM)
  26.  
  27. CALL CALCXIM (XTRA,XGAMMT,XGAMMC,XD1,XD2,XIM)
  28.  
  29. XEPS33 = -1.0D0*(XLAMM*XIM)/(2.0D0*XMUM+XLAMM*XIM)*XTRA
  30.  
  31. RETURN
  32. END
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  

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