Télécharger chrep6.eso

Retour à la liste

Numérotation des lignes :

chrep6
  1. C CHREP6 SOURCE PV090527 23/01/27 21:15:13 11574
  2. subroutine chrep6(x6,vp33,controle,xp6)
  3.  
  4. c changement de base d'un pseudo vecteur de deformation
  5. c contenant des gama si controle=vrai
  6.  
  7. implicit real*8 (a-h,o-z)
  8. implicit integer (i-n)
  9.  
  10. c variables externes
  11. real*8 x6(6),vp33(3,3),xp6(6)
  12. logical controle
  13.  
  14. c variables locales
  15. integer j
  16. real*8 x33(3,3),xp33(3,3)
  17.  
  18.  
  19. c chargement et passage des deformations
  20.  
  21. if (controle) then
  22. c gama->epsilon
  23. do j=4,6
  24. x6(j)=0.5d0*x6(j)
  25. end do
  26. end if
  27.  
  28. call x6x33(x6,x33)
  29. call chre3(xp33,x33,vp33)
  30. call x33x6(xp33,xp6)
  31.  
  32. if(controle) then
  33. c epsilon->gama si controle
  34. do j=4,6
  35. x6(j)=2.d0*x6(j)
  36. xp6(j)=2.d0*xp6(j)
  37. end do
  38. end if
  39. return
  40. end
  41.  
  42.  
  43.  

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