Sources Esope | Cast3M

baepex
C BAEPEX    SOURCE    CHAT      05/01/12    21:31:24     5004
C BAEPEX    SOURCE    DJER      93/03/02    22:54:40
      SUBROUTINE BAEPEX(DEPLA,TGL,AL,DEFO,LRE)
C-----------------------------------------------------------------------
C  ROUTINE DE CALCUL DES DEFORMATIONS POUR LA BARRE
C
C  ENTREE
C          DEPLA   DEPLACEMENTS
C          COORD   COORDONNEES DES 2 NOEUDS
C
C  SORTIE
C          DEFO    DEFORMATION AUX 2 NOEUDS
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION DEFO(*),DEPLA(*),DEP2(2),TGL(2,LRE)
C
      DEP2(1)=0.D0
      DEP2(2)=0.D0
      DO 1 I=1,2
      DO 2 K=1,LRE
    2 DEP2(I)=DEP2(I)+TGL(I,K)*DEPLA(K)
    1 CONTINUE
      EPS=(DEP2(2)-DEP2(1))/AL
      DEFO(1)=EPS
      DEFO(2)=EPS
      RETURN
      END