Télécharger modela.eso

Retour à la liste

Numérotation des lignes :

  1. C MODELA SOURCE AM 16/06/08 21:15:23 8953
  2.  
  3. C=======================================================================
  4. C= Definition des noms des MATERIAUX : =
  5. C= Cas de la FORMULATION 'MECANIQUE' + 'ELASTIQUE' =
  6. C=======================================================================
  7.  
  8. SUBROUTINE MODELA (MOMODL,NMOD)
  9.  
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8 (A-H,O-Z)
  12.  
  13. -INC CCOPTIO
  14.  
  15. CHARACTER*16 MOMODL(*)
  16.  
  17. C 1 - Noms des MATERIAUX :
  18. C --------------------------
  19. IF (IDIM.EQ.1) THEN
  20. NMOD=2
  21. MOMODL(1)='ISOTROPE'
  22. MOMODL(2)='ORTHOTROPE'
  23. ELSE
  24. NMOD=11
  25. MOMODL(1)='ISOTROPE'
  26. MOMODL(2)='ORTHOTROPE'
  27. MOMODL(3)='ANISOTROPE'
  28. MOMODL(4)='PORPOR'
  29. MOMODL(5)='HOMOGENEISE'
  30. MOMODL(6)='UNIDIRECTIONNEL'
  31. MOMODL(7)='SECTION'
  32. MOMODL(8)='ARMATURE'
  33. MOMODL(9)='MODAL'
  34. MOMODL(10)='STATIQUE'
  35. MOMODL(11)='ZONE_COHESIVE'
  36.  
  37. ENDIF
  38.  
  39. RETURN
  40. END
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  

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