Télécharger bgrdep.eso

Retour à la liste

Numérotation des lignes :

  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