      COMMON / VIEUX_CUBER / XCOTE(4,6),YCOTE(4,6),XPREC(4,6),YPREC(4,6)
     &                      ,DXTRANS,DYTRANS,DXTRAN0,DYTRAN0
      COMMON / VIEUX_CUBEI / NCOTE,NPREC
