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