C PO1BSG SOURCE CHAT 05/01/13 02:15:35 5004 SUBROUTINE PO1BSG(COORD,LRE,XDPGE,YDPGE,EFFO,REL) C--------------------------------------------------------------- C ROUTINE DE CALCUL DES FORCES INTERNES POUR UN C ELEMENT POI1 EN DEFORMATIONS PLANES GENERALISEES C--------------------------------------------------------------- C C C ENTREES C C COORD COORDONNEES DU POINT C XDPGE COORDONNEES DU POINT AUTOUR DUQUEL SE FAIT LA C YDPGE SECTION EN DEFORMATIONS PLANES GENERALISEES C C SORTIES C C REL VECTEUR CONTENANT LES FORCES INTERNES C C---------------------------------------------------------------- IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC CCREEL DIMENSION REL(LRE),COORD(3,*) * XX=COORD(1,1) YY=COORD(2,1) XXX=XDPGE-XX YYY=YY-YDPGE DO 1 I=1,LRE 1 REL(I)=0.D0 * REL(3)=EFFO REL(4)=EFFO*XXX REL(5)=EFFO*YYY * RETURN END