C DYNE32    SOURCE    BP208322  20/09/18    21:16:25     10718          
      SUBROUTINE DYNE32(IPOIN1,IPOIN2,NUMEL1,NUMEL2,XP,YP,XPP,YPP,
     &          XPALB,IPALB,XPTB,NLIAB,NPLB,I,NPOI,ID1,IP1,IND,SOMAIR)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
*--------------------------------------------------------------------*
*                                                                    *
*     Op{rateur DYNE : algorithme de Fu - de Vogelaere               *
*     ________________________________________________               *
*                                                                    *
*     Calcul de l'aire de la section qui n'a pas travers{ le         *
*     maillage fixe.                                                 *
*                                                                    *
*     Param}tres:                                                    *
*                                                                    *
* e   IPOIN1  point du profil mobile                                 *
* e   IPOIN2  point du profil mobile                                 *
* e   NUMEL1  {l{ment du profil fixe                                 *
* e   NUMEL2  {l{ment du profil fixe                                 *
* e   I       num{ro de la liaison trait{e                           *
* e   XP,YP   coordonn{es du point P d'intersection                  *
* e   XPP,YPP coordonn{es du point PP d'intersection                 *
* e   NLIAB   nombre total de liaisons                               *
*  s  SOMAIR  aire de la section                                     *
*                                                                    *
*                                                                    *
*     Auteur, date de cr{ation:                                      *
*                                                                    *
*     Lionel VIVAN, le 1 f{vrier 1991.                               *
*                                                                    *
*--------------------------------------------------------------------*
*
      INTEGER IPALB(NLIAB,*)
      REAL*8 XPTB(NPLB,2,*),XPALB(NLIAB,*)
*
*     calcul du barycentre
      CALL DYNE34(IPOIN1,IPOIN2,NUMEL1,NUMEL2,XP,YP,XPP,YPP,XPALB,
     &     IPALB,XPTB,NLIAB,NPLB,I,NPOI,ID1,IP1,IND,XBARY,YBARY)
*     maillage mobile
      CALL DYNE35(IPOIN1,IPOIN2,XBARY,YBARY,XP,YP,XPP,YPP,XPALB,IPALB,
     &            XPTB,NLIAB,NPLB,I,NPOI,ID1,IND,AIRE1)
*     maillage fixe
      CALL DYNE36(NUMEL1,NUMEL2,XBARY,YBARY,XP,YP,XPP,YPP,XPALB,IPALB,
     &            NLIAB,I,ID1,AIRE2)
*
      SOMAIR = AIRE1 + AIRE2
*
      END