C DYCPLV    SOURCE    CHAT      05/01/12    23:07:50     5004           
      SUBROUTINE DYCPLV(XVIT,XAIJ,XFL,IANNUL)                                          
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*--------------------------------------------------------------------*          
*                                                                    *          
*     Op{rateur DYNE : algorithme de Fu - de Vogelaere               *          
*     ________________________________________________               *          
*                                                                    *          
*     Calcul de la force {l{mentaire de couplage en vitesse.         *          
*                                                                    *          
*     Param}tres:                                                    *          
*                                                                    *          
* e   XVIT    Valeur de la vitesse.                                  *          
* e   XAIJ    Valeur du coefficient de couplage en vitesse           *          
*  s  XFL     Valeur de la force de couplage en vitesse              *          
*                                                                    *          
*--------------------------------------------------------------------*          
      XFL = 0.D0                                                                
*  
                                                                                   
      IF (IANNUL .EQ.0 )  XFL =  XAIJ * XVIT                                                        
*                                                                               
      END