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