1 : C D2NE16 SOURCE CHAT 05/01/12 22:34:57 5004
2 : C DYNE16 SOURCE PLAF 91/03/27 21:15:13 174
3 : SUBROUTINE D2NE16(Q1,Q2,Q3,NA1,FTOTA,XPTB,NPLB,IDIMB,FINERT,
4 : & WEXT,WINT)
5 :
6 : IMPLICIT INTEGER(I-N)
7 : IMPLICIT REAL*8(A-H,O-Z)
8 : *--------------------------------------------------------------------*
9 : * *
10 : * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
11 : * ________________________________________________ *
12 : * *
13 : * D{calage ou mise @ z{ro dans les tableaux pour le pas suivant. *
14 : * *
15 : * Param}tres: *
16 : * *
17 : * es Q1( , ) Vecteur des d{placements g{n{ralis{s *
18 : * es Q2( , ) Vecteur des vitesses g{n{ralis{es *
19 : * es Q3( , ) Vecteur des acc{l{rations g{n{ralis{es *
20 : * e NA1 Nombre total d'inconnues sur la base A *
21 : * es FTOTA Forces ext{rieures totalis{es, sur la base A *
22 : * es XPTB Tableau des d{placements des points de liaisons *
23 : * e NPLB Nombre maxi de points de liaisons *
24 : * e IDIMB Nombre maxi de ddl par liaisons *
25 : * *
26 : * Auteur, date de cr{ation: *
27 : * *
28 : * Denis ROBERT-MOUGIN, le 16 juin 1989. *
29 : * *
30 : *--------------------------------------------------------------------*
31 : REAL*8 Q1(NA1,*),Q2(NA1,*),Q3(NA1,*),FTOTA(NA1,*)
32 : REAL*8 XPTB(NPLB,4,*),FINERT(NA1,*),WEXT(NA1,*),WINT(NA1,*)
33 : *
34 : * Boucle sur les inconnues de la base A
35 : *
36 : DO 10 I=1,NA1
37 : Q1(I,2) = Q1(I,1)
38 : Q2(I,2) = Q2(I,1)
39 : Q3(I,2) = Q3(I,1)
40 : FTOTA(I,2) = FTOTA(I,1)
41 : FINERT(I,2) = FINERT(I,1)
42 : WEXT(I,2) = WEXT(I,1)
43 : WINT(I,2) = WINT(I,1)
44 :
45 :
46 : 10 CONTINUE
47 : DO 20 IP = 1,NPLB
48 : DO 22 ID = 1,IDIMB
49 : XPTB(IP,2,ID) = XPTB(IP,1,ID)
50 : 22 CONTINUE
51 : * end do
52 : 20 CONTINUE
53 : * end do
54 : *
55 : END
56 :
57 :
58 :
59 :
© Cast3M 2003 - All rights reserved.
Disclaimer