Télécharger dyfvis.eso

Retour à la liste

Numérotation des lignes :

  1. C DYFVIS SOURCE CHAT 05/01/12 23:09:47 5004
  2. SUBROUTINE DYFVIS(XDH,XDEP,XVIT,XJEU,XCV,XFV,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 de viscosit{. *
  11. * *
  12. * Param}tres: *
  13. * *
  14. * e XDEP Valeur du d{placement *
  15. * e XVIT Valeur de la vitesse *
  16. * e XJEU Valeur du jeu *
  17. * e XCV Valeur du coefficient de viscosit{ *
  18. * s XFV Valeur de la force de viscosit{ *
  19. * *
  20. * Auteur, date de cr{ation: *
  21. * *
  22. * Lionel VIVAN, le 20 mars 1991. *
  23. * *
  24. *--------------------------------------------------------------------*
  25. *
  26. IF (iannul.EQ.0) THEN
  27. XDH3 = XDH * XDH * XDH
  28. XFV = -XCV * XVIT / XDH3
  29. ELSE
  30. XFV = 0.D0
  31. ENDIF
  32. *
  33. END
  34.  
  35.  
  36.  

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