Télécharger distz3.eso

Retour à la liste

Numérotation des lignes :

  1. C DISTZ3 SOURCE CHAT 05/01/12 22:51:48 5004
  2. C DISTZZ3 SOURCE LOYS 85/10/04 21:36:49
  3. SUBROUTINE DISTZ3(XEL,SHP,NBNO,ZZ3)
  4. C=====================================================================
  5. C
  6. C CALCULE NE FONCTION DE LA COTE AU POINT D INTEGRATION
  7. C LA SOMME (ZZi * DERIVEE DE Ni PAR RAPPORT A ETA)
  8.  
  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 ZZ3 =COTE 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. ZZ3=0.D0
  23. DO 100 IA=1,NBNO
  24. ZZ3=ZZ3+SHP(3,IA)*XEL(2,IA)
  25. 100 CONTINUE
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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