Esope source files

   1 : C ANNULE    SOURCE    CHAT      06/03/17    13:33:49     5338           
   2 : C    EFFACE UNe methode d'un objet                                                  
   3 : C                                                                               
   4 :       SUBROUTINE ANNULE 
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8(A-H,O-Z)                                                       
   7 : -INC CCOPTIO 
   8 : -INC CCNOYAU
   9 : -INC SMTABLE
  10 : -INC SMBLOC                                                                   
  11 :       CHARACTER*(8) CHAR,TYPIND
  11 :       CALL LIROBJ ('OBJET   ',MTABLE,0,IRETOU)
  12 :       IF(IRETOU.EQ.0) THEN
  13 :         IF(MOBJCO.NE.0) THEN
  14 :           MTABLE=MOBJCO
  15 :         ELSE
  16 :           MOTERR(1:8)='OBJET   '
  16 :           CALL ERREUR(37)
  17 :         ENDIF
  18 :       ENDIF
  19 :       TYPIND=' '
  19 :       CALL LIRABJ(TYPIND,INDICE,1,IRETO1)
  20 :       IF(IERR.NE.0) RETURN
  21 :       ITAB=-MTABLE
  21 :       CALL OUBLIE1 ( ITAB,INDICE,TYPIND)                                   
  22 :       RETURN                                 
  23 :       END          
  24 :                                                                                                                  
  25 :  
  26 :  
  27 :  
  28 :