C COMPRE    SOURCE    CHAT      05/01/12    22:16:05     5004           
        SUBROUTINE COMPRE(IPINI,IPPRE,MACLE)
* gere le common de pointeurs CMPREC pour COMP
      IMPLICIT INTEGER(I-N)
-INC CCPRECO
        INTEGER IPINI,IPPRE
        CHARACTER*16 macle

        do j = 29,1,-1
          preori(j+1) = preori(j)
          prepre(j+1) = prepre(j)
          precle(j+1) = precle(j)
        enddo
        preori(1) = ipini
        prepre(1) = ippre
        precle(1) = macle

        return
        end