1 : C DOGTIF SOURCE CHAT 05/01/12 22:53:15 5004
2 : SUBROUTINE DOGTIF(VELA,MATE,IFOU,LHOOK,DDHOOK,IRET)
3 : C
4 : C=======================================================================
5 : C
6 : C MATRICE DE COUPLAGE GYROSCOPIQUE POUR UNE SECTION (FIBRE)
7 : C
8 : C ENTREES
9 : C VELA() = materiau dans un tableau de travail
10 : C MATE = Nom du materiau
11 : C IFOU = num{ro d'harmonique de fourier: IFOUR de CCOPTIO
12 : C LHOOK = taille de la matrice de hooke
13 : C
14 : C SORTIES
15 : C DDGYRO(LHOOK,LHOOK) = matrice de couplage gyroscopique
16 : C IRET = 1 si option existante 0 SINON
17 : C
18 : C=======================================================================
19 : C Didier COMBESCURE 2003 - DM2S/SEMT/DYN
20 : C=======================================================================
21 : IMPLICIT INTEGER(I-N)
22 : IMPLICIT REAL*8(A-H,O-Z)
23 : CHARACTER*8 MATE
24 : C
25 : DIMENSION VELA(*),DDHOOK(LHOOK,*)
26 : C
27 : IRET=1
27 : CALL ZERO(DDHOOK,LHOOK,LHOOK)
28 : C
29 : DDHOOK(5,6)=VELA(4) + VELA(6)
30 : DDHOOK(6,5)=(-1.D0)*DDHOOK(5,6)
31 : C
32 : RETURN
33 : END
34 :
35 :
36 :
© Cast3M 2003 - All rights reserved.
Disclaimer