Télécharger distr2.eso

Retour à la liste

Numérotation des lignes :

  1. C DISTR2 SOURCE CHAT 05/01/12 22:51:30 5004
  2. C DISTRR2 SOURCE LOYS 85/10/04 21:36:49
  3. SUBROUTINE DISTR2(XEL,SHP,NBNO,RR2)
  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 QSI)
  8. C
  9. C
  10. C ENTREES
  11. C XEL(3,NBNO)=COORDONNEES DE L ELEMENT
  12. C SHP(6,NBNO)=FONCTIONS DE FORME ET DERIVEES DE L ELEMENT
  13. C NBNO =NOMBRE DE NOEUDS DE L ELEMENT
  14. C SORTIES
  15. C RR2 =RAYON AU POINT DE GAUSS (POUR L AXISYMMETRIQUE )
  16. C
  17. C=======================================================================
  18. IMPLICIT INTEGER(I-N)
  19. IMPLICIT REAL*8(A-H,O-Z)
  20. DIMENSION XEL(3,*)
  21. DIMENSION SHP(6,*)
  22. RR2=0.D0
  23. DO 100 IA=1,NBNO
  24. RR2=RR2+SHP(2,IA)*XEL(1,IA)
  25. 100 CONTINUE
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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