1 : C POUDH3 SOURCE CHAT 05/01/13 02:18:34 5004 2 : SUBROUTINE POUDH3(REL,CARAC,COORD,KERRE) 3 : C----------------------------------------------------------------------- 4 : C ROUTINE DE CALCUL DE LA MATRICE DE RAIDEUR ELEMENTAIRE DE L ELEMENT D 5 : C POUTRE DROITE DANS LES AXES GLOBAUX 6 : C 7 : C ENTREE 8 : C CARAC TABLEAU DE CARACTERISTIQUES GEOMETRIQUES ET 9 : C MATERIELLES DE LA POUTRE ( 11 VALEURS ) 10 : C COORD COORDONNEES DES 2 NOEUDS 11 : C 12 : C SORTIE 13 : C REL MATRICE DE RIGIDITE ELEMENTAIRE 14 : C KERRE CODE D ERREUR NON NUL SI PROBLEME , NUL SINON 15 : C TRAVAIL 16 : C WORK(300) 17 : C 18 : C VIENT DE TEDEL AOUT 84 19 : C----------------------------------------------------------------------- 20 : IMPLICIT INTEGER(I-N) 21 : IMPLICIT REAL*8(A-H,O-Z) 22 : DIMENSION REL(12,12),CARAC(12),COORD(3,2),VECT(3),P(3,3), 23 : . XE(2),YE(2),ZE(2),RP(12,12) 24 : C 25 : KERRE=0 26 : XINX=CARAC(1) 27 : XINY=CARAC(2) 28 : XINZ=CARAC(3) 29 : SD=CARAC(4) 30 : SREDY=CARAC(5) 31 : SREDZ=CARAC(6) 32 : OMEG=CARAC(7) 33 : DO 1 I=1,3 34 : 1 VECT(I)=CARAC(7+I) 35 : VISC=CARAC(11)*OMEG 36 : CISAIL=CARAC(12)*OMEG 37 : DO 2 I=1,2 38 : XE(I)=COORD(1,I) 39 : YE(I)=COORD(2,I) 40 : 2 ZE(I)=COORD(3,I) 41 : XL=(XE(2)-XE(1))**2+(YE(2)-YE(1))**2+(ZE(2)-ZE(1))**2 42 : XL=SQRT(XL) 43 : IF(XL.EQ.0.) GO TO 999 44 : C 45 : C CALCUL DE LA RIGIDITE EN AXES LOCAUX 46 : C 46 : CALL PODHL3(RP,XL,VISC,CISAIL,SD,SREDY,SREDZ,XINX,XINY,XINZ) 47 : C 48 : C CALCUL DE LA MATRICE DE PASSAGE 49 : C 49 : CALL POUPAS(XE,YE,ZE,VECT,P,KERRE) 50 : IF(KERRE.NE.0) RETURN 51 : C 52 : C PASSAGE DE LA MATRICE DE RIGIDITE EN AXES GLOBAUX 53 : C 53 : CALL POUROG(REL,LRE,P,RP) 54 : C 55 : RETURN 56 : 999 KERRE=1 57 : RETURN 58 : END 59 : 60 : 61 :
© Cast3M 2003 - All rights reserved.
Disclaimer