C BGRDEP    SOURCE    CHAT      05/01/12    21:39:46     5004

C=======================================================================
C=                            B G R D E P                              =
C=                            -----------                              =
C=                                                                     =
C=  Fonction :                                                         =
C=  ----------                                                         =
C=   Calcul des differentes composantes du gradient thermique ou de    =
C=   deplacements en un point d'un element fini (point de Gauss).      =
C=                                                                     =
C=  Parametres :  (E)=Entree  (S)=Sortie                               =
C=  ------------                                                       =
C=   BGR      (E)   Matrice de gradients au point considere            =
C=   NGRA     (E)   Nombre de composantes du gradient                  =
C=   XDDL     (E)   Valeurs des DDL aux noeuds de l'element fini       =
C=   LRE      (E)   Nombre de DDL de l'element fini                    =
C=   GRADI    (S)   Gradient calcule au point considere                =
C=======================================================================

      SUBROUTINE BGRDEP (BGR,NGRA,XDDL,LRE,GRADI)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC CCREEL

      DIMENSION BGR(NGRA,*),XDDL(*),GRADI(*)

      DO i=1,NGRA
        cc=XZero
        DO j=1,LRE
          cc=cc+XDDL(j)*BGR(i,j)
        ENDDO
        GRADI(i)=cc
      ENDDO

      RETURN
      END