Télécharger coq3ma.eso

Retour à la liste

Numérotation des lignes :

  1. C COQ3MA SOURCE CHAT 05/01/12 22:21:28 5004
  2. SUBROUTINE COQ3MA(XE,RHO,WORK,RIMA,ILUMP)
  3. c=======================================================================
  4. c
  5. c calcule la matrice de masse de l element coq3
  6. c
  7. c entree
  8. c xe(3,3)=coodonnees de l element
  9. c rho =masse volumique * epaisseur
  10. c ilump = 1 si c'est l'opérateur LUMp qui est appelé , 0 sinon
  11. c travail
  12. c work(27) = tableau de travail
  13. c sorties
  14. c rima(18,18)=matrice de masse
  15. c
  16. c code ebersolt mars 85
  17. c
  18. c=======================================================================
  19. IMPLICIT INTEGER(I-N)
  20. IMPLICIT REAL*8(A-H,O-Z)
  21. DIMENSION XE(3,*),WORK(*),RIMA(18,*)
  22. CALL COQ3M1(XE,RHO,WORK(1),WORK(10),WORK(19),RIMA,ILUMP)
  23. RETURN
  24. END
  25.  
  26.  
  27.  

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