Include source files

*     -INC CCGEOME
*
*    COMMON PORTANT SUR LES MAILLAGES
*
*   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
      CHARACTER*4 NOMS
      COMMON/CGEOMC/NOMS(100)
*
*   TYPE COURANT D'ELEMENT A FABRIQUER
      COMMON/CGEOME/ILCOUR
*
*  NOMBRE DE NOEUDS,TYPE DU SEGMENT ET DE LA SURFACE PAR ELEMENT
      COMMON/CGEOME/NBNNE(100),KDEGRE(100),KSURF(100)
*
*  NOMBRE DE SOMMETS ET EMPLACEMENT DANS LE TABLEAU SUIVANT
      COMMON/CGEOME/NBSOM(100),NSPOS(100)
*
*   NOMBRE DE SEGMENTS PAR ELEMENT ET EMPLACEMENT DANS LE TABLEAU
      COMMON/CGEOME/LPL(100),LPT(100)
*
*   TABLEAU DES SOMMETS
      COMMON/CGEOME/IBSOM(300)
*
*   TABLEAU DES SEGMENTS
      COMMON/CGEOME/KSEGM(1500)
*
*  POUR FAIRE LA DECOMPOSITION DES ELEM EN TRIANGLES VOIR LE BLKDATA
      COMMON/CGEOME/KDFAC(3,20),KFAC(1000),LFAC(1000)
      COMMON/CGEOME/LDEL(2,100),LTEL(2,100)
      COMMON/CGEOME/KSIF(11)
*
*   NOMS DES DIFFERENTES COULEURS
      COMMON/CGEOME/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
*   
*   INDICE DE LA COULEUR CORRESPONDANT AU NOIR / EFFFACEMENT
      COMMON/CGEOME/IDNOIR

*
*   TABLEAU DE PANACHE DES COULEURS
      COMMON/CGEOME/ITABM(0:15,0:15)
*
*   CARACTERISATION DES TRACES (CF J BROCHARD)
      COMMON/CGEOME/IOMBRE
*
*   OEIL PAR DEFAUT
      COMMON/CGEOME/IOEIL
*

      COMMON/CGEOME/LISNOE(1096)
      COMMON/CGEOME/LPOS1(2,214)
      COMMON/CGEOME/LPOS2(100)
      COMMON/CGEOME/LPOS3(100)
      COMMON/CGEOME/NBRAF(100)
      COMMON/CGEOME/LNELM(2,54)
      COMMON/CGEOME/LIELM(724)
      COMMON/CGEOME/LPOS4(100)
      COMMON/CGEOME/NBINTE(100)
      COMMON/CGEOME/LPOS5(100)
      COMMON/CGEOME/JTYPNO(214)
*   support non instancie des multiplicateurs de lagrange
      COMMON/CGEOME/ILGNI