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. * ATTRIBUTS DE DESSIN DES EVOLUTIONS
  56. CHARACTER*4 MOSTYL,MOMARQ,MOTAIL
  57. COMMON/CGEOMC/MOSTYL(1:20),MOMARQ(1:20),MOTAIL(1:10)
  58. INTEGER NBSTY,NBMAR,NBTAI
  59. COMMON/CGEOME/NBSTY
  60. COMMON/CGEOME/NBMAR
  61. COMMON/CGEOME/NBTAI
  62. *
  63. * COULEUR PRISE PAR DEFAUT(INITIALISEE A BLANC POUR LE SCREEN AU DEPAR
  64. * ELLE PEUT ETRE MODIFIEE PAR OPTION)
  65. COMMON/CGEOME/IDCOUL
  66. integer IDCOUL
  67. *
  68. * INDICE DE LA COULEUR CORRESPONDANT AU NOIR / EFFFACEMENT
  69. COMMON/CGEOME/IDNOIR
  70. integer IDNOIR
  71.  
  72. *
  73. * TABLEAU DE PANACHE DES COULEURS
  74. COMMON/CGEOME/ITABM(0:30,0:30)
  75. integer ITABM
  76. *
  77. * CARACTERISATION DES TRACES (CF J BROCHARD)
  78. COMMON/CGEOME/IOMBRE
  79. integer IOMBRE
  80. *
  81. * OEIL PAR DEFAUT
  82. COMMON/CGEOME/IOEIL
  83. integer IOEIL
  84. *
  85.  
  86. COMMON/CGEOME/LISNOE(1096)
  87. integer LISNOE
  88. COMMON/CGEOME/LPOS1(2,214)
  89. integer LPOS1
  90. COMMON/CGEOME/LPOS2(100)
  91. integer LPOS2
  92. COMMON/CGEOME/LPOS3(100)
  93. integer LPOS3
  94. COMMON/CGEOME/NBRAF(100)
  95. integer NBRAF
  96. COMMON/CGEOME/LNELM(2,54)
  97. integer LNELM
  98. COMMON/CGEOME/LIELM(724)
  99. integer LIELM
  100. COMMON/CGEOME/LPOS4(100)
  101. integer LPOS4
  102. COMMON/CGEOME/NBINTE(100)
  103. integer NBINTE
  104. COMMON/CGEOME/LPOS5(100)
  105. integer LPOS5
  106. COMMON/CGEOME/JTYPNO(214)
  107. integer JTYPNO
  108. * support non instancie des multiplicateurs de lagrange
  109. COMMON/CGEOME/ILGNI
  110. integer ILGNI
  111. * DIMENSION DES ELEMENTS (POI1=0, SEG3=1, TRI6=2,..)
  112. COMMON/CGEOME/LDLR(100)
  113. INTEGER LDLR
  114.  
  115. save /cgeome/,/cgeomc/
  116.  
  117.  
  118.  
  119.  

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