C JOIGR1    SOURCE    AM        11/05/03    21:17:18     6955           
      SUBROUTINE JOIGR1(DEPLA,GRAD,LRE,NGRA,IDIM)
C-----------------------------------------------------------------------        
C  ROUTINE DE CALCUL DES GRADIENTS POUR L'ELEMENT JOI1
C                                                                               
C  ENTREE                                                                       
C          DEPLA   DEPLACEMENTS                                  
C                                                                               
C  SORTIE                                                                       
C          GRAD    GRADIENTS AUX 2 NOEUDS    6 PAR NOEUD
C-----------------------------------------------------------------------        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION GRAD(*),DEPLA(LRE)                                                     
*  CALCUL DES GRADIENTS
      CALL ZERO(GRAD,NGRA,1)
      IF(IDIM.EQ.3) THEN                                                                         
       GRAD(1)=(DEPLA(7)-DEPLA(1))
       GRAD(4)=(DEPLA(8)-DEPLA(2))
       GRAD(7)=(DEPLA(9)-DEPLA(3))
      ELSE IF(IDIM.EQ.2) THEN 
       GRAD(1)=(DEPLA(4)-DEPLA(1))
       GRAD(3)=(DEPLA(5)-DEPLA(2))
      ENDIF
      RETURN                                                                    
      END