Télécharger distz2.eso

Retour à la liste

Numérotation des lignes :

  1. C DISTZ2 SOURCE CHAT 05/01/12 22:51:46 5004
  2. C DISTZZ2 SOURCE LOYS 85/10/04 21:36:49
  3. SUBROUTINE DISTZ2(XEL,SHP,NBNO,ZZ2)
  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 QSI)
  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 ZZ2 =COTE 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. ZZ2=0.D0
  22. DO 100 IA=1,NBNO
  23. ZZ2=ZZ2+SHP(2,IA)*XEL(2,IA)
  24. 100 CONTINUE
  25. RETURN
  26. END
  27.  
  28.  
  29.  

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