Esope source files

   1 : C PO1BSG    SOURCE    CHAT      05/01/13    02:15:35     5004           
   2 :         SUBROUTINE PO1BSG(COORD,LRE,XDPGE,YDPGE,EFFO,REL)
   3 : C---------------------------------------------------------------
   4 : C         ROUTINE DE CALCUL DES FORCES INTERNES POUR UN 
   5 : C         ELEMENT POI1 EN DEFORMATIONS PLANES GENERALISEES 
   6 : C---------------------------------------------------------------
   7 : C
   8 : C
   9 : C     ENTREES 
  10 : C
  11 : C        COORD  COORDONNEES DU POINT
  12 : C        XDPGE  COORDONNEES DU POINT AUTOUR DUQUEL SE FAIT LA 
  13 : C        YDPGE  SECTION EN DEFORMATIONS PLANES GENERALISEES   
  14 : C
  15 : C     SORTIES
  16 : C
  17 : C        REL    VECTEUR CONTENANT LES FORCES INTERNES
  18 : C
  19 : C----------------------------------------------------------------
  20 :       IMPLICIT INTEGER(I-N)
  21 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  22 : -INC CCREEL
  23 :       DIMENSION REL(LRE),COORD(3,*)                                      
  24 : *
  25 :       XX=COORD(1,1)
  26 :       YY=COORD(2,1)
  27 :       XXX=XDPGE-XX
  28 :       YYY=YY-YDPGE
  29 :       DO 1 I=1,LRE
  30 :   1   REL(I)=0.D0
  31 : *
  32 :       REL(3)=EFFO
  33 :       REL(4)=EFFO*XXX
  34 :       REL(5)=EFFO*YYY
  35 : *
  36 :       RETURN 
  37 :       END
  38 :  
  39 :  
  40 :