1 : C DYCHA2 SOURCE CHAT 05/01/12 23:00:21 5004
2 : SUBROUTINE DYCHA2(XDEP,XVIT,XRAID,XJEU,XAMO, 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 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 : * s XFL Valeur de la force de choc. *
20 : * *
21 : * *
22 : * Auteur, date de cr{ation: *
23 : * *
24 : * Lionel VIVAN, le 10 novembre 1989. *
25 : * *
26 : *--------------------------------------------------------------------*
27 : XFL = 0.D0
28 : *
29 : IF ((XDEP.GE.XJEU).AND.(iannul.EQ.0)) THEN
30 : XVAL = XDEP - XJEU
31 : XFL = - XRAID * XVAL - XAMO * XVIT
32 : IF (XDEP.GT.0.D0 .AND. XFL.GT.0.D0) XFL = 0.D0
33 : IF (XDEP.LT.0.D0 .AND. XFL.LT.0.D0) XFL = 0.D0
34 : ENDIF
35 : *
36 : END
37 :
38 :
© Cast3M 2003 - All rights reserved.
Disclaimer