1 : C DYCHE2 SOURCE CHAT 05/01/12 23:03:45 5004
2 : SUBROUTINE DYCHE2(XDEP,XRAID,XJEU, XFL,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 XRAID Valeur de la raideur. *
16 : * e XJEU Valeur du jeu. *
17 : * s XFL Valeur de la force de choc. *
18 : * *
19 : * *
20 : * Auteur, date de cr{ation: *
21 : * *
22 : * Lionel VIVAN, le 10 novembre 1989. *
23 : * *
24 : *--------------------------------------------------------------------*
25 : XFL = 0.D0
26 : *
27 : IF ((XDEP.GE.XJEU).AND.(iannul.EQ.0)) THEN
28 : XVAL = XDEP - XJEU
29 : XFL = -1.D0 * XRAID * XVAL
30 : ENDIF
31 : *
32 : END
33 :
34 :
© Cast3M 2003 - All rights reserved.
Disclaimer