1 : C POUEPS SOURCE CHAT 05/10/07 21:16:06 5202 2 : SUBROUTINE POUEPS(COORD,DEPLA,CARAC,DEFO,WORK,IDEUX,YOU,XNU) 3 : C----------------------------------------------------------------------- 4 : C ROUTINE DE CALCUL DES DEFORMATIONS POUR LA POUTRE DROITE 5 : C 6 : C ENTREE 7 : C DEPLA DEPLACEMENTS 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 IDEUX INDICE POUR DEFORMATIONS DU 2-EME ORDRE 12 : C 13 : C SORTIE 14 : C DEFO DEFORMATIONS AUX 2 NOEUDS 6 PAR NOEUD 15 : C TRAVAIL 16 : C WORK(300) 17 : C----------------------------------------------------------------------- 18 : IMPLICIT INTEGER(I-N) 19 : IMPLICIT REAL*8(A-H,O-Z) 20 : DIMENSION DEFO(*),CARAC(*),COORD(3,*),VECT(3),P(3,3), 21 : . XE(2),YE(2),ZE(2),DEPLA(*) 22 : C 23 : XINX=CARAC(1) 24 : XINY=CARAC(2) 25 : XINZ=CARAC(3) 26 : SD=CARAC(4) 27 : DO 1 I=1,3 28 : 1 VECT(I)=CARAC(6+I) 29 : DO 2 I=1,2 30 : XE(I)=COORD(1,I) 31 : YE(I)=COORD(2,I) 32 : 2 ZE(I)=COORD(3,I) 33 : XL=(XE(2)-XE(1))**2+(YE(2)-YE(1))**2+(ZE(2)-ZE(1))**2 34 : XL=SQRT(XL) 35 : C 36 : C CALCUL DE LA MATRICE DE PASSAGE 37 : C 37 : CALL POUPAS(XE,YE,ZE,VECT,P,KERRE) 38 : C 39 : C PASSAGE DES DEPLACEMENTS EN AXES LOCAUX 40 : C 40 : CALL POUVEC(DEPLA,WORK,P,1) 41 : C 42 : C CALCUL DES DEFORMATIONS LOCALES 43 : C 43 : CALL PODEFO(WORK,DEFO,XL,IDEUX,CARAC,you,xnu) 44 : RETURN 45 : END 46 : 47 :
© Cast3M 2003 - All rights reserved.
Disclaimer