Télécharger cermas.eso

Retour à la liste

Numérotation des lignes :

  1. C CERMAS SOURCE CHAT 05/01/12 21:52:26 5004
  2. SUBROUTINE CERMAS(REL,LRE,ROS,COORD)
  3. C-----------------------------------------------------------------------
  4. C ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE DE L ELEMENT DE
  5. C CERCE
  6. C
  7. C ENTREE
  8. C LRE DIMENSION DU TABLEAU REL
  9. C ROS RHO * SECT
  10. C COORD COORDONNEES DU NOEUD
  11. C
  12. C SORTIE
  13. C REL MATRICE DE MASSE ELEMENTAIRE
  14. C-----------------------------------------------------------------------
  15. IMPLICIT INTEGER(I-N)
  16. IMPLICIT REAL*8(A-H,O-Z)
  17. -INC CCREEL
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. DIMENSION REL(LRE,*),COORD(3,*)
  22. *
  23. R = COORD(1,1)
  24. IF(IFOUR.EQ.0.OR.(IFOUR.EQ.1.AND.NIFOUR.EQ.0)) THEN
  25. FAC=ROS*R*2*XPI
  26. ELSE
  27. FAC=ROS*R*XPI
  28. ENDIF
  29. *
  30. DO 1 I=1,LRE
  31. DO 2 J=1,LRE
  32. REL(I,J)=0.D0
  33. 2 CONTINUE
  34. 1 CONTINUE
  35. *
  36. REL(1,1)=FAC
  37. REL(2,2)=FAC
  38. IF(IFOUR.EQ.1) THEN
  39. REL(3,3)=FAC
  40. ENDIF
  41. RETURN
  42. END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  

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