C DYCHA2 SOURCE CHAT 05/01/12 23:00:21 5004 SUBROUTINE DYCHA2(XDEP,XVIT,XRAID,XJEU,XAMO, XFL,iannul) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) *--------------------------------------------------------------------* * * * Op{rateur DYNE : algorithme de Fu - de Vogelaere * * ________________________________________________ * * * * Calcul de la force de choc pour un choc {l{mentaire. * * * * Param}tres: * * * * e XDEP Valeur du d{placement. * * e XVIT Valeur de la vitesse. * * e XRAID Valeur de la raideur. * * e XJEU Valeur du jeu. * * e XAMO Valeur de l'amortissement. * * s XFL Valeur de la force de choc. * * * * * * Auteur, date de cr{ation: * * * * Lionel VIVAN, le 10 novembre 1989. * * * *--------------------------------------------------------------------* XFL = 0.D0 * IF ((XDEP.GE.XJEU).AND.(iannul.EQ.0)) THEN XVAL = XDEP - XJEU XFL = - XRAID * XVAL - XAMO * XVIT IF (XDEP.GT.0.D0 .AND. XFL.GT.0.D0) XFL = 0.D0 IF (XDEP.LT.0.D0 .AND. XFL.LT.0.D0) XFL = 0.D0 ENDIF * END