C RMPGBN    SOURCE    CHAT      09/04/08    21:15:51     6355           
      subroutine rmpgbn(ip1,ip2,ity)
*  remplace dans le pile de gibiane et si chpoint ou rigidite 
* remplace aussi dans la table
* des nom un objet par un autre
      implicit real*8 (A-H,o-Z)
      implicit integer (i-n)
      character*(*) ity
-INC CCNOYAU
-INC CCOPTIO
      IPLAC=JPoob2(imotlu)
      if (iplac.le.0) call trbac
      IF(INOOB2(iplac).NE.'TABLE   ') GO TO 100
      if( ity.eq.'CHPOINT '.OR.ity.eq.'RIGIDITE'
     $   .OR.ity.eq.'LOGIQUE')then
        inoob2(iplac)=ity
*        write(6,*) ' on remplace un chpoint rigi ou logi'
         if (iouep2(iplac).ne.ip1) goto 100
        IOUEP2(iplac)=IP2
      endif
*      jpoob2(imotlu)=
      JPOOB1(IMOTLU)=.TRUE.
      if (jpoob4(imotlu).ne.ip1) goto 100
      JPOOB4(IMOTLU)=ip2
      JTYOBJ(IMOTLU)=ITY
      return
  100 continue
        write(6,*) ' tentative ratée de changer un objet esclave'
        write(6,*) ' par son object réduit Type:', inoob2(iplac)

        call erreur(5)
        return
      end