      PARAMETER(NMAX=250000)
      PARAMETER(NDSMAX=54)
      PARAMETER(NGMAX=1000)
      REAL*4    XYZ1(3,NMAX),PR1(6,NMAX)
      REAL*4    XYZ2(3,NMAX),PR2(6,NMAX)
      INTEGER   IBC1(9,NMAX),NODE1(0:NDSMAX,NMAX),NPR1(NMAX)
     &         ,NFPR1(6,NMAX),NGROUP1(NGMAX),NTYP1(NGMAX),NEL1(NGMAX)
     &         ,NDS1(NGMAX)
      INTEGER   IBC2(9,NMAX),NODE2(0:NDSMAX,NMAX),NPR2(NMAX)
     &         ,NFPR2(6,NMAX),NGROUP2(NGMAX),NTYP2(NGMAX),NEL2(NGMAX)
     &         ,NDS2(NGMAX)
      CHARACTER*80  HED1,HED2
      CHARACTER*128 FICH1,FICH2
C
      COMMON / AVOIR_NOSTACK2 / XYZ1,XYZ2,PR1,PR2
     &                         ,IBC1,NODE1,NPR1,NFPR1,NF1,NGROUP1
     &                         ,NTYP1,NEL1,NDS1
     &                         ,IBC2,NODE2,NPR2,NFPR2,NF2,NGROUP2
     &                         ,NTYP2,NEL2,NDS2
