C PRREGE    SOURCE    CHAT      05/01/13    02:35:29     5004
      SUBROUTINE  PRREGE
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
-INC SMELEME
      CALL LIROBJ('MAILLAGE',IPT1,1,IRETOU)
      IF(IERR.NE.0) RETURN
      CALL REGENE(IPT1)
      CALL ECROBJ('MAILLAGE',IPT1)
      RETURN
      END