Télécharger dyne32.eso

Retour à la liste

Numérotation des lignes :

  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
  37. CALL DYNE34(IPOIN1,IPOIN2,NUMEL1,NUMEL2,XP,YP,XPP,YPP,XPALB,
  38. & IPALB,XPTB,NLIAB,NPLB,I,NPOI,ID1,IP1,IND,XBARY,YBARY)
  39. * maillage mobile
  40. CALL DYNE35(IPOIN1,IPOIN2,XBARY,YBARY,XP,YP,XPP,YPP,XPALB,IPALB,
  41. & XPTB,NLIAB,NPLB,I,NPOI,ID1,IND,AIRE1)
  42. * maillage fixe
  43. CALL DYNE36(NUMEL1,NUMEL2,XBARY,YBARY,XP,YP,XPP,YPP,XPALB,IPALB,
  44. & NLIAB,I,ID1,AIRE2)
  45. *
  46. SOMAIR = AIRE1 + AIRE2
  47. *
  48. END
  49.  
  50.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales