Télécharger distr3.eso

Retour à la liste

Numérotation des lignes :

  1. C DISTR3 SOURCE CHAT 05/01/12 22:51:33 5004
  2. C DISTRR3 SOURCE LOYS 85/10/04 21:36:49
  3. SUBROUTINE DISTR3(XEL,SHP,NBNO,RR3)
  4. C=====================================================================
  5. C
  6. C CALCULE EN FONCTION DU RAYON AU POINT D INTEGRATION
  7. C LA SOMME (RRi * DERIVEE DE Ni PAR RAPPORT A ETA)
  8. C
  9. C ENTREES
  10. C XEL(3,NBNO)=COORDONNEES DE L ELEMENT
  11. C SHP(6,NBNO)=FONCTIONS DE FORME ET DERIVEES DE L ELEMENT
  12. C NBNO =NOMBRE DE NOEUDS DE L ELEMENT
  13. C SORTIES
  14. C RR3 =RAYON AU POINT DE GAUSS (POUR L AXISYMMETRIQUE )
  15. C
  16. C=======================================================================
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. DIMENSION XEL(3,*)
  20. DIMENSION SHP(6,*)
  21. RR3=0.D0
  22. DO 100 IA=1,NBNO
  23. RR3=RR3+SHP(3,IA)*XEL(1,IA)
  24. 100 CONTINUE
  25. RETURN
  26. END
  27.  
  28.  
  29.  

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