Télécharger la plaquette Cast3M


fr en

Télécharger dyne32.eso

Retour à la liste

Numérotation des lignes : 

dyne32

  1. C DYNE32    SOURCE    BP208322  20/09/18    21:16:25     10718          
  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,2,*),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.  
  51.  
  52.  

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