1 : C DYNE32 SOURCE CHAT 05/01/12 23:17:17 5004
2 : SUBROUTINE DYNE32(IPOIN1,IPOIN2,NUMEL1,NUMEL2,XP,YP,XPP,YPP,
3 : & XPALB,IPALB,XPTB,NLIAB,NPLB,I,NPOI,ID1,IP1,IND,SOMAIR)
4 : IMPLICIT INTEGER(I-N)
5 : IMPLICIT REAL*8(A-H,O-Z)
6 : *--------------------------------------------------------------------*
7 : * *
8 : * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
9 : * ________________________________________________ *
10 : * *
11 : * Calcul de l'aire de la section qui n'a pas travers{ le *
12 : * maillage fixe. *
13 : * *
14 : * Param}tres: *
15 : * *
16 : * e IPOIN1 point du profil mobile *
17 : * e IPOIN2 point du profil mobile *
18 : * e NUMEL1 {l{ment du profil fixe *
19 : * e NUMEL2 {l{ment du profil fixe *
20 : * e I num{ro de la liaison trait{e *
21 : * e XP,YP coordonn{es du point P d'intersection *
22 : * e XPP,YPP coordonn{es du point PP d'intersection *
23 : * e NLIAB nombre total de liaisons *
24 : * s SOMAIR aire de la section *
25 : * *
26 : * *
27 : * Auteur, date de cr{ation: *
28 : * *
29 : * Lionel VIVAN, le 1 f{vrier 1991. *
30 : * *
31 : *--------------------------------------------------------------------*
32 : *
33 : INTEGER IPALB(NLIAB,*)
34 : REAL*8 XPTB(NPLB,4,*),XPALB(NLIAB,*)
35 : *
36 : * calcul du barycentre
36 : CALL DYNE34(IPOIN1,IPOIN2,NUMEL1,NUMEL2,XP,YP,XPP,YPP,XPALB,
37 : & IPALB,XPTB,NLIAB,NPLB,I,NPOI,ID1,IP1,IND,XBARY,YBARY)
38 : * maillage mobile
38 : CALL DYNE35(IPOIN1,IPOIN2,XBARY,YBARY,XP,YP,XPP,YPP,XPALB,IPALB,
39 : & XPTB,NLIAB,NPLB,I,NPOI,ID1,IND,AIRE1)
40 : * maillage fixe
40 : CALL DYNE36(NUMEL1,NUMEL2,XBARY,YBARY,XP,YP,XPP,YPP,XPALB,IPALB,
41 : & NLIAB,I,ID1,AIRE2)
42 : *
43 : SOMAIR = AIRE1 + AIRE2
44 : *
45 : END
46 :
© Cast3M 2003 - All rights reserved.
Disclaimer