Télécharger la plaquette Cast3M


fr en

Télécharger dycham.eso

Retour à la liste

Numérotation des lignes : 

  1. C DYCHAM    SOURCE    BP208322  19/02/25    21:15:46     10120          
  2.       SUBROUTINE DYCHAM(XDEP,XVIT,XRAID,XJEU,XAMO,XFL,IPERM,iannul)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. *--------------------------------------------------------------------*
  6. *                                                                    *
  7. *     Operateur DYNE : algorithme de Fu - de Vogelaere               *
  8. *     ________________________________________________               *
  9. *                                                                    *
  10. *     Calcul de la force de choc pour un choc elementaire.           *
  11. *                                                                    *
  12. *     Parametres:                                                    *
  13. *                                                                    *
  14. * e   XDEP    Valeur du d{placement.                                 *
  15. * e   XVIT    Valeur de la vitesse.                                  *
  16. * e   XRAID   Valeur de la raideur.                                  *
  17. * e   XJEU    Valeur du jeu.                                         *
  18. * e   XAMO    Valeur de l'amortissement.                             *
  19. * e   IPERM   =2 si liaison permanente                               *
  20. *  s  XFL     Valeur de la force de choc.                            *
  21. *                                                                    *
  22. *                                                                    *
  23. *     Auteur, date de cr{ation:                                      *
  24. *                                                                    *
  25. *     Lionel VIVAN, le 21 aout 1989.                                 *
  26. *                                                                    *
  27. *--------------------------------------------------------------------*
  28.       XFL = 0.D0
  29. *
  30.       IF (IPERM.EQ.2) THEN
  31. cbp         IF (iannul.EQ.0) THEN
  32.             XVAL = XDEP - XJEU
  33.             XFL = - XRAID * XVAL - XAMO * XVIT
  34. cbp         ENDIF
  35.       ELSE
  36.          IF ((XDEP.GE.XJEU).AND.(iannul.EQ.0)) THEN
  37.             XVAL = XDEP - XJEU
  38.             XFL = - XRAID * XVAL - XAMO * XVIT
  39.             IF ( XFL.GT.0.D0) XFL = 0.D0
  40.          ENDIF
  41.       ENDIF
  42. *
  43. *
  44.       END
  45.  
  46.  
  47.  
  48.  
  49.  

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