Télécharger dsde3d.eso

Retour à la liste

Numérotation des lignes :

dsde3d
  1. C DSDE3D SOURCE PV090527 23/01/27 21:15:27 11574
  2. SUBROUTINE DSDE3D(dS3,deps3,K,G)
  3. c ds=E*depse
  4. c (A.Sellier 2021/04/23)
  5. implicit real*8 (a-h,o-z)
  6. implicit integer (i-n)
  7.  
  8. real*8 dS3(3),deps3(3),K,G
  9.  
  10. t3 = 0.2D1 * deps3(2)
  11. t4 = 0.2D1 * deps3(3)
  12. t9 = K * (deps3(1) + deps3(2) + deps3(3))
  13. t11 = 0.2D1 * deps3(1)
  14. dS3(1) = G * ( 0.4D1 * deps3(1) - t3 - t4) / 0.3D1 + t9
  15. dS3(2) = G * (-t11 + 0.4D1 * deps3(2) - t4) / 0.3D1 + t9
  16. dS3(3) = G * (-t11 - t3 + 0.4D1 * deps3(3)) / 0.3D1 + t9
  17.  
  18. c print*,'dans dsde3d:',dS3,deps3,K,G
  19. return
  20. end
  21.  
  22.  
  23.  
  24.  
  25.  

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