Télécharger la plaquette Cast3M


fr en

Télécharger dycplv.eso

Retour à la liste

Numérotation des lignes : 

dycplv

  1. C DYCPLV    SOURCE    CHAT      05/01/12    23:07:50     5004
  2.       SUBROUTINE DYCPLV(XVIT,XAIJ,XFL,IANNUL)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     Op{rateur DYNE : algorithme de Fu - de Vogelaere               *
  8. *     ________________________________________________               *
  9. *                                                                    *
  10. *     Calcul de la force {l{mentaire de couplage en vitesse.         *
  11. *                                                                    *
  12. *     Param}tres:                                                    *
  13. *                                                                    *
  14. * e   XVIT    Valeur de la vitesse.                                  *
  15. * e   XAIJ    Valeur du coefficient de couplage en vitesse           *
  16. *  s  XFL     Valeur de la force de couplage en vitesse              *
  17. *                                                                    *
  18. *--------------------------------------------------------------------*
  19.       XFL = 0.D0
  20. *
  21.  
  22.       IF (IANNUL .EQ.0 )  XFL =  XAIJ * XVIT
  23. *
  24.       END
  25.  
  26.  
  27.  

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