Télécharger SMMODEL.INC

Retour à la liste

Numérotation des lignes :

  1.  
  2. * -INC SMMODEL
  3. *
  4. * OBJET DE TYPE "MODELE"
  5. *
  6. PARAMETER (LCONMO=24)
  7. SEGMENT,MMODEL
  8. INTEGER KMODEL(N1)
  9. ENDSEGMENT
  10. POINTEUR MMODE1.MMODEL,MMODE2.MMODEL
  11. *
  12. SEGMENT,IMODEL
  13. INTEGER IMAMOD,NEFMOD
  14. INTEGER INFMOD(MN3)
  15. CHARACTER*(LCONMO) CONMOD
  16. CHARACTER*8 CMATEE
  17. CHARACTER*16 FORMOD(NFOR),MATMOD(NMAT)
  18. INTEGER IPDPGE,IMATEE,INATUU,IDERIV
  19. INTEGER LNOMID(14),INFELE(16)
  20. CHARACTER*8 TYMODE(NOBMOD)
  21. INTEGER IVAMOD(NOBMOD)
  22. ENDSEGMENT
  23. POINTEUR IMODE1.IMODEL,IMODE2.IMODEL
  24. *
  25. * KMODEL : POINTEUR SUR DES OBJETS MODELES ELEMENTAIRES
  26. * IMAMOD : POINTEUR SUR UN OBJET MAILLAGE ELEMENTAIRE
  27. * NEFMOD : NUMERO DE L'ELEMENT FINI DANS NOMTP
  28. * INFMOD : INFORMATIONS VARIEES RELATIVES AU MODELE
  29. * INFMOD(1) : NOMBRE DE PTS D'INTEGRATION DANS L'EPAISSEUR
  30. * INFMOD(2) : utilise en meca flux pour stocker une table
  31. * INFMOD(3) : segment integre pour les noeuds
  32. * INFMOD(4) : segment integre pour un champs constant
  33. * INFMOD(5) : segment integre pour rigidite
  34. * INFMOD(6) : segment integre pour masse
  35. * INFMOD(7) : segment integre pour contraintes
  36. * CONMOD : NOM DU CONSTITUANT
  37. * FORMOD : SUITE DE MOTS DEFINISSANT LA FORMULATION
  38. * (EX: THERMIQUE , LIQUIDE + MECANIQUE, ...)
  39. * MATMOD : SUITE DE MOTS CARACTERISANT LE TYPE DE MATERIAU
  40. * (EX: ORTHOTROPE, PLASTIQUE PARFAIT, ...)
  41. * IPDPGE : point support de deformations planes generalisées
  42. * PHAMOD : nom de la phase
  43. * la phase est maintenant rangée dans conmod(17:24)
  44. C IMATEE INATUU : variables imate inatu de nomate
  45. C IDERIV : type de la derivee 1 Lineaire (classique HPP)
  46. C 2 quadratique
  47. C 3 Truesdell
  48. C 4 Jaumann
  49. C 5 Utilisateur
  50. C 6
  51.  
  52. * TYMODE : type de l'objet dont le pointeur est dans IVAMOD
  53. * LNOMID : pointeurs vers des nomid l'ordre predefini est :
  54. *
  55. * 1 'DEPLACEM', 'FORCES ', 'GRADIENT', 'CONTRAIN',
  56. * 1 'DEFORMAT', 'MATERIAU', 'CARACTER', 'TEMPERAT',
  57. * 1 'PRINCIPA', 'VARINTER', 'GRAFLEXI', 'VINMETAL',
  58. * 1 'DEFINELA', 'PARAMEXT',/
  59. * segment nomid utilitaire des modeles contient la liste des noms
  60. * des differents champs
  61. SEGMENT NOMID
  62. CHARACTER*8 LESOBL(NBROBL),LESFAC(NBRFAC)
  63. ENDSEGMENT
  64. * NBROBL : Nombre de composantes obligatoires
  65. * LESOBL : Tableau des noms de composantes obligatoires
  66.  
  67. * NBRFAC : Nombre de composantes facultatives
  68. * LESFAC : Tableau des noms de composantes facultatives
  69.  

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