1 : C DYCPLV SOURCE CHAT 05/01/12 23:07:50 5004
2 : SUBROUTINE DYCPLV(XVIT,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 vitesse. *
11 : * *
12 : * Param}tres: *
13 : * *
14 : * e XVIT Valeur de la vitesse. *
15 : * e XAIJ Valeur du coefficient de couplage en vitesse *
16 : * s XFL Valeur de la force de couplage en vitesse *
17 : * *
18 : *--------------------------------------------------------------------*
19 : XFL = 0.D0
20 : *
21 :
22 : IF (IANNUL .EQ.0 ) XFL = XAIJ * XVIT
23 : *
24 : END
25 :
26 :
© Cast3M 2003 - All rights reserved.
Disclaimer