Sources Esope | Cast3M

dyche2
C DYCHE2    SOURCE    CHAT      05/01/12    23:03:45     5004
      SUBROUTINE DYCHE2(XDEP,XRAID,XJEU, 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 de choc pour un choc {l{mentaire.           *
*                                                                    *
*     Param}tres:                                                    *
*                                                                    *
* e   XDEP    Valeur du d{placement.                                 *
* e   XRAID   Valeur de la raideur.                                  *
* e   XJEU    Valeur du jeu.                                         *
*  s  XFL     Valeur de la force de choc.                            *
*                                                                    *
*                                                                    *
*     Auteur, date de cr{ation:                                      *
*                                                                    *
*     Lionel VIVAN, le 10 novembre 1989.                             *
*                                                                    *
*--------------------------------------------------------------------*
      XFL = 0.D0
*
      IF ((XDEP.GE.XJEU).AND.(iannul.EQ.0)) THEN
         XVAL = XDEP - XJEU
         XFL = -1.D0 * XRAID * XVAL
      ENDIF
*
      END