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 :
© Cast3M 2003 - All rights reserved.
Disclaimer