Télécharger dycpld.eso

Retour à la liste

Numérotation des lignes :

  1. C DYCPLD SOURCE CHAT 05/01/12 23:07:24 5004
  2. SUBROUTINE DYCPLD(XDEP,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 d{placement. *
  11. * *
  12. * Param}tres: *
  13. * *
  14. * e XDEP Valeur du d{placement *
  15. * e XAIJ Valeur du coefficient de couplage en d{placement *
  16. * s XFL Valeur de la force de couplage en d{placement *
  17. * *
  18. * *
  19. *--------------------------------------------------------------------*
  20. XFL = 0.D0
  21. *
  22. IF (IANNUL.EQ.0) XFL = XAIJ * XDEP
  23. *
  24. END
  25.  
  26.  
  27.  

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