1 : C DYFINE SOURCE CHAT 05/01/12 23:08:32 5004
2 : SUBROUTINE DYFINE(XDH,XDEP,XACC,XJEU,XCI,XFI,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 d'inertie. *
11 : * *
12 : * Param}tres: *
13 : * *
14 : * e XDEP Valeur du d{placement *
15 : * e XACC Valeur de l'acc{l{ration *
16 : * e XJEU Valeur du jeu *
17 : * e XCI Valeur du coefficient d'inertie *
18 : * s XFI Valeur de la force d'inertie *
19 : * *
20 : * Auteur, date de cr{ation: *
21 : * *
22 : * Lionel VIVAN, le 20 mars 1991. *
23 : * *
24 : *--------------------------------------------------------------------*
25 : *
26 : IF (iannul.EQ.0) THEN
27 : XFI = -XCI * XACC / XDH
28 : ELSE
29 : XFI = 0.D0
30 : ENDIF
31 : *
32 : END
33 :
34 :
© Cast3M 2003 - All rights reserved.
Disclaimer