Télécharger dycham.eso

Retour à la liste

Numérotation des lignes :

  1. C DYCHAM SOURCE CHAT 05/01/12 23:03:38 5004
  2. SUBROUTINE DYCHAM(XDEP,XVIT,XRAID,XJEU,XAMO,XFL,IPERM,iannul)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. * *
  7. * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
  8. * ________________________________________________ *
  9. * *
  10. * Calcul de la force de choc pour un choc {l{mentaire. *
  11. * *
  12. * Param}tres: *
  13. * *
  14. * e XDEP Valeur du d{placement. *
  15. * e XVIT Valeur de la vitesse. *
  16. * e XRAID Valeur de la raideur. *
  17. * e XJEU Valeur du jeu. *
  18. * e XAMO Valeur de l'amortissement. *
  19. * e IPERM =1 si liaison permanente *
  20. * s XFL Valeur de la force de choc. *
  21. * *
  22. * *
  23. * Auteur, date de cr{ation: *
  24. * *
  25. * Lionel VIVAN, le 21 aout 1989. *
  26. * *
  27. *--------------------------------------------------------------------*
  28. XFL = 0.D0
  29. *
  30. IF (IPERM.EQ.1) THEN
  31. IF (iannul.EQ.0) THEN
  32. XVAL = XDEP - XJEU
  33. XFL = - XRAID * XVAL - XAMO * XVIT
  34. ENDIF
  35. ELSE
  36. IF ((XDEP.GE.XJEU).AND.(iannul.EQ.0)) THEN
  37. XVAL = XDEP - XJEU
  38. XFL = - XRAID * XVAL - XAMO * XVIT
  39. IF ( XFL.GT.0.D0) XFL = 0.D0
  40. ENDIF
  41. ENDIF
  42. *
  43. *
  44. END
  45.  
  46.  
  47.  
  48.  

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