Sources Esope | Cast3M

defjoi
C DEFJOI    SOURCE    AM        11/05/03    21:15:39     6955
C POUGR1    SOURCE    AM        10/09/20    21:15:23     6756
      SUBROUTINE DEFJOI(DEPL,LRE,DEFO,NDEP)
C-----------------------------------------------------------------------
C  ROUTINE DE CALCUL DES DEFORMATIONS POUR L'ELEMENT JOI1
C
C  ENTREE
C          DEPL   DEPLACEMENTS
C
C  SORTIE
C          DEFO    DEFORMATIONS
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION DEFO(*),DEPL(LRE)
*  CALCUL DES DEFORMATIONS
      DO I=1,NDEP
       DEFO(I)=(DEPL(I+NDEP)-DEPL(I))
      ENDDO
      RETURN
      END