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