Esope source files

   1 : C RMPGBN    SOURCE    CHAT      09/04/08    21:15:51     6355           
   2 :       subroutine rmpgbn(ip1,ip2,ity)
   3 : *  remplace dans le pile de gibiane et si chpoint ou rigidite 
   4 : * remplace aussi dans la table
   5 : * des nom un objet par un autre
   6 :       implicit real*8 (A-H,o-Z)
   7 :       implicit integer (i-n)
   8 :       character*(*) ity
   9 : -INC CCNOYAU
  10 : -INC CCOPTIO
  11 :       IPLAC=JPoob2(imotlu)
  11 :       if (iplac.le.0) call trbac
  12 :       IF(INOOB2(iplac).NE.'TABLE   ') GO TO 100
  13 :       if( ity.eq.'CHPOINT '.OR.ity.eq.'RIGIDITE'
  14 :      $   .OR.ity.eq.'LOGIQUE')then
  15 :         inoob2(iplac)=ity
  16 : *        write(6,*) ' on remplace un chpoint rigi ou logi'
  17 :          if (iouep2(iplac).ne.ip1) goto 100
  18 :         IOUEP2(iplac)=IP2
  19 :       endif
  20 : *      jpoob2(imotlu)=
  21 :       JPOOB1(IMOTLU)=.TRUE.
  22 :       if (jpoob4(imotlu).ne.ip1) goto 100
  23 :       JPOOB4(IMOTLU)=ip2
  24 :       JTYOBJ(IMOTLU)=ITY
  25 :       return
  26 :   100 continue
  27 :         write(6,*) ' tentative ratée de changer un objet esclave'
  28 :         write(6,*) ' par son object réduit Type:', inoob2(iplac)
  29 : 
  29 :         call erreur(5)
  30 :         return
  31 :       end
  32 :       
  33 :