Sources des Includes

*     -INC CCGEOME
*
*    COMMON PORTANT SUR LES MAILLAGES
*    2016/06/22 : SG ajout tableau LDLR dimension des elements
*    04/04/14: Modif GF: Declaration explicite des variables
*   DENSITE COURANTE (TAIILE DE MAILLE PAR DEFAUT),coeff des relations
      REAL*8 DENSIT ,XCOEFF
      COMMON/CGEOMC/DENSIT
      COMMON/CGEOMC/XCOEFF(102)
*
*   NOMS DES TYPES D ELEMENTS (BETEMENT LIMITE A 100)
      COMMON/CGEOME/NOMBR
      integer NOMBR
      CHARACTER*4 NOMS
      COMMON/CGEOMC/NOMS(100)
*
*   TYPE COURANT D'ELEMENT A FABRIQUER
      COMMON/CGEOME/ILCOUR
      integer ILCOUR
*
*  NOMBRE DE NOEUDS,TYPE DU SEGMENT ET DE LA SURFACE PAR ELEMENT
      COMMON/CGEOME/NBNNE(100),KDEGRE(100),KSURF(100)
      integer NBNNE,KDEGRE,KSURF
*
*  NOMBRE DE SOMMETS ET EMPLACEMENT DANS LE TABLEAU SUIVANT
      COMMON/CGEOME/NBSOM(100),NSPOS(100)
      integer NBSOM,NSPOS
*
*   NOMBRE DE SEGMENTS PAR ELEMENT ET EMPLACEMENT DANS LE TABLEAU
      COMMON/CGEOME/LPL(100),LPT(100)
      integer LPL,LPT
*
*   TABLEAU DES SOMMETS
      COMMON/CGEOME/IBSOM(300)
      integer IBSOM
*
*   TABLEAU DES SEGMENTS
      COMMON/CGEOME/KSEGM(1500)
      integer KSEGM
*
*  POUR FAIRE LA DECOMPOSITION DES ELEM EN TRIANGLES VOIR LE BLKDATA
      COMMON/CGEOME/KDFAC(3,20),KFAC(1000),LFAC(1000)
      integer KDFAC,KFAC,LFAC
      COMMON/CGEOME/LDEL(2,100),LTEL(2,100)
      integer LDEL,LTEL
      COMMON/CGEOME/KSIF(11)
      integer KSIF
*
*   NOMS DES DIFFERENTES COULEURS
      COMMON/CGEOME/NBCOUL
      integer NBCOUL
      CHARACTER*4 NCOUL
      COMMON/CGEOMC/NCOUL(0:100)
*
*   COULEUR PRISE PAR DEFAUT(INITIALISEE A BLANC POUR LE SCREEN AU DEPAR
*                            ELLE PEUT ETRE MODIFIEE PAR OPTION)
      COMMON/CGEOME/IDCOUL
      integer IDCOUL
*   
*   INDICE DE LA COULEUR CORRESPONDANT AU NOIR / EFFFACEMENT
      COMMON/CGEOME/IDNOIR
      integer IDNOIR
 
*
*   TABLEAU DE PANACHE DES COULEURS
      COMMON/CGEOME/ITABM(0:30,0:30)
      integer ITABM
*
*   CARACTERISATION DES TRACES (CF J BROCHARD)
      COMMON/CGEOME/IOMBRE
      integer IOMBRE
*
*   OEIL PAR DEFAUT
      COMMON/CGEOME/IOEIL
      integer IOEIL
*
 
      COMMON/CGEOME/LISNOE(1096)
      integer LISNOE
      COMMON/CGEOME/LPOS1(2,214)
      integer LPOS1
      COMMON/CGEOME/LPOS2(100)
      integer LPOS2
      COMMON/CGEOME/LPOS3(100)
      integer LPOS3
      COMMON/CGEOME/NBRAF(100)
      integer NBRAF
      COMMON/CGEOME/LNELM(2,54)
      integer LNELM
      COMMON/CGEOME/LIELM(724)
      integer LIELM
      COMMON/CGEOME/LPOS4(100)
      integer LPOS4
      COMMON/CGEOME/NBINTE(100)
      integer NBINTE
      COMMON/CGEOME/LPOS5(100)
      integer LPOS5
      COMMON/CGEOME/JTYPNO(214)
      integer JTYPNO
*   support non instancie des multiplicateurs de lagrange
      COMMON/CGEOME/ILGNI
      integer ILGNI
*   DIMENSION DES ELEMENTS (POI1=0, SEG3=1, TRI6=2,..)      
      COMMON/CGEOME/LDLR(100)
      INTEGER LDLR
 
      save /cgeome/,/cgeomc/