Esope source files

   1 : C PO1EPS    SOURCE    CHAT      05/01/13    02:15:39     5004           
   2 :         SUBROUTINE PO1EPS(COORD,UZDPG,RYDPG,RXDPG,XDPGE,YDPGE,DEFO)
   3 : C-----------------------------------------------------------------------        
   4 : C             CALCUL DES DEFORMATIONS POUR LE POI1
   5 : C                                                                               
   6 : C  ENTREE  
   7 : C          COORD  COORDONNEES DE L ELEMENT                                                                     
   8 : C          UZDPG  DEPLACEMENT PERPENDICULAIRE A LA SECTION SECTION                                               
   9 : C          RYDPG  ROTATION DE LA SECTION
  10 : C          RXDPG  ......................
  11 : C          XDPGE  COORDONNEES DU POINT AUTOUR DUQUEL SE FAIT LA 
  12 : C          YDPGE  SECTION EN DEFOS PLANES GENERALISEES                   
  13 : C                                                                               
  14 : C  SORTIE                                                                       
  15 : C          DEFO    DEFORMATION AU NOEUD
  16 : C-----------------------------------------------------------------------        
  17 :       IMPLICIT INTEGER(I-N)
  18 :       IMPLICIT REAL*8(A-H,O-Z) 
  19 : -INC CCREEL                                                 
  20 :       DIMENSION DEFO(*),COORD(3,*)
  21 : *
  22 :        XX=COORD(1,1)
  23 :        YY=COORD(2,1)
  24 :        XXX=XDPGE-XX
  25 :        YYY=YY-YDPGE
  26 :        DEFO(1)=UZDPG+(RYDPG*XXX)+(RXDPG*YYY)
  27 :       RETURN
  28 :       END                                                                       
  29 :      
  30 : 
  31 : 
  32 :  
  33 :  
  34 :