Télécharger CCGEOME.INC

Retour à la liste

Numérotation des lignes :

  1. * -INC CCGEOME
  2. *
  3. * COMMON PORTANT SUR LES MAILLAGES
  4. * 2016/06/22 : SG ajout tableau LDLR dimension des elements
  5. * 04/04/14: Modif GF: Declaration explicite des variables
  6. * DENSITE COURANTE (TAIILE DE MAILLE PAR DEFAUT),coeff des relations
  7. REAL*8 DENSIT ,XCOEFF
  8. COMMON/CGEOMC/DENSIT
  9. COMMON/CGEOMC/XCOEFF(102)
  10. *
  11. * NOMS DES TYPES D ELEMENTS (BETEMENT LIMITE A 100)
  12. COMMON/CGEOME/NOMBR
  13. integer NOMBR
  14. CHARACTER*4 NOMS
  15. COMMON/CGEOMC/NOMS(100)
  16. *
  17. * TYPE COURANT D'ELEMENT A FABRIQUER
  18. COMMON/CGEOME/ILCOUR
  19. integer ILCOUR
  20. *
  21. * NOMBRE DE NOEUDS,TYPE DU SEGMENT ET DE LA SURFACE PAR ELEMENT
  22. COMMON/CGEOME/NBNNE(100),KDEGRE(100),KSURF(100)
  23. integer NBNNE,KDEGRE,KSURF
  24. *
  25. * NOMBRE DE SOMMETS ET EMPLACEMENT DANS LE TABLEAU SUIVANT
  26. COMMON/CGEOME/NBSOM(100),NSPOS(100)
  27. integer NBSOM,NSPOS
  28. *
  29. * NOMBRE DE SEGMENTS PAR ELEMENT ET EMPLACEMENT DANS LE TABLEAU
  30. COMMON/CGEOME/LPL(100),LPT(100)
  31. integer LPL,LPT
  32. *
  33. * TABLEAU DES SOMMETS
  34. COMMON/CGEOME/IBSOM(300)
  35. integer IBSOM
  36. *
  37. * TABLEAU DES SEGMENTS
  38. COMMON/CGEOME/KSEGM(1500)
  39. integer KSEGM
  40. *
  41. * POUR FAIRE LA DECOMPOSITION DES ELEM EN TRIANGLES VOIR LE BLKDATA
  42. COMMON/CGEOME/KDFAC(3,20),KFAC(1000),LFAC(1000)
  43. integer KDFAC,KFAC,LFAC
  44. COMMON/CGEOME/LDEL(2,100),LTEL(2,100)
  45. integer LDEL,LTEL
  46. COMMON/CGEOME/KSIF(11)
  47. integer KSIF
  48. *
  49. * NOMS DES DIFFERENTES COULEURS
  50. COMMON/CGEOME/NBCOUL
  51. integer NBCOUL
  52. CHARACTER*4 NCOUL
  53. COMMON/CGEOMC/NCOUL(0:100)
  54. *
  55. * COULEUR PRISE PAR DEFAUT(INITIALISEE A BLANC POUR LE SCREEN AU DEPAR
  56. * ELLE PEUT ETRE MODIFIEE PAR OPTION)
  57. COMMON/CGEOME/IDCOUL
  58. integer IDCOUL
  59. *
  60. * INDICE DE LA COULEUR CORRESPONDANT AU NOIR / EFFFACEMENT
  61. COMMON/CGEOME/IDNOIR
  62. integer IDNOIR
  63.  
  64. *
  65. * TABLEAU DE PANACHE DES COULEURS
  66. COMMON/CGEOME/ITABM(0:30,0:30)
  67. integer ITABM
  68. *
  69. * CARACTERISATION DES TRACES (CF J BROCHARD)
  70. COMMON/CGEOME/IOMBRE
  71. integer IOMBRE
  72. *
  73. * OEIL PAR DEFAUT
  74. COMMON/CGEOME/IOEIL
  75. integer IOEIL
  76. *
  77.  
  78. COMMON/CGEOME/LISNOE(1096)
  79. integer LISNOE
  80. COMMON/CGEOME/LPOS1(2,214)
  81. integer LPOS1
  82. COMMON/CGEOME/LPOS2(100)
  83. integer LPOS2
  84. COMMON/CGEOME/LPOS3(100)
  85. integer LPOS3
  86. COMMON/CGEOME/NBRAF(100)
  87. integer NBRAF
  88. COMMON/CGEOME/LNELM(2,54)
  89. integer LNELM
  90. COMMON/CGEOME/LIELM(724)
  91. integer LIELM
  92. COMMON/CGEOME/LPOS4(100)
  93. integer LPOS4
  94. COMMON/CGEOME/NBINTE(100)
  95. integer NBINTE
  96. COMMON/CGEOME/LPOS5(100)
  97. integer LPOS5
  98. COMMON/CGEOME/JTYPNO(214)
  99. integer JTYPNO
  100. * support non instancie des multiplicateurs de lagrange
  101. COMMON/CGEOME/ILGNI
  102. integer ILGNI
  103. * DIMENSION DES ELEMENTS (POI1=0, SEG3=1, TRI6=2,..)
  104. COMMON/CGEOME/LDLR(100)
  105. INTEGER LDLR
  106.  
  107. save /cgeome/,/cgeomc/
  108.  
  109.  
  110.  
  111.  

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