Télécharger modlia.eso

Retour à la liste

Numérotation des lignes :

  1. C MODLIA SOURCE KICH 10/06/28 21:16:13 6697
  2. SUBROUTINE MODLIA(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'LIAISON_MATERIELLE'
  5. * DEFINITION DES NOMS DES MATERIAUX
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. -INC CCOPTIO
  9. *
  10. CHARACTER*16 MOMODL(*)
  11. *
  12. * Noms des materiaux
  13. *
  14. NMOD=24
  15.  
  16. c MOMODL(1)='POINT_PLAN_FLUIDE'
  17. c MOMODL(2)='POINT_PLAN_FROTTEMENT'
  18. c MOMODL(3)='POINT_PLAN'
  19. c MOMODL(4)='POINT_POINT_FROTTEMENT'
  20. c MOMODL(5)='POINT_POINT_DEPLACEMENT_PLASTIQUE'
  21. c MOMODL(6)='POINT_POINT_ROTATION_PLASTIQUE'
  22. c MOMODL(7)='POINT_POINT'
  23. c MOMODL(8)='POINT_CERCLE_MOBILE'
  24. c MOMODL(9)='POINT_CERCLE_FROTTEMENT'
  25. c MOMODL(10)='POINT_CERCLE'
  26. c MOMODL(11)='CERCLE_PLAN_FROTTEMENT'
  27. c MOMODL(12)='CERCLE_CERCLE_FROTTEMENT'
  28. c MOMODL(13)='PROFIL_PROFIL_INTERIEUR'
  29. c MOMODL(14)='PROFIL_PROFIL_EXTERIEUR'
  30. c MOMODL(15)='LIGNE_LIGNE_FROTTEMENT'
  31. c MOMODL(16)='LIGNE_CERCLE_FROTTEMENT'
  32. c MOMODL(17)='PALIER_FLUIDE'
  33. c MOMODL(18)='COUPLAGE_DEPLACEMENT'
  34. c MOMODL(19)='COUPLAGE_VITESSE'
  35. c MOMODL(20)='POLYNOMIALE' '
  36.  
  37. MOMODL(1)='POINT_PLAN'
  38. MOMODL(2)='FROTTEMENT'
  39. MOMODL(3)='FLUIDE'
  40. MOMODL(4)='POINT_POINT'
  41. MOMODL(5)='DEPL_PLASTIQUE'
  42. MOMODL(6)='ROTA_PLASTIQUE'
  43. MOMODL(7)='FROTTEMENT'
  44. MOMODL(8)='POINT_CERCLE'
  45. MOMODL(9)='MOBILE'
  46. MOMODL(10)='PROFIL_PROFIL'
  47. MOMODL(11)='CERCLE_PLAN'
  48. MOMODL(12)='CERCLE_CERCLE'
  49. MOMODL(13)='INTERIEUR'
  50. MOMODL(14)='EXTERIEUR'
  51. MOMODL(15)='LIGNE_LIGNE'
  52. MOMODL(16)='LIGNE_CERCLE'
  53. MOMODL(17)='PALIER_FLUIDE'
  54. MOMODL(18)='COUPLAGE'
  55. MOMODL(19)='DEPLACEMENT'
  56. MOMODL(20)='VITESSE'
  57. MOMODL(21)='POLYNOMIALE'
  58. MOMODL(22)='RHODE_LI'
  59. MOMODL(23)='NEWMARK'
  60. MOMODL(24)='MODAL'
  61.  
  62. RETURN
  63. END
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  

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