C Automatically configured by "makedeps" for MEM = 64
C
C WARNING !!
C Because of the EQUIVALENCE statement
C NVMX must be multiple of 3
C and
C NPMAX must be multiple of NVMX
C
C
      PARAMETER ( NPMAX=74232 )
      PARAMETER ( NVMX = 12 )
      PARAMETER ( NPM12=NPMAX/NVMX , NPM4=3*NPMAX/NVMX )
      PARAMETER ( NXYMAX=2000 )
C
      COMMON / COOR /  X(3*NPMAX),Y(3*NPMAX),Z(3*NPMAX)
     &                ,VALX(NPMAX),VALXB(NPMAX),VITN(3,NPMAX)
     &                ,DEPX(3*NPMAX),DEPY(3*NPMAX),DEPZ(3*NPMAX)
     &                ,RAYON0(NPMAX),RAYON2(NPMAX)
     &                ,XSU(NXYMAX),YSU(NXYMAX),UUU(NXYMAX),VVV(NXYMAX)
     &                ,XMED,YMED,ZMED,XMED0,YMED0,ZMED0,XMED2,YMED2
     &                ,XCCOR,YCCOR,ZCCOR,VISO
      COMMON / ICOOR / ISD(NPMAX),INDEX(NPMAX),NVOI(NVMX,NPMAX)
     &                ,ICOR(NPMAX),IPLAN(NPMAX)
     &                ,IREF(NPMAX),IBLOQ(NPMAX),IELBOR(NPMAX)
     &                ,NUMNP,NEL,NFACE,NF,NF4,NRECON,NRECONMAX
     &                ,NUMSD,NUMX,NUMY,NBCORN,NUMBIS,NUMTER,NELDEL
C
      DIMENSION PHONG(3,3*NPMAX)
      INTEGER   ITOUCH(3*NPMAX),ITOUCH2(NPMAX),IREF3(NPMAX)
      EQUIVALENCE (PHONG(1,1),NVOI(1,1))
      EQUIVALENCE (ITOUCH(1) ,NVOI(1,3*NPM4))
      EQUIVALENCE (ITOUCH2(1),NVOI(1,3*NPM4))
      EQUIVALENCE (IREF3(1)  ,NVOI(1,1))
