Télécharger joimas.eso

Retour à la liste

Numérotation des lignes :

  1. C JOIMAS SOURCE AM 11/05/03 21:17:20 6955
  2. C TIMALO SOURCE CHAT 05/01/13 03:39:56 5004
  3. SUBROUTINE JOIMAS(REL,LRE,WORK,NMATT,IDIM)
  4. C-----------------------------------------------------------------------
  5. C ROUTINE DE CALCUL DE LA MATRICE DE MASSE ELEMENTAIRE DE L ELEMENT DE
  6. C JOINT UNIDIMENSIONNEL
  7. C
  8. C ENTREE
  9. C LRE DIMENSION DU TABLEAU REL
  10. C WORK CARACTERISTIQUE MATERIAU
  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. DIMENSION REL(LRE,*),WORK(NMATT)
  18. IF (IDIM.EQ.3) THEN
  19. DO 2 I=1,3
  20. REL(I,I)=WORK(7)/2.
  21. 2 REL(I+6,I+6)=WORK(7)/2.
  22. *
  23. REL(4,4)=WORK(8)
  24. REL(10,10)=REL(4,4)
  25. REL(5,5)=WORK(9)
  26. REL(11,11)=REL(5,5)
  27. REL(6,6)=WORK(10)
  28. REL(12,12)=REL(6,6)
  29. *
  30. ELSE IF (IDIM.EQ.2) THEN
  31. DO 3 I=1,2
  32. REL(I,I)=WORK(3)/2.
  33. 3 REL(I+3,I+3)=WORK(3)/2.
  34. *
  35. REL(3,3)=WORK(4)
  36. REL(6,6)=REL(3,3)
  37. ENDIF
  38. *
  39. 99 CONTINUE
  40. RETURN
  41. END
  42.  
  43.  
  44.  

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