      PARAMETER(NFMAX=Please_Configure_Me)
      PARAMETER(NFCM=100,NCMAX=NFMAX+NFCM,NOMAX=NFMAX/20)
      PARAMETER(NEMAX=3*NFMAX, NTMAX=(40*NEMAX)/27)
      PARAMETER(NPPM=(5*NCMAX)/12, NSSM=((5*NCMAX)-4*NPPM)/5)
C
      COMMON / RFACES  / 
     &         XF(5,NFMAX),YF(5,NFMAX),ZF(5,NFMAX)
     &        ,VALF(5,NFMAX),VITF(3,4,NFMAX),REFLEC(NFMAX)
     &        ,XX(4,NFMAX),YY(4,NFMAX)
     &        ,XIS(4,NFMAX),YIS(4,NFMAX),ZIS(4,NFMAX),VIS(4,NFMAX)
     &        ,CENTR(2*NFMAX),CENTRMI(2*NFMAX),CENTRMA(2*NFMAX)
     &        ,QUALITE(NFMAX,2)
     &        ,XOUT(2,NOMAX),YOUT(2,NOMAX),ZOUT(2,NOMAX)
     &        ,XXOUT(NOMAX,2),YYOUT(NOMAX,2)
     &        ,ROTA(3,3),ROTLOC(3,3),DIRLUM(3)
C
      COMMON / IFACES  /
     &         NTET(4,NTMAX),NODEL(NEMAX)
     &        ,NFAC(5,NFMAX),NBOR(4,NFMAX),NPROJE(2*NFMAX)
     &        ,NNUMFA(NFMAX),ISD2(NFMAX),NRFAC(NFMAX),ISDEL(NFMAX)
     &        ,IFPLAN(NFMAX),ISD3(NFMAX),NEIS(NFMAX),NSENS(NFMAX)
     &        ,IOUTLINE(3,NOMAX),IOUTRANG(NOMAX),NOUTLINE,NOUTRANG
     &        ,ICOIN,NDS,NDS2,NSURF,NSURF0,NBFAC,NDSEL,MODTET
C
      COMMON / ITABTAB / ICLAS(7,NCMAX),ITAB(NCMAX)
      INTEGER NFIS(5,NFMAX),IORDRE(2*NCMAX)
      EQUIVALENCE (ICLAS(1,1),NFIS(1,1))
C
C Courbes sur surfaces
C
      INTEGER IFPOIN(NPPM),ITPOIN(NPPM),IFSEG(NSSM),IEQUI(7*NCMAX)
      REAL*4  SPOIN(2,NPPM)
      REAL*4  SSEG(4,NSSM)
      EQUIVALENCE (ICLAS(1,1),IEQUI)
      EQUIVALENCE (IEQUI,IFPOIN)
      EQUIVALENCE (IEQUI(NPPM+1),ITPOIN)
      EQUIVALENCE (IEQUI(2*NPPM+1),IFSEG)
      EQUIVALENCE (IEQUI(2*NPPM+NSSM+1),SPOIN)
      EQUIVALENCE (IEQUI(4*NPPM+NSSM+1),SSEG)
C
      EQUIVALENCE (IEQUI(5*NCMAX+1),IORDRE(1))
