Télécharger po1mas.eso

Retour à la liste

Numérotation des lignes :

  1. C PO1MAS SOURCE CHAT 05/01/13 02:15:42 5004
  2. SUBROUTINE PO1MAS(COORD,XDPGE,YDPGE,ROS,LRE,REL)
  3. C-----------------------------------------------------------------------
  4. C ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE DE L ELEMENT DE
  5. C POI1
  6. C
  7. C ENTREE
  8. C XDPGE COORDONNEES DU POINT AUTOUR DUQUEL SE FAIT LA
  9. C YDPGE ROTATION DE LA SECTION EN DEFO PLANES GENE
  10. C LRE DIMENSION DU TABLEAU REL
  11. C ROS RHO * SECT
  12. C COORD COORDONNEES DU NOEUD
  13. C
  14. C SORTIE
  15. C REL MATRICE DE MASSE ELEMENTAIRE
  16. C-----------------------------------------------------------------------
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. -INC CCOPTIO
  20. DIMENSION REL(LRE,*),COORD(3,*)
  21. *
  22. DO 1 I=1,LRE
  23. DO 1 J=1,LRE
  24. 1 REL(I,J)=0.D0
  25. *
  26. XX=COORD(1,1)
  27. YY=COORD(2,1)
  28. XXX=XDPGE-XX
  29. YYY=YY-YDPGE
  30. *
  31. REL(3,3)=ROS
  32. REL(3,4)=ROS*XXX
  33. REL(3,5)=ROS*YYY
  34. REL(4,3)=REL(3,4)
  35. REL(4,4)=ROS*XXX*XXX
  36. REL(4,5)=ROS*XXX*YYY
  37. REL(5,3)=REL(3,5)
  38. REL(5,4)=REL(4,5)
  39. REL(5,5)=ROS*YYY*YYY
  40. RETURN
  41. END
  42.  
  43.  
  44.  

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