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 :
© Cast3M 2003 - All rights reserved.
Disclaimer