Télécharger la plaquette Cast3M


fr en

Télécharger modlia.eso

Retour à la liste

Numérotation des lignes : 

modlia

  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12.       CHARACTER*16 MOMODL(*)
  13. *
  14. *     Noms des materiaux
  15. *
  16.       NMOD=24
  17.  
  18. c      MOMODL(1)='POINT_PLAN_FLUIDE'
  19. c      MOMODL(2)='POINT_PLAN_FROTTEMENT'
  20. c      MOMODL(3)='POINT_PLAN'
  21. c      MOMODL(4)='POINT_POINT_FROTTEMENT'
  22. c      MOMODL(5)='POINT_POINT_DEPLACEMENT_PLASTIQUE'
  23. c      MOMODL(6)='POINT_POINT_ROTATION_PLASTIQUE'
  24. c      MOMODL(7)='POINT_POINT'
  25. c      MOMODL(8)='POINT_CERCLE_MOBILE'
  26. c      MOMODL(9)='POINT_CERCLE_FROTTEMENT'
  27. c      MOMODL(10)='POINT_CERCLE'
  28. c      MOMODL(11)='CERCLE_PLAN_FROTTEMENT'
  29. c      MOMODL(12)='CERCLE_CERCLE_FROTTEMENT'
  30. c      MOMODL(13)='PROFIL_PROFIL_INTERIEUR'
  31. c      MOMODL(14)='PROFIL_PROFIL_EXTERIEUR'
  32. c      MOMODL(15)='LIGNE_LIGNE_FROTTEMENT'
  33. c      MOMODL(16)='LIGNE_CERCLE_FROTTEMENT'
  34. c      MOMODL(17)='PALIER_FLUIDE'
  35. c      MOMODL(18)='COUPLAGE_DEPLACEMENT'
  36. c      MOMODL(19)='COUPLAGE_VITESSE'
  37. c      MOMODL(20)='POLYNOMIALE' '
  38.  
  39.       MOMODL(1)='POINT_PLAN'
  40.       MOMODL(2)='FROTTEMENT'
  41.       MOMODL(3)='FLUIDE'
  42.       MOMODL(4)='POINT_POINT'
  43.       MOMODL(5)='DEPL_PLASTIQUE'
  44.       MOMODL(6)='ROTA_PLASTIQUE'
  45.       MOMODL(7)='FROTTEMENT'
  46.       MOMODL(8)='POINT_CERCLE'
  47.       MOMODL(9)='MOBILE'
  48.       MOMODL(10)='PROFIL_PROFIL'
  49.       MOMODL(11)='CERCLE_PLAN'
  50.       MOMODL(12)='CERCLE_CERCLE'
  51.       MOMODL(13)='INTERIEUR'
  52.       MOMODL(14)='EXTERIEUR'
  53.       MOMODL(15)='LIGNE_LIGNE'
  54.       MOMODL(16)='LIGNE_CERCLE'
  55.       MOMODL(17)='PALIER_FLUIDE'
  56.       MOMODL(18)='COUPLAGE'
  57.       MOMODL(19)='DEPLACEMENT'
  58.       MOMODL(20)='VITESSE'
  59.       MOMODL(21)='POLYNOMIALE'
  60.       MOMODL(22)='RHODE_LI'
  61.       MOMODL(23)='NEWMARK'
  62.       MOMODL(24)='MODAL'
  63.  
  64.       RETURN
  65.       END
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  

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