Télécharger la plaquette Cast3M


fr en

Télécharger bgrdep.eso

Retour à la liste

Numérotation des lignes : 

bgrdep

  1. C BGRDEP    SOURCE    CHAT      05/01/12    21:39:46     5004
  2.  
  3. C=======================================================================
  4. C=                            B G R D E P                              =
  5. C=                            -----------                              =
  6. C=                                                                     =
  7. C=  Fonction :                                                         =
  8. C=  ----------                                                         =
  9. C=   Calcul des differentes composantes du gradient thermique ou de    =
  10. C=   deplacements en un point d'un element fini (point de Gauss).      =
  11. C=                                                                     =
  12. C=  Parametres :  (E)=Entree  (S)=Sortie                               =
  13. C=  ------------                                                       =
  14. C=   BGR      (E)   Matrice de gradients au point considere            =
  15. C=   NGRA     (E)   Nombre de composantes du gradient                  =
  16. C=   XDDL     (E)   Valeurs des DDL aux noeuds de l'element fini       =
  17. C=   LRE      (E)   Nombre de DDL de l'element fini                    =
  18. C=   GRADI    (S)   Gradient calcule au point considere                =
  19. C=======================================================================
  20.  
  21.       SUBROUTINE BGRDEP (BGR,NGRA,XDDL,LRE,GRADI)
  22.  
  23.       IMPLICIT INTEGER(I-N)
  24.       IMPLICIT REAL*8 (A-H,O-Z)
  25.  
  26. -INC CCREEL
  27.  
  28.       DIMENSION BGR(NGRA,*),XDDL(*),GRADI(*)
  29.  
  30.       DO i=1,NGRA
  31.         cc=XZero
  32.         DO j=1,LRE
  33.           cc=cc+XDDL(j)*BGR(i,j)
  34.         ENDDO
  35.         GRADI(i)=cc
  36.       ENDDO
  37.  
  38.       RETURN
  39.       END
  40.  
  41.  
  42.  
  43.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales