1 : C POUST2 SOURCE CHAT 05/01/13 02:20:38 5004 2 : C POUSTR SOURCE CHAT 89/05/26 21:28:17 3 : SUBROUTINE POUST2(COORD,DEPLA,CARAC,CONT,WORK,IDEUX) 4 : C----------------------------------------------------------------------- 5 : C ROUTINE DE CALCUL DES CONTRAINTES POUR LA POUTRE DROITE 6 : C 7 : C ENTREE 8 : C DEPLA DEPLACEMENTS 9 : C CARAC TABLEAU DE CARACTERISTIQUES GEOMETRIQUES ET 10 : C MATERIELLES DE LA POUTRE ( 11 VALEURS ) 11 : C COORD COORDONNEES DES 2 NOEUDS 12 : C IDEUX INDICE POUR DEFORMATIONS DU SECOND ORDRE 13 : C 14 : C SORTIE 15 : C CONT CONTRAINTES AUX 2 NOEUDS 6 PAR NOEUD 16 : C TRAVAIL 17 : C WORK(300) 18 : C VIENT DE TEDEL AOUT 84 19 : C----------------------------------------------------------------------- 20 : IMPLICIT INTEGER(I-N) 21 : IMPLICIT REAL*8(A-H,O-Z) 22 : DIMENSION CONT(*),CARAC(*),COORD(3,*),P(2,2), 23 : . XE(2),YE(2),DEPLA(*) 24 : C 25 : XINZ=CARAC(2) 26 : SD=CARAC(1) 27 : SREDY=CARAC(3) 28 : YOUN=CARAC(4) 29 : CISAIL=CARAC(5) 30 : DO 2 I=1,2 31 : XE(I)=COORD(1,I) 32 : 2 YE(I)=COORD(2,I) 33 : XL=(XE(2)-XE(1))**2+(YE(2)-YE(1))**2 34 : XL=SQRT(XL) 35 : C 36 : C CALCUL DE LA MATRICE DE PASSAGE 37 : C 37 : CALL POUPA2(XE,YE,P,KERRE) 38 : C 39 : C PASSAGE DES DEPLACEMENTS EN AXES LOCAUX 40 : C 40 : CALL POUVE2(DEPLA,WORK,P,1) 41 : C 42 : C CALCUL DES CONTRAINTES LOCALES 43 : C 43 : CALL POCOL2(WORK,CONT,XL,YOUN,CISAIL,SD,SREDY,XINZ,IDEUX) 44 : RETURN 45 : END 46 : 47 :
© Cast3M 2003 - All rights reserved.
Disclaimer