1 : C DEVLK0 SOURCE CHAT 05/01/12 22:46:43 5004
2 : C DEVLK0 SOURCE PLAF 89/08/01 21:13:53
3 : SUBROUTINE DEVLK0(Q1,XK,XM,FTOTA,NA1,NPAS,IND)
4 : IMPLICIT INTEGER(I-N)
5 : IMPLICIT REAL*8(A-H,O-Z)
6 : *--------------------------------------------------------------------*
7 : * *
8 : * Op{rateur DYNE : algorithme de Fu - de Vogelaere *
9 : * ________________________________________________ *
10 : * *
11 : * Actualisation des forces ext{rieures totalis{es sur la base A *
12 : * pour le premier demi pas de temps. *
13 : * *
14 : * Param}tres: *
15 : * *
16 : * e Q1(,) D{placements g{n{ralis{s *
17 : * e XK Matrice de raideur g{n{ralis{e *
18 : * e XM Matrice de masse g{n{ralis{e *
19 : * es FTOTA Forces ext{rieures totalis{es, sur la base A *
20 : * e NA1 Nombre total d'inconnues dans la base A *
21 : * e NPAS Num{ro du pas de calcul courant *
22 : * e IND Indice du pas *
23 : * *
24 : * Auteur, date de cr{ation: *
25 : * *
26 : * Denis ROBERT-MOUGIN, le 22 mai 1989. *
27 : * *
28 : * *
29 : *--------------------------------------------------------------------*
30 : REAL*8 Q1(NA1,*),XK(*),XM(*),FTOTA(NA1,*)
31 : *
32 : * Boucle sur les inconnues de la base A
33 : *
34 : DO 100 I=1,NA1
35 : FTOTA(I,IND) = FTOTA(I,IND) - XK(I)*Q1(I,IND)
36 : 100 CONTINUE
37 : * end do
38 : *
39 : END
40 :
© Cast3M 2003 - All rights reserved.
Disclaimer