1 : C D2VFXA SOURCE CHAT 05/01/12 22:35:22 5004
2 : C DEVFXA SOURCE LAVARENN 96/10/30 21:16:44 2349
3 : SUBROUTINE D2VFXA(FEXA,IFEXA,FTOTA,NPFEXA,NA1,NPC1,NPAS,
4 : & FTEXB,FEXB,NPLB,IDIMB,RIGIDE)
5 : IMPLICIT INTEGER(I-N)
6 : IMPLICIT REAL*8(A-H,O-Z)
7 : *--------------------------------------------------------------------*
8 : * *
9 : * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
10 : * ________________________________________________ *
11 : * *
12 : * Ajout des termes de forces ext{rieures libres. *
13 : * *
14 : * Param}tres: *
15 : * *
16 : * e FEXA Evolution des forces extérieures, en base A *
17 : * e IFEXA Numéro du mode correspondant au point de chargement *
18 : * es FTOTA Forces extérieures libres totalisées, en base A *
19 : * e NPFEXA Nombre de points de chargement *
20 : * e NA1 Nombre total d'inconnues dans la base A *
21 : * e NPC1 Nombre de pas de calcul *
22 : * e NPAS Num{ro du pas courant *
23 : * e FTEXB Evolution des forces extérieures sur base B, pour le *
24 : * calcul des moments *
25 : * es FEXB Forces extérieures sur base B, pour le calcul des *
26 : * moments * *
27 : * *
28 : * Auteur, date de création: *
29 : * *
30 : * Denis ROBERT-MOUGIN, le 22 mai 1989. *
31 : * *
32 : *--------------------------------------------------------------------*
33 : REAL*8 FEXA(NPFEXA,NPC1,*),FTOTA(NA1,*)
34 : REAL*8 FEXB(NPLB,2,*),FTEXB(NPLB,NPC1,2,*)
35 : INTEGER IFEXA(*)
36 : *
37 : LOGICAL RIGIDE
38 : *
39 : * Boucle sur les points de chargement:
40 : *
41 : DO 100 I=1,NPFEXA
42 : FTOTA(I,1) = FEXA(I,NPAS,1)
43 : 100 CONTINUE
44 : * END DO
45 : *
46 : * Dans le cas des corps rigides, boucle sur les chargements Base B
47 : IF (RIGIDE) THEN
48 : IF (IDIMB.EQ.6) THEN
49 : IDIM = 3
50 : ELSE
51 : IDIM = 2
52 : ENDIF
53 : DO 200 IP=1,NPLB
54 : DO 210 ID=1,IDIM
55 : FEXB(IP,1,ID) = FTEXB(IP,NPAS,1,ID)
56 : 210 CONTINUE
57 : 200 CONTINUE
58 : ENDIF
59 : RETURN
60 : END
61 :
62 :
63 :
© Cast3M 2003 - All rights reserved.
Disclaimer