Esope source files

   1 : C BAEPEX    SOURCE    CHAT      05/01/12    21:31:24     5004           
   2 : C BAEPEX    SOURCE    DJER      93/03/02    22:54:40
   3 :       SUBROUTINE BAEPEX(DEPLA,TGL,AL,DEFO,LRE)
   4 : C-----------------------------------------------------------------------        
   5 : C  ROUTINE DE CALCUL DES DEFORMATIONS POUR LA BARRE                             
   6 : C                                                                               
   7 : C  ENTREE                                                                       
   8 : C          DEPLA   DEPLACEMENTS                                                 
   9 : C          COORD   COORDONNEES DES 2 NOEUDS                                     
  10 : C                                                                               
  11 : C  SORTIE                                                                       
  12 : C          DEFO    DEFORMATION AUX 2 NOEUDS                                     
  13 : C-----------------------------------------------------------------------        
  14 :       IMPLICIT INTEGER(I-N)
  15 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  16 :       DIMENSION DEFO(*),DEPLA(*),DEP2(2),TGL(2,LRE)
  17 : C                                                                               
  18 :       DEP2(1)=0.D0
  19 :       DEP2(2)=0.D0
  20 :       DO 1 I=1,2
  21 :       DO 2 K=1,LRE
  22 :     2 DEP2(I)=DEP2(I)+TGL(I,K)*DEPLA(K)
  23 :     1 CONTINUE
  24 :       EPS=(DEP2(2)-DEP2(1))/AL
  25 :       DEFO(1)=EPS                                                               
  26 :       DEFO(2)=EPS                                                               
  27 :       RETURN                                                                    
  28 :       END                                                                       
  29 :  
  30 :