dycpld
C DYCPLD SOURCE CHAT 05/01/12 23:07:24 5004 SUBROUTINE DYCPLD(XDEP,XAIJ,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 {l{mentaire de couplage en d{placement. * * * * Param}tres: * * * * e XDEP Valeur du d{placement * * e XAIJ Valeur du coefficient de couplage en d{placement * * s XFL Valeur de la force de couplage en d{placement * * * * * *--------------------------------------------------------------------* XFL = 0.D0 * IF (IANNUL.EQ.0) XFL = XAIJ * XDEP * END
© Cast3M 2003 - Tous droits réservés.
Mentions légales