Télécharger coq3ri.eso

Retour à la liste

Numérotation des lignes :

  1. C COQ3RI SOURCE CHAT 05/01/12 22:21:31 5004
  2. SUBROUTINE COQ3RI(RE,COORD,EPAIST,D,WORK)
  3. C
  4. C CALCUL DE LA MRIGIDITE ELEMENTAIRE DE
  5. C L ELEMENT COQ3
  6. C
  7. C******** ENTREE
  8. C COORD COORDONNEES DES 3 SOMMETS
  9. C EPAIS EPAISSEUR
  10. C D(6,6) MATRIXE DE HOOKE
  11. C******** SORTIE
  12. C RE(18,18) MRIGIDITE ELEMENTAIRE
  13. C******** TRAVAIL
  14. C WORK 500 VALEURS
  15. C
  16. IMPLICIT INTEGER(I-N)
  17. IMPLICIT REAL*8(A-H,O-Z)
  18. DIMENSION RE(*),COORD(*),D(6,*),WORK(*)
  19. C
  20. C CREATION DE LA MATRICE D MEMBRANE
  21. DIMENSION EPAIST(*)
  22. EPAIS=EPAIST(1)
  23. C
  24. rai = max(D(1,1),D(2,2),D(3,3))
  25. WORK(1)=D(1,1)
  26. WORK(2)=D(1,2)
  27. WORK(3)=D(1,3)
  28. WORK(4)=D(2,1)
  29. WORK(5)=D(2,2)
  30. WORK(6)=D(2,3)
  31. WORK(7)=D(3,1)
  32. WORK(8)=D(3,2)
  33. WORK(9)=D(3,3)
  34. DO 1 IA=1,9
  35. WORK(IA)=WORK(IA)/RAI
  36. 1 CONTINUE
  37.  
  38. C CALCUL DE LA RAIDEUR
  39. CALL RICOQ(RE,COORD,EPAIS,WORK,WORK(10),WORK(334),
  40. & WORK(415),WORK(451),WORK(460),WORK(463),WORK(466),
  41. & WORK(469),WORK(478),RAI)
  42. C
  43. RETURN
  44. END
  45.  
  46.  
  47.  

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